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

Package: Kernel

Routine: XQ6A


Information

XQ6A ;SEA/AMF,SLC/CJS- BULK KEY DISTRIBUTION ;5:22 AM 19 Jun 2002

Source Information

Source file <XQ6A.m>

Entry Points

Name Comments DBIA/ICR reference
HOLDER ;
EACH ;Check out each potential user
OK ;
OK1
ACT ;Run through list of keys
OUT ;Exit point
ACT1 ;Run through list of people
ACT2 ;Add keys or DO ACT3 if we're removing them
ACT3
LSTKEY ;
LSTHOL ;
KEYFIL ;
USERFIL ;
US0
US1
U0
U1
U2
U3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HOLDER+1
Function Call: WRITE
  • Prompt: " ??",$C(7),!,"You have not yet selected any holders."
  • Line Location: HOLDER+2
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: HOLDER+7
Function Call: WRITE
  • Prompt: !,$P(^(0),U,1)
  • Line Location: HOLDER+8
Function Call: WRITE
  • Prompt: !,$P(^VA(200,XQI,0),U,1)
  • Line Location: HOLDER+9
Function Call: WRITE
  • Prompt: !!,$C(7),"==> Sorry, you can't give yourself keys. See your IRM staff."
  • Line Location: EACH+1
Function Call: WRITE
  • Prompt: $S($D(XQHOLD(XQI)):" Deleted from current list",1:$C(7)_" ?? Holder not on list")
  • Line Location: EACH+2
Function Call: WRITE
  • Prompt: !!,"You are ",$S(XQAL&XQDA:"delegating",XQAL:"allocating",XQDA:"removing delegated",1:"deallocating")," keys."
  • Line Location: OK+2
Function Call: READ
  • Prompt: " Do you wish to proceed? YES// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: $C(7)," ??",!,"Please enter 'Y' or 'N'"
  • Line Location: OK1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to start again? NO// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OK1+1
Function Call: WRITE
  • Prompt: !!,$P(^DIC(19.1,XQK,0),U,1)," being ",$S(XQAL&XQDA:"delegated to",XQAL:"assigned to:",1:"taken away from:")
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: ?30,"Person already holds key - no action taken"
  • Line Location: ACT2+4
Function Call: WRITE
  • Prompt: ?30,"Person doesn't hold key - no action taken"
  • Line Location: ACT3+0
Function Call: WRITE
  • Prompt: !!,"You have not yet selected any keys."
  • Line Location: LSTKEY+1
Function Call: WRITE
  • Prompt: !!,"You've selected the following keys: ",!
  • Line Location: LSTKEY+2
Function Call: WRITE
  • Prompt: ?(XQK#XQI*15),$P(^DIC(19.1,XQJ,0),U,1)
  • Line Location: LSTKEY+2
Function Call: WRITE
  • Prompt: !!,"You have not yet selected any holders."
  • Line Location: LSTHOL+1
Function Call: WRITE
  • Prompt: !!,"You've selected the following holders: ",!
  • Line Location: LSTHOL+2
Function Call: WRITE
  • Prompt: ?(XQK#XQI*26),$P(^VA(200,XQJ,0),U,1)
  • Line Location: LSTHOL+2
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to see the KEY file? NO// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: KEYFIL+3
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to see the current holders of a key? NO//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: USERFIL+1
Function Call: WRITE
  • Prompt: !,"Holders are:"
  • Line Location: US0+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to see the NEW PERSON file? NO// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: U0+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to see the members of a Mail Group? NO// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: U1+0
Function Call: WRITE
  • Prompt: !,"Members are:"
  • Line Location: U2+0
Function Call: WRITE
  • Prompt: !,?5
  • Line Location: U3+0
Function Call: WRITE
  • Prompt: $S('X:X,'$D(^VA(200,X,0)):X,1:$P(^VA(200,X,0),U,1))
  • Line Location: U3+0
Info |  Source |  Entry Points |  Interaction Calls