Routine: AUM15

Package	Total	Call Graph
IHS VA Utilities	2	$$DIR^XBDIR ^XBFMK
Kernel	2	($$CJ,$$REPEAT)^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
Table Maintenance	2	(MAIN,SEARCH)^AUM15DU MAIN^AUM15U
VA Fileman	2	IX^DIC ENALL^DIK

Package	Total	Caller Graph
Table Maintenance	2	AUM15DU AUM15U

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP - PRE-INSTALL
VCHK(AUMPRE,AUMVER,AUMPAT)	; Check patch level
RSLT(%,LINE)	; EP - INSTALL MESSAGES
LAST(PKG,VER)	; EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
DISP(AUMPRE,AUMVER,AUMPAT,AUMV,AUMP,AUMR)	; Display requirement checking results
SORRY(X)	;
POST	; EP - POST-INSTALL

Name	Field # of Occurrence
MAIN^AUM15DU	POST+3, POST+6
SEARCH^AUM15DU	POST+9
MAIN^AUM15U	POST+16
IX^DIC	AUM15+20
ENALL^DIK	PRE+6, PRE+11
$$DIR^XBDIR	AUM15+29
^XBFMK	PRE+3, PRE+8
$$CJ^XLFSTR	AUM15+7, AUM15+8, AUM15+14, AUM15+22, AUM15+23, AUM15+27, AUM15+28, SORRY+3, DISP+6
$$REPEAT^XLFSTR	POST+2, POST+10, POST+13, POST+15
$$VERSION^XPDUTL	AUM15+13, VCHK+2, LAST+3
BMES^XPDUTL	RSLT+1
MES^XPDUTL	RSLT+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUM15+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUM15+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUM15+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($L($P($T(+2),";",5))>4:" Patch "_$P($T(+2),";",5),1:"")_".",IOM),! Line Location: AUM15+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need AICD v3.51.....AICD v"_AUMAICD_" Present"_$S(AUMAICD>3.51:" *FIX IT*",1:""),IOM) Line Location: AUM15+14
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM) Line Location: AUM15+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AUM15+23
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AUM15+27
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUM15+28
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(AUMS,IOM) Line Location: DISP+6
Function Call: WRITE	Prompt: ! Line Location: PRE+3
Function Call: WRITE	Prompt: ! Line Location: PRE+8
Routine Call	DIC Line Location: AUM15+20

Name	Line Occurrences (* Changed, ! Killed)
^AUMDATA - [#9003103]	PRE+13!
^AUMDATA(0	PRE+14*
^DIC(9.4 - [#9.4]	AUM15+21, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^ICD0("AB"	PRE+9
^ICD0("BA"	PRE+9
^ICD9("AB"	PRE+4
^ICD9("BA"	PRE+4
^TMP("AUM"	POST+9, POST+11
^VA(200 - [#200]	AUM15+6
^XTMP("AUM"	POST+5, POST+8

Name	Line Occurrences
$$LAST	VCHK+5
$$VCHK	AUM15+10, AUM15+11, AUM15+12, AUM15+15, AUM15+16
DISP	VCHK+3, VCHK+4, VCHK+6, VCHK+7
RSLT	PRE+3, PRE+8, POST+2, POST+3, POST+6, POST+10, POST+11, POST+12, POST+13, POST+15
SORRY	AUM15+3, AUM15+4, AUM15+24, AUM15+29

Name	Field # of Occurrence
^(0	LAST+8, LAST+9

Name	Field # of Occurrence
%	RSLT~, RSLT+1, RSLT+2
AUMAICD	AUM15+13~*, AUM15+14
AUMDUP	POST+1~, POST+5, POST+6, POST+8, POST+9
AUMI	PRE+1~, PRE+4, PRE+9, PRE+13, PRE+14
AUMP	VCHK+1~, VCHK+3, VCHK+4, VCHK+5*, VCHK+6, VCHK+7, DISP~, DISP+4
AUMPAT	VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, DISP~, DISP+3
AUMPRE	VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3, DISP+4
AUMR	DISP~, DISP+5
AUMS	DISP+2~, DISP+3, DISP+4, DISP+5*, DISP+6
AUMV	VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, DISP~, DISP+4
AUMVER	VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3
>> D	AUM15+19*
DA	AUM15+18~
DIC	AUM15+18~, AUM15+19*
DIC(0	AUM15+19*
DIFQ	SORRY+1!, VCHK+3!, VCHK+6!
>> DIK	PRE+5, PRE+10
>> DIK(1	PRE+5, PRE+10
DUZ	AUM15+3, AUM15+6
DUZ(0	AUM15+4
IOM	AUM15+7, AUM15+8, AUM15+14, AUM15+22, AUM15+23, AUM15+27, AUM15+28, SORRY+3, DISP+6
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
LINE	RSLT~, RSLT+1, RSLT+2
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PKG	LAST~, LAST+3, LAST+4
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	AUM15+6, LAST+8, LAST+9, LAST+10
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X	AUM15+6, AUM15+7, AUM15+19, SORRY~, SORRY+2
>> XPDQUIT	AUM15+10, AUM15+11, AUM15+12, AUM15+13, AUM15+15, AUM15+16, AUM15+27, SORRY+2*
>> Y	AUM15+21

Name	Field # of Occurrence
$T(	AUM15+8