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

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

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 corp                         4 FREE     L  MIS.GL.CORP    gn                                                      
 Ì       2
bar.rev.by.at.pi.acct.types    (acct.type.info) 
[date.segment,corp, acct.type]
*BUAT[bu,gn,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"=a.yes.no IF{acct.type's.in.out="I" "(IN)";"      
                                                           VAL=(OUT)"}_" ACCT TYPES";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!("Y"=i.yes.no) pri.ins's.insurance      
                                                           VAL=.group;D(127)}                                          
 pri.ins.sort                10 FREE     L                 VAL=IF{"Y"=i.yes.no pri.ins;D(127)}                         
 proc.chg.dept.sort          15 FREE     L                 VAL=IF{"Y"=d.yes.no proc's.chg.dept$/CB_corp_(proc's.c      
                                                           VAL=hg.dept'$/CE);D(127)}                                   
 Ì       2
bar.rev.by.at.pi.pri.ins    (pri.ins.info) 
[date.segment,corp,acct.type, pri.ins]
*BUAT[bu,gn,ba,ggm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pri.ins                     10 FREE     L  MIS.INS.DICT   ggm                                                     
 Ì       2
bar.rev.by.at.pi.procs    (proc.info) 
[date.segment,corp,acct.type,pri.ins, proc]
*BUAT[bu,gn,ba,ggm,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.AT.PI.inp.amount+@BAR.REV.AT.PI.out.amou      
                                                           VAL=nt)                                                     
 amount1                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.1,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.1,corp,acct.type,pri.ins,proc])               
 amount10                    12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.10,corp,ac      
                                                           VAL=ct.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[da      
                                                           VAL=te.segment.10,corp,acct.type,pri.ins,proc])             
 amount11                    12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.11,corp,ac      
                                                           VAL=ct.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[da      
                                                           VAL=te.segment.11,corp,acct.type,pri.ins,proc])             
 amount12                    12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.12,corp,ac      
                                                           VAL=ct.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[da      
                                                           VAL=te.segment.12,corp,acct.type,pri.ins,proc])             
 amount2                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.2,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.2,corp,acct.type,pri.ins,proc])               
 amount3                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.3,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.3,corp,acct.type,pri.ins,proc])               
 amount4                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.4,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.4,corp,acct.type,pri.ins,proc])               
 amount5                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.5,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.5,corp,acct.type,pri.ins,proc])               
 amount6                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.6,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.6,corp,acct.type,pri.ins,proc])               
 amount7                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.7,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.7,corp,acct.type,pri.ins,proc])               
 amount8                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.8,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.8,corp,acct.type,pri.ins,proc])               
 amount9                     12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount[date.segment.9,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.amount[dat      
                                                           VAL=e.segment.9,corp,acct.type,pri.ins,proc])               
 count                        5 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count+@BAR.REV.AT.PI.out.count      
                                                           VAL=)                                                       
 count1                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.1,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.1,corp,acct.type,pri.ins,proc])                 
 count10                      4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.10,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date      
                                                           VAL=.segment.10,corp,acct.type,pri.ins,proc])               
 count11                      4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.11,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date      
                                                           VAL=.segment.11,corp,acct.type,pri.ins,proc])               
 count12                      4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.12,corp,acc      
                                                           VAL=t.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date      
                                                           VAL=.segment.12,corp,acct.type,pri.ins,proc])               
 count2                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.2,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.2,corp,acct.type,pri.ins,proc])                 
 count3                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.3,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.3,corp,acct.type,pri.ins,proc])                 
 count4                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.4,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.4,corp,acct.type,pri.ins,proc])                 
 count5                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.5,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.5,corp,acct.type,pri.ins,proc])                 
 count6                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.6,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.6,corp,acct.type,pri.ins,proc])                 
 count7                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.7,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.7,corp,acct.type,pri.ins,proc])                 
 count8                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.8,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.8,corp,acct.type,pri.ins,proc])                 
 count9                       4 INT      R                 VAL=(@BAR.REV.AT.PI.inp.count[date.segment.9,corp,acct      
                                                           VAL=.type,pri.ins,proc]+@BAR.REV.AT.PI.out.count[date.      
                                                           VAL=segment.9,corp,acct.type,pri.ins,proc])                 
 inp.amount                  12 SMONEY   R                 *BUAT[bu,gn,ba,ggm,bd]|1                                    
 inp.count                    4 INT      R                 *BUAT[bu,gn,ba,ggm,bd]|0                                    
 out.amount                  12 SMONEY   R                 *BUAT[bu,gn,ba,ggm,bd]|3                                    
 out.count                    4 INT      R                 *BUAT[bu,gn,ba,ggm,bd]|2                                    
 year.amount                 12 SMONEY   R                 VAL=(@BAR.REV.AT.PI.inp.amount+@BAR.REV.AT.PI.out.amou      
                                                           VAL=nt)                                                     
 year.count                   6 INT      R                 VAL=(@BAR.REV.AT.PI.year.inp.count+@BAR.REV.AT.PI.year      
                                                           VAL=.out.count)                                             
 year.inp.amount             12 SMONEY   R                 *BUAT[bu,gn,ba,ggm,bd]|5                                    
 year.inp.count               5 INT      R                 *BUAT[bu,gn,ba,ggm,bd]|4                                    
 year.out.amount             12 SMONEY   R                 *BUAT[bu,gn,ba,ggm,bd]|7                                    
 year.out.count               5 INT      R                 *BUAT[bu,gn,ba,ggm,bd]|6