Routine: XBPKDEL1

Package	Total	Call Graph
IHS VA %Utilities	2	($$ERR,$$KILLOK)^ZIBGCHAR $$RSEL^ZIBRSEL
IHS VA Utilities	2	$$DIR^XBDIR (,EOJ)^XBPKDEL

Entry Points

Name	Comments	DBIA/ICR reference
DEL(XBPKNSP)	;
GBLS(XBPKNSP)	;
LIST	;EP - List retired/replaced packages.
DECERT	;EP - Delete de-certified packages.
Q
CG(N)	; Count the globals in the N namespace.
L1	;
KILLEM	; Add the packages to be deleted, below: Namespace^Description
RTNS(XBPKNSP)	;

External References

Name	Field # of Occurrence
$$DIR^XBDIR	L1+7, L1+12, L1+20, RTNS+4, GBLS+4
^XBPKDEL	DEL+4
EOJ^XBPKDEL	L1+33
$$ERR^ZIBGCHAR	GBLS+12
$$KILLOK^ZIBGCHAR	GBLS+8, GBLS+11, GBLS+12
$$RSEL^ZIBRSEL	L1+6, RTNS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Filemanager does not exist in this UCI!" Line Location: DECERT+1
Function Call: WRITE	Prompt: !,"PROGRAMMER ACCESS REQUIRED",! Line Location: DECERT+2
Function Call: WRITE	Prompt: @IOF,!!,"You'll be given the opportunity to delete the following packages,",!,"Routines, and Globals in the indicated namespace, in 3 steps." Line Location: DECERT+4
Function Call: WRITE	Prompt: !,"NAMESPACE--DESCRIPTION----------------------------RTNS-----GBLS------" Line Location: L1+1
Function Call: WRITE	Prompt: !,$P(L,"^",1),?11,$P(L,"^",2),?50,$J($$RSEL^ZIBRSEL($P(L,"^",1)_"*"),4),?59,$J($$CG($P(L,"^",1)),4) Line Location: L1+6
Function Call: WRITE	Prompt: @IOF Line Location: L1+7
Function Call: WRITE	Prompt: !!,"There will be 3 steps:" Line Location: L1+14
Function Call: WRITE	Prompt: !?10,"1) Delete package via call to XBPKDEL;" Line Location: L1+15
Function Call: WRITE	Prompt: !?10,"2) Delete Routines (not asked if 0 routines);" Line Location: L1+16
Function Call: WRITE	Prompt: !?10,"3) Delete Globals (not asked if 0 globals)." Line Location: L1+17
Function Call: WRITE	Prompt: !,"Of course, your wisdom will be questioned if you do this w/o a full b/u...",! Line Location: L1+18
Function Call: WRITE	Prompt: !!,$P(L,"^",1),?11,$P(L,"^",2) Line Location: L1+23
Function Call: WRITE	Prompt: !,"Deleting the ",XBPKNSP," package components via call to XBPKDEL" Line Location: DEL+1
Function Call: WRITE	Prompt: !,"Deleting ",XB," ",XBPKNSP," routines",! Line Location: RTNS+5
Function Call: WRITE	Prompt: X,$J("",10-$L(X)) Line Location: RTNS+7
Function Call: WRITE	Prompt: !,"Kill'ing ",$$CG(XBPKNSP)," ",XBPKNSP," globals",! Line Location: GBLS+5
Function Call: WRITE	Prompt: G,$J("",10-$L(G)) Line Location: GBLS+9
Function Call: WRITE	Prompt: G,$J("",10-$L(G)) Line Location: GBLS+10
Function Call: WRITE	Prompt: !,"<KILL UNSUCCESSFUL>: ",$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($E(G,2,$L(G)))) Line Location: GBLS+12
Function Call: WRITE	Prompt: @IOF Line Location: LIST+3

Name	Line Occurrences (* Changed, ! Killed)
^$G(	GBLS+10, CG+5
^%ZOSF("DEL"	RTNS+7
^DIC(0	DECERT+1
^TMP("ZIBRSEL"	RTNS+7, RTNS+8!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	L1+3~, L1+5, L1+22, DEL+2~, RTNS+1~, GBLS+1~, CG+1~, CG+2, CG+3, CG+5* , CG+6
DTIME	L1+12
DUZ(0	DECERT+2
G	L1+3~, DEL+2~, RTNS+1~, GBLS+1~, GBLS+6, GBLS+8, GBLS+10, GBLS+11, GBLS+12, CG+1~ , CG+2, CG+3, CG+5
IOF	DECERT+4, L1+7, LIST+3
IOSL	L1+7
L	L1+3~, L1+5, L1+6, L1+22, L1+23, L1+24, DEL+2~, RTNS+1~, GBLS+1~, GBLS+6* , GBLS+10, CG+1~, CG+2*, CG+5
N	CG~, CG+2, CG+5
R	L1+3~, DEL+2~, RTNS+1~, GBLS+1~, CG+1~
U	RTNS+4, GBLS+4
>> X	RTNS+4, RTNS+6, RTNS+7, GBLS+4
XB	RTNS+1~, RTNS+2, RTNS+3, RTNS+4, RTNS+5, GBLS+1~, GBLS+2, GBLS+3, GBLS+4
XBLIST	L1+10, LIST+1~, LIST+2*
>> XBPKEY	L1+24*
XBPKNSP	L1+24*, L1+25, L1+27, L1+29, DEL~, DEL+1, RTNS~, RTNS+2, RTNS+4, RTNS+5 , GBLS~, GBLS+2, GBLS+4, GBLS+5, GBLS+6, GBLS+8, GBLS+10
>> XBPKRUN	DEL+3*
>> XBPKSTP	L1+22, L1+26, L1+28, L1+30, RTNS+4, GBLS+4

Customize PDF page

Package: IHS VA Utilities

Routine: XBPKDEL1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Line Occurrences
$$CG	L1+6, GBLS+2, GBLS+5
DEL	L1+25
GBLS	L1+29
L1	LIST+4
RTNS	L1+27