Routine: AMH40P1

Package	Total	Call Graph
VA Fileman	5	(,IX)^DIC FILE^DICN DT^DICRW ^DIE (,ENALL)^DIK
Kernel	3	HOME^%ZIS $$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
M Transfer	1	GUIEP^BMXPO
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;
ICDNEW	;;
IMES	;
INSTALLD(AMHSTAL)	;EP - Determine if patch AMHSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
MM3	;BULLETIN;
NEWE
SUBJECT3
SORRY(X)	;
GETREC3	;
ENV	;EP
NEW	;add new codes
WRITEMS3	;
POST	;EP
BMXPO	;-- update the RPC file
SENDER3

Name	Field # of Occurrence
HOME^%ZIS	MM3+2
GUIEP^BMXPO	BMXPO+1
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DICN	NEW+11
DT^DICRW	MM3+2
^DIE	PRE+5, NEWE+3
^DIK	PRE+1, PRE+2
ENALL^DIK	POST+3
$$CJ^XLFSTR	ENV+2, ENV+3, ENV+4, ENV+5, ENV+6, ENV+7, IMES+1, SORRY+4
^XMD	SENDER3+3
$$VERSION^XPDUTL	ENV+2, ENV+4, ENV+6
MES^XPDUTL	ENV+2, ENV+3, ENV+4, ENV+5, ENV+6, ENV+7, IMES+1, NEW+6, NEW+12, NEWE+4

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR ZERO.",! Line Location: MM3+1
Function Call: WRITE	Prompt: !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key." Line Location: SENDER3+2
Routine Call	%ZIS Line Location: MM3+2
Routine Call	DIE Line Location: PRE+5 NEWE+3
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^AMHBHPC - [#9002014.59]	PRE+2
^AMHPATCH - [#9002013.2]	WRITEMS3+3
^AMHPATCH("AA"	WRITEMS3+1
^AMHPROB("B"	NEW+8
^AMHPROBC("B"	NEW+5
^AMHSITE - [#9002013]	POST+5, POST+6, POST+7, POST+8*
^AMHSORT - [#9002013.3]	PRE+1
^AMHTSET("B"	PRE+4
^DIC(4 - [#4]	POST+8
^TMP($J	MM3+5!, SENDER3+4!, WRITEMS3+3, WRITEMS3+4, WRITEMS3+5, WRITEMS3+6, WRITEMS3+7, WRITEMS3+8, WRITEMS3+9*
^XUSEC(	GETREC3+4

Name	Field # of Occurrence
>> AMHC	WRITEMS3+3, WRITEMS3+4, WRITEMS3+5, WRITEMS3+6, WRITEMS3+7, WRITEMS3+8, WRITEMS3+9*
>> AMHCODE	NEW+4*, NEW+12, NEWE+2, NEWE+4
>> AMHIEN	WRITEMS3+1*, WRITEMS3+2, WRITEMS3+3
>> AMHINA	NEW+7*, NEWE+2
AMHKEY	SENDER3+2, SENDER3+4!, GETREC3+3*, GETREC3+4
>> AMHNMM	POST+5, POST+8, POST+9, WRITEMS3+9
>> AMHPC	NEW+5*, NEW+6, NEWE+2
AMHSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHTEXT	NEW+3*
>> AMHTX	NEW+3*, NEW+4, NEW+6, NEW+7
>> AMHX	POST+5, POST+6, POST+7, POST+8, WRITEMS3+3, NEW+3*
AMHY	POST+6, POST+7, POST+8, INSTALLD+3~, INSTALLD+13, INSTALLD+15
>> C	NEW+4*, NEW+5
>> CTR	GETREC3+3, GETREC3+4
>> D	INSTALLD+5*
D0	NEW+11!
DA	PRE+1, PRE+2, PRE+3!, PRE+4, PRE+5!, NEW+8, NEW+13*, NEWE+3!
DD	NEW+11!
DIADD	NEW+9*, NEW+11!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11, NEW+9, NEW+11!
DIC(0	INSTALLD+5, NEW+10
DIE	PRE+5!, NEWE+1, NEWE+3!
DIFQ	SORRY+1!
DIFROM	MM3+4~
DIK	PRE+1, PRE+2, PRE+3!, POST+3*, POST+4!
DIK(1	POST+3*
DLAYGO	NEW+9*, NEW+11!
DO	NEW+11!
DR	PRE+5!, NEWE+2, NEWE+3!
DUZ	MM3+1, SENDER3+1
IOM	IMES+1, SORRY+4
IOST	SENDER3+2
>> RETVAL	BMXPO+1
U	POST+7, POST+8
X	ENV+1, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3, NEW+4*, NEW+8
XMDUZ	MM3+4~, SENDER3*
XMSUB	MM3+4~, SUBJECT3*
XMTEXT	MM3+4~, SENDER3+1*
XMY	MM3+4~
XMY(	SENDER3+1, GETREC3+4
XMY(1	SENDER3+1*
>> XPDDIQ(	ENV+1*
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1, GETREC3+4*, NEW+12, NEW+13 , NEWE+4

Name	Field # of Occurrence
$T(@AMHTEXT+AMHX	NEW+3