Sub-Field: 9001001.41102

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

Parent File

Name

Number

Package

ICD OPERATION

9001001.41102

Details

Field # Name Loc Type Details

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

ICD OPERATION

0;1

FREE TEXT

CROSS-REFERENCE: 9001001.41102^B

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

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

ICD0 CODE

0;2

FREE TEXT

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

CROSS-REFERENCE: 9001001.41102^AC

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

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