sHelp
                                     BAR.REV.PI.AT
       2
   bar.rev.pi.at.comp.date.segs
   bar.rev.by.pi.at.main
     bar.rev.by.pi.at.corps
       bar.rev.pi.at.dept.info
         bar.rev.by.pi.at.pri.ins
           bar.rev.by.pi.at.acct.types
             bar.rev.by.pi.at.procs

 Ì       2
bar.rev.by.pi.at.main    (main) 
[date.segment]
*BUPI[bu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 date.segment                 8 DATE     L                 bu                                                          
 Ì       2
bar.rev.by.pi.at.corps    (corp.main) 
[date.segment, corp]
*BUPI[bu,gn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 corp                         4 FREE     L  MIS.GL.CORP    gn                                                      
 Ì       2
bar.rev.pi.at.dept.info    (dept.info) 
[date.segment,corp, chg.dept]
*BUPI[bu,gn,gd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 chg.dept                    15 FREE     L  MIS.GL.DEPT    gd                                                      
 Ì       2
bar.rev.by.pi.at.pri.ins    (pri.ins.info) 
[date.segment,corp,chg.dept, pri.ins]
*BUPI[bu,gn,gd,ggm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pri.ins                     10 FREE     L  MIS.INS.DICT   ggm                                                     
 Ì       2
bar.rev.by.pi.at.acct.types    (acct.type.info) 
[date.segment,corp,chg.dept,pri.ins, acct.type]
*BUPI[bu,gn,gd,ggm,ba]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 acct.type                    8 FREE     L  BAR.ACCT.TYPE  ba                                                      
 acct.type.in.out.sort       15 FREE     L                 VAL=IF{"Y"=o.yes.no IF{acct.type's.in.out="I" "INPATIE      
                                                           VAL=NT";"OUTPATIENT"};D(127)}                               
 acct.type.sort              10 FREE     L                 VAL=IF{"Y"=a.yes.no acct.type;D(127)}                       
 pri.ins.group.sort          10 FREE     L                 VAL=IF{"Y"=g.yes.no pri.ins's.insurance.group;D(127)}       
 pri.ins.sort                10 FREE     L                 VAL=IF{"Y"=i.yes.no pri.ins;D(127)}                         
 proc.chg.dept.sort          32 FREE     L                 VAL=IF{"Y"=d.yes.no chg.dept_" "_@MIS.GL.DEPT.name;D(1      
                                                           VAL=27)}                                                    
 Ì       2
bar.rev.by.pi.at.procs    (proc.info) 
[date.segment,corp,chg.dept,pri.ins,acct.type, proc]
*BUPI[bu,gn,gd,ggm,ba,bd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc                        10 FREE     L  BAR.PROC       bd                                                      
 amount                      12 SMONEY   R                 VAL=(@BAR.REV.PI.AT.inp.amount+@BAR.REV.PI.AT.out.amou      
                                                           VAL=nt)                                                     
 count                        5 INT      R                 VAL=(@BAR.REV.PI.AT.inp.count+@BAR.REV.PI.AT.out.count      
                                                           VAL=)                                                       
 inp.amount                  12 SMONEY   R                 *BUPI[bu,gn,gd,ggm,ba,bd]|1                                 
 inp.count                    4 INT      R                 *BUPI[bu,gn,gd,ggm,ba,bd]|0                                 
 out.amount                  12 SMONEY   R                 *BUPI[bu,gn,gd,ggm,ba,bd]|3                                 
 out.count                    4 INT      R                 *BUPI[bu,gn,gd,ggm,ba,bd]|2                                 
 year.amount                 12 SMONEY   R                 VAL=(@BAR.REV.PI.AT.year.inp.amount+@BAR.REV.PI.AT.yea      
                                                           VAL=r.out.amount)                                           
 year.count                   6 INT      R                 VAL=(@BAR.REV.PI.AT.year.inp.count+@BAR.REV.PI.AT.year      
                                                           VAL=.out.count)                                             
 year.inp.amount             12 SMONEY   R                 *BUPI[bu,gn,gd,ggm,ba,bd]|5                                 
 year.inp.count               5 INT      R                 *BUPI[bu,gn,gd,ggm,ba,bd]|4                                 
 year.out.amount             12 SMONEY   R                 *BUPI[bu,gn,gd,ggm,ba,bd]|7                                 
 year.out.count               5 INT      R                 *BUPI[bu,gn,gd,ggm,ba,bd]|6