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: XQ6

Package: Kernel

Routine: XQ6


Information

XQ6 ;SEA/AMF,SLC/CJS- BULK KEY DISTRIBUTION ;2/14/95 12:47

Source Information

Source file <XQ6.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
EN2
EN3
EN4
INIT ;
KEY ;
MORE ;Handles subordinate or exploding keys
HOLDER ;Continue in next routine
OUT
SHOW ;Show the users of a particular key
PAUSE ;Hold the screen
LIST ;List all the keys of a given user
ATOD ;Convert all of a users allocated keys to delegated keys
MESS ;Correct problems with key cross-references from 7.0 %RCR above.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You've nothing to allocate. See your package coordinator or site manager."
  • Line Location: KEY+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: KEY+3
Function Call: WRITE
  • Prompt: !!,$S($O(XQKEY(0))>0:"Another",XQAL&XQDA:"Delegate",XQAL:"Allocate",'XQAL&XQDA:"Remove delegated",1:"De-allocate")," key: " R X:DTIME S:'$T
  • Line Location: KEY+3
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: KEY+7
Function Call: WRITE
  • Prompt: $S($D(XQKEY(+Y)):" Deleted from current list",1:$C(7)_" ?? Key not on list")
  • Line Location: KEY+12
Function Call: WRITE
  • Prompt: !!,"There are subordinate keys, do you wish to add them"
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !!,"If you answer 'YES', the subordinate keys will be listed and added."
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !,$P(^DIC(19.1,XQJ,0),"^")," ",$P(^(0),U,2)
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: !!,"There are no holders of this key."
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: @IOF,?15,"Current holders of the key ",XQKEY,!!
  • Line Location: SHOW+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF,?15,"Current holders of the key ",XQKEY,!!
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,XQUSER," does not currently hold any keys."
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: ?(XQI#XQK*16),%
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: ?(XQI#XQK*16),%
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !!,XQUSER," does not hold any keys to transfer."
  • Line Location: ATOD+3
Function Call: WRITE
  • Prompt: !!,XQUSER," already has some delegated keys."
  • Line Location: ATOD+4
Info |  Source |  Entry Points |  Interaction Calls