source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRBLPP.m@ 1489

Last change on this file since 1489 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 795 bytes
Line 
1LRBLPP ;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"
6OPTS ;
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
10DO W " ",$E($P(Y,U,1),7,$L($P(Y,U,1))),! S LROPT=$P(Y,U,3,4) D @LROPT G OPTS
11LST F A=1:1 W !,?15,$P($P($T(OPT+A),";",3),U,1) Q:$T(OPT+A)=""
12 G OPTS
13T S (BY,FLDS)="[LRBL TRANSFUSION REACTIONS]" G SET
14SET D V^LRU S L=0,DIC="^LRD(65," K IOP G EN1^DIP
15OPT ;;OPTION LIST
16 ;;D ==> Display Blood bank record^D^^LRBLPD
17 ;;T ==> Transfusion reactions report^T^T
Note: See TracBrowser for help on using the repository browser.