Sub-Field: 9002071.05

Parent File	Name	Number	Package
9002071.01	DIAGNOSIS (ICD)	9002071.05	Contract Health Management Information System

Parent File

Name

Number

Package

DIAGNOSIS (ICD)

9002071.05

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS (ICD)	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `MAR 03, 2014` HELP-PROMPT: `Enter ICD Code For Diagnosis` CROSS-REFERENCE: `9002071.05^B` 1)= S ^ACHSDEN(DA(2),"D",DA(1),500,"B",$E(X,1,30),DA)="" 2)= K ^ACHSDEN(DA(2),"D",DA(1),500,"B",$E(X,1,30),DA)
2	DIAGNOSIS (ICD) NARRATIVE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` OUTPUT TRANSFORM: `D L^ACHS(9002071.05,2)` LAST EDITED: `MAR 03, 2014` HELP-PROMPT: `Answer must be 1-30 characters in length.`
3	DIAGNOSIS (ICD) COMMENTS	1;0	WORD-PROCESSING #9002071.53	LAST EDITED: `MAR 03, 2014`

DIAGNOSIS (ICD)

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

CROSS-REFERENCE: 9002071.05^B

1)= S ^ACHSDEN(DA(2),"D",DA(1),500,"B",$E(X,1,30),DA)=""

2)= K ^ACHSDEN(DA(2),"D",DA(1),500,"B",$E(X,1,30),DA)

DIAGNOSIS (ICD) NARRATIVE

0;2

FREE TEXT

DIAGNOSIS (ICD) COMMENTS

1;0

WORD-PROCESSING #9002071.53