Ì i 2
rxm.order.set.dictionary (main)
[mnemonic]
&HXS[hxs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L hxs
active 1 YN L &HXS[hxs]|0
description 30 FREE L &HXS[hxs]|1
description.long 70 FREE L &HXS[hxs]|2
last.update 10 FREE L &HXS[hxs]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 &HXS[hxs]UPD|1
Ì € i 2
rxm.order.set.default.drugs (dft.drugs)
[mnemonic, dft.drug.seq]
&HXS[hxs]D[hxss]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.drug.seq 3 PINT R hxss
dft.dosage 10 FREE L &HXS[hxs]D[hxss]|1
dft.drug 20 FREE L RXM.DRUG &HXS[hxs]D[hxss]|0
dft.order.ok 1 YN L &HXS[hxs]D[hxss]|2
dft.order.ok.check 1 FREE L VAL=IF{@dft.order.ok @Z.check.mark;""}
dft.order.ok.yn 1 YN L VAL=IF{@dft.order.ok'="N" "Y";"N"}
Ì € i 2
rxm.order.set.dft.procedures (dft.procedures)
[mnemonic, dft.proc.seq]
&HXS[hxs]O[hxso]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.proc.seq 3 PINT R hxso
dft.proc 10 FREE L RXM.PROC &HXS[hxs]O[hxso]|0
dft.proc.display.text 20 FREE L &HXS[hxs]O[hxso]|1
dft.proc.ok 1 YN L &HXS[hxs]O[hxso]|2
dft.proc.ok.check 1 FREE L VAL=IF{@dft.proc.ok @Z.check.mark;""}
dft.proc.ok.yn 1 YN L VAL=IF{@dft.proc.ok'="N" "Y";"N"}
dft.proc.order.period 10 FREE L RXM.ORD.PERIOD &HXS[hxs]O[hxso]|3
dft.proc.perf.loc 15 FREE L MIS.OUT.LOCN &HXS[hxs]O[hxso]|4
series.count 3 PINT R &HXS[hxs]O[hxso]S|2
series.order 1 YN L &HXS[hxs]O[hxso]S|0
series.order.period 10 FREE L RXM.ORD.PERIOD &HXS[hxs]O[hxso]S|1
series.stop.days 3 PINT R &HXS[hxs]O[hxso]S|3
Ì € i 2
rxm.order.set.diagnoses (diagnoses)
[mnemonic, diag.code]
&HXS[hxs]DX[gsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.code 7 FREE L MIS.DIAG gsn
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
rxm.order.set.problem.index [diag.code,mnemonic]
problem.x &HXSP[gsn,hxs]
|
|
| | |