Ì i 2
or.pref.card.dict (main)
[op,card]
&HSPC[wat,hspc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
op 10 FREE L SCH.APPT.TYPE wat
card 10 FREE L hspc
active 1 YN L &HSPC[wat,hspc]|0
dr 10 FREE L MIS.DOC.DICT &HSPC[wat,hspc]|5
dr.name 30 FREE L VAL=IF{@dr.out="DEFAULT" "DEFAULT PHYSICIAN";@MIS.DOC.
VAL=DICT.name[@dr.out]}
dr.out 10 FREE L MIS.DOC.DICT &HSPC[wat,hspc]|4
fac 10 FREE L MIS.FACILITY &HSPC[wat,hspc]|3
fac.name 30 FREE L VAL=@MIS.FACILITY.name[@fac.out]
fac.out 10 FREE L MIS.FACILITY &HSPC[wat,hspc]|2
last.update 10 PINT R &HSPC[wat,hspc]UPD
last.update.dt 8 DATE L VAL=%Z.date.clin.to.npr(@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 &HSPC[wat,hspc]|6
name 30 FREE L &HSPC[wat,hspc]|1
Ì € i 2
pref.card.intakes (intakes)
[op,card, iv.q]
&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 &HSPC[wat,hspc]INT[hspIV]|1
iv.type 5 FREE L SCH.IV.TYPE &HSPC[wat,hspc]INT[hspIV]|0
Ì € i 2
pref.card.meds (meds)
[op,card, med.queue]
&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 &HSPC[wat,hspc]MED[hspME]|0
med.dose 8 FREE L &HSPC[wat,hspc]MED[hspME]|1
med.dose.unit 10 FREE L &HSPC[wat,hspc]MED[hspME]|3
med.route 10 FREE L SCH.ROUTE &HSPC[wat,hspc]MED[hspME]|2
Ì € i 2
or.pref.card.dict.numbers (numbers)
[op,card, number]
&HSPC[wat,hspc]N[hspcn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 2 URN L hspcn
edit 1 YN L &HSPC[wat,hspc]N[hspcn]|1
header.name 30 FREE L VAL=IF{@SCH.PREF.HDR.description[@number.pref.header];
VAL=@number.pref.header}
number.canned.text 10 FREE L SCH.TEXT &HSPC[wat,hspc]N[hspcn]|0
number.pref.header 10 FREE L SCH.PREF.HDR &HSPC[wat,hspc]N[hspcn]|0
text.exists 1 YN L VAL=IF{+@t.text[op,card,number,""] @Z.check.mark.data;
VAL=" "}
text.name 30 FREE L VAL=IF{@SCH.PREF.HDR.description[@number.pref.header];
VAL=@number.pref.header}
Ì € i 2
or.pref.card.dict.items (items)
[op,card,number, item.queue]
&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 SCH.INV.ITEM &HSPC[wat,hspc]N[hspcn]I[hspci]|1
item.comment 10 FREE L SCH.PREF.COM &HSPC[wat,hspc]N[hspcn]I[hspci]|4
item.inv 10 FREE L SCH.INV.DICT &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 &HSPC[wat,hspc]N[hspcn]I[hspci]|2
item.sec.qty 3 INT R &HSPC[wat,hspc]N[hspcn]I[hspci]|3
Ì € i 2
or.pref.card.dict.text (text)
[op,card,number, card.line]
&HSPC[wat,hspc]N[hspcn]T[hspcl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
card.line 3 URN L hspcl
card.text 79 FREE L &HSPC[wat,hspc]N[hspcn]T[hspcl]
Ì € i 2
or.pref.card.dict.res.types (resource.types)
[op,card, res.typ.q]
&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 &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 &HSPC[wat,hspc]T[watT]|1
res.typ.start 3 INT R &HSPC[wat,hspc]T[watT]|2
res.type 10 FREE L SCH.RSRC.GRP &HSPC[wat,hspc]T[watT]|0
res.type.inc.exc.res 7 CHOICE L &HSPC[wat,hspc]T[watT]|4
Ì € i 2
or.pref.card.dict.resources (resources)
[op,card,res.typ.q, resource]
&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]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
or.pref.card.dict.fac.dr.x [fac,dr,op] = card
fac.dr.x &HSPCX[gqb,ggg,wat]
|
|
| | | | | | |