|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
