Ì i 2
main
[user,set.number]
&(HX)HXQ[gu,hxq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
user 10 FREE L MIS.USER gu
set.number 3 PINT R hxq
active 1 YN L &(HX)HXQ[gu,hxq]|0
description 30 FREE L &(HX)HXQ[gu,hxq]|1
last.update 10 FREE L &(HX)HXQ[gu,hxq]UPD|0
last.update.date 8 DATE L VAL=%Z.date.in.magic(@last.update)
last.update.date.time 15 FREE L VAL=%Z.date.out(@last.update.date,"",10)_"-"_@last.upd
VAL=ate.time'="-"
last.update.time 4 HHMM L VAL=%Z.time.out(@last.update)
last.update.user 10 FREE L MIS.USER &(HX)HXQ[gu,hxq]UPD|1
Ì € i 2
dft.drugs
[user,set.number, dft.drug.seq]
&(HX)HXQ[gu,hxq]D[hxqs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.drug.seq 3 PINT R hxqs
dft.dosage 10 FREE L &(HX)HXQ[gu,hxq]D[hxqs]|1
dft.drug 20 FREE L RXM.DRUG &(HX)HXQ[gu,hxq]D[hxqs]|0
dft.order.ok 1 FREE L &(HX)HXQ[gu,hxq]D[hxqs]|2
dft.order.ok.check 1 FREE L VAL=IF{@dft.order.ok @Z.check.mark.data;""}
dft.order.ok.yn 1 YN L VAL=IF{@dft.order.ok "Y";"N"}
Ì € i 2
dft.procedures
[user,set.number, dft.proc.seq]
&(HX)HXQ[gu,hxq]O[hxqo]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.proc.seq 3 PINT R hxqo
dft.proc 10 FREE L RXM.PROC &(HX)HXQ[gu,hxq]O[hxqo]|0
dft.proc.display.text 20 FREE L &(HX)HXQ[gu,hxq]O[hxqo]|1
dft.proc.ok 1 FREE L &(HX)HXQ[gu,hxq]O[hxqo]|2
dft.proc.ok.check 1 FREE L VAL=IF{@dft.proc.ok @Z.check.mark.data;""}
dft.proc.ok.yn 1 YN L VAL=IF{@dft.proc.ok "Y";"N"}
dft.proc.order.period 10 FREE L RXM.ORD.PERIOD &(HX)HXQ[gu,hxq]O[hxqo]|3
dft.proc.perf.loc 10 FREE L MIS.OUT.LOCN &(HX)HXQ[gu,hxq]O[hxqo]|4
series.count 3 PINT R &(HX)HXQ[gu,hxq]O[hxqo]S|2
series.order 1 YN L &(HX)HXQ[gu,hxq]O[hxqo]S|0
series.order.period 10 FREE L RXM.ORD.PERIOD &(HX)HXQ[gu,hxq]O[hxqo]S|1
series.stop.days 3 PINT R &(HX)HXQ[gu,hxq]O[hxqo]S|3
Ì € i 2
diagnoses
[user,set.number, diag.code]
&(HX)HXQ[gu,hxq]DX[gsk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.code 10 FREE L MIS.DIAG gsk
Index Files Subscripts/Physical Base
problem.x [diag.code,user,set.number]
&(HX)HXQDX[gsk,gu,hxq]
|
|
| | |