DVBASPDC.m

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 ---DVBASPDC   712     printed  Apr 09, 2024@20:53:11                                                                                                                                                                                                     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