| 1 | LRBLPP ;AVAMC/REG - BB PATIENT PRINT OPTS ; 7/18/88 07:0 ;
|
|---|
| 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 | S X="BLOOD BANK" D ^LRUTL Q:Y=-1
|
|---|
| 5 | W @IOF W ?31,"Blood Bank Patient Print Options"
|
|---|
| 6 | OPTS ;
|
|---|
| 7 | R !!,"Select Blood Bank Patient Print Option: ",X:DTIME Q:X=""!(X[U)
|
|---|
| 8 | F A=1:1 S Y=$P($T(OPT+A),";",3) Q:Y="" G:$E(X,1)=$P(Y,U,2) DO
|
|---|
| 9 | W !!,"Select from:" G LST
|
|---|
| 10 | DO W " ",$E($P(Y,U,1),7,$L($P(Y,U,1))),! S LROPT=$P(Y,U,3,4) D @LROPT G OPTS
|
|---|
| 11 | LST F A=1:1 W !,?15,$P($P($T(OPT+A),";",3),U,1) Q:$T(OPT+A)=""
|
|---|
| 12 | G OPTS
|
|---|
| 13 | T S (BY,FLDS)="[LRBL TRANSFUSION REACTIONS]" G SET
|
|---|
| 14 | SET D V^LRU S L=0,DIC="^LRD(65," K IOP G EN1^DIP
|
|---|
| 15 | OPT ;;OPTION LIST
|
|---|
| 16 | ;;D ==> Display Blood bank record^D^^LRBLPD
|
|---|
| 17 | ;;T ==> Transfusion reactions report^T^T
|
|---|
