I added three echo statements to the tcl so now it looks like:
echo $xlateInVals
echo [lindex $xlateInVals 1]
set xlateOutVals
]]
echo $xlateOutVals
and modified it for each test to get the appropriate list value.
Here is the output from the Testing Tool:
With dummy value in SOURCE:
ANYTHING 3
3
0003
MESSAGE 1
0(0).MSH(0) : >|^~&|MCKESSON|AGH|HNAM|050|20050314150856||ADT^A08|07378|P|2.3|||AL|NE<
0(0).EVN(0) : >|A08|20050314150837<
…blah…blah…blah…
0(0).DG1(1) : >|0003|||THIS IS JUST A TEST – ADMITTING DIAGNOSIS TEXT – IT IS THIS LONG >>>>>>>>>||AD<
Without dummy value in SOURCE:
3
3
0003
MESSAGE 1
0(0).MSH(0) : >|^~&|MCKESSON|AGH|HNAM|050|20050314150856||ADT^A08|07378|P|2.3|||AL|NE<
0(0).EVN(0) : >|A08|20050314150837<
…blah…blah…blah…
0(0).DG1(1) : >|3|||THIS IS JUST A TEST – ADMITTING DIAGNOSIS TEXT – IT IS THIS LONG >>>>>>>>>||AD<
I beginning to think this is a testing tool issue. I’m going to run this through the engine with noise turned up and see what I get.
More to come…
Thanks