sHelp
                                     PHA.PURGE
     i   2
 main
   patients
     purge.dates
     rxs

 Ì   €   i   2
main
*(T1)TP

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 alert.flag                   1 YN       L                 *(T1)TP|14                                                  
 end.date                     8 DATE     L                 *(T1)TP|8                                                   
 end.time                     4 HHMM     L                 *(T1)TP|9                                                   
 generic                     12 FREE     L  PHA.GENERIC                                                            
 halt.type                   15 CHOICE   L                 *(T1)TP|11                                                  
 halt.user                   10 FREE     L  MIS.USER       *(T1)TP|10                                              
 last.patient                30 FREE     L  PHA.PAT        *(T1)TP|0                                               
 med                         10 FREE     L  PHA.DRUG                                                               
 num.archived                 6 INT      R                 *(T1)TP|3                                                   
 num.considered               6 INT      R                 *(T1)TP|1                                                   
 num.deleted                  6 INT      R                 *(T1)TP|13                                                  
 num.errors                   6 INT      R                 *(T1)TP|12                                                  
 num.purged                   6 INT      R                 *(T1)TP|2                                                   
 patient                     30 FREE     L  PHA.PAT                                                                
 rx.urn                      10 URN      L  PHA.RX                                                                 
 start.date                   8 DATE     L                 *(T1)TP|5                                                   
 start.time                   4 HHMM     L                 *(T1)TP|6                                                   
 start.user                  10 FREE     L  MIS.USER       *(T1)TP|7                                               
 status                      10 CHOICE   L                 *(T1)TP|4                                                   
 Ì   €   i   2
patients
[patient.urn]
*(T1)TP["P",aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 patient.urn                 30 FREE     L  PHA.PAT        aa                                                      
 acct.number                 12 FREE     L                 *(T1)TP["P",aa]|1                                           
 computed.dob                10 BDATE    L                 *(T1)TP["P",aa]|4                                           
 discharge.date               8 DATE     L                 *(T1)TP["P",aa]|6                                           
 first.name                  25 FREE     L                                                                             
 last.name                   25 FREE     L                                                                             
 mri.urn                     25 URN      L  MRI.PAT        *(T1)TP["P",aa]|7                                       
 name                        30 FREE     L                 *(T1)TP["P",aa]|0                                           
 patient.status               7 FREE     L                 *(T1)TP["P",aa]|3                                           
 registration.date            8 DATE     L                 *(T1)TP["P",aa]|5                                           
 sort.by                      5 CHOICE   L                                                                             
 sort.key                    30 FREE     L                                                                             
 unit.number                 10 FREE     L                 *(T1)TP["P",aa]|2                                           
 yn                           1 YN       L                                                                             
 Ì   €   i   2
purge.dates
[patient.urn,  purge.date]
*(T1)TP["P",aa]D[tpD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 purge.date                   8 DATE     L                 tpD                                                         
 archived                     1 YN       L                 *(T1)TP["P",aa]D[tpD]|0                                     
 Ì   €   i   2
rxs
[patient.urn,  rx.number]
*(T1)TP["P",aa]R[trN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rx.number                   11 FREE     L                 trN                                                         
 rx.purge.urn                10 URN      L  PHA.RX         *(T1)TP["P",aa]R[trN]                                   

 Index Files                        Subscripts/Physical Base

 acct.x                             [acct.number] = patient.urn
                                      ?(T)TPA[tpA]

 date.x                             [purge.date,patient.urn] = archived
                                      ?(T)TPD[tpD,aa]

 name.x                             [last.name,first.name,patient.urn]
                                      ?(T)TPN[tpL,tpF,aa]

 unit.x                             [unit.number,patient.urn]
                                      ?(T)TPU[tpU,aa]