Routine: PRSRL21

PRSRL21 ;HISC/JH-IND. OR ALL EMPLOYEE LEAVE REQUEST REPORT CONT. ;8/27/01

 ;;4.0;PAID;**2,26,39,69**;Sep 21, 1995

PRT1 S (FR,FR(1))=0 F I=0:0 S FR=$O(^TMP($J,"REQ",FR)) Q:FR'>0  D  Q:POUT

 . S NAM="" F I=0:0 S NAM=$O(^TMP($J,"REQ",FR,NAM)) Q:NAM=""  D  Q:POUT

 . . S DA=0 F  S DA=$O(^TMP($J,"REQ",FR,NAM,DA)) Q:DA'>0  D  Q:POUT

 . . . S TOUR=$G(^TMP($J,"REQ",FR,NAM,DA)),BEG=$E(FR,4,5)_"/"_$E(FR,6,7)_"/"_$E(FR,2,3),END=$P(TOUR,U,3),END=$E(END,4,5)_"/"_$E(END,6,7)_"/"_$E(END,2,3)

 . . . S X=$P(TOUR,U,9) S X=$S(X:X_$S($P(TOUR,U,10)="D":" days",1:" hrs"),1:"")

 . . . S DENT=$P(TOUR,U,6),DENT=$E(DENT,4,5)_"/"_$E(DENT,6,7)_"/"_$E(DENT,2,3),DAPR=$P(TOUR,U,7),DAPR=$S(DAPR:$E(DAPR,4,5)_"/"_$E(DAPR,6,7)_"/"_$E(DAPR,2,3),1:""),SUPR=$S($P(TOUR,U,8)'="":$P($G(^VA(200,$P(TOUR,U,8),0)),U),1:"")

 . . . D:$Y>(IOSL-5) HDR Q:POUT  D VLIN1:FR(1)'=FR

 . . . W !,"|",BEG,?10,$P(TOUR,U,1),?17,"|",END,?27,$P(TOUR,U,2),?34,"|",$E(NAM,1,20),?57,"|",?58,$J(X,10),?68,"|",?69,$E($P(TOUR,U,4),1,18),?88,"|",?89,DENT,?98,"|",?99,DAPR,?108,"|",?109,$E(SUPR,1,22),?131,"|"

 . . . S FR(1)=FR

PRT2 S FR=0 F I=0:0 S FR=$O(^TMP($J,"REQ",FR)) Q:FR'>0  D  Q:POUT

 . S NAM="" F I=0:0 S NAM=$O(^TMP($J,"REQ",FR,NAM)) Q:NAM=""  D  Q:POUT

 . . S DA=0 F  S DA=$O(^TMP($J,"REQ",FR,NAM,DA)) Q:DA'>0  D  Q:POUT

 . . . S TOUR=$G(^TMP($J,"REQ",FR,NAM,DA)),BEG=$E(FR,4,5)_"/"_$E(FR,6,7)_"/"_$E(FR,2,3),END=$P(TOUR,U,3),END=$E(END,4,5)_"/"_$E(END,6,7)_"/"_$E(END,2,3)

 . . . S X=$P(TOUR,U,9) S X=$S(X:X_$S($P(TOUR,U,10)="D":" days",1:" hrs"),1:"")

 . . . S DENT=$P(TOUR,U,6),DENT=$E(DENT,4,5)_"/"_$E(DENT,6,7)_"/"_$E(DENT,2,3),DAPR=$P(TOUR,U,7),DAPR=$S(DAPR:$E(DAPR,4,5)_"/"_$E(DAPR,6,7)_"/"_$E(DAPR,2,3),1:""),SUPR=$S($P(TOUR,U,8)'="":$P($G(^VA(200,$P(TOUR,U,8),0)),U),1:"")

 . . . D:$Y>(IOSL-5) HDR Q:POUT

 . . . W !,"|",BEG,?11,$P(TOUR,U,1),?18,"|",END,?29,$P(TOUR,U,2),?36,"|",?37,$J(X,10),?47,"|",?48,$E($P(TOUR,U,4),1,23),?72,"|",?74,DENT,?84,"|",?86,DAPR,?96,"|",?99,$E(SUPR,1,34),?131,"|"

HDR ; page header

 I $D(ZTQUEUED),$$S^%ZTLOAD S ZSTOP=1,POUT=1 Q

 D VLIDSH:'SW,VLIDSH1:SW S CODE=$S(SW=0:"L001",1:"L002"),FOOT="VA TIME & ATTENDANCE SYSTEM" D FOOT1^PRSRUT0 Q:POUT

 I $E(IOST,1,2)="C-" R !!,"Press Return/Enter to continue or ""^"" to quit. ",X:DTIME S:X="^"!('$T) POUT=1

 Q:POUT

 W @IOF

 D HDR1:SW,HDR2:'SW Q

HDR1 ; page header for all employee report

 W !?(IOM-$L(^TMP($J,"REQ",0)))/2,^TMP($J,"REQ",0),?(IOM-14),"DATE: ",DAT,!?(IOM-$L(" from: "_XX_"  to: "_YY))/2," from: ",XX,"  to: ",YY,!?(IOM-$L(" for T&L: "_$P(TLE(1),U)))/2," for T&L: ",$P(TLE(1),U),!! D VLIDSH1

 W !,"|","FROM",?17,"|","TO",?34,"|","EMPLOYEE",?57,"|",?58,"LENGTH",?68,"|",?69,"TYPE LEAVE",?88,"|",?89,"DATE-REQ",?98,"|",?99,"DATE-APP",?108,"|",?109,"APPROVING SUPERVISOR",?131,"|" D VLIDSH1 Q

HDR2 ; page header for single employee report

 W !?(IOM-$L(^TMP($J,"REQ",0)))/2,^TMP($J,"REQ",0),?(IOM-14),"DATE: ",DAT,!,?48," from ",XX," to ",YY,!,?IOM-($L(NAM)+$L(ORG))/2-5,"for: ",NAM," - ",ORG,!! D VLIDSH

 W !,"|",?6,"FROM",?18,"|",?27,"TO",?36,"|",?39,"LENGTH",?47,"|",?54,"TYPE LEAVE",?72,"|",?74,"DATE-REQ",?84,"|",?86,"DATE-APP",?96,"|",?99,"APPROVING SUPERVISOR",?131,"|" D VLIDSH Q

VLIDSH W !,"|-----------------|-----------------|----------|------------------------|-----------|-----------|----------------------------------|" Q

VLIDSH1 W !,"|----------------|----------------|----------------------|----------|-------------------|---------|---------|----------------------|" Q

VLIN1 W !,"|",?17,"|",?34,"|",?57,"|",?68,"|",?88,"|",?98,"|",?108,"|",?131,"|" Q

VLIN W !,"|",?18,"|",?36,"|",?47,"|",?72,"|",?84,"|",?96,"|",?131,"|" Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSRL21   3638     printed  Feb 18, 2025@23:55:03                                                                                                                                                                                                     Page 2

PRSRL21   ;HISC/JH-IND. OR ALL EMPLOYEE LEAVE REQUEST REPORT CONT. ;8/27/01

 +1       ;;4.0;PAID;**2,26,39,69**;Sep 21, 1995

PRT1       SET (FR,FR(1))=0

           FOR I=0:0

               SET FR=$ORDER(^TMP($JOB,"REQ",FR))

               if FR'>0

                   QUIT

               Begin DoDot:1

 +1                SET NAM=""

                   FOR I=0:0

                       SET NAM=$ORDER(^TMP($JOB,"REQ",FR,NAM))

                       if NAM=""

                           QUIT

                       Begin DoDot:2

 +2                        SET DA=0

FOR

                               SET DA=$ORDER(^TMP($JOB,"REQ",FR,NAM,DA))

                               if DA'>0

                                   QUIT

                               Begin DoDot:3

 +3                                SET TOUR=$GET(^TMP($JOB,"REQ",FR,NAM,DA))

                                   SET BEG=$EXTRACT(FR,4,5)_"/"_$EXTRACT(FR,6,7)_"/"_$EXTRACT(FR,2,3)

                                   SET END=$PIECE(TOUR,U,3)

                                   SET END=$EXTRACT(END,4,5)_"/"_$EXTRACT(END,6,7)_"/"_$EXTRACT(END,2,3)

 +4                                SET X=$PIECE(TOUR,U,9)

                                   SET X=$SELECT(X:X_$SELECT($PIECE(TOUR,U,10)="D":" days",1:" hrs"),1:"")

 +5                                SET DENT=$PIECE(TOUR,U,6)

                                   SET DENT=$EXTRACT(DENT,4,5)_"/"_$EXTRACT(DENT,6,7)_"/"_$EXTRACT(DENT,2,3)

                                   SET DAPR=$PIECE(TOUR,U,7)

                                   SET DAPR=$SELECT(DAPR:$EXTRACT(DAPR,4,5)_"/"_$EXTRACT(DAPR,6,7)_"/"_$EXTRACT(DAPR,2,3),1:"")

                                   SET SUPR=$SELECT($PIECE(TOUR,U,8)'="":$PIECE($GET(^VA(200,$PIECE(TOUR,U,8),0)),U),1:"")

 +6                                if $Y>(IOSL-5)

                                       DO HDR

                                   if POUT

                                       QUIT

                                   if FR(1)'=FR

                                       DO VLIN1

 +7                                WRITE !,"|",BEG,?10,$PIECE(TOUR,U,1),?17,"|",END,?27,$PIECE(TOUR,U,2),?34,"|",$EXTRACT(NAM,1,20),?57,"|",?58,$JUSTIFY(X,10),?68,"|",?69,$EXTRACT($PIECE(TOUR,U,4),1,18),?88,"|",?89,DENT,?98,"|",?99,DAPR,?108,"|",?109,$EXT

RACT(SUPR,1,22),?131,"|"

 +8                                SET FR(1)=FR

                               End DoDot:3

                               if POUT

                                   QUIT

                       End DoDot:2

                       if POUT

                           QUIT

               End DoDot:1

               if POUT

                   QUIT

 +9        QUIT

 +10      ;

PRT2       SET FR=0

           FOR I=0:0

               SET FR=$ORDER(^TMP($JOB,"REQ",FR))

               if FR'>0

                   QUIT

               Begin DoDot:1

 +1                SET NAM=""

                   FOR I=0:0

                       SET NAM=$ORDER(^TMP($JOB,"REQ",FR,NAM))

                       if NAM=""

                           QUIT

                       Begin DoDot:2

 +2                        SET DA=0

FOR

                               SET DA=$ORDER(^TMP($JOB,"REQ",FR,NAM,DA))

                               if DA'>0

                                   QUIT

                               Begin DoDot:3

 +3                                SET TOUR=$GET(^TMP($JOB,"REQ",FR,NAM,DA))

                                   SET BEG=$EXTRACT(FR,4,5)_"/"_$EXTRACT(FR,6,7)_"/"_$EXTRACT(FR,2,3)

                                   SET END=$PIECE(TOUR,U,3)

                                   SET END=$EXTRACT(END,4,5)_"/"_$EXTRACT(END,6,7)_"/"_$EXTRACT(END,2,3)

 +4                                SET X=$PIECE(TOUR,U,9)

                                   SET X=$SELECT(X:X_$SELECT($PIECE(TOUR,U,10)="D":" days",1:" hrs"),1:"")

 +5                                SET DENT=$PIECE(TOUR,U,6)

                                   SET DENT=$EXTRACT(DENT,4,5)_"/"_$EXTRACT(DENT,6,7)_"/"_$EXTRACT(DENT,2,3)

                                   SET DAPR=$PIECE(TOUR,U,7)

                                   SET DAPR=$SELECT(DAPR:$EXTRACT(DAPR,4,5)_"/"_$EXTRACT(DAPR,6,7)_"/"_$EXTRACT(DAPR,2,3),1:"")

                                   SET SUPR=$SELECT($PIECE(TOUR,U,8)'="":$PIECE($GET(^VA(200,$PIECE(TOUR,U,8),0)),U),1:"")

 +6                                if $Y>(IOSL-5)

                                       DO HDR

                                   if POUT

                                       QUIT

 +7                                WRITE !,"|",BEG,?11,$PIECE(TOUR,U,1),?18,"|",END,?29,$PIECE(TOUR,U,2),?36,"|",?37,$JUSTIFY(X,10),?47,"|",?48,$EXTRACT($PIECE(TOUR,U,4),1,23),?72,"|",?74,DENT,?84,"|",?86,DAPR,?96,"|",?99,$EXTRACT(SUPR,1,34),?131,"|"

                               End DoDot:3

                               if POUT

                                   QUIT

                       End DoDot:2

                       if POUT

                           QUIT

               End DoDot:1

               if POUT

                   QUIT

 +8        QUIT

 +9       ;

HDR       ; page header

 +1        IF $DATA(ZTQUEUED)

               IF $$S^%ZTLOAD

                   SET ZSTOP=1

                   SET POUT=1

                   QUIT

 +2        if 'SW

               DO VLIDSH

           if SW

               DO VLIDSH1

           SET CODE=$SELECT(SW=0:"L001",1:"L002")

           SET FOOT="VA TIME & ATTENDANCE SYSTEM"

           DO FOOT1^PRSRUT0

           if POUT

               QUIT

 +3        IF $EXTRACT(IOST,1,2)="C-"

               READ !!,"Press Return/Enter to continue or ""^"" to quit. ",X:DTIME

               if X="^"!('$TEST)

                   SET POUT=1

 +4        if POUT

               QUIT

 +5        WRITE @IOF

 +6        if SW

               DO HDR1

           if 'SW

               DO HDR2

           QUIT

HDR1      ; page header for all employee report

 +1        WRITE !?(IOM-$LENGTH(^TMP($JOB,"REQ",0)))/2,^TMP($JOB,"REQ",0),?(IOM-14),"DATE: ",DAT,!?(IOM-$LENGTH(" from: "_XX_"  to: "_YY))/2," from: ",XX,"  to: ",YY,!?(IOM-$LENGTH(" for T&L: "_$PIECE(TLE(1),U)))/2," for T&L: ",$PIECE(TLE(1),U),!!

           DO VLIDSH1

 +2        WRITE !,"|","FROM",?17,"|","TO",?34,"|","EMPLOYEE",?57,"|",?58,"LENGTH",?68,"|",?69,"TYPE LEAVE",?88,"|",?89,"DATE-REQ",?98,"|",?99,"DATE-APP",?108,"|",?109,"APPROVING SUPERVISOR",?131,"|"

           DO VLIDSH1

           QUIT

HDR2      ; page header for single employee report

 +1        WRITE !?(IOM-$LENGTH(^TMP($JOB,"REQ",0)))/2,^TMP($JOB,"REQ",0),?(IOM-14),"DATE: ",DAT,!,?48," from ",XX," to ",YY,!,?IOM-($LENGTH(NAM)+$LENGTH(ORG))/2-5,"for: ",NAM," - ",ORG,!!

           DO VLIDSH

 +2        WRITE !,"|",?6,"FROM",?18,"|",?27,"TO",?36,"|",?39,"LENGTH",?47,"|",?54,"TYPE LEAVE",?72,"|",?74,"DATE-REQ",?84,"|",?86,"DATE-APP",?96,"|",?99,"APPROVING SUPERVISOR",?131,"|"

           DO VLIDSH

           QUIT

VLIDSH     WRITE !,"|-----------------|-----------------|----------|------------------------|-----------|-----------|----------------------------------|"

           QUIT

VLIDSH1    WRITE !,"|----------------|----------------|----------------------|----------|-------------------|---------|---------|----------------------|"

           QUIT

VLIN1      WRITE !,"|",?17,"|",?34,"|",?57,"|",?68,"|",?88,"|",?98,"|",?108,"|",?131,"|"

           QUIT

VLIN       WRITE !,"|",?18,"|",?36,"|",?47,"|",?72,"|",?84,"|",?96,"|",?131,"|"

           QUIT

PRSRL21.m