sHelp
                                     ADM.HSK
       2
 main

 Ì       2
main
[room,bed]
*(A1)AK[ggr,ggrB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 room                        10 FREE     L  MIS.ROOM       ggr                                                     
 bed                         10 FREE     L                 ggrB                                                        
 comment                     40 FREE     L                 *(A1)AK[ggr,ggrB]|1                                         
 location                    10 FREE     L  MIS.LOCN                                                               
 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"}                                      
 pt.loa.status                1 YN       L                 VAL=IF{@ADM.PAT.room.bed.index[@.facility,ADM.HSK.room      
                                                           VAL=,ADM.HSK.bed]^URN,@ADM.PAT.loa.status[URN]="F"!(@A      
                                                           VAL=DM.PAT.loa.status[URN]="L") "Y"}                        
 status                      10 FREE     L  ADM.BED.STATUS *(A1)AK[ggr,ggrB]|0                                     
 status.description          30 FREE     L                 VAL=@ADM.BED.STATUS.name[@ADM.HSK.status]                   
 yes.no                       1 YN       L