Routine: AMH40P6

Package	Total	Call Graph
VA Fileman	3	(,IX)^DIC ^DIE (,ENALL)^DIK
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
M Transfer	1	GUIEP^BMXPO
Mental Health Social Services	1	$$UPI^AMHLESF

Name	Comments	DBIA/ICR reference
PRE	;
IMES	;
CLEAN(APP)	;-- clean out the RPC multiple first
SFRFLG	;
SORRY(X)	;
ENV	;EP
POST	;EP
BMXPO	;-- update the RPC file
INSTALLD(AMHSTAL)	;EP - Determine if patch AMHSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".

Name	Field # of Occurrence
$$UPI^AMHLESF	SFRFLG+11
GUIEP^BMXPO	BMXPO+5
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
^DIE	POST+2
^DIK	PRE+1, CLEAN+6
ENALL^DIK	SFRFLG+16
$$CJ^XLFSTR	ENV+2, ENV+3, ENV+4, ENV+5, ENV+6, ENV+7, IMES+1, SORRY+4
$$VERSION^XPDUTL	ENV+2, ENV+4, ENV+6
MES^XPDUTL	ENV+2, ENV+3, ENV+4, ENV+5, ENV+6, ENV+7, IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: POST+2
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	SFRFLG+4, SFRFLG+5, SFRFLG+9, SFRFLG+10, SFRFLG+13*
^AMHPSUIC("AEX"	SFRFLG+1, SFRFLG+14*
^AMHPSUIC("B"	SFRFLG+15!
^AMHSITE - [#9002013]	POST+2
^AMHSORT - [#9002013.3]	PRE+1
^AUTTLOC - [#9999999.06]	SFRFLG+3
^AUTTSITE(1	SFRFLG+3
^DIC(19 - [#19]	BMXPO+2, CLEAN+4, CLEAN+7!

Name	Field # of Occurrence
>> AMHAS	SFRFLG+3*, SFRFLG+8
>> AMHD	SFRFLG+1, SFRFLG+2, SFRFLG+14
AMHDA	CLEAN+3~, CLEAN+4*, CLEAN+5
AMHRPC	BMXPO+1~, BMXPO+2*, BMXPO+3, BMXPO+4, BMXPO+5
AMHSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHX	PRE+1, POST+2, SFRFLG+4*, SFRFLG+5, SFRFLG+9, SFRFLG+10, SFRFLG+13, SFRFLG+14
AMHY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
APP	CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7
>> D	SFRFLG+10, SFRFLG+11, INSTALLD+5
DA	PRE+1, POST+2!, CLEAN+5*
DA(1	CLEAN+1*, CLEAN+2
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIE	POST+2*!
DIFQ	SORRY+1!
>> DIK	PRE+1, SFRFLG+16, CLEAN+2*
>> DIK(1	SFRFLG+16*
DR	POST+2*!
DT	SFRFLG+2
IOM	IMES+1, SORRY+4
>> P	SFRFLG+9*, SFRFLG+11
>> RETVAL	BMXPO+5
U	POST+2, SFRFLG+3, SFRFLG+5, SFRFLG+9, SFRFLG+10, SFRFLG+13
X	ENV+1, SFRFLG+5, SFRFLG+6, SFRFLG+8, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11*, SORRY~, SORRY+2 , SORRY+3
>> XPDDIQ(	ENV+1*
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1
>> Z	SFRFLG+11*, SFRFLG+13

Information