Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: EASEZPF

Package: Enrollment Application System

Routine: EASEZPF


Information

EASEZPF ;ALB/SCK/GAH - Print 1010EZ Enrollment form ; 10/19/2000

Source Information

Source file <EASEZPF.m>

Entry Points

Name Comments DBIA/ICR reference
QUE(EASAPP,EASDFN) ; Queue the 1010EZ print
; Input
; EASAPP - Internal entry number in the 1010EZ HOLDING File, #712
; EASDFN - [Optionla] Patient DFN
EXIT
CHECKS(EASAPP) ; Check for quit conditions
EN ; Entry point to print 1010EZ
ENQUIT ; Cleanup 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 intials
; ("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) ;
HDR(EALNE,EAINFO) ;
FT(EALNE,EAINFO) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,*7,"Do not select a slave device for output."
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !?5,"This output requires a 132 column output printer."
  • Line Location: QUE+15
Function Call: WRITE
  • Prompt: !?5,"Output to SCREEN will be unreadable.",!
  • Line Location: QUE+16
Function Call: WRITE
  • Prompt: !!?3,*7,"The VA10-10EZ for "
  • Line Location: CHECKS+15
Function Call: WRITE
  • Prompt: $$GET1^DIQ(712,EASAPP_",",1),", ",$$GET1^DIQ(712,EASAPP_",",2),", "
  • Line Location: CHECKS+16
Function Call: WRITE
  • Prompt: !?3,"WEB submission ID: ",$$GET1^DIQ(712,EASAPP_",",.1)
  • Line Location: CHECKS+17
Function Call: WRITE
  • Prompt: !?3,"could not be printed for the following reason(s): "
  • Line Location: CHECKS+18
Function Call: WRITE
  • Prompt: !?5,">> ",ERR(X)
  • Line Location: CHECKS+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRMAIN+1
Function Call: WRITE
  • Prompt: ?75,"OMB APPROVED NO. 2900-0091 / Est. Burden Avg. 20 min.",!,EALNE("DD")
  • Line Location: HDRMAIN+2
Function Call: WRITE
  • Prompt: !,"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",?96,"APPLICATION FOR HEALTH BENEFITS",!,EALNE("DD")
  • Line Location: HDRMAIN+3
Function Call: WRITE
  • Prompt: !?50,"SECTION I - GENERAL INFORMATION",!,EALNE("D")
  • Line Location: HDRMAIN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"APPLICATION FOR HEALTH BENEFITS, Continued",?65,"| ",EAINFO("VET"),?100,"| ",EAINFO("SSN")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,EALNE("DD")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,EALNE("DD")
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !,"AUTOMATED VA FORM 10-10EZ APR 1998",?40,"PRINTED: ",EAINFO("PD")
  • Line Location: FT+4
Function Call: WRITE
  • Prompt: ?80,"Clerk: ",EAINFO("CLRK"),"/",EAINFO("ID")
  • Line Location: FT+5
Function Call: WRITE
  • Prompt: ?120,"Page "
  • Line Location: FT+6
Function Call: WRITE
  • Prompt: EAINFO("PGE")
  • Line Location: FT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^EAS(712 - [#712] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call