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 |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AKMOSUSR

Package: IHS Kernel Menu Options

Routine: AKMOSUSR


Information

AKMOSUSR ;BRJ/OHPD/TUCSON ASSIGN ALL SECURITY KEYS TO SUPER USER [ 04/02/2003 8:51 AM ]

Source Information

Source file <AKMOSUSR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIE  ^DIR  
IHS VA Utilities 1 ^XBKSET  

Entry Points

Name Comments DBIA/ICR reference
ASSGNKEY ; ASSIGN XUSR THIS SECURITY KEY
EN ;
OK ;
XIT ;
FINDKEYS ; FIND THE SECURITY KEYS IN ^DIC(19.1,
FINDHLDR ; CHECK TO SEE IF XUSR ALREADY HOLDS THE KEY

External References

Name Field # of Occurrence
^%DT FINDKEYS+1
^DIE ASSGNKEY+6
^DIR OK+6
^XBKSET OK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"You must have KERNEL 7/FILEMAN 19 loaded to use this routine!!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$T(+0),*7,?12,"Please enter the name of your ""SUPER USER"".",!!,?20,"<ADAM,ADAM> // "
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$T(+0),?12,"This program will check the security key file (^DIC(19.1))",!,?12,"and assign all security keys to your ""SUPERUSER""."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$T(+0),?12,"OK to continue <Y>es or <N>o? <No> // "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,$T(+0),?12,"That's a NO-GO!!"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!,*7,?5,"Cannot continue!! Superuser <",AKMOSUSR,"> was not found in the USER (^VA(200)) file."
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !!,*7,$T(+0),?12,"OOPS - - Your Security Key file (^DIC(19.1)) ""B"" cross reference is missing or incorrect.",!!,?12,$T(+0)," cannot continue. No action taken!!"
  • Line Location: OK+5
Function Call: WRITE
  • Prompt: !,"ABORTING..."
  • Line Location: OK+7
Function Call: WRITE
  • Prompt: !!,$T(+0),?12,"Superuser <",AKMOSUSR,"> had or was assigned each security key."
  • Line Location: OK+10
Function Call: WRITE
  • Prompt: !!,*7,$T(+0),?12,"<DONE>"
  • Line Location: XIT+1
Function Call: WRITE
  • Prompt: !,AKMOSUSR,?30," ASSIGNED KEY: ",?50,AKMOKNAM
  • Line Location: ASSGNKEY+3
Routine Call
  • DIE
  • Line Location:
    • ASSGNKEY+6
Routine Call
  • DIR
  • Line Location:
    • OK+6

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)
^DD(9.4 EN+1
^DIC(19.1 - [#19.1] FINDKEYS+3, ASSGNKEY+1
^VA(200 - [#200] OK+2, FINDHLDR+2, FINDHLDR+4

Label References

Name Line Occurrences
ASSGNKEY OK+9
FINDHLDR FINDKEYS+3
FINDKEYS OK+4
XIT EN+5, OK+3, OK+5, OK+7

Naked Globals

Name Field # of Occurrence
^( FINDHLDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT XIT+2!, FINDKEYS+1*
AKMOANS EN+4*, EN+5, XIT+2!
AKMODT XIT+2!, FINDKEYS+1*, ASSGNKEY+5
AKMODUZ OK+2*, OK+3, XIT+2!, FINDHLDR+2, FINDHLDR+4, ASSGNKEY+4
AKMOHIT XIT+2!, FINDHLDR+4*, FINDHLDR+5
AKMOHITS XIT+2!
AKMOHITS( FINDHLDR+2*, FINDHLDR+5*, ASSGNKEY+1, ASSGNKEY+4
AKMOHITX OK+9, XIT+2!, FINDKEYS+1*, FINDHLDR+2*, FINDHLDR+5*
AKMOHLDR XIT+2!, FINDHLDR+4*
AKMOKDFN OK+5, XIT+2!, FINDKEYS+1*, FINDKEYS+3*, FINDHLDR+2, FINDHLDR+4, FINDHLDR+5
>> AKMOKNAM ASSGNKEY+1*, ASSGNKEY+2, ASSGNKEY+3
AKMOL OK+2*, OK+9*, XIT+2!, FINDKEYS+3*, FINDHLDR+4*, ASSGNKEY+1, ASSGNKEY+4
AKMOLAST XIT+2!, FINDHLDR+4*, FINDHLDR+5
>> AKMONSLT ASSGNKEY+1*, ASSGNKEY+2
>> AKMONSPC OK+8*, ASSGNKEY+1, ASSGNKEY+2
>> AKMONXT FINDHLDR+5*
AKMOSKEY XIT+2!, FINDKEYS+1*, FINDKEYS+3*, FINDHLDR+1, FINDHLDR+2, FINDHLDR+5
>> AKMOSUSR EN+2*, OK+2, OK+3, OK+10, ASSGNKEY+3
AKMOXUSR OK+2*, XIT+2!
DA ASSGNKEY+4*, ASSGNKEY+6!
DIE ASSGNKEY+4*, ASSGNKEY+6!
DIR OK+6!
DIR("?" OK+6*
DIR("A" OK+6*
DIR(0 OK+6*
DR ASSGNKEY+4*, ASSGNKEY+6!
DR(2 ASSGNKEY+5*
>> DTOUT OK+7
>> DUOUT OK+7
DUZ(0 OK+1*
IO(0 ASSGNKEY+3
U XIT+2!, FINDKEYS+1*, FINDHLDR+2, FINDHLDR+4, FINDHLDR+5, ASSGNKEY+1
X OK+7, OK+8, XIT+2!, FINDKEYS+1*
Y XIT+2!, FINDKEYS+1

Marked Items

Name Field # of Occurrence
$T( EN+2, EN+3, EN+4, EN+5, OK+5, OK+10, XIT+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All