Global: ^ICD

FileMan FileNo	FileMan Filename	Package
80.2	DRG	DRG Grouper

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 ICD1882X ICD1890A ICD1890O ICD1893A ICD1893O ICD1896A ICD1896O ICD1899A ICD1899O ICD18PT ICDDG010 ICDDRG0 ICDDRG14 ICDEXD ICDEXD2 ICDEXD4 ICDEXD5 ICDEXD6 ICDID ^ICDD(83.71 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

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

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)[60, 61, 62, 63, 64, 65] 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]

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.`

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

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

Customize PDF page

Package: DRG Grouper

Global: ^ICD

Information

Description

Directly Accessed By Routines, Total: 78

Accessed By FileMan Db Calls, Total: 34

Pointed To By FileMan Files, Total: 19

Pointer To FileMan Files, Total: 1

Fields, Total: 23

External References

Global Variables Directly Accessed

Local Variables

Legend: