36 lines
926 B
Plaintext
36 lines
926 B
Plaintext
|
MONO
|
||
|
|
|
||
|
|
ASPYEAR =(4,R,Z,F).
|
||
|
|
ASPMONT =(3,R,Z,F).
|
||
|
|
ASPDAY =(2,R,Z,F).
|
||
|
|
ASPHOUR =(2,R,Z,F).
|
||
|
|
ASPMIN =(2,R,Z,F).
|
||
|
|
SEQNUM =(4,R,Z,F).
|
||
|
|
DEF0 SEQNUM =(6,R,Z,F).
|
||
|
|
CTLNUM =(2,R,Z,F).
|
||
|
|
IDEE =(8,L,S,F).
|
||
|
|
RESULT =(6,R,S,F).
|
||
|
|
RESFLAG =(1,R,S,F).
|
||
|
|
SPEC2 =(1,R,S,F).
|
||
|
|
SKIP =(6,R,S,F).
|
||
|
|
TUBTYPE =(1,R,Z,F).
|
||
|
|
DEF1 SKIP =(4,R,S,F).
|
||
|
|
CHEMNUM =(4,R,S,F).
|
||
|
|
|
||
|
|
S9 ="Sample_or_Control_Result_Message?".
|
||
|
|
MESSAGE_R =STX,SP,20,[T,51=S0,ELSE=S1].
|
||
|
|
|
||
|
|
S9 ="Control_Result_Message".
|
||
|
|
S0 =STX,SP,32,{ASPYEAR},"/",{ASPMONT},
|
||
|
|
"/",{ASPDAY},SP,1,{ASPHOUR},":",{ASPMIN},
|
||
|
|
,SP,1,{CTLNUM},SP,1,{SEQNUM},SP,1,{SKIP},SP,12,
|
||
|
|
STX,6!({CHEMNUM},SP,2,{SPEC2},{RESULT},{RESULT},SP,6),SP,1,
|
||
|
|
STX,6!({CHEMNUM},SP,2,{SPEC2},{RESULT},{RESULT},SP,6),SP,1,
|
||
|
|
STX,1!({CHEMNUM},SP,2,{SPEC2},{RESULT},{RESULT},SP,6).
|
||
|
|
|
||
|
|
S9 ="Patient_Result_Message".
|
||
|
|
S1 =STX,{TUBTYPE},{ASPMONT},"/",{ASPDAY},"/",{ASPYEAR},SP,2,
|
||
|
|
{ASPHOUR},":",{ASPMIN},SP,2,{IDEE},",",SP,11,CRLF,
|
||
|
|
12!({CHEMNUM},SP,1,{RESULT},SP,15,CRLF).
|
||
|
|
|