Adding the Batch Seg to a VXU msg

[Don Anderson]

I keep erroring on the “set newSegmentList [lreplace $newSegment1 $segmentList $newSegment2]”

Does anyone see something obvious?

set msg [msgget $mh]

               set segmentList [split $msg r]

echo segmentList $segmentList

               set newSegment1 [lindex BHS|^~&|]

               set newSegment2 [lindex BTS|1|]          

               

echo seg1 $newSegment1

echo seg2 $newSegment2          

               set newSegmentList [lreplace $newSegment1 $segmentList $newSegment2]    ;# replace with the updated segments  This is where it FAILS

echo newList $newSegmentList

               set newMsg [join $newSegmentList r]                                 ;# Put msg back together with cr

               msgset $mh $newMsg                                                                                  ;# set mh

Topic

[Brandon Grudt]

There are quite a few issues with that.  What exactly are you trying to do?

[Brandon Grudt]

I guess I can help by defining the things that I see which are immediately wrong.

When you set those two variables, the lindex format is way off.

[Don Anderson]

Basically the VXU (immunizations) message type for Boston HIE requires that it be inclosed with the Batch Segments even though no batches are sent and they don’t use it. But the State requires it. Its not a HL7 standard so I just need to add the BHS and BTS segments to the msg

Does that help

[Brandon Grudt]

So you want to insert a generic batch header and trailer, but you’re going to be sending these messages individually?

[Don Anderson]

Yes

[Don Anderson]

I had done already done what you sugested and got

m^PWIM^^^Left Arm^M^MBTS|1| ( Double c/r between the last seg and the BTS Seg

[Levy Lazarre]

Don,

I believe that an easier way to accomplish this is by simple string concatenation – no need for list commands:

Code:

set header “BHS|^~&|r”
set trailer “BTS|1|r”

set newMsg $header${msg}$trailer

Give this a try and see what happens.

Of course, this assumes that msg ends with a carriage return as it should. If not, you can always prepend it to the trailer:

set trailer “rBTS|1|r”

[Don Anderson]

That didn’t work so good, it just wrote a r in the msg instead of the ^M

[Levy Lazarre]

This shouldn’t happen. I am not sure what editor you are using. Replace the “r” in the string by whatever technique is necessary to insert a carriage return in the text. In vi for example, it would be Ctrl-V followed by Ctrl-M

Have you tried the Cloverleaf editor?

[Don Anderson]

Thats what Im using, Let me try again. Thanks

[Don Anderson]

I tried again and got the same results

BHS|^~&|^MMSH|^~&||12

msg segments

Left Arm^M^MBTS|1|vxu_bos{FILESET {{OBFILE v

Double c/r and no c/r after BTS Seg

When I run it throu the testing tool it looks good except the msg segments are all between { }

[Robert Milfajt]

This should work.

Code:

set header “BHS|^~&|”
set trailer “BTS|1|”
set newMsg [join [list $header ${msg} $trailer] r]

Hope this helps,

Robert Milfajt
Northwestern Medicine
Chicago, IL

[Don Anderson]

Ok , I’ll try it and let you know

[Author]

Replies