Routine: XPDIB

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

Package	Total	Caller Graph
Kernel	1	XPD BACKUP

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

External References

Name	Field # of Occurrence
FILE^DIE	BLD+14
^DIK	DELF+3, DELBLD+4
^DIR	EN+18, EN+25
$$DOW^XLFDT	ROUTINE+4
$$FMTE^XLFDT	EN+17, ROUTINE+4
$$NOW^XLFDT	ROUTINE+4
XMZ^XMA2	ROUTINE+3
EN3^XMD	ROUTINE+22
$$LOOK^XPDI1	EN+5
QUIT^XPDI1	ROUTINE+3, QUIT+1
$$BLD^XPDIP	BLD+7
$$SUMB^XPDRSUM	BLD+61
DEV^XPDT	EN+33
GO^XPDT	EN+40
KD^XPDTP	PM+6
$$LKPKG^XPDUTL	BLDV+4
$$ENTRY^XPDV	KRN+7
$$FILE^XPDV	KRN+7

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
Routine Call	DIE Line Location: BLD+14
Routine Call	DIR Line Location: EN+18 EN+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	ROUTINE+18
^%ZOSF("TEST"	ROUTINE+16
^DD(	BLD+34, BLD+45, FLD+1
^TMP("XMP"	PM+5!
^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+32, BLD+36, BLD+40, BLD+41, BLD+42 , BLD+43, BLD+47, KRN+11, DELKRN+1!, DEL+1!, DEL+2!, DEL+3!
^XTMP("XPDI"	BLD+5, BLD+9, BLD+18, BLDV+3, ROUTINE+12, ROUTINE+14
^XTMP("XPDT"	BLD+50!, BLD+57, BLD+58, BLD+59, BLD+61, BLD+63

Label References

Name	Line Occurrences
$$BLD	EN+29, EN+36
@(	BLD+54
BLDV	EN+8, BLD+3
DEL	BLD+43, BLD+45, BLD+47, FLD+1
DELBLD	EN+29, EN+42
DELF	BLD+34
DELKRN	BLD+26
FLD	BLD+42
KRN	BLD+27
PM	EN+29
QUIT	EN+18, EN+25, EN+27, EN+29, EN+30
ROUTINE	EN+27
WARN	BLD+14, PM+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+3~, EN+5, BLD+11, BLD+12, ROUTINE+4*, ROUTINE+5
%N	ROUTINE+15~
DA	KRN+1~, KRN+6, KRN+7, KRN+9, DELF+1~, DELF+2*, DELBLD~, DELBLD+1
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, DELBLD+2~, DELBLD+3
DIR	EN+2~, EN+20!
DIR("?"	EN+14, EN+15, EN+16, EN+23
DIR("??"	EN+24*
DIR("A"	EN+13, EN+22
DIR("B"	EN+17, EN+22
DIR(0	EN+13, EN+22
DIRUT	EN+2~, EN+18, EN+25
DT	EN+17, ROUTINE+8
>> DTOUT	PM+7
DUOUT	EN+2~, PM+7
DUZ	PM+2, ROUTINE+2, ROUTINE+6
FGR	KRN+1~, KRN+7*
FIELD	FLD~, FLD+1, DEL~, DEL+1
FILE	KRN~, KRN+6, KRN+7, KRN+11, DEL~, DEL+1, DEL+2, DEL+3, DELF~, DELF+2
I	BLD+1~, BLD+57*
J	BLD+1~
POP	EN+31~, EN+33
SUBDD	DEL~, DEL+1, DEL+2
U	EN+12, EN+29, BLD+5, BLD+9, BLD+25, BLD+33, BLD+36, BLD+58, BLDV+3, ROUTINE+6 , ROUTINE+7, ROUTINE+11, ROUTINE+19, KRN+2, KRN+4, KRN+9, DELKRN+1
X	EN+3~, BLD+1~, BLD+54, BLD+61, ROUTINE+5, ROUTINE+6, ROUTINE+7, ROUTINE+8, ROUTINE+11, ROUTINE+14* , ROUTINE+16, ROUTINE+17, ROUTINE+19, KRN+1~, KRN+2*, 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+29, EN+36, EN+42, BLD+1~, BLD+7, BLD+9, BLD+11, BLD+16, BLD+18 , BLD+20, BLD+23, BLD+24, BLD+32, BLD+36, BLD+40, BLD+41, BLD+42, BLD+43, BLD+47 , BLD+50, BLD+52, BLD+57, BLD+58, BLD+59, BLD+61, BLD+63, BLD+65, BLDV~, BLDV+3 , PM~, ROUTINE+11*, ROUTINE+12, ROUTINE+14, KRN+11, DELKRN+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~
XPDFILE	BLD+1~, BLD+22, BLD+23, BLD+24, BLD+26, BLD+27, BLD+31, BLD+32, BLD+34, BLD+36 , BLD+40, BLD+41, BLD+42, BLD+43, BLD+45, BLD+47, DELKRN+1, FLD+1
XPDFL	BLD+1~, BLD+32, BLD+33, BLD+36
XPDFLD	BLD+1~, BLD+40, BLD+42
XPDFMSG	EN+2~, EN+39*
XPDGREF	BLD+1~, BLD+52*
XPDH	EN+2~, EN+32*
XPDH1	EN+2~
XPDHD	EN+2~
XPDI	EN+2~, BLD+1~, BLD+5*, BLD+9
XPDI(1	BLD+12*
XPDI(2	BLD+12*
XPDIB	EN+3~, EN+8*
XPDIDVT	EN+2~
XPDMP	EN+2~, BLD~
XPDNM	EN+2~, EN+12, EN+17, EN+29, BLD+1~, BLD+5, BLD+9, BLDV+3, ROUTINE+11*, ROUTINE+12 , ROUTINE+13
XPDOLDA	BLD+1~, BLD+23, BLD+24, KRN+11, DELKRN+1
XPDPKG	EN+2~, BLDV+3, BLDV+4
XPDQUIT	EN+2~, EN+6
XPDREST	BLD+1~, BLD+18*, BLD+56, BLD+57, BLD+58
XPDREST(	BLD+59
XPDSBJ	EN+3~, EN+19*, EN+32, BLD+12, PM+2, ROUTINE+2
XPDSD	BLD+2~, BLD+39*
XPDSEQ	EN+31~
XPDSIZ	EN+31~
XPDSIZA	EN+31~
XPDST	EN+2~, EN+5*, EN+6, EN+8, EN+29, EN+36, BLD~, BLD+3, BLD+5, BLD+7 , BLD+9, BLD+18, ROUTINE+3, QUIT+1
XPDSUBDD	BLD+2~, BLD+39, BLD+40, BLD+41, BLD+42, BLD+43, BLD+45
XPDT	EN+3~, EN+12, EN+29, EN+36, EN+38!, EN+42, ROUTINE+9, ROUTINE+10*, ROUTINE+11
XPDT(	EN+12, EN+36, EN+42, ROUTINE+10, ROUTINE+11
XPDT("DA"	EN+9
XPDTB	EN+3~, EN+29, EN+34, EN+36*, EN+38, BLD+9
XPDTB(	BLD+9*
XPDTB(1	EN+29
XPDTCNT	EN+2~, EN+9*, EN+12, EN+29, EN+30, EN+36, EN+42
XPDTYP	EN+3~, EN+10, BLDV+3*
XPDVER	EN+3~, BLD+52*
XPDY	KRN~, KRN+2, KRN+4, KRN+7, KRN+9, KRN+11, DELKRN~, DELKRN+1
Y	EN+3~, EN+19, EN+27, BLD+1~, BLD+25, BLD+26, BLD+58, BLD+59, BLD+61, ROUTINE+4* , ROUTINE+5, WARN~, WARN+1, WARN+2, WARN+3
Y0	EN+3~, BLD+1~, BLD+24, BLD+25, BLD+26, BLD+27, BLDV+1~, BLDV+3

Marked Items

Name	Field # of Occurrence
$T(^@X	KRN+6

Customize PDF page

Package: Kernel

Routine: XPDIB

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items