sHelp
                                     ADM.HSK
       2
   adm.houskeeping.file
   zcus.closed.wards
     zcus.closed.current.beds
     zcus.closed.dates
       zcus.closed.beds

 Ì       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"}                                      
 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                                                                             
 Ì       2
zcus.closed.wards    (zcus.closed.wards) 
[zcus.closed.ward]
:AKZCUSCL[ggr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.closed.ward            10 FREE     L  MIS.ROOM.DICT  ggr                                                     
 zcus.closed.ward.comment    50 FREE     L                 :AKZCUSCL[ggr]|1                                            
 zcus.closed.ward.date        8 DATE     L                 :AKZCUSCL[ggr]|0                                            
 Ì        2
zcus.closed.current.beds    (zcus.closed.current.beds) 
[zcus.closed.ward, zcus.closed.current.bed]
:AKZCUSCL[ggr]ZCUSBD[ggrB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.closed.current.bed      3 FREE     L                 ggrB                                                        
 zcus.closed.current.spc     10 FREE     L  MIS.SVC.DICT   :AKZCUSCL[ggr]ZCUSBD[ggrB]|0                            
 Ì        2
zcus.closed.dates    (zcus.closed.dates) 
[zcus.closed.ward, zcus.closed.date]
:AKZCUSCL[ggr]ZCUSDT[cdt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.closed.date             8 DATE     L                 cdt                                                         
 Ì        2
zcus.closed.beds    (zcus.closed.beds) 
[zcus.closed.ward,zcus.closed.date, zcus.closed.bed]
:AKZCUSCL[ggr]ZCUSDT[cdt]ZCUSBD[ggrB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.closed.bed              3 FREE     L                 ggrB                                                        
 zcus.closed.bed.comment     50 FREE     L                 :AKZCUSCL[ggr]ZCUSDT[cdt]ZCUSBD[ggrB]|0                     
 zcus.closed.bed.specialty   10 FREE     L                 :AKZCUSCL[ggr]ZCUSDT[cdt]ZCUSBD[ggrB]|3                     
 zcus.stats.updated.mnr       1 YN       L                 :AKZCUSCL[ggr]ZCUSDT[cdt]ZCUSBD[ggrB]|2                     
 zcus.stats.updated.user      1 YN       L                 :AKZCUSCL[ggr]ZCUSDT[cdt]ZCUSBD[ggrB]|1