sHelp
                                     MIS.PUR.FAC
     i   2
   mis.pur.fac.default.facility
   mis.pur.fac.main
     mis.pur.fac.apl.dbs
     mis.pur.fac.authorized.users
     mis.pur.fac.corporations
     mis.pur.fac.delivery.email.add
     mis.pur.fac.facility.email.add
     mis.pur.fac.invoice.email.addr
     mis.pur.fac.vend.acct.no.map

 Ì     i   2
mis.pur.fac.default.facility    (default.facility) 
[dft.db]
\GQPD[iaD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 dft.db                      12 FREE     L  MIS.APPL       iaD                                                     
 dft.fac.count                2 PINT     R                                                                             
 dft.fac.w.db                10 FREE     L                 VAL=@p.MIS.PUR.FAC.dft.facility[@.db]                       
 dft.facility                10 FREE     L  MIS.PUR.FAC    \GQPD[iaD]|0                                            
 dft.last.update             10 FREE     L                 \GQPD[iaD]UPD                                               
 Ì     i   2
mis.pur.fac.main    (main) 
[mnemonic]
\GQP[mw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 mw                                                          
 active                       1 YN       L                 \GQP[mw]|0                                                  
 deliv.addr1                 30 FREE     L                 \GQP[mw]DA|0                                                
 deliv.addr2                 30 FREE     L                 \GQP[mw]DA|1                                                
 deliv.addr3                 30 FREE     L                 \GQP[mw]DA|2                                                
 exempt.purch.cert           20 FREE     L                 \GQP[mw]|2                                                  
 exempt.purch.cert.state      5 FREE     L                 \GQP[mw]|3                                                  
 fac.addr1                   30 FREE     L                 \GQP[mw]FA|0                                                
 fac.addr2                   30 FREE     L                 \GQP[mw]FA|1                                                
 fac.addr3                   30 FREE     L                 \GQP[mw]FA|3                                                
 invoice.addr1               30 FREE     L                 \GQP[mw]IA|0                                                
 invoice.addr2               30 FREE     L                 \GQP[mw]IA|1                                                
 invoice.addr3               30 FREE     L                 \GQP[mw]IA|2                                                
 last.update                 10 FREE     L                 \GQP[mw]UPD                                                 
 name                        40 FREE     L                 \GQP[mw]|1                                                  
 tot.inv.count                6 PINT     R                 \GQP[mw]|4                                                  
 Ì     i   2
mis.pur.fac.apl.dbs    (apl.dbs) 
[mnemonic, apl.db]
\GQP[mw]A[iaD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 apl.db                      12 FREE     L  MIS.APPL       iaD                                                     
 ap.database                 12 FREE     L  MIS.APPL       \GQP[mw]A[iaD]|2                                        
 inventory.count              5 PINT     R                 \GQP[mw]A[iaD]|3                                            
 item.fac.yn                  1 YN       L                 \GQP[mw]A[iaD]|5                                            
 items.m.or.f                 8 CHOICE   L                 \GQP[mw]A[iaD]|4                                            
 po.form.pgm                 15 FREE     L  MM.PROGRAM     \GQP[mw]A[iaD]|0                                        
 return.po.pgm               15 FREE     L  MM.PROGRAM     \GQP[mw]A[iaD]|1                                        
 Ì     i   2
mis.pur.fac.authorized.users    (authorized.users) 
[mnemonic, auth.user]
\GQP[mw]U[gu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 auth.user                   10 FREE     L  MIS.USER       gu                                                      
 Ì     i   2
mis.pur.fac.corporations    (corporations) 
[mnemonic, corporation]
\GQP[mw]C[gn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 corporation                  4 FREE     L  MIS.GL.CORP    gn                                                      
 corp.default.on.cr           1 YN       L                 \GQP[mw]C[gn]|1                                             
 corp.primary.fac             1 YN       L                 \GQP[mw]C[gn]|0                                             
 Ì     i   2
mis.pur.fac.delivery.email.add    (delivery.email.addresses) 
[mnemonic, delivery.email.addr.q]
\GQP[mw]DA["EM",gqbdE]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 delivery.email.addr.q        2 PINT     R                 gqbdE                                                       
 delivery.email.addr         40 FREE     L                 \GQP[mw]DA["EM",gqbdE]|0                                    
 Ì     i   2
mis.pur.fac.facility.email.add    (facility.email.addresses) 
[mnemonic, facility.email.addr.q]
\GQP[mw]FA["EM",gqbfM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 facility.email.addr.q        2 PINT     R                 gqbfM                                                       
 facility.email.addr         40 FREE     L                 \GQP[mw]FA["EM",gqbfM]|0                                    
 Ì     i   2
mis.pur.fac.invoice.email.addr    (invoice.email.addresses) 
[mnemonic, invoice.email.addr.q]
\GQP[mw]IA["EM",gbqiM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 invoice.email.addr.q         2 PINT     R                 gbqiM                                                       
 invoice.email.addr          40 FREE     L                 \GQP[mw]IA["EM",gbqiM]|0                                    
 Ì     i   2
mis.pur.fac.vend.acct.no.map    (vendor.acct.no.map) 
[mnemonic, vendor.num]
\GQP[mw]VN[gr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 vendor.num                  11 FREE     L  MIS.VEN        gr                                                      
 account.num                 20 FREE     L                 \GQP[mw]VN[gr]                                              
 vend.bill.to.account        20 FREE     L                 \GQP[mw]VN[gr]BT                                            
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mis.pur.fac.corporation.index      [corporation,mnemonic] = corp.primary.fac
   corporation.x                      \GQPC[gn,mw]

 mis.pur.fac.default.fac.index      [dft.facility] = dft.fac.count
   dft.fac.x                          \GQPDD[mw]