sHelp
                                     MM.HHT
     i   2
   mm.hht.list
     mm.hht.list.stocks
   mm.hht.main
     mm.hht.session.data
       mm.hht.batches
         mm.hht.batch.record.data
       mm.hht.record.list

 Ì     i   2
mm.hht.list    (list) 
[id]
&MHTL[mhtl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 id                          10 FREE     L                 mhtl                                                        
 active                       1 YN       L                 &MHTL[mhtl]|0                                               
 description                 30 FREE     L                 &MHTL[mhtl]|1                                               
 initialized                  1 FREE     L                 &MHTL[mhtl]|3                                               
 inventory                   10 FREE     L  MM.INVENT      &MHTL[mhtl]|2                                           
 last.update                 10 PINT     R                 &MHTL[mhtl]UPD                                              
 Ì     i   2
mm.hht.list.stocks    (list.stocks) 
[id, seq]
&MHTL[mhtl]S[mhtlS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 seq                          4 FREE     L                 mhtlS                                                       
 location                    10 FREE     L                 &MHTL[mhtl]S[mhtlS]|1                                       
 stock.no                    18 URN      L  MM.STOCK       &MHTL[mhtl]S[mhtlS]|0                                   
 Ì     i   2
mm.hht.main    (main) 
*MHT

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 session.counter             10 PINT     R                 *MHT|0                                                      
 Ì     i   2
mm.hht.session.data    (sessions) 
[session.number]
*MHT[mht]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 session.number               6 PINT     R                 mht                                                         
 session.date                 8 DATE     L                 *MHT[mht]|0                                                 
 session.error.message       70 FREE     L                 *MHT[mht]|4                                                 
 session.num.batches          6 INT      R                 *MHT[mht]|7                                                 
 session.num.batches.cncl     6 INT      R                 *MHT[mht]|10                                                
 session.num.batches.pst      6 INT      R                 *MHT[mht]|9                                                 
 session.num.errors           6 INT      R                 *MHT[mht]|8                                                 
 session.program             15 FREE     L  MM.HHT.PROGRAM *MHT[mht]|11                                            
 session.rcvd.date            8 DATE     L                 *MHT[mht]|1                                                 
 session.rcvd.time            4 TIME     L                 *MHT[mht]|2                                                 
 session.status              10 CHOICE   L                 *MHT[mht]|5                                                 
 session.status.date          4 DATE     L                 *MHT[mht]|6                                                 
 session.user                10 FREE     L  MIS.USER       *MHT[mht]|3                                             
 Ì     i   2
mm.hht.batches    (batches) 
[session.number, batch.number]
*MHT[mht]B[mhtb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 batch.number                 6 PINT     R                 mhtb                                                        
 batch.bar.db                12 FREE     L  MIS.APPL       *MHT[mht]B[mhtb]|11                                     
 batch.comment               25 FREE     L                 *MHT[mht]B[mhtb]|4                                          
 batch.date                   8 DATE     L                 *MHT[mht]B[mhtb]|3                                          
 batch.date.err               5 CHOICE   L                 *MHT[mht]B[mhtb]|16                                         
 batch.dept                  15 FREE     L  MIS.GL.DEPT    *MHT[mht]B[mhtb]|14                                     
 batch.dept.err               5 CHOICE   L                 *MHT[mht]B[mhtb]|15                                         
 batch.dept.name             30 FREE     L                 VAL=@MIS.GL.DEPT.name[@batch.dept]                          
 batch.for.inventory         10 FREE     L  MM.INVENT      *MHT[mht]B[mhtb]|12                                     
 batch.for.inventory.err      5 CHOICE   L                 *MHT[mht]B[mhtb]|13                                         
 batch.inventory             10 FREE     L  MM.INVENT      *MHT[mht]B[mhtb]|1                                      
 batch.inventory.err          5 CHOICE   L                 *MHT[mht]B[mhtb]|2                                          
 batch.inventory.rpt         10 FREE     L                 VAL=IF{"*"_@batch.inventory.err_"*"'="**";@batch.inven      
                                                           VAL=tory}                                                   
 batch.num.errors             6 INT      R                 *MHT[mht]B[mhtb]|9                                          
 batch.po.number             10 FREE     L                 *MHT[mht]B[mhtb]|17                                         
 batch.ref.number            10 FREE     L                 *MHT[mht]B[mhtb]|10                                         
 batch.status                10 CHOICE   L                 *MHT[mht]B[mhtb]|7                                          
 batch.status.date            8 DATE     L                 *MHT[mht]B[mhtb]|8                                          
 batch.type                   3 CHOICE   L                 *MHT[mht]B[mhtb]|0                                          
 batch.type.text              6 FREE     L                 VAL=%MM.HHT.batch.type.text(@batch.type)                    
 batch.user                  10 FREE     L  MIS.USER       *MHT[mht]B[mhtb]|5                                      
 batch.user.err               5 CHOICE   L                 *MHT[mht]B[mhtb]|6                                          
 batch.with.session          22 FREE     L                 VAL=(@MM.HHT.session.number_" "_@MM.HHT.batch.number)       
 Ì     i   2
mm.hht.batch.record.data    (batch.records) 
[session.number,batch.number, record.number]
*MHT[mht]B[mhtb]R[mhtr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 record.number                6 PINT     R                 mhtr                                                        
 record.err                   1 YN       L                 *MHT[mht]B[mhtb]R[mhtr]|9                                   
 record.item.upn             20 FREE     L                 *MHT[mht]B[mhtb]R[mhtr]|12                                  
 record.packaging             4 FREE     L                 *MHT[mht]B[mhtb]R[mhtr]|13                                  
 record.posted                1 YN       L                 *MHT[mht]B[mhtb]R[mhtr]|10                                  
 record.pt.id                15 FREE     L                 *MHT[mht]B[mhtb]R[mhtr]|7                                   
 record.pt.id.err             3 CHOICE   L                 *MHT[mht]B[mhtb]R[mhtr]|8                                   
 record.pt.id.rpt            15 FREE     L                 VAL=IF{"*"_@record.patient.id.err_"*"'="**";@record.pa      
                                                           VAL=tient.id}                                               
 record.qty1                 10 FREE     L                 *MHT[mht]B[mhtb]R[mhtr]|3                                   
 record.qty1.err              3 CHOICE   L                 *MHT[mht]B[mhtb]R[mhtr]|4                                   
 record.qty1.rpt             10 FREE     L                 VAL=IF{"*"_@record.qty1.err_"*"'="**";@record.qty1}         
 record.qty2                 10 FREE     L                 *MHT[mht]B[mhtb]R[mhtr]|5                                   
 record.qty2.err              3 CHOICE   L                 *MHT[mht]B[mhtb]R[mhtr]|6                                   
 record.qty2.rpt             10 FREE     L                 VAL=IF{"*"_@record.qty2.err_"*"'="**";@record.qty2}         
 record.stock.no             10 FREE     L                 *MHT[mht]B[mhtb]R[mhtr]|1                                   
 record.stock.no.err          3 CHOICE   L                 *MHT[mht]B[mhtb]R[mhtr]|2                                   
 record.stock.no.rpt         10 FREE     L                 VAL=IF{"*"_@record.stock.no.err_"*"'="**";@record.stoc      
                                                           VAL=k.no}                                                   
 record.stock.urn            18 URN      L  MM.STOCK       *MHT[mht]B[mhtb]R[mhtr]|11                              
 record.type                 10 CHOICE   L                 *MHT[mht]B[mhtb]R[mhtr]|0                                   
 record.um                    4 FREE     L                 VAL=IF{@record.type=041 @MM.STOCK.pt.unit.of.issue[@re      
                                                           VAL=cord.stock.urn];@MM.STOCK.unit.of.issue[@record.st      
                                                           VAL=ock.urn]}                                               
 Ì     i   2
mm.hht.record.list    (recrd.list) 
[session.number, recrd.type,recrd.number,recrd.inventory]
*MHT[mht]P[mhtbT,mh,mi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 recrd.type                   3 FREE     L                 mhtbT                                                       
 recrd.number                 7 PINT     R                 mh                                                          
 recrd.inventory             10 FREE     L  MM.INVENT      mi                                                      
 recrd                        1 FREE     L                 *MHT[mht]P[mhtbT,mh,mi]                                     
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mm.hht.session.date.index          [session.date,session.number]
   session.date.x                     ?MHTX[mhtD,mht]