Routine: XQ9

Information

XQ9 ; SEA/AMF,MJM - RESTRICT AVAILABILITY OF OPTIONS ;9/29/92 14:59 ;5/13/93 11:24 AM

Source Information

Source file <XQ9.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^XQ91 EN^XQH
VA FileMan	2	^DIC ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	2	XQ91 XQRESTRICT

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;
OP	;
ONEOPT	;
GETRS	;Get data for each restriction field, check it, and build DR string
NEXT
GOTRS	;Continue on in the next routine (^XQ91)
LSTOP	;List the options that have been selected thus far
LSTFIL	;Show OPTION or DEVICE file
OUT	;

External References

Name	Field # of Occurrence
^%ZIS	INIT+2
^DIC	OP+5, LSTFIL+1
^DIE	ONEOPT+1
^XQ91	GOTRS+2
EN^XQH	OP+3, NEXT+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: OP+1
Function Call: WRITE	Prompt: ! Line Location: OP+2
Function Call: WRITE	Prompt: ! Line Location: OP+3
Function Call: WRITE	Prompt: " ??",*7 Line Location: OP+5
Function Call: WRITE	Prompt: $S($D(XQOP(+Y)):" Deleted",1:$C(7)_" ?? Option not on list") Line Location: OP+6
Function Call: WRITE	Prompt: !?4,"CURRENT ",$P(XQFLD(XQI,0),U,1),": ",$P(XQK,U,XQJ) Line Location: OP+7
Function Call: WRITE	Prompt: $P(^%ZIS(1,XQN,0),U,1) Line Location: OP+8
Function Call: READ	Variable: X Timeout: DTIME Line Location: NEXT+0
Function Call: WRITE	Prompt: ! Line Location: NEXT+2
Function Call: WRITE	Prompt: ! Line Location: NEXT+2
Function Call: WRITE	Prompt: !!,"You have not yet selected any options." Line Location: LSTOP+1
Function Call: WRITE	Prompt: ?(XQK#XQI*15),$P(^DIC(19,XQJ,0),U,1) Line Location: LSTOP+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: LSTFIL+1
Routine Call	%ZIS Line Location: INIT+2
Routine Call	DIC Line Location: OP+5 LSTFIL+1
Routine Call	DIE Line Location: ONEOPT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	OP+8
^DD(19	INIT+1
^DIC(19 - [#19]	OP+7, OP+8, LSTOP+2
^DIC(19.1 - [#19.1]	NEXT+5

Label References

Name	Line Occurrences
GETRS	OP+2
GOTRS	NEXT
LSTFIL	OP+3
LSTOP	OP+3
NEXT	NEXT+1, NEXT+2, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9
ONEOPT	OP+2
OP	OP+3, OP+5, OP+6, OP+9
OUT	OP+1, OP+2, ONEOPT+2, NEXT

Naked Globals

Name	Field # of Occurrence
^(0	OP+7, OP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OUT+2!
%Y	OUT+2!
%ZIS	INIT+2*!
C	OUT+2!
D0	OUT+2!
D1	OUT+2!
DA	ONEOPT+1*, OUT+2!
DI	OUT+2!
DIC	OP+5, LSTFIL+1!, OUT+2!
DIC(0	OP+5, LSTFIL+1
DIE	ONEOPT+1*, OUT+2!
DIK	OUT+2!
DISYS	OUT+2!
DLAYGO	OUT+2!
DQ	OUT+2!
DR	ONEOPT+1*, OUT+2!
DTIME	INIT+2*, OP+1, NEXT, LSTFIL+1
I	OUT+2!
IOM	INIT+2, LSTOP+2
J	OUT+2!
K	OP+8*, OUT+2!
L	OUT+2!
POP	OUT+2!
U	INIT+2*, OP+1, OP+7, OP+8, NEXT, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8 , LSTOP+2
X	OP+1, OP+2, OP+3, OP+4, NEXT, NEXT+1, NEXT+2, NEXT+3, NEXT+4!, NEXT+5! , NEXT+6!, NEXT+7!, NEXT+8!, LSTFIL+1, OUT+2!
XQD	OUT+1!
XQDF	INIT+1, LSTFIL+1, OUT+1!
XQDR	GETRS+1, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8*, OUT+1!
XQDV	INIT+1!, OUT+1!
XQFL	OUT+1!
XQFL2	OUT+1!
XQFLD	INIT+1!, OUT+1!
XQFLD(	INIT+1, OP+7, NEXT, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8*
XQFLD(6	OP+8
>> XQH	OP+3, NEXT+2
XQI	INIT+1, OP+2, OP+7, OP+8, GETRS+1, NEXT, NEXT+2, NEXT+3, NEXT+4, NEXT+5* , NEXT+6, NEXT+7, NEXT+8, LSTOP+2, OUT+1!
XQISV	OUT+1!
XQJ	INIT+1, OP+7, OP+8, LSTOP+2, OUT+1!
XQJSV	OUT+1!
XQK	OP+7, LSTOP+2, OUT+1!
XQM	OP+4*, OP+6, OUT+1!
XQN	OP+8, NEXT, NEXT+2, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8, OUT+1!
XQNDV	OUT+1!
XQNOD	OUT+1!
XQOD	INIT+1!, OUT+1!
XQOP	INIT+1!, OUT+1!
XQOP(	OP+2, OP+6!, OP+9*, LSTOP+2
XQOP(0	INIT+1*, OP+1, OP+2, ONEOPT+1, LSTOP+1
XQR	OUT+1!
XQT	OUT+1!
XQTDV	INIT+1*, OUT+1!
XQTOD	INIT+1*, OUT+1!
XY	OUT+2!
Y	OP+5, OP+6, OP+7, OP+8, OP+9, OUT+2!

Customize PDF page

Package: Kernel