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 |  Marked Items  | All
Print Page as PDF
Routine: EASMTL6A

Package: Enrollment Application System

Routine: EASMTL6A


Information

EASMTL6A ; MIN/TCM ALB/SCK/PHH,ERC - AUTOMATED MEANS TEST LETTER-PRINT LETTERS CONT ; 10/23/07 4:45pm

Source Information

Source file <EASMTL6A.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 3 $$BADADR^DGUTL3  (ADD,DEM)^VADPT  PID^VADPT6  
Enrollment Application System 2 GETFAC^EASMTL6  ($$ADDLEAP,ADRERR)^EASMTUTL  
Kernel 2 $$FMTE^XLFDT  $$NAMEFMT^XLFNAME  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  

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

Package Total Caller Graph
Enrollment Application System 6 EASMT65  EASMTL10  EASMTL6  EASMTL6B  EASMTL8  EASMTUTL  

Entry Points

Name Comments DBIA/ICR reference
LETTER(EASN,TYPE) ;Print letter
; Input
; EASN - File #713.2 IEN
; TYPE - Letter type
GETPAT(DFN,EASDEM,EASADD) ; Get patient information
CHKADR(EASPTR) ; Check for valid address
DEFSIG ; Default closing and signature block

External References

Name Field # of Occurrence
$$BADADR^DGUTL3 CHKADR+13
$$EXTERNAL^DILFD CHKADR+13
$$GET1^DIQ LETTER+8, LETTER+11, LETTER+12, LETTER+48, LETTER+61, CHKADR+3
GETFAC^EASMTL6 LETTER+17
$$ADDLEAP^EASMTUTL LETTER+62, LETTER+77
ADRERR^EASMTUTL CHKADR+15
ADD^VADPT GETPAT+17, CHKADR+6
DEM^VADPT GETPAT+20
PID^VADPT6 GETPAT+22
$$FMTE^XLFDT LETTER+29, LETTER+62, LETTER+77
$$NAMEFMT^XLFNAME LETTER+34, LETTER+67

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LETTER+19
Function Call: WRITE
  • Prompt: !!?TAB+OFFSET,EASFAC(100)
  • Line Location: LETTER+21
Function Call: WRITE
  • Prompt: !!?TAB+OFFSET,"VA MEDICAL CENTER"
  • Line Location: LETTER+23
Function Call: WRITE
  • Prompt: ?(IOM-10),$E(EASDEM(1),1,1),EASDEM(2)
  • Line Location: LETTER+24
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASFAC(1.01)
  • Line Location: LETTER+26
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASFAC(1.02)
  • Line Location: LETTER+27
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASFAC(1.03)_" "_$P(EASFAC(.02),U,2)_" "_EASFAC(1.04)
  • Line Location: LETTER+28
Function Call: WRITE
  • Prompt: !!!?TAB+OFFSET,$$FMTE^XLFDT(DT,1)
  • Line Location: LETTER+29
Function Call: WRITE
  • Prompt: !!!!?TAB+OFFSET,$$NAMEFMT^XLFNAME(.EASNME,"G")
  • Line Location: LETTER+34
Function Call: WRITE
  • Prompt: !!!!?TAB+OFFSET,EASDEM(1)
  • Line Location: LETTER+36
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASADD(1)
  • Line Location: LETTER+42
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASADD(2)
  • Line Location: LETTER+44
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASADD(4)
  • Line Location: LETTER+47
Function Call: WRITE
  • Prompt: $S(EASADD(4)]"":",",1:"")_$$GET1^DIQ(5,$P(EASADD(5),U),1)
  • Line Location: LETTER+48
Function Call: WRITE
  • Prompt: " ",$P(EASADD(11),U,2)
  • Line Location: LETTER+49
Function Call: WRITE
  • Prompt: !
  • Line Location: LETTER+52
Function Call: WRITE
  • Prompt: ?TAB+OFFSET,EASADD(24)_" "_EASADD(4)_" "_EASADD(23)
  • Line Location: LETTER+53
Function Call: WRITE
  • Prompt: ?TAB+OFFSET,EASADD(4)_$S(EASADD(4):" "_EASADD(23),1:EASADD(23))
  • Line Location: LETTER+54
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASCNTRY
  • Line Location: LETTER+59
Function Call: WRITE
  • Prompt: !!!!,?TAB,"MEANS TEST ANNIVERSARY DATE: ",$$FMTE^XLFDT($$ADDLEAP^EASMTUTL(EASANV))
  • Line Location: LETTER+62
Function Call: WRITE
  • Prompt: !!,?TAB,"Dear ",$S(EASX="M":"Mr. ",EASX="F":"Ms. ",1:"Mr./Ms. ")
  • Line Location: LETTER+66
Function Call: WRITE
  • Prompt: $S(DFN>0:$$NAMEFMT^XLFNAME(.EASNME,"O","M"),1:"TEST"),":"
  • Line Location: LETTER+67
Function Call: WRITE
  • Prompt: !
  • Line Location: LETTER+74
Function Call: WRITE
  • Prompt: !?TAB,$P(LINE,"|ANNVDT|",1),$$FMTE^XLFDT($$ADDLEAP^EASMTUTL(EASANV)),$P(LINE,"|ANNVDT|",2)
  • Line Location: LETTER+77
Function Call: WRITE
  • Prompt: !?TAB,LINE
  • Line Location: LETTER+78
Function Call: WRITE
  • Prompt: !?TAB,$P(LINE,"|FAC|",1),$S(EASFAC(100)]"":EASFAC(100),1:"VA Medical Center"),$P(LINE,"|FAC|",2)
  • Line Location: LETTER+87
