Ì i 2
or.inventory (main)
[inv,inv.item]
:HSI[hsin,hsii]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv 10 FREE L SCH.INV.DICT hsin
inv.item 10 FREE L hsii
group 10 FREE L SCH.APPT.GROUP
inv.in.stock 6 INT R :HSI[hsin,hsii]|0
inv.on.order 6 INT R :HSI[hsin,hsii]|1
inv.type 10 FREE L SCH.INV.TYPE VAL=@SCH.INV.ITEM.inv.type
supplier 11 FREE L MIS.VEN
temp.in.stock 6 FREE L VAL=@inv.in.stock[t.inv,inv.item]
temp.on.order 6 FREE L VAL=@inv.on.order[t.inv,inv.item]
temp.reason 40 FREE L
Ì € i 2
or.inventory.audit (audit)
[inv,inv.item, inv.audit.urn]
:HSI[hsin,hsii]AUD[hsiau]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.audit.urn 4 URN L hsiau
inv.audit.date 8 DATE L :HSI[hsin,hsii]AUD[hsiau]|0
inv.audit.in.stock.dif 6 FREE L :HSI[hsin,hsii]AUD[hsiau]|6
inv.audit.old.in.stock 6 FREE L :HSI[hsin,hsii]AUD[hsiau]|4
inv.audit.old.on.order 6 FREE L :HSI[hsin,hsii]AUD[hsiau]|5
inv.audit.on.order.dif 6 FREE L :HSI[hsin,hsii]AUD[hsiau]|7
inv.audit.reason 40 FREE L :HSI[hsin,hsii]AUD[hsiau]|3
inv.audit.time 4 HHMM L :HSI[hsin,hsii]AUD[hsiau]|1
inv.audit.user 10 FREE L MIS.USER :HSI[hsin,hsii]AUD[hsiau]|2
Ì € i 2
or.inventory.log.implants (log.implants)
[inv,inv.item, log.urn]
:HSI[hsin,hsii]LOG[hsiLU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.urn 3 URN L hsiLU
log.batch.number 15 FREE L :HSI[hsin,hsii]LOG[hsiLU]|3
log.comment 70 FREE L :HSI[hsin,hsii]LOG[hsiLU]|9
log.comment.exists 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{@t.log.comment "*";
VAL=D(5,0,1,1)}_@Set.attr(@Z.color.data1)
log.comment.yn 1 YN L :HSI[hsin,hsii]LOG[hsiLU]|10
log.date 8 DATE L :HSI[hsin,hsii]LOG[hsiLU]|6
log.lot.number 15 FREE L :HSI[hsin,hsii]LOG[hsiLU]|1
log.manufacturer 10 FREE L MIS.MFR :HSI[hsin,hsii]LOG[hsiLU]|0
log.quantity 3 INT R :HSI[hsin,hsii]LOG[hsiLU]|5
log.serial.number 15 FREE L :HSI[hsin,hsii]LOG[hsiLU]|2
log.size 5 FREE L :HSI[hsin,hsii]LOG[hsiLU]|4
log.time 4 HHMM L :HSI[hsin,hsii]LOG[hsiLU]|7
log.user 10 FREE L MIS.USER :HSI[hsin,hsii]LOG[hsiLU]|8
Ì i 2
or.inventory.req (reqs)
[req]
:HSIR[hsirq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
req 10 URN L hsirq
entered.by 10 FREE L MIS.USER :HSIR[hsirq]|9
entered.date 8 DATE L :HSIR[hsirq]|10
entered.time 4 HHMM L :HSIR[hsirq]|11
number.of.copies 2 PINT R
req.cost.center 6 FREE L :HSIR[hsirq]|4
req.hospital.number 11 FREE L :HSIR[hsirq]|2
req.inv 10 FREE L SCH.INV.DICT :HSIR[hsirq]|0
req.status 10 FREE L :HSIR[hsirq]|3
req.supplier 11 FREE L MIS.VEN :HSIR[hsirq]|1
req.tp 6 FREE L :HSIR[hsirq]|5
req.transmit 1 YN L :HSIR[hsirq]|12
requested.by 10 FREE L MIS.USER :HSIR[hsirq]|6
requested.date 8 DATE L :HSIR[hsirq]|7
requested.time 4 HHMM L :HSIR[hsirq]|8
Ì € i 2
or.inventory.reqs.text (comments.text)
[req, comment.text.line]
:HSIR[hsirq]CX[hsiln]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.text.line 1 URN L hsiln
comment.edit 1 YN L :HSIR[hsirq]CX[hsiln]|1
comment.text 70 FREE L :HSIR[hsirq]CX[hsiln]
comment.text.exists 0 YN L VAL=IF{+@t.comments.text[req,""] "EXIST "_@Set.attr(@Z
VAL=.color.labels1)_IF{@.gui D(5,0,1,7);(" ":7)}_@Set.
VAL=attr(@Z.color.data1);"DO NOT EXIST"}
Ì € i 2
or.inventory.reqs.ordered (reqs.ordered)
[req, ordered.urn]
:HSIR[hsirq]ORD[hsior]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ordered.urn 2 URN L hsior
ordered.inv 10 FREE L SCH.INV.DICT :HSIR[hsirq]ORD[hsior]|0
ordered.item 10 FREE L :HSIR[hsirq]ORD[hsior]|1
ordered.name 30 FREE L :HSIR[hsirq]ORD[hsior]|3
ordered.quantity 6 INT R :HSIR[hsirq]ORD[hsior]|2
ordered.supplier 11 FREE L MIS.VEN :HSIR[hsirq]ORD[hsior]|4
ordered.supplier.dsp 11 FREE L VAL=IF{@req.supplier;@ordered.supplier}
ordered.supplier.name 35 FREE L VAL=@MIS.VEN.name[IF{@req.supplier;@ordered.supplier}]
Ì € i 2
or.inventory.req.received (reqs.received)
[req, received.urn]
:HSIR[hsirq]REC[hsirc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
received.urn 2 INT R hsirc
received.inv 10 FREE L SCH.INV.DICT :HSIR[hsirq]REC[hsirc]|0
received.item 10 FREE L :HSIR[hsirq]REC[hsirc]|1
received.name 30 FREE L :HSIR[hsirq]REC[hsirc]|3
received.ordered 6 INT R :HSIR[hsirq]REC[hsirc]|2
received.quantity 6 FREE L :HSIR[hsirq]REC[hsirc]|6
received.quantity.total 6 INT R :HSIR[hsirq]REC[hsirc]|5
received.supplier 11 FREE L MIS.VEN :HSIR[hsirq]REC[hsirc]|4
received.supplier.dsp 11 FREE L VAL=IF{@req.supplier;@received.supplier}
received.supplier.name 35 FREE L VAL=@MIS.VEN.name[IF{@req.supplier;@received.supplier}
VAL=]
received.to.follow 6 INT R :HSIR[hsirq]REC[hsirc]|7
received.to.follow.flag 1 FREE L :HSIR[hsirq]REC[hsirc]|8
Ì € i 2
or.inventory.req.received.aud (reqs.received.audit)
[req, req.audit.urn]
:HSIR[hsirq]AUD[hsirA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
req.audit.urn 2 URN L hsirA
req.audit.date 8 DATE L :HSIR[hsirq]AUD[hsirA]|0
req.audit.time 4 HHMM L :HSIR[hsirq]AUD[hsirA]|1
req.audit.user 10 FREE L MIS.USER :HSIR[hsirq]AUD[hsirA]|2
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
or.inventory.req.hosp.number.x [req.hospital.number,req]
hospital.number.x :HSIH[hsihn,hsirq]
or.inventory.log.x [log.date,inv,inv.item,log.urn]
log.x :HSIL[hsiLD,hsin,hsii,hsiLU]
|
|
| | | | | | |