Routine: ICDTBL8G

Entry Points

Name	Comments	DBIA/ICR reference
DRG800	;
DRG801
DRG802	;
DRG803	;
DRG804
DRG808	;
DRG809	;
DRG810
DRG811	;
DRG812
DRG813
DRG814	;
DRG815	;
DRG816
DRG820	;DRG 820-822
DRG821
DRG822
DRG823	;DRGs 823-825
DRG824
DRG825
DRG826	;DRGs 826-828
DRG827	;
DRG828	;S ICDRG=$S(ICDMCC=2:826,ICDMCC=1:827,1:828) Q
DRG829
DRG830
DRG834	;DRGs 834-836
DRG835	;
DRG836
DRG837	;DRGs 837-839
DRG838	;
DRG839
DRG840	;DRGs 840-842
DRG841
DRG842
DRG843	;
DRG844	;
DRG845
DRG846	;
DRG847	;
DRG848
DRG849
DRG853	;
DRG854	;
DRG855
DRG856	;
DRG857	;
DRG858
DRG862	;
DRG863
DRG864
DRG865	;
DRG866	;
DRG867	;
DRG868	;
DRG869
DRG870	;DRGs 870-872
DRG871
DRG872
DRG876
DRG880
DRG881
DRG882
DRG883
DRG884
DRG885
DRG886
DRG887
DRG894
DRG895
DRG896	;
DRG897

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9("AB"	DRG810, DRG839+2, DRG845+1, DRG845+2, DRG845+4, DRG848, DRG849, DRG849+1

Label References

Name	Line Occurrences
DRG820	DRG821, DRG822, DRG845+7
DRG823	DRG824, DRG825
DRG825	DRG820+2
DRG826	DRG829
DRG829	DRG826+1
DRG837	DRG829+1, DRG845+5
DRG840	DRG836, DRG841, DRG842, DRG845
DRG844	DRG848+1, DRG849+2
DRG846	DRG829+2, DRG839+7, DRG839+8, DRG845+6
DRG853	DRG869
DRG856	DRG855+2, DRG855+3, DRG855+4, DRG855+5
DRG862	DRG855, DRG858
DRG867	DRG863
DRG870	DRG871, DRG872

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ICDDX(1	DRG810, DRG839+2, DRG845+1, DRG845+2, DRG845+3, DRG845+4, DRG848, DRG849, DRG849+1, DRG855 , DRG855+2, DRG855+3, DRG855+4, DRG855+5, DRG863, DRG869
>> ICDDXT("205.02"	DRG839+2
>> ICDDXT("208.00"	DRG839+2
>> ICDDXT("284.11"	DRG810
>> ICDMAJ	DRG820+2, DRG820+4, DRG826+1, DRG829
>> ICDMCC	DRG801, DRG804, DRG810, DRG810+1, DRG812, DRG816, DRG820+5, DRG820+6, DRG823+2, DRG823+3 , DRG823+5, DRG823+6, DRG823+7, DRG826+3, DRG826+4, DRG830, DRG839, DRG839+1, DRG839+2, DRG839+3 , DRG839+4, DRG840+2, DRG840+3, DRG840+4, DRG845+9, DRG848, DRG855+1, DRG858+1, DRG863+1, DRG866+1 , DRG869+1, DRG870+2, DRG870+3, DRG897
>> ICDOCNT	DRG826+2
>> ICDOP	DRG869
>> ICDOP(" 00.15	" , DRG839+3, DRG839+4, DRG839+5, DRG839+6
>> ICDOP(" 92.30	" , DRG823+5, DRG823+6, DRG829, DRG829+2
>> ICDOP(" 92.31	" , DRG823+5, DRG823+6, DRG829, DRG829+2
>> ICDOP(" 92.32	" , DRG823+5, DRG823+6, DRG829, DRG829+2
>> ICDOP(" 92.33	" , DRG823+5, DRG823+6, DRG829, DRG829+2
>> ICDOP(" 92.39	" , DRG823+5, DRG823+6, DRG829, DRG829+2
>> ICDOP(" 96.72	" , DRG870+1
>> ICDOPCT	DRG845+3
>> ICDOR	DRG823+1, DRG826+2, DRG829+2, DRG839+7, DRG840+1, DRG845+8, DRG855, DRG855+1, DRG858, DRG858+1 , DRG869, DRG870+1, DRG876, DRG880, DRG881, DRG882, DRG883, DRG884, DRG885, DRG886 , DRG887, DRG894, DRG895, DRG895+1
>> ICDORNI	DRG823+1, DRG840+1
>> ICDPD	DRG820+2, DRG820+4, DRG823+1, DRG823+5, DRG829, DRG840+1, DRG845, DRG845+7
>> ICDPDRG(844	DRG845+8
>> ICDRG	DRG801, DRG804, DRG810, DRG810+1, DRG812, DRG813, DRG816, DRG820+2, DRG820+5, DRG820+6* , DRG823+1, DRG823+2, DRG823+3, DRG823+4, DRG823+5, DRG823+6, DRG823+7, DRG826+3, DRG826+4, DRG830* , DRG839, DRG839+1, DRG839+2, DRG839+3, DRG839+4, DRG839+5, DRG839+6, DRG840+1, DRG840+2, DRG840+3 , DRG840+4, DRG845+1, DRG845+2, DRG845+3, DRG845+8, DRG845+9, DRG848, DRG849, DRG849+1, DRG855+1* , DRG858+1, DRG863+1, DRG864, DRG866+1, DRG869+1, DRG870+1, DRG870+2, DRG870+3, DRG876, DRG880 , DRG881, DRG882, DRG883, DRG884, DRG885, DRG886, DRG887, DRG894, DRG895, DRG895+1 , DRG897*
>> ICDSD	DRG829+1, DRG829+2, DRG839, DRG839+1, DRG839+3, DRG839+4, DRG839+5, DRG839+6, DRG839+7, DRG845+5 , DRG845+6

Customize PDF page

Package: DRG Grouper

Routine: ICDTBL8G

Information

Source Information

Entry Points

Global Variables Directly Accessed

Label References

Local Variables

Legend: