sHelp
                                     ADM.CD.REG.SCRN
     i   2
 main
   questionnaires
     quest.pages
       quest.section.cds

 Ì   €   i   2
main
[facility]
&(A)AS[gqb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 facility                    10 FREE     L  MIS.FACILITY   gqb                                                     
 Ì   €   i   2
questionnaires
[facility,  questionnaire]
&(A)AS[gqb,apQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 questionnaire               10 FREE     L                 apQ                                                         
 Ì   €   i   2
quest.pages
[facility,questionnaire,  quest.page]
&(A)AS[gqb,apQ]P[apCP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 quest.page                   1 PINT     R                 apCP                                                        
 cd.screen                   15 FREE     L  MIS.SCREEN     VAL=@ADM.CD.REG.SCRN.cd.screen.ee[@.facility,ADM.CD.RE  
                                                           VAL=G.SCRN.questionnaire,quest.page]                        
 cd.screen.ee                15 FREE     L  MIS.SCREEN     &(A)AS[gqb,apQ]P[apCP]|0                                
 quest.real.page              1 PINT     R                 &(A)AS[gqb,apQ]P[apCP]|2                                    
 tab.text                     9 FREE     L                 &(A)AS[gqb,apQ]P[apCP]|1                                    
 Ì   €   i   2
quest.section.cds
[facility,questionnaire,quest.page,  quest.cds.seq]
&(A)AS[gqb,apQ]P[apCP]CDS[apSEQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 quest.cds.seq                1 PINT     R                 apSEQ                                                       
 quest.cds.sec.name          15 FREE     L  MIS.SCREEN     VAL=@ADM.CD.REG.SCRN.cd.screen.ee[@.facility,ADM.CD.RE  
                                                           VAL=G.SCRN.questionnaire,ADM.PARAM.quest.page,ADM.CD.R      
                                                           VAL=EG.SCRN.quest.cds.seq]                                  
 quest.cds.sec.name.ee       15 FREE     L  MIS.SCREEN     &(A)AS[gqb,apQ]P[apCP]CDS[apSEQ]|0                      

 Index Files                        Subscripts/Physical Base

 quest.index                        [facility,questionnaire,quest.real.page] = quest.page
                                      &(A)ASQ[gqb,apQ,apQP]