Routine: XMDIR1

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC $$NEWERR^%ZTER ^%ZTLOAD $$HADD^XLFDT
MailMan	3	^XMD ^XMDIR1A ^XMDIR1B
VA Fileman	3	^DIC DT^DICRW ^DIK

Package	Total	Caller Graph
MailMan	3	XMDIR1A XMDIR1B XMMGR-DIRECTORY-VACO

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	OPTION+9, HFSFILE+2
^%ZISC	OPTION+23, INT+11
$$NEWERR^%ZTER	INT+5
^%ZTLOAD	ZTSK+2
^DIC	HFSFILE+1
DT^DICRW	JOB
^DIK	ENT+10, ENT+14
$$HADD^XLFDT	RES
^XMD	ENT+35
^XMDIR1A	ENT+19
^XMDIR1B	ENT+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"<<< This task seems to be running already !",!,"(It cannot be run multiple times concurrently.) >>>" Line Location: ENT+4
Function Call: WRITE	Prompt: !!,"Killing off old AUTOMATIC entries for this code ("_XMDIR1A("CODE")_").",!! Line Location: ENT+7
Function Call: WRITE	Prompt: "." Line Location: ENT+10
Function Call: WRITE	Prompt: "." Line Location: ENT+14
Function Call: WRITE	Prompt: !!,"Starting load",!! Line Location: ENT+16
Function Call: WRITE	Prompt: !!!,"Task Completed" Line Location: ENT+25
Function Call: WRITE	Prompt: !!,"You are about to load a file containing a list of names and" Line Location: OPTION+2
Function Call: WRITE	Prompt: !,"addresses into you Remote User Directory (file 4.2997). This" Line Location: OPTION+3
Function Call: WRITE	Prompt: !,"file originated either from a NOAVA system or a WANG system." Line Location: OPTION+4
Function Call: WRITE	Prompt: !,"Choose the correct file. We will check it some for format.",!! Line Location: OPTION+5
Function Call: WRITE	Prompt: !!,"Before the update occurs entries older than 90 days in the directory" Line Location: OPTION+13
Function Call: WRITE	Prompt: !,"are deleted if they were automatically filed by this procedure." Line Location: OPTION+14
Function Call: WRITE	Prompt: !,"Manually entered entries are deleted if they haven't been used" Line Location: OPTION+15
Function Call: WRITE	Prompt: !,"for at least 2 years." Line Location: OPTION+16
Function Call: WRITE	Prompt: !!,"Users are informed that an update is occuring if they are using" Line Location: OPTION+17
Function Call: WRITE	Prompt: !,"MailLink help options. But are allowed to continue.",!! Line Location: OPTION+18
Function Call: WRITE	Prompt: !!,"Nothing done.",$C(7),!! Line Location: OPTION+20
Function Call: WRITE	Prompt: !!,$C(7),"Task #"_ZTSK_" scheduled.",!! Line Location: OPTION+22
Function Call: WRITE	Prompt: !!,"Answer 'YES' if you mean 'YES'. All other response mean 'NO'." Line Location: INT+2
Function Call: WRITE	Prompt: !,"The first file to be processed is for the "_XMF_"." Line Location: INT+3
Function Call: WRITE	Prompt: !,"Enter '^' to skip this portion of the process.",!! Line Location: INT+4
Function Call: READ	Timeout: 1 Variable: Y Line Location: INT+7
Function Call: WRITE	Prompt: !!,"The following string was read from the first line of "_XMF_"." Line Location: INT+8
Function Call: WRITE	Prompt: !!,Y,!!,"Is this correct ? NO// " Line Location: INT+9
Function Call: WRITE	Prompt: ! Line Location: INT+12
Routine Call	DIC Line Location: HFSFILE+1
Routine Call	%ZIS Line Location: OPTION+9 HFSFILE+2

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^XMD(4.2997 - [#4.2997]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	HFSFILE+3, INT+1
^%ZOSF("TRAP"	INT+6
^TMP("XMDIR1"	ENT+1!, ENT+27, ENT+28, ENT+29, ENT+30, Q!, ER+1*
^XMB("NETNAME"	ENT+32
^XMD("XMDIR1"	ENT+4, Q
^XMD(4.2997 - [#4.2997]	ENT+10, ENT+14

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OPTION+1~, INT+9, INT+10, INT+11
%0	OPTION+1~
%1	OPTION+1~
%6	OPTION+1~
>> %ZIS	OPTION+9*
>> %ZIS("A"	OPTION+7*
>> %ZIS("B"	OPTION+8*
>> %ZIS("S"	OPTION+6*
A	ENT+35!
D	OPTION+1~, OPTION+12!*, OPTION+21
DA	ENT+9, ENT+10, ENT+13, ENT+14, OPTION+1~
>> DIC	HFSFILE*
>> DIC("S"	HFSFILE*
>> DIC(0	HFSFILE*
DIK	ENT+8~, ENT+9*
DT	ENT+13
DTIME	OPTION+11, OPTION+19, INT+9
DUZ	ENT+33
I	OPTION+1~
IO	ENT+17, OPTION+10, JOB*, INT+7
IO("Q"	OPTION+23!
IO(0	ENT+6, JOB*, INT+7
ION	OPTION+10
>> IOP	HFSFILE+2*
>> IOS	HFSFILE+3, INT+1
J	OPTION+1~
>> POP	OPTION+9, HFSFILE+2
U	JOB*, HFSFILE+3, INT+1
X	OPTION+1~, OPTION+11, OPTION+12, OPTION+19, OPTION+20, HFSFILE+2, INT+6*
>> XMA	ENT+1*
XMA0	ENT+10, ENT+14, OPTION+1~
XMB0	OPTION+1~
XMC0	OPTION+1~
XMDIR1	ENT+13*, ENT+14, OPTION+1~
XMDIR1("CNT"	ENT+13, ER+1
XMDIR1("N"	ENT+30
XMDIR1("W"	ENT+29
XMDIR1A	ENT+6, ENT+24!, OPTION+10*, OPTION+23!
XMDIR1A("CODE"	ENT+6*, ENT+7, ENT+10, ENT+19, ENT+22
XMDIR1B	ENT+24!, OPTION+23!
XMDUZ	ENT+32~, OPTION+1~, OPTION+23!, ZTSK+1
>> XME	ER+1
>> XMF	OPTION+10, HFSFILE+3, INT+1*, INT+3, INT+8
XMSUB	ENT+31*, OPTION+1~
XMTEXT	ENT+31*, OPTION+1~
XMY	OPTION+1~, ER+1
XMY(	ENT+33, ENT+34
XMY("G.POSTMASTER@"	ENT+32*
XMY(0	ENT+34
Y	OPTION+1~, HFSFILE+1, INT+7*, INT+9
ZTDESC	OPTION+23!, ZTSK+1*
ZTDTH	OPTION+23!, ZTSK+1, ZTSK+2
>> ZTQUEUED	ENT+4, ENT+7, ENT+10, ENT+14, ENT+16, ENT+25, OPTION, JOB*
ZTREQ	ENT+1!, RES*
ZTRTN	OPTION+23!, ZTSK+1*
>> ZTSAVE("*"	ZTSK+1*
ZTSK	OPTION+22, OPTION+23!

Customize PDF page

Package: MailMan

Routine: XMDIR1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HFSFILE
OPTION
INT	;Interactive processing begins here
RES
Q
JOB
ENT	;Batch Entry point (TaskMan)
ZTSK	;Schedule to run in the evening
ER	;Display error

Name	Line Occurrences
ENT	OPTION, INT+12
INT	OPTION+21
Q	ENT+4
RES	ENT+4
XMDIR1	JOB
ZTSK	OPTION+22