sHelp
                                     PHA.CLAIM
     i   2
 main
   audit.trail
     audit.trail.detail
   claims
   responses
   rxs

 Ì     i   2
main
[urn]
*(T1)TCC[tcc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 urn                         10 URN      L                 tcc                                                         
 claim.or.reversal            1 CHOICE   L                 *(T1)TCC[tcc]|8                                             
 entered                      9 PINT     R                 *(T1)TCC[tcc]|0                                             
 entered.date                 8 DATE     L                 VAL=%Z.date.in.magic(@entered)                              
 form                        10 FREE     L  PHA.CLAIM.FORM *(T1)TCC[tcc]|7                                         
 insurance                   10 FREE     L  MIS.INS        *(T1)TCC[tcc]|6                                         
 lock                        25 FREE     L                 VAL="PHA CLAIM QUEUE #"_urn                                 
 machine                     30 FREE     L  UNV.CLIENT     *(T1)TCC[tcc]|2                                         
 other.claim                 10 URN      L  PHA.CLAIM      *(T1)TCC[tcc]|11                                        
 other.claim.rx.q             3 PINT     R                 *(T1)TCC[tcc]|12                                            
 outbox.msg.urn               8 PINT     R  MIS.XO.MSG     *(T1)TCC[tcc]|9                                         
 received                     9 PINT     R                 *(T1)TCC[tcc]|5                                             
 site                        10 FREE     L  PHA.SITE       *(T1)TCC[tcc]|10                                        
 status                       3 CHOICE   L                 *(T1)TCC[tcc]|3                                             
 transmitted                  9 PINT     R                 *(T1)TCC[tcc]|4                                             
 user                        10 FREE     L  UNV.USER       *(T1)TCC[tcc]|1                                         

 Ì   €   i   2
audit.trail
[urn,  audit.trail.seconds,audit.trail.type]
*(T1)TCC[tcc]AU[tccAS,tccAT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 audit.trail.seconds         13 PINT     R                 tccAS                                                       
 audit.trail.type             2 FREE     L                 tccAT                                                       
 audit.trail.actual.date      8 DATE     L                 *(T1)TCC[tcc]AU[tccAS,tccAT]|1                              
 audit.trail.actual.time      4 HHMM     L                 *(T1)TCC[tcc]AU[tccAS,tccAT]|2                              
 audit.trail.date             8 DATE     L                 VAL=%Z.date.in.magic(@audit.trail.seconds#.)                
 audit.trail.device          10 FREE     L                 *(T1)TCC[tcc]AU[tccAS,tccAT]|3                              
 audit.trail.time             4 HHMM     L                 VAL=%Z.time.out(@audit.trail.seconds#.)                     
 audit.trail.type.name        6 FREE     L                 VAL=IF{@PHA.PARAM.audit.trail.type.name[PHA.CLAIM.audi      
                                                           VAL=t.trail.type];PHA.CLAIM.audit.trail.type}               
 audit.trail.user            10 FREE     L                 *(T1)TCC[tcc]AU[tccAS,tccAT]|0                              

 Ì   €   i   2
audit.trail.detail
[urn,audit.trail.seconds,audit.trail.type,  audit.trail.q]
*(T1)TCC[tcc]AU[tccAS,tccAT]D[tccAQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 audit.trail.q                2 PINT     R                 tccAQ                                                       
 audit.trail.line            70 FREE     L                 *(T1)TCC[tcc]AU[tccAS,tccAT]D[tccAQ]                        

 Ì   €   i   2
claims
[urn,  claim.segment,claim.q]
*(T1)TCC[tcc]C[tccCS,tccC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 claim.segment                2 PINT     R                 tccCS                                                       
 claim.q                      3 PINT     R                 tccC                                                        
 claim.field                 10 FREE     L  PHA.CLAIM.FIELD*(T1)TCC[tcc]C[tccCS,tccC]|0                            
 claim.field.value          200 FREE     L                 *(T1)TCC[tcc]C[tccCS,tccC]|1                                

 Ì   €   i   2
responses
[urn,  response.q]
*(T1)TCC[tcc]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*(T1)TCC[tcc]R[tccR]|0                                  
 response.field.value       200 FREE     L                 *(T1)TCC[tcc]R[tccR]|1                                      

 Ì   €   i   2
rxs
[urn,  rx.q]
*(T1)TCC[tcc]RX[tccRX]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rx.q                         3 PINT     R                 tccRX                                                       
 rx.auth.number              14 FREE     L                 *(T1)TCC[tcc]RX[tccRX]|7                                    
 rx.charge                    9 MONEY    R                 *(T1)TCC[tcc]RX[tccRX]R|0                                   
 rx.charge.type              10 URN      L  PHA.CT         *(T1)TCC[tcc]RX[tccRX]R|3                               
 rx.cost                      9 MONEY    R                 *(T1)TCC[tcc]RX[tccRX]R|1                                   
 rx.error.codes              40 FREE     L                 *(T1)TCC[tcc]RX[tccRX]|9                                    
 rx.num.errors                2 PINT     R                 *(T1)TCC[tcc]RX[tccRX]|8                                    
 rx.other.insurance          10 FREE     L  MIS.INS        *(T1)TCC[tcc]RX[tccRX]|11                               
 rx.partial.q                 3 PINT     R                 *(T1)TCC[tcc]RX[tccRX]|2                                    
 rx.patient.payment           9 MONEY    R                 *(T1)TCC[tcc]RX[tccRX]|5                                    
 rx.payment                   9 MONEY    R                 *(T1)TCC[tcc]RX[tccRX]R|2                                   
 rx.quantity                  8 DEC      R                 *(T1)TCC[tcc]RX[tccRX]R|4                                   
 rx.refill.q                  3 INT      R                 *(T1)TCC[tcc]RX[tccRX]|1                                    
 rx.response                  1 CHOICE   L                 *(T1)TCC[tcc]RX[tccRX]|4                                    
 rx.reversal.q                3 PINT     R                 *(T1)TCC[tcc]RX[tccRX]|3                                    
 rx.rtn.flag                  5 FREE     L                 *(T1)TCC[tcc]RX[tccRX]R|5                                   
 rx.status                    7 CHOICE   L                 *(T1)TCC[tcc]RX[tccRX]|10                                   
 rx.total.paid                9 MONEY    R                 *(T1)TCC[tcc]RX[tccRX]|6                                    
 rx.urn                      10 URN      L  PHA.RX         *(T1)TCC[tcc]RX[tccRX]|0                                

 Index Files                        Subscripts/Physical Base

 entered.x                          [entered,urn]
                                      ?(T)TCCE[tccE,tcc]

 outbox.x                           [outbox.msg.urn] = urn
                                      ?(T)TCCX[gwd]

 rx.x                               [rx.urn,urn] = rx.q
                                      ?(T)TCCR[tr,tcc]