EASECED3 ;ALB/LBD - INCOME SCREENING DATA (CON'T) ;21 AUG 2001
;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
;NOTE: This routine has been modified from DGRPEIS3 for LTC Co-pay
;
HELP ; Display information when veteran's DOB is past the income year
;
W !!,"Please return to screen 8 and check the veteran's effective date."
W !,"The effective date was created based on the veteran's date of birth."
W !,"You might also want to check the date of birth for this veteran."
W ! S DIR(0)="E" D ^DIR K DIR W !
Q
;
WRT ; Write age statement
Q:'$G(DGMTI)
W !!,"This dependent is 18 years or older. To list this person as a dependent"
W !,"they have to be:"
W !," 1. An UNMARRIED child who is under the age of 18."
W !," 2. Between the ages of 18 and 23 and attending school."
W !," 3. An unmarried child over the age of 17 who became permanently"
W !," incapable of self support before the age of 18."
Q
;
EDIT ;CALLED FROM ROUTINE DGRPEIS
S DGEDDEP=1
S DGFL=$G(DGFL)
S DATE=$S($G(DATE):DATE,1:DT)
S X=$P(DGPREF,"^",2)
S DGTYPE=$G(DGTYPE),DGTYPE=$S(DGTYPE']"":"S",DGTYPE="C":"C",DGTYPE="D":"D",1:"S")
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
S DOB=$P($G(@(DIE_DA_",0)")),"^",3)
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)
S RELATION=$P($G(^DGPR(408.12,+DGPREF,0)),"^",2)
S DGX=$O(^DGPR(408.12,+DGPREF,"E","AID","")),DGMIEN=$O(^(+DGX,0))
EDACTDT I $G(^DGPR(408.12,+DGPREF,"E",+DGMIEN,0)) D G:$G(DGFL)<0 EDITQ
.S (DGACT,Y)=+^DGPR(408.12,+DGPREF,"E",+DGMIEN,0) X ^DD("DD")
.S DIR("B")=Y
.D READ^EASECED2
.I -DGACT'=DGX W !,"Use 'Expand Dependent' option to change effective date." H 2 S DGFL=-1 Q
.Q:$G(DGFL)<0
.S DIE="^DGPR(408.12,"_+DGPREF_",""E"",",DA(1)=+DGPREF,DA=DGMIEN,DR=".01///"_DGACT
.D ^DIE
I DGTYPE="S" S X=+DGPREF D SETUP^EASECED1
K DGACT,DGMIEN,RELATION,DA,DIE,DR,UPARROW,DTOUT,DUOUT,DIRUT
EDITQ K DA,DIE,DIRUT,DR,DTOUT,DUOUT
Q
;
HELP1(DGISDT) ; Displays the help for the active/inactive prompt
;
D CLEAR^VALM1
W !,"Enter the date this person first became a dependent of the veteran."
W !,"In the case of a spouse, this would be the date of marriage. For"
W !,"a parent or other dependent, this would be the date the dependent"
W !,"moved in. For a child, this would be the date of birth or date of"
W !,"adoption."
W !," "
W !,"Date must be before DEC 31, "_DGISDT_" as dependents are collected for the"
W !,"prior calendar year only."
S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASECED3 2722 printed Oct 16, 2024@17:54:51 Page 2
EASECED3 ;ALB/LBD - INCOME SCREENING DATA (CON'T) ;21 AUG 2001
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
+2 ;NOTE: This routine has been modified from DGRPEIS3 for LTC Co-pay
+3 ;
HELP ; Display information when veteran's DOB is past the income year
+1 ;
+2 WRITE !!,"Please return to screen 8 and check the veteran's effective date."
+3 WRITE !,"The effective date was created based on the veteran's date of birth."
+4 WRITE !,"You might also want to check the date of birth for this veteran."
+5 WRITE !
SET DIR(0)="E"
DO ^DIR
KILL DIR
WRITE !
+6 QUIT
+7 ;
WRT ; Write age statement
+1 if '$GET(DGMTI)
QUIT
+2 WRITE !!,"This dependent is 18 years or older. To list this person as a dependent"
+3 WRITE !,"they have to be:"
+4 WRITE !," 1. An UNMARRIED child who is under the age of 18."
+5 WRITE !," 2. Between the ages of 18 and 23 and attending school."
+6 WRITE !," 3. An unmarried child over the age of 17 who became permanently"
+7 WRITE !," incapable of self support before the age of 18."
+8 QUIT
+9 ;
EDIT ;CALLED FROM ROUTINE DGRPEIS
+1 SET DGEDDEP=1
+2 SET DGFL=$GET(DGFL)
+3 SET DATE=$SELECT($GET(DATE):DATE,1:DT)
+4 SET X=$PIECE(DGPREF,"^",2)
+5 SET DGTYPE=$GET(DGTYPE)
SET DGTYPE=$SELECT(DGTYPE']"":"S",DGTYPE="C":"C",DGTYPE="D":"D",1:"S")
+6 SET DIE="^"_$PIECE(X,";",2)
SET DA=+X
SET DR=".01;.02;.03;.09;S UPARROW=1"
KILL DG,DQ
DO ^DIE
IF $DATA(DTOUT)!$DATA(DUOUT)!'$DATA(UPARROW)
SET DGFL=$SELECT($DATA(DTOUT):-2,1:-1)
GOTO EDITQ
+7 SET DOB=$PIECE($GET(@(DIE_DA_",0)")),"^",3)
+8 IF DGTYPE'="S"
KILL UPARROW
SET DIE="^DGPR(408.12,"
SET DA=+DGPREF
SET DR=".02;S UPARROW=1"
KILL DG,DQ
DO ^DIE
IF $DATA(DTOUT)!$DATA(DUOUT)!'$DATA(UPARROW)
SET DGFL=$SELECT($DATA(DTOUT):-2,1:-1)
+9 SET RELATION=$PIECE($GET(^DGPR(408.12,+DGPREF,0)),"^",2)
+10 SET DGX=$ORDER(^DGPR(408.12,+DGPREF,"E","AID",""))
SET DGMIEN=$ORDER(^(+DGX,0))
EDACTDT IF $GET(^DGPR(408.12,+DGPREF,"E",+DGMIEN,0))
Begin DoDot:1
+1 SET (DGACT,Y)=+^DGPR(408.12,+DGPREF,"E",+DGMIEN,0)
XECUTE ^DD("DD")
+2 SET DIR("B")=Y
+3 DO READ^EASECED2
+4 IF -DGACT'=DGX
WRITE !,"Use 'Expand Dependent' option to change effective date."
HANG 2
SET DGFL=-1
QUIT
+5 if $GET(DGFL)<0
QUIT
+6 SET DIE="^DGPR(408.12,"_+DGPREF_",""E"","
SET DA(1)=+DGPREF
SET DA=DGMIEN
SET DR=".01///"_DGACT
+7 DO ^DIE
End DoDot:1
if $GET(DGFL)<0
GOTO EDITQ
+8 IF DGTYPE="S"
SET X=+DGPREF
DO SETUP^EASECED1
+9 KILL DGACT,DGMIEN,RELATION,DA,DIE,DR,UPARROW,DTOUT,DUOUT,DIRUT
EDITQ KILL DA,DIE,DIRUT,DR,DTOUT,DUOUT
+1 QUIT
+2 ;
HELP1(DGISDT) ; Displays the help for the active/inactive prompt
+1 ;
+2 DO CLEAR^VALM1
+3 WRITE !,"Enter the date this person first became a dependent of the veteran."
+4 WRITE !,"In the case of a spouse, this would be the date of marriage. For"
+5 WRITE !,"a parent or other dependent, this would be the date the dependent"
+6 WRITE !,"moved in. For a child, this would be the date of birth or date of"
+7 WRITE !,"adoption."
+8 WRITE !," "
+9 WRITE !,"Date must be before DEC 31, "_DGISDT_" as dependents are collected for the"
+10 WRITE !,"prior calendar year only."
+11 SET VALMBCK="R"
+12 QUIT
