STANDARD DATA DICTIONARY #80.9 -- TEMPORARY DRG FILE FILE 9/29/25 PAGE 1
STORED IN ^ICDYZ(80.9, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 14.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all DRG's, their Trim Points, Affiliated and Non-affiliated weights, etc.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B)
80.9,.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
80.9,.01 NAME 0;1 (Required)
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)
80.9,.06 SURGERY 0;6 SET
'1' FOR YES;
DESCRIPTION:
This is a flag set =1 if this is a surgical DRG.
80.9,1 DESCRIPTION 1;0 Multiple #80.91 (Add New Entry without Asking)
DESCRIPTION:
This is the description of the DRG
80.91,.01 DESCRIPTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
80.9,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.
80.9,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
80.9,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
80.9,5 MDC# 0;5 POINTER TO MAJOR DIAGNOSTIC CATEGORY FILE (#80.3) (Required)
MAJOR DIAGNOSTIC CATEGORY
LAST EDITED: MAR 20, 1984
HELP-PROMPT: Enter the MDC name or number this DRG is associated with.
DESCRIPTION:
MDC for this DRG.
80.9,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.
80.9,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.
80.9,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
80.9,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
80.9,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
80.9,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
80.9,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.
80.9,20 FISCAL YEAR WEIGHTS&TRIMS FY;0 Multiple #80.92
DESCRIPTION:
Weight and Trims by fiscal year
80.92,.01 FISCAL YEAR WEIGHTS&TRIMS 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: MAR 20, 1984
HELP-PROMPT: Enter the fiscal year for data (ex: '84' for fiscal year 1984)
DESCRIPTION:
This field contains the weights and trims by FY.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.92,2 WEIGHT 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: DEC 13, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 3 Decimal Digits
DESCRIPTION:
This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY.
80.92,2.5 WEIGHT(nonAffil) 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: DEC 11, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999
DESCRIPTION:
This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY.
80.92,2.6 WEIGHT(IntAfill) 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: DEC 11, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 10000
DESCRIPTION:
This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY.
80.92,3 LOW TRIM(days) 0;3 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:
This field contains the low trim days for a given FY.
80.92,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:
This field contains the high trim days for a given FY.
80.92,4.5 AVG LENGTH OF STAY(days) 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 20, 1984
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
DESCRIPTION:
This field contains the average length of stay for a given FY.
80.92,6 LOCAL LOW TRIM(days) 0;6 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:
This field contains the local low trim days for a given FY.
80.92,7 LOCAL HIGH TRIM(days) 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 20, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 400
DESCRIPTION:
This field contains the local high trim days for a given FY
80.9,30 BREAKEVEN FISCAL YEAR/QUARTER BE;0 Multiple #80.93
DESCRIPTION:
This field contains the breakeven FY quarter.
80.93,.01 BREAKEVEN FISCAL YEAR/QUARTER 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>994)!(X<801)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: APR 29, 1988
HELP-PROMPT: Enter fiscal year/quarter as 861 for fiscal year 86, first quarter
DESCRIPTION:
This field contains the breakeven FY quarter.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.93,1 SERVICE S;0 SET Multiple #80.94 (Add New Entry without Asking)
DESCRIPTION:
This field contains the service for which this breakeven applies.
80.94,.01 SERVICE 0;1 SET
'1' FOR MEDICINE;
'2' FOR NEUROLOGY;
'3' FOR PSYCHIATRY;
'4' FOR REHAB MEDICINE;
'5' FOR SURGERY;
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: MAR 13, 1987
HELP-PROMPT: Enter the service for the breakeven factor
DESCRIPTION:
This field contains the service for which this breakeven applies.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.94,1 BREAK EVEN DAYS 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>366)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: AUG 05, 1987
HELP-PROMPT: Type a Number between 0 and 366, 1 Decimal Digit allowed
DESCRIPTION:
This field contains the Breakeven days for the given service.
80.93,2 MEDICAL CENTER BREAKEVEN 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>366)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: AUG 05, 1987
HELP-PROMPT: Type a Number between 0 and 366, 1 Decimal Digit allowed
DESCRIPTION:
This field contains the breakeven days for the Medical Center.
80.9,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.
FILES POINTED TO FIELDS
MAJOR DIAGNOSTIC CATEGORY
(#80.3) MDC# (#5)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):