source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGREGG.m@ 1141

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

initial load of WorldVistAEHR

File size: 938 bytes
Line 
1DGREGG ;ALB/MRL,LBD - CONTINUATION OF REGISTRATION PROCESS ;16 AUG 88@1303
2 ;;5.3;Registration;**565**;Aug 13, 1993
3 K DEF S DEF=0 W !! I $D(^DPT(DA,.15))#10,$P(^(.15),"^",2)?7N W !,"Patient is ineligible for benefits." S DEF(1)=1,DEF=1
4 I $D(^DPT(DA,.32))#10,$P(^(.32),"^",4)>1 W $S($D(DEF)\10:", He",1:"Patient") W:$X>70 ! W " did not receive an honorable discharge." S DEF(3)=1,DEF=1
5 I DEF W !!
6 S Y=0,A=$G(^DPT(DFN,.32)) F I=6,11,16 I $P(A,U,I) S:($P(A,U,I)'<2800908) Y=$P(A,U,I) I $P(A,U,I)<2800908 S Y=0 Q
7 I Y D
8 .X ^DD("DD") W !,"Entered Service ",Y
9 .W !,"Veteran must have completed at least 24 consecutive months of active"
10 .W !,"military service. If veteran meets an exception to minimum duty requirements"
11 .W !,"as listed on www.va.gov/elig, veteran is eligible for VA health care."
12 .W !,"Otherwise, enter Ineligible Date and Reason on Screen 10 -- veteran is"
13 .W !,"eligible for care of SC conditions only.",!
14 .K A
15 Q
Note: See TracBrowser for help on using the repository browser.