LRRP6B3.m

LRRP6B3 ; IHS/DIR/FJE - WORKLOAD CODE SUMMARY REPORT-DETAILED ; 

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

EN ;

DET ;

 D HDR

 S LRSUBH="Workload Code:  "

 S LRCAPNAM=""

 F  S LRCAPNAM=$O(^TMP("LR",$J,"WKLD/TST",LRCAPNAM)) Q:(LREND)!(LRCAPNAM="")  D

 . I $Y+9>IOSL D:$E(IOST,1,2)="C-" PAUSE Q:LREND  W @IOF D HDR

 . W !!,LRSUBH,?16,$E(LRCAPNAM,1,30),?48,$J(LRCC(LRCAPNAM),12,4)

 . W !,$E(LRDASH,1,60)

 . S LRTST=""

 . F  S LRTST=$O(^TMP("LR",$J,"WKLD/TST",LRCAPNAM,LRTST)) Q:(LREND)!(LRTST="")  D

 . . I $Y+6>IOSL D

 . . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND  W @IOF D HDR

 . . . W !!,LRSUBH,?16,$E(LRCAPNAM,1,30),?48,$J(LRCC(LRCAPNAM),12,4)

 . . . W !,$E(LRDASH,1,60)

 . . Q:LREND

 . . W !,$E(LRTST,1,44)

 . . W ?46,$J(^TMP("LR",$J,"WKLD/TST",LRCAPNAM,LRTST),5)

 . Q:LREND

 . W !,$E(LRDASH,1,60),!,"TOTAL",?46,$J(^TMP("LR",$J,"WKLD/TST",LRCAPNAM),5)

 Q:LREND

 I '$D(^TMP("LR",$J,"WKLD/TST")) S LRTIC=" Workload/Test " D NODATA W !!!! QUIT

 D:$E(IOST,1,2)="C-" PAUSE Q:LREND  W @IOF

 Q

HDR ;

 S LRPAG=LRPAG+1

 W !,"Detailed Workload Report (by WKLD Code) for ",LRDATRNG

 W ?72,"PAGE ",$J(LRPAG,3)

 S LRDAT1="(Print date: "_LRDAT_")"

 W !?IOM-(IOM-$L(LRDAT1)),LRDAT1 K LRDAT1

 ;W !!?5,"TEST",?52,"COUNT"

 W !,$E(LRSTAR,1,34),"  DETAILED  ",$E(LRSTAR,1,34)

 Q

NODATA ;

 W !!,"No",LRTIC,"data for this date range.",!!!

 D PAUSE

 Q

PAUSE ;

 K DIR S DIR(0)="E" D ^DIR

 S:($D(DTOUT)#2)!($D(DUOUT)#2)!($D(DIRUT)#2) LREND=1

 Q

LRRP6B3   ; IHS/DIR/FJE - WORKLOAD CODE SUMMARY REPORT-DETAILED ; 

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

EN        ;

DET       ;

 +1        DO HDR

 +2        SET LRSUBH="Workload Code:  "

 +3        SET LRCAPNAM=""

 +4        FOR 

               SET LRCAPNAM=$ORDER(^TMP("LR",$JOB,"WKLD/TST",LRCAPNAM))

               IF (LREND)!(LRCAPNAM="")

                   QUIT 

               Begin DoDot:1

 +5                IF $Y+9>IOSL

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

                           DO PAUSE

                       IF LREND

                           QUIT 

                       WRITE @IOF

                       DO HDR

 +6                WRITE !!,LRSUBH,?16,$EXTRACT(LRCAPNAM,1,30),?48,$JUSTIFY(LRCC(LRCAPNAM),12,4)

 +7                WRITE !,$EXTRACT(LRDASH,1,60)

 +8                SET LRTST=""

 +9                FOR 

                       SET LRTST=$ORDER(^TMP("LR",$JOB,"WKLD/TST",LRCAPNAM,LRTST))

                       IF (LREND)!(LRTST="")

                           QUIT 

                       Begin DoDot:2

 +10                       IF $Y+6>IOSL

                               Begin DoDot:3

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

                                       DO PAUSE

                                   IF LREND

                                       QUIT 

                                   WRITE @IOF

                                   DO HDR

 +12                               WRITE !!,LRSUBH,?16,$EXTRACT(LRCAPNAM,1,30),?48,$JUSTIFY(LRCC(LRCAPNAM),12,4)

 +13                               WRITE !,$EXTRACT(LRDASH,1,60)

                               End DoDot:3

 +14                       IF LREND

                               QUIT 

 +15                       WRITE !,$EXTRACT(LRTST,1,44)

 +16                       WRITE ?46,$JUSTIFY(^TMP("LR",$JOB,"WKLD/TST",LRCAPNAM,LRTST),5)

                       End DoDot:2

 +17               IF LREND

                       QUIT 

 +18               WRITE !,$EXTRACT(LRDASH,1,60),!,"TOTAL",?46,$JUSTIFY(^TMP("LR",$JOB,"WKLD/TST",LRCAPNAM),5)

               End DoDot:1

 +19       IF LREND

               QUIT 

 +20       IF '$DATA(^TMP("LR",$JOB,"WKLD/TST"))

               SET LRTIC=" Workload/Test "

               DO NODATA

               WRITE !!!!

               QUIT 

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

               DO PAUSE

           IF LREND

               QUIT 

           WRITE @IOF

 +22       QUIT 

HDR       ;

 +1        SET LRPAG=LRPAG+1

 +2        WRITE !,"Detailed Workload Report (by WKLD Code) for ",LRDATRNG

 +3        WRITE ?72,"PAGE ",$JUSTIFY(LRPAG,3)

 +4        SET LRDAT1="(Print date: "_LRDAT_")"

 +5        WRITE !?IOM-(IOM-$LENGTH(LRDAT1)),LRDAT1

           KILL LRDAT1

 +6       ;W !!?5,"TEST",?52,"COUNT"

 +7        WRITE !,$EXTRACT(LRSTAR,1,34),"  DETAILED  ",$EXTRACT(LRSTAR,1,34)

 +8        QUIT 

NODATA    ;

 +1        WRITE !!,"No",LRTIC,"data for this date range.",!!!

 +2        DO PAUSE

 +3        QUIT 

PAUSE     ;

 +1        KILL DIR

           SET DIR(0)="E"

           DO ^DIR

 +2        IF ($DATA(DTOUT)#2)!($DATA(DUOUT)#2)!($DATA(DIRUT)#2)

               SET LREND=1

 +3        QUIT