- 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 Dec 13, 2024@01:54:03 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