| 1 | PRSDSRP3 ;HISC/GWB-SALARY REPORT PRINT ;6/10/93 08:54
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | ASKDEV K %ZIS,IOP S %ZIS="QM",%ZIS("B")="" D ^%ZIS I POP K %ZIS Q
|
|---|
| 4 | I $D(IO("Q")) S ZTIO=ION,ZTDESC="PAID SALARY REPORT",ZTRTN="START^PRSDSRP3" D ^%ZTLOAD W:$D(ZTSK) !,"Request Queued!" D EXIT Q
|
|---|
| 5 | U IO D START
|
|---|
| 6 | D:$E(IOST,1)'="C" ^%ZISC
|
|---|
| 7 | Q
|
|---|
| 8 | START D NOW^%DTC S Y=$J(%,"",4) D DD^%DT S PRNTDT=Y
|
|---|
| 9 | S $P(DASHES,"-",80)="-",PAGE=0,FIRST="1ST",PRTC=1
|
|---|
| 10 | S SITE=$G(^DD("SITE")) S:SITE'="" SITE=" FOR "_SITE
|
|---|
| 11 | S (SALTL,SALPRJTL)=0
|
|---|
| 12 | S CCORG="" F S CCORG=$O(^PRSP(454.1,"B",CCORG)) Q:CCORG="" S CCORGIEN=0,CCORGIEN=$O(^PRSP(454.1,"B",CCORG,CCORGIEN)) I $D(^PRSP(454.1,CCORGIEN)),^PRSP(454.1,CCORGIEN,6)'="" D WRITE Q:PRTC=0
|
|---|
| 13 | G:PRTC=0 EXIT
|
|---|
| 14 | W !,DASHES
|
|---|
| 15 | I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP G:PRTC=0 EXIT D HDR
|
|---|
| 16 | W !,?23,"TOTAL",?32,$J($FN(SALTL,",",2),12),?54,$J($FN(SALPRJTL,",",2),14)
|
|---|
| 17 | I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP G:PRTC=0 EXIT D HDR
|
|---|
| 18 | W !,DASHES
|
|---|
| 19 | I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP G:PRTC=0 EXIT D HDR
|
|---|
| 20 | W ! I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP G:PRTC=0 EXIT D HDR
|
|---|
| 21 | EXIT I $D(ZTQUEUED) S ZTREQ="@" D KILL^XUSCLEAN Q
|
|---|
| 22 | WRITE I FIRST="1ST" S Y=$P(^PRSP(454.1,CCORGIEN,0),U,3) D DD^%DT S COMPDT=Y D HDR S FIRST=""
|
|---|
| 23 | S SAL=$P(^PRSP(454.1,CCORGIEN,6),U,1)
|
|---|
| 24 | S SALPRJ=$P(^PRSP(454.1,CCORGIEN,6),U,2)
|
|---|
| 25 | S SALTL=SALTL+SAL,SALPRJTL=SALPRJTL+SALPRJ
|
|---|
| 26 | W !,$P(^PRSP(454.1,CCORGIEN,0),U,1),?32,$J($FN(SAL,",",2),12),?54,$J($FN(SALPRJ,",",2),14)
|
|---|
| 27 | I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0 D HDR
|
|---|
| 28 | W !,DASHES
|
|---|
| 29 | I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0 D HDR
|
|---|
| 30 | Q
|
|---|
| 31 | HDR W:$Y>0 @IOF S PAGE=PAGE+1
|
|---|
| 32 | W !,"SALARY REPORT",SITE,?44,"COMPILATION DATE: ",COMPDT
|
|---|
| 33 | W !,"PAGE: ",PAGE,?50,"PRINT DATE: ",PRNTDT
|
|---|
| 34 | W !!
|
|---|
| 35 | W !,"SERVICE NAME",?34,"SALARY YTD",?52,"PROJECTED SALARY"
|
|---|
| 36 | W !,DASHES,!,DASHES
|
|---|
| 37 | Q
|
|---|
