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                                                   
 ma.end.date                  8 DATE     L                 :TP["MA"]|8                                                 
 ma.end.time                  4 HHMM     L                 :TP["MA"]|9                                                 
 ma.halt.type                15 CHOICE   L                 :TP["MA"]|11                                                
 ma.halt.user                10 FREE     L  MIS.USER       :TP["MA"]|10                                            
 ma.last.patient             30 FREE     L  PHA.PAT        :TP["MA"]|0                                             
 ma.num.archived              9 INT      R                 :TP["MA"]|3                                                 
 ma.num.considered            9 INT      R                 :TP["MA"]|1                                                 
 ma.num.purged                9 INT      R                 :TP["MA"]|2                                                 
 ma.start.date                8 DATE     L                 :TP["MA"]|5                                                 
 ma.start.time                4 HHMM     L                 :TP["MA"]|6                                                 
 ma.start.user               10 FREE     L  MIS.USER       :TP["MA"]|7                                             
 ma.status                   10 CHOICE   L                 :TP["MA"]|4                                                 
 med                         10 FREE     L  PHA.DRUG                                                               
 mp.end.date                  8 DATE     L                 :TP["MP"]|8                                                 
 mp.end.time                  4 HHMM     L                 :TP["MP"]|9                                                 
 mp.halt.type                15 CHOICE   L                 :TP["MP"]|11                                                
 mp.halt.user                10 FREE     L  MIS.USER       :TP["MP"]|10                                            
 mp.last.patient             30 FREE     L  PHA.PAT        :TP["MP"]|0                                             
 mp.num.archived              9 INT      R                 :TP["MP"]|3                                                 
 mp.num.considered            9 INT      R                 :TP["MP"]|1                                                 
 mp.num.purged                9 INT      R                 :TP["MP"]|2                                                 
 mp.start.date                8 DATE     L                 :TP["MP"]|5                                                 
 mp.start.time                4 HHMM     L                 :TP["MP"]|6                                                 
 mp.start.user               10 FREE     L  MIS.USER       :TP["MP"]|7                                             
 mp.status                   10 CHOICE   L                 :TP["MP"]|4                                                 
 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                                                      
 roto.urn                    10 FREE     L                                                                             
 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.mam.patient.x            [patient.urn,rx.number] = rx.urn
   mam.patient.x                      :TPP[aa,trN]

 pha.purge.mam.res.oto.pat.x        [patient.urn,roto.urn] = roto.urn
   mam.res.oto.pat.x                  :TPROTOPX[aa,troto]

 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]