- This topic has 1 reply, 1 voice, and was last updated 10 years, 5 months ago by
.
-
Topic
-
Good Morning, We have ORM messages that will sometimes have multiple OBR segments in the messages. Overall, we have a single inbound thread and two outboud threads. We want certain messages going to each.
The script I have will kill an ORC, and OBR segment if it matches up with the data we do not want to cross to one of the threads. The problem I’m having is how would I also kill the OBX segment that corresponds with the ORC/OBR that’s being killed. There really isn’t any information in the OBX segment that I can filter on. The only thing I’ve been able to do so far is either add all of the OBX’s or remove them.
Any suggestions?
Here’s the code I have:
proc tps_hcentral_killorm_based_on_SIM { args } {
keylget args MODE mode ;# Fetch mode
set dispList {} ;# Nothing to return
switch -exact — $mode {
start {
# Perform special init functions
# N.B.: there may or may not be a MSGID key in args
}
run {
# ‘run’ mode always has a MSGID ;# fetch and process it
keylget args MSGID mh
# Retrieve the Message Type from the message
set msg [msgget $mh]
set field_sep [csubstr $msg 3 1] ;# HL7 field separator
set sub_sep [csubstr $msg 4 1] ;# HL7 subfield separator
set sssub_sep [csubstr $msg 7 1] ;# HL7 SUB-subfield separator
set fieldList [split $msg $field_sep] ;# Split the message into fields
set msg_type [lindex $fieldList 8] ;# HL7 Message Type
set subfieldList [split $msg_type $sub_sep] ;# Split the field into subflds
set msg_type_1 [lindex $subfieldList 0] ;# HL7 Message Type part 1
set msg_type_2 [lindex $subfieldList 1] ;# HL7 Message Type part 2
set outbuf “” ;# Holds outbound message
set pass “false”
set orc_seg “”
set obr_seg “”
set obr2_0 “”
set orc2_0 “”
set obx_seg “”
set simdept “”
set simcode “”
set segments [split $msg r] ;# Get segments
if {[cequal $msg_type_1 “ORM”]} {
#
foreach seg $segments {
set segtype [csubstr $seg 0 3] ;# segment type
#####
if [cequal $segtype MSH] {
append outbuf ${seg}r
#msgset $mh $outbuf
}
if [cequal $segtype PID] {
append outbuf ${seg}r
#msgset $mh $outbuf
}
if [cequal $segtype PV1] {
append outbuf ${seg}r
#msgset $mh $outbuf
}
if [cequal $segtype ORC] {
#blank out orc_seg from last pass through. YOu may not need this code.
set orc_seg “”
set fieldList [split $seg $field_sep]
set orc2 [lindex $fieldList 2]
set orc2_0 [split $orc2 $sub_sep]
##########
# do whatevever you xlate you need here.
##########
set seg [join $fieldList $field_sep]
#create your variable orc_seg and make it the ORC segment.
set orc_seg $seg
}
if [cequal $segtype OBR] {
set obr_seg “”
set fieldList [split $seg $field_sep]
set obr2 [lindex $fieldList 2]
set obr2_0 [split $obr2 $sub_sep]
set obr4 [lindex $fieldList 4]
set obr4_0 [split $obr4 $sub_sep]
set obr4_0_1 [lindex $obr4_0 0]
set obr4_0_items [split $obr4 $sssub_sep]
set simdept [lindex $obr4_0_items 1]
set simcode [lindex $obr4_0_items 0]
set seg [join $fieldList $field_sep]
set obr_seg $seg
if {$orc2_0 == $obr2_0} {
set dept_check [regexp {CAR} $simdept]
set simcode_check [regexp {5306|5009|5111|5008|5304} $simcode]
#echo “dept_check is: $dept_check”
#echo “simcode_check is: $simcode_check”
if {(($dept_check == 1))&&(($simcode_check == 1))} {
#do nothing
} else {
# here is where you add the segments to the outbuf if they meet the criteria
if {![cequal $orc_seg “”]} {
#echo “ORC_SEG is: $orc_seg”
#checking to make sure that orc_seg is not empty.
append outbuf ${orc_seg}r
}
#append OBR segment to outbuf
append outbuf ${obr_seg}r
#set variable pass to true.
set pass “true”
}
}
}
#THE FOLLOWING CODE KILLS THE OBX SEGMENT BECAUSE PASS THE DEPT_CHECK AND SIMCODE_CHECK ARE TRUE.
if [cequal $segtype OBX] {
if {(($dept_check == 1))&&(($simcode_check == 1))} {
#do nothing
} else {
append outbuf ${seg}r
}
}
}
}
set outbuf [string trimright $outbuf “r”]
set outbuf “$outbufr”
msgset $mh $outbuf
#check to see if the message should pass or not. If pass is true then send it on.
if {[cequal $pass true]} {
lappend dispList “CONTINUE $mh”
} else {
lappend dispList “KILL $mh”
}
return $dispList
}
shutdown {
echo “tps_hcentral_killorm_based_on_SIM is shutting down”
}
time {
# Timer-based processing
# N.B.: there may or may not be a MSGID key in args
}
default {
error “Unknown mode ‘$mode’ in tps_hcentral_killorm_based_on_SIM”
}
}
}
-
Replies
-
-
- The forum ‘Tcl Library’ is closed to new topics and replies.
