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

This file contains all DRG's, their Trim Points, Affiliated and Non-affiliated weights, etc.

Directly Accessed By Routines, Total: 4

Package	Total	Routines
DRG Grouper	4	ICD14PRE ^ICDD(83.71 ^ICDYZ(80.9 ICD14PST

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 | External References | Global Variables Directly Accessed | Local Variables | All