Last change
on this file since 1470 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
703 bytes
|
Line | |
---|
1 | LRBLPB ;AVAMC/REG - PATIENT ANTIBODIES ;2/18/93 09:40 ;
|
---|
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 S X="BLOOD BANK" D ^LRUTL G:Y=-1 END
|
---|
5 | W !!?20,"Patient antibody list"
|
---|
6 | S ZTRTN="QUE^LRBLPB" D BEG^LRUTL G:POP!($D(ZTSK)) END
|
---|
7 | QUE U IO K ^TMP($J) D L^LRU,S^LRU
|
---|
8 | S A=0 F LRDFN=0:0 S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN I $D(^LR(LRDFN,"BB")) S X=^LR(LRDFN,0) D A
|
---|
9 | S ^TMP($J,0)=A
|
---|
10 | D END^LRUTL,END Q
|
---|
11 | A S A=A+1 Q:'$D(^LR(LRDFN,1.7)) S Y=$P(X,"^",3),Z=^DIC($P(X,"^",2),0,"GL"),Z=@(Z_Y_",0)"),Z(1)=$P(Z,"^")_" "_$P(Z,"^",9)
|
---|
12 | F B=0:0 S B=$O(^LR(LRDFN,1.7,B)) Q:'B S ^TMP($J,B,Z(1))="",^TMP($J,Z(1),B)=""
|
---|
13 | Q
|
---|
14 | END D V^LRU Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.