sHelp
                                     MIS.ROOM
     i   2
 main
   beds
     bed.components
   clients
   customer.defined.queries
   facilities
   rate.accoms

 Ì   €   i   2
main
[mnemonic]
&(G)GGR[ggr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 ggr                                                         
 accomodation                10 FREE     L  MIS.ACCOM      &(G)GGR[ggr]|4                                          
 active                       1 YN       L                 &(G)GGR[ggr]|0                                              
 bed.count                    2 INT      R                 &(G)GGR[ggr]|10                                             
 check.accom                  1 YN       L                 &(G)GGR[ggr]|8                                              
 check.housekeeping           1 YN       L                 &(G)GGR[ggr]|11                                             
 check.service                1 YN       L                 &(G)GGR[ggr]|7                                              
 check.sex                    1 YN       L                 &(G)GGR[ggr]|6                                              
 check.smoking                1 YN       L                 &(G)GGR[ggr]|9                                              
 location                    10 FREE     L  MIS.LOCN       &(G)GGR[ggr]|2                                          
 not.full                     1 YN       L                 VAL=("N"^X,DO{@Next(MIS.ROOM.bed) IF{@ADM.PAT.rbi.urn;      
                                                           VAL=@Z.del^MIS.ROOM.bed,"Y"^X}},X)                          
 not.full.or.all              1 YN       L                 VAL=IF{L("Nn",c.yes.no)<2 "Y";@MIS.ROOM.not.full}        
 overflow.loc                 1 YN       L                 &(G)GGR[ggr]|5                                              
 room.facility               10 FREE     L  MIS.FACILITY   VAL=(@Last(facility))                                   
 service                     10 FREE     L  MIS.SVC        &(G)GGR[ggr]|3                                          
 Ì   €   i   2
beds
[mnemonic,  bed]
&(G)GGR[ggr]B[ggrB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 bed                          3 FREE     L                 ggrB                                                        
 bed.phone                   10 FREE     L                 &(G)GGR[ggr]B[ggrB]|0                                       
 hsk.ext                     10 PINT     R                 &(G)GGR[ggr]B[ggrB]|2                                       
 overflow.bed                 1 YN       L                 &(G)GGR[ggr]B[ggrB]|1                                       
 Ì   €   i   2
bed.components
[mnemonic,bed,  bed.component]
&(G)GGR[ggr]B[ggrB]BC[gbc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 bed.component               10 FREE     L  MIS.BED.COMP   gbc                                                     
 Ì   €   i   2
clients
[mnemonic,  client]
&(G)GGR[ggr]CL[huc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 client                      30 FREE     L  UNV.CLIENT     huc                                                     
 Ì   €   i   2
customer.defined.queries
[mnemonic,  cd.query]
&(G)GGR[ggr]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.response                 75 QRY.RESP L                 &(G)GGR[ggr]CD[ggv]|0                                       
 Ì   €   i   2
facilities
[mnemonic,  facility]
&(G)GGR[ggr]FAC[gqbf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 facility                    10 FREE     L  MIS.FACILITY   gqbf                                                    
 Ì   €   i   2
rate.accoms
[mnemonic,  rate.accom]
&(G)GGR[ggr]R[ggrR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rate.accom                  10 FREE     L  MIS.ACCOM      ggrR                                                    
 procedure                   10 FREE     L                 &(G)GGR[ggr]R[ggrR]|0                                       

 Index Files                        Subscripts/Physical Base

 client.x                           [client] = mnemonic
                                      &(G)GGRC[huc]

 location.service.x                 [location,service,mnemonic]
                                      &(G)GGRX[ggn,ggs,ggr]

 location.x                         [location,mnemonic]
                                      &(G)GGRI[ggn,ggr]

 service.location.x                 [service,location,mnemonic]
                                      &(G)GGRY[ggs,ggn,ggr]