Global: ^ICD0

ICD-9 or ICD-10 procedure code

1  2  3  4  5

-  -  -  -  -

N  N  .  N  N

n  n

"N"    Numeric

"n"     Character

ICD-10 Procedure Code Pattern Match

1  2  3  4  5  6  7

-  -  -  -  -  -  -

U  U  U  U  U  U  U

N  N  N  N  N  N  N

Z     Z  Z  Z  Z

"U"    Uppercase

"Z"    N/A or None

"N"    Numeric

1)= D SAHC^ICDIDX2(80.1)

2)= D KAHC^ICDIDX2(80.1)

^ICD0("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD0("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.1 and IEN2 is the internal entry number of the STATUS multiple sub-file 80.166 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:  ^ICD0("AB",(CODE_" "),IEN) - Where CODE is the ICD code and IEN is the internal entry number in file #80.1.  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 ^ICD0("AB",$E(X,1,30),DA)=""

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

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

Whole Kill:  K ^ICD0("AB")

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

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

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

Description:  ^ICD0("AEXC",(CODE_" "),IEN) - Where CODE is an ICD code and IEN is the internal entry number in file #80.1 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 ^ICD0("AEXC",$E(X,1,30),DA)=""

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

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

Whole Kill:  K ^ICD0("AEXC")

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

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

Short Descr:  BA Cross-Reference for all Coding Systems

Description:  ^ICD0("BA",(CODE_" "),IEN) - Where CODE is an ICD code and IEN is the internal entry number in file #80.1 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 ^ICD0("BA",$E(X,1,30),DA)=""

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

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

Whole Kill:  K ^ICD0("BA")

X(1):  CODE NUMBER  (80.1,.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.1)

2)= D KAHCS^ICDIDX2(80.1)

^ICD0("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD0("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) Where SYS is the coding system, 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.1 and IEN2 is the internal entry number of the STATUS multiple sub-file 80.166 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.1)

2)= D KAD2^ICDIDX(80.1)

^ICD0("AD",SYS,WORD,IEN1,DATE,IEN2) - Where SYS is the coding system in file 80.1, WORD is a single word extracted from the description, IEN1 is the internal entry number in file #80.1 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.168 where the description containing the extracted word is stored.  This is a modification of 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 Operations/Procedure file.

1)= D SASTS2^ICDIDX(80.1)

2)= D KASTS2^ICDIDX(80.1)

^ICD0("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD procedure code, EFF is the effective date for the Operation/Procedure (short text), IEN1 is the internal entry number in the ICD

Operation/Procedure file (#80.1) and IEN2 is the internal entry number in the OPERATION/PROCEDURE multiple (#80.167) where the short text is stored.

1)= D SADSS2^ICDIDX(80.1)

2)= D KADSS2^ICDIDX(80.1)

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

Operation/Procedure file (#80.1) and IEN2 is the internal entry number in the DESCRIPTION multiple (#80.168) where the long text is stored.

This field contains Operations Identifiers.

Set of codes refers to body site of procedure, when for a Multiple Significant Trauma (MDC 24)

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

modified by the VA (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.

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

This is the Major O.R procedure for this procedure code.  See routine D MAJ^ICDHLPD for a listing of acceptable values for this field.

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 operation/procedure (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 is a history of the DRG Grouper Major Diagnostic Codes and DRGs for an ICD procedure code and contains the date the MDCs/DRGs became effective along with the MDCs and DRGs.

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