Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRSREX11

PRSREX11.m

Go to the documentation of this file.
  1. PRSREX11 ;HISC/JH-T & L EXPENDITURE REPORT (Continued) ;7/9/97
  1. ;;4.0;PAID;**2,19,26**;Sep 21, 1995
  1. D INIT,PRINT
  1. K TAB1,TAB2
  1. Q
  1. ;
  1. PRINT ;routine to loop through temp global and print employee expenditures
  1. 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
  1. . S TLE="" F I=0:0 S TLE=$O(^TMP($J,"EXP",PP,TLE)) Q:TLE="" D Q:POUT
  1. .. S NAM="" F I=0:0 S NAM=$O(^TMP($J,"EXP",PP,TLE,NAM)) Q:NAM="" D Q:POUT
  1. ... 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
  1. .... D:$Y>(IOSL-5) HDR Q:POUT
  1. .... W !,"|",$E(NAM,1,20),?21,"|"
  1. .... W $J($P(TIME,"^",1),12,2),?34,"|",$J($P(TIME,"^",2),7,2),?42,"|"
  1. .... W $J($P(TIME,"^",3),6,2),?48,"|",$J($P(TIME,"^",4),8,2),?58,"|"
  1. .... W $J($P(TIME,"^",5),6,2),?65,"|",$J($P(TIME,"^",6),6,2),?72,"|"
  1. .... W $J($P(TIME,"^",7),8,2),?80,"|",$J($P(TIME,"^",8),7,2),?88,"|"
  1. .... W $J($P(TIME,"^",9),7,2),?96,"|"
  1. .... W $J($P(TIME,"^",10),10,2),?107,"|",$J($P(TIME,"^",11),8,2),?117,"|",$J($P(TIME,"^",12),12,2),?131,"|"
  1. .... S PP(1)=PP,NAM(1)=NAM
  1. .... Q
  1. ... Q
  1. .. Q:POUT D VLIDSH S TOT=^TMP($J,"EXP1",PP,TLE)
  1. .. 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,"|"
  1. .. 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,"|"
  1. .. 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
  1. .. Q
  1. . Q:POUT I PP(2)'="" S SW=1 D HDR S SW=0 Q
  1. . Q
  1. 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,"|"
  1. 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,"|"
  1. W $J(TOTAL,10,2),?107,"|",$J(TGOV,8,2),?117,"|",$J(TOTAL+TGOV,12,2),?131,"|"
  1. I IOSL<66 F I=$Y:1:IOSL-5 D VLIN0
  1. S SW=1 D HDR S SW=0
  1. Q
  1. ;
  1. HDR S CODE="E001",FOOT="VA TIME & ATTENDANCE SYSTEM" D VLIDSH0,FOOT1^PRSRUT0
  1. I $E(IOST,1,2)="C-" R !,"Press Return to continue. ",II:DTIME S:II="^" POUT=1
  1. Q:POUT!(SW=1)
  1. ;
  1. HDR1 W:'SW(7)!($E(IOST)="C") @IOF
  1. D SETTABS
  1. W !?TAB1
  1. W ^TMP($J,"EXP")," ",$S(PP'="":"- "_PP,1:"- ALL"),?(IOM-14),"DATE: ",DAT
  1. W !?TAB2,"T&L Unit: ",$G(TLEU)," Year: ",YEAR,!! D
  1. . 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,"|"
  1. . 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
  1. Q
  1. ;
  1. VLIDSH0 W !,"|--------------------|------------|-------|------|--------|------|------|--------|-------|-------|----------|--------|-------------|" Q
  1. VLIDSH W !,"|",?21,"| -----------| ------| -----| -------| -----| -----| -------| ------| ------| ---------| -------| ------------|" Q
  1. VLIN0 W !,"|",?21,"|",?34,"|",?42,"|",?49,"|",?58,"|",?65,"|",?72,"|",?81,"|",?89,"|",?97,"|",?108,"|",?117,"|",?131,"|" Q
  1. ;
  1. INIT ; initialize tabs and flags
  1. S (PP(1),NAM(1))="",SW=0,SW(7)=1
  1. ;
  1. ; save off the user entered T&L unit for the report, since we
  1. ; have to set TLE to null to traverse the TMP global.
  1. S TLEU=TLE
  1. Q
  1. SETTABS ;set tabs for report header lines
  1. S TAB1=IOM-$L(^TMP($J,"EXP")_" "_$S(PP'="":"- "_PP,1:"- ALL"))\2
  1. S TAB2=IOM-$L("T&L Unit: "_$G(TLE)_" Year: "_YEAR)\2
  1. Q