Sub-Field: 90668.77

Parent File	Name	Number	Package
UDS 16 TABLE 6 CODES(#90668.7)	DX CODES	90668.77	IHS Uniform Data System

Parent File

Name

Number

Package

DX CODES

90668.77

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODES	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `NOV 16, 2015` HELP-PROMPT: `Answer must be 1-12 characters in length.` CROSS-REFERENCE: `90668.77^B` 1)= S ^BUDDTSC(DA(1),7,"B",$E(X,1,30),DA)="" 2)= K ^BUDDTSC(DA(1),7,"B",$E(X,1,30),DA)
.02	POINTER (POPULATE IN POST)	0;2	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `NOV 16, 2015` CROSS-REFERENCE: `90668.7^AC` 1)= S ^BUDDTSC("AC",$E(X,1,30),DA(1),DA)="" 2)= K ^BUDDTSC("AC",$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: `NOV 16, 2015`

CODES

0;1

FREE TEXT

CROSS-REFERENCE: 90668.77^B

1)= S ^BUDDTSC(DA(1),7,"B",$E(X,1,30),DA)=""

2)= K ^BUDDTSC(DA(1),7,"B",$E(X,1,30),DA)

POINTER (POPULATE IN POST)

0;2

POINTER TO ICD DIAGNOSIS FILE (#80)

CROSS-REFERENCE: 90668.7^AC

1)= S ^BUDDTSC("AC",$E(X,1,30),DA(1),DA)=""

2)= K ^BUDDTSC("AC",$E(X,1,30),DA(1),DA)

CODING SYSTEM

0;3

POINTER TO ICD CODING SYSTEMS FILE (#80.4)