Routine: ATXDELA

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIK

Package

Total

Call Graph

^DIC YN^DICN ^DIE ^DIK

Name	Comments	DBIA/ICR reference
GETVAL	;GET RANGE OF DFNS
EOJ	;
DFNS	;GET LO AND HIGH DFNS FOR THIS TAXONOMY
START	;
CALLDIK	;
DIEDELT	;
TSKMN	;
ASK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Delete a taxonomy created by any user.",!! Line Location: ATXDELA+3
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to delete this entire taxonomy" Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"deleting taxonomy...hold on" Line Location: TSKMN+1
Routine Call	DIE Line Location: DIEDELT+2
Routine Call	DIC Line Location: ASK+2

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	DFNS+1, DFNS+3
^ICD9 - [#80]	DIEDELT+1
^ICD9("BA"	GETVAL+1, GETVAL+3
^TMP("ATXTAX"	TSKMN+4!

Name	Field # of Occurrence
^(	DFNS+3
^(0	DFNS+3

Name	Field # of Occurrence
>> %	ASK+4*, ASK+5, ASK+6, ASK+7, ASK+8
ATXDEL	ATXDELA+4*, EOJ+1!
ATXDFN	TSKMN+6!, GETVAL+1, GETVAL+3, DIEDELT+1, DIEDELT+2, EOJ+1!
ATXFLG	ATXDELA+4*, EOJ+1!
ATXHI	TSKMN+6!, EOJ+1!
ATXHIV	DFNS+3*, GETVAL+2, GETVAL+3, EOJ+1!
ATXHIVO	TSKMN+6!
ATXL	ATXDELA+6, DFNS+3, EOJ+1!
ATXLO	EOJ+1!
ATXLOV	TSKMN+6!, DFNS+3, GETVAL+1, GETVAL+2, GETVAL+3, EOJ+1!
ATXQT	ASK+5*, TSKMN+6!, EOJ+1!
ATXSS	TSKMN+6!, DFNS+3*, EOJ+1!
ATXSTP	ATXDELA+6, START+1, ASK+1, ASK+3, ASK+8*, EOJ+1!
ATXX	ASK+5*, TSKMN+4, TSKMN+6!, DFNS+1, DFNS+3, DIEDELT+1, DIEDELT+2, CALLDIK+2, CALLDIK+3, EOJ+1!
>> DA	DIEDELT+2, CALLDIK+2, CALLDIK+3*
DIC	ASK+2*!
DIC("DR"	ASK+2*
DIC("S"	ASK+2*
DIC(0	ASK+2*
DIE	DIEDELT+2*!
DIK	CALLDIK+2!, CALLDIK+3!
>> DR	DIEDELT+2*
>> DR(2	DIEDELT+2*
U	ATXDELA+4*, DFNS+1, DFNS+3
>> Y	ASK+3, ASK+5
>> ZTQUEUED	TSKMN+5
>> ZTREQ	TSKMN+5*

Information