sHelp
                                     LAB.C.PURGE
     i   2
   lab.c.purge.archive
     lab.c.purge.archive.donors
       lab.c.purge.donor.purge.dates
       lab.c.purge.arch.donor.specs
         lab.c.purge.arch.donor.orders
     lab.c.purge.archive.bbk.units
       lab.c.purge.arch.bbk.unit.spec
         lab.c.purge.arch.unit.spec.ord
     lab.c.purge.archive.patients
       lab.c.purge.purge.dates
       lab.c.purge.archive.specimens
         lab.c.purge.archive.orders
       lab.c.purge.od.x.pth.procs


 Ì     i   2
lab.c.purge.archive    (main) 
:SSA

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 end.date                     8 DATE     L                 :SSA|8                                                      
 end.time                     4 HHMM     L                 :SSA|9                                                      
 free.blocks                 10 INT      R                 :SSA|13                                                     
 halt.type                   15 CHOICE   L                 :SSA|11                                                     
 halt.user                   10 FREE     L  MIS.USER       :SSA|10                                                 
 last.bbk.donor              30 URN      L  LAB.B.DONOR    :SSA|15                                                 
 last.bbk.unit               10 URN      L  LAB.B.UNIT     :SSA|14                                                 
 last.patient                30 FREE     L  LAB.C.PAT      :SSA|0                                                  
 mag.arch.required            1 YN       L                 :SSA|22                                                     
 num.archived                 6 INT      R                 :SSA|3                                                      
 num.considered               6 INT      R                 :SSA|1                                                      
 num.donor.archived           6 INT      R                 :SSA|21                                                     
 num.donor.considered         6 INT      R                 :SSA|19                                                     
 num.donor.purged             6 INT      R                 :SSA|20                                                     
 num.purged                   6 INT      R                 :SSA|2                                                      
 num.unit.archived            6 INT      R                 :SSA|18                                                     
 num.unit.considered          6 INT      R                 :SSA|16                                                     
 num.unit.purged              6 INT      R                 :SSA|17                                                     
 od.med.rec.form             12 FREE     L  MIS.ELF                                                                
 patient                     30 FREE     L  LAB.C.PAT                                                              
 pp.list.printed              8 DATE     L                 :SSA|12                                                     
 req.urn                     10 URN      L  LAB.C.REQ                                                              
 start.date                   8 DATE     L                 :SSA|5                                                      
 start.time                   4 HHMM     L                 :SSA|6                                                      
 start.user                  10 FREE     L  MIS.USER       :SSA|7                                                  
 status                      10 CHOICE   L                 :SSA|4                                                      

 Ì     i   2