Function Call: WRITE
  • Prompt: !?TAB,LINE
  • Line Location: LETTER+88
Function Call: WRITE
  • Prompt: !?TAB,^EAS(713.3,EASLIEN,2,EAFIEN,1,EALNE,0)
  • Line Location: LETTER+93
Function Call: WRITE
  • Prompt: !!?TAB,$S($G(TYPE)=1:"Enclosure",1:"")
  • Line Location: LETTER+95

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
^DIC(5 - [#5] GET1^DIQ
^EAS(713 - [#713] GET1^DIQ
^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] LETTER+70, LETTER+75, LETTER+76, LETTER+81, LETTER+92, LETTER+93

Label References

Name Line Occurrences
GETPAT LETTER+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN LETTER+5~, LETTER+12*, LETTER+13*, LETTER+15, LETTER+17, LETTER+32, LETTER+33, LETTER+67, GETPAT~, GETPAT+4
, CHKADR+1~, CHKADR+3*, CHKADR+13, CHKADR+15
DGFOR LETTER+39~, LETTER+40*, LETTER+41*, LETTER+46, LETTER+51
DT LETTER+29
EAFIEN LETTER+5~, LETTER+81*, LETTER+83, LETTER+90, LETTER+92, LETTER+93
EALNE LETTER+5~, LETTER+72*, LETTER+75*, LETTER+76, LETTER+91*, LETTER+92*, LETTER+93
EASADD LETTER+5~, LETTER+15, GETPAT~, CHKADR+1~, CHKADR+15
EASADD("BAI" CHKADR+13*, CHKADR+14
EASADD(1 LETTER+42, GETPAT+8*, CHKADR+9, CHKADR+11
EASADD(11 LETTER+49, GETPAT+12*, CHKADR+9
EASADD(2 LETTER+44, GETPAT+9*
EASADD(23 LETTER+53, LETTER+54
EASADD(24 LETTER+53, LETTER+54
EASADD(25 LETTER+41, LETTER+56, LETTER+57, GETPAT+13*, CHKADR+8, CHKADR+10
EASADD(4 LETTER+47, LETTER+48, LETTER+53, LETTER+54, GETPAT+10*, CHKADR+9, CHKADR+11
EASADD(5 LETTER+48, GETPAT+11*, CHKADR+9
EASANV LETTER+5~, LETTER+61*, LETTER+62, LETTER+77
>> EASCNTRY LETTER+57*, LETTER+58*, LETTER+59
EASDEM LETTER+5~, LETTER+15, GETPAT~
EASDEM(1 LETTER+24, LETTER+36, GETPAT+5*
EASDEM(2 LETTER+24, GETPAT+6*, GETPAT+23*
EASDEM(5 LETTER+64, GETPAT+7*
EASFAC LETTER+5~, LETTER+17
EASFAC( LETTER+26, LETTER+27, LETTER+28
EASFAC("FACNUM" LETTER+81
EASFAC(100 LETTER+20, LETTER+21, LETTER+87
EASIN LETTER+5~
EASITE LETTER+5~
EASLIEN LETTER+5~, LETTER+70*, LETTER+71, LETTER+75, LETTER+76, LETTER+81, LETTER+92, LETTER+93
EASN LETTER~, LETTER+11, LETTER+61
EASNME LETTER+5~, LETTER+34, LETTER+67
EASNME("FIELD" LETTER+33*
EASNME("FILE" LETTER+33*
EASNME("IENS" LETTER+33*
EASPTR LETTER+5~, LETTER+11*, LETTER+12, CHKADR~, CHKADR+3
EASRTE LETTER+5~
EASX LETTER+5~, LETTER+64*, LETTER+66
EAX LETTER+5~, LETTER+84~, LETTER+85*
IOF LETTER+19
IOM LETTER+24
LINE LETTER+5~, LETTER+76*, LETTER+77, LETTER+78, LETTER+84~, LETTER+86*, LETTER+87, LETTER+88
MSG LETTER+5~
OFFSET LETTER+5~, LETTER+8*, LETTER+21, LETTER+23, LETTER+26, LETTER+27, LETTER+28, LETTER+29, LETTER+34, LETTER+36
, LETTER+42, LETTER+44, LETTER+47, LETTER+53, LETTER+54, LETTER+59
POP LETTER+5~
RSLT CHKADR+1~, CHKADR+4*, CHKADR+9*, CHKADR+11*, CHKADR+14*, CHKADR+15, CHKADR+16
TAB LETTER+5~, LETTER+7*, LETTER+21, LETTER+23, LETTER+26, LETTER+27, LETTER+28, LETTER+29, LETTER+34, LETTER+36
, LETTER+42, LETTER+44, LETTER+47, LETTER+53, LETTER+54, LETTER+59, LETTER+62, LETTER+66, LETTER+77, LETTER+78
, LETTER+87, LETTER+88, LETTER+93, LETTER+95
TYPE LETTER~, LETTER+70, LETTER+95
U LETTER+28, LETTER+41, LETTER+48, LETTER+49, LETTER+57, LETTER+64, CHKADR+8, CHKADR+10, CHKADR+13
VA GETPAT+1~
VA("BID" GETPAT+23
VADM LETTER+5~
VAROOT LETTER+5~, GETPAT+1~, GETPAT+16*, GETPAT+19*, CHKADR+1~, CHKADR+5*

Marked Items

Name Field # of Occurrence
$T(DEFSIG+EAX LETTER+86
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 |  Marked Items  | All