Routine: AUT98P27

Information

AUT98P27 ; IHS/OIT/FBD - AUT V98.1 PATCH 27 ENVIRONMENT CHECKS AND POST-INIT PROCESS;

Source file <AUT98P27.m>

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
MailMan	1	^XMD
VA Fileman	1	(,IX)^DIC

Name	Comments	DBIA/ICR reference
PRE	;PATCH 27 PRE-INIT CHECKS AND PROCESSES
IMES	;
SINGLE(K)	;----- GET HOLDERS OF A SINGLE KEY K.
SORRY(X)	;
INSTALLD(AUTSTAL)	;EP - Determine if patch AUTSTAL was installed, where ; AUTSTAL is the name of the INSTALL. E.g "AG6.011".
MAIL	;----- SEND INSTALL MAIL MESSAGE
POST	;PATCH 27 POST-INIT PROCESSES

Name	Field # of Occurrence
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
$$CJ^XLFSTR	AUT98P27+8, AUT98P27+9, AUT98P27+11, AUT98P27+12, AUT98P27+14, AUT98P27+15, PRE+1, PRE+4, POST+1, POST+6 , IMES+1, SORRY+4
^XMD	MAIL+19
$$VERSION^XPDUTL	AUT98P27+8, AUT98P27+11, AUT98P27+14
BMES^XPDUTL	POST+3
MES^XPDUTL	AUT98P27+8, AUT98P27+9, AUT98P27+11, AUT98P27+12, AUT98P27+14, AUT98P27+15, PRE+1, PRE+4, POST+1, POST+6 , IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AUTP27MS"	MAIL+4!, MAIL+5, MAIL+6, MAIL+10*, MAIL+21!
^XTMP("XPDI"	MAIL+9
^XUSEC(	SINGLE+2, SINGLE+4

Name	Field # of Occurrence
^(	MAIL+10

Name	Field # of Occurrence
>> %	MAIL+8, MAIL+9, MAIL+10, MAIL+18*
AUTSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUTY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DUZ	MAIL+13, MAIL+16
IOM	IMES+1, SORRY+4
K	SINGLE~, SINGLE+2, SINGLE+4
X	AUT98P27+6, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
XMDUZ	MAIL+2~, MAIL+13*
XMSUB	MAIL+2~, MAIL+12*
XMTEXT	MAIL+2~, MAIL+14*
XMY	MAIL+2~
XMY(	MAIL+16, SINGLE+4
XMY(1	MAIL+15*
>> XPDA	MAIL+7, MAIL+9
>> XPDBLD	MAIL+9
>> XPDDIQ(	AUT98P27+6*
>> XPDDIQ("XPZ1"	AUT98P27+5*
>> XPDDIQ("XPZ2"	AUT98P27+5*
>> XPDENV	AUT98P27+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	SINGLE+1~, SINGLE+3, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Name	Field # of Occurrence
$T(	MAIL+12