- 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
