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 |  All
Print Page as PDF
Routine: XMDIR1

Package: MailMan

Routine: XMDIR1


Information

XMDIR1 ;(WASH ISC)/CAP-Load VACO Directories ;04/17/2002 08:47

Source Information

Source file <XMDIR1.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 3

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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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!
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 |  All