- 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 Feb 18, 2025@23:13:28 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