Routine: XPDR

Information

XPDR ;SFISC/RSD - Routine File Edit ;09/17/96 10:05

Source Information

Source file <XPDR.m>

Call Graph

Call Graph Total: 6

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

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: 2

Package	Total	Caller Graph
Kernel	2	XPD PURGE FILE XPD ROUTINE UPDATE

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	PURGEH1+2
ADD^DICA	UPDT1+8
WAIT^DICD	UPDT+15
^DIK	DELRTN+5, PURGE+34
^DIR	UPDT+5, UPDT+11, UPDT+14, 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+3
Function Call: WRITE	Prompt: !!,"NAMESPACE INCLUDE",?35,"EXCLUDE",!,?11,"-------",?35,"-------" Line Location: UPDT+7
Function Call: WRITE	Prompt: !?11,X,?35,Y Line Location: UPDT+9
Function Call: WRITE	Prompt: ! Line Location: UPDT+12
Function Call: WRITE	Prompt: " ...Done.",! Line Location: UPDT+23
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+5 UPDT+11 UPDT+14 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+20
^%ZOSF("OS"	UPDT+17
^%ZOSF("TEST"	DELRTN+5
^DIC(9.8 - [#9.8]	UPDT1+2, DELRTN+4, DELRTN+5
^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+15, VER+4
HDR	PURGE+21, PURGE+26
PURGE1	PURGE+14
PURGE2	PURGE1+7, PURGE1+10
PURGEH1	PURGEH+6
UPDT1	UPDT+20, UPDT+21

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+5, UPDT1+6
>> %ZR(	UPDT+21
DA	DELRTN+1~, DELRTN+3, DELRTN+4, DELRTN+5, 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+11!, VER+1~, PURGE+1~, PURGE+5!, PURGE+7!, PURGE+16!, PURGEH+3~
DIR("?"	UPDT+3, UPDT+13, PURGE+2, PURGE+5, PURGE+8*
DIR("A"	UPDT+3, UPDT+11, UPDT+13, VER+3, PURGE+2, PURGE+5, PURGE+8, PURGE+9, PURGE+27, PURGEH+1 , PURGEH+4
DIR("B"	UPDT+11, VER+3, PURGE+5, PURGE+8, PURGE+9!, PURGE+27, PURGEH+4
DIR(0	UPDT+3, UPDT+11, UPDT+13, VER+3, PURGE+2, PURGE+5, PURGE+8, PURGE+17, PURGE+27, PURGEH+4
DIRUT	UPDT+1~, UPDT+5, UPDT+12, UPDT+14, VER+1~, VER+4, PURGE+1~, PURGE+3, PURGE+6, PURGE+9 , PURGE+29, PURGEH+5
>> DTOUT	UPDT+6
>> DUOUT	UPDT+6
IOF	PURGE+21, PURGE+26
IOM	PURGE+17
IOSL	PURGE+24
U	DELRTN+5, PURGE2+8
X	UPDT+1~, UPDT+5, UPDT+8, UPDT+9, UPDT+10, VER+1~, DELRTN+1~, DELRTN+5, PURGE+1~, PURGE+9 , PURGE1+7, PURGEH+3~, PURGEH1+2
X1	UPDT+1~, UPDT+8, UPDT+9, UPDT+10
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+17*, UPDT+20, UPDT+21
XPDI	UPDT+1~, UPDT+19, UPDT+20, UPDT+21, PURGE+1~, PURGE+34, PURGE1+1~, PURGE1+5, PURGE1+6, PURGE1+7 , PURGE1+9*, PURGE1+10
XPDJ	UPDT+1~, UPDT+19, UPDT+20, UPDT+21, 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+6, PURGE+1~, PURGE+6*, PURGE1+14, HDR+1
XPDN(	UPDT+5*
XPDN(0	UPDT+10, UPDT1+2, UPDT1+6
XPDN(1	UPDT+10, UPDT+19
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+5, UPDT+8, UPDT+9, UPDT+10, UPDT+12, UPDT+15, VER+1~, VER+4, DELRTN+1~ , DELRTN+4, DELRTN+5, 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+8, UPDT+9, UPDT+10
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