Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EASEZRPI

EASEZRPI.m

Go to the documentation of this file.
  1. EASEZRPI ;ALB/AMA - Print 1010EZR, Cont. - OTHER INSURANCE PAGE
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
  1. ;
  1. Q
  1. ;
  1. EN(EALNE,EAINFO) ;Print multiple insurance companies
  1. ;Called from EN^EASEZRPF
  1. ; Input
  1. ; EALNE - Array of line formats for output
  1. ; EAINFO - Application Data array, see SETUP^EASEZRPF
  1. N EASD,X
  1. ;
  1. ;Expecting 4 additional insurance companies or less, and with only 5
  1. ;lines per entry, so no need to worry about going to another page
  1. S EASD=$NA(^TMP("EASEZR",$J,"I"))
  1. D HDR^EASEZRPF(.EALNE,.EAINFO)
  1. W !!?42,"SECTION II - INSURANCE INFORMATION - ADDITIONAL"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. F X=1:1 Q:'$D(@EASD@(X)) D
  1. . I X>1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. . D AI
  1. ;
  1. D FT^EASEZRPF(.EALNE,.EAINFO)
  1. Q
  1. ;
  1. AI ; Print SECTION II - ADDITIONAL INSURANCE INFORMATION
  1. ;
  1. W !,"1."_(X+1)_" HEALTH INSURANCE COMPANY NAME "_(X+1),?38,"|2."_(X+1)_" ADDRESS",?104,"|3."_(X+1)_" TELEPHONE"
  1. W !?4,@EASD@(X,"17A"),?38,"| ",$P(@EASD@(X,"17E"),U),?104,"| ",@EASD@(X,"17I")
  1. W !?38,"| ",$P(@EASD@(X,"17E"),U,2),?104,"|"
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. ;
  1. W !,"4."_(X+1)_" NAME OF POLICY HOLDER",?50,"|5."_(X+1)_" POLICY NUMBER",?85,"|6."_(X+1)_" GROUP CODE"
  1. W !?4,@EASD@(X,"17B"),?50,"| ",@EASD@(X,"17C"),?85,"| ",@EASD@(X,"17D")
  1. W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1. Q