Ì 2
lab.c.emr.activity (activity.x)
[emr.act.q]
?SEMR.ACT[sermq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.act.q 9 PINT R sermq
emr.act.date 8 DATE L VAL=%Z.date.in.magic(@LAB.C.EMR.emr.act.seconds)
emr.act.message 60 FREE L ?SEMR.ACT[sermq]|2
emr.act.message.ck 1 YN L VAL=IF{'c.emr.act.message "Y";L(@emr.act.message~$L.TO
VAL=.U^XX,c.emr.act.message~$L.TO.U)<L(XX) "Y";"N"}
emr.act.record.ck 1 YN L VAL=IF{'c.emr.act.record.ext "Y";L(@emr.act.record.ext
VAL=~$L.TO.U^XX,c.emr.act.record.ext~$L.TO.U)<L(XX)
VAL= "Y";"N"}
emr.act.record.ext 40 FREE L ?SEMR.ACT[sermq]|1
emr.act.seconds 9 PINT R ?SEMR.ACT[sermq]|0
emr.act.time 4 HHMM L VAL=%Z.time.out(@LAB.C.EMR.emr.act.seconds)
|