killmsg issue

Clovertech Forums Read Only Archives Cloverleaf Cloverleaf 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.