Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XPDIB

Package: Kernel

Routine: XPDIB


Information

XPDIB ;SFISC/RSD - Backup installed Package ; Mar 20, 2023@14:49:13

Source Information

Source file <XPDIB.m>

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)
DELKRN(XPDY) ;delete BUILD COMPONENTS(7) & "B" index for XPDY ;p778
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
DELBLD(DA) ;delete backup build ;p778
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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is a Global Package and cannot be backed up.",!!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!," **This Backup mail message should be sent to a Mail Group. This will allow"
  • Line Location: PM+3
Function Call: WRITE
  • Prompt: !," anyone in the Mail Group to back out the changes.**"
  • Line Location: PM+4
Function Call: WRITE
  • Prompt: !!,"Message sent",!
  • Line Location: PM+8
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
Info |  Source |  Entry Points |  Interaction Calls