Routine: XQ9

Information

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

Source file <XQ9.m>

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

Package	Total	Caller Graph
Kernel	1	XQ91

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

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X Line Location: LSTFIL+1
Routine Call	DIE Line Location: ONEOPT+1
Routine Call	DIC Line Location: OP+5 LSTFIL+1
Routine Call	%ZIS Line Location: INIT+2

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

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

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

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!