ICD10TB0.m

ICD10TB0 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012

 ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103

 ;

DRG1 ;

DRG2 ;

 S ICDRG=$S(ICDMCC=2:1,1:2) Q

DRG3 ; 

DRG4 ;

 Q

DRG5 ;

DRG6 ;

 I $D(ICD10OR(56)) S ICDRG=5 Q

 S ICDRG=$S(ICDMCC=2:5,1:6) Q

 Q

DRG7 ;

 S ICDRG=7 Q

DRG8 ;

 S ICDRG=8 Q

DRG9 ;

 S ICDRG=9 Q

DRG10 ;

 S ICDRG=10 Q

 Q

DRG11 ;

DRG12 ;

DRG13 ;

 S ICDRG=$S(ICDMCC=2:11,ICDMCC=1:12,1:13) Q

DRG14 ;

 S ICDRG=14 ;No decision table for DRG 14 or 15

 Q

DRG15 ;

 S ICDRG=15

 Q

DRG16 ;

DRG17 ;

 S ICDRG=$S(ICDMCC:16,1:17) ;No decision table for DRG 16 or 17

 Q

DRG18 ;

 Q

DRG19 ;

 Q

DRG20 ;

DRG21 ;

DRG22 ;

 Q

DRG23 ;

DRG24 ;

DRG25 ;

DRG26 ;

DRG27 ;

 Q

DRG28 ;

DRG29 ;

DRG30 ;

 Q

DRG31 ;

DRG32 ;

DRG33 ;

  Q

DRG34 ;

DRG35 ;

DRG36 ;

 Q

DRG37 ;

DRG38 ;

DRG39 ;

 S ICDRG=$S(ICDMCC=2:37,ICDMCC=1:38,1:39) Q

DRG40 ;

DRG41 ;

DRG42 ;

 Q

DRG43 ;

DRG44 ;

DRG45 ;

DRG46 ;

 S ICDRG=46 Q

DRG47 ;

DRG48 ;

DRG49 ;

DRG50 ;

DRG51 ;

 Q

DRG52 ;

DRG53 ;

 S ICDRG=$S(ICDMCC>0:52,1:53) Q

DRG54 ;

DRG55 ;

 S ICDRG=$S(ICDMCC=2:54,1:55) Q

DRG56 ;

DRG57 ;

 S ICDRG=$S(ICDMCC=2:56,1:57) Q

DRG58 ;

DRG59 ;

DRG60 ;

 S ICDRG=$S(ICDMCC=2:58,ICDMCC=1:59,1:60) Q

DRG61 ;

DRG62 ;

DRG63 ;

 Q

DRG64 ;

DRG65 ;

DRG66 ;

 Q

DRG67 ;

DRG68 ;

 S ICDRG=$S(ICDMCC=2:67,1:68) Q

DRG69 ;

 Q

DRG70 ;

DRG71 ;

DRG72 ;

 S ICDRG=$S(ICDMCC=2:70,ICDMCC=1:71,1:72) Q

DRG73 ;

DRG74 ;

 S ICDRG=$S(ICDMCC=2:73,1:74) Q

DRG75 ;

DRG76 ;

 S ICDRG=$S(ICDMCC>0:75,1:76) Q

DRG77 ;

DRG78 ;

DRG79 ;

 S ICDRG=$S(ICDMCC=2:77,ICDMCC=1:78,1:79) Q

DRG80 ;

DRG81 ;

 S ICDRG=$S(ICDMCC=2:80,1:81) Q

DRG82 ;

DRG83 ;

DRG84 ;

 Q

DRG85 ;

DRG86 ;

DRG87 ;

 Q

DRG88 ;

DRG89 ;

DRG90 ;

 Q

DRG91 ;

DRG92 ;

DRG93 ;

 Q

DRG94 ;

DRG95 ;

DRG96 ;

 Q

DRG97 ;

DRG98 ;

DRG99 ;

 S ICDRG=$S(ICDMCC=2:97,ICDMCC=1:98,1:99) Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD10TB0   1883     printed  Mar 13, 2025@20:51:37                                                                                                                                                                                                    Page 2

ICD10TB0  ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012

 +1       ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103

 +2       ;

