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

Package: Kernel

Routine: XQSMD3


Information

XQSMD3 ; SEA/MJM - Secure MenuMan Delegation utilities; 12/11/07

Source Information

Source file <XQSMD3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  EN^XQH  ^XQSMD31  
VA FileMan 2 ^%DT  ^DIC  

Entry Points

Name Comments DBIA/ICR reference
INIT
USER1 ;Find the user who's delegated options will be transfered.
RPLC
USER2 ;Get the name of the person to whom these options will be transfered
ASK ;See if we all understand eachother.
OUT

External References

Name Field # of Occurrence
^%DT INIT+3
^%ZIS INIT+1
^DIC INIT+4, USER1+2, USER1+4, USER2+2, USER2+4
EN^XQH USER1+3, RPLC+1, USER2+3, ASK+3
^XQSMD31 ASK+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** DEVICE ERROR ***",!,?5,"-exiting-"
  • Line Location: INIT+1
Function Call: READ
  • Prompt: !!
  • Variable: "Please enter the user currently holding the options
  • Timeout: ",XQ:DTIME
  • Line Location: USER1+1
Function Call: WRITE
  • Prompt: !!,"Enter delegate's name,'^' to quit,'??' for User list, or '???' for help.",!
  • Line Location: USER1+1
Function Call: WRITE
  • Prompt: !!,"Not a know user. Try again or enter a '^' to quit."
  • Line Location: USER1+4
Function Call: WRITE
  • Prompt: !!,Y(0,0)," has not been delegated any menu options to transfer."
  • Line Location: USER1+5
Function Call: WRITE
  • Prompt: !!,"You may not, in this case, remove the options of ",XQU1
  • Line Location: USER1+7
Function Call: READ
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: RPLC+0
Function Call: WRITE
  • Prompt: !!,"Should ALL delegated options be removed from ",XQU1,!," after they have been transferred? N// "
  • Line Location: RPLC+0
Function Call: WRITE
  • Prompt: !!,"Please enter 'Y' or 'N', '^' to quit, or '??' for help.",!
  • Line Location: RPLC+0
Function Call: WRITE
  • Prompt: !,"Please answer 'Y' or 'N' "
  • Line Location: RPLC+2
Function Call: READ
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: USER2+1
Function Call: WRITE
  • Prompt: !!,"Please enter the user who will get the same options as ",XQU1,!," now has: "
  • Line Location: USER2+1
Function Call: WRITE
  • Prompt: !!,"Enter User's name,'^' to quit,'??' for User list, or '???'for help.",!
  • Line Location: USER2+1
Function Call: WRITE
  • Prompt: !!,"Sorry, this person is not in the User File. Try again or enter '^' to quit."
  • Line Location: USER2+4
Function Call: WRITE
  • Prompt: !!,"Sorry, this person is not a current user. Try again or enter '^' to quit."
  • Line Location: USER2+5
Function Call: WRITE
  • Prompt: !!,"Sorry, this is illogical: it's the same person!"
  • Line Location: USER2+7
Function Call: WRITE
  • Prompt: !!,"Sorry, you can't be your own delegate."
  • Line Location: USER2+8
Function Call: WRITE
  • Prompt: !!!,"You want to assign the options currently held by ",XQU1,!,?5,"to ",XQU2
  • Line Location: ASK+1
Function Call: READ
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,*7,"Please answer 'Y' or 'N'."
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"Request to remove delegated options from ",XQU1," will be queued. "
  • Line Location: ASK+5
Routine Call
  • DIC
  • Line Location:
    • INIT+4
    • USER1+2
    • USER1+4
    • USER2+2
    • USER2+4
Routine Call
  • %ZIS
  • Line Location:
    • INIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INIT+3
^TMP($J OUT!
^VA(200 - [#200] INIT+5, USER1+5, USER1+7, USER2+5
^XUSEC("XUMGR" INIT

Label References

Name Line Occurrences
ASK ASK+3, ASK+4
INIT ASK+3
OUT INIT+1, INIT+4, INIT+5, USER1+1, RPLCUSER2+1, USER2+8, ASK+3
RPLC RPLCRPLC+1, RPLC+2
USER1 USER1+1, USER1+2, USER1+3, USER1+4, USER1+5
USER2 USER1+7, USER2+1, USER2+2, USER2+3, USER2+4, USER2+5, USER2+7

Naked Globals

Name Field # of Occurrence
^( USER2+5
^(0 USER1+5
^(19 INIT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OUT!
%DT INIT+3*!
C OUT!
DA OUT!
DIC INIT+4*!, USER1+2*!, USER1+4*, USER2+2*!, USER2+4*, OUT!
DIC(0 INIT+4*, USER1+2*, USER1+4*, USER2+2*, USER2+4*
DIK OUT!
DINUM OUT!
DISYS OUT!
DTIME INIT+2*, USER1+1, RPLCUSER2+1, ASK+3
DUZ INITINIT+4, INIT+5, USER2+8
>> DUZ(0 INIT
IO INIT+1
IOF INIT+1
IOM INIT+1
>> IOP INIT+1*
IOSL INIT+1
POP INIT+1, OUT!
U INIT*, INIT+5, USER1+1, USER1+7, RPLCUSER2+1, USER2+5, ASK+3
X INIT+3*, INIT+4*, USER1+2*, USER1+4*, USER2+2*, USER2+4*, OUT!
XQ USER1+1*, USER1+2, USER1+3, USER1+4, RPLC*, RPLC+1, RPLC+2, RPLC+3, USER2+1*, USER2+2
USER2+3, USER2+4, ASK+3*, ASK+4, OUT!
XQAL OUT!
XQD OUT!
XQDATE INIT+3*, OUT!
XQDEL INIT*, USER1+7*, RPLC+3*, ASK+2, ASK+5, OUT!
XQDOP INIT*, OUT!
XQDT INIT+3*, OUT!
XQDUZ OUT!
XQEND OUT!
XQH USER1+3*, RPLC+1*, USER2+3*, ASK+3*, OUT!
XQHOLD OUT!
XQHOLD( USER2+6*
XQI OUT!
XQJ OUT!
XQK OUT!
XQKEY OUT!
XQL OUT!
XQLEV INIT*, INIT+5*, USER1+7, OUT!
XQLK OUT!
XQM OUT!
XQMG OUT!
XQMGR INIT+4*, OUT!
XQN OUT!
XQNAM OUT!
XQNGO INIT*, OUT!
XQON OUT!
XQON0 OUT!
>> XQPERX USER1+6*
XQPRO INIT*, INIT+5, OUT!
XQSTART OUT!
XQT OUT!
>> XQU1 USER1+6*, USER1+7, RPLCUSER2+1, ASK+1, ASK+2, ASK+5
>> XQU1L USER1+7*
>> XQU1Y USER1+6*, USER1+7, USER2+7
>> XQU2 USER2+6*, ASK+1
XQUF OUT!
XY OUT!
Y INIT+3, INIT+4, USER1+4, USER1+5, USER1+6, USER2+4, USER2+5, USER2+6, USER2+7, USER2+8
, OUT!
Y(0 INIT+4, USER1+5, USER1+6, USER2+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All