- ONCOPRT1 ;HINES OIFO/RVD - OncoTrax Reports ICD ;05/14/12
- ;;2.2;ONCOLOGY;**1,7,10,13,14,17,18**;Jul 31, 2013;Build 5
- ;This routine invokes Integration Agreement #3151 and #3990.
- ;P17 ICD-10 updates
- ;P18 remove D23.9, D35.00. D35.01. D35.02 add D72.11 AND N85.02
- ICD ;check for particular ICD code.
- I SORT="[ONC DISEASE INDEX CASEFINDING]" D
- .S DIS(1)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>139.99)&(CODE<208.93)"
- .S DIS(2)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>208.99)&(CODE<209.30)"
- .S DIS(3)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=209.30"
- .S DIS(4)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>209.30)&(CODE<209.37)"
- .S DIS(5)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>209.69)&(CODE<209.80)"
- .S DIS(6)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>224.99)&(CODE<226)"
- .S DIS(7)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=227.3"
- .S DIS(8)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=227.4"
- .S DIS(9)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=227.9"
- .S DIS(10)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=228.02"
- .S DIS(11)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=228.1"
- .S DIS(12)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>229.99)&(CODE<235)"
- .S DIS(13)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""236.0"""
- .S DIS(14)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>236.99)&(CODE<238)"
- .S DIS(15)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.4"
- .S DIS(16)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.6"
- .S DIS(17)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.7"
- .S DIS(18)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.71"
- .S DIS(19)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.72"
- .S DIS(20)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.73"
- .S DIS(21)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.74"
- .S DIS(22)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.75"
- .S DIS(23)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.76"
- .S DIS(24)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.77"
- .S DIS(25)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.79"
- .S DIS(26)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=239.6"
- .S DIS(27)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=239.7"
- .S DIS(28)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>239.80)&(CODE<239.90)"
- .S DIS(29)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.2"
- .S DIS(30)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.3"
- .S DIS(31)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=288.3"
- .S DIS(32)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.06"
- .S DIS(33)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.16"
- .S DIS(34)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.76"
- .S DIS(35)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")[""V10"""
- .S DIS(36)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V12.41"""
- .S DIS(37)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>258.01)&(CODE<258.04)"
- .S DIS(38)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=338.3"
- .S DIS(39)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=511.81"
- .S DIS(40)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=789.51"
- .S DIS(41)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""042."""
- .S DIS(42)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""079.4"""
- .S DIS(43)="S CODE=+$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>79.49)&(CODE<79.60)"
- .S DIS(44)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>209.9)&(CODE<230)"
- .S DIS(45)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>234.9)&(CODE<236.7)"
- .S DIS(46)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>237.9)&(CODE<240)"
- .S DIS(47)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=253.6"
- .S DIS(48)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=259.2"
- .S DIS(49)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""273.0"""
- .S DIS(50)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.1"
- .S DIS(51)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.9"
- .S DIS(52)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=275.42"
- .S DIS(53)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=277.88"
- .S DIS(54)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""279.00"""
- .S DIS(55)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>279.01)&(CODE<279.07)"
- .S DIS(56)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""279.10"""
- .S DIS(57)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=279.12"
- .S DIS(58)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=279.13"
- .S DIS(59)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>279.1)&(CODE<280)"
- .S DIS(60)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=284.81"
- .S DIS(61)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=284.89"
- .S DIS(62)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=285.22"
- .S DIS(63)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=285.3"
- .S DIS(64)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=288.03"
- .S DIS(65)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=289.83"
- .S DIS(66)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=323.81"
- .S DIS(67)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=379.59"
- .S DIS(68)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=528.01"
- .S DIS(69)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=686.01"
- .S DIS(70)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=695.89"
- .S DIS(71)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=701.2"
- .S DIS(72)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=710.3"
- .S DIS(73)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=710.4"
- .S DIS(74)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=785.6"
- .S DIS(75)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=790.93"
- .S DIS(76)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.8"
- .S DIS(77)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.81"
- .S DIS(78)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.82"
- .S DIS(79)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.89"
- .S DIS(80)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=999.31"
- .S DIS(81)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=999.81"
- .S DIS(82)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""E879.2"""
- .S DIS(83)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""E930.7"""
- .S DIS(84)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""E933.1"""
- .S DIS(85)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V07.3"""
- .S DIS(86)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V07.8"""
- .S DIS(87)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V12.72"""
- .S DIS(88)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V15.3"""
- .S DIS(89)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V42.81"""
- .S DIS(90)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V42.82"""
- .S DIS(91)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V51.0"""
- .S DIS(92)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V52.4"""
- .S DIS(93)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V54.2"""
- .S DIS(94)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.0"""
- .S DIS(95)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.1"""
- .S DIS(96)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.11"""
- .S DIS(97)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.12"""
- .S DIS(98)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.42"""
- .S DIS(99)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V66.1"""
- .S DIS(100)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V66.2"""
- .S DIS(101)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V67.1"""
- .S DIS(102)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V67.2"""
- .S DIS(103)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")[""V76"""
- .S DIS(104)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")[""V78"""
- .S DIS(105)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.71"""
- .S DIS(106)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.79"""
- .S DIS(107)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.89"""
- .S DIS(108)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.9"""
- .S DIS(109)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.01"""
- .S DIS(110)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.02"""
- .S DIS(111)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.03"""
- .S DIS(112)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.04"""
- .S DIS(113)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.09"""
- .S DIS(114)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.81"""
- .S DIS(115)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V86.0"""
- .S DIS(116)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V86.1"""
- .S DIS(117)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V87.41"""
- .S DIS(118)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=259.8"
- .S DIS(119)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=624.01"
- .;ICD10 Search Logic
- .S DIS(120)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C90."")!($E(CODE,1,4)=""C92."")!($E(CODE,1,4)=""C93."")!($E(CODE,1,4)=""C94."")"
- .S DIS(121)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C0"")!($E(CODE,1,4)=""C43."")!($E(CODE,1,4)=""C4A."")"
- .S DIS(122)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C45."")!($E(CODE,1,4)=""C48."")"
- .S DIS(123)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.00"")!($E(CODE,1,6)=""C44.09"")"
- .S DIS(124)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.20"")!($E(CODE,1,6)=""C44.29"")"
- .S DIS(125)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.30"")!($E(CODE,1,6)=""C44.39"")"
- .S DIS(126)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.40"")!($E(CODE,1,6)=""C44.49"")"
- .S DIS(127)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.60"")!($E(CODE,1,6)=""C44.69"")"
- .S DIS(128)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.70"")!($E(CODE,1,6)=""C44.79"")"
- .S DIS(129)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.80"")!($E(CODE,1,6)=""C44.89"")"
- .S DIS(130)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.90"")!($E(CODE,1,6)=""C44.99"")"
- .S DIS(131)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""D18.02"")!(CODE=""D35.2"")!(CODE=""D35.4"")!(CODE=""D45."")!(CODE=""D47.02"")!(CODE=""D35.3""))"
- .S DIS(132)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""D47.1"")!(CODE=""D47.3"")!(CODE=""D47.4"")!(CODE=""47.9"")!(CODE=""D49.6"")!(CODE=""D49.7""))"
- .S DIS(133)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""D47.02"")!(CODE=""D47.Z"")!(CODE=""D47.Z1""))"
- .S DIS(134)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""D0"")"
- .S DIS(135)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE)=""D""),(($E(CODE,2,7)>41.9999)&($E(CODE,2,7)<43.9999))"
- .S DIS(136)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE)=""D""),(($E(CODE,2,3)=45)!($E(CODE,2,3)=46))"
- .S DIS(137)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I (CODE=""D47.Z9"")"
- .S DIS(138)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE)=""D""),(($E(CODE,2,7)>31.9999)&($E(CODE,2,7)<33.9999))"
- .S DIS(139)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""R85.614"")!(CODE=""R87.614"")!(CODE=""R87.624""))"
- .S DIS(140)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C1"")!($E(CODE,1,2)=""C2"")!($E(CODE,1,2)=""C3"")"
- .S DIS(141)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C8"")"
- .S DIS(142)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C7"")"
- .S DIS(143)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C6"")"
- .S DIS(144)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C5"")"
- .S DIS(145)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C46."")!($E(CODE,1,4)=""C47."")"
- .S DIS(146)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C41."")!($E(CODE,1,4)=""C42."")"
- .S DIS(147)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.10"")!($E(CODE,1,6)=""C44.19"")"
- .S DIS(148)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.13"")"
- .S DIS(149)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""D72.11"")"
- .S DIS(150)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""N85.02"")"
- .S DIS(151)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""D35.3"")!($E(CODE,1,5)=""R90.0"")"
- .;S DIS(152)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""Z85.5"")!($E(CODE,1,5)=""Z85.6"")"
- .;S DIS(153)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""Z85.7"")!($E(CODE,1,5)=""Z85.8"")"
- .;S DIS(154)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""Z85.9"")!($E(CODE,1,5)=""Z86.0"")"
- .;S DIS(155)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""Z86.00"")!($E(CODE,1,6)=""Z86.01"")"
- .S DIS(156)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,7)=""K31.A22"")"
- .S DIS(157)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C40"")"
- .S DIS(158)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C49"")"
- .S DIS(159)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C91"")"
- .S DIS(160)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C95"")"
- .S DIS(161)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C96"")"
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOPRT1 15053 printed Feb 18, 2025@23:51:56 Page 2
- ONCOPRT1 ;HINES OIFO/RVD - OncoTrax Reports ICD ;05/14/12
- +1 ;;2.2;ONCOLOGY;**1,7,10,13,14,17,18**;Jul 31, 2013;Build 5
- +2 ;This routine invokes Integration Agreement #3151 and #3990.
- +3 ;P17 ICD-10 updates
- +4 ;P18 remove D23.9, D35.00. D35.01. D35.02 add D72.11 AND N85.02
- ICD ;check for particular ICD code.
- +1 IF SORT="[ONC DISEASE INDEX CASEFINDING]"
- Begin DoDot:1
- +2 SET DIS(1)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>139.99)&(CODE<208.93)"
- +3 SET DIS(2)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>208.99)&(CODE<209.30)"
- +4 SET DIS(3)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=209.30"
- +5 SET DIS(4)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>209.30)&(CODE<209.37)"
- +6 SET DIS(5)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>209.69)&(CODE<209.80)"
- +7 SET DIS(6)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>224.99)&(CODE<226)"
- +8 SET DIS(7)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=227.3"
- +9 SET DIS(8)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=227.4"
- +10 SET DIS(9)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=227.9"
- +11 SET DIS(10)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=228.02"
- +12 SET DIS(11)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=228.1"
- +13 SET DIS(12)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>229.99)&(CODE<235)"
- +14 SET DIS(13)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""236.0"""
- +15 SET DIS(14)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>236.99)&(CODE<238)"
- +16 SET DIS(15)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.4"
- +17 SET DIS(16)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.6"
- +18 SET DIS(17)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.7"
- +19 SET DIS(18)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.71"
- +20 SET DIS(19)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.72"
- +21 SET DIS(20)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.73"
- +22 SET DIS(21)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.74"
- +23 SET DIS(22)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.75"
- +24 SET DIS(23)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.76"
- +25 SET DIS(24)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.77"
- +26 SET DIS(25)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=238.79"
- +27 SET DIS(26)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=239.6"
- +28 SET DIS(27)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=239.7"
- +29 SET DIS(28)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>239.80)&(CODE<239.90)"
- +30 SET DIS(29)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.2"
- +31 SET DIS(30)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.3"
- +32 SET DIS(31)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=288.3"
- +33 SET DIS(32)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.06"
- +34 SET DIS(33)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.16"
- +35 SET DIS(34)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.76"
- +36 SET DIS(35)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")[""V10"""
- +37 SET DIS(36)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V12.41"""
- +38 SET DIS(37)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>258.01)&(CODE<258.04)"
- +39 SET DIS(38)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=338.3"
- +40 SET DIS(39)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=511.81"
- +41 SET DIS(40)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=789.51"
- +42 SET DIS(41)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""042."""
- +43 SET DIS(42)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""079.4"""
- +44 SET DIS(43)="S CODE=+$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>79.49)&(CODE<79.60)"
- +45 SET DIS(44)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>209.9)&(CODE<230)"
- +46 SET DIS(45)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>234.9)&(CODE<236.7)"
- +47 SET DIS(46)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>237.9)&(CODE<240)"
- +48 SET DIS(47)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=253.6"
- +49 SET DIS(48)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=259.2"
- +50 SET DIS(49)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""273.0"""
- +51 SET DIS(50)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.1"
- +52 SET DIS(51)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=273.9"
- +53 SET DIS(52)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=275.42"
- +54 SET DIS(53)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=277.88"
- +55 SET DIS(54)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""279.00"""
- +56 SET DIS(55)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>279.01)&(CODE<279.07)"
- +57 SET DIS(56)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""279.10"""
- +58 SET DIS(57)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=279.12"
- +59 SET DIS(58)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=279.13"
- +60 SET DIS(59)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"") I (CODE>279.1)&(CODE<280)"
- +61 SET DIS(60)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=284.81"
- +62 SET DIS(61)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=284.89"
- +63 SET DIS(62)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=285.22"
- +64 SET DIS(63)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=285.3"
- +65 SET DIS(64)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=288.03"
- +66 SET DIS(65)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=289.83"
- +67 SET DIS(66)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=323.81"
- +68 SET DIS(67)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=379.59"
- +69 SET DIS(68)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=528.01"
- +70 SET DIS(69)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=686.01"
- +71 SET DIS(70)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=695.89"
- +72 SET DIS(71)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=701.2"
- +73 SET DIS(72)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=710.3"
- +74 SET DIS(73)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=710.4"
- +75 SET DIS(74)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=785.6"
- +76 SET DIS(75)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=790.93"
- +77 SET DIS(76)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.8"
- +78 SET DIS(77)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.81"
- +79 SET DIS(78)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.82"
- +80 SET DIS(79)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=795.89"
- +81 SET DIS(80)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=999.31"
- +82 SET DIS(81)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=999.81"
- +83 SET DIS(82)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""E879.2"""
- +84 SET DIS(83)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""E930.7"""
- +85 SET DIS(84)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""E933.1"""
- +86 SET DIS(85)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V07.3"""
- +87 SET DIS(86)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V07.8"""
- +88 SET DIS(87)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V12.72"""
- +89 SET DIS(88)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V15.3"""
- +90 SET DIS(89)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V42.81"""
- +91 SET DIS(90)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V42.82"""
- +92 SET DIS(91)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V51.0"""
- +93 SET DIS(92)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V52.4"""
- +94 SET DIS(93)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V54.2"""
- +95 SET DIS(94)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.0"""
- +96 SET DIS(95)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.1"""
- +97 SET DIS(96)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.11"""
- +98 SET DIS(97)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.12"""
- +99 SET DIS(98)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V58.42"""
- +100 SET DIS(99)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V66.1"""
- +101 SET DIS(100)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V66.2"""
- +102 SET DIS(101)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V67.1"""
- +103 SET DIS(102)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V67.2"""
- +104 SET DIS(103)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")[""V76"""
- +105 SET DIS(104)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")[""V78"""
- +106 SET DIS(105)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.71"""
- +107 SET DIS(106)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.79"""
- +108 SET DIS(107)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.89"""
- +109 SET DIS(108)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V82.9"""
- +110 SET DIS(109)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.01"""
- +111 SET DIS(110)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.02"""
- +112 SET DIS(111)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.03"""
- +113 SET DIS(112)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.04"""
- +114 SET DIS(113)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.09"""
- +115 SET DIS(114)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V84.81"""
- +116 SET DIS(115)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V86.0"""
- +117 SET DIS(116)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V86.1"""
- +118 SET DIS(117)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=""V87.41"""
- +119 SET DIS(118)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=259.8"
- +120 SET DIS(119)="I $$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01,""I"")=624.01"
- +121 ;ICD10 Search Logic
- +122 SET DIS(120)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C90."")!($E(CODE,1,4)=""C92."")!($E(CODE,1,4)=""C93."")!($E(CODE,1,4)=""C94."")"
- +123 SET DIS(121)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C0"")!($E(CODE,1,4)=""C43."")!($E(CODE,1,4)=""C4A."")"
- +124 SET DIS(122)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C45."")!($E(CODE,1,4)=""C48."")"
- +125 SET DIS(123)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.00"")!($E(CODE,1,6)=""C44.09"")"
- +126 SET DIS(124)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.20"")!($E(CODE,1,6)=""C44.29"")"
- +127 SET DIS(125)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.30"")!($E(CODE,1,6)=""C44.39"")"
- +128 SET DIS(126)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.40"")!($E(CODE,1,6)=""C44.49"")"
- +129 SET DIS(127)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.60"")!($E(CODE,1,6)=""C44.69"")"
- +130 SET DIS(128)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.70"")!($E(CODE,1,6)=""C44.79"")"
- +131 SET DIS(129)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.80"")!($E(CODE,1,6)=""C44.89"")"
- +132 SET DIS(130)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.90"")!($E(CODE,1,6)=""C44.99"")"
- +133 SET DIS(131)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""D18.02"")!(CODE=""D35.2"")!(CODE=""D35.4"")!(CODE=""D45."")!(CODE=""D47.02"")!(CODE=""D35.3""))"
- +134 SET DIS(132)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""D47.1"")!(CODE=""D47.3"")!(CODE=""D47.4"")!(CODE=""47.9"")!(CODE=""D49.6"")!(CODE=""D49.7""))"
- +135 SET DIS(133)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""D47.02"")!(CODE=""D47.Z"")!(CODE=""D47.Z1""))"
- +136 SET DIS(134)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""D0"")"
- +137 SET DIS(135)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE)=""D""),(($E(CODE,2,7)>41.9999)&($E(CODE,2,7)<43.9999))"
- +138 SET DIS(136)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE)=""D""),(($E(CODE,2,3)=45)!($E(CODE,2,3)=46))"
- +139 SET DIS(137)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I (CODE=""D47.Z9"")"
- +140 SET DIS(138)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE)=""D""),(($E(CODE,2,7)>31.9999)&($E(CODE,2,7)<33.9999))"
- +141 SET DIS(139)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ((CODE=""R85.614"")!(CODE=""R87.614"")!(CODE=""R87.624""))"
- +142 SET DIS(140)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C1"")!($E(CODE,1,2)=""C2"")!($E(CODE,1,2)=""C3"")"
- +143 SET DIS(141)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C8"")"
- +144 SET DIS(142)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C7"")"
- +145 SET DIS(143)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C6"")"
- +146 SET DIS(144)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,2)=""C5"")"
- +147 SET DIS(145)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C46."")!($E(CODE,1,4)=""C47."")"
- +148 SET DIS(146)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,4)=""C41."")!($E(CODE,1,4)=""C42."")"
- +149 SET DIS(147)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.10"")!($E(CODE,1,6)=""C44.19"")"
- +150 SET DIS(148)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""C44.13"")"
- +151 SET DIS(149)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""D72.11"")"
- +152 SET DIS(150)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""N85.02"")"
- +153 SET DIS(151)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""D35.3"")!($E(CODE,1,5)=""R90.0"")"
- +154 ;S DIS(152)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""Z85.5"")!($E(CODE,1,5)=""Z85.6"")"
- +155 ;S DIS(153)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""Z85.7"")!($E(CODE,1,5)=""Z85.8"")"
- +156 ;S DIS(154)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,5)=""Z85.9"")!($E(CODE,1,5)=""Z86.0"")"
- +157 ;S DIS(155)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,6)=""Z86.00"")!($E(CODE,1,6)=""Z86.01"")"
- +158 SET DIS(156)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,7)=""K31.A22"")"
- +159 SET DIS(157)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C40"")"
- +160 SET DIS(158)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C49"")"
- +161 SET DIS(159)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C91"")"
- +162 SET DIS(160)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C95"")"
- +163 SET DIS(161)="S CODE=$$GET1^DIQ(80,$P($G(^AUPNVPOV(D0,0)),U,1),.01) I ($E(CODE,1,3)=""C96"")"
- End DoDot:1
- +164 QUIT