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: EASEC10E

Package: Enrollment Application System

Routine: EASEC10E


Information

EASEC10E ;ALB/BRM,LBD - Print 1010EC LTC Enrollment form ; 9/20/01 1:46pm

Source Information

Source file <EASEC10E.m>

Entry Points

Name Comments DBIA/ICR reference
OEN ;Entry point to print an LTC Co-Pay test from the menu option
Q
QUE(DFN,DGMTIEN) ; queue the 1010EC print job
; Input:
; DFN - Internal entry number for the #2 (Patient) file
; Output:
; ZTSK - Task Number returned from call to Task Manager
EXIT
EN(EASDFN,DGMTIEN) ; Entry point to print the 1010EC form
; Input:
; EASDFN - Internal entry number for the #2 (Patient) file
; DTMTDT - Date of Long Term Care Test to print
; DGMTIEN - IEN of the Long term Care test in the #408.31 file
ENQUIT ; cleanup temp globals after printing has completed
SETUP(EALNE,EAINFO,EASDFN) ;setup print variables
; Input:
; EALNE - Line format array
; EAINFO - Misc data array
; ("CLRK") - Clerk's Initials
; ("PGE") - Page number
; ("PD") - Print Date
; ("VET") - Veteran's Name
; ("SSN") - Veteran's SSN
; ("MTDT") - Long Term Care Test date
; ("DGMTIEN") - ien of LTC Test in 408.31
; EASDFN - DFN of applicant in the Patient file (#2)
HDRMAIN(EALNE) ;
HDR(EALNE,EAINFO) ;
FT(EALNE,EAINFO) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OEN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OEN+9
Function Call: WRITE
  • Prompt: !!?5,$C(7),"This output requires a 132 column printer."
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !?5,"Output to SCREEN will be unreadable.",!
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRMAIN+1
Function Call: WRITE
  • Prompt: !,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",?90,"APPLICATION FOR EXTENDED CARE SERVICES",!,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: EALNE("DD")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"APPLICATION FOR EXTENDED CARE SERVICES, Continued"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?65,"| Veteran's Name",?100,"| Social Security Number"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?65,"| ",EAINFO("VET"),?100,"| ",EAINFO("SSN")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,EALNE("DD")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,EALNE("DD")
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !,"VA FORM 10-10EC DEC "_$S(EAINFO("FORM"):"2002",1:"2000"),?40,"PRINTED: ",EAINFO("PD")
  • Line Location: FT+5
Function Call: WRITE
  • Prompt: ?80,"Clerk: ",EAINFO("CLRK")
  • Line Location: FT+6
Function Call: WRITE
  • Prompt: ?120,"Page ",EAINFO("PGE"),?131,$C(13)
  • Line Location: FT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DGMT(408.31 - [#408.31] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call