Routine: AICDZMDC

Name	Comments	DBIA/ICR reference
ICDPX	;CLEAN UP FILE 80.1 (ICD OPERATION/PROCEDURE)
INIT	;PRIMARY MODULE INITIALIZATION
MAIN	;PRIMARY MODULE EXECUTION
CLEANUP	;PRIMARY MODULE CLEANUP
ICDDX	;CLEAN UP FILE 80 (ICD DIAGNOSIS)

Name	Line Occurrences (* Changed, ! Killed)
^AICDZMDC	INIT+2!
^AICDZMDC("ICD0"	MAIN+4, ICDPX+8, ICDPX+10
^AICDZMDC("ICD9"	MAIN+3, ICDDX+6, ICDDX+8
^ICD0 - [#80.1]	ICDPX+2, ICDPX+4, ICDPX+5, ICDPX+9*
^ICD9 - [#80]	ICDDX+2, ICDDX+3, ICDDX+7*

Name	Field # of Occurrence
>> AICDCNT	ICDDX+1, ICDDX+6, ICDDX+8, ICDPX+1, ICDPX+8, ICDPX+10
>> AICDIEN	ICDDX+1, ICDDX+2, ICDDX+3, ICDDX+6, ICDDX+7, ICDPX+1, ICDPX+2, ICDPX+4, ICDPX+5, ICDPX+8 , ICDPX+9
>> AICDMDC	ICDDX+3, ICDDX+4, ICDDX+5, ICDDX+6, ICDDX+7, ICDPX+5, ICDPX+6, ICDPX+7, ICDPX+8, ICDPX+9
>> AICDMLT	ICDPX+3, ICDPX+4, ICDPX+5, ICDPX+8, ICDPX+9
U	INIT+1*, ICDDX+3, ICDDX+7, ICDPX+5, ICDPX+9
>> ZTSK	MAIN+3, MAIN+4

Information