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

ICDTLB4.m

Go to the documentation of this file.
  1. ICDTLB4 ;ALB/EG - GROUPER UTILITY FUNCTIONS ; 10/23/00 11:48am
  1. ;;18.0;DRG Grouper;;Oct 20, 2000
  1. DRG263 S ICDRG=$S(ICDPD["U"&(ICDCC):263,ICDPD["U":264,ICDCC:265,1:266) Q
  1. DRG264 S ICDRG=$S(ICDPD["U"&(ICDCC):263,ICDPD["U":264,ICDCC:265,1:266) Q
  1. DRG265 S ICDRG=$S(ICDPD["U"&(ICDCC):263,ICDPD["U":264,ICDCC:265,1:266) Q
  1. DRG266 S ICDRG=$S(ICDPD["U"&(ICDCC):263,ICDPD["U":264,ICDCC:265,1:266) Q
  1. DRG269 S ICDRG=$S(ICDCC:269,1:270) Q
  1. DRG270 S ICDRG=$S(ICDCC:269,1:270) Q
  1. DRG272 S ICDRG=$S(ICDCC:272,1:273) Q
  1. DRG273 S ICDRG=$S(ICDCC:272,1:273) Q
  1. DRG274 S ICDRG=$S(ICDCC:274,1:275) Q
  1. DRG275 S ICDRG=$S(ICDCC:274,1:275) Q
  1. DRG277 S ICDRG=$S(AGE<18:279,ICDCC:277,1:278) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG278 D DRG277 Q
  1. Q
  1. DRG279 D DRG277 Q
  1. Q
  1. DRG280 S ICDRG=$S(AGE<18:282,ICDCC:280,1:281) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG281 S ICDRG=$S(AGE<18:282,ICDCC:280,1:281) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG282 S ICDRG=$S(AGE<18:282,ICDCC:280,1:281) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG283 S ICDRG=$S('$D(ICDODRG)&(ICDORNR>0):468,ICDCC=1:283,1:284) Q
  1. DRG284 S ICDRG=$S('$D(ICDODRG)&(ICDORNR>0):468,ICDCC:283,1:284) Q
  1. DRG292 S ICDRG=$S($D(ICDOP(" 55.69")):302,ICDCC:292,1:293) Q
  1. DRG293 S ICDRG=$S($D(ICDOP(" 55.69")):302,ICDCC:292,1:293) Q
  1. DRG294 S ICDRG=$S(AGE<36:295,1:294) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG295 S ICDRG=$S(AGE<36:295,1:294) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG296 S ICDRG=$S(AGE<18:298,ICDCC:296,1:297) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG297 S ICDRG=$S(AGE<18:298,ICDCC:296,1:297) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG298 S ICDRG=$S(AGE<18:298,ICDCC:296,1:297) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG300 S ICDRG=$S(ICDCC:300,1:301) Q
  1. DRG301 S ICDRG=$S(ICDCC:300,1:301) Q
  1. DRG302 S ICDRG=$S($D(ICDOP(" 55.69")):302,1:ICDRG) Q
  1. DRG303 S ICDRG=$S(ICDPD["M":303,ICDCC:304,1:305) Q
  1. DRG304 S ICDRG=$S(ICDPD["M":303,ICDCC:304,1:305) Q
  1. DRG305 S ICDRG=$S(ICDPD["M":303,ICDCC:304,1:305) Q
  1. DRG306 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q
  1. DRG307 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q
  1. DRG308 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q
  1. DRG309 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q
  1. DRG310 S ICDRG=$S(ICDCC:310,1:311) Q
  1. DRG311 S ICDRG=$S(ICDCC:310,1:311) Q
  1. DRG312 S ICDRG=$S(AGE<18:314,ICDCC:312,1:313) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG313 S ICDRG=$S(AGE<18:314,ICDCC:312,1:313) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG314 S ICDRG=$S(AGE<18:314,ICDCC:312,1:313) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG318 S ICDRG=$S(ICDCC:318,1:319) Q
  1. DRG319 S ICDRG=$S(ICDCC:318,1:319) Q
  1. DRG320 S ICDRG=$S(AGE<18:322,ICDCC:320,1:321) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG321 S ICDRG=$S(AGE<18:322,ICDCC:320,1:321) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG322 S ICDRG=$S(AGE<18:322,ICDCC:320,1:321) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG323 S ICDRG=$S('$D(ICDPDRG(323)):"",ICDCC!($D(ICDOP(" 98.51")))!($D(ICDSDRG(323))):323,1:324) Q
  1. DRG324 S ICDRG=$S(ICDCC!($D(ICDOP(" 98.51")))!($D(ICDSDRG(323))):323,1:324) Q
  1. DRG325 S ICDRG=$S(AGE<18:327,ICDCC:325,1:326) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG326 S ICDRG=$S(AGE<18:327,ICDCC:325,1:326) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG327 S ICDRG=$S(AGE<18:327,ICDCC:325,1:326) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG328 S ICDRG=$S(AGE<18:330,ICDCC:328,1:329) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG329 S ICDRG=$S(AGE<18:330,ICDCC:328,1:329) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG330 S ICDRG=$S(AGE<18:330,ICDCC:328,1:329) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG331 S ICDRG=$S(AGE<18:333,ICDCC:331,1:332) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG332 S ICDRG=$S(AGE<18:333,ICDCC:331,1:332) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q
  1. DRG333 S ICDRG=$S(AGE<18:333,ICDCC:331,1:332) I AGE="" S ICDRG=470,ICDRTC=3
  1. Q