| 1 | EASEZRPF ;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
|
|---|
| 9 | EN ; 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 | ;
|
|---|
| 55 | ENQUIT ; 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 | ;
|
|---|
| 63 | SETUP(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)
|
|---|
| 105 | SETQ Q
|
|---|
| 106 | ;
|
|---|
| 107 | HDRMAIN(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 | ;
|
|---|
| 113 | HDR(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 | ;
|
|---|
| 120 | FT(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
|
|---|
