Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XQ33

Package: Kernel

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

External References

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

Label References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All