Routine: ICDEXD2

Package	Total	Call Graph
DRG Grouper	3	($$DTBR,$$EXC,$$FILE,$$GETDRG,$$LS,$$ROOT)^ICDEX $$DRGMDC^ICDEXD ($$DRG,DRGD)^ICDGTDRG
Kernel	1	($$DT,$$FMTE)^XLFDT

Package	Total	Caller Graph
DRG Grouper	2	ICDEX ICDEXD

Name	Comments	DBIA/ICR reference
MD(FILE,IEN,CDT,ARY,FLAG)	; MDC DRGs
VMDCDX(IEN,CDT)	; Get versioned MDC for Diagnosis Code
VMDCOP(IEN,MDC,CDT)	; Get versioned MDC for Op/Pro ICD code from previous years
MDCG(IEN,CDT,ARY)	; Set up ICDMDC() array
MDCT(IEN,CDT,ARY,FMT)	; For Multiple MDC DX Codes
MDCD(IEN,MDC,CDT)	; Check for default MDC
MDCN(IEN)	; Major Diagnostic Category Name
MOR(IEN)	; Major O.R. Procedure
ISVALID(FILE,IEN,CDT)	; Is an ICD code Valid
REF(IEN,CDT)	; Return Reference Table

Name	Field # of Occurrence
$$DTBR^ICDEX	VMDCDX+12, VMDCOP+21, MDCG+16
$$EXC^ICDEX	ISVALID+20
$$FILE^ICDEX	ISVALID+18
$$GETDRG^ICDEX	MDCG+17
$$LS^ICDEX	ISVALID+21
$$ROOT^ICDEX	MD+44, ISVALID+19
$$DRGMDC^ICDEXD	MD+73
$$DRG^ICDGTDRG	MDCG+19
DRGD^ICDGTDRG	MD+61, MD+81
$$DT^XLFDT	MD+44, MDCT+28, ISVALID+17, REF+15
$$FMTE^XLFDT	MD+57, MD+77

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	REF+13, REF+16, REF+17, REF+18
^ICD0 - [#80.1]	MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, VMDCOP+19, VMDCOP+20, VMDCOP+22, VMDCOP+23 , VMDCOP+24, MDCT+26, MDCT+27, MDCT+30, MDCT+31, MDCT+32, MDCD+16, MDCD+17, MDCD+18, MDCD+19 , MOR+10
^ICD9 - [#80]	MD+64, MD+65, MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX+11, VMDCDX+12 , VMDCDX+13, VMDCDX+14, VMDCDX+15, MDCG+15
^ICM - [#80.3]	MD+57, MD+77, MDCN+12

Name	Field # of Occurrence
ARY	MD~, MD+46!, MDCG~, MDCG+16!*, MDCT~
ARY(	MD+54, MD+58, MD+62, MD+74, MD+78, MD+82, MDCG+19*, MDCT+29
CDT	MD~, MD+43, MD+44, MD+47, MD+61, MD+64, MD+81, VMDCDX~, VMDCDX+12, VMDCOP~ , VMDCOP+21, MDCG~, MDCG+16, MDCT~, MDCT+28*, MDCT+30, MDCD~, MDCD+17, ISVALID~, ISVALID+17 , REF~, REF+14
DRG	MD+40~, MD+52, MD+53, MD+71, MD+72, MDCG+19~*
DRGI	MD+56~, MD+59, MD+60, MD+62, MD+76~, MD+79, MD+80, MD+82
DRGOUT	MD+56~, MD+60~, MD+61!, MD+76~, MD+80~, MD+81!
DRGOUT(1	MD+62, MD+82
DRGS	MDCG+15~, MDCG+17*, MDCG+18, MDCG+19
ED	MD+56~, MD+57, MD+58, MD+76~, MD+77, MD+78
EMDC	MD+56~, MD+57, MD+58, MD+76~, MD+77, MD+78
FILE	MD~, MD+41, MD+42, MD+44, MD+46, MD+63, ISVALID~, ISVALID+16, ISVALID+18, ISVALID+19
FLAG	MD~, MD+40*, MD+55, MD+75
FMT	MDCT~, MDCT+29*, MDCT+36
FY	MD+40~, MD+47, MD+48, MD+49, MD+54, MD+57, MD+58, MD+62, MD+64, MD+65 , MD+66, MD+70, MD+74, MD+77, MD+78, MD+82, MDCT+25~, MDCT+30~*, MDCT+31
FYI	MDCT+25~, MDCT+30~, MDCT+31*, MDCT+32
FYIEN	MD+40~, MD+49, MD+50, MD+51, MD+53, MD+70, MD+72
I	MDCG+15~, MDCG+18, MDCG+19, MDCT+25~, MDCT+29
ICDC	VMDCOP+19~, VMDCOP+20*, VMDCOP+24, VMDCOP+26, MDCG+15~
ICDD	VMDCDX+11~, VMDCDX+12, VMDCDX+13, VMDCOP+19~, VMDCOP+21, VMDCOP+22, VMDCOP+23, MDCG+15~, MDCG+16, MDCG+17 , MDCG+19, MDCD+16~, MDCD+17, ISVALID+15~, ISVALID+17, ISVALID+21, REF+12~, REF+14, REF+15, REF+16
ICDF	MDCD+16~, MDCD+17, MDCD+18, MDCD+19, ISVALID+15~, ISVALID+18*, ISVALID+20, ISVALID+21
ICDFY	REF+12~, REF+14, REF+16, REF+17
ICDI	VMDCDX+11~, VMDCDX+12, VMDCDX+13, VMDCDX+14, VMDCDX+15, VMDCOP+19~, VMDCOP+20, VMDCOP+22, VMDCOP+23, VMDCOP+24 , ISVALID+15~, ISVALID+19, ISVALID+20, ISVALID+21, REF+12~, REF+13, REF+16, REF+17, REF+18
ICDM	VMDCDX+11~, VMDCDX+13, VMDCDX+14, VMDCDX+15, VMDCOP+19~, VMDCOP+21, VMDCOP+22, VMDCOP+24, VMDCOP+26, MDCD+16~* , MDCD+18, MDCD+19
ICDO	VMDCOP+19~, VMDCOP+23, VMDCOP+25, VMDCOP+26, MDCG+15~, MDCG+16, ISVALID+15~, ISVALID+18, ISVALID+19, ISVALID+20 , ISVALID+21, ISVALID+22
ICDR	ISVALID+15~, ISVALID+19, ISVALID+20, REF+12~, REF+14, REF+17, REF+18, REF+19
ICDS	VMDCDX+11~, VMDCDX+12, VMDCOP+19~, VMDCOP+20, VMDCOP+21, MDCG+15~*, MDCG+16
ICDT	ISVALID+15~, ISVALID+21*
ICDTMP	MDCG+15~, MDCG+17*
ICDX	ISVALID+15~, ISVALID+20*
ICDY	VMDCDX+11~, VMDCDX+13, VMDCDX+14, VMDCOP+19~, VMDCOP+21, VMDCOP+23, VMDCOP+24, VMDCOP+26, MDCD+16~, MDCD+17 , MDCD+18, MDCD+19
IDRG	MD+56~, MD+60~, MD+61, MD+62, MD+76~, MD+80~, MD+81, MD+82
IEN	MD~, MD+43, MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, MD+64, MD+65 , MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX~, VMDCDX+11, VMDCOP~, VMDCOP+19 , MDCG~, MDCG+15, MDCG+16, MDCG+17, MDCT~, MDCT+26*, MDCT+27, MDCT+30, MDCT+31, MDCT+32 , MDCD~, MDCD+16, MDCN~, MDCN+12, MOR~, MOR+10, ISVALID~, ISVALID+19, REF~, REF+13
MD	MDCT+25~, MDCT+29*, MDCT+32, MDCT+33
MDC	MD+40~, MD+50, MD+51, MD+54, MD+57, MD+58, MD+62, MD+69, MD+73, MD+74 , MD+77, MD+78, MD+82, VMDCOP~, VMDCOP+20, MDCG+19~, MDCT+25~, MDCT+30~, MDCT+32*, MDCT+33 , MDCT+34, MDCD~, MDCD+16
MDCIEN	MD+40~, MD+51*, MD+53
MY	MD+40~, MD+66, MD+67, MD+68
MYIEN	MD+40~, MD+68*, MD+69
OK	MDCT+25~, MDCT+29, MDCT+34, MDCT+36*, MDCT+37
ROOT	MD+40~, MD+44*, MD+45
STA	MD+40~, MD+47, MD+48, MD+54, MD+64, MD+65, MD+74
STR	MD+40~, MD+52, MD+53, MD+54, MD+59, MD+60, MD+71, MD+72, MD+73, MD+74 , MD+79, MD+80, MDCT+25~, MDCT+29, MDCT+33, MDCT+35*, MDCT+36
U	VMDCDX+15, REF+18

Name

Field # of Occurrence

ARY

MD~, MD+46!, MDCG~, MDCG+16!*, MDCT~

ARY(

MD+54*, MD+58*, MD+62*, MD+74*, MD+78*, MD+82*, MDCG+19*, MDCT+29

CDT

MD~, MD+43*, MD+44*, MD+47, MD+61, MD+64, MD+81, VMDCDX~, VMDCDX+12, VMDCOP~
, VMDCOP+21, MDCG~, MDCG+16, MDCT~, MDCT+28*, MDCT+30, MDCD~, MDCD+17, ISVALID~, ISVALID+17
, REF~, REF+14

DRG

MD+40~, MD+52*, MD+53*, MD+71*, MD+72*, MDCG+19~*

DRGI

MD+56~, MD+59*, MD+60, MD+62, MD+76~, MD+79*, MD+80, MD+82

DRGOUT

MD+56~, MD+60~, MD+61!, MD+76~, MD+80~, MD+81!

DRGOUT(1

MD+62, MD+82

DRGS

MDCG+15~, MDCG+17*, MDCG+18, MDCG+19

ED

MD+56~, MD+57*, MD+58, MD+76~, MD+77*, MD+78

EMDC

MD+56~, MD+57*, MD+58, MD+76~, MD+77*, MD+78

FILE

MD~, MD+41*, MD+42, MD+44, MD+46, MD+63, ISVALID~, ISVALID+16*, ISVALID+18, ISVALID+19

FLAG

MD~, MD+40*, MD+55, MD+75

FMT

MDCT~, MDCT+29*, MDCT+36

FY

MD+40~, MD+47*, MD+48*, MD+49, MD+54, MD+57, MD+58, MD+62, MD+64*, MD+65*
, MD+66, MD+70, MD+74, MD+77, MD+78, MD+82, MDCT+25~, MDCT+30~*, MDCT+31

FYI

MDCT+25~, MDCT+30~, MDCT+31*, MDCT+32

FYIEN

MD+40~, MD+49*, MD+50, MD+51, MD+53, MD+70*, MD+72

I

MDCG+15~, MDCG+18*, MDCG+19, MDCT+25~, MDCT+29*

ICDC

VMDCOP+19~, VMDCOP+20*, VMDCOP+24, VMDCOP+26, MDCG+15~

ICDD

VMDCDX+11~, VMDCDX+12*, VMDCDX+13, VMDCOP+19~, VMDCOP+21*, VMDCOP+22*, VMDCOP+23, MDCG+15~, MDCG+16*, MDCG+17
, MDCG+19, MDCD+16~, MDCD+17*, ISVALID+15~, ISVALID+17*, ISVALID+21, REF+12~, REF+14*, REF+15*, REF+16

ICDF

MDCD+16~, MDCD+17*, MDCD+18*, MDCD+19, ISVALID+15~, ISVALID+18*, ISVALID+20, ISVALID+21

ICDFY

REF+12~, REF+14*, REF+16*, REF+17

ICDI

VMDCDX+11~*, VMDCDX+12, VMDCDX+13, VMDCDX+14, VMDCDX+15, VMDCOP+19~*, VMDCOP+20, VMDCOP+22, VMDCOP+23, VMDCOP+24
, ISVALID+15~, ISVALID+19*, ISVALID+20, ISVALID+21, REF+12~, REF+13*, REF+16, REF+17, REF+18

ICDM

VMDCDX+11~, VMDCDX+13*, VMDCDX+14*, VMDCDX+15, VMDCOP+19~, VMDCOP+21*, VMDCOP+22, VMDCOP+24*, VMDCOP+26, MDCD+16~*
, MDCD+18, MDCD+19

ICDO

VMDCOP+19~, VMDCOP+23*, VMDCOP+25, VMDCOP+26, MDCG+15~, MDCG+16*, ISVALID+15~*, ISVALID+18, ISVALID+19, ISVALID+20
, ISVALID+21*, ISVALID+22

ICDR

ISVALID+15~, ISVALID+19*, ISVALID+20, REF+12~, REF+14*, REF+17*, REF+18*, REF+19

ICDS

VMDCDX+11~, VMDCDX+12*, VMDCOP+19~, VMDCOP+20*, VMDCOP+21, MDCG+15~*, MDCG+16

ICDT

ISVALID+15~, ISVALID+21*

ICDTMP

MDCG+15~, MDCG+17*

ICDX

ISVALID+15~, ISVALID+20*

ICDY

VMDCDX+11~, VMDCDX+13*, VMDCDX+14, VMDCOP+19~, VMDCOP+21*, VMDCOP+23*, VMDCOP+24, VMDCOP+26, MDCD+16~*, MDCD+17
, MDCD+18, MDCD+19

IDRG

MD+56~, MD+60~*, MD+61, MD+62, MD+76~, MD+80~*, MD+81, MD+82

IEN

MD~, MD+43*, MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, MD+64, MD+65
, MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX~, VMDCDX+11, VMDCOP~, VMDCOP+19
, MDCG~, MDCG+15*, MDCG+16, MDCG+17, MDCT~, MDCT+26*, MDCT+27, MDCT+30, MDCT+31, MDCT+32
, MDCD~, MDCD+16, MDCN~, MDCN+12, MOR~, MOR+10, ISVALID~, ISVALID+19, REF~, REF+13

MD

MDCT+25~, MDCT+29*, MDCT+32, MDCT+33

MDC

MD+40~, MD+50*, MD+51, MD+54, MD+57, MD+58, MD+62, MD+69*, MD+73*, MD+74
, MD+77, MD+78, MD+82, VMDCOP~, VMDCOP+20, MDCG+19~*, MDCT+25~, MDCT+30~, MDCT+32*, MDCT+33
, MDCT+34, MDCD~, MDCD+16

MDCIEN

MD+40~, MD+51*, MD+53

MY

MD+40~, MD+66*, MD+67*, MD+68

MYIEN

MD+40~, MD+68*, MD+69

OK

MDCT+25~, MDCT+29*, MDCT+34*, MDCT+36*, MDCT+37

ROOT

MD+40~, MD+44*, MD+45

STA

MD+40~, MD+47*, MD+48*, MD+54, MD+64*, MD+65*, MD+74

STR

MD+40~, MD+52*, MD+53*, MD+54, MD+59, MD+60, MD+71*, MD+72*, MD+73, MD+74
, MD+79, MD+80, MDCT+25~, MDCT+29*, MDCT+33*, MDCT+35*, MDCT+36

U

VMDCDX+15, REF+18

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: DRG Grouper

Routine: ICDEXD2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Local Variables

Legend: