Epic Empty Segments

#########################################################################################
#########################################################################################
#########################################################################################
# Name: tpsKILL_InstGT1.tcl
# Purpose: This tps tclproc will KILL out any ADT’s that has an I in the GT1_10 field
#      
#
#
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
#       MODE    run mode (”start”, “run” or “time”)
#       MSGID   message handle
#       ARGS    user-supplied arguments:
# 1) The user can specify if we are to echo to log
# The key is ECHOON
# ECHOON = YES -> put entry in engine log
# ECHOON = NO -> do not put entry in log (default value)
# ECHOON = anything else -> Default to NO
#
# Example arguments: {ECHOON YES}
#
#
# Returns: tps disposition list:
#          Continues the messages as is
# OR
# Errors the message
#
#
#
#
#########################################################################################
#########################################################################################
#########################################################################################

proc tpsKILL_InstGT1 { args } {

#########################################################################################
# Get the Connection/Proc Name for Error/Debug Messages (NOT USED)
#########################################################################################

# global HciConnName
# set myname “$HciConnName/[lindex [info level 1] 0]”
# set nowis [clock format [clock scan now] -format “%D – %T”]

#########################################################################################
# Initialize Variables Used
#########################################################################################

set dispList [list]   ;# Disposition List Returned to Engine

set fldSep “” ;# Field Seperator – get from MSH
set subSep “” ;# SubField Seperator – get from MSH
set repSep “” ;# Repeating Field Seperator – get from MSH

set GT1pos -1 ;# Position of GT1 Segment in msg
set GT1List [list] ;# GT1 Segment Fields in List Form

       
           
set GT1Type 10 ;# Guarantor Type is in field 10            
           

#########################################################################################
# Load in the arguments we need that were passed from the caller
#########################################################################################

keylget args MODE mode             ;# The mode the engine called from
set echoon “NO” ;# Set to default Value
keylget args ARGS.ECHOON echoon ;# The Engine Log output indicator
set echoon [string toupper $echoon] ;# Use upper case in procedure

#########################################################################################
# Switch based on what mode the engine was in when it called the procedure
#########################################################################################

 switch -exact — $mode {

  start { }

   run {
    set mh [keylget args MSGID] ;# Get message handle from args
     set dispList [list “CONTINUE $mh”] ;# Initialize to good message
     set msg [msgget $mh] ;# Get a copy of the message

     set fldSep [string index $msg 3] ;# Field Seperator
     set subSep [string index $msg 4] ;# Sub-Field Seperator
     set repSep [string index $msg 5] ;# Repeating Field Seperator

set segList [split $msg r] ;# Split message into segList

#########################################################################################
# Find Position of Segements –
#########################################################################################

set GT1pos [lsearch -regexp $segList {^GT1}]  

#########################################################################################
# Split up the Segments into Field Lists
#########################################################################################

 set GT1List [split [lindex $segList $GT1pos] $fldSep]  

#########################################################################################
#
#########################################################################################

set gtType [lindex $GT1List $GT1Type]

#########################################################################################
# If the GT1-10 = I then KILL the message
# else
# CONTIUNE the message
#########################################################################################

   if {[string equal $gtType I]} {

set dispList [list “KILL $mh”]
 
     
   }  
   
}

   time { }
   shutdown { }
} ;# End Switch

return $dispList

} ;# End Proc