Routine: AUPN9917

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
VA Fileman	2	(,IX)^DIC IXALL^DIK
IHS VA Utilities	1	$$DIR^XBDIR
MailMan	1	^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)	;
MAIL	; Send install mail message.
POST	;
REIN	;INDEX THE 'PATIENT APPLICATIONS' FILE TO SET THE NEW "D" X-REF
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	AUPN9917+5
ENDR^%ZISS	AUPN9917+17
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	AUPN9917+26, INSTALLD+6
IXALL^DIK	REIN+4
$$DIR^XBDIR	AUPN9917+39
$$CJ^XLFSTR	AUPN9917+12, AUPN9917+13, AUPN9917+28, AUPN9917+29, AUPN9917+33, AUPN9917+37, SORRY+4, VCHK+4, IMES+1
^XMD	REIN+15
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	REIN+7
MES^XPDUTL	IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUPN9917+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUPN9917+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUPN9917+12
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: AUPN9917+13
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: AUPN9917+28
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: AUPN9917+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: AUPN9917+33
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUPN9917+37
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: AUPN9917+5
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: AUPN9917+26 INSTALLD+6

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AUPNAPPS - [#9000045]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	AUPN9917+27
^TMP("AUPN9915"	REIN+9!, REIN+10, REIN+12, REIN+16!
^VA(200 - [#200]	AUPN9917+11
^XTMP("XPDI"	REIN+12
^XUSEC(	SINGLE+3, SINGLE+4

Name	Line Occurrences
$$INSTALLD	AUPN9917+21, AUPN9917+22
$$VCHK	AUPN9917+19
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
SINGLE	REIN+14
SORRY	AUPN9917+7, AUPN9917+9, AUPN9917+21, AUPN9917+22, AUPN9917+30, AUPN9917+39, VCHK+5

Name	Field # of Occurrence
^(	REIN+12

Name	Field # of Occurrence
>> %	REIN+11, REIN+12, REIN+14*
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	AUPN9917+25, INSTALLD+5
DA	AUPN9917+24~
DIC	AUPN9917+24~, AUPN9917+25, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	AUPN9917+25, INSTALLD+5
DIFQ	SORRY+1!
DIFROM	REIN+8~
DIK	REIN+2!, REIN+3*, REIN+5!
DUZ	AUPN9917+7, AUPN9917+11, REIN+13
DUZ(0	AUPN9917+9
IOM	AUPN9917+5, AUPN9917+12, AUPN9917+13, AUPN9917+28, AUPN9917+29, AUPN9917+33, AUPN9917+37, SORRY+4, VCHK+4, IMES+1
IORVOFF	AUPN9917+15~, AUPN9917+29, AUPN9917+33
IORVON	AUPN9917+15~, AUPN9917+29, AUPN9917+33
K	SINGLE~, SINGLE+3, SINGLE+4
U	AUPN9917+11
X	AUPN9917+11, AUPN9917+12, AUPN9917+16, AUPN9917+25, SORRY~, SORRY+2, SORRY+3, INSTALLD+3~, INSTALLD+4, INSTALLD+8* , INSTALLD+11*
XMDUZ	REIN+8~, REIN+13*
XMSUB	REIN+8~, REIN+13*
XMTEXT	REIN+8~, REIN+13*
XMY	REIN+8~
XMY(	REIN+13, SINGLE+4
XMY(1	REIN+13*
>> XPDA	REIN+12
>> XPDBLD	REIN+12
>> XPDDIQ("XPI1"	AUPN9917+35*
>> XPDDIQ("XPO1"	AUPN9917+35*
>> XPDDIQ("XPZ1"	AUPN9917+35*
>> XPDDIQ("XPZ2"	AUPN9917+35*
>> XPDENV	AUPN9917+35
>> XPDQUIT	AUPN9917+33, SORRY+2, SORRY+3
Y	AUPN9917+27, 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(	AUPN9917+13, REIN+13