Routine: AMH30P10

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL (,IX)^DIC FILE^DICN ^DIE (,EN1,ENALL,IX)^DIK
Kernel	3	$$CJ^XLFSTR DELETE^XPDMENU MES^XPDUTL

Package

Total

Call Graph

EN^DDIOL (,IX)^DIC FILE^DICN ^DIE (,EN1,ENALL,IX)^DIK

$$CJ^XLFSTR DELETE^XPDMENU MES^XPDUTL

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

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: POST+8 POST+29 POST+30 EDIT+3
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+24, EDIT+4
^AMHPROB("B"	POST+18, POST+30, EDIT+1
^AMHPROBC("B"	POST+16, POST+17, POST+29
^AMHRECD - [#9002014.1]	PRE+2
^AMHSORT - [#9002013.3]	PRE+1
^AMHTPCAD - [#9002012.3]	PRE+3, POST+12, POST+13, POST+14, POST+15
^DIC(19 - [#19]	POST+5, POST+6, POST+7
^DIC(19.1 - [#19.1]	DELKEY+1

Name	Field # of Occurrence
>> AMHC	POST+13*, POST+18, POST+20, POST+23, EDIT+1, EDIT+3
>> AMHKEY	POST+4*, POST+7, DELKEY+1
>> AMHN	POST+14*, POST+24, EDIT+4
>> AMHPC	POST+15*, POST+16
>> AMHPCI	POST+16, POST+17, POST+20, EDIT+3
AMHSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHX	POST+5, POST+6, POST+7, POST+8, POST+12, POST+13, POST+14, POST+15, POST+29, POST+30
AMHY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
D0	POST+21!
DA	PRE+1, PRE+2, PRE+3, POST+8!, POST+23!, POST+25!, POST+29!, POST+30!, EDIT+1, EDIT+2 , EDIT+4, EDIT+5!, EDIT+6!, DELKEY+1*, DELKEY+2, DELKEY+3!
DD	POST+21!
DIADD	POST+20*, POST+23!, POST+26!
DIC	POST+20, POST+23!, POST+26!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC("DR"	POST+20*
DIC(0	POST+20, INSTALLD+5
DIE	POST+8!, POST+29!, POST+30!, EDIT+3, EDIT+6!
DIFQ	SORRY+1!
DIK	PRE+1, PRE+2, PRE+3, POST+25!, POST+32~, POST+33, EDIT+5!, DELKEY+2*, DELKEY+3!
DIK(1	POST+33*
DLAYGO	POST+20*, POST+23!, POST+26!
DO	POST+21!
DR	POST+8!, POST+23!, POST+29!, POST+30!, EDIT+3, EDIT+6!
DT	POST+30
IOM	IMES+1, SORRY+4
U	POST+6, POST+7, POST+13, POST+14, POST+15, POST+24, EDIT+4
X	ENV+2, POST+20, POST+23!, 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+23, POST+24, POST+25, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Information