Clovertech

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

› Clovertech Forums › Read Only Archives › Cloverleaf › Cloverleaf › A simple TCL is working on the testing tool but not…

  • Creator
    Topic
  • June 29, 2011 at 7:28 pm #52562
    Hyo-Chan Lee
    Participant

      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

    • Creator
      Topic
    Viewing 0 reply threads
    • Author
      Replies
      • June 29, 2011 at 8:26 pm #74680
        Jerry Tilsley
        Participant

          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
      Viewing 0 reply threads
      • The forum ‘Cloverleaf’ is closed to new topics and replies.