sHelp
                                     MM.STOCK.PT
     i   2
 main
   patients
     pt.stocks
   stocks

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inventory                   10 FREE     L  MM.INVENT      mi                                                      
 number                       6 PINT     R                 mh                                                          
 bar.database                12 FREE     L  MIS.APPL.DB    *(M)MH[mi,mh]|4                                         
 date                         8 DATE     L                 *(M)MH[mi,mh]|0                                             
 description                 30 FREE     L                 *(M)MH[mi,mh]|6                                             
 id                          20 FREE     L                                                                             
 mbb.date.sub.num             4 PINT     R                 *(M)MH[mi,mh]|10                                            
 number.items                 4 PINT     R                 *(M)MH[mi,mh]|8                                             
 number.patients              4 PINT     R                 *(M)MH[mi,mh]|9                                             
 patient.detail               1 YN       L                 *(M)MH[mi,mh]|2                                             
 patient.rev.site            10 FREE     L  MIS.REV.SITE   *(M)MH[mi,mh]|11                                        
 post.date                    8 DATE     L                 *(M)MH[mi,mh]|3                                             
 status                       9 CHOICE   L                 *(M)MH[mi,mh]|1                                             
 time.sharing.open            1 YN       L                 *(M)MH[mi,mh]|7                                             
 Ì   €   i   2
patients
[inventory,number,  pt]
*(M)MH[mi,mh]P[mhp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pt                          12 FREE     L                 mhp                                                         
 service.date                 8 DATE     L                 *(M)MH[mi,mh]P[mhp]|0                                       
 Ì   €   i   2
pt.stocks
[inventory,number,pt,  pt.stock.no]
*(M)MH[mi,mh]P[mhp,msN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pt.stock.no                 18 FREE     L                 msN                                                         
 pt.int.number               12 FREE     L                 *(M)MH[mi,mh]P[mhp,msN]|3                                   
 pt.qty.um                    4 PINT     R                 *(M)MH[mi,mh]P[mhp,msN]|1                                   
 pt.stock                    18 URN      L  MM.STOCK       *(M)MH[mi,mh]P[mhp,msN]|0                               
 pt.stock.description        30 FREE     L                 VAL=@MM.ITEM.description[@MM.STOCK.item[@pt.stock]]         
 pt.um                        4 FREE     L                 *(M)MH[mi,mh]P[mhp,msN]|2                                   
 Ì   €   i   2
stocks
[inventory,number,  stock.no]
*(M)MH[mi,mh]S[msN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 stock.no                    18 FREE     L                 msN                                                         
 qty.on.hand.um               7 PINT     R                 VAL=(@MM.STOCK.qty.on.hand[@stock]/@um.us)                  
 qty.um                       4 PINT     R                 *(M)MH[mi,mh]S[msN]|1                                       
 stock                       18 URN      L  MM.STOCK       *(M)MH[mi,mh]S[msN]|0                                   
 stock.description           30 FREE     L                 VAL=@MM.ITEM.description[@MM.STOCK.item[@stock]]            
 txn.charge                   8 DEC4     R                 *(M)MH[mi,mh]S[msN]|2                                       
 um                           4 FREE     L                 *(M)MH[mi,mh]S[msN]|3                                       
 um.us                        7 PINT     R                 *(M)MH[mi,mh]S[msN]|4                                       

 Index Files                        Subscripts/Physical Base

 date.x                             [inventory,date,number]
                                      ?(M)MHI[mi,mhd,mh]

 post.date.x                        [bar.database,post.date,inventory,number]
                                      ?(M)MHPD[gn1,mhPD,mi,mh]