| [613] | 1 | LRBLDP ;AVAMC/REG - BLOOD DONOR PRINT OPTS ;6/23/92 09:23 ;
|
|---|
| 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 | A S (BY,FLDS)="[LRBL APHERESIS DONORS]" G SET
|
|---|
| 5 | B S (BY,FLDS)="[LRBL MOBILE REPORT]" G SET
|
|---|
| 6 | C S (BY,FLDS)="[LRBL COLLECTION DISP RPT]" G SET
|
|---|
| 7 | D S (BY,FLDS)="[LRBL DEFERRAL REPORT]" G SET
|
|---|
| 8 | E S (BY,FLDS)="[LRBL GROUP DONATION REPORT]" G SET
|
|---|
| 9 | F S (BY,FLDS)="[LRBL FIRST TIME DONORS]" G SET
|
|---|
| 10 | G S (BY,FLDS)="[LRBL GROUP AFFILIATION REPORT]" G SET
|
|---|
| 11 | H S (BY,FLDS)="[LRBL SHORT DRAW REPORT]" G SET
|
|---|
| 12 | I S (BY,FLDS)="[LRBL PATIENT CREDIT]" G SET
|
|---|
| 13 | J S (BY,FLDS)="[LRBL EMERGENCY DONORS]" G SET
|
|---|
| 14 | T S (BY,FLDS)="[LRBL DONOR TESTING REPORT]" G SET
|
|---|
| 15 | K S BY="[LRBL DONOR TESTING REPORT]",FLDS="[LRBL DONOR TESTING SUPPLEMENT]" G SET
|
|---|
| 16 | P S (BY,FLDS)="[LRBL PRODUCT REJECTION REPORT]" G SET
|
|---|
| 17 | M S (BY,FLDS)="[LRBL MONTHLY RECALL LIST]" G SET
|
|---|
| 18 | N S (BY,FLDS)="[LRBLDPD]" G SET
|
|---|
| 19 | O G ^LRBLDSC ;Donor scheduling report
|
|---|
| 20 | Q S (BY,FLDS)="[LRBLD GALLON]" G SET
|
|---|
| 21 | R D ^LRBLDR Q
|
|---|
| 22 | L D ^LRBLDPL Q
|
|---|
| 23 | 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
|
|---|
| 24 | SET D END S L=0,DIC="^LRE(" K IOP,%ZIS("A") G EN1^DIP
|
|---|
| 25 | END D V^LRU Q
|
|---|
