Routine: AKMOSKEY

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

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

>>	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!

Customize PDF page

Package: IHS Kernel Menu Options

Routine: AKMOSKEY

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: