| 1 | LRBLTA1 ;AVAMC/REG - TRANSFUSION REACTION COUNTS ;10/7/90 10:54 ;
|
|---|
| 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 | K ^TMP($J) D H Q:LR("Q")
|
|---|
| 5 | F LRDFN=0:0 S LRDFN=$O(^LR("AR",LRDFN)) Q:'LRDFN F LRR=0:0 S LRR=$O(^LR("AR",LRDFN,LRR)) Q:'LRR F LRI=LRLDT:0 S LRI=$O(^LR("AR",LRDFN,LRR,LRI)) Q:'LRI!(LRI>LRSDT) D S
|
|---|
| 6 | F LRR=0:0 S LRR=$O(^TMP($J,LRR)) Q:'LRR!(LR("Q")) D:$Y>(IOSL-6) H Q:LR("Q") S LRR(1)=$P(^LAB(65.4,LRR,0),U) W !!,LRR(1),?31,$J(^TMP($J,LRR),4) D:LRF B
|
|---|
| 7 | D END^LRUTL,END Q
|
|---|
| 8 | S S:'$D(^TMP($J,LRR)) ^(LRR)=0 S ^(LRR)=^(LRR)+1 S:LRF ^(LRR,LRDFN,LRI)="" Q
|
|---|
| 9 | B S LRDFN=0 F S LRDFN=$O(^TMP($J,LRR,LRDFN)) Q:'LRDFN!(LR("Q")) D N^LRBLTA,C
|
|---|
| 10 | Q
|
|---|
| 11 | C S LRI=0 F S LRI=$O(^TMP($J,LRR,LRDFN,LRI)) Q:'LRI!(LR("Q")) D:$Y>(IOSL-6) H1 Q:LR("Q") W !,SSN,?5,LRP,?36 S Y=+$G(^LR(LRDFN,1.9,LRI,0)) D DT^LRU W Y
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | END D V^LRU Q
|
|---|
| 15 | ;
|
|---|
| 16 | H I $D(LR("F")),IOST?1"C".E D M^LRU Q:LR("Q")
|
|---|
| 17 | D F^LRU W !,"TRANSFUSION REACTION COUNTS NOT ASSOCIATE WITH SPECIFIC UNITS",!,"FROM ",LRSTR," TO ",LRLST,!,"REACTION",?31,"COUNT" W:LRF !,"SSN",?5,"Patient",?36,"Transfusion Reaction Date" W !,LR("%") Q
|
|---|
| 18 | H1 D H Q:LR("Q") W !,LRR(1) Q
|
|---|
