sHelp
                                     MAM.ARCHIVE
     i   2
   mam.archive
   mam.archive.pci.queue

 Ì     i   2
mam.archive    (main) 
[urn]
*HA[ha]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 urn                         10 URN      L                 ha                                                          
 acct.number                 12 FREE     L                 VAL=%MAM.ARCHIVE.view.info.M.account(@adm.urn,@facilit      
                                                           VAL=y)                                                      
 adm.service.date             8 DATE     L                 *HA[ha]|3                                                   
 adm.urn                     30 URN      L  ADM.PAT        *HA[ha]|1                                               
 application                 11 FREE     L  NPR.APPL       VAL=database#"0."                                       
 archive.date                 8 DATE     L                 *HA[ha]|4                                                   
 chart.document               9 URN      L  MRM.DOC        *HA[ha]|14                                              
 create.error                30 FREE     L                 *HA[ha]F|3                                                  
 database                    12 FREE     L  MIS.APPL       *HA[ha]|5                                               
 dept                        10 FREE     L                 *HA[ha]|7                                                   
 descriptor                 255 FREE     L                 *HA[ha]DSC                                                  
 external.id                 53 FREE     L                 *HA[ha]|9                                                   
 facility                    10 FREE     L  MIS.FACILITY   *HA[ha]|2                                               
 form.id                     15 FREE     L  MIS.MR.FORM    *HA[ha]|6                                               
 internal.id                 10 FREE     L                 *HA[ha]|10                                                  
 mri.urn                     25 URN      L  MRI.PAT        *HA[ha]|0                                               
 od.key                       5 FREE     L                 *HA[ha]|11                                                  
 outbox.urn                   8 URN      L  MAM.XO         *HA[ha]F|2                                              
 page.count                   6 PINT     R                 *HA[ha]|15                                                  
 path                        60 FREE     L                 *HA[ha]F|0                                                  
 ready.to.purge               1 FREE     L                 *HA[ha]|12                                                  
 replacement                 10 URN      L  MAM.ARCHIVE    *HA[ha]|13                                              
 report.id                   10 FREE     L                 *HA[ha]|8                                                   
 rpt.cpi                      2 PINT     R                 *HA[ha]F|4                                                  
 rpt.cpl                      3 PINT     R                 *HA[ha]F|7                                                  
 rpt.dov                     80 FREE     L                 *HA[ha]F|9                                                  
 rpt.lp                       3 PINT     R                 *HA[ha]F|8                                                  
 rpt.lpi                      2 PINT     R                 *HA[ha]F|5                                                  
 rpt.ps                       3 PINT     R                 *HA[ha]F|6                                                  
 size                         9 PINT     R                 *HA[ha]F|1                                                  
 unit.number                 10 FREE     L                 VAL=%MAM.ARCHIVE.view.info.M.unit.number(@mri.urn,@fac      
                                                           VAL=ility)                                                  
 Ì     i   2
mam.archive.pci.queue    (pci.queue) 
[pci.mri.urn,pci.adm.urn,pci.database,pci.report.id,pci.internal.id]
*HAPCI[ea,aa,iaD,haRI,haINT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pci.mri.urn                 25 URN      L  MRI.PAT        ea                                                      
 pci.adm.urn                 30 URN      L  ADM.PAT        aa                                                      
 pci.database                12 FREE     L  MIS.APPL       iaD                                                     
 pci.report.id               10 FREE     L                 haRI                                                        
 pci.internal.id             10 FREE     L                 haINT                                                       
 pci.form.id                 10 FREE     L  MIS.FORM       *HAPCI[ea,aa,iaD,haRI,haINT]|0                          
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mam.archive.app.item.x             [database,report.id,urn]
   app.item.x                         *HAMF[iaD,haRI,ha]

 mam.archive.date.x                 [archive.date,database,urn]
   archive.date.x                     *HAAD[haDAT,iaD,ha]

 mam.archive.dept.x                 [database,dept,urn]
   dept.x                             *HAD[iaD,haDPT,ha]

 mam.archive.external.archive.x     [external.id,urn]
   external.archive.x                 *HAMIHA[haEX,ha]

 mam.archive.external.x             [database,external.id,internal.id,urn]
   external.x                         *HAMIX[iaD,haEX,haINT,ha]

 mam.archive.internal.x             [database,internal.id,urn]
   internal.x                         *HAMI[iaD,haINT,ha]

 mam.archive.patient.x              [mri.urn,adm.urn,urn]
   patient.x                          *HAM[ea,aa,ha]

 mam.archive.ready.to.purge.x       [database,ready.to.purge,archive.date,urn]
   ready.to.purge.x                   *HARTP[iaD,haRTP,haDAT,ha]