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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 KEY^XQ6  UNABLE^XQ6B  EN^XQH  
VA FileMan 3 ^DIC  FILE^DICN  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 2 XQ6  XQSMD21  

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

External References

Name Field # of Occurrence
^DIC HOLDER+6, HOLDER+7, KEYFIL+3, US0U0+1, U2
FILE^DICN ACT2+6
^DIK ACT3+1
KEY^XQ6 OK1+1
UNABLE^XQ6B ACT2+5
EN^XQH HOLDER+3

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
Routine Call
  • DIC
  • Line Location:
    • HOLDER+6
    • HOLDER+7
    • KEYFIL+3
    • US0
    • U0+1
    • U2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19.1 - [#19.1] ACT+1, LSTKEY+2
^VA(200 - [#200] HOLDER+9, ACT2+3, ACT2+4, ACT3LSTHOL+2, US1U3
^XMB(3.8 - [#3.8] HOLDER+9, U3
^XUSEC("XUMGR" KEYFIL+1

Label References

Name Line Occurrences
ACT1 ACT+1
ACT2 ACT1+1
ACT3 ACT2+3
EACH HOLDER+6, HOLDER+9
HOLDER HOLDER+2, HOLDER+3, HOLDER+6, HOLDER+7, HOLDER+10
LSTHOL HOLDER+3, OK+1
LSTKEY OK+1
OK HOLDER+2
OK1 OK1OK1+1
OUT HOLDER+1, OK1OK1+1
U0 USERFIL+1, US0
U1 U0
U2 U3
U3 U3
US0 US1
US1 US1
USERFIL HOLDER+3

Naked Globals

Name Field # of Occurrence
^( HOLDER+9, U3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OUT+1!
DA OUT+1!, ACT3+1*
DA(1 ACT2+6*, ACT3+1*
DIC HOLDER+6*!, HOLDER+7*!, OUT+1!, ACT2+6*, KEYFIL+3*!, US0*!, U0*, U0+1!, U2*!
DIC("P" ACT2+6*
DIC("S" HOLDER+7*, KEYFIL+2*, U2*
DIC(0 HOLDER+6*, HOLDER+7*, ACT2+6*, KEYFIL+3*, US0*, U0*, U2*
DIE OUT+1!
>> DIK ACT3+1*
>> DINUM ACT2+6*
DR OUT+1!
DTIME HOLDER+1, OK1OK1+1, KEYFIL+3, USERFIL+1, U0U1
DUZ HOLDER+7, EACH+1, KEYFIL+1, U2
>> DUZ(0 KEYFIL+1
U HOLDER+1, HOLDER+9, OK1OK1+1, ACT+1, ACT2+3, LSTKEY+2, LSTHOL+2, US1U3
X HOLDER+1*, HOLDER+2, HOLDER+3, HOLDER+4*, HOLDER+6, HOLDER+7*, OK1*, OK1+1*, OUT+1!, ACT2+6*
KEYFIL+3*, USERFIL+1*, U0*, U1*, U3*
XMDUZ HOLDER+7*, OUT+1!, U2*
XQAL OK+2, ACT+1, OUT+1!, ACT2+3
XQBOSS EACH+1, OUT+1!, KEYFIL+1*, KEYFIL+2
XQDA OK+2, ACT+1, OUT+1!, ACT2+4, ACT2+6, ACT3ACT3+1
XQEND ACT2+1~, ACT2+2*, ACT2+5
XQH HOLDER+3*, OUT+1!
XQHOLD OUT+1!
XQHOLD( EACH+2!, EACH+3*, ACT1+1, LSTHOL+2
XQHOLD(0 HOLDER+1, HOLDER+2, LSTHOL+1
XQI HOLDER+6*, HOLDER+9*, EACH+1, EACH+2, EACH+3, OUT+1!, LSTKEY+2*, LSTHOL+2*
>> XQII US0*, US1*, U2*, U3*
XQJ HOLDER+9*, OUT+1!, LSTKEY+2*, LSTHOL+2*
XQK ACT+1*, OUT+1!, ACT2+4, ACT2+5, ACT2+6, ACT3ACT3+1, LSTKEY+2*, LSTHOL+2*
XQKEY OUT+1!
XQKEY( ACT+1, LSTKEY+2
XQKEY(0 LSTKEY+1
XQM HOLDER+4*, EACH+2, OUT+1!, ACT1+1*, ACT2+3, ACT2+4, ACT2+5, ACT2+6, ACT3ACT3+1
XQNM OUT+1!, ACT2+3*
XQSBNFDT OUT+1!
Y HOLDER+6, HOLDER+7, HOLDER+9, OUT+1!, US0US1U2U3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All