Ì 2
audit.x
[audit.date,audit.time,audit.qnum]
*(S)SCJA[scjD,scjT,scjQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.date 8 DATE L scjD
audit.time 4 HHMM L scjT
audit.qnum 2 PINT R scjQ
audit.account.number 12 FREE L VAL=%LAB.C.SPEC.fld("PA",IF{@LAB.C.SB.audit.module'="N
VAL=";"B"},@LAB.C.SB.audit.specimen.urn)
audit.cancel 1 YN L *(S)SCJA[scjD,scjT,scjQ]|5
audit.date.time.ok 1 YN L VAL=IF{IF{audit.date=b.audit.date audit.time<b.audi
VAL=t.time;audit.date=e.audit.date&(audit.time>e.au
VAL=dit.time)} "N";"Y"}
audit.device 25 FREE L *(S)SCJA[scjD,scjT,scjQ]|2
audit.location 10 FREE L MIS.LOCN *(S)SCJA[scjD,scjT,scjQ]|3
audit.module 1 CHOICE L *(S)SCJA[scjD,scjT,scjQ]|0
audit.patient.name 30 FREE L VAL=%LAB.C.SPEC.fld("PN",IF{@LAB.C.SB.audit.module'="N
VAL=";"B"},@LAB.C.SB.audit.specimen.urn)
audit.req.number 8 FREE L VAL=IF{@LAB.C.SB.audit.req.urn @LAB.C.REQ.number[@LAB.
VAL=C.SB.audit.req.urn];%LAB.C.SPEC.fld("RN",IF{@LAB.C
VAL=.SB.audit.module'="N";"B"},@LAB.C.SB.audit.specime
VAL=n.urn)}
audit.req.urn 10 URN L LAB.C.REQ *(S)SCJA[scjD,scjT,scjQ]|4
audit.specimen.number 15 FREE L VAL=%LAB.C.SPEC.fld("SN",IF{@LAB.C.SB.audit.module'="N
VAL=";"B"},@LAB.C.SB.audit.specimen.urn)
audit.specimen.urn 10 PINT R *(S)SCJA[scjD,scjT,scjQ]|1
audit.type.ck 1 YN L VAL=IF{c.sb.incl="CANCEL"&("Y"'=@audit.cancel) "N";c.s
VAL=b.incl="RESULT"&("Y"=@audit.cancel) "N";"Y"}
Ì € 2
main
[qnum]
*(S)SCJ[scj]
Field Name Len Dat Typ J DPM Offset/Local/VAL
qnum 10 PINT R scj
entry.time 9 PINT R *(S)SCJ[scj]|2
loc.dev.q 2 PINT R
location 10 FREE L MIS.LOCN
module 1 CHOICE L *(S)SCJ[scj]|0
report 10 FREE L LAB.C.RPT
site 10 FREE L LAB.C.SITE *(S)SCJ[scj]|3
specimen.urn 10 PINT R *(S)SCJ[scj]|1
|
|