Need to add URL to end of result

set v1 “\”

           set path1 “thpftransagt1”

           set path2 “bdi_epiphany”

           set path3 “filedrop”

           #Get fields for amending or validation

           #This will replace a field in one segment of several OBX segments if

           #the proper context is found

            foreach obx [ lsearch -all -regexp $segmentList {^OBX} ] {

                 set obxFlds [split [lindex $segmentList $obx] $fs]

                 set obx2 [lindex $obxFlds 2]

                 set obx5 [lindex $obxFlds 5]

                 if {[string eq $obx2 “TX”]} {

                      append v1 $v1 $path1 $v1 $path2 $v1 $path3 $v1 $obx5      

            ;#This allows you to build a relative path to a file and insert it into the HL7                                                            

            ;#message. ie \thpftransagt1bdi_epiphanyfiledrop$obx5

                      lset obxFlds 5 $v1                                    

            ;#Replace the existing OBX field 5 with the new value.

                      lset segmentList $obx [join $obxFlds $fs]                                            

            ;#Replace the existing OBX segment with the amended OBX segment.

                     }          

             }

We are having to do the same for a couple of our sites that need image URL’s sent to them.  I had the same problem so I found the repeating portion of the OBX segment.

0(0).OBX(i).#2(0).[0] for example

The “i” being the portion that counts up as it repeats.  To keep from having to loop through every OBX segment and find that number then add one to the last I just did this

0(0).OBX(9999).#2(0).[0] for example

Cloverleaf then just adds my new OBX segment 9999 at the end of the message but it numbers it to the next OBX segment for you.  Not sure if it’s the “proper” way but it hasn’t failed yet.

This is on CL 5.7

Diana,

I wonder why the first two T in the URL are turned into \T\, while the third T before the accession number remains a T.

And you use

which turns output into a list. Why not do

to make it a string? Not sure if this would explain your problem, but just an observation.

Can you show us the complete tcl code you are using?

You could do a string map command to change every instance of \T\ to T.  That will leave the valid ones alone, and only swap the incorrect ones.  Not sure how that shakes out with it being an escape character, but using {} or simply more characters should in some way give you a valid output.