source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBASPDC.m@ 1211

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

initial load of WorldVistAEHR

File size: 698 bytes
Line 
1DVBASPDC ;ALB/GTS-557/THM-AMIE SPECIAL REPORT SELECTION ;21 JUL 89
2 ;;2.7;AMIE;;Apr 10, 1995
3 D HOME^%ZIS
4 D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL
5EN W @IOF,!,"REGIONAL OFFICE SPECIAL REPORT",!,"FOR A&A AND PENSION",!!!,"This report prints only Veterans receiving A&A or Pension.",!!!
6EN2 W "Do you want (A)&A or (P)ension ? " R REP:DTIME G:'$T!(REP="")!(REP=U) KILL^DVBAUTIL W !
7 S X=REP X ^%ZOSF("UPPERCASE") S REP=Y
8 I REP'="A"&(REP'="P") W *7,!,"Must be either A for A&A ",!,"or P for Pension or ""^"" or [RETURN] to escape.",!! G EN2
9 ;
10EN1 K DVBACEPT
11 D EN^VALM("DVBA DISCHARGE TYPES")
12 I '$D(DVBACEPT) D KILL^DVBAUTIL Q
13 I '$O(^TMP("DVBA",$J,"DUP",0)) D KILL^DVBAUTIL Q
14 G ^DVBASPD2
Note: See TracBrowser for help on using the repository browser.