Routine: ATXCODE2

Information

ATXCODE2 ; IHS/OHPRD/TMJ - CODES IF MODIFYING AND ENTERS CODES INTO FILE ;

Package	Total	Call Graph
VA Fileman	5	YX^%DTC ^DIC YN^DICN ^DIE ^DIK

Name	Comments	DBIA/ICR reference
EDIT	;DELETE CODES IN TAXONOMY FILE, THEN ENTER NEW RANGES
EOJ	;
ENTER	;
ASK	;ASK FOR TAXONOMY IF NOT COMING THROUGH TAXONOMY SYSTEM
X
CALLDIE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Would you like to save these codes in a Taxonomy for future use" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"You may store these ICD codes in the TAXONOMY file if you desire. You will be",!,"able to use these in future database searches." Line Location: ASK+3
Function Call: WRITE	Prompt: !!,$P(^ATXAX(ATXX,0),U)," TAXONOMY:" Line Location: ASK+8
Function Call: WRITE	Prompt: !!,"You may add codes to an existing taxonomy by selecting a taxonomy when asked to ""ENTER DX:""" Line Location: ASK+9
Function Call: WRITE	Prompt: !!,"Entering codes into the ",$P(^ATXAX(ATXX,0),U)," taxonomy" Line Location: ENTER+1
Function Call: WRITE	Prompt: !,"One moment please ..." Line Location: ENTER+2
Function Call: WRITE	Prompt: !!,"Done!" Line Location: ENTER+4
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: ASK+11 CALLDIE+1
Routine Call	DIC Line Location: ASK+4

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

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ASK+7, ASK+8, ASK+10, ENTER+1, EDIT+1

Name	Field # of Occurrence
>> %	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+7, ASK+8, ASK+9
>> %H	ASK+5*
>> ATX	ENTER+3, CALLDIE+1, EDIT+1
>> ATX("EDIT"	ASK+8*, ASK+11
>> ATX("ENTER"	ATXCODE2+4, ASK+10*, ASK+11
>> ATX("NOT TAX"	, ENTER+1, ENTER+2, ENTER+4, CALLDIE+2, CALLDIE+3
>> ATX("X"	ENTER+3*, CALLDIE+1
>> ATXFLG	ASK+4*
ATXHI	CALLDIE+1*, EOJ+1!
>> ATXSTP	ATXCODE2+3, ASK+6, ENTER+3
>> ATXTABLE(	ENTER+3, CALLDIE+1
ATXTIME	ASK+4!, ASK+5*
>> ATXX	ATXCODE2+3, ASK+8, ASK+10, ASK+11, ENTER+1, CALLDIE+1, EDIT+1
DA	ASK+11, CALLDIE+1, CALLDIE+4!, EDIT+1*!
DA(1	EDIT+1*
DIC	ASK+4*!
DIC("DR"	ASK+4*
DIC("S"	ASK+4*
DIC(0	ASK+4*
DIE	ASK+11!, CALLDIE+1, CALLDIE+4!
DIK	EDIT+1*!
>> DLAYGO	ASK+4*
DR	ASK+11!, CALLDIE+1, CALLDIE+4!
DR(2	CALLDIE+1*
DUZ	ASK+4
U	ASK+8, ENTER+1
>> X	ASK+5
>> Y	ASK+6, ASK+7, ASK+8, ASK+10, ENTER+3, CALLDIE+1, CALLDIE+3
>> ZTQUEUED	ENTER+1, ENTER+2, ENTER+4, CALLDIE+2, CALLDIE+3, EOJ+2
>> ZTREQ	EOJ+2*