Routine: AUPN9920

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

Entry Points

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

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+13
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	ENV+24, INSTALLD+6
ENALL^DIK	XREF+8, XREF+17, XREF+26, XREF+35, XREF+48, XREF+57, XREF+66, XREF+75
$$DIR^XBDIR	ENV+37
$$CJ^XLFSTR	ENV+8, ENV+9, ENV+26, ENV+27, ENV+31, ENV+35, SORRY+4, VCHK+4, IMES+1
^XMD	XREF+88
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	XREF+4, XREF+13, XREF+22, XREF+31, XREF+40, XREF+53, XREF+62, XREF+71, XREF+80
MES^XPDUTL	XREF+9, XREF+18, XREF+27, XREF+36, XREF+49, XREF+58, XREF+67, XREF+76, IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ENV+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ENV+5
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+26
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: ENV+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: ENV+31
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ENV+35
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	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: ENV+24 INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD("ADLU"	XREF+23!
^AUPNMCR("ADLU"	XREF+14!, XREF+32!
^AUPNPAT("ADLU"	XREF+5!
^AUPNPREF("ADLM"	XREF+72!
^AUPNPROB("ADLM"	XREF+63!
^AUPNPRVT - [#9000006]	XREF+43
^AUPNPRVT("AVCD"	XREF+41!
^AUPNVSIT("ADLM"	XREF+54!
^DIC(9.4 - [#9.4]	ENV+25
^TMP("AUPN9920"	XREF+82!, XREF+83, XREF+85, XREF+89!
^VA(200 - [#200]	ENV+7
^XTMP("XPDI"	XREF+85
^XUSEC(	SINGLE+3, SINGLE+4

Name	Field # of Occurrence
^(	XREF+85

Name	Field # of Occurrence
>> %	XREF+84, XREF+85, XREF+87*
>> AUPNPIEN	XREF+42, XREF+43, XREF+45, XREF+46
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+23, INSTALLD+5
DA	ENV+22~, XREF+44!
DA(1	XREF+45*
DIC	ENV+22~, ENV+23, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	ENV+23, INSTALLD+5
DIFQ	SORRY+1!
DIFROM	XREF+81~
DIK	XREF+6!, XREF+7, XREF+15!, XREF+16, XREF+24!, XREF+25, XREF+33!, XREF+34, XREF+44!, XREF+46* , XREF+55!, XREF+56, XREF+64!, XREF+65, XREF+73!, XREF+74*
DIK(1	XREF+7, XREF+16, XREF+25, XREF+34, XREF+47, XREF+56, XREF+65, XREF+74
DUZ	ENV+3, ENV+7, XREF+86
DUZ(0	ENV+5
IOM	ENV+1, ENV+8, ENV+9, ENV+26, ENV+27, ENV+31, ENV+35, SORRY+4, VCHK+4, IMES+1
IORVOFF	ENV+11~, ENV+27, ENV+31
IORVON	ENV+11~, ENV+27, ENV+31
K	SINGLE~, SINGLE+3, SINGLE+4
U	ENV+7
X	ENV+7, ENV+8, ENV+12, ENV+23, SORRY~, SORRY+2, SORRY+3, INSTALLD+3~, INSTALLD+4, INSTALLD+8* , INSTALLD+11*
XMDUZ	XREF+81~, XREF+86*
XMSUB	XREF+81~, XREF+86*
XMTEXT	XREF+81~, XREF+86*
XMY	XREF+81~
XMY(	XREF+86, SINGLE+4
XMY(1	XREF+86*
>> XPDA	XREF+85
>> XPDBLD	XREF+85
>> XPDDIQ("XPI1"	ENV+33*
>> XPDDIQ("XPO1"	ENV+33*
>> XPDDIQ("XPZ1"	ENV+33*
>> XPDDIQ("XPZ2"	ENV+33*
>> XPDENV	ENV+33
>> XPDQUIT	ENV+31, SORRY+2, SORRY+3
Y	ENV+25, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13 , IMES+1

Name	Field # of Occurrence
$T(	ENV+9, XREF+86