Routine: AUSAUTH

Information

AUSAUTH ;SET AUTHORITIES [ 06/06/87 1:53 PM ]

Package	Total	Call Graph
Kernel	1	CURRENT^%ZIS
Uncategorized	1	^%AUDSET

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

Name	Field # of Occurrence
^%AUDSET	BEGIN+4
CURRENT^%ZIS	BEGIN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This program sets FileMan dictionary authorities by a range" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"of dictionary numbers.",!! Line Location: BEGIN+2
Function Call: READ	Timeout: AUSAASK="" Variable: AUSAASK S Line Location: ASK+0
Function Call: WRITE	Prompt: *7 Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"I am going to set the following authorities:",! Line Location: ASK+4
Function Call: READ	Timeout: AUSAX="" Variable: AUSAX S Line Location: ASK2+0
Function Call: WRITE	Prompt: *7 Line Location: ASK2+0
Function Call: WRITE	Prompt: ! Line Location: ASK2+2
Function Call: WRITE	Prompt: !,"Enter ",AUSAX," authority: " Line Location: GETAUTH+1
Function Call: WRITE	Prompt: !,AUSAX,?6," to """,@("AUSA("""_AUSAX_""")"),"""" Line Location: PRTAUTH+1
Function Call: WRITE	Prompt: !,@("$P(^DIC("_AUSAFILE_",0),U,1)"),$S(AUSAASK:"..OK? Y// ",1:"") Line Location: PROCESS+2
Function Call: READ	Timeout: AUSAANS="" Variable: AUSAANS S Line Location: P2+0
Function Call: WRITE	Prompt: " Skipping" Line Location: P2+2
Function Call: WRITE	Prompt: " Done" Line Location: P2SETS+6
Function Call: WRITE	Prompt: *7 Line Location: P2ERR+0
Function Call: WRITE	Prompt: @BS," ",@BS Line Location: P2ERR+0
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: EOJ+5
Routine Call	%ZIS Line Location: BEGIN

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("AUDSET"	BEGIN+5, ASK2+3, EOJ+1!

Name	Field # of Occurrence
AUSA	ASK+3!, EOJ+2!
AUSA("DD"	P2SETS+1
AUSA("DEL"	P2SETS+2
AUSA("LAYGO"	P2SETS+3
AUSA("RD"	P2SETS+4
AUSA("WR"	P2SETS+5
AUSAANS	PROCESS+1, P2, P2+1, P2ERR, EOJ+3!
AUSAASK	ASK, ASK+1, PROCESS+2, P2, EOJ+3!
AUSAFILE	ASK2+3*, PROCESS+2, P2SETS+1, EOJ+3!
AUSAI	P2ERR*, EOJ+3!
AUSAL	ASK2+3*, EOJ+3!
AUSAX	ASK+3, ASK+5, ASK2*, ASK2+1, GETAUTH+1, PRTAUTH+1, EOJ+3!
BS	P2ERR, EOJ+4!
DUZ(0	BEGIN*
FF	EOJ+4!
RM	EOJ+4!
SL	EOJ+4!
SUB	EOJ+4!
U	BEGIN*
XY	EOJ+4!