Routine: XQ91

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIK
Kernel	2	(INIT,OP)^XQ9 EN^XQH

Package	Total	Caller Graph
Kernel	1	XQ9

Entry Points

Name	Comments	DBIA/ICR reference
OK1
LSTOP	;
OK	;
LSTRES	;List restrictions to be placed on all options
LSTFIL	;Show OPTION or DEVICE file
GETDV
GOTDV	;Remove devices to delete (XQOD) from list of devices to add (XQDV)
LSTDV	;List PERMITTED DEVICES to be added and deleted
ACT	;Stuff the restrictions and devices into the OPTION file
KILDV	;Remove PERMITTED DEVICE from option
OUT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: XQ91+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: GETDV+0
Function Call: WRITE	Prompt: " ??",*7 Line Location: GETDV+5
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: WRITE	Prompt: !!,"These restrictions will be updated for all options selected:",! Line Location: LSTRES+1
Function Call: WRITE	Prompt: !,$P(XQFLD(XQI,0),U,1),": ",XQFLD(XQI,"V") Line Location: LSTRES+2
Function Call: WRITE	Prompt: ?(XQI#XQT*10),$P(XQDV(XQD),U,2) Line Location: LSTDV+2
Function Call: WRITE	Prompt: ?(XQI#XQT*10),$P(XQOD(XQD),U,2) Line Location: LSTDV+3
Function Call: READ	Prompt: "Do you wish to proceed? YES// " Formatting: !! Timeout: DTIME Variable: X Line Location: OK1+0
Function Call: WRITE	Prompt: *7," ??",!,"Enter 'Y' or 'N'" Line Location: OK1+0
Function Call: WRITE	Prompt: !,$P(^DIC(19,DA,0),U,1) Line Location: ACT+1
Function Call: WRITE	Prompt: "*" Line Location: ACT+1
Function Call: WRITE	Prompt: "*" Line Location: ACT+1
Function Call: WRITE	Prompt: "-" Line Location: KILDV+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: LSTFIL+1
Routine Call	DIE Line Location: ACT+1
Routine Call	DIC Line Location: GETDV+5 KILDV+2 LSTFIL+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	LSTOP+2, ACT+1

Name	Line Occurrences
GETDV	GETDV+2, GETDV+3, GETDV+5, GETDV+6, GETDV+7
GOTDV	GETDV+1
KILDV	ACT+1
LSTDV	GETDV+2
LSTFIL	GETDV+2, GETDV+3
OK	GOTDV+1
OK1	OK1
OUT	GETDV, OK1

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