Global: ^ICD9

ICD-9 or ICD-10 Code

1  2  3  4  5  6  7

-  -  -  -  -  -  -

N  N  N  .  N  N     Numeric

n  n

U  N  N  N  .  N  N  E codes

n  n

U  N  N  .  N  N     V codes

n  n

"U"    Uppercase

"N"    Numeric

"n"     Character

ICD-10 Code Pattern Match

1  2  3  4  5  6  7  8

-  -  -  -  -  -  -  -

U  N  U  .  U  U  N  U

X     N     N  N  X  N

X  X  n  n

n  n

"U"    Uppercase

"X"    In the first position - Category

Right of the decimal  - Placeholder

"N"    Numeric

"."    Decimal

"n"    Null

1)= D SAHC^ICDIDX2(80)

2)= D KAHC^ICDIDX2(80)

^ICD9("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD9("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) Where CODE is the ICD code, STA is either 1 (active) or 0 (inactive), EF is the effective date of the status, IEN1 is the internal

entry number in file #80 and IEN2 is the internal entry number on the STATUS multiple sub-file 80.066 where the status is stored.  The subscript SYS is added to the ACTS cross reference to create a coding system specific

cross-reference.

Short Descr:  AB Code Cross-Reference

Description:  ^ICD9("AB",(CODE_" "),IEN) - Where CODE is the ICD code and IEN is the internal entry number in file #80.  Appending a space character to CODE forces the code to be regarded as a string, thus disallowing the dropping of

leading '0's.

Set Logic:  S ^ICD9("AB",$E(X,1,30),DA)=""

Set Cond:  S X=$S(+($$GET1^DIQ(80,(+DA_","),1.8))'>0:1,1:0)

Kill Logic:  K ^ICD9("AB",$E(X,1,30),DA)

Whole Kill:  K ^ICD9("AB")

X(1):  CODE NUMBER  (80,.01)  (Subscr 1)  (Len 30)  (forwards)

Transform (Storage):  S X=(X_" ")

Short Descr:  AEXC Exclusion Cross-Reference for all Coding Systems

Description:  ^ICD9("AEXC",(CODE_" "),IEN) - Where CODE is an ICD code and IEN is the internal entry number in file #80 where the code is stored.  This cross-reference is used to track those records that were either entered or edited in

error.  When a record is either entered or edited in error, it cannot be deleted because there may be applications pointing to the record.  Instead the record is retired from lookup so future lookups will not find or

return the errant record.  This is done by leaving the code and descriptive text in place and removing the activation history.  The lookup (either Fileman or Special Lookup) acts as if the record was never active, thus

preventing the users from accessing the record.

Set Logic:  S ^ICD9("AEXC",$E(X,1,30),DA)=""

Set Cond:  S X=$S(($O(^ICD9(+DA,66,0))'>0&($O(^ICD9(+DA,68,0))>0)):1,1:0)

Kill Logic:  K ^ICD9("AEXC",$E(X,1,30),DA)

Whole Kill:  K ^ICD9("AEXC")

X(1):  CODE NUMBER  (80,.01)  (Subscr 1)  (Len 30)  (forwards)

Transform (Storage):  S X=(X_" ")

Short Descr:  BA Cross-Reference for all Coding Systems

Description:  ^ICD9("BA",(CODE_" "),IEN) - Where CODE is an ICD code and IEN is the internal entry number in file #80 where the code is stored.  Appending a space character to CODE forces the code to be regarded as a string, thus

disallowing the dropping of leading '0's.  The BA cross-references is used by Fileman during unassisted lookups when DIC(0) contains "I"

Set Logic:  S ^ICD9("BA",$E(X,1,30),DA)=""

Set Cond:  S X=$S(+($$GET1^DIQ(80,(+DA_","),1.8))'>0:1,1:0)

Kill Logic:  K ^ICD9("BA",$E(X,1,30),DA)

Whole Kill:  K ^ICD9("BA")

X(1):  CODE NUMBER  (80,.01)  (Subscr 1)  (Len 30)  (forwards)

Transform (Storage):  S X=(X_" ")

This is the coding system to which the code belongs.

1)= D SAHCS^ICDIDX2(80)

2)= D KAHCS^ICDIDX2(80)

^ICD9("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD9("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) where CODE is the ICD code, STA is either  1 (active) or 0 (inactive), EF is the effective date of the status, IEN1 is the internal

entry number in file #80 and IEN2 is the internal entry number on the STATUS multiple sub-file 80.066 where the status is stored.  The subscript SYS is added to the ACTS cross-reference to create a coding system specific

cross-reference.

1)= D SAD2^ICDIDX(80)

2)= D KAD2^ICDIDX(80)

^ICD9("AD",SYS,WORD,IEN1,DATE,IEN2) - Where SYS is the coding system in file 80, WORD is a single word extracted from the description, IEN1 is the internal entry number in file #80 where the description is stored, DATE is

the effective date of the description and IEN2 is the internal entry number of the DESCRIPTION multiple, sub-file #80.068 where the description containing the extracted word is stored.  This is a modification of a Fileman

KWIC (Key Word In Context) cross-reference.  Like the Fileman KWIC cross-reference, each word in the description is indexed.  Unlike the KWIC cross-reference the index contains the effective date of the description. This

is done to allow date sensitive keyword searches of the Diagnosis file.

1)= D SASTS2^ICDIDX(80)

2)= D KASTS2^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)= D SADSS2^ICDIDX(80)

2)= D KADSS2^ICDIDX(80)

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

file (#80) and IEN2 is the internal entry number in the DESCRIPTION multiple (#80.068) where the description text is stored.

"no CC").

This field contains Identifier codes providing more detail on the DRG.

DRG Flags

This field contains a flag indicating that this code is unacceptable as the principal diagnosis.

Field is set to 13 when the Major Diagnostic Code (MDC) equals 13 (Female Reproductive System)

Code entry of body site of Multiple Significant Trauma.

Set of codes refers to type of HIV code or related condition.

This field is a flag indicating that the ICD code was expanded by the VA (local code).

(ICD EXPANDED field 1.7).  If this computed field returns a 1, then it should not be used for lookup or included in lookup cross-references.

The value in this field is used to determine whether Present On Admission (POA) processing applies to this code.

This is a history of the Sex designation (Male/Female) for the diagnosis and includes the Sex with the date it became effective.

This is a history of lowest age reasonable for a procedure and includes the lowest age and the date it became effective.

This is a history of highest age reasonable for a procedure and includes the highest age and the date it became effective.

This is a listing of ICD codes that cannot be used in conjunction with this code.

This is a listing of ICD codes required when this code is used.

This is a listing of codes not considered as Complication/comorbidity with this code.

This multiple contains versioned information for an ICD code.  A new entry is created whenever an ICD code's status is changed.

This is a history of the Diagnosis (short text) to include the date the text was first used along with the text.

This is a history of the descriptive text to include the date the text was first used and the text used.

this field.

This is a listing of Major Diagnostic Categories (MDC) associated with this ICD Diagnosis by fiscal year.

This is a listing of identifier codes used in the DRG rules processing to determine DRG.

This is a history of the Complication/Comorbidity (CC) designation for the diagnosis and includes the CC designation with the date it became effective.