sHelp
                                     PHA.REF
     i   2
 check.batches
   check.batch.patients
     check.batch.meds
 main
   batch.links
   batch.patients
     batch.entry
       batch.alt.entry
         batch.alt.dispensing
       batch.dispensing
       batch.messages
         batch.message.text
       batch.worksheet
     batch.transfer
   bkg.order.type.flags
   print.params.sections
     print.params.meds
     print.params.sec.types
     print.params.sort.by
       print.params.sort.order
 rpt.fields
   rpt.fields.meds
 rpt.params

 Ì     i   2
check.batches
[check.batch.urn]
*(T2)TLCB[tlcb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 check.batch.urn             10 URN      L                 tlcb                                                        
 check.batch.cart            10 FREE     L  PHA.CART       *(T2)TLCB[tlcb]|1                                       
 check.batch.create.date      8 DATE     L                 *(T2)TLCB[tlcb]|4                                           
 check.batch.create.time      4 HHMM     L                 *(T2)TLCB[tlcb]|5                                           
 check.batch.create.user     10 FREE     L  MIS.USER       *(T2)TLCB[tlcb]|6                                       
 check.batch.date             8 DATE     L                 *(T2)TLCB[tlcb]|2                                           
 check.batch.time             4 HHMM     L                 *(T2)TLCB[tlcb]|3                                           
 check.batch.type             2 CHOICE   L                 *(T2)TLCB[tlcb]|0                                           
 Ì   €   i   2
check.batch.patients
[check.batch.urn,  check.batch.patient.q]
*(T2)TLCB[tlcb]P[tlcbP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 check.batch.patient.q        2 PINT     R                 tlcbP                                                       
 check.batch.check.total      2 PINT     R                 *(T2)TLCB[tlcb]P[tlcbP]|2                                   
 check.batch.med.total        2 PINT     R                 *(T2)TLCB[tlcb]P[tlcbP]|1                                   
 check.batch.patient         30 URN      L  ADM.PAT        *(T2)TLCB[tlcb]P[tlcbP]|0                               
 Ì   €   i   2
check.batch.meds
[check.batch.urn,check.batch.patient.q,  check.batch.med.q]
*(T2)TLCB[tlcb]P[tlcbP]M[tlcbM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 check.batch.med.q            2 PINT     R                 tlcbM                                                       
 check.batch.med             10 FREE     L  PHA.DRUG       *(T2)TLCB[tlcb]P[tlcbP]M[tlcbM]|0                       
 check.batch.med.count        9 PDEC5    R                 *(T2)TLCB[tlcb]P[tlcbP]M[tlcbM]|2                           
 check.batch.med.disp        20 FREE     L                 *(T2)TLCB[tlcb]P[tlcbP]M[tlcbM]|1                           
 Ì   €   i   2
main
[urn]
*(T2)TL[tl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 urn                         10 URN      L                 tl                                                          
 batch.check.date             8 DATE     L                 *(T2)TL[tl]|11                                              
 batch.check.time             4 HHMM     L                 *(T2)TL[tl]|12                                              
 batch.check.user            10 FREE     L  MIS.USER       *(T2)TL[tl]|13                                          
 batch.create.date            8 DATE     L                 *(T2)TL[tl]|6                                               
 batch.create.time            4 HHMM     L                 *(T2)TL[tl]|7                                               
 batch.create.user           10 FREE     L  MIS.USER       *(T2)TL[tl]|8                                           
 batch.date                   8 DATE     L                 *(T2)TL[tl]|3                                               
 batch.end.date               8 DATE     L                 *(T2)TL[tl]|9                                               
 batch.end.time               4 HHMM     L                 *(T2)TL[tl]|10                                              
 batch.number                 3 PINT     R                 *(T2)TL[tl]|5                                               
 batch.time                   4 HHMM     L                 *(T2)TL[tl]|4                                               
 bkg.report.flag              1 YN       L                 *(T2)TL[tl]BKG|0                                            
 bkg.worksheet.flag           1 YN       L                 *(T2)TL[tl]BKG|1                                            
 cart                        10 FREE     L  PHA.CART       *(T2)TL[tl]|1                                           
 order.group                 10 FREE     L  PHA.OG         *(T2)TL[tl]|2                                           
 print.cpi                    2 CHOICE   L                 *(T2)TL[tl]M["L"]|0                                         
 print.cpl                    3 PINT     R                 *(T2)TL[tl]M["L"]|3                                         
 print.lpi                    2 CHOICE   L                 *(T2)TL[tl]M["L"]|1                                         
 print.lpp                    3 PINT     R                 *(T2)TL[tl]M["L"]|4                                         
 print.page.hdr              70 FREE     L                 *(T2)TL[tl]M["F"]|0                                         
 print.page.trailer          70 FREE     L                 *(T2)TL[tl]M["F"]|1                                         
 print.ps                     3 PINT     R                 *(T2)TL[tl]M["L"]|2                                         
 print.title                 55 FREE     L                 *(T2)TL[tl]M|0                                              
 type                         2 CHOICE   L                 *(T2)TL[tl]|0                                               
 Ì   €   i   2
batch.links
[urn,  batch.link.urn]
*(T2)TL[tl]L[tlBL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.link.urn              10 URN      L  PHA.REF        tlBL                                                    
 Ì   €   i   2
batch.patients
[urn,  batch.patient]
*(T2)TL[tl]P[aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.patient               30 FREE     L  PHA.PAT        aa                                                      
 batch.bed                    3 FREE     L                 *(T2)TL[tl]P[aa]|2                                          
 batch.location              10 FREE     L  MIS.LOCN       *(T2)TL[tl]P[aa]|3                                      
 batch.room                  10 FREE     L  MIS.ROOM       *(T2)TL[tl]P[aa]|1                                      
 batch.room.q                 3 PINT     R                 *(T2)TL[tl]P[aa]|0                                          
 Ì   €   i   2
batch.entry
[urn,batch.patient,  batch.rx.urn]
*(T2)TL[tl]P[aa]B[tr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.rx.urn                10 URN      L  PHA.RX         tr                                                      
 batch.add.date               8 DATE     L                 *(T2)TL[tl]P[aa]B[tr]|8                                     
 batch.add.time               4 HHMM     L                 *(T2)TL[tl]P[aa]B[tr]|9                                     
 batch.add.user              10 FREE     L  MIS.USER       *(T2)TL[tl]P[aa]B[tr]|10                                
 batch.apm.inventory         10 FREE     L  MM.INVENT      *(T2)TL[tl]P[aa]B[tr]|13                                
 batch.check.count            9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]|16                                    
 batch.dispense               9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]|0                                     
 batch.doses                  4 INT      R                 *(T2)TL[tl]P[aa]B[tr]|2                                     
 batch.doses.calc             4 INT      R                 *(T2)TL[tl]P[aa]B[tr]|7                                     
 batch.items                  9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]|5                                     
 batch.items.calc             9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]|6                                     
 batch.last.bottle            3 INT      R                 *(T2)TL[tl]P[aa]B[tr]|11                                    
 batch.late                   9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]|1                                     
 batch.messages.only          1 YN       L                 *(T2)TL[tl]P[aa]B[tr]|14                                    
 batch.out.refill             3 INT      R                 *(T2)TL[tl]P[aa]B[tr]|12                                    
 batch.rule.err.wo.msg        1 YN       L                 *(T2)TL[tl]P[aa]B[tr]|15                                    
 batch.rx.schedule            3 CHOICE   L                 *(T2)TL[tl]P[aa]B[tr]|4                                     
 batch.rx.status              2 CHOICE   L                 *(T2)TL[tl]P[aa]B[tr]|3                                     
 Ì   €   i   2
batch.alt.entry
[urn,batch.patient,batch.rx.urn,  batch.alt.bottle.type]
*(T2)TL[tl]P[aa]B[tr]A[trBT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.alt.bottle.type        2 PINT     R                 trBT                                                        
 batch.alt.dispense           9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]A[trBT]|0                              
 batch.alt.doses              4 INT      R                 *(T2)TL[tl]P[aa]B[tr]A[trBT]|2                              
 batch.alt.late               9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]A[trBT]|1                              
 Ì   €   i   2
batch.alt.dispensing
[urn,batch.patient,batch.rx.urn,batch.alt.bottle.type,  batch.alt.disp.date.time]
*(T2)TL[tl]P[aa]B[tr]A[trBT]B[trdA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.alt.disp.date.time    13 FREE     L                 trdA                                                        
 batch.alt.disp.time          4 HHMM     L                 *(T2)TL[tl]P[aa]B[tr]A[trBT]B[trdA]                         
 Ì   €   i   2
batch.dispensing
[urn,batch.patient,batch.rx.urn,  batch.dispense.date.time]
*(T2)TL[tl]P[aa]B[tr]D[trdA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.dispense.date.time    13 FREE     L                 trdA                                                        
 batch.dispense.time          4 HHMM     L                 *(T2)TL[tl]P[aa]B[tr]D[trdA]                                
 Ì   €   i   2
batch.messages
[urn,batch.patient,batch.rx.urn,  batch.message.q]
*(T2)TL[tl]P[aa]B[tr]M[trBMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.message.q              3 PINT     R                 trBMQ                                                       
 batch.message                4 CHOICE   L                 *(T2)TL[tl]P[aa]B[tr]M[trBMQ]|0                             
 batch.message.date           8 DATE     L                 *(T2)TL[tl]P[aa]B[tr]M[trBMQ]|1                             
 batch.message.rule.msg      60 FREE     L                 *(T2)TL[tl]P[aa]B[tr]M[trBMQ]|4                             
 batch.message.time           4 HHMM     L                 *(T2)TL[tl]P[aa]B[tr]M[trBMQ]|2                             
 batch.message.user          10 FREE     L  MIS.USER       *(T2)TL[tl]P[aa]B[tr]M[trBMQ]|3                         
 Ì   €   i   2
batch.message.text
[urn,batch.patient,batch.rx.urn,batch.message.q,  batch.message.text.q]
*(T2)TL[tl]P[aa]B[tr]M[trBMQ]T[trBMT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.message.text.q         3 PINT     R                 trBMT                                                       
 batch.message.text.line     80 TEXT     L                 *(T2)TL[tl]P[aa]B[tr]M[trBMQ]T[trBMT]                       
 Ì   €   i   2
batch.worksheet
[urn,batch.patient,batch.rx.urn,  batch.wksht.med]
*(T2)TL[tl]P[aa]B[tr]W[tf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.wksht.med             10 FREE     L  PHA.DRUG       tf                                                      
 batch.wksht.disp.forms       9 PDEC5    R                 *(T2)TL[tl]P[aa]B[tr]W[tf]|0                                
 Ì   €   i   2
batch.transfer
[urn,batch.patient,  batch.transfer.date.time]
*(T2)TL[tl]P[aa]T[tltDT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 batch.transfer.date.time    16 FREE     L                 tltDT                                                       
 batch.transfer.cart         10 FREE     L                 VAL=+@PHA.CART.room.x[@batch.transfer.old#"-",""]           
 batch.transfer.date          8 DATE     L                 VAL=batch.transfer.date.time#.                              
 batch.transfer.dt.and.tm    13 FREE     L                 VAL=%Z.date.out(@batch.transfer.date)_"-"_(@batch.tran      
                                                           VAL=sfer.time)                                              
 batch.transfer.new          20 FREE     L                 *(T2)TL[tl]P[aa]T[tltDT]|0                                  
 batch.transfer.old          20 FREE     L                 *(T2)TL[tl]P[aa]T[tltDT]|1                                  
 batch.transfer.time          4 HHMM     L                 VAL=batch.transfer.date.time#1.                             
 Ì   €   i   2
bkg.order.type.flags
[urn,  bkg.order.type]
*(T2)TL[tl]BKG["OT",tdo]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 bkg.order.type              10 FREE     L  PHA.OT         tdo                                                     
 bkg.order.type.flag          1 YN       L                 *(T2)TL[tl]BKG["OT",tdo]|0                                  
 Ì   €   i   2
print.params.sections
[urn,  print.sec.q]
*(T2)TL[tl]M["S",tdrfS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 print.sec.q                  1 PINT     R                 tdrfS                                                       
 print.generic.trade.both     1 CHOICE   L                 *(T2)TL[tl]M["S",tdrfS]|2                                   
 print.indent                 2 PINT     R                 *(T2)TL[tl]M["S",tdrfS]|3                                   
 print.patient.cont.hdr      70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]F|1                                  
 print.patient.hdr           70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]F|0                                  
 print.patient.trailer       70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]F|2                                  
 print.rx.detail             70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]F2|1                                 
 print.rx.hdr                70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]F2|0                                 
 print.rx.trailer            70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]F2|2                                 
 print.sec.hdr               70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]|0                                   
 print.sec.trailer           70 FREE     L                 *(T2)TL[tl]M["S",tdrfS]|1                                   
 Ì   €   i   2
print.params.meds
[urn,print.sec.q,  print.med.type]
*(T2)TL[tl]M["S",tdrfS]M[tdrsM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 print.med.type               5 FREE     L                 tdrsM                                                       
 print.med                    1 YN       L                 *(T2)TL[tl]M["S",tdrfS]M[tdrsM]|0                           
 Ì   €   i   2
print.params.sec.types
[urn,print.sec.q,  print.sec.type]
*(T2)TL[tl]M["S",tdrfS]T[tdrsT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 print.sec.type               5 FREE     L                 tdrsT                                                       
 print.section                1 YN       L                 *(T2)TL[tl]M["S",tdrfS]T[tdrsT]|0                           
 Ì   €   i   2
print.params.sort.by
[urn,print.sec.q,  print.sort.by.q]
*(T2)TL[tl]M["S",tdrfS]B[tdrsB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 print.sort.by.q              2 PINT     R                 tdrsB                                                       
 print.sort.by                8 CHOICE   L                 *(T2)TL[tl]M["S",tdrfS]B[tdrsB]                             
 Ì   €   i   2
print.params.sort.order
[urn,print.sec.q,print.sort.by.q,  print.sort.order.q]
*(T2)TL[tl]M["S",tdrfS]B[tdrsB]O[tdrsO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 print.sort.order.q           2 PINT     R                 tdrsO                                                       
 print.sort.format            8 CHOICE   L                 *(T2)TL[tl]M["S",tdrfS]B[tdrsB]O[tdrsO]|1                   
 print.sort.order             8 FREE     L                 *(T2)TL[tl]M["S",tdrfS]B[tdrsB]O[tdrsO]|0                   
 Ì     i   2
rpt.fields
[rpt.rx.urn]
/TLR[tr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rpt.rx.urn                  10 URN      L  PHA.RX         tr                                                      
 rpt.rx.setup                 1 FREE     L                 VAL=/PHA.REF.urn^PHA.REF.urn,/PHA.REF.section^PHA.REF.      
                                                           VAL=section,/PHA.REF.patient^PHA.REF.patient,/PHA.REF.      
                                                           VAL=rx.urn^PHA.REF.rx.urn                                   
 Ì   €   i   2
rpt.fields.meds
[rpt.rx.urn,  rpt.med]
/TLR[tr]M[tf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rpt.med                     10 FREE     L  PHA.DRUG       tf                                                      
 rpt.med.dispense             9 PDEC     R                 /TLR[tr]M[tf]|1                                             
 rpt.med.dose                 9 PDEC     R                 /TLR[tr]M[tf]|0                                             
 rpt.med.generic             12 FREE     L                 VAL=@PHA.DRUG.generic                                       
 rpt.med.generic.id          72 FREE     L                 VAL=@PHA.DRUG.generic.id                                    
 rpt.med.generic.name        30 FREE     L                 VAL=@PHA.DRUG.generic.name                                  
 rpt.med.late                 9 PDEC     R                 /TLR[tr]M[tf]|2                                             
 rpt.med.trade.name          45 FREE     L                 VAL=@PHA.DRUG.name                                          
 rpt.med.volume               9 PDEC     R                 /TLR[tr]M[tf]|3                                             
 Ì     i   2
rpt.params
/TLF

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rpt.menu.arg                10 FREE     L                 /TLF|0                                                      

 Index Files                        Subscripts/Physical Base

 batch.out.x                        [type,cart,order.group,batch.date,batch.number] = urn
                                      ?(T)TLBO[tddY,tdd,tdog,tlD,tlB]

 batch.x                            [type,cart,order.group,batch.date,batch.time,batch.number] = urn
                                      ?(T)TLB[tddY,tdd,tdog,tlD,tlT,tlB]

 check.batch.x                      [check.batch.type,check.batch.cart,check.batch.date,check.batch.time,check.batch
                                      ?(T)TLCBL[tddY,tdd,tlcbD,tlcbT,tlcb]

 order.batch.x                      [type,cart,order.type,batch.date,batch.time,batch.number] = urn
                                      ?(T)TLA[tddY,tdd,tdo,tlD,tlT,tlB]

 order.type.x                       [cart,order.type,urn] = urn
                                      ?(T)TLO[tdd,tdo,tl]

 type.x                             [type,cart,urn] = urn
                                      ?(T)TLY[tddY,tdd,tl]