Routine: APCHTAXL

Information

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

Source file <APCHTAXL.m>

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIK
Patient Care Component	1	^APCHTAXM

Package	Total	Caller Graph
Patient Care Component	1	APCHTAXE

Name	Comments	DBIA/ICR reference
EDIT	;DELETE CODES IN TAXONOMY FILE, THEN ENTER NEW RANGES
EOJ1	;
ICPTADD	;EP
BUILD	;BUILD APCHTBLE 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

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	BUILD+1, EDIT+1

Name	Field # of Occurrence
^(	BUILD+1

Name	Field # of Occurrence
>> APCH	ENTER+1, CALLDIE+1, EDIT+1
>> APCH("NOT TAX	" , CALLDIE+2, CALLDIE+3
>> APCH("X"	ENTER+1*, CALLDIE+1
>> APCHCODE	BUILD+1*
>> APCHFILE	ICPTADD+2
>> APCHGBL	ICPTADD+2*
APCHHI	CALLDIE+1*, EOJ1+1!
APCHL	ICPTADD+6!
>> APCHSTP	ENTER+1*
>> APCHTAXI	ICPTADD+3
APCHTBLE	ICPTADD+6!
APCHTBLE(	BUILD+1*, ENTER+1, CALLDIE+1
APCHX	ICPTADD+3*, ICPTADD+6!, BUILD+1, CALLDIE+1, EDIT+1
ATX	ICPTADD+6!
ATXFLG	ICPTADD+1*, ICPTADD+6!
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*