EASEZRPI ;ALB/AMA - Print 1010EZR, Cont. - OTHER INSURANCE PAGE
;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
;
Q
;
EN(EALNE,EAINFO) ;Print multiple insurance companies
;Called from EN^EASEZRPF
; Input
; EALNE - Array of line formats for output
; EAINFO - Application Data array, see SETUP^EASEZRPF
N EASD,X
;
;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("EASEZR",$J,"I"))
D HDR^EASEZRPF(.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^EASEZRPF(.EALNE,.EAINFO)
Q
;
AI ; Print SECTION II - ADDITIONAL INSURANCE INFORMATION
;
W !,"1."_(X+1)_" HEALTH INSURANCE COMPANY NAME "_(X+1),?38,"|2."_(X+1)_" ADDRESS",?104,"|3."_(X+1)_" TELEPHONE"
W !?4,@EASD@(X,"17A"),?38,"| ",$P(@EASD@(X,"17E"),U),?104,"| ",@EASD@(X,"17I")
W !?38,"| ",$P(@EASD@(X,"17E"),U,2),?104,"|"
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
;
W !,"4."_(X+1)_" NAME OF POLICY HOLDER",?50,"|5."_(X+1)_" POLICY NUMBER",?85,"|6."_(X+1)_" GROUP CODE"
W !?4,@EASD@(X,"17B"),?50,"| ",@EASD@(X,"17C"),?85,"| ",@EASD@(X,"17D")
W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZRPI 1427 printed Dec 13, 2024@01:55:06 Page 2
EASEZRPI ;ALB/AMA - Print 1010EZR, Cont. - OTHER INSURANCE PAGE
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
+2 ;
+3 QUIT
+4 ;
EN(EALNE,EAINFO) ;Print multiple insurance companies
+1 ;Called from EN^EASEZRPF
+2 ; Input
+3 ; EALNE - Array of line formats for output
+4 ; EAINFO - Application Data array, see SETUP^EASEZRPF
+5 NEW EASD,X
+6 ;
+7 ;Expecting 4 additional insurance companies or less, and with only 5
+8 ;lines per entry, so no need to worry about going to another page
+9 SET EASD=$NAME(^TMP("EASEZR",$JOB,"I"))
+10 DO HDR^EASEZRPF(.EALNE,.EAINFO)
+11 WRITE !!?42,"SECTION II - INSURANCE INFORMATION - ADDITIONAL"
+12 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+13 ;
+14 FOR X=1:1
if '$DATA(@EASD@(X))
QUIT
Begin DoDot:1
+15 IF X>1
WRITE !?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+16 DO AI
End DoDot:1
+17 ;
+18 DO FT^EASEZRPF(.EALNE,.EAINFO)
+19 QUIT
+20 ;
AI ; Print SECTION II - ADDITIONAL INSURANCE INFORMATION
+1 ;
+2 WRITE !,"1."_(X+1)_" HEALTH INSURANCE COMPANY NAME "_(X+1),?38,"|2."_(X+1)_" ADDRESS",?104,"|3."_(X+1)_" TELEPHONE"
+3 WRITE !?4,@EASD@(X,"17A"),?38,"| ",$PIECE(@EASD@(X,"17E"),U),?104,"| ",@EASD@(X,"17I")
+4 WRITE !?38,"| ",$PIECE(@EASD@(X,"17E"),U,2),?104,"|"
+5 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+6 ;
+7 WRITE !,"4."_(X+1)_" NAME OF POLICY HOLDER",?50,"|5."_(X+1)_" POLICY NUMBER",?85,"|6."_(X+1)_" GROUP CODE"
+8 WRITE !?4,@EASD@(X,"17B"),?50,"| ",@EASD@(X,"17C"),?85,"| ",@EASD@(X,"17D")
+9 WRITE ?131,$CHAR(13)
if EALNE("ULC")="-"
WRITE !
WRITE EALNE("UL")
+10 QUIT
