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

Package: Kernel

Routine: XQOO


Information

XQOO ;SEATTLE/LUKE - Out Of Order, Man ;9/13/96 09:21

Source Information

Source file <XQOO.m>

Entry Points

Name Comments DBIA/ICR reference
INIT(XQSET) ;Call for Out-of-order set creation, called by KIDS
EN ;Entry point for Define Out Of Order Options Set option
NAME ;Get name for this option set
MESS ;Get the Out Of Order Message
ASK1
ASK ;Get options to mark
FIND ;Find first option in wildcard list
FINDR
GET ;Get the first option selected and put it in ^XTMP
NEXT ;Find the rest of the options in this range and do likewise
DELET ;Delete option(s) from the list in ^XTMP
REMOV
LSTFIL ;Show Option File
LIST ;List users and options selected so far.
WAIT ;Skip to the head of the next page
SET ;Set 0th node in ^XTMP global
OUT ;Clean up

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: XQSET
  • Timeout: DTIME
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: !!,"Enter a name of 20 characters or less for this set, '^' to quit, or '??' for help"
  • Line Location: NAME+2
Function Call: WRITE
  • Prompt: !!,"Out-of-order sets must be named with 20 or less characters. Enter '^' to quit."
  • Line Location: NAME+4
Function Call: READ
  • Prompt: !!
  • Variable: "What should the Out Of Order message text be?
  • Timeout: ",XQMESS:DTIME
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !!,"This is the message that will be shown with the options/protocols",!,"that are made out of order. For instance, ""Laboratory install in progress"""
  • Line Location: MESS+2
Function Call: WRITE
  • Prompt: !!,"Enter "_$S(XQFIL=19:"options",1:"protocols")_" you wish to mark as 'Out Of Order': "
  • Line Location: ASK+2
Function Call: READ
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !," All "_$S(XQFIL=19:"options",1:"protocols")_" removed. Start again or '^' to quit. "
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: ASK+26
Function Call: WRITE
  • Prompt: !," No such ",$S(XQFIL=19:"option(s).",1:"protocol(s).")
  • Line Location: FIND+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Remove all options previously selected? "
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: REMOV+0
Function Call: WRITE
  • Prompt: !!,"OK, you may continue."
  • Line Location: REMOV+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"No "_$S(XQFIL0=19:"menu options",1:"protocols")_" selected yet"
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,$P(^XTMP("XQOO",XQSET,XQFIL0,XQN),U,2)_" ["_$P(^(XQN),U)_"] (IEN = "_XQN_")"
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+1
Info |  Source |  Entry Points |  Interaction Calls