- 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 Jan 18, 2025@03:11:22 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