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: 69

Package Total Routines
DRG Grouper 39 DESCRIPTION    DESCRIPTION (VERSIONED)    DRG GROUPER EFFECIVE DATE    EFFECTIVE DATE    ICD125PT    ICD14PST    ICD15PT    ICD16PT
ICD1810A    ICD1824A    ICD1824B    ICD182P    ICD1831A    ICD1831O    ICD183P    ICD1853P
ICD185P    ICD187PT    ICD1882A    ICD1882O    ICD1882X    ICD1890A    ICD1890O    ICD1893A
ICD1893O    ICD1896A    ICD1896O    ICD18PT    ICDDG010    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    DGPTMOVE    DGPTOD1    DGPTOD2
DGPTODI2    DGPTODI3    ^DGPT    
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;

  • DESCRIPTION:  
    This is a flag set =1 if this is a surgical DRG.
1 DESCRIPTION 1;0 Multiple #80.21 80.21

  • DESCRIPTION:  
    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:  DEC 13, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 3 Decimal Digits
  • DESCRIPTION:  
    This field contains the weighted work unit (WWU) value assigned to the DRG.
3 LOW TRIM(days) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  
    Lowest # days of stay for this DRG
4 HIGH TRIM(days) 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 13, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Highest # of days of stay for this DRG
5 MDC# 0;5 POINTER TO MAJOR DIAGNOSTIC CATEGORY FILE (#80.3)
************************REQUIRED FIELD************************
MAJOR DIAGNOSTIC CATEGORY(#80.3)

  • LAST EDITED:  MAR 20, 1984
  • HELP-PROMPT:  Enter the MDC name or number this DRG is associated with.
  • DESCRIPTION:  
    MDC for this DRG.
7 WEIGHT(nonAffil) 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  DEC 12, 1985
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 10000
  • DESCRIPTION:  
    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:  DEC 12, 1985
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 10000
  • DESCRIPTION:  
    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:  MAR 27, 1984
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    Average Length of Stay for this DRG
11 LOCAL LOW TRIM(Days) 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  
    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:  DEC 13, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    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:  MAR 15, 1988
  • HELP-PROMPT:  Type a Number between 0 and 366, 1 Decimal Digit
  • DESCRIPTION:  
    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 07, 2003
  • HELP-PROMPT:  ENTER ACTIVATION DATE FOR THE DRG CODE
  • DESCRIPTION:  
    ACTIVATION DATE FOR THE DRG CODE
15 INACTIVE 0;14 SET
  • '1' FOR INACTIVE;
  • '0' FOR ACTIVE;

  • LAST EDITED:  APR 07, 2003
  • DESCRIPTION:  
    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 07, 2003
  • HELP-PROMPT:  ENTER DATE CODE BECAME INACTIVE
  • DESCRIPTION:  
    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

  • DESCRIPTION:  
    This field contains the breakeven FY quarter.
66 EFFECTIVE DATE 66;0 DATE Multiple #80.266 80.266
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
900 REFERENCE MC1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 16, 1992
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    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