Ì € i 2
main
[op,card]
&(W)HSPC[wat,hspc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
op 10 FREE L SCH.APPT.TYPE wat
card 15 FREE L hspc
active 1 YN L &(W)HSPC[wat,hspc]|0
dr 10 FREE L &(W)HSPC[wat,hspc]|5
dr.name 30 FREE L VAL=IF{@dr.out=. "DEFAULT PHYSICIAN";@MIS.DOC.name[@dr
VAL=.out]}
dr.out 10 FREE L MIS.DOC &(W)HSPC[wat,hspc]|4
fac 10 FREE L &(W)HSPC[wat,hspc]|3
fac.name 30 FREE L VAL=IF{@fac.out=. "DEFAULT FACILITY";@MIS.FACILITY.nam
VAL=e[@fac.out]}
fac.out 10 FREE L MIS.FACILITY &(W)HSPC[wat,hspc]|2
last.update 10 PINT R &(W)HSPC[wat,hspc]UPD
last.update.dt 8 DATE L VAL=%Z.date.in.magic(@SCH.PREF.CARD.last.update)
last.update.tm 4 HHMM L VAL=%Z.time.out(@last.update)
last.update.user 10 FREE L MIS.USER &(W)HSPC[wat,hspc]|6
name 30 FREE L &(W)HSPC[wat,hspc]|1
Ì € i 2
intakes
[op,card, iv.q]
&(W)HSPC[wat,hspc]INT[hspIV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
iv.q 3 URN L hspIV
iv 10 FREE L &(W)HSPC[wat,hspc]INT[hspIV]|1
iv.type 5 FREE L SCH.IV.TYPE &(W)HSPC[wat,hspc]INT[hspIV]|0
Ì € i 2
meds
[op,card, med.queue]
&(W)HSPC[wat,hspc]MED[hspME]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.queue 3 URN L hspME
med 10 FREE L SCH.MEDS &(W)HSPC[wat,hspc]MED[hspME]|0
med.dose 6 FREE L &(W)HSPC[wat,hspc]MED[hspME]|1
med.route 10 FREE L SCH.ROUTE &(W)HSPC[wat,hspc]MED[hspME]|2
Ì € i 2
numbers
[op,card, number]
&(W)HSPC[wat,hspc]N[hspcn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 2 URN L hspcn
edit 1 YN L &(W)HSPC[wat,hspc]N[hspcn]|1
number.canned.text 10 FREE L SCH.TEXT &(W)HSPC[wat,hspc]N[hspcn]|0
text.exists 1 FREE L VAL=IF{+@t.text[op,card,number,""] @Z.check.mark.data;
VAL=" "}
text.name 30 FREE L VAL=IF{@SCH.TEXT.description[@number.canned.text];@num
VAL=ber.canned.text}
Ì € i 2
items
[op,card,number, item.queue]
&(W)HSPC[wat,hspc]N[hspcn]I[hspci]
Field Name Len Dat Typ J DPM Offset/Local/VAL
item.queue 3 URN L hspci
item 10 FREE L &(W)HSPC[wat,hspc]N[hspcn]I[hspci]|1
item.comment 10 FREE L SCH.PREF.COM &(W)HSPC[wat,hspc]N[hspcn]I[hspci]|4
item.inv 10 FREE L SCH.INV.DICT &(W)HSPC[wat,hspc]N[hspcn]I[hspci]|0
item.name 30 FREE L VAL=IF{@SCH.INV.ITEM.other.name[@item.inv,@item^ITM];@
VAL=SCH.INV.ITEM.name[@item.inv,ITM];ITM}
item.prim.qty 3 INT R &(W)HSPC[wat,hspc]N[hspcn]I[hspci]|2
item.sec.qty 3 INT R &(W)HSPC[wat,hspc]N[hspcn]I[hspci]|3
Ì € i 2
text
[op,card,number, card.line]
&(W)HSPC[wat,hspc]N[hspcn]T[hspcl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
card.line 3 PINT R hspcl
card.text 79 TEXT L &(W)HSPC[wat,hspc]N[hspcn]T[hspcl]
Ì € i 2
resource.types
[op,card, res.typ.q]
&(W)HSPC[wat,hspc]T[watT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
res.typ.q 3 PINT R watT
res.typ.duration 4 PINT R &(W)HSPC[wat,hspc]T[watT]|3
res.typ.name 30 FREE L VAL=@SCH.RSRC.GRP.description[@res.type]
res.typ.qty 3 FREE L &(W)HSPC[wat,hspc]T[watT]|1
res.typ.start 3 INT R &(W)HSPC[wat,hspc]T[watT]|2
res.type 10 FREE L SCH.RSRC.GRP &(W)HSPC[wat,hspc]T[watT]|0
res.type.inc.exc.res 7 CHOICE L &(W)HSPC[wat,hspc]T[watT]|4
Ì € i 2
resources
[op,card,res.typ.q, resource]
&(W)HSPC[wat,hspc]T[watT]R[wre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
resource 15 FREE L SCH.RESOURCE wre
res.name 30 FREE L VAL=@SCH.RESOURCE.name[resource]
Index Files Subscripts/Physical Base
fac.dr.x [fac,dr,op] = card
&(W)HSPCX[gqb,ggg,wat]
|
|
| | | | | | |