sHelp
                                     PHA.PU
       2
   pha.price.update.file
     pha.pu.already.filed
     price.update.data

 Ì       2
pha.price.update.file    (main) 
[run]
:TZ[tz]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 run                          4 PINT     R                 tz                                                          
 end.date                     8 DATE     L                 :TZ[tz]|3                                                   
 end.time                     4 HHMM     L                 :TZ[tz]|4                                                   
 start.date                   8 DATE     L                 :TZ[tz]|1                                                   
 start.time                   4 HHMM     L                 :TZ[tz]|2                                                   
 type                         5 CHOICE   L                 :TZ[tz]|0                                                   
 user                        10 FREE     L  MIS.USER       :TZ[tz]|5                                               

 Ì   €�     2
pha.pu.already.filed    (already.filed) 
[run, ndc.filed]
:TZ[tz]F[tfND]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ndc.filed                   11 FREE     L                 tfND                                                        
 drug.filed                   1 FREE     L                 :TZ[tz]F[tfND]|0                                            

 Ì   €�     2
price.update.data    (price.data) 
[run, ndc]
:TZ[tz]P[tfND]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ndc                         12 FREE     L                 tfND                                                        
 extraction.date              8 DATE     L                 :TZ[tz]P[tfND]|1                                            
 mnemonic                    10 FREE     L                 :TZ[tz]P[tfND]|0                                            
 new.unit.cost                9 DECZ     R                 :TZ[tz]P[tfND]|5                                            
 old.cost.up                 10 DECZ     R                 :TZ[tz]P[tfND]|6                                            
 old.unit.cost                9 DECZ     R                 :TZ[tz]P[tfND]|4                                            
 old.unit.cost.pp             1 YN       L                 :TZ[tz]P[tfND]|8                                            
 old.vendor                  11 FREE     L  MIS.VEN        :TZ[tz]P[tfND]|7                                        
 pkg.size                    13 DECZ     R                 :TZ[tz]P[tfND]|3                                            
 purchase.price               9 DECZ     R                 :TZ[tz]P[tfND]|2