regsub

Easy enough in Tcl, a bit harder in Xlate

assuming you have done the normal HL7 stuff

set map

foreach loc [lsearch -all -regexp $SEGMENTS {^OBX}] {

      set obx [string map $map [lindex $SEGMENTS $loc]]

      set SEGMENTS [lreplace $SEGMENTS $loc $loc $obx]

}

msgset $mh [join $SEGMENTS r]

return “{CONTINUE $mh}”