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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^ICDYZ(80.9

Package: DRG Grouper

Global: ^ICDYZ(80.9


Information

FileMan FileNo FileMan Filename Package
80.9 TEMPORARY DRG FILE DRG Grouper

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
DRG Grouper 2 ^ICDYZ(80.9    ICDPSTV    

Pointer To FileMan Files, Total: 1

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

Fields, Total: 18

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
  • LAST EDITED:  APR 03, 1997
  • 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.9^B
    1)= S ^ICDYZ(80.9,"B",$E(X,1,30),DA)=""
    2)= K ^ICDYZ(80.9,"B",$E(X,1,30),DA)
.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.91 80.91

  • 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.
8 *MUMPS CODE MC;E1,250 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>250!($L(X)<1) X D ^DIM
  • LAST EDITED:  MAR 12, 1992
  • HELP-PROMPT:  ANSWER MUST BE 1-250 CHARACTERS IN LENGTH
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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.
20 FISCAL YEAR WEIGHTS&TRIMS FY;0 Multiple #80.92 80.92

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

  • DESCRIPTION:  
    This field contains the breakeven FY quarter.
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
^DIM 8+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICDYZ(80.9 - [#80.9] .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> 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!, 8+1!
, 10+1!, 11+1!, 12+1!, 13+1!, 900+1!
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All