Sub-Field: 90669.812

Parent File	Name	Number	Package
UDS 17 TABLE CODE LISTS(#90669.8)	ICD PROCEDURES	90669.812	IHS Uniform Data System

Parent File

Name

Number

Package

ICD PROCEDURES

90669.812

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD PROCEDURES	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 01, 2015` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `90669.812^B` 1)= S ^BUDETSSC(DA(1),12,"B",$E(X,1,30),DA)="" 2)= K ^BUDETSSC(DA(1),12,"B",$E(X,1,30),DA)
.02	POINTER	0;2	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) LAST EDITED: `NOV 17, 2016` CROSS-REFERENCE: `90669.8^AP` 1)= S ^BUDETSSC("AP",$E(X,1,30),DA(1),DA)="" 2)= K ^BUDETSSC("AP",$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 PROCEDURES

0;1

FREE TEXT

CROSS-REFERENCE: 90669.812^B

1)= S ^BUDETSSC(DA(1),12,"B",$E(X,1,30),DA)=""

2)= K ^BUDETSSC(DA(1),12,"B",$E(X,1,30),DA)

POINTER

0;2

POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)

CROSS-REFERENCE: 90669.8^AP

1)= S ^BUDETSSC("AP",$E(X,1,30),DA(1),DA)=""

2)= K ^BUDETSSC("AP",$E(X,1,30),DA(1),DA)

CODING SYSTEM

0;3

POINTER TO ICD CODING SYSTEMS FILE (#80.4)