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

ICD10TB7.m

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