Routine: XPDI

Information

XPDI ;SFISC/RSD - Install Process ; Mar 21, 2023@09:46:08

Source Information

Source file <XPDI.m>

Package	Total	Call Graph
Kernel	9	(,HOME)^%ZIS (,$$TM)^%ZTLOAD ($$FMADD,$$FMTE,$$HADD,$$HTE,$$HTFM)^XLFDT ($$LOOK,QUES,QUIT,XPDIJ,XQSET)^XPDI1 EN^XPDIJ $$ENV^XPDIL1 DIR^XPDIQ (BMES,MES)^XPDUTL INIT^XQOO
VA FileMan	3	(,FILE,UPDATE)^DIE ^DIK ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 7

Package	Total	Caller Graph
Kernel	7	XPD INSTALL BUILD XPDI1 XPDIGP XPDIL XPDIL1 XPDIPM XPDIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;install
DEV
ABORT(XPDA,XPDK,XPDALL)	;abort install of Build XPDA
ASKABRT	;ask if want to unload distribution
ABRTALL(XPDK)	;abort all Builds
NONE

External References

Name	Field # of Occurrence
^%ZIS	DEV+2, DEV+12
HOME^%ZIS	DEV+29
^%ZTLOAD	DEV+29
$$TM^%ZTLOAD	EN+66
^DIE	EN+64
FILE^DIE	EN+51, DEV+34, ABORT+19
UPDATE^DIE	EN+56
^DIK	ABORT+20
^DIR	EN+47, EN+62, DEV+26, ASKABRT+3
$$FMADD^XLFDT	DEV+17
$$FMTE^XLFDT	DEV+22
$$HADD^XLFDT	DEV+19
$$HTE^XLFDT	ABORT+3
$$HTFM^XLFDT	DEV+19
$$LOOK^XPDI1	EN+2
QUES^XPDI1	EN+18
QUIT^XPDI1	DEV+18, DEV+37, DEV+38
XPDIJ^XPDI1	DEV+4, DEV+18, DEV+37, DEV+38
XQSET^XPDI1	EN+21
EN^XPDIJ	DEV+4, DEV+37, DEV+38
$$ENV^XPDIL1	EN+13
DIR^XPDIQ	EN+31, EN+33
BMES^XPDUTL	ABORT+3
MES^XPDUTL	ABORT+3
INIT^XQOO	EN+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"INSTALL FILE IS CORRUPTED",!,*7 Line Location: EN+10
Function Call: WRITE	Prompt: ! Line Location: EN+27
Function Call: WRITE	Prompt: ?3,$P(^(I,0),U),! Line Location: EN+60
Function Call: WRITE	Prompt: !!,"No VOLUME SETS selected!!" Line Location: EN+65
Function Call: WRITE	Prompt: !!,"Enter the Device you want to print the Install messages." Line Location: DEV+7
Function Call: WRITE	Prompt: !,"Enter a '^' to abort the install.",! Line Location: DEV+9
Function Call: WRITE	Prompt: !!,"You can't queue to a Video Terminal device!",! Line Location: DEV+14
Function Call: WRITE	Prompt: ! Line Location: ASKABRT+3
Function Call: WRITE	Prompt: !!,"NOTHING INSTALLED",! Line Location: NONE+0
Routine Call	%ZIS Line Location: DEV+2 DEV+12
Routine Call	%ZIS Line Location: DEV+29
Routine Call	DIE Line Location: EN+64
Routine Call	DIE Line Location: EN+51 DEV+34 ABORT+19
Routine Call	DIE Line Location: EN+56
Routine Call	DIR Line Location: EN+47 EN+62 DEV+26 ASKABRT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.5 - [#14.5]	EN+58
^%ZOSF("UCI"	EN+57
^DD(3.5	DEV
^TMP($J	EN+4!, EN+42
^XPD(9.7 - [#9.7]	EN+4, EN+7, EN+10, EN+26, EN+56, EN+60, EN+65, ABORT+2, ABORT+12, ASKABRT+4 , ABRTALL+5
^XTMP("XPDI"	EN+16, EN+17, EN+20, EN+29, DEV+17*, ABORT+7!
^XTMP("XQOO"	EN+39, EN+42

Label References

Name	Line Occurrences
ABORT	ABRTALL+3
ABRTALL	EN+31, EN+33, EN+36, EN+53, ASKABRT+3
ASKABRT	DEV+12, DEV+18
DEV	DEV+14
NONE	EN+23, EN+26

Naked Globals

Name	Field # of Occurrence
^(	EN+26, EN+29, EN+58, EN+60
^("INIT"	EN+10
^(0	EN+7, ABORT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, EN+2, EN+7, EN+26, EN+29, ABORT+1~, ABORT+15*
>> %ZIS	DEV+2, DEV+10
DA	EN+54~, EN+63, ABORT+1~, ABORT+4
DIE	EN+54~, EN+63*
DIK	ABORT+1~, ABORT+4*
DIR	EN+1~, EN+44~, EN+54~, DEV+19~, ASKABRT+1~
DIR("?"	EN+45, DEV+23, DEV+24, DEV+25
DIR("A"	EN+45, EN+61, DEV+21, ASKABRT+2
DIR("B"	EN+44, EN+61, DEV+22, DEV+25, ASKABRT+2
DIR(0	EN+44, EN+61, DEV+20, ASKABRT+2
DIRUT	EN+1~, EN+31, EN+33, EN+47, EN+53, EN+62, DEV+27, ASKABRT+1~
DR	EN+54~, EN+63*
DR(2	EN+63*
DT	EN+39, DEV+17
DUZ	EN+39
I	EN+54~, EN+57, EN+58, EN+60*
IO	DEV+37
IO("Q"	DEV+14, DEV+18, DEV+29!
>> IOP	DEV+2*
IOST	DEV+14
NOW	DEV+19~*, DEV+20, DEV+22
POP	EN+1~, DEV*, DEV+2, DEV+4, DEV+12
U	EN+4, EN+7, EN+29, EN+39, EN+58, EN+60, DEV+10, DEV+17, ABORT+2, ABORT+13
X	EN+54~, EN+58*, ASKABRT+1~
XPD	EN+1~, EN+50!, EN+54~, EN+56, DEV+33!, DEV+34!, ABORT+14~
XPD(	EN+50, EN+58, DEV+33, DEV+34, ABORT+18*
XPDA	EN+1~, EN+7, EN+10, EN+16, EN+17, EN+18, EN+20, EN+21, EN+25, EN+26 , EN+29, EN+56, EN+58, EN+60, EN+63, EN+65, DEV+4, DEV+10, ABORT~, ABORT+2 , ABORT+4, ABORT+6, ABORT+7, ABORT+10, ABRTALL+1~, ABRTALL+3*
XPDALL	ABORT~, ABORT+10
>> XPDAUTO	EN+47, DEV+12, DEV+15, DEV+37, DEV+38
XPDD	EN+1~, DEV+17*, DEV+20
>> XPDDEV	DEV+15, DEV+38
XPDDIQ	EN+1~, EN+15, EN+17
XPDIABT	EN+1~
XPDIJ	EN+1~, EN+20*, DEV+4, DEV+18, DEV+37, DEV+38
XPDIT	EN+1~, EN+4, EN+6, EN+7, EN+18, DEV+33, DEV+34, ABORT+13*
XPDJ	ABORT+1~, ABORT+4*, ABORT+6
XPDK	ABORT~, ABORT+3, ABORT+6, ABRTALL~, ABRTALL+3
XPDNM	EN+1~, EN+7, EN+8, EN+25, DEV+28, ABORT+1~, ABORT+2*, ABORT+3, ABORT+4, ABORT+6
XPDNOQUE	EN+1~, EN+15, EN+16, DEV+8, DEV+10
XPDPKG	EN+1~, EN+7*
XPDQUES	EN+1~
XPDQUES("XPZ1"	EN+38
XPDQUES("XPZ2"	EN+53
XPDQUIT	EN+1~, EN+3, EN+6, EN+10, EN+13, EN+18, EN+23, ASKABRT+2*
XPDREQAB	EN+1~, EN+13, EN+23
XPDSET	EN+1~, EN+4*, EN+25, EN+39, EN+42, EN+50
XPDSET1	EN+1~, EN+4, EN+36, EN+38, EN+40, EN+43, EN+47*, EN+50
XPDST	EN+1~, EN+2, EN+3, EN+4, EN+25, EN+50, DEV+4, DEV+10, DEV+18, DEV+33 , DEV+37, DEV+38, ABORT+10, ABORT+12, ABORT+13, ABORT+15, ABORT+18, ASKABRT+4, ABRTALL+5
XPDT	EN+1~, EN+6, ABRTALL+2, ABRTALL+3
XPDT(	EN+6, EN+7, EN+18, DEV+34, ABORT+6!, ABORT+13, ABORT+14!, ABORT+17, ABORT+18, ABRTALL+3
XPDT(""	EN+23
XPDT("DA"	EN+26, ABORT+6!, ABORT+13*
XPDT("GP"	ABORT+6!
XPDT("MASTER"	EN+29*
XPDT("NM"	ABORT+4, ABORT+6!, ABORT+13*
XPDT(0	ABORT+10
XPDT(1	ABORT+13*
Y	EN+1~, EN+25, EN+26, EN+38, EN+47, EN+50, EN+54~, EN+57, EN+58, EN+62 , DEV+28, ABORT+1~, ABORT+10, ABORT+13, ABORT+14, ABORT+17*, ABORT+18, ASKABRT+1~, ASKABRT+3
Z	EN+54~, EN+57, EN+58
>> ZTDESC	DEV+28*
>> ZTDTH	DEV+28*
>> ZTRTN	DEV+28*
>> ZTSAVE("XPDA"	DEV+28*
ZTSK	EN+1~, DEV+18, DEV+30, DEV+33

Customize PDF page

Package: Kernel