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

ICDTBL1B.m

Go to the documentation of this file.
  1. ICDTBL1B ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS ; 11/5/07 11:07am
  1. ;;18.0;DRG Grouper;**45,53**;Oct 20, 2000;Build 6
  1. DRG100 ;100-101
  1. DRG101 ;
  1. S ICDRG=$S(ICDMCC=2:100,1:101) Q
  1. DRG102 ;102-103
  1. DRG103 ;
  1. S ICDRG=$S(ICDMCC=2:102,1:103) Q
  1. DRG113 ;113-114
  1. DRG114 ;
  1. S ICDRG=$S(ICDMCC>0:113,1:114) Q
  1. DRG115 S ICDRG=115 Q
  1. DRG116 ;
  1. DRG117 S ICDRG=$S(ICDMCC>0:116,1:117) Q
  1. DRG121 ;
  1. DRG122 S ICDRG=$S(ICDMCC>0:121,1:122) Q
  1. DRG123 S ICDRG=123 Q
  1. DRG124 ;
  1. DRG125 S ICDRG=$S(ICDMCC=2:124,1:125) Q
  1. DRG129 ;
  1. DRG130 I $D(ICDOP(" 31.1")) S ICDRG=011 D DRG11^ICDTBL0C Q
  1. S ICDRG=$S(ICDMCC>0:129,1:130)
  1. I $D(ICDOP(" 20.96"))!$D(ICDOP(" 20.97"))!$D(ICDOP(" 20.98")) S ICDRG=129
  1. Q
  1. DRG131 ;
  1. DRG132 S ICDRG=$S(ICDMCC>0:131,1:132) Q
  1. DRG133 ;
  1. DRG134 S ICDRG=$S(ICDMCC>0:133,1:134) Q
  1. DRG135 ;
  1. DRG136 S ICDRG=$S(ICDMCC>0:135,1:136) Q
  1. DRG137 ;
  1. DRG138 S ICDRG=$S(ICDMCC>0:137,1:138) Q
  1. DRG139 S ICDRG=139 Q
  1. DRG146 ;
  1. DRG147 ;
  1. DRG148 S ICDRG=$S(ICDMCC=2:146,ICDMCC=1:147,1:148) Q
  1. DRG149 S ICDRG=149 Q
  1. DRG150 ;
  1. DRG151 S ICDRG=$S(ICDMCC=2:150,1:151) Q
  1. DRG152 ;
  1. DRG153 S ICDRG=$S(ICDMCC=2:152,1:153) Q
  1. DRG154 ;
  1. DRG155 ;
  1. DRG156 S ICDRG=$S(ICDMCC=2:154,ICDMCC=1:155,1:156) Q
  1. DRG157 ;
  1. DRG158 ;
  1. DRG159 S ICDRG=$S(ICDMCC=2:157,ICDMCC=1:158,1:159) Q
  1. DRG163 ;
  1. DRG164 ;
  1. DRG165 S ICDRG=$S(ICDMCC=2:163,ICDMCC=1:164,1:165) Q
  1. DRG166 ;
  1. DRG167 ;
  1. DRG168 S ICDRG=$S(ICDMCC=2:166,ICDMCC=1:167,1:168) Q
  1. DRG175 ;
  1. DRG176 S ICDRG=$S(ICDMCC=2:175,1:176) Q
  1. DRG177 ;
  1. DRG178 ;
  1. DRG179 S ICDRG=$S(ICDMCC=2:177,ICDMCC=1:178,1:179) Q
  1. DRG180 ;
  1. DRG181 ;
  1. DRG182 S ICDRG=$S(ICDMCC=2:180,ICDMCC=1:181,1:182) Q
  1. DRG183 ;
  1. DRG184 ;
  1. DRG185 S ICDRG=$S(ICDMCC=2:183,ICDMCC=1:184,1:185) Q
  1. DRG186 ;
  1. DRG187 ;
  1. DRG188 S ICDRG=$S(ICDMCC=2:186,ICDMCC=1:187,1:188) Q
  1. DRG189 S ICDRG=189 Q
  1. DRG190 ;
  1. DRG191 ;
  1. DRG192 S ICDRG=$S(ICDMCC=2:190,ICDMCC=1:191,1:192) Q
  1. DRG193 ;
  1. DRG194 ;
  1. DRG195 S ICDRG=$S(ICDMCC=2:193,ICDMCC=1:194,1:195) Q
  1. DRG196 ;
  1. DRG197 ;
  1. DRG198 S ICDRG=$S(ICDMCC=2:196,ICDMCC=1:197,1:198) Q
  1. DRG199 I ICDSD["c" S ICDRG=200 Q
  1. S ICDRG=$S(ICDMCC=2:199,ICDMCC=1:200,1:201) Q
  1. Q