Ì 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 3 FREE L ggrB
comment 40 FREE L :AK[ggr,ggrB]|1
dirty.isolation 1 YN L :AK[ggr,ggrB]|4
last.update 10 PINT R :AK[ggr,ggrB]UPD
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 10 FREE L ADM.BB.PRI :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]
user 10 FREE L MIS.USER
yes.no 1 YN L
Ì € 2
adm.hsk.block (block)
[room,bed, date,time]
:AK[ggr,ggrB]B[akbd,akbt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
date 8 DATE L akbd
time 4 HHMM L akbt
bcomment 30 FREE L :AK[ggr,ggrB]B[akbd,akbt]|0
breason 10 FREE L :AK[ggr,ggrB]B[akbd,akbt]|1
unblocked 1 YN L :AK[ggr,ggrB]B[akbd,akbt]|2
|
|