[Kevin Crist]

in the past i have added the extra fields to the variants.

[Kevin Crist]

i am trying to send emails based on certain criteria using the package require mime. This works for all the emails we are sending to with the exception of one email (the main one we need to work). Is there any troubleshooting that you can point me to on the cloverleaf side, if you have seen this scenario before.

Thanks.

[Kevin Crist]

can i get a copy by chance? That looks interesting.

thanks.

[Kevin Crist]

Hi Andy,

Not sure of your level of tcl but here is one that you should just have to modify a little to hopefully meet your needs or get started at least.

Code:

######################################################################
# Name: tpsKillA31WithPV1Empty
#
# Purpose: Kills all A31’s going to CareManager that have no information
#           in the PV1 segment..
#
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
#       MODE    run mode (”start”, “run” or “time”)
#       MSGID   message handle
#
# Returns: tps disposition list:
#          
# KILL when ADT = A31 and patient has no PV1 information  
# CONTINUE all others
#

proc tpsKillA31WithPV1Empty { args } {
keylget args MODE mode               ;# Fetch mode
   
    global HciConnName
    set procName “tpsKillA31WithPV1Empty”
set dispList {} ;# Nothing to return
set foundA31 {}
set assignedPatientLocation {}

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

set msgtext  [msgget $mh]
set fieldsep [crange $msgtext 3 3]
set subfieldsep [crange $msgtext 4 4]
set segments [split $msgtext “r”]

foreach seg $segments {
             if {[cequal [crange $seg 0 2] “MSH”]} {
          # this segment (seg) is MSH
          # get the field data
             set data [split $seg $fieldsep]
             set field [lindex $data 8]
             set data [split $field $subfieldsep]
             set triggerType [lindex $data 0]
             set triggerEvent [lindex $data 1]

     # Check for an ADT and A31 trigger Event.
       if {[cequal $triggerType “ADT”] && [cequal $triggerEvent “A31″]} then {
       set foundA31 “YES”
#echo foundA31: $foundA31
       }
 
  } elseif {[cequal [crange $seg 0 2] “PID”]} {
          # this segment (seg) is PID
             set data [split $seg $fieldsep]
             set patientAccount [lindex $data 18]
             set patientName [lindex $data 5]
 
  } elseif {[cequal [crange $seg 0 2] “PV1″]} {
          # this segment (seg) is PV1
             set data [split $seg $fieldsep]
       #      set patientType [lindex $data 2]
             set assignedPatientLocation [lindex $data 2]

     # Check for a Assigned Patient Location.
       if {[cequal $assignedPatientLocation “”]} then {
       set assignedPatientLocation “NO”
     
                               }
                          }
      }

     #
     # If the ADT trigger event is an A31 and the assigned patient location is not loaded then
     # kill the message, otherwise continue it.  
     #

     if {[cequal $foundA31 “YES”] && [cequal $assignedPatientLocation “NO”]} {
#        puts $msgtext
                 puts “$HciConnName\$procName – KILLING A31 for patient: $patientName – $patientAccount”
                 echo
                         lappend dispList “KILL $mh”
#              } else {
#        puts $msgtext
#                  puts “$HciConnName\$procName – CONTINUING ADT for Patient: $patientName – $patientAccount”
#                  echo
                 lappend dispList “CONTINUE $mh”
         }
       return $dispList
}

time {
# Timer-based processing
# N.B.: there may or may not be a MSGID key in args
}

shutdown {
   # Doing some clean-up work
}

default {
error “Unknown mode ‘$mode’ in tpsKillA31WithPV1Empty”
}
}

return $dispList
}

[Kevin Crist]

i think i got that part fixed. I think since i had copied and pasted i got a bunch of spaces in front if that makes sense.  Had to go through all of the lines and fix. Never seen that before. Thanks for pointing that out. On to other issues with it now.

Thanks.

[Kevin Crist]

i don’t have it on the proc i posted but i had that on an earlier version trying to troubleshoot. Didn’t make any difference. I just tried it again with no luck. Not sure if this makes a difference but i am using CL 5.8

[Kevin Crist]

thanks for the idea Jim but i still get the same error.

[Kevin Crist]

I have seen a sending system send out multiple A08s on a change but the others would be different/old accounts. We had logic that if it had a discharge date and A08 then kill the message. Not sure if that is exactly your issue but just a thought.

[Kevin Crist]

we actually had it that way but it didn’t work. We were just grasping at straws by checking the Not part.

I will change one back.

[Kevin Crist]

Sorry to drudge up an old thread but i am also having issues with this. The below code shows us using the NOT part but this was changed. We did have it unchecked but that didn’t work either.

We only want these to fire 8 am to 7 pm Monday – Friday and they go off all throughout the nights and even on the weekends. Is there any glaring weakness in what we have below? I have used this elsewhere and it works fine.

Thanks.

Code:

{ALERT
   { NAME {lccc IB Last Message Received Email} }
   { VALUE lastr }
   { SOURCE lccc_ib_rfl1 }
   { WITH -1 }
   { COMP {>= 1800} }
   { FOR {nmin 1} }
   { REPEATING {
       { MAX 10 }
       { TIME {nmin 30} }
   } }
   { WINDOW_NOT 1-5/0:00-8:00,19:00-23:59/*/* }
   { ACTION {
       { email {
           { FROM cloverleaf@infor.com

[Kevin Crist]

Thanks Bill,

We do use the hcilmclear command to clear it.

[Kevin Crist]

i agree. This is going on a route to 7 different downstream systems that are raw at the moment.

Thanks.

[Kevin Crist]

Thanks Charlie. That works for most but apparently there are some that are formatted differently, that have something like below: where the NTEs currently in place have different values. When the proc goes to add the NTE after the OBR it is blank, is this because it is assuming the an OBX is following the OBR, which is what i was told.

OBR

NTE

NTE

NTE

NTE

NTE

NTE

OBX

NTE

NTE

NTE

NTE

OBX

NTE

NTE

NTE

NTE

[Kevin Crist]

Sorry, forgot about that. They wanted IF MSH.4 = to a table value then use that but they have since changed their mind. It is now if MSH.3 = MIC then we only use one certain performing site in all the NTEs.

i asked about the OBX.15 being empty and got crickets.

[Kevin Crist]

I am trying to piece together a proc so i think some of that may be my issue.

Here is before:

OBR

OBX

OBX

OBX

OBR

OBX

OBR

OBX

Here is after:

OBR

NTE

OBX

OBX

OBX

OBR

NTE

OBX

OBR

NTE

OBX

[Author]

Replies