Ì € 2
pha.inventory.drugs (drugs)
[inventory, drug]
?TI[mi]D[tf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drug 10 FREE L PHA.DRUG tf
from.stock 1 YN L ?TI[mi]D[tf]|3
par 6 PDEC R ?TI[mi]D[tf]|1
par.string 25 FREE L ?TI[mi]D[tf]|0
shelf 10 FREE L ?TI[mi]D[tf]|2
unit.issue 4 FREE L ?TI[mi]D[tf]|4
Ì € 2
pha.inventory.drug.levels (levels)
[inventory,drug, level.type]
?TI[mi]D[tf]L[tiL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
level.type 4 CHOICE L tiL
level 6 PDEC R ?TI[mi]D[tf]L[tiL]|1
level.string 25 FREE L ?TI[mi]D[tf]L[tiL]|0
Ì € 2
pha.inventory.drug.locations (locations)
[inventory,drug, drug.location]
?TI[mi]D[tf]O[tiO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drug.location 10 FREE L tiO
Ì 2
transit.queue.audit.trail (transit.at)
[transit.at.date,transit.at.q]
:TITAT[titDT,titQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transit.at.date 8 DATE L titDT
transit.at.q 6 PINT R titQ
transit.at.location 10 FREE L PHA.LOC :TITAT[titDT,titQ]|2
transit.at.time 4 HHMM L :TITAT[titDT,titQ]|0
transit.at.user 10 FREE L MIS.USER :TITAT[titDT,titQ]|1
Ì € 2
transit.q.at.inventories (transit.at.inventories)
[transit.at.date,transit.at.q, transit.at.inventory]
:TITAT[titDT,titQ]I[mi]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transit.at.inventory 10 FREE L MM.INVENT mi
Ì € 2
transit.q.at.drugs (transit.at.drugs)
[transit.at.date,transit.at.q,transit.at.inventory, transit.at.drug]
:TITAT[titDT,titQ]I[mi,tf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transit.at.drug 10 FREE L PHA.DRUG tf
transit.at.new.amount 10 PINT R :TITAT[titDT,titQ]I[mi,tf]|1
transit.at.old.amount 10 PINT R :TITAT[titDT,titQ]I[mi,tf]|0
Ì 2
pha.inv.transit.queue (transit.queue)
[transit.location,transit.inventory,transit.drug]
?TITQ[ggn,mi,tf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
transit.location 10 FREE L PHA.LOC ggn
transit.inventory 10 FREE L MM.INVENT mi
transit.drug 10 FREE L PHA.DRUG tf
transit 10 PINT R ?TITQ[ggn,mi,tf]|0
transit.cost 12 MONEY R VAL=@transit*(@PHA.DRUG.unit.cost[@transit.drug])
|
|
| | | | |