Sub-Field: 80.067

Parent File	Name	Number	Package
ICD DIAGNOSIS(#80)	DIAGNOSIS	80.067	DRG Grouper

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS EFFECTIVE DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:2781001>X X` LAST EDITED: `SEP 30, 2011` HELP-PROMPT: `Enter a date not earlier than Oct 1, 1978.` DESCRIPTION: This is the date the diagnosis text was first used. CROSS-REFERENCE: `80.067^B` 1)= S ^ICD9(DA(1),67,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),67,"B",$E(X,1,30),DA) ^ICD9(IEN1,67,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD-9 Diagnosis file #80, EFF is the effective date for the diagnosis (short text), and IEN2 is the internal entry number in the DIAGNOSIS multiple where the diagnosis short text is stored. CROSS-REFERENCE: `80^AST^MUMPS` 1)= D SAST^ICDIDX(80) 2)= D KAST^ICDIDX(80) ^ICD9("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored. CROSS-REFERENCE: `80^ASTS1^MUMPS` 1)= D SASTS1^ICDIDX(80) 2)= D KASTS1^ICDIDX(80) ^ICD9("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis file (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored.
1	DIAGNOSIS	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `SEP 17, 2011` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: This is the Diagnosis (short text).

.01

DIAGNOSIS EFFECTIVE DATE

0;1

DATE

************************REQUIRED FIELD************************

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2781001>X X
LAST EDITED: SEP 30, 2011
HELP-PROMPT: Enter a date not earlier than Oct 1, 1978.

DESCRIPTION:

This is the date the diagnosis text was first used.

CROSS-REFERENCE: 80.067^B

1)= S ^ICD9(DA(1),67,"B",$E(X,1,30),DA)=""

2)= K ^ICD9(DA(1),67,"B",$E(X,1,30),DA)

^ICD9(IEN1,67,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD-9 Diagnosis file #80, EFF is the effective date for the diagnosis (short text), and IEN2 is the internal entry number in the DIAGNOSIS

multiple where the diagnosis short text is stored.

CROSS-REFERENCE: 80^AST^MUMPS

1)= D SAST^ICDIDX(80)

2)= D KAST^ICDIDX(80)

^ICD9("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis (#80) and IEN2 is the

internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored.

CROSS-REFERENCE: 80^ASTS1^MUMPS

1)= D SASTS1^ICDIDX(80)

2)= D KASTS1^ICDIDX(80)

^ICD9("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD

Diagnosis file (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored.

DIAGNOSIS

0;2

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: SEP 17, 2011
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION:
```
This is the Diagnosis (short text).
```

Customize PDF page

Package: DRG Grouper

ICD DIAGNOSIS(#80)-->80.067

Sub-Field: 80.067

Information

Details