Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XQ61

Package: Kernel

Routine: XQ61


Information

XQ61 ;SEA/AMF,MJM - BULK EDITORSHIP ASSIGNMENT ;9/28/92 16:21;5/13/93 11:44 AM [ 04/02/2003 8:29 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  

Entry Points

Name Comments DBIA/ICR reference
OK1
LSTEDT ;Show the list of editors selected so far
ACT3
OK ;Show the list of help frams and users and get the OK to proceed
HELP ;Get the list of help frames in question
LSTHELP ;Show the list of help frams concerned
ACT1 ;
ACT2 ;
ACT ;Do the deed
INIT ;
EN1
EN2
EDITOR ;Get the names of the users involved
EACH
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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Do you wish to proceed? YES// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
  • DIE
  • Line Location:
    • ACT2+3
    • ACT3+1
Routine Call
  • DIC
  • Line Location:
    • HELP+5
    • EDITOR+5
    • EDITOR+6

Global Variables Directly Accessed

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All