- EASEZRPF ;ALB/AMA,TDM - Print 1010EZR ; 2/8/13 12:00pm
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,107**;Mar 15, 2001;Build 32
- ;
- ; These routines print a version of the OMB approved VA10-10EZR form.
- ; No local modifications to these routines will be made. Any changes
- ; will be provided through the National Patch Module release process.
- ;
- Q
- EN ; Entry point to print 1010EZR
- N EALNE,EAINFO,EAADL,EAABRT,EAMULT
- ;
- D SETUP(.EALNE,.EAINFO,EASAPP,EASDFN)
- ;
- M ^TMP("EASEZR",$J)=^TMP("EASEZ",$J) K ^TMP("EASEZ",$J)
- M ^TMP("EZRDATA",$J)=^TMP("EZDATA",$J) K ^TMP("EZDATA",$J)
- M ^TMP("EZRINDEX",$J)=^TMP("EZINDEX",$J) K ^TMP("EZINDEX",$J)
- M ^TMP("EZRTEMP",$J)=^TMP("EZTEMP",$J) K ^TMP("EZTEMP",$J)
- M ^TMP("EZRDISP",$J)=^TMP("EZDISP",$J) K ^TMP("EZDISP",$J)
- ;
- D PAGE1^EASEZRPU
- D EN^EASEZRP1(.EALNE,.EAINFO)
- ;
- D PAGE2^EASEZRPP
- D EN^EASEZRP2(.EALNE,.EAINFO)
- ;
- D EN^EASEZRP3(.EALNE,.EAINFO)
- ;
- ;Print additional insurance pages if more than 1 insurance company
- F EAADL=1:1 D Q:$G(EAABRT)
- . I '$D(^TMP("EZRTEMP",$J,"IA",EAADL)) S EAABRT=1 Q
- . S EAMULT=1
- . D PAGEI^EASEZRPU(EAADL)
- I $G(EAMULT) D EN^EASEZRPI(.EALNE,.EAINFO)
- ;
- ;Print additional dependent pages if more than 1 dependent
- S (EAABRT,EAMULT)=0 F EAADL=1:1 D Q:$G(EAABRT)
- . I '$D(^TMP("EZRTEMP",$J,"IIB",EAADL)) S EAABRT=1 Q
- . S EAMULT=1
- . D PAGEN^EASEZRPU(EAADL)
- I EAMULT D EN^EASEZRPD(.EALNE,.EAINFO)
- ;
- ;Print additional dependent financial pages if more
- ;than 1 dependent, starting with the 2nd one
- ;(since Child 1 info already displayed on pages 2 & 3)
- S (EAABRT,EAMULT)=0 F EAADL=2:1 D Q:$G(EAABRT)
- . I '$D(^TMP("EZRTEMP",$J,"IIF",EAADL)) S EAABRT=1 Q
- . S EAMULT=1
- . D PAGEDFF^EASEZRPP(EAADL)
- S EAABRT=0 F EAADL=2:1 D Q:$G(EAABRT)
- . I '$D(^TMP("EZRTEMP",$J,"IIG",EAADL)) S EAABRT=1 Q
- . S EAMULT=1
- . D PAGEDFG^EASEZRPP(EAADL)
- I EAMULT D EN^EASEZRPM(.EALNE,.EAINFO)
- ;
- ENQUIT ; Clean up temp globals after printing is complete
- K ^TMP("EASEZR",$J)
- K ^TMP("EZRDATA",$J)
- K ^TMP("EZRINDEX",$J)
- K ^TMP("EZRTEMP",$J)
- K ^TMP("EZRDISP",$J)
- Q
- ;
- SETUP(EALNE,EAINFO,EASAPP,EASDFN) ; Set-up print variables
- ; Input
- ; EALNE - Line format array
- ; EAINFO - Misc Data
- ; ("CLRK") - Clerk's initials
- ; ("ID") - Web ID from #712
- ; ("PGE") - Page number
- ; ("VET" ) - Veteran's name submitting the application
- ; ("SSN") - Veteran's SSN
- ; ("DISC") - Financial Disclosure status
- ; EASAPP - IEN of applicant on the 1010EZ HOLDING File, #712
- ; EASDFN - DFN of applicant in the PATIENT File, #2
- ;
- N X
- ;
- ; Build Line array for printout
- S EALNE("ULC")=$S('($D(IOST)#2):"-",IOST["C-":"-",1:"_")
- S EALNE("D")="",EALNE("DD")="",EALNE("UL")=""
- S $P(EALNE("D"),"-",133)="",$P(EALNE("DD"),"=",133)="",$P(EALNE("UL"),EALNE("ULC"),133)=""
- ;
- ; Set up information array & get clerk's initials
- S ZUSR=$G(ZUSR)
- I +ZUSR>0 D
- . S EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
- . I EAINFO("CLRK")']"" D
- . . S X=$$GET1^DIQ(200,ZUSR,.01)
- . . S EAINFO("CLRK")=$E($P(X,",",2),1)_$E($P(X,","),1)
- E D
- . S EAINFO("CLRK")="unk"
- ;
- ; Set data elements
- S EAINFO("PGE")=0
- S EAINFO("ID")=$$GET1^DIQ(712,EASAPP_",",.1)
- S EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
- S EAINFO("DISC")=$$GET1^DIQ(712,EASAPP_",",3.8)
- S EAINFO("EASAPP")=EASAPP
- S EAINFO("VET")=$$GET1^DIQ(712,EASAPP_",",1)
- S EAINFO("SSN")=$$GET1^DIQ(712,EASAPP_",",2)
- ;
- ; Retrieve application data from holding file, #712
- D EN^EASEZC1(EASAPP)
- D SORT^EASEZC3(EASAPP)
- SETQ Q
- ;
- HDRMAIN(EALNE) ; PRINT THE FIRST PAGE HEADER INFORMATION
- W @IOF
- W ?44,"OMB APPROVED NO. 2900-0091 / Estimated Burden Avg. 24 min.",!,EALNE("DD")
- 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")
- Q
- ;
- HDR(EALNE,EAINFO) ; PRINT THE PAGE HEADER INFO FOR PAGES GREATER THAN 1
- W @IOF
- W "DEPARTMENT OF VETERANS AFFAIRS",?40,"| VETERAN'S NAME (Last, First, Middle)",?106,"| SOCIAL SECURITY NUMBER"
- W !?40,"| ",EAINFO("VET"),?106,"| ",EAINFO("SSN")
- W ?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
- Q
- ;
- FT(EALNE,EAINFO) ; PRINT THE PAGE FOOTER INFORMATION
- W !,EALNE("DD")
- W !,"VA FORM 10-10EZR FEB 2011",?40,"PRINTED: ",EAINFO("PD")
- W ?80,"Clerk: ",EAINFO("CLRK"),"/",EAINFO("ID")
- W ?120,"PAGE " S EAINFO("PGE")=EAINFO("PGE")+1 W EAINFO("PGE")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZRPF 4403 printed Mar 13, 2025@20:59:46 Page 2
- EASEZRPF ;ALB/AMA,TDM - Print 1010EZR ; 2/8/13 12:00pm
- +1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,107**;Mar 15, 2001;Build 32
- +2 ;
- +3 ; These routines print a version of the OMB approved VA10-10EZR form.
- +4 ; No local modifications to these routines will be made. Any changes
- +5 ; will be provided through the National Patch Module release process.
- +6 ;
- +7 QUIT
- EN ; Entry point to print 1010EZR
- +1 NEW EALNE,EAINFO,EAADL,EAABRT,EAMULT
- +2 ;
- +3 DO SETUP(.EALNE,.EAINFO,EASAPP,EASDFN)
- +4 ;
- +5 MERGE ^TMP("EASEZR",$JOB)=^TMP("EASEZ",$JOB)
- KILL ^TMP("EASEZ",$JOB)
- +6 MERGE ^TMP("EZRDATA",$JOB)=^TMP("EZDATA",$JOB)
- KILL ^TMP("EZDATA",$JOB)
- +7 MERGE ^TMP("EZRINDEX",$JOB)=^TMP("EZINDEX",$JOB)
- KILL ^TMP("EZINDEX",$JOB)
- +8 MERGE ^TMP("EZRTEMP",$JOB)=^TMP("EZTEMP",$JOB)
- KILL ^TMP("EZTEMP",$JOB)
- +9 MERGE ^TMP("EZRDISP",$JOB)=^TMP("EZDISP",$JOB)
- KILL ^TMP("EZDISP",$JOB)
- +10 ;
- +11 DO PAGE1^EASEZRPU
- +12 DO EN^EASEZRP1(.EALNE,.EAINFO)
- +13 ;
- +14 DO PAGE2^EASEZRPP
- +15 DO EN^EASEZRP2(.EALNE,.EAINFO)
- +16 ;
- +17 DO EN^EASEZRP3(.EALNE,.EAINFO)
- +18 ;
- +19 ;Print additional insurance pages if more than 1 insurance company
- +20 FOR EAADL=1:1
- Begin DoDot:1
- +21 IF '$DATA(^TMP("EZRTEMP",$JOB,"IA",EAADL))
- SET EAABRT=1
- QUIT
- +22 SET EAMULT=1
- +23 DO PAGEI^EASEZRPU(EAADL)
- End DoDot:1
- if $GET(EAABRT)
- QUIT
- +24 IF $GET(EAMULT)
- DO EN^EASEZRPI(.EALNE,.EAINFO)
- +25 ;
- +26 ;Print additional dependent pages if more than 1 dependent
- +27 SET (EAABRT,EAMULT)=0
- FOR EAADL=1:1
- Begin DoDot:1
- +28 IF '$DATA(^TMP("EZRTEMP",$JOB,"IIB",EAADL))
- SET EAABRT=1
- QUIT
- +29 SET EAMULT=1
- +30 DO PAGEN^EASEZRPU(EAADL)
- End DoDot:1
- if $GET(EAABRT)
- QUIT
- +31 IF EAMULT
- DO EN^EASEZRPD(.EALNE,.EAINFO)
- +32 ;
- +33 ;Print additional dependent financial pages if more
- +34 ;than 1 dependent, starting with the 2nd one
- +35 ;(since Child 1 info already displayed on pages 2 & 3)
- +36 SET (EAABRT,EAMULT)=0
- FOR EAADL=2:1
- Begin DoDot:1
- +37 IF '$DATA(^TMP("EZRTEMP",$JOB,"IIF",EAADL))
- SET EAABRT=1
- QUIT
- +38 SET EAMULT=1
- +39 DO PAGEDFF^EASEZRPP(EAADL)
- End DoDot:1
- if $GET(EAABRT)
- QUIT
- +40 SET EAABRT=0
- FOR EAADL=2:1
- Begin DoDot:1
- +41 IF '$DATA(^TMP("EZRTEMP",$JOB,"IIG",EAADL))
- SET EAABRT=1
- QUIT
- +42 SET EAMULT=1
- +43 DO PAGEDFG^EASEZRPP(EAADL)
- End DoDot:1
- if $GET(EAABRT)
- QUIT
- +44 IF EAMULT
- DO EN^EASEZRPM(.EALNE,.EAINFO)
- +45 ;
- ENQUIT ; Clean up temp globals after printing is complete
- +1 KILL ^TMP("EASEZR",$JOB)
- +2 KILL ^TMP("EZRDATA",$JOB)
- +3 KILL ^TMP("EZRINDEX",$JOB)
- +4 KILL ^TMP("EZRTEMP",$JOB)
- +5 KILL ^TMP("EZRDISP",$JOB)
- +6 QUIT
- +7 ;
- SETUP(EALNE,EAINFO,EASAPP,EASDFN) ; Set-up print variables
- +1 ; Input
- +2 ; EALNE - Line format array
- +3 ; EAINFO - Misc Data
- +4 ; ("CLRK") - Clerk's initials
- +5 ; ("ID") - Web ID from #712
- +6 ; ("PGE") - Page number
- +7 ; ("VET" ) - Veteran's name submitting the application
- +8 ; ("SSN") - Veteran's SSN
- +9 ; ("DISC") - Financial Disclosure status
- +10 ; EASAPP - IEN of applicant on the 1010EZ HOLDING File, #712
- +11 ; EASDFN - DFN of applicant in the PATIENT File, #2
- +12 ;
- +13 NEW X
- +14 ;
- +15 ; Build Line array for printout
- +16 SET EALNE("ULC")=$SELECT('($DATA(IOST)#2):"-",IOST["C-":"-",1:"_")
- +17 SET EALNE("D")=""
- SET EALNE("DD")=""
- SET EALNE("UL")=""
- +18 SET $PIECE(EALNE("D"),"-",133)=""
- SET $PIECE(EALNE("DD"),"=",133)=""
- SET $PIECE(EALNE("UL"),EALNE("ULC"),133)=""
- +19 ;
- +20 ; Set up information array & get clerk's initials
- +21 SET ZUSR=$GET(ZUSR)
- +22 IF +ZUSR>0
- Begin DoDot:1
- +23 SET EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
- +24 IF EAINFO("CLRK")']""
- Begin DoDot:2
- +25 SET X=$$GET1^DIQ(200,ZUSR,.01)
- +26 SET EAINFO("CLRK")=$EXTRACT($PIECE(X,",",2),1)_$EXTRACT($PIECE(X,","),1)
- End DoDot:2
- End DoDot:1
- +27 IF '$TEST
- Begin DoDot:1
- +28 SET EAINFO("CLRK")="unk"
- End DoDot:1
- +29 ;
- +30 ; Set data elements
- +31 SET EAINFO("PGE")=0
- +32 SET EAINFO("ID")=$$GET1^DIQ(712,EASAPP_",",.1)
- +33 SET EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
- +34 SET EAINFO("DISC")=$$GET1^DIQ(712,EASAPP_",",3.8)
- +35 SET EAINFO("EASAPP")=EASAPP
- +36 SET EAINFO("VET")=$$GET1^DIQ(712,EASAPP_",",1)
- +37 SET EAINFO("SSN")=$$GET1^DIQ(712,EASAPP_",",2)
- +38 ;
- +39 ; Retrieve application data from holding file, #712
- +40 DO EN^EASEZC1(EASAPP)
- +41 DO SORT^EASEZC3(EASAPP)
- SETQ QUIT
- +1 ;
- HDRMAIN(EALNE) ; PRINT THE FIRST PAGE HEADER INFORMATION
- +1 WRITE @IOF
- +2 WRITE ?44,"OMB APPROVED NO. 2900-0091 / Estimated Burden Avg. 24 min.",!,EALNE("DD")
- +3 WRITE !,"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")
- +4 QUIT
- +5 ;
- HDR(EALNE,EAINFO) ; PRINT THE PAGE HEADER INFO FOR PAGES GREATER THAN 1
- +1 WRITE @IOF
- +2 WRITE "DEPARTMENT OF VETERANS AFFAIRS",?40,"| VETERAN'S NAME (Last, First, Middle)",?106,"| SOCIAL SECURITY NUMBER"
- +3 WRITE !?40,"| ",EAINFO("VET"),?106,"| ",EAINFO("SSN")
- +4 WRITE ?131,$CHAR(13)
- if EALNE("ULC")="-"
- WRITE !
- WRITE EALNE("UL")
- +5 QUIT
- +6 ;
- FT(EALNE,EAINFO) ; PRINT THE PAGE FOOTER INFORMATION
- +1 WRITE !,EALNE("DD")
- +2 WRITE !,"VA FORM 10-10EZR FEB 2011",?40,"PRINTED: ",EAINFO("PD")
- +3 WRITE ?80,"Clerk: ",EAINFO("CLRK"),"/",EAINFO("ID")
- +4 WRITE ?120,"PAGE "
- SET EAINFO("PGE")=EAINFO("PGE")+1
- WRITE EAINFO("PGE")
- +5 QUIT
