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: XQT

Package: Kernel

Routine: XQT


Information

XQT ;SEA/MJM - Menu template loader ;01/09/2001 13:32

Source Information

Source file <XQT.m>

Entry Points

Name Comments DBIA/ICR reference
FIND ;Find the template requested
LOD ;Load the template into the ^XUTL("XQT").
SET ;Build the ^XUTL("XQO",+XQDIC [ or "U"_DUZ]) nodes if need be
SETU ;Build the ^XUTL("XQO","U"_DUZ) nodes if need be
CHK ;Make sure it's OK to use this option
OK ;See if it's locked, etc.
CHS ;Choose the template from those that match
RPT ;Set the 'repeat' flag in ^XUTL and strip it off list of options
OUT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"See 'Menu Templates' options for more information."
  • Line Location: XQT+6
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: FIND+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: FIND+6
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: LOD+2
Function Call: WRITE
  • Prompt: @IOF,?33,"Loading ",XQUR,"...",!
  • Line Location: LOD+3
Function Call: WRITE
  • Prompt: !!,"The Option File has been changed. This template will no longer work.",!?5,"'",XQUR,"' should be deleated and/or rebuilt."
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !!,"Sorry, the option '",$P(^DIC(19,XQY,0),U,2),"'",!,?5,"is no longer available to you."
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !!,"Because of changes to the Option File an option is no longer available."
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !!,"Option '",$P(XQY0,U,2),"'",!,?5,"is out of order. The message is: ",$P(XQY0,U,3)
  • Line Location: OK+5
Function Call: WRITE
  • Prompt: !!,"Option '",$P(XQY0,U,2),!,?5,"is locked. You don't own the key."
  • Line Location: OK+6
Function Call: WRITE
  • Prompt: !!,"Option '",$P(XQY0,U,2),"'",!,?5,"is not permitted to run right now. Sorry."
  • Line Location: OK+7
Function Call: WRITE
  • Prompt: !!,"Option '",$P(XQY0,U,2),!,?5,"is restricted to run only only certain terminals. You're not on one. Sorry."
  • Line Location: OK+8
Function Call: WRITE
  • Prompt: !!,"Chose by number from: ",!
  • Line Location: CHS+1
Function Call: WRITE
  • Prompt: !,?5,XQI,". ",XQ(XQI)
  • Line Location: CHS+1
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: CHS+2
Function Call: WRITE
  • Prompt: !!,"Enter a number between 1 and ",XQJ-1," or '^' to quit: "
  • Line Location: CHS+2
Info |  Source |  Entry Points |  Interaction Calls