| 1 | LRBLPAB ;AVAMC/REG - ANTIBODIES IDENTIFIED ;2/18/93 09:37 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**247**;Sep 27, 1994
|
|---|
| 3 | ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
|
|---|
| 4 | W !!?20,"PATIENT ANTIBODIES IDENTIFIED"
|
|---|
| 5 | I DUZ(0)'["@"&(DUZ(0)'["l") W $C(7),!,"You do not have the proper access to proceed." G END
|
|---|
| 6 | S ZTRTN="QUE^LRBLPAB" D BEG^LRUTL G:POP!($D(ZTSK)) END
|
|---|
| 7 | QUE U IO K ^TMP($J)
|
|---|
| 8 | D L^LRU,S^LRU
|
|---|
| 9 | S (LRW,LRC)=0 D H
|
|---|
| 10 | S LRX=0 F LRD=0:0 S LRX=$O(^DPT("B",LRX)) Q:LRX="" D
|
|---|
| 11 | . F LRY=0:0 S LRY=$O(^DPT("B",LRX,LRY)) Q:'LRY D
|
|---|
| 12 | .. S LRDFN=$$LRDFN^LR7OR1(LRY)
|
|---|
| 13 | .. I LRDFN S LRC=LRC+1 I $O(^LR(LRDFN,1.7,0)) D W
|
|---|
| 14 | D:$Y>(IOSL-6) H W !,"Patients in lab data file: ",$J(LRC,6),!,"Patients with antibodies: ",$J(LRW,6)
|
|---|
| 15 | F LRA=0:0 S LRA=$O(^TMP($J,LRA)) Q:'LRA D
|
|---|
| 16 | . S LRA(1)=^TMP($J,LRA)
|
|---|
| 17 | . D:$Y>(IOSL-6) H
|
|---|
| 18 | . W !,$P(^LAB(61.3,LRA,0),"^")," = ",LRA(1)
|
|---|
| 19 | D END^LRUTL,END
|
|---|
| 20 | Q
|
|---|
| 21 | 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)
|
|---|
| 22 | D:$Y>(IOSL-6) H
|
|---|
| 23 | W !!,LRP,?35,"ID:",SSN
|
|---|
| 24 | F LRA=0:0 S LRA=$O(^LR(LRDFN,1.7,LRA)) Q:'LRA D
|
|---|
| 25 | . S:'$D(^TMP($J,LRA)) ^(LRA)=0
|
|---|
| 26 | . S ^TMP($J,LRA)=^(LRA)+1
|
|---|
| 27 | . D:$Y>(IOSL-6) H1
|
|---|
| 28 | . W !?3,$P(^LAB(61.3,LRA,0),"^")
|
|---|
| 29 | Q
|
|---|
| 30 | H S LRQ=LRQ+1,%DT="T",X="N"
|
|---|
| 31 | D ^%DT,D^LRU
|
|---|
| 32 | W @IOF,Y," BLOOD BANK ",LRQ(1),?(IOM-10),"Pg: ",LRQ,!,LR("%")
|
|---|
| 33 | Q
|
|---|
| 34 | H1 D H
|
|---|
| 35 | W !,LRP,?35,"ID:",SSN,?50,"(continued from pg:",LRQ-1,")"
|
|---|
| 36 | Q
|
|---|
| 37 | END D V^LRU Q
|
|---|
| 38 | ;LRW=count of pts with antibodies
|
|---|
