killmsg issue

  • Creator
    Topic
  • #51033
    Rhonda Smith
    Participant

    I have a killmsg tclproc which checks the OBR:16:0 field to see if equal to physician #’s to pass the transaction.  It is raw data, hl7 and what is happening is the 3 digit #’s work great but if a 4 digit number is sent…forget it.  I have a 3 digit number of 203 which is allowed to be sent but if a number 2203 comes through (not part of the list) it sends it anyway.  I can tell it is looking at the right 3 digits but I’m not sure what to do about it.  Thanks!

Viewing 5 reply threads
  • Author
    Replies
    • #68510
      Ron Archambault
      Participant

      Might need to see your logic. Can you post your proc?

    • #68511
      Nate Kruse
      Participant

      Just guessing based on your sample…

      Are you doing a regexp or string equal or cequal?

    • #68512
      Tom Rioux
      Participant

      Without knowing what your proc looks like, I’ll give you another thing to look for.   You mentioned the word “list”, so if you are using a “switch” statement to pass all the correct physician #’s, make sure you have a defualt that will kill the incorrect physician’s.

      Tom Rioux

    • #68513
      Rhonda Smith
      Participant

      Nate Kruse wrote:

      Just guessing based on your sample…

      Are you doing a regexp or string equal or cequal?

    • #68514
      Nate Kruse
      Participant

      I wish I could help with that logic.  I’ve never used that type of statement before.  I searched this website and found some examples from a guy named Alan, but it wasn’t much help.

      I can offer this though…

      When we kill messages, we do something like this:

      #Default to kill every message

      set KillFlag YES

      if {[string equal $PASSCOND 223]} {

       #if PASSCOND is set to 223, let the message pass.

       set KillFlag NO

      }

      if {[cequal $KillFlag YES]} {

       lappend dispList “KILL $msgId”

      } else {

       lappend dispList “CONTINUE $msgId”

      }

      Maybe someone else can chime in as well.

      Nate.

    • #68515
      Sam Craig
      Participant

      Here is how we KILL messages for certain doctor numbers in the OBR-16.0 field……

                if [regexp {^(1123|197|1645|454|1528|600)$} $obr_16_1] {

                    lappend dispList “CONTINUE $mh”

                 return $dispList

                 } else {

                     lappend dispList “KILL $mh”

                     return $dispList

                 }        

      Hope this helps……

Viewing 5 reply threads
  • The forum ‘Cloverleaf’ is closed to new topics and replies.

Forum Statistics

Registered Users
5,117
Forums
28
Topics
9,292
Replies
34,435
Topic Tags
286
Empty Topic Tags
10