Routine: AUT98P12

Information

AUT98P12 ;IHS/SET/GTH - AUT 98.1 PATCH 12 ; [ 02/12/2003 8:56 AM ]

Source Information

Source file <AUT98P12.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ENDR^%ZISS $$FMADD^XLFDT ($$CJ,$$LJ,$$RJ)^XLFSTR ($$NEWCP,$$VERSION,BMES,MES)^XPDUTL
VA Fileman	4	IX^DIC $$GET1^DID ^DIE EN^DIU2
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
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(%)
UNIQUEA(IEN,UNIQUE)
INTROI	; Intro text during KIDS Install.
GREET	;;To add to mail message.
UNIQUE1(IEN)
SORRY(X)	;
MAIL	;
POST	;EP - From KIDS.
VCHK(AUTPRE,AUTVER,AUTQUIT)	; Check versions needed. ;
UNIQUEL	;----- LOOP THRU LOCATION FILE AND POPULATE UNIQUE RPMS DB ID FIELD
AUDS	; Save current settings, and SET dd auditing 'on'.

External References

Name	Field # of Occurrence
HOME^%ZIS	AUT98P12+5
ENDR^%ZISS	AUT98P12+19
IX^DIC	AUT98P12+27
$$GET1^DID	AUDR+6
^DIE	UNIQUEA+8
EN^DIU2	UNIQUEL+13
$$DIR^XBDIR	AUT98P12+39
HELP^XBHELP	AUT98P12+38, AUT98P12+41
$$FMADD^XLFDT	AUDS+3
$$CJ^XLFSTR	AUT98P12+14, AUT98P12+15, AUT98P12+22, AUT98P12+29, AUT98P12+30, AUT98P12+34, AUT98P12+36, SORRY+3, VCHK+4
$$LJ^XLFSTR	AUDS+8, AUDR+6
$$RJ^XLFSTR	AUDS+8, AUDR+6
^XMD	MAIL+10
$$NEWCP^XPDUTL	PRE+3, POST+5, POST+8
$$VERSION^XPDUTL	AUT98P12+21, VCHK+3
BMES^XPDUTL	MAIL+1, UNIQUEL+4
MES^XPDUTL	MAIL+12, AUDS+1, AUDS+2, AUDS+8, AUDS+11, AUDR+1, AUDR+6, AUDR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUT98P12+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUT98P12+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUT98P12+14
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: AUT98P12+15
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM) Line Location: AUT98P12+22
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: AUT98P12+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: AUT98P12+30
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: AUT98P12+34
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUT98P12+36
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	%ZIS Line Location: AUT98P12+5
Routine Call	DIE Line Location: UNIQUEA+8
Routine Call	DIC Line Location: AUT98P12+27

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTT999(8008699.06	UNIQUE1+12, UNIQUE1+14
^AUTTLOC - [#9999999.06]	UNIQUEL+7
^AUTTLOC("F"	UNIQUE1+20
^DD(	AUDS+7, AUDS+9, AUDR+5, AUDR+6
^DD(9999999.06	UNIQUE1+7
^DIC(4 - [#4]	UNIQUE1+5
^DIC(9.4 - [#9.4]	AUT98P12+28
^TMP("AUT98P12"	MAIL+3!, MAIL+11!, RSLT
^VA(200 - [#200]	AUT98P12+13
^XTMP("AUT98P12"	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

Label References

Name	Line Occurrences
RSLT	MAIL+4, MAIL+5, MAIL+7
SINGLE	MAIL+9
SORRY	AUT98P12+7, AUT98P12+9, AUT98P12+11, AUT98P12+23, AUT98P12+31, AUT98P12+39, VCHK+5
UNIQUE1	UNIQUEL+7
UNIQUEA	UNIQUE1+21
UNIQUEL	POST+2

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIL+5, MAIL+6, MAIL+7, MAIL+9, RSLT~
ASUFAC	UNIQUE1+3~, UNIQUE1+10*, UNIQUE1+12, UNIQUE1+17
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	AUT98P12+26*
D0	UNIQUE1+3~, UNIQUE1+6*
DA	AUT98P12+25~, UNIQUEA+3~, UNIQUEA+6*
DATA	UNIQUE1+3~, UNIQUE1+14*, UNIQUE1+15, UNIQUE1+17, UNIQUE1+18
DIC	AUT98P12+25~, AUT98P12+26*
DIC(0	AUT98P12+26*
DIE	UNIQUEA+3~, UNIQUEA+5*
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DIU	UNIQUEL+2~, UNIQUEL+11*
DIU(0	UNIQUEL+12*
DR	UNIQUEA+3~, UNIQUEA+7*
DT	AUDS+3
DUZ	AUT98P12+7, AUT98P12+13, MAIL+8
DUZ(0	AUT98P12+9, AUT98P12+11
IEN	UNIQUEL+2~, UNIQUEL+6, UNIQUEL+7, UNIQUE1~, UNIQUE1+5, UNIQUE1+6, UNIQUE1+21, UNIQUEA~, UNIQUEA+6
IEN2	UNIQUE1+3~, UNIQUE1+11, UNIQUE1+12, UNIQUE1+13, UNIQUE1+14
IOM	AUT98P12+5, AUT98P12+14, AUT98P12+15, AUT98P12+22, AUT98P12+29, AUT98P12+30, AUT98P12+34, AUT98P12+36, SORRY+3, VCHK+4
IORVOFF	AUT98P12+17~, AUT98P12+30, AUT98P12+34
IORVON	AUT98P12+17~, AUT98P12+30, AUT98P12+34
K	SINGLE~, SINGLE+3, SINGLE+4
NAME	UNIQUE1+3~, UNIQUE1+5*
U	AUT98P12+13, UNIQUE1+5, UNIQUE1+7, UNIQUE1+17, UNIQUE1+18
UNIQUE	UNIQUE1+3~, UNIQUE1+18*, UNIQUE1+19, UNIQUE1+20, UNIQUE1+21, UNIQUEA~
X	AUT98P12+13, AUT98P12+14, AUT98P12+18, AUT98P12+21, AUT98P12+22, AUT98P12+23, AUT98P12+26, SORRY~, SORRY+2, UNIQUEL+2~ , UNIQUE1+3~, UNIQUE1+8, UNIQUE1+9, UNIQUE1+10, UNIQUEA+3~
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"	AUT98P12+41*
>> XPDDIQ("XPZ2"	AUT98P12+41*
>> XPDENV	AUT98P12+41
>> XPDQUIT	AUT98P12+34, SORRY+2*
Y	AUT98P12+28, SINGLE+1~, SINGLE+2, SINGLE+4, UNIQUEL+2~, UNIQUE1+3~, UNIQUEA+3~
>> ZTQUEUED	AUT98P12+11

Name	Field # of Occurrence
$T(	AUT98P12+15, MAIL+8, AUDS+3
$T(GREET+%	MAIL+5
$T(GREET+%+1	MAIL+5

Customize PDF page

Package: Utility Tables

Routine: AUT98P12

Call Graph Total: 12