STANDARD DATA DICTIONARY #80.2 -- DRG FILE 3/24/25 PAGE 1
STORED IN ^ICD( (876 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 18.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: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: *INACTIVE (#15)
POINTED TO BY: TRANSFER DRG field (#20) of the 501 sub-field (#45.02) of the PTF File (#45)
DRG field (#6) of the PTF CLOSE OUT File (#45.84)
DRG field (#.01) of the DRG sub-field (#80.17111) of the MAJOR DIAGNOSTIC CATEGORIES sub-field (#80.1711) of the DRG
GROUPER sub-field (#80.171) of the ICD OPERATION/PROCEDURE File (#80.1)
DRG field (#.01) of the DRG sub-field (#80.511) of the MDC sub-field (#80.51) of the DRG SURGICAL HIERARCHY File
(#80.5)
DRGa field (#60) of the TEMPORARY DIAGNOSES File (#80.7)
DRGb field (#61) of the TEMPORARY DIAGNOSES File (#80.7)
DRGc field (#62) of the TEMPORARY DIAGNOSES File (#80.7)
DRGd field (#63) of the TEMPORARY DIAGNOSES File (#80.7)
DRGe field (#64) of the TEMPORARY DIAGNOSES File (#80.7)
DRGf field (#65) of the TEMPORARY DIAGNOSES File (#80.7)
DRG field (#.01) of the DRG sub-field (#80.711) of the DRG GROUPER sub-field (#80.071) of the ICD DIAGNOSIS File
(#80)
DRGa field (#1) of the MAJOR DIAGNOSTIC CATEGORY sub-field (#80.82) of the TEMPORARY PROCEDURES File (#80.8)
DRGb field (#2) of the MAJOR DIAGNOSTIC CATEGORY sub-field (#80.82) of the TEMPORARY PROCEDURES File (#80.8)
DRGc field (#3) of the MAJOR DIAGNOSTIC CATEGORY sub-field (#80.82) of the TEMPORARY PROCEDURES File (#80.8)
DRGd field (#4) of the MAJOR DIAGNOSTIC CATEGORY sub-field (#80.82) of the TEMPORARY PROCEDURES File (#80.8)
DRGe field (#5) of the MAJOR DIAGNOSTIC CATEGORY sub-field (#80.82) of the TEMPORARY PROCEDURES File (#80.8)
DRGf field (#6) of the MAJOR DIAGNOSTIC CATEGORY sub-field (#80.82) of the TEMPORARY PROCEDURES File (#80.8)
DRG field (#.01) of the DRG sub-field (#82.11161) of the MDC sub-field (#82.1116) of the BLOCK sub-field (#82.111)
of the DRG PROCEDURE CODE COMBINATIONS File (#82.11)
DRG field (#.01) of the DRG sub-field (#82.12161) of the MDC sub-field (#82.1216) of the BLOCK sub-field (#82.121)
of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12)
DRG field (#.01) of the DRG MDC CATEGORY DRG File (#83.1)
DISCHARGE DRG field (#24) of the FEE BASIS INVOICE File (#162.5)
DRG field (#1.01) of the TRANSFER PRICING TRANSACTIONS File (#351.61)
DIAGNOSIS CODE field (#.02) of the PATIENT DIAGNOSIS sub-field (#356.223) of the HCS REVIEW TRANSMISSION File
(#356.22)
DRG field (#.01) of the CLAIMS TRACKING ALOS File (#356.5)
NAME field (#.01) of the INPATIENT INTERIM DRG File (#356.93)
NAME field (#.01) of the CHARGE ITEM File (#363.2)
PPS field (#170) of the BILL/CLAIMS File (#399)
PLACEHOLD DRG field (#31) of the ADMISSION EXTRACT File (#727.802)
DRG field (#31) of the ADMISSION SETUP EXTRACT File (#727.82)
CROSS
REFERENCED BY: EFFECTIVE DATE(ADS), NAME(B)
LAST MODIFIED: NOV 13,2019@14:53:24
80.2,.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.2,.01 NAME 0;1 (Required)
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.
80.2,.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).
80.2,1 *DESCRIPTION 1;0 Multiple #80.21 (Add New Entry without Asking)
LAST EDITED: APR 11, 2019
DESCRIPTION: This field is OBSOLETE as of 10/1/2004.
This is the description of the DRG
80.21,.01 *DESCRIPTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
MAXIMUM LENGTH: 80
LAST EDITED: MAY 07, 2019
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION: This field is OBSOLETE as of 10/1/2004. This field is now being updated/maintained in the
DESCRIPTION (VERSIONED) multiple.
TECHNICAL DESCR:
This is now in the DESCRIPTION field (#.01) of the DESCRIPTION (VERSIONED) multiple (#80.268).
CROSS-REFERENCE: 80.21^B
1)= S ^ICD(DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ICD(DA(1),1,"B",$E(X,1,30),DA)
80.2,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).
80.2,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).
80.2,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).
80.2,5 *MDC# 0;5 POINTER TO MAJOR DIAGNOSTIC CATEGORY FILE (#80.3)
MAJOR DIAGNOSTIC CATEGORY
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).
80.2,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.
80.2,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.
80.2,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).
80.2,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
80.2,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
80.2,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.
80.2,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
80.2,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
80.2,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
80.2,20 FISCAL YEAR WEIGHTS&TRIMS FY;0 DATE Multiple #80.22
DESCRIPTION:
Weight and Trims by fiscal year
80.22,.01 FISCAL YEAR WEIGHTS&TRIMS 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:4991231X) X I $D(X) S X=$E(X,1,3)_"0000",DINUM=X
LAST EDITED: FEB 11, 1998
HELP-PROMPT: TYPE A YEAR BETWEEN 1980 AND 2100
DESCRIPTION:
This field contains the weights and trims by FY.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.22,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.22,2.5 *WEIGHT(nonAffil) 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: APR 11, 2019
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY.
80.22,2.6 *WEIGHT(IntAfill) 0;10 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 for a given FY.
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: 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.22,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.22,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.22,5 *OBSOLETE 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 17, 2019
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
This field is OBSOLETE as of 10/1/2015.
80.22,6 *LOCAL LOW TRIM(days) 0;6 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 contains the local low trim days for a given FY.
80.22,7 *LOCAL HIGH TRIM(days) 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 11, 2019
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 400
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the local high trim days for a given FY
80.2,30 *BREAKEVEN FISCAL YEAR/QUARTER BE;0 Multiple #80.23
LAST EDITED: APR 11, 2019
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the breakeven FY quarter.
80.23,.01 *BREAKEVEN FISCAL YEAR/QUARTER 0;1 NUMBER
INPUT TRANSFORM: K:X'?3N!($E(X,3)>4!'$E(X,3)) X I $D(X) S:X>799 X=19_X S:X<800 X=20_X I $D(X) S DINUM=X
OUTPUT TRANSFORM: S Y=$E(Y,3,5)
LAST EDITED: APR 11, 2019
HELP-PROMPT: Enter fiscal year/quarter as 861 for fiscal year 86, first quarter
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the breakeven FY quarter.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.23,1 *SERVICE S;0 SET Multiple #80.24 (Add New Entry without Asking)
LAST EDITED: APR 11, 2019
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the service for which this breakeven applies.
80.24,.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: APR 11, 2019
HELP-PROMPT: Enter the service for the breakeven factor
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the service for which this breakeven applies.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.24,1 *BREAK EVEN DAYS 0;2 NUMBER (Required)
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 allowed
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the Breakeven days for the given service.
80.23,2 *MEDICAL CENTER BREAKEVEN 0;2 NUMBER (Required)
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 allowed
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field contains the breakeven days for the Medical Center.
80.2,66 EFFECTIVE DATE 66;0 DATE Multiple #80.266
DESCRIPTION:
Effective date of the code set versioned level.
80.266,.01 EFFECTIVE DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 28, 2019
HELP-PROMPT: Enter the EFFECTIVE DATE for the DRG data to be retained
DESCRIPTION:
Effective date of the code set versioned level.
CROSS-REFERENCE: 80.266^B
1)= S ^ICD(DA(1),66,"B",$E(X,1,30),DA)=""
2)= K ^ICD(DA(1),66,"B",$E(X,1,30),DA)
80.266,.03 STATUS 0;3 SET (Required)
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: MAY 28, 2019
HELP-PROMPT: Enter the status flag for the DRG code
DESCRIPTION:
Status flag for DRG code
80.266,.05 MDC# 0;5 POINTER TO MAJOR DIAGNOSTIC CATEGORY FILE (#80.3) (Required)
LAST EDITED: MAY 28, 2019
HELP-PROMPT: Enter the major diagnosis code
DESCRIPTION:
This is the major diagnosis code for the DRG
80.266,.06 SURGERY 0;6 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 28, 2019
HELP-PROMPT: Enter the surgery flag for the DRG code
DESCRIPTION:
Surgery flag for DRG code
80.2,68 DESCRIPTION (VERSIONED) 68;0 DATE Multiple #80.268
DESCRIPTION: This is a history of the descriptive text to include the date the text was first used and the text
used.
80.268,.01 EFFECTIVE DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2781001>X X
LAST EDITED: MAY 30, 2019
HELP-PROMPT: Type a date not earlier than OCT 01, 1978.
DESCRIPTION:
This is the date the description was first used.
CROSS-REFERENCE: 80.268^B
1)= S ^ICD(DA(1),68,"B",$E(X,1,30),DA)=""
2)= K ^ICD(DA(1),68,"B",$E(X,1,30),DA)
^ICD(IEN1,68,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the DRG file #80.2, EFF
is the effective date for the description (long text), and IEN2 is the internal entry number in
the DESCRIPTION (VERSIONED) multiple where the versioned description is stored.
CROSS-REFERENCE: 80.2^ADS^MUMPS
1)= S:$L($P($G(^ICD(DA(1),0)),"^",1)) ^ICD("ADS",($P($G(^ICD(DA(1),0)),"^",1)_" "),+X,DA(1),DA)="
"
2)= K:$L($P($G(^ICD(DA(1),0)),"^",1)) ^ICD("ADS",($P($G(^ICD(DA(1),0)),"^",1)_" "),+X,DA(1),DA)
^ICD("ADS",(DRG_" "),EFF,IEN1,IEN2) - Where DRG is the DRG Name, EFF is the effective date for
the description (long text), IEN1 is the internal entry number in the DRG file (#80.2) and IEN2
is the internal entry number in the DESCRIPTION (VERSIONED) multiple where the versioned long
text is stored.
80.268,1 DESCRIPTION 1;0 Multiple #80.2681
DESCRIPTION:
This is the long description (multiple line).
80.2681,.01 DESCRIPTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: MAR 10, 2004
HELP-PROMPT: Answer must be 1-80 characters in length
DESCRIPTION:
This is a single line of text for a multiple lined description.
CROSS-REFERENCE: 80.2681^B
1)= S ^ICD(DA(2),68,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ICD(DA(2),68,DA(1),1,"B",$E(X,1,30),DA)
^ICD(IEN3,68,IEN2,1,"B",TEXT,IEN1) - Where IEN3 is the internal entry number to the DRG file
#80.2, IEN2 is the internal entry number of the DESCRIPTION (VERSIONED) multiple #80.268, TEXT
is a single line of text of a multiple lined description, and IEN1 is the internal entry number
of the DESCRIPTION sub-file #80.2681 where the text is stored.
80.2,71 *DRG GROUPER EFFECIVE DATE 2;0 DATE Multiple #80.271
LAST EDITED: APR 11, 2019
DESCRIPTION:
This field is OBSOLETE as of 10/1/2015.
80.271,.01 *DRG GROUPER EFFECIVE DATE 0;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 11, 2019
DESCRIPTION: This field is OBSOLETE as of 10/1/2015.
This field sets the effective date for the DRGs reference table for a given fiscal year. It
should normally be the first day of October of the fiscal year. Each year a new entry will be
created and the DRG's reference table to be used will reside within this field.
CROSS-REFERENCE: 80.271^B
1)= S ^ICD(DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^ICD(DA(1),2,"B",$E(X,1,30),DA)
80.271,1 *REFERENCE 0;3 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.
80.271,2 *COMPLICATION/COMORBIDITY FLAG 0;4 SET
'0' FOR No CC or MCC;
'1' FOR CC present;
'2' FOR MCC present;
'3' FOR CC or MCC present;
LAST EDITED: APR 11, 2019
HELP-PROMPT: 0=None, 1=CC, 2=MCC and 3=CC or MCC
DESCRIPTION:
This field is OBSOLETE as of 10/1/2015.
80.2,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.
FILES POINTED TO FIELDS
MAJOR DIAGNOSTIC CATEGORY
(#80.3) *MDC# (#5)
EFFECTIVE DATE:MDC# (#.05)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):