Routine: XPDR

Package	Total	Call Graph
VA Fileman	5	^DIC ADD^DICA WAIT^DICD ^DIK ^DIR
Kernel	1	($$PKG,$$VER)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
UPDT	;update routine file
VER	;verify Routine file
PURGEH1(DIC)	;
DUP(Z,Z1)	;find duplicate, Z=NAME, Z1=last ien
UPDT1(XPDRT)	;check routine XPDRT
PURGE2(XPDX)	;XPDX=package name
PURGE	;purge file
PURGEH	;executable help from DIR call at PURGE+8
DELRTN	;delete routine file entries
PURGE1(XPDF)	;XPDF=file #
HDR

External References

Name	Field # of Occurrence
^DIC	PURGEH1+2
ADD^DICA	UPDT1+8
WAIT^DICD	UPDT+14
^DIK	DELRTN+4, PURGE+34
^DIR	UPDT+4, UPDT+10, UPDT+13, VER+3, PURGE+3, PURGE+6, PURGE+9, PURGE+19, PURGE+25, PURGE+28 , PURGEH+5
$$PKG^XPDUTL	PURGE1+7, PURGE2+12, PURGE2+13, PURGE2+14, PURGE2+15, PURGE2+17, PURGE2+19, PURGE2+20
$$VER^XPDUTL	PURGE2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: UPDT+1
Function Call: WRITE	Prompt: ! Line Location: UPDT+2
Function Call: WRITE	Prompt: !!,"NAMESPACE INCLUDE",?35,"EXCLUDE",!,?11,"-------",?35,"-------" Line Location: UPDT+6
Function Call: WRITE	Prompt: !?11,X,?35,Y Line Location: UPDT+8
Function Call: WRITE	Prompt: ! Line Location: UPDT+11
Function Call: WRITE	Prompt: " ...Done.",! Line Location: UPDT+22
Function Call: WRITE	Prompt: !,"I will delete all local entries in the Routine File in which",!,"the Routine no longer exist on this system!",! Line Location: VER+2
Function Call: WRITE	Prompt: " ...Done.",! Line Location: VER+5
Function Call: WRITE	Prompt: !,"Routines listed as National will not be deleted!" Line Location: DELRTN+2
Function Call: WRITE	Prompt: !!,"No match found" Line Location: PURGE+15
Function Call: WRITE	Prompt: $P(Z,"^"),$S($P(Z,"^",3):" (duplicates)",1:""),! Line Location: PURGE+24
Function Call: WRITE	Prompt: @IOF Line Location: PURGE+26
Function Call: WRITE	Prompt: !! Line Location: PURGE+28
Function Call: WRITE	Prompt: !!,"Nothing Purged" Line Location: PURGE+29
Function Call: WRITE	Prompt: "." Line Location: PURGE1+2
Function Call: WRITE	Prompt: !,"Enter the name of the Package you want to Purge.",!," i.e. KERNEL 8.0 will purge version 8.0Tx and 8.0Vx",!," XU*8.0 will purge all patches for 8.0",! Line Location: PURGEH+2
Function Call: WRITE	Prompt: !!,$S(DIC[9.6:"BUILD ",1:"INSTALL ")_"File" Line Location: PURGEH1+1
Function Call: WRITE	Prompt: !,"Package(s) in ",$S(XPDF=9.7:"INSTALL",1:"BUILD")," File, " Line Location: HDR+0
Function Call: WRITE	Prompt: "Retain last ",$S(XPDN=1:"version",1:XPDN_" versions") Line Location: HDR+1
Function Call: WRITE	Prompt: "Don't retain any versions" Line Location: HDR+2
Function Call: WRITE	Prompt: ?70,"PAGE ",XPDPG,!,XPDUL,! Line Location: HDR+3
Routine Call	DIC Line Location: PURGEH1+2
Routine Call	DIR Line Location: UPDT+4 UPDT+10 UPDT+13 VER+3 PURGE+3 PURGE+6 PURGE+9 PURGE+19 PURGE+25 PURGE+28 PURGEH+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^$R(	UPDT+19
^%ZOSF("OS"	UPDT+16
^DIC(9.8 - [#9.8]	UPDT1+2, DELRTN+4
^TMP($J	PURGE+14!, PURGE+15, PURGE1+13, PURGE1+17, PURGE1+18, PURGE1+19, PURGE1+20, PURGE2+12, PURGE2+13, PURGE2+14* , PURGE2+15, PURGE2+17, PURGE2+19, PURGE2+20
^XPD(	PURGE1+6, PURGE2+4, PURGE2+5, PURGE2+6, DUP+3

Label References

Name	Line Occurrences
$$DUP	PURGE2+12, PURGE2+13, PURGE2+14, PURGE2+15, PURGE2+17, PURGE2+19, PURGE2+20
DELRTN	UPDT+14, VER+4
HDR	PURGE+21, PURGE+26
PURGE1	PURGE+14
PURGE2	PURGE1+7, PURGE1+10
PURGEH1	PURGEH+6
UPDT1	UPDT+19, UPDT+20

Naked Globals

Name	Field # of Occurrence
^(	DELRTN+4, PURGE1+19!, PURGE1+20!
^(0	PURGE2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UPDT+1~, UPDT+4, UPDT1+6
>> %ZR(	UPDT+20
DA	DELRTN+1~, DELRTN+3, DELRTN+4, PURGE+1~, PURGE+34*
DIC	PURGEH1~, PURGEH1+1
DIC(0	PURGEH1+2*
DIK	DELRTN+1~, DELRTN+3, PURGE+1~, PURGE+32
DIR	UPDT+1~, UPDT+10!, VER+1~, PURGE+1~, PURGE+5!, PURGE+7!, PURGE+16!, PURGEH+3~
DIR("?"	UPDT+2, UPDT+12, PURGE+2, PURGE+5, PURGE+8*
DIR("A"	UPDT+2, UPDT+10, UPDT+12, VER+3, PURGE+2, PURGE+5, PURGE+8, PURGE+9, PURGE+27, PURGEH+1 , PURGEH+4
DIR("B"	UPDT+10, VER+3, PURGE+5, PURGE+8, PURGE+9!, PURGE+27, PURGEH+4
DIR(0	UPDT+2, UPDT+10, UPDT+12, VER+3, PURGE+2, PURGE+5, PURGE+8, PURGE+17, PURGE+27, PURGEH+4
DIRUT	UPDT+1~, UPDT+4, UPDT+11, UPDT+13, VER+1~, VER+4, PURGE+1~, PURGE+3, PURGE+6, PURGE+9 , PURGE+29, PURGEH+5
>> DTOUT	UPDT+5
>> DUOUT	UPDT+5
IOF	PURGE+21, PURGE+26
IOM	PURGE+17
IOSL	PURGE+24
U	DELRTN+4, PURGE2+8
X	UPDT+1~, UPDT+4, UPDT+7, UPDT+8, UPDT+9, VER+1~, PURGE+1~, PURGE+9, PURGE1+7, PURGEH+3~ , PURGEH1+2*
X1	UPDT+1~, UPDT+7, UPDT+8, UPDT+9
XPD	UPDT+1~, UPDT1+7~, PURGE+1~, PURGE+10, PURGE+12!, PURGE+16!, PURGE+20, PURGE+23, PURGE+24, PURGE+32* , PURGE+33*, PURGE+34
XPD(	UPDT1+7, PURGE+9, PURGE1+9
XPD("ALL"	PURGE+12*, PURGE1+4
XPDF	PURGE+1~, PURGE+4, PURGE+14, PURGE+19, PURGE+20, PURGE+31*, PURGE+32, PURGE1~, PURGE1+6, PURGE1+13 , PURGE1+17, PURGE1+18, PURGE1+19, PURGE1+20, PURGE2+4, PURGE2+5, PURGE2+6, PURGE2+8, PURGE2+12, PURGE2+13 , PURGE2+14, PURGE2+15, PURGE2+17, PURGE2+19, PURGE2+20, PURGEH+4, PURGEH+6, DUP+3, HDR
XPDF(1	PURGE+4*, PURGE+14, PURGE+19, PURGE+31, PURGEH+4, PURGEH+6
XPDFL	PURGE1+1~, PURGE2+2*, PURGE2+4
XPDGTM	UPDT+1~, UPDT+16*, UPDT+19, UPDT+20
XPDI	UPDT+1~, UPDT+18, UPDT+19, UPDT+20, PURGE+1~, PURGE+34, PURGE1+1~, PURGE1+5, PURGE1+6, PURGE1+7 , PURGE1+9*, PURGE1+10
XPDJ	UPDT+1~, UPDT+18, UPDT+19, UPDT+20, PURGE+1~, PURGE+34, PURGE1+1~
XPDL	PURGE+1~, PURGE+20, PURGE+23, PURGE+32, PURGE+33, PURGE1+14, PURGE1+17, PURGE1+18, PURGE1+19, PURGE1+20* , PURGE2+2*, PURGE2+4
XPDN	UPDT+1~, UPDT+5, PURGE+1~, PURGE+6*, PURGE1+14, HDR+1
XPDN(	UPDT+4*
XPDN(0	UPDT+9, UPDT1+2, UPDT1+6
XPDN(1	UPDT+9, UPDT+18
XPDP	PURGE1+1~, PURGE1+13*, PURGE1+17, PURGE1+18, PURGE1+19, PURGE1+20
XPDPG	PURGE+1~, PURGE+20, PURGE+26, HDR+3
XPDRT	UPDT1~, UPDT1+2, UPDT1+6, UPDT1+7
XPDS	PURGE+1~, PURGE+20, PURGE+23, PURGE+32, PURGE+33, PURGE1+17, PURGE1+18, PURGE1+19, PURGE1+20, PURGE2+2 , PURGE2+4*, PURGE2+5, PURGE2+6, PURGE2+9, PURGE2+11, PURGE2+12, PURGE2+13, PURGE2+14, PURGE2+15, PURGE2+17 , PURGE2+19, PURGE2+20
XPDUL	PURGE+1~, PURGE+17*, HDR+3
XPDV	PURGE1+1~, PURGE1+14, PURGE1+17, PURGE1+18, PURGE1+19, PURGE1+20, PURGE2+9*, PURGE2+12, PURGE2+13, PURGE2+14 , PURGE2+15, PURGE2+17, PURGE2+19, PURGE2+20
XPDX	PURGE2~, PURGE2+2, PURGE2+4
Y	UPDT+1~, UPDT+4, UPDT+7, UPDT+8, UPDT+9, UPDT+11, UPDT+14, VER+1~, VER+4, DELRTN+1~ , DELRTN+4, PURGE+1~, PURGE+4, PURGE+6, PURGE+19, PURGE+20, PURGE+23, PURGE+25, PURGE+29, PURGE1+1~ , PURGE1+18, PURGE1+19, PURGE1+20, PURGE2+5, PURGE2+6, PURGE2+12, PURGE2+13, PURGE2+14, PURGE2+15, PURGE2+17 , PURGE2+19, PURGE2+20, PURGEH+3~, PURGEH+5, DUP+2~, DUP+3*, DUP+4
Y1	UPDT+1~, UPDT+7, UPDT+8, UPDT+9
Z	PURGE+1~, PURGE+24, PURGE1+1~, PURGE1+20, PURGE2+6*, PURGE2+8, DUP~, DUP+3
Z1	DUP~, DUP+3*

Customize PDF page

Package: Kernel

Routine: XPDR

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items