OBX-5 set of characters replacement

[Ganesan Murali]

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.

Topic

[Max Drown (Infor)]

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

-- Max Drown (Infor)

[Ganesan Murali]

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

[Mark McDaid]

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