- ICDDRGX3 ;MKN - GROUPER PROCESS continued from ICDDRGX2;06/04/12 3:45pm
- ;;18.0;DRG Grouper;**64,82**;Oct 20, 2000;Build 21
- ;
- VARIABLS ;Apply Variables for MDC 1-22
- ;
- I $D(ICD10OR(80)) S ICDRG=$S(ICDMCC>0:707,1:708),ICDFI=1 G EXIT ;80=Major Male Pelvic
- I ICDMDC=12,$D(ICD10OR(119)) S ICDRG=$S(ICDMCC>0:709,1:710),ICDFI=1 G EXIT ;119=Penis Procedures
- I $D(ICD10OR(147)) S ICDRG=$S(ICDMCC>0:711,1:712),ICDFI=1 G EXIT ;147=Testes Procedures
- I ICDMDC=12,$D(ICD10OR(153)) S ICDRG=$S(ICDMCC>0:713,1:714),ICDFI=1 G EXIT ;153=Transurethral Prostatectomy
- I SEX="M",ICDMDC=12,$D(ICD10OR(108)) D ;108=Other Male Reproductive System O.R. Procedures
- . I $D(ICD10PD(98)) S ICDRG=$S(ICDMCC>0:715,1:716),ICDFI=1 Q ;98=Malignancy
- . S ICDRG=$S(ICDMCC>0:717,1:718),ICDFI=1 Q
- G:ICDFI EXIT
- I ICDMDC=12,SEX="M",$D(ICD10PD(98)) S ICDRG=$S(ICDMCC=2:722,ICDMCC=1:723,1:724),ICDFI=1 G EXIT
- I SEX="F",$D(ICD10OR(235)) S ICDRG=$S(ICDMCC>0:734,1:735),ICDFI=1 G EXIT ;235=Pelvic Evisceration, Radical Hysterectomy and Radical Vulvectomy
- I $D(ICD10OR(158)),$D(ICD10PD(143)) S ICDRG=$S(ICDMCC=2:739,ICDMCC=1:740,1:741),ICDFI=1 G EXIT ;158=Uterine and Adnexal Procedures 143=Non-ovarian/adnexal Malignancy
- I $D(ICD10OR(158)),$D(ICD10PD(168)) S ICDRG=$S(ICDMCC=2:736,ICDMCC=1:737,1:738),ICDFI=1 G EXIT ;168=Ovarian or Adnexal Malignancy
- I SEX="F" D
- . I ICDMDC=13 D
- . . I $D(ICD10OR(253)) S ICDRG=$S(ICDMCC>0:742,1:743),ICDFI=1 Q ;253=Uterine and Adnexal Procedures for Non-Malignancy
- . . I $D(ICD10OR(208)) S ICDRG=$S(ICDMCC>0:744,1:745),ICDFI=1 Q ;208=D&C, Conization, Laparoscopy and Tubal Interruption
- . Q:ICDFI
- . I ICDMDC=14,$D(ICD10OR(181)) D ;181=Delivery procedures
- . . I $D(ICD10OR(183)) S ICDRG=767,ICDFI=1 Q ;183=Sterilization and/or D&C
- . . I $D(ICD10OR(182)) S ICDRG=768,ICDFI=1 Q ;182=Not Sterilization and/or D&C
- G:ICDFI=1 EXIT
- I $D(ICD10OR(254)) S ICDRG=$S(ICDMCC>0:746,1:747),ICDFI=1 G EXIT ;254=Vagina, Cervix and Vulva Procedures
- I $D(ICD10OR(47)) S ICDRG=748,ICDFI=1 G EXIT ;47=Female Reproductive System Reconstructive Procedures
- I SEX="F",$D(ICD10OR(104)) S ICDRG=$S(ICDMCC>0:749,1:750),ICDFI=1 G EXIT ;104=Other Female Reproductive System O.R. Procedures
- I SEX="F",$D(ICD10PD(100)) S ICDRG=$S(ICDMCC=2:754,ICDMCC=1:755,1:756),ICDFI=1 G EXIT ;100=Malignancy, Female Reproductive System
- I SEX="F",$D(ICD10PD(81)) S ICDRG=$S(ICDMCC=2:757,ICDMCC=1:758,1:759),ICDFI=1 G EXIT ;81=Infections, Female Reproductive System
- I $D(ICD10PD(272)) S ICDRG=$S(ICDMCC>0:760,1:761),ICDFI=1,ICDFI=1 G EXIT ;272=Menstrual and Other Female Reproductive System Disorders
- I $D(ICD10OR("c")) S ICDRG=$S(ICDMCC>0:765,1:766),ICDFI=1 G EXIT ;"c"=Cesarean Sec
- I $D(ICD10OR(312)) S ICDRG=$S($D(ICD10OR(183)):767,1:768),ICDFI=1 G EXIT ;312=Vaginal Delivery 183=Sterilization and/or D&C
- I $D(ICD10PD(294)),$D(ICD10OR) S ICDRG=769,ICDFI=1 G EXIT ;294=Postpartum and Post Abortion Diagnoses with O.R. Procedure
- I $D(ICD10PD(294)),'$D(ICD10OR) S ICDRG=776,ICDFI=1 G EXIT
- I $D(ICD10PD(227)) S ICDRG=779,ICDFI=1 G EXIT ;Abortion without D&C
- I $D(ICD10OR(145)) S ICDRG=$S(ICDMCC=2:799,ICDMCC=1:800,1:801),ICDFI=1 G EXIT ;145=Splenectomy
- I ICDMDC=16,$D(ICD10OR(231)) S ICDRG=$S(ICDMCC=2:802,ICDMCC=1:803,1:804),ICDFI=1 G EXIT ;231=Other O.R. Procedures of the Blood and Blood Forming Organs
- I $D(ICD10PD(265)) S ICDRG=$S(ICDMCC=2:808,ICDMCC=1:809,1:810),ICDFI=1 G EXIT ;265=Major Hematological/Immunological Diagnoses Except Sickle Cell Crisis and Coagulation
- I $D(ICD10PD(261)),$D(ICD10OR(81)) S ICDRG=$S(ICDMCC=2:820,ICDMCC=1:821,1:822),ICDFI=1 G EXIT ;261=Lymphoma and Leukemia with Major O.R. Procedure
- I $D(ICD10PD(263)),$D(ICD10OR),'$D(ICD10OR(81)) S ICDRG=$S(ICDMCC=2:823,ICDMCC=1:824,1:825),ICDFI=1 G EXIT ;263=Lymphoma and Non-Acute Leukemia with Other O.R. Procedure
- I $D(ICD10PD(231)),'$D(ICD10OR(81)) S ICDRG=$S(ICDMCC=2:834,ICDMCC=1:835,1:836),ICDFI=1 G EXIT ;231=Acute Leukemia without Major O.R. Procedure
- I $D(ICD10PD(262)) S ICDRG=$S(ICDMCC=2:840,ICDMCC=1:841,1:842),ICDFI=1 G EXIT ;Lymphoma and Non-Acute Leukemia
- I $D(ICD10PD(181)) S ICDRG=849,ICDFI=1 G EXIT ;Radiotherapy
- I $D(ICD10PD(134)),'$D(ICD10PD(35)) D ;134=Myeloproliferative Disorders or Poorly Differentiated Neoplasms
- . I $D(ICD10OR(81)) S ICDRG=$S(ICDMCC=2:826,ICDMCC=1:827,1:828),ICDFI=1 Q
- . I $D(ICD10OR) S ICDRG=$S(ICDMCC>0:829,1:830),ICDFI=1 Q
- I $D(ICD10OR(111)) S ICDRG=$S(ICDMCC=2:907,ICDMCC=1:908,1:909),ICDFI=1 G EXIT ;Other O.R. Procedures for Injuries
- G:ICDFI EXIT
- I ICDMDC=17,$D(ICD10PD(35)) D ;134=Myeloproliferative Disorders or Poorly Differentiated Neoplasms 35=Chemotherapy Implant
- . I $D(ICD10SD(15)),ICDMCC=2 S ICDRG=837,ICDFI=1 Q ;15=SDX Acute Leukemia 56=High Dose Chemo Agent
- . I $D(ICD10SD(15)),'$D(ICD10OR(56)) S ICDRGT=$S(ICDMCC=2:837,ICDMCC=1:838,ICDMCC=0:839,1:0) I ICDRGT>0 S ICDRG=ICDRGT,ICDFI=1 Q
- . I '$D(ICD10SD(15)),$D(ICD10OR(56)),ICDMCC=2 S ICDRG=837,ICDFI=1 Q
- . I '$D(ICD10SD(15)),$D(ICD10OR(56)),ICDMCC'=2 S ICDRG=838,ICDFI=1 Q
- G:ICDFI EXIT
- I $D(ICD10PD(288)) S ICDRG=$S(ICDMCC=2:843,ICDMCC=1:844,1:845),ICDFI=1 G EXIT ;288=Other Myeloproliferative Disorders or Poorly Differentiated Neoplasm Diagnoses
- I $D(ICD10PD(240)) S ICDRG=$S(ICDMCC=2:846,ICDMCC=1:847,1:848),ICDFI=1 G EXIT ;240=Chemotherapy without Acute Leukemia as Secondary Diagnosis
- I ICDMDC=18,$D(ICD10OR("O")) D ;82=infectious & Parasitic Diseases, Systemic or Unspecified Sites
- . S ICDX=$$ICDXEXPT^ICDRGAPI(ICDDX(1),"^K68.11^N98.0^T80.22XA^T80.29XA^T81.4XXA^T88.0XXA^")
- . I ICDX=0 S ICDRG=$S(ICDMCC=2:853,ICDMCC=1:854,1:855),ICDFI=1 Q
- . I ICDX S ICDRG=$S(ICDMCC=2:856,ICDMCC=1:857,1:858),ICDFI=1 Q
- I ICDMDC=18,'$D(ICD10OR("O")) D
- . S ICDX=$$ICDXEXPT^ICDRGAPI(ICDDX(1),"^K68.11^T81.4XXA^")
- . I ICDX S ICDRG=$S(ICDMCC=2:862,1:863),ICDFI=1 Q
- G:ICDFI EXIT
- ;I $D(ICD10PD(175)),$D(ICD10OR("O")) S ICDRG=$S(ICDMCC=2:856,ICDMCC=1:857,1:858),ICDFI=1 G EXIT ;175=Postoperative or Post-Traumatic Infections with O.R. Procedure
- I $D(ICD10PD(190))!($D(ICD10PD("W"))) D ;190=Septicemia or Severe Sepsis "W"=Severe Sepsis
- . I $D(ICD10OR(225)) S ICDRG=870,ICDFI=1 Q
- . S ICDRG=$S(ICDMCC=2:871,1:872),ICDFI=1 Q
- G:ICDFI EXIT
- I ICDMDC=19,$D(ICD10OR("O")) S ICDRG=876,ICDFI=1 G EXIT ;Mental Illness
- I ICDMDC=20 D
- . I ICDDMS=1 S ICDRG=894,ICDFI=1 Q ;Left against medical advice (AMA)
- . I $D(ICD10PD(270)),$D(ICD10OR(132)) S ICDRG=895,ICDFI=1 Q ;270=MDC 20 Alcohol/Drug Use & Alcohol/Drug Induced Organic Mental Disorders 132=Rehabilitation Therapy
- . I $D(ICD10PD(270)),'$D(ICD10OR(132)),'$D(ICD10OR("x")) S ICDRG=$S(ICDMCC=2:896,1:897),ICDFI=1 Q ;132=Rehabilitation Therapy
- G:ICDFI EXIT
- I $D(ICD10OR(166)),$D(ICD10OR("O")) S ICDRG=$S(ICDMCC=2:901,ICDMCC=1:902,1:903),ICDFI=1 G EXIT ;Wound Debridements for Injuries
- I ICDMDC=21,$D(ICD10OR(139)) S ICDRG=$S(ICDMCC>0:904,1:905),ICDFI=1 G EXIT ;139=Skin Grafts for Injuries
- I ICDMDC=21,$D(ICD10OR(52)) S ICDRG=906,ICDFI=1 G EXIT
- I $D(ICD10PD(42)) S ICDRG=$S(ICDMCC=2:919,ICDMCC=1:920,1:921),ICDFI=1 G EXIT ;42=Complications of Treatment
- I $D(ICD10PD("*"))!($D(ICD10PD("b"))&($D(ICD10OR(225)))) S ICDRG=$S($D(ICD10OR("k")):927,1:933),ICDFI=1 G EXIT ;*=Extensive Burns or b=Full Thickness Burns with 225=MV 96+Hours k=Skin Graft
- I $D(ICD10PD("b")) D ;Full Thickness Burns
- . I $D(ICD10OR("k"))!($D(ICD10SD("j"))) S ICDRG=$S(ICDMCC>0:928,1:929),ICDFI=1 Q ;k=Skin Graft j=Inhalation Injury
- . S ICDRG=934,ICDFI=1 Q
- G:ICDFI EXIT
- I ICDMDC=22,$D(ICD10PD(141)) S ICDRG=935,ICDFI=1 G EXIT ;141=Non-extensive Burns
- I ICDMDC=23,$D(ICD10OR("O")),$D(ICD10PD(119)) S ICDRG=$S(ICDMCC=2:939,ICDMCC=1:940,1:941),ICDFI=1 G EXIT ;O.R. Procedures with 119=Diagnosis of Other Contact with Health Services
- I ICDMDC=23 D
- .I $D(ICD10OR(131)) S ICDRG=$S(ICDMCC>0:945,1:946),ICDFI=1 ;131=Rehabilitation
- .I $D(ICD10PD(299)) S ICDRG=$S(ICDMCC>0:947,1:948),ICDFI=1
- .I $D(ICD10PD(20)) S ICDRG=$S(ICDMCC>0:949,1:950),ICDFI=1
- EXIT ;
- I $D(ICD10OR("y")) D
- . I $D(ICD10OR),ICDREL=0 S ICDRG=$S(ICDMCC=2:984,ICDMCC=1:985,1:986),ICDFI=1 Q
- I $D(ICD10OR("z")) D
- . I $D(ICD10OR),ICDREL=0 S ICDRG=$S(ICDMCC=2:987,ICDMCC=1:988,1:989),ICDFI=1 Q
- I ICDFI S ICDFOUND=1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICDDRGX3 8194 printed Mar 13, 2025@20:55:03 Page 2
- ICDDRGX3 ;MKN - GROUPER PROCESS continued from ICDDRGX2;06/04/12 3:45pm
- +1 ;;18.0;DRG Grouper;**64,82**;Oct 20, 2000;Build 21
- +2 ;
- VARIABLS ;Apply Variables for MDC 1-22
- +1 ;
- +2 ;80=Major Male Pelvic
- IF $DATA(ICD10OR(80))
- SET ICDRG=$SELECT(ICDMCC>0:707,1:708)
- SET ICDFI=1
- GOTO EXIT
- +3 ;119=Penis Procedures
- IF ICDMDC=12
- IF $DATA(ICD10OR(119))
- SET ICDRG=$SELECT(ICDMCC>0:709,1:710)
- SET ICDFI=1
- GOTO EXIT
- +4 ;147=Testes Procedures
- IF $DATA(ICD10OR(147))
- SET ICDRG=$SELECT(ICDMCC>0:711,1:712)
- SET ICDFI=1
- GOTO EXIT
- +5 ;153=Transurethral Prostatectomy
- IF ICDMDC=12
- IF $DATA(ICD10OR(153))
- SET ICDRG=$SELECT(ICDMCC>0:713,1:714)
- SET ICDFI=1
- GOTO EXIT
- +6 ;108=Other Male Reproductive System O.R. Procedures
- IF SEX="M"
- IF ICDMDC=12
- IF $DATA(ICD10OR(108))
- Begin DoDot:1
- +7 ;98=Malignancy
- IF $DATA(ICD10PD(98))
- SET ICDRG=$SELECT(ICDMCC>0:715,1:716)
- SET ICDFI=1
- QUIT
- +8 SET ICDRG=$SELECT(ICDMCC>0:717,1:718)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +9 if ICDFI
- GOTO EXIT
- +10 IF ICDMDC=12
- IF SEX="M"
- IF $DATA(ICD10PD(98))
- SET ICDRG=$SELECT(ICDMCC=2:722,ICDMCC=1:723,1:724)
- SET ICDFI=1
- GOTO EXIT
- +11 ;235=Pelvic Evisceration, Radical Hysterectomy and Radical Vulvectomy
- IF SEX="F"
- IF $DATA(ICD10OR(235))
- SET ICDRG=$SELECT(ICDMCC>0:734,1:735)
- SET ICDFI=1
- GOTO EXIT
- +12 ;158=Uterine and Adnexal Procedures 143=Non-ovarian/adnexal Malignancy
- IF $DATA(ICD10OR(158))
- IF $DATA(ICD10PD(143))
- SET ICDRG=$SELECT(ICDMCC=2:739,ICDMCC=1:740,1:741)
- SET ICDFI=1
- GOTO EXIT
- +13 ;168=Ovarian or Adnexal Malignancy
- IF $DATA(ICD10OR(158))
- IF $DATA(ICD10PD(168))
- SET ICDRG=$SELECT(ICDMCC=2:736,ICDMCC=1:737,1:738)
- SET ICDFI=1
- GOTO EXIT
- +14 IF SEX="F"
- Begin DoDot:1
- +15 IF ICDMDC=13
- Begin DoDot:2
- +16 ;253=Uterine and Adnexal Procedures for Non-Malignancy
- IF $DATA(ICD10OR(253))
- SET ICDRG=$SELECT(ICDMCC>0:742,1:743)
- SET ICDFI=1
- QUIT
- +17 ;208=D&C, Conization, Laparoscopy and Tubal Interruption
- IF $DATA(ICD10OR(208))
- SET ICDRG=$SELECT(ICDMCC>0:744,1:745)
- SET ICDFI=1
- QUIT
- End DoDot:2
- +18 if ICDFI
- QUIT
- +19 ;181=Delivery procedures
- IF ICDMDC=14
- IF $DATA(ICD10OR(181))
- Begin DoDot:2
- +20 ;183=Sterilization and/or D&C
- IF $DATA(ICD10OR(183))
- SET ICDRG=767
- SET ICDFI=1
- QUIT
- +21 ;182=Not Sterilization and/or D&C
- IF $DATA(ICD10OR(182))
- SET ICDRG=768
- SET ICDFI=1
- QUIT
- End DoDot:2
- End DoDot:1
- +22 if ICDFI=1
- GOTO EXIT
- +23 ;254=Vagina, Cervix and Vulva Procedures
- IF $DATA(ICD10OR(254))
- SET ICDRG=$SELECT(ICDMCC>0:746,1:747)
- SET ICDFI=1
- GOTO EXIT
- +24 ;47=Female Reproductive System Reconstructive Procedures
- IF $DATA(ICD10OR(47))
- SET ICDRG=748
- SET ICDFI=1
- GOTO EXIT
- +25 ;104=Other Female Reproductive System O.R. Procedures
- IF SEX="F"
- IF $DATA(ICD10OR(104))
- SET ICDRG=$SELECT(ICDMCC>0:749,1:750)
- SET ICDFI=1
- GOTO EXIT
- +26 ;100=Malignancy, Female Reproductive System
- IF SEX="F"
- IF $DATA(ICD10PD(100))
- SET ICDRG=$SELECT(ICDMCC=2:754,ICDMCC=1:755,1:756)
- SET ICDFI=1
- GOTO EXIT
- +27 ;81=Infections, Female Reproductive System
- IF SEX="F"
- IF $DATA(ICD10PD(81))
- SET ICDRG=$SELECT(ICDMCC=2:757,ICDMCC=1:758,1:759)
- SET ICDFI=1
- GOTO EXIT
- +28 ;272=Menstrual and Other Female Reproductive System Disorders
- IF $DATA(ICD10PD(272))
- SET ICDRG=$SELECT(ICDMCC>0:760,1:761)
- SET ICDFI=1
- SET ICDFI=1
- GOTO EXIT
- +29 ;"c"=Cesarean Sec
- IF $DATA(ICD10OR("c"))
- SET ICDRG=$SELECT(ICDMCC>0:765,1:766)
- SET ICDFI=1
- GOTO EXIT
- +30 ;312=Vaginal Delivery 183=Sterilization and/or D&C
- IF $DATA(ICD10OR(312))
- SET ICDRG=$SELECT($DATA(ICD10OR(183)):767,1:768)
- SET ICDFI=1
- GOTO EXIT
- +31 ;294=Postpartum and Post Abortion Diagnoses with O.R. Procedure
- IF $DATA(ICD10PD(294))
- IF $DATA(ICD10OR)
- SET ICDRG=769
- SET ICDFI=1
- GOTO EXIT
- +32 IF $DATA(ICD10PD(294))
- IF '$DATA(ICD10OR)
- SET ICDRG=776
- SET ICDFI=1
- GOTO EXIT
- +33 ;Abortion without D&C
- IF $DATA(ICD10PD(227))
- SET ICDRG=779
- SET ICDFI=1
- GOTO EXIT
- +34 ;145=Splenectomy
- IF $DATA(ICD10OR(145))
- SET ICDRG=$SELECT(ICDMCC=2:799,ICDMCC=1:800,1:801)
- SET ICDFI=1
- GOTO EXIT
- +35 ;231=Other O.R. Procedures of the Blood and Blood Forming Organs
- IF ICDMDC=16
- IF $DATA(ICD10OR(231))
- SET ICDRG=$SELECT(ICDMCC=2:802,ICDMCC=1:803,1:804)
- SET ICDFI=1
- GOTO EXIT
- +36 ;265=Major Hematological/Immunological Diagnoses Except Sickle Cell Crisis and Coagulation
- IF $DATA(ICD10PD(265))
- SET ICDRG=$SELECT(ICDMCC=2:808,ICDMCC=1:809,1:810)
- SET ICDFI=1
- GOTO EXIT
- +37 ;261=Lymphoma and Leukemia with Major O.R. Procedure
- IF $DATA(ICD10PD(261))
- IF $DATA(ICD10OR(81))
- SET ICDRG=$SELECT(ICDMCC=2:820,ICDMCC=1:821,1:822)
- SET ICDFI=1
- GOTO EXIT
- +38 ;263=Lymphoma and Non-Acute Leukemia with Other O.R. Procedure
- IF $DATA(ICD10PD(263))
- IF $DATA(ICD10OR)
- IF '$DATA(ICD10OR(81))
- SET ICDRG=$SELECT(ICDMCC=2:823,ICDMCC=1:824,1:825)
- SET ICDFI=1
- GOTO EXIT
- +39 ;231=Acute Leukemia without Major O.R. Procedure
- IF $DATA(ICD10PD(231))
- IF '$DATA(ICD10OR(81))
- SET ICDRG=$SELECT(ICDMCC=2:834,ICDMCC=1:835,1:836)
- SET ICDFI=1
- GOTO EXIT
- +40 ;Lymphoma and Non-Acute Leukemia
- IF $DATA(ICD10PD(262))
- SET ICDRG=$SELECT(ICDMCC=2:840,ICDMCC=1:841,1:842)
- SET ICDFI=1
- GOTO EXIT
- +41 ;Radiotherapy
- IF $DATA(ICD10PD(181))
- SET ICDRG=849
- SET ICDFI=1
- GOTO EXIT
- +42 ;134=Myeloproliferative Disorders or Poorly Differentiated Neoplasms
- IF $DATA(ICD10PD(134))
- IF '$DATA(ICD10PD(35))
- Begin DoDot:1
- +43 IF $DATA(ICD10OR(81))
- SET ICDRG=$SELECT(ICDMCC=2:826,ICDMCC=1:827,1:828)
- SET ICDFI=1
- QUIT
- +44 IF $DATA(ICD10OR)
- SET ICDRG=$SELECT(ICDMCC>0:829,1:830)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +45 ;Other O.R. Procedures for Injuries
- IF $DATA(ICD10OR(111))
- SET ICDRG=$SELECT(ICDMCC=2:907,ICDMCC=1:908,1:909)
- SET ICDFI=1
- GOTO EXIT
- +46 if ICDFI
- GOTO EXIT
- +47 ;134=Myeloproliferative Disorders or Poorly Differentiated Neoplasms 35=Chemotherapy Implant
- IF ICDMDC=17
- IF $DATA(ICD10PD(35))
- Begin DoDot:1
- +48 ;15=SDX Acute Leukemia 56=High Dose Chemo Agent
- IF $DATA(ICD10SD(15))
- IF ICDMCC=2
- SET ICDRG=837
- SET ICDFI=1
- QUIT
- +49 IF $DATA(ICD10SD(15))
- IF '$DATA(ICD10OR(56))
- SET ICDRGT=$SELECT(ICDMCC=2:837,ICDMCC=1:838,ICDMCC=0:839,1:0)
- IF ICDRGT>0
- SET ICDRG=ICDRGT
- SET ICDFI=1
- QUIT
- +50 IF '$DATA(ICD10SD(15))
- IF $DATA(ICD10OR(56))
- IF ICDMCC=2
- SET ICDRG=837
- SET ICDFI=1
- QUIT
- +51 IF '$DATA(ICD10SD(15))
- IF $DATA(ICD10OR(56))
- IF ICDMCC'=2
- SET ICDRG=838
- SET ICDFI=1
- QUIT
- End DoDot:1
- +52 if ICDFI
- GOTO EXIT
- +53 ;288=Other Myeloproliferative Disorders or Poorly Differentiated Neoplasm Diagnoses
- IF $DATA(ICD10PD(288))
- SET ICDRG=$SELECT(ICDMCC=2:843,ICDMCC=1:844,1:845)
- SET ICDFI=1
- GOTO EXIT
- +54 ;240=Chemotherapy without Acute Leukemia as Secondary Diagnosis
- IF $DATA(ICD10PD(240))
- SET ICDRG=$SELECT(ICDMCC=2:846,ICDMCC=1:847,1:848)
- SET ICDFI=1
- GOTO EXIT
- +55 ;82=infectious & Parasitic Diseases, Systemic or Unspecified Sites
- IF ICDMDC=18
- IF $DATA(ICD10OR("O"))
- Begin DoDot:1
- +56 SET ICDX=$$ICDXEXPT^ICDRGAPI(ICDDX(1),"^K68.11^N98.0^T80.22XA^T80.29XA^T81.4XXA^T88.0XXA^")
- +57 IF ICDX=0
- SET ICDRG=$SELECT(ICDMCC=2:853,ICDMCC=1:854,1:855)
- SET ICDFI=1
- QUIT
- +58 IF ICDX
- SET ICDRG=$SELECT(ICDMCC=2:856,ICDMCC=1:857,1:858)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +59 IF ICDMDC=18
- IF '$DATA(ICD10OR("O"))
- Begin DoDot:1
- +60 SET ICDX=$$ICDXEXPT^ICDRGAPI(ICDDX(1),"^K68.11^T81.4XXA^")
- +61 IF ICDX
- SET ICDRG=$SELECT(ICDMCC=2:862,1:863)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +62 if ICDFI
- GOTO EXIT
- +63 ;I $D(ICD10PD(175)),$D(ICD10OR("O")) S ICDRG=$S(ICDMCC=2:856,ICDMCC=1:857,1:858),ICDFI=1 G EXIT ;175=Postoperative or Post-Traumatic Infections with O.R. Procedure
- +64 ;190=Septicemia or Severe Sepsis "W"=Severe Sepsis
- IF $DATA(ICD10PD(190))!($DATA(ICD10PD("W")))
- Begin DoDot:1
- +65 IF $DATA(ICD10OR(225))
- SET ICDRG=870
- SET ICDFI=1
- QUIT
- +66 SET ICDRG=$SELECT(ICDMCC=2:871,1:872)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +67 if ICDFI
- GOTO EXIT
- +68 ;Mental Illness
- IF ICDMDC=19
- IF $DATA(ICD10OR("O"))
- SET ICDRG=876
- SET ICDFI=1
- GOTO EXIT
- +69 IF ICDMDC=20
- Begin DoDot:1
- +70 ;Left against medical advice (AMA)
- IF ICDDMS=1
- SET ICDRG=894
- SET ICDFI=1
- QUIT
- +71 ;270=MDC 20 Alcohol/Drug Use & Alcohol/Drug Induced Organic Mental Disorders 132=Rehabilitation Therapy
- IF $DATA(ICD10PD(270))
- IF $DATA(ICD10OR(132))
- SET ICDRG=895
- SET ICDFI=1
- QUIT
- +72 ;132=Rehabilitation Therapy
- IF $DATA(ICD10PD(270))
- IF '$DATA(ICD10OR(132))
- IF '$DATA(ICD10OR("x"))
- SET ICDRG=$SELECT(ICDMCC=2:896,1:897)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +73 if ICDFI
- GOTO EXIT
- +74 ;Wound Debridements for Injuries
- IF $DATA(ICD10OR(166))
- IF $DATA(ICD10OR("O"))
- SET ICDRG=$SELECT(ICDMCC=2:901,ICDMCC=1:902,1:903)
- SET ICDFI=1
- GOTO EXIT
- +75 ;139=Skin Grafts for Injuries
- IF ICDMDC=21
- IF $DATA(ICD10OR(139))
- SET ICDRG=$SELECT(ICDMCC>0:904,1:905)
- SET ICDFI=1
- GOTO EXIT
- +76 IF ICDMDC=21
- IF $DATA(ICD10OR(52))
- SET ICDRG=906
- SET ICDFI=1
- GOTO EXIT
- +77 ;42=Complications of Treatment
- IF $DATA(ICD10PD(42))
- SET ICDRG=$SELECT(ICDMCC=2:919,ICDMCC=1:920,1:921)
- SET ICDFI=1
- GOTO EXIT
- +78 ;*=Extensive Burns or b=Full Thickness Burns with 225=MV 96+Hours k=Skin Graft
- IF $DATA(ICD10PD("*"))!($DATA(ICD10PD("b"))&($DATA(ICD10OR(225))))
- SET ICDRG=$SELECT($DATA(ICD10OR("k")):927,1:933)
- SET ICDFI=1
- GOTO EXIT
- +79 ;Full Thickness Burns
- IF $DATA(ICD10PD("b"))
- Begin DoDot:1
- +80 ;k=Skin Graft j=Inhalation Injury
- IF $DATA(ICD10OR("k"))!($DATA(ICD10SD("j")))
- SET ICDRG=$SELECT(ICDMCC>0:928,1:929)
- SET ICDFI=1
- QUIT
- +81 SET ICDRG=934
- SET ICDFI=1
- QUIT
- End DoDot:1
- +82 if ICDFI
- GOTO EXIT
- +83 ;141=Non-extensive Burns
- IF ICDMDC=22
- IF $DATA(ICD10PD(141))
- SET ICDRG=935
- SET ICDFI=1
- GOTO EXIT
- +84 ;O.R. Procedures with 119=Diagnosis of Other Contact with Health Services
- IF ICDMDC=23
- IF $DATA(ICD10OR("O"))
- IF $DATA(ICD10PD(119))
- SET ICDRG=$SELECT(ICDMCC=2:939,ICDMCC=1:940,1:941)
- SET ICDFI=1
- GOTO EXIT
- +85 IF ICDMDC=23
- Begin DoDot:1
- +86 ;131=Rehabilitation
- IF $DATA(ICD10OR(131))
- SET ICDRG=$SELECT(ICDMCC>0:945,1:946)
- SET ICDFI=1
- +87 IF $DATA(ICD10PD(299))
- SET ICDRG=$SELECT(ICDMCC>0:947,1:948)
- SET ICDFI=1
- +88 IF $DATA(ICD10PD(20))
- SET ICDRG=$SELECT(ICDMCC>0:949,1:950)
- SET ICDFI=1
- End DoDot:1
- EXIT ;
- +1 IF $DATA(ICD10OR("y"))
- Begin DoDot:1
- +2 IF $DATA(ICD10OR)
- IF ICDREL=0
- SET ICDRG=$SELECT(ICDMCC=2:984,ICDMCC=1:985,1:986)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +3 IF $DATA(ICD10OR("z"))
- Begin DoDot:1
- +4 IF $DATA(ICD10OR)
- IF ICDREL=0
- SET ICDRG=$SELECT(ICDMCC=2:987,ICDMCC=1:988,1:989)
- SET ICDFI=1
- QUIT
- End DoDot:1
- +5 IF ICDFI
- SET ICDFOUND=1
- +6 QUIT
