Routine: APCLTAXF

Information

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

Source file <APCLTAXF.m>

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

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	;
ICD9ADD	;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

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	ICD9ADD+2
>> APCLGBL	ICD9ADD+2*
APCLHI	CALLDIE+1*, EOJ1+1!
APCLL	ICD9ADD+6!
>> APCLSTP	ENTER+1*
>> APCLTAXI	ICD9ADD+3
APCLTBLE	ICD9ADD+6!
APCLTBLE(	BUILD+1*, ENTER+1, CALLDIE+1
APCLX	ICD9ADD+3*, ICD9ADD+6!, BUILD+1, CALLDIE+1, EDIT+1
ATX	ICD9ADD+6!
ATXFLG	ICD9ADD+1*, ICD9ADD+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*