Routine: DG53S451

Package	Total	Call Graph
Kernel	3	(,STAT)^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT BMES^XPDUTL
Registration	2	$$LST^DGMTU $$SITE^VASITE
VA Fileman	2	C^%DTC $$GET1^DIQ
Income Verification Match	1	$$LOG^IVMPLOG
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
QUETASK	;Queue the task
CHK	;check for completion
ACTIVE(TASK)	;Checks if task is running ; input -- The taskman ID ; output -- 1=The task is running ; 0=The task is not running
EP1	;Entry point
MSG	;create bulletin message in install file.
MAIL
INCYR(XIEN)	;Get valid income year
EP	;Entry point

FileNo	Call Tags
^HLCS(869.3 - [#869.3]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EP1+17
^DPT("E"	EP1+7, EP1+9, EP1+10
^IVM(301.5	INCYR+2
^XTMP("DG53S451"	QUETASK+4!, QUETASK+5, EP1+3, EP1+4, EP1+11, EP1+14, EP1+16, EP1+18, EP1+21, EP1+22* , EP1+23, EP1+24, CHK+3, CHK+10, MAIL+8, MAIL+13, MAIL+14, MAIL+15, MAIL+16

Name	Field # of Occurrence
CNT	EP1+1~, EP1+15, EP1+21
>> CVDT	EP1+17*, EP1+19
DT	EP1+2, INCYR+5
DUZ	MAIL+4
EVENT	EP1+1~, EP1+20
EVENT("ENROLL"	EP1+15*
I	INCYR+1~, INCYR+3*
INCYR	INCYR+1~, INCYR+4, INCYR+5, INCYR+6
IYR	EP1+1~, EP1+20*
LMT	INCYR+1~, INCYR+3, INCYR+4
MSG	MAIL~
MSG(	MAIL+8*
MSG(1	MAIL+7*
MSG(2	MAIL+9*
MSG(3	MAIL+10*
MSG(4	MAIL+11*
MSG(5	MAIL+12*
MSG(6	MAIL+13*
MSG(7	MAIL+14*
MSG(8	MAIL+15*
MSG(9	MAIL+16*
OK	EP+1~, EP+2, CHK+2, CHK+4, CHK+14*
SITE	MAIL~, MAIL+1*
SITENM	MAIL~, MAIL+1*, MAIL+11
STAT	CHK+1~, CHK+12, CHK+13, ACTIVE+4~, ACTIVE+5, ACTIVE+8, ACTIVE+9, ACTIVE+10*, ACTIVE+11
STATN	MAIL~, MAIL+1, MAIL+2, MAIL+3, MAIL+10
TASK	ACTIVE~, ACTIVE+5
TASKNUM	CHK+1~, CHK+10*, CHK+11, CHK+12, CHK+15
TMP	INCYR+1~, INCYR+4
TMP(	INCYR+3*
TMP(""	INCYR+4
TOT	EP1+1~, EP1+15, EP1+18
TXT	QUETASK+1~, QUETASK+7, CHK+1~, CHK+5~, CHK+8, CHK+17, MSG+1~, MSG+7
TXT(1	QUETASK+6, CHK+6, CHK+15, MSG+2
TXT(2	CHK+7, CHK+16, MSG+3*
TXT(3	MSG+4*
TXT(4	MSG+5*
TXT(5	MSG+6*
X	EP1+1~, EP1+3
X1	EP1+1~, EP1+2*
X2	EP1+1~, EP1+2*
XCVDT	EP1+1~, EP1+8, EP1+9, EP1+10
XIEN	EP1+1~, EP1+8, EP1+10, EP1+11, EP1+15, EP1+16, EP1+17, EP1+20, EP1+22, INCYR~ , INCYR+2, INCYR+3
XMDUZ	MAIL~, MAIL+3*
XMSUB	MAIL~, MAIL+3*
XMTEXT	MAIL~, MAIL+6*
XMY	MAIL~
XMY(	MAIL+4*
XMY("pat.wilson@med.va.gov"	MAIL+5*
XMY("terry.moore3@med.va.gov"	MAIL+5*
Y	ACTIVE+4~, ACTIVE+7*, ACTIVE+8, ACTIVE+9, ACTIVE+10
ZTDESC	QUETASK+1~, QUETASK+3*
ZTDTH	QUETASK+1~, QUETASK+2*
ZTIO	QUETASK+1~, QUETASK+2*
ZTRTN	QUETASK+1~, QUETASK+2*
ZTSK	QUETASK+1~, QUETASK+5, QUETASK+6, ACTIVE+4~, ACTIVE+5*
ZTSK(1	ACTIVE+7