Sub-Field: 9999999.81101

Parent File	Name	Number	Package
RECODE ICD/APC(#9999999.08)	RANGE	9999999.81101	Utility Tables

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LOWEST ICD9	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<5) X` LAST EDITED: `APR 10, 1989` HELP-PROMPT: `ANSWER MUST BE 5-7 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9999999.81101^B` 1)= S ^AUTTRCD(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^AUTTRCD(DA(1),11,"B",$E(X,1,30),DA)
.02	HIGHEST ICD9	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<5) X` LAST EDITED: `APR 17, 1989` HELP-PROMPT: `ANSWER MUST BE 5-7 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9999999.08^AH^MUMPS` 1)= S ^AUTTRCD("AH",X_" ",DA(1),DA)="" 2)= K ^AUTTRCD("AH",X_" ",DA(1),DA)

LOWEST ICD9

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9999999.81101^B

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

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

HIGHEST ICD9

0;2

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9999999.08^AH^MUMPS

1)= S ^AUTTRCD("AH",X_" ",DA(1),DA)=""

2)= K ^AUTTRCD("AH",X_" ",DA(1),DA)