29 lines
1.0 KiB
Mathematica
29 lines
1.0 KiB
Mathematica
LRARCMA3 ;DALISC/CKA - ARCHIVED WKLD REPORT BY MAJOR SECTION; 6/1/95
|
|
;;5.2;LAB SERVICE;**59**;Aug 31,1995
|
|
;same as LRCAPMA3 except archived wkld file
|
|
EN ;
|
|
SUM ;
|
|
K LRHDR3
|
|
S LRLAB="!!,?32,""COMBINED SUMMARY"",!!,""MAJOR SECTION"",?15,""LAB SUBSECTION"",?43,"" TOTAL"",!"
|
|
D HDR^LRARCU W @LRLAB
|
|
S LRMAA=""
|
|
F S LRMAA=$O(^TMP("LRAR-WL",$J,"AA",LRMAA)) Q:(LRMAA="")!(LREND) D
|
|
. S LRLSSA=""
|
|
. F S LRLSSA=$O(^TMP("LRAR-WL",$J,"AA",LRMAA,LRLSSA)) Q:(LRLSSA="")!(LREND) D PSUM
|
|
I $Y>(IOSL-4) D NPG^LRARCU Q:LREND W @LRLAB
|
|
W !!,"GRAND TOTAL",?43,$J(LRAGT,7)
|
|
D:($E(IOST,1,2)="C-")&('LREND) PAUSE^LRARCU W @IOF
|
|
Q
|
|
PSUM ;
|
|
Q:LREND
|
|
Q:'$D(^TMP("LRAR-WL",$J,"AA",LRMAA,LRLSSA,0))#2 S LRX=^(0)
|
|
I $Y>(IOSL-3) D NPG^LRARCU Q:LREND W @LRLAB
|
|
S LRCCNT=+$P(LRX,U),LRICNT=+$P(LRX,U,2),LROCNT=+$P(LRX,U,3)
|
|
S LRNCNT=+$P(LRX,U,4),LRACNT=LRCCNT+LRICNT+LROCNT+LRNCNT
|
|
W !,$E(LRMAN(LRMAA),1,14),?15,$E(LRLSSN(LRLSSA),1,14),?31,"NUMBER :"
|
|
W ?43,$J(LRACNT,7)
|
|
W !,?31,"PERCENT :"
|
|
W ?43,$J($S(LRAGT:LRACNT/LRAGT,1:0)*100,7,1)
|
|
W !
|
|
Q
|