Ì i 2
init.renewal.orders
[init.oe.db,init.oe.provider]
*(HK)HKORO[gn,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
init.oe.db 12 FREE L MIS.APPL.DB gn
init.oe.provider 10 FREE L MIS.DOC ggg
init.oe.device 15 FREE L *(HK)HKORO[gn,ggg]|1
init.oe.provider.status 7 CHOICE L *(HK)HKORO[gn,ggg]|0
init.oe.queue.time 10 PINT R *(HK)HKORO[gn,ggg]|3
init.oe.user 10 FREE L MIS.USER *(HK)HKORO[gn,ggg]|2
Ì i 2
initialized.providers
[initialized.prov,initialized.prov.q]
*(HK)HKOQA[ggg,hkoqa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
initialized.prov 10 FREE L MIS.DOC ggg
initialized.prov.q 3 PINT R hkoqa
initialized.prov.cdate 8 DATE L VAL=%Z.date.in.magic(@initialized.prov.cseconds)
initialized.prov.cdt.tm 15 FREE L VAL=%Z.date.out(@initialized.prov.cdate,"",10)_"-"_@in
VAL=itialized.prov.ctime'="-"
initialized.prov.cseconds 10 FREE L *(HK)HKOQA[ggg,hkoqa]|4
initialized.prov.ctime 4 HHMM L VAL=%Z.time.out(@initialized.prov.cseconds)
initialized.prov.db 12 FREE L MIS.APPL.DB *(HK)HKOQA[ggg,hkoqa]|0
initialized.prov.dev 1 FREE L *(HK)HKOQA[ggg,hkoqa]|1
initialized.prov.qdate 8 DATE L VAL=%Z.date.in.magic(@initialized.prov.qseconds)
initialized.prov.qdt.tm 15 FREE L VAL=%Z.date.out(@initialized.prov.qdate,"",10)_"-"_@in
VAL=itialized.prov.qtime'="-"
initialized.prov.qseconds 10 FREE L *(HK)HKOQA[ggg,hkoqa]|3
initialized.prov.qtime 4 HHMM L VAL=%Z.time.out(@initialized.prov.qseconds)
initialized.prov.user 10 FREE L MIS.USER *(HK)HKOQA[ggg,hkoqa]|2
Ì i 2
main
[oe.db,oe.order]
*(HK)HKO[gn,po]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.db 12 FREE L MIS.APPL.DB gn
oe.order 10 URN L OE.ORD po
adm.db 12 FREE L MIS.APPL.DB
adm.visit 30 URN L ADM.PAT *(HK)HKO[gn,po]|0
category 10 FREE L OE.CAT *(HK)HKO[gn,po]|2
name 40 FREE L *(HK)HKO[gn,po]|7
oe.rx 10 URN L PHA.RX *(HK)HKO[gn,po]|9
order.date 8 DATE L *(HK)HKO[gn,po]|4
order.provider 10 FREE L MIS.DOC *(HK)HKO[gn,po]|1
order.time 4 HHMM L *(HK)HKO[gn,po]|5
procedure 10 DEC R OE.PROC *(HK)HKO[gn,po]|3
review.date 8 DATE L *(HK)HKO[gn,po]|8
rx.status 4 CHOICE L *(HK)HKO[gn,po]|10
rx.stop.time 4 HHMM L *(HK)HKO[gn,po]|11
status 10 FREE L *(HK)HKO[gn,po]|6
Ì € i 2
lines
[oe.db,oe.order, ord.line.q]
*(HK)HKO[gn,po]L[hkoLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ord.line.q 3 PINT R hkoLN
ord.line 40 FREE L *(HK)HKO[gn,po]L[hkoLN]|0
Ì € i 2
renew.dates
[oe.db,oe.order, renew.date.provider]
*(HK)HKO[gn,po]RD[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
renew.date.provider 10 FREE L MIS.DOC ggg
renew.date 8 DATE L *(HK)HKO[gn,po]RD[ggg]|0
renew.date.last.updated 10 PINT R *(HK)HKO[gn,po]RD[ggg]|1
Ì i 2
oe.data
[oe.data.db]
*(HK)HKOOE[gn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.data.db 12 FREE L MIS.APPL.DB gn
oe.doc.renew.days 10 FREE L MIS.QUERY *(HK)HKOOE[gn]|0
Ì i 2
provider.data
[provider]
*(HK)HKOPV[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
provider 10 FREE L MIS.DOC ggg
Ì € i 2
provider.queries
[provider, provider.query]
*(HK)HKOPV[ggg]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
provider.query 10 FREE L MIS.QUERY ggv
provider.response 79 QRY.RESP L *(HK)HKOPV[ggg]CD[ggv]|0
Index Files Subscripts/Physical Base
adm.visit.x [adm.visit,oe.db,oe.order]
?(HK)HKOA[aa,gn,po]
check.renewal.x [oe.db,renew.date.provider,adm.visit]
?(HK)HKOAC[gn,ggg,aa]
pat.task.x [adm.visit,provider,PWM.ITEM.urn]
?(HK)HKOK[aa,ggg,hka]
provider.x [provider,oe.db,oe.order]
?(HK)HKOD[ggg,gn,po]
renew.date.x [oe.db,renew.date,renew.date.provider,oe.order]
?(HK)HKORD[gn,hkoRD,ggg,po]
rx.stop.time.x [oe.db,review.date,rx.stop.time,oe.order]
?(HK)HKOTM[gn,poRD,trTM,po]
|
|
| | | | | | |