tclproc to kill messages

[Kevin Crist]

i am trying to figure out how to write a tclproc to kill some messages. here is what i am trying to do:

i have an application that wants all hematology lab results and chem results that have the bilirubin test in it.

I am having trouble figuring this out with tcl (still learning)

IF OBR18 != HEMA KILL THE MESSAGE AND

I ALSO WANT TO KILL MESSAGES THAT IF OBR18 !=CHEM AND SOMEWHERE IN TEST IS BILIRUBIN.

THANKS FOR YOUR IDEAS AND HELP.

Topic

[Tom Rioux]

One way to do it is to use a switch statement instead of an IF statement.  This could provide you with some flexibility in case the application wants to start recieiving other types of messages or tests.

Thanks…Tom

switch -exact — $OBX18 {

   HEMA { lappend $dispList “CONTINUE $mh” }

   CHEM {

             if { [lcontain $test “BILIRUBIN”] } {

                lappend $dispList “CONTINUE $mh”

             } else {

                 lappend $dispList “KILL $mh”

             }

    }

    default { lappend $dispList “KILL $mh”}

}

return $dispList

[Author]

Replies