DRG1      ;

DRG2      ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:1,1:2)

           QUIT 

DRG3      ; 

DRG4      ;

 +1        QUIT 

DRG5      ;

DRG6      ;

 +1        IF $DATA(ICD10OR(56))

               SET ICDRG=5

               QUIT 

 +2        SET ICDRG=$SELECT(ICDMCC=2:5,1:6)

           QUIT 

 +3        QUIT 

DRG7      ;

 +1        SET ICDRG=7

           QUIT 

DRG8      ;

 +1        SET ICDRG=8

           QUIT 

DRG9      ;

 +1        SET ICDRG=9

           QUIT 

DRG10     ;

 +1        SET ICDRG=10

           QUIT 

 +2        QUIT 

DRG11     ;

DRG12     ;

DRG13     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:11,ICDMCC=1:12,1:13)

           QUIT 

DRG14     ;

 +1       ;No decision table for DRG 14 or 15

           SET ICDRG=14

 +2        QUIT 

DRG15     ;

 +1        SET ICDRG=15

 +2        QUIT 

DRG16     ;

DRG17     ;

 +1       ;No decision table for DRG 16 or 17

           SET ICDRG=$SELECT(ICDMCC:16,1:17)

 +2        QUIT 

DRG18     ;

 +1        QUIT 

DRG19     ;

 +1        QUIT 

DRG20     ;

DRG21     ;

DRG22     ;

 +1        QUIT 

DRG23     ;

DRG24     ;

DRG25     ;

DRG26     ;

DRG27     ;

 +1        QUIT 

DRG28     ;

DRG29     ;

DRG30     ;

 +1        QUIT 

DRG31     ;

DRG32     ;

DRG33     ;

 +1        QUIT 

DRG34     ;

DRG35     ;

DRG36     ;

 +1        QUIT 

DRG37     ;

DRG38     ;

DRG39     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:37,ICDMCC=1:38,1:39)

           QUIT 

DRG40     ;

DRG41     ;

DRG42     ;

 +1        QUIT 

DRG43     ;

DRG44     ;

DRG45     ;

DRG46     ;

 +1        SET ICDRG=46

           QUIT 

DRG47     ;

DRG48     ;

DRG49     ;

DRG50     ;

DRG51     ;

 +1        QUIT 

DRG52     ;

DRG53     ;

 +1        SET ICDRG=$SELECT(ICDMCC>0:52,1:53)

           QUIT 

DRG54     ;

DRG55     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:54,1:55)

           QUIT 

DRG56     ;

DRG57     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:56,1:57)

           QUIT 

DRG58     ;

DRG59     ;

DRG60     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:58,ICDMCC=1:59,1:60)

           QUIT 

DRG61     ;

DRG62     ;

DRG63     ;

 +1        QUIT 

DRG64     ;

DRG65     ;

DRG66     ;

 +1        QUIT 

DRG67     ;

DRG68     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:67,1:68)

           QUIT 

DRG69     ;

 +1        QUIT 

DRG70     ;

DRG71     ;

DRG72     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:70,ICDMCC=1:71,1:72)

           QUIT 

DRG73     ;

DRG74     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:73,1:74)

           QUIT 

DRG75     ;

DRG76     ;

 +1        SET ICDRG=$SELECT(ICDMCC>0:75,1:76)

           QUIT 

DRG77     ;

DRG78     ;

DRG79     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:77,ICDMCC=1:78,1:79)

           QUIT 

DRG80     ;

DRG81     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:80,1:81)

           QUIT 

DRG82     ;

DRG83     ;

DRG84     ;

 +1        QUIT 

DRG85     ;

DRG86     ;

DRG87     ;

 +1        QUIT 

DRG88     ;

DRG89     ;

DRG90     ;

 +1        QUIT 

DRG91     ;

DRG92     ;

DRG93     ;

 +1        QUIT 

DRG94     ;

DRG95     ;

DRG96     ;

 +1        QUIT 

DRG97     ;

DRG98     ;

DRG99     ;

 +1        SET ICDRG=$SELECT(ICDMCC=2:97,ICDMCC=1:98,1:99)

           QUIT 

 +2        QUIT