I have an IB pre-TPS that gives me an error saying “message0” is destroy locked while executing “msgdestroy $mh”
Any help is very much appreciated!!
Sam 8)
proc tpsFilterHL7BhsBts { args } {
keylget args MODE mode ;# What mode are we in
set msgList {} ;# The return list containing multiply msgs
switch -exact — $mode {
start {
return “” ;# Perform special init functions
}
run {
keylget args MSGID mh
set oriMsgs [msgget $mh]
msgdestroy $mh
………….[code]proc tpsFilterHL7BhsBts { args } {
keylget args MODE mode ;# What mode are we in
set msgList {} ;# The return list containing multiply msgs
switch -exact — $mode {
start {
return “” ;# Perform special init functions
}
run {
keylget args MSGID mh
set oriMsgs [msgget $mh]
msgdestroy $mh
………….