source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZRPM.m@ 767

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

initial load of FOIAVistA 6/30/08 version
File size: 5.0 KB
Line 
1EASEZRPM ;ALB/AMA - Print 1010EZR, Cont., Other Dependent Financial Pages
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
3 ;
4 Q
5 ;
6EN(EALNE,EAINFO,EASDG) ;Print multiple dependent financial information
7 ;Called from EN^EASEZRPF
8 ; Input
9 ; EALNE - Array of line formats for output
10 ; EAINFO - Application Data array, see SETUP^EASEZRPF
11 ; EASDG - Flag variable to signify request to print from DG options
12 ;
13 N FNP,GNP ;MAX NO. ENTRIES PER PAGE FOR EACH SECTION
14 N EASF,EASG ;VARS FOR INDIRECT ^TMP GLOBAL REFERENCE
15 N DEPF,DEPG ;VARS TO LOOP THROUGH ^TMP GLOBALS
16 N DFCNT,DGCNT ;COUNTERS FOR NO. DEPENDENTS
17 N NEWPG,SECOND ;VARS TO DETERMINE WHEN A NEW PAGE SHOULD OCCUR
18 ;
19 ;Assuming 55 print lines per page, 5 lines per IIF entry, 6 lines
20 ;per IIG entry, plus lines for titles and blank dividing lines:
21 S FNP=9 ;can fit 9 dependents on one page for Section IIF
22 S GNP=7 ;can fit 7 dependents on one page for Section IIG
23 ;
24 ;Find additional dependents from Section IIF
25 S EASF=$NA(^TMP("EASEZR",$J,"DFF"))
26 I $O(@EASF@(1)) D BEGINF
27 ;
28 ;Start printing with 2nd dependent
29 S DEPF=1,DFCNT=0 F S DEPF=$O(@EASF@(DEPF)) Q:'DEPF D
30 . S DFCNT=DFCNT+1
31 . ;Check to see if a new page is needed
32 . I (DFCNT>1),'((DFCNT-1)#FNP) D
33 . . D FT^EASEZRPF(.EALNE,.EAINFO)
34 . . D BEGINF
35 . I (DFCNT#FNP)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
36 . D ADFF
37 ;
38 ;Find additional dependents from Section IIG
39 S EASG=$NA(^TMP("EASEZR",$J,"DFG"))
40 I $O(@EASG@(1)) D
41 . I $O(@EASF@(1)) D I 1
42 . . I ((DFCNT#FNP)'=0),((DFCNT#FNP)'=GNP) W !!,?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
43 . . ;At the end of IIF, to find when to jump to the next page,
44 . . ;55 print lines, minus 3 lines for Section IIG title header,
45 . . ;minus the number of lines already used on current page,
46 . . ;divided by the number of lines for a Section IIG entry
47 . . S NEWPG=(51-((DFCNT#FNP)*6))\7
48 . . I '(DFCNT#FNP)!'NEWPG!(NEWPG=GNP) S NEWPG=GNP D FT^EASEZRPF(.EALNE,.EAINFO)
49 . E S NEWPG=GNP
50 . D BEGING
51 ;
52 ;Start printing with 2nd dependent
53 S DEPG=1,DGCNT=0 F S DEPG=$O(@EASG@(DEPG)) Q:'DEPG D
54 . S DGCNT=DGCNT+1
55 . ;Check to see if a new page is needed
56 . I (DGCNT>1),'((DGCNT-$G(SECOND)-1)#NEWPG) D
57 . . D FT^EASEZRPF(.EALNE,.EAINFO)
58 . . I NEWPG'=GNP S SECOND=NEWPG,NEWPG=GNP
59 . . D BEGING
60 . I (DGCNT-$G(SECOND))#GNP'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
61 . D ADFG
62 ;
63 D FT^EASEZRPF(.EALNE,.EAINFO)
64 Q
65 ;
66BEGINF ; Print page header info
67 ;
68 D HDR^EASEZRPF(.EALNE,.EAINFO)
69 I $G(EASDG) D I 1
70 . N EZINYR
71 . S EZINYR=^TMP("EASEZR",$J,2,999)
72 . W !!?9,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
73 E W !!?20,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN)"
74 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
75 Q
76 ;
77BEGING ; Print page header info
78 ;
79 I NEWPG=GNP D HDR^EASEZRPF(.EALNE,.EAINFO)
80 I $G(EASDG) D I 1
81 . N EZINYR
82 . S EZINYR=^TMP("EASEZR",$J,2,999)
83 . W !!?14,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
84 E W !!?25,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN)"
85 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
86 Q
87 ;
88ADFF ; Print out VA 10-10EZ Section VII, Gross Annual Income information - Additional Dependents
89 ;
90 W !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (e.g., wages, bonuses, tips)",?90,"| $ ",$P(@EASF@(DEPF,7),U,2)
91 W !,"EXCLUDING INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$P(@EASF@(DEPF,7),U),?90,"|"
92 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
93 ;
94 W !,"2. NET INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$P(@EASF@(DEPF,7),U),?90,"| $ ",$P(@EASF@(DEPF,7),U,3)
95 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
96 ;
97 W !,"3. LIST OTHER INCOME AMOUNTS (e.g., Social Security, compensation,",?90,"| $ ",$P(@EASF@(DEPF,7),U,4)
98 W !,"pension, interest, dividends). EXCLUDING WELFARE -- ",$P(@EASF@(DEPF,7),U),?90,"|"
99 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
100 Q
101 ;
102ADFG ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH - ADDITIONAL DEPENDENTS
103 ;
104 W !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?116,"| $ ",$P(@EASG@(DEPG,9),U,2)
105 W !,"certificates of deposit, individual retirement accounts, stocks and bonds) -- ",$P(@EASG@(DEPG,9),U),?116,"|"
106 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
107 ;
108 W !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?116,"| $ ",$P(@EASG@(DEPG,9),U,3)
109 W !,"homes and non-income-producing property). DO NOT INCLUDE YOUR PRIMARY HOME. -- ",$P(@EASG@(DEPG,9),U),?116,"|"
110 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
111 ;
112 W !,"3. VALUE OF OTHER PROPERTY OR ASSETS (e.g., art, rare coins, collectibles) MINUS THE AMOUNT YOU OWE ON THESE ITEMS.",?116,"| $ ",$P(@EASG@(DEPG,9),U,4)
113 W !,"INCLUDE VALUE OF FARM, RANCH, OR BUSINESS ASSETS. Exclude household effects and family vehicles. -- ",$P(@EASG@(DEPG,9),U),?116,"|"
114 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
115 Q
Note: See TracBrowser for help on using the repository browser.