Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EASEZRPM

EASEZRPM.m

Go to the documentation of this file.
  1. EASEZRPM ;ALB/AMA - Print 1010EZR, Cont., Other Dependent Financial Pages
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
  1. ;
  1. Q
  1. ;
  1. EN(EALNE,EAINFO,EASDG) ;Print multiple dependent financial information
  1. ;Called from EN^EASEZRPF
  1. ; Input
  1. ; EALNE - Array of line formats for output
  1. ; EAINFO - Application Data array, see SETUP^EASEZRPF
  1. ; EASDG - Flag variable to signify request to print from DG options
  1. ;
  1. N FNP,GNP ;MAX NO. ENTRIES PER PAGE FOR EACH SECTION
  1. N EASF,EASG ;VARS FOR INDIRECT ^TMP GLOBAL REFERENCE
  1. N DEPF,DEPG ;VARS TO LOOP THROUGH ^TMP GLOBALS
  1. N DFCNT,DGCNT ;COUNTERS FOR NO. DEPENDENTS
  1. N NEWPG,SECOND ;VARS TO DETERMINE WHEN A NEW PAGE SHOULD OCCUR
  1. ;
  1. ;Assuming 55 print lines per page, 5 lines per IIF entry, 6 lines
  1. ;per IIG entry, plus lines for titles and blank dividing lines:
  1. S FNP=9 ;can fit 9 dependents on one page for Section IIF
  1. S GNP=7 ;can fit 7 dependents on one page for Section IIG
  1. ;
  1. ;Find additional dependents from Section IIF
  1. S EASF=$NA(^TMP("EASEZR",$J,"DFF"))
  1. I $O(@EASF@(1)) D BEGINF
  1. ;
  1. ;Start printing with 2nd dependent
  1. S DEPF=1,DFCNT=0 F S DEPF=$O(@EASF@(DEPF)) Q:'DEPF D
  1. . S DFCNT=DFCNT+1
  1. . ;Check to see if a new page is needed
  1. . I (DFCNT>1),'((DFCNT-1)#FNP) D
  1. . . D FT^EASEZRPF(.EALNE,.EAINFO)
  1. . . D BEGINF
  1. . I (DFCNT#FNP)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. . D ADFF
  1. ;
  1. ;Find additional dependents from Section IIG
  1. S EASG=$NA(^TMP("EASEZR",$J,"DFG"))
  1. I $O(@EASG@(1)) D
  1. . I $O(@EASF@(1)) D I 1
  1. . . I ((DFCNT#FNP)'=0),((DFCNT#FNP)'=GNP) W !!,?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. . . ;At the end of IIF, to find when to jump to the next page,
  1. . . ;55 print lines, minus 3 lines for Section IIG title header,
  1. . . ;minus the number of lines already used on current page,
  1. . . ;divided by the number of lines for a Section IIG entry
  1. . . S NEWPG=(51-((DFCNT#FNP)*6))\7
  1. . . I '(DFCNT#FNP)!'NEWPG!(NEWPG=GNP) S NEWPG=GNP D FT^EASEZRPF(.EALNE,.EAINFO)
  1. . E S NEWPG=GNP
  1. . D BEGING
  1. ;
  1. ;Start printing with 2nd dependent
  1. S DEPG=1,DGCNT=0 F S DEPG=$O(@EASG@(DEPG)) Q:'DEPG D
  1. . S DGCNT=DGCNT+1
  1. . ;Check to see if a new page is needed
  1. . I (DGCNT>1),'((DGCNT-$G(SECOND)-1)#NEWPG) D
  1. . . D FT^EASEZRPF(.EALNE,.EAINFO)
  1. . . I NEWPG'=GNP S SECOND=NEWPG,NEWPG=GNP
  1. . . D BEGING
  1. . I (DGCNT-$G(SECOND))#GNP'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. . D ADFG
  1. ;
  1. D FT^EASEZRPF(.EALNE,.EAINFO)
  1. Q
  1. ;
  1. BEGINF ; Print page header info
  1. ;
  1. D HDR^EASEZRPF(.EALNE,.EAINFO)
  1. I $G(EASDG) D I 1
  1. . N EZINYR
  1. . S EZINYR=^TMP("EASEZR",$J,2,999)
  1. . W !!?9,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
  1. E W !!?20,"SECTION VII - PREVIOUS CALENDAR YEAR GROSS ANNUAL INCOME OF ADDITIONAL DEPENDENT CHILD(REN)"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. BEGING ; Print page header info
  1. ;
  1. I NEWPG=GNP D HDR^EASEZRPF(.EALNE,.EAINFO)
  1. I $G(EASDG) D I 1
  1. . N EZINYR
  1. . S EZINYR=^TMP("EASEZR",$J,2,999)
  1. . W !!?14,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN) (INCOME YEAR: ",EZINYR,")"
  1. E W !!?25,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH FOR ADDITIONAL DEPENDENT CHILD(REN)"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. ADFF ; Print out VA 10-10EZ Section VII, Gross Annual Income information - Additional Dependents
  1. ;
  1. W !,"1. GROSS ANNUAL INCOME FROM EMPLOYMENT (e.g., wages, bonuses, tips)",?90,"| $ ",$P(@EASF@(DEPF,7),U,2)
  1. W !,"EXCLUDING INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$P(@EASF@(DEPF,7),U),?90,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"2. NET INCOME FROM YOUR FARM, RANCH, PROPERTY OR BUSINESS -- ",$P(@EASF@(DEPF,7),U),?90,"| $ ",$P(@EASF@(DEPF,7),U,3)
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"3. LIST OTHER INCOME AMOUNTS (e.g., Social Security, compensation,",?90,"| $ ",$P(@EASF@(DEPF,7),U,4)
  1. W !,"pension, interest, dividends). EXCLUDING WELFARE -- ",$P(@EASF@(DEPF,7),U),?90,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q
  1. ;
  1. ADFG ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH - ADDITIONAL DEPENDENTS
  1. ;
  1. W !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?116,"| $ ",$P(@EASG@(DEPG,9),U,2)
  1. W !,"certificates of deposit, individual retirement accounts, stocks and bonds) -- ",$P(@EASG@(DEPG,9),U),?116,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?116,"| $ ",$P(@EASG@(DEPG,9),U,3)
  1. W !,"homes and non-income-producing property). DO NOT INCLUDE YOUR PRIMARY HOME. -- ",$P(@EASG@(DEPG,9),U),?116,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. 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)
  1. W !,"INCLUDE VALUE OF FARM, RANCH, OR BUSINESS ASSETS. Exclude household effects and family vehicles. -- ",$P(@EASG@(DEPG,9),U),?116,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q