LRBLPAB.m

LRBLPAB ; IHS/DIR/FJE - ANTIBODIES IDENTIFIED 2/18/93 09:37 ;

 ;;5.2;LR;;NOV 01, 1997

 ;

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

 W !!?20,"PATIENT ANTIBODIES IDENTIFIED"

 I DUZ(0)'["@"&(DUZ(0)'["l") W $C(7),!,"You do not have the proper access to proceed." G END

 S ZTRTN="QUE^LRBLPAB" D BEG^LRUTL G:POP!($D(ZTSK)) END

QUE U IO K ^TMP($J) D L^LRU,S^LRU S (LRW,LRC)=0 D H

 S LRX=0 F LRD=0:0 S LRX=$O(^DPT("B",LRX)) Q:LRX=""  F LRY=0:0 S LRY=$O(^DPT("B",LRX,LRY)) Q:'LRY  I $D(^DPT(LRY,"LR")) S LRDFN=^("LR"),LRC=LRC+1 I $O(^LR(LRDFN,1.7,0)) D W

 D:$Y>(IOSL-6) H W !,"Patients in lab data file: ",$J(LRC,6),!,"Patients with  antibodies: ",$J(LRW,6)

 F LRA=0:0 S LRA=$O(^TMP($J,LRA)) Q:'LRA  S LRA(1)=^(LRA) D:$Y>(IOSL-6) H W !,$P(^LAB(61.3,LRA,0),"^")," = ",LRA(1)

 D END^LRUTL,END Q

W ;S LRW=LRW+1,X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D:$Y>(IOSL-6) H

 S LRW=LRW+1,X=^LR(LRDFN,0),(DFN,Y)=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D:$Y>(IOSL-6) H D SSN^LRU  ;IHS/ANMC/CLS 11/1/95

 ;W !!,LRP,?35,"ID:",SSN

 W !!,LRP,?35,"ID:",HRCN  ;IHS/ANMC/CLS 11/1/95

 F LRA=0:0 S LRA=$O(^LR(LRDFN,1.7,LRA)) Q:'LRA  S:'$D(^TMP($J,LRA)) ^(LRA)=0 S ^(LRA)=^(LRA)+1 D:$Y>(IOSL-6) H1 W !?3,$P(^LAB(61.3,LRA,0),"^")

 Q

H S LRQ=LRQ+1,%DT="T",X="N" D ^%DT,D^LRU W @IOF,Y," BLOOD BANK ",LRQ(1),?(IOM-10),"Pg: ",LRQ,!,LR("%") Q

H1 ;D H W !,LRP,?35,"ID:",SSN,?50,"(continued from pg:",LRQ-1,")" Q

 D H W !,LRP,?35,"ID:",HRCN,?50,"(continued from pg:",LRQ-1,")" Q  ;IHS/ANMC/CLS 11/1/95

END D V^LRU Q

 ;LRW=count of pts with antibodies

LRBLPAB   ; IHS/DIR/FJE - ANTIBODIES IDENTIFIED 2/18/93 09:37 ;

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

 +2       ;

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

 +4        WRITE !!?20,"PATIENT ANTIBODIES IDENTIFIED"

 +5        IF DUZ(0)'["@"&(DUZ(0)'["l")

               WRITE $CHAR(7),!,"You do not have the proper access to proceed."

               GOTO END

 +6        SET ZTRTN="QUE^LRBLPAB"

           DO BEG^LRUTL

           IF POP!($DATA(ZTSK))

               GOTO END

QUE        USE IO

           KILL ^TMP($JOB)

           DO L^LRU

           DO S^LRU

           SET (LRW,LRC)=0

           DO H

 +1        SET LRX=0

           FOR LRD=0:0

               SET LRX=$ORDER(^DPT("B",LRX))

               IF LRX=""

                   QUIT 

               FOR LRY=0:0

                   SET LRY=$ORDER(^DPT("B",LRX,LRY))

                   IF 'LRY

                       QUIT 

                   IF $DATA(^DPT(LRY,"LR"))

                       SET LRDFN=^("LR")

                       SET LRC=LRC+1

                       IF $ORDER(^LR(LRDFN,1.7,0))

                           DO W

 +2        IF $Y>(IOSL-6)

               DO H

           WRITE !,"Patients in lab data file: ",$JUSTIFY(LRC,6),!,"Patients with  antibodies: ",$JUSTIFY(LRW,6)

 +3        FOR LRA=0:0

               SET LRA=$ORDER(^TMP($JOB,LRA))

               IF 'LRA

                   QUIT 

               SET LRA(1)=^(LRA)

               IF $Y>(IOSL-6)

                   DO H

               WRITE !,$PIECE(^LAB(61.3,LRA,0),"^")," = ",LRA(1)

 +4        DO END^LRUTL

           DO END

           QUIT 

W         ;S LRW=LRW+1,X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D:$Y>(IOSL-6) H

 +1       ;IHS/ANMC/CLS 11/1/95

           SET LRW=LRW+1

           SET X=^LR(LRDFN,0)

           SET (DFN,Y)=$PIECE(X,"^",3)

           SET (LRDPF,X)=$PIECE(X,"^",2)

           SET X=^DIC(X,0,"GL")

           SET X=@(X_Y_",0)")

           SET LRP=$PIECE(X,"^")

           SET SSN=$PIECE(X,"^",9)

           IF $Y>(IOSL-6)

               DO H

           DO SSN^LRU

 +2       ;W !!,LRP,?35,"ID:",SSN

 +3       ;IHS/ANMC/CLS 11/1/95

           WRITE !!,LRP,?35,"ID:",HRCN

 +4        FOR LRA=0:0

               SET LRA=$ORDER(^LR(LRDFN,1.7,LRA))

               IF 'LRA

                   QUIT 

               IF '$DATA(^TMP($JOB,LRA))

                   SET ^(LRA)=0

               SET ^(LRA)=^(LRA)+1

               IF $Y>(IOSL-6)

                   DO H1

               WRITE !?3,$PIECE(^LAB(61.3,LRA,0),"^")

 +5        QUIT 

H          SET LRQ=LRQ+1

           SET %DT="T"

           SET X="N"

           DO ^%DT

           DO D^LRU

           WRITE @IOF,Y," BLOOD BANK ",LRQ(1),?(IOM-10),"Pg: ",LRQ,!,LR("%")

           QUIT 

H1        ;D H W !,LRP,?35,"ID:",SSN,?50,"(continued from pg:",LRQ-1,")" Q

 +1       ;IHS/ANMC/CLS 11/1/95

           DO H

           WRITE !,LRP,?35,"ID:",HRCN,?50,"(continued from pg:",LRQ-1,")"

           QUIT 

END        DO V^LRU

           QUIT 

 +1       ;LRW=count of pts with antibodies