sHelp
                                     PP.HOOPP
       2
   pp.hoopp.dict
     pp.hoopp.high.wholds
     pp.hoopp.low.wholds
     pp.hoopp.other.wholds
     pp.hoopp.retro.years
       pp.hoopp.retro.earnings
       pp.hoopp.retro.whold.high
       pp.hoopp.retro.whold.low
     pp.hoopp.retro1.earns
     pp.hoopp.retro2.earns
     pp.hoopp.retro3.earns
     pp.hoopp.retro4.earns

 Ì       2
pp.hoopp.dict    (main) 
&JNH

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 hospital.code                4 PINT     R                 &JNH|0                                                      
 last.update                 50 FREE     L                 &JNHUPD                                                     
 Ì       2
pp.hoopp.high.wholds    (high.withholdings) 
[high.withholding]
&JNH["H",jw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 high.withholding             8 PDEC     L  PP.WHOLD       jw                                                      
 Ì       2
pp.hoopp.low.wholds    (low.withholdings) 
[low.withholding]
&JNH["L",jw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 low.withholding              8 PDEC     L  PP.WHOLD       jw                                                      
 Ì       2
pp.hoopp.other.wholds    (other.withholdings) 
[other.withholding]
&JNH["O",jw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 other.withholding            8 PDEC     L  PP.WHOLD       jw                                                      
 Ì       2
pp.hoopp.retro.years    (retro.years) 
[retro.year]
&JNH["RY",jnhy]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro.year                   1 CHOICE   L                 jnhy                                                        
 Ì       2
pp.hoopp.retro.earnings    (retro.earnings) 
[retro.year, retro.earning]
&JNH["RY",jnhy]ER[je]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro.earning                8 PDEC     L  PP.EARN        je                                                      
 Ì       2
pp.hoopp.retro.whold.high    (retro.wholdings.high) 
[retro.year, retro.whold.high]
&JNH["RY",jnhy]WH[jw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro.whold.high             8 PDEC     L  PP.WHOLD       jw                                                      
 Ì       2
pp.hoopp.retro.whold.low    (retro.wholdings.low) 
[retro.year, retro.whold.low]
&JNH["RY",jnhy]WL[jw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro.whold.low              8 PDEC     L  PP.WHOLD       jw                                                      
 Ì       2
pp.hoopp.retro1.earns    (retro1.earnings) 
[retro1.earning]
&JNH["R1",je]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro1.earning               8 PDEC     L  PP.EARN        je                                                      
 Ì       2
pp.hoopp.retro2.earns    (retro2.earnings) 
[retro2.earning]
&JNH["R2",je]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro2.earning               8 PDEC     L  PP.EARN        je                                                      
 Ì       2
pp.hoopp.retro3.earns    (retro3.earnings) 
[retro3.earning]
&JNH["R3",je]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro3.earning               8 PDEC     L  PP.EARN        je                                                      
 Ì       2
pp.hoopp.retro4.earns    (retro4.earnings) 
[retro4.earning]
&JNH["R4",je]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 retro4.earning               8 PDEC     L  PP.EARN        je