source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZRPF.m@ 1394

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

initial load of FOIAVistA 6/30/08 version

File size: 4.2 KB
Line 
1EASEZRPF ;ALB/AMA - Print 1010EZR
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Mar 15, 2001
3 ;
4 ; These routines print a version of the OMB approved VA10-10EZR form.
5 ; No local modifications to these routines will be made. Any changes
6 ; will be provided through the National Patch Module release process.
7 ;
8 Q
9EN ; Entry point to print 1010EZR
10 N EALNE,EAINFO,EAADL,EAABRT,EAMULT
11 ;
12 D SETUP(.EALNE,.EAINFO,EASAPP,EASDFN)
13 ;
14 M ^TMP("EASEZR",$J)=^TMP("EASEZ",$J) K ^TMP("EASEZ",$J)
15 M ^TMP("EZRDATA",$J)=^TMP("EZDATA",$J) K ^TMP("EZDATA",$J)
16 M ^TMP("EZRINDEX",$J)=^TMP("EZINDEX",$J) K ^TMP("EZINDEX",$J)
17 M ^TMP("EZRTEMP",$J)=^TMP("EZTEMP",$J) K ^TMP("EZTEMP",$J)
18 M ^TMP("EZRDISP",$J)=^TMP("EZDISP",$J) K ^TMP("EZDISP",$J)
19 ;
20 D PAGE1^EASEZRPU
21 D EN^EASEZRP1(.EALNE,.EAINFO)
22 ;
23 D PAGE2^EASEZRPP
24 D EN^EASEZRP2(.EALNE,.EAINFO)
25 ;
26 D EN^EASEZRP3(.EALNE,.EAINFO)
27 ;
28 ;Print additional insurance pages if more than 1 insurance company
29 F EAADL=1:1 D Q:$G(EAABRT)
30 . I '$D(^TMP("EZRTEMP",$J,"IA",EAADL)) S EAABRT=1 Q
31 . S EAMULT=1
32 . D PAGEI^EASEZRPU(EAADL)
33 I $G(EAMULT) D EN^EASEZRPI(.EALNE,.EAINFO)
34 ;
35 ;Print additional dependent pages if more than 1 dependent
36 S (EAABRT,EAMULT)=0 F EAADL=1:1 D Q:$G(EAABRT)
37 . I '$D(^TMP("EZRTEMP",$J,"IIB",EAADL)) S EAABRT=1 Q
38 . S EAMULT=1
39 . D PAGEN^EASEZRPU(EAADL)
40 I EAMULT D EN^EASEZRPD(.EALNE,.EAINFO)
41 ;
42 ;Print additional dependent financial pages if more
43 ;than 1 dependent, starting with the 2nd one
44 ;(since Child 1 info already displayed on pages 2 & 3)
45 S (EAABRT,EAMULT)=0 F EAADL=2:1 D Q:$G(EAABRT)
46 . I '$D(^TMP("EZRTEMP",$J,"IIF",EAADL)) S EAABRT=1 Q
47 . S EAMULT=1
48 . D PAGEDFF^EASEZRPP(EAADL)
49 S EAABRT=0 F EAADL=2:1 D Q:$G(EAABRT)
50 . I '$D(^TMP("EZRTEMP",$J,"IIG",EAADL)) S EAABRT=1 Q
51 . S EAMULT=1
52 . D PAGEDFG^EASEZRPP(EAADL)
53 I EAMULT D EN^EASEZRPM(.EALNE,.EAINFO)
54 ;
55ENQUIT ; Clean up temp globals after printing is complete
56 K ^TMP("EASEZR",$J)
57 K ^TMP("EZRDATA",$J)
58 K ^TMP("EZRINDEX",$J)
59 K ^TMP("EZRTEMP",$J)
60 K ^TMP("EZRDISP",$J)
61 Q
62 ;
63SETUP(EALNE,EAINFO,EASAPP,EASDFN) ; Set-up print variables
64 ; Input
65 ; EALNE - Line format array
66 ; EAINFO - Misc Data
67 ; ("CLRK") - Clerk's initials
68 ; ("ID") - Web ID from #712
69 ; ("PGE") - Page number
70 ; ("VET" ) - Veteran's name submitting the application
71 ; ("SSN") - Veteran's SSN
72 ; ("DISC") - Financial Disclosure status
73 ; EASAPP - IEN of applicant on the 1010EZ HOLDING File, #712
74 ; EASDFN - DFN of applicant in the PATIENT File, #2
75 ;
76 N X
77 ;
78 ; Build Line array for printout
79 S EALNE("ULC")=$S('($D(IOST)#2):"-",IOST["C-":"-",1:"_")
80 S EALNE("D")="",EALNE("DD")="",EALNE("UL")=""
81 S $P(EALNE("D"),"-",133)="",$P(EALNE("DD"),"=",133)="",$P(EALNE("UL"),EALNE("ULC"),133)=""
82 ;
83 ; Set up information array & get clerk's initials
84 S ZUSR=$G(ZUSR)
85 I +ZUSR>0 D
86 . S EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
87 . I EAINFO("CLRK")']"" D
88 . . S X=$$GET1^DIQ(200,ZUSR,.01)
89 . . S EAINFO("CLRK")=$E($P(X,",",2),1)_$E($P(X,","),1)
90 E D
91 . S EAINFO("CLRK")="unk"
92 ;
93 ; Set data elements
94 S EAINFO("PGE")=0
95 S EAINFO("ID")=$$GET1^DIQ(712,EASAPP_",",.1)
96 S EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
97 S EAINFO("DISC")=$$GET1^DIQ(712,EASAPP_",",3.8)
98 S EAINFO("EASAPP")=EASAPP
99 S EAINFO("VET")=$$GET1^DIQ(712,EASAPP_",",1)
100 S EAINFO("SSN")=$$GET1^DIQ(712,EASAPP_",",2)
101 ;
102 ; Retrieve application data from holding file, #712
103 D EN^EASEZC1(EASAPP)
104 D SORT^EASEZC3(EASAPP)
105SETQ Q
106 ;
107HDRMAIN(EALNE) ; PRINT THE FIRST PAGE HEADER INFORMATION
108 W @IOF
109 W ?44,"OMB APPROVED NO. 2900-0091 / Estimated Burden Avg. 24 min. / Expiration Date: 6/30/2007",!,EALNE("DD")
110 W !,"D E P A R T M E N T O F V E T E R A N S A F F A I R S",?76,"HEALTH BENEFITS RENEWAL FORM",!,EALNE("DD")
111 Q
112 ;
113HDR(EALNE,EAINFO) ; PRINT THE PAGE HEADER INFO FOR PAGES GREATER THAN 1
114 W @IOF
115 W "DEPARTMENT OF VETERANS AFFAIRS",?40,"| VETERAN'S NAME (Last, First, Middle)",?106,"| SOCIAL SECURITY NUMBER"
116 W !?40,"| ",EAINFO("VET"),?106,"| ",EAINFO("SSN")
117 W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
118 Q
119 ;
120FT(EALNE,EAINFO) ; PRINT THE PAGE FOOTER INFORMATION
121 W !,EALNE("DD")
122 W !,"VA FORM 10-10EZR FEB 2005",?40,"PRINTED: ",EAINFO("PD")
123 W ?80,"Clerk: ",EAINFO("CLRK"),"/",EAINFO("ID")
124 W ?120,"PAGE " S EAINFO("PGE")=EAINFO("PGE")+1 W EAINFO("PGE")
125 Q
Note: See TracBrowser for help on using the repository browser.