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  | All
Print Page as PDF
Routine: XPDIB

Package: Kernel

Routine: XPDIB


Information

XPDIB ;SFISC/RSD - Backup installed Package ;12:29 PM 16 Oct 2000

Source Information

Source file <XPDIB.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 7 ($$DOW,$$FMTE,$$NOW)^XLFDT  ($$LOOK,QUIT)^XPDI1  $$BLD^XPDIP  (DEV,GO)^XPDT  KD^XPDTP  $$LKPKG^XPDUTL  ($$ENTRY,$$FILE)^XPDV  
VA FileMan 3 FILE^DIE  ^DIK  ^DIR  
MailMan 2 XMZ^XMA2  EN3^XMD  

Entry Points

Name Comments DBIA/ICR reference
EN ;
BLD(XPDST,XPDMP) ;XPDST=Install #,XPDMP=master build or first Install # of multi-package; returns XPDA=new Build #
BLDV(XPDA) ;variable setup for BLD, XPDA=Install #
PM(XPDA) ;build MailMan message
ROUTINE ;Packman msg
KRN(FILE,XPDY) ;FILE=file #, XPDY=^XPD(9.6,XPDA,"KRN",XPDFILE,"NM",XPDOLDA,0) passed by ref.
SETKRN(X) ;set BLD node to X
FLD(DD,FIELD) ;check FIELD exists
DEL(FILE,SUBDD,FIELD) ;deletes partials: FILE=file#, SUBDD=sub dictionary#, FIELD=field#, XPDA=ien in Build file
DELF(FILE) ;delete full file DD
WARN(X,Y) ;create warning message in array X starting at Y ;p738
QUIT ;unlock Install # XPDST
HELP ;Help (DIR("??")) for DIR (Build/Routine) read ;p750

External References

Name Field # of Occurrence
FILE^DIE BLD+14
^DIK DELF+3
^DIR EN+17, EN+24
$$DOW^XLFDT ROUTINE+4
$$FMTE^XLFDT EN+16, ROUTINE+4
$$NOW^XLFDT ROUTINE+4
XMZ^XMA2 ROUTINE+3
EN3^XMD ROUTINE+22
$$LOOK^XPDI1 EN+4
QUIT^XPDI1 ROUTINE+3, QUIT+1
$$BLD^XPDIP BLD+7
DEV^XPDT EN+32
GO^XPDT EN+39
KD^XPDTP PM+4
$$LKPKG^XPDUTL BLDV+4
$$ENTRY^XPDV KRN+5
$$FILE^XPDV KRN+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is a Global Package and cannot be backed up.",!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"Message sent",!
  • Line Location: PM+5
Function Call: WRITE
  • Prompt: !,"No routines for ",XPDNM,!
  • Line Location: ROUTINE+12
Function Call: WRITE
  • Prompt: !,"Loading Routines for ",XPDNM
  • Line Location: ROUTINE+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: ROUTINE+14
Function Call: WRITE
  • Prompt: !,X,?10,"Doesn't Exist"
  • Line Location: ROUTINE+16
Function Call: WRITE
  • Prompt: !," Enter 'B' to create a backup of this Build. A new Build will be created using",!,"the same Build name with a 'b' appended to the end. This new Build will be used"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"to create a KIDS backup of routines, files, options, protocols, templates, etc.",!,"If this backup is a single build, a Packman email is created. If it is a multi-package a Host File is created."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," Enter 'R' to create a Packman email of only the routines."
  • Line Location: HELP+3
Routine Call
  • DIE
  • Line Location:
    • BLD+14
Routine Call
  • DIR
  • Line Location:
    • EN+17
    • EN+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" ROUTINE+18
