| 1 | PRCB1G ;WISC/PLT-IFCAP CURRENT DETAIL OCCRUAL ;12/2/97 14:03
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | QUIT ;invalid entry
|
|---|
| 5 | ;
|
|---|
| 6 | EN ;year to date detail accrual
|
|---|
| 7 | N PRCA,PRCB,PRCQCD,PRCOPT,PRCRI,PRCDI,PRCDUZ,PRC,PRCDES,PRCTD
|
|---|
| 8 | N A,B,C
|
|---|
| 9 | Q1 ;station
|
|---|
| 10 | S PRCF("X")="AS" D ^PRCFSITE G:'% EXIT
|
|---|
| 11 | S PRCRI(420)=+PRC("SITE"),PRCOPT=1
|
|---|
| 12 | Q4 ;prompt fiscal year
|
|---|
| 13 | S A=$$DATE^PRC0C("T","E"),PRCTD=$P(A,"^",1,2)
|
|---|
| 14 | S E="O^2:4^K:X'?2N&(X'?4N) X",Y(1)="Enter a fiscal year in format: YY OR YYYY. For example: 96 or 1996"
|
|---|
| 15 | D FT^PRC0A(.X,.Y,"For Fiscal Year",E,$P(PRCTD,"^"))
|
|---|
| 16 | G:X["^"!(X="")!(Y'?2.4N) EXIT
|
|---|
| 17 | S:Y?2N Y=$$YEAR^PRC0C(Y) I Y>PRCTD D EN^DDIOL("Too early to run this report") G Q4
|
|---|
| 18 | S A=$$QTRDATE^PRC0D(Y,$S(+PRCTD=Y:$P(PRCTD,"^",2),1:4)),PRCA=A W " Fiscal Year: ",$P(PRCA,"^")
|
|---|
| 19 | S $P(PRCA,"^",11)=$P(PRCA,"^",8)_"-"_PRC("SITE")
|
|---|
| 20 | I $O(^PRCH(440.6,"ST","N~",0)) D EN^DDIOL("Warning: An unregistered card exists in your file. Contact the P.C. Coordinator.")
|
|---|
| 21 | Q5 D YN^PRC0A(.X,.Y,"Ready to Print","O","NO")
|
|---|
| 22 | I X["^"!(X="")!'Y G Q4
|
|---|
| 23 | D ACCR
|
|---|
| 24 | D EN^DDIOL(" "),EN^DDIOL(" ") G Q4
|
|---|
| 25 | ;
|
|---|
| 26 | EXIT QUIT
|
|---|
| 27 | ;
|
|---|
| 28 | ;
|
|---|
| 29 | ACCR ;start accrual
|
|---|
| 30 | N PRCDUZ
|
|---|
| 31 | S PRCDUZ=DUZ
|
|---|
| 32 | S ZTDESC="IFCAP YTD Detail Accrual for Fiscal Year: "_$P(PRCA,"^")
|
|---|
| 33 | S PRCDES=ZTDESC
|
|---|
| 34 | S ZTRTN="TMEN^PRCB1G1" F A="PRCOPT","PRCA","PRCTD","PRCDUZ","PRCDES","DUZ*" S ZTSAVE(A)=""
|
|---|
| 35 | D ^PRCFQ
|
|---|
| 36 | QUIT
|
|---|
| 37 | ;
|
|---|
