Routine: APCLTAXL

Information

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

Source file <APCLTAXL.m>

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

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLTAXE

Name	Comments	DBIA/ICR reference
EDIT	;DELETE CODES IN TAXONOMY FILE, THEN ENTER NEW RANGES
EOJ1	;
ICPTADD	;EP
BUILD	;BUILD APCLTBLE 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
>> APCL	ENTER+1, CALLDIE+1, EDIT+1
>> APCL("NOT TAX	" , CALLDIE+2, CALLDIE+3
>> APCL("X"	ENTER+1*, CALLDIE+1
>> APCLCODE	BUILD+1*
>> APCLFILE	ICPTADD+2
>> APCLGBL	ICPTADD+2*
APCLHI	CALLDIE+1*, EOJ1+1!
APCLL	ICPTADD+6!
>> APCLSTP	ENTER+1*
>> APCLTAXI	ICPTADD+3
APCLTBLE	ICPTADD+6!
APCLTBLE(	BUILD+1*, ENTER+1, CALLDIE+1
APCLX	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*