Routine: XPDIQ

Package	Total	Call Graph
VA Fileman	3	$$FIND1^DIC UPDATE^DIE ^DIR

Package	Total	Caller Graph
Kernel	5	XPDI XPDI1 XPDIJ XPDIJ1 XPDIJ1Z

Entry Points

Name	Comments	DBIA/ICR reference
XPO1	;rebuild menu trees
XPZ2	;move routines
XPZ1	;disable options
XPI1	;Inhibit Logons
XPQ(NM)	;Build XPDDIQ
QUES(X)	;build XPDQUES array, X="INI","INIT","XPF","XPM"
ANSWER(QUES)	;E.F. Return answer to question
DIR(XPFR,XPFP)	;XPFR=prefix, XPFP=file no._# or Mail Group ien
XPM1	;mail groups
XPF2	;data
XPF1	;write over existing file

External References

Name	Field # of Occurrence
$$FIND1^DIC	XPM1+5
UPDATE^DIE	DIR+36
^DIR	DIR+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,XPDFIL,?13,$P(XPDFILN,U),$P(" (Partial Definition)",U,$P(XPDFILN,U,3)),$P(" (including data)",U,$P(XPDFILO,U,7)="y") Line Location: XPF1+2
Function Call: WRITE	Prompt: !,"Note: You already have the '",$P(XPDFILN,U),"' File." Line Location: XPF1+11
Function Call: WRITE	Prompt: 7,!,"BUT YOU ALREADY HAVE '",FLAG,"' AS FILE #",XPDFIL,"!" Line Location: XPF1+12
Function Call: WRITE	Prompt: !,"Data will NOT be added." Line Location: XPF2+7
Function Call: WRITE	Prompt: !,"I will ",$P("^MERGE^OVERWRITE^REPLACE",U,%)," your data with mine." Line Location: XPF2+9
Routine Call	DIE Line Location: DIR+36
Routine Call	DIC Line Location: XPM1+5
Routine Call	DIR Line Location: DIR+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	XPZ2+5
^%ZOSF("PROD"	XPZ2+3
^%ZOSF("UCI"	XPZ2+3
^DIC - [#1]	XPF1+9
^VA(200 - [#200]	XPM1+9
^XMB(3.8 - [#3.8]	XPM1+7
^XPD(9.7 - [#9.7]	QUES+4, QUES+5, ANSWER+2, ANSWER+3
^XTMP("XPDI"	DIR+7, DIR+9

Label References

Name	Line Occurrences
QUES	DIR+4
XPQ	XPI1+1, XPM1+10, XPO1+1, XPZ1+1

Naked Globals

Name	Field # of Occurrence
^(	DIR+9, QUES+4
^("A"	QUES+6
^("B"	QUES+6
^(0	XPM1+9
^(1	QUES+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIR+15, DIR+21, DIR+23, DIR+27, XPF2+5*, XPF2+7, XPF2+9, XPF2+10
DIR	DIR+2~, DIR+16, DIR+31!, XPF1+4!, XPF1+8!, XPF1+11!, XPF2+2!, XPF2+4!, XPF2+7!, XPF2+9! , XPQ+2!, XPZ2+3!, XPZ2+5!, XPZ2+7!
DIR(	DIR+9*
DIR("A"	DIR+18, DIR+30, XPQ+3, XPZ2+8*
DIR("B"	DIR+11, DIR+19!, XPQ+4, XPM1+3, XPM1+9, XPZ2+9
DIR("M"	DIR+15!
DIR(0	DIR+21
DIRUT	DIR+7, DIR+23!, DIR+25, XPF2+2*
DR	DIR+2~
>> DTOUT	DIR+23
FLAG	DIR+12~, DIR+15, XPF1+9, XPF1+11, XPF1+12, XPF2+10, XPM1+1
IEN	ANSWER+1~, ANSWER+2*, ANSWER+3
NM	XPQ~, XPQ+1, XPQ+2, XPQ+3, XPQ+4
QUES	ANSWER~, ANSWER+1, ANSWER+2
U	DIR+21, DIR+27, XPF1+2, XPF1+8, XPF1+9, XPF1+11, XPF1+13, XPF2+4, XPF2+5, XPF2+9 , XPF2+10, XPM1+7, XPM1+9
X	DIR+2~, DIR+6, DIR+7, DIR+8, DIR+9, DIR+12~, DIR+35, QUES~, QUES+3, QUES+4 , XPM1+5, XPM1+7*, XPM1+9
>> XPDA	DIR+7, DIR+9, DIR+35, QUES+4, QUES+5, ANSWER+1, ANSWER+2, ANSWER+3
>> XPDANS	XPF1+4, XPF1+8, XPF1+13, XPF2+4, XPM1+1, XPM1+5
>> XPDDIQ(	XPQ+1, XPQ+2, XPQ+3, XPQ+4
>> XPDDIQ("XPZ2"	XPZ2+6, XPZ2+7, XPZ2+8, XPZ2+9
>> XPDFIL	XPF1+2, XPF1+9, XPF1+12
>> XPDFILN	XPF1+2, XPF1+11
>> XPDFILO	XPF1+2, XPF2+4, XPF2+5, XPF2+9
XPDI	DIR+2~, DIR+3, DIR+4, DIR+8, DIR+32, DIR+34, DIR+35, DIR+36!, XPF1+1~, XPF1+5 , XPF1+6*
XPDJ	DIR+2~, DIR+8*, DIR+11, DIR+30, DIR+32!, DIR+36
XPDQUES	QUES+3!
XPDQUES(	DIR+11, DIR+30, DIR+34, DIR+35, QUES+6, XPQ+2*
XPDQUES("XPF"	XPF2+2
XPDQUES("XPZ2"	XPZ2+7*
>> XPDQUIT	DIR+7*
>> XPDSCR	XPF1+5, XPF1+6
XPFP	DIR~, DIR+3*, DIR+8, XPF2+2
XPFR	DIR~, DIR+3, DIR+6, DIR+7, DIR+8, DIR+32, DIR+34
Y	DIR+2~, DIR+11, DIR+12!, DIR+23, DIR+27, DIR+29, DIR+30, DIR+34, DIR+35, QUES+3~ , QUES+4*, QUES+5, XPZ2+1~, XPZ2+3
Y(0	DIR+27, DIR+29, DIR+30
Z	DIR+2~, DIR+7, DIR+9, DIR+12~, QUES+3~, QUES+4, QUES+6

Customize PDF page

Package: Kernel

Routine: XPDIQ

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: