EASEZRPU ;ALB/AMA,TDM - Print utility for 10-10EZR ; 2/6/13 12:10pm
;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,70,107**;Mar 15, 2001;Build 32
;
Q
;
PAGE1 ;This function retrieves and formats the page 1 application data from
;the 1010EZ Holding File, #712, for the printed version of the VistA
;10-10EZR form. If the holding file entry has not been accepted, and
;a vista entry is available, the vista entry is printed.
; Called from EN^EASEZRPF
;
;The ^TMP("EZRTEMP") global is built in SETUP^EASEZRPF and
;remains until the printed form is complete.
; Variables
; ZDATA - references TMP global for output data
; EZDATA - references available data from 1010EZ holding file
; EASTR - Temporary String data variable
; EAX,EAY - Temporary data variables
; EACT - Temporary city variable
;
;THIS ROUTINE WAS COPIED FROM EASEZP6U, AND MODIFIED TO
;PROCESS JUST THE DATA ELEMENTS NEEDED FOR THE EZR FORM
;
N ZDATA,EZDATA,EASTR,EAX,EAY,EACT
;
S ZDATA=$NA(^TMP("EASEZR",$J,1))
S EZDATA=$NA(^TMP("EZRTEMP",$J,"I",1))
K @ZDATA
;
S @ZDATA@(2)=$$PROCESS(2.1) ;Vet's name
S @ZDATA@(3)=$E($$PROCESS("3."),1,35) ;Other names used
S @ZDATA@(4)=$$PROCESS("4.") ;Gender
;
S @ZDATA@(5)=$$PROCESS("5.") ;SSN
S @ZDATA@(7)=$$PROCESS("7.") ;Date of birth
S @ZDATA@("9A")=$E($$PROCESS("9A."),1,35) ;Address
S @ZDATA@("9B")=$E($$PROCESS("9B."),1,32) ;City
S @ZDATA@("9C")=$$PROCESS("9C.") ;State
S @ZDATA@("9D")=$$PROCESS("9D.") ;Zip
S @ZDATA@("9E")=$$PROCESS("9E.") ;County
S @ZDATA@("9F")=$$PROCESS("9F.") ;Province - EAS*1.0*70
S @ZDATA@("9G")=$$PROCESS("9G.") ;Postal Code - EAS*1.0*70
S @ZDATA@("9H")=$$PROCESS("9H.") ;Country - EAS*1.0*70
S @ZDATA@(10)=$$PROCESS("10.1") ;Home phone
S @ZDATA@("11A")=$$PROCESS("11A.") ;E-mail
S @ZDATA@("11G")=$$PROCESS("11A1.") ;Cell phone number
S @ZDATA@("11H")=$$PROCESS("11A3.") ;Pager number
S @ZDATA@(12)=$$PROCESS("12.") ;Marital status
;
K EAX
F EAX="14J","14K","14L" D ;Medicare eligible, Enrolled in Part A/B?
. S EAY=$$PROCESS(EAX_".")
. S @ZDATA@(EAX)=$S(EAY="Y"!(EAY="YES"):"YES",EAY="N"!(EAY="NO"):"NO",EAY="UNKNOWN":"UNKNOWN",1:"")
;
S @ZDATA@("14K1")=$$PROCESS("14K1.") ;Medicare Part A effective date
S @ZDATA@("14L1")=$$PROCESS("14L1.") ;Medicare Part B effective date
S @ZDATA@("14M")=$$PROCESS("14M.") ;Medicare claim number
S @ZDATA@("14N")=$$PROCESS("14N.") ;Name on Medicare card
;
;Vet's employment status^Date of retirement
S @ZDATA@("15A")=$$PROCESS("15A.1")_U_$$PROCESS("15A.2")
K EAX
S EAX=$E($$PROCESS("15B.1"),1,30) ;Company's name
S EACT="",EACT=$E($$PROCESS("15B.3"),1,30) ;Company's city
I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
;Company's name^Street^City, State Zip^Phone
S EAX=EAX_U_$E($$PROCESS("15B.2"),1,30)_U_EACT_$$PROCESS("15B.4")_" "_$E($$PROCESS("15B.5"),1,10)_U_$$PROCESS("15B.6")
S @ZDATA@("15B")=EAX
;
;Spouse's employment status^Date of retirement
S @ZDATA@("16A")=$$PROCESS("16A.1")_U_$$PROCESS("16A.2")
;
K EAX
S EAX=$E($$PROCESS("16B.1"),1,30) ;Spouse's company's name
S EACT="",EACT=$E($$PROCESS("16B.3"),1,30) ;Spouse's company's city
I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
;Spouse's company's name^Street^City, State Zip^Phone
S EAX=EAX_U_$E($$PROCESS("16B.2"),1,30)_U_EACT_$$PROCESS("16B.4")_" "_$E($$PROCESS("16B.5"),1,10)_U_$$PROCESS("16B.6")
S @ZDATA@("16B")=EAX
;
S EAX=$$PROCESS("17.") ;Covered by health insurance?
S @ZDATA@(17)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
;
S @ZDATA@("17A")=$$PROCESS("17A.") ;Insurance company's name
S @ZDATA@("17B")=$E($$PROCESS("17B."),1,30) ;Name of policy holder
S @ZDATA@("17C")=$$PROCESS("17C.") ;Policy number
S @ZDATA@("17D")=$$PROCESS("17D.") ;Group code
;
S EACT="",EACT=$$PROCESS("17F.") ;Insurance company's city
I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
;Insurance company's street^city, state zip
S @ZDATA@("17E")=$$PROCESS("17E.")_U_EACT_$$PROCESS("17G.")_" "_$$PROCESS("17H.")
S @ZDATA@("17I")=$$PROCESS("17I.") ;Insurance company's phone
;
S EACT="",EACT=$E($$PROCESS("19A.4"),1,30) ;Next-of-kin's city
I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
;Next-of-kin's name^street^city, state zip^relationship
S @ZDATA@("19A")=$$PROCESS("19A.1")_U_$E($$PROCESS("19A.3"),1,30)_U_EACT_$$PROCESS("19A.5")_" "_$E($$PROCESS("19A.6"),1,10)_U_$$PROCESS("19A.7")
S @ZDATA@("19B")=$$PROCESS("19B.1") ;Next-of-kin's home phone
S @ZDATA@("19C")=$$PROCESS("19C.1") ;Next-of-kin's work phone
;
S EACT="",EACT=$E($$PROCESS("20A.4"),1,30) ;Emergency contact's city
I EACT]"" S EACT=EACT_", " ;if there's a city, add comma & space
;Emergency contact's name^street^city, state zip^relationship
S @ZDATA@("20A")=$$PROCESS("20A.1")_U_$E($$PROCESS("20A.3"),1,30)_U_EACT_$$PROCESS("20A.5")_" "_$E($$PROCESS("20A.6"),1,10)_U_$$PROCESS("20A.7")
S @ZDATA@("20B")=$$PROCESS("20B.1") ;EC's home phone
S @ZDATA@("20C")=$$PROCESS("20C.1") ;EC's work phone
S @ZDATA@("21")=$$PROCESS("21.") ;Who receives property?
;
S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIC",1))
S @ZDATA@(999)=$$PROCESS(999) ;Vet income year
I $D(@EZDATA@(998)) D
. S @ZDATA@(998)=$$PROCESS(998) ;Vet Declines To Give Inf
;
Q
;
PAGEI(EAINS) ; Additional Insurance pages
; Called from EN^EASEZRPF
N ZDATA,EZDATA,EACT
;
S ZDATA=$NA(^TMP("EASEZR",$J,"I",EAINS))
K @ZDATA
;
; Process Section IA
S EZDATA=$NA(^TMP("EZRTEMP",$J,"IA",EAINS))
;
S @ZDATA@("17A")=$$PROCESS("17A.") ;Insurance company's name
S @ZDATA@("17B")=$E($$PROCESS("17B."),1,30) ;Name of policy holder
S @ZDATA@("17C")=$$PROCESS("17C.") ;Policy number
S @ZDATA@("17D")=$$PROCESS("17D.") ;Group code
S EACT="",EACT=$$PROCESS("17F.") ;Insurance company's city
I EACT]"" S EACT=EACT_", " ;if there's a street, add comma & space
;Health insurance company's street^city, state zip
S @ZDATA@("17E")=$$PROCESS("17E.")_U_EACT_$$PROCESS("17G.")_" "_$$PROCESS("17H.")
S @ZDATA@("17I")=$$PROCESS("17I.") ;Insurance company's phone
;
Q
;
PAGEN(EADEP) ; Additional dependent page(s)
; Called from EN^EASEZRPF
N ZDATA,EZDATA,EAX
;
S ZDATA=$NA(^TMP("EASEZR",$J,"D",EADEP))
K @ZDATA
;
; Process Section IIB
S EZDATA=$NA(^TMP("EZRTEMP",$J,"IIB",EADEP))
;
S @ZDATA@(2)=$$PROCESS(1.1) ;Child's name
S @ZDATA@(5)=$$PROCESS("3.") ;Date of birth
S @ZDATA@(7)=$$PROCESS("2.") ;SSN
S @ZDATA@(9)=$$PROCESS("4.") ;Relationship
S @ZDATA@(11)=$$PROCESS("5.") ;Date of dependency
S EAX=$$PROCESS("6.") ;Amount contributed
S @ZDATA@(12)=U_$S(EAX="":"",1:$J(EAX,0,2))
S EAX=$$PROCESS("7.") ;Education expenses
S @ZDATA@(13)=$S(EAX="":"",1:$J(EAX,0,2))
;
S EAX=$$PROCESS("8.") ;Permanently disabled?
S @ZDATA@(14)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
S EAX=$$PROCESS("9.") ;School last year?
S @ZDATA@(15)=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
;
Q
;
PROCESS(KEY) ; Process data value from EZRTEMP array, take #712 value
; if it's accepted, otherwise take the Patient File value
;
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[HEASEZRPU 8025 printed Oct 16, 2024@17:55:57 Page 2
EASEZRPU ;ALB/AMA,TDM - Print utility for 10-10EZR ; 2/6/13 12:10pm
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,70,107**;Mar 15, 2001;Build 32
+2 ;
+3 QUIT
+4 ;
PAGE1 ;This function retrieves and formats the page 1 application data from
+1 ;the 1010EZ Holding File, #712, for the printed version of the VistA
+2 ;10-10EZR form. If the holding file entry has not been accepted, and
+3 ;a vista entry is available, the vista entry is printed.
+4 ; Called from EN^EASEZRPF
+5 ;
+6 ;The ^TMP("EZRTEMP") global is built in SETUP^EASEZRPF and
+7 ;remains until the printed form is complete.
+8 ; Variables
+9 ; ZDATA - references TMP global for output data
+10 ; EZDATA - references available data from 1010EZ holding file
+11 ; EASTR - Temporary String data variable
+12 ; EAX,EAY - Temporary data variables
+13 ; EACT - Temporary city variable
+14 ;
+15 ;THIS ROUTINE WAS COPIED FROM EASEZP6U, AND MODIFIED TO
+16 ;PROCESS JUST THE DATA ELEMENTS NEEDED FOR THE EZR FORM
+17 ;
+18 NEW ZDATA,EZDATA,EASTR,EAX,EAY,EACT
+19 ;
+20 SET ZDATA=$NAME(^TMP("EASEZR",$JOB,1))
+21 SET EZDATA=$NAME(^TMP("EZRTEMP",$JOB,"I",1))
+22 KILL @ZDATA
+23 ;
+24 ;Vet's name
SET @ZDATA@(2)=$$PROCESS(2.1)
+25 ;Other names used
SET @ZDATA@(3)=$EXTRACT($$PROCESS("3."),1,35)
+26 ;Gender
SET @ZDATA@(4)=$$PROCESS("4.")
+27 ;
+28 ;SSN
SET @ZDATA@(5)=$$PROCESS("5.")
+29 ;Date of birth
SET @ZDATA@(7)=$$PROCESS("7.")
+30 ;Address
SET @ZDATA@("9A")=$EXTRACT($$PROCESS("9A."),1,35)
+31 ;City
SET @ZDATA@("9B")=$EXTRACT($$PROCESS("9B."),1,32)
+32 ;State
SET @ZDATA@("9C")=$$PROCESS("9C.")
+33 ;Zip
SET @ZDATA@("9D")=$$PROCESS("9D.")
+34 ;County
SET @ZDATA@("9E")=$$PROCESS("9E.")
+35 ;Province - EAS*1.0*70
SET @ZDATA@("9F")=$$PROCESS("9F.")
+36 ;Postal Code - EAS*1.0*70
SET @ZDATA@("9G")=$$PROCESS("9G.")
+37 ;Country - EAS*1.0*70
SET @ZDATA@("9H")=$$PROCESS("9H.")
+38 ;Home phone
SET @ZDATA@(10)=$$PROCESS("10.1")
+39 ;E-mail
SET @ZDATA@("11A")=$$PROCESS("11A.")
+40 ;Cell phone number
SET @ZDATA@("11G")=$$PROCESS("11A1.")
+41 ;Pager number
SET @ZDATA@("11H")=$$PROCESS("11A3.")
+42 ;Marital status
SET @ZDATA@(12)=$$PROCESS("12.")
+43 ;
+44 KILL EAX
+45 ;Medicare eligible, Enrolled in Part A/B?
FOR EAX="14J","14K","14L"
Begin DoDot:1
+46 SET EAY=$$PROCESS(EAX_".")
+47 SET @ZDATA@(EAX)=$SELECT(EAY="Y"!(EAY="YES"):"YES",EAY="N"!(EAY="NO"):"NO",EAY="UNKNOWN":"UNKNOWN",1:"")
End DoDot:1
+48 ;
+49 ;Medicare Part A effective date
SET @ZDATA@("14K1")=$$PROCESS("14K1.")
+50 ;Medicare Part B effective date
SET @ZDATA@("14L1")=$$PROCESS("14L1.")
+51 ;Medicare claim number
SET @ZDATA@("14M")=$$PROCESS("14M.")
+52 ;Name on Medicare card
SET @ZDATA@("14N")=$$PROCESS("14N.")
+53 ;
+54 ;Vet's employment status^Date of retirement
+55 SET @ZDATA@("15A")=$$PROCESS("15A.1")_U_$$PROCESS("15A.2")
+56 KILL EAX
+57 ;Company's name
SET EAX=$EXTRACT($$PROCESS("15B.1"),1,30)
+58 ;Company's city
SET EACT=""
SET EACT=$EXTRACT($$PROCESS("15B.3"),1,30)
+59 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+60 ;Company's name^Street^City, State Zip^Phone
+61 SET EAX=EAX_U_$EXTRACT($$PROCESS("15B.2"),1,30)_U_EACT_$$PROCESS("15B.4")_" "_$EXTRACT($$PROCESS("15B.5"),1,10)_U_$$PROCESS("15B.6")
+62 SET @ZDATA@("15B")=EAX
+63 ;
+64 ;Spouse's employment status^Date of retirement
+65 SET @ZDATA@("16A")=$$PROCESS("16A.1")_U_$$PROCESS("16A.2")
+66 ;
+67 KILL EAX
+68 ;Spouse's company's name
SET EAX=$EXTRACT($$PROCESS("16B.1"),1,30)
+69 ;Spouse's company's city
SET EACT=""
SET EACT=$EXTRACT($$PROCESS("16B.3"),1,30)
+70 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+71 ;Spouse's company's name^Street^City, State Zip^Phone
+72 SET EAX=EAX_U_$EXTRACT($$PROCESS("16B.2"),1,30)_U_EACT_$$PROCESS("16B.4")_" "_$EXTRACT($$PROCESS("16B.5"),1,10)_U_$$PROCESS("16B.6")
+73 SET @ZDATA@("16B")=EAX
+74 ;
+75 ;Covered by health insurance?
SET EAX=$$PROCESS("17.")
+76 SET @ZDATA@(17)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
+77 ;
+78 ;Insurance company's name
SET @ZDATA@("17A")=$$PROCESS("17A.")
+79 ;Name of policy holder
SET @ZDATA@("17B")=$EXTRACT($$PROCESS("17B."),1,30)
+80 ;Policy number
SET @ZDATA@("17C")=$$PROCESS("17C.")
+81 ;Group code
SET @ZDATA@("17D")=$$PROCESS("17D.")
+82 ;
+83 ;Insurance company's city
SET EACT=""
SET EACT=$$PROCESS("17F.")
+84 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+85 ;Insurance company's street^city, state zip
+86 SET @ZDATA@("17E")=$$PROCESS("17E.")_U_EACT_$$PROCESS("17G.")_" "_$$PROCESS("17H.")
+87 ;Insurance company's phone
SET @ZDATA@("17I")=$$PROCESS("17I.")
+88 ;
+89 ;Next-of-kin's city
SET EACT=""
SET EACT=$EXTRACT($$PROCESS("19A.4"),1,30)
+90 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+91 ;Next-of-kin's name^street^city, state zip^relationship
+92 SET @ZDATA@("19A")=$$PROCESS("19A.1")_U_$EXTRACT($$PROCESS("19A.3"),1,30)_U_EACT_$$PROCESS("19A.5")_" "_$EXTRACT($$PROCESS("19A.6"),1,10)_U_$$PROCESS("19A.7")
+93 ;Next-of-kin's home phone
SET @ZDATA@("19B")=$$PROCESS("19B.1")
+94 ;Next-of-kin's work phone
SET @ZDATA@("19C")=$$PROCESS("19C.1")
+95 ;
+96 ;Emergency contact's city
SET EACT=""
SET EACT=$EXTRACT($$PROCESS("20A.4"),1,30)
+97 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+98 ;Emergency contact's name^street^city, state zip^relationship
+99 SET @ZDATA@("20A")=$$PROCESS("20A.1")_U_$EXTRACT($$PROCESS("20A.3"),1,30)_U_EACT_$$PROCESS("20A.5")_" "_$EXTRACT($$PROCESS("20A.6"),1,10)_U_$$PROCESS("20A.7")
+100 ;EC's home phone
SET @ZDATA@("20B")=$$PROCESS("20B.1")
+101 ;EC's work phone
SET @ZDATA@("20C")=$$PROCESS("20C.1")
+102 ;Who receives property?
SET @ZDATA@("21")=$$PROCESS("21.")
+103 ;
+104 SET EZDATA=$NAME(^TMP("EZRTEMP",$JOB,"IIC",1))
+105 ;Vet income year
SET @ZDATA@(999)=$$PROCESS(999)
+106 IF $DATA(@EZDATA@(998))
Begin DoDot:1
+107 ;Vet Declines To Give Inf
SET @ZDATA@(998)=$$PROCESS(998)
End DoDot:1
+108 ;
+109 QUIT
+110 ;
PAGEI(EAINS) ; Additional Insurance pages
+1 ; Called from EN^EASEZRPF
+2 NEW ZDATA,EZDATA,EACT
+3 ;
+4 SET ZDATA=$NAME(^TMP("EASEZR",$JOB,"I",EAINS))
+5 KILL @ZDATA
+6 ;
+7 ; Process Section IA
+8 SET EZDATA=$NAME(^TMP("EZRTEMP",$JOB,"IA",EAINS))
+9 ;
+10 ;Insurance company's name
SET @ZDATA@("17A")=$$PROCESS("17A.")
+11 ;Name of policy holder
SET @ZDATA@("17B")=$EXTRACT($$PROCESS("17B."),1,30)
+12 ;Policy number
SET @ZDATA@("17C")=$$PROCESS("17C.")
+13 ;Group code
SET @ZDATA@("17D")=$$PROCESS("17D.")
+14 ;Insurance company's city
SET EACT=""
SET EACT=$$PROCESS("17F.")
+15 ;if there's a street, add comma & space
IF EACT]""
SET EACT=EACT_", "
+16 ;Health insurance company's street^city, state zip
+17 SET @ZDATA@("17E")=$$PROCESS("17E.")_U_EACT_$$PROCESS("17G.")_" "_$$PROCESS("17H.")
+18 ;Insurance company's phone
SET @ZDATA@("17I")=$$PROCESS("17I.")
+19 ;
+20 QUIT
+21 ;
PAGEN(EADEP) ; Additional dependent page(s)
+1 ; Called from EN^EASEZRPF
+2 NEW ZDATA,EZDATA,EAX
+3 ;
+4 SET ZDATA=$NAME(^TMP("EASEZR",$JOB,"D",EADEP))
+5 KILL @ZDATA
+6 ;
+7 ; Process Section IIB
+8 SET EZDATA=$NAME(^TMP("EZRTEMP",$JOB,"IIB",EADEP))
+9 ;
+10 ;Child's name
SET @ZDATA@(2)=$$PROCESS(1.1)
+11 ;Date of birth
SET @ZDATA@(5)=$$PROCESS("3.")
+12 ;SSN
SET @ZDATA@(7)=$$PROCESS("2.")
+13 ;Relationship
SET @ZDATA@(9)=$$PROCESS("4.")
+14 ;Date of dependency
SET @ZDATA@(11)=$$PROCESS("5.")
+15 ;Amount contributed
SET EAX=$$PROCESS("6.")
+16 SET @ZDATA@(12)=U_$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
+17 ;Education expenses
SET EAX=$$PROCESS("7.")
+18 SET @ZDATA@(13)=$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
+19 ;
+20 ;Permanently disabled?
SET EAX=$$PROCESS("8.")
+21 SET @ZDATA@(14)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
+22 ;School last year?
SET EAX=$$PROCESS("9.")
+23 SET @ZDATA@(15)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
+24 ;
+25 QUIT
+26 ;
PROCESS(KEY) ; Process data value from EZRTEMP array, take #712 value
+1 ; if it's accepted, otherwise take the Patient File value
+2 ;
+3 NEW EAV,RSLT
+4 ;
+5 IF '$DATA(@EZDATA@(KEY))
GOTO PQ
+6 SET EAV=@EZDATA@(KEY)
+7 SET RSLT=$SELECT(+$PIECE(EAV,U,3):$PIECE(EAV,U,2),1:$PIECE(EAV,U,5))
PQ QUIT $GET(RSLT)
