EASEZPDU ;ALB/AMA,LBD - PRINT 10-10EZ OR EZR FROM DG OPTIONS UTILITIES ; 10/29/12 12:40pm
;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,70,107**;Mar 15, 2001;Build 32
;
Q
;
SETUP(EALNE,EAINFO) ; Set-up print variables
; Input
; EALNE - Line format array
; EAINFO - Misc Data
; ("CLRK") - Clerk's initials
; ("ID") - Web ID from #712
; ("PGE") - Page number
; ("VET" ) - Veteran's name submitting the application
; ("SSN") - Veteran's SSN
;
N X
;
; Build Line array for printout
S EALNE("ULC")=$S('($D(IOST)#2):"-",IOST["C-":"-",1:"_")
S EALNE("D")="",EALNE("DD")="",EALNE("UL")=""
S $P(EALNE("D"),"-",133)="",$P(EALNE("DD"),"=",133)="",$P(EALNE("UL"),EALNE("ULC"),133)=""
;
; Set up information array & get clerk's initials
S ZUSR=$G(ZUSR)
I +ZUSR>0 D
. S EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
. I EAINFO("CLRK")']"" D
. . S X=$$GET1^DIQ(200,ZUSR,.01)
. . S EAINFO("CLRK")=$E($P(X,",",2),1)_$E($P(X,","),1)
E D
. S EAINFO("CLRK")="unk"
;
; Set data elements
S EAINFO("PGE")=0
S EAINFO("ID")=""
S EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
S EAINFO("EASAPP")=0
S EAINFO("VET")=""
S EAINFO("SSN")=""
Q
;
NETEZ(EALNE,EAINFO,EASDG) ; Print SECTION X - PREVIOUS CALENDAR YEAR NET WORTH
;Copied from EASEZP64
; Input
; EALNE - Line format array
; EAINFO - Misc Data
; ("CLRK") - Clerk's initials
; ("ID") - Web ID from #712
; ("PGE") - Page number
; ("VET" ) - Veteran's name submitting the application
; ("SSN") - Veteran's SSN
; ("DISC") - Financial Disclosure status
; EASDG - Flag variable to signify request to print from DG options
;
N EASIGN,EASD
;
I $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]"" D
. S EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
S EASIGN=$G(EASIGN)
;
S EASD=$NA(^TMP("EASEZ",$J,2))
;
I $G(EASDG),+@EASD@(999) W !!?7,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH (INCOME YEAR: ",@EASD@(999),") (Use a separate sheet for additional dependents)"
E W !!?18,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH (Use a separate sheet for additional dependents)"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !?78,"|",?84,"VETERAN",?96,"|",?102,"SPOUSE",?114,"|",?120,"CHILD 1"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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,"|"
I $P(@EASD@("2E1"),U) W " Included in"
W !,"certificates of deposit, individual retirement accounts, stocks and bonds)",?78,"|",?96,"|",?114,"|"
I $P(@EASD@("2E1"),U) W " Veteran amount"
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",?78,"| $ ",$P(@EASD@("2E2"),U),?96,"| $ ",$P(@EASD@("2E2"),U,2),?114,"|"
I $P(@EASD@("2E2"),U) W " Included in"
W !,"homes and non-income-producing property. Do not count your primary home.)",?78,"|",?96,"|",?114,"|"
I $P(@EASD@("2E2"),U) W " Veteran amount"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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,"|"
I $P(@EASD@("2E3"),U) W " Included in"
W !,"MINUS THE AMOUNT YOU OWE ON THESE ITEMS. INCLUDE VALUE OF FARM, RANCH, OR",?78,"|",?96,"|",?114,"|"
I $P(@EASD@("2E3"),U) W " Veteran amount"
W !,"BUSINESS ASSETS. Exclude household effects and family vehicles.",?78,"|",?96,"|",?114,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
D PAP^EASEZP64 ;EAS*1.0*107
D CON^EASEZP64
D AOB^EASEZP64
D FT^EASEZP6F(.EALNE,.EAINFO)
;
Q
;
NETEZR(EALNE,EAINFO,EASDG) ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH
;Copied from EASEZRP3
; Input
; EALNE - Line format array
; EAINFO - Misc Data
; ("CLRK") - Clerk's initials
; ("ID") - Web ID from #712
; ("PGE") - Page number
; ("VET" ) - Veteran's name submitting the application
; ("SSN") - Veteran's SSN
; ("DISC") - Financial Disclosure status
; EASDG - Flag variable to signify request to print from DG options
;
N EASIGN,EASD
;
I $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]"" D
. S EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
S EASIGN=$G(EASIGN)
;
D HDR^EASEZRPF(.EALNE,.EAINFO)
S EASD=$NA(^TMP("EASEZR",$J,2))
;
I $G(EASDG),+@EASD@(999) W !?7,"SECTION VIII - PREVIOUS CALENDAR YEAR NET WORTH (INCOME YEAR: ",@EASD@(999),") (Use a separate sheet for additional dependents)"
E W !?18,"SECTION VIII - PREVIOUS CALENDAR YEAR NET WORTH (Use a separate sheet for additional dependents)"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !?78,"|",?84,"VETERAN",?96,"|",?102,"SPOUSE",?114,"|",?120,"CHILD 1"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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,"|"
I $P(@EASD@("2E1"),U) W " Included in"
W !,"certificates of deposit, individual retirement accounts, stocks and bonds)",?78,"|",?96,"|",?114,"|"
I $P(@EASD@("2E1"),U) W " Veteran amount"
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",?78,"| $ ",$P(@EASD@("2E2"),U),?96,"| $ ",$P(@EASD@("2E2"),U,2),?114,"|"
I $P(@EASD@("2E2"),U) W " Included in"
W !,"homes and non-income-producing property. Do not include your primary home.)",?78,"|",?96,"|",?114,"|"
I $P(@EASD@("2E2"),U) W " Veteran amount"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
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,"|"
I $P(@EASD@("2E3"),U) W " Included in"
W !,"MINUS THE AMOUNT YOU OWE ON THESE ITEMS. INCLUDE VALUE OF FARM, RANCH, OR",?78,"|",?96,"|",?114,"|"
I $P(@EASD@("2E3"),U) W " Veteran amount"
W !,"BUSINESS ASSETS. Exclude household effects and family vehicles.",?78,"|",?96,"|",?114,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
D PAP^EASEZRP2
D CON^EASEZRP3
D AOB^EASEZRP3
D FT^EASEZRPF(.EALNE,.EAINFO)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZPDU 6387 printed Oct 16, 2024@17:55:37 Page 2
EASEZPDU ;ALB/AMA,LBD - PRINT 10-10EZ OR EZR FROM DG OPTIONS UTILITIES ; 10/29/12 12:40pm
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,70,107**;Mar 15, 2001;Build 32
+2 ;
+3 QUIT
+4 ;
SETUP(EALNE,EAINFO) ; Set-up print variables
+1 ; Input
+2 ; EALNE - Line format array
+3 ; EAINFO - Misc Data
+4 ; ("CLRK") - Clerk's initials
+5 ; ("ID") - Web ID from #712
+6 ; ("PGE") - Page number
+7 ; ("VET" ) - Veteran's name submitting the application
+8 ; ("SSN") - Veteran's SSN
+9 ;
+10 NEW X
+11 ;
+12 ; Build Line array for printout
+13 SET EALNE("ULC")=$SELECT('($DATA(IOST)#2):"-",IOST["C-":"-",1:"_")
+14 SET EALNE("D")=""
SET EALNE("DD")=""
SET EALNE("UL")=""
+15 SET $PIECE(EALNE("D"),"-",133)=""
SET $PIECE(EALNE("DD"),"=",133)=""
SET $PIECE(EALNE("UL"),EALNE("ULC"),133)=""
+16 ;
+17 ; Set up information array & get clerk's initials
+18 SET ZUSR=$GET(ZUSR)
+19 IF +ZUSR>0
Begin DoDot:1
+20 SET EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
+21 IF EAINFO("CLRK")']""
Begin DoDot:2
+22 SET X=$$GET1^DIQ(200,ZUSR,.01)
+23 SET EAINFO("CLRK")=$EXTRACT($PIECE(X,",",2),1)_$EXTRACT($PIECE(X,","),1)
End DoDot:2
End DoDot:1
+24 IF '$TEST
Begin DoDot:1
+25 SET EAINFO("CLRK")="unk"
End DoDot:1
+26 ;
+27 ; Set data elements
+28 SET EAINFO("PGE")=0
+29 SET EAINFO("ID")=""
+30 SET EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
+31 SET EAINFO("EASAPP")=0
+32 SET EAINFO("VET")=""
+33 SET EAINFO("SSN")=""
+34 QUIT
+35 ;
NETEZ(EALNE,EAINFO,EASDG) ; Print SECTION X - PREVIOUS CALENDAR YEAR NET WORTH
+1 ;Copied from EASEZP64
+2 ; Input
+3 ; EALNE - Line format array
+4 ; EAINFO - Misc Data
+5 ; ("CLRK") - Clerk's initials
+6 ; ("ID") - Web ID from #712
+7 ; ("PGE") - Page number
+8 ; ("VET" ) - Veteran's name submitting the application
+9 ; ("SSN") - Veteran's SSN
+10 ; ("DISC") - Financial Disclosure status
+11 ; EASDG - Flag variable to signify request to print from DG options
+12 ;
+13 NEW EASIGN,EASD
+14 ;
+15 IF $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]""
Begin DoDot:1
+16 SET EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
End DoDot:1
+17 SET EASIGN=$GET(EASIGN)
+18 ;
+19 SET EASD=$NAME(^TMP("EASEZ",$JOB,2))
+20 ;
+21 IF $GET(EASDG)
IF +@EASD@(999)
WRITE !!?7,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH (INCOME YEAR: ",@EASD@(999),") (Use a separate sheet for additional dependents)"
+22 IF '$TEST
WRITE !!?18,"SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH (Use a separate sheet for additional dependents)"
+23 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+24 ;
+25 WRITE !?78,"|",?84,"VETERAN",?96,"|",?102,"SPOUSE",?114,"|",?120,"CHILD 1"
+26 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+27 ;
+28 WRITE !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?78,"| $ ",$PIECE(@EASD@("2E1"),U),?96,"| $ ",$PIECE(@EASD@("2E1"),U,2),?114,"|"
+29 IF $PIECE(@EASD@("2E1"),U)
WRITE " Included in"
+30 WRITE !,"certificates of deposit, individual retirement accounts, stocks and bonds)",?78,"|",?96,"|",?114,"|"
+31 IF $PIECE(@EASD@("2E1"),U)
WRITE " Veteran amount"
+32 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+33 ;
+34 WRITE !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?78,"| $ ",$PIECE(@EASD@("2E2"),U),?96,"| $ ",$PIECE(@EASD@("2E2"),U,2),?114,"|"
+35 IF $PIECE(@EASD@("2E2"),U)
WRITE " Included in"
+36 WRITE !,"homes and non-income-producing property. Do not count your primary home.)",?78,"|",?96,"|",?114,"|"
+37 IF $PIECE(@EASD@("2E2"),U)
WRITE " Veteran amount"
+38 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+39 ;
+40 WRITE !,"3. VALUE OF OTHER PROPERTY OR ASSETS (e.g., art, rare coins, collectibles)",?78,"| $ ",$PIECE(@EASD@("2E3"),U),?96,"| $ ",$PIECE(@EASD@("2E3"),U,2),?114,"|"
+41 IF $PIECE(@EASD@("2E3"),U)
WRITE " Included in"
+42 WRITE !,"MINUS THE AMOUNT YOU OWE ON THESE ITEMS. INCLUDE VALUE OF FARM, RANCH, OR",?78,"|",?96,"|",?114,"|"
+43 IF $PIECE(@EASD@("2E3"),U)
WRITE " Veteran amount"
+44 WRITE !,"BUSINESS ASSETS. Exclude household effects and family vehicles.",?78,"|",?96,"|",?114,"|"
+45 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+46 ;
+47 ;EAS*1.0*107
DO PAP^EASEZP64
+48 DO CON^EASEZP64
+49 DO AOB^EASEZP64
+50 DO FT^EASEZP6F(.EALNE,.EAINFO)
+51 ;
+52 QUIT
+53 ;
NETEZR(EALNE,EAINFO,EASDG) ; Print SECTION IX - PREVIOUS CALENDAR YEAR NET WORTH
+1 ;Copied from EASEZRP3
+2 ; Input
+3 ; EALNE - Line format array
+4 ; EAINFO - Misc Data
+5 ; ("CLRK") - Clerk's initials
+6 ; ("ID") - Web ID from #712
+7 ; ("PGE") - Page number
+8 ; ("VET" ) - Veteran's name submitting the application
+9 ; ("SSN") - Veteran's SSN
+10 ; ("DISC") - Financial Disclosure status
+11 ; EASDG - Flag variable to signify request to print from DG options
+12 ;
+13 NEW EASIGN,EASD
+14 ;
+15 IF $$GET1^DIQ(712,EAINFO("EASAPP")_",",4)]""
Begin DoDot:1
+16 SET EASIGN=$$GET1^DIQ(712,EAINFO("EASAPP")_",",4.1)
End DoDot:1
+17 SET EASIGN=$GET(EASIGN)
+18 ;
+19 DO HDR^EASEZRPF(.EALNE,.EAINFO)
+20 SET EASD=$NAME(^TMP("EASEZR",$JOB,2))
+21 ;
+22 IF $GET(EASDG)
IF +@EASD@(999)
WRITE !?7,"SECTION VIII - PREVIOUS CALENDAR YEAR NET WORTH (INCOME YEAR: ",@EASD@(999),") (Use a separate sheet for additional dependents)"
+23 IF '$TEST
WRITE !?18,"SECTION VIII - PREVIOUS CALENDAR YEAR NET WORTH (Use a separate sheet for additional dependents)"
+24 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+25 ;
+26 WRITE !?78,"|",?84,"VETERAN",?96,"|",?102,"SPOUSE",?114,"|",?120,"CHILD 1"
+27 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+28 ;
+29 WRITE !,"1. CASH, AMOUNT IN BANK ACCOUNTS (e.g., checking and savings accounts,",?78,"| $ ",$PIECE(@EASD@("2E1"),U),?96,"| $ ",$PIECE(@EASD@("2E1"),U,2),?114,"|"
+30 IF $PIECE(@EASD@("2E1"),U)
WRITE " Included in"
+31 WRITE !,"certificates of deposit, individual retirement accounts, stocks and bonds)",?78,"|",?96,"|",?114,"|"
+32 IF $PIECE(@EASD@("2E1"),U)
WRITE " Veteran amount"
+33 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+34 ;
+35 WRITE !,"2. MARKET VALUE OF LAND AND BUILDINGS MINUS MORTGAGES AND LIENS (e.g., second",?78,"| $ ",$PIECE(@EASD@("2E2"),U),?96,"| $ ",$PIECE(@EASD@("2E2"),U,2),?114,"|"
+36 IF $PIECE(@EASD@("2E2"),U)
WRITE " Included in"
+37 WRITE !,"homes and non-income-producing property. Do not include your primary home.)",?78,"|",?96,"|",?114,"|"
+38 IF $PIECE(@EASD@("2E2"),U)
WRITE " Veteran amount"
+39 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+40 ;
+41 WRITE !,"3. VALUE OF OTHER PROPERTY OR ASSETS (e.g., art, rare coins, collectibles)",?78,"| $ ",$PIECE(@EASD@("2E3"),U),?96,"| $ ",$PIECE(@EASD@("2E3"),U,2),?114,"|"
+42 IF $PIECE(@EASD@("2E3"),U)
WRITE " Included in"
+43 WRITE !,"MINUS THE AMOUNT YOU OWE ON THESE ITEMS. INCLUDE VALUE OF FARM, RANCH, OR",?78,"|",?96,"|",?114,"|"
+44 IF $PIECE(@EASD@("2E3"),U)
WRITE " Veteran amount"
+45 WRITE !,"BUSINESS ASSETS. Exclude household effects and family vehicles.",?78,"|",?96,"|",?114,"|"
+46 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+47 ;
+48 DO PAP^EASEZRP2
+49 DO CON^EASEZRP3
+50 DO AOB^EASEZRP3
+51 DO FT^EASEZRPF(.EALNE,.EAINFO)
+52 QUIT
