sHelp
                                     LAB.B.QM
     i   2
   lab.b.qc.material
     lab.b.qcm.lots
       lab.b.qcm.file.maintenance
     lab.b.qcm.lot.tests
       lab.b.qcm.lot.test.methods
         lab.b.qcm.alpha.values

 Ì     i   2
lab.b.qc.material    (main) 
[mnemonic]
&SBO[sbo]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 sbo                                                         
 active                       1 CHOICE   L                 &SBO[sbo]|0                                                 
 dept                        10 FREE     L  LAB.B.DEPT     &SBO[sbo]|2                                             
 last.update                 50 FREE     L                 &SBO[sbo]UPD                                                
 list.key.1                  30 FREE     L                                                                             
 list.key.2                  30 FREE     L                                                                             
 name                        30 FREE     L                 &SBO[sbo]|1                                                 
 urn                         10 FREE     L                                                                             
 Ì     i   2
lab.b.qcm.lots    (lots) 
[mnemonic, lot]
&SBO[sbo]L[sboL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 lot                         15 FREE     L                 sboL                                                        
 bar.code.number              6 PINT     R                 &SBO[sbo]L[sboL]|2                                          
 copy.lot                     1 YN       L                 &SBO[sbo]L[sboL]CPY                                         
 days.to.retain.data          4 PINT     R                 &SBO[sbo]L[sboL]|5                                          
 lot.created.date             8 DATE     L                 &SBO[sbo]L[sboL]|3                                          
 lot.expire.date              8 DATE     L                 &SBO[sbo]L[sboL]|4                                          
 lot.manufacturer            10 FREE     L                 &SBO[sbo]L[sboL]|6                                          
 lot.mnemonic                10 FREE     L                 &SBO[sbo]L[sboL]|1                                          
 lot.status                   1 CHOICE   L                 &SBO[sbo]L[sboL]|0                                          
 lot.status.name              7 FREE     L                 VAL=IF{@LAB.B.QM.lot.status="I" "INACTIVE";@LAB.B.QM.l      
                                                           VAL=ot.status="A" "ACTIVE";"NEW"}                           
 Ì     i   2
lab.b.qcm.file.maintenance    (file.maintenance) 
[mnemonic,lot, file.maint]
&SBO[sbo]L[sboL]F[sboF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 file.maint                   9 PINT     R                 sboF                                                        
 changed.date                 8 DATE     L                 &SBO[sbo]L[sboL]F[sboF]|1                                   
 changed.time                 4 TIME     L                 &SBO[sbo]L[sboL]F[sboF]|2                                   
 past.days.to.retain.data     4 PINT     R                 &SBO[sbo]L[sboL]F[sboF]|0                                   
 user                        15 FREE     L                 &SBO[sbo]L[sboL]F[sboF]|3                                   
 Ì     i   2
lab.b.qcm.lot.tests    (tests) 
[mnemonic, test]
&SBO[sbo]T[sbt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 test                         9 PDEC5    R  LAB.B.TEST     sbt                                                     
 default.method              10 FREE     L  LAB.C.METH     &SBO[sbo]T[sbt]|0                                       
 test.qc.material            10 FREE     L  LAB.B.QM       &SBO[sbo]T[sbt]|1                                       
 Ì     i   2
lab.b.qcm.lot.test.methods    (methods) 
[mnemonic,test, method]
&SBO[sbo]T[sbt]M[ssm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 method                      10 FREE     L  LAB.C.METH     ssm                                                     
 alpha.restrict.to.list       1 YN       L                 &SBO[sbo]T[sbt]M[ssm]AD|0                                   
 expected.high                5 SDEC     R                 &SBO[sbo]T[sbt]M[ssm]|1                                     
 expected.low                 5 SDEC     R                 &SBO[sbo]T[sbt]M[ssm]|0                                     
 units                        8 FREE     L                 VAL=@LAB.B.TEST.rg.units[test,@LAB.B.TEST.meth.result.      
                                                           VAL=group[test,method]]                                     
 Ì     i   2
lab.b.qcm.alpha.values    (alpha.values) 
[mnemonic,test,method, alpha.code]
&SBO[sbo]T[sbt]M[ssm]A[sboA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 alpha.code                  10 FREE     L                 sboA                                                        
 alpha.comment.text          10 FREE     L  LAB.C.TEXT     &SBO[sbo]T[sbt]M[ssm]A[sboA]|2                          
 alpha.result.type            1 CHOICE   L                 &SBO[sbo]T[sbt]M[ssm]A[sboA]|1                              
 alpha.text                  20 FREE     L                 &SBO[sbo]T[sbt]M[ssm]A[sboA]|0                              
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 lab.b.qcm.dept.index               [dept,mnemonic]
   dept.x                             &SBOD[sbd,sbo]

 lab.b.qcm.expire.x                 [lot.expire.date,urn,lot]
   expire.x                           &SBOX[sboLE,sbo,sboL]

 lab.b.qcm.lot.index                [mnemonic,lot.mnemonic] = lot
   lot.x                              &SBOL[sbo,sboLM]

 lab.b.qcm.method.index             [method,test,mnemonic]
   method.x                           &SBOM[ssm,sbt,sbo]

 lab.b.qcm.test.index               [test,mnemonic]
   test.x                             &SBOT[sbt,sbo]