| 1 | DGREGG ;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
|
|---|
