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