source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZPDU.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 5.9 KB
Line 
1EASEZPDU ;ALB/AMA - PRINT 10-10EZ OR EZR FROM DG OPTIONS UTILITIES
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
3 ;
4 Q
5 ;
6SETUP(EALNE,EAINFO) ; Set-up print variables
7 ; Input
8 ; EALNE - Line format array
9 ; EAINFO - Misc Data
10 ; ("CLRK") - Clerk's initials
11 ; ("ID") - Web ID from #712
12 ; ("PGE") - Page number
13 ; ("VET" ) - Veteran's name submitting the application
14 ; ("SSN") - Veteran's SSN
15 ;
16 N X
17 ;
18 ; Build Line array for printout
19 S EALNE("ULC")=$S('($D(IOST)#2):"-",IOST["C-":"-",1:"_")
20 S EALNE("D")="",EALNE("DD")="",EALNE("UL")=""
21 S $P(EALNE("D"),"-",133)="",$P(EALNE("DD"),"=",133)="",$P(EALNE("UL"),EALNE("ULC"),133)=""
22 ;
23 ; Set up information array & get clerk's initials
24 S ZUSR=$G(ZUSR)
25 I +ZUSR>0 D
26 . S EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
27 . I EAINFO("CLRK")']"" D
28 . . S X=$$GET1^DIQ(200,ZUSR,.01)
29 . . S EAINFO("CLRK")=$E($P(X,",",2),1)_$E($P(X,","),1)
30 E D
31 . S EAINFO("CLRK")="unk"
32 ;
33 ; Set data elements
34 S EAINFO("PGE")=0
35 S EAINFO("ID")=""
36 S EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
37 S EAINFO("EASAPP")=0
38 S EAINFO("VET")=""
39 S EAINFO("SSN")=""
40 Q
41 ;
42NETEZ(EALNE,EAINFO) ; Print SECTION X - PREVIOUS CALENDAR YEAR NET WORTH
43 ;Copied from EASEZP64
44 ; Input
45 ; EALNE - Line format array
46 ; EAINFO - Misc Data
47 ; ("CLRK") - Clerk's initials
48 ; ("ID") - Web ID from #712
49 ; ("PGE") - Page number
50 ; ("VET" ) - Veteran's name submitting the application
51 ; ("SSN") - Veteran's SSN
52 ; ("DISC") - Financial Disclosure status
53 ;
54 N EASIGN,EASD
55 ;
56 I $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]"" D
57 . S EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
58 S EASIGN=$G(EASIGN)
59 ;
60 D HDR^EASEZP6F(.EALNE,.EAINFO)
61 S EASD=$NA(^TMP("EASEZ",$J,2))
62 ;
63 I +@EASD@(999) W !!?7,"SECTION X - PREVIOUS CALENDAR YEAR NET WORTH (INCOME YEAR: ",@EASD@(999),") (Use a separate sheet for additional dependents)"
64 E W !!?18,"SECTION X - PREVIOUS CALENDAR YEAR NET WORTH (Use a separate sheet for additional dependents)"
65 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
66 ;
67 W !?78,"|",?84,"VETERAN",?96,"|",?102,"SPOUSE",?114,"|",?120,"CHILD 1"
68 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
69 ;
70 W !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?78,"| $ ",$P(@EASD@("2E1"),U),?96,"| $ ",$P(@EASD@("2E1"),U,2),?114,"|"
71 I $P(@EASD@("2E1"),U) W " Included in"
72 W !,"certificates of deposit, individual retirement accounts, stocks and bonds)",?78,"|",?96,"|",?114,"|"
73 I $P(@EASD@("2E1"),U) W " Veteran amount"
74 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
75 ;
76 W !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?78,"| $ ",$P(@EASD@("2E2"),U),?96,"| $ ",$P(@EASD@("2E2"),U,2),?114,"|"
77 I $P(@EASD@("2E2"),U) W " Included in"
78 W !,"homes and non-income-producing property. Do not count your primary home.)",?78,"|",?96,"|",?114,"|"
79 I $P(@EASD@("2E2"),U) W " Veteran amount"
80 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
81 ;
82 W !,"3. VALUE OF OTHER PROPERTY OR ASSETS (e.g., art, rare coins, collectibles)",?78,"| $ ",$P(@EASD@("2E3"),U),?96,"| $ ",$P(@EASD@("2E3"),U,2),?114,"|"
83 I $P(@EASD@("2E3"),U) W " Included in"
84 W !,"MINUS THE AMOUNT YOU OWE ON THESE ITEMS. INCLUDE VALUE OF FARM, RANCH, OR",?78,"|",?96,"|",?114,"|"
85 I $P(@EASD@("2E3"),U) W " Veteran amount"
86 W !,"BUSINESS ASSETS. Exclude household effects and family vehicles.",?78,"|",?96,"|",?114,"|"
87 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
88 ;
89 D CON^EASEZP64
90 D AOB^EASEZP64
91 D FT^EASEZP6F(.EALNE,.EAINFO)
92 ;
93 Q
94 ;
95NETEZR(EALNE,EAINFO) ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH
96 ;Copied from EASEZRP3
97 ; Input
98 ; EALNE - Line format array
99 ; EAINFO - Misc Data
100 ; ("CLRK") - Clerk's initials
101 ; ("ID") - Web ID from #712
102 ; ("PGE") - Page number
103 ; ("VET" ) - Veteran's name submitting the application
104 ; ("SSN") - Veteran's SSN
105 ; ("DISC") - Financial Disclosure status
106 ;
107 N EASIGN,EASD
108 ;
109 I $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]"" D
110 . S EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
111 S EASIGN=$G(EASIGN)
112 ;
113 D HDR^EASEZRPF(.EALNE,.EAINFO)
114 S EASD=$NA(^TMP("EASEZR",$J,2))
115 ;
116 I +@EASD@(999) W !?7,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH (INCOME YEAR: ",@EASD@(999),") (Use a separate sheet for additional dependents)"
117 E W !?18,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH (Use a separate sheet for additional dependents)"
118 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
119 ;
120 W !?78,"|",?84,"VETERAN",?96,"|",?102,"SPOUSE",?114,"|",?120,"CHILD 1"
121 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
122 ;
123 W !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?78,"| $ ",$P(@EASD@("2E1"),U),?96,"| $ ",$P(@EASD@("2E1"),U,2),?114,"|"
124 I $P(@EASD@("2E1"),U) W " Included in"
125 W !,"certificates of deposit, individual retirement accounts, stocks and bonds)",?78,"|",?96,"|",?114,"|"
126 I $P(@EASD@("2E1"),U) W " Veteran amount"
127 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
128 ;
129 W !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?78,"| $ ",$P(@EASD@("2E2"),U),?96,"| $ ",$P(@EASD@("2E2"),U,2),?114,"|"
130 I $P(@EASD@("2E2"),U) W " Included in"
131 W !,"homes and non-income-producing property. Do not include your primary home.)",?78,"|",?96,"|",?114,"|"
132 I $P(@EASD@("2E2"),U) W " Veteran amount"
133 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
134 ;
135 W !,"3. VALUE OF OTHER PROPERTY OR ASSETS (e.g., art, rare coins, collectibles)",?78,"| $ ",$P(@EASD@("2E3"),U),?96,"| $ ",$P(@EASD@("2E3"),U,2),?114,"|"
136 I $P(@EASD@("2E3"),U) W " Included in"
137 W !,"MINUS THE AMOUNT YOU OWE ON THESE ITEMS. INCLUDE VALUE OF FARM, RANCH, OR",?78,"|",?96,"|",?114,"|"
138 I $P(@EASD@("2E3"),U) W " Veteran amount"
139 W !,"BUSINESS ASSETS. Exclude household effects and family vehicles.",?78,"|",?96,"|",?114,"|"
140 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
141 ;
142 D CON^EASEZRP3
143 D AOB^EASEZRP3
144 D FT^EASEZRPF(.EALNE,.EAINFO)
145 Q
Note: See TracBrowser for help on using the repository browser.