| 1 | LRRP6B3 ;DALISC/J0/DRH - WORKLOAD CODE SUMMARY REPORT-DETAILED ;12/08/92
|
---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
---|
| 3 | EN ;
|
---|
| 4 | DET ;
|
---|
| 5 | D HDR
|
---|
| 6 | S LRSUBH="Workload Code: "
|
---|
| 7 | S LRCAPNAM=""
|
---|
| 8 | F S LRCAPNAM=$O(^TMP("LR",$J,"WKLD/TST",LRCAPNAM)) Q:(LREND)!(LRCAPNAM="") D
|
---|
| 9 | . I $Y+9>IOSL D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF D HDR
|
---|
| 10 | . W !!,LRSUBH,?16,$E(LRCAPNAM,1,30),?48,$J(LRCC(LRCAPNAM),12,4)
|
---|
| 11 | . W !,$E(LRDASH,1,60)
|
---|
| 12 | . S LRTST=""
|
---|
| 13 | . F S LRTST=$O(^TMP("LR",$J,"WKLD/TST",LRCAPNAM,LRTST)) Q:(LREND)!(LRTST="") D
|
---|
| 14 | . . I $Y+6>IOSL D
|
---|
| 15 | . . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF D HDR
|
---|
| 16 | . . . W !!,LRSUBH,?16,$E(LRCAPNAM,1,30),?48,$J(LRCC(LRCAPNAM),12,4)
|
---|
| 17 | . . . W !,$E(LRDASH,1,60)
|
---|
| 18 | . . Q:LREND
|
---|
| 19 | . . W !,$E(LRTST,1,44)
|
---|
| 20 | . . W ?46,$J(^TMP("LR",$J,"WKLD/TST",LRCAPNAM,LRTST),5)
|
---|
| 21 | . Q:LREND
|
---|
| 22 | . W !,$E(LRDASH,1,60),!,"TOTAL",?46,$J(^TMP("LR",$J,"WKLD/TST",LRCAPNAM),5)
|
---|
| 23 | Q:LREND
|
---|
| 24 | I '$D(^TMP("LR",$J,"WKLD/TST")) S LRTIC=" Workload/Test " D NODATA W !!!! QUIT
|
---|
| 25 | D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF
|
---|
| 26 | Q
|
---|
| 27 | HDR ;
|
---|
| 28 | S LRPAG=LRPAG+1
|
---|
| 29 | W !,"Detailed Workload Report (by WKLD Code) for ",LRDATRNG
|
---|
| 30 | W ?72,"PAGE ",$J(LRPAG,3)
|
---|
| 31 | S LRDAT1="(Print date: "_LRDAT_")"
|
---|
| 32 | W !?IOM-(IOM-$L(LRDAT1)),LRDAT1 K LRDAT1
|
---|
| 33 | ;W !!?5,"TEST",?52,"COUNT"
|
---|
| 34 | W !,$E(LRSTAR,1,34)," DETAILED ",$E(LRSTAR,1,34)
|
---|
| 35 | Q
|
---|
| 36 | NODATA ;
|
---|
| 37 | W !!,"No",LRTIC,"data for this date range.",!!!
|
---|
| 38 | D PAUSE
|
---|
| 39 | Q
|
---|
| 40 | PAUSE ;
|
---|
| 41 | K DIR S DIR(0)="E" D ^DIR
|
---|
| 42 | S:($D(DTOUT)#2)!($D(DUOUT)#2)!($D(DIRUT)#2) LREND=1
|
---|
| 43 | Q
|
---|