| 1 | LRBLC ;AVAMC/REG - ABO/RH COUNT ;2/18/93 08: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 | D END W !!?20,"ABO/Rh recheck counts"
|
---|
| 5 | D B^LRU G:Y=-1 END
|
---|
| 6 | S LRSDT=LRSDT-.01,LRLDT=LRLDT+.99,(LRABO,LRRH)=0
|
---|
| 7 | S ZTRTN="QUE^LRBLC" D BEG^LRUTL G:POP!($D(ZTSK)) END
|
---|
| 8 | QUE U IO D L^LRU,S^LRU S A=LRSDT F B=0:0 S A=$O(^LRD(65,"A",A)) Q:'A!(A>LRLDT) F C=0:0 S C=$O(^LRD(65,"A",A,C)) Q:'C D C
|
---|
| 9 | D H,END,END^LRUTL Q
|
---|
| 10 | C I $D(^LRD(65,C,10)),$P(^(10),"^")]"","ABO"[$P(^(10),"^"),'$P(^(10),"^",4) S LRABO=LRABO+1
|
---|
| 11 | I $D(^LRD(65,C,11)),$P(^(11),"^")]"","POSNEG"[$P(^(11),"^"),'$P(^(11),"^",4) S LRRH=LRRH+1
|
---|
| 12 | Q
|
---|
| 13 | H I $D(LR("F")),IOST?1"C".E D M^LRU Q:LR("Q")
|
---|
| 14 | D F^LRU W !,"BLOOD BANK ABO/Rh counts from: ",LRSTR," to ",LRLST,!,LR("%"),!,"ABO re-check count: ",$J(LRABO,5),!,"Rh re-check count: ",$J(LRRH,5) Q
|
---|
| 15 | ;
|
---|
| 16 | END D V^LRU Q
|
---|