How to loop through insurance field in TCL

Try this:

set msg [msgget $mh]
set segments [split $msg r]

foreach segment $segments {
[code]set msg [msgget $mh]
set segments [split $msg r]

foreach segment $segments {

Too much work Bob.  Loop through all segments?  😀

foreach IN1 [lsearch -inline -all -regexp $segments {^IN1}] {

                    Examine each IN1 here

}

The above works if making no changes since you do not care where the IN1 is located.  If changes are required:

foreach loc [lsearch -all -regexp $srgments {^IN1}} {

    set IN1 [split [lindex $segments $loc] $fldSep]

         Now you have the location of each and  can modify then replace

}

lsearch is probably the best tool we have for dealing with HL7

Thanks Charlie. I used your sample and it worked great.

My goal was to filter out normal lab results but some ORU obx segments had combination of abnormal/normal flags.

This is what I used in case it helps anyone out there:

foreach loc [lsearch -all -regexp $segments {^OBX}] {

   set OBX [split [lindex $segments $loc] $fldSep]

   set obx_8 [lindex $OBX 8]      

   set abnormal_value [lindex $obx_8]        

   echo Abnormal Value = $abnormal_value

                   set tableName Valid_Abnormal_Values

   set abnormalflag [tbllookup $tableName $abnormal_value]

   echo The Flag =$abnormalflag          

} ;# foreach