sHelp
                                     MIS.ROOM.DICT
     i   2
   mis.room
     mis.room.beds
       mis.room.bed.components
     mis.room.dict.queries
       mis.room.dict.mult.queries
     mis.room.facilities
     mis.room.rate.accomms

 Ì     i   2
mis.room    (main) 
[mnemonic]
\GGR[ggr]

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bed                          3 FREE     L                 ggrB                                                        
 bed.phone                   10 FREE     L                 \GGR[ggr]B[ggrB]|0                                          
 hsk.ext                     10 PINT     R                 \GGR[ggr]B[ggrB]|2                                          
 Ì     i   2
mis.room.bed.components    (bed.components) 
[mnemonic,bed, bed.component]
\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
mis.room.dict.queries    (customer.defined.queries) 
[mnemonic, cd.query]
\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                 \GGR[ggr]CD[ggv]|0                                          
 Ì     i   2
mis.room.dict.mult.queries    (multiple.queries) 
[mnemonic,cd.query, cdm.seq.no]
\GGR[ggr]CD[ggv]M[ggvN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cdm.seq.no                   3 PINT     R                 ggvN                                                        
 cdm.response                75 QRY.RESP L                 \GGR[ggr]CD[ggv]M[ggvN]|0                                   
 Ì     i   2
mis.room.facilities    (facilities) 
[mnemonic, facility]
\GGR[ggr]FAC[gqbf]

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rate.accom                  10 FREE     L  MIS.ACCOM.DICT ggrR                                                    
 procedure                   10 FREE     L                 \GGR[ggr]R[ggrR]|0                                          
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mis.room.dict.queries.conv.x       [mnemonic,cd.query] = cd.response
   conversion.x                       \GGRQC[ggr,ggv]

 mis.room.loc.svc.index             [location,service,mnemonic]
   location.service.x                 \GGRX[ggn,ggs,ggr]

 mis.room.loc.index                 [location,mnemonic]
   location.x                         \GGRI[ggn,ggr]

 mis.room.svc.loc.index             [service,location,mnemonic]
   service.location.x                 \GGRY[ggs,ggn,ggr]