source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRBLDP.m@ 1739

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

initial load of WorldVistAEHR

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