Routine: EASMTL6

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$DT,$$FMDIFF)^XLFDT $$VERSION^XPDUTL
Enrollment Application System	4	($$CHKADR,LETTER)^EASMTL6A $$LTRTYP^EASMTL6B ($$ADDLEAP,$$CHECKMT,$$DECEASED,$$FUTMT,CLRFLG)^EASMTUTL $$UESTAT^EASUER
VA FileMan	3	^DIE ($$GET1,GETS)^DIQ ^DIR
Registration	2	$$LST^DGMTU $$SITE^VASITE
MailMan	1	^XMD

Package	Total	Caller Graph
Enrollment Application System	8	EAS MT 0 DAY LETTER PRINT EAS MT 30 DAY LETTER PRINT EAS MT 60 DAY LETTER PRINT EASMT65 EASMTL10 EASMTL6A EASMTL6B EASMTL8
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point ; Input, set in option call, if not passed in, or called interactively, user is asked to specify. ; EATYP - Used for selective printing of letters and forms ; 1 : 60-Day ; 2 : 30-Day ; 4 : 0-Day
QUE	; Queue the report
LTR	; Main entry point
RESULT(EASKP,EATYP)	; Send results of letter printing to mail group
BLD(EATYP,EASLOC,EASTMP,EASKP)	; Build TMP array of letters to print
OWNED(PTR1,EAIEN)	; Check - Does this facility "own" this means test ; Returns '1' if means test 'owned' by facility ; '0' if not owned
PRINT(EASTMP,EATYP)	; Print letters
THRSHLD(EATYP,EASIEN)	; Check threshold for letter types ; Input ; EATYP - Letter type to print ; EASIEN - IEN for file #713.2
NOPRT(EATYP,EASIEN)	; Letter not printed, update Letter Status file #713.2 ; Input ; EATYP - Letter type to print ; EASIEN - IEN for file #713.2
UPDSTAT(EASN,EAX)	; Update Letter status file, #713.2
FACNUM()	; Get facility number
GETFAC(EADFN,EASARY)	; set facility return address information

External References

