Routine: DI1019P

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

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;PATCH 1019 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 1019 POST-INIT PROCESSES

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

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DI1019MS"	MAIL+4!, MAIL+5, MAIL+6, MAIL+10*, MAIL+21!
^XTMP("XPDI"	MAIL+9
^XTV(8989.2 - [#8989.2]	PRE+4
^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*
DA	PRE+9*, PRE+11!
DIADD	PRE+7*, PRE+8!
DIC	PRE+7, PRE+8!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	PRE+7, INSTALLD+5
DIE	PRE+9*, PRE+11!
DIFQ	SORRY+1!
DIFROM	MAIL+2~
>> DIZFLG	PRE+4, PRE+5, PRE+8, PRE+9
DO	PRE+6!, PRE+8!
DR	PRE+9*, PRE+11!
DUZ	MAIL+13, MAIL+16
IOM	IMES+1, SORRY+4
K	SINGLE~, SINGLE+2, SINGLE+4
X	DI1019P+6, PRE+7, PRE+8!, 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(	DI1019P+6*
>> XPDDIQ("XPZ1"	DI1019P+5*
>> XPDDIQ("XPZ2"	DI1019P+5*
>> XPDENV	DI1019P+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	PRE+8, 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