ICD10TB7 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103
;
;DRG700 ; D DRG700^ICDTBL7D - See ICD10TB6
DRG701 ;
DRG702 ;
DRG703 ;
DRG704 ;
DRG705 ;
DRG706 ;
Q
DRG707 ;
DRG708 Q
DRG709 ;
DRG710 Q
DRG711 ;
DRG712 Q
DRG713 ;
DRG714 S ICDRG=$S(ICDMCC>0:713,1:714)
Q
DRG715 ;
DRG716 ;
DRG717 ;
DRG718 ;
Q
DRG719 ;
DRG720 ;
DRG721 ;
Q
DRG722 ;
DRG723 ;
DRG724 ;
Q
DRG725 ;
DRG726 S ICDRG=$S(ICDMCC=2:725,1:726) Q
DRG727 ;
DRG728 ;
S ICDRG=$S(ICDMCC=2:727,1:728) Q
DRG729 ;
DRG730 S ICDRG=$S(ICDMCC>0:729,1:730) Q
DRG734 ;
DRG735 ;
Q
DRG736 ;
DRG737 ;
DRG738 ;
DRG739 ;
DRG740 ;
DRG741 ;
Q
DRG742 ;
DRG743 ;
S ICDRG=$S(ICDMCC>0:742,1:743) Q
DRG744 ;
DRG745 S ICDRG=$S(ICDMCC>0:744,1:745) Q
Q
DRG746 ;
DRG747 Q
DRG748 ;
Q
DRG749 ;
DRG750 ;
Q
DRG751 ;
DRG752 ;
DRG753 ;
Q
DRG754 ;
DRG755 ;
DRG756 ;
Q
DRG757 ;
DRG758 ;
DRG759 ;
S ICDRG=$S(ICDMCC=2:757,ICDMCC=1:758,1:759) Q
DRG760 ;
DRG761 S ICDRG=$S(ICDMCC>0:760,1:761) Q
DRG762 ;
DRG763 ;
DRG764 ;
DRG765 ;
DRG766 ;
Q
DRG767 ;
DRG768 ;
Q
DRG769 ;
DRG770 ;
DRG771 ;
DRG772 ;
DRG773 ;
DRG774 ;
DRG775 ;
DRG776 ;
DRG777 ;
DRG778 ;
DRG779 ;
DRG780 ;
DRG781 ;
DRG782 ;
DRG789 ;
DRG790 ;Q
Q
DRG791 ;
DRG792 ;
S ICDRG=$S($D(ICD10OR(290))!$D(ICD10SD("J")):791,1:792)
DRG793 ;
DRG794 ;
DRG795 ;
DRG796 ;
Q
DRG799 ;
DRG800 ;
DRG801 ;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD10TB7 1452 printed Dec 13, 2024@01:47:05 Page 2
ICD10TB7 ;KUM - GROUPER UTILITY FUNCTIONS;05/04/2012
+1 ;;18.0;DRG Grouper;**64**;Oct 20, 2000;Build 103
+2 ;
+3 ;DRG700 ; D DRG700^ICDTBL7D - See ICD10TB6
DRG701 ;
DRG702 ;
DRG703 ;
DRG704 ;
DRG705 ;
DRG706 ;
+1 QUIT
DRG707 ;
DRG708 QUIT
DRG709 ;
DRG710 QUIT
DRG711 ;
DRG712 QUIT
DRG713 ;
DRG714 SET ICDRG=$SELECT(ICDMCC>0:713,1:714)
+1 QUIT
DRG715 ;
DRG716 ;
DRG717 ;
DRG718 ;
+1 QUIT
DRG719 ;
DRG720 ;
DRG721 ;
+1 QUIT
DRG722 ;
DRG723 ;
DRG724 ;
+1 QUIT
DRG725 ;
DRG726 SET ICDRG=$SELECT(ICDMCC=2:725,1:726)
QUIT
DRG727 ;
DRG728 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:727,1:728)
QUIT
DRG729 ;
DRG730 SET ICDRG=$SELECT(ICDMCC>0:729,1:730)
QUIT
DRG734 ;
DRG735 ;
+1 QUIT
DRG736 ;
DRG737 ;
DRG738 ;
DRG739 ;
DRG740 ;
DRG741 ;
+1 QUIT
DRG742 ;
DRG743 ;
+1 SET ICDRG=$SELECT(ICDMCC>0:742,1:743)
QUIT
DRG744 ;
DRG745 SET ICDRG=$SELECT(ICDMCC>0:744,1:745)
QUIT
+1 QUIT
DRG746 ;
DRG747 QUIT
DRG748 ;
+1 QUIT
DRG749 ;
DRG750 ;
+1 QUIT
DRG751 ;
DRG752 ;
DRG753 ;
+1 QUIT
DRG754 ;
DRG755 ;
DRG756 ;
+1 QUIT
DRG757 ;
DRG758 ;
DRG759 ;
+1 SET ICDRG=$SELECT(ICDMCC=2:757,ICDMCC=1:758,1:759)
QUIT
DRG760 ;
DRG761 SET ICDRG=$SELECT(ICDMCC>0:760,1:761)
QUIT
DRG762 ;
DRG763 ;
DRG764 ;
DRG765 ;
DRG766 ;
+1 QUIT
DRG767 ;
DRG768 ;
+1 QUIT
DRG769 ;
DRG770 ;
DRG771 ;
DRG772 ;
DRG773 ;
DRG774 ;
DRG775 ;
DRG776 ;
DRG777 ;
DRG778 ;
DRG779 ;
DRG780 ;
DRG781 ;
DRG782 ;
DRG789 ;
DRG790 ;Q
+1 QUIT
DRG791 ;
DRG792 ;
+1 SET ICDRG=$SELECT($DATA(ICD10OR(290))!$DATA(ICD10SD("J")):791,1:792)
DRG793 ;
DRG794 ;
DRG795 ;
DRG796 ;
+1 QUIT
DRG799 ;
DRG800 ;
DRG801 ;
+1 QUIT