Clovertech

OBX-5 set of characters replacement

› Clovertech Forums › Read Only Archives › Cloverleaf › Tcl Library › OBX-5 set of characters replacement

  • Creator
    Topic
  • August 11, 2010 at 12:10 pm #51925
    Ganesan Murali
    Participant

      In ORU we have single OBX segment.

      In OBX-5 we have some special RTF characters like .in+0 or .br or .in-0 should be replaced by “~” tilda character.

      .in+0  Should be replace as ~

      .br Should be replace as ~

      .in-0 Should be replace as ~

      Input:

      OBX|1|FT|Text||

      .in+0\.br1.Lung Fields are clear..br\.br2.Both Domes of Diaphragm appears normal..br\.br3.No fracture seen..br\.br4.The thoracic bony cage appears normal..br\.br5.The Visualized spines appears normal..br\.brImp: Normal Chest radiograph.br\.in-0 ||||||f|||||

      Output:

      OBX|1|FT|Text||

      ~~1.Lung Fields are clear.~~2.Both Domes of Diaphragm appears normal.~~3.No fracture seen.~~4.The thoracic bony cage appears normal.~~5.The Visualized spines appears normal.~~Imp: Normal Chest radiograph~~ ||||||f|||||

      Pls help how we can doit through tcl. ?

      Thanks in advance.

    • Creator
      Topic
    Viewing 2 reply threads
    • Author
      Replies
      • August 11, 2010 at 1:05 pm #72329
        Max Drown (Infor)
        Keymaster

          I think the tcl string map command would do the trick. There are some good posts on Clovertech discussing string map.

          -- Max Drown (Infor)

        • August 11, 2010 at 2:22 pm #72330
          Ganesan Murali
          Participant

            pls help me how use the string map command in xlt . Don’t know how to use. Thanks in advance.

          • August 11, 2010 at 3:56 pm #72331
            Mark McDaid
            Participant

              You could do this:

              Code:

              set segment [string map {”\.in+0\” “~”} $segment]
              set segment [string map {”\.br\” “~”} $segment]
              set segment [string map {”\.in-0\” “~”} $segment]

              Because the character signifies an escape sequence, you must escape it with an additional .

          • Author
            Replies
          Viewing 2 reply threads
          • The forum ‘Tcl Library’ is closed to new topics and replies.