Routine: DI1018P

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

Package

Total

Call Graph

(,IX)^DIC FILE^DICN DT^DICRW ^DIE (NA,VERSION)^DINIT

$$CJ^XLFSTR ($$VERSION,BMES,MES)^XPDUTL

^XMD

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

Name	Field # of Occurrence
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DICN	PRE+8
DT^DICRW	POST+6
^DIE	PRE+10
NA^DINIT	POST+7
VERSION^DINIT	POST+6
$$CJ^XLFSTR	DI1018P+8, DI1018P+9, DI1018P+11, DI1018P+12, PRE+1, PRE+3, PRE+12, PRE+14, POST+1, POST+3 , POST+8, POST+13, IMES+1, SORRY+4
^XMD	MAIL+19
$$VERSION^XPDUTL	DI1018P+8, DI1018P+11
BMES^XPDUTL	POST+10
MES^XPDUTL	DI1018P+8, DI1018P+9, DI1018P+11, DI1018P+12, PRE+1, PRE+3, PRE+12, PRE+14, POST+1, POST+3 , POST+8, POST+13, 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("DI1018MS"	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
%	POST+5~, MAIL+8, MAIL+9, MAIL+10, MAIL+18*
%H	POST+5~
%X	POST+5~
%Y	POST+5~
AUTSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUTY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
D	POST+5~, INSTALLD+5*
DA	PRE+9*, PRE+11!, POST+5~
DD	POST+5~
DH	POST+5~
DIADD	PRE+7*, PRE+8!
DIC	PRE+7, PRE+8!, POST+5~, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	PRE+7, INSTALLD+5
DIE	PRE+9*, PRE+11!
DIFQ	SORRY+1!
DIFROM	POST+6~*, MAIL+2~
DIK	POST+5~
DIRUT	POST+5~
DIT	POST+5~
DITZS	POST+5~
>> DIZFLG	PRE+4, PRE+5, PRE+8, PRE+9
DO	PRE+6!, PRE+8!
DR	PRE+9*, PRE+11!
DTOUT	POST+5~
DU	POST+5~
DUOUT	POST+5~
DUZ	MAIL+13, MAIL+16
F	POST+5~
I	POST+5~
IOM	IMES+1, SORRY+4
J	POST+5~
K	SINGLE~, SINGLE+2, SINGLE+4
P	POST+5~
VERSION	POST+5~, POST+6
X	DI1018P+6, PRE+7, PRE+8!, POST+5~, 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(	DI1018P+6*
>> XPDDIQ("XPZ1"	DI1018P+5*
>> XPDDIQ("XPZ2"	DI1018P+5*
>> XPDENV	DI1018P+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	PRE+8, POST+5~, SINGLE+1~, SINGLE+3, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11 , INSTALLD+13, IMES+1

Information