Ì i 2
abs.od.main (main)
[urn]
:DO[dz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 44 FREE L ABS.PAT dz
abs.created.date 8 DATE L :DO[dz]|13
account.number 12 FREE L :DO[dz]|0
adm.cancelled.date 8 DATE L :DO[dz]|12
adm.database 12 FREE L MIS.APPL :DO[dz]|8
adm.reserv.date 8 DATE L :DO[dz]|6
adm.urn 30 URN L ADM.PAT :DO[dz]|3
age.adm.res 7 AGE L VAL=%Z.age(@p.ABS.OD.birthdate,IF{@p.ABS.OD.adm.reserv
VAL=.date;@.today})
birthdate 8 BDATE L :DO[dz]|9
facility 10 FREE L MIS.FACILITY :DO[dz]|7
first.name 30 FREE L VAL=(@ABS.OD.name#"1,")
id 44 FREE L ABS.PAT VAL=(@ABS.OD.account.number_" - "_@ABS.OD.name'=" - ")
last.name 30 FREE L VAL=(@ABS.OD.name#"0,")
mri.urn 25 URN L MRI.PAT :DO[dz]|2
name 30 FREE L :DO[dz]|1
name.18 18 FREE L VAL=(@ABS.PAT.name$18)
name.20 20 FREE L VAL=(@ABS.PAT.name$20)
pt.status 8 FREE L ABS.PT.STATUS :DO[dz]|5
sex 1 CHOICE L :DO[dz]|10
sort.name 30 FREE L :DO[dz]|11
unit.number 10 FREE L :DO[dz]|4
unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(@unit.number)
Ì € i 2
abs.od.forms.data (forms)
[urn, form]
:DO[dz]F[dji]
Field Name Len Dat Typ J DPM Offset/Local/VAL
form 10 FREE L ABS.FORM dji
at.purge.archive 1 YN L :DO[dz]F[dji]|6
form.archived 1 YN L :DO[dz]F[dji]|1
form.filed.es 1 YN L :DO[dz]F[dji]|2
form.last.es.status 10 CHOICE L :DO[dz]F[dji]|4
form.last.urn 4 PINT R :DO[dz]F[dji]|5
form.should.be.es 1 YN L :DO[dz]F[dji]|3
form.spooled 1 YN L :DO[dz]F[dji]|0
Ì € i 2
abs.od.forms.es (forms.es)
[urn,form, form.es]
:DO[dz]F[dji,doES]
Field Name Len Dat Typ J DPM Offset/Local/VAL
form.es 1 YN L doES
Ì € i 2
abs.od (form.urns)
[urn,form,form.es, form.urn]
:DO[dz]F[dji,doES,dzEFQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
form.urn 4 PINT R dzEFQ
all.reports.spooled 1 YN L :DO[dz]F[dji,doES,dzEFQ]|4
all.spools.on.od 1 YN L :DO[dz]F[dji,doES,dzEFQ]|5
es.status 10 CHOICE L :DO[dz]F[dji,doES,dzEFQ]|0
es.status.date 10 PINT R :DO[dz]F[dji,doES,dzEFQ]|1
form.indexed.date 8 DATE L :DO[dz]F[dji,doES,dzEFQ]|3
form.indexed.to.print 1 YN L :DO[dz]F[dji,doES,dzEFQ]|2
non.es.status 10 FREE L :DO[dz]F[dji,doES,dzEFQ]|7
spool.group 10 FREE L MIS.SPOOL.GROUP:DO[dz]F[dji,doES,dzEFQ]|6
Ì € i 2
abs.od.report.errors (report.errors)
[urn,form,form.es,form.urn,report.ctr, error.ctr]
:DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
error.ctr 3 PINT R doERC
error.archive.date 8 DATE L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|8
error.archive.num.pages 3 PINT R :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|10
error.archive.status 10 FREE L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|9
error.archive.urn 8 PINT R :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|7
error.date 8 DATE L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|0
error.description 40 FREE L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|2
error.spool.date 8 DATE L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|4
error.spool.num.pages 3 PINT R :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|6
error.spool.status 10 FREE L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|5
error.spool.urn 5 PINT R :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|3
error.time 4 HHMM L :DO[dz]F[dji,doES,dzEFQ]R["ER",doERC]|1
Ì € i 2
abs.od.report.pages (report.pages)
[urn,form,form.es,form.urn,report.ctr, page]
:DO[dz]F[dji,doES,dzEFQ]R["P",arpg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
page 3 PINT R arpg
page.arch.status 10 CHOICE L :DO[dz]F[dji,doES,dzEFQ]R["P",arpg]|1
page.error.status 40 FREE L :DO[dz]F[dji,doES,dzEFQ]R["P",arpg]|2
page.od.urn 20 PINT R :DO[dz]F[dji,doES,dzEFQ]R["P",arpg]|0
Ì i 2
abs.od.pci.txns (pci.txns)
[pci.mri.urn,pci.adm.urn,pci.mis.mr.form,pci.abs.urn,pci.abs.form] = pci.data
:DOPCI[ea,aa,gi,dz,dji]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pci.mri.urn 25 URN L MRI.PAT ea
pci.adm.urn 30 URN L ADM.PAT aa
pci.mis.mr.form 15 FREE L MIS.MR.FORM gi
pci.abs.urn 44 FREE L ABS.PAT dz
pci.abs.form 10 FREE L ABS.FORM dji
pci.adm.reserv.date 8 DATE L :DOPCI[ea,aa,gi,dz,dji]|2
pci.es.confid.data 1 YN L :DOPCI[ea,aa,gi,dz,dji]|1
pci.es.status 9 CHOICE L :DOPCI[ea,aa,gi,dz,dji]|0
pci.field.value 30 FREE L :DOPCI[ea,aa,gi,dz,dji]|4
pci.pt.status 8 FREE L ABS.PT.STATUS :DOPCI[ea,aa,gi,dz,dji]|3
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.od.adm.urn.x [adm.urn,urn]
adm.urn.x :DOADM[aa,dz]
abs.od.archived.x [urn,form,form.es,form.urn]
archived.x :DOAX[dz,dji,doES,dzEFQ]
abs.od.error.x [error.date,error.time,urn,form,form.es,form.urn]
error.x :DOPEX[doERD,doERT,dz,dji,doES,dzEFQ]
abs.od.mri.urn.x [mri.urn,urn]
mri.urn.x :DOMRI[ea,dz]
abs.od.name.x [sort.name,urn]
name.x :DON[dzNR,dz]
abs.od.number.x [account.number,urn]
number.x :DOR[dzR,dz]
abs.od.print.x [urn,form,form.es,form.urn]
print.x :DOPI[dz,dji,doES,dzEFQ]
abs.od.process.x [urn,form,form.es,form.urn]
process.x :DOPX[dz,dji,doES,dzEFQ]
abs.od.unit.x [unit.number,urn]
unit.x :DOU[dzU,dz]
|
|
| | | | | |