Trying to use the testing tool to do some testing on a new tps script. But I am not getting the expected output.
Here is the output I am getting:
Please Wait ……
Command Issued: hcitpstest -r run -a -x ASCII -f len10 -c sms_ib_data -e “hciroutetestshowbydest ” /HIC/qdx/cis5.8/integrator/emr2_support/mt_lab_burrows “tps_gl_payroll_mt_xlate”
Command output:
Here is the basic code I am using trying to troubleshoot the testing tool issue:
######################################################################
# Name: tps_gl_payroll_mt_xlate
# Programmer: Jerry M. Tilsley
# Date: January 3, 2011
# Purpose: To convert the payroll GL flat file from API for
# Meditech.
#
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
# MODE run mode (”start”, “run” or “time”)
# MSGID message handle
# ARGS user-supplied arguments:
#
#
# Returns: tps disposition list:
#
#
proc tps_gl_payroll_mt_xlate { args } {
keylget args MODE mode ;# Fetch mode
set dispList {} ;# Nothing to return
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
#echo [exec date] tps_payroll_xlate
echo “TEST”
keylget args MSGID mh
lappend dispList “CONTINUE $mh”
}
time {
# Timer-based processing
# N.B.: there may or may not be a MSGID key in args
}
shutdown {
# Doing some clean-up work
}
}
return $dispList
}
Any help would be greatly appreciated!