Routine: AUKD

Package	Total	Call Graph
Uncategorized	4	EN1^%AUDSET ^%AUGXFR ^%AUKD2 ^%AUKD3
Utilities	1	EN1^AURESID

Entry Points

Name	Comments	DBIA/ICR reference
TMP
BEGIN
CHECKDD	; CHECK ^DD FOR DANGLING ENTRIES
LO
NOTES	; This routine deletes FileMan dictionaries, and optionally their ; globals, TEMPLATES and AUTHORITIES, by a range of dictionary ; numbers, or if called from another routine, by a predefined ; set of dictionaries. The assumptions made by this routine ; are that ^UTILITY, ^DIC, and ^DD are not UCI TRANSLATED. ; Any other globals may be translated, but the KILLs will ; take place in the current UCI only.
CHKVAL	; CHECK G^T VALUES
LIST	; LIST FILE INFO
CONFIRM	; SHOW AND ASK
EOJ	;
EN1	;
EN2	;
HI
DEL
ASK2
ASK	;
MODIFY	;

External References

Name	Field # of Occurrence
EN1^%AUDSET	EN1+9
^%AUGXFR	EOJ+2
^%AUKD2	EN2+7
^%AUKD3	EN2+11
EN1^AURESID	EOJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This program deletes FileMan dictionaries, and optionally their" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"globals, TEMPLATES and AUTHORITIES, by a range of dictionary numbers.",!! Line Location: BEGIN+2
Function Call: READ	Prompt: "Enter first dictionary number to be deleted: " Formatting: ! Timeout: AUKDLO'=+AUKDLO Variable: AUKDLO G Line Location: LO+0
Function Call: READ	Timeout: AUKDHI="" Variable: AUKDHI S Line Location: HI+0
Function Call: READ	Timeout: "DAS"'[AUKDDEL Line Location: DEL+0
Function Call: READ	Timeout: "DAS"'[AUKDTMP Variable: AUKDTMP G Line Location: TMP+0
Function Call: WRITE	Prompt: !!,"AUKDLO and/or AUKDHI does not exist!" Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"Invalid AUKDDEL --->",AUKDDEL,"<---" Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"Invalid AUDKTMP --->",AUKDTMP,"<---" Line Location: EN1+8
Function Call: WRITE	Prompt: !!,"No dictionaries were selected." Line Location: EN1+11
Function Call: WRITE	Prompt: "." Line Location: CHECKDD+2
Function Call: WRITE	Prompt: !!,"^UTILITY(""AUDSET"",$J) is not defined!" Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"* Don't mess with files less than 2!! ",7 Line Location: EN2+2
Function Call: WRITE	Prompt: !!,"One or more invalid GLOBAL^TEMPLATE disposition values encountered!" Line Location: EN2+5
Function Call: WRITE	Prompt: !,"Invalid value ",AUKDFILE,"=",AUKDX Line Location: CHKVAL+5
Function Call: WRITE	Prompt: !!," NUMBER",?14,"NAME",?45,"G^T",?50,"DATA GLOBAL",! Line Location: CONFIRM+2
Function Call: WRITE	Prompt: !!,"The above list of dictionaries will be deleted in UCI ",AUKDUCI,". Data" Line Location: CONFIRM+4
Function Call: WRITE	Prompt: !,"globals, TEMPLATES and AUTHORITIES, will be kept, deleted, or asked depending" Line Location: CONFIRM+5
Function Call: WRITE	Prompt: !,"on flag. '?' in G position indicates invalid data global." Line Location: CONFIRM+6
Function Call: WRITE	Prompt: !!,"[S]ave, [D]elete, [A]sk. Globals to be deleted are also marked" Line Location: CONFIRM+7
Function Call: WRITE	Prompt: !," by '*' in position 1." Line Location: CONFIRM+8
Function Call: READ	Timeout: AUKDX="^" Line Location: CONFIRM+9
Function Call: WRITE	Prompt: ! Line Location: CONFIRM+13
Function Call: WRITE	Prompt: !,$S($P(AUKDX,U,1)="D":"*",1:" "),AUKDFILE,?14,$E($P(^DIC(AUKDFILE,0),U,1),1,30),?45,$E(AUKDX,1,3),?50,$S($P(AUKDX,U,3)="":"<NONE>",1:$P(AUKDX,U,3)) Line Location: LIST+1
Function Call: WRITE	Prompt: *7 Line Location: MODIFY+1
Function Call: WRITE	Prompt: ! Line Location: MODIFY+5
Function Call: WRITE	Prompt: !,"Do you want to delete the data global for ",AUKDFILE," ",$P(^DIC(AUKDFILE,0),U,1)," (Y/N) N//" Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Do you want to delete the TEMPLATES and AUTHORITIES for ",AUKDFILE," ",$P(^DIC(AUKDFILE,0),U,1)," (Y/N) N//" Line Location: ASK2+1
Function Call: WRITE	Prompt: !,"Restoring saved ^DD nodes. <WAIT>" Line Location: EOJ+2
Function Call: WRITE	Prompt: !!,"DONE",!! Line Location: EOJ+6

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN1+10, CHECKDD+1
^DIC - [#1]	EN2+12, LIST+1, ASK+2, ASK2+1
^DIC(0	EN2+13*
^UTILITY("AUDSET"	EN1+10, EN1+11, EN1+12, CHECKDD+2, EN2+1, EN2+2, EN2+4, CONFIRM+1, CONFIRM+3, CONFIRM+13 , MODIFY+1, MODIFY+3!, MODIFY+4, ASK+3, ASK+4, ASK2+2, ASK2+3, EOJ+3!
^UTILITY("AUKD"	EOJ+2, EOJ+3!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUDSHI	EN1+9*
>> AUDSLO	EN1+9*
AUKDASK	EN2+10!, CONFIRM+3*, CONFIRM+12, EOJ+4!
AUKDC	EN2+12*, EN2+13, EOJ+4!
AUKDDEL	DEL, DEL+1, TMP, TMP+1, EN1+3, EN1+4, EN1+5, EN1+12, EN2+6!, CHKVAL+4* , EOJ+4!
AUKDERR	EN2+6!, CHKVAL+1, CHKVAL+2, CHKVAL+4*, CHKVAL+5, EOJ+4!
AUKDFILE	EN1+10, EN1+12, CHECKDD+1, CHECKDD+2, EN2+4, EN2+12, CHKVAL+5, CONFIRM+3, CONFIRM+13, LIST+1 , MODIFY+1*, MODIFY+3, MODIFY+4, MODIFY+5, ASK+2, ASK+3, ASK+4, ASK2+1, ASK2+2, ASK2+3 , EOJ+4!
AUKDFLD	EOJ+4!
AUKDFLG	EN2+4, EN2+5, EN2+6!, EN2+8, EN2+9, EN2+10!, CHKVAL+5, CONFIRM+1, CONFIRM+10*, EOJ+4!
AUKDG	EOJ+4!
AUKDHI	HI*, EN1+1, EN1+9, EN1+10, EN2+2!, EOJ+1, EOJ+4!
AUKDL	EN1+10, EN1+12, EN2+4, EN2+12, CONFIRM+3, CONFIRM+13, EOJ+4!
AUKDLAST	EN2+12*, EN2+13, EOJ+4!
AUKDLO	LO*, HI, EN1+1, EN1+9, EN1+10, EN2+2!, EOJ+1, EOJ+4!
AUKDNDIC	EOJ+4!
AUKDTMP	TMP, TMP+1, EN1+6, EN1+7, EN1+8, EN1+12, EN2+6!, CHKVAL+4*, EOJ+4!
AUKDUCI	CONFIRM+4, EOJ+4!
AUKDX	EN2+4, EN2+6!, EN2+10!, CHKVAL+2, CHKVAL+4, CHKVAL+5, CONFIRM+3, CONFIRM+9, CONFIRM+10, CONFIRM+11 , CONFIRM+13, LIST+1, MODIFY+5*, ASK+1, ASK2, EOJ+4!
AUKDY	EN2+10!, MODIFY+2, MODIFY+3, ASK+2, ASK+3, ASK2+1*, ASK2+2, EOJ+4!
>> AURHI	EOJ+1*
>> AURLO	EOJ+1*
DUZ(0	BEGIN, EN1+2, EN2+3*
FROM	EOJ+2*, EOJ+5!
TO	EOJ+2*, EOJ+5!
U	BEGIN, EN1+2, EN1+12, EN2+3*, EN2+13, CHKVAL+4, LIST+1, MODIFY+4, ASK+1, ASK+2 , ASK+3, ASK+4, ASK2, ASK2+1, ASK2+2, ASK2+3

Customize PDF page

Package: Utilities

Routine: AUKD

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ASK	CONFIRM+13, MODIFY+5
ASK2	ASK+1
CHECKDD	EN1+10
CHKVAL	EN2+4
CONFIRM	EN2+8, CONFIRM+11, CONFIRM+14
DEL	DEL
EN2	EN1+13
EOJ	LO, HI, EN1+1, EN1+5, EN1+8, EN1+11, EN2+1, EN2+2, EN2+5, EN2+9 , EN2+14
LIST	CONFIRM+3
MODIFY	CONFIRM+11, MODIFY+1
TMP	TMP