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 |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^ICD

Package: DRG Grouper

Global: ^ICD


Information

FileMan FileNo FileMan Filename Package
80.2 DRG DRG Grouper

Description

Directly Accessed By Routines, Total: 78

Package Total Routines
DRG Grouper 49 *DESCRIPTION    *DRG GROUPER EFFECIVE DATE    DESCRIPTION    DESCRIPTION (VERSIONED)    EFFECTIVE DATE    ICD112A    ICD115A    ICD115O
ICD125PT    ICD14PST    ICD15PT    ICD16PT    ICD18105A    ICD18105O    ICD18108A    ICD1810A
ICD1824A    ICD1824B    ICD182P    ICD1831A    ICD1831O    ICD183P    ICD1853P    ICD185P
ICD187PT    ICD1882A    ICD1882O    ICDDG010    ^ICDD(83.71    ICD1882X    ICD1890A    ICD1890O
ICD1893A    ICD1893O    ICD1896A    ICD1896O    ICD1899A    ICD1899O    ICD18PT    ICDDRG0
ICDDRG14    ICDEXD    ICDEXD2    ICDEXD4    ICDEXD5    ICDEXD6    ICDID    ICDJC3
ICDRGAPI    
Lexicon Utility 17 LEX2030P    LEX2031P    LEX2033P    LEX2034P    LEX2035P    LEX2036P    LEX2037P    LEX2038P
LEX2039P    LEX2040P    LEX2042P    LEX2043P    LEX2045P    LEX2046P    LEX2048P    LEX2087P
LEXQID3    
Registration 11 DG53178P    DGOIL1    DGPTBE1    DGPTBE2    DGPTBEP    DGPTOD1    ^DGPT    DGPTMOVE
DGPTOD2    DGPTODI2    DGPTODI3    
Integrated Billing 1 IBACSV    

Accessed By FileMan Db Calls, Total: 34

Package Total Routines
Lexicon Utility 16 LEX2030P    LEX2031P    LEX2033P    LEX2034P    LEX2035P    LEX2036P    LEX2037P    LEX2038P
LEX2039P    LEX2040P    LEX2042P    LEX2043P    LEX2045P    LEX2046P    LEX2048P    LEX2087P
DRG Grouper 11 ICD125PT    ICD142PT    ICD14PST    ICD16PT    ICD1810A    ICD1822P    ICD1824A    ICD182P
ICD185P    ICD18PT    ICDID    
Registration 5 DG53178P    DGPTBE1    DGPTBE2    DGPTODI1    DGPTTRIM    
Integrated Billing 2 IBCRU1    IBTRHLI3    

Pointed To By FileMan Files, Total: 19

Package Total FileMan Files
DRG Grouper 8 ICD OPERATION/PROCEDURE(#80.1)[#80.17111(.01)]    ICD DIAGNOSIS(#80)[#80.711(.01)]    DRG MDC CATEGORY DRG(#83.1)[.01]    DRG DIAGNOSIS CODE COMBINATIONS(#82.12)[#82.12161(.01)]    DRG PROCEDURE CODE COMBINATIONS(#82.11)[#82.11161(.01)]    DRG SURGICAL HIERARCHY(#80.5)[#80.511(.01)]    TEMPORARY DIAGNOSES(#80.7)[606162636465]    TEMPORARY PROCEDURES(#80.8)[#80.82(1)#80.82(2)#80.82(3)#80.82(4)#80.82(5)#80.82(6)]    
Integrated Billing 6 BILL/CLAIMS(#399)[170]    CHARGE ITEM(#363.2)[.01]    TRANSFER PRICING TRANSACTIONS(#351.61)[1.01]    CLAIMS TRACKING ALOS(#356.5)[.01]    HCS REVIEW TRANSMISSION(#356.22)[#356.223(.02)]    INPATIENT INTERIM DRG(#356.93)[.01]    
DSS Extracts 2 ADMISSION EXTRACT(#727.802)[31]    ADMISSION SETUP EXTRACT(#727.82)[31]    
Registration 2 PTF CLOSE OUT(#45.84)[6]    PTF(#45)[#45.02(20)]    
Fee Basis 1 FEE BASIS INVOICE(#162.5)[24]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
DRG Grouper 1 MAJOR DIAGNOSTIC CATEGORY(#80.3)[5#80.266(.05)]    

Fields, Total: 23

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
  • DESCRIPTION:  
    This is the DRG number
.01 NAME 0;1

  • INPUT TRANSFORM:  K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    This is the DRG number with "DRG" affixed as a prefix.
  • CROSS-REFERENCE:  80.2^B
    1)= S ^ICD("B",$E(X,1,30),DA)=""
    2)= K ^ICD("B",$E(X,1,30),DA)
    ^ICD("B",DRG,IEN) - Where DRG is the DRG's Name and IEN is the internal entry number in the DRG file #80.2 where the DRG is stored.
.06 *SURGERY 0;6 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 08, 2019
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2004. This field is now being updated/maintained in the EFFECTIVE DATE multiple.
    This is a flag set =1 if this is a surgical DRG.
  • TECHNICAL DESCR:  
    This is now in the SURGERY field (#.06) of the EFFECTIVE DATE multiple (#80.266).
1 *DESCRIPTION 1;0 Multiple #80.21 80.21

  • LAST EDITED:  APR 11, 2019
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2004.
    This is the description of the DRG
2 *WEIGHT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  Type a Number between 0 and 9999, 3 Decimal Digits
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015. This field is now being updated/maintained in the FISCAL YEAR WEIGHTS&TRIMS multiple.
    This field contains the weighted work unit (WWU) value assigned to the DRG.
  • TECHNICAL DESCR:  
    This is now in the WEIGHT field (#2) of the FISCAL YEAR WEIGHTS&TRIMS multiple (#80.22).
3 *LOW TRIM(days) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015. This field is now being updated/maintained in the FISCAL YEAR WEIGHTS&TRIMS multiple.
    Lowest # days of stay for this DRG
  • TECHNICAL DESCR:  
    This is now in the LOW TRIM(days) field (#3) of the FISCAL YEAR WEIGHTS&TRIMS multiple (#80.22).
4 *HIGH TRIM(days) 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015. This field is now being updated/maintained in the FISCAL YEAR WEIGHTS&TRIMS multiple.
    Highest # of days of stay for this DRG
  • TECHNICAL DESCR:  
    This is now in the HIGH TRIM(days) field (#4) of the FISCAL YEAR WEIGHTS&TRIMS multiple (#80.22).
5 *MDC# 0;5 POINTER TO MAJOR DIAGNOSTIC CATEGORY FILE (#80.3) MAJOR DIAGNOSTIC CATEGORY(#80.3)

  • LAST EDITED:  MAY 02, 2019
  • HELP-PROMPT:  Enter the MDC name or number this DRG is associated with.
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2004. This field is now being updated/maintained in the EFFECTIVE DATE multiple.
    MDC for this DRG.
  • TECHNICAL DESCR:  
    This is now in the MDC# field (#.05) of the EFFECTIVE DATE multiple (#80.266).
7 *WEIGHT(nonAffil) 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 10000
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    This field contains the weighted work unit (WWU) value assigned to the DRG.
7.5 *WEIGHT(IntAffil) 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 10000
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    This field contains the weighted work unit (WWU) value assigned to the DRG.
10 *AVG LENGTH OF STAY(days) 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015. This field is now being updated/maintained in the FISCAL YEAR WEIGHTS&TRIMS multiple.
    Average Length of Stay for this DRG
  • TECHNICAL DESCR:  
    This is now in the AVG LENGTH OF STAY(days) field (#4.5) of the FISCAL YEAR WEIGHTS&TRIMS multiple (#80.22).
11 *LOCAL LOW TRIM(Days) 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    Low # days of stay for this (local) facility
12 *LOCAL HIGH TRIM(Days) 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    High # days of stay for this (local) facility
13 *LOCAL BREAKEVEN 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>366)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  Type a Number between 0 and 366, 1 Decimal Digit
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    The day on which the actual cost of care equals the estimated allocation for the assigned medical center.
14 *ACTIVATION DATE 0;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  ENTER ACTIVATION DATE FOR THE DRG CODE
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    ACTIVATION DATE FOR THE DRG CODE
15 *INACTIVE 0;14 SET
  • '1' FOR INACTIVE;
  • '0' FOR ACTIVE;

  • LAST EDITED:  APR 11, 2019
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    INACTIVE FLAG FOR DRG CODE
16 *INACTIVATION DATE 0;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  ENTER DATE CODE BECAME INACTIVE
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    DATE THAT THE CODE BECAME INACTIVE
20 FISCAL YEAR WEIGHTS&TRIMS FY;0 DATE Multiple #80.22 80.22

  • DESCRIPTION:  
    Weight and Trims by fiscal year
30 *BREAKEVEN FISCAL YEAR/QUARTER BE;0 Multiple #80.23 80.23

  • LAST EDITED:  APR 11, 2019
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    This field contains the breakeven FY quarter.
66 EFFECTIVE DATE 66;0 DATE Multiple #80.266 80.266

  • DESCRIPTION:  
    Effective date of the code set versioned level.
68 DESCRIPTION (VERSIONED) 68;0 DATE Multiple #80.268 80.268

  • 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 EFFECIVE DATE 2;0 DATE Multiple #80.271 80.271

  • LAST EDITED:  APR 11, 2019
  • DESCRIPTION:  
    This field is OBSOLETE as of 10/1/2015.
900 *REFERENCE MC1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 11, 2019
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  This field is OBSOLETE as of 10/1/2015.
    This field contains the name of the routine that contains the grouper logic for this field.

External References

Name Field # of Occurrence
^%DT 14+1, 16+1
EN^DDIOL ID15+1
$$IDDGS^ICDID ID15+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD("B" .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 14+1*, 16+1*
>> DA .01(XREF 1S), .01(XREF 1K)
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3+1!, 4+1!, 7+1!, 7.5+1!, 10+1!
, 11+1!, 12+1!, 13+1!, 14+1*!, 16+1*!, 900+1!
>> Y ID15+1, 14+1, 16+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All