Ì 2
adm.houskeeping.file (main)
[room,bed]
:AK[ggr,ggrB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
room 10 FREE L MIS.ROOM.DICT ggr
bed 10 FREE L ggrB
comment 40 FREE L :AK[ggr,ggrB]|1
location 10 FREE L MIS.LOCN.DICT
occupied 1 YN L VAL=IF{@ADM.PAT.room.bed.index[@.facility,ADM.HSK.room
VAL=,ADM.HSK.bed] "Y";"N"}
occupied.yes.only 1 YN L VAL=IF{@ADM.PAT.room.bed.index[@.facility,ADM.HSK.room
VAL=,ADM.HSK.bed] "Y"}
priority 1 CHOICE L :AK[ggr,ggrB]|3
reason 10 FREE L ADM.BLOCK.RSN :AK[ggr,ggrB]|2
status 10 FREE L ADM.BED.STATUS :AK[ggr,ggrB]|0
status.description 30 FREE L VAL=@ADM.BED.STATUS.name[@ADM.HSK.status]
yes.no 1 YN L
|