Global: ^ICD

FileMan FileNo	FileMan Filename	Package
80.2	DRG	DRG Grouper

Package	Total	Routines
DRG Grouper	24	DESCRIPTION DESCRIPTION (VERSIONED) DRG GROUPER EFFECTIVE DATE EFFECTIVE DATE ICD1824A ICD1824B ICD1831A ICD1831O ICD1856A ICD1856O ICD1865A ICD187PT ICD18PT ICDDRG0 ICDDRG14 ICDEXD ICDEXD2 ICDEXD4 ICDEXD5 ICDID ^ICD ICDPSTV ICDPSTV1 ICDZCOST
Registration	10	DGOIL1 DGPTBE1 DGPTBE2 DGPTBEP DGPTFMO DGPTMOVE DGPTOD1 DGPTOD2 DGPTODI2 DGPTODI3
Contract Health Management Information System	5	ACHSCHF1 ACHSEOB3 ACHSEOB9 ACHSGRP ACHSPAM
Integrated Billing	3	IBTOBI4 IBTRV2 IBTRVD
IHS Code Set Versioning	2	BCSVP2 BCSVUT
IHS ICD CPT Lookup and Grouper	2	AICDGRP1 AICDPREI
Patient Chart	2	BPCRC5 BPCRC7
IHS Changes To ADT	1	BDGPCCE1
Lexicon Utility	1	LEXQID3

Package	Total	Routines
Table Maintenance	6	AUM101E AUM111E AUM61E AUM71E AUM81E AUM91E
DRG Grouper	4	ICD1824A ICD18PT ICDID ICDPSTV1
Registration	4	DGPTBE1 DGPTBE2 DGPTODI1 DGPTTRIM
IHS Code Set Versioning	1	BCSVUT

Package	Total	FileMan Files
DRG Grouper	4	ICD OPERATION/PROCEDURE(#80.1)[#80.17111(.01)] ICD DIAGNOSIS(#80)[#80.711(.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	2	CLAIMS TRACKING ALOS(#356.5)[.01] INPATIENT INTERIM DRG(#356.93)[.01]
Referred Care Information System	2	RCIS REFERRAL(#90001)[.21, .22] RCIS ROUTINE REFERRAL DEF(#90001.32)[.21, .22]
Registration	2	PTF CLOSE OUT(#45.84)[6] PTF(#45)[#45.02(20)]
Contract Health Management Information System	1	CHS FACILITY(#9002080)[#9002080.01(78), #9002080.01(90)]
IHS Patient	1	VISIT(#9000010)[.34]
Patient Care Component	1	PCC DATA ENTRY 3M CODER VISIT(#9001001.9)[.03]

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

Fields, Total: 29

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. DELETE TEST: `.01,0)= I 1` 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; DESCRIPTION: This is a flag set =1 if this is a surgical DRG.
1	DESCRIPTION	1;0	Multiple #80.21	80.21 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. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the HCFA/IHS WEIGHT field of the DRG File`
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.
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 WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the HCFA/IHS GEOM MEAN LOS field of the DRG File`
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.
14	ACTIVATION DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 20, 2006` HELP-PROMPT: `ENTER ACTIVATION DATE FOR THE DRG CODE` DESCRIPTION: ACTIVATION DATE FOR THE DRG CODE
15	INACTIVE	0;14	SET	'1' FOR INACTIVE; '0' FOR ACTIVE; LAST EDITED: `JUN 20, 2006` DESCRIPTION: 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: `JUN 20, 2006` HELP-PROMPT: `ENTER DATE CODE BECAME INACTIVE` DESCRIPTION: 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 DESCRIPTION: This field contains the breakeven FY quarter.
66	EFFECTIVE DATE	66;0	DATE Multiple #80.266	80.266
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 EFFECTIVE DATE	2;0	DATE Multiple #80.271	80.271
900	REFERENCE	MC1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 08, 2007` 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.
99999992	MUMPS CODE	MC;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<1) X` LAST EDITED: `JUN 22, 2006` HELP-PROMPT: `Answer must be 1-250 characters in length.`
999999901	HCFA/IHS WEIGHT	9999999;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99.9999)!(X<.0001)!(X?.E1"."5N.N) X` LAST EDITED: `DEC 22, 1986` HELP-PROMPT: `TYPE A NUMBER BETWEEN .0001 AND 99.9999` CROSS-REFERENCE: `^^TRIGGER^80.2^7` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ICD(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(80.2,999999901,1,1,1.4) 1.4)= S DIH=$S($D(^ICD(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99)) S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=80.2,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ICD(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(80.2,999999901,1,1,2.1) X ^DD(80.2,999999901,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^ICD(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,1) 2.4)= S DIH=$S($D(^ICD(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99)) S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=80.2,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= HCFA/IHS WEIGHT DELETE VALUE)= HCFA/IHS WEIGHT FIELD)= WEIGHT(nonAffil)
999999902	HCFA/IHS ARITH MEAN LOS	9999999;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.9)!(X<.1)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 30, 1987` HELP-PROMPT: `TYPE A NUMBER BETWEEN .1 AND 999.9`
999999903	HCFA/IHS GEOM MEAN LOS	9999999;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.9)!(X<.1)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 30, 1987` HELP-PROMPT: `TYPE A NUMBER BETWEEN .1 AND 999.9` CROSS-REFERENCE: `^^TRIGGER^80.2^10` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ICD(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(80.2,999999903,1,1,1.4) 1.4)= S DIH=$S($D(^ICD(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=80.2,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ICD(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(80.2,999999903,1,1,2.1) X ^DD(80.2,999999903,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^ICD(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,3) 2.4)= S DIH=$S($D(^ICD(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=80.2,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= HCFA/IHS GEOM MEAN LOS DELETE VALUE)= HCFA/IHS GEOM MEAN LOS FIELD)= AV
999999904	HCFA/IHS OUTLIER THRESHOLD	9999999;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 12, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999`
999999905	TEST		COMPUTED	MUMPS CODE: `X ^DD(80.2,999999905,9.4) S X=$S(Y(80.2,999999905,6):Y(80.2,999999905,7),Y(80.2,999999905,8):X),Y=X,X=Y(80.2,999999905,2),X=XY S X=$J(X,0,2)` 9.2 = S Y(80.2,999999905,5)=$S($D(^ICD(D0,0)):^(0),1:""),Y(80.2,999999905,1)=$S($D(^(9999999)):^(9999999),1:"") S X=$P(Y(80.2,999999905,1),U,3) 9.3 = X ^DD(80.2,999999905,9.2) S Y(80.2,999999905,2)=X,Y(80.2,999999905,3)=X,Y(80.2,999999905,4)=X S X=$P(Y(80.2,999999905,5),U,6),X=X S X=X=1 9.4 = X ^DD(80.2,999999905,9.3) S Y(80.2,999999905,6)=X S X=402,Y(80.2,999999905,7)=X S X=1,Y(80.2,999999905,8)=X S X=344 ALGORITHM: `HCFA/IHS GEOM($S(INTERNAL(#.06)=1:402,1:344)) (ALWAYS 2 DECIMAL DIGITS)`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	999999901(XREF 1n1.4), 999999901(XREF 1n2.4), 999999903(XREF 1n1.4), 999999903(XREF 1n2.4)
^DD(80.2	999999901(XREF 1S), 999999901(XREF 1K), 999999903(XREF 1S), 999999903(XREF 1K), 999999905+1, 999999905OF9.3+1, 999999905OF9.4+1
^ICD - [#80.2]	999999901(XREF 1S), 999999901(XREF 1n1.4), 999999901(XREF 1K), 999999901(XREF 1n2.1), 999999901(XREF 1n2.4), 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.1), 999999903(XREF 1n2.4) , 999999905OF9.2+1
^ICD("B"	.01(XREF 1S), .01(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	999999901(XREF 1n1.4), 999999901(XREF 1n2.4), 999999903(XREF 1n1.4), 999999903(XREF 1n2.4)
>> %DT	14+1, 16+1
>> D0	999999901(XREF 1S), 999999901(XREF 1K), 999999901(XREF 1n2.1), 999999903(XREF 1S), 999999903(XREF 1K), 999999903(XREF 1n2.1), 999999905OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), 999999901(XREF 1S), 999999901(XREF 1K), 999999903(XREF 1S), 999999903(XREF 1K)
>> DIG	999999901(XREF 1n1.4), 999999901(XREF 1n2.4), 999999903(XREF 1n1.4), 999999903(XREF 1n2.4)
>> DIH	999999901(XREF 1n1.4), 999999901(XREF 1n2.4), 999999903(XREF 1n1.4), 999999903(XREF 1n2.4)
>> DIU	999999901(XREF 1S), 999999901(XREF 1n1.4), 999999901(XREF 1K), 999999901(XREF 1n2.4), 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.4)
DIV	999999901(XREF 1S), 999999901(XREF 1n1.4), 999999901(XREF 1K), 999999901(XREF 1n2.1), 999999901(XREF 1n2.4), 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.1), 999999903(XREF 1n2.4)
DIV(0	999999901(XREF 1S), 999999901(XREF 1n1.4), 999999901(XREF 1K), 999999901(XREF 1n2.4), 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.4)
U	999999901(XREF 1S), 999999901(XREF 1n1.4), 999999901(XREF 1K), 999999901(XREF 1n2.1), 999999901(XREF 1n2.4), 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.1), 999999903(XREF 1n2.4) , 999999905OF9.2+1, 999999905OF9.3+1
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!, 99999992+1!, 999999901+1!, 999999901(XREF 1S), 999999901(XREF 1n1.4) , 999999901(XREF 1K), 999999901(XREF 1n2.1), 999999901(XREF 1n2.4), 999999902+1!, 999999903+1!, 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.1), 999999903(XREF 1n2.4) , 999999904+1!, 999999905+1, 999999905OF9.2+1, 999999905OF9.3+1, 999999905OF9.4+1
Y	14+1, 16+1, 999999901(XREF 1S), 999999901(XREF 1K), 999999903(XREF 1S), 999999903(XREF 1K), 999999905+1*
Y(	999999905+1, 999999905OF9.2+1, 999999905OF9.3+1, 999999905OF9.4+1*
Y(1	999999901(XREF 1S), 999999901(XREF 1K), 999999901(XREF 1n2.1), 999999903(XREF 1S), 999999903(XREF 1K), 999999903(XREF 1n2.1)

Customize PDF page

Package: DRG Grouper

Global: ^ICD

Information

Description

Directly Accessed By Routines, Total: 51

Accessed By FileMan Db Calls, Total: 15

Pointed To By FileMan Files, Total: 13

Pointer To FileMan Files, Total: 1

Fields, Total: 29

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	14+1, 16+1
^DICR	999999901(XREF 1n1.4), 999999901(XREF 1n2.4), 999999903(XREF 1n1.4), 999999903(XREF 1n2.4)

Name	Field # of Occurrence
^(0	999999901(XREF 1S), 999999901(XREF 1n1.4), 999999901(XREF 1K), 999999901(XREF 1n2.4), 999999903(XREF 1S), 999999903(XREF 1n1.4), 999999903(XREF 1K), 999999903(XREF 1n2.4), 999999905OF9.2+1
^(9999999	999999901(XREF 1n2.1), 999999903(XREF 1n2.1), 999999905OF9.2+1