sHelp
                                     MM.STOCK.REQ
     i   2
   mm.stock.req
     mm.stock.req.locn.stocks
     mm.stock.req.picklist.numbers
     mm.stock.req.pt.iss.bar.procs
       mm.stock.req.pt.iss.proc.txns
     mm.stock.req.pt.iss.comp.reqs
     MM.STOCK.REQ.recurring.reqs
     mm.stock.req.stocks
       mm.stock.req.backorders
       mm.stock.req.pt.issue.txns
       mm.stock.req.stocks.prod.info

 Ì     i   2
mm.stock.req    (main) 
[inventory,number]
*MQ[mi,mq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 inventory                   10 FREE     L  MM.INVENT      mi                                                      
 number                       7 PINT     R                 mq                                                          
 add.desc                    30 FREE     L                 *MQ[mi,mq]|13                                               
 cart.record                  6 PINT     R                                                                             
 date                         8 DATE     L                 *MQ[mi,mq]|0                                                
 deliver.to                  15 FREE     L  MM.DELIVER     *MQ[mi,mq]C|0                                           
 dept                        15 FREE     L  MIS.GL.DEPT    *MQ[mi,mq]|3                                            
 dept.name                   30 FREE     L                 VAL=@MIS.GL.DEPT.name[@dept]                                
 description                 30 FREE     L                 *MQ[mi,mq]|6                                                
 id                          20 FREE     L                                                                             
 number.backorder.items       4 PINT     R                 *MQ[mi,mq]|9                                                
 number.items                 4 PINT     R                 *MQ[mi,mq]|8                                                
 patient.rev.site            10 FREE     L  MIS.REV.SITE   *MQ[mi,mq]|14                                           
 pt.issue.account            12 URN      L                 *MQ[mi,mq]PI|1                                              
 pt.issue.bar.dbase          12 FREE     L  MIS.APPL       *MQ[mi,mq]PI|0                                          
 pt.issue.clin.proc          30 FREE     L                 *MQ[mi,mq]PI|8                                              
 pt.issue.int.number         12 FREE     L                 *MQ[mi,mq]PI|5                                              
 pt.issue.princ.req          20 FREE     L  MM.STOCK.REQ   *MQ[mi,mq]PI|3                                          
 pt.issue.princ.req.inv      10 FREE     L  MM.INVENT      *MQ[mi,mq]PI|2                                          
 pt.issue.provider           10 FREE     L  MIS.DOC.DICT   *MQ[mi,mq]PI|7                                          
 pt.issue.service.date        8 DATE     L                 *MQ[mi,mq]PI|6                                              
 pt.issue.use.stock.procs     1 YN       L                 *MQ[mi,mq]PI|4                                              
 restock.for.inventory       10 FREE     L  MM.INVENT      *MQ[mi,mq]|5                                            
 restock.req.number          20 FREE     L  MM.STOCK.REQ   *MQ[mi,mq]|11                                           
 status                       9 CHOICE   L                 *MQ[mi,mq]|1                                                
 time.sharing.open            1 YN       L                 *MQ[mi,mq]|7                                                
 type                        11 CHOICE   L                 *MQ[mi,mq]|2                                                
 user                        10 FREE     L  MIS.USER       *MQ[mi,mq]|10                                           
 wo.no                        6 PINT     R  MM.EQP.WO      *MQ[mi,mq]|12                                           
 Ì     i   2
mm.stock.req.locn.stocks    (location.stocks) 
[inventory,number, location,loc.stock.no]
*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                 *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
mm.stock.req.picklist.numbers    (picklist.numbers) 
[inventory,number, picklist.number]
*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                 *MQ[mi,mq]P[mqPN]|0                                         
 picklist.print.date          8 DATE     L                 *MQ[mi,mq]P[mqPN]|1                                         
 Ì     i   2
mm.stock.req.pt.iss.bar.procs    (pt.issue.bar.procs) 
[inventory,number, pt.issue.bar.proc]
*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      4 PINT     R                 *MQ[mi,mq]PI["B",mqPB]|0                                    
 Ì     i   2
mm.stock.req.pt.iss.proc.txns    (pt.issue.proc.txns) 
[inventory,number,pt.issue.bar.proc, pt.issue.proc.post.date]
*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                 *MQ[mi,mq]PI["B",mqPB]T[mqPPD]|0                            
 pt.issue.proc.eff.date       8 DATE     L                 *MQ[mi,mq]PI["B",mqPB]T[mqPPD]|1                            
 Ì     i   2
mm.stock.req.pt.iss.comp.reqs    (pt.issue.comp.reqs) 
[inventory,number, pt.iss.comp.req.seq]
*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      *MQ[mi,mq]PI["R",mqPR]|0                                
 pt.iss.comp.req.no          10 FREE     L                 *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
MM.STOCK.REQ.recurring.reqs    (recurring.reqs) 
[inventory,number, recurring.req]
*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
mm.stock.req.stocks    (stocks) 
[inventory,number, stock.no]
*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                 *MQ[mi,mq]S[msN]|3                                          
 cancel.qty.um                5 INT      R                 *MQ[mi,mq]S[msN]|4                                          
 credit.ret.qty.um            5 INT      R                 *MQ[mi,mq]S[msN]|13                                         
 description.27              27 FREE     L                 VAL=(@MM.ITEM.description[@MM.STOCK.item[@stock]]:27TL      
                                                           VAL=)                                                       
 issue.qty.um                 5 INT      R                 *MQ[mi,mq]S[msN]|2                                          
 lost.charge                  8 DEC4     R                 *MQ[mi,mq]S[msN]|6                                          
 new.cancel.qty.um            5 INT      R                 *MQ[mi,mq]S[msN]|10                                         
 new.credit.qty.um            5 SINT     R                 *MQ[mi,mq]S[msN]|14                                         
 new.issue.qty.um             5 INT      R                 *MQ[mi,mq]S[msN]|9                                          
 pt.issue.stock               1 YN       L                 *MQ[mi,mq]S[msN]|12                                         
 pt.issue.use.proc            1 YN       L                 *MQ[mi,mq]S[msN]|15                                         
 pt.prod.info.flag            1 YN       L                 *MQ[mi,mq]S[msN]|16                                         
 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                 *MQ[mi,mq]S[msN]|11                                         
 req.qty.um                   5 INT      R                 *MQ[mi,mq]S[msN]|1                                          
 stock                       18 URN      L  MM.STOCK       *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                 *MQ[mi,mq]S[msN]|5                                          
 um                           4 FREE     L                 *MQ[mi,mq]S[msN]|7                                          
 um.us                        7 PINT     R                 *MQ[mi,mq]S[msN]|8                                          
 Ì     i   2
mm.stock.req.backorders    (backorders) 
[inventory,number,stock.no, back.txn.urn]
*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                 *MQ[mi,mq]S[msN]B[mqb]|4                                    
 back.txn.date                8 DATE     L                 *MQ[mi,mq]S[msN]B[mqb]|1                                    
 back.txn.picklist.no         2 PINT     R                 *MQ[mi,mq]S[msN]B[mqb]|5                                    
 back.txn.qty.um              7 PINT     R                 *MQ[mi,mq]S[msN]B[mqb]|3                                    
 back.txn.type                6 CHOICE   L                 *MQ[mi,mq]S[msN]B[mqb]|0                                    
 back.txn.user               10 FREE     L  MIS.USER       *MQ[mi,mq]S[msN]B[mqb]|2                                
 Ì     i   2
mm.stock.req.pt.issue.txns    (pt.issue.txns) 
[inventory,number,stock.no, pt.issue.post.date]
*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                 *MQ[mi,mq]S[msN]P[mqPD]|1                                   
 pt.issue.qty                 8 INT      R                 *MQ[mi,mq]S[msN]P[mqPD]|0                                   
 Ì     i   2
mm.stock.req.stocks.prod.info    (stocks.prod.info) 
[inventory,number,stock.no, pt.iss.item.info]
*MQ[mi,mq]S[msN]I[mqI]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pt.iss.item.info             3 PINT     R                 mqI                                                         
 pt.iss.item.exp.date         8 DATE     L                 *MQ[mi,mq]S[msN]I[mqI]|2                                    
 pt.iss.item.lot.number      30 FREE     L                 *MQ[mi,mq]S[msN]I[mqI]|1                                    
 pt.iss.item.serial.number   30 FREE     L                 *MQ[mi,mq]S[msN]I[mqI]|0                                    
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mm.stock.req.backorder.x           [stock,number]
   backorder.x                        ?MQBS[ms,mq]

 mm.stock.req.dept.back.index       [inventory,dept,number,stock.no]
   dept.back.x                        ?MQB[mi,gd,mq,msN]

 mm.stock.req.dept.index            [inventory,dept,number]
   dept.x                             ?MQD[mi,gd,mq]

 mm.stock.req.inv.baxk.index        [inventory,restock.for.inventory,number,stock.no]
   inv.back.x                         ?MQI[mi,mqs,mq,msN]

 mm.stock.req.post.date.x           [pt.issue.bar.dbase,pt.issue.post.date,inventory,number]
   post.date.x                        ?MQPD[iaD,mqPD,mi,mq]

 mm.stock.req.wo.index              [inventory,wo.no,number]
   wo.x                               ?MQWX[mi,muw,mq]