lab.c.purge.archive.donors    (bbk.donors) 
[bbk.donor]
:SSA["BD",sbb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.donor                   30 URN      L  LAB.B.DONOR    sbb                                                     
 bbk.donor.age                7 AGE      R                 :SSA["BD",sbb]|5                                            
 bbk.donor.birthdate          8 BDATE    L                 :SSA["BD",sbb]|4                                            
 bbk.donor.first.name        30 FREE     L                                                                             
 bbk.donor.health.care.num   12 FREE     L                 :SSA["BD",sbb]|2                                            
 bbk.donor.last.name         30 FREE     L                                                                             
 bbk.donor.name              30 NAME     L                 :SSA["BD",sbb]|1                                            
 bbk.donor.number             8 FREE     L                 :SSA["BD",sbb]|0                                            
 bbk.donor.sex                1 CHOICE   L                 :SSA["BD",sbb]|3                                            
 bbk.donor.soc.sec.num       12 FREE     L                 :SSA["BD",sbb]|2                                            
 bbk.donor.status             1 FREE     L                 :SSA["BD",sbb]|6                                            

 Ì   €   i   2
lab.c.purge.donor.purge.dates    (bbk.donor.purge.dates) 
[bbk.donor, bbk.donor.purge.date]
:SSA["BD",sbb]D[ssaD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.donor.purge.date         8 DATE     L                 ssaD                                                        
 bbk.donor.archive            1 YN       L                 :SSA["BD",sbb]D[ssaD]|0                                     

 Ì   €   i   2
lab.c.purge.arch.donor.specs    (bbk.donor.specimens) 
[bbk.donor, bbk.donor.mod.and.spec]
:SSA["BD",sbb]S[ssaS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.donor.mod.and.spec      14 FREE     L                 ssaS                                                        
 bbk.donor.module.mne         3 FREE     L                 VAL="LAB.MIC.BBK.PTH"#(L("LMBP",@bbk.donor.mod.and.spe      
                                                           VAL=c#0)_.)                                                 
 bbk.donor.spec.coll.date     8 DATE     L                 :SSA["BD",sbb]S[ssaS]|0                                     
 bbk.donor.spec.module        1 CHOICE   L                 VAL=@LAB.C.PURGE.bbk.donor.mod.and.spec#0                   
 bbk.donor.spec.number       13 FREE     L                 VAL=@LAB.C.PURGE.bbk.donor.mod.and.spec%0                   

 Ì   €   i   2
lab.c.purge.arch.donor.orders    (bbk.donor.spec.orders) 
[bbk.donor,bbk.donor.mod.and.spec, bbk.donor.order.q]
:SSA["BD",sbb]S[ssaS]O[ssaQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.donor.order.q            2 PINT     R                 ssaQ                                                        
 bbk.donor.order             10 PDEC     R                 :SSA["BD",sbb]S[ssaS]O[ssaQ]|0                              
 bbk.donor.order.count        1 PINT     R                 :SSA["BD",sbb]S[ssaS]O[ssaQ]|1                              
 bbk.donor.order.source      10 FREE     L  LAB.M.SRC      :SSA["BD",sbb]S[ssaS]O[ssaQ]|2                          
 bbk.donor.order.spec.desc   10 FREE     L  LAB.M.SPDESC   :SSA["BD",sbb]S[ssaS]O[ssaQ]|3                          

 Ì     i   2
lab.c.purge.archive.bbk.units    (bbk.units) 
[bbk.unit]
:SSA["BU",sbu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.unit                    10 URN      L  LAB.B.UNIT     sbu                                                     
 bbk.unit.archived            1 YN       L                 :SSA["BU",sbu]|12                                           
 bbk.unit.blood.type         10 FREE     L  LAB.B.TYPE     :SSA["BU",sbu]|6                                        
 bbk.unit.coll.date           8 DATE     L                 :SSA["BU",sbu]|3                                            
 bbk.unit.coll.time           4 HHMM     L                 :SSA["BU",sbu]|4                                            
 bbk.unit.donor              30 URN      L  LAB.B.DONOR    :SSA["BU",sbu]|15                                       
 bbk.unit.expire.date         8 DATE     L                 :SSA["BU",sbu]|8                                            
 bbk.unit.expire.time         4 HHMM     L                 :SSA["BU",sbu]|9                                            
 bbk.unit.number             16 FREE     L                 :SSA["BU",sbu]|0                                            
 bbk.unit.product            15 FREE     L  LAB.B.PROD     :SSA["BU",sbu]|1                                        
 bbk.unit.purge.date          8 DATE     L                 :SSA["BU",sbu]|11                                           
 bbk.unit.reserved           14 CHOICE   L                 :SSA["BU",sbu]|10                                           
 bbk.unit.source             10 FREE     L  LAB.B.SOURCE   :SSA["BU",sbu]|5                                        
 bbk.unit.status              3 CHOICE   L                 :SSA["BU",sbu]|2                                            
 bbk.unit.volume              6 PINT     R                 :SSA["BU",sbu]|7                                            
 bbk.unit.xf.pat             30 FREE     L                 :SSA["BU",sbu]|13                                           
 bbk.unit.xf.pat.hx          10 FREE     L                 :SSA["BU",sbu]|14                                           

 Ì   €   i   2
lab.c.purge.arch.bbk.unit.spec    (bbk.unit.specimens) 
[bbk.unit, bbk.unit.mod.and.spec]
:SSA["BU",sbu]S[ssaS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.unit.mod.and.spec       14 FREE     L                 ssaS                                                        
 bbk.unit.module.mne          3 FREE     L                 VAL="LAB.MIC.BBK.PTH"#(L("LMBP",@bbk.unit.mod.and.spec      
                                                           VAL=#0)_.)                                                  
 bbk.unit.spec.coll.date      8 DATE     L                 :SSA["BU",sbu]S[ssaS]|0                                     
 bbk.unit.spec.module         1 CHOICE   L                 VAL=@LAB.C.PURGE.bbk.unit.mod.and.spec#0                    
 bbk.unit.spec.number        13 FREE     L                 VAL=@LAB.C.PURGE.bbk.unit.mod.and.spec%0                    

 Ì   €   i   2
lab.c.purge.arch.unit.spec.ord    (bbk.unit.spec.orders) 
[bbk.unit,bbk.unit.mod.and.spec, bbk.unit.order.q]
:SSA["BU",sbu]S[ssaS]O[ssaO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 bbk.unit.order.q             2 PINT     R                 ssaO                                                        
 bbk.unit.order              10 PDEC     R                 :SSA["BU",sbu]S[ssaS]O[ssaO]|0                              
 bbk.unit.order.count         1 PINT     R                 :SSA["BU",sbu]S[ssaS]O[ssaO]|1                              
 bbk.unit.order.source       10 FREE     L  LAB.M.SRC      :SSA["BU",sbu]S[ssaS]O[ssaO]|2                          
 bbk.unit.order.spec.desc    10 FREE     L  LAB.M.SPDESC   :SSA["BU",sbu]S[ssaS]O[ssaO]|3                          

 Ì     i   2
lab.c.purge.archive.patients    (patients) 
[patient.urn]
:SSA["P",aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 patient.urn                 30 FREE     L  LAB.C.PAT      aa                                                      
 acct.number                 12 FREE     L                 :SSA["P",aa]|1                                              
 bbk.donor.urn               30 URN      L  LAB.B.DONOR    :SSA["P",aa]|8                                          
 bbk.unit.urn                10 URN      L  LAB.B.UNIT     :SSA["P",aa]|7                                          
 computed.dob                 8 BDATE    L                 :SSA["P",aa]|4                                              
 discharge.date               8 DATE     L                 :SSA["P",aa]|6                                              
 first.name                  25 FREE     L                                                                             
 last.name                   25 FREE     L                                                                             
 name                        30 FREE     L                 :SSA["P",aa]|0                                              
 patient.status               7 FREE     L                 :SSA["P",aa]|3                                              
 registration.date            8 DATE     L                 :SSA["P",aa]|5                                              
 sort.by                      5 CHOICE   L                                                                             
 sort.key                    30 FREE     L                                                                             
 unit.number                 10 FREE     L                 :SSA["P",aa]|2                                              
 yn                           1 YN       L                                                                             

 Ì   €   i   2
lab.c.purge.purge.dates    (purge.dates) 
[patient.urn, purge.date]
:SSA["P",aa]D[ssaD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 purge.date                   8 DATE     L                 ssaD                                                        
 archived                     1 YN       L                 :SSA["P",aa]D[ssaD]|0                                       

 Ì   €   i   2
lab.c.purge.archive.specimens    (specimens) 
[patient.urn, module.and.spec.number]
:SSA["P",aa]S[ssaS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 module.and.spec.number      18 FREE     L                 ssaS                                                        
 collection.date              8 DATE     L                 :SSA["P",aa]S[ssaS]|0                                       
 module                       1 CHOICE   L                 VAL=@LAB.C.PURGE.module.and.spec.number#0                   
 module.mne                   3 FREE     L                 VAL="LAB.MIC.BBK.PTH"#(L("LMBP",@module.and.spec.numbe      
                                                           VAL=r#0)_.)                                                 
 spec.number                 17 FREE     L                 VAL=@LAB.C.PURGE.module.and.spec.number%0                   

 Ì   €   i   2
lab.c.purge.archive.orders    (orders) 
[patient.urn,module.and.spec.number, order.q]
:SSA["P",aa]S[ssaS]O[ssaO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 order.q                      2 PINT     R                 ssaO                                                        
 order                       10 PDEC     R                 :SSA["P",aa]S[ssaS]O[ssaO]|0                                
 order.count                  1 PINT     R                 :SSA["P",aa]S[ssaS]O[ssaO]|1                                
 order.product               15 FREE     L  LAB.B.PROD     :SSA["P",aa]S[ssaS]O[ssaO]|4                            
 order.source                10 FREE     L  LAB.M.SRC      :SSA["P",aa]S[ssaS]O[ssaO]|2                            
 order.spec.desc             10 FREE     L  LAB.M.SPDESC   :SSA["P",aa]S[ssaS]O[ssaO]|3                            

 Ì     i   2
lab.c.purge.od.x.pth.procs    (od.x.pth.procs) 
[od.ptr,od.module,od.spec, od.pth.proc]
!DATA[oda]C[sshOM,sssOS]P[spt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 od.pth.proc                 10 URN      L  LAB.P.TERM     spt                                                     
 od.pth.proc.ct               2 PINT     R                 !DATA[oda]C[sshOM,sssOS]P[spt]|0                            

 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 lab.c.purge.acct.number.x          [acct.number] = patient.urn
   acct.x                             :SSAA[ssaA]

 lab.c.purge.donor.date.x           [bbk.donor.purge.date,bbk.donor] = bbk.donor.archive
   bbk.donor.date.x                   :SSAG[ssaD,sbb]

 lab.c.purge.bbk.donor.name.x       [bbk.donor.last.name,bbk.donor.first.name,bbk.donor]
   bbk.donor.name.x                   :SSAF[sbbLN,sbbFN,sbb]

 lab.c.purge.bbk.donor.num.x        [bbk.donor.number] = bbk.donor
   bbk.donor.num.x                    :SSAC[sbbnu]

 lab.c.purge.bbk.unit.date.x        [bbk.unit.purge.date,bbk.unit] = bbk.unit.archived
   bbk.unit.date.x                    :SSAE[ssaD,sbu]

 lab.c.purge.bbk.unit.donor.x       [bbk.unit.donor,bbk.unit]
   bbk.unit.donor.x                   :SSAH[sbb,sbu]

 lab.c.purge.bbk.unit.number.x      [bbk.unit.number,bbk.unit.source,bbk.unit.product,bbk.unit]
   bbk.unit.num.x                     :SSAB[sbuN,sbr,sbp,sbu]

 lab.c.purge.date.x                 [purge.date,patient.urn] = archived
   date.x                             :SSAD[ssaD,aa]

 lab.c.purge.name.x                 [last.name,first.name,patient.urn]
   name.x                             :SSAN[ssaL,ssaF,aa]

 lab.c.purge.od.sum.wait.x          [patient]
   od.sum.wait.x                      :SSASW[aa]

 lab.c.purge.od.sum.x               [od.mri,od.patient,acct.number,od.med.rec.form,MIS.PAT.discharge.date] = od.reco
   od.sum.x                           :SSASS[ea,aa,ssaA,gef,aaDDT]

 lab.c.purge.unit.number.x          [unit.number,patient.urn]
   unit.x                             :SSAU[ssaU,aa]