LRRP6B3 ;DALISC/J0/DRH - WORKLOAD CODE SUMMARY REPORT-DETAILED ;12/08/92
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRRP6B3 1458 printed Sep 23, 2025@19:55:42 Page 2
LRRP6B3 ;DALISC/J0/DRH - WORKLOAD CODE SUMMARY REPORT-DETAILED ;12/08/92
+1 ;;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
