Routine: XPDIL

Information

XPDIL ;SFISC/RSD - load Distribution Global ;05/05/2008

Package	Total	Call Graph
Kernel	6	(,HOME)^%ZIS ^%ZISC ($$DT,$$FMADD)^XLFDT ABRTALL^XPDI (,DISP)^XPDIGP ($$INST,PKG)^XPDIL1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Kernel	2	XPDIGP XPDIPM

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Use INSTALL NAME: ",$P(^(0),U)," to install this Distribution.",! Line Location: EN1+26
Function Call: WRITE	Prompt: !!,"You must have a device called 'HFS' in order to load a distribution!",*7 Line Location: ST+3
Function Call: WRITE	Prompt: !,"Couldn't open file or HFS device!!",*7 Line Location: ST+8
Function Call: WRITE	Prompt: !,"Couldn't open ",IO Line Location: OPEN+9
Function Call: READ	Timeout: 10,Y:10 Variable: X Line Location: GI+1
Function Call: WRITE	Prompt: !!,X,!,"Comment: ",Y Line Location: GI+2
Function Call: READ	Timeout: 1 Variable: Z Line Location: GI+5
Function Call: WRITE	Prompt: !!,"This is not a Distribution HFS File!" Line Location: GI+6
Function Call: WRITE	Prompt: !!,"This Distribution contains Transport Globals for the following Package(s):" Line Location: GI+10
Function Call: WRITE	Prompt: !,"Distribution OK!",! Line Location: GI+16
Function Call: WRITE	Prompt: !,"Loading Distribution...",! Line Location: GI+20
Function Call: READ	Timeout: 10,Y:10 Variable: X Line Location: GI+24
Function Call: WRITE	Prompt: !!,"ERROR in HFS file format!" Line Location: GI+26
Function Call: READ	Timeout: 10,Y:10 Variable: X Line Location: GI+31
Function Call: WRITE	Prompt: !!,"NOTHING LOADED",! Line Location: NONE+0
Routine Call	%ZIS Line Location: ST+4
Routine Call	DIR Line Location: EN1+21 ST+6 OPEN+4 OPEN+7 GI+19
Routine Call	%ZIS Line Location: ST+8

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	ST+3
^DD(3.5	ST+2
^XPD(9.7 - [#9.7]	EN1+26
^XTMP("XPDI"	EN1+14, GI+22*

Name	Field # of Occurrence
^(0	EN1+26

Name	Field # of Occurrence
>> %	GI+28, GI+33, GI+34
%ZIS	ST+1~, ST+7*
%ZIS("HFSMODE"	ST+7*
%ZIS("HFSNAME"	ST+7*
DIR	EN1+18~, ST+1~, OPEN+1~
DIR("?"	ST+5, OPEN+3, OPEN+6*
DIR("A"	EN1+19, EN1+20, ST+5, OPEN+2, OPEN+5, GI+18
DIR("B"	EN1+19, GI+18
DIR(0	EN1+19, ST+5, OPEN+2, OPEN+5, GI+18*
DIRUT	EN1+18~, EN1+21, ST+1~, ST+6, OPEN+1~, OPEN+4, GI+19, GI+31, GI+33*
DT	EN1+1*, GI+22
DTOUT	OPEN+1~, OPEN+7
DUOUT	OPEN+1~, OPEN+7
GR	ST+1~, GI+28, GI+34, GI+35
IO	OPEN+1~, OPEN+5*, OPEN+9, GI+1, GI+5, GI+24
IO(0	OPEN+10*, GI+2, GI+6, GI+26, GI+36
IOP	ST+1~, ST+7*
IOPAR	OPEN+1~, OPEN+8*, OPEN+9
POP	EN1~, ST+8, OPEN+4, OPEN+7, OPEN+9*
U	EN1+1*, EN1+16, EN1+17, EN1+20, EN1+26, GI+8, GI+11, GI+22
X	ST+1~, GI~, GI+1, GI+2, GI+3, GI+5, GI+11, GI+24, GI+26, GI+31* , GI+32, GI+35
X(	GI+5*, GI+11
X(1	GI+6, GI+8, GI+9
XPDA	EN1~, EN1+12*, EN1+14, EN1+23
XPDGP	EN1~, EN1+25, ST+10, GI+8*, GI+17
XPDIT	EN1~, EN1+11, EN1+12, EN1+20, GI+9, GI+14
XPDQUIT	EN1~, EN1+3, EN1+14, EN1+21, ST+3, ST+6, ST+8, ST+10, GI+6, GI+11 , GI+14, GI+15, GI+19, GI+26, GI+31*
XPDREQAB	EN1~
XPDSEQ	GI~, GI+28*
XPDSKPE	EN1~, EN1+11, EN1+16, EN1+17, EN1+22*
XPDST	EN1~, EN1+2*, EN1+26
XPDST("H"	GI+3*
XPDST("H1"	GI+3*
XPDT	EN1~, EN1+12, EN1+26
XPDT(	EN1+12, EN1+20, GI+28, GI+34
XPDT("NM"	GI+26, GI+28, GI+33
Y	EN1+22, ST+1~, ST+7, OPEN+5, OPEN+8, GI~, GI+1, GI+2, GI+3, GI+11 , GI+14, GI+19, GI+24, GI+26, GI+28, GI+31, GI+33, GI+35
Z	ST+1~, GI~, GI+5, GI+11