source: FOIAVistA/tag/r/PAID-PRS/PRSREX11.m@ 1068

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

initial load of FOIAVistA 6/30/08 version

File size: 3.6 KB
Line 
1PRSREX11 ;HISC/JH-T & L EXPENDITURE REPORT (Continued) ;7/9/97
2 ;;4.0;PAID;**2,19,26**;Sep 21, 1995
3 D INIT,PRINT
4 K TAB1,TAB2
5 Q
6 ;
7PRINT ;routine to loop through temp global and print employee expenditures
8 S PP=0 F I=0:0 S PP=$O(^TMP($J,"EXP",PP)) Q:PP'>0 D:PP'=PP(1) HDR1 S:PP(1)="" SW(7)=0 D Q:POUT
9 . S TLE="" F I=0:0 S TLE=$O(^TMP($J,"EXP",PP,TLE)) Q:TLE="" D Q:POUT
10 .. S NAM="" F I=0:0 S NAM=$O(^TMP($J,"EXP",PP,TLE,NAM)) Q:NAM="" D Q:POUT
11 ... S D0=0 F I=0:0 S D0=$O(^TMP($J,"EXP",PP,TLE,NAM,D0)) Q:D0'>0 S TIME=^(D0) Q:TIME="" D Q:POUT
12 .... D:$Y>(IOSL-5) HDR Q:POUT
13 .... W !,"|",$E(NAM,1,20),?21,"|"
14 .... W $J($P(TIME,"^",1),12,2),?34,"|",$J($P(TIME,"^",2),7,2),?42,"|"
15 .... W $J($P(TIME,"^",3),6,2),?48,"|",$J($P(TIME,"^",4),8,2),?58,"|"
16 .... W $J($P(TIME,"^",5),6,2),?65,"|",$J($P(TIME,"^",6),6,2),?72,"|"
17 .... W $J($P(TIME,"^",7),8,2),?80,"|",$J($P(TIME,"^",8),7,2),?88,"|"
18 .... W $J($P(TIME,"^",9),7,2),?96,"|"
19 .... W $J($P(TIME,"^",10),10,2),?107,"|",$J($P(TIME,"^",11),8,2),?117,"|",$J($P(TIME,"^",12),12,2),?131,"|"
20 .... S PP(1)=PP,NAM(1)=NAM
21 .... Q
22 ... Q
23 .. Q:POUT D VLIDSH S TOT=^TMP($J,"EXP1",PP,TLE)
24 .. W !,"|",?6,"T&L ",TLE," Total:",?21,"|",$J($P(TOT,U),12,2),?34,"|",$J($P(TOT,U,2),7,2),?42,"|",$J($P(TOT,U,3),6,2),?48,"|",$J($P(TOT,U,4),8,2),?58,"|"
25 .. W $J($P(TOT,U,5),6,2),?65,"|",$J($P(TOT,U,6),6,2),?72,"|",$J($P(TOT,U,7),8,2),?80,"|",$J($P(TOT,U,8),7,2),?88,"|",$J($P(TOT,U,9),7,2),?96,"|"
26 .. W $J($P(TOT,U,10),10,2),?107,"|",$J($P(TOT,U,11),8,2),?117,"|",$J($P(TOT,U,12),12,2),?131,"|" D VLIN0 S PP(2)=PP,PP(2)=$O(^TMP($J,"EXP",PP(2))) I PP(2)'="" I IOSL<66 F II=$Y:1:IOSL-5 D VLIN0
27 .. Q
28 . Q:POUT I PP(2)'="" S SW=1 D HDR S SW=0 Q
29 . Q
30 Q:POUT D VLIN0,VLIDSH W !,"|","Totals:",?21,"|",$J(TOTAL(1),12,2),?34,"|",$J(TOTAL(2),7,2),?42,"|",$J(TOTAL(3),6,2),?48,"|",$J(TOTAL(4),8,2),?58,"|"
31 W $J(TOTAL(5),6,2),?65,"|",$J(TOTAL(6),6,2),?72,"|",$J(TOTAL(7),8,2),?80,"|",$J(TOTAL(8),7,2),?88,"|",$J(TOTAL(9),7,2),?96,"|"
32 W $J(TOTAL,10,2),?107,"|",$J(TGOV,8,2),?117,"|",$J(TOTAL+TGOV,12,2),?131,"|"
33 I IOSL<66 F I=$Y:1:IOSL-5 D VLIN0
34 S SW=1 D HDR S SW=0
35 Q
36 ;
37HDR S CODE="E001",FOOT="VA TIME & ATTENDANCE SYSTEM" D VLIDSH0,FOOT1^PRSRUT0
38 I $E(IOST,1,2)="C-" R !,"Press Return to continue. ",II:DTIME S:II="^" POUT=1
39 Q:POUT!(SW=1)
40 ;
41HDR1 W:'SW(7)!($E(IOST)="C") @IOF
42 D SETTABS
43 W !?TAB1
44 W ^TMP($J,"EXP")," ",$S(PP'="":"- "_PP,1:"- ALL"),?(IOM-14),"DATE: ",DAT
45 W !?TAB2,"T&L Unit: ",$G(TLEU)," Year: ",YEAR,!! D
46 . W !,"|",?21,"|","BASE",?34,"|","NIGHT",?42,"|","HOLIDA",?48,"|","O/TIME",?58,"|","SUNDAY",?65,"|","ON-CA",?72,"|",?81,"|","REEMP",?89,"|","SAT",?97,"|","GROSS",?108,"|","G/SHARE",?117,"|","GROSS",?131,"|"
47 . W !,"|","NAME",?21,"|","PAY",?34,"|","DIFF",?42,"|","PAY",?49,"|","PAY",?58,"|","PAY",?65,"|","PAY",?72,"|","AWARDS",?81,"|","ANNUIT",?89,"|","PAY",?97,"|","PAY",?108,"|","BENEFITS",?117,"|","COST",?131,"|" D VLIDSH0 Q
48 Q
49 ;
50VLIDSH0 W !,"|--------------------|------------|-------|------|--------|------|------|--------|-------|-------|----------|--------|-------------|" Q
51VLIDSH W !,"|",?21,"| -----------| ------| -----| -------| -----| -----| -------| ------| ------| ---------| -------| ------------|" Q
52VLIN0 W !,"|",?21,"|",?34,"|",?42,"|",?49,"|",?58,"|",?65,"|",?72,"|",?81,"|",?89,"|",?97,"|",?108,"|",?117,"|",?131,"|" Q
53 ;
54INIT ; initialize tabs and flags
55 S (PP(1),NAM(1))="",SW=0,SW(7)=1
56 ;
57 ; save off the user entered T&L unit for the report, since we
58 ; have to set TLE to null to traverse the TMP global.
59 S TLEU=TLE
60 Q
61SETTABS ;set tabs for report header lines
62 S TAB1=IOM-$L(^TMP($J,"EXP")_" "_$S(PP'="":"- "_PP,1:"- ALL"))\2
63 S TAB2=IOM-$L("T&L Unit: "_$G(TLE)_" Year: "_YEAR)\2
64 Q
Note: See TracBrowser for help on using the repository browser.