Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Enrollment Application System 6 GETDATA^EASEC100  PAGE1^EASEC101  PAGE2^EASEC102  PAGE3^EASEC103  (PAGE2,PAGE3)^EASEC10R  ($$FORM,$$LST)^EASECU  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 ^DIC  $$GET1^DIQ  
Registration 1 EN^DGMTLK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Enrollment Application System 7 EASEC LTC COPAY TEST PRINT  EASEC101  EASEC102  EASEC103  EASEC10R  EASECE  EASECSCC  

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) ;

External References

Name Field # of Occurrence
^%ZIS QUE+10
HOME^%ZIS QUE+15, EXIT
^%ZISC QUE+15, EXIT
^%ZTLOAD QUE+14
EN^DGMTLK OEN+9
^DIC OEN+5
$$GET1^DIQ SETUP+26, SETUP+28, SETUP+34, SETUP+44, SETUP+45
GETDATA^EASEC100 EN+13
PAGE1^EASEC101 EN+15
PAGE2^EASEC102 EN+23
PAGE3^EASEC103 EN+24
PAGE2^EASEC10R EN+19
PAGE3^EASEC10R EN+20
$$FORM^EASECU SETUP+49
$$LST^EASECU OEN+7
$$FMTE^XLFDT SETUP+43
$$NOW^XLFDT SETUP+43

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
Routine Call
  • %ZIS
  • Line Location:
    • QUE+10
Routine Call
  • %ZIS
  • Line Location:
    • QUE+15
    • EXIT
Routine Call
  • DIC
  • Line Location:
    • OEN+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] OEN+7, SETUP+37, SETUP+39
^TMP("1010EC" ENQUIT+1!

Label References

Name Line Occurrences
$$QUE OEN+11
EN QUE+17
ENQUIT EN+17
EXIT QUE+10
Q OEN+5, OEN+9
SETUP EN+11

Naked Globals

Name Field # of Occurrence
^(0 OEN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FT+1~
%ZIS QUE+9!, QUE+10*
DFN OEN+2~, OEN+5*, OEN+7, OEN+11, QUE~, QUE+13, QUE+17
DGMSGF OEN+2~, OEN+3*
DGMTI OEN+2~, OEN+10*, OEN+11
DGMTIEN QUE~, QUE+13, QUE+17, EN~, EN+9
DIC OEN+2~, OEN+5*!, OEN+9*!
DIC("A" OEN+6*
DIC("B" OEN+7*
DIC("S" OEN+4*, OEN+8*
DIC(0 OEN+5*, OEN+9*
DUZ QUE+12, SETUP+24
EAINFO EN+8~, EN+11, EN+13, EN+15, EN+19, EN+20, EN+23, EN+24, SETUP~, HDR~
, FT~
EAINFO("CLRK" SETUP+26*, SETUP+27, SETUP+29*, SETUP+31*, FT+6
EAINFO("DGMTIEN" EN+9*, SETUP+34, SETUP+39*, SETUP+49
EAINFO("FORM" EN+17, SETUP+49*, FT+5
EAINFO("L" SETUP+19*, SETUP+20*
EAINFO("MTDT" SETUP+34*, SETUP+38*
EAINFO("PD" SETUP+43*, FT+5
EAINFO("PGE" SETUP+42*, FT+7*, FT+8
EAINFO("SSN" SETUP+46*, HDR+5
EAINFO("VET" SETUP+44*, HDR+5
EALNE EN+8~, EN+11, EN+15, EN+19, EN+20, EN+23, EN+24, SETUP~, HDRMAIN~, HDR~
, FT~
EALNE("D" SETUP+17*, SETUP+18*, HDRMAIN+4
EALNE("DD" SETUP+17*, SETUP+18*, HDRMAIN+2, HDRMAIN+3, HDR+2, HDR+6, FT+2
EALNE("UL" SETUP+17*, SETUP+18*
EALNE("ULC" SETUP+16*, SETUP+18, SETUP+20
EASDFN EN~, EN+7, EN+11, EN+13, EN+15, EN+19, EN+20, EN+23, EN+24, ENQUIT+1
, SETUP~, SETUP+37, SETUP+39, SETUP+44, SETUP+45
ERR QUE+6~
IO EN+6
IO("Q" QUE+11
IOF HDRMAIN+1, HDR+1
IOP QUE+9!
IOST SETUP+16
MTDTNEG SETUP+36~, SETUP+37*, SETUP+38, SETUP+39
POP QUE+6~, QUE+10
SSN SETUP+13~, SETUP+45*, SETUP+46
X QUE+6~, SETUP+13~, SETUP+28*, SETUP+29
Y OEN+5, OEN+9, OEN+10, FT+1~
ZTDESC QUE+6~, QUE+13*
ZTIO QUE+6~
ZTRTN QUE+6~, QUE+13*
ZTSAVE QUE+6~
ZTSAVE("ZUSR" QUE+12*
ZTSK OEN+2~, OEN+11*, QUE+6~, QUE+11, QUE+16, EXIT+1
ZUSR QUE+6~, SETUP+23*, SETUP+24*, SETUP+25, SETUP+26, SETUP+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All