source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZRPI.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1EASEZRPI ;ALB/AMA - Print 1010EZR, Cont. - OTHER INSURANCE PAGE
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
3 ;
4 Q
5 ;
6EN(EALNE,EAINFO) ;Print multiple insurance companies
7 ;Called from EN^EASEZRPF
8 ; Input
9 ; EALNE - Array of line formats for output
10 ; EAINFO - Application Data array, see SETUP^EASEZRPF
11 N EASD,X
12 ;
13 ;Expecting 4 additional insurance companies or less, and with only 5
14 ;lines per entry, so no need to worry about going to another page
15 S EASD=$NA(^TMP("EASEZR",$J,"I"))
16 D HDR^EASEZRPF(.EALNE,.EAINFO)
17 W !!?42,"SECTION II - INSURANCE INFORMATION - ADDITIONAL"
18 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
19 ;
20 F X=1:1 Q:'$D(@EASD@(X)) D
21 . I X>1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
22 . D AI
23 ;
24 D FT^EASEZRPF(.EALNE,.EAINFO)
25 Q
26 ;
27AI ; Print SECTION II - ADDITIONAL INSURANCE INFORMATION
28 ;
29 W !,"1."_(X+1)_" HEALTH INSURANCE COMPANY NAME "_(X+1),?38,"|2."_(X+1)_" ADDRESS",?104,"|3."_(X+1)_" TELEPHONE"
30 W !?4,@EASD@(X,"17A"),?38,"| ",$P(@EASD@(X,"17E"),U),?104,"| ",@EASD@(X,"17I")
31 W !?38,"| ",$P(@EASD@(X,"17E"),U,2),?104,"|"
32 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
33 ;
34 W !,"4."_(X+1)_" NAME OF POLICY HOLDER",?50,"|5."_(X+1)_" POLICY NUMBER",?85,"|6."_(X+1)_" GROUP CODE"
35 W !?4,@EASD@(X,"17B"),?50,"| ",@EASD@(X,"17C"),?85,"| ",@EASD@(X,"17D")
36 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
37 Q
Note: See TracBrowser for help on using the repository browser.