Routine: ATXTAXL

Information

ATXTAXL ; IHS/CMI/LAB - DISPLAY IND LISTS ;

Source file <ATXTAXL.m>

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIK
Taxonomy	1	^ATXTAXM

Package	Total	Caller Graph
Taxonomy	1	ATXTAXE

Name	Comments	DBIA/ICR reference
EDIT	;DELETE CODES IN TAXONOMY FILE, THEN ENTER NEW RANGES
EOJ1	;
ICPTADD	;EP
BUILD	;BUILD ATXTBLE FOR ROUTINE ATXCODE
ENTER	;
CALLDIE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Done!" Line Location: ENTER+2
Function Call: WRITE	Prompt: "." Line Location: CALLDIE+2
Function Call: WRITE	Prompt: !!,"ERROR ENCOUNTERED - REENTER RANGES",! Line Location: CALLDIE+3
Routine Call	DIE Line Location: CALLDIE+1

Name	Field # of Occurrence
ATX	ICPTADD+6!, ENTER+1, CALLDIE+1, EDIT+1
ATX("NOT TAX"	, CALLDIE+2, CALLDIE+3
ATX("X"	ENTER+1*, CALLDIE+1
>> ATXCODE	BUILD+1*
>> ATXFILE	ICPTADD+2
ATXFLG	ICPTADD+1*, ICPTADD+6!
>> ATXGBL	ICPTADD+2*
ATXHI	CALLDIE+1*, EOJ1+1!
ATXL	ICPTADD+6!
>> ATXSTP	ENTER+1*
>> ATXTAXI	ICPTADD+3
ATXTBLE	ICPTADD+6!
ATXTBLE(	BUILD+1*, ENTER+1, CALLDIE+1
ATXX	ICPTADD+3*, ICPTADD+6!, BUILD+1, CALLDIE+1, EDIT+1
DA	CALLDIE+1, CALLDIE+4!, EDIT+1!
DA(1	EDIT+1*
DIE	CALLDIE+1*, CALLDIE+4!
DIK	EDIT+1*!
DR	CALLDIE+1*, CALLDIE+4!
DR(2	CALLDIE+1*
>> Y	ENTER+1, CALLDIE+1, CALLDIE+3
>> ZTQUEUED	CALLDIE+2, CALLDIE+3, EOJ1+2
>> ZTREQ	EOJ1+2*