EASECDP3 ;ALB/LBD - Dependents display ; 20 AUG 2001
;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,40**;Mar 15, 2001
;NOTE: This routine was modified from DGDEP3 for LTC co-pay
;
SELF(INCPER,NAME,RELATE,ACT,DGMTI,CNT) ; Display information concerning veteran
;
S DGX="",DGX=$$SETSTR^VALM1(CNT,DGX,3,3)
I $G(DGMTI),INCPER,($P($G(^DGMT(408.22,+INCPER,"MT")),U)=DGMTI) S DGX=$$SETSTR^VALM1("*",DGX,5,1)
S DGX=$$SETSTR^VALM1(NAME,DGX,9,22)
S DGX=$$SETSTR^VALM1($P($G(^DG(408.11,RELATE,0)),U),DGX,32,30)
S DGX=$$SETSTR^VALM1($S($P(ACT,U,2)=1:"*",1:""),DGX,65,1)
D SET^EASECDEP(DGX)
;
Q:RELATE=2
S INCPER=^DGMT(408.22,INCPER,0)
S DGX="",DGX=$$SETSTR^VALM1("Married This Year: ",DGX,18,19)
S DGX=$$SETSTR^VALM1($S($P(INCPER,U,14):"Yes",$P(INCPER,U,14)="":"Unanswered",1:"No"),DGX,38,10)
D SET^EASECDEP(DGX)
;
Q:'$G(DGMTI)
I $P(INCPER,U,14)=1 D
. ;If this is the new 10-10EC format display Legally Separated field
. ;Added for LTC Phase IV (EAS*1*40)
.I $G(DGFORM) D Q:$P(INCPER,U,17)=1
..S DGX="",DGX=$$SETSTR^VALM1("Legally Separated: ",DGX,18,19)
..S DGX=$$SETSTR^VALM1($S($P(INCPER,U,17):"Yes",$P(INCPER,U,17)="":"Unanswered",1:"No"),DGX,38,10)
..D SET^EASECDEP(DGX)
.S DGX="",DGX=$$SETSTR^VALM1("Spouse Residing in Community: ",DGX,7,30)
.S DGX=$$SETSTR^VALM1($S($P(INCPER,U,16):"Yes",$P(INCPER,U,16)="":"Unanswered",1:"No"),DGX,38,10)
.D SET^EASECDEP(DGX)
.Q:$P(INCPER,U,16)=0!($G(DGFORM))
.S DGX="",DGX=$$SETSTR^VALM1("Living with Spouse: ",DGX,17,20)
.S DGX=$$SETSTR^VALM1($S($P(INCPER,U,15):"Yes",$P(INCPER,U,15)="":"Unanswered",1:"No"),DGX,38,10)
.D SET^EASECDEP(DGX)
;
Q
;
CHILD(INCPER,NAME,RELATE,ACT,DGMTI,DGMTACT,CNT) ; Display information concerning dependents
;
S DGX="",DGX=$$SETSTR^VALM1(CNT,DGX,3,3)
I $G(DGMTI),INCPER,($P($G(^DGMT(408.22,+INCPER,"MT")),U)=DGMTI) S DGX=$$SETSTR^VALM1("*",DGX,5,1)
S DGX=$$SETSTR^VALM1(NAME,DGX,9,22)
S DGX=$$SETSTR^VALM1($P($G(^DG(408.11,RELATE,0)),U),DGX,32,30)
S DGX=$$SETSTR^VALM1($S($P(ACT,U,2)=1:"*",1:""),DGX,65,1)
D SET^EASECDEP(DGX)
;
Q:'$G(DGMTI)!('$P($G(^DG(408.11,RELATE,0)),U,4))
S INCPER=^DGMT(408.22,INCPER,0)
S DGX="",DGX=$$SETSTR^VALM1("Dependent Residing in Community: ",DGX,4,33)
S DGX=$$SETSTR^VALM1($S($P(INCPER,U,16):"Yes",$P(INCPER,U,16)="":"Unanswered",1:"No"),DGX,38,10)
D SET^EASECDEP(DGX)
G:$P(INCPER,U,16)=0 CHILDQ
S DGX="",DGX=$$SETSTR^VALM1("Dependent Living with You: ",DGX,10,27)
S DGX=$$SETSTR^VALM1($S($P(INCPER,U,15):"Yes",$P(INCPER,U,15)="":"Unanswered",1:"No"),DGX,38,10)
D SET^EASECDEP(DGX)
CHILDQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASECDP3 2585 printed Oct 16, 2024@17:54:43 Page 2
EASECDP3 ;ALB/LBD - Dependents display ; 20 AUG 2001
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,40**;Mar 15, 2001
+2 ;NOTE: This routine was modified from DGDEP3 for LTC co-pay
+3 ;
SELF(INCPER,NAME,RELATE,ACT,DGMTI,CNT) ; Display information concerning veteran
+1 ;
+2 SET DGX=""
SET DGX=$$SETSTR^VALM1(CNT,DGX,3,3)
+3 IF $GET(DGMTI)
IF INCPER
IF ($PIECE($GET(^DGMT(408.22,+INCPER,"MT")),U)=DGMTI)
SET DGX=$$SETSTR^VALM1("*",DGX,5,1)
+4 SET DGX=$$SETSTR^VALM1(NAME,DGX,9,22)
+5 SET DGX=$$SETSTR^VALM1($PIECE($GET(^DG(408.11,RELATE,0)),U),DGX,32,30)
+6 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(ACT,U,2)=1:"*",1:""),DGX,65,1)
+7 DO SET^EASECDEP(DGX)
+8 ;
+9 if RELATE=2
QUIT
+10 SET INCPER=^DGMT(408.22,INCPER,0)
+11 SET DGX=""
SET DGX=$$SETSTR^VALM1("Married This Year: ",DGX,18,19)
+12 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(INCPER,U,14):"Yes",$PIECE(INCPER,U,14)="":"Unanswered",1:"No"),DGX,38,10)
+13 DO SET^EASECDEP(DGX)
+14 ;
+15 if '$GET(DGMTI)
QUIT
+16 IF $PIECE(INCPER,U,14)=1
Begin DoDot:1
+17 ;If this is the new 10-10EC format display Legally Separated field
+18 ;Added for LTC Phase IV (EAS*1*40)
+19 IF $GET(DGFORM)
Begin DoDot:2
+20 SET DGX=""
SET DGX=$$SETSTR^VALM1("Legally Separated: ",DGX,18,19)
+21 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(INCPER,U,17):"Yes",$PIECE(INCPER,U,17)="":"Unanswered",1:"No"),DGX,38,10)
+22 DO SET^EASECDEP(DGX)
End DoDot:2
if $PIECE(INCPER,U,17)=1
QUIT
+23 SET DGX=""
SET DGX=$$SETSTR^VALM1("Spouse Residing in Community: ",DGX,7,30)
+24 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(INCPER,U,16):"Yes",$PIECE(INCPER,U,16)="":"Unanswered",1:"No"),DGX,38,10)
+25 DO SET^EASECDEP(DGX)
+26 if $PIECE(INCPER,U,16)=0!($GET(DGFORM))
QUIT
+27 SET DGX=""
SET DGX=$$SETSTR^VALM1("Living with Spouse: ",DGX,17,20)
+28 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(INCPER,U,15):"Yes",$PIECE(INCPER,U,15)="":"Unanswered",1:"No"),DGX,38,10)
+29 DO SET^EASECDEP(DGX)
End DoDot:1
+30 ;
+31 QUIT
+32 ;
CHILD(INCPER,NAME,RELATE,ACT,DGMTI,DGMTACT,CNT) ; Display information concerning dependents
+1 ;
+2 SET DGX=""
SET DGX=$$SETSTR^VALM1(CNT,DGX,3,3)
+3 IF $GET(DGMTI)
IF INCPER
IF ($PIECE($GET(^DGMT(408.22,+INCPER,"MT")),U)=DGMTI)
SET DGX=$$SETSTR^VALM1("*",DGX,5,1)
+4 SET DGX=$$SETSTR^VALM1(NAME,DGX,9,22)
+5 SET DGX=$$SETSTR^VALM1($PIECE($GET(^DG(408.11,RELATE,0)),U),DGX,32,30)
+6 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(ACT,U,2)=1:"*",1:""),DGX,65,1)
+7 DO SET^EASECDEP(DGX)
+8 ;
+9 if '$GET(DGMTI)!('$PIECE($GET(^DG(408.11,RELATE,0)),U,4))
QUIT
+10 SET INCPER=^DGMT(408.22,INCPER,0)
+11 SET DGX=""
SET DGX=$$SETSTR^VALM1("Dependent Residing in Community: ",DGX,4,33)
+12 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(INCPER,U,16):"Yes",$PIECE(INCPER,U,16)="":"Unanswered",1:"No"),DGX,38,10)
+13 DO SET^EASECDEP(DGX)
+14 if $PIECE(INCPER,U,16)=0
GOTO CHILDQ
+15 SET DGX=""
SET DGX=$$SETSTR^VALM1("Dependent Living with You: ",DGX,10,27)
+16 SET DGX=$$SETSTR^VALM1($SELECT($PIECE(INCPER,U,15):"Yes",$PIECE(INCPER,U,15)="":"Unanswered",1:"No"),DGX,38,10)
+17 DO SET^EASECDEP(DGX)
CHILDQ QUIT
