Routine: XBSAUTH

Package	Total	Call Graph
IHS VA Utilities	1	^XBDSET
Kernel	1	^%ZIS

Package

Total

Call Graph

Name	Comments	DBIA/ICR reference
P2	;
PRTAUTH	; PRINT DICTIONARY AUTHORITIES
P2ERR	;
ASK2	;
PROCESS	;
GETAUTH	; GET DICTIONARY AUTHORITIES
START	;
EOJ	;
ASK	;
P2SETS	;

Name	Field # of Occurrence
^%ZIS	START+3
^XBDSET	START+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7," Insufficient FileMan access. DUZ(0) is not ""@""." Line Location: START+1
Function Call: WRITE	Prompt: !!,"^XBSAUTH - This program sets FileMan dictionary authorities." Line Location: START+4
Function Call: WRITE	Prompt: !!,"Do you want to be asked before setting each file? (Y/N) Y// " Line Location: ASK+1
Function Call: WRITE	Prompt: *7 Line Location: ASK+5
Function Call: WRITE	Prompt: !!,"To delete a particular authority enter '@@'",! Line Location: ASK+7
Function Call: WRITE	Prompt: !!,"Bye" Line Location: ASK+11
Function Call: WRITE	Prompt: !!,"I am going to set the following authorities:",! Line Location: ASK+12
Function Call: WRITE	Prompt: !!,"Do you want to continue? (Y/N) N// " Line Location: ASK2+1
Function Call: WRITE	Prompt: *7 Line Location: ASK2+5
Function Call: WRITE	Prompt: ! Line Location: ASK2+7
Function Call: WRITE	Prompt: !,"Enter ",XBSAX," authority: " Line Location: GETAUTH+1
Function Call: WRITE	Prompt: !,XBSAX,?6," to """,@("XBSA("""_XBSAX_""")"),"""" Line Location: PRTAUTH+1
Function Call: WRITE	Prompt: !,@("$P(^DIC("_XBSAFILE_",0),U,1)") Line Location: PROCESS+2
Function Call: WRITE	Prompt: !?4,"Current authorities are: " Line Location: PROCESS+3
Function Call: WRITE	Prompt: "..OK? Y// " Line Location: PROCESS+3
Function Call: WRITE	Prompt: ?31,XBSAX,?38,@("^("""_XBSAX_""")"),! Line Location: PROCESS+4
Function Call: READ	Timeout: $G(DTIME,999) Variable: XBSAANS Line Location: P2+1
Function Call: WRITE	Prompt: " Skipping" Line Location: P2+3
Function Call: WRITE	Prompt: *7 Line Location: P2ERR+1
Function Call: WRITE	Prompt: @IOBS," ",@IOBS Line Location: P2ERR+2
Routine Call	%ZIS Line Location: START+3

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("XBDSET"	START+6, ASK2+9, EOJ+1!

Name	Line Occurrences
ASK	ASK+5
ASK2	ASK2+5
EOJ	ASK2+6, ASK2+10
GETAUTH	ASK+10
P2	P2+1
P2ERR	P2+1
P2SETS	P2+2
PROCESS	ASK2+9
PRTAUTH	ASK+13

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P2ERR+2*
DTIME	ASK+2, ASK2+2, P2+1
DUZ(0	START+1
>> IOBS	P2ERR+2
>> IOP	START+2*
U	START+2*
X	P2SETS+1~, P2SETS+2*
XBSA	ASK+9!, EOJ+1!
XBSA(	P2SETS+2
XBSAANS	PROCESS+1, P2+1, P2+2, P2ERR+2, EOJ+1!
XBSAASK	ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, PROCESS+3, P2+1, EOJ+1!
XBSAF	ASK+8, ASK+11, GETAUTH+3, EOJ+1!
XBSAFILE	ASK2+8, ASK2+9, PROCESS+2, PROCESS+4, P2SETS+2, EOJ+1!
XBSAI	EOJ+1!
XBSAL	ASK2+9*, EOJ+1!
XBSAX	ASK+10, ASK+13, ASK2+2, ASK2+3, ASK2+4, ASK2+5, ASK2+6, GETAUTH+1, GETAUTH+3, PRTAUTH+1 , PROCESS+4, EOJ+1!

Customize PDF page

Package: IHS VA Utilities

Routine: XBSAUTH

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: