EASEZPU3 ;ALB/AMA,LBD - Print utility for 10-10EZ, Version 6 or greater; 10/23/00 ; 1/31/13 2:52pm
;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,107**;Mar 15, 2001;Build 32
;
Q
;Split from EASEZP6U
;
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-10EZ form. If the holding file entry has not been accepted, and
;a vista entry is available, the vista entry is printed.
; Called from EN^EASEZP6F
;
;The ^TMP("EZTEMP") global is built in SETUP^EASEZP6F and
;remains until the printed form is complete.
; Variables
; ZDATA - references TMP global for output data
; EZDATA - references available data from 1010EZ holding file
; EAX - Temporary data variables
; EACT - Temporary city variable
;
N ZDATA,EZDATA,EAX,EACT
;
S ZDATA=$NA(^TMP("EASEZ",$J,1))
S EZDATA=$NA(^TMP("EZTEMP",$J,"I",1))
;
S EAX=$$PROCESS("17.") ;Covered by health insurance?
;EAS*1.0*57 - print full word "UNKNOWN"
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 @ZDATA@("17E")=$$PROCESS("17E.") ;Insurance company's street
S @ZDATA@("17F")=$$PROCESS("17F.") ;Insurance company's city
S @ZDATA@("17G")=$$PROCESS("17G.") ;Insurance company's state
S @ZDATA@("17H")=$$PROCESS("17H.") ;Insurance company's zip
S @ZDATA@("17J")=$$PROCESS("17J.") ;Insurance company's phone (Changed KEY to 17J - EAS*1*107)
;
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 EAX=$$PROCESS("22A.") ;On-the-job injury?
;EAS*1.0*57 - print full word "UNKNOWN"
S @ZDATA@("22A")=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",(EAX="UNKNOWN"):"UNKNOWN",1:"")
;
S EAX=$$PROCESS("22B.") ;Accident?
;EAS*1.0*57 - print full word "UNKNOWN"
S @ZDATA@("22B")=$S(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",(EAX="UNKNOWN"):"UNKNOWN",1:"")
Q
;
PAGEI(EAINS) ; Additional Insurance pages
; Called from EN^EASEZP6F
N ZDATA,EZDATA,EACT
;
S ZDATA=$NA(^TMP("EASEZ",$J,"I",EAINS))
K @ZDATA
;
; Process Section IA
S EZDATA=$NA(^TMP("EZTEMP",$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 @ZDATA@("17E")=$$PROCESS("17E.") ;Insurance company's street
S @ZDATA@("17F")=$$PROCESS("17F.") ;Insurance company's city
S @ZDATA@("17G")=$$PROCESS("17G.") ;Insurance company's state
S @ZDATA@("17H")=$$PROCESS("17H.") ;Insurance company's zip
S @ZDATA@("17J")=$$PROCESS("17J.") ;Insurance company's phone
Q
;
PAGEN(EADEP) ; Additional dependent page(s)
; Called from EN^EASEZP6F
N ZDATA,EZDATA,EAX
;
S ZDATA=$NA(^TMP("EASEZ",$J,"D",EADEP))
K @ZDATA
;
; Process Section IIB
S EZDATA=$NA(^TMP("EZTEMP",$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
;Amount contributed
S EAX=$$PROCESS("6."),@ZDATA@(12)=U_$S(EAX="":"",1:$J(EAX,0,2))
;Education expenses
S EAX=$$PROCESS("7."),@ZDATA@(13)=$S(EAX="":"",1:$J(EAX,0,2))
;
S EAX=$$PROCESS("8.") ;Permanently disabled?
;EAS*1.0*57 - print full word "UNKNOWN"
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?
;EAS*1.0*57 - print full word "UNKNOWN"
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 ^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[HEASEZPU3 5720 printed Oct 16, 2024@17:55:44 Page 2
EASEZPU3 ;ALB/AMA,LBD - Print utility for 10-10EZ, Version 6 or greater; 10/23/00 ; 1/31/13 2:52pm
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,107**;Mar 15, 2001;Build 32
+2 ;
+3 QUIT
+4 ;Split from EASEZP6U
+5 ;
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-10EZ 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^EASEZP6F
+5 ;
+6 ;The ^TMP("EZTEMP") global is built in SETUP^EASEZP6F 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 ; EAX - Temporary data variables
+12 ; EACT - Temporary city variable
+13 ;
+14 NEW ZDATA,EZDATA,EAX,EACT
+15 ;
+16 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,1))
+17 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"I",1))
+18 ;
+19 ;Covered by health insurance?
SET EAX=$$PROCESS("17.")
+20 ;EAS*1.0*57 - print full word "UNKNOWN"
+21 SET @ZDATA@(17)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
+22 ;
+23 ;Insurance company's name
SET @ZDATA@("17A")=$$PROCESS("17A.")
+24 ;Name of policy holder
SET @ZDATA@("17B")=$EXTRACT($$PROCESS("17B."),1,30)
+25 ;Policy number
SET @ZDATA@("17C")=$$PROCESS("17C.")
+26 ;Group code
SET @ZDATA@("17D")=$$PROCESS("17D.")
+27 ;
+28 ;Insurance company's street
SET @ZDATA@("17E")=$$PROCESS("17E.")
+29 ;Insurance company's city
SET @ZDATA@("17F")=$$PROCESS("17F.")
+30 ;Insurance company's state
SET @ZDATA@("17G")=$$PROCESS("17G.")
+31 ;Insurance company's zip
SET @ZDATA@("17H")=$$PROCESS("17H.")
+32 ;Insurance company's phone (Changed KEY to 17J - EAS*1*107)
SET @ZDATA@("17J")=$$PROCESS("17J.")
+33 ;
+34 ;Next-of-kin's city
SET EACT=""
SET EACT=$EXTRACT($$PROCESS("19A.4"),1,30)
+35 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+36 ;Next-of-kin's name^street^city, state zip^relationship
+37 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")
+38 ;Next-of-kin's home phone
SET @ZDATA@("19B")=$$PROCESS("19B.1")
+39 ;Next-of-kin's work phone
SET @ZDATA@("19C")=$$PROCESS("19C.1")
+40 ;
+41 ;Emergency contact's city
SET EACT=""
SET EACT=$EXTRACT($$PROCESS("20A.4"),1,30)
+42 ;if there's a city, add comma & space
IF EACT]""
SET EACT=EACT_", "
+43 ;Emergency contact's name^street^city, state zip^relationship
+44 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")
+45 ;EC's home phone
SET @ZDATA@("20B")=$$PROCESS("20B.1")
+46 ;EC's work phone
SET @ZDATA@("20C")=$$PROCESS("20C.1")
+47 ;
+48 ;Who receives property?
SET @ZDATA@("21")=$$PROCESS("21.")
+49 ;On-the-job injury?
SET EAX=$$PROCESS("22A.")
+50 ;EAS*1.0*57 - print full word "UNKNOWN"
+51 SET @ZDATA@("22A")=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",(EAX="UNKNOWN"):"UNKNOWN",1:"")
+52 ;
+53 ;Accident?
SET EAX=$$PROCESS("22B.")
+54 ;EAS*1.0*57 - print full word "UNKNOWN"
+55 SET @ZDATA@("22B")=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",(EAX="UNKNOWN"):"UNKNOWN",1:"")
+56 QUIT
+57 ;
PAGEI(EAINS) ; Additional Insurance pages
+1 ; Called from EN^EASEZP6F
+2 NEW ZDATA,EZDATA,EACT
+3 ;
+4 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,"I",EAINS))
+5 KILL @ZDATA
+6 ;
+7 ; Process Section IA
+8 SET EZDATA=$NAME(^TMP("EZTEMP",$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 street
SET @ZDATA@("17E")=$$PROCESS("17E.")
+15 ;Insurance company's city
SET @ZDATA@("17F")=$$PROCESS("17F.")
+16 ;Insurance company's state
SET @ZDATA@("17G")=$$PROCESS("17G.")
+17 ;Insurance company's zip
SET @ZDATA@("17H")=$$PROCESS("17H.")
+18 ;Insurance company's phone
SET @ZDATA@("17J")=$$PROCESS("17J.")
+19 QUIT
+20 ;
PAGEN(EADEP) ; Additional dependent page(s)
+1 ; Called from EN^EASEZP6F
+2 NEW ZDATA,EZDATA,EAX
+3 ;
+4 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,"D",EADEP))
+5 KILL @ZDATA
+6 ;
+7 ; Process Section IIB
+8 SET EZDATA=$NAME(^TMP("EZTEMP",$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
+16 SET EAX=$$PROCESS("6.")
SET @ZDATA@(12)=U_$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
+17 ;Education expenses
+18 SET EAX=$$PROCESS("7.")
SET @ZDATA@(13)=$SELECT(EAX="":"",1:$JUSTIFY(EAX,0,2))
+19 ;
+20 ;Permanently disabled?
SET EAX=$$PROCESS("8.")
+21 ;EAS*1.0*57 - print full word "UNKNOWN"
+22 SET @ZDATA@(14)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
+23 ;School last year?
SET EAX=$$PROCESS("9.")
+24 ;EAS*1.0*57 - print full word "UNKNOWN"
+25 SET @ZDATA@(15)=$SELECT(EAX="Y"!(EAX="YES"):"YES",EAX="N"!(EAX="NO"):"NO",EAX="UNKNOWN":"UNKNOWN",1:"")
+26 ;
+27 QUIT
+28 ;
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)
