sHelp
                                     ADM.CD.REG.SCRN
     i   2
   adm.customer.defd.reg.scrn.tbl
     adm.customer.def.scrn.quest
       adm.customer.def.scrn.mnem
         adm.customer.def.scrn.cds
         adm.customer.def.scrn.req.flds
         adm.customer.def.scrn.std.flds
         adm.customer.def.scrn.unreq.f

 Ì     i   2
adm.customer.defd.reg.scrn.tbl    (main) 
[facility]
&AS[gqb]

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 questionnaire               10 FREE     L                 apQ                                                         
 last.update                 10 PINT     R                 &AS[gqb,apQ]UPD                                             
 quest.mnemonic               5 FREE     L                 &AS[gqb,apQ]|1                                              
 quest.page                   1 PINT     R                 &AS[gqb,apQ]|0                                              
 Ì      i   2
adm.customer.def.scrn.mnem    (questionnaire.mnemonic) 
[facility,questionnaire, quest.mn.mnemonic]
&AS[gqb,apQ]MN[apMN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 quest.mn.mnemonic            5 FREE     L                 apMN                                                        
 quest.std.page               1 PINT     R                 &AS[gqb,apQ]MN[apMN]|0                                      
 Ì      i   2
adm.customer.def.scrn.cds    (questionnaire.cds) 
[facility,questionnaire,quest.mn.mnemonic, quest.cds.seq]
&AS[gqb,apQ]MN[apMN]CDS[apSEQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 quest.cds.seq                1 PINT     R                 apSEQ                                                       
 quest.cds.name              15 FREE     L  MIS.SCREEN     VAL=@ADM.CD.REG.SCRN.quest.cds.name.ee[@.facility,ADM.  
                                                           VAL=CD.REG.SCRN.questionnaire,ADM.CD.REG.SCRN.quest.mn      
                                                           VAL=.mnemonic,ADM.CD.REG.SCRN.quest.cds.seq]                
 quest.cds.name.ee           15 FREE     L  MIS.SCREEN     &AS[gqb,apQ]MN[apMN]CDS[apSEQ]|1                        
 quest.cds.section           35 FREE     L                 &AS[gqb,apQ]MN[apMN]CDS[apSEQ]|0                            
 Ì      i   2
adm.customer.def.scrn.req.flds    (questionnaire.req.flds) 
[facility,questionnaire,quest.mn.mnemonic, quest.req.flds]
&AS[gqb,apQ]MN[apMN]R[asR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 quest.req.flds              25 FREE     L                 asR                                                         
 quest.req.fld.num            6 FREE     L                 &AS[gqb,apQ]MN[apMN]R[asR]|0                                
 quest.req.fld.test          99 FREE     L                 &AS[gqb,apQ]MN[apMN]R[asR]|1                                
 Ì      i   2
adm.customer.def.scrn.std.flds    (questionnaire.std.flds) 
[facility,questionnaire,quest.mn.mnemonic, quest.std.req.fld]
&AS[gqb,apQ]MN[apMN]S[asS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 quest.std.req.fld           25 FREE     L                 asS                                                         
 quest.std.req.fld.num        6 FREE     L                 &AS[gqb,apQ]MN[apMN]S[asS]|0                                
 quest.std.req.fld.object    99 FREE     L                 &AS[gqb,apQ]MN[apMN]S[asS]|1                                
 quest.std.req.fld.req.ch    99 FREE     L                 &AS[gqb,apQ]MN[apMN]S[asS]|2                                
 Ì      i   2
adm.customer.def.scrn.unreq.f    (questionnaire.unreq.flds) 
[facility,questionnaire,quest.mn.mnemonic, quest.unreq.flds]
&AS[gqb,apQ]MN[apMN]U[asU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 quest.unreq.flds            25 FREE     L                 asU                                                         
 quest.unreq.fld.num          6 FREE     L                 &AS[gqb,apQ]MN[apMN]U[asU]|0                                
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 adm.customer.def.scrn.quest.pg     [facility,questionnaire,quest.page] = quest.mnemonic
   questionnaire.pages                &AS[gqb,apQ,apQP]