sHelp
                                     PHA.DIS
     i   2
   pha.disease.dictionary
     pha.disease.icd9s
     pha.dis.mdx.screening.items

 Ì     i   2
pha.disease.dictionary    (main) 
[mnemonic]
&TED[ted]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 ted                                                         
 active                       1 YN       L                 &TED[ted]|0                                                 
 fsv.name.1                  80 FREE     L                 &TED[ted]FNM|0                                              
 fsv.name.2                  80 FREE     L                 &TED[ted]FNM|1                                              
 last.update                 50 FREE     L                 &TED[ted]UPD                                                
 name                        55 FREE     L                 &TED[ted]|1                                                 
 Ì     i   2
pha.disease.icd9s    (icd9s) 
[mnemonic, icd9]
&TED[ted]ICD[tedI]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 icd9                         8 FREE     L                 tedI                                                        
 Ì     i   2
pha.dis.mdx.screening.items    (mdx.scrn.items) 
[mnemonic, mdx.screening.item]
&TED[ted]XSI[tedSI]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mdx.screening.item           8 PINT     R                 tedSI                                                       
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pha.disease.dict.icd9.index        [icd9,mnemonic] = active
   icd9.x                             &TEDI[tedI,ted]

 pha.dis.mdx.scrn.item.x            [mdx.screening.item,mnemonic]
   mdx.scrn.item.x                    &TEDXSI[tedSI,ted]

 pha.disease.dict.name.index        [name,mnemonic] = active
   name.x                             &TEDN[tedN,ted]