source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRRP6A2.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1LRRP6A2 ;DALISC/J0/DRH - LAB TEST SUMMARY REPORT-CONDENSED ;11/27/92
2 ;;5.2;LAB SERVICE;**201**;Sep 27, 1994
3EN ;
4COND ;
5 N LRLINE
6 S $P(LRLINE,"-",IOM)="-"
7 D TEST Q:LREND
8 D WKLD
9 Q
10TEST ;
11 S LRSUBH="Lab Test/WKLD Code Summary"
12 D HDR
13 W !!,LRSUBH,!,$E(LRDASH,1,IOM)
14 S LRTNAM=""
15 F S LRTNAM=$O(^TMP("LR",$J,"TST",LRTNAM)) Q:(LREND)!(LRTNAM="") D
16 . I $Y+7>IOSL D
17 . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND
18 . . W @IOF D HDR W !!,LRSUBH_" ** cont. **",!,$E(LRDASH,1,IOM)
19 . Q:LREND
20 . W !,$E(LRTNAM,1,12)
21 . S LRFIRST=1 D CAP
22 I '$D(^TMP("LR",$J,"TST")) S LRTIC=" Test " D NODATA S LREND=1 QUIT
23 Q:LREND
24 W LRDASH
25 W !!,"TOTAL",?74,$J(^TMP("LR",$J,"TST"),6)
26 D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF
27 Q
28CAP ;
29 S LRCAPNAM=""
30 F S LRCAPNAM=$O(^TMP("LR",$J,"TST",LRTNAM,LRCAPNAM)) Q:(LREND)!(LRCAPNAM="") D
31 . I $Y+6>IOSL D
32 . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND
33 . . W @IOF D HDR W !!,LRSUBH_" ** cont. **",!,$E(LRDASH,1,IOM)
34 . . W !,LRTNAM
35 . . S LRFIRST=1
36 . Q:LREND
37 . W:'LRFIRST !
38 . S:LRFIRST LRFIRST=0
39 . W ?9,$E(LRCAPNAM,1,50),?62,$J(LRCC(LRCAPNAM),12,4)
40 . W ?74,$J(^TMP("LR",$J,"TST",LRTNAM,LRCAPNAM),6)
41 Q:LREND
42 W !,LRLINE
43 W !,"SUBTOTAL",?74,$J(^TMP("LR",$J,"TST",LRTNAM),6),!
44 Q
45WKLD ;
46 S LRSUBH="WKLD Code Summary"
47 D HDR
48 W !!,LRSUBH,!,$E(LRDASH,1,IOM)
49 S LRCAPNAM=""
50 F S LRCAPNAM=$O(^TMP("LR",$J,"WKLD",LRCAPNAM)) Q:(LREND)!(LRCAPNAM="") D
51 . I $Y+6>IOSL D
52 . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND
53 . . W @IOF D HDR W !!,LRSUBH_" ** cont. **",!,$E(LRDASH,1,IOM)
54 . Q:LREND
55 . W !,LRCAPNAM,?55,$J(LRCC(LRCAPNAM),12,4)
56 . W ?70,$J(^TMP("LR",$J,"WKLD",LRCAPNAM),6)
57 Q:LREND
58 I '$D(^TMP("LR",$J,"WKLD")) S LRTIC=" Workload " D NODATA QUIT
59 W !,$E(LRDASH,1,IOM)
60 W !!,"TOTAL",?70,$J(^TMP("LR",$J),6)
61 Q
62HDR ;
63 S LRPAG=LRPAG+1
64 W !!,"Detailed AUDIT REPORT (by Test) for ",LRDATRNG
65 W ?(62),LRDAT,?(72)," PAGE ",LRPAG
66 W !,"Accession Area: ",LRX
67 W !!,$E(LRSTAR,1,34)," CONDENSED ",$E(LRSTAR,1,33)
68 Q
69NODATA ;
70 W !!,"No",LRTIC,"data for this date range.",!!!
71 D PAUSE
72 Q
73PAUSE ;
74 K DIR S DIR(0)="E" D ^DIR
75 S:($D(DTOUT)#2)!($D(DUOUT)#2)!($D(DIRUT)#2) LREND=1
76 Q
Note: See TracBrowser for help on using the repository browser.