Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRRP6B2

LRRP6B2.m

Go to the documentation of this file.
  1. LRRP6B2 ;DALISC/J0/DRH - WORKLOAD CODE SUMMARY REPORT-CONDENSED ;11/27/92
  1. ;;5.2;LAB SERVICE;;Sep 27, 1994
  1. EN ;
  1. COND ;
  1. D WKLD Q:LREND
  1. D TEST Q:LREND
  1. D VENI
  1. Q
  1. WKLD ;
  1. S LRSUBH="Workload Code Summary"
  1. D HDR
  1. W !!,LRSUBH,!,$E(LRDASH,1,IOM)
  1. S LRCAPNAM=""
  1. F S LRCAPNAM=$O(^TMP("LR",$J,"WKLD",LRCAPNAM)) Q:(LREND)!(LRCAPNAM="") D
  1. . I $Y+6>IOSL D
  1. . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND
  1. . . W @IOF D HDR W !!,LRSUBH_" ** cont. **",!,$E(LRDASH,1,IOM)
  1. . Q:LREND
  1. . W !,$E(LRCAPNAM,1,50),?55,$J(LRCC(LRCAPNAM),12,4)
  1. . W ?70,$J(^TMP("LR",$J,"WKLD",LRCAPNAM),5)
  1. Q:LREND
  1. I '$D(^TMP("LR",$J,"WKLD")) S LRTIC=" Workload " D NODATA QUIT
  1. W !,$E(LRDASH,1,IOM),!,"TOTAL",?70,$J(^TMP("LR",$J,"WKLD"),5)
  1. D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF
  1. Q
  1. NODATA ;
  1. W !!,"No",LRTIC,"data for this date range.",!!!
  1. D PAUSE
  1. Q
  1. TEST ;
  1. S LRSUBH="Lab Test Summary"
  1. D HDR
  1. W !!,LRSUBH,!,$E(LRDASH,1,IOM)
  1. S LRTNAM=""
  1. F S LRTNAM=$O(^TMP("LR",$J,"TST",LRTNAM)) Q:(LREND)!(LRTNAM="") D
  1. . I $Y+6>IOSL D
  1. . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND
  1. . . W @IOF D HDR W !!,LRSUBH_" ** cont. **",!,$E(LRDASH,1,IOM)
  1. . Q:LREND
  1. . W !,LRTNAM,?74,$J(^TMP("LR",$J,"TST",LRTNAM),5)
  1. Q:LREND
  1. I '$D(^TMP("LR",$J,"TST")) S LRTIC=" Test " D NODATA S LREND=1 QUIT
  1. W !,$E(LRDASH,1,IOM),!,"TOTAL",?74,$J(^TMP("LR",$J,"TST"),5)
  1. D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF
  1. Q
  1. VENI ;
  1. S LRSUBH="Venipuncture Summary"
  1. D HDR
  1. W !!,LRSUBH,!,$E(LRDASH,1,IOM)
  1. I $D(^TMP("LR",$J,"VENI")) D
  1. . F S LRCAPNAM=$O(^TMP("LR",$J,"VENI",LRCAPNAM)) Q:(LREND)!(LRCAPNAM="") D
  1. . . W !,$E(LRCAPNAM,1,50),?60,$J(LRCC(LRCAPNAM),12,4)
  1. . . W ?74,$J(^TMP("LR",$J,"VENI",LRCAPNAM),5)
  1. . W !,$E(LRDASH,1,IOM),!,"TOTAL",?74,$J(^TMP("LR",$J,"VENI"),5)
  1. E W !,"NO VENIPUNCTURE DATA"
  1. Q
  1. HDR ;
  1. W @IOF
  1. S LRPAG=LRPAG+1
  1. W !,"Detailed Workload Report (by WKLD Code) for ",LRDATRNG
  1. W ?(72),"PAGE ",$J(LRPAG,3)
  1. S LRDAT1="(Print date: "_LRDAT_")"
  1. W !?IOM-(IOM-$L(LRDAT1)),LRDAT1 K LRDAT1
  1. W !!,$E(LRSTAR,1,34)," CONDENSED ",$E(LRSTAR,1,33)
  1. Q
  1. PAUSE ;
  1. K DIR S DIR(0)="E" D ^DIR
  1. S:($D(DTOUT)#2)!($D(DUOUT)#2)!($D(DIRUT)#2) LREND=1
  1. Q