- 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 Jan 18, 2025@02:56:24 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)