Reply To: TCL Comparing to a subfield

[garry r fisher]

Hi,

Missed a bit:

  set HL7msg [msgget $mh]

  set fieldSeparator [crange $HL7msg 3 3]

  set subfieldSeparator [crange $HL7msg 4 4]

  set orcSegment [getHL7Segment $HL7msg ORC]

  set orcField12 [getHL7Field $orcSegment 12 $fieldSeparator]

  set ordProv [lindex [split $orcField12 ^] 1]

Not quite sure why you were using “^” but the above works fine in a number of scripts I’ve writtren.

G