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

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

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

FileMan Files Accessed Via FileMan Db Call

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