sHelp
                                     MM.STOCK.REQ
     i   2
 main
   location.stocks
   picklist.numbers
   pt.issue.bar.procs
     pt.issue.proc.txns
   pt.issue.comp.reqs
   recurring.reqs
   stocks
     backorders
     deliver.to.locations
     pt.issue.txns

 Ì   €   i   2
main
[inventory,number]
*(M)MQ[mi,mq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inventory                   10 FREE     L  MM.INVENT      mi                                                      
 number                       6 PINT     R                 mq                                                          
 add.desc                    30 FREE     L                 *(M)MQ[mi,mq]|13                                            
 cart.record                  6 PINT     R                                                                             
 date                         8 DATE     L                 *(M)MQ[mi,mq]|0                                             
 dept                        15 FREE     L  MIS.GL.DEPT    *(M)MQ[mi,mq]|3                                         
 dept.name                   30 FREE     L                 VAL=@MIS.GL.DEPT.name[@dept]                                
 description                 30 FREE     L                 *(M)MQ[mi,mq]|6                                             
 id                          20 FREE     L                                                                             
 ireq.no                     10 PINT     R                 *(M)MQ[mi,mq]|16                                            
 mbb.date.sub.num             4 PINT     R                 *(M)MQ[mi,mq]|14                                            
 number.backorder.items       4 PINT     R                 *(M)MQ[mi,mq]|9                                             
 number.items                 4 PINT     R                 *(M)MQ[mi,mq]|8                                             
 patient.rev.site            10 FREE     L  MIS.REV.SITE   *(M)MQ[mi,mq]|15                                        
 pt.issue.account            12 URN      L                 *(M)MQ[mi,mq]PI|1                                           
 pt.issue.acct.name          35 FREE     L                 *(M)MQ[mi,mq]PI|5                                           
 pt.issue.bar.dbase          12 FREE     L  MIS.APPL.DB    *(M)MQ[mi,mq]PI|0                                       
 pt.issue.int.number         12 FREE     L                 *(M)MQ[mi,mq]PI|6                                           
 pt.issue.princ.req          20 FREE     L  MM.STOCK.REQ   *(M)MQ[mi,mq]PI|3                                       
 pt.issue.princ.req.inv      10 FREE     L  MM.INVENT      *(M)MQ[mi,mq]PI|2                                       
 pt.issue.service.date        8 DATE     L                 *(M)MQ[mi,mq]PI|7                                           
 pt.issue.use.stock.procs     1 YN       L                 *(M)MQ[mi,mq]PI|4                                           
 restock.for.inventory       10 FREE     L  MM.INVENT      *(M)MQ[mi,mq]|5                                         
 restock.req.number          20 FREE     L  MM.STOCK.REQ   *(M)MQ[mi,mq]|11                                        
 status                       9 CHOICE   L                 *(M)MQ[mi,mq]|1                                             
 time.sharing.open            1 YN       L                 *(M)MQ[mi,mq]|7                                             
 tsk.num                     10 FREE     L                 *(M)MQ[mi,mq]|17                                            
 type                        11 CHOICE   L                 *(M)MQ[mi,mq]|2                                             
 user                        10 FREE     L  MIS.USER       *(M)MQ[mi,mq]|10                                        
 wo.no                        6 PINT     R  MM.EQP.WO      *(M)MQ[mi,mq]|12                                        
 Ì   €   i   2
location.stocks
[inventory,number,  location,loc.stock.no]
*(M)MQ[mi,mq]L[msL,msN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 location                    10 FREE     L                 msL                                                         
 loc.stock.no                18 FREE     L                 msN                                                         
 loc.cancel.qty.um            5 INT      R                 VAL=@cancel.qty.um                                          
 loc.description             30 FREE     L                 VAL=@stock.description                                      
 loc.issue.qty.um             5 PINT     R                 VAL=@issue.qty.um                                           
 loc.item.urn                43 URN      L  MM.ITEM        VAL=(@MM.STOCK.item[@stock])                            
 loc.on.hand                  7 PINT     R                 VAL=(@MM.STOCK.qty.on.hand[@stock]/@um.us)                  
 loc.picklist.qty.um          5 PINT     R                 *(M)MQ[mi,mq]L[msL,msN]                                     
 loc.req.qty.left.um          5 INT      R                 VAL=@req.qty.left.um                                        
 loc.req.qty.um               5 PINT     R                 VAL=@req.qty.um                                             
 loc.txn.charge               8 DEC4     R                 VAL=@txn.charge                                             
 loc.um                       4 FREE     L                 VAL=@um                                                     
 Ì   €   i   2
picklist.numbers
[inventory,number,  picklist.number]
*(M)MQ[mi,mq]P[mqPN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 picklist.number              2 PINT     R                 mqPN                                                        
 picklist.date                8 DATE     L                 *(M)MQ[mi,mq]P[mqPN]|0                                      
 picklist.print.date          8 DATE     L                 *(M)MQ[mi,mq]P[mqPN]|1                                      
 Ì   €   i   2
pt.issue.bar.procs
[inventory,number,  pt.issue.bar.proc]
*(M)MQ[mi,mq]PI["B",mqPB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pt.issue.bar.proc           10 FREE     L                 mqPB                                                        
 pt.issue.bar.proc.count      5 PINT     R                 *(M)MQ[mi,mq]PI["B",mqPB]|0                                 
 Ì   €   i   2
pt.issue.proc.txns
[inventory,number,pt.issue.bar.proc,  pt.issue.proc.post.date]
*(M)MQ[mi,mq]PI["B",mqPB]T[mqPPD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pt.issue.proc.post.date      8 DATE     L                 mqPPD                                                       
 pt.issue.proc.count          3 INT      R                 *(M)MQ[mi,mq]PI["B",mqPB]T[mqPPD]|0                         
 pt.issue.proc.eff.date       8 DATE     L                 *(M)MQ[mi,mq]PI["B",mqPB]T[mqPPD]|1                         
 Ì   €   i   2
pt.issue.comp.reqs
[inventory,number,  pt.iss.comp.req.seq]
*(M)MQ[mi,mq]PI["R",mqPR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pt.iss.comp.req.seq          2 PINT     R                 mqPR                                                        
 pt.iss.comp.req.desc        30 FREE     L                 VAL=(@description[@pt.iss.comp.req.inven,@pt.iss.comp.      
                                                           VAL=req.no])                                                
 pt.iss.comp.req.inven       10 FREE     L  MM.INVENT      *(M)MQ[mi,mq]PI["R",mqPR]|0                             
 pt.iss.comp.req.no          10 FREE     L                 *(M)MQ[mi,mq]PI["R",mqPR]|1                                 
 pt.iss.comp.req.status      10 FREE     L                 VAL=(@status[@pt.iss.comp.req.inven,@pt.iss.comp.req.n      
                                                           VAL=o])                                                     
 Ì   €   i   2
recurring.reqs
[inventory,number,  recurring.req]
*(M)MQ[mi,mq]R[mb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 recurring.req               15 FREE     L  MM.REC.REQ     mb                                                      
 Ì   €   i   2
stocks
[inventory,number,  stock.no]
*(M)MQ[mi,mq]S[msN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 stock.no                    18 FREE     L                 msN                                                         
 back.qty.um                  5 INT      R                 *(M)MQ[mi,mq]S[msN]|3                                       
 cancel.qty.um                5 INT      R                 *(M)MQ[mi,mq]S[msN]|4                                       
 credit.ret.qty.um            5 INT      R                 *(M)MQ[mi,mq]S[msN]|13                                      
 description.27              27 FREE     L                 VAL=(@MM.ITEM.description[@MM.STOCK.item[@stock]]:27TL      
                                                           VAL=)                                                       
 ireq.line.no                 3 PINT     R                 *(M)MQ[mi,mq]S[msN]|17                                      
 issue.qty.um                 5 INT      R                 *(M)MQ[mi,mq]S[msN]|2                                       
 lost.charge                  8 DEC4     R                 *(M)MQ[mi,mq]S[msN]|6                                       
 new.cancel.qty.um            5 INT      R                 *(M)MQ[mi,mq]S[msN]|10                                      
 new.credit.qty.um            5 SINT     R                 *(M)MQ[mi,mq]S[msN]|14                                      
 new.issue.qty.um             5 INT      R                 *(M)MQ[mi,mq]S[msN]|9                                       
 pt.issue.stock               1 YN       L                 *(M)MQ[mi,mq]S[msN]|12                                      
 pt.issue.use.proc            1 YN       L                 *(M)MQ[mi,mq]S[msN]|15                                      
 qty.on.hand.um               7 PINT     R                 VAL=(@MM.STOCK.qty.on.hand[@stock]/@um.us)                  
 qty.on.hand.um.partial      15 FREE     L                 VAL=(@MM.STOCK.qty.on.hand[@stock]^XX/@um.us_IF{XX\@um      
                                                           VAL=.us^XX'=0 ";"_XX})                                      
 req.qty.left.um              5 INT      R                 *(M)MQ[mi,mq]S[msN]|11                                      
 req.qty.um                   5 INT      R                 *(M)MQ[mi,mq]S[msN]|1                                       
 st.ee.del.to                 1 YN       L                 *(M)MQ[mi,mq]S[msN]|16                                      
 stock                       18 URN      L  MM.STOCK       *(M)MQ[mi,mq]S[msN]|0                                   
 stock.cost.ui               10 DEC4     R                 VAL=@MM.STOCK.vendor.cost.ui[@stock]                        
 stock.description           30 FREE     L                 VAL=@MM.ITEM.description[@MM.STOCK.item[@stock]]            
 stock.item.no               10 FREE     L                 VAL=@MM.ITEM.number[@MM.STOCK.item[@stock]]                 
 txn.charge                   8 DEC4     R                 *(M)MQ[mi,mq]S[msN]|5                                       
 um                           4 FREE     L                 *(M)MQ[mi,mq]S[msN]|7                                       
 um.us                        7 PINT     R                 *(M)MQ[mi,mq]S[msN]|8                                       
 Ì   €   i   2
backorders
[inventory,number,stock.no,  back.txn.urn]
*(M)MQ[mi,mq]S[msN]B[mqb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 back.txn.urn                 3 URN      L                 mqb                                                         
 back.txn.chg.um              8 DEC4     R                 *(M)MQ[mi,mq]S[msN]B[mqb]|4                                 
 back.txn.date                8 DATE     L                 *(M)MQ[mi,mq]S[msN]B[mqb]|1                                 
 back.txn.picklist.no         2 PINT     R                 *(M)MQ[mi,mq]S[msN]B[mqb]|5                                 
 back.txn.qty.um              7 PINT     R                 *(M)MQ[mi,mq]S[msN]B[mqb]|3                                 
 back.txn.type                6 CHOICE   L                 *(M)MQ[mi,mq]S[msN]B[mqb]|0                                 
 back.txn.user               10 FREE     L  MIS.USER       *(M)MQ[mi,mq]S[msN]B[mqb]|2                             
 Ì   €   i   2
deliver.to.locations
[inventory,number,stock.no,  dt.location]
*(M)MQ[mi,mq]S[msN]DL[mqq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dt.location                 15 FREE     L                 mqq                                                         
 dt.instructions             30 FREE     L                 *(M)MQ[mi,mq]S[msN]DL[mqq]|0                                
 Ì   €   i   2
pt.issue.txns
[inventory,number,stock.no,  pt.issue.post.date]
*(M)MQ[mi,mq]S[msN]P[mqPD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pt.issue.post.date           8 DATE     L                 mqPD                                                        
 pt.issue.eff.date            8 DATE     L                 *(M)MQ[mi,mq]S[msN]P[mqPD]|1                                
 pt.issue.qty                 8 INT      R                 *(M)MQ[mi,mq]S[msN]P[mqPD]|0                                

 Index Files                        Subscripts/Physical Base

 backorder.x                        [stock,number]
                                      ?(M)MQBS[ms,mq]

 dept.back.x                        [inventory,dept,number,stock.no]
                                      ?(M)MQB[mi,gd,mq,msN]

 dept.x                             [inventory,dept,number]
                                      ?(M)MQD[mi,gd,mq]

 inv.back.x                         [inventory,restock.for.inventory,number,stock.no]
                                      ?(M)MQI[mi,mqs,mq,msN]

 post.date.x                        [pt.issue.bar.dbase,pt.issue.post.date,inventory,number]
                                      ?(M)MQPD[gn1,mqPD,mi,mq]

 wo.x                               [inventory,wo.no,number]
                                      ?(M)MQWX[mi,muw,mq]