- 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 Feb 18, 2025@23:21:31 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