LRBLDP ;AVAMC/REG - BLOOD DONOR PRINT OPTS ;6/23/92 09:23 ;
;;5.2;LAB SERVICE;**247**;Sep 27, 1994
;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
A S (BY,FLDS)="[LRBL APHERESIS DONORS]" G SET
B S (BY,FLDS)="[LRBL MOBILE REPORT]" G SET
C S (BY,FLDS)="[LRBL COLLECTION DISP RPT]" G SET
D S (BY,FLDS)="[LRBL DEFERRAL REPORT]" G SET
E S (BY,FLDS)="[LRBL GROUP DONATION REPORT]" G SET
F S (BY,FLDS)="[LRBL FIRST TIME DONORS]" G SET
G S (BY,FLDS)="[LRBL GROUP AFFILIATION REPORT]" G SET
H S (BY,FLDS)="[LRBL SHORT DRAW REPORT]" G SET
I S (BY,FLDS)="[LRBL PATIENT CREDIT]" G SET
J S (BY,FLDS)="[LRBL EMERGENCY DONORS]" G SET
T S (BY,FLDS)="[LRBL DONOR TESTING REPORT]" G SET
K S BY="[LRBL DONOR TESTING REPORT]",FLDS="[LRBL DONOR TESTING SUPPLEMENT]" G SET
P S (BY,FLDS)="[LRBL PRODUCT REJECTION REPORT]" G SET
M S (BY,FLDS)="[LRBL MONTHLY RECALL LIST]" G SET
N S (BY,FLDS)="[LRBLDPD]" G SET
O G ^LRBLDSC ;Donor scheduling report
Q S (BY,FLDS)="[LRBLD GALLON]" G SET
R D ^LRBLDR Q
L D ^LRBLDPL Q
U S DIC="^LRE(",DIC(0)="AEQM",DIC("A")="Select DONOR: " D ^DIC K DIC G:X=""!(X[U) END S DIC="^LRE(",DA=+Y,DR="0;1;2;3;4" D EN^DIQ G U
SET D END S L=0,DIC="^LRE(" K IOP,%ZIS("A") G EN1^DIP
END D V^LRU Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRBLDP 1262 printed Dec 13, 2024@02:10:39 Page 2
LRBLDP ;AVAMC/REG - BLOOD DONOR PRINT OPTS ;6/23/92 09:23 ;
+1 ;;5.2;LAB SERVICE;**247**;Sep 27, 1994
+2 ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
A SET (BY,FLDS)="[LRBL APHERESIS DONORS]"
GOTO SET
B SET (BY,FLDS)="[LRBL MOBILE REPORT]"
GOTO SET
C SET (BY,FLDS)="[LRBL COLLECTION DISP RPT]"
GOTO SET
D SET (BY,FLDS)="[LRBL DEFERRAL REPORT]"
GOTO SET
E SET (BY,FLDS)="[LRBL GROUP DONATION REPORT]"
GOTO SET
F SET (BY,FLDS)="[LRBL FIRST TIME DONORS]"
GOTO SET
G SET (BY,FLDS)="[LRBL GROUP AFFILIATION REPORT]"
GOTO SET
H SET (BY,FLDS)="[LRBL SHORT DRAW REPORT]"
GOTO SET
I SET (BY,FLDS)="[LRBL PATIENT CREDIT]"
GOTO SET
J SET (BY,FLDS)="[LRBL EMERGENCY DONORS]"
GOTO SET
T SET (BY,FLDS)="[LRBL DONOR TESTING REPORT]"
GOTO SET
K SET BY="[LRBL DONOR TESTING REPORT]"
SET FLDS="[LRBL DONOR TESTING SUPPLEMENT]"
GOTO SET
P SET (BY,FLDS)="[LRBL PRODUCT REJECTION REPORT]"
GOTO SET
M SET (BY,FLDS)="[LRBL MONTHLY RECALL LIST]"
GOTO SET
N SET (BY,FLDS)="[LRBLDPD]"
GOTO SET
O ;Donor scheduling report
GOTO ^LRBLDSC
Q SET (BY,FLDS)="[LRBLD GALLON]"
GOTO SET
R DO ^LRBLDR
QUIT
L DO ^LRBLDPL
QUIT
U SET DIC="^LRE("
SET DIC(0)="AEQM"
SET DIC("A")="Select DONOR: "
DO ^DIC
KILL DIC
if X=""!(X[U)
GOTO END
SET DIC="^LRE("
SET DA=+Y
SET DR="0;1;2;3;4"
DO EN^DIQ
GOTO U
SET DO END
SET L=0
SET DIC="^LRE("
KILL IOP,%ZIS("A")
GOTO EN1^DIP
END DO V^LRU
QUIT
