sHelp
                                     PHA.STATS
     i   2
   pha.statistics.emar.daily.admi
     pha.statistics.emar.daily.adm2
       pha.statistics.emar.daily.adoc
   pha.statistics.emar.daily.pt
   pha.statistics.emar.month.admi
     pha.statistics.emar.month.adm2
   pha.statistics.emar.month.pt
   pha.statistics.emar.oc.map
     pha.statistics.emar.oc.map.cmt
   pha.statistics.emar.warn.types
   pha.stats.gl.batches
   pha.stats.inventory.txns
   pha.statistics.file
   pha.mm.below.zero.queue
   pha.inventory.errors
   pha.mm.partial.item.queue
   pha.mm.queue
     pha.mm.drug.inventories
       pha.mm.drug.inv.locations
     pha.mm.drug.data.by.facility
       pha.mm.vendor.data
     pha.mm.inventory.items
   pha.stats.ord.use.doc.q
   pha.stats.ord.use.doc.type.q
   pha.stats.ord.use.ott
   pha.stats.order.usage.compile
     pha.stats.order.iv.add.carr
     pha.stats.order.iv.tpn
       pha.stats.order.iv.tpn.rx
     pha.stats.order.usage.med
       pha.stats.order.usage
       pha.stats.ou.med.ord.type
     pha.stats.ord.usage.ord.type
   pha.stats.usage
   pha.stats.usage.can

 Ì     i   2
pha.statistics.emar.daily.admi    (emar.daily.admin.stats) 
[emar.daily.date]
?TSED[edd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.daily.date              8 DATE     L                 edd                                                         
 emar.daily.num.admin         5 PINT     R                 ?TSED[edd]|0                                                
 emar.daily.num.admin.wrn     5 PINT     R                 ?TSED[edd]|5                                                
 emar.daily.num.nadmin.wrn    5 PINT     R                 ?TSED[edd]|6                                                
 emar.daily.num.pt.scan       5 PINT     R                 ?TSED[edd]|4                                                
 emar.daily.num.pt.ver        5 PINT     R                 ?TSED[edd]|3                                                
 emar.daily.num.scan          5 PINT     R                 ?TSED[edd]|1                                                
 emar.daily.num.warn          5 PINT     R                 ?TSED[edd]|2                                                
 Ì     i   2
pha.statistics.emar.daily.adm2    (emar.daily.admin.stats.2) 
[emar.daily.date, emar.daily.activity.type,emar.daily.location,emar.daily.admin.user,emar.daily.admin.drug,emar.daily.a
?TSED[edd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.daily.activity.type    10 FREE     L                 edat                                                        
 emar.daily.location         10 FREE     L  MIS.LOCN.DICT  ggn                                                     
 emar.daily.admin.user       10 FREE     L  MIS.USER       gu                                                      
 emar.daily.admin.drug       10 FREE     L  PHA.DRUG       tf                                                      
 emar.daily.admin.route      10 FREE     L  PHA.ROUTES     tdr                                                     
 emar.daily.drug.type        10 FREE     L  PHA.DRUG.TYPE  tdb                                                     
 emar.daily.order.dr         10 FREE     L  MIS.DOC.DICT   ggg                                                     
 emar.daily.enter.user       10 FREE     L  MIS.USER       gu2                                                     
 emar.daily.next.act.type    10 FREE     L                 VAL=>:TSED[emar.daily.date,X]                            
 emar.daily.next.adm.drug    10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,emar.daily.location,emar.daily.admin.user,X]           
 emar.daily.next.adm.route   10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,emar.daily.location,emar.daily.admin.user,emar.da      
                                                           VAL=ily.admin.drug,X]                                       
 emar.daily.next.adm.user    10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,emar.daily.location,X]                                 
 emar.daily.next.drug.type   10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,emar.daily.location,emar.daily.admin.user,emar.da      
                                                           VAL=ily.admin.drug,emar.daily.admin.route,X]                
 emar.daily.next.ent.user    10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,emar.daily.location,emar.daily.admin.user,emar.da      
                                                           VAL=ily.admin.drug,emar.daily.admin.route,emar.daily.d      
                                                           VAL=rug.type,emar.daily.order.dr,X]                         
 emar.daily.next.loc         10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,X]                                                     
 emar.daily.next.order.dr    10 FREE     L                 VAL=>:TSED[emar.daily.date,emar.daily.activity.type      
                                                           VAL=,emar.daily.location,emar.daily.admin.user,emar.da      
                                                           VAL=ily.admin.drug,emar.daily.admin.route,emar.daily.d      
                                                           VAL=rug.type,X]                                             
 emar.daily.num.filed         4 PINT     R                 ?TSED[edd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]|1                 
 emar.daily.num.received      4 PINT     R                 ?TSED[edd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]|0                 
 Ì     i   2
