CSC Filtering Beyond TRXID

proc tps_filter_examDate { args } {

   package require extexpfilter
   keylget args MODE mode

   switch -exact — $mode {
       start {
           # Do nothing.
       }

       run {
           set debug 0
           keylget args MSGID mh
           set msg [msgget $mh]
           set dispList “{CONTINUE $mh}”
           set sch_11 “”
           set examDate “”
           set msh_10 [hl7get $msg MSH 9]
           set sch_11_04 [hl7get $msg SCH 11 3]
           regexp {(d{8})d{4}} $sch_11_04 match examDate
           set now [clock scan now]
set now “1240894800”    ;# “1240894800” is the result of [clock scan 20090428]. Remove this line at go-live.
           set examDate [clock scan $examDate]

           if {[expr $examDate < $now]} {
               set dispList "{KILL $mh}"
               if {$debug} {puts "Message $msh_10 KILLED. Exam Date [clock format $examDate -format %Y%m%d] is < now [clock format $now -format %Y
           }

           return $dispList
       }

       shutdown {
           # Do nothing.
       }

       default {
           # Do nothing.
       }
   }
}

proc hl7get {args} {

  set MyMsg [lindex $args 0]                                         ;# 1st argument is the message
  set MySeg [lindex $args 1]                                         ;# 2nd argument is the segment
  set MyFld [lindex $args 2]                                         ;# 3rd argument is the field
  set MySubFld [lindex $args 3]                                      ;# 4th argument is the sub-field

  set FldSep [string index $MyMsg 3]                                 ;# get the field seperator
  set SubSep [string index $MyMsg 4]                                 ;# get the sub-field seperator

  set RetVal “”                                                      ;# Initialize the return value to NULL
  set LenSubFld [string length $MySubFld]                            ;# See if the user spcified a sub-field

  set SplitMsg [split $MyMsg r]                                     ;# Split the message into a list of segments
  set TheSegment [lindex $SplitMsg [lsearch $SplitMsg $MySeg*] ]     ;# Extract the segment we want
  set SplitSegment [split $TheSegment $FldSep]                       ;# Split the segment into a list of fields
  set TheField [lindex $SplitSegment $MyFld]                         ;# Get the field number we’re looking for

  if { $LenSubFld > 0 } {                                            ;# If the user specified a sub-field
     set SplitField [split $TheField $SubSep]                        ;# split the field and return the sub-field
     set RetVal [lindex $SplitField $MySubFld]                       ;# otherwise return the whole field
  } else {
     set RetVal $TheField
  }

  return $RetVal                                                     ;# Return the value of the field

}