Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XBPKDEL1

Package: IHS VA Utilities

Routine: XBPKDEL1


Information

XBPKDEL1 ; IHS/ADC/GTH - DELETE RETIRED AND REPLACED PACKAGES ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <XBPKDEL1.m>

Call Graph

Call Graph Total: 4

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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*

Marked Items

Name Field # of Occurrence
$T(KILLEM+C L1+5, L1+22
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All