|
Last change
on this file since 703 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
698 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | DVBASPDC ;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
|
|---|
| 5 | EN W @IOF,!,"REGIONAL OFFICE SPECIAL REPORT",!,"FOR A&A AND PENSION",!!!,"This report prints only Veterans receiving A&A or Pension.",!!!
|
|---|
| 6 | EN2 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 | ;
|
|---|
| 10 | EN1 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.
