Routine: XQ33

Information

XQ33 ;SEA/AMF/JLI/MJM,ISD/HGW - REMOVE UNREFERENCED OPTIONS ;02/07/13 08:04

Source Information

Source file <XQ33.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	5	DD^%DT ^DIC YN^DICN ^DIK EN^DIQ
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	; ; ZEXCEPT: XUAHDR,XUALINE,XUAPAGE ;used within this routine
GET
LIST	; Entry point to list unreferenced options from the OPTION file (#19). ; ZEXCEPT: XUAXQE,XUAXQS ;global within this routine
DUO	; Entry point to delete unreferenced options from the option file.
PRI	;
LP2
LP1
QUEUE	;
START	;
EXIT	;
LP
PRINT	; Print the list ; ZEXCEPT: I,IOF,IOSL,IOST,X,XUAIEN,XUANAME ;global within this routine
DUO1	;
GETO	; Gets the unreferenced option ; ZEXCEPT: XUAFLAG,XUAIEN,XUANAME,XUAXQS ;global within this routine
OUT

Name	Field # of Occurrence
DD^%DT	START+3
^%ZIS	DUO+2, LIST+3, QUEUE+1
^%ZISC	OUT, QUEUE+2, EXIT+1
^%ZTLOAD	QUEUE+2
^DIC	DUO+5, DUO+6, LIST+6, LIST+8
YN^DICN	DUO+1, DUO1+1
^DIK	DUO1+2
EN^DIQ	GET+1
$$REPEAT^XLFSTR	START+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter a 'Y' if you want an opportunity to delete orphan options which are not",!,"primary menus, secondary menus, or tasked." Line Location: DUO+1
Function Call: READ	Prompt: "Select PACKAGE/OPTION name: ALL// " Formatting: !! Timeout: DTIME Variable: X Line Location: DUO+3
Function Call: WRITE	Prompt: "...NONE FOUND",! Line Location: GET+0
Function Call: WRITE	Prompt: @IOF Line Location: GET+1
Function Call: WRITE	Prompt: !,"Enter a 'Y' if you want to remove this option from the option file" Line Location: DUO1+1
Function Call: WRITE	Prompt: ", " Condition for execution: XQNM&XQLEN Line Location: LP2+3
Function Call: WRITE	Prompt: $P(^DIC(19,XQK,0),U,1) Line Location: LP2+3
Function Call: WRITE	Prompt: !!,"LIST UNREFERENCED OPTIONS",!!,"Print unreferenced options for a selected package." Line Location: LIST+2
Function Call: READ	Prompt: "Select PACKAGE/OPTION name: ALL// " Formatting: !! Timeout: DTIME Variable: X Line Location: LIST+4
Function Call: WRITE	Prompt: !,"Getting the list of unreferenced options..." Line Location: GETO+2
Function Call: WRITE	Prompt: "...NONE FOUND",! Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+23
Function Call: WRITE	Prompt: !,XUAHDR(1)," PAGE ",XUAPAGE,!,XUAHDR(2),!,XUAHDR(3) Line Location: HEAD+2
Routine Call	DIC Line Location: DUO+5 DUO+6 LIST+6 LIST+8
Routine Call	%ZIS Line Location: DUO+2 LIST+3 QUEUE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	LP, LP1, LP2, LP2+1, LP2+3, PRI+3, GETO+5, GETO+7, GETO+8, GETO+10 , GETO+13, PRINT+9
^DIC(19.2 - [#19.2]	PRI+4, GETO+14
^TMP($J	DUO+2!, GET, GET+1, PRI+5, START+7!, GETO+15, PRINT+5, PRINT+7, PRINT+8
^VA(200 - [#200]	PRI+1, PRI+2, GETO+11, GETO+12

Name	Line Occurrences
DUO	DUO+1, DUO+6
DUO1	GET+1, DUO1+1
EXIT	LIST+8, QUEUE+1, QUEUE+2, START+10
GET	DUO+4, DUO+5
GETO	START+8
HEAD	PRINT+4, PRINT+15, PRINT+20
LP	GET
LP1	LP
LP2	LP1
OUT	GET, GET+2
PRI	LP2+1
PRINT	START+9
QUEUE	LIST+5, LIST+6

Name	Field # of Occurrence
^(200.9	PRI+3, GETO+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DUO+1, DUO1+1
%A1	OUT+1!, EXIT+3!
%Y	OUT+2!, EXIT+4!
>> %ZIS	QUEUE+1*
A	OUT+2!, EXIT+4!
C	OUT+1!, EXIT+3!
D0	OUT+2!, EXIT+4!
D1	OUT+2!, EXIT+4!
DA	GET+1*, OUT+2!, EXIT+4!
DIC	DUO+3, DUO+6, GET+1, OUT+1!, LIST+4, LIST+7*, EXIT+3!
DIC(0	DUO+3, DUO+6, LIST+4, LIST+7
>> DIK	DUO1+2*
DIW	OUT+2!, EXIT+4!
DIWF	OUT+2!, EXIT+4!
DIWL	OUT+2!, EXIT+4!
DIWR	OUT+2!, EXIT+4!
DIWT	OUT+2!, EXIT+4!
DK	OUT+2!, EXIT+4!
DL	OUT+2!, EXIT+4!
DN	OUT+2!, EXIT+4!
DR	GET+1*, OUT+2!, EXIT+4!
DT	START+3
DTIME	DUO+3, LIST+4, PRINT+18, PRINT+25
DX	OUT+2!, EXIT+4!
END	PRINT+2~, PRINT+3, PRINT+7, PRINT+19
I	OUT+1!, PRINT+23*, EXIT+3!
IO	QUEUE+2
IO(0	QUEUE+2
IOF	GET+1, PRINT+14
IOP	DUO+2!, LIST+3!, QUEUE+1!
IOSL	PRINT+12, PRINT+23
IOST	PRINT+13, PRINT+16, PRINT+21
J	OUT+1!, EXIT+3!
K	OUT+1!, EXIT+3!
L	LP2+3*, OUT+1!, EXIT+3!
POP	OUT+1!, QUEUE+1, EXIT+3!
S	GET+1!, OUT+1!, EXIT+3!
U	DUO+3, DUO+5, DUO+6, LP2, LP2+3, PRI+3, LIST+4, LIST+6, LIST+9, START+2* , GETO+8, PRINT+9
X	DUO+3, DUO+4, OUT+1!, LIST+4, LIST+5, PRINT+18, PRINT+19, PRINT+25, EXIT+3!
XQDSH	OUT+1!
XQE	DUO+4, DUO+5, DUO+6*, LP, OUT+1!
XQENT	DUO+2*, LP2+1, LP2+3, PRI+1, PRI+2, PRI+3, PRI+4, OUT+1!
XQFL	LP2!, LP2+1*, LP2+2!, PRI+1!, PRI+2!, PRI+3!, PRI+4!, PRI+5, OUT+1!
XQHDR	OUT+1!
XQI	GET+1, LP1, LP2, LP2+1, LP2+3, PRI+1, PRI+2, PRI+3, PRI+4, PRI+5 , OUT+1!
>> XQII	GET+1*
XQJ	LP*, LP1, LP2+1, OUT+1!
XQK	LP2+2, LP2+3, OUT+1!
XQLEN	LP2+2, LP2+3, OUT+1!
XQNM	LP2+2, LP2+3, OUT+1!
XQP	OUT+1!
XQS	DUO+4, DUO+5, DUO+6*, LP, OUT+1!
XQSTOP	GET+1, DUO1+1*, OUT+2!
XQUI	LP*, LP1, OUT+1!
XUAFLAG	GETO+8!, GETO+9*, GETO+10!, GETO+11!, GETO+12!, GETO+13!, GETO+14!, GETO+15, EXIT+2!
XUAHDR	START+1~
XUAHDR(1	START+4*, HEAD+2
XUAHDR(2	START+5*, HEAD+2
XUAHDR(3	START+6*, HEAD+2
XUAIEN	START+1~, GETO+6, GETO+7, GETO+8, GETO+10, GETO+11, GETO+12, GETO+13, GETO+14, GETO+15 , PRINT+8*, PRINT+9
XUALINE	PRINT+2~, PRINT+11, PRINT+12, PRINT+22, PRINT+23, HEAD+3*
XUANAME	START+1~, GETO+4, GETO+5, GETO+7, GETO+15, PRINT+6, PRINT+7, PRINT+8, PRINT+10
XUAPAGE	PRINT+2~, PRINT+3, PRINT+15, PRINT+20*, HEAD+2
XUATDY	START+1~, START+3*, START+4
XUATEXT	PRINT+2~, PRINT+9*, PRINT+10
>> XUAXQE	LIST+5, LIST+6, LIST+9*, GETO+5
>> XUAXQS	LIST+5, LIST+6, LIST+9*, GETO+4
Y	DUO+5, DUO+6, OUT+1!, LIST+6, LIST+8, START+3*, EXIT+3!
Y(0	DUO+5, DUO+6, LIST+6, LIST+9
ZISI	OUT+1!, EXIT+3!
ZTDESC	OUT+1!, QUEUE+2*, EXIT+3!
ZTDTH	OUT+1!, EXIT+3!
ZTIO	QUEUE+1!
ZTRTN	OUT+1!, QUEUE+2*, EXIT+3!
ZTSAVE	OUT+1!, QUEUE+1!, EXIT+3!
ZTSAVE("XUA*"	QUEUE+2*

Customize PDF page

Package: Kernel

Routine: XQ33

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: