| [613] | 1 | EASECED3 ;ALB/LBD - INCOME SCREENING DATA (CON'T) ;21 AUG 2001
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
|
|---|
| 3 | ;NOTE: This routine has been modified from DGRPEIS3 for LTC Co-pay
|
|---|
| 4 | ;
|
|---|
| 5 | HELP ; Display information when veteran's DOB is past the income year
|
|---|
| 6 | ;
|
|---|
| 7 | W !!,"Please return to screen 8 and check the veteran's effective date."
|
|---|
| 8 | W !,"The effective date was created based on the veteran's date of birth."
|
|---|
| 9 | W !,"You might also want to check the date of birth for this veteran."
|
|---|
| 10 | W ! S DIR(0)="E" D ^DIR K DIR W !
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | WRT ; Write age statement
|
|---|
| 14 | Q:'$G(DGMTI)
|
|---|
| 15 | W !!,"This dependent is 18 years or older. To list this person as a dependent"
|
|---|
| 16 | W !,"they have to be:"
|
|---|
| 17 | W !," 1. An UNMARRIED child who is under the age of 18."
|
|---|
| 18 | W !," 2. Between the ages of 18 and 23 and attending school."
|
|---|
| 19 | W !," 3. An unmarried child over the age of 17 who became permanently"
|
|---|
| 20 | W !," incapable of self support before the age of 18."
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | EDIT ;CALLED FROM ROUTINE DGRPEIS
|
|---|
| 24 | S DGEDDEP=1
|
|---|
| 25 | S DGFL=$G(DGFL)
|
|---|
| 26 | S DATE=$S($G(DATE):DATE,1:DT)
|
|---|
| 27 | S X=$P(DGPREF,"^",2)
|
|---|
| 28 | S DGTYPE=$G(DGTYPE),DGTYPE=$S(DGTYPE']"":"S",DGTYPE="C":"C",DGTYPE="D":"D",1:"S")
|
|---|
| 29 | S DIE="^"_$P(X,";",2),DA=+X,DR=".01;.02;.03;.09;S UPARROW=1" K DG,DQ D ^DIE I $D(DTOUT)!$D(DUOUT)!'$D(UPARROW) S DGFL=$S($D(DTOUT):-2,1:-1) G EDITQ
|
|---|
| 30 | S DOB=$P($G(@(DIE_DA_",0)")),"^",3)
|
|---|
| 31 | I DGTYPE'="S" K UPARROW S DIE="^DGPR(408.12,",DA=+DGPREF,DR=".02;S UPARROW=1" K DG,DQ D ^DIE I $D(DTOUT)!$D(DUOUT)!'$D(UPARROW) S DGFL=$S($D(DTOUT):-2,1:-1)
|
|---|
| 32 | S RELATION=$P($G(^DGPR(408.12,+DGPREF,0)),"^",2)
|
|---|
| 33 | S DGX=$O(^DGPR(408.12,+DGPREF,"E","AID","")),DGMIEN=$O(^(+DGX,0))
|
|---|
| 34 | EDACTDT I $G(^DGPR(408.12,+DGPREF,"E",+DGMIEN,0)) D G:$G(DGFL)<0 EDITQ
|
|---|
| 35 | .S (DGACT,Y)=+^DGPR(408.12,+DGPREF,"E",+DGMIEN,0) X ^DD("DD")
|
|---|
| 36 | .S DIR("B")=Y
|
|---|
| 37 | .D READ^EASECED2
|
|---|
| 38 | .I -DGACT'=DGX W !,"Use 'Expand Dependent' option to change effective date." H 2 S DGFL=-1 Q
|
|---|
| 39 | .Q:$G(DGFL)<0
|
|---|
| 40 | .S DIE="^DGPR(408.12,"_+DGPREF_",""E"",",DA(1)=+DGPREF,DA=DGMIEN,DR=".01///"_DGACT
|
|---|
| 41 | .D ^DIE
|
|---|
| 42 | I DGTYPE="S" S X=+DGPREF D SETUP^EASECED1
|
|---|
| 43 | K DGACT,DGMIEN,RELATION,DA,DIE,DR,UPARROW,DTOUT,DUOUT,DIRUT
|
|---|
| 44 | EDITQ K DA,DIE,DIRUT,DR,DTOUT,DUOUT
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | HELP1(DGISDT) ; Displays the help for the active/inactive prompt
|
|---|
| 48 | ;
|
|---|
| 49 | D CLEAR^VALM1
|
|---|
| 50 | W !,"Enter the date this person first became a dependent of the veteran."
|
|---|
| 51 | W !,"In the case of a spouse, this would be the date of marriage. For"
|
|---|
| 52 | W !,"a parent or other dependent, this would be the date the dependent"
|
|---|
| 53 | W !,"moved in. For a child, this would be the date of birth or date of"
|
|---|
| 54 | W !,"adoption."
|
|---|
| 55 | W !," "
|
|---|
| 56 | W !,"Date must be before DEC 31, "_DGISDT_" as dependents are collected for the"
|
|---|
| 57 | W !,"prior calendar year only."
|
|---|
| 58 | S VALMBCK="R"
|
|---|
| 59 | Q
|
|---|
