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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XQ3

Package: Kernel

Routine: XQ3


Information

XQ3 ;LL/THM,SF/GJL,SEA/JLI - CLEANUP DANGLING POINTERS IN OPTION OR HELP FRAME FILES ;12/08/09

Source Information

Source file <XQ3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 3

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

Entry Points

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

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