source: FOIAVistA/tag/r/PAID-PRS/PRSDYTD.m@ 951

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

initial load of FOIAVistA 6/30/08 version
File size: 3.3 KB
Line 
1PRSDYTD ;HISC/GWB-COMPUTE YTD TOTALS ;2/15/94 13:20
2 ;;4.0;PAID;;Sep 21, 1995
3 S (BASYTD,LOCYTD,SPRYTD,SSAYTD,NDFYTD,SATYTD,SUNYTD,HOLYTD)=0
4 S (OVRYTD,ONCYTD,STBYTD,INCYTD,PERYTD,HBDYTD,TSPYTD)=0
5 D NOW^%DTC S PYR=$E(%,1,3),PDT=$E(%,1,3)_"0000"
6 F S PDT=$O(^PRST(459,"AC",PDT)) Q:$E(PDT,1,3)'=PYR S PPIEN=0,PPIEN=$O(^PRST(459,"AC",PDT,PPIEN)) D
7 .I $D(^PRST(459,PPIEN,"P",DA,1)) D
8 ..S HBDYTD=HBDYTD+$P(^PRST(459,PPIEN,"P",DA,1),"^",17)
9 .I $D(^PRST(459,PPIEN,"P",DA,2)) D
10 ..S TSPCSF=$P(^PRST(459,PPIEN,"P",DA,2),"^",10)
11 ..S TSPFIF=$P(^PRST(459,PPIEN,"P",DA,2),"^",11)
12 ..S TSPGSF=$P(^PRST(459,PPIEN,"P",DA,2),"^",12)
13 ..S TSPYTD=TSPYTD+(TSPCSF+TSPFIF+TSPGSF)
14 .I $D(^PRST(459,PPIEN,"P",DA,5)) D
15 ..S BASYTD=BASYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",5)
16 ..S HOLYTD=HOLYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",8)
17 ..S NDFYTD=NDFYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",10)
18 ..S ONCYTD=ONCYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",13)
19 ..S OVRYTD=OVRYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",14)
20 ..S SATYTD=SATYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",17)
21 ..S STBYTD=STBYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",18)
22 ..S SUNYTD=SUNYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",19)
23 ..S INCYTD=INCYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",24)
24 ..S PERYTD=PERYTD+$P(^PRST(459,PPIEN,"P",DA,5),"^",31)
25 .I $D(^PRST(459,PPIEN,"P",DA,6)) D
26 ..S SSAYTD=SSAYTD+$P(^PRST(459,PPIEN,"P",DA,6),"^",3)
27 ..S SPRYTD=SPRYTD+$P(^PRST(459,PPIEN,"P",DA,6),"^",4)
28 .I $D(^PRST(459,PPIEN,"P",DA,8)) D
29 ..S LOCYTD=LOCYTD+$P(^PRST(459,PPIEN,"P",DA,8),"^",30)
30 Q
31DSPYTD ;Display YTD totals
32 W:BASYTD'=0 !,"BASE PAY YTD",?30,$J($FN(BASYTD,",",2),14)
33 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
34 W:LOCYTD'=0 !,"LOCALITY PAY YTD",?30,$J($FN(LOCYTD,",",2),14)
35 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
36 W:SPRYTD'=0 !,"SPECIAL PAY RATE DIFF YTD",?30,$J($FN(SPRYTD,",",2),14)
37 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
38 W:SSAYTD'=0 !,"SPECIAL SALARY ADJ YTD",?30,$J($FN(SSAYTD,",",2),14)
39 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
40 W:NDFYTD'=0 !,"NIGHT DIFF AMT YTD",?30,$J($FN(NDFYTD,",",2),14)
41 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
42 W:SATYTD'=0 !,"SATURDAY AMT YTD",?30,$J($FN(SATYTD,",",2),14)
43 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
44 W:SUNYTD'=0 !,"SUNDAY AMT YTD",?30,$J($FN(SUNYTD,",",2),14)
45 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
46 W:HOLYTD'=0 !,"HOLIDAY AMT YTD",?30,$J($FN(HOLYTD,",",2),14)
47 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
48 W:OVRYTD'=0 !,"OVERTIME AMT YTD",?30,$J($FN(OVRYTD,",",2),14)
49 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
50 W:ONCYTD'=0 !,"ON CALL AMT YTD",?30,$J($FN(ONCYTD,",",2),14)
51 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
52 W:STBYTD'=0 !,"STANDBY AMT YTD",?30,$J($FN(STBYTD,",",2),14)
53 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
54 W:INCYTD'=0 !,"INCENTIVE AWARDS YTD",?30,$J($FN(INCYTD,",",2),14)
55 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
56 W:PERYTD'=0 !,"PERFORMANCE AWARDS YTD",?30,$J($FN(PERYTD,",",2),14)
57 D CHECK^PRSDV450 G:PRTC=0 YTDEX I PRTC=1 D HDR^PRSDSRS S PRTC=""
58 Q
59YTDEX ;KILL YTD variables
60 K BASYTD,LOCYTD,SPRYTD,SSAYTD,NDFYTD,SATYTD,SUNYTD,HOLYTD,OVRYTD,ONCYTD
61 K STBYTD,INCYTD,PERYTD,HBDYTD,TSPGSF,TSPFIF,TSPCSF,TSPYTD,PYR,PDT,PPIEN
62 Q
Note: See TracBrowser for help on using the repository browser.