Sub-Field: 9001001.41101

Parent File	Name	Number	Package
PCC DATA ENTRY INPT EDITS(#9001001.4)	ICD POINTER	9001001.41101	Patient Care Component

Parent File

Name

Number

Package

ICD POINTER

9001001.41101

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD POINTER	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `AUG 05, 2008` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `9001001.41101^B` 1)= S ^APCDINPT(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^APCDINPT(DA(1),11,"B",$E(X,1,30),DA)
.02	ICD CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<2) X` LAST EDITED: `JAN 17, 1989` HELP-PROMPT: `Answer must be 2-7 characters in length.` WRITE AUTHORITY: ^ CROSS-REFERENCE: `9001001.41101^AC` 1)= S ^APCDINPT(DA(1),11,"AC",$E(X,1,30),DA)="" 2)= K ^APCDINPT(DA(1),11,"AC",$E(X,1,30),DA)

ICD POINTER

0;1

FREE TEXT

CROSS-REFERENCE: 9001001.41101^B

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

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

ICD CODE

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<2) X
LAST EDITED: JAN 17, 1989
HELP-PROMPT: Answer must be 2-7 characters in length.
```
WRITE AUTHORITY:  ^
```

CROSS-REFERENCE: 9001001.41101^AC

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

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