Routine: XPDIL1

Package	Total	Call Graph
Kernel	5	($$FMTE,$$NOW)^XLFDT (ABORT,ABRTALL,NONE)^XPDI SAVE^XPDIJ XPCK^XPDIK ($$NEWCP,$$PATCH,$$PKG,$$VER,$$VERSION,MES)^XPDUTL
VA Fileman	5	^DIC MIX^DIC1 FILE^DIE $$EXTERNAL^DILFD ^DIR

Package

Total

Call Graph

Kernel

($$FMTE,$$NOW)^XLFDT (ABORT,ABRTALL,NONE)^XPDI SAVE^XPDIJ XPCK^XPDIK ($$NEWCP,$$PATCH,$$PKG,$$VER,$$VERSION,MES)^XPDUTL

VA Fileman

^DIC MIX^DIC1 FILE^DIE $$EXTERNAL^DILFD ^DIR

Package	Total	Caller Graph
Kernel	4	XPDI XPDIGP XPDIL XPDIPM

Package

Total

Caller Graph

Kernel

XPDI XPDIGP XPDIL XPDIPM

Name	Comments	DBIA/ICR reference
INST(XPDNM)	;add to Install file
ABORT
ENV(XPDENV)	;environment check & version check
PKG(XPDA)	;check Package file
INRTN(X)
REQB()	;check for Required Builds

External References

Name	Field # of Occurrence
^DIC	PKG+16, INST+17
MIX^DIC1	PKG+18
FILE^DIE	PKG+20, INST+24
$$EXTERNAL^DILFD	INST+10
^DIR	INST+14, ENV+20
$$FMTE^XLFDT	INST+10
$$NOW^XLFDT	INST+23
ABORT^XPDI	PKG+4, PKG+26, PKG+29, PKG+31, PKG+33, ENV+8, ABORT+5, ABORT+9, REQB+20
ABRTALL^XPDI	ENV+17, ABORT+3
NONE^XPDI	ENV+17
SAVE^XPDIJ	ENV+26
XPCK^XPDIK	PKG+35
$$NEWCP^XPDUTL	PKG+26, PKG+29, PKG+31, PKG+33
$$PATCH^XPDUTL	REQB+10
$$PKG^XPDUTL	PKG+4, REQB+6
$$VER^XPDUTL	ENV+10, REQB+6
$$VERSION^XPDUTL	PKG+8, PKG+9, REQB+6
MES^XPDUTL	ENV+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,XPDNM Line Location: PKG+2
Function Call: WRITE	Prompt: !!,"But I need Version ",+Y," of KERNEL!" Line Location: PKG+8
Function Call: WRITE	Prompt: !,"But I Need Version ",+$P(Y,U,2)," of VA FILEMAN!" Line Location: PKG+9
Function Call: WRITE	Prompt: !,"Build ",XPDNM," has been loaded before, here is when: " Line Location: INST+5
Function Call: WRITE	Prompt: !?6,$P(%,U)," " Line Location: INST+8
Function Call: WRITE	Prompt: "Transport Global already exists",*7 Line Location: INST+9
Function Call: WRITE	Prompt: $$EXTERNAL^DILFD(9.7,.02,"",$P(%,U,9)),!?%X,"was loaded on ",$$FMTE^XLFDT($P($G(^XPD(9.7,Y,1)),U)) Line Location: INST+10
Function Call: WRITE	Prompt: !,"Can't add Build ",XPDNM," to Install File" Line Location: INST+18
Function Call: WRITE	Prompt: !?3,XPDNM Line Location: INST+25
Function Call: WRITE	Prompt: !,"This Patch is for Version ",%,", you are running Version ",Y,! Line Location: ENV+12
Function Call: WRITE	Prompt: !,"You have a Version greater than mine!",! Line Location: ENV+14
Routine Call	DIC Line Location: PKG+16 INST+17
Routine Call	DIE Line Location: PKG+20 INST+24
Routine Call	DIR Line Location: INST+14 ENV+20

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	ENV+10
^XPD(9.7 - [#9.7]	INST+4, INST+6, INST+7, INST+10, ENV+6*
^XTMP("XPDI"	PKG+7, PKG+11, INST+9, ENV+5, ENV+24, ABORT+10, REQB+3, REQB+4, REQB+5, INRTN+1

Name	Line Occurrences
$$ENV	PKG+22
$$INRTN	PKG+27, PKG+32
$$REQB	ENV+23
@(	ENV+26
ABORT	ENV+23

Name	Field # of Occurrence
^(	PKG+11, REQB+5
^(0	INST+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PKG+1~, PKG+11, PKG+27, PKG+29, PKG+32, PKG+33, INST+7, INST+8, INST+9, INST+10 , INST+23, ENV+2~, ENV+10, ENV+12, ENV+14, ENV+23, ENV+24, ENV+25, ENV+26, ABORT+9*
%X	INST+1~, INST+10*
D	PKG+14~, PKG+18*
DIC	PKG+14~, PKG+15, INST+1~, INST+15
DIC(0	PKG+15, PKG+18, INST+15*
DIR	INST+1~, ENV+2~, ENV+9~
DIR("A"	INST+13, ENV+19
DIR("B"	INST+13, ENV+19
DIR(0	INST+13, ENV+19
DIRUT	INST+1~, INST+14, ENV+9~
DLAYGO	INST+1~, INST+15*
DUZ	ENV+3~*
DUZ(0	ENV+3*
SH	INST+1~, INST+4, INST+18, INST+25
U	PKG+2, PKG+9, PKG+13, PKG+15, PKG+18, INST+8, INST+9, INST+10, INST+22, ENV+6 , REQB+6
X	PKG+1~, PKG+15, PKG+18, INST+1~, INST+15, ENV+3, ENV+9~, ENV+10, ENV+12, ENV+14 , REQB+2~, REQB+6, INRTN~, INRTN+1
XPD	PKG+1~, INST+1~, INST+4, INST+9, INST+12, INST+14
XPD(	PKG+20*
XPDA	PKG~, PKG+4, PKG+7, PKG+11, PKG+20, PKG+26, PKG+29, PKG+31, PKG+33, INST+1~ , INST+22*, INST+23, INST+26, ENV+4, ENV+5, ENV+6, ENV+8, ENV+24, ABORT+5, ABORT+10 , REQB+3, REQB+4, REQB+5, REQB+20, INRTN+1
XPDABORT	ENV+2~, ENV+23*, ABORT, ABORT+2, ABORT+3
XPDACT	REQB+2~, REQB+6*, REQB+15, REQB+17
XPDBLD	REQB+2~, REQB+3*, REQB+4, REQB+5
XPDCP	PKG+1~, PKG+26, PKG+31
XPDDIQ	INST+1~
XPDDONE	ENV+2~, ENV+16*, ENV+22
XPDENV	ENV~, ABORT+2, ABORT+8, REQB+20
>> XPDGP	PKG+24
XPDGREF	ENV+2~, ENV+4*
XPDI	ENV+2~, ABORT+6, ABORT+8, ABORT+9, REQB+2~, REQB+3, REQB+5
XPDIE	INST+1~
>> XPDIT	PKG+2, INST+22, INST+23
XPDMBREQ	ENV+2~, ENV+5*, ENV+6, ENV+16
XPDNM	PKG+1~, PKG+2*, PKG+4, INST~, INST+4, INST+5, INST+6, INST+15, INST+18, INST+22 , INST+25, ENV+10, ENV+17, REQB+14
XPDNOQUE	PKG+1~
XPDPKG	PKG+1~, PKG+11, PKG+13, PKG+20, ENV+8, ENV+10
XPDPKG(0	PKG+11*, PKG+15, PKG+18
XPDQ	REQB+2~, REQB+6, REQB+9, REQB+10, REQB+12, REQB+14, REQB+17
XPDQUIT	PKG+4, PKG+8, PKG+9, ENV+2~, ENV+8, ENV+12, ENV+14, ENV+15, ENV+16, ENV+20! , ABORT+4, ABORT+5, ABORT+10, ABORT+11, REQB+2~, REQB+3, REQB+15, REQB+18, REQB+20, REQB+21
XPDQUIT(	ABORT+8, ABORT+9
>> XPDREQAB	ENV+23*
>> XPDSKPE	PKG+22
>> XPDST	INST+20*, INST+23
>> XPDST("H1"	INST+23
>> XPDT(	PKG+2, INST+22*, ABORT+9
>> XPDT("DA"	INST+22*
>> XPDT("NM"	PKG+6, INST+22*, ABORT+9, REQB+14
>> XPDT(0	ABORT+10
XPDX	REQB+2~, REQB+6*, REQB+9, REQB+10, REQB+14, REQB+17
XPDX0	REQB+2~, REQB+5*, REQB+6
Y	PKG+1~, PKG+7, PKG+8, PKG+9, PKG+13, PKG+16, INST+1~, INST+4, INST+6, INST+7 , INST+9, INST+10, INST+14, INST+18, INST+20, INST+22, ENV+9~, ENV+10, ENV+12, ENV+14 , ENV+20, REQB+2~, REQB+6, REQB+8, REQB+9, INRTN~, INRTN+1, INRTN+2*, INRTN+3
>> Z	REQB+6*, REQB+8, REQB+9

Customize PDF page

Package: Kernel

Routine: XPDIL1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: