EASEZRPU.m

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 ---EASEZRPU   8025     printed  Jun 11, 2024@21:40:53                                                                                                                                                                                                    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)