sHelp
                                     LAB.C.PURGE
     i   2
 messages
 patient.data

 Ì     i   2
messages
[urn,  message.q]
*(S)SSA[ssa]M[ssaM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 message.q                    3 PINT     R                 ssaM                                                        
 message.line               200 FREE     L                 *(S)SSA[ssa]M[ssaM]                                         
 Ì     i   2
patient.data
[urn,
*(S)SSA[ssa]P

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 acct.number                 12 FREE     L                 *(S)SSA[ssa]P|1                                             
 computed.dob                10 BDATE    L                 *(S)SSA[ssa]P|4                                             
 discharge.date               8 DATE     L                 *(S)SSA[ssa]P|6                                             
 first.name                  25 FREE     L                                                                             
 last.name                   25 FREE     L                                                                             
 name                        30 FREE     L                 *(S)SSA[ssa]P|0                                             
 patient.status               7 FREE     L                 *(S)SSA[ssa]P|3                                             
 registration.date            8 DATE     L                 *(S)SSA[ssa]P|5                                             
 unit.number                 10 FREE     L                 *(S)SSA[ssa]P|2                                             

 Index Files                        Subscripts/Physical Base

 acct.x                             [acct.number,patient,urn]
                                      ?(S)SSAA[ssaA,aa,ssa]

 activity.x                         [date,time,urn] = activity.status
                                      ?(S)SSAX[ssaD,ssaT,ssa]

 bbk.donor.name.x                   [last.name,first.name,donor,urn]
                                      ?(S)SSAF[ssaL,ssaF,sbb,ssa]

 bbk.donor.num.x                    [donor.number,urn]
                                      ?(S)SSAC[sbbnu,ssa]

 bbk.unit.donor.x                   [bbk.unit.donor,unit,urn]
                                      ?(S)SSAH[sbb,sbu,ssa]

 bbk.unit.num.x                     [bbk.unit.number,bbk.unit.source,bbk.unit.product,unit,urn]
                                      ?(S)SSAB[sbuN,sbr,sbp,sbu,ssa]

 name.x                             [last.name,first.name,patient,urn]
                                      ?(S)SSAN[ssaL,ssaF,aa,ssa]

 patient.x                          [patient,urn]
                                      ?(S)SSPT[aa,ssa]

 unit.x                             [unit.number,patient,urn]
                                      ?(S)SSAU[ssaU,aa,ssa]