Sub-Field: 90667.811

Parent File	Name	Number	Package
UDS 15 TABLE 6B&7 CODE LISTS(#90667.8)	ICD DIAGNOSES	90667.811	IHS Uniform Data System

Parent File

Name

Number

Package

ICD DIAGNOSES

90667.811

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD DIAGNOSES	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<1) X` LAST EDITED: `DEC 01, 2015` HELP-PROMPT: `Answer must be 1-11 characters in length.` CROSS-REFERENCE: `90667.811^B` 1)= S ^BUDCTSSC(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^BUDCTSSC(DA(1),11,"B",$E(X,1,30),DA)
.02	POINTER	0;2	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `DEC 01, 2015` CROSS-REFERENCE: `90667.8^AD` 1)= S ^BUDCTSSC("AD",$E(X,1,30),DA(1),DA)="" 2)= K ^BUDCTSSC("AD",$E(X,1,30),DA(1),DA)
.03	CODING SYSTEM	0;3	POINTER TO ICD CODING SYSTEMS FILE (#80.4)	ICD CODING SYSTEMS(#80.4) LAST EDITED: `DEC 01, 2015`

ICD DIAGNOSES

0;1

FREE TEXT

CROSS-REFERENCE: 90667.811^B

1)= S ^BUDCTSSC(DA(1),11,"B",$E(X,1,30),DA)=""

2)= K ^BUDCTSSC(DA(1),11,"B",$E(X,1,30),DA)

POINTER

0;2

POINTER TO ICD DIAGNOSIS FILE (#80)

CROSS-REFERENCE: 90667.8^AD

1)= S ^BUDCTSSC("AD",$E(X,1,30),DA(1),DA)=""

2)= K ^BUDCTSSC("AD",$E(X,1,30),DA(1),DA)

CODING SYSTEM

0;3

POINTER TO ICD CODING SYSTEMS FILE (#80.4)