Routine: APCLP20

Package	Total	Call Graph
Kernel	4	HOME^%ZIS $$CJ^XLFSTR ($$ADD,$$DELETE)^XPDMENU MES^XPDUTL
VA Fileman	4	(,IX)^DIC DT^DICRW ^DIE ^DIK
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
PRE	;EP
OPT	;add new options
IMES	;
SENDER
GETRECIP	;
WRITEMSG	;
SORRY(X)	;
INSTALLD(APCLSTAL)	;EP - Determine if patch APCLSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
POST	;EP
SUBJECT

Name	Line Occurrences
Function Call: WRITE	Prompt: "Attempt to add Internet access report option failed.." Line Location: OPT+4
Function Call: WRITE	Prompt: !,"Sending Mailman message to holders of the"_" "_APCLKEY_" "_"security key." Line Location: SENDER+2
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	%ZIS Line Location: OPT+6
Routine Call	DIE Line Location: PRE+9
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^APCLBMI("H"	PRE+8!
^APCLPDES - [#9001004.5]	WRITEMSG+3
^APCLPDES("B"	WRITEMSG+1
^DIC(19 - [#19]	PRE+9
^TMP($J	OPT+9!, SENDER+4!, WRITEMSG+3*
^XUSEC(	GETRECIP+4

Name	Field # of Occurrence
APCLKEY	SENDER+2, SENDER+4!, GETRECIP+3*, GETRECIP+4
APCLSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
APCLY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> CTR	GETRECIP+3, GETRECIP+4
>> D	INSTALLD+5*
DA	PRE+1, PRE+3, PRE+4, PRE+5, PRE+6, PRE+7, PRE+9*!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIE	PRE+9*!
DIFQ	SORRY+1!
DIFROM	OPT+8~
>> DIK	PRE+1, PRE+3, PRE+4, PRE+5, PRE+6, PRE+7
DR	PRE+9*!
DUZ	SENDER+1
IOM	IMES+1, SORRY+4
IOST	SENDER+2
X	APCLP20+5, OPT+1, OPT+2, OPT+3, OPT+4, WRITEMSG+1, WRITEMSG+2, WRITEMSG+3, INSTALLD+3~, INSTALLD+4 , INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
XMDUZ	OPT+8~, SENDER*
XMSUB	OPT+8~, SUBJECT*
XMTEXT	OPT+8~, SENDER+1*
XMY	OPT+8~
XMY(	SENDER+1, GETRECIP+4
XMY(1	SENDER+1*
>> XPDDIQ(	APCLP20+5*
>> XPDQUIT	SORRY+2, SORRY+3
Y	WRITEMSG+3, GETRECIP+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Information