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).