Routine: XQ3

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIK

Package	Total	Caller Graph
IHS VA Utilities	2	XBKERCLN XBPKDEL
Utilities	1	AUPKDEL

Entry Points

External References

Name	Field # of Occurrence
^DIE	NPF+7
^DIK	ITEM+6, NPF+14, NPF+22, PITEM+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"ENTRY MUST BE WITH THE VARIABLE '%' SET TO INDICATE DESIRED FILE.",$C(7),! Line Location: ENASK+2
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: ENASK+4
Function Call: WRITE	Prompt: ! Line Location: ENASK+5
Function Call: WRITE	Prompt: !,"PLEASE WAIT while I check this out . . . " Line Location: STRIP+3
Function Call: WRITE	Prompt: ?11,"I'm sorry, but I don't understand your answer. Please" Line Location: SYNTAX+0
Function Call: WRITE	Prompt: !,"Enter: YES (or press the RETURN key) if you want me to remove from" Line Location: SYNTAX+1
Function Call: WRITE	Prompt: !,?11,"your ",XQFL," File any pointers left over from incompletely" Line Location: SYNTAX+2
Function Call: WRITE	Prompt: !,?11,"deleted ",XQFL,". If such pointers do exist and are not" Line Location: SYNTAX+3
Function Call: WRITE	Prompt: !,?11,"removed, the ",XQFL," File (i.e. the menus) could become" Line Location: SYNTAX+4
Function Call: WRITE	Prompt: !,?11,"messed up by an INIT." Line Location: SYNTAX+5
Function Call: WRITE	Prompt: !!,"Enter: NO or ^ to continue on without effecting the ",XQFL," File." Line Location: SYNTAX+6
Function Call: WRITE	Prompt: ! Line Location: SYNTAX+7
Function Call: WRITE	Prompt: "(no bad pointers)." Line Location: REMOVE+0
Function Call: WRITE	Prompt: "now (",XUT," pointer" Line Location: REMOVE+1
Function Call: WRITE	Prompt: "s" Condition for execution: XUT>1 Line Location: REMOVE+1
Function Call: WRITE	Prompt: " fixed)." Line Location: REMOVE+1
Function Call: WRITE	Prompt: ! Line Location: REMOVE+2
Function Call: WRITE	Prompt: !,"Option ",$P(^DIC(19,IX,0),U,1)," points to missing option ",K Line Location: ITEM+4
Function Call: WRITE	Prompt: !,"User: ",$P(^VA(200,IX,0),U),", Primary Menu points to missing option ",P Line Location: NPF+6
Function Call: WRITE	Prompt: !,"User: ",$P(^VA(200,IX,0),U),", Secondary Menu points to missing option ",P Line Location: NPF+13
Function Call: WRITE	Prompt: !,"User: ",$P(^VA(200,IX,0),U),", Delegated option points to missing option ",P Line Location: NPF+21
Function Call: WRITE	Prompt: !,"Menu pointers fixed." Line Location: NPF+26
Function Call: WRITE	Prompt: !,"Protocol ",$P(^ORD(101,IX,0),U,1)," points to missing protocol ",K Line Location: PITEM+1
Routine Call	DIE Line Location: NPF+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	OPFIX+3, L2+1, L2+2!, L2+3, L2+4, L2+5, ITEM+2, ITEM+3*, ITEM+4, NPF+5 , NPF+12, NPF+20
^DIC(9.2 - [#9.2]	HFFIX+2, HF1!, HF2, HF2+1, HF3, HF4!
^ORD(101 - [#101]	P1, P2, P2+1, P2+2, P2+3, PITEM, PITEM+1, P3, P4, P5 , P5+1, P6, PKILLXR!
^VA(200 - [#200]	NPF+3, NPF+4, NPF+6, NPF+10, NPF+11, NPF+13, NPF+18, NPF+19, NPF+21

Label References

Name	Line Occurrences
ENASK	SYNTAX+7
HF1	HFFIX+2
HF2	HFFIX+2
HF3	HFFIX+2
HF4	HF3
HFFIX	REMOVE
ITEM	L2+3
L2	OPFIX+3
NPF	OPFIX+4
OPFIX	REMOVE
P1	P2+1, P3
P2	P1, PITEM, PITEM+4
P3	P4
P4	P5
P5	P6, PKILLXR+1
PFIX	REMOVE
PITEM	P2
PKILLXR	P5+1
PXREFS	P2+4
REMOVE	STRIP+3
STRIP	STRIP
SYNTAX	ENASK+6, STRIP+1

Naked Globals

Name	Field # of Occurrence
^(	HFFIX+2, HF1
^(0	L2+5, HF1, HF2+1, P2+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENASK+2, ENASK+3, REMOVE, OPFIX+1~, HFFIX+1~, PFIX+1~
DA	ITEM+1~, ITEM+6, NPF+1~, NPF+7, NPF+14, NPF+22, PITEM+3*
DA(1	ITEM+6, NPF+14, NPF+22, PITEM+3
DIE	NPF+1~, NPF+7*
DIK	ITEM+1~, ITEM+6, NPF+1~, NPF+14, NPF+22, PITEM+3
DR	NPF+1~, NPF+7*
DTIME	ENASK+4
I2	NPF+1~, NPF+9, NPF+10, NPF+11, NPF+14, NPF+17, NPF+18, NPF+19, NPF+22
IX	ENASK+1~, OPFIX+1~, OPFIX+2, OPFIX+3, L2+1, L2+2, L2+3, L2+4, L2+5, ITEM+2 , ITEM+3, ITEM+4, ITEM+6, NPF+1~, NPF+2, NPF+3, NPF+4, NPF+6, NPF+7, NPF+10 , NPF+11, NPF+13, NPF+14, NPF+18, NPF+19, NPF+21, NPF+22, HFFIX+2, HF1, HF2 , HF2+1, HF3, HF4, PFIX+2, P1*, P2, P2+1, P2+2, P2+3, PITEM , PITEM+1, PITEM+3, P3, P4, P5, P5+1, P6, PKILLXR
J	ENASK+1~, OPFIX+1~, OPFIX+3, L2+3, L2+4, L2+5, ITEM+2, ITEM+3, ITEM+6, NPF+1~ , HF1, HF2, HF2+1, HF3, HF4, P1, P2, P2+2, P2+3, PITEM , PITEM+3, P4+1, P5, P5+1, P6, PKILLXR
>> JJ	HF4*
K	ENASK+1~, L2+4, L2+5, ITEM+2, ITEM+3, ITEM+4, HF1, HF2, HF2+1, HF3* , HF4, P2+2, P2+3, PITEM, PITEM+1, PXREFS, P3, P4, P5, PKILLXR
>> L	P2+2, P3+1, P4*, P5, P6, PKILLXR
>> M	P6*
P	NPF+1~, NPF+4, NPF+5, NPF+6, NPF+11, NPF+12, NPF+13, NPF+19*, NPF+20, NPF+21
U	ITEM+4, NPF+6, NPF+13, NPF+21, HF1, HF2+1, PITEM+1
X	ENASK+1~, ENASK+4, ENASK+5, ENASK+6, ENASK+7, STRIP, STRIP+1, STRIP+2, STRIP+3, SYNTAX , REMOVE+2*
XQ3	OPFIX+1~, OPFIX+3, L2+5, ITEM+3
XQFL	ENASK+1~, ENASK+3*, ENASK+4, SYNTAX+2, SYNTAX+3, SYNTAX+4, SYNTAX+6, REMOVE
XUT	ENASK+1~, REMOVE, REMOVE+1, OPFIX+2, ITEM+6, NPF+1~, NPF+2, NPF+7, NPF+14, NPF+22 , NPF+26, HFFIX+2, HF1, PFIX+2, PITEM+3
>> Y	HF1, HF2+1, P1, P2+3, PITEM*

Customize PDF page

Package: Kernel

Routine: XQ3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NPF	;Fix the New Person File Option Pointers
PXREFS
ENASK	;Ask to fix up dirty OPTION/HELP FRAME File
STRIP
PKILLXR
P2
P3
P1
P6
P4
P5
HFFIX	; Fix dangling pointers on help frame file
SYNTAX
OPFIX	;Kill any dangling pointers in the OPTION File (#19)
L2	;One Option
PFIX	;Kill any dangling pointers in the PROTOCOL File (#101)
PITEM
HF1
HF3
HF2
HF4
REMOVE
ITEM	;One Menu item