sHelp
                                     PHA.TAPE
     i   2
 main
   patients
     rxs

 Ì   €   i   2
main
[log]
*(T1)TE[te]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 log                          3 PINT     R                 te                                                          
 date                         8 DATE     L                 VAL=%Z.date.in.magic(@PHA.TAPE.entered)                     
 entered                      9 PINT     R                 *(T1)TE[te]|0                                               
 start.date                   8 DATE     L                 *(T1)TE[te]|3                                               
 status                       3 CHOICE   L                 *(T1)TE[te]|5                                               
 stop.date                    8 DATE     L                 *(T1)TE[te]|4                                               
 time                         4 HHMM     L                 VAL=%Z.time.out(@PHA.TAPE.entered)                          
 type                         3 CHOICE   L                 *(T1)TE[te]|1                                               
 user                        10 FREE     L  MIS.USER       *(T1)TE[te]|2                                           
 ver.date                     8 DATE     L                 VAL=%Z.date.in.magic(@PHA.TAPE.ver.entered)                 
 ver.entered                  9 PINT     R                 *(T1)TE[te]|6                                               
 ver.time                     4 HHMM     L                 VAL=%Z.time.out(@PHA.TAPE.ver.entered)                      
 ver.user                    10 FREE     L  MIS.USER       *(T1)TE[te]|7                                           
 Ì   €   i   2
patients
[log,  patient]
*(T1)TE[te]P[aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 patient                     30 FREE     L  PHA.PAT        aa                                                      
 pat.acct.number             12 FREE     L                 *(T1)TE[te]P[aa]|0                                          
 pat.name                    30 FREE     L                 *(T1)TE[te]P[aa]|1                                          
 pat.unit.number             10 FREE     L                 *(T1)TE[te]P[aa]|2                                          
 Ì   €   i   2
rxs
[log,patient,  rx]
*(T1)TE[te]P[aa]R[tr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rx                          10 URN      L  PHA.RX         tr                                                      
 rx.instr                    35 FREE     L                 *(T1)TE[te]P[aa]R[tr]|2                                     
 rx.meds                     35 FREE     L                 *(T1)TE[te]P[aa]R[tr]|1                                     
 rx.number                   11 FREE     L                 *(T1)TE[te]P[aa]R[tr]|0                                     

 Index Files                        Subscripts/Physical Base

 entered.x                          [entered] = log
                                      ?(T)TEE[teE]