ICD10TB6.m

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

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

 ;

 ;DRG600 ; D DRG600^ICDTBL6D - See ICD10TB5

 ;DRG601 S ICDRG=$S(ICDMCC>0:600,1:601) Q  - See ICD10TB5

DRG602 ;

DRG603 ;

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

DRG604 ;

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

DRG606 ;

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

DRG608 ;

DRG609 ;

DRG610 ;

DRG611 ;

DRG612 ;

DRG613 ;

DRG614 ;

DRG615 S ICDRG=$S(ICDMCC>0:614,1:615) Q

DRG616 ;

DRG617 ;

DRG618 ; 

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

DRG619 ;

DRG620 ;

DRG621 ;

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

DRG622 ;

DRG623 ;

DRG624 ;

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

DRG625 ;

DRG626 ;

DRG627 S ICDRG=$S(ICDMCC=2:625,ICDMCC=1:626,1:627) Q

DRG628 ;

DRG629 ;

DRG630 S ICDRG=$S(ICDMCC=2:628,ICDMCC=1:629,1:630) Q

DRG631 ;

DRG632 ;

DRG633 ;

DRG634 ;

DRG635 ;

DRG636 ;

 Q

DRG637 ;

DRG638 ;

DRG639 S ICDRG=$S(ICDMCC=2:637,ICDMCC=1:638,1:639) Q

DRG640 ;

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

DRG642 ;

 Q

DRG643 ;

DRG644 ;

DRG645 S ICDRG=$S(ICDMCC=2:643,ICDMCC=1:644,1:645) Q

DRG646 ;

DRG647 ;

DRG648 ;

DRG649 ;

DRG650 ;

DRG651 ;

DRG652 ;

 Q

DRG653 ;

DRG654 ;

DRG655 S ICDRG=$S(ICDMCC=2:653,ICDMCC=1:654,1:655) Q

DRG656 ;

DRG657 ;

DRG658 ;

 Q

DRG659 ;

DRG660 ;

DRG661 ;

 Q

DRG662 ;

DRG663 ;

DRG664 ;

 Q

DRG665 ;

DRG666 ;

DRG667 ; 

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

DRG668 ;

DRG669 ;

DRG670 S ICDRG=$S(ICDMCC=2:668,ICDMCC=1:669,1:670) Q

DRG671 ;

DRG672 S ICDRG=$S(ICDMCC>0:671,1:672) Q

DRG673 ;

DRG674 ;

DRG675 S ICDRG=$S(ICDMCC=2:673,ICDMCC=1:674,1:675) Q

DRG676 ;

DRG677 ;

DRG678 ;

DRG679 ;

DRG680 ;

DRG681 ;

 Q

DRG682 ;

DRG683 ;

DRG684 S ICDRG=$S(ICDMCC=2:682,ICDMCC=1:683,1:684) Q

DRG685 ;

 Q

DRG686 ;

DRG687 ;

DRG688 S ICDRG=$S(ICDMCC=2:686,ICDMCC=1:687,1:688) Q

DRG689 ;

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

DRG691 ;

DRG692 ;

DRG693 ;

DRG694 ;

 Q

DRG695 ;

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

DRG697 ;

 Q

DRG698 ;

DRG699 ;

DRG700 S ICDRG=$S(ICDMCC=2:698,ICDMCC=1:699,1:700) Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD10TB6   2133     printed  Mar 13, 2025@20:51:43                                                                                                                                                                                                    Page 2

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

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

 +2       ;

 +3       ;DRG600 ; D DRG600^ICDTBL6D - See ICD10TB5

 +4       ;DRG601 S ICDRG=$S(ICDMCC>0:600,1:601) Q  - See ICD10TB5

DRG602    ;

DRG603    ;

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

           QUIT 

DRG604    ;

DRG605     SET ICDRG=$SELECT(ICDMCC=2:604,1:605)

           QUIT 

DRG606    ;

DRG607     SET ICDRG=$SELECT(ICDMCC=2:606,1:607)

           QUIT 

DRG608    ;

DRG609    ;

DRG610    ;

DRG611    ;

DRG612    ;

DRG613    ;

DRG614    ;

DRG615     SET ICDRG=$SELECT(ICDMCC>0:614,1:615)

           QUIT 

DRG616    ;

DRG617    ;

DRG618    ; 

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

           QUIT 

DRG619    ;

DRG620    ;

DRG621    ;

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

           QUIT 

DRG622    ;

DRG623    ;

DRG624    ;

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

           QUIT 

DRG625    ;

DRG626    ;

DRG627     SET ICDRG=$SELECT(ICDMCC=2:625,ICDMCC=1:626,1:627)

           QUIT 

DRG628    ;

DRG629    ;

DRG630     SET ICDRG=$SELECT(ICDMCC=2:628,ICDMCC=1:629,1:630)

           QUIT 

DRG631    ;

DRG632    ;

DRG633    ;

DRG634    ;

DRG635    ;

DRG636    ;

 +1        QUIT 

DRG637    ;

DRG638    ;

DRG639     SET ICDRG=$SELECT(ICDMCC=2:637,ICDMCC=1:638,1:639)

           QUIT 

DRG640    ;

DRG641     SET ICDRG=$SELECT(ICDMCC=2:640,1:641)

           QUIT 

DRG642    ;

 +1        QUIT 

DRG643    ;

DRG644    ;

DRG645     SET ICDRG=$SELECT(ICDMCC=2:643,ICDMCC=1:644,1:645)

           QUIT 

DRG646    ;

DRG647    ;

DRG648    ;

DRG649    ;

DRG650    ;

DRG651    ;

DRG652    ;

 +1        QUIT 

DRG653    ;

DRG654    ;

DRG655     SET ICDRG=$SELECT(ICDMCC=2:653,ICDMCC=1:654,1:655)

           QUIT 

DRG656    ;

DRG657    ;

DRG658    ;

 +1        QUIT 

DRG659    ;

DRG660    ;

DRG661    ;

 +1        QUIT 

DRG662    ;

DRG663    ;

DRG664    ;

 +1        QUIT 

DRG665    ;

DRG666    ;

DRG667    ; 

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

           QUIT 

DRG668    ;

DRG669    ;

DRG670     SET ICDRG=$SELECT(ICDMCC=2:668,ICDMCC=1:669,1:670)

           QUIT 

DRG671    ;

DRG672     SET ICDRG=$SELECT(ICDMCC>0:671,1:672)

           QUIT 

DRG673    ;

DRG674    ;

DRG675     SET ICDRG=$SELECT(ICDMCC=2:673,ICDMCC=1:674,1:675)

           QUIT 

DRG676    ;

DRG677    ;

DRG678    ;

DRG679    ;

DRG680    ;

DRG681    ;

 +1        QUIT 

DRG682    ;

DRG683    ;

DRG684     SET ICDRG=$SELECT(ICDMCC=2:682,ICDMCC=1:683,1:684)

           QUIT 

DRG685    ;

 +1        QUIT 

DRG686    ;

DRG687    ;

DRG688     SET ICDRG=$SELECT(ICDMCC=2:686,ICDMCC=1:687,1:688)

           QUIT 

DRG689    ;

DRG690     SET ICDRG=$SELECT(ICDMCC=2:689,1:690)

           QUIT 

DRG691    ;

DRG692    ;

DRG693    ;

DRG694    ;

 +1        QUIT 

DRG695    ;

DRG696     SET ICDRG=$SELECT(ICDMCC=2:695,1:696)

           QUIT 

DRG697    ;

 +1        QUIT 

DRG698    ;

DRG699    ;

DRG700     SET ICDRG=$SELECT(ICDMCC=2:698,ICDMCC=1:699,1:700)

           QUIT 

 +1        QUIT