source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRARCMA3.m@ 1604

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1LRARCMA3 ;DALISC/CKA - ARCHIVED WKLD REPORT BY MAJOR SECTION; 6/1/95
2 ;;5.2;LAB SERVICE;**59**;Aug 31,1995
3 ;same as LRCAPMA3 except archived wkld file
4EN ;
5SUM ;
6 K LRHDR3
7 S LRLAB="!!,?32,""COMBINED SUMMARY"",!!,""MAJOR SECTION"",?15,""LAB SUBSECTION"",?43,"" TOTAL"",!"
8 D HDR^LRARCU W @LRLAB
9 S LRMAA=""
10 F S LRMAA=$O(^TMP("LRAR-WL",$J,"AA",LRMAA)) Q:(LRMAA="")!(LREND) D
11 . S LRLSSA=""
12 . F S LRLSSA=$O(^TMP("LRAR-WL",$J,"AA",LRMAA,LRLSSA)) Q:(LRLSSA="")!(LREND) D PSUM
13 I $Y>(IOSL-4) D NPG^LRARCU Q:LREND W @LRLAB
14 W !!,"GRAND TOTAL",?43,$J(LRAGT,7)
15 D:($E(IOST,1,2)="C-")&('LREND) PAUSE^LRARCU W @IOF
16 Q
17PSUM ;
18 Q:LREND
19 Q:'$D(^TMP("LRAR-WL",$J,"AA",LRMAA,LRLSSA,0))#2 S LRX=^(0)
20 I $Y>(IOSL-3) D NPG^LRARCU 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(LRACNT,7)
25 W !,?31,"PERCENT :"
26 W ?43,$J($S(LRAGT:LRACNT/LRAGT,1:0)*100,7,1)
27 W !
28 Q
Note: See TracBrowser for help on using the repository browser.