LRBLDP.m

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 ---LRBLDP   1262     printed  Apr 09, 2024@21:19:33                                                                                                                                                                                                      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