Name	Field # of Occurrence
^%ZIS	EN+29
HOME^%ZIS	QUE+11
^%ZISC	EN+33
^%ZTLOAD	QUE+8
$$S^%ZTLOAD	BLD+41, PRINT+8
$$LST^DGMTU	OWNED+7
^DIE	OWNED+19, NOPRT+14, UPDSTAT+10
$$GET1^DIQ	EN+18, EN+28, BLD+8, BLD+12, BLD+14, OWNED+10, THRSHLD+14, GETFAC+3, GETFAC+4, GETFAC+7 , GETFAC+19, GETFAC+22
GETS^DIQ	GETFAC+8, GETFAC+15
^DIR	EN+13, EN+22, PRINT+11, FACNUM+5
$$CHKADR^EASMTL6A	BLD+37
LETTER^EASMTL6A	PRINT+6
$$LTRTYP^EASMTL6B	BLD+11
$$ADDLEAP^EASMTUTL	THRSHLD+15
$$CHECKMT^EASMTUTL	BLD+21
$$DECEASED^EASMTUTL	BLD+18
$$FUTMT^EASMTUTL	BLD+24
CLRFLG^EASMTUTL	BLD+16, BLD+19, BLD+22, BLD+25, UPDSTAT+11
$$UESTAT^EASUER	BLD+30
$$SITE^VASITE	GETFAC+14
$$DT^XLFDT	THRSHLD+16
$$FMDIFF^XLFDT	THRSHLD+16
^XMD	RESULT+21
$$VERSION^XPDUTL	OWNED+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Letters canceled!" Line Location: QUE+9
Function Call: WRITE	Prompt: !!?5,"Letters queued! [ ",ZTSK," ]" Line Location: QUE+10
Function Call: WRITE	Prompt: !,"...Gathering letters to print...Please wait" Line Location: LTR+6
Function Call: WRITE	Prompt: !,"...Printing letters..." Line Location: LTR+9
Routine Call	%ZIS Line Location: EN+29
Routine Call	%ZIS Line Location: QUE+11
Routine Call	DIE Line Location: OWNED+19 NOPRT+14 UPDSTAT+10
Routine Call	DIR Line Location: EN+13 EN+22 PRINT+11 FACNUM+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ, GETS^DIQ
^DG(408.34 - [#408.34]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^EAS(713 - [#713]	GET1^DIQ
^EAS(713.1 - [#713.1]	GET1^DIQ
^EAS(713.2 - [#713.2]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	OWNED+9
^DIC(4 - [#4]	FACNUM+7
^EAS(713.1 - [#713.1]	BLD+15
^EAS(713.2 - [#713.2]	BLD+7

Label References

Name	Line Occurrences
$$FACNUM	EN+24
$$THRSHLD	BLD+27
BLD	LTR+7
LTR	EN+32
NOPRT	BLD+32, BLD+35
PRINT	LTR+10
QUE	EN+31
RESULT	LTR+8
UPDSTAT	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+28*, EN+29!
%ZIS("B"	EN+28*
ANVDT	THRSHLD+9~, THRSHLD+15*, THRSHLD+16
COUNT	BLD+1~, BLD+4*
DA	OWNED+17, NOPRT+5~, NOPRT+7, UPDSTAT+1~, UPDSTAT+3*
DFN	BLD+1~, BLD+12*, BLD+14, BLD+30
DIE	OWNED+17, OWNED+19!, NOPRT+5~, NOPRT+7, UPDSTAT+1~, UPDSTAT+3*, UPDSTAT+10!
DIFF	THRSHLD+9~, THRSHLD+16*, THRSHLD+17
DIR	EN+7~, EN+13!, EN+22!, PRINT+11!, FACNUM+1~, FACNUM+5!
DIR("?"	EN+12, EN+21
DIR("A"	EN+19*
DIR("B"	EN+20*
DIR("S"	FACNUM+4*
DIR(0	EN+11, EN+19, PRINT+10, FACNUM+3
DIRUT	EN+7~, EN+10, EN+18, EN+23, FACNUM+6
DR	OWNED+18, NOPRT+5~, NOPRT+11, NOPRT+13, UPDSTAT+1~, UPDSTAT+4, UPDSTAT+5, UPDSTAT+6, UPDSTAT+7, UPDSTAT+9
EADFN	GETFAC~, GETFAC+4
EAFLG	UPDSTAT+1~, UPDSTAT+6*, UPDSTAT+7, UPDSTAT+8
EAIEN	OWNED~, OWNED+16, OWNED+17
EAPD	UPDSTAT+1~, UPDSTAT+6*, UPDSTAT+7
EAS4	GETFAC+1~
EAS4(4	GETFAC+11, GETFAC+21, GETFAC+22
EASABRT	BLD+1~, BLD+7, BLD+41, PRINT+1~, PRINT+5, PRINT+8, PRINT+12*
EASARY	GETFAC~
EASARY(	GETFAC+21, GETFAC+22
EASARY("FAC"	GETFAC+19*
EASARY("FACNUM"	GETFAC+18*
EASARY("TYP"	GETFAC+11, GETFAC+13, GETFAC+16
EASF	GETFAC+1~, GETFAC+9*, GETFAC+11
EASFAC	GETFAC+1~, GETFAC+4, GETFAC+5, GETFAC+7, GETFAC+8, GETFAC+9, GETFAC+14, GETFAC+15, GETFAC+18, GETFAC+19 , GETFAC+21, GETFAC+22
EASIEN	BLD+1~, BLD+6, BLD+7, BLD+8, BLD+11, BLD+16, BLD+18, BLD+19, BLD+21, BLD+22 , BLD+24, BLD+25, BLD+27, BLD+32, BLD+35, BLD+39, PRINT+1~, PRINT+4, PRINT+5, PRINT+6 , PRINT+7, THRSHLD~, THRSHLD+14, NOPRT~, NOPRT+6, NOPRT+7
EASKP	LTR+1~, LTR+7, LTR+8, RESULT~, BLD~
EASKP(	RESULT+14, BLD+3*
EASKP("C"	RESULT+9, BLD+23*
EASKP("CNT"	RESULT+3, BLD+40*
EASKP("D"	RESULT+8, BLD+20*
EASKP("F"	BLD+26*
EASKP("I"	RESULT+7, BLD+38*
EASKP("O"	RESULT+12, BLD+36*
EASKP("P"	RESULT+10, BLD+17*
EASKP("T"	RESULT+4, BLD+28*
EASKP("U"	RESULT+11, BLD+33*
EASLOC	EN+7~, EN+17, EN+24, LTR+7, BLD~, BLD+14
EASN	UPDSTAT~, UPDSTAT+3, UPDSTAT+11
EASPTR	BLD+1~, BLD+8*, BLD+10, BLD+12, BLD+15, BLD+21, BLD+37
EASTMP	LTR+1~, LTR+3*, LTR+4, LTR+7, LTR+10, LTR+11, BLD~, BLD+39, PRINT~, PRINT+5
EASUE	BLD+1~, BLD+30*, BLD+31, BLD+34
EATYP	EN+10, EN+14*, EN+34!, LTR+7, LTR+8, LTR+10, LTR+11!, RESULT~, RESULT+17, BLD~ , BLD+11, BLD+27, BLD+32, BLD+35, BLD+39, PRINT~, PRINT+6, PRINT+7, THRSHLD~, THRSHLD+12 , THRSHLD+13, NOPRT~, NOPRT+6, NOPRT+8
EAX	UPDSTAT~, UPDSTAT+4, UPDSTAT+11, GETFAC+1~, GETFAC+20*, GETFAC+21
EAX2	BLD+1~, BLD+3*
IO	PRINT+3
IO("Q"	EN+26!, EN+31, BLD+41, PRINT+8, PRINT+9
IOP	EN+26!
IOST	PRINT+9
LTR	NOPRT+5~, NOPRT+8*, NOPRT+9, NOPRT+11, NOPRT+13
MSG	RESULT+1~
MSG(	RESULT+5, RESULT+12
MSG(1	RESULT+3*
MSG(10	RESULT+15*
MSG(2	RESULT+4*
MSG(3	RESULT+6*
MSG(4	RESULT+7*
MSG(5	RESULT+8*
MSG(6	RESULT+9*
MSG(7	RESULT+10*
MSG(8	RESULT+11*
MSG(9	RESULT+13*
MTDT	THRSHLD+9~, THRSHLD+14*, THRSHLD+15
MTLST	OWNED+4~, OWNED+7*, OWNED+8, OWNED+9
MTNODE	OWNED+4~, OWNED+9*, OWNED+10
MTOWN	OWNED+4~, OWNED+10*, OWNED+11, OWNED+12
NXTFLG	UPDSTAT+1~, UPDSTAT+8*, UPDSTAT+9
POP	EN+7~, EN+30
PTR1	OWNED~, OWNED+7
RSLT	OWNED+4~, OWNED+6, OWNED+11, OWNED+12, OWNED+15, OWNED+21, THRSHLD+9~, THRSHLD+11, THRSHLD+17, THRSHLD+18 , FACNUM+1~, FACNUM+6, FACNUM+7*, FACNUM+9
THRESH	THRSHLD+9~, THRSHLD+13*, THRSHLD+17
TOT	RESULT+1~, RESULT+14*, RESULT+15
U	OWNED+8, OWNED+9, OWNED+10, FACNUM+7
X1	RESULT+1~, RESULT+14*
XMDUZ	RESULT+1~, RESULT+20*
XMSUB	RESULT+1~, RESULT+17*
XMTEXT	RESULT+1~, RESULT+18*
XMY	RESULT+1~
XMY("G.EAS MT	LETTERS" , RESULT+19*
Y	EN+7~, EN+14, EN+23, PRINT+1~, PRINT+12, FACNUM+1~, FACNUM+7
ZTDESC	QUE+1~, QUE+4*
ZTDTH	QUE+1~, QUE+6*
ZTQUEUED	QUE+1~, LTR+6, LTR+9
ZTRTN	QUE+1~, QUE+3*
ZTSAVE	QUE+1~
ZTSAVE("EASLOC"	QUE+5*
ZTSAVE("EATYP"	QUE+5*
ZTSK	QUE+1~, QUE+9, QUE+10

Customize PDF page

Package: Enrollment Application System

Routine: EASMTL6

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: