Prestige24i

IDEE =(14,R,Z,|).
DEF1 IDEE =(14,R,Z,F).
PATNUM =(14,R,Z,|).
PATID =(14,R,Z,|).
SKIP =(250,R,Z,|).
DEF0 SKIP =(50,R,Z,^).
LSTNAME =(20,R,S,|).
FSTNAME =(20,R,S,|).
RESULT =(10,R,Z,^).
RESFLAG =(3,R,S,|).
CHEMNUM =(20,R,S,^).
SEX =(1,R,Z,F).
BIRYEAR =(4,R,Z,F).
BIRMONT =(2,R,Z,F).
BIRDAY =(2,R,Z,F).
ASPYEAR =(4,R,Z,F).
ASPMONT =(2,R,Z,F).
ASPDAY =(2,R,Z,F).
ASPHOUR =(2,R,Z,F).
ASPMIN =(2,R,Z,F).
ASPSEC =(2,R,Z,F).
SPEC1 =(14,R,Z,|).
SPEC4 =(1,R,Z,|).
TUBTYPE =(10,R,Z,|).
SPEC7 =(14,R,S,|).
URGENT =(1,R,Z,F).
DOCTOR =(20,R,S,|).
SEQNUM =(6,R,S,|).
CTLNUM =(3,R,Z,|).

S9 ="Header_record_from_WST".
MESSAGE_I =STX,SP,1,"H|\^&|||WST^P1|||||Prestige24i^System1||P|1|",{SPEC7},CR,ETX,SP,2,CR,LF.

S9 ="Patient_record_from_WST".
MESSAGE_D =STX,SP,1,"P|",{SPEC1},"|",{PATNUM},"|||",
{LSTNAME},"^",{FSTNAME},"||",{BIRYEAR},{BIRMONT},{BIRDAY},"|",{SEX},"|||||",{DOCTOR},"|",CR,ETX,SP,2,CR,LF.

S9 ="Order_record_from_WST".
MESSAGE_Y =STX,SP,1,"O|1|",{IDEE},"||", 30("^^^",{CHEMNUM},"\"),{URGENT},
"||||||",{SPEC4},"||||",{TUBTYPE},"||||||||||O|",CR,ETX,SP,2,CR,LF.

S9 ="Terminator_record_from_WST".
MESSAGE_F =STX,SP,1,"L|1|N",CR,ETX,SP,2,CR,LF.


S9 ="Order_record_from_Instrument:QC_Or_Patient_Result".
S4 =[|Q|||,?=SA,ELSE=SB].

S9 ="QC_Order_record_from_Instrument".
SA =STX,SP,1,"O|",{SKIP},"|",{SKIP},"|^1^",{CTLNUM},"|".

S9 ="Patient_Order_record_from_Instrument".
SB =STX,SP,1,"O|",{SKIP},"|",{IDEE},"|",{DEF0},"^",{DEF0},"^",{SEQNUM}.

S9 ="Result_message_from_Instrument".
MESSAGE_R =STX,SP,1,"R|",{SKIP},"|^^^",{CHEMNUM},{SKIP},"|",
{RESULT},"|",{SKIP},"|",{SKIP},"|",{SKIP},"|",
,{SKIP},"|",{SKIP},"|",{SKIP},"|",{SKIP},"|",{SKIP},"|",
{ASPYEAR},{ASPMONT},{ASPDAY},{ASPHOUR},{ASPMIN},{ASPSEC}.

S9 ="Query_record_from_Instrument".
MESSAGE_Q =STX,SP,1,"Q|",{DEF0},"|^",{SPEC1}.

S9 ="Patient_message_from_Instrument".
S2 =STX,:,ETX,SP,2,CR,LF.

S9 ="Manufacturers_record_from_Instrument".
S7 =STX,:,ETX,SP,2,CR,LF.

S9 ="Scientific_record_from_Instrument".
MESSAGE_S =STX,:,ETX,SP,2,CR,LF.

S9 ="Comment_record_from_Instrument".
MESSAGE_C =STX,SP,1,"C|",{SKIP},"|",{SKIP},"|",{RESFLAG},"|".