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

EASEZRPP.m

Go to the documentation of this file.
  1. EASEZRPP ;ALB/AMA - Print utility for 10-10EZR, Part 2
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
  1. ;
  1. Q
  1. ;
  1. PAGE2 ;Retrieve page 2 data and format for output on 10-10EZR form
  1. ; Called from EN^EASEZRPF
  1. ;
  1. ;Variables
  1. ; ZDATA - references TMP global for output data
  1. ; EZDATA - references available data from 1010EZ holding file
  1. ; EACT - Temporary city variable
  1. ; EAX, EAY - temporary storage variables
  1. ; EAV, EAS, EAC - temp storage for vet, spouse, and child variables
  1. ;
  1. N ZDATA,EZDATA,EACT,EAX,EAY,EAV,EAS,EAC
  1. ;
  1. S ZDATA=$NA(^TMP("EASEZR",$J,2))
  1. K @ZDATA
  1. ;
  1. ; Process Section IIA - Dependent Info
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIA",1))
  1. ;
  1. ;Spouse's name^maiden name
  1. S @ZDATA@(1)=$$PROCESS(1.1)_U_$$PROCESS(1.5)
  1. S @ZDATA@(2)=$$PROCESS(2.1) ;Child 1's name
  1. S @ZDATA@(3)=$$PROCESS("3.") ;Spouse's SSN
  1. S @ZDATA@(4)=$$PROCESS("4.") ;Spouse's date of birth
  1. S @ZDATA@(5)=$$PROCESS("5.") ;Child 1's date of birth
  1. S EACT="",EACT=$$PROCESS(6.2) ;Spouse's city
  1. I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
  1. ;Spouse's street^city, state zip
  1. S @ZDATA@(6)=$$PROCESS(6.1)_U_EACT_$$PROCESS(6.3)_" "_$$PROCESS(6.4)
  1. ;
  1. S @ZDATA@(7)=$$PROCESS("7.") ;Child 1's SSN
  1. S @ZDATA@(8)=$$PROCESS(8.1) ;Spouse's phone
  1. S @ZDATA@(9)=$$PROCESS("9.") ;Child 1's relationship
  1. S @ZDATA@(10)=$$PROCESS("10.") ;Date of marriage to spouse
  1. S @ZDATA@(11)=$$PROCESS("11.") ;Date Child 1 became dependent
  1. ;
  1. S EAX=$$PROCESS(12.1) ;Amount contributed to spouse
  1. S EAY=$$PROCESS(12.2) ;Amount contributed to Child 1
  1. S @ZDATA@(12)=$S(EAX="":"",1:$J(EAX,0,2))_U_$S(EAY="":"",1:$J(EAY,0,2))
  1. ;
  1. S @ZDATA@(13)=$$PROCESS("13.") ;Educational expenses for Child 1
  1. S @ZDATA@(13)=$S(@ZDATA@(13)="":"",1:$J(@ZDATA@(13),0,2))
  1. ;
  1. S EAX=$$PROCESS("14.") ;Child 1 disabled?
  1. I (EAX=""),(@ZDATA@(2)]"") S EAX="UNKNOWN"
  1. I @ZDATA@(2)']"" S EAX=""
  1. S @ZDATA@(14)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
  1. S EAX=$$PROCESS("15.") ;Child 1 attend school last year?
  1. I (EAX=""),(@ZDATA@(2)]"") S EAX="UNKNOWN"
  1. I @ZDATA@(2)']"" S EAX=""
  1. S @ZDATA@(15)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
  1. ;
  1. ; Process Section IIC - Previous Calendar Year Gross Annual Income
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIC",1))
  1. S EAV=$$PROCESS(1.4),EAS=$$PROCESS(1.5) ;Vet & spouse gross income
  1. S @ZDATA@("2C1")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
  1. S EAV=$$PROCESS(2.1),EAS=$$PROCESS(2.2) ;Vet & spouse other income
  1. S @ZDATA@("2C2")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
  1. S EAV=$$PROCESS(3.1),EAS=$$PROCESS(3.2) ;Vet & spouse net income
  1. S @ZDATA@("2C3")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
  1. ;
  1. S @ZDATA@(999)=$$PROCESS(999) ;Vet income year
  1. I $D(@EZDATA@(998)) D
  1. . S @ZDATA@(998)=$$PROCESS(998) ;Vet Declines To Give Info
  1. ;
  1. ;Since Child amounts in Section IIC are for ALL dependents,
  1. ;get just Child 1 amounts from Section IIF - Dependent Gross Incomes
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIF",1))
  1. S EAC=$$PROCESS(7.1) ;Child 1 gross income
  1. S @ZDATA@("2C1")=@ZDATA@("2C1")_U_$S(EAC="":"",1:$J(EAC,0,2))
  1. S EAC=$$PROCESS(7.2) ;Child 1 net income
  1. S @ZDATA@("2C3")=@ZDATA@("2C3")_U_$S(EAC="":"",1:$J(EAC,0,2))
  1. S EAC=$$PROCESS(7.3) ;Child 1 other income
  1. S @ZDATA@("2C2")=@ZDATA@("2C2")_U_$S(EAC="":"",1:$J(EAC,0,2))
  1. ;
  1. ; Process Section IID - Previous Calendar Year Expenses
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IID",1))
  1. ;Medical expenses
  1. S EAX=$$PROCESS("1."),@ZDATA@("2D1")=$S(EAX="":"",1:$J(EAX,0,2))
  1. ;Funeral expenses
  1. S EAX=$$PROCESS("2."),@ZDATA@("2D2")=$S(EAX="":"",1:$J(EAX,0,2))
  1. ;Educational expenses
  1. S EAX=$$PROCESS("3."),@ZDATA@("2D3")=$S(EAX="":"",1:$J(EAX,0,2))
  1. ;
  1. ; Process Section IIE - Previous Calendar Year Net Worth
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIE",1))
  1. S EAV=$$PROCESS("1."),EAS=$$PROCESS(1.2) ;Vet & spouse cash
  1. S @ZDATA@("2E1")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
  1. S EAV=$$PROCESS("2."),EAS=$$PROCESS(2.2) ;Vet & spouse land value
  1. S @ZDATA@("2E2")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
  1. S EAV=$$PROCESS("3."),EAS=$$PROCESS(3.2) ;Vet & spouse other property
  1. S @ZDATA@("2E3")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
  1. ;
  1. ;Since Child amounts in Section IIE are for ALL dependents,
  1. ;get just Child 1 amounts from Section IIG - Dependent Net Worths
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIG",1))
  1. S EAC=$$PROCESS(9.1) ;Child 1 cash
  1. S @ZDATA@("2E1")=@ZDATA@("2E1")_U_$S(EAC="":"",1:$J(EAC,0,2))
  1. S EAC=$$PROCESS(9.2) ;Child 1 land value
  1. S @ZDATA@("2E2")=@ZDATA@("2E2")_U_$S(EAC="":"",1:$J(EAC,0,2))
  1. S EAC=$$PROCESS(9.3) ;Child 1 other property
  1. S @ZDATA@("2E3")=@ZDATA@("2E3")_U_$S(EAC="":"",1:$J(EAC,0,2))
  1. ;
  1. Q
  1. ;
  1. PAGEDFF(EADEP) ; Additional dependent financial page(s) for Section IIF
  1. ; Called from EN^EASEZRPF
  1. N ZDATA,EZDATA,EANAME,EAGROSS,EANET,EAOTHER
  1. ;
  1. S ZDATA=$NA(^TMP("EASEZR",$J,"DFF",EADEP))
  1. K @ZDATA
  1. ;
  1. ; Process Section IIF
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIF",EADEP))
  1. ;
  1. S EANAME=$$PROCESS("7.") ;Child number (2 through 19)
  1. S EAGROSS=$$PROCESS(7.1),EANET=$$PROCESS(7.2),EAOTHER=$$PROCESS(7.3)
  1. ;Child #^gross income^net income^other income
  1. S @ZDATA@(7)=EANAME_U_$S(EAGROSS="":"",1:$J(EAGROSS,0,2))_U_$S(EANET="":"",1:$J(EANET,0,2))_U_$S(EAOTHER="":"",1:$J(EAOTHER,0,2))
  1. ;
  1. Q
  1. ;
  1. PAGEDFG(EADEP) ; Additional dependent financial page(s) for Section IIG
  1. ; Called from EN^EASEZRPF
  1. N ZDATA,EZDATA,EANAME,EACASH,EAREAL,EAOTHER
  1. ;
  1. S ZDATA=$NA(^TMP("EASEZR",$J,"DFG",EADEP))
  1. K @ZDATA
  1. ;
  1. ; Process Section IIG
  1. S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIG",EADEP))
  1. ;
  1. S EANAME=$$PROCESS("9.") ;Child number (2 through 19)
  1. S EACASH=$$PROCESS(9.1),EAREAL=$$PROCESS(9.2),EAOTHER=$$PROCESS(9.3)
  1. ;Child #^cash^land value^other property
  1. S @ZDATA@(9)=EANAME_U_$S(EACASH="":"",1:$J(EACASH,0,2))_U_$S(EAREAL="":"",1:$J(EAREAL,0,2))_U_$S(EAOTHER="":"",1:$J(EAOTHER,0,2))
  1. ;
  1. Q
  1. ;
  1. PROCESS(KEY) ; Process data value from EZRTEMP array, take #712 value
  1. ; if it's accepted, otherwise take the Patient File value
  1. ;
  1. N EAV,RSLT
  1. ;
  1. I '$D(@EZDATA@(KEY)) G PQ
  1. S EAV=@EZDATA@(KEY)
  1. S RSLT=$S(+$P(EAV,U,3):$P(EAV,U,2),1:$P(EAV,U,5))
  1. PQ Q $G(RSLT)