source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRRP6B2.m@ 757

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

initial load of FOIAVistA 6/30/08 version

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