Sub-Field: 80.02

Parent File	Name	Number	Package
ICD DIAGNOSIS(#80)	ICD CODES REQUIRED WITH	80.02	DRG Grouper

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD CODE REQUIRED WITH	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `SEP 30, 2011` HELP-PROMPT: `Enter an ICD Code that is required with this code.` DESCRIPTION: `This is an ICD code that is required when this code is used.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `80.02^B` `1)= S ^ICD9(DA(1),"R","B",$E(X,1,30),DA)=""` `2)= K ^ICD9(DA(1),"R","B",$E(X,1,30),DA)` `^ICD9(IEN1,"R","B",COD,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, COD is a pointer to a code in the ICD Diagnosis file #80 which is required with this code and IEN2 is the internal` `entry number of the ICD CODES REQUIRED WITH multiple where the pointed to code is stored.`

ICD CODE REQUIRED WITH

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

INPUT TRANSFORM: S DINUM=X
LAST EDITED: SEP 30, 2011
HELP-PROMPT: Enter an ICD Code that is required with this code.
DESCRIPTION:
This is an ICD code that is required when this code is used.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 80.02^B
1)= S ^ICD9(DA(1),"R","B",$E(X,1,30),DA)=""
2)= K ^ICD9(DA(1),"R","B",$E(X,1,30),DA)
^ICD9(IEN1,"R","B",COD,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, COD is a pointer to a code in the ICD Diagnosis file #80 which is required with this code and IEN2 is the internal
entry number of the ICD CODES REQUIRED WITH multiple where the pointed to code is stored.