Routine: SCDXPRG0

Package	Total	Call Graph
Scheduling	4	$$FINDXMIT^SCDXFU01 $$DELXMIT^SCDXFU03 ($$DR4FY,$$PREVFY)^SCDXPRGD $$GETDTRNG^SCDXUTL1
Kernel	2	(,$$S)^%ZTLOAD $$FMTE^XLFDT
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
MSG	;Generate completion message
TASK	;Task entry point
MAIN	;Main entry point (used by option)
PURGE(BEGDATE,ENDDATE)	;Purge ACRP files over a given date range

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Purging of ACRP files not queued ",!! Line Location: MAIN+29

Name	Line Occurrences (* Changed, ! Killed)
^SCE("B"	PURGE+27, PURGE+29
^SD(409.74 - [#409.74]	PURGE+41, PURGE+43

Name	Line Occurrences
MSG	PURGE+38
PURGE	TASK+8

Name	Field # of Occurrence
BEGDATE	PURGE~, PURGE+14, PURGE+15, PURGE+23*, PURGE+26, PURGE+40, MSG+13
DATE	PURGE+19~, PURGE+26, PURGE+27, PURGE+29, PURGE+40, PURGE+41, PURGE+43
DELPRG	PURGE+19~, PURGE+21, PURGE+48, MSG+8, MSG+10
DELPTR	PURGE+19~, PURGE+42, PURGE+43, PURGE+45
DT	MAIN+9, MAIN+10
DUZ	MSG+16
ENCPRG	PURGE+19~, PURGE+21, PURGE+34, MSG+8, MSG+9
ENCPTR	PURGE+19~, PURGE+28, PURGE+29, PURGE+31
ENDDATE	PURGE~, PURGE+16, PURGE+17, PURGE+24*, PURGE+27, PURGE+41, MSG+13
SCDXBEG	MAIN+2~, MAIN+6, MAIN+14, MAIN+23, MAIN+27, MAIN+31, MAIN+34, MAIN+36, TASK+8
SCDXEND	MAIN+2~, MAIN+9, MAIN+10, MAIN+15, MAIN+22, MAIN+27, MAIN+32*, MAIN+34, MAIN+37, TASK+8
SCDXH	MAIN+2~, MAIN+30!
SCDXH("B"	MAIN+12, MAIN+13, MAIN+14, MAIN+15, MAIN+16, MAIN+17, MAIN+18*, MAIN+27
SCDXH("E"	MAIN+20, MAIN+21, MAIN+22, MAIN+23, MAIN+24, MAIN+25, MAIN+26*, MAIN+27
TMP	PURGE+19~, PURGE+36, PURGE+50, MSG+1!
TMP(1	MSG+6*
TMP(2	MSG+7*
TMP(3	MSG+8*
TMP(4	MSG+9*
TMP(5	MSG+10*
TMP(6	MSG+11*
X	MAIN+2~, MAIN+27*, MAIN+29, MAIN+31, MAIN+32
XMDUZ	MSG+2~, MSG+15*
XMITPTR	PURGE+19~, PURGE+31, PURGE+32, PURGE+36, PURGE+45, PURGE+46, PURGE+50
XMSUB	MSG+2~, MSG+13*
XMTEXT	MSG+2~, MSG+14*
XMY	MSG+2~
XMY(	MSG+16*
XMZ	MSG+2~
ZTDESC	MAIN+3~, MAIN+34*
ZTDTH	MAIN+3~, MAIN+39*
ZTIO	MAIN+3~, MAIN+38*
>> ZTQUEUED	TASK+10
>> ZTREQ	TASK+10*
ZTRTN	MAIN+3~, MAIN+35*
ZTSAVE	MAIN+3~
ZTSAVE("SCDXBEG"	MAIN+36*
ZTSAVE("SCDXEND"	MAIN+37*
ZTSK	MAIN+3~, MAIN+40, MAIN+42, MAIN+44, MAIN+46

Information