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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: AKMOSKEY

Package: IHS Kernel Menu Options

Routine: AKMOSKEY


Information

AKMOSKEY ;OHPD-TUCSON/BRJ ASSIGN NAMESPACE SECURITY KEYS TO USERS [ 04/22/93 10:41 AM ]

Source Information

Source file <AKMOSKEY.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  YN^DICN  ^DIE  
IHS VA Utilities 1 ^XBKSET  

Entry Points

Name Comments DBIA/ICR reference
ASSGNKEY
EN ; ENTRY TO PROGRAM
GETNSP ; Get security key namespaces
GETUSER
XIT ;
ASSGNLP ; LOOP DOWN AKMO("KEY TBL","KEYNSP",holder) and assign the security keys
KILL ; KILL VARIABLES

External References

Name Field # of Occurrence
^%DT EN+6
^DIC GETUSER+5
YN^DICN GETNSP+8
^DIE ASSGNKEY+3
^XBKSET EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"You are running Kernel ",AKMO("KERNEL VERSION"),". This program requires Kernel 7.0 or later version!",!!,"No action taken!!",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"I'm ready to assign security keys but. . .",!,"Please note - the POSTMASTER will be the assignee.",!
  • Line Location: EN+4
Function Call: READ
  • Timeout: "^"[AKMO("KEYNSP")
  • Line Location: GETNSP+3
Function Call: WRITE
  • Prompt: !!,?5,"Enter the leading characters of the package namespace.",!,?15,"Ex: APCD for PCC Data Entry ",!,?5,"OR - to select all keys, enter an asterisk (*).",!
  • Line Location: GETNSP+4
Function Call: WRITE
  • Prompt: !!,"Selecting ALL security keys supercedes previously selected namespace, if any, for this iteration."
  • Line Location: GETNSP+6
Function Call: WRITE
  • Prompt: !!,*7,"Do you really want to assign all security keys at this time"
  • Line Location: GETNSP+7
Function Call: WRITE
  • Prompt: !!,"O.K.",!
  • Line Location: GETNSP+10
Function Call: WRITE
  • Prompt: !,*7,?10,"The ",AKMO("KEYNSP")," namespace does not have any security keys!",!
  • Line Location: GETNSP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: GETUSER+5
Function Call: WRITE
  • Prompt: !!,"Assigning security keys. . . ",!
  • Line Location: ASSGNLP+2
Function Call: WRITE
  • Prompt: !,AKMO("KEY"),?34,"already assigned to <",AKMO("HOLDER"),">."
  • Line Location: ASSGNLP+13
Function Call: WRITE
  • Prompt: !,AKMO("KEY"),?30,"Denied! You are not allowed to assign this key."
  • Line Location: ASSGNLP+14
Function Call: WRITE
  • Prompt: !!,*7,"FileManager error condition returned from ^DIE call while updating",!,?3,AKMO("KEY")," security key for ",AKMO("HOLDER"),!,?3,"Security key was not assigned."
  • Line Location: ASSGNKEY+5
Function Call: WRITE
  • Prompt: !,AKMO("KEY"),?42,"assigned to <",AKMO("HOLDER"),">."
  • Line Location: ASSGNKEY+6
Function Call: WRITE
  • Prompt: !!,*7,"No selection of security keys made. B y e . . . .",!
  • Line Location: XIT+1
Function Call: WRITE
  • Prompt: !!,*7,?12,"<DONE>"
  • Line Location: XIT+2
Routine Call
  • DIE
  • Line Location:
    • ASSGNKEY+3
Routine Call
  • DIC
  • Line Location:
    • GETUSER+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19.1 - [#19.1] GETNSP+14, ASSGNLP+9, ASSGNLP+12
^VA(200 - [#200] ASSGNLP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETNSP+8*, GETNSP+9
%DT EN+6*, KILL+1!
AKMO EN+2!, KILL+1!
AKMO("DATE" EN+6*, ASSGNKEY+2
AKMO("HOLDER DFN" , ASSGNLP+7*, ASSGNLP+13, ASSGNKEY+1
AKMO("HOLDER" ASSGNLP+5*, ASSGNLP+6*, ASSGNLP+7, ASSGNLP+13, ASSGNKEY+5, ASSGNKEY+6
AKMO("KERNEL VERSION" , EN+2
AKMO("KEY DFN " , ASSGNLP+12*, ASSGNLP+13, ASSGNKEY+1
AKMO("KEY TBL " , GETNSP+3, GETNSP+11!, GETNSP+12*, GETNSP+16*, GETUSER+7*, ASSGNLP+4, ASSGNLP+6, ASSGNLP+7, XIT+1
AKMO("KEY" GETNSP+14*, GETNSP+15, ASSGNLP+8*, ASSGNLP+9*, ASSGNLP+10, ASSGNLP+11*, ASSGNLP+12, ASSGNLP+13, ASSGNKEY+5, ASSGNKEY+6
AKMO("KEYNSP" GETNSP+3*, GETNSP+4, GETNSP+5, GETNSP+14, GETNSP+15, GETNSP+16, GETUSER+6*, GETUSER+7*, ASSGNLP+3*, ASSGNLP+4*
, ASSGNLP+6, ASSGNLP+7, ASSGNLP+8, ASSGNLP+11
AKMO("NO MORE KEYS" , GETNSP+1, GETNSP+2*, GETNSP+13*, GETNSP+17*, GETUSER+1, GETUSER+8*
DA ASSGNKEY+1*, ASSGNKEY+4!, KILL+1!
DIC GETUSER+2*, KILL+1!
DIC("A" GETUSER+3*
DIC(0 GETUSER+4*
DIE ASSGNKEY+1*, ASSGNKEY+4!, KILL+1!
DR ASSGNKEY+1*, ASSGNKEY+4!, KILL+1!
DR(2 ASSGNKEY+2*
DT KILL+1!
DUZ KILL+1!
DUZ(0 EN+5*
U GETUSER+7
X EN+6*, GETUSER+5, GETUSER+7, KILL+1!
Y EN+6, GETUSER+7, ASSGNKEY+5, KILL+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All