Routine: AKMOSUSR

Information

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

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

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

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

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

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

Name	Field # of Occurrence
^(	FINDHLDR+4

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

Name	Field # of Occurrence
$T(	EN+2, EN+3, EN+4, EN+5, OK+5, OK+10, XIT+1