EASEZP6M ;ALB/AMA - Print 1010EZ, Version 6 or greater, Cont., Other Dependent Financial Pages ; 10/19/2000
;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57**;Mar 15, 2001
;
;New page, to print multiple dependent financial information
EN(EALNE,EAINFO,EASDG) ;Entry point, called from EN^EASEZP6F
; Input
; EALNE - Array of line formats for output
; EAINFO - Application Data array, see SETUP^EASEZP6F
; 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 OF NO. DEPENDENTS
N NEWPG,SECOND ;VARS TO DETERMINE WHEN 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("EASEZ",$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^EASEZP6F(.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("EASEZ",$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^EASEZP6F(.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^EASEZP6F(.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^EASEZP6F(.EALNE,.EAINFO)
Q
;
BEGINF ; Print page header info
;
D HDR^EASEZP6F(.EALNE,.EAINFO)
I $G(EASDG) D I 1
. N EZINYR
. S EZINYR=^TMP("EASEZ",$J,2,999)
. W !!?9,"SECTION VIII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
E W !!?20,"SECTION VIII - 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^EASEZP6F(.EALNE,.EAINFO)
I $G(EASDG) D I 1
. N EZINYR
. S EZINYR=^TMP("EASEZ",$J,2,999)
. W !!?14,"SECTION X - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
E W !!?25,"SECTION X - 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 VIII, Gross Annual Income information - Additional Dependents
;
W !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (wages, bonuses, tips, etc.)",?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 (Social Security, compensation,",?90,"| $ ",$P(@EASF@(DEPF,7),U,4)
W !,"pension, interest, dividends.) EXCLUDE WELFARE. -- ",$P(@EASF@(DEPF,7),U),?90,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
;
ADFG ; Print SECTION X - 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 count 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[HEASEZP6M 5278 printed Apr 09, 2024@21:00:59 Page 2
EASEZP6M ;ALB/AMA - Print 1010EZ, Version 6 or greater, Cont., Other Dependent Financial Pages ; 10/19/2000
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57**;Mar 15, 2001
+2 ;
+3 ;New page, to print multiple dependent financial information
EN(EALNE,EAINFO,EASDG) ;Entry point, called from EN^EASEZP6F
+1 ; Input
+2 ; EALNE - Array of line formats for output
+3 ; EAINFO - Application Data array, see SETUP^EASEZP6F
+4 ; EASDG - Flag variable to signify request to print from DG options
+5 ;
+6 ;MAX NO. ENTRIES PER PAGE FOR EACH SECTION
NEW FNP,GNP
+7 ;VARS FOR INDIRECT ^TMP GLOBAL REFERENCE
NEW EASF,EASG
+8 ;VARS TO LOOP THROUGH ^TMP GLOBALS
NEW DEPF,DEPG
+9 ;COUNTERS OF NO. DEPENDENTS
NEW DFCNT,DGCNT
+10 ;VARS TO DETERMINE WHEN NEW PAGE SHOULD OCCUR
NEW NEWPG,SECOND
+11 ;
+12 ;Assuming 55 print lines per page, 5 lines per IIF entry, 6 lines
+13 ;per IIG entry, plus lines for titles and blank dividing lines:
+14 ;can fit 9 dependents on one page for Section IIF
SET FNP=9
+15 ;can fit 7 dependents on one page for Section IIG
SET GNP=7
+16 ;
+17 ;Find additional dependents from Section IIF
+18 SET EASF=$NAME(^TMP("EASEZ",$JOB,"DFF"))
+19 IF $ORDER(@EASF@(1))
DO BEGINF
+20 ;
+21 ;Start printing with 2nd dependent
+22 SET DEPF=1
SET DFCNT=0
FOR
SET DEPF=$ORDER(@EASF@(DEPF))
if 'DEPF
QUIT
Begin DoDot:1
+23 SET DFCNT=DFCNT+1
+24 ;Check to see if a new page is needed
+25 IF (DFCNT>1)
IF '((DFCNT-1)#FNP)
Begin DoDot:2
+26 DO FT^EASEZP6F(.EALNE,.EAINFO)
+27 DO BEGINF
End DoDot:2
+28 IF (DFCNT#FNP)'=1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+29 DO ADFF
End DoDot:1
+30 ;
+31 ;Find additional dependents from Section IIG
+32 SET EASG=$NAME(^TMP("EASEZ",$JOB,"DFG"))
+33 IF $ORDER(@EASG@(1))
Begin DoDot:1
+34 IF $ORDER(@EASF@(1))
Begin DoDot:2
+35 IF ((DFCNT#FNP)'=0)
IF ((DFCNT#FNP)'=GNP)
WRITE !!,?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+36 ;At the end of IIF, to find when to jump to the next page,
+37 ;55 print lines, minus 3 lines for Section IIG title header,
+38 ;minus the number of lines already used on current page,
+39 ;divided by the number of lines for a Section IIG entry
+40 SET NEWPG=(51-((DFCNT#FNP)*6))\7
+41 IF '(DFCNT#FNP)!'NEWPG!(NEWPG=GNP)
SET NEWPG=GNP
DO FT^EASEZP6F(.EALNE,.EAINFO)
End DoDot:2
IF 1
+42 IF '$TEST
SET NEWPG=GNP
+43 DO BEGING
End DoDot:1
+44 ;
+45 ;Start printing with 2nd dependent
+46 SET DEPG=1
SET DGCNT=0
FOR
SET DEPG=$ORDER(@EASG@(DEPG))
if 'DEPG
QUIT
Begin DoDot:1
+47 SET DGCNT=DGCNT+1
+48 ;Check to see if a new page is needed
+49 IF (DGCNT>1)
IF '((DGCNT-$GET(SECOND)-1)#NEWPG)
Begin DoDot:2
+50 DO FT^EASEZP6F(.EALNE,.EAINFO)
+51 IF NEWPG'=GNP
SET SECOND=NEWPG
SET NEWPG=GNP
+52 DO BEGING
End DoDot:2
+53 IF (DGCNT-$GET(SECOND))#GNP'=1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+54 DO ADFG
End DoDot:1
+55 ;
+56 DO FT^EASEZP6F(.EALNE,.EAINFO)
+57 QUIT
+58 ;
BEGINF ; Print page header info
+1 ;
+2 DO HDR^EASEZP6F(.EALNE,.EAINFO)
+3 IF $GET(EASDG)
Begin DoDot:1
+4 NEW EZINYR
+5 SET EZINYR=^TMP("EASEZ",$JOB,2,999)
+6 WRITE !!?9,"SECTION VIII - 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 VIII - 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^EASEZP6F(.EALNE,.EAINFO)
+3 IF $GET(EASDG)
Begin DoDot:1
+4 NEW EZINYR
+5 SET EZINYR=^TMP("EASEZ",$JOB,2,999)
+6 WRITE !!?14,"SECTION X - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
End DoDot:1
IF 1
+7 IF '$TEST
WRITE !!?25,"SECTION X - 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 VIII, Gross Annual Income information - Additional Dependents
+1 ;
+2 WRITE !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (wages, bonuses, tips, etc.)",?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 (Social Security, compensation,",?90,"| $ ",$PIECE(@EASF@(DEPF,7),U,4)
+10 WRITE !,"pension, interest, dividends.) EXCLUDE 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 X - 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 count 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