pha.statistics.emar.daily.adoc    (emar.daily.admin.stats.oc) 
[emar.daily.date,emar.daily.activity.type,emar.daily.location,emar.daily.admin.user,emar.daily.admin.drug,emar.daily.ad
?TSED[edd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]OC[edaso]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.daily.admin.stat.ocm    4 PINT     R                 edaso                                                       
 emar.daily.admin.stat.ocf    4 PINT     R                 ?TSED[edd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]OC[edaso]|1        
 emar.daily.admin.stat.ocr    4 PINT     R                 ?TSED[edd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]OC[edaso]|0        
 Ì     i   2
pha.statistics.emar.daily.pt    (emar.daily.pat.stats) 
[emar.daily.pt.date,emar.daily.pt.location]
?TSEDP[edpd,ggn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.daily.pt.date           8 DATE     L                 edpd                                                        
 emar.daily.pt.location      10 FREE     L  MIS.LOCN.DICT  ggn                                                     
 emar.daily.pt.acct.mtc.fi    5 PINT     R                 ?TSEDP[edpd,ggn]|2                                          
 emar.daily.pt.acct.mtc.to    5 PINT     R                 ?TSEDP[edpd,ggn]|0                                          
 emar.daily.pt.scan.filed     5 PINT     R                 ?TSEDP[edpd,ggn]|4                                          
 emar.daily.pt.scan.total     5 PINT     R                 ?TSEDP[edpd,ggn]|3                                          
 emar.daily.pt.unit.match     5 PINT     R                 ?TSEDP[edpd,ggn]|1                                          
 Ì     i   2
pha.statistics.emar.month.admi    (emar.month.admin.stats) 
[emar.month]
?TSEM[emd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.month                   6 FREE     L                 emd                                                         
 emar.month.num.admin         6 PINT     R                 ?TSEM[emd]|0                                                
 emar.month.num.admin.wrn     6 PINT     R                 ?TSEM[emd]|5                                                
 emar.month.num.nadmin.wrn    6 PINT     R                 ?TSEM[emd]|6                                                
 emar.month.num.pt.scan       6 PINT     R                 ?TSEM[emd]|4                                                
 emar.month.num.pt.ver        6 PINT     R                 ?TSEM[emd]|3                                                
 emar.month.num.scan          6 PINT     R                 ?TSEM[emd]|1                                                
 emar.month.num.warn          6 PINT     R                 ?TSEM[emd]|2                                                
 Ì     i   2
pha.statistics.emar.month.adm2    (emar.month.admin.stats.2) 
[emar.month, emar.month.activity.type,emar.month.location,emar.month.admin.user,emar.month.admin.drug,emar.month.admin.
?TSEM[emd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.month.activity.type    10 FREE     L                 edat                                                        
 emar.month.location         10 FREE     L  MIS.LOCN.DICT  ggn                                                     
 emar.month.admin.user       10 FREE     L  MIS.USER       gu                                                      
 emar.month.admin.drug       10 FREE     L  PHA.DRUG       tf                                                      
 emar.month.admin.route      10 FREE     L  PHA.ROUTES     tdr                                                     
 emar.month.drug.type        10 FREE     L  PHA.DRUG.TYPE  tdb                                                     
 emar.month.order.dr         10 FREE     L  MIS.DOC.DICT   ggg                                                     
 emar.month.enter.user       10 FREE     L  MIS.USER       gu2                                                     
 emar.month.next.act.type    10 FREE     L                 VAL=>:TSEM[emar.month,X]                                 
 emar.month.next.adm.drug    10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,emar      
                                                           VAL=.month.location,emar.month.admin.user,X]                
 emar.month.next.adm.route   10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,emar      
                                                           VAL=.month.location,emar.month.admin.user,emar.month.a      
                                                           VAL=dmin.drug,X]                                            
 emar.month.next.adm.user    10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,emar      
                                                           VAL=.month.location,X]                                      
 emar.month.next.drug.type   10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,emar      
                                                           VAL=.month.location,emar.month.admin.user,emar.month.a      
                                                           VAL=dmin.drug,emar.month.admin.route,X]                     
 emar.month.next.ent.user    10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,emar      
                                                           VAL=.month.location,emar.month.admin.user,emar.month.a      
                                                           VAL=dmin.drug,emar.month.admin.route,emar.month.drug.t      
                                                           VAL=ype,emar.month.order.dr,X]                              
 emar.month.next.loc         10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,X]        
 emar.month.next.order.dr    10 FREE     L                 VAL=>:TSEM[emar.month,emar.month.activity.type,emar      
                                                           VAL=.month.location,emar.month.admin.user,emar.month.a      
                                                           VAL=dmin.drug,emar.month.admin.route,emar.month.drug.t      
                                                           VAL=ype,X]                                                  
 emar.month.num.filed         4 PINT     R                 ?TSEM[emd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]|1                 
 emar.month.num.received      4 PINT     R                 ?TSEM[emd,edat,ggn,gu,tf,tdr,tdb,ggg,gu2]|0                 
 Ì     i   2
