replaceHL7Field tcl proc

[Jonathan Presnell]

Can someone provide me a copy of the replaceHL7Field tcl script?

Thanks.

Topic

[Rick Martin]

Hi Johnathan,

Here’s what I have for that script:

Code:

######################################################################
# replaceHL7Field – generic routine to replace the data in an HL7 field
# Args: msg       the entire HL7 message
#       segmentID the name of the segment containing the field to replace
#       fieldID   the index of the field to replace
#       data      the data that will replace the current contents of the field
#
# Returns: the an entire HL7 message
#
proc replaceHL7Field {msg segmentID fieldID data {fieldSeparator “|”} } {

   set segmentList [split $msg r]
   set newSegmentList “”
   foreach segment $segmentList {
       if {[crange $segment 0 2] == $segmentID} {
           set fieldList [split $segment $fieldSeparator]
           set fieldList [lreplace $fieldList $fieldID $fieldID $data]
           set segment [join $fieldList $fieldSeparator]
       }
       set newSegmentList [lappend newSegmentList $segment]
   }
   return [join $newSegmentList r]
}

[Jonathan Presnell]

Thank you Rick!

[Author]

Replies