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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XPDR

Package: Kernel

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  

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*

Marked Items

Name Field # of Occurrence
$T(^@$PIECE^2;4(3) DELRTN+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All