sHelp
                                     PHA.CLAIM
     i   2
   pha.claim.file
     pha.claim.txns.file
       pha.claim.txn.claims.file
       pha.claim.txn.responses.file
       pha.claim.txn.rxs.file

 Ì     i   2
pha.claim.file    (main) 
[urn]
:TCC[tcc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 urn                         10 URN      L                 tcc                                                         
 claim.or.reversal            1 CHOICE   L                 :TCC[tcc]|4                                                 
 entered                      9 PINT     R                 :TCC[tcc]|2                                                 
 form                        10 FREE     L  PHA.CLAIM.FORM :TCC[tcc]|1                                             
 insurance                   10 FREE     L  MIS.INS.DICT   :TCC[tcc]|0                                             
 lock                        25 FREE     L                 VAL="PHA CLAIM QUEUE #"_urn                                 
 processed                    9 PINT     R                 :TCC[tcc]|3                                                 

 Ì   €�   i   2
pha.claim.txns.file    (txns) 
[urn, txn.q]
:TCC[tcc]X[tccX]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 txn.q                        3 PINT     R                 tccX                                                        
 received                     9 PINT     R                 :TCC[tcc]X[tccX]|1                                          
 transmitted                  9 PINT     R                 :TCC[tcc]X[tccX]|0                                          

 Ì   €�   i   2
pha.claim.txn.claims.file    (claims) 
[urn,txn.q, claim.q]
:TCC[tcc]X[tccX]C[tccC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 claim.q                      3 PINT     R                 tccC                                                        
 claim.field                 10 FREE     L  PHA.CLAIM.FIELD:TCC[tcc]X[tccX]C[tccC]|0                               
 claim.field.value          200 FREE     L                 :TCC[tcc]X[tccX]C[tccC]|1                                   

 Ì   €�   i   2
pha.claim.txn.responses.file    (responses) 
[urn,txn.q, response.q]
:TCC[tcc]X[tccX]R[tccR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 response.q                   3 PINT     R                 tccR                                                        
 response.field              10 FREE     L  PHA.CLAIM.FIELD:TCC[tcc]X[tccX]R[tccR]|0                               
 response.field.value       200 FREE     L                 :TCC[tcc]X[tccX]R[tccR]|1                                   

 Ì   €�   i   2
pha.claim.txn.rxs.file    (rxs) 
[urn,txn.q, rx.q]
:TCC[tcc]X[tccX]RX[tccRX]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rx.q                         3 PINT     R                 tccRX                                                       
 rx.auth.number              14 FREE     L                 :TCC[tcc]X[tccX]RX[tccRX]|4                                 
 rx.num.errors                2 PINT     R                 :TCC[tcc]X[tccX]RX[tccRX]|5                                 
 rx.patient.payment           9 MONEY    R                 :TCC[tcc]X[tccX]RX[tccRX]|2                                 
 rx.response                  1 CHOICE   L                 :TCC[tcc]X[tccX]RX[tccRX]|1                                 
 rx.total.paid                9 MONEY    R                 :TCC[tcc]X[tccX]RX[tccRX]|3                                 
 rx.urn                      10 URN      L  PHA.RX         :TCC[tcc]X[tccX]RX[tccRX]|0                             

 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pha.claim.rx.index                 [rx.urn,urn,txn.q] = rx.q
   rx.x                               ?TCCR[tr,tcc,tccX]