source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZP6I.m@ 861

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

initial load of WorldVistAEHR

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