^%ZOSF("TEST" ROUTINE+16
^DD( BLD+33, BLD+44, FLD+1
^TMP("XMP" PM+3!
^VA(200 - [#200] ROUTINE+6
^XMB("NAME" ROUTINE+7
^XMB(3.9 - [#3.9] ROUTINE+8*, ROUTINE+17*, ROUTINE+19*
^XPD(9.6 - [#9.6] BLD+16!, BLD+18!, BLD+20*, BLD+23, BLD+24, BLD+31, BLD+35*, BLD+39, BLD+40, BLD+41
, BLD+42, SETKRN+1*, DEL+1!, DEL+2!, DEL+3!
^XTMP("XPDI" BLD+5*, BLD+9*, BLDV+3, ROUTINE+12, ROUTINE+14
^XTMP("XPDT" BLD+48!

Label References

Name Line Occurrences
$$BLD EN+28, EN+35
@( BLD+52
BLDV EN+7, BLD+3
DEL BLD+42, BLD+44, FLD+1
DELF BLD+33
FLD BLD+41
KRN BLD+26
PM EN+28
QUIT EN+17, EN+24, EN+26, EN+28, EN+29
ROUTINE EN+26
SETKRN BLD+26
WARN BLD+14, PM+4

Naked Globals

Name Field # of Occurrence
^( BLD+24, BLD+31, BLDV+3, ROUTINE+19*
^("ABNS" BLD+16!
^("INI" BLD+18!
^("INID" BLD+18!
^("INIT" BLD+18!
^("NAME" ROUTINE+7
^("PRE" BLD+18!
^("QDEF" BLD+16!
^("QUES" BLD+16!
^("REST" BLD+20
^(0 ROUTINE+6
^(1 ROUTINE+8*
^(223 BLD+35!
^(6 BLD+16!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+3~, EN+4*, BLD+11*, BLD+12, ROUTINE+4*, ROUTINE+5
%N ROUTINE+15~
DA KRN+1~, KRN+5*, KRN+7, DELF+1~, DELF+2*
DA(1 DELF+2*
DD FLD~, FLD+1
DIF PM+1~, ROUTINE+1~, ROUTINE+15~, ROUTINE+17*
DIFROM PM+1~, PM+2*
DIK DELF+1~, DELF+2*
DIR EN+2~, EN+19!
DIR("?" EN+13*, EN+14*, EN+15*, EN+22*
DIR("??" EN+23*
DIR("A" EN+12*, EN+21*
DIR("B" EN+16*, EN+21*
DIR(0 EN+12*, EN+21*
DIRUT EN+2~, EN+17, EN+24
DT EN+16, ROUTINE+8
DUOUT EN+2~
DUZ PM+2, ROUTINE+2, ROUTINE+6
FGR KRN+1~, KRN+5*
FIELD FLD~, FLD+1, DEL~, DEL+1
FILE KRN~, KRN+5, DEL~, DEL+1, DEL+2, DEL+3, DELF~, DELF+2
I BLD+1~
J BLD+1~
POP EN+30~, EN+32
SUBDD DEL~, DEL+1, DEL+2
U EN+11, EN+28, BLD+5, BLD+9, BLD+25, BLD+32, BLD+35, BLDV+3, ROUTINE+6, ROUTINE+7
ROUTINE+11, ROUTINE+19, KRN+2, KRN+4, KRN+7, KRN+9
X EN+3~, BLD+1~, BLD+52*, ROUTINE+5*, ROUTINE+6*, ROUTINE+7*, ROUTINE+8, ROUTINE+11*, ROUTINE+14*, ROUTINE+16
ROUTINE+17, ROUTINE+19, KRN+1~, KRN+2*, SETKRN~, SETKRN+1, WARN~, WARN+1, WARN+2, WARN+3
XCNP PM+1~, ROUTINE+1~, ROUTINE+8*, ROUTINE+17*, ROUTINE+19
XMDISPI PM+1~, ROUTINE+1~
XMDUZ PM+1~, PM+2*, ROUTINE+1~, ROUTINE+2*
XMSUB PM+1~, PM+2*, ROUTINE+1~, ROUTINE+2*
XMZ PM+1~, ROUTINE+1~, ROUTINE+3, ROUTINE+8, ROUTINE+17, ROUTINE+19
XPD BLD+1~
XPD( BLD+11*, BLD+12*
XPDA EN+2~, EN+28*, EN+35*, BLD+1~, BLD+7*, BLD+9, BLD+11, BLD+16, BLD+18, BLD+20
, BLD+23, BLD+24, BLD+31, BLD+35, BLD+39, BLD+40, BLD+41, BLD+42, BLD+48, BLD+50
, BLD+53, BLDV~, BLDV+3, PM~, ROUTINE+11*, ROUTINE+12, ROUTINE+14, SETKRN+1, DEL+1, DEL+2
, DEL+3, DELF+2
XPDBLD EN+2~, BLD+1~, BLD+5, BLD+7, BLD+9, BLDV+3*
XPDERR BLD+1~, BLD+52
XPDFILE BLD+1~, BLD+22*, BLD+23*, BLD+24, BLD+25, BLD+26, BLD+30*, BLD+31*, BLD+33, BLD+35
, BLD+39, BLD+40, BLD+41, BLD+42, BLD+44, SETKRN+1, FLD+1
XPDFL BLD+1~, BLD+31*, BLD+32, BLD+35*
XPDFLD BLD+1~, BLD+39*, BLD+41*
XPDFMSG EN+2~, EN+38*
XPDGREF BLD+1~, BLD+50*
XPDH EN+2~, EN+31*
XPDH1 EN+2~
XPDHD EN+2~
XPDI EN+2~, BLD+1~, BLD+5*, BLD+9
XPDI(1 BLD+12*
XPDI(2 BLD+12*
XPDIDVT EN+2~
XPDMP EN+2~, BLD~
XPDNM EN+2~, EN+11*, EN+16, EN+28*, BLD+1~, BLD+5*, BLD+9, BLDV+3*, ROUTINE+11*, ROUTINE+12
ROUTINE+13
XPDOLDA BLD+1~, BLD+23*, BLD+24*, SETKRN+1
XPDPKG EN+2~, BLDV+3*, BLDV+4*
XPDQUIT EN+2~, EN+5
XPDSBJ EN+3~, EN+18*, EN+31, BLD+12, PM+2, ROUTINE+2
XPDSD BLD+2~, BLD+38*
XPDSEQ EN+30~
XPDSIZ EN+30~
XPDSIZA EN+30~
XPDST EN+2~, EN+4*, EN+5, EN+7, EN+28, EN+35, BLD~, BLD+3, BLD+5, BLD+7
, BLD+9, ROUTINE+3, QUIT+1
XPDSUBDD BLD+2~, BLD+38*, BLD+39*, BLD+40, BLD+41, BLD+42, BLD+44
XPDT EN+3~, EN+11*, EN+28*, EN+35*, EN+37!*, ROUTINE+9*, ROUTINE+10*, ROUTINE+11
XPDT( EN+11, EN+35, ROUTINE+10, ROUTINE+11
XPDT("DA" EN+8
XPDTB EN+3~, EN+28*, EN+33*, EN+35*, EN+37, BLD+9
XPDTB( BLD+9*
XPDTB(1 EN+28
XPDTCNT EN+2~, EN+8*, EN+11, EN+28, EN+29, EN+35
XPDTYP EN+3~, EN+9, BLDV+3*
XPDVER EN+3~, BLD+50*
XPDY KRN~, KRN+2, KRN+4, KRN+5, KRN+7*, KRN+9*
Y EN+3~, EN+18, EN+26, BLD+1~, ROUTINE+4*, ROUTINE+5, WARN~, WARN+1, WARN+2, WARN+3
Y0 EN+3~, BLD+1~, BLD+24*, BLD+25, BLD+26, BLDV+1~, BLDV+3*, KRN+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All