Global: ^ICM

Information

FileMan FileNo	FileMan Filename	Package
80.3	MAJOR DIAGNOSTIC CATEGORY	DRG Grouper

Package	Total	Routines
DRG Grouper	4	DISORDER/PROCEDURE ICD1831W ICDEXD2 ICDPSTV
Patient Care Component Reports	4	APCLCH2P APCLCH2S APCLTEN1 APCLTENP
Lexicon Utility	3	LEXQHL1 LEXQHL2 LEXQID2
Referred Care Information System	2	BMCFYP BMCTENP
Automated Information Collection System	1	IBDFLST
Contract Health Management Information System	1	ACHSDFL
IHS Code Set Versioning	1	BCSVP2
IHS ICD CPT Lookup and Grouper	1	AICDPREI
PCE Patient Care Encounter	1	PXRRFDP
Patient Chart	1	BPCGDX

Package	Total	Routines
DRG Grouper	1	ICDPSTV
IHS Code Set Versioning	1	BCSVP2

Package	Total	FileMan Files
DRG Grouper	6	DRG(#80.2)[5, #80.266(.05)] ICD OPERATION/PROCEDURE(#80.1)[#80.1711(.01)] ICD DIAGNOSIS(#80)[#80.072(1)] TEMPORARY DIAGNOSES(#80.7)[5] TEMPORARY PROCEDURES(#80.8)[#80.82(.01)] TEMPORARY DRG FILE(#80.9)[5]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 29, 1990` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: corresponds to the MDC #.
.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: Name of the MDC. DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `80.3^B` 1)= S ^ICM("B",$E(X,1,30),DA)="" 2)= K ^ICM("B",$E(X,1,30),DA)
1	DISORDER/PROCEDURE	1;0	Multiple #80.31	80.31 DESCRIPTION: Disorder/procedure associated with this MDC.

NUMBER

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:
```
Name of the MDC.
```
DELETE TEST: .01,0)= I 1

CROSS-REFERENCE: 80.3^B

1)= S ^ICM("B",$E(X,1,30),DA)=""

2)= K ^ICM("B",$E(X,1,30),DA)

DISORDER/PROCEDURE

1;0

Multiple #80.31

DESCRIPTION:

Disorder/procedure associated with this MDC.

Name	Line Occurrences (* Changed, ! Killed)
^ICM("B"	.01(XREF 1S), .01(XREF 1K)

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K)