Routine: AUT98P10

Package	Total	Call Graph
Kernel	3	$$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
IX^DIC	AUT98P10+24
$$GET1^DID	AUDR+6
$$DIR^XBDIR	AUT98P10+37
HELP^XBHELP	AUT98P10+36, AUT98P10+39
$$FMADD^XLFDT	AUDS+3
$$CJ^XLFSTR	AUT98P10+12, AUT98P10+13, AUT98P10+16, AUT98P10+26, AUT98P10+27, AUT98P10+31, AUT98P10+33, AUT98P10+34, SORRY+3, VCHK+4
$$LJ^XLFSTR	AUDS+8, AUDR+6
$$RJ^XLFSTR	AUDS+8, AUDR+6
^XMD	MAIL+10
$$VERSION^XPDUTL	AUT98P10+15, 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: AUT98P10+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUT98P10+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUT98P10+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: AUT98P10+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM) Line Location: AUT98P10+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: AUT98P10+26
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AUT98P10+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AUT98P10+31
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("No 'AUT' dups in PACKAGE file",IOM) Line Location: AUT98P10+33
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUT98P10+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: AUT98P10+24

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]	AUT98P10+25
^TMP("AUT98P10"	MAIL+3!, MAIL+11!, RSLT
^VA(200 - [#200]	AUT98P10+11
^XTMP("AUT98P10"	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
$$VCHK	AUT98P10+19, AUT98P10+20
AUDR	POST+2
AUDS	PRE+2
MAIL	POST+2
RSLT	MAIL+4, MAIL+5, MAIL+7
SINGLE	MAIL+9
SORRY	AUT98P10+5, AUT98P10+7, AUT98P10+9, AUT98P10+17, AUT98P10+28, AUT98P10+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~
AUM	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	AUT98P10+23*
DA	AUT98P10+22~
DIC	AUT98P10+22~, AUT98P10+23*
DIC(0	AUT98P10+23*
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DT	AUDS+3
DUZ	AUT98P10+5, AUT98P10+11, MAIL+8
DUZ(0	AUT98P10+7, AUT98P10+9
IOM	AUT98P10+12, AUT98P10+13, AUT98P10+16, AUT98P10+26, AUT98P10+27, AUT98P10+31, AUT98P10+33, AUT98P10+34, SORRY+3, VCHK+4
K	SINGLE~, SINGLE+3, SINGLE+4
U	AUT98P10+11
X	AUT98P10+11, AUT98P10+12, AUT98P10+15, AUT98P10+16, AUT98P10+17, AUT98P10+23*, 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"	AUT98P10+39*
>> XPDDIQ("XPZ2"	AUT98P10+39*
>> XPDENV	AUT98P10+39
>> XPDQUIT	AUT98P10+31, SORRY+2*
Y	AUT98P10+25, SINGLE+1~, SINGLE+2, SINGLE+4
>> ZTQUEUED	AUT98P10+9