EASEZRPM ;ALB/AMA - Print 1010EZR, Cont., Other Dependent Financial Pages
;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
;
Q
;
EN(EALNE,EAINFO,EASDG) ;Print multiple dependent financial information
;Called from EN^EASEZRPF
; Input
; EALNE - Array of line formats for output
; EAINFO - Application Data array, see SETUP^EASEZRPF
; EASDG - Flag variable to signify request to print from DG options
;
N FNP,GNP ;MAX NO. ENTRIES PER PAGE FOR EACH SECTION
N EASF,EASG ;VARS FOR INDIRECT ^TMP GLOBAL REFERENCE
N DEPF,DEPG ;VARS TO LOOP THROUGH ^TMP GLOBALS
N DFCNT,DGCNT ;COUNTERS FOR NO. DEPENDENTS
N NEWPG,SECOND ;VARS TO DETERMINE WHEN A NEW PAGE SHOULD OCCUR
;
;Assuming 55 print lines per page, 5 lines per IIF entry, 6 lines
;per IIG entry, plus lines for titles and blank dividing lines:
S FNP=9 ;can fit 9 dependents on one page for Section IIF
S GNP=7 ;can fit 7 dependents on one page for Section IIG
;
;Find additional dependents from Section IIF
S EASF=$NA(^TMP("EASEZR",$J,"DFF"))
I $O(@EASF@(1)) D BEGINF
;
;Start printing with 2nd dependent
S DEPF=1,DFCNT=0 F S DEPF=$O(@EASF@(DEPF)) Q:'DEPF D
. S DFCNT=DFCNT+1
. ;Check to see if a new page is needed
. I (DFCNT>1),'((DFCNT-1)#FNP) D
. . D FT^EASEZRPF(.EALNE,.EAINFO)
. . D BEGINF
. I (DFCNT#FNP)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
. D ADFF
;
;Find additional dependents from Section IIG
S EASG=$NA(^TMP("EASEZR",$J,"DFG"))
I $O(@EASG@(1)) D
. I $O(@EASF@(1)) D I 1
. . I ((DFCNT#FNP)'=0),((DFCNT#FNP)'=GNP) W !!,?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
. . ;At the end of IIF, to find when to jump to the next page,
. . ;55 print lines, minus 3 lines for Section IIG title header,
. . ;minus the number of lines already used on current page,
. . ;divided by the number of lines for a Section IIG entry
. . S NEWPG=(51-((DFCNT#FNP)*6))\7
. . I '(DFCNT#FNP)!'NEWPG!(NEWPG=GNP) S NEWPG=GNP D FT^EASEZRPF(.EALNE,.EAINFO)
. E S NEWPG=GNP
. D BEGING
;
;Start printing with 2nd dependent
S DEPG=1,DGCNT=0 F S DEPG=$O(@EASG@(DEPG)) Q:'DEPG D
. S DGCNT=DGCNT+1
. ;Check to see if a new page is needed
. I (DGCNT>1),'((DGCNT-$G(SECOND)-1)#NEWPG) D
. . D FT^EASEZRPF(.EALNE,.EAINFO)
. . I NEWPG'=GNP S SECOND=NEWPG,NEWPG=GNP
. . D BEGING
. I (DGCNT-$G(SECOND))#GNP'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
. D ADFG
;
D FT^EASEZRPF(.EALNE,.EAINFO)
Q
;
BEGINF ; Print page header info
;
D HDR^EASEZRPF(.EALNE,.EAINFO)
I $G(EASDG) D I 1
. N EZINYR
. S EZINYR=^TMP("EASEZR",$J,2,999)
. W !!?9,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
E W !!?20,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN)"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
;
BEGING ; Print page header info
;
I NEWPG=GNP D HDR^EASEZRPF(.EALNE,.EAINFO)
I $G(EASDG) D I 1
. N EZINYR
. S EZINYR=^TMP("EASEZR",$J,2,999)
. W !!?14,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
E W !!?25,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN)"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
;
ADFF ; Print out VA 10-10EZ Section VII, Gross Annual Income information - Additional Dependents
;
W !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (e.g., wages, bonuses, tips)",?90,"| $ ",$P(@EASF@(DEPF,7),U,2)
W !,"EXCLUDING INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$P(@EASF@(DEPF,7),U),?90,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !,"2. NET INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$P(@EASF@(DEPF,7),U),?90,"| $ ",$P(@EASF@(DEPF,7),U,3)
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !,"3. LIST OTHER INCOME AMOUNTS (e.g., Social Security, compensation,",?90,"| $ ",$P(@EASF@(DEPF,7),U,4)
W !,"pension, interest, dividends). EXCLUDING WELFARE -- ",$P(@EASF@(DEPF,7),U),?90,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
;
ADFG ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH - ADDITIONAL DEPENDENTS
;
W !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?116,"| $ ",$P(@EASG@(DEPG,9),U,2)
W !,"certificates of deposit, individual retirement accounts, stocks and bonds) -- ",$P(@EASG@(DEPG,9),U),?116,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?116,"| $ ",$P(@EASG@(DEPG,9),U,3)
W !,"homes and non-income-producing property). DO NOT INCLUDE YOUR PRIMARY HOME. -- ",$P(@EASG@(DEPG,9),U),?116,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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)
W !,"INCLUDE VALUE OF FARM, RANCH, OR BUSINESS ASSETS. Exclude household effects and family vehicles. -- ",$P(@EASG@(DEPG,9),U),?116,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZRPM 5236 printed Nov 22, 2024@17:05:15 Page 2
EASEZRPM ;ALB/AMA - Print 1010EZR, Cont., Other Dependent Financial Pages
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
+2 ;
+3 QUIT
+4 ;
EN(EALNE,EAINFO,EASDG) ;Print multiple dependent financial information
+1 ;Called from EN^EASEZRPF
+2 ; Input
+3 ; EALNE - Array of line formats for output
+4 ; EAINFO - Application Data array, see SETUP^EASEZRPF
+5 ; EASDG - Flag variable to signify request to print from DG options
+6 ;
+7 ;MAX NO. ENTRIES PER PAGE FOR EACH SECTION
NEW FNP,GNP
+8 ;VARS FOR INDIRECT ^TMP GLOBAL REFERENCE
NEW EASF,EASG
+9 ;VARS TO LOOP THROUGH ^TMP GLOBALS
NEW DEPF,DEPG
+10 ;COUNTERS FOR NO. DEPENDENTS
NEW DFCNT,DGCNT
+11 ;VARS TO DETERMINE WHEN A NEW PAGE SHOULD OCCUR
NEW NEWPG,SECOND
+12 ;
+13 ;Assuming 55 print lines per page, 5 lines per IIF entry, 6 lines
+14 ;per IIG entry, plus lines for titles and blank dividing lines:
+15 ;can fit 9 dependents on one page for Section IIF
SET FNP=9
+16 ;can fit 7 dependents on one page for Section IIG
SET GNP=7
+17 ;
+18 ;Find additional dependents from Section IIF
+19 SET EASF=$NAME(^TMP("EASEZR",$JOB,"DFF"))
+20 IF $ORDER(@EASF@(1))
DO BEGINF
+21 ;
+22 ;Start printing with 2nd dependent
+23 SET DEPF=1
SET DFCNT=0
FOR
SET DEPF=$ORDER(@EASF@(DEPF))
if 'DEPF
QUIT
Begin DoDot:1
+24 SET DFCNT=DFCNT+1
+25 ;Check to see if a new page is needed
+26 IF (DFCNT>1)
IF '((DFCNT-1)#FNP)
Begin DoDot:2
+27 DO FT^EASEZRPF(.EALNE,.EAINFO)
+28 DO BEGINF
End DoDot:2
+29 IF (DFCNT#FNP)'=1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+30 DO ADFF
End DoDot:1
+31 ;
+32 ;Find additional dependents from Section IIG
+33 SET EASG=$NAME(^TMP("EASEZR",$JOB,"DFG"))
+34 IF $ORDER(@EASG@(1))
Begin DoDot:1
+35 IF $ORDER(@EASF@(1))
Begin DoDot:2
+36 IF ((DFCNT#FNP)'=0)
IF ((DFCNT#FNP)'=GNP)
WRITE !!,?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+37 ;At the end of IIF, to find when to jump to the next page,
+38 ;55 print lines, minus 3 lines for Section IIG title header,
+39 ;minus the number of lines already used on current page,
+40 ;divided by the number of lines for a Section IIG entry
+41 SET NEWPG=(51-((DFCNT#FNP)*6))\7
+42 IF '(DFCNT#FNP)!'NEWPG!(NEWPG=GNP)
SET NEWPG=GNP
DO FT^EASEZRPF(.EALNE,.EAINFO)
End DoDot:2
IF 1
+43 IF '$TEST
SET NEWPG=GNP
+44 DO BEGING
End DoDot:1
+45 ;
+46 ;Start printing with 2nd dependent
+47 SET DEPG=1
SET DGCNT=0
FOR
SET DEPG=$ORDER(@EASG@(DEPG))
if 'DEPG
QUIT
Begin DoDot:1
+48 SET DGCNT=DGCNT+1
+49 ;Check to see if a new page is needed
+50 IF (DGCNT>1)
IF '((DGCNT-$GET(SECOND)-1)#NEWPG)
Begin DoDot:2
+51 DO FT^EASEZRPF(.EALNE,.EAINFO)
+52 IF NEWPG'=GNP
SET SECOND=NEWPG
SET NEWPG=GNP
+53 DO BEGING
End DoDot:2
+54 IF (DGCNT-$GET(SECOND))#GNP'=1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+55 DO ADFG
End DoDot:1
+56 ;
+57 DO FT^EASEZRPF(.EALNE,.EAINFO)
+58 QUIT
+59 ;
BEGINF ; Print page header info
+1 ;
+2 DO HDR^EASEZRPF(.EALNE,.EAINFO)
+3 IF $GET(EASDG)
Begin DoDot:1
+4 NEW EZINYR
+5 SET EZINYR=^TMP("EASEZR",$JOB,2,999)
+6 WRITE !!?9,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
End DoDot:1
IF 1
+7 IF '$TEST
WRITE !!?20,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN)"
+8 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+9 QUIT
+10 ;
BEGING ; Print page header info
+1 ;
+2 IF NEWPG=GNP
DO HDR^EASEZRPF(.EALNE,.EAINFO)
+3 IF $GET(EASDG)
Begin DoDot:1
+4 NEW EZINYR
+5 SET EZINYR=^TMP("EASEZR",$JOB,2,999)
+6 WRITE !!?14,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
End DoDot:1
IF 1
+7 IF '$TEST
WRITE !!?25,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN)"
+8 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+9 QUIT
+10 ;
ADFF ; Print out VA 10-10EZ Section VII, Gross Annual Income information - Additional Dependents
+1 ;
+2 WRITE !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (e.g., wages, bonuses, tips)",?90,"| $ ",$PIECE(@EASF@(DEPF,7),U,2)
+3 WRITE !,"EXCLUDING INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$PIECE(@EASF@(DEPF,7),U),?90,"|"
+4 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+5 ;
+6 WRITE !,"2. NET INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$PIECE(@EASF@(DEPF,7),U),?90,"| $ ",$PIECE(@EASF@(DEPF,7),U,3)
+7 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+8 ;
+9 WRITE !,"3. LIST OTHER INCOME AMOUNTS (e.g., Social Security, compensation,",?90,"| $ ",$PIECE(@EASF@(DEPF,7),U,4)
+10 WRITE !,"pension, interest, dividends). EXCLUDING WELFARE -- ",$PIECE(@EASF@(DEPF,7),U),?90,"|"
+11 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+12 QUIT
+13 ;
ADFG ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH - ADDITIONAL DEPENDENTS
+1 ;
+2 WRITE !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?116,"| $ ",$PIECE(@EASG@(DEPG,9),U,2)
+3 WRITE !,"certificates of deposit, individual retirement accounts, stocks and bonds) -- ",$PIECE(@EASG@(DEPG,9),U),?116,"|"
+4 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+5 ;
+6 WRITE !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?116,"| $ ",$PIECE(@EASG@(DEPG,9),U,3)
+7 WRITE !,"homes and non-income-producing property). DO NOT INCLUDE YOUR PRIMARY HOME. -- ",$PIECE(@EASG@(DEPG,9),U),?116,"|"
+8 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+9 ;
+10 WRITE !,"3. VALUE OF OTHER PROPERTY OR ASSETS (e.g., art, rare coins, collectibles) MINUS THE AMOUNT YOU OWE ON THESE ITEMS.",?116,"| $ ",$PIECE(@EASG@(DEPG,9),U,4)
+11 WRITE !,"INCLUDE VALUE OF FARM, RANCH, OR BUSINESS ASSETS. Exclude household effects and family vehicles. -- ",$PIECE(@EASG@(DEPG,9),U),?116,"|"
+12 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+13 QUIT
