| 1 | PRCBRBR ;WISC@ALTOONA/CTB/SAW-RUNNING BALANCE FOR FISCAL ;4/11/93 1:56 PM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | S %A="For ALL Control Points",%B="A 'YES' will print/display balances for all control points for the Station",%B(1)="Number, Fiscal Year and Quarter selected. A 'NO' will allow you to"
|
|---|
| 5 | S %B(2)="print or display a Running Balance or Summary report for an individual",%B(3)="Control Point. Enter an '^' to QUIT.",%=2 D ^PRCFYN Q:%<0 G:%=1 QALL^PRCBCPR
|
|---|
| 6 | CPB ;CONTROL POINT BALANCE
|
|---|
| 7 | D EN1^PRCBSUT G:Y<0 EXIT1 S ZX=Z K C1
|
|---|
| 8 | CPB1 S %A="Summary Balances Report Only",%B="",%=1 D ^PRCFYN
|
|---|
| 9 | G EXIT1:%<0 I %=1 S C1=1,ZTRTN="QUE^PRCSP1A"
|
|---|
| 10 | E S ZTRTN="QUE^PRCSP1A"
|
|---|
| 11 | S (Z,PRCFZ,PRCSZ)=ZX,PRCFC=C K ZX S ZTDESC="FISCAL RUNNING BALANCE REPORT",ZTSAVE("PRC*")="",ZTSAVE("C*")="",ZTSAVE("Z*")="",ZTSAVE("PRCFZ")="",ZTSAVE("PRCSZ")="",ZTSAVE("PRCFC")="" D ^PRCFQ,EXIT1 G CPB
|
|---|
| 12 | EXIT1 K %,%IS,%DT,BY,C0,C1,C2,C3,D,D0,DA,DHD,DIC,DIE,P,PRCF,PRCFZ,PRCSZ,PRCFC,PRCS,PRCSDEQ,FLDS,FR,I,IOP,L,N,T,TO,X,X1,Y,Z,Z1 Q
|
|---|
