| [613] | 1 | EASECDP3 ;ALB/LBD - Dependents display ; 20 AUG 2001
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,40**;Mar 15, 2001
|
|---|
| 3 | ;NOTE: This routine was modified from DGDEP3 for LTC co-pay
|
|---|
| 4 | ;
|
|---|
| 5 | SELF(INCPER,NAME,RELATE,ACT,DGMTI,CNT) ; Display information concerning veteran
|
|---|
| 6 | ;
|
|---|
| 7 | S DGX="",DGX=$$SETSTR^VALM1(CNT,DGX,3,3)
|
|---|
| 8 | I $G(DGMTI),INCPER,($P($G(^DGMT(408.22,+INCPER,"MT")),U)=DGMTI) S DGX=$$SETSTR^VALM1("*",DGX,5,1)
|
|---|
| 9 | S DGX=$$SETSTR^VALM1(NAME,DGX,9,22)
|
|---|
| 10 | S DGX=$$SETSTR^VALM1($P($G(^DG(408.11,RELATE,0)),U),DGX,32,30)
|
|---|
| 11 | S DGX=$$SETSTR^VALM1($S($P(ACT,U,2)=1:"*",1:""),DGX,65,1)
|
|---|
| 12 | D SET^EASECDEP(DGX)
|
|---|
| 13 | ;
|
|---|
| 14 | Q:RELATE=2
|
|---|
| 15 | S INCPER=^DGMT(408.22,INCPER,0)
|
|---|
| 16 | S DGX="",DGX=$$SETSTR^VALM1("Married This Year: ",DGX,18,19)
|
|---|
| 17 | S DGX=$$SETSTR^VALM1($S($P(INCPER,U,14):"Yes",$P(INCPER,U,14)="":"Unanswered",1:"No"),DGX,38,10)
|
|---|
| 18 | D SET^EASECDEP(DGX)
|
|---|
| 19 | ;
|
|---|
| 20 | Q:'$G(DGMTI)
|
|---|
| 21 | I $P(INCPER,U,14)=1 D
|
|---|
| 22 | . ;If this is the new 10-10EC format display Legally Separated field
|
|---|
| 23 | . ;Added for LTC Phase IV (EAS*1*40)
|
|---|
| 24 | .I $G(DGFORM) D Q:$P(INCPER,U,17)=1
|
|---|
| 25 | ..S DGX="",DGX=$$SETSTR^VALM1("Legally Separated: ",DGX,18,19)
|
|---|
| 26 | ..S DGX=$$SETSTR^VALM1($S($P(INCPER,U,17):"Yes",$P(INCPER,U,17)="":"Unanswered",1:"No"),DGX,38,10)
|
|---|
| 27 | ..D SET^EASECDEP(DGX)
|
|---|
| 28 | .S DGX="",DGX=$$SETSTR^VALM1("Spouse Residing in Community: ",DGX,7,30)
|
|---|
| 29 | .S DGX=$$SETSTR^VALM1($S($P(INCPER,U,16):"Yes",$P(INCPER,U,16)="":"Unanswered",1:"No"),DGX,38,10)
|
|---|
| 30 | .D SET^EASECDEP(DGX)
|
|---|
| 31 | .Q:$P(INCPER,U,16)=0!($G(DGFORM))
|
|---|
| 32 | .S DGX="",DGX=$$SETSTR^VALM1("Living with Spouse: ",DGX,17,20)
|
|---|
| 33 | .S DGX=$$SETSTR^VALM1($S($P(INCPER,U,15):"Yes",$P(INCPER,U,15)="":"Unanswered",1:"No"),DGX,38,10)
|
|---|
| 34 | .D SET^EASECDEP(DGX)
|
|---|
| 35 | ;
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | CHILD(INCPER,NAME,RELATE,ACT,DGMTI,DGMTACT,CNT) ; Display information concerning dependents
|
|---|
| 39 | ;
|
|---|
| 40 | S DGX="",DGX=$$SETSTR^VALM1(CNT,DGX,3,3)
|
|---|
| 41 | I $G(DGMTI),INCPER,($P($G(^DGMT(408.22,+INCPER,"MT")),U)=DGMTI) S DGX=$$SETSTR^VALM1("*",DGX,5,1)
|
|---|
| 42 | S DGX=$$SETSTR^VALM1(NAME,DGX,9,22)
|
|---|
| 43 | S DGX=$$SETSTR^VALM1($P($G(^DG(408.11,RELATE,0)),U),DGX,32,30)
|
|---|
| 44 | S DGX=$$SETSTR^VALM1($S($P(ACT,U,2)=1:"*",1:""),DGX,65,1)
|
|---|
| 45 | D SET^EASECDEP(DGX)
|
|---|
| 46 | ;
|
|---|
| 47 | Q:'$G(DGMTI)!('$P($G(^DG(408.11,RELATE,0)),U,4))
|
|---|
| 48 | S INCPER=^DGMT(408.22,INCPER,0)
|
|---|
| 49 | S DGX="",DGX=$$SETSTR^VALM1("Dependent Residing in Community: ",DGX,4,33)
|
|---|
| 50 | S DGX=$$SETSTR^VALM1($S($P(INCPER,U,16):"Yes",$P(INCPER,U,16)="":"Unanswered",1:"No"),DGX,38,10)
|
|---|
| 51 | D SET^EASECDEP(DGX)
|
|---|
| 52 | G:$P(INCPER,U,16)=0 CHILDQ
|
|---|
| 53 | S DGX="",DGX=$$SETSTR^VALM1("Dependent Living with You: ",DGX,10,27)
|
|---|
| 54 | S DGX=$$SETSTR^VALM1($S($P(INCPER,U,15):"Yes",$P(INCPER,U,15)="":"Unanswered",1:"No"),DGX,38,10)
|
|---|
| 55 | D SET^EASECDEP(DGX)
|
|---|
| 56 | CHILDQ Q
|
|---|
