- This topic has 5 replies, 4 voices, and was last updated 11 years, 4 months ago by
.
-
Topic
-
###################################################################### # filterADT_3M
#
# Type: tps proc
#
# Args: tps keyedlist containing:
# MODE run mode (“start” or “run”)
# MSGID message handle
#
# Returns: Filter out ADT’s to 3M CDIS with location of SSCP and ARU
# and PRE IN and SCH. Also, filters out status of Observation.
#
# Notes: Filters out any ADT’s with the value in PV1.3.0 of SSCP, ARU
# and PRE IN and SCH.
# Filters out any ADT’s with the value in PV1.18.0 of INO.
#
#####################################################################
proc filterADT_3M { args } {
set mode [keylget args MODE]
switch -exact — $mode {
start {
return “” ;# Nothing specific
}
run {
set mh [keylget args MSGID] ;# Message header
set msg [msgget $mh] ;# The message
# Field and subfield separators
set fldSep [string range $msg 3 3]
set subSep [string range $msg 4 4]
# List of HL7 segments
set segments [split $msg r]
# Get PV1 fields. Value needed is in PV1.3.0
set PV1 [lindex [lregexp $segments {^PV1}] 0]
echo PV1: $PV1
set PV1_3flds [lindex [split $PV1 $fldSep] 3]
echo PV1_3flds: $PV1_3flds
set PV1_3 [lindex [split $PV1_3flds $subSep] 0]
echo PV1_3: $PV1_3
# Get PV1Ino fields. Value needed is in PV1.18.0
set PV1Ino [lindex [lregexp $segments {^PV1}] 0]
echo PV1Ino: $PV1Ino
set PV1_18flds [lindex [split $PV1Ino $fldSepIno] 3]
echo PV1_18flds: $PV1_18flds
set PV1_18 [lindex [split $PV1_18flds $subSepIno] 0]
echo PV1_18: $PV1_18
# IF PATIENT IS ACCOUNT TYPE IS “INO”
if {($PV1_18 == “INO”)} {
echo “Message killed!”
return “{KILL $mh}”
} else
{
#echo “Message sent!”
#return “{CONTINUE $mh}”
# IF PATIENT IS AT LOCATION “SSCP” OR “ARU”
if {($PV1_3 == “SSCP”)||($PV1_3 == “ARU”)||($PV1_41 == “SCH”)||($PV1_41 == “PRE”)} {
echo “Message killed!”
return “{KILL $mh}”
} else {
echo “Message sent!”
return “{CONTINUE $mh}”
}
}
}
}
-
Replies
-
-
-
This part looks wrong.
Code:# Get PV1Ino fields. Value needed is in PV1.18.0
set PV1Ino [lindex [lregexp $segments {^PV1}] 0]
echo PV1Ino: $PV1Ino
set PV1_18flds [lindex [split $PV1Ino $fldSepIno] 3]You don’t need to do an lregexp search to find PV1 again; it’s already in your PV1 variable. And your lindex should be getting field 18, not field 3 again.
It’s easier to look for problems with your code if you use proper indentation. Everything should stay at the same level of indentation until you get to the body of an if statement or a case in a switch statement, then you should indent a few extra spaces.
Also it’s better to use eq for string comparison.
Code:if {($PV1_18 == “INO”)} {
should be
Code:if { $PV1_18 eq “INO” } {
I think the main issue is you need to replace the “lindex … 3” with “lindex … 18”. The other issues are just cosmetic and optimization.
-
-
It would also be better to replace lregexp with lsearch since lsearch is core Tcl and does not always return a list as lregexp does
Also you can split at the same time
Assume fldsep is |
set PV1 [split [lsearch -inline -regexp $segments {^PV1}] $fldSep]
Now you acn get any field you want out of the list of PV1 fields above
When you use the -all option of lsearch it returns a list, else a string
-
-
- The forum ‘Tcl Library’ is closed to new topics and replies.
