Sub-Field: 9009080.05

Parent File	Name	Number	Package
ER VISIT(#9009080)	DIAGNOSIS	9009080.05	Emergency Room

Parent File

Name

Number

Package

DIAGNOSIS

9009080.05

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `DEC 17, 1996` CROSS-REFERENCE: `9009080.05^B` 1)= S ^AMERVSIT(DA(1),5,"B",$E(X,1,30),DA)="" 2)= K ^AMERVSIT(DA(1),5,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9009080^AICD` 1)= S ^AMERVSIT("AICD",$E(X,1,30),DA(1),DA)="" 2)= K ^AMERVSIT("AICD",$E(X,1,30),DA(1),DA) Used to rapidly identify ER visits with a certain Dx.
1	PROVIDER NARRATIVE	1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JUN 13, 2000` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: Narrative text of the diagnosis

DIAGNOSIS

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

CROSS-REFERENCE: 9009080.05^B

1)= S ^AMERVSIT(DA(1),5,"B",$E(X,1,30),DA)=""

2)= K ^AMERVSIT(DA(1),5,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 9009080^AICD

1)= S ^AMERVSIT("AICD",$E(X,1,30),DA(1),DA)=""

2)= K ^AMERVSIT("AICD",$E(X,1,30),DA(1),DA)

Used to rapidly identify ER visits with a certain Dx.

PROVIDER NARRATIVE

1;E1,245

FREE TEXT