Routine: AMH30P6

Package	Total	Call Graph
VA Fileman	4	(,IX)^DIC FILE^DICN ^DIE ^DIK
Kernel	2	$$CJ^XLFSTR MES^XPDUTL
Mental Health Social Services	2	^AMH30P6B ^AMHPAR
IHS VA Utilities	1	^XBFMK

Entry Points

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

Name	Field # of Occurrence
^AMH30P6B	PADDSE+7
^AMHPAR	PADDSE+6
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DICN	POST+30, ADDPC+1
^DIE	POST+2, POST+4, POST+6, POST+7, POST+8, POST+25, PADDSE+2
^DIK	PRE+1, PRE+2, PRE+3, PRE+4
^XBFMK	PRE+5, POST+2, POST+4, POST+6, POST+7, POST+8, POST+19, POST+27, POST+31
$$CJ^XLFSTR	IMES+1, SORRY+4
MES^XPDUTL	IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: " editing problem code failed" Line Location: POST+26
Function Call: WRITE	Prompt: " Already have code ",AMHC," will edit." Line Location: POST+29
Function Call: WRITE	Prompt: " adding failed in dsm file" Line Location: POST+31
Function Call: WRITE	Prompt: " editing ",AMHC," failed dsm file." Line Location: PADDSE+3
Function Call: WRITE	Prompt: " adding failed." Line Location: ADDPC+2
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: POST+2 POST+4 POST+6 POST+7 POST+8 POST+25 PADDSE+2
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	POST+4, POST+6
^AMHPROB("B"	POST+1, POST+3, POST+5, POST+7, POST+8, POST+28
^AMHPROBC("B"	POST+20
^AMHTSET - [#9002012.1]	PRE+4
^AMHTSET("C"	PRE+4

Name	Field # of Occurrence
>> AMHC	POST+11*, POST+17, POST+18, POST+20, POST+28, POST+29, POST+30, PADDSE+3, ADDPC+1
>> AMHCAT	POST+15*, POST+24
>> AMHD	POST+12*, POST+24, PADDSE+1
>> AMHJ	POST+10*
>> AMHM	POST+13*, PADDSE+1
>> AMHP	POST+14*, PADDSE+1
AMHSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHX	PRE+4, POST+3, POST+4, POST+5, POST+6, POST+10, POST+11, POST+12, POST+13, POST+14 , POST+15
AMHY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
D0	POST+30!, ADDPC+1!
DA	PRE+1, PRE+2, PRE+3, PRE+4, POST+1, POST+2, POST+4, POST+6, POST+7, POST+8* , POST+20, POST+21, POST+22, POST+28, POST+29, POST+32, PADDSE+4!, ADDPC+3
DD	POST+30!, ADDPC+1!
DIADD	POST+30!, ADDPC+1!
DIC	POST+30, ADDPC+1, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	POST+30, ADDPC+1, INSTALLD+5*
DIE	POST+2, POST+4, POST+6, POST+7, POST+8, POST+24, PADDSE+1*, PADDSE+4!
DIFQ	SORRY+1!
>> DIK	PRE+1, PRE+2, PRE+3, PRE+4
DIU	PADDSE+4!
DIV	PADDSE+4!
DIW	PADDSE+4!
DLAYGO	POST+30!, ADDPC+1!
DO	POST+30!, ADDPC+1!
DR	POST+2, POST+4, POST+6, POST+7, POST+8, POST+24, PADDSE+1*, PADDSE+4!
IOM	IMES+1, SORRY+4
U	PRE+4, POST+4, POST+6
X	ENV+2, POST+30, ADDPC+1, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	ENV+2*
>> XPDDIQ("XPZ1"	ENV+1*
>> XPDDIQ("XPZ2"	ENV+1*
>> XPDENV	ENV+1
>> XPDQUIT	SORRY+2, SORRY+3
Y	POST+26, POST+31, POST+32, PADDSE+3, ADDPC+2, ADDPC+3, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10 , INSTALLD+11, INSTALLD+13, IMES+1

Name	Field # of Occurrence
$T(ADD+AMHJ	POST+10