- EASEZPU2 ; ALB/AMA - Print utility for 10-10EZ, Version 6 or greater ; 8/1/08 1:27pm
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57,70**;Mar 15, 2001;Build 26
- ;
- Q
- ;Parts of this routine were copied from EASEZPU (this is the second
- ;part of EASEZP6U); if the version # of the 1010EZ application is
- ;6.0 or greater, then this routine will be executed.
- ;
- PAGE2 ;Retrieve page 2 data and format for output on 10-10EZ form
- ; Called from EN^EASEZP6F
- ;
- ;Variables
- ; ZDATA - references TMP global for output data
- ; EZDATA - references available data from 1010EZ holding file
- ; EAX, EAY - temporary storage variables
- ; EACT - Temporary city variable
- ; EAV, EAS, EAC - temp storage for vet, spouse, and child variables
- ;
- N ZDATA,EZDATA,EAX,EAY,EACT,EAV,EAS,EAC
- ;
- S ZDATA=$NA(^TMP("EASEZ",$J,2))
- K @ZDATA
- ;
- ; Process Section IIA - Dependent Info
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIA",1))
- ;
- S EAX=$$PROCESS(1.1),EAY=$$PROCESS(1.5)
- I $E(EAY,$L(EAY))="," S EAY=$E(EAY,1,$L(EAY)-1)
- S @ZDATA@(1)=EAX_U_EAY ;Spouse's name^maiden name
- S @ZDATA@(2)=$$PROCESS(2.1) ;Child 1's name
- S @ZDATA@(3)=$$PROCESS("3.") ;Spouse's SSN
- S @ZDATA@(4)=$$PROCESS("4.") ;Spouse's date of birth
- S @ZDATA@(5)=$$PROCESS("5.") ;Child 1's date of birth
- S EACT="",EACT=$$PROCESS(6.2) ;Spouse's city
- I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
- ;Spouse's street^city, state zip
- S @ZDATA@(6)=$$PROCESS(6.1)_U_EACT_$$PROCESS(6.3)_" "_$$PROCESS(6.4)
- ;
- S @ZDATA@(7)=$$PROCESS("7.") ;Child 1's SSN
- S @ZDATA@(8)=$$PROCESS(8.1) ;Spouse's phone
- S @ZDATA@(9)=$$PROCESS("9.") ;Child 1's relationship
- S @ZDATA@(10)=$$PROCESS("10.") ;Date of marriage to spouse
- S @ZDATA@(11)=$$PROCESS("11.") ;Date Child 1 became dependent
- ;
- S EAX=$$PROCESS(12.1) ;Amount contributed to spouse
- S EAY=$$PROCESS(12.2) ;Amount contributed to Child 1
- S @ZDATA@(12)=$S(EAX="":"",1:$J(EAX,0,2))_U_$S(EAY="":"",1:$J(EAY,0,2))
- ;
- S @ZDATA@(13)=$$PROCESS("13.") ;Educational expenses for Child 1
- S @ZDATA@(13)=$S(@ZDATA@(13)="":"",1:$J(@ZDATA@(13),0,2))
- ;
- S EAX=$$PROCESS("14.") ;Child 1 disabled?
- ;EAS*1.0*57 - print full word "UNKNOWN"
- ; If Child 1 exists and answer is blank, set to "UNKNOWN"
- ; If no Child 1, then leave blank
- I (EAX=""),(@ZDATA@(2)]"") S EAX="UNKNOWN"
- I @ZDATA@(2)']"" S EAX=""
- S @ZDATA@(14)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
- S EAX=$$PROCESS("15.") ;Child 1 attend school last year?
- ;EAS*1.0*57 - print full word "UNKNOWN"
- ; If Child 1 exists and answer is blank, set to "UNKNOWN"
- ; If no Child 1, then leave blank
- I (EAX=""),(@ZDATA@(2)]"") S EAX="UNKNOWN"
- I @ZDATA@(2)']"" S EAX=""
- S @ZDATA@(15)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
- ;
- ; Process Section IIC - Previous Calendar Year Gross Annual Income
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIC",1))
- ;
- S EAV=$$PROCESS(1.4),EAS=$$PROCESS(1.5) ;Vet & spouse gross income
- S @ZDATA@("2C1")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
- ;
- S EAV=$$PROCESS(2.1),EAS=$$PROCESS(2.2) ;Vet & spouse other income
- S @ZDATA@("2C2")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
- ;
- S EAV=$$PROCESS(3.1),EAS=$$PROCESS(3.2) ;Vet & spouse net income
- S @ZDATA@("2C3")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
- ;
- S @ZDATA@(999)=$$PROCESS(999) ;Vet income year
- I $D(@EZDATA@(998)) D
- . S @ZDATA@(998)=$$PROCESS(998) ;Vet Declines To Give Info
- ;
- ;Since Child amounts in Section IIC are for ALL dependents,
- ;get just Child 1 amounts from Section IIF - Dependent Gross Incomes
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIF",1))
- S EAC=$$PROCESS(7.1) ;Child 1 gross income
- S @ZDATA@("2C1")=@ZDATA@("2C1")_U_$S(EAC="":"",1:$J(EAC,0,2))
- S EAC=$$PROCESS(7.2) ;Child 1 net income
- S @ZDATA@("2C3")=@ZDATA@("2C3")_U_$S(EAC="":"",1:$J(EAC,0,2))
- S EAC=$$PROCESS(7.3) ;Child 1 other income
- S @ZDATA@("2C2")=@ZDATA@("2C2")_U_$S(EAC="":"",1:$J(EAC,0,2))
- ;
- ; Process Section IID - Previous Calendar Year Expenses
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IID",1))
- ;
- ;Medical expenses
- S EAX=$$PROCESS("1."),@ZDATA@("2D1")=$S(EAX="":"",1:$J(EAX,0,2))
- ;Funeral expenses
- S EAX=$$PROCESS("2."),@ZDATA@("2D2")=$S(EAX="":"",1:$J(EAX,0,2))
- ;Educational expenses
- S EAX=$$PROCESS("3."),@ZDATA@("2D3")=$S(EAX="":"",1:$J(EAX,0,2))
- ;
- ; Process Section IIE - Previous Calendar Year Net Worth
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIE",1))
- ;
- S EAV=$$PROCESS(1.1),EAS=$$PROCESS(1.2) ;Vet & spouse cash
- S @ZDATA@("2E1")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
- ;
- S EAV=$$PROCESS(2.1),EAS=$$PROCESS(2.2) ;Vet & spouse land value
- S @ZDATA@("2E2")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
- ;
- S EAV=$$PROCESS(3.1),EAS=$$PROCESS(3.2) ;Vet & spouse other property
- S @ZDATA@("2E3")=$S(EAV="":"",1:$J(EAV,0,2))_U_$S(EAS="":"",1:$J(EAS,0,2))
- ;
- ;Since Child amounts in Section IIE are for ALL dependents,
- ;get just Child 1 amounts from Section IIG - Dependent Net Worths
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIG",1))
- S EAC=$$PROCESS(9.1) ;Child 1 cash
- S @ZDATA@("2E1")=@ZDATA@("2E1")_U_$S(EAC="":"",1:$J(EAC,0,2))
- S EAC=$$PROCESS(9.2) ;Child 1 land value
- S @ZDATA@("2E2")=@ZDATA@("2E2")_U_$S(EAC="":"",1:$J(EAC,0,2))
- S EAC=$$PROCESS(9.3) ;Child 1 other property
- S @ZDATA@("2E3")=@ZDATA@("2E3")_U_$S(EAC="":"",1:$J(EAC,0,2))
- ;
- Q
- ;
- PAGEDFF(EADEP) ; Additional dependent financial page(s) for Section IIF
- ; Called from EN^EASEZP6F
- N ZDATA,EZDATA,EANAME,EAGROSS,EANET,EAOTHER
- ;
- S ZDATA=$NA(^TMP("EASEZ",$J,"DFF",EADEP))
- K @ZDATA
- ;
- ; Process Section IIF
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIF",EADEP))
- ;
- S EANAME=$$PROCESS("7.") ;Child number (2 through 19)
- S EAGROSS=$$PROCESS(7.1),EANET=$$PROCESS(7.2),EAOTHER=$$PROCESS(7.3)
- ;Child #^gross income^net income^other income
- 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))
- ;
- Q
- ;
- PAGEDFG(EADEP) ; Additional dependent financial page(s) for Section IIG
- ; Called from EN^EASEZP6F
- N ZDATA,EZDATA,EANAME,EACASH,EAREAL,EAOTHER
- ;
- S ZDATA=$NA(^TMP("EASEZ",$J,"DFG",EADEP))
- K @ZDATA
- ;
- ; Process Section IIG
- S EZDATA=$NA(^TMP("EZTEMP",$J,"IIG",EADEP))
- ;
- S EANAME=$$PROCESS("9.") ;Child number (2 through 19)
- S EACASH=$$PROCESS(9.1),EAREAL=$$PROCESS(9.2),EAOTHER=$$PROCESS(9.3)
- ;Child #^cash^land value^other property
- 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))
- ;
- Q
- ;
- PROCESS(KEY) ; Process data value from ^TMP("EZTEMP" array
- ;format = IEN ^ EAS DATA ^ ACCEPT VALUE ^ 712 SUBIEN ^ VISTA DATA
- ;Take #712 value from 2nd piece, if it's accepted;
- ;otherwise, take the Patient File value from the 5th piece
- ;
- N EAV,RSLT
- ;
- I '$D(@EZDATA@(KEY)) G PQ
- S EAV=@EZDATA@(KEY)
- S RSLT=$S(+$P(EAV,U,3):$P(EAV,U,2),1:$P(EAV,U,5))
- PQ Q $G(RSLT)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZPU2 7465 printed Feb 18, 2025@23:21:19 Page 2
- EASEZPU2 ; ALB/AMA - Print utility for 10-10EZ, Version 6 or greater ; 8/1/08 1:27pm
- +1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57,70**;Mar 15, 2001;Build 26
- +2 ;
- +3 QUIT
- +4 ;Parts of this routine were copied from EASEZPU (this is the second
- +5 ;part of EASEZP6U); if the version # of the 1010EZ application is
- +6 ;6.0 or greater, then this routine will be executed.
- +7 ;
- PAGE2 ;Retrieve page 2 data and format for output on 10-10EZ form
- +1 ; Called from EN^EASEZP6F
- +2 ;
- +3 ;Variables
- +4 ; ZDATA - references TMP global for output data
- +5 ; EZDATA - references available data from 1010EZ holding file
- +6 ; EAX, EAY - temporary storage variables
- +7 ; EACT - Temporary city variable
- +8 ; EAV, EAS, EAC - temp storage for vet, spouse, and child variables
- +9 ;
- +10 NEW ZDATA,EZDATA,EAX,EAY,EACT,EAV,EAS,EAC
- +11 ;
- +12 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,2))
- +13 KILL @ZDATA
- +14 ;
- +15 ; Process Section IIA - Dependent Info
- +16 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIA",1))
- +17 ;
- +18 SET EAX=$$PROCESS(1.1)
- SET EAY=$$PROCESS(1.5)
- +19 IF $EXTRACT(EAY,$LENGTH(EAY))=","
- SET EAY=$EXTRACT(EAY,1,$LENGTH(EAY)-1)
- +20 ;Spouse's name^maiden name
- SET @ZDATA@(1)=EAX_U_EAY
- +21 ;Child 1's name
- SET @ZDATA@(2)=$$PROCESS(2.1)
- +22 ;Spouse's SSN
- SET @ZDATA@(3)=$$PROCESS("3.")
- +23 ;Spouse's date of birth
- SET @ZDATA@(4)=$$PROCESS("4.")
- +24 ;Child 1's date of birth
- SET @ZDATA@(5)=$$PROCESS("5.")
- +25 ;Spouse's city
- SET EACT=""
- SET EACT=$$PROCESS(6.2)
- +26 ;if there's a city, add comma & space
- IF EACT]""
- SET EACT=EACT_", "
- +27 ;Spouse's street^city, state zip
- +28 SET @ZDATA@(6)=$$PROCESS(6.1)_U_EACT_$$PROCESS(6.3)_" "_$$PROCESS(6.4)
- +29 ;
- +30 ;Child 1's SSN
- SET @ZDATA@(7)=$$PROCESS("7.")
- +31 ;Spouse's phone
- SET @ZDATA@(8)=$$PROCESS(8.1)
- +32 ;Child 1's relationship
- SET @ZDATA@(9)=$$PROCESS("9.")
- +33 ;Date of marriage to spouse
- SET @ZDATA@(10)=$$PROCESS("10.")
- +34 ;Date Child 1 became dependent
- SET @ZDATA@(11)=$$PROCESS("11.")
- +35 ;
- +36 ;Amount contributed to spouse
- SET EAX=$$PROCESS(12.1)
- +37 ;Amount contributed to Child 1
- SET EAY=$$PROCESS(12.2)
- +38 SET @ZDATA@(12)=$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))_U_$SELECT(EAY="":"",1:$JUSTIFY(EAY,0,2))
- +39 ;
- +40 ;Educational expenses for Child 1
- SET @ZDATA@(13)=$$PROCESS("13.")
- +41 SET @ZDATA@(13)=$SELECT(@ZDATA@(13)="":"",1:$JUSTIFY(@ZDATA@(13),0,2))
- +42 ;
- +43 ;Child 1 disabled?
- SET EAX=$$PROCESS("14.")
- +44 ;EAS*1.0*57 - print full word "UNKNOWN"
- +45 ; If Child 1 exists and answer is blank, set to "UNKNOWN"
- +46 ; If no Child 1, then leave blank
- +47 IF (EAX="")
- IF (@ZDATA@(2)]"")
- SET EAX="UNKNOWN"
- +48 IF @ZDATA@(2)']""
- SET EAX=""
- +49 SET @ZDATA@(14)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
- +50 ;Child 1 attend school last year?
- SET EAX=$$PROCESS("15.")
- +51 ;EAS*1.0*57 - print full word "UNKNOWN"
- +52 ; If Child 1 exists and answer is blank, set to "UNKNOWN"
- +53 ; If no Child 1, then leave blank
- +54 IF (EAX="")
- IF (@ZDATA@(2)]"")
- SET EAX="UNKNOWN"
- +55 IF @ZDATA@(2)']""
- SET EAX=""
- +56 SET @ZDATA@(15)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
- +57 ;
- +58 ; Process Section IIC - Previous Calendar Year Gross Annual Income
- +59 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIC",1))
- +60 ;
- +61 ;Vet & spouse gross income
- SET EAV=$$PROCESS(1.4)
- SET EAS=$$PROCESS(1.5)
- +62 SET @ZDATA@("2C1")=$SELECT(EAV="":"",1:$JUSTIFY(EAV,0,2))_U_$SELECT(EAS="":"",1:$JUSTIFY(EAS,0,2))
- +63 ;
- +64 ;Vet & spouse other income
- SET EAV=$$PROCESS(2.1)
- SET EAS=$$PROCESS(2.2)
- +65 SET @ZDATA@("2C2")=$SELECT(EAV="":"",1:$JUSTIFY(EAV,0,2))_U_$SELECT(EAS="":"",1:$JUSTIFY(EAS,0,2))
- +66 ;
- +67 ;Vet & spouse net income
- SET EAV=$$PROCESS(3.1)
- SET EAS=$$PROCESS(3.2)
- +68 SET @ZDATA@("2C3")=$SELECT(EAV="":"",1:$JUSTIFY(EAV,0,2))_U_$SELECT(EAS="":"",1:$JUSTIFY(EAS,0,2))
- +69 ;
- +70 ;Vet income year
- SET @ZDATA@(999)=$$PROCESS(999)
- +71 IF $DATA(@EZDATA@(998))
- Begin DoDot:1
- +72 ;Vet Declines To Give Info
- SET @ZDATA@(998)=$$PROCESS(998)
- End DoDot:1
- +73 ;
- +74 ;Since Child amounts in Section IIC are for ALL dependents,
- +75 ;get just Child 1 amounts from Section IIF - Dependent Gross Incomes
- +76 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIF",1))
- +77 ;Child 1 gross income
- SET EAC=$$PROCESS(7.1)
- +78 SET @ZDATA@("2C1")=@ZDATA@("2C1")_U_$SELECT(EAC="":"",1:$JUSTIFY(EAC,0,2))
- +79 ;Child 1 net income
- SET EAC=$$PROCESS(7.2)
- +80 SET @ZDATA@("2C3")=@ZDATA@("2C3")_U_$SELECT(EAC="":"",1:$JUSTIFY(EAC,0,2))
- +81 ;Child 1 other income
- SET EAC=$$PROCESS(7.3)
- +82 SET @ZDATA@("2C2")=@ZDATA@("2C2")_U_$SELECT(EAC="":"",1:$JUSTIFY(EAC,0,2))
- +83 ;
- +84 ; Process Section IID - Previous Calendar Year Expenses
- +85 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IID",1))
- +86 ;
- +87 ;Medical expenses
- +88 SET EAX=$$PROCESS("1.")
- SET @ZDATA@("2D1")=$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
- +89 ;Funeral expenses
- +90 SET EAX=$$PROCESS("2.")
- SET @ZDATA@("2D2")=$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
- +91 ;Educational expenses
- +92 SET EAX=$$PROCESS("3.")
- SET @ZDATA@("2D3")=$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
- +93 ;
- +94 ; Process Section IIE - Previous Calendar Year Net Worth
- +95 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIE",1))
- +96 ;
- +97 ;Vet & spouse cash
- SET EAV=$$PROCESS(1.1)
- SET EAS=$$PROCESS(1.2)
- +98 SET @ZDATA@("2E1")=$SELECT(EAV="":"",1:$JUSTIFY(EAV,0,2))_U_$SELECT(EAS="":"",1:$JUSTIFY(EAS,0,2))
- +99 ;
- +100 ;Vet & spouse land value
- SET EAV=$$PROCESS(2.1)
- SET EAS=$$PROCESS(2.2)
- +101 SET @ZDATA@("2E2")=$SELECT(EAV="":"",1:$JUSTIFY(EAV,0,2))_U_$SELECT(EAS="":"",1:$JUSTIFY(EAS,0,2))
- +102 ;
- +103 ;Vet & spouse other property
- SET EAV=$$PROCESS(3.1)
- SET EAS=$$PROCESS(3.2)
- +104 SET @ZDATA@("2E3")=$SELECT(EAV="":"",1:$JUSTIFY(EAV,0,2))_U_$SELECT(EAS="":"",1:$JUSTIFY(EAS,0,2))
- +105 ;
- +106 ;Since Child amounts in Section IIE are for ALL dependents,
- +107 ;get just Child 1 amounts from Section IIG - Dependent Net Worths
- +108 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIG",1))
- +109 ;Child 1 cash
- SET EAC=$$PROCESS(9.1)
- +110 SET @ZDATA@("2E1")=@ZDATA@("2E1")_U_$SELECT(EAC="":"",1:$JUSTIFY(EAC,0,2))
- +111 ;Child 1 land value
- SET EAC=$$PROCESS(9.2)
- +112 SET @ZDATA@("2E2")=@ZDATA@("2E2")_U_$SELECT(EAC="":"",1:$JUSTIFY(EAC,0,2))
- +113 ;Child 1 other property
- SET EAC=$$PROCESS(9.3)
- +114 SET @ZDATA@("2E3")=@ZDATA@("2E3")_U_$SELECT(EAC="":"",1:$JUSTIFY(EAC,0,2))
- +115 ;
- +116 QUIT
- +117 ;
- PAGEDFF(EADEP) ; Additional dependent financial page(s) for Section IIF
- +1 ; Called from EN^EASEZP6F
- +2 NEW ZDATA,EZDATA,EANAME,EAGROSS,EANET,EAOTHER
- +3 ;
- +4 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,"DFF",EADEP))
- +5 KILL @ZDATA
- +6 ;
- +7 ; Process Section IIF
- +8 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIF",EADEP))
- +9 ;
- +10 ;Child number (2 through 19)
- SET EANAME=$$PROCESS("7.")
- +11 SET EAGROSS=$$PROCESS(7.1)
- SET EANET=$$PROCESS(7.2)
- SET EAOTHER=$$PROCESS(7.3)
- +12 ;Child #^gross income^net income^other income
- +13 SET @ZDATA@(7)=EANAME_U_$SELECT(EAGROSS="":"",1:$JUSTIFY(EAGROSS,0,2))_U_$SELECT(EANET="":"",1:$JUSTIFY(EANET,0,2))_U_$SELECT(EAOTHER="":"",1:$JUSTIFY(EAOTHER,0,2))
- +14 ;
- +15 QUIT
- +16 ;
- PAGEDFG(EADEP) ; Additional dependent financial page(s) for Section IIG
- +1 ; Called from EN^EASEZP6F
- +2 NEW ZDATA,EZDATA,EANAME,EACASH,EAREAL,EAOTHER
- +3 ;
- +4 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,"DFG",EADEP))
- +5 KILL @ZDATA
- +6 ;
- +7 ; Process Section IIG
- +8 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"IIG",EADEP))
- +9 ;
- +10 ;Child number (2 through 19)
- SET EANAME=$$PROCESS("9.")
- +11 SET EACASH=$$PROCESS(9.1)
- SET EAREAL=$$PROCESS(9.2)
- SET EAOTHER=$$PROCESS(9.3)
- +12 ;Child #^cash^land value^other property
- +13 SET @ZDATA@(9)=EANAME_U_$SELECT(EACASH="":"",1:$JUSTIFY(EACASH,0,2))_U_$SELECT(EAREAL="":"",1:$JUSTIFY(EAREAL,0,2))_U_$SELECT(EAOTHER="":"",1:$JUSTIFY(EAOTHER,0,2))
- +14 ;
- +15 QUIT
- +16 ;
- PROCESS(KEY) ; Process data value from ^TMP("EZTEMP" array
- +1 ;format = IEN ^ EAS DATA ^ ACCEPT VALUE ^ 712 SUBIEN ^ VISTA DATA
- +2 ;Take #712 value from 2nd piece, if it's accepted;
- +3 ;otherwise, take the Patient File value from the 5th piece
- +4 ;
- +5 NEW EAV,RSLT
- +6 ;
- +7 IF '$DATA(@EZDATA@(KEY))
- GOTO PQ
- +8 SET EAV=@EZDATA@(KEY)
- +9 SET RSLT=$SELECT(+$PIECE(EAV,U,3):$PIECE(EAV,U,2),1:$PIECE(EAV,U,5))
- PQ QUIT $GET(RSLT)