Routine: LRBLDPAW

LRBLDPAW ; IHS/DIR/FJE - BLOOD DONOR PRINT 6/24/90 20:57 ;

 ;;5.2;LR;;NOV 01, 1997

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 D:$Y>(IOSL-6) M^LRBLDPA1 Q:LR("Q")  W !! D T

 F LRT=0:0 S LRT=$O(^LRE(LR,5,LRI,99,LRT)) Q:'LRT!(LR("Q"))  F LRD=0:0 S LRD=$O(^LRE(LR,5,LRI,99,LRT,1,LRD)) Q:'LRD!(LR("Q"))  S LRX=^(LRD,0) D W

W D:$Y>(IOSL-6) H Q:LR("Q")  S Y=LRD D A^LRU S X=+$P(LRX,"^",2),X=$S($D(^VA(200,X,0)):$P(^(0),"^"),1:X),LRX(1)=Y,LRX(2)=X W !,$P(^LAB(60,LRT,0),"^"),?32,Y,?49,X

 F LRC=0:0 S LRC=$O(^LRE(LR,5,LRI,99,LRT,1,LRD,1,LRC)) Q:'LRC!(LR("Q"))  S LRW=^(LRC,0) D:$Y>(IOSL-6) H1 Q:LR("Q")  W !?2,$P(^LAM(LRC,0),"^"),?35,"CAP Count:",$J($P(LRW,"^",2),3),?50,"Counted: ",$S($P(LRW,"^",3):"YES",1:"NO")

H D M^LRBLDPA1 Q:LR("Q")  D T Q

H1 D H Q:LR("Q")  W !,$P(^LAB(60,LRT,0),"^"),?32,LRX(1),?49,LRX(2) Q

T W !,"Workload Entry",?36,"Date",?54,"Tech" Q

LRBLDPAW  ; IHS/DIR/FJE - BLOOD DONOR PRINT 6/24/90 20:57 ;

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        IF $Y>(IOSL-6)

               DO M^LRBLDPA1

           IF LR("Q")

               QUIT

           WRITE !!

           DO T

 +5        FOR LRT=0:0

               SET LRT=$ORDER(^LRE(LR,5,LRI,99,LRT))

               IF 'LRT!(LR("Q"))

                   QUIT

               FOR LRD=0:0

                   SET LRD=$ORDER(^LRE(LR,5,LRI,99,LRT,1,LRD))

                   IF 'LRD!(LR("Q"))

                       QUIT

                   SET LRX=^(LRD,0)

                   DO W

 +6        QUIT

W          IF $Y>(IOSL-6)

               DO H

           IF LR("Q")

               QUIT

           SET Y=LRD

           DO A^LRU

           SET X=+$PIECE(LRX,"^",2)

           SET X=$SELECT($DATA(^VA(200,X,0)):$PIECE(^(0),"^"),1:X)

           SET LRX(1)=Y

           SET LRX(2)=X

           WRITE !,$PIECE(^LAB(60,LRT,0),"^"),?32,Y,?49,X

 +1        FOR LRC=0:0

               SET LRC=$ORDER(^LRE(LR,5,LRI,99,LRT,1,LRD,1,LRC))

               IF 'LRC!(LR("Q"))

                   QUIT

               SET LRW=^(LRC,0)

               IF $Y>(IOSL-6)

                   DO H1

               IF LR("Q")

                   QUIT

               WRITE !?2,$PIECE(^LAM(LRC,0),"^"),?35,"CAP Count:",$JUSTIFY($PIECE(LRW,"^",2),3),?50,"Counted: ",$SELECT($PIECE(LRW,"^",3):"YES",1:"NO")

 +2        QUIT

 +3       ;

H          DO M^LRBLDPA1

           IF LR("Q")

               QUIT

           DO T

           QUIT

H1         DO H

           IF LR("Q")

               QUIT

           WRITE !,$PIECE(^LAB(60,LRT,0),"^"),?32,LRX(1),?49,LRX(2)

           QUIT

T          WRITE !,"Workload Entry",?36,"Date",?54,"Tech"

           QUIT

LRBLDPAW.m