sHelp
                                     PHA.RFMT
       2
   pha.report.format.dictionary
     pha.report.format.refill.data
   pha.rfmt.fpt.frag.data
     pha.rfmt.rpt.fragments

 Ì       2
pha.report.format.dictionary    (main) 
[mnemonic]
&TDN[tdn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 tdn                                                         
 active                       1 YN       L                 &TDN[tdn]|0                                                 
 cpi                          2 CHOICE   L                 &TDN[tdn]L|0                                                
 cpl                          3 PINTZ    R                 &TDN[tdn]L|3                                                
 description                 30 FREE     L                 &TDN[tdn]|1                                                 
 last.update                 50 FREE     L                 &TDN[tdn]UPD                                                
 lpi                          2 CHOICE   L                 &TDN[tdn]L|1                                                
 lpp                          3 PINTZ    R                 &TDN[tdn]L|4                                                
 page.hdr                    70 FREE     L                 &TDN[tdn]F|0                                                
 page.trailer                70 FREE     L                 &TDN[tdn]F|1                                                
 patient.cont.hdr            70 FREE     L                 &TDN[tdn]F2|1                                               
 patient.hdr                 70 FREE     L                 &TDN[tdn]F2|0                                               
 patient.trailer             70 FREE     L                 &TDN[tdn]F2|2                                               
 pro.acct.or.mri              1 CHOICE   L                 &TDN[tdn]P|6                                                
 pro.from.dc.date             3 PINTZ    R                 &TDN[tdn]P|8                                                
 pro.generic.or.trade         1 CHOICE   L                 &TDN[tdn]P|7                                                
 pro.incl.dc                  1 YN       L                 &TDN[tdn]P|4                                                
 pro.incl.unv                 1 YN       L                 &TDN[tdn]P|5                                                
 pro.sort1                    8 CHOICE   L                 &TDN[tdn]P|0                                                
 pro.sort2                    8 CHOICE   L                 &TDN[tdn]P|1                                                
 pro.sort3                    8 CHOICE   L                 &TDN[tdn]P|2                                                
 ps                           3 PINTZ    R                 &TDN[tdn]L|2                                                
 rx.detail                   70 FREE     L                 &TDN[tdn]F3|1                                               
 rx.hdr                      70 FREE     L                 &TDN[tdn]F3|0                                               
 title                       55 FREE     L                 &TDN[tdn]|3                                                 
 type                         3 CHOICE   L                 &TDN[tdn]|2                                                 
 Ì        2
pha.report.format.refill.data    (refill.data) 
[mnemonic, ref.sec.q]
&TDN[tdn]R[tdnS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.sec.q                    2 PINT     R                 tdnS                                                        
 ref.sec                     10 FREE     L  PHA.RLS        &TDN[tdn]R[tdnS]                                        
 Ì       2
pha.rfmt.fpt.frag.data    (rpt.frag.data) 
&TDNF

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rpt.frag.compile.date        8 DATE     L                 VAL=%Z.date.in.magic(@rpt.frag.last.compile)                
 rpt.frag.compile.time        4 HHMM     L                 VAL=%Z.time.out(@rpt.frag.last.compile)                     
 rpt.frag.last.compile        9 PINT     R                 &TDNF|0                                                     
 Ì       2
pha.rfmt.rpt.fragments    (rpt.fragments) 
[rpt.frag]
&TDNF[tdnF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rpt.frag                    70 FREE     L                 tdnF                                                        
 rpt.frag.lines               2 INT      R                 &TDNF[tdnF]