sHelp
                                     PHA.PURGE
     i   2
   pha.post.purge
     pha.purge.patients
       pha.purge.purge.dates
       pha.purge.rxs

 Ì     i   2
pha.post.purge    (main) 
:TP

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 end.date                     8 DATE     L                 :TP|8                                                       
 end.time                     4 HHMM     L                 :TP|9                                                       
 free.blocks                 10 INT      R                 :TP|13                                                      
 generic                     10 FREE     L  PHA.GENERIC                                                            
 halt.type                   15 CHOICE   L                 :TP|11                                                      
 halt.user                   10 FREE     L  MIS.USER       :TP|10                                                  
 last.patient                30 FREE     L  PHA.PAT        :TP|0                                                   
 med                         10 FREE     L  PHA.DRUG                                                               
 num.archived                 6 INT      R                 :TP|3                                                       
 num.considered               6 INT      R                 :TP|1                                                       
 num.purged                   6 INT      R                 :TP|2                                                       
 patient                     30 FREE     L  PHA.PAT                                                                
 pp.list.printed              8 DATE     L                 :TP|12                                                      
 rx.urn                      10 URN      L  PHA.RX                                                                 
 start.date                   8 DATE     L                 :TP|5                                                       
 start.time                   4 HHMM     L                 :TP|6                                                       
 start.user                  10 FREE     L  MIS.USER       :TP|7                                                   
 status                      10 CHOICE   L                 :TP|4                                                       

 Ì     i   2
pha.purge.patients    (patients) 
[patient.urn]
: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                 :TP["P",aa]|1                                               
 computed.dob                 8 BDATE    L                 :TP["P",aa]|4                                               
 discharge.date               8 DATE     L                 :TP["P",aa]|6                                               
 first.name                  25 FREE     L                                                                             
 last.name                   25 FREE     L                                                                             
 name                        30 FREE     L                 :TP["P",aa]|0                                               
 patient.status               7 FREE     L                 :TP["P",aa]|3                                               
 registration.date            8 DATE     L                 :TP["P",aa]|5                                               
 sort.by                      5 CHOICE   L                                                                             
 sort.key                    30 FREE     L                                                                             
 unit.number                 10 FREE     L                 :TP["P",aa]|2                                               
 yn                           1 YN       L                                                                             

 Ì   €�   i   2
pha.purge.purge.dates    (purge.dates) 
[patient.urn, purge.date]
: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                 :TP["P",aa]D[tpD]|0                                         

 Ì   €�   i   2
pha.purge.rxs    (rxs) 
[patient.urn, rx.number]
:TP["P",aa]R[trN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rx.number                   11 FREE     L                 trN                                                         
 instr                       90 FREE     L                 :TP["P",aa]R[trN]I                                          
 meds                        90 FREE     L                 :TP["P",aa]R[trN]M                                          
 rx.start.date                8 DATE     L                 :TP["P",aa]R[trN]|0                                         

 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pha.purge.acct.number.index        [acct.number] = patient.urn
   acct.x                             :TPA[tpA]

 pha.purge.date.index               [purge.date,patient.urn] = archived
   date.x                             :TPD[tpD,aa]

 pha.purge.name.index               [last.name,first.name,patient.urn]
   name.x                             :TPN[tpL,tpF,aa]

 pha.purge.start.date.index         [rx.start.date,rx.urn]
   start.date.x                       :TPH[trD,tr]

 pha.purge.unit.number.index        [unit.number,patient.urn]
   unit.x                             :TPU[tpU,aa]