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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XMCD1

Package: MailMan

Routine: XMCD1


Information

XMCD1 ;PKE/ALBANY COMMUNICATIONS DIAGNOSTICS;1/10/85 ; 12 FEB 86 4:16 pm

Source Information

Source file <XMCD1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
MailMan 3 EN^XM  SCANNEW^XMA  (NETRDY,NETSHAK)^XMNET2  
Kernel 1 ^%ZIS  
Registration 1 BYPASS^DGHINQ  

Entry Points

Name Comments DBIA/ICR reference
GO ;
DIAG
DXHINQ
VADATS ;VADATS EXTENDED DIAGNOSTIC

External References

Name Field # of Occurrence
^%ZIS DIAG+2
BYPASS^DGHINQ DXHINQ+6
EN^XM DXHINQ+7
SCANNEW^XMA DXHINQ+7
NETRDY^XMNET2 GO+1
NETSHAK^XMNET2 DIAG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This will will test VADATS link for 'Net Go Ahead'"
  • Line Location: VADATS+1
Function Call: WRITE
  • Prompt: !,*7,"No MailMan site parameters defined"
  • Line Location: VADATS+2
Function Call: WRITE
  • Prompt: !,*7,"No VADATS device defined. Use the SITE PARAMETERS option to define one."
  • Line Location: VADATS+3
Function Call: WRITE
  • Prompt: !,"Device ",IO," defined as the VADATS device."
  • Line Location: VADATS+4
Function Call: WRITE
  • Prompt: !,*7,"VADATS device is currently in use."
  • Line Location: DIAG+0
Function Call: WRITE
  • Prompt: !,"Trying to open link to VADATS....."
  • Line Location: DIAG+1
Function Call: WRITE
  • Prompt: !,*7,"Unable to open device."
  • Line Location: DIAG+3
Function Call: WRITE
  • Prompt: !,XMNANS," VADATS line OK ",$P($H,",",2)-XMNICK
  • Line Location: DIAG+4
Function Call: WRITE
  • Prompt: " (",T,")"
  • Condition for execution: $D(T)
  • Line Location: DIAG+4
Function Call: WRITE
  • Prompt: !,*7,"Net go-ahead not recieved"
  • Line Location: GO+2
Function Call: WRITE
  • Prompt: !,XMNANS," DHCP-MCTS link OK ",$P($H,",",2)-XMNICK
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !,*7,*7,"WARNING this test may last up to 3 minutes"
  • Line Location: DXHINQ+3
Function Call: READ
  • Prompt: "Do you wish to continue ? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: DXHINQ+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: DXHINQ+7
Routine Call
  • %ZIS
  • Line Location:
    • DIAG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" VADATS+5
^%ZIS(1 - [#3.5] VADATS+4
^%ZOSF("EOFF" DIAG+2
^%ZOSF("RM" DIAG+2
^%ZOSF("TYPE-AHEAD" DIAG+2
^DPT - [#2] DXHINQ+5
^XMB(1 - [#4.3] VADATS+2

Label References

Name Line Occurrences
DIAG VADATS+5

Naked Globals

Name Field # of Occurrence
^(0 VADATS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DXHINQ+5*
DGDUZ DXHINQ+7*!
>> DGP DXHINQ+6*
DGU DXHINQ+2!
DTIME DXHINQ+4
DUZ DXHINQ+7*
IO VADATS+3*, VADATS+4*, DIAG, DIAG+2, GO+1
IO(0 DIAG+2, GO+2
>> IOP DIAG+2*
>> POP DIAG+2
>> T DIAG+4
U VADATS+3, VADATS+4
>> X DIAG+2*, DXHINQ+4*
>> XMDUZ DXHINQ+7*
>> XMNABT DIAG+2*, DIAG+3, GO+1*, GO+2
>> XMNANS DIAG+4, GO+3
>> XMNCR DIAG+2*
XMNICK VADATS+5!, DIAG+2*, DIAG+4, GO+3
>> XMNIME DIAG+2*
>> XMR DXHINQ+7
>> Z DXHINQ+7*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All