Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^ICD0

Package: DRG Grouper

Global: ^ICD0


Information

FileMan FileNo FileMan Filename Package
80.1 ICD OPERATION/PROCEDURE DRG Grouper

Description

Directly Accessed By Routines, Total: 55

Package Total Routines
DRG Grouper 34 DESCRIPTION    DRG    DRG GROUPER    DRG PROCEDURE IDENTIFIER CODES    ICD14PST    ICD15PR    ICD161P    ICD16PR
ICD1817P    ICD1824A    ICD1824O    ICD1827G    ICD1831K    ICD1831S    ICD1831V    ICD1831W
ICD1832S    ICD1846Y    ICD1855L    ICD1862L    ICD186E    ICD1882A    ICD18PR    ICDEXC
ICDEXC3    ICDEXD    ICDEXD2    ICDRGAPI    MAJOR DIAGNOSTIC CATEGORIES    OPERATION/PROCEDURE    SEX    STATUS
SUPPLEMENTAL    ^ICD0    
Lexicon Utility 17 LEX2027P    LEX2030P    LEX2031P    LEX2033P    LEX2034P    LEX2035P    LEX2036P    LEX2037P
LEX2038P    LEX2039P    LEX2040P    LEX2042P    LEX2043P    LEX2045P    LEX2046P    LEX2048P
LEXQIP3    
Clinical Monitoring System 1 QAMGRP2    
Clinical Reminders 1 PXRMISE    
Integrated Billing 1 IB20PT8A    
Registration 1 DGPTAPA2    

Accessed By FileMan Db Calls, Total: 44

Package Total Routines
DRG Grouper 22 ICD142PT    ICD14PST    ICD161P    ICD1817P    ICD1824A    ICD1824O    ICD1827G    ICD1831S
ICD1831V    ICD1832S    ICD1833P    ICD1846Y    ICD1853P    ICD1854P    ICD1855L    ICD1861L
ICD1862L    ICD1869L    ICD186E    ICD1882A    ICDEXLK6    ICDID    
Lexicon Utility 15 LEX2030P    LEX2031P    LEX2033P    LEX2034P    LEX2035P    LEX2036P    LEX2037P    LEX2038P
LEX2039P    LEX2040P    LEX2042P    LEX2043P    LEX2045P    LEX2046P    LEX2048P    
Integrated Billing 3 IBCSC4C    IBTRE4    IBTRHLI3    
Registration 3 DG53729R    DGICDGT    DGPTFIC    
Clinical Case Registries 1 RORRP016    

Pointed To By FileMan Files, Total: 16

