EASEZP6I ;ALB/AMA,TDM - Print 1010EZ, Version 6 or greater, Cont. - OTHER INSURANCE PAGE ; 1/31/13 1:48pm
;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,107**;Mar 15, 2001;Build 32
;
;New page, to print multiple insurance companies
EN(EALNE,EAINFO) ;Entry point for VA 10-10EZ, Version 6 or greater, page "I"
; Called from EN^EASEZP6F
N X,EASD
;
;Expecting 4 additional insurance companies or less, and with only 5
;lines per entry, so no need to worry about going to another page
S EASD=$NA(^TMP("EASEZ",$J,"I"))
D HDR^EASEZP6F(.EALNE,.EAINFO)
W !!?42,"SECTION II - INSURANCE INFORMATION - ADDITIONAL"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
F X=1:1 Q:'$D(@EASD@(X)) D
. I X>1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
. D AI
;
D FT^EASEZP6F(.EALNE,.EAINFO)
Q
;
AI ; Print SECTION II - ADDITIONAL INSURANCE INFORMATION
;
W !,"1."_(X+1)_" HEALTH INSURANCE COMPANY NAME "_(X+1),?50,"|2."_(X+1)_" ADDRESS",?104,"|3."_(X+1)_" TELEPHONE"
W !?4,@EASD@(X,"17A")
I @EASD@(X,"17E")'="" W ?50,"| ",@EASD@(X,"17E"),", ",@EASD@(X,"17F"),", ",@EASD@(X,"17G")," ",@EASD@(X,"17H")
W ?104,"| ",@EASD@(X,"17J")
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !,"4."_(X+1)_" NAME OF POLICY HOLDER",?50,"|5."_(X+1)_" POLICY NUMBER",?104,"|6."_(X+1)_" GROUP CODE"
W !?4,@EASD@(X,"17B"),?50,"| ",@EASD@(X,"17C"),?104,"| ",@EASD@(X,"17D")
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZP6I 1468 printed Oct 16, 2024@17:55:33 Page 2
EASEZP6I ;ALB/AMA,TDM - Print 1010EZ, Version 6 or greater, Cont. - OTHER INSURANCE PAGE ; 1/31/13 1:48pm
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,60,107**;Mar 15, 2001;Build 32
+2 ;
+3 ;New page, to print multiple insurance companies
EN(EALNE,EAINFO) ;Entry point for VA 10-10EZ, Version 6 or greater, page "I"
+1 ; Called from EN^EASEZP6F
+2 NEW X,EASD
+3 ;
+4 ;Expecting 4 additional insurance companies or less, and with only 5
+5 ;lines per entry, so no need to worry about going to another page
+6 SET EASD=$NAME(^TMP("EASEZ",$JOB,"I"))
+7 DO HDR^EASEZP6F(.EALNE,.EAINFO)
+8 WRITE !!?42,"SECTION II - INSURANCE INFORMATION - ADDITIONAL"
+9 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+10 ;
+11 FOR X=1:1
if '$DATA(@EASD@(X))
QUIT
Begin DoDot:1
+12 IF X>1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+13 DO AI
End DoDot:1
+14 ;
+15 DO FT^EASEZP6F(.EALNE,.EAINFO)
+16 QUIT
+17 ;
AI ; Print SECTION II - ADDITIONAL INSURANCE INFORMATION
+1 ;
+2 WRITE !,"1."_(X+1)_" HEALTH INSURANCE COMPANY NAME "_(X+1),?50,"|2."_(X+1)_" ADDRESS",?104,"|3."_(X+1)_" TELEPHONE"
+3 WRITE !?4,@EASD@(X,"17A")
+4 IF @EASD@(X,"17E")'=""
WRITE ?50,"| ",@EASD@(X,"17E"),", ",@EASD@(X,"17F"),", ",@EASD@(X,"17G")," ",@EASD@(X,"17H")
+5 WRITE ?104,"| ",@EASD@(X,"17J")
+6 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+7 ;
+8 WRITE !,"4."_(X+1)_" NAME OF POLICY HOLDER",?50,"|5."_(X+1)_" POLICY NUMBER",?104,"|6."_(X+1)_" GROUP CODE"
+9 WRITE !?4,@EASD@(X,"17B"),?50,"| ",@EASD@(X,"17C"),?104,"| ",@EASD@(X,"17D")
+10 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+11 QUIT
