Routine: XQ61

Information

XQ61 ;SEA/AMF,MJM - BULK EDITORSHIP ASSIGNMENT ;9/28/92 16:21;5/13/93 11:44 AM

Source Information

Source file <XQ61.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	^XQ62 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	XQHELP-ASSIGN XQHELP-DEASSIGN

Entry Points

Name	Comments	DBIA/ICR reference
EN1
EN2
INIT	;
HELP	;Get the list of help frames in question
EDITOR	;Get the names of the users involved
EACH
OK	;Show the list of help frams and users and get the OK to proceed
OK1
ACT	;Do the deed
ACT1	;
ACT2	;
ACT3
LSTHELP	;Show the list of help frams concerned
LSTEDT	;Show the list of editors selected so far
OUT	;Clean up and quit

External References

Name	Field # of Occurrence
^DIC	HELP+5, EDITOR+5, EDITOR+6
^DIE	ACT2+3, ACT3+1
^XQ62	HELP+3, EDITOR+3
EN^XQH	HELP+3, EDITOR+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: HELP+1
Function Call: WRITE	Prompt: " ??",*7 Line Location: HELP+5
Function Call: WRITE	Prompt: $S($D(XQHELP(+Y)):" Deleted",1:$C(7)_" ?? Help frame not on list") Line Location: HELP+6
Function Call: READ	Variable: X Timeout: DTIME Line Location: EDITOR+1
Function Call: WRITE	Prompt: " ??",*7,!,"You have not yet selected any editors." Line Location: EDITOR+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: EDITOR+6
Function Call: WRITE	Prompt: !,$P(^VA(200,XQI,0),U,1) Line Location: EDITOR+7
Function Call: WRITE	Prompt: $S($D(XQEDTR(XQI)):" Deleted",1:$C(7)_" ?? Editor not on list") Line Location: EACH+0
Function Call: READ	Formatting: !! Prompt: "Do you wish to proceed? YES// " Variable: X Timeout: DTIME Line Location: OK1+0
Function Call: WRITE	Prompt: !!,"'Y' means ",$S(XQAL:"assign",1:"remove")," the editor(s), 'N' means edit help frame or editor lists." Line Location: OK1+0
Function Call: WRITE	Prompt: *7," ??",!?10,"Please enter 'Y' or 'N', '^' to quit or '?' for help." Line Location: OK1+1
Function Call: WRITE	Prompt: !!,$P(^DIC(9.2,DA,0),U,1)," being ",$S(XQAL:"assigned to:",1:"taken away from:") Line Location: ACT+1
Function Call: WRITE	Prompt: ?30,"User already is editor of help frame - no action taken" Line Location: ACT2+2
Function Call: WRITE	Prompt: ?30,"User isn't editor of help frame no action taken" Line Location: ACT3+0
Function Call: WRITE	Prompt: !!,"You have not yet selected any help frames." Line Location: LSTHELP+1
Function Call: WRITE	Prompt: !!,"You've selected the following help frames: ",! Line Location: LSTHELP+2
Function Call: WRITE	Prompt: ?(XQK#XQI*15),$P(^DIC(9.2,XQJ,0),U,1) Line Location: LSTHELP+2
Function Call: WRITE	Prompt: !!,"You have not yet selected any editors." Line Location: LSTEDT+1
Function Call: WRITE	Prompt: !!,"You've selected the following editors: ",! Line Location: LSTEDT+2
Function Call: WRITE	Prompt: ?(XQK#XQI*26),$P(^VA(200,XQJ,0),U,1) Line Location: LSTEDT+2
Routine Call	DIC Line Location: HELP+5 EDITOR+5 EDITOR+6
Routine Call	DIE Line Location: ACT2+3 ACT3+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.2 - [#9.2]	ACT+1, ACT2+2, ACT3, LSTHELP+2
^VA(200 - [#200]	EDITOR+7, ACT2+1, LSTEDT+2
^XMB(3.8 - [#3.8]	EDITOR+7

Label References

Name	Line Occurrences
ACT1	ACT+1
ACT2	ACT1+1
ACT3	ACT2+1
EACH	EDITOR+5, EDITOR+7
EDITOR	HELP+2, EDITOR+2, EDITOR+3, EDITOR+5, EDITOR+6, EDITOR+8
HELP	HELP+3, HELP+5, HELP+6, HELP+7, OK1
INIT	EN1
LSTEDT	EDITOR+3, OK+1
LSTHELP	HELP+3, OK+1
OK	EDITOR+2
OK1	OK1, OK1+1
OUT	HELP+1, HELP+2, EDITOR+1, OK1, ACT+3

Naked Globals

Name	Field # of Occurrence
^(	EDITOR+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ACT+1*, ACT2+2, ACT3, OUT+1!
DIC	HELP+5!, EDITOR+5!, EDITOR+6*!, OUT+1!
DIC("S"	HELP+5, EDITOR+5, EDITOR+6*
DIC(0	HELP+5, EDITOR+5, EDITOR+6*
DIE	ACT+1*, OUT+1!
DR	ACT2+3, ACT3+1, OUT+1!
DR(2	ACT+1, ACT3+1
DTIME	HELP+1, EDITOR+1, OK1
DUZ	EDITOR+6
IOM	ACT1+1, LSTHELP+2, LSTEDT+2
U	HELP+1, EDITOR+1, EDITOR+7, OK1, ACT+1, ACT2+1, LSTHELP+2, LSTEDT+2
X	HELP+1, HELP+2, HELP+3, HELP+4, EDITOR+1, EDITOR+2, EDITOR+3, EDITOR+4, EDITOR+5, EDITOR+6* , OK1, OK1+1, OUT+1!
>> XMDUZ	EDITOR+6*
XQAL	EN1, EN2, OK1, ACT+1, ACT2+1, OUT+1!
XQEDTR	INIT+1!, OUT+1!
XQEDTR(	EACH!, EACH+1*, ACT1+1, LSTEDT+2
XQEDTR(0	INIT+1*, EDITOR+1, EDITOR+2, LSTEDT+1
XQH	HELP+3, EDITOR+3, OUT+1!
XQHELP	INIT+1!, OUT+1!
XQHELP(	HELP+6!, HELP+7*, ACT+1, LSTHELP+2
XQHELP(0	INIT+1*, HELP+1, HELP+2, LSTHELP+1
XQI	EDITOR+5, EDITOR+7, EACH, EACH+1, LSTHELP+2, LSTEDT+2, OUT+1!
XQJ	EDITOR+7, ACT1+1, LSTHELP+2, LSTEDT+2, OUT+1!
XQK	LSTHELP+2, LSTEDT+2, OUT+1!
XQM	HELP+4, HELP+6, EDITOR+4, EACH, ACT1+1*, ACT2+1, ACT2+2, ACT3, OUT+1!
XQNM	ACT2+1*, ACT2+3, ACT3+1, OUT+1!
Y	HELP+5, HELP+6, HELP+7, EDITOR+5, EDITOR+6, EDITOR+7, OUT+1!

Customize PDF page

Package: Kernel