Routine: ATXMOD

Information

ATXMOD ; IHS/OHPRD/TMJ - ICD9 TAXONOMY FIELD ;

Source file <ATXMOD.m>

Package	Total	Call Graph
VA Fileman	1	^DIE

Name	Comments	DBIA/ICR reference
ZTM	;ENTRY POINT FOR TASKMAN
GETVAL	;GET RANGE OF DFNS
DIEADD	;CALL TO DIE TO ENTER TAXONOMY TO NEWLY ENTERED CODES INTO TAXONOMY FILE
DFNS	;GET LO AND HIGH DFNS FOR THIS TAXONOMY
OLDTONEW	;SEE WHAT CODES DELETED FROM TAXONOMY
INIT	;
DIEDELT	;CALL TO DIE TO DELETE TAXONOMY FROM DELETED CODES OUT OF TAXONOMY FILE
NEWTOLD	;SEE WHAT CODES ADDED TO TAXONOMY
EOJ	;

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	INIT+1, DFNS+1
^ATXPAT - [#9002227]	INIT+1
^ICD9("BA"	GETVAL+1, GETVAL+3
^TMP($J	INIT+2!, GETVAL+1, GETVAL+3, NEWTOLD+1, OLDTONEW+1, EOJ+1!

Name	Field # of Occurrence
^(	DFNS+1
^(0	DFNS+1

Name	Field # of Occurrence
ATXD	NEWTOLD+1, OLDTONEW+1, DIEADD+1, DIEDELT+1, EOJ+2!
ATXDEL	EOJ+2!
ATXDFN	GETVAL+3*, EOJ+2!
ATXHI	EOJ+2!
>> ATXHIV	DFNS+1*, GETVAL+2, GETVAL+3
ATXHIVO	EOJ+2!
>> ATXL	DFNS+1*
ATXLOV	DFNS+1, GETVAL+1, GETVAL+2, GETVAL+3, EOJ+2!
ATXPRO	INIT+1*, EOJ+2!
ATXSS	DFNS+1*, EOJ+2!
ATXWT	EOJ+2!
ATXX	INIT+1, INIT+2, DFNS+1, GETVAL+1, GETVAL+3, NEWTOLD+1, OLDTONEW+1, DIEADD+1, DIEDELT+1, EOJ+1 , EOJ+2!
>> DA	DIEADD+1, DIEDELT+1
DIE	DIEADD+1!, DIEDELT+1!
>> DR	DIEADD+1, DIEDELT+1
>> DR(2	DIEDELT+1*
>> L	NEWTOLD+1, OLDTONEW+1
U	INIT+1, DFNS+1
>> ZTQUEUED	ZTM+5
>> ZTREQ	ZTM+5*