EASEZRPF ;ALB/AMA,TDM - Print 1010EZR ; 2/8/13 12:00pm
Source file <EASEZRPF.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Entry point to print 1010EZR
|
|
ENQUIT | ; Clean up temp globals after printing is complete
|
|
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 |
|
SETQ | ||
HDRMAIN(EALNE) | ; PRINT THE FIRST PAGE HEADER INFORMATION
|
|
HDR(EALNE,EAINFO) | ; PRINT THE PAGE HEADER INFO FOR PAGES GREATER THAN 1
|
|
FT(EALNE,EAINFO) | ; PRINT THE PAGE FOOTER INFORMATION
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^EAS(712 - [#712] | GET1^DIQ |