Routine: AUT98P11

Package	Total	Call Graph
Kernel	4	ENDR^%ZISS $$FMADD^XLFDT ($$CJ,$$LJ,$$RJ)^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
VA Fileman	2	IX^DIC $$GET1^DID
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
INTROE	; Intro text during KIDS Environment check.
AUDR	; Restore the file data audit values to their original values.
SINGLE(K)	; Get holders of a single key K.
RSLT(%)
INTROI	; Intro text during KIDS Install.
GREET	;;To add to mail message.
SORRY(X)	;
MAIL	;
POST	;EP - From KIDS.
VCHK(AUTPRE,AUTVER,AUTQUIT)	; Check versions needed. ;
AUDS	; Save current settings, and SET dd auditing 'on'.

Name	Field # of Occurrence
ENDR^%ZISS	AUT98P11+17
IX^DIC	AUT98P11+25
$$GET1^DID	AUDR+6
$$DIR^XBDIR	AUT98P11+37
HELP^XBHELP	AUT98P11+36, AUT98P11+39
$$FMADD^XLFDT	AUDS+3
$$CJ^XLFSTR	AUT98P11+12, AUT98P11+13, AUT98P11+20, AUT98P11+27, AUT98P11+28, AUT98P11+32, AUT98P11+34, SORRY+3, VCHK+4
$$LJ^XLFSTR	AUDS+8, AUDR+6
$$RJ^XLFSTR	AUDS+8, AUDR+6
^XMD	MAIL+10
$$VERSION^XPDUTL	AUT98P11+19, VCHK+3
BMES^XPDUTL	PRE+1, PRE+3, POST+1, POST+3, MAIL+1
MES^XPDUTL	AUDS+1, AUDS+2, AUDS+8, AUDR+1, AUDR+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUT98P11+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUT98P11+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUT98P11+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: AUT98P11+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM) Line Location: AUT98P11+20
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: AUT98P11+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: AUT98P11+28
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: AUT98P11+32
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUT98P11+34
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AUTPRE_" v "_AUTVER_"....."_AUTPRE_" v "_AUTV_" Present",IOM) Line Location: VCHK+4
Routine Call	DIC Line Location: AUT98P11+25

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(	AUDS+7, AUDS+9, AUDR+5, AUDR+6
^DIC(9.4 - [#9.4]	AUT98P11+26
^TMP("AUT98P11"	MAIL+3!, MAIL+11!, RSLT
^VA(200 - [#200]	AUT98P11+11
^XTMP("AUT98P11"	AUDS+3, AUDS+7, AUDS+8, AUDR+4, AUDR+5, AUDR+8!
^XTMP("XPDI"	MAIL+7, AUDS+6, AUDS+8
^XUSEC(	SINGLE+3, SINGLE+4

Name	Line Occurrences
AUDR	POST+2
AUDS	PRE+2
MAIL	POST+2
RSLT	MAIL+4, MAIL+5, MAIL+7
SINGLE	MAIL+9
SORRY	AUT98P11+5, AUT98P11+7, AUT98P11+9, AUT98P11+21, AUT98P11+29, AUT98P11+37, VCHK+5

Name	Field # of Occurrence
^(	MAIL+7, RSLT*
^(0	RSLT*

Name	Field # of Occurrence
%	MAIL+5, MAIL+6, MAIL+7, MAIL+9, RSLT~
AUT	AUDS+4~, AUDS+5, AUDS+6, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3, AUDR+4, AUDR+5 , AUDR+6
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	AUT98P11+24*
DA	AUT98P11+23~
DIC	AUT98P11+23~, AUT98P11+24*
DIC(0	AUT98P11+24*
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DT	AUDS+3
DUZ	AUT98P11+5, AUT98P11+11, MAIL+8
DUZ(0	AUT98P11+7, AUT98P11+9
IOM	AUT98P11+12, AUT98P11+13, AUT98P11+20, AUT98P11+27, AUT98P11+28, AUT98P11+32, AUT98P11+34, SORRY+3, VCHK+4
IORVOFF	AUT98P11+15~, AUT98P11+28, AUT98P11+32
IORVON	AUT98P11+15~, AUT98P11+28, AUT98P11+32
K	SINGLE~, SINGLE+3, SINGLE+4
U	AUT98P11+11
X	AUT98P11+11, AUT98P11+12, AUT98P11+16, AUT98P11+19, AUT98P11+20, AUT98P11+21, AUT98P11+24, SORRY~, SORRY+2
XMDUZ	MAIL+2~, MAIL+8*
XMSUB	MAIL+2~, MAIL+8*
XMTEXT	MAIL+2~, MAIL+8*
XMY	MAIL+2~
XMY(	MAIL+8, SINGLE+4
XMY(1	MAIL+8*
>> XPDA	MAIL+7, AUDS+6, AUDS+8
>> XPDBLD	MAIL+7
>> XPDDIQ("XPZ1"	AUT98P11+39*
>> XPDDIQ("XPZ2"	AUT98P11+39*
>> XPDENV	AUT98P11+39
>> XPDQUIT	AUT98P11+32, SORRY+2*
Y	AUT98P11+26, SINGLE+1~, SINGLE+2, SINGLE+4
>> ZTQUEUED	AUT98P11+9