Ì 2
mis.mri.prov.susp.main (main)
[facility,doctor]
\GGPS[gqb,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
facility 10 FREE L MIS.FACILITY gqb
doctor 10 FREE L MIS.DOC.DICT ggg
date.suspended 8 DATE L \GGPS[gqb,ggg]|2
days.in.current.status 4 PINT R VAL=%Z.date.sub(@.today,@MIS.PROV.SUSP.status.date)
exact.match 1 YN L \GGPS[gqb,ggg]|3
status.date 8 DATE L VAL=%Z.date.in.magic(@Last(@MIS.PROV.SUSP.aud.s0))
suspended 1 YN L \GGPS[gqb,ggg]|0
total.records 6 FREE L \GGPS[gqb,ggg]|1
Ì € 2
mis.mri.prov.susp.audit (audit)
[facility,doctor, aud.s0]
\GGPS[gqb,ggg]A[gsusa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
aud.s0 9 FREE L gsusa
aud.comment 92 FREE L \GGPS[gqb,ggg]A[gsusa]|2
aud.deleted 10 CHOICE L VAL="DELETED"
aud.deleted.user 10 FREE L MIS.USER \GGPS[gqb,ggg]A[gsusa]|3
aud.reinstated 10 CHOICE L VAL="REINSTATED"
aud.status 10 CHOICE L \GGPS[gqb,ggg]A[gsusa]|0
aud.suspended 10 CHOICE L VAL="SUSPENDED"
aud.total.records 6 FREE L \GGPS[gqb,ggg]A[gsusa]|1
Ì 2
mis.mri.prov.susp.overrides (sus.overrides)
[override.facility,override.s0,override.dr]
\GGPSOVR[gqb,gsuso,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
override.facility 10 FREE L MIS.FACILITY gqb
override.s0 9 FREE L gsuso
override.dr 10 FREE L MIS.DOC.DICT ggg
override.acct.number 12 FREE L \GGPSOVR[gqb,gsuso,ggg]|3
override.date 8 DATE L VAL=%Z.date.in.magic(MIS.PROV.SUSP.override.s0)
override.mri.urn 25 URN L MRI.PAT \GGPSOVR[gqb,gsuso,ggg]|1
override.pt.type 3 CHOICE L \GGPSOVR[gqb,gsuso,ggg]|0
override.time 4 HHMM L VAL=%Z.time.out(MIS.PROV.SUSP.override.s0)
override.unit.number 10 FREE L \GGPSOVR[gqb,gsuso,ggg]|2
override.user 10 FREE L MIS.USER \GGPSOVR[gqb,gsuso,ggg]|4
|
|
|