1 | LRCAPMA3 ;SLC/AM/DALISC/FHS/J0 - WKLD REPORT BY MAJOR SECTION; 2/6/91
|
---|
2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
---|
3 | EN ;
|
---|
4 | SUM ;
|
---|
5 | K LRHDR3
|
---|
6 | S LRLAB="!!,?32,""COMBINED SUMMARY"",!!,""MAJOR SECTION"",?15,""LAB SUBSECTION"",?43,"" CTRL"",?50,""INPAT"",?56,""OUTPAT"",?64,""OTHERS"",?73,"" TOTAL"",!"
|
---|
7 | D HDR^LRCAPU W @LRLAB
|
---|
8 | S LRMAA=""
|
---|
9 | F S LRMAA=$O(^TMP("LR-WL",$J,"AA",LRMAA)) Q:(LRMAA="")!(LREND) D
|
---|
10 | . S LRLSSA=""
|
---|
11 | . F S LRLSSA=$O(^TMP("LR-WL",$J,"AA",LRMAA,LRLSSA)) Q:(LRLSSA="")!(LREND) D PSUM
|
---|
12 | I $Y>(IOSL-4) D NPG^LRCAPU Q:LREND W @LRLAB
|
---|
13 | W !!,"GRAND TOTAL",?43,$J(LRCGT,5),?50,$J(LRIGT,5),?57,$J(LROGT,5)
|
---|
14 | W ?65,$J(LRNGT,5),?73,$J(LRAGT,7)
|
---|
15 | D:($E(IOST,1,2)="C-")&('LREND) PAUSE^LRCAPU W @IOF
|
---|
16 | Q
|
---|
17 | PSUM ;
|
---|
18 | Q:LREND
|
---|
19 | Q:'$D(^TMP("LR-WL",$J,"AA",LRMAA,LRLSSA,0))#2 S LRX=^(0)
|
---|
20 | I $Y>(IOSL-3) D NPG^LRCAPU Q:LREND W @LRLAB
|
---|
21 | S LRCCNT=+$P(LRX,U),LRICNT=+$P(LRX,U,2),LROCNT=+$P(LRX,U,3)
|
---|
22 | S LRNCNT=+$P(LRX,U,4),LRACNT=LRCCNT+LRICNT+LROCNT+LRNCNT
|
---|
23 | W !,$E(LRMAN(LRMAA),1,14),?15,$E(LRLSSN(LRLSSA),1,14),?31,"NUMBER :"
|
---|
24 | W ?43,$J(LRCCNT,5),?50,$J(LRICNT,5),?57,$J(LROCNT,5)
|
---|
25 | W ?65,$J(LRNCNT,5),?73,$J(LRACNT,7)
|
---|
26 | W !,?31,"PERCENT :"
|
---|
27 | W ?43,$J($S(LRAGT:LRCCNT/LRAGT,1:0)*100,5,1),?50,$J($S(LRAGT:LRICNT/LRAGT,1:0)*100,5,1)
|
---|
28 | W ?57,$J($S(LRAGT:LROCNT/LRAGT,1:0)*100,5,1),?65,$J($S(LRAGT:LRNCNT/LRAGT,1:0)*100,5,1)
|
---|
29 | W ?73,$J($S(LRAGT:LRACNT/LRAGT,1:0)*100,7,1)
|
---|
30 | W !
|
---|
31 | Q
|
---|