sHelp
                                     LAB.M.QM
     i   2
   mic.qc.materials.dict
     mic.qc.material.group.material
     mic.qc.material.lots
     mic.qc.material.methods
       mic.qc.mat.method.wkld.codes
     mic.qc.material.organisms
     mic.qc.material.prompts

 Ì     i   2
mic.qc.materials.dict    (main) 
[mnemonic]
&SMM[smm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 smm                                                         
 active                       1 CHOICE   L                 &SMM[smm]|0                                                 
 antibiotic                   9 PDEC5    R  LAB.M.ANTI     &SMM[smm]|4                                             
 default.method              10 FREE     L  LAB.C.METH     &SMM[smm]|7                                             
 department                  10 FREE     L  LAB.M.DEPT     &SMM[smm]|2                                             
 last.update                 50 FREE     L                 &SMM[smm]UPD                                                
 list.key.1                  30 FREE     L                                                                             
 list.key.2                  30 FREE     L                                                                             
 name                        30 FREE     L                 &SMM[smm]|1                                                 
 source                      10 FREE     L  LAB.M.SRC      &SMM[smm]|6                                             
 susc.type                    3 CHOICE   L                 &SMM[smm]|5                                                 
 turn.around.hours            4 INT      R                 &SMM[smm]|9                                                 
 type                        14 CHOICE   L                 &SMM[smm]|3                                                 
 urn                         10 FREE     L                                                                             
 workcard                    10 FREE     L  LAB.M.WC       &SMM[smm]|8                                             
 Ì     i   2
mic.qc.material.group.material    (group.qc.materials) 
[mnemonic, grp.qc.material]
&SMM[smm]G[smmG]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 grp.qc.material             10 FREE     L  LAB.M.QM       smmG                                                    
 Ì     i   2
mic.qc.material.lots    (lots) 
[mnemonic, lot]
&SMM[smm]L[smmL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 lot                         15 FREE     L                 smmL                                                        
 bar.code.number              6 PINT     R                 &SMM[smm]L[smmL]|7                                          
 days.to.retain.data          4 PINT     R                 &SMM[smm]L[smmL]|4                                          
 lot.created.date             8 DATE     L                 &SMM[smm]L[smmL]|2                                          
 lot.expire.date              8 DATE     L                 &SMM[smm]L[smmL]|3                                          
 lot.mnemonic                10 FREE     L                 &SMM[smm]L[smmL]|1                                          
 lot.status                   1 CHOICE   L                 &SMM[smm]L[smmL]|0                                          
 lot.status.name              7 FREE     L                 VAL=IF{@LAB.M.QM.lot.status="I" "INACTIVE";@LAB.M.QM.l      
                                                           VAL=ot.status="A" "ACTIVE";"NEW"}                           
 manufacturer                10 FREE     L                 &SMM[smm]L[smmL]|5                                          
 quantity                     3 PINT     R                 &SMM[smm]L[smmL]|6                                          
 Ì     i   2
mic.qc.material.methods    (methods) 
[mnemonic, method]
&SMM[smm]M[ssm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 method                      10 FREE     L  LAB.C.METH     ssm                                                     
 meth.wl.subsection          10 FREE     L  LAB.C.WL.SUBSEC&SMM[smm]M[ssm]|0                                       
 Ì     i   2
mic.qc.mat.method.wkld.codes    (method.wl.codes) 
[mnemonic,method, meth.wl.code]
&SMM[smm]M[ssm]W[scw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 meth.wl.code                10 FREE     L  LAB.C.WL.CODE  scw                                                     
 meth.wl.code.and.count      13 FREE     L                 VAL=@LAB.M.QM.meth.wl.code_"/"_@LAB.M.QM.meth.wl.code.      
                                                           VAL=count'="/"                                              
 meth.wl.code.count           2 PINT     R                 &SMM[smm]M[ssm]W[scw]|0                                     
 Ì     i   2
mic.qc.material.organisms    (organisms) 
[mnemonic, organism]
&SMM[smm]O[smo]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 organism                    10 FREE     L  LAB.M.ORG      smo                                                     
 sen.proc                     9 PDEC5    R  LAB.M.PROC     &SMM[smm]O[smo]|0                                       
 Ì     i   2
mic.qc.material.prompts    (prompts) 
[mnemonic, prompt]
&SMM[smm]P[smq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 prompt                      10 FREE     L  LAB.M.PROMPT   smq                                                     
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mic.qc.material.dept.index         [department,mnemonic]
   dept.x                             &SMMD[smd,smm]

 mic.qc.material.expire.index       [lot.expire.date,urn,lot]
   expire.x                           &SMMX[smmLE,smm,smmL]

 mic.qc.material.lot.index          [mnemonic,lot.mnemonic] = lot
   lot.x                              &SMML[smm,smmM]