sHelp
                                     LAB.C.DFT
     i   2
   lab.c.defaults
     lab.c.defaults.defaults
       LAB.C.DFT.defaults.by.site
     lab.c.defaults.prompts
       LAB.C.DFT.prompt.sites

 Ì     i   2
lab.c.defaults    (main) 
[routine]
&SCD[scd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 routine                     10 FREE     L                 scd                                                         
 active                       1 YN       L                 &SCD[scd]|0                                                 
 custom                       1 YN       L                 &SCD[scd]|2                                                 
 last.update                 50 FREE     L                 &SCD[scd]UPD                                                
 list.active                  1 YN       L                 VAL=IF{@.user="MEDITOOL" "Y";@active}                       
 routine.name                35 FREE     L                 &SCD[scd]|1                                                 
 Ì     i   2
lab.c.defaults.defaults    (defaults.by.prompt.code) 
[routine, prompt.code.by.value]
&SCD[scd]D[scdP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 prompt.code.by.value        10 FREE     L                 scdP                                                        
 dft                         30 FREE     L                 &SCD[scd]D[scdP]                                            
 Ì     i   2
LAB.C.DFT.defaults.by.site    (defaults.by.site) 
[routine,prompt.code.by.value, site]
&SCD[scd]D[scdP]S[scl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 site                        10 FREE     L  LAB.C.SITE     scl                                                     
 site.dft                    30 FREE     L                 &SCD[scd]D[scdP]S[scl]                                      
 Ì     i   2
lab.c.defaults.prompts    (prompts.by.seq.num) 
[routine, prompt.seq.num]
&SCD[scd]P[scdN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 prompt.seq.num               7 PDEC     R                 scdN                                                        
 choices                     80 FREE     L                 &SCD[scd]P[scdN]C|0                                         
 default.by.seq.num          30 FREE     L                 &SCD[scd]P[scdN]|6                                          
 default.view                30 FREE     L                 VAL=IF{@default.by.seq.num;"NO DEFAULT"}                    
 dft.data.type                7 CHOICE   L                 &SCD[scd]P[scdN]|4                                          
 dft.extra.check             80 FREE     L                 &SCD[scd]P[scdN]|5                                          
 dft.length                   2 PINT     R                 &SCD[scd]P[scdN]|3                                          
 help                        70 FREE     L                 &SCD[scd]P[scdN]HLP                                         
 prompt.code                 10 FREE     L                 &SCD[scd]P[scdN]|0                                          
 prompt.custom                1 YN       L                 &SCD[scd]P[scdN]|2                                          
 prompt.text                 30 FREE     L                 &SCD[scd]P[scdN]|1                                          
 Ì     i   2
LAB.C.DFT.prompt.sites    (prompt.sites) 
[routine,prompt.seq.num, prompt.site]
&SCD[scd]P[scdN]S[scl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 prompt.site                 10 FREE     L  LAB.C.SITE     scl                                                     
 prompt.site.default         30 FREE     L                 &SCD[scd]P[scdN]S[scl]                                      
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 LAB.C.DFT.site.x                   [routine,site]
   site.x                             &SCDS[scd,scl]