Routine: XQOO

Information

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

Source Information

Source file <XQOO.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	^XQDATE EN^XQH OFF^XQOO1 (BXREF,RANGE)^XQOO2
VA Fileman	2	^DIC ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Kernel	1	XPDI

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	ASK+21, ASK+26
^DIR	NAME+8, ASK+23, OUT+6, OUT+14
^XQDATE	SET+2, OUT+8
EN^XQH	NAME+3, MESS+3, ASK+11
OFF^XQOO1	OUT+14
BXREF^XQOO2	LSTFIL+2
RANGE^XQOO2	LSTFIL+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: XQSET 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: !! Timeout: ",XQMESS:DTIME Variable: "What should the Out Of Order message text be? 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	Timeout: DTIME Variable: XQ 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	Prompt: "Remove all options previously selected? " Formatting: !! Timeout: DTIME Variable: XQ 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
Routine Call	DIC Line Location: ASK+21 ASK+26
Routine Call	DIR Line Location: NAME+8 ASK+23 OUT+6 OUT+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	FIND+2, FINDR, NEXT+1, DELET+3
^ORD(	FINDR+1, NEXT+2, DELET+4
^ORD(101 - [#101]	FIND+3
^VA(200 - [#200]	SET+4, OUT+8
^XTMP("XQOO"	INIT+6, INIT+8, NAME+5, NAME+6, ASK+15!, ASK+27!, ASK+28, GET+1, NEXT+1, NEXT+2 , DELET+3!, DELET+4!, REMOV+1!, LIST+3, LIST+4, SET+3, SET+4, SET+5, OUT+2, OUT+7! , OUT+8*, OUT+11

Label References

Name	Line Occurrences
ASK	ASK+4, ASK+11, ASK+12, ASK+13, ASK+15, ASK+16, ASK+17, ASK+19, ASK+26, ASK+27 , ASK+28, REMOV, SET+1
ASK1	INIT+8, NAME+5
DELET	FINDR+2
FIND	ASK+16, ASK+17, ASK+23
LIST	ASK+11
LSTFIL	ASK+11
MESS	MESS+2, MESS+3
NAME	NAME+2, NAME+3, NAME+4, NAME+5
OUT	INIT+7, NAME+1, NAME+5, MESS+1, ASK+3, REMOV
SET	ASK+3
WAIT	LIST+4

Naked Globals

Name	Field # of Occurrence
^(	LIST+4
^(0	SET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OUT+17!
%Y	SET+4, OUT+8, OUT+17!
>> DIC	ASK+21, ASK+26, GET+2*
>> DIC(0	ASK+21, ASK+26, GET+2*
DIR	NAME+8!, ASK+23!
DIR("A"	NAME+8, ASK+23, OUT+5, OUT+13
DIR("B"	NAME+8, OUT+4, OUT+12*
DIR(0	NAME+8, ASK+23, OUT+4, OUT+12
DIRUT	NAME+5, OUT+17!
DT	SET+5, OUT+8
DTIME	NAME+1, MESS+1, ASK+3, REMOV, WAIT+1
DUZ	SET+4, OUT+8
IOF	LIST+1, WAIT+1
IOSL	LIST+4
IOST	WAIT+1
U	INIT+8, EN+1*, NAME+1, NAME+6, MESS+1, ASK+3, ASK+21, ASK+26, ASK+28, GET+1 , NEXT+1, NEXT+2, REMOV, LIST+4, WAIT+1, SET+3, SET+4, SET+5, OUT+8
X	ASK+21, ASK+26, OUT+17!
>> XPDNM	OUT+2, OUT+11
XQ	ASK+1, ASK+3, ASK+4, ASK+11, ASK+12, ASK+13, ASK+14, ASK+15, ASK+16, ASK+17 , ASK+19, ASK+21, ASK+23, ASK+26, REMOV, LIST+4, WAIT+1*, OUT+17!
XQDEL	ASK+14, ASK+15, ASK+27, FINDR+2, DELET+2, OUT+17!
XQE	LSTFIL+1~, LSTFIL+2
XQEND	ASK+16, ASK+17, ASK+23*, NEXT+1, NEXT+2, DELET+3, DELET+4, OUT+17!
XQFIL	ASK1, ASK+2, ASK+5, ASK+6, ASK+7, ASK+12, ASK+13, ASK+15, ASK+21, ASK+23 , ASK+26, ASK+27, ASK+28, FIND+2, FIND+4, FINDR, FINDR+1, GET+1, GET+2, NEXT+1 , NEXT+2, DELET+3, DELET+4, SET+1, OUT+17!
XQFIL0	LIST+2*, LIST+3, LIST+4, OUT+17!
XQH	NAME+3, MESS+3, ASK+11*, OUT+17!
XQI	FIND+2, FIND+3, LIST+4*, OUT+17!
XQINI	INIT+5*, OUT+17!
XQK	INIT+5, EN+1, GET+1, NEXT+1, NEXT+2*, DELET+3, DELET+4, OUT+17!
XQM	LIST+1*, OUT+17!
XQMESS	INIT+8, NAME+6, MESS+1, MESS+2, MESS+3, SET+3, SET+4, OUT+8, OUT+17!
XQN	ASK+1, ASK+23, FIND+1, FIND+2, FIND+3, FIND+4, FIND+5, FINDR, FINDR+1, GET+1 , NEXT+1, NEXT+2, DELET+2, DELET+3, DELET+4, LIST+3, LIST+4*, OUT+17!
XQON	FINDR, FINDR+1, GET+1, NEXT+1, NEXT+2, DELET+3, DELET+4, OUT+17!
XQON0	FINDR, FINDR+1, GET+1, NEXT+1, NEXT+2, OUT+17!
XQR	LSTFIL+1~, LSTFIL+2
XQRNG	ASK+19, ASK+21, OUT+17!
XQS	LSTFIL+1~, LSTFIL+2
XQSET	INIT~, INIT+6, INIT+7, INIT+8, EN+1, NAME+1*, NAME+2, NAME+3, NAME+4, NAME+5 , NAME+6, NAME+7, ASK+15, ASK+27, ASK+28, GET+1, NEXT+1, NEXT+2, DELET+3, DELET+4 , REMOV+1, LIST+3, LIST+4, SET+3, SET+4, OUT+2, OUT+7, OUT+8, OUT+11, OUT+14
XQSTART	ASK+16, ASK+17, ASK+23, FIND+1, FIND+2, FIND+3, FIND+5, GET+1, DELET+2, OUT+17!
XQSWTCH	ASK+12, ASK+13, SET+1, OUT+17!
XQT	LIST+1, LIST+3, OUT+17!
XQX	DELET+3, DELET+4, OUT+17!
Y	NAME+5, ASK+21, ASK+23, ASK+26, ASK+27, ASK+28, OUT+7, OUT+14, OUT+17!
Y(0	ASK+28

Customize PDF page

Package: Kernel

Routine: XQOO

Call Graph Total: 6

Caller Graph Total: 1