source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCB1G.m@ 1739

Last change on this file since 1739 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PRCB1G ;WISC/PLT-IFCAP CURRENT DETAIL OCCRUAL ;12/2/97 14:03
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 QUIT ;invalid entry
5 ;
6EN ;year to date detail accrual
7 N PRCA,PRCB,PRCQCD,PRCOPT,PRCRI,PRCDI,PRCDUZ,PRC,PRCDES,PRCTD
8 N A,B,C
9Q1 ;station
10 S PRCF("X")="AS" D ^PRCFSITE G:'% EXIT
11 S PRCRI(420)=+PRC("SITE"),PRCOPT=1
12Q4 ;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.")
21Q5 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 ;
26EXIT QUIT
27 ;
28 ;
29ACCR ;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 ;
Note: See TracBrowser for help on using the repository browser.