Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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

Source Information

Source file <XQ61.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls