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 |  Local Variables  | All
Print Page as PDF
Routine: EASMTL8

Package: Enrollment Application System

Routine: EASMTL8


Information

EASMTL8 ;618/TCM ALB/SCK/PHH - AUTOMATED MEANS TEST LETTER, 20-DAY REPORT OF CONTACT FORM ; 07/17/01

Source Information

Source file <EASMTL8.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Enrollment Application System 3 GETFAC^EASMTL6  GETPAT^EASMTL6A  $$ADDLEAP^EASMTUTL  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA FileMan 2 $$GET1^DIQ  ^DIR  

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

Package Total Caller Graph
Enrollment Application System 1 EAS MT REPORT OF CONTACT  

Entry Points

Name Comments DBIA/ICR reference
QUE ;
START ;
END ;
PRINT ;
FORM(EASIEN) ; Print 20 day form
HDR(EASHDR) ; Print form header for report of contact
; Input
; EASHDR - Header information array
EXIT
SETLNE(EALNE) ;

External References

Name Field # of Occurrence
$$GET1^DIQ FORM+3, FORM+4, FORM+5
^DIR START+3, PRINT+8
GETFAC^EASMTL6 FORM+7
GETPAT^EASMTL6A FORM+6
$$ADDLEAP^EASMTUTL FORM+16
$$FMTE^XLFDT FORM+16, FORM+24, FORM+39
$$NOW^XLFDT FORM+39
EN^XUTMDEVQ END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?5,"Means Test Anniversary Date: ",$$FMTE^XLFDT($$ADDLEAP^EASMTUTL(EASANV),"D")
  • Line Location: FORM+16
Function Call: WRITE
  • Prompt: !?6,$P(LINE,"|ANNVDT|",1)," ",$$FMTE^XLFDT(EASANV,"D"),$P(LINE,"|ANNVDT|",2)
  • Line Location: FORM+24
Function Call: WRITE
  • Prompt: !?6,LINE
  • Line Location: FORM+25
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: FORM+31
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+33
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+34
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FORM+34
Function Call: WRITE
  • Prompt: !,"| Division or Section",?40,"| Executed By (signature and title)",?(IOM-1),"|"
  • Line Location: FORM+35
Function Call: WRITE
  • Prompt: !,"|",?40,"|",?(IOM-1),"|"
  • Line Location: FORM+36
Function Call: WRITE
  • Prompt: !,"|",?40,"|",?(IOM-1),"|"
  • Line Location: FORM+37
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+38
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FORM+38
Function Call: WRITE
  • Prompt: !,?40,"PRINTED: ",$$FMTE^XLFDT($$NOW^XLFDT,"P")
  • Line Location: FORM+39
Function Call: WRITE
  • Prompt: !,"D E P A R T M E N T O F V E T E R A N A F F A I R S"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,$E(EALNE("DD"),1,IOM)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"| REPORT OF CONTACT",?TS2,"| VA Office",?TS3,"| Identification No.",?TS4,"|"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"| Note: This form must be filled out in",?TS2,"|",?TS3,"| ",?TS4,"|"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"| ink or on typewriter as it becomes a"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?TS2,"| ",?TS3,"| ",$P(EASHDR("D",2),U,2),?TS4,"|"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"| permanent record in veterans' folders.",?TS2,"|",?TS3,"|",?TS4,"|"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$E(EALNE("D"),1,TS4)
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"| Last Name-First Name-Middle Name (Type or print)",?TS3,"| Date of Contact",?TS4,"|"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,"|",?TS3,"|",?TS4,"|"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,"| ",EASHDR("D",1),?TS3,"|",?TS4,"|"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,$E(EALNE("D"),1,TS4)
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,"| Address of Veteran",?TS3,"| Telephone",?TS4,"|"
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,"| ",EASHDR("A",1),?TS3,"| ",EASHDR("A",8),?TS4,"|"
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !,"| ",EASHDR("A",2),?TS3,"|",?TS4,"|"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: !,"| ",EASHDR("A",3),?TS3,"|",?TS4,"|"
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !,"| ",EASHDR("A",4)_", "_$P(EASHDR("A",5),U,2)_" "_$P(EASHDR("A",11),U,2),?TS3,"|",?TS4,"|"
  • Line Location: HDR+27
Function Call: WRITE
  • Prompt: !,$E(EALNE("D"),1,TS4)
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: !,"| Person Contacted",?TS3,"| Type of Contact",?TS4,"|"
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: !,"|",?TS3,"| Personal/Telephone",?TS4,"|"
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: !,"|",?TS3,"|",?TS4,"|"
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: !,$E(EALNE("D"),1,TS4)
  • Line Location: HDR+32
Function Call: WRITE
  • Prompt: !,"| Address of Person Contacted",?TS3,"| Telephone",?TS4,"|"
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: !,"|",?TS3,"|",?TS4,"|"
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !,"|",?TS3,"|",?TS4,"|"
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: !,"|",?TS3,"|",?TS4,"|"
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: !,$E(EALNE("D"),1,TS4)
  • Line Location: HDR+37
Function Call: WRITE
  • Prompt: !," Brief statement of information requested and given",!
  • Line Location: HDR+38
Routine Call
  • DIR
  • Line Location:
    • START+3
    • PRINT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^EAS(713.1 - [#713.1] GET1^DIQ
^EAS(713.2 - [#713.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EAS(713.3 - [#713.3] FORM+18, FORM+21, FORM+22, FORM+23, FORM+27, FORM+29, FORM+30

Label References

Name Line Occurrences
FORM PRINT+5
HDR FORM+14
SETLNE HDR+7
START START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN FORM+1~, FORM+5*, FORM+6, FORM+7
DIR QUE+1~, START+3!, PRINT+8!
DIR("?" START+2*
DIR("A" START+1*
DIR(0 START+1*, PRINT+7*
DIRUT QUE+1~, START+6, PRINT+4, PRINT+9*
DTOUT QUE+1~, START+4
DUOUT QUE+1~, START+4
EALNE FORM+20*, FORM+22*, FORM+23, FORM+28*, FORM+29*, FORM+30, HDR+4~, HDR+7, SETLNE~
EALNE("D" HDR+18, HDR+22, HDR+28, HDR+32, HDR+37, SETLNE+4*, SETLNE+5*
EALNE("DD" HDR+12, SETLNE+4*, SETLNE+6*
EALNE("UL" SETLNE+4*
EASADD FORM+1~, FORM+6, FORM+12
EASANV FORM+1~, FORM+3*, FORM+16, FORM+24
EASDEM FORM+1~, FORM+6, FORM+11
EASDEV FORM+1~
EASFAC FORM+1~, FORM+7, FORM+10
EASHDR FORM+1~, FORM+14, HDR~, HDR+6
EASHDR("A" FORM+12*, HDR+24, HDR+25, HDR+26, HDR+27
EASHDR("D" FORM+11*, HDR+16, HDR+21
EASHDR("F" FORM+10*
EASIEN PRINT+1~, PRINT+3*, PRINT+4*, PRINT+5, FORM~, FORM+3, FORM+4
EASLIEN FORM+1~, FORM+18*, FORM+19, FORM+21, FORM+22, FORM+23, FORM+27, FORM+29, FORM+30
EASOK FORM+1~, FORM+21*, FORM+27*
EASPTR FORM+1~, FORM+4*, FORM+5
EASTMP QUE+1~, QUE+3*, QUE+4, START+5, PRINT+4, PRINT+11
EAX FORM+1~, FORM+33*, HDR+4~
IOF PRINT+10
IOM FORM+34, FORM+35, FORM+36, FORM+37, FORM+38, HDR+9, HDR+12, SETLNE+3
IOSL FORM+33
IOST PRINT+6
LINE FORM+1~, FORM+23*, FORM+24, FORM+25, FORM+30*, FORM+31
RMAR SETLNE+1~, SETLNE+3*, SETLNE+5, SETLNE+6
TS1 HDR+4~
TS2 HDR+4~, HDR+9*, HDR+13, HDR+14, HDR+16, HDR+17
TS3 HDR+4~, HDR+9*, HDR+13, HDR+14, HDR+16, HDR+17, HDR+19, HDR+20, HDR+21, HDR+23
, HDR+24, HDR+25, HDR+26, HDR+27, HDR+29, HDR+30, HDR+31, HDR+33, HDR+34, HDR+35
, HDR+36
TS4 HDR+4~, HDR+9*, HDR+13, HDR+14, HDR+16, HDR+17, HDR+18, HDR+19, HDR+20, HDR+21
, HDR+22, HDR+23, HDR+24, HDR+25, HDR+26, HDR+27, HDR+28, HDR+29, HDR+30, HDR+31
, HDR+32, HDR+33, HDR+34, HDR+35, HDR+36, HDR+37
U HDR+16, HDR+27
ULC FORM+1~
ULNE FORM+1~
XL FORM+1~, FORM+34*, FORM+38*
>> Y START+5, PRINT+9
>> ZTSAVE END+2
>> ZTSAVE("EASTMP" END+1*
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 |  Local Variables  | All