[613] | 1 | PRSDYTD ;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
|
---|
| 31 | DSPYTD ;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
|
---|
| 59 | YTDEX ;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
|
---|