Routine: PSXSITE

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC ^DIC FILE^DICN ^DIE $$GET1^DIQ EN^DIQ1 ^DIR
CMOP	2	GRP^PSXNOTE (DEACT,SET,SYS,SYSTEM)^PSXSYS
MailMan	2	XMZ^XMA2 ENT1^XMD
Kernel	1	$$KSP^XUPARAM

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC FILE^DICN ^DIE $$GET1^DIQ EN^DIQ1 ^DIR

CMOP

GRP^PSXNOTE (DEACT,SET,SYS,SYSTEM)^PSXSYS

MailMan

XMZ^XMA2 ENT1^XMD

Kernel

$$KSP^XUPARAM

Package	Total	Caller Graph
CMOP	4	PSXACT PSXDODAC PSXR ACTIVATE PSXSYS

Package

Total

Caller Graph

CMOP

PSXACT PSXDODAC PSXR ACTIVATE PSXSYS

External References

Name	Field # of Occurrence
NOW^%DTC	NOTE+6, FILEA+3
^DIC	ACT+1
FILE^DICN	FILEB+4, FF, FC, F
^DIE	EN1+9, EXIT+4, LOCK, FILEA+1, LOCK1
$$GET1^DIQ	NOTE+3, NOTE+4, MM+1
EN^DIQ1	NOTE
^DIR	AC
GRP^PSXNOTE	MESS+9
DEACT^PSXSYS	EN2+1
SET^PSXSYS	EN1+1
SYS^PSXSYS	ACT+6
SYSTEM^PSXSYS	EN2+2
XMZ^XMA2	MM, MESS+1
ENT1^XMD	MM+6, MESS+9
$$KSP^XUPARAM	NOTE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: EN1+0
Function Call: WRITE	Prompt: !!,"The Station number is missing in the Institution file.",!,"The Station number is required for CMOP transmissions.",!,"Please contact your IRM and have this problem corrected, then try again.",! Line Location: EN1+2
Function Call: WRITE	Prompt: !,"There is a transmission in progress, try later." Line Location: EN1+3
Function Call: WRITE	Prompt: !,"There is a transmission in progress, try later." Line Location: EN1+4
Function Call: WRITE	Prompt: !,"Sorry, someone else has the CMOP System file!" Line Location: EN1+8
Function Call: WRITE	Prompt: !,"A request to activate a system has been sent and action is pending." Line Location: EN2+0
Function Call: WRITE	Prompt: !,"Someone else has the CMOP System file in use, quitting" Line Location: EXIT+2
Function Call: WRITE	Prompt: ! Line Location: ACT+0
Function Call: WRITE	Prompt: !,"Enter the name of the system to activate." Line Location: ACT+2
Function Call: WRITE	Prompt: ! Line Location: ACT+4
Function Call: WRITE	Prompt: !,"The "_SYSTEM_" is already activated." Line Location: ACT+5
Function Call: WRITE	Prompt: ! Line Location: AC+0
Function Call: WRITE	Prompt: !!,"Request to activate sent to "_SYSTEM_"." Line Location: AC+3
Function Call: WRITE	Prompt: !!,"The Station number is missing in the Institution file.",!,"The Station number is required for CMOP transmissions.",!,"Please contact your IRM and have this problem corrected, then try again." Line Location: NOTE+1
Function Call: WRITE	Prompt: !!,"There is no mail domain to send the request to." Line Location: NOTE+5
Routine Call	DIE Line Location: EN1+9 EXIT+4 LOCK FILEA+1 LOCK1
Routine Call	DIC Line Location: ACT+1
Routine Call	DIR Line Location: AC

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4.2 - [#4.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	NOTE+6
^DIC(4.2 - [#4.2]	FILE
^PSX(550 - [#550]	EN1+3, EN1+4, EN1+8, EN1+9, EN2, EN2+1, EN2+2, EXIT+2, EXIT+5, ACT+5 , NOTE+3, FILEB+1*
^PSX(552	FILE+1, FF+2, LOCK, LOCK+1, FILEA, FILEA+1, FILEA+2, LOCK1
^XMB(3.9 - [#3.9]	MM+1, MM+2, MM+3, MESS+2, MESS+3, MESS+4, MESS+5, MESS+6, MESS+7*
^XUSEC("PSXCMOPMGR"	EN1

Name	Line Occurrences
ACT	ACT+2, ACT+5
EN2	EN1+1
EXIT	EN2, EN2+1, ACT+1, ACT+4, AC
FILEA	FILEA+1
LOCK	LOCK
MESS	MESS+1
MM	MM
NOTE	AC+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOTE+6!, LOCK1!
AA	EXIT+6!
>> ACTFLAG	LOCK+4, FILEA+1, FILEA+4
>> AGENCY	FILE+4
CDOM	EXIT+6!
DA	EN1+6!, EN1+7, EN1+8, EN1+9, EN1+10!, EXIT+1, EXIT+2, EXIT+3!, EXIT+4, EXIT+5! , ACT+3, NOTE!, FILEB+2, FILEB+4!, LOCK!, LOCK+3, F!, FILEA+1!, LOCK1!
DA(1	FILEB+2, FC, LOCK+3, LOCK1
DD	FILEB+2!, FILE+2!, LOCK+2!
DIC	ACT+1!, ACT+4!, NOTE!, FILEB+2, FILEB+4!, FILE+4, FF!, FC!, LOCK+3, F!
DIC("A"	ACT+1*
DIC("DR"	FILEB+3, FILEB+4!, FILE+4, FF!, FC!, LOCK+4, F!
DIC(0	ACT+1, FILEB+2, FILE+4, FC, LOCK+3*
DIE	EN1+6!, EN1+7, EN1+10!, EXIT+3!, EXIT+4, EXIT+5!, LOCK!, FILEA+1!, LOCK1*!
>> DIQ	NOTE*
>> DIQ(0	NOTE*!
DIR	EXIT+6!, AC!
DIR("A"	AC*
DIR("B"	AC*
DIR(0	AC*
DIROUT	EXIT+6!
DIRUT	EXIT+6!, AC!
DO	FILEB+2!, FILE+2!, LOCK+2!
DOMAIN	NOTE+3*, NOTE+5, MM+4, FILEB+5!
DR	EN1+6!, EN1+7, EN1+10!, EXIT+3!, EXIT+4, EXIT+5!, NOTE!, LOCK, FILEA+1!, LOCK1
DT	MM+3, MESS+7
DTOUT	EXIT+6!, ACT+1!, AC!
DUOUT	EXIT+6!, ACT+1!, AC!
DUZ	EN1, NOTE+4, MM+1, FILEB+3, LOCK+4, LOCK1
FDOM	EXIT+6!, FILE*
LCNT	NOTE+7, MM+3, MESS, MESS+7, FILEB+5!
NAME	NOTE+4*, MM+3, MESS+5, FILEB+5!
NM	NOTE+4*, FILEB+5!
PDTTM	EXIT+6!
PP	EXIT+6!
PSXMDM	EXIT+6!
PSXSYS	EN1+1, EN1+2, EN1+3, EN1+7, EXIT, EXIT+1, EXIT+4, EXIT+6!
PSXUTIL	NOTE+2!
PSXUTIL(4	NOTE
PURG	EXIT+6!
>> RDOM	FILE
>> RDTTM	FC, LOCK+3, LOCK+4
REC	FILE+1, FILE+4, FC+1, LOCK, LOCK+1, LOCK+3, F!, FILEA, FILEA+1, FILEA+2 , LOCK1!
RECA	FF+1*, FF+2, FC!
>> REQT	FC, LOCK+4
RTIME	NOTE+6*, MESS+6, FILEB+5!
S1	AC+2!, NOTE*
S2	AC+2!
S3	AC+2!
SITE	NOTE*, MM+1, FILEB+5!
>> SITENUM	FILE+1, FILE+4, FILEA
SS	EXIT+6!, ACT!, ACT+3*, ACT+5, NOTE+3, MM+1, FILEB+1, FILEB+2
ST	NOTE*, NOTE+1, MM+1, FILEB+5!
STAT	EXIT+6!, FILEB, FILEB+3, FILEA+4, LOCK1!
SUBREC	FILEA+2*, LOCK1!
SY	EXIT+6!
SYSFLAG	EN2+2, EXIT+6!, ACT+6, NOTE+7, MM+1, MESS, MESS+2, FILEB
SYSSTAT	EXIT+6!
SYSTEM	EXIT+6!, ACT!, ACT+3*, ACT+5, AC, AC+3, MESS+4
TIME	NOTE+6*, MM+1, FILEB+2, FILEB+5!
TT	EXIT+6!, ACT+5*
U	ACT+3, NOTE+3, MM+3, MESS+7
X	ACT+2, ACT+3, ACT+4, FILEB+2, FILEB+4!, FILE+4, FF!, FC, LOCK+3, F!
XMDUN	MM+3, MESS+7, FILEB+5!
XMDUZ	NOTE+7, MM+4, MESS, MESS+8, FILEB+5!
XMIT	EXIT+6!
XMSUB	NOTE+7, MESS, FILEB+5!
XMY	MM+4!, MESS+8!, FILEB+5!
XMY("S.PSXX C	MOP SERVER@" , MM+4*
XMZ	MM, MM+1, MM+2, MM+3, MESS+1, MESS+2, MESS+3, MESS+4, MESS+5, MESS+6 , MESS+7, FILEB+5!
XSS	FILEA+2*, LOCK1!
XX	EXIT+6!, NOTE+3*
Y	EXIT+6!, ACT!, ACT+1, ACT+3!, ACT+4!, AC, NOTE+6*!, FF+1

Customize PDF page

Package: CMOP

Routine: PSXSITE

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: