Routine: ICDDG010

Package	Total	Call Graph
DRG Grouper	8	KILL^ICDDRG EN1^ICDDRG5 (CHKMDC4,CKHIV,CKMST)^ICDDRGX1 VARIABLS^ICDDRGX2 $$GETDRG^ICDEX $$DRG^ICDGTDRG $$ICDRGCC^ICDRGAPI CMS516^ICDTBL2
VA FileMan	1	^%DTC

Package	Total	Caller Graph
DRG Grouper	1	ICDDRG

Name	Comments	DBIA/ICR reference
GROUP	;
GLAST	;
PRECOND
MDCSPROC
NEONATE
NEONATF	;NEONATE - Continuation of xecute line
NBCOMP	; check for complication related to Newborn
SURGICAL	; Apply Surgical Hierarchy
ICDRGCC(DRG,CDT)	;Get CC/MCC flag from DRG ; ; Input: ; DRG DRG Number ; CDT Effective Date
DEFAULT
ENTER
GETMOR
CKDRG
DODRG	;Go to DRG file and retrieve table entry to use if defined
ORNI(X)	;
END	; ; - MDC24 PROCESSING ; - MDC25 PROCESSING ; - PREMDC PROCESSING ; - MDC4 PROCESSING ; - CHECK FOR MCC/CC
AGAIN
CKBURN	; MDC22 - Burns (extensive, full thickness, or non-extensive)
FTBURN	; full thickness burn check
MI	; ; if PTCA and not a bypass
PREMDC	; Check if any Surgical Procedure Code in Pre-MDC and, if so, use that DRG group
PDX11T13()	;Is PDX assigned to DRG 11, 12 or 12

Name	Field # of Occurrence
^%DTC	NEONATE+2
KILL^ICDDRG	GLAST+2, END+24
EN1^ICDDRG5	MI+3
CHKMDC4^ICDDRGX1	END+18
CKHIV^ICDDRGX1	END+11
CKMST^ICDDRGX1	END+8
VARIABLS^ICDDRGX2	GROUP+4
$$GETDRG^ICDEX	PREMDC+2
$$DRG^ICDGTDRG	END+22
$$ICDRGCC^ICDRGAPI	PREMDC+4
CMS516^ICDTBL2	MI+2

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	ICDRGCC+10, ICDRGCC+11, ICDRGCC+12, DODRG+4, DODRG+6, DODRG+8
^ICD("B"	ICDRGCC+9
^ICDRS - [#80.5]	SURGICAL+4, SURGICAL+5, SURGICAL+6
^ICDRS("B"	SURGICAL+2, SURGICAL+3

Name	Line Occurrences
$$ICDRGCC	SURGICAL+7
$$ORNI	MDCSPROC+13, MDCSPROC+18
@(	DODRG+9
AGAIN	DEFAULT+2
CKBURN	MDCSPROC+25
DEFAULT	GROUP+10
DODRG	DEFAULT+1, CKDRG, END+20, MI+3, MI+9, MI+10, MI+11
END	GROUP+15
ENTER	DEFAULT, AGAIN
FTBURN	CKBURN+3
GETMOR	DEFAULT
GLAST	GROUP+3
MDCSPROC	GROUP+5
MI	MDCSPROC+20
NBCOMP	NEONATE+12
NEONATE	GROUP+7
PRECOND	GROUP+3
PREMDC	END+14
SURGICAL	GROUP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEONATE+11~
>> AGE	NEONATE+16
CDT	ICDRGCC~, ICDRGCC+10
>> DGADM	NEONATE+2
>> DOB	NEONATE+2
DRG	ICDRGCC~, ICDRGCC+9
DRGFY	DODRG+3~, DODRG+4, DODRG+5*, DODRG+6
DT	NEONATE+2
I	ORNI+1~, ORNI+2*
>> ICD10OR("1"	MI+2
>> ICD10OR("6"	MI+2
>> ICD10OR("F"	MI+10
>> ICD10OR("H"	MI+7
>> ICD10OR("O"	MDCSPROC+6, MDCSPROC+20, MDCSPROC+21, MDCSPROC+22
>> ICD10OR("b"	MI+2
>> ICD10OR("k"	CKBURN+2, CKBURN+7, FTBURN+1
>> ICD10OR("p"	MI+9
>> ICD10OR("q"	PREMDC+6
>> ICD10OR("r"	PREMDC+7
>> ICD10OR("y"	MDCSPROC+5
>> ICD10OR(116	PREMDC+9
>> ICD10OR(14	PREMDC+17
>> ICD10OR(150	PREMDC+12
>> ICD10OR(151	PREMDC+16
>> ICD10OR(22	PREMDC+18
>> ICD10OR(245	PREMDC+8
>> ICD10OR(44	PREMDC+11
>> ICD10OR(59	PREMDC+14
>> ICD10OR(66	PREMDC+16
>> ICD10OR(68	PREMDC+14, PREMDC+15
>> ICD10OR(80	PREMDC+2
>> ICD10OR(81	PREMDC+12
>> ICD10ORNI	MDCSPROC+11
>> ICD10ORNI("O"	MDCSPROC+6, MDCSPROC+22
>> ICD10ORNI("p"	MDCSPROC+6
>> ICD10ORNI("y"	MDCSPROC+6, MDCSPROC+7, MDCSPROC+11, MDCSPROC+17
>> ICD10ORNI("z"	MDCSPROC+6, MDCSPROC+11
>> ICD10PD("*"	CKBURN+2
>> ICD10PD("A"	MI+4
>> ICD10PD("E"	NBCOMP+6
>> ICD10PD("I"	MI+4
>> ICD10PD("J"	NBCOMP+5
>> ICD10PD("M"	MDCSPROC+5
>> ICD10PD("S"	NBCOMP+6
>> ICD10PD("T"	CKBURN+4, CKBURN+8, CKBURN+11, FTBURN+2, FTBURN+5
>> ICD10PD("V"	MI+5
>> ICD10PD("X"	MI+7
>> ICD10PD("b"	CKBURN+3
>> ICD10PD("p"	NBCOMP+5
>> ICD10PDRG(12	PDX11T13+1
>> ICD10PDRG(13	PDX11T13+1
>> ICD10SD("*"	CKBURN+2
>> ICD10SD("A"	MI+4
>> ICD10SD("E"	NBCOMP+6
>> ICD10SD("I"	MI+4
>> ICD10SD("J"	NBCOMP+5
>> ICD10SD("S"	NBCOMP+6
>> ICD10SD("T"	CKBURN+4, CKBURN+8, CKBURN+11, FTBURN+2, FTBURN+5
>> ICD10SD("V"	MI+5
>> ICD10SD("X"	MI+7
>> ICD10SD("b"	CKBURN+3
>> ICD10SD("j"	CKBURN+7, FTBURN+1
>> ICD10SD("p"	NBCOMP+5
ICDAIEN	ICDRGCC+8~, ICDRGCC+11*, ICDRGCC+12
ICDCC	SURGICAL+7, ICDRGCC+8~, ICDRGCC+9, ICDRGCC+12, ICDRGCC+13, CKBURN+4, CKBURN+8, CKBURN+11, FTBURN+2, FTBURN+5
>> ICDCC3	MI+3
ICDCCT	SURGICAL+7, PREMDC+1~, PREMDC+4
ICDDA	SURGICAL+2, SURGICAL+3, ICDRGCC+8~, ICDRGCC+10, ICDRGCC+11
>> ICDDATE	SURGICAL+2, SURGICAL+7, DODRG+4, DODRG+5, END+22, PREMDC+2, PREMDC+4
ICDDGIEN	SURGICAL+1~, SURGICAL+5*, SURGICAL+6
>> ICDDMS	MDCSPROC+24
>> ICDDRG	GLAST+1, NEONATE+17, SURGICAL+2, END+8, END+11*
ICDDRGT	SURGICAL+1~, SURGICAL+6*, SURGICAL+7
>> ICDDX(	NBCOMP+4
>> ICDEXP	MDCSPROC+20, NEONATE+5, NEONATE+8, MI+5
>> ICDF	MDCSPROC+4, MDCSPROC+12
ICDFOUND	GROUP+1~, GROUP+2, GROUP+4, GROUP+5, GROUP+9, GROUP+10, MDCSPROC+3, MDCSPROC+6, MDCSPROC+7, MDCSPROC+11* , MDCSPROC+13, MDCSPROC+17, MDCSPROC+18, MDCSPROC+19, MDCSPROC+21, MDCSPROC+22, MDCSPROC+24, MDCSPROC+25, NEONATE+5, NEONATE+8 , NEONATE+14, NEONATE+16, NEONATE+17, NBCOMP+7, NBCOMP+8, NBCOMP+9, NBCOMP+10, PREMDC+19
ICDI	PREMDC+1~, PREMDC+3*, PREMDC+4
ICDIEN	SURGICAL+3, SURGICAL+4, SURGICAL+5, SURGICAL+6, ICDRGCC+8~, ICDRGCC+9, ICDRGCC+10, ICDRGCC+11, ICDRGCC+12
ICDIMM	NBCOMP+1~, NBCOMP+4, NBCOMP+6, NBCOMP+8
ICDJ	SURGICAL+1~, SURGICAL+5*
>> ICDMCC	PREMDC+4, PREMDC+6, PREMDC+14, PREMDC+15, PREMDC+16, PREMDC+18
ICDMCV	DODRG+2~
ICDMCV1	DODRG+2~
ICDMCV2	DODRG+2~
>> ICDMDC	MDCSPROC+2, MDCSPROC+20, MDCSPROC+21, MDCSPROC+22, MDCSPROC+24, MDCSPROC+25, NEONATE+3*, NEONATE+5, NEONATE+7, NEONATE+16 , SURGICAL+4, DEFAULT, ENTER
ICDMDCL	MDCSPROC+1~, MDCSPROC+2*, MDCSPROC+3, MDCSPROC+11, MDCSPROC+17, MDCSPROC+19
ICDMIEN	SURGICAL+1~, SURGICAL+4*, SURGICAL+5, SURGICAL+6
ICDMJR	NBCOMP+1~, NBCOMP+4, NBCOMP+5, NBCOMP+9, NBCOMP+10
ICDN	NBCOMP+1~, NBCOMP+4*
ICDNODOD	GROUP+1~, GROUP+2, NEONATE+5, NEONATE+8, NEONATE+14, NEONATE+16, NEONATE+17, NBCOMP+7, NBCOMP+8, NBCOMP+9* , NBCOMP+10, DODRG+1, END+20, PREMDC+19
>> ICDNOR	MDCSPROC+6, MDCSPROC+18, MDCSPROC+19, NEONATE+10, ENTER
>> ICDOCNT	MDCSPROC+21
ICDODRG	NEONATE+10, AGAIN, AGAIN+1!
ICDODRG(	SURGICAL+6, AGAIN+1!, AGAIN+2
ICDODRG(0	DEFAULT, MI+3, MI+9, MI+10
ICDOLD	NEONATE+1~, NEONATE+2*, NEONATE+3, NEONATE+12
>> ICDONR	MDCSPROC+6, MDCSPROC+18, MDCSPROC+19
>> ICDOP(" 37.26	" , MI+6
>> ICDOP(" 37.90	" , MI+2
>> ICDOP(" 39.61	" , MI+6
>> ICDOPCT	MDCSPROC+3, MDCSPROC+5*, MDCSPROC+13, MDCSPROC+18, MDCSPROC+19
>> ICDOPNR	MDCSPROC+7*
>> ICDOR	END+9
>> ICDORNI	MDCSPROC+13, MDCSPROC+17, MDCSPROC+18, ORNI+2
>> ICDORNR	ENTER
>> ICDP24	END+8
>> ICDP25	END+11
ICDPC	PREMDC+1~, PREMDC+2*
>> ICDPD("A"	MI+3
>> ICDPDRG	END+9
>> ICDPDRG(0	NEONATE+10, GETMOR, MI+11
>> ICDPDRG(11	PDX11T13+1
>> ICDPDRG(280	MI+11!
>> ICDPDRG(281	MI+11!
>> ICDPDRG(282	MI+11!
>> ICDPDRG(286	MI+8!
>> ICDPDRG(287	MI+8!
>> ICDPDRG(769	MDCSPROC+6
>> ICDPDRG(791	NEONATF+1
>> ICDPDRG(795	NEONATF+1
>> ICDPRC(	PREMDC+2
ICDPREM	NBCOMP+1~, NBCOMP+4, NBCOMP+5, NBCOMP+9, NBCOMP+10
ICDPREQ	GROUP+1~, END+14, END+15, PREMDC+19
ICDREF	DODRG+3~, DODRG+6, DODRG+7, DODRG+8, DODRG+9!
>> ICDRG	GROUP+3, GLAST+1, GLAST+3, PRECOND+1, MDCSPROC+3, MDCSPROC+6, MDCSPROC+7, MDCSPROC+11, MDCSPROC+13, MDCSPROC+17 , MDCSPROC+18, MDCSPROC+19, MDCSPROC+20, MDCSPROC+21, MDCSPROC+22, MDCSPROC+24, MDCSPROC+25, NEONATE+6, NEONATE+8, NEONATE+10* , NEONATE+13, NEONATE+14, NEONATE+15, NEONATE+16, NEONATE+17, NEONATF+1, NBCOMP+7, NBCOMP+8, NBCOMP+9, NBCOMP+10 , SURGICAL+7, DEFAULT, DEFAULT+2, ENTER, GETMOR, DODRG+4, DODRG+6, DODRG+8, DODRG+9, END+8 , END+9, END+11, END+18, END+22, AGAIN+2, CKBURN+2, CKBURN+4, CKBURN+8, CKBURN+9, CKBURN+11 , CKBURN+12, FTBURN+2, FTBURN+3, FTBURN+5, FTBURN+6, MI+3, MI+5, MI+6, MI+7, MI+9 , MI+10, MI+11, PREMDC+19*
>> ICDRG(795	NEONATE+14
ICDRGH	GROUP+1~, MDCSPROC+21, DEFAULT, GETMOR*, AGAIN+1, AGAIN+2
ICDRGT	PREMDC+1~, PREMDC+2, PREMDC+4, PREMDC+6, PREMDC+7, PREMDC+8, PREMDC+9, PREMDC+11, PREMDC+12, PREMDC+14* , PREMDC+15, PREMDC+16, PREMDC+17, PREMDC+18, PREMDC+19
>> ICDRTC	GROUP+3, PRECOND+1, MDCSPROC+20, MDCSPROC+24, MDCSPROC+25, NEONATE+5, NEONATE+6, NEONATE+15, NEONATE+16, END+21
>> ICDS24	END+8
>> ICDS25(1	END+11
>> ICDSDRG(0	NEONATF+1
ICDSDXCK	NBCOMP+1~
>> ICDSEX(1	PRECOND+1
>> ICDSEX(2	PRECOND+1
ICDSIG	NBCOMP+1~, NBCOMP+4, NBCOMP+6, NBCOMP+7
ICDSTOP	SURGICAL+1~, SURGICAL+2, SURGICAL+5, SURGICAL+7
ICDTMP	END+22, PREMDC+1~, PREMDC+2, PREMDC+3
>> ICDTRS	MDCSPROC+25, NEONATE+5
ICDX	NBCOMP+1~, PREMDC+1~, PREMDC+3*, PREMDC+4
K	MDCSPROC+13~, MDCSPROC+18~, ORNI+1~, ORNI+2*, ORNI+3
U	MDCSPROC+3, SURGICAL+6, ICDRGCC+12, DODRG+8, END+9, END+22, PREMDC+3, PREMDC+4
X	NEONATE+2, NEONATE+11~, ORNI~
X1	NEONATE+2*, NEONATE+11~
X2	NEONATE+2*, NEONATE+11~

Customize PDF page

Package: DRG Grouper

Routine: ICDDG010

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: