Strip a segment from a message based on a value in segment

If you are using an Xlate,

You will need to maintain your own repetition variable (counter) for the OB OBX Group.

COPY =0 to $%g99 (this will set your counter %g99 to zero).

ITERATE (assume%g1 is the variable of the ITERATE) over the OBX Group, inside that ITERATE check the OBX-3 for the value you seek with an ELSE, If it is found, do nothing

ELSE

PATHCOPY (or use COPYs) the IB OBX using %g1 appropriately placed in the IB address path and %g99 in the OB Address Path.

MATH ADD =1 $%g99 –> $%g99 (this will increment your counter for the next repetition.

If you would like me to assist, email me.

Easy enough in Tcl

set msg [msgget $mh]

set fldSep [string index $msg 3]
set segList [split $msg \r]

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

set fld3 [lindex  [split [lindex $segList $loc] $fldSep] 3]
if {$flds3 eq “Text Report File Name”} {
set DELE $loc
break
}

}

if {$DELE| {lvarpop segList $DELE}

msgset $mh [join $segList \r]

return “{CONTINUE $mh}”

Assumes only one segment will have phrase.  If more let me know or simply modify Tcl

I did not test so maybe some fat fingering 🙂

Sure enough

set msg [msgget $mh]

set fldSep [string index $msg 3]
set segList [split $msg \r]

set DELE “”

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

set fld3 [lindex  [split [lindex $segList $loc] $fldSep] 3]
if {$flds3 eq “Text Report File Name”} {
lappend DELE $loc
}

}

# Executing list from bottom up so as not to skew location

foreach loc [lsort -integer -decreasing $DELE]  { lvarpop segList $loc}

msgset $mh [join $segList \r]

return “{CONTINUE $mh}”

Here is what I used to kill multiple OBX segments I do not want based on OBX3 value. I did not bother to correct the segment counts in OBX2:

run {
#Set typical variables
keylget args MSGID mh
set msg [msgget $mh]
set fieldSep [string index $msg 3]
set subFieldSep [string index $msg 4]
set segmentList [split $msg \r]
set msgTRIG [getField $msg MSH 8 1]

#Remove any OBX segment with a value of “Text Report File Name”
set segCnt [llength $segmentList]
for {set i 0} {$i<$segCnt} {incr i} {
set seg [lindex $segmentList $i]
set segFieldLst [split $seg $fieldSep]
set segType [lindex $segFieldLst 0]
set obxType [lindex $segFieldLst 2]
#Remove any OBX that is not a Numeric Value
if {[string equal $segType “OBX”] && [string equal $obxType “Text Report File Name”] } {
set segmentList [lreplace $segmentList $i $i]
set i [expr $i -1]
}

}
#Apply all of the changes to the MH.
set msg [join $segmentList \r]

msgset $mh $msg
lappend dispList “CONTINUE $mh”
}