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 Dec 13, 2024@02:25:27 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
