Scott, can I make two suggestions?
1) Forget about using dispList
2) As you step thru the proc and you know you want to kill the message, return a kill there, otherwise let the message fall thru the rest of the logic and end with a continue.
proc tpsfilterdoccw_tbl { args } {
keylget args MODE mode ;# What mode are we in
switch -exact — $mode {
start {
return “” ;# Perform special init functions
}
run {
keylget args MSGID mh
set msg [msgget $mh]
set fieldSeparator [crange $msg 3 3]
set OBRsegment [getHL7Segment $msg OBR]
set drNumber [lindex [split [getHL7Field $OBRsegment 16 $fieldSeparator] ^] 0]
set drNumber [crange $drNumber 0 3]
if {[cequal [tbllookup tblphysicians_cw $drNumber] KILL]} {
return “{KILL $mh}”
}
shutdown {
# Doing some clean-up work
}
default {
error “Unknown mode ‘$mode’ in tpsfilterdoccw_tbl”
return “” ;# Dont know what to do
}
}
return “{CONTINUE $mh}”
}
.