pha.statistics.emar.month.pt    (emar.month.pat.stats) 
[emar.month.pt.month,emar.month.pt.location]
?TSEMP[empm,ggn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.month.pt.month          6 FREE     L                 empm                                                        
 emar.month.pt.location      10 FREE     L  MIS.LOCN.DICT  ggn                                                     
 emar.month.pt.acct.mtc.fi    5 PINT     R                 ?TSEMP[empm,ggn]|2                                          
 emar.month.pt.acct.mtc.to    5 PINT     R                 ?TSEMP[empm,ggn]|0                                          
 emar.month.pt.scan.filed     5 PINT     R                 ?TSEMP[empm,ggn]|4                                          
 emar.month.pt.scan.total     5 PINT     R                 ?TSEMP[empm,ggn]|3                                          
 emar.month.pt.unit.match     5 PINT     R                 ?TSEMP[empm,ggn]|1                                          
 Ì     i   2
pha.statistics.emar.oc.map    (emar.oc.map) 
[emar.oc.map.q]
?TSEOM[eomcq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.oc.map.q                4 PINT     R                 eomcq                                                       
 emar.oc.map.last.date        8 DATE     L                 ?TSEOM[eomcq]|0                                             
 Ì     i   2
pha.statistics.emar.oc.map.cmt    (emar.oc.map.cmt) 
[emar.oc.map.q, emar.oc.map.line.q]
?TSEOM[eomcq]CMT[eomlq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.oc.map.line.q           4 PINT     R                 eomlq                                                       
 emar.oc.map.line            60 FREE     L                 ?TSEOM[eomcq]CMT[eomlq]                                     
 emar.oc.map.line.1          60 FREE     L                 VAL=@emar.oc.map.cmt[1]                                     
 Ì     i   2
pha.statistics.emar.warn.types    (emar.warn.types) 
[emar.warn.type.mnemonic]
&TSWT[ewtm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 emar.warn.type.mnemonic     10 FREE     L                 ewtm                                                        
 emar.warn.type.active        1 YN       L                 &TSWT[ewtm]|0                                               
 emar.warn.type.desc         31 FREE     L                 &TSWT[ewtm]|1                                               
 Ì     i   2
pha.stats.gl.batches    (gl.batches) 
[gl.urn,gl.rx.urn,gl.txn.date,gl.txn.q,gl.txn.med,gl.account.type,gl.account]
:TSGL[gb,tr,trXD,tuzt,tf,tsGAT,ga]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 gl.urn                       8 URN      L                 gb                                                          
 gl.rx.urn                   10 URN      L  PHA.RX         tr                                                      
 gl.txn.date                  8 DATE     L                 trXD                                                        
 gl.txn.q                    10 PINT     R                 tuzt                                                        
 gl.txn.med                  10 FREE     L  PHA.DRUG       tf                                                      
 gl.account.type              1 CHOICE   L                 tsGAT                                                       
 gl.account                  25 FREE     L  MIS.GL.ACCOUNT ga                                                      
 gl.batch.amount             12 SMONEY   R                 :TSGL[gb,tr,trXD,tuzt,tf,tsGAT,ga]|0                        
 Ì     i   2
pha.stats.inventory.txns    (inventory.txns) 
[txn.date,txn.q]
:TSX[tsxD,tsxQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 txn.date                     8 DATE     L                 tsxD                                                        
 txn.q                       10 PINT     R                 tsxQ                                                        
 txn.charge                   9 MONEY    R                 :TSX[tsxD,tsxQ]|1                                           
 txn.cost                     9 PDEC     R                 :TSX[tsxD,tsxQ]|6                                           
 txn.dept                    15 FREE     L  MIS.GL.DEPT    :TSX[tsxD,tsxQ]|7                                       
 txn.entered                  9 PINT     R                 :TSX[tsxD,tsxQ]|8                                           
 txn.inventory               10 FREE     L  MM.INVENT      :TSX[tsxD,tsxQ]|5                                       
 txn.items                    9 PDEC     R                 :TSX[tsxD,tsxQ]|4                                           
 txn.location                10 FREE     L  MIS.LOCN.DICT  :TSX[tsxD,tsxQ]|9                                       
 txn.med                     10 FREE     L  PHA.DRUG       :TSX[tsxD,tsxQ]|3                                       
 txn.type                     1 CHOICE   L                 :TSX[tsxD,tsxQ]|0                                           
 txn.user                    10 FREE     L  MIS.USER       :TSX[tsxD,tsxQ]|2                                       
 Ì     i   2
pha.statistics.file    (main) 
[date,sort.1,sort.2]
?TS[ts,ts1,ts2]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 date                         8 DATE     L                 ts                                                          
 sort.1                      10 FREE     L                 ts1                                                         
 sort.2                      10 FREE     L                 ts2                                                         
 shift                        1 CHOICE   L                                                                             
 shift.1.count                8 PINT     R                 ?TS[ts,ts1,ts2]|0                                           
 shift.2.count                8 PINT     R                 ?TS[ts,ts1,ts2]|1                                           
 shift.3.count                8 PINT     R                 ?TS[ts,ts1,ts2]|2                                           
 shift.start.time             4 HHMM     L                                                                             
 Ì     i   2
pha.mm.below.zero.queue    (mm.below.zero.queue) 
[mm.bz.inventory,mm.bz.item,mm.bz.q]
:TSB[mi,mt,tsbq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.bz.inventory             10 FREE     L  MM.INVENT      mi                                                      
 mm.bz.item                  43 URN      L  MM.ITEM        mt                                                      
 mm.bz.q                      3 PINT     R                 tsbq                                                        
 mm.bz.date                   8 DATE     L                 :TSB[mi,mt,tsbq]|3                                          
 mm.bz.dept                  15 FREE     L  MIS.GL.DEPT    :TSB[mi,mt,tsbq]|2                                      
 mm.bz.qty                    8 PDEC     R                 :TSB[mi,mt,tsbq]|0                                          
 mm.bz.type                   2 CHOICE   L                 :TSB[mi,mt,tsbq]|4                                          
 mm.bz.user                  10 FREE     L  MIS.USER       :TSB[mi,mt,tsbq]|1                                      
 Ì     i   2
pha.inventory.errors    (mm.errors) 
[mm.err.inventory,mm.err.date,mm.err.q]
:TSE[mi,tsed,tseq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.err.inventory            10 FREE     L  MM.INVENT      mi                                                      
 mm.err.date                  8 DATE     L                 tsed                                                        
 mm.err.q                     3 PINT     R                 tseq                                                        
 mm.err.drug                 10 FREE     L  PHA.DRUG       :TSE[mi,tsed,tseq]|5                                    
 mm.err.item                 43 URN      L  MM.ITEM        :TSE[mi,tsed,tseq]|1                                    
 mm.err.msg                  50 FREE     L                 :TSE[mi,tsed,tseq]|4                                        
 mm.err.qty                   8 PINT     R                 :TSE[mi,tsed,tseq]|3                                        
 mm.err.stock                18 URN      L  MM.STOCK       :TSE[mi,tsed,tseq]|2                                    
 mm.err.type                  1 CHOICE   L                 :TSE[mi,tsed,tseq]|0                                        
 Ì     i   2
pha.mm.partial.item.queue    (mm.partial.item.queue) 
[mm.pi.inventory,mm.pi.item]
:TSP[mi,mt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.pi.inventory             10 FREE     L  MM.INVENT      mi                                                      
 mm.pi.item                  43 URN      L  MM.ITEM        mt                                                      
 mm.pi.qty                    8 PDEC     R                 :TSP[mi,mt]|0                                               
 Ì     i   2
pha.mm.queue    (mm.queue) 
[mm.seconds,mm.q]
:TSM[tsms,tsmq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.seconds                   9 PINT     R                 tsms                                                        
 mm.q                         2 PINT     R                 tsmq                                                        
 ..use.me.1                  10 FREE     L                 :TSM[tsms,tsmq]D|5                                          
 ..use.me.2                   7 FREE     L                 :TSM[tsms,tsmq]D|6                                          
 ..use.me.3                   1 YN       L                 :TSM[tsms,tsmq]D2|0                                         
 ..use.me.4                   3 FREE     L                 :TSM[tsms,tsmq]D2|1                                         
 mm.active                    1 YN       L                 :TSM[tsms,tsmq]D|14                                         
 mm.bill.code                10 FREE     L                 :TSM[tsms,tsmq]D|7                                          
 mm.category                  8 FREE     L  MM.CATEGORY    :TSM[tsms,tsmq]D|8                                      
 mm.desc.1                   30 FREE     L                 :TSM[tsms,tsmq]D|3                                          
 mm.desc.2                   30 FREE     L                 :TSM[tsms,tsmq]D|4                                          
 mm.device                   15 FREE     L                 :TSM[tsms,tsmq]D|10                                         
 mm.drug                     10 FREE     L  PHA.DRUG       :TSM[tsms,tsmq]D|0                                      
 mm.generic.name             30 FREE     L                 :TSM[tsms,tsmq]D2|2                                         
 mm.gl.dept                  15 FREE     L  MIS.GL.DEPT    :TSM[tsms,tsmq]D|13                                     
 mm.inv.dept                 15 FREE     L  MIS.GL.DEPT    :TSM[tsms,tsmq]I|5                                      
 mm.inv.drug                 10 FREE     L  PHA.DRUG       :TSM[tsms,tsmq]I|2                                      
 mm.inv.drug.qty              8 PDEC     R                 :TSM[tsms,tsmq]I|3                                          
 mm.inv.from                 10 FREE     L  MM.INVENT      :TSM[tsms,tsmq]I|7                                      
 mm.inv.rx.urn               10 URN      L  PHA.RX         :TSM[tsms,tsmq]I|4                                      
 mm.inv.to                   10 FREE     L  MM.INVENT      :TSM[tsms,tsmq]I|8                                      
 mm.inv.txn.date              8 DATE     L                 :TSM[tsms,tsmq]I|6                                          
 mm.inv.user                 10 FREE     L  MIS.USER       :TSM[tsms,tsmq]I|1                                      
 mm.inventory                10 FREE     L  MM.INVENT      :TSM[tsms,tsmq]I|0                                      
 mm.item                     43 URN      L  MM.ITEM        :TSM[tsms,tsmq]D|1                                      
 mm.item.no                  10 FREE     L                 :TSM[tsms,tsmq]D|12                                         
 mm.name                     30 FREE     L                 :TSM[tsms,tsmq]D|2                                          
 mm.ndc.din.number           12 FREE     L                 :TSM[tsms,tsmq]D2|3                                         
 mm.no.errors                 1 FREE     L                 :TSM[tsms,tsmq]|3                                           
 mm.pha.db                   12 FREE     L  MIS.APPL       :TSM[tsms,tsmq]|2                                       
 mm.pkg                      40 FREE     L                 :TSM[tsms,tsmq]D|11                                         
 mm.type                      2 CHOICE   L                 :TSM[tsms,tsmq]|0                                           
 mm.unit.issue                1 FREE     L                 :TSM[tsms,tsmq]|4                                           
 mm.updated                   1 YN       L                 :TSM[tsms,tsmq]|1                                           
 mm.user                     10 FREE     L  MIS.USER       :TSM[tsms,tsmq]D|9                                      
 Ì     i   2
pha.mm.drug.inventories    (mm.drug.inventories) 
[mm.seconds,mm.q, mm.drug.inventory]
:TSM[tsms,tsmq]D["I",mi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.drug.inventory           10 FREE     L  MM.INVENT      mi                                                      
 mm.drug.item                43 URN      L  MM.ITEM        :TSM[tsms,tsmq]D["I",mi]|0                              
 mm.max.level                 6 PDEC     R                 :TSM[tsms,tsmq]D["I",mi]|5                                  
 mm.min.level                 6 PDEC     R                 :TSM[tsms,tsmq]D["I",mi]|4                                  
 mm.par                       6 PDEC     R                 :TSM[tsms,tsmq]D["I",mi]|2                                  
 mm.pt.ui                     4 FREE     L                 :TSM[tsms,tsmq]D["I",mi]|8                                  
 mm.pt.ui.us                  7 PINT     R                 :TSM[tsms,tsmq]D["I",mi]|9                                  
 mm.shelf                    10 FREE     L                 :TSM[tsms,tsmq]D["I",mi]|3                                  
 mm.stock.active              1 YN       L                 :TSM[tsms,tsmq]D["I",mi]|6                                  
 mm.ui                        4 FREE     L                 :TSM[tsms,tsmq]D["I",mi]|1                                  
 mm.ui.us                     7 PINT     R                 :TSM[tsms,tsmq]D["I",mi]|7                                  
 Ì     i   2
pha.mm.drug.inv.locations    (mm.drug.inv.locations) 
[mm.seconds,mm.q,mm.drug.inventory, mm.drug.inv.location]
:TSM[tsms,tsmq]D["I",mi]L[tsmL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.drug.inv.location        10 FREE     L                 tsmL                                                        
 Ì     i   2
pha.mm.drug.data.by.facility    (mm.drug.data.by.facility) 
[mm.seconds,mm.q, purchasing.facility]
:TSM[tsms,tsmq]DFAC[mw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 purchasing.facility         10 FREE     L  MIS.PUR.FAC    mw                                                      
 mm.eoc.by.fac                7 FREE     L  MIS.GL.EOC     :TSM[tsms,tsmq]DFAC[mw]|1                               
 mm.mfr.by.fac               10 FREE     L  MIS.MFR        :TSM[tsms,tsmq]DFAC[mw]|0                               
 mm.pt.eoc.by.fac             7 FREE     L  MIS.GL.EOC     :TSM[tsms,tsmq]DFAC[mw]|4                               
 mm.tax.code.by.fac           3 FREE     L  MIS.TAX.CODE   :TSM[tsms,tsmq]DFAC[mw]|3                               
 mm.taxable.by.fac            1 YN       L                 :TSM[tsms,tsmq]DFAC[mw]|2                                   
 Ì     i   2
pha.mm.vendor.data    (mm.vendor.data) 
[mm.seconds,mm.q,purchasing.facility, mm.ven.q]
:TSM[tsms,tsmq]DFAC[mw]V[tsv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.ven.q                     2 PINT     R                 tsv                                                         
 mm.ven                      11 FREE     L  MIS.VEN        :TSM[tsms,tsmq]DFAC[mw]V[tsv]|0                         
 mm.ven.cat.no               10 FREE     L                 :TSM[tsms,tsmq]DFAC[mw]V[tsv]|1                             
 mm.ven.conv.pkg.size        10 FREE     L                 :TSM[tsms,tsmq]DFAC[mw]V[tsv]|5                             
 mm.ven.cost.per.up          11 MONEY    R                 :TSM[tsms,tsmq]DFAC[mw]V[tsv]|2                             
 mm.ven.up                    4 FREE     L                 :TSM[tsms,tsmq]DFAC[mw]V[tsv]|3                             
 mm.ven.up.cnt                5 PDEC     R                 :TSM[tsms,tsmq]DFAC[mw]V[tsv]|4                             
 Ì     i   2
pha.mm.inventory.items    (mm.inventory.items) 
[mm.seconds,mm.q, mm.inv.item]
:TSM[tsms,tsmq]I["T",mt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mm.inv.item                 43 URN      L  MM.ITEM        mt                                                      
 mm.inv.comment              20 FREE     L                 :TSM[tsms,tsmq]I["T",mt]|1                                  
 mm.inv.qty                   8 PDEC     R                 :TSM[tsms,tsmq]I["T",mt]|0                                  
 Ì     i   2
pha.stats.ord.use.doc.q    (ord.use.doc.q) 
[ord.use.dr.q]
/TSODR[ouDRQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ord.use.dr.q                 3 PINT     R                 ouDRQ                                                       
 ord.use.dr.doc              10 FREE     L  MIS.DOC.DICT   /TSODR[ouDRQ]|0                                         
 Ì     i   2
pha.stats.ord.use.doc.type.q    (ord.use.doc.type.q) 
[ord.use.dr.type.q]
/TSODRTYP[ouDDG]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ord.use.dr.type.q            3 PINT     R                 ouDDG                                                       
 ord.use.dr.doc.type         10 FREE     L  MIS.DOC.TYPE   /TSODRTYP[ouDDG]|0                                      
 Ì     i   2
pha.stats.ord.use.ott    (ord.use.ott) 
[ord.use.ott.q]
/TSOTT[ouOTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ord.use.ott.q                3 PINT     R                 ouOTQ                                                       
 ord.use.ott.ott              5 CHOICE   L                 /TSOTT[ouOTQ]                                               
 Ì     i   2
pha.stats.order.usage.compile    (order.usage.compile) 
[ou.compile.q]
:TSO[ouQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ou.compile.q                 3 PINT     R                 ouQ                                                         
 ou.bkg.job.num              10 PINT     R                 :TSO[ouQ]|8                                                 
 ou.compile.date              8 DATE     L                 :TSO[ouQ]|3                                                 
 ou.compile.end              10 PINT     R                 :TSO[ouQ]|5                                                 
 ou.compile.end.rx           10 PINT     R                 :TSO[ouQ]|7                                                 
 ou.compile.start            10 PINT     R                 :TSO[ouQ]|4                                                 
 ou.compile.start.rx         10 PINT     R                 :TSO[ouQ]|6                                                 
 ou.from.date                 8 DATE     L                 :TSO[ouQ]|0                                                 
 ou.ott.alt.cnt               8 PINT     R                 :TSO[ouQ]OTT|5                                              
 ou.ott.comp.cnt              8 PINT     R                 :TSO[ouQ]OTT|2                                              
 ou.ott.iv.cnt                8 PINT     R                 :TSO[ouQ]OTT|1                                              
 ou.ott.med.cnt               8 PINT     R                 :TSO[ouQ]OTT|0                                              
 ou.ott.split.cnt             8 PINT     R                 :TSO[ouQ]OTT|3                                              
 ou.process.rx.date           8 DATE     L                 :TSO[ouQ]|9                                                 
 ou.thru.date                 8 DATE     L                 :TSO[ouQ]|1                                                 
 ou.user                     10 FREE     L  MIS.USER       :TSO[ouQ]|2                                             
 Ì     i   2
pha.stats.order.iv.add.carr    (order.iv.add.carr) 
[ou.compile.q, iv.add.1,iv.add.2,iv.add.3,iv.carr.1,iv.carr.2]
:TSO[ouQ]IV.AC[tfA1,tfA2,tfA3,tfC1,tfC2]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 iv.add.1                    10 FREE     L  PHA.DRUG       tfA1                                                    
 iv.add.2                    10 FREE     L  PHA.DRUG       tfA2                                                    
 iv.add.3                    10 FREE     L  PHA.DRUG       tfA3                                                    
 iv.carr.1                   10 FREE     L  PHA.DRUG       tfC1                                                    
 iv.carr.2                   10 FREE     L  PHA.DRUG       tfC2                                                    
 iv.add.carr.cnt              8 PINT     R                 :TSO[ouQ]IV.AC[tfA1,tfA2,tfA3,tfC1,tfC2]                    
 Ì     i   2
pha.stats.order.iv.tpn    (order.iv.tpn) 
[ou.compile.q, iv.additive.cnt,iv.carrier.cnt]
:TSO[ouQ]IV.TPN[ivADc,ivCRc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 iv.additive.cnt              8 PINT     R                 ivADc                                                       
 iv.carrier.cnt               8 PINT     R                 ivCRc                                                       
 iv.tpn.cnt                   8 PINT     R                 :TSO[ouQ]IV.TPN[ivADc,ivCRc]                                
 Ì     i   2
pha.stats.order.iv.tpn.rx    (order.iv.tpn.rx) 
[ou.compile.q,iv.additive.cnt,iv.carrier.cnt, order.iv.tpn.rx.urn]
:TSO[ouQ]IV.TPN[ivADc,ivCRc]TR[tr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 order.iv.tpn.rx.urn         10 URN      L  PHA.RX         tr                                                      
 order.iv.tpn.rx.number      11 FREE     L                 :TSO[ouQ]IV.TPN[ivADc,ivCRc]TR[tr]                          
 Ì     i   2
pha.stats.order.usage.med    (order.usage.med) 
[ou.compile.q, ou.med]
:TSO[ouQ]M[tf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ou.med                      10 FREE     L  PHA.DRUG       tf                                                      
 ou.med.alt.cnt               8 PINT     R                 :TSO[ouQ]M[tf]|5                                            
 ou.med.comp.cnt              8 PINT     R                 :TSO[ouQ]M[tf]|3                                            
 ou.med.iv.cnt                8 PINT     R                 :TSO[ouQ]M[tf]|2                                            
 ou.med.med.cnt               8 PINT     R                 :TSO[ouQ]M[tf]|1                                            
 ou.med.split.cnt             8 PINT     R                 :TSO[ouQ]M[tf]|4                                            
 ou.med.total.cnt             8 PINT     R                 :TSO[ouQ]M[tf]|0                                            
 Ì     i   2
pha.stats.order.usage    (order.usage) 
[ou.compile.q,ou.med, ou.provider,ou.prov.type,ou.order.type.type,ou.ord.type,ou.dose,ou.route,ou.dose.per.day,ou.sig,o
:TSO[ouQ]M[tf]D[ggg,ggi,oTT,tdo,oD,tdr,dPD,gpr,oSC,aG3,aG6,sX,oDX,oPRN,oAC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ou.provider                 10 FREE     L  MIS.DOC.DICT   ggg                                                     
 ou.prov.type                10 FREE     L  MIS.DOC.TYPE   ggi                                                     
 ou.order.type.type           5 CHOICE   L                 oTT                                                         
 ou.ord.type                 10 FREE     L  PHA.OT         tdo                                                     
 ou.dose                      9 PDECZ    R                 oD                                                          
 ou.route                    10 FREE     L  PHA.ROUTES     tdr                                                     
 ou.dose.per.day              9 PDECZ    R                 dPD                                                         
 ou.sig                      20 FREE     L  MIS.DIR        gpr                                                     
 ou.schedule                  3 CHOICE   L                 oSC                                                         
 ou.age.p.a.g                 5 PINT     R                 aG3                                                         
 ou.age.6                     5 PINT     R                 aG6                                                         
 ou.pt.sex                    1 CHOICE   L                 sX                                                          
 ou.pt.drg.diag              10 FREE     L                 oDX                                                         
 ou.prn.reason               10 FREE     L                 oPRN                                                        
 ou.admin.crit               10 FREE     L                 oAC                                                         
 ou.count                    10 PDECZ    R                 :TSO[ouQ]M[tf]D[ggg,ggi,oTT,tdo,oD,tdr,dPD,gpr,oSC,aG3,aG6,s
 Ì     i   2
pha.stats.ou.med.ord.type    (order.usage.med.ord.type) 
[ou.compile.q,ou.med, ou.med.order.type]
:TSO[ouQ]M[tf]OT[tdo]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ou.med.order.type           10 FREE     L  PHA.OT         tdo                                                     
 ou.med.ord.type.cnt            PINT     R                 :TSO[ouQ]M[tf]OT[tdo]                                       
 Ì     i   2
pha.stats.ord.usage.ord.type    (order.usage.ord.type) 
[ou.compile.q, ou.ord.typ.type,ou.order.type]
:TSO[ouQ]OTT[ouOTT,tdo]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ou.ord.typ.type              5 CHOICE   L                 ouOTT                                                       
 ou.order.type               10 FREE     L  PHA.OT         tdo                                                     
 ou.order.type.cnt            8 PINT     R                 :TSO[ouQ]OTT[ouOTT,tdo]                                     
 Ì     i   2
pha.stats.usage    (usage) 
[usort,uperiod,ukey,umed,ufac,usite,upt.type]
:TSU[tss,gp,tsk,tf,gqb,tdsi,tsp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 usort                        4 CHOICE   L                 tss                                                         
 uperiod                     10 FREE     L  MIS.GL.PERIOD  gp                                                      
 ukey                        10 FREE     L                 tsk                                                         
 umed                        10 FREE     L  PHA.DRUG       tf                                                      
 ufac                        10 FREE     L  MIS.FACILITY   gqb                                                     
 usite                       10 FREE     L  PHA.SITE       tdsi                                                    
 upt.type                     1 CHOICE   L                 tsp                                                         
 ucharge                     11 MONEY    R                 :TSU[tss,gp,tsk,tf,gqb,tdsi,tsp]|3                          
 ucost                       11 MONEY    R                 :TSU[tss,gp,tsk,tf,gqb,tdsi,tsp]|4                          
 udose.count                  8 INT      R                 :TSU[tss,gp,tsk,tf,gqb,tdsi,tsp]|1                          
 urx.count                    6 INT      R                 :TSU[tss,gp,tsk,tf,gqb,tdsi,tsp]|0                          
 uunit.count                  8 INT      R                 :TSU[tss,gp,tsk,tf,gqb,tdsi,tsp]|2                          
 Ì     i   2
pha.stats.usage.can    (usage.can) 
[ucsort,ucperiod,uckey,ucinv,uceoc,ucfac,ucsite,ucpt.type]
:TSUC[tss,gp,tsk,mi,ge,gqb,tdsi,tsp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ucsort                       4 CHOICE   L                 tss                                                         
 ucperiod                    10 FREE     L  MIS.GL.PERIOD  gp                                                      
 uckey                       10 FREE     L                 tsk                                                         
 ucinv                       10 FREE     L  PHA.INV        mi                                                      
 uceoc                        7 FREE     L  MIS.GL.EOC     ge                                                      
 ucfac                       10 FREE     L  MIS.FACILITY   gqb                                                     
 ucsite                      10 FREE     L  PHA.SITE       tdsi                                                    
 ucpt.type                    1 CHOICE   L                 tsp                                                         
 uccharge                    11 MONEY    R                 :TSUC[tss,gp,tsk,mi,ge,gqb,tdsi,tsp]|3                      
 uccost                      11 MONEY    R                 :TSUC[tss,gp,tsk,mi,ge,gqb,tdsi,tsp]|4                      
 ucdose.count                 8 INT      R                 :TSUC[tss,gp,tsk,mi,ge,gqb,tdsi,tsp]|1                      
 ucrx.count                   6 INT      R                 :TSUC[tss,gp,tsk,mi,ge,gqb,tdsi,tsp]|0                      
 ucunit.count                 8 INT      R                 :TSUC[tss,gp,tsk,mi,ge,gqb,tdsi,tsp]|2                      
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pha.statistics.emar.oc.map.x       [emar.oc.map.line.1,emar.oc.map.q]
   emar.oc.map.x                      ?TSEOMX[eoml1,eomcq]

 pha.stats.gl.period.index          [ucperiod,gl.urn]
   gl.period.x                        :TSGLP[gp,gb]

 pha.statistics.shift.index         [shift.start.time] = shift
   shift.x                            :TSS[tsh]