Ì € i 2
main
[anes,card]
&(W)HSPD[hsat,hspd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
anes 10 FREE L SCH.ANES.TYPE hsat
card 10 FREE L hspd
active 1 YN L &(W)HSPD[hsat,hspd]|0
dr 10 FREE L &(W)HSPD[hsat,hspd]|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)HSPD[hsat,hspd]|4
fac 10 FREE L &(W)HSPD[hsat,hspd]|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)HSPD[hsat,hspd]|2
last.update 10 PINT R &(W)HSPD[hsat,hspd]UPD
last.update.dt 8 DATE L VAL=%Z.date.in.magic(@SCH.PREF.ANES.last.update)
last.update.tm 4 HHMM L VAL=%Z.time.out(@last.update)
last.update.user 10 FREE L MIS.USER &(W)HSPD[hsat,hspd]|6
name 30 FREE L &(W)HSPD[hsat,hspd]|1
Ì € i 2
numbers
[anes,card, number]
&(W)HSPD[hsat,hspd]N[hspdn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 2 URN L hspdn
edit 1 YN L &(W)HSPD[hsat,hspd]N[hspdn]|1
number.canned.text 10 FREE L SCH.TEXT &(W)HSPD[hsat,hspd]N[hspdn]|0
text.exists 1 FREE L VAL=IF{+@t.text[anes,card,number,""] @Z.check.mark.dat
VAL=a;" "}
text.name 30 FREE L VAL=IF{@SCH.TEXT.description[@number.canned.text];@num
VAL=ber.canned.text}
Ì € i 2
items
[anes,card,number, item.queue]
&(W)HSPD[hsat,hspd]N[hspdn]I[hspdi]
Field Name Len Dat Typ J DPM Offset/Local/VAL
item.queue 3 URN L hspdi
item 10 FREE L &(W)HSPD[hsat,hspd]N[hspdn]I[hspdi]|1
item.comment 10 FREE L SCH.PREF.COM &(W)HSPD[hsat,hspd]N[hspdn]I[hspdi]|4
item.inv 10 FREE L SCH.INV.DICT &(W)HSPD[hsat,hspd]N[hspdn]I[hspdi]|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)HSPD[hsat,hspd]N[hspdn]I[hspdi]|2
item.sec.qty 3 INT R &(W)HSPD[hsat,hspd]N[hspdn]I[hspdi]|3
Ì € i 2
text
[anes,card,number, card.line]
&(W)HSPD[hsat,hspd]N[hspdn]T[hspdl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
card.line 3 URN L hspdl
card.text 79 TEXT L &(W)HSPD[hsat,hspd]N[hspdn]T[hspdl]
Ì € i 2
resource.types
[anes,card, res.typ.q]
&(W)HSPD[hsat,hspd]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)HSPD[hsat,hspd]T[watT]|3
res.typ.name 30 FREE L VAL=@SCH.RSRC.GRP.description[@res.type]
res.typ.qty 3 FREE L &(W)HSPD[hsat,hspd]T[watT]|1
res.typ.start 3 INT R &(W)HSPD[hsat,hspd]T[watT]|2
res.type 10 FREE L SCH.RSRC.GRP &(W)HSPD[hsat,hspd]T[watT]|0
res.type.inc.exc.res 7 CHOICE L &(W)HSPD[hsat,hspd]T[watT]|4
Ì € i 2
resources
[anes,card,res.typ.q, resource]
&(W)HSPD[hsat,hspd]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,anes] = card
&(W)HSPDX[gqb,ggg,hsat]
|
|
| | | | |