source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASECDP3.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1EASECDP3 ;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 ;
5SELF(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 ;
38CHILD(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)
56CHILDQ Q
Note: See TracBrowser for help on using the repository browser.