Routine: ATXEMP

Entry Points

Name	Comments	DBIA/ICR reference
GETVAL	;GET RANGE OF DFNS
EOJ	;
DFNS	;GET LO AND HIGH DFNS FOR THIS TAXONOMY
START	;
INIT	;
BUILD	;BUILD ATXTABLE FOR ROUTINE ATXCODE
TSKMN	;
ASK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ATXEMP+4
Function Call: WRITE	Prompt: !,$C(7),"Taxonomy currently",^(+Y)," Try later.",! Line Location: ASK+4
Function Call: WRITE	Prompt: !,$C(7),"This option for modifying existing ICD codes in taxonomies only!",!,"If you want to enter ICD codes for a taxonomy where none existed",!,"before, use the create taxonomy option.",! Line Location: ASK+5
Function Call: WRITE	Prompt: !!,$C(7),"Taxonomy will be modified (if changes were made) and patient list in PT TAXONOMY",!,"file will be updated in background by taskman!" Line Location: TSKMN+1
Function Call: WRITE	Prompt: !!,$C(7),"Taxonomy will now be modified (if changes were made) in background by taskman!" Line Location: TSKMN+2
Routine Call	DIE Line Location: ASK+9
Routine Call	DIC Line Location: ASK+2

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

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ASK+5, DFNS+2, DFNS+3, BUILD+1
^ATXPAT - [#9002227]	TSKMN+1
^ICD9("BA"	GETVAL+1, GETVAL+3
^TMP($J	ASK+4, ASK+6, ASK+7!, ASK+10!, GETVAL+1, GETVAL+3*

Name	Field # of Occurrence
^(	ASK+4, DFNS+2, BUILD+1

Name	Field # of Occurrence
>> %	TSKMN+3*
>> ATX("CODE"	BUILD+1*
ATXCHK	EOJ+1!
ATXCNT	DFNS+1, DFNS+3, EOJ+1!
ATXDEL	EOJ+1!
ATXDFN	GETVAL+3*, EOJ+1!
ATXDLC	EOJ+1!
ATXFLG	INIT+1*, EOJ+1!
ATXHI	EOJ+1!
ATXHIH	EOJ+1!
ATXHIH(	DFNS+3*
ATXHIV	DFNS+3*, GETVAL+2, GETVAL+3, EOJ+1!
ATXI	EOJ+1!
ATXIOF	EOJ+1!
ATXL	ATXEMP+4, ATXEMP+5!, DFNS+2, GETVAL+3*
ATXLO	EOJ+1!
ATXLOV	DFNS+2, DFNS+3, GETVAL+1, GETVAL+2, GETVAL+3, EOJ+1!
ATXLW	EOJ+1!
ATXLW(	DFNS+3*
ATXP	EOJ+1!
ATXSS	DFNS+2*, DFNS+3, EOJ+1!
ATXSTOP	EOJ+1!
ATXSTP	ATXEMP+4, ATXEMP+5!, START+1, ASK+1, ASK+3, ASK+10*, ASK+12
>> ATXTABLE(	BUILD+1*
ATXX	ASK+6*, ASK+7, ASK+9, ASK+10, DFNS+2, DFNS+3, GETVAL+1, GETVAL+3, BUILD+1, TSKMN+1 , EOJ+1!
>> DA	ASK+9*
DIC	ASK+2*!
DIC("S"	ASK+2*
DIC(0	ASK+2*
DIE	ASK+9*!
DR	ASK+9*!
DT	TSKMN+4
U	INIT+1*, DFNS+2, DFNS+3
>> Y	ASK+3, ASK+4, ASK+5, ASK+6, ASK+10
>> ZTDESC	TSKMN+4*
>> ZTDTH	TSKMN+4*
>> ZTIO	TSKMN+4*
>> ZTRTN	TSKMN+4*
ZTSAVE	TSKMN+3!
ZTSAVE(	TSKMN+3*
ZTSK	TSKMN+4!