Routine: XU8P1018

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL ^ZTMGRSET
VA Fileman	3	(,IX)^DIC ^DIE ENALL^DIK
IHS VA Utilities	2	$$DIR^XBDIR ^XBFIXPT
MailMan	1	^XMD

Package

Total

Call Graph

Kernel

HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL ^ZTMGRSET

VA Fileman

(,IX)^DIC ^DIE ENALL^DIK

IHS VA Utilities

$$DIR^XBDIR ^XBFIXPT

MailMan

^XMD

Entry Points

Name	Comments	DBIA/ICR reference
IMES	;
SINGLE(K)	; Get holders of a single key K.
VCHK(AUPNPRE,AUPNVER,AUPNQUIT)	; Check versions needed. ;
SORRY(X)	;
ENV	;ENVIROMENT CHECK
INSTALLD(AUPNSTAL)	;EP - Determine if patch AUPNSTAL was installed, where ; AUPNSTAL is the name of the INSTALL. E.g "AG6.011".
POST	;EP - XU V8.0 PATCH 1018 POST-INIT

External References

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+13
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	ENV+27, INSTALLD+6
^DIE	POST+10, POST+30, POST+45
ENALL^DIK	POST+20
$$DIR^XBDIR	ENV+40
^XBFIXPT	POST+49
$$CJ^XLFSTR	ENV+8, ENV+9, ENV+29, ENV+30, ENV+34, ENV+38, SORRY+4, VCHK+4, POST+2, POST+4 , POST+7, POST+12, POST+23, POST+33, POST+36, POST+39, POST+48, IMES+1
^XMD	POST+60
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	POST+2, POST+4, POST+52
MES^XPDUTL	ENV+3, ENV+5, POST+7, POST+12, POST+23, POST+33, POST+36, POST+39, POST+48, IMES+1
^ZTMGRSET	POST+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ENV+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".",IOM) Line Location: ENV+9
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM) Line Location: ENV+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: ENV+30
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: ENV+34
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ENV+38
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM) Line Location: VCHK+4
Routine Call	%ZIS Line Location: ENV+1
Routine Call	DIE Line Location: POST+10 POST+30 POST+45
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: ENV+27 INSTALLD+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	ENV+28
^DIE - [#.402]	POST+27, POST+35
^DIE("B"	POST+26, POST+41
^TMP("XU8P1018"	POST+54!, POST+55, POST+57, POST+61!
^VA(200 - [#200]	ENV+7
^XMB(3.8 - [#3.8]	POST+13!, POST+15
^XTMP("XPDI"	POST+57
^XTV(8989.3 - [#8989.3]	POST+34
^XUSEC(	SINGLE+3, SINGLE+4

Name	Line Occurrences
$$INSTALLD	ENV+20, ENV+21, ENV+22, ENV+23
$$VCHK	ENV+15, ENV+16, ENV+17, ENV+18
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
SINGLE	POST+59
SORRY	ENV+3, ENV+5, ENV+20, ENV+21, ENV+22, ENV+23, ENV+31, ENV+40, VCHK+5

Name	Field # of Occurrence
^(	POST+57

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	POST+56, POST+57, POST+59*
AUPNPRE	VCHK~, VCHK+3, VCHK+4
AUPNQUIT	VCHK~, VCHK+5
AUPNSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUPNV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AUPNVER	VCHK~, VCHK+4, VCHK+5
AUPNY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	ENV+26, INSTALLD+5
DA	ENV+25~, POST+8!, POST+9, POST+16!, POST+21!, POST+28!, POST+29, POST+42!, POST+43*
DA(1	POST+19*
DIC	ENV+25~, ENV+26, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	ENV+26, INSTALLD+5
DIE	POST+8!, POST+9, POST+28!, POST+29, POST+42!, POST+43*
DIFQ	SORRY+1!
DIFROM	POST+53~
DIK	POST+16!, POST+17*, POST+21!
DIK(1	POST+18*
DR	POST+8!, POST+9, POST+28!, POST+29, POST+42!, POST+44*
DUZ	ENV+3, ENV+7, POST+58
DUZ(0	ENV+5
IOM	ENV+1, ENV+8, ENV+9, ENV+29, ENV+30, ENV+34, ENV+38, SORRY+4, VCHK+4, IMES+1
IORVOFF	ENV+11~, ENV+30, ENV+34
IORVON	ENV+11~, ENV+30, ENV+34
K	SINGLE~, SINGLE+3, SINGLE+4
U	ENV+7, POST+27, POST+34
X	ENV+7, ENV+8, ENV+12, ENV+26, SORRY~, SORRY+2, SORRY+3, INSTALLD+3~, INSTALLD+4, INSTALLD+8* , INSTALLD+11*
XMDUZ	POST+53~, POST+58*
XMSUB	POST+53~, POST+58*
XMTEXT	POST+53~, POST+58*
XMY	POST+53~
XMY(	POST+58, SINGLE+4
XMY(1	POST+58*
>> XPDA	POST+57
>> XPDBLD	POST+57
>> XPDDIQ("XPI1"	ENV+36*
>> XPDDIQ("XPO1"	ENV+36*
>> XPDDIQ("XPZ1"	ENV+36*
>> XPDDIQ("XPZ2"	ENV+36*
>> XPDENV	ENV+36
>> XPDQUIT	ENV+34, SORRY+2, SORRY+3
>> XUMG	POST+14, POST+15, POST+17, POST+19
XUZDA	POST+25, POST+26, POST+27, POST+29, POST+31!, POST+41*, POST+44, POST+46!
XUZTEMP	POST+24, POST+26, POST+31!, POST+34, POST+35, POST+40*, POST+41, POST+46!
Y	ENV+28, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13 , IMES+1

Customize PDF page

Package: Kernel

Routine: XU8P1018

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items