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: XMAH1CP

Package: MailMan

Routine: XMAH1CP


Information

XMAH1 ;(WASH ISC)/CAP- Network Responses ;3/25/91 20:13 ; [ 02/22/96 9:27 AM ]

Source Information

Source file <XMAH1CP.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
MailMan 8 NEW^XMA  C1^XMA1  REPLY^XMA11  (KL,S2)^XMA1B  ENTS^XMA20  INSTXM^XMA21  ENT1^XMAD1  $$NET^XMRENT  
Kernel 1 ENDR^%ZISS  

Entry Points

Name Comments DBIA/ICR reference
ENTA
ARQ
ARS
AQ1 ;I $S('$D(XMNETREC):0,XMNETREC:1,1:0) K XMCHAN D AR ;IHS/MFD comm out
ZIS
IHS ;IHS/MFD added subroutine looking for network recipients
IHS1
POP
AQ ;Is it a network response ? (current code just checks sender)
ARA
AR
ACHK
AZ
ARN

External References

Name Field # of Occurrence
ENDR^%ZISS ZIS
NEW^XMA ENTA+4
C1^XMA1 AZ
REPLY^XMA11 AQ+10
KL^XMA1B ENTA+4
S2^XMA1B ENTA+4
ENTS^XMA20 ARN+2
INSTXM^XMA21 ACHK+1
ENT1^XMAD1 ARN+13
$$NET^XMRENT ARN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!," << Message SAVED in IN Basket ! >>",!
  • Line Location: ENTA+3
Function Call: WRITE
  • Prompt: !!," << LOCAL Reply Sent >>",!
  • Line Location: AQ+11
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ARA+0
Function Call: WRITE
  • Prompt: *7,$S($D(IORVON):IORVON,1:""),!,"Do you wish to send this reply across the network ? YES//",$S($D(IORVOFF):IORVOFF,1:"")
  • Line Location: ARA+0
Function Call: WRITE
  • Prompt: !!,$C(7)_"Enter 'Yes' if you wish to send this message across the network."
  • Line Location: ARA+5
Function Call: WRITE
  • Prompt: !,"Enter 'No' if you wish your response to remain local."
  • Line Location: ARA+6
Function Call: WRITE
  • Prompt: !,"The sender of this message will not see your response if you answer 'No'."
  • Line Location: ARA+7
Function Call: WRITE
  • Prompt: !!,"CAUTION !!!",!!
  • Line Location: ARA+8
Function Call: WRITE
  • Prompt: "A network response will go to all message recipients on the mail system"
  • Line Location: ARA+9
Function Call: WRITE
  • Prompt: !,"of the sender. FOR EXAMPLE, If the sender's address ends '@DOMAIN.NAME'"
  • Line Location: ARA+10
Function Call: WRITE
  • Prompt: !,"and the message had 500 recipients on FORUM, then a response sent across"
  • Line Location: ARA+11
Function Call: WRITE
  • Prompt: !,"the network will be delivered to 500 recipients. If you prefer to send a"
  • Line Location: ARA+12
Function Call: WRITE
  • Prompt: !,"response only to the sender, you should create a new message.",!!
  • Line Location: ARA+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ARN+2
Function Call: WRITE
  • Prompt: !,"Network Reply complete !"
  • Line Location: ARN+13
Function Call: WRITE
  • Prompt: !!,"Response will only be local !",!!
  • Line Location: ARS+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("XMY" AR!
^TMP("XMY0" AR!
^XMB("NETNAME" ARN+12
^XMB(3.9 - [#3.9] ENTA+1, ENTA+2, ARN+1, ARN+3, ARN+5!, ARN+6*, ARN+9, ARN+12*, IHS+2, IHS1+1

Label References

Name Line Occurrences
ACHK ARN+11
AQ ENTA
AR AQ1+1, IHS1+1
ARA ARA+14
ARN AR+2, AR+3, ARA+4
ARQ ARS
ARS ARA+2, ARA+4, ARN+3
AZ ENTA+2, AQ+10
IHS AQ+9
IHS1 AQ1+2
POP ARN+13, ARS
ZIS AR+3

Naked Globals

Name Field # of Occurrence
^("K" ARN+12*
^("T" ENTA+2
^(0 ARN+1*
^(5 ARN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ARN+12*, ACHK+1~
DTIME ARA
DUZ ARN+6
IHS AQ+9!, AQ1+2!, ARN+1, ARN+14, IHS+2*
IHSNET AQ+9!, AQ1+2!, AR+2, ARA+1*, ARN+2
IHSREC AQ+8!*, AQ1+1!, AQ1+2!, ARN+10!, IHS1+1*
IHSX AQ1+2!, IHS1*, IHS1+1*
>> IORVOFF ARA
>> IORVON ARA, ZIS
U ENTA, AQ+8, AQ+10, ARN, ARN+1, ARN+3, ARN+5, ARN+6, ARN+9
X AQ+10, ARA*, ARA+2*, ARA+4, ARN+2*, ARN+3, ARN+4*, ARN+6, ARN+9*, ARN+10*
, ARN+11, ACHK, ZIS*, IHS+1~*, IHS+2*
XMCHAN AQ1+1!, AR+3, ARN+1, ARN+2, ARN+11
>> XMDUZ ENTA+1, AQ+8, ARN+6
>> XMK ENTA, ENTA+4*
XMKD ENTA+4*!
XMKM ENTA+4*!
>> XMKN ENTA+4*
>> XMKS ENTA+4*
>> XMMG ARN+11, ACHK*
>> XMN ARN+6*
XMNETREC AQ+8!*, AQ+10!, ARN+1, ARQ!, IHS+2*, IHS1+1
XMNETREC("XMR" ARN+1*, POP
XMNETREC(0 ARN*, ARN+9, ARN+12, POP
>> XMR ENTA, AQ+8, ARN, ARN+1*, ARN+6*, POP*
XMSUB AQ+10!, ARN*, ARN+1, ARN+4, ARQ!
XMY AR!
XMY0 AR!
>> XMZ ENTA+1, ENTA+2, ARN, ARN+1*, ARN+3, ARN+5, ARN+6, ARN+12, POP*, IHS+2
, IHS1+1
>> Y ENTA+1*, ENTA+2, ARN+5*, ARN+11*, ARN+12*, ACHK*
>> Y1 ARN+9*, ARN+10*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All