Sub-Field: 698.02

Parent File	Name	Number	Package
GENERATOR IMPLANT(#698)	ICD DIAGNOSIS	698.02	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `MAR 10, 1993` DESCRIPTION: This field contains the ICD9 Diagnosis(es) for the procedure. The field also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the future. TECHNICAL DESCR: ORDER ENTRY TYPE: UNKNOWN CROSS-REFERENCE: `698.02^B` 1)= S ^MCAR(698,DA(1),"ICD","B",$E(X,1,30),DA)="" 2)= K ^MCAR(698,DA(1),"ICD","B",$E(X,1,30),DA)
.02	NARRATIVE DIAGNOSIS	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JAN 02, 1992` HELP-PROMPT: `Answer must be 1-80 characters in length.` TECHNICAL DESCR: ORDER ENTRY TYPE: UNKNOWN

.01

ICD DIAGNOSIS

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

ICD DIAGNOSIS(#80)

LAST EDITED: MAR 10, 1993

DESCRIPTION:

This field contains the ICD9 Diagnosis(es) for the procedure.  The field also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the future.

TECHNICAL DESCR:
```
ORDER ENTRY TYPE:  UNKNOWN
```

CROSS-REFERENCE: 698.02^B

1)= S ^MCAR(698,DA(1),"ICD","B",$E(X,1,30),DA)=""

2)= K ^MCAR(698,DA(1),"ICD","B",$E(X,1,30),DA)

.02

NARRATIVE DIAGNOSIS

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
TECHNICAL DESCR:
```
ORDER ENTRY TYPE:  UNKNOWN
```

Customize PDF page

Package: Medicine

GENERATOR IMPLANT(#698)-->698.02

Sub-Field: 698.02

Information

Details