DVBASPDC ;ALB/GTS-557/THM-AMIE SPECIAL REPORT SELECTION ;21 JUL 89
;;2.7;AMIE;;Apr 10, 1995
D HOME^%ZIS
D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL
EN W @IOF,!,"REGIONAL OFFICE SPECIAL REPORT",!,"FOR A&A AND PENSION",!!!,"This report prints only Veterans receiving A&A or Pension.",!!!
EN2 W "Do you want (A)&A or (P)ension ? " R REP:DTIME G:'$T!(REP="")!(REP=U) KILL^DVBAUTIL W !
S X=REP X ^%ZOSF("UPPERCASE") S REP=Y
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
;
EN1 K DVBACEPT
D EN^VALM("DVBA DISCHARGE TYPES")
I '$D(DVBACEPT) D KILL^DVBAUTIL Q
I '$O(^TMP("DVBA",$J,"DUP",0)) D KILL^DVBAUTIL Q
G ^DVBASPD2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBASPDC 712 printed Nov 22, 2024@16:52:25 Page 2
DVBASPDC ;ALB/GTS-557/THM-AMIE SPECIAL REPORT SELECTION ;21 JUL 89
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 DO HOME^%ZIS
+3 DO NOPARM^DVBAUTL2
if $DATA(DVBAQUIT)
GOTO KILL^DVBAUTIL
EN WRITE @IOF,!,"REGIONAL OFFICE SPECIAL REPORT",!,"FOR A&A AND PENSION",!!!,"This report prints only Veterans receiving A&A or Pension.",!!!
EN2 WRITE "Do you want (A)&A or (P)ension ? "
READ REP:DTIME
if '$TEST!(REP="")!(REP=U)
GOTO KILL^DVBAUTIL
WRITE !
+1 SET X=REP
XECUTE ^%ZOSF("UPPERCASE")
SET REP=Y
+2 IF REP'="A"&(REP'="P")
WRITE *7,!,"Must be either A for A&A ",!,"or P for Pension or ""^"" or [RETURN] to escape.",!!
GOTO EN2
+3 ;
EN1 KILL DVBACEPT
+1 DO EN^VALM("DVBA DISCHARGE TYPES")
+2 IF '$DATA(DVBACEPT)
DO KILL^DVBAUTIL
QUIT
+3 IF '$ORDER(^TMP("DVBA",$JOB,"DUP",0))
DO KILL^DVBAUTIL
QUIT
+4 GOTO ^DVBASPD2
