source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRARCR3A.m@ 1535

Last change on this file since 1535 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.7 KB
Line 
1LRARCR3A ;DALISC/CKA - ARCHIVEDWKLD REP GENERATOR-PRINT 2 ;
2 ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
3 ;clone of LRCAPR3A
4COND ;
5 D HDR1^LRARCR4
6 D LOC Q:LREND
7 D LRMAC Q:LREND
8 D:LRCTL CONTROL Q:LREND
9 D WKLD Q:LREND
10 D STAT^LRARCR3B
11 Q
12LOC ;
13 Q:'$D(^TMP("LRAR",$J,"TST/LOC"))
14 S LRSUBH1="TOTAL TESTS BY LOCATION: % of GRAND TOTAL"_" ( "_LRSUM_" )"
15 W !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)),!
16 S LRLOC=""
17 F I=0:1 S LRLOC=$O(^TMP("LRAR",$J,"TST/LOC",LRLOC)) Q:(LRLOC="")!(LREND) D
18 . S X=I#2 W:'X ! W ?X*40
19 . W $E(LRLOC_" ",1,20),"="
20 . W $J(^TMP("LRAR",$J,"TST/LOC",LRLOC),4)," "
21 . W $J($FN($S(LRSUM:^(LRLOC)/LRSUM,1:0)*100,"",2),5),"%"
22 . I X,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
23 Q
24LRMAC ;
25 Q:'$D(^TMP("LRAR",$J,"TST/LRM"))
26 S LRSUBH1="TOTAL TESTS by INSTRUMENTS: % of GRAND TOTAL"_" ( "_LRSUM_" )"
27 I $Y+9>IOSL D PAUSE^LRARCR4 Q:LREND W @IOF D HDR1^LRARCR4
28 W !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1))
29 S LRMAC=""
30 F S LRMAC=$O(^TMP("LRAR",$J,"TST/LRM",LRMAC)) Q:(LRMAC="")!(LREND) S LRLMAC=^(LRMAC) D
31 . I $Y+6>IOSL D UP1^LRARCR4 Q:LREND
32 . W !!,LRMAC," =",$J(LRLMAC,5)," "
33 . W $J($FN($S(LRSUM:LRLMAC/LRSUM,1:0)*100,"",2),5),"%"
34 . S LRTEST=""
35 . F I=0:1 S LRTEST=$O(^TMP("LRAR",$J,"TST/LRM",LRMAC,LRTEST)) Q:(LRTEST="")!(LREND) D
36 . . S X=I#2 W:'X ! W ?X*40+1
37 . . W LRTEST," = ",$J(^TMP("LRAR",$J,"TST/LRM",LRMAC,LRTEST),5)
38 . . W " ",$J($FN($S(LRLMAC:^(LRTEST)/LRLMAC,1:0)*100,"",2),5),"%"
39 . . I X,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
40 Q
41CONTROL ;
42 Q:'$D(^TMP("LRAR",$J,"TST/CTL"))
43 S LRSUBH1="Total CONTROL TESTS by INSTRUMENTS: % of GRAND TOTAL"_" ( "_LRSUM_" )"
44 I $Y+9>IOSL D PAUSE^LRARCR4 Q:LREND W @IOF D HDR1^LRARCR4
45 W !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1))
46 S LRMAC=""
47 F S LRMAC=$O(^TMP("LRAR",$J,"TST/CTL",LRMAC)) Q:(LRMAC="")!(LREND) S LRLMAC=^(LRMAC) D
48 . I $Y+6>IOSL D UP1^LRARCR4 Q:LREND
49 . W !!,LRMAC," =",$J(LRLMAC,5)," "
50 . W $J($FN($S(LRSUM:LRLMAC/LRSUM,1:0)*100,"",2),5),"%"
51 . S LRTEST=""
52 . F I=0:1 S LRTEST=$O(^TMP("LRAR",$J,"TST/CTL",LRMAC,LRTEST)) Q:(LRTEST="")!(LREND) D
53 . . S X=I#2 W:'X ! W ?X*40+1
54 . . W LRTEST," = ",$J(^TMP("LRAR",$J,"TST/CTL",LRMAC,LRTEST),5)
55 . . W " ",$J($FN($S(LRLMAC:^(LRTEST)/LRLMAC,1:0)*100,"",2),5),"%"
56 . . I X,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
57 Q
58WKLD ;
59 Q:'$D(^TMP("LRAR",$J,"TST"))
60 S LRSUBH1="TOTAL WKLD by TESTS: % of GRAND TOTAL"_" ( "_LRSUM_" )"
61 I $Y+9>IOSL D PAUSE^LRARCR4 Q:LREND W @IOF D HDR1^LRARCR4
62 W !!!,?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)),!
63 S LRTEST=""
64 F I=0:1 S LRTEST=$O(^TMP("LRAR",$J,"TST",LRTEST)) Q:(LRTEST="")!(LREND) D
65 . I 'I#2,$Y+6>IOSL D UP1^LRARCR4 Q:LREND
66 . S X=I#2 W:'X ! W ?X*40+1
67 . W $E(LRTEST_" ",1,8)," = ",$J(^TMP("LRAR",$J,"TST",LRTEST),5)
68 . W " ",$J($FN($S(LRSUM:^(LRTEST)/LRSUM,1:0)*100,"",2),5),"% "
69 Q
Note: See TracBrowser for help on using the repository browser.