Routine: ICDDRG0

Package	Total	Call Graph
DRG Grouper	20	KILL^ICDDRG ^ICDDRG1 ^ICDDRG10 ^ICDDRG11 ^ICDDRG12 ^ICDDRG13 ^ICDDRG14 ^ICDDRG17 ^ICDDRG2 ^ICDDRG3 (,EN1)^ICDDRG5 ^ICDDRG6 ^ICDDRG7 (,END)^ICDDRG8 ^ICDDRG9 (CHKMDC4,CKHIV,CKMST,CKNMDC)^ICDDRGX $$DRG^ICDGTDRG CMS516^ICDTBL2 DRG232^ICDTLB3 DRG516^ICDTLB6B
VA Fileman	1	^%DTC

Package	Total	Caller Graph
DRG Grouper	5	ICDDRG ICDTLB6 ICDTLB6A ICDTLB6B ICDTLB6C

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN
CKBURN	; MDC22 - Burns (extensive, full thickness, or non-extensive)
CONT
LOOK8
MI	; ; if PTCA and not a bypass
GETMOR
NBCOMP	; check for complication related to NB
END	;
ORNI(X)	;
ENTER
GROUP	;
FTBURN	; full thickness burn check
NEONATF	;NEONATE - Continuation of xecute line
DODRG	;Go to DRG file and retrieve table entry to use if defined
CKDRG
NEONATE

External References

Name	Field # of Occurrence
^%DTC	NEONATE+2
KILL^ICDDRG	GROUP+1, END+29
^ICDDRG1	NEONATE+10
^ICDDRG10	NEONATE+10
^ICDDRG11	NEONATE+10
^ICDDRG12	NEONATE+10
^ICDDRG13	NEONATE+10
^ICDDRG14	GROUP+27
^ICDDRG17	NEONATE+11
^ICDDRG2	NEONATE+10
^ICDDRG3	NEONATE+10
^ICDDRG5	NEONATE+10
EN1^ICDDRG5	MI+5
^ICDDRG6	NEONATE+10
^ICDDRG7	NEONATE+10
^ICDDRG8	NEONATE+10
END^ICDDRG8	LOOK8+2
^ICDDRG9	NEONATE+10
CHKMDC4^ICDDRGX	END+24, END+26
CKHIV^ICDDRGX	END+5
CKMST^ICDDRGX	END+1
CKNMDC^ICDDRGX	END+19
$$DRG^ICDGTDRG	END+28
CMS516^ICDTBL2	MI+3
DRG232^ICDTLB3	DODRG+9
DRG516^ICDTLB6B	MI+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	DODRG+3, DODRG+5, DODRG+7

Label References

Name	Line Occurrences
$$ORNI	GROUP+16, GROUP+21
@(	DODRG+8
AGAIN	CONT+2
CKBURN	GROUP+31
CKDRG	GROUP+25
CONT	LOOK8+2
DODRG	NEONATE, CONT+1, CKDRG, END+7, END+8, END+9, END+25, END+26, MI+5, MI+22 , MI+23, MI+25, MI+26
END	GROUP+2, GROUP+14, GROUP+20, GROUP+22, GROUP+23, GROUP+26, GROUP+27, GROUP+28, GROUP+31, GROUP+32 , NEONATE, NEONATE+9, CONT+2, ENTER
ENTER	CONT, AGAIN
FTBURN	CKBURN+5
GETMOR	NEONATE, CONT, CKDRG+1, LOOK8, LOOK8+1, LOOK8+2
GROUP	AGAIN+1, AGAIN+2
LOOK8	CONT+2
MI	GROUP+23
NBCOMP	NEONATE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEONATE+1~
>> AGE	NEONATE+9
>> DGADM	NEONATE+2
>> DOB	NEONATE+2
DRGFY	DODRG+2~, DODRG+3, DODRG+4*, DODRG+5
DT	NEONATE+2
>> HICDRG	GROUP+25, CONT, GETMOR*, CKDRG+1, AGAIN+1, AGAIN+2
I	ORNI+1~, ORNI+2*
>> ICDCC	CKBURN+6, CKBURN+7, FTBURN+2, FTBURN+5
>> ICDCC3	MI+5
>> ICDDATE	GROUP+1, GROUP+2, GROUP+5, GROUP+14, GROUP+16, GROUP+20, GROUP+21, GROUP+22, GROUP+23, GROUP+25 , GROUP+26, GROUP+29, GROUP+31, GROUP+33, NEONATE+3, NEONATE+4, NEONATE+6, NEONATE+7, NEONATE+8, NEONATE+9 , ENTER, GETMOR, DODRG+3, DODRG+9, END+3, END+4, END+7, END+8, END+9, END+10 , END+11, END+13, END+14, END+18, END+20, END+23, END+28, MI+3, MI+7, MI+12 , MI+14, MI+15, MI+18, MI+20, MI+25, CKBURN+3, CKBURN+6, NBCOMP+4, FTBURN+2, FTBURN+3 , FTBURN+5, FTBURN+6, NEONATF+1
>> ICDDMS	GROUP+28, GROUP+29, GROUP+30
>> ICDDRG	GROUP+1, END+1, END+5, END+19, END+22, END+25, END+26, END+28
>> ICDEXP	GROUP+23, GROUP+32, MI+8, MI+11
>> ICDF	GROUP+3, GROUP+15
>> ICDJ	LOOK8, LOOK8+1*, LOOK8+2
>> ICDJ(	LOOK8+2!
>> ICDJ(0	LOOK8+1
ICDMCV	DODRG+1~
ICDMCV1	DODRG+1~
ICDMCV2	DODRG+1~
>> ICDMDC	GROUP+2, GROUP+14, GROUP+20, GROUP+22, GROUP+23, GROUP+25, GROUP+26, GROUP+27, GROUP+28, GROUP+31 , GROUP+32, NEONATE+9, NEONATE+10, NEONATE+11, CONT, CONT+2, ENTER
ICDNMDC	END+19!
ICDNMDC(1	END+7, END+8, END+9, END+10, END+11, END+13, END+18*, END+19
>> ICDNOR	GROUP+6, GROUP+9, GROUP+21, GROUP+22, NEONATE, ENTER
>> ICDOCNT	GROUP+25
ICDODRG	NEONATE, AGAIN, AGAIN+1!, LOOK8+2!
ICDODRG(	AGAIN+1!, AGAIN+2
ICDODRG(0	CONT, MI+5, MI+22, MI+23
>> ICDONR	GROUP+6, GROUP+9, GROUP+21, GROUP+22
>> ICDOP(	END+18
>> ICDOP(" 33.6"	, END+7
>> ICDOP(" 36.06	" , MI+15
>> ICDOP(" 36.07	" , MI+10, MI+14
>> ICDOP(" 37.26	" , MI+10, MI+12, MI+14, MI+15
>> ICDOP(" 37.27	" , MI+10, MI+14, MI+15
>> ICDOP(" 37.5"	, END+7
>> ICDOP(" 37.51	" , END+7
>> ICDOP(" 37.52	" , END+20
>> ICDOP(" 37.63	" , END+9
>> ICDOP(" 37.64	" , END+8, END+9
>> ICDOP(" 37.65	" , END+8
>> ICDOP(" 37.66	" , END+7
>> ICDOP(" 37.90	" , MI+2
>> ICDOP(" 39.61	" , MI+12
>> ICDOP(" 39.65	" , END+10
>> ICDOP(" 46.97	" , END+11
>> ICDOP(" 52.80	" , END+13
>> ICDOP(" 52.82	" , END+13
>> ICDOP(" 55.69	" , END+15, END+16
>> ICDOPCT	GROUP+2, GROUP+4*, GROUP+16, GROUP+21, GROUP+22
>> ICDOPNR	GROUP+7, GROUP+10
>> ICDOR	GROUP+4, GROUP+6, GROUP+9, GROUP+23, GROUP+25, GROUP+26, DODRG+9, END+3, END+4, MI+2 , MI+17, MI+22, MI+23, CKBURN+3, CKBURN+4, FTBURN+1
>> ICDORNI	GROUP+6, GROUP+7, GROUP+9, GROUP+10, GROUP+14, GROUP+16, GROUP+20, GROUP+21, GROUP+26, ORNI+2
>> ICDORNI("O"	GROUP+6, GROUP+9
>> ICDORNR	ENTER
>> ICDP24	END+1
>> ICDP25	END+5
>> ICDPD	GROUP+4, MI+5, MI+6, MI+8, MI+11, MI+18, MI+19, CKBURN+2, CKBURN+5, CKBURN+6 , CKBURN+7, FTBURN+2, FTBURN+5
>> ICDPDRG	END+3, END+4
>> ICDPDRG(	CKDRG+1!
>> ICDPDRG(0	NEONATE, GETMOR, MI+25, MI+26
>> ICDPDRG(121	MI+26!
>> ICDPDRG(124	MI+21!
>> ICDPDRG(280	MI+25!
>> ICDPDRG(281	MI+25!
>> ICDPDRG(282	MI+25!
>> ICDPDRG(286	MI+20!
>> ICDPDRG(287	MI+20!
>> ICDPDRG(377	GROUP+9
>> ICDPDRG(387	NBCOMP+9, NEONATF+2
>> ICDPDRG(391	NBCOMP+9, NEONATF+2
>> ICDPDRG(769	GROUP+6
>> ICDPDRG(791	NBCOMP+6, NEONATF+1
>> ICDPDRG(795	NBCOMP+6, NEONATF+1
ICDREF	DODRG+2~, DODRG+5, DODRG+6, DODRG+7, DODRG+8!
>> ICDRG	GROUP+2, GROUP+6, GROUP+7, GROUP+9, GROUP+10, GROUP+14, GROUP+16, GROUP+20, GROUP+21, GROUP+22* , GROUP+23, GROUP+25, GROUP+26, GROUP+27, GROUP+29, GROUP+30, GROUP+31, GROUP+33, GROUP+34, NEONATE* , NEONATE+3, NEONATE+4, NEONATE+6, NEONATE+7, NEONATE+8, NEONATE+9, CONT, CONT+2, ENTER, GETMOR* , CKDRG+1, DODRG+3, DODRG+5, DODRG+7, DODRG+8, END+1, END+3, END+4, END+5, END+7* , END+8, END+9, END+10, END+11, END+13, END+15, END+16, END+18, END+19, END+21* , END+24, END+25, END+26, MI+5, MI+8, MI+10, MI+11, MI+12, MI+14, MI+15* , MI+18, MI+19, MI+22, MI+23, MI+25, MI+26, CKBURN+3, CKBURN+4, CKBURN+6, CKBURN+7 , AGAIN+2, NBCOMP+5, NBCOMP+6, NBCOMP+8, NBCOMP+9, FTBURN+2, FTBURN+3, FTBURN+5, FTBURN+6, NEONATF+1 , NEONATF+2*
>> ICDRG(391	NEONATE+6
>> ICDRG(795	NEONATE+7
>> ICDRTC	GROUP+1, GROUP+23, GROUP+28, GROUP+31, GROUP+32, GROUP+33, GROUP+34, NEONATE+8, NEONATE+9, END+27
>> ICDS24	END+1
>> ICDS25(1	END+5
>> ICDSD	MI+6, MI+8, MI+11, MI+18, MI+19, CKBURN+2, CKBURN+5, CKBURN+6, CKBURN+7, NBCOMP+1 , FTBURN+1, FTBURN+2, FTBURN+5
>> ICDSDRG	NBCOMP+1
>> ICDSDRG(0	NBCOMP+3, NBCOMP+6, NBCOMP+9, NEONATF+1, NEONATF+2
ICDSDXCK	NBCOMP+2~, NBCOMP+3*, NBCOMP+5, NBCOMP+8
>> ICDSEX(1	GROUP+1
>> ICDSEX(2	GROUP+1
>> ICDTMP	END+28*
>> ICDTRS	GROUP+31, GROUP+32
K	GROUP+16~, GROUP+21~, ORNI+1~, ORNI+2*, ORNI+3
U	DODRG+7, END+3, END+4, END+28
X	NEONATE+1~, NEONATE+2, ORNI~, END+18~*
X1	NEONATE+1~, NEONATE+2*
X2	NEONATE+1~, NEONATE+2*

Customize PDF page

Package: DRG Grouper

Routine: ICDDRG0

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: