Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICD10TB8

ICD10TB8.m

Go to the documentation of this file.
ICD10TB8 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
 ;;18.0;DRG Grouper;**64,82**;Oct 20, 2000;Build 21
 ;
 ;DRG800 ; D DRG800^ICDTBL8D - See ICD10TB7
 ;DRG801 S ICDRG=$S(ICDMCC=2:799,ICDMCC=1:800,1:801) Q  - See ICD10TB7
DRG802 ;
DRG803 ;
DRG804 S ICDRG=$S(ICDMCC=2:802,ICDMCC=1:803,1:804) Q
DRG805 ;
DRG806 ;
DRG807 ;
 Q
DRG808 ;
DRG809 ;
DRG810 S ICDRG=$S(ICDMCC=2:808,ICDMCC=1:809,1:810) Q
DRG811 ;
DRG812 S ICDRG=$S(ICDMCC=2:811,1:812) Q
DRG813 ;
 Q
DRG814 ;
DRG815 ;
DRG816 S ICDRG=$S(ICDMCC=2:814,ICDMCC=1:815,1:816) Q
DRG817 ;
DRG818 ;
DRG819 ;
 Q
DRG820 ;
DRG821 ;
DRG822 ;
 Q
DRG823 ;
DRG824 ;
DRG825 ;
 Q
DRG826 ;
DRG827 ;
DRG828 ;
DRG829 ;
DRG830 ;
 Q
DRG831 ;
DRG832 ;
DRG833 ;
 Q
DRG834 ;
DRG835 ;
DRG836 ;
 Q
DRG837 ;
DRG838 ;
DRG839 ;
 Q
DRG840 ;
DRG841 ;
DRG842 ;
 S ICDRG=$S(ICDMCC=2:840,ICDMCC=1:841,1:842)
DRG843 ;
DRG844 ;
DRG845 ;
 Q
DRG846 ;
DRG847 ;
DRG848 ;
 S ICDRG=$S(ICDMCC=2:846,ICDMCC=1:847,1:848) Q
DRG849 ;
DRG850 ;
DRG851 ;
DRG852 ;
 Q
DRG853 ;
DRG854 ;
DRG855  ;
 Q
DRG856 ;
DRG857 ;
DRG858 ;
 Q
DRG859 ;
DRG860 ;
DRG861 ;
 Q
DRG862 ;
DRG863 ;
 S ICDRG=$S(ICDMCC=2:862,1:863) Q
DRG864 ;
 Q
DRG865 ;
DRG866 ;
 S ICDRG=$S(ICDMCC=2:865,1:866) Q
DRG867 ;
DRG868 ;
DRG869 S ICDRG=$S(ICDMCC=2:867,ICDMCC=1:868,1:869) Q
DRG870 ;
DRG871 ;
DRG872 ;
 Q
DRG876 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG880 S ICDRG=880 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG881 S ICDRG=881 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG882 S ICDRG=882 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG883 S ICDRG=883 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG884 S ICDRG=884 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG885 S ICDRG=885 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG886 S ICDRG=886 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG887 S ICDRG=887 I $D(ICD10OR("O")) S ICDRG=876 Q
 Q
DRG888 ;
DRG889 ;
DRG890 ;
DRG891 ;
DRG892 ;
DRG893 ;
DRG894 I ICDDX(1)=503659,ICDMDC=20,$D(ICDOP(" 06743DZ")) D DRG981^ICD10TB9 Q
 I ICDDX(1)=504018,ICDMDC=20,$D(ICDOP(" 0BBK4ZZ")) D DRG981^ICD10TB9 Q
 Q
DRG895 ;
DRG896 ;
DRG897 ;
 Q
DRG898 ;
DRG899 ;
DRG900 ;
 Q