Routine: AUT981P9

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL
VA Fileman	2	(,IX)^DIC ^DIK
IHS VA Utilities	1	$$DIR^XBDIR
MailMan	1	^XMD

Package

Total

Call Graph

Kernel

$$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL

(,IX)^DIC ^DIK

$$DIR^XBDIR

^XMD

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
SINGLE(K)	; Get holders of a single key K.
INSTALLD(AUT)	;EP - Determine if patch AUT was installed, where AUT is ; the name of the INSTALL. E.g "AUT98.17".
SORRY(X)	;
MAIL	; Send install mail message.
POST	;EP - From KIDS.
VCHK(AUTPRE,AUTVER,AUTQUIT)	; Check versions needed. ;

External References

Name	Field # of Occurrence
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	AUT981P9+24, INSTALLD+7
^DIK	PRE+5, PRE+8
$$DIR^XBDIR	AUT981P9+30, AUT981P9+40, SORRY+3, VCHK+5
$$CJ^XLFSTR	AUT981P9+12, AUT981P9+13, AUT981P9+16, AUT981P9+26, AUT981P9+27, AUT981P9+28, AUT981P9+32, AUT981P9+38, SORRY+3, VCHK+4 , VCHK+5
^XMD	MAIL+8
$$VERSION^XPDUTL	AUT981P9+15, VCHK+3
BMES^XPDUTL	PRE+1, PRE+2, PRE+9, POST+1, POST+2, POST+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUT981P9+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUT981P9+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUT981P9+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: AUT981P9+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM) Line Location: AUT981P9+16
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUT"" prefix.",IOM) Line Location: AUT981P9+26
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AUT981P9+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AUT981P9+28
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("No 'AUT' dups in PACKAGE file",IOM) Line Location: AUT981P9+32
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUT981P9+38
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AUTPRE_" v "_AUTVER_"....."_AUTPRE_" v "_AUTV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....",IOM) Line Location: VCHK+5
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIC Line Location: AUT981P9+24 INSTALLD+7

Name	Line Occurrences (* Changed, ! Killed)
^DD(9999999.3911	PRE+6!
^DIC(9.4 - [#9.4]	AUT981P9+25
^TMP("AUTP9MSG"	MAIL+2!, MAIL+3, MAIL+5, MAIL+9!
^VA(200 - [#200]	AUT981P9+11
^XTMP("XPDI"	MAIL+5
^XUSEC(	SINGLE+3, SINGLE+4

Name	Line Occurrences
$$VCHK	AUT981P9+19, AUT981P9+20
MAIL	POST+3
SINGLE	MAIL+7
SORRY	AUT981P9+5, AUT981P9+7, AUT981P9+9, AUT981P9+17, AUT981P9+29, AUT981P9+40

Name	Field # of Occurrence
^(	MAIL+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+4, MAIL+5, MAIL+7*
AUT	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14
AUTPRE	VCHK~, VCHK+3, VCHK+4
AUTQUIT	VCHK~, VCHK+5
AUTV	VCHK+2~, VCHK+3, VCHK+4, VCHK+5
AUTVER	VCHK~, VCHK+4, VCHK+5
>> D	AUT981P9+23, INSTALLD+6
DA	AUT981P9+22~, PRE+3~, PRE+4, PRE+8
DA(1	PRE+4, PRE+7
DIC	AUT981P9+22~, AUT981P9+23, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14
DIC(0	AUT981P9+23, INSTALLD+6
DIFQ	SORRY+1!, VCHK+5!
DIFROM	MAIL+1~
DIK	PRE+3~, PRE+4, PRE+7
DUZ	AUT981P9+5, AUT981P9+11, MAIL+6
DUZ(0	AUT981P9+7, AUT981P9+9
IOM	AUT981P9+12, AUT981P9+13, AUT981P9+16, AUT981P9+26, AUT981P9+27, AUT981P9+28, AUT981P9+32, AUT981P9+38, SORRY+3, VCHK+4 , VCHK+5
K	SINGLE~, SINGLE+3, SINGLE+4
U	AUT981P9+11
X	AUT981P9+11, AUT981P9+12, AUT981P9+15, AUT981P9+16, AUT981P9+17, AUT981P9+23, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5 , INSTALLD+10, INSTALLD+14
XMDUZ	MAIL+1~, MAIL+6*
XMSUB	MAIL+1~, MAIL+6*
XMTEXT	MAIL+1~, MAIL+6*
XMY	MAIL+1~
XMY(	MAIL+6, SINGLE+4
XMY(1	MAIL+6*
>> XPDA	MAIL+5
>> XPDBLD	MAIL+5
>> XPDDIQ("XPZ1"	AUT981P9+36*
>> XPDDIQ("XPZ2"	AUT981P9+36*
>> XPDENV	AUT981P9+36
>> XPDQUIT	SORRY+2, VCHK+5
Y	AUT981P9+25, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED	AUT981P9+9, SORRY+3

Customize PDF page

Package: Utility Tables

Routine: AUT981P9

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items