- EASEZP6U ;ALB/AMA,LBD - Print utility for 10-10EZ, Version 6 or greater; 10/23/00 ; 9/19/12 11:40am
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57,70,107**;Mar 15, 2001;Build 32
- ;
- Q
- ;Parts of this routine were copied from EASEZPU (the other parts are
- ;in EASEZPU2); if the version # of the 1010EZ application is 6.0 or
- ;greater, then this routine will be executed.
- ;
- 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
- ; EASTR - Temporary String data variable
- ; EAX,EAY - Temporary data variables
- ; EACT - Temporary city variable
- ;
- N ZDATA,EZDATA,EASTR,EAX,EAY,EACT
- ;
- S ZDATA=$NA(^TMP("EASEZ",$J,1))
- S EZDATA=$NA(^TMP("EZTEMP",$J,"I",1))
- K @ZDATA
- ;
- ;Type Of Benefits Applied For
- S EASTR="" F EAX="1A.1","1A.2","1A.3","1A.4","1A.5" D
- . I $$PROCESS(EAX)="UNKNOWN" S EASTR="UNKNOWN, ",EAX="1A.5" Q
- . I $$PROCESS(EAX)="YES" S EASTR=EASTR_$$BENEFIT(EAX)_", "
- S @ZDATA@("1A")=$E(EASTR,1,($L(EASTR)-2)) ;remove last comma & space
- ;
- S @ZDATA@("1B")=$$PROCESS("1B.") ;Which facility?
- S @ZDATA@(2)=$$PROCESS(2.1) ;Vet's name
- S @ZDATA@(3)=$E($$PROCESS("3."),1,35) ;Other names used
- S EAX=$E($$PROCESS("3A."),1,30) ;Mother's maiden name
- I $E(EAX,$L(EAX))="," S EAX=$E(EAX,1,$L(EAX)-1)
- S @ZDATA@("3A")=EAX
- S @ZDATA@(4)=$$PROCESS("4.") ;Gender
- ;
- S EAX=$$PROCESS("4A.") ;Are You Spanish, Hispanic, or Latino?
- ;EAS*1.0*57 - print full word "UNKNOWN"
- S @ZDATA@("4A")=$S($E(EAX)="Y"!($E(EAX,1,3)="YES"):"YES",$E(EAX)="N"!($E(EAX,1,3)="NO"):"NO",$E(EAX,1,7)="UNKNOWN":"UNKNOWN",1:"")
- ;
- F EAX="4B","4C","4D","4E","4F","4G" D ;Race
- . I $E($$PROCESS(EAX_"."),1,3)="YES" S @ZDATA@(EAX)=" X " I 1
- . E S @ZDATA@(EAX)="___"
- ;
- S @ZDATA@(5)=$$PROCESS("5.") ;SSN
- S @ZDATA@(6)=$$PROCESS("6.") ;Claim number
- S @ZDATA@(7)=$$PROCESS("7.") ;Date of birth
- S @ZDATA@(8)=$$PROCESS("8.") ;Religion
- S EAX=$$PROCESS("8A."),EAY=$$PROCESS("8B.") ;Birth place city & state
- I (EAX]""),(EAY]"") S @ZDATA@("8A")=EAX_", "_EAY
- E S @ZDATA@("8A")=$S(EAX]"":EAX,EAY]"":EAY,1:"")
- 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@(11)=$$PROCESS("11.1") ;Work phone
- S @ZDATA@("11A")=$$PROCESS("11A.") ;E-mail
- S @ZDATA@("11B")=$$PROCESS("11B.") ;Want an appt?
- S @ZDATA@("11C")=$$PROCESS("11C.") ;Been seen before?
- S @ZDATA@("11D")=$$PROCESS("11D.") ;Location seen before
- ;
- ;EAS*1.0*60 -- add cell phone and pager
- S @ZDATA@("11G")=$$PROCESS("11A1.") ;Cell phone number
- S @ZDATA@("11H")=$$PROCESS("11A3.") ;Pager number
- ;
- S @ZDATA@(12)=$$PROCESS("12.") ;Marital status
- S @ZDATA@("13A")=$$PROCESS("13A.") ;Last branch of service
- S @ZDATA@("13B")=$$PROCESS("13B.") ;Last entry date
- S @ZDATA@("13C")=$$PROCESS("13C.") ;Last discharge date
- S @ZDATA@("13D")=$$PROCESS("13D.") ;Discharge type
- S @ZDATA@("13E")=$$PROCESS("13E.") ;Military service number
- ;
- F EAX="14A1","14A2","14B","14B2","14D3","14D4","14E","14F","14G","14G1","14I","14J","14K","14L" D
- . S EAY=$$PROCESS(EAX_".")
- . ;EAS*1.0*57 - no room on form here to print full word "UNKNOWN"
- . S @ZDATA@(EAX)=$S(EAY="Y"!(EAY="YES"):"YES",EAY="N"!(EAY="NO"):"NO",EAY="UNKNOWN":"UNK",1:"")
- ;
- S @ZDATA@("14B1")=$$PROCESS("14B1.") ;Rated percentage
- 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")
- ;
- 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")
- ;
- 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
- ;
- 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)
- ;
- BENEFIT(X) ; Return External format of benefit applied for
- ;
- Q $S(X="1A.1":"HEALTH SERVICES",X="1A.2":"NURSING HOME",X="1A.3":"DOMICILIARY",X="1A.4":"DENTAL",X="1A.5":"ENROLLMENT",1:"")
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZP6U 6328 printed Feb 18, 2025@23:21:12 Page 2
- EASEZP6U ;ALB/AMA,LBD - Print utility for 10-10EZ, Version 6 or greater; 10/23/00 ; 9/19/12 11:40am
- +1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,57,70,107**;Mar 15, 2001;Build 32
- +2 ;
- +3 QUIT
- +4 ;Parts of this routine were copied from EASEZPU (the other parts are
- +5 ;in EASEZPU2); if the version # of the 1010EZ application is 6.0 or
- +6 ;greater, then this routine will be executed.
- +7 ;
- 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 ; EASTR - Temporary String data variable
- +12 ; EAX,EAY - Temporary data variables
- +13 ; EACT - Temporary city variable
- +14 ;
- +15 NEW ZDATA,EZDATA,EASTR,EAX,EAY,EACT
- +16 ;
- +17 SET ZDATA=$NAME(^TMP("EASEZ",$JOB,1))
- +18 SET EZDATA=$NAME(^TMP("EZTEMP",$JOB,"I",1))
- +19 KILL @ZDATA
- +20 ;
- +21 ;Type Of Benefits Applied For
- +22 SET EASTR=""
- FOR EAX="1A.1","1A.2","1A.3","1A.4","1A.5"
- Begin DoDot:1
- +23 IF $$PROCESS(EAX)="UNKNOWN"
- SET EASTR="UNKNOWN, "
- SET EAX="1A.5"
- QUIT
- +24 IF $$PROCESS(EAX)="YES"
- SET EASTR=EASTR_$$BENEFIT(EAX)_", "
- End DoDot:1
- +25 ;remove last comma & space
- SET @ZDATA@("1A")=$EXTRACT(EASTR,1,($LENGTH(EASTR)-2))
- +26 ;
- +27 ;Which facility?
- SET @ZDATA@("1B")=$$PROCESS("1B.")
- +28 ;Vet's name
- SET @ZDATA@(2)=$$PROCESS(2.1)
- +29 ;Other names used
- SET @ZDATA@(3)=$EXTRACT($$PROCESS("3."),1,35)
- +30 ;Mother's maiden name
- SET EAX=$EXTRACT($$PROCESS("3A."),1,30)
- +31 IF $EXTRACT(EAX,$LENGTH(EAX))=","
- SET EAX=$EXTRACT(EAX,1,$LENGTH(EAX)-1)
- +32 SET @ZDATA@("3A")=EAX
- +33 ;Gender
- SET @ZDATA@(4)=$$PROCESS("4.")
- +34 ;
- +35 ;Are You Spanish, Hispanic, or Latino?
- SET EAX=$$PROCESS("4A.")
- +36 ;EAS*1.0*57 - print full word "UNKNOWN"
- +37 SET @ZDATA@("4A")=$SELECT($EXTRACT(EAX)="Y"!($EXTRACT(EAX,1,3)="YES"):"YES",$EXTRACT(EAX)="N"!($EXTRACT(EAX,1,3)="NO"):"NO",$EXTRACT(EAX,1,7)="UNKNOWN":"UNKNOWN",1:"")
- +38 ;
- +39 ;Race
- FOR EAX="4B","4C","4D","4E","4F","4G"
- Begin DoDot:1
- +40 IF $EXTRACT($$PROCESS(EAX_"."),1,3)="YES"
- SET @ZDATA@(EAX)=" X "
- IF 1
- +41 IF '$TEST
- SET @ZDATA@(EAX)="___"
- End DoDot:1
- +42 ;
- +43 ;SSN
- SET @ZDATA@(5)=$$PROCESS("5.")
- +44 ;Claim number
- SET @ZDATA@(6)=$$PROCESS("6.")
- +45 ;Date of birth
- SET @ZDATA@(7)=$$PROCESS("7.")
- +46 ;Religion
- SET @ZDATA@(8)=$$PROCESS("8.")
- +47 ;Birth place city & state
- SET EAX=$$PROCESS("8A.")
- SET EAY=$$PROCESS("8B.")
- +48 IF (EAX]"")
- IF (EAY]"")
- SET @ZDATA@("8A")=EAX_", "_EAY
- +49 IF '$TEST
- SET @ZDATA@("8A")=$SELECT(EAX]"":EAX,EAY]"":EAY,1:"")
- +50 ;Address
- SET @ZDATA@("9A")=$EXTRACT($$PROCESS("9A."),1,35)
- +51 ;City
- SET @ZDATA@("9B")=$EXTRACT($$PROCESS("9B."),1,32)
- +52 ;State
- SET @ZDATA@("9C")=$$PROCESS("9C.")
- +53 ;Zip
- SET @ZDATA@("9D")=$$PROCESS("9D.")
- +54 ;County
- SET @ZDATA@("9E")=$$PROCESS("9E.")
- +55 ;Province - EAS*1.0*70
- SET @ZDATA@("9F")=$$PROCESS("9F.")
- +56 ;Postal Code - EAS*1.0*70
- SET @ZDATA@("9G")=$$PROCESS("9G.")
- +57 ;Country - EAS*1.0*70
- SET @ZDATA@("9H")=$$PROCESS("9H.")
- +58 ;Home phone
- SET @ZDATA@(10)=$$PROCESS("10.1")
- +59 ;Work phone
- SET @ZDATA@(11)=$$PROCESS("11.1")
- +60 ;E-mail
- SET @ZDATA@("11A")=$$PROCESS("11A.")
- +61 ;Want an appt?
- SET @ZDATA@("11B")=$$PROCESS("11B.")
- +62 ;Been seen before?
- SET @ZDATA@("11C")=$$PROCESS("11C.")
- +63 ;Location seen before
- SET @ZDATA@("11D")=$$PROCESS("11D.")
- +64 ;
- +65 ;EAS*1.0*60 -- add cell phone and pager
- +66 ;Cell phone number
- SET @ZDATA@("11G")=$$PROCESS("11A1.")
- +67 ;Pager number
- SET @ZDATA@("11H")=$$PROCESS("11A3.")
- +68 ;
- +69 ;Marital status
- SET @ZDATA@(12)=$$PROCESS("12.")
- +70 ;Last branch of service
- SET @ZDATA@("13A")=$$PROCESS("13A.")
- +71 ;Last entry date
- SET @ZDATA@("13B")=$$PROCESS("13B.")
- +72 ;Last discharge date
- SET @ZDATA@("13C")=$$PROCESS("13C.")
- +73 ;Discharge type
- SET @ZDATA@("13D")=$$PROCESS("13D.")
- +74 ;Military service number
- SET @ZDATA@("13E")=$$PROCESS("13E.")
- +75 ;
- +76 FOR EAX="14A1","14A2","14B","14B2","14D3","14D4","14E","14F","14G","14G1","14I","14J","14K","14L"
- Begin DoDot:1
- +77 SET EAY=$$PROCESS(EAX_".")
- +78 ;EAS*1.0*57 - no room on form here to print full word "UNKNOWN"
- +79 SET @ZDATA@(EAX)=$SELECT(EAY="Y"!(EAY="YES"):"YES",EAY="N"!(EAY="NO"):"NO",EAY="UNKNOWN":"UNK",1:"")
- End DoDot:1
- +80 ;
- +81 ;Rated percentage
- SET @ZDATA@("14B1")=$$PROCESS("14B1.")
- +82 ;Medicare Part A effective date
- SET @ZDATA@("14K1")=$$PROCESS("14K1.")
- +83 ;Medicare Part B effective date
- SET @ZDATA@("14L1")=$$PROCESS("14L1.")
- +84 ;Medicare claim number
- SET @ZDATA@("14M")=$$PROCESS("14M.")
- +85 ;Name on Medicare card
- SET @ZDATA@("14N")=$$PROCESS("14N.")
- +86 ;Vet's employment status^Date of retirement
- +87 SET @ZDATA@("15A")=$$PROCESS("15A.1")_U_$$PROCESS("15A.2")
- +88 ;
- +89 ;Company's name
- SET EAX=$EXTRACT($$PROCESS("15B.1"),1,30)
- +90 ;Company's city
- SET EACT=""
- SET EACT=$EXTRACT($$PROCESS("15B.3"),1,30)
- +91 ;if there's a city, add comma & space
- IF EACT]""
- SET EACT=EACT_", "
- +92 ;Company's name^Street^City, State Zip^Phone
- +93 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")
- +94 SET @ZDATA@("15B")=EAX
- +95 ;
- +96 ;Spouse's employment status^Date of retirement
- +97 SET @ZDATA@("16A")=$$PROCESS("16A.1")_U_$$PROCESS("16A.2")
- +98 ;
- +99 ;Spouse's company's name
- SET EAX=$EXTRACT($$PROCESS("16B.1"),1,30)
- +100 ;Spouse's company's city
- SET EACT=""
- SET EACT=$EXTRACT($$PROCESS("16B.3"),1,30)
- +101 ;if there's a city, add comma & space
- IF EACT]""
- SET EACT=EACT_", "
- +102 ;Spouse's company's name^Street^City, State Zip^Phone
- +103 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")
- +104 SET @ZDATA@("16B")=EAX
- +105 ;
- +106 QUIT
- +107 ;
- 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)
- +1 ;
- BENEFIT(X) ; Return External format of benefit applied for
- +1 ;
- +2 QUIT $SELECT(X="1A.1":"HEALTH SERVICES",X="1A.2":"NURSING HOME",X="1A.3":"DOMICILIARY",X="1A.4":"DENTAL",X="1A.5":"ENROLLMENT",1:"")