Package Total FileMan Files
DRG Grouper 4 DRG PROCEDURE(#83.6)[.01]    DRG PROCEDURE GROUPS(#83.61)[#83.6101(.01)]    DRG HAC(#80.6)[#80.63(.01)]    DRG PROCEDURE CODE COMBINATIONS(#82.11)[#82.1111(.01)#82.1112(.01)#82.1113(.01)#82.1114(.01)#82.1115(.01)]    
Integrated Billing 3 BILL/CLAIMS(#399)[545556304#399.0304(.01)]    HCS REVIEW TRANSMISSION(#356.22)[10.07#356.2216(1.02)#356.2216(1.03)]
INPATIENT PROCEDURE(#356.91)[.01]    
Registration 3 CATASTROPHIC DISABILITY REASONS(#27.17)[3]    PTF(#45)[45.0145.0245.0345.0445.05#45.01(8)#45.01(9)#45.01(10)#45.01(11)#45.01(12)#45.01(13)#45.01(14)#45.01(15)#45.01(16)#45.01(17)#45.01(18)#45.01(19)#45.01(20)#45.01(21)#45.01(22)#45.01(23)#45.01(24)#45.01(25)#45.01(26)#45.01(27)#45.01(28)#45.01(29)#45.01(30)#45.01(31)#45.01(32)#45.05(4)#45.05(5)#45.05(6)#45.05(7)#45.05(8)#45.05(9)#45.05(10)#45.05(11)#45.05(12)#45.05(13)#45.05(14)#45.05(15)#45.05(16)#45.05(17)#45.05(18)#45.05(19)#45.05(20)#45.05(21)#45.05(22)#45.05(23)#45.05(24)#45.05(25)#45.05(26)#45.05(27)#45.05(28)]
PTF EXPANDED CODE(#45.89)[.02]    
Toolkit 2 LOCAL KEYWORD(#8984.1)[.02]    LOCAL SHORTCUT(#8984.2)[.02]    
Clinical Case Registries 1 ROR ICD SEARCH(#798.5)[#798.52(.01)]    
Fee Basis 1 FEE BASIS INVOICE(#162.5)[404142434444.0644.0744.0844.0944.144.1144.1244.1344.1444.1544.1644.1744.1844.1944.244.2144.2244.2344.2444.25]    
Medicine 1 PROCEDURE TERM(#694.8)[#694.801(.01)]    
Womens Health 1 WV PROCEDURE TYPE(#790.2)[.09]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
DRG Grouper 4 DRG(#80.2)[#80.17111(.01)]    DRG PROCEDURE IDENTIFIER CODES(#82.1)[#80.173(.01)]    ICD CODING SYSTEMS(#80.4)[1.1]    MAJOR DIAGNOSTIC CATEGORY(#80.3)[#80.1711(.01)]    

Fields, Total: 13

Field # Name Loc Type Details
.01 CODE NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  OCT 06, 2011
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    ICD-9 or ICD-10 procedure code
  • TECHNICAL DESCR:  ICD-9 Procedure Code Pattern Match
    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
  • LAYGO TEST:  1,0)= I 1
  • CROSS-REFERENCE:  80.1^ACT1^MUMPS
    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.
  • FIELD INDEX:  AB (#1131) REGULAR IR SORTING ONLY
    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_" ")
  • FIELD INDEX:  AEXC (#1133) REGULAR IR SORTING ONLY
    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_" ")
  • FIELD INDEX:  BA (#1136) REGULAR IR LOOKUP & SORTING
    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_" ")
  • RECORD INDEXES:  ABA (#1132), AN (#1134), AVA (#1135)
1.1 CODING SYSTEM 1;1 POINTER TO ICD CODING SYSTEMS FILE (#80.4) ICD CODING SYSTEMS(#80.4)

  • INPUT TRANSFORM:  I $P($G(^ICDS(+Y,0)),"^",4)=80.1 D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 05, 2011
  • HELP-PROMPT:  Enter a coding system.
  • DESCRIPTION:  
    This is the coding system to which the code belongs.
  • SCREEN:  I $P($G(^ICDS(+Y,0)),"^",4)=80.1
  • EXPLANATION:  The screen limits the coding system to those allowed in file 80.1.
  • CROSS-REFERENCE:  80.1^ACT4^MUMPS
    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.
  • CROSS-REFERENCE:  80.1^AD2^MUMPS
    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.
  • CROSS-REFERENCE:  80.1^ASTS2^MUMPS
    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.
  • CROSS-REFERENCE:  80.1^ADSS2^MUMPS
    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.
  • RECORD INDEXES:  ABA (#1132), AN (#1134)
1.2 IDENTIFIER 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 30, 2011
  • HELP-PROMPT:  Enter one or more valid codes.
  • DESCRIPTION:  
    This field contains Operations Identifiers.
  • EXECUTABLE HELP:  D ^ICDHLPO
1.5 MDC24 1;5 SET
  • '1' FOR CRANIAL;
  • '2' FOR LIMB;
  • '3' FOR OTHER;

  • LAST EDITED:  SEP 30, 2011
  • HELP-PROMPT:  Enter procedure type for Multiple Significant Trauma.
  • DESCRIPTION:  
    Set of codes refers to body site of procedure, when for a Multiple Significant Trauma (MDC 24)
1.7 ICD EXPANDED 1;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 05, 2011
  • HELP-PROMPT:  Is this ICD code expanded by the VA?
  • DESCRIPTION:  
    This field is a flag indicating that the ICD code was expanded by the VA (local code).
  • RECORD INDEXES:  AVA (#1135)
1.8 EXCLUDE FROM LOOKUP COMPUTED

  • MUMPS CODE:  S X=$S((($O(^ICD0(+D0,66,0))'>0)&($O(^ICD0(+D0,68,0))>0))!($P($G(^ICD0(+D0,1)),"^",7)>0):1,1:0)
  • ALGORITHM:  S X=$S((($O(^ICD0(+D0,66,0))'>0)&($O(^ICD0(+D0,68,0))>0))!($P($G(^ICD0(+D0,1)),"^",7)>0):1,1:0)
  • LAST EDITED:  OCT 05, 2011
  • DESCRIPTION:  This is a computed field to indicate if a record in the Operations/Procedure file #80.1 should be excluded from lookup. Records excluded from lookup either have no activation history (sub-file 80.166) or have been
    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.
10 SEX 3;0 DATE Multiple #80.11 80.11

  • DESCRIPTION:  
    This is a history of the Sex designation (Male/Female) for the procedure and includes the Sex with the date it became effective.
20 MAJOR O.R. PROC M;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 30, 2011
  • HELP-PROMPT:  Enter one or more Major O.R. Procedures.
  • DESCRIPTION:  
    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.
  • EXECUTABLE HELP:  D MAJ^ICDHLPD
66 STATUS 66;0 DATE Multiple #80.166 80.166

  • LAST EDITED:  SEP 15, 2011
  • DESCRIPTION:  
    This multiple contains versioned information for an ICD code.  A new entry is created whenever an ICD code's status is changed.
67 OPERATION/PROCEDURE 67;0 DATE Multiple #80.167 80.167

  • LAST EDITED:  SEP 15, 2011
  • DESCRIPTION:  
    This is a history of the operation/procedure (short text) to include the date the text was first used along with the text.
68 DESCRIPTION 68;0 DATE Multiple #80.168 80.168

  • LAST EDITED:  SEP 15, 2011
  • DESCRIPTION:  
    This is a history of the descriptive text to include the date the text was first used and the text used.
71 DRG GROUPER 2;0 DATE Multiple #80.171 80.171

  • LAST EDITED:  SEP 15, 2011
  • DESCRIPTION:  
    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.
73 DRG PROCEDURE IDENTIFIER CODES 73;0 POINTER Multiple #80.173 80.173

  • LAST EDITED:  MAY 30, 2012
  • DESCRIPTION:  
    This is a listing of identifier codes used in the DRG rules processing to determine DRG.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2436
  • CLINICAL REMINDERS
  • External References

    Name Field # of Occurrence
    EN^DDIOL ID1.1+1
    ^DIC 1.1+1
    $$GET1^DIQ IXABSCC+1, IXABASCC+1, IXANSCC+1, IXBASCC+1
    ^ICDEXLK DIC+1
    $$NUM^ICDEXS IXANP2TS+1
    MAJ^ICDHLPD 20(HELP )
    ^ICDHLPO 1.2(HELP )
    $$IDOPF^ICDID ID1.1+1
    KAD2^ICDIDX 1.1(XREF 3K)
    KADSS2^ICDIDX 1.1(XREF 5K)
    KASTS2^ICDIDX 1.1(XREF 4K)
    SAD2^ICDIDX 1.1(XREF 3S)
    SADSS2^ICDIDX 1.1(XREF 5S)
    SASTS2^ICDIDX 1.1(XREF 4S)
    KAHC^ICDIDX2 .01(XREF 3K)
    KAHCS^ICDIDX2 1.1(XREF 2K)
    SAHC^ICDIDX2 .01(XREF 3S)
    SAHCS^ICDIDX2 1.1(XREF 2S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^ICD0 - [#80.1] IXAEXCSCC+1, 1.8+1
    ^ICD0("AB" IXABSL+1*, IXABKL+1!, IXABKEIC+1!
    ^ICD0("ABA" IXABASL+1*, IXABAKL+1!, IXABAKEIC+1!
    ^ICD0("AEXC" IXAEXCSL+1*, IXAEXCKL+1!, IXAEXCKEIC+1!
    ^ICD0("AN" IXANSL+1*, IXANKL+1!, IXANKEIC+1!
    ^ICD0("AVA" IXAVASL+1*, IXAVAKL+1!
    ^ICD0("BA" IXBASL+1*, IXBAKL+1!, IXBAKEIC+1!
    ^ICD9("AVA" IXAVAKEIC+1!
    ^ICDS - [#80.4] 1.1+1, 1.1SCR+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 1.8+1
    >> DA IXABSL+1, IXABSCC+1, IXABKL+1, IXABASL+1, IXABASCC+1, IXABAKL+1, IXAEXCSL+1, IXAEXCSCC+1, IXAEXCKL+1, IXANSL+1
    , IXANSCC+1, IXANKL+1, IXAVASL+1, IXAVAKL+1, IXBASL+1, IXBASCC+1, IXBAKL+1
    DIC 1.1+1!*
    >> DIE 1.1+1
    X IXABSL+1, IXABSCC+1*, IXABKL+1, IXABP1TS+1*, IXABASCC+1*, IXABAP2TS+1*, IXAEXCSL+1, IXAEXCSCC+1*, IXAEXCKL+1, IXAEXCP1TS+1*
    , IXANSCC+1*, IXANP1TS+1*, IXANP2TS+1*, IXAVASCC+1*, IXAVAP1TS+1*, IXBASL+1, IXBASCC+1*, IXBAKL+1, IXBAP1TS+1*, .01+1!
    , 1.1+1*!, 1.2+1!, 1.8+1*, 20+1!
    X(1 IXABASL+1, IXABAKL+1, IXANSL+1, IXANKL+1, IXAVASL+1, IXAVAKL+1
    X(2 IXABASL+1, IXABAKL+1, IXANSL+1, IXANKL+1, IXAVASCC+1
    >> Y ID1.1+1, 1.1+1, 1.1SCR+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All