A simple TCL is working on the testing tool but not…

[Hyo-Chan Lee]

A simple tcl that is replaced with null value or a certain string into the certain field on the certain segment.

It’s working on the testing tool but not on the tread.

Can anyone help me what’s going on with the TCL?.  TCL is attached

Testi tool output

MSH|^~&|BAR|2|HCI||20070321||ADT^A31|60709_296_PV||2.3||||||ASCII|

EVN|A31|200703201722|||LL2001*EPMS|

PID|1||XXXXXXXXX||TEST^AARON^^^^||19770104|M|||23026 NE 280TH CT^^MAPLE VALLEY^WA^98038-8142^^^^001||(206)621-1234|(206)431-7040|ITALIAN||||||||||||||||

PD1||||999999^ALLEN MD^VICTORIA^E^^^|

ORC|1|||64766^ALLEN MD^VICTORIA^E^^^|

OBX|1||ST|01234567||kim SMITH^AARON^^^^||19770104|M|||23026 SE 280TH CT^^MAPLE VALLEY^WA^98038-8142^^^^001||(206)621-1234|(206)431-7040|ITALIAN||||||||||||||||

OBX|2||ST||64766^ALLEN MD^VICTORIA^E^^^|

OBX|3||ST|01256951||COOK SMITH^AARON^^^^||19770104|M|||23026 SE 280TH CT^^MAPLE VALLEY^WA^98038-8142^^^^001||(206)621-4044|(206)431-7040|ITALIAN||||||||||||||||

OBX|4||ST||

Tread output

MSH|^~&|ADV|LAB|IDX|OCM|201102272108||ORU^R01|38713395|P|2.2

ORC

OBR

OBX||ST

MSH|^~&|ADV|LAB|IDX|OCM|201102272206||ORU^R01|38713396|P|2.2

ORC

OBR

OBX||ST

MSH|^~&|ADV|LAB|IDX|OCM|201102280210||ORU^R01|38713406|P|2.2

ORC

OBR

OBX||ST

Thanks

Hyo-Chan Lee

Topic

[Jerry Tilsley]

Try changing:

Code:

           append newmsg $seg $segsep
   }
   #
   # – 6.) Setting the newemsg as the messageID.
   #
 msgset $mh $newmsg

to this:

Code:

                 append newmsg $seg
         }
         #
     # – 6.) Setting the newemsg as the messageID.
  #
         msgset $mh [join $newmsg $segsep]

[Author]

Replies