Routine: AMH30P7

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

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: "Attempt to add EHR PARAMETER EDIT option failed.." Line Location: POST+2
Function Call: WRITE	Prompt: !,"adding default hospital location entry failed for ",AMHN Line Location: POST+12
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: BULLETIN+1
Function Call: WRITE	Prompt: !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key." Line Location: SENDER+2
Routine Call	%ZIS Line Location: BULLETIN+2
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATCH - [#9002013.2]	WRITEMSG+3
^AMHPATCH("AA"	WRITEMSG+1
^AMHSITE - [#9002013]	POST+4
^AUTTLOC - [#9999999.06]	POST+5
^SC("B"	POST+6
^TMP($J	BULLETIN+5!, SENDER+4!, WRITEMSG+3*
^XUSEC(	GETRECIP+4

Name	Field # of Occurrence
>> AMHC	WRITEMSG+3*
>> AMHIEN	WRITEMSG+1*, WRITEMSG+2, WRITEMSG+3
AMHKEY	SENDER+2, SENDER+4!, GETRECIP+3*, GETRECIP+4
>> AMHN	POST+5*, POST+6, POST+9, POST+12
AMHSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHX	POST+4, POST+5, POST+10, WRITEMSG+3
AMHY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> CTR	GETRECIP+3, GETRECIP+4
>> D	INSTALLD+5*
D0	POST+8!
>> DA	PRE+1, PRE+2, PRE+3*
DD	POST+8!
DIADD	POST+9*, POST+13!
DIC	POST+9, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC("DR"	POST+10*
DIC(0	POST+9, INSTALLD+5
DIFQ	SORRY+1!
DIFROM	BULLETIN+4~
>> DIK	PRE+1, PRE+2, PRE+3*
DLAYGO	POST+9*, POST+13!
DO	POST+8!
DUZ	BULLETIN+1, SENDER+1
IOM	IMES+1, SORRY+4
IOST	SENDER+2
U	POST+5
X	ENV+2, POST+1, POST+2, POST+9, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2 , SORRY+3
XMDUZ	BULLETIN+4~, SENDER*
XMSUB	BULLETIN+4~, SUBJECT*
XMTEXT	BULLETIN+4~, SENDER+1*
XMY	BULLETIN+4~
XMY(	SENDER+1, GETRECIP+4
XMY(1	SENDER+1*
>> XPDDIQ(	ENV+2*
>> XPDDIQ("XPZ1"	ENV+1*
>> XPDDIQ("XPZ2"	ENV+1*
>> XPDENV	ENV+1
>> XPDQUIT	SORRY+2, SORRY+3
Y	POST+12, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1, GETRECIP+4*