Routine: XPDE

Information

XPDE ;SFISC/RSD - Package Edit ; Apr 15, 2022@08:55:47

Source Information

Source file <XPDE.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	7	^DDS (,LIST)^DIC WAIT^DICD UPDATE^DIE (,EN1)^DIK $$GET1^DIQ ^DIR
Kernel	2	($$TF,$$TX)^XPDET EN^XPDV

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

Package	Total	Caller Graph
Kernel	8	XPD BUILD NAMESPACE XPD COPY BUILD XPD EDIT BUILD XPD VERIFY BUILD XPDB1 XPDER XPDT XPDTC

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	;edit Build file package
COPY	;copy a Build file package
BUILD	;build package from a namespace
VER	;verify a Build file package
DIC(DIC,A,XPDL)	;DIC lookup to Build file, 9.6
NEW(DA)	;create Kernel Files multiple for package DA
QUIT(Y)	;unlock Y
FILES	;kernel files for field 7 in file 9.6

External References

Name	Field # of Occurrence
^DDS	EDIT+5
^DIC	DIC+4
LIST^DIC	BUILD+27
WAIT^DICD	COPY+15, BUILD+21
UPDATE^DIE	BUILD+32, BUILD+33, NEW+8
^DIK	COPY+12
EN1^DIK	COPY+21
$$GET1^DIQ	BUILD+29
^DIR	COPY+8, BUILD+8, BUILD+13, BUILD+19
$$TF^XPDET	BUILD+29
$$TX^XPDET	BUILD+29
EN^XPDV	VER+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: COPY+1
Function Call: WRITE	Prompt: !,$P(TO0,U)," package will be PURGED before the copy." Line Location: COPY+7
Function Call: WRITE	Prompt: ! Line Location: COPY+8
Function Call: WRITE	Prompt: ! Line Location: COPY+10
Function Call: WRITE	Prompt: $P(TO0,U)," being deleted!" Line Location: COPY+12
Function Call: WRITE	Prompt: "...Done.",! Line Location: COPY+23
Function Call: WRITE	Prompt: ! Line Location: BUILD+1
Function Call: WRITE	Prompt: ! Line Location: BUILD+3
Function Call: WRITE	Prompt: !,"The Build Type must be SINGLE PACKAGE!!",! Line Location: BUILD+4
Function Call: WRITE	Prompt: ! Line Location: BUILD+12
Function Call: WRITE	Prompt: !!,"NAMESPACE INCLUDE",?35,"EXCLUDE",!,?11,"-------",?35,"-------" Line Location: BUILD+15
Function Call: WRITE	Prompt: !?11,X,?35,Y Line Location: BUILD+17
Function Call: WRITE	Prompt: "." Line Location: BUILD+24
Function Call: WRITE	Prompt: "...Done.",! Line Location: BUILD+35
Function Call: WRITE	Prompt: !,"Being accessed by another user" Line Location: DIC+5
Routine Call	DDS Line Location: EDIT+5
Routine Call	DIC Line Location: DIC+4
Routine Call	DIC Line Location: BUILD+27
Routine Call	DIE Line Location: BUILD+32 BUILD+33 NEW+8
Routine Call	DIR Line Location: COPY+8 BUILD+8 BUILD+13 BUILD+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	NEW+4
^DD(9.6	NEW+2
^TMP("DILIST"	BUILD+28, BUILD+29
^XPD(9.6 - [#9.6]	EDIT+4, EDIT+7, EDIT+8!, COPY+17!, COPY+18, COPY+21!, BUILD+4, BUILD+9, BUILD+23, DIC+5 , NEW+2, NEW+4, QUIT+1

Label References

Name	Line Occurrences
$$DIC	EDIT+2, COPY+2, COPY+4, BUILD+2, VER+2
NEW	EDIT+3, COPY+19, BUILD+10
QUIT	EDIT+9, COPY+4, COPY+14, COPY+22, BUILD+6, BUILD+14, BUILD+20, BUILD+34

Naked Globals

Name	Field # of Occurrence
^(	EDIT+7, COPY+18*, BUILD+9!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BUILD+13, BUILD+29
A	DIC~, DIC+2
DA	EDIT+1~, EDIT+2, EDIT+3, EDIT+4, EDIT+5, EDIT+7, EDIT+8, EDIT+9, COPY+1~, COPY+9 , COPY+17, COPY+18, COPY+21, NEW~, NEW+2, NEW+4
DDSFILE	EDIT+1~, EDIT+4*
DIC	DIC~, DIC+2*
DIC("A"	DIC+2*
DIC("DR"	DIC+3*
DIC(0	DIC+2*, DIC+3
DIK	COPY+1~, COPY+9*
DIK(1	COPY+21*
DIR	EDIT+1~, COPY+1~, BUILD+1~, BUILD+8!
DIR("?"	BUILD+7, BUILD+12
DIR("A"	COPY+8, BUILD+7, BUILD+12, BUILD+19
DIR("B"	COPY+8, BUILD+7, BUILD+19*
DIR(0	COPY+8, BUILD+7, BUILD+12, BUILD+19
DIRUT	COPY+10, BUILD+1~, BUILD+6, BUILD+13, BUILD+20
DLAYGO	DIC+1~, DIC+3*
DR	EDIT+1~, EDIT+4*
>> DTOUT	BUILD+14
>> DUOUT	BUILD+14
FR	COPY+1~, COPY+3*, COPY+4, COPY+14, COPY+18, COPY+22
FR0	COPY+1~, COPY+3*, COPY+21
I	NEW+1~, NEW+3, NEW+4
J	NEW+1~, NEW+4*
TO	COPY+1~, COPY+5*, COPY+7, COPY+9, COPY+12, COPY+14, COPY+17, COPY+19, COPY+22
TO0	COPY+1~, COPY+5*, COPY+7, COPY+12, COPY+18, COPY+21
U	EDIT+3, EDIT+4, EDIT+8, COPY+7, COPY+12, COPY+17, COPY+18, COPY+21, BUILD+4, BUILD+6 , NEW+2
X	COPY+1~, BUILD+1~, BUILD+13, BUILD+16, BUILD+17, BUILD+18, BUILD+28, BUILD+29, BUILD+30, NEW+1~ , NEW+4
X1	BUILD+1~, BUILD+16, BUILD+17, BUILD+18
XPCNT	BUILD+24~, BUILD+26, BUILD+32
XPD	BUILD+24~, BUILD+32!, BUILD+33, NEW+1~, NEW+5
XPD(	BUILD+30, NEW+4
XPDA	BUILD+1~, BUILD+3, BUILD+4, BUILD+6, BUILD+9, BUILD+10, BUILD+14, BUILD+20, BUILD+23, BUILD+26 , BUILD+30, BUILD+34, VER+1~, VER+2
XPDF	BUILD+1~, BUILD+22, BUILD+23, BUILD+26, BUILD+27, BUILD+29, BUILD+30
XPDI	BUILD+1~, BUILD+27, NEW+1~
XPDI(	NEW+4*
XPDI("IEN"	BUILD+21*
XPDIC	BUILD+24~, BUILD+26*
XPDJ	BUILD+24~, BUILD+28*, BUILD+29, BUILD+30
XPDL	DIC~, DIC+5
XPDN	BUILD+1~, BUILD+14
XPDN(	BUILD+13*
XPDN(0	BUILD+18
XPDN(1	BUILD+18, BUILD+22
XPDNEWF	NEW+1~, NEW+7*
XPDX	BUILD+1~, BUILD+21, BUILD+22, BUILD+27
XPDXL	BUILD+1~, BUILD+22*
Y	EDIT+1~, EDIT+2, EDIT+3, EDIT+7, EDIT+8, COPY+1~, COPY+3, COPY+5, COPY+10, BUILD+1~ , BUILD+3, BUILD+6, BUILD+8, BUILD+9, BUILD+13, BUILD+16, BUILD+17, BUILD+18, BUILD+20, BUILD+30* , VER+1~, VER+2, DIC+4, DIC+5, DIC+6, QUIT~, QUIT+1
Y(0	COPY+3, COPY+5
Y1	BUILD+1~, BUILD+16, BUILD+17, BUILD+18
Z	EDIT+1~, EDIT+4, EDIT+7, EDIT+8, COPY+1~, COPY+3*, COPY+4
Z("S"	COPY+3*

Marked Items

Name	Field # of Occurrence
$T(FILES+J	NEW+4

Customize PDF page

Package: Kernel