Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRARCR3A

LRARCR3A.m

Go to the documentation of this file.
  1. LRARCR3A ;DALISC/CKA - ARCHIVEDWKLD REP GENERATOR-PRINT 2 ;
  1. ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
  1. ;clone of LRCAPR3A
  1. COND ;
  1. D HDR1^LRARCR4
  1. D LOC Q:LREND
  1. D LRMAC Q:LREND
  1. D:LRCTL CONTROL Q:LREND
  1. D WKLD Q:LREND
  1. D STAT^LRARCR3B
  1. Q
  1. LOC ;
  1. Q:'$D(^TMP("LRAR",$J,"TST/LOC"))
  1. S LRSUBH1="TOTAL TESTS BY LOCATION: % of GRAND TOTAL"_" ( "_LRSUM_" )"
  1. W !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)),!
  1. S LRLOC=""
  1. F I=0:1 S LRLOC=$O(^TMP("LRAR",$J,"TST/LOC",LRLOC)) Q:(LRLOC="")!(LREND) D
  1. . S X=I#2 W:'X ! W ?X*40
  1. . W $E(LRLOC_" ",1,20),"="
  1. . W $J(^TMP("LRAR",$J,"TST/LOC",LRLOC),4)," "
  1. . W $J($FN($S(LRSUM:^(LRLOC)/LRSUM,1:0)*100,"",2),5),"%"
  1. . I X,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
  1. Q
  1. LRMAC ;
  1. Q:'$D(^TMP("LRAR",$J,"TST/LRM"))
  1. S LRSUBH1="TOTAL TESTS by INSTRUMENTS: % of GRAND TOTAL"_" ( "_LRSUM_" )"
  1. I $Y+9>IOSL D PAUSE^LRARCR4 Q:LREND W @IOF D HDR1^LRARCR4
  1. W !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1))
  1. S LRMAC=""
  1. F S LRMAC=$O(^TMP("LRAR",$J,"TST/LRM",LRMAC)) Q:(LRMAC="")!(LREND) S LRLMAC=^(LRMAC) D
  1. . I $Y+6>IOSL D UP1^LRARCR4 Q:LREND
  1. . W !!,LRMAC," =",$J(LRLMAC,5)," "
  1. . W $J($FN($S(LRSUM:LRLMAC/LRSUM,1:0)*100,"",2),5),"%"
  1. . S LRTEST=""
  1. . F I=0:1 S LRTEST=$O(^TMP("LRAR",$J,"TST/LRM",LRMAC,LRTEST)) Q:(LRTEST="")!(LREND) D
  1. . . S X=I#2 W:'X ! W ?X*40+1
  1. . . W LRTEST," = ",$J(^TMP("LRAR",$J,"TST/LRM",LRMAC,LRTEST),5)
  1. . . W " ",$J($FN($S(LRLMAC:^(LRTEST)/LRLMAC,1:0)*100,"",2),5),"%"
  1. . . I X,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
  1. Q
  1. CONTROL ;
  1. Q:'$D(^TMP("LRAR",$J,"TST/CTL"))
  1. S LRSUBH1="Total CONTROL TESTS by INSTRUMENTS: % of GRAND TOTAL"_" ( "_LRSUM_" )"
  1. I $Y+9>IOSL D PAUSE^LRARCR4 Q:LREND W @IOF D HDR1^LRARCR4
  1. W !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1))
  1. S LRMAC=""
  1. F S LRMAC=$O(^TMP("LRAR",$J,"TST/CTL",LRMAC)) Q:(LRMAC="")!(LREND) S LRLMAC=^(LRMAC) D
  1. . I $Y+6>IOSL D UP1^LRARCR4 Q:LREND
  1. . W !!,LRMAC," =",$J(LRLMAC,5)," "
  1. . W $J($FN($S(LRSUM:LRLMAC/LRSUM,1:0)*100,"",2),5),"%"
  1. . S LRTEST=""
  1. . F I=0:1 S LRTEST=$O(^TMP("LRAR",$J,"TST/CTL",LRMAC,LRTEST)) Q:(LRTEST="")!(LREND) D
  1. . . S X=I#2 W:'X ! W ?X*40+1
  1. . . W LRTEST," = ",$J(^TMP("LRAR",$J,"TST/CTL",LRMAC,LRTEST),5)
  1. . . W " ",$J($FN($S(LRLMAC:^(LRTEST)/LRLMAC,1:0)*100,"",2),5),"%"
  1. . . I X,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
  1. Q
  1. WKLD ;
  1. Q:'$D(^TMP("LRAR",$J,"TST"))
  1. S LRSUBH1="TOTAL WKLD by TESTS: % of GRAND TOTAL"_" ( "_LRSUM_" )"
  1. I $Y+9>IOSL D PAUSE^LRARCR4 Q:LREND W @IOF D HDR1^LRARCR4
  1. W !!!,?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)),!
  1. S LRTEST=""
  1. F I=0:1 S LRTEST=$O(^TMP("LRAR",$J,"TST",LRTEST)) Q:(LRTEST="")!(LREND) D
  1. . I 'I#2,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
  1. . S X=I#2 W:'X ! W ?X*40+1
  1. . W $E(LRTEST_" ",1,8)," = ",$J(^TMP("LRAR",$J,"TST",LRTEST),5)
  1. . W " ",$J($FN($S(LRSUM:^(LRTEST)/LRSUM,1:0)*100,"",2),5),"% "
  1. Q