Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • 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
Info |  Source |  Entry Points |  Interaction Calls