ONCSCHME ;HINES OIFO/RTK - Schema derivation, related code continued ;04/27/18
;;2.2;ONCOLOGY;**10,13,17**;Jul 31, 2013;Build 6
;
; go through until hit is found, else return ONCSCMA=0
;
; SOFT TISSUE SCHEMAS CONTINUED
;
; NEW IN 2021, SCHEMA DISCRIMINATOR 2 CHECKS FIRST
I "C473^C475^C493^C494^C495"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) D I ONCSCMA'=0 Q
..I (ONCSDIS2=2)!(ONCSDIS2=8) S ONCSCMA="00421"
..I ONCSDIS2=1 S ONCSCMA="00410"
..I ONCSDIS2=9 S ONCSCMA="00450" D C459^ONCSCHM2
..Q
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9139))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701) D I ONCSCMA'=0 Q
..I (ONCSDIS2=2)!(ONCSDIS2=8) S ONCSCMA="00421"
..I ONCSDIS2=1 S ONCSCMA="00410"
..I ONCSDIS2=9 S ONCSCMA="00450" D C459^ONCSCHM2
..Q
;
;SOFT TISSUE ABDOMEN AND THORACIC: C151-C152,C154-C155,C159,C160-C220
; C239-C249,C260-C269,C339,C379,C600-C619,C630-C639 H8710-8714,8800-
; 8803,8810-8921,8932-8934,8940-8990,9000-9016,9030-9043,9045-9137
; 9141-9230,9240-9580,9582
; or C221 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8975,8981-8990
; 9000-9016,9030-9043,9045-9137,9141-9230,9240-9580,9582
; or C250-C259 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8970,8972-
; 8990,9000-9016,9030-9043,9045-9137,9141-9230,9240-9580,9582
; or C340-C349 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8971,8973-
; 8975,8981-8990,9000-9016,9030-9043,9045,9054-9137,9141-9230
; 9240-9580,9582
; or C473-C475,C493-C495 H8000-8803,8810-8921,8932-8934,8940-8990,9000-
; 9016,9030-9043,9045-9137,9141-9230,9240-9580,9582,9700-9701
; or C510-C519 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8990,9000-
; 9016,9030-9043,9045-9070,9072-9137,9141-9230,9240-9580,9582
; or C529 H8710-8714,8800-8803,8810-8921,8932,8934,8940-8975,8981-8990
; 9000-9016,9030-9043,9045-9070,9072-9105,9120-9137,9141-9230
; 9240-9580,9582
; or C530-C539 H8710-8714,8800-8803,8810-8921,8932,8934,8940-8975,8981-
; 8990,9000-9016,9030-9043,9045-9105,9120-9137,9141-9230,9240-9580,9582
; or C589 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8990,9000-9016
; 9030-9043,9045-9091,9110-9137,9141-9230,9240-9580,9582
; or C620-C629 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8990,9000-
; 9016,9030-9043,9045-9060,9062-9063,9072-9073,9082-9083,9086-9091
; 9102-9103,9110-9137,9141-9230,9240-9580,9582
I (ONCT3=151)!(ONCT3=152)!(ONCT3=154)!(ONCT3=155)!(ONCT3=155)!((ONCT3>158)&(ONCT3<221))!((ONCT3>238)&(ONCT3<250))!((ONCT3>259)&(ONCT3<270))!(ONCT3=339)!(ONCT3=379)!((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690)) D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I ONCTPCD="C221" D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8976))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I "C250^C251^C252^C253^C254^C255^C256^C257^C258^C259"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8971))!((HST14>8971)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8972))!((HST14>8972)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!(HST14=9045)!((HST14>9053)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I "C473^C474^C475^C493^C494^C495"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701) S ONCSCMA="00421"
I "C510^C511^C512^C513^C514^C515^C516^C517^C518^C519"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9071))!((HST14>9071)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I ONCTPCD="C529" D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!(HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9071))!((HST14>9071)&(HST14<9106))!((HST14>9119)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I "C530^C531^C532^C533^C534^C535^C536^C537^C538^C539"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8815))!((HST14>8815)&(HST14<8901))!((HST14>8901)&(HST14<8912))!((HST14>8912)&(HST14<8920)) S ONCSCMA="00421"
.I (HST14=8921)!(HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9106))!((HST14>9120)&(HST14<9133))!((HST14>9133)&(HST14<9138)) S ONCSCMA="00421"
.I ((HST14>9140)&(HST14<9180))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I ONCTPCD="C589" D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!(HST14=8932)!(HST14=8933)!(HST14=8934)!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9092))!((HST14>9109)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
I "C620^C621^C622^C623^C624^C625^C626^C627^C628^C629"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!(HST14=8932)!(HST14=8933)!(HST14=8934)!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00421"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9061))!(HST14=9062)!(HST14=9063)!(HST14=9072)!(HST14=9073)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!(HST14=9102)!(HST14=9103) S ONCSCMA="00421"
.I ((HST14>9109)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00421"
;
;SOFT TISSUE RARE (was SOFT TISSUE OTHER BEFORE NAACCR 2022):
; C000-C148,C150,C153,C158,C300-C329,C470,C490,C739,
; C750,C754-C759 H8804-8806,8910,8920,8930-8931,8991,9020,9044,9120,
; 9231,9581
; or C151-C152,C154-C155,C159,C160-C269,C339-C388,C471-C479,C491-C499,
; C500-C509,C529,C589-C689 H8804-8806,8930-8931,8991,9020,9044,9231,9581
; or C390,C398-C399,C420-C424 H8710-8714,8800-8934,8940-9137,9141-9582
; or C440,C442-C449 H8710-8714,8800-8934,8941-8981,8983-9137,9141-9582
; or C441 H8710-8714,8800-8934,8950-8975,8981-9137,9141-9582
; or C480-C488 H8804-8805,8991,9020,9044,9231,9581
; or C480 H8806,8930-8931
; or C481-C482,C488 H8806,8930-8931 SEX=1,3,4,5,9
; or C510-C519 H8804-8806,8930-8931,8991,9044,9231,9581
; or C530-C539 H8804,8806,8930-8931,8991,9020,9044,9231,9581
; or C569,C570 H8710-8714,8800-8805,8811-8814,8820-8821,8823-8824,8826-
; 8881,8891-8921,8932,8934,8940-8941,8951-8959,8963-8975,8981-8991,
; 9010-9045,9051,9053-9055,9061-9065,9072,9081-9084,9086,9101-9105,
; 9120-9137,9141-9582
; or C571-C579 H8710-8714,8800-8934,8940-9137,9141-9582
; or C690-C696,C698-C699 H8930-8931,8991,9020,9180,9231
; or C700-C721,C728-C729 H8710-8714,8800-8801,8803-8806,8811-8814,8820-
; 8842,8851-8881,8891-8898,8901-8934,8940-9063,9065,9072-9073,9081-
; 9083,9086-9091,9110,9121-9132,9135-9137,9141-9175,9181-9210,9221-9361
; 9363,9365-9381,9383-9384,9410,9412-9423,9431-9432,9444,9460,9472,9480
; 9491-9493,9502-9504,9506-9507,9509-9523,9531-9537,9539,9541-9582
; or C722,C724-C725,C751-C753 H8804-8806,8910,8920,8930-8931,8991,9020,
; 9044,9231,9581
; or C723 H8930-8931,8991,9020,9231
; or C740-C749,C761-C765,C767-C768,C770-C775,C778-C779,C809 H8710-8714,
; 8800-8934,8940-9137,9141-9582
; or C760 H8710-8714,8800-8934,8940,8950-9137,9141-9582
; or C760 H8941 DISCR1=0,1
I (ONCT3="000")!((ONCT3>0)&(ONCT3<149))!(ONCT3=150)!(ONCT3=153)!(ONCT3=158)!((ONCT3>299)&(ONCT3<330))!(ONCT3=470)!(ONCT3=490)!(ONCT3=739)!(ONCT3=750)!((ONCT3>753)&(ONCT3<760)) D I ONCSCMA'=0 Q
.I ((HST14>8803)&(HST14<8807))!(HST14=8910)!(HST14=8920)!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9120)!(HST14=9231)!(HST14=9581) S ONCSCMA="00450" D C459^ONCSCHM2
I (ONCT3=151)!(ONCT3=152)!(ONCT3=154)!(ONCT3=155)!(ONCT3=159)!((ONCT3>159)&(ONCT3<270))!((ONCT3>338)&(ONCT3<389))!((ONCT3>470)&(ONCT3<480))!((ONCT3>490)&(ONCT3<510))!(ONCT3=529)!((ONCT3>588)&(ONCT3<690)) D I ONCSCMA'=0 Q
.I ((HST14>8803)&(HST14<8807))!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9231)!(HST14=9581) S ONCSCMA="00450" D C459^ONCSCHM2
I "C390^C398^C399^C420^C421^C422^C423^C424"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I "C440^C442^C443^C444^C445^C446^C447^C448^C449"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I ONCTPCD="C441" D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8949)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I "C480^C481^C482^C483^C484^C485^C486^C487^C488"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8804)!(HST14=8805)!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9231)!(HST14=9581) S ONCSCMA="00450" D C459^ONCSCHM2
I ONCTPCD="C480" D I ONCSCMA'=0 Q
.I (HST14=8806)!(HST14=8930)!(HST14=8931) S ONCSCMA="00450" D C459^ONCSCHM2
I "C481^C482^C488"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8806)!(HST14=8930)!(HST14=8931) D
..I (ONCSSEX=1)!(ONCSSEX=3)!(ONCSSEX=4)!(ONCSSEX=5)!(ONCSSEX=9) S ONCSCMA="00450" D C459^ONCSCHM2
I "C510^C511^C512^C513^C514^C515^C516^C517^C518^C519"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8804)!(HST14=8805)!(HST14=8806)!(HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9904)!(HST14=9231)!(HST14=9581) S ONCSCMA="00450" D C459^ONCSCHM2
I "C530^C531^C532^C533^C534^C535^C536^C537^C538^C539"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8804)!(HST14=8806)!(HST14=8815)!(HST14=8901)!(HST14=8912)!(HST14=8920)!(HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9120)!(HST14=9133) S ONCSCMA="00450" D C459^ONCSCHM2
.I (HST14=9180)!(HST14=9222)!(HST14=9231)!(HST14=9581) S ONCSCMA="00450" D C459^ONCSCHM2
I "C569^C570"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8806))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8822))!((HST14>8822)&(HST14<8825)) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>8825)&(HST14<8882))!((HST14>8890)&(HST14<8922))!(HST14=8932)!(HST14=8934) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>8939)&(HST14<8942))!((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8992))!((HST14>9009)&(HST14<9046)) S ONCSCMA="00450" D C459^ONCSCHM2
.I (HST14=9051)!((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066)) S ONCSCMA="00450" D C459^ONCSCHM2
.I (HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086)!((HST14>9100)&(HST14<9106))!((HST14>9119)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I "C571^C572^C573^C574^C575^C576^C577^C578^C579"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I "C690^691^C692^C693^C694^C695^C696^C698^C699"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9180)!(HST14=9222)!(HST14=9231) S ONCSCMA="00450" D C459^ONCSCHM2
I ((ONCT3>699)&(ONCT3<722))!(ONCT3=728)!(ONCT3=729) D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8802))!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899)) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>8900)&(HST14<8935))!((HST14>8939)&(HST14<9064))!(HST14=9065)!((HST14>9071)&(HST14<9074))!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9120)&(HST14<9133)) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>9364)&(HST14<9382))!((HST14>9382)&(HST14<9385))!(HST14=9410)!((HST14>9411)&(HST14<9424)) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>9430)&(HST14<9433))!(HST14=9444)!(HST14=9460)!(HST14=9472)!(HST14=9480)!((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!(HST14=9506)!(HST14=9507)!((HST14>9508)&(HST14<9524)) S ONCSCMA="00450" D C459^ONCSCHM2
.I ((HST14>9530)&(HST14<9538))!(HST14=9539)!((HST14>9540)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I "C722^C724^C725^C751^C752^C753"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8804)!(HST14=8805)!(HST14=8806)!(HST14=8910)!(HST14=8920)!(HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9231)!(HST14=9581) S ONCSCMA="00450" D C459^ONCSCHM2
I ONCTPCD="C723" D I ONCSCMA'=0 Q
.I (HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9222)!(HST14=9231) S ONCSCMA="00450" D C459^ONCSCHM2
I ((ONCT3>739)&(ONCT3<750))!((ONCT3>760)&(ONCT3<766))!(ONCT3=767)!(ONCT3=768)!((ONCT3>769)&(ONCT3<776))!(ONCT3=778)!(ONCT3=779)!(ONCT3=809) D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00450" D C459^ONCSCHM2
I ONCTPCD="C760" D I ONCSCMA'=0 Q
.I HST14=8941 D
..I (ONCSDIS1=0)!(ONCSDIS1=1) S ONCSCMA="00450" D C459^ONCSCHM2
;
;SOFT TISSUE TRUNK & EXTREMITIES: C471-C472,C476,C478-C479,C491-C492,
; C496,C498-C499 H8000-8803,8810-8921,8932-8934,8940-8990,9000-9016,
; 9030-9043,9045-9137,9141-9230,9240-9580,9582,9700-9701
; or C500-C506,C508-C509 H8710-8714,8800-8803,8810-8921,8932-8934,
; 8940-8981,8990,9000-9016,9030-9043,9045-9137,9141-9230,
; 9240-9580,9582
;
I "C471^C472^C476^C478^C479^C491^C492^C496^C498^C499"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017)) S ONCSCMA="00410"
.I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701) S ONCSCMA="00410"
I "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8982)) S ONCSCMA="00410"
.I (HST14=8990)!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00410"
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHME 16528 printed Oct 16, 2024@18:28:41 Page 2
ONCSCHME ;HINES OIFO/RTK - Schema derivation, related code continued ;04/27/18
+1 ;;2.2;ONCOLOGY;**10,13,17**;Jul 31, 2013;Build 6
+2 ;
+3 ; go through until hit is found, else return ONCSCMA=0
+4 ;
+5 ; SOFT TISSUE SCHEMAS CONTINUED
+6 ;
+7 ; NEW IN 2021, SCHEMA DISCRIMINATOR 2 CHECKS FIRST
+8 IF "C473^C475^C493^C494^C495"[ONCTPCD
Begin DoDot:1
+9 IF ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
Begin DoDot:2
+10 IF (ONCSDIS2=2)!(ONCSDIS2=8)
SET ONCSCMA="00421"
+11 IF ONCSDIS2=1
SET ONCSCMA="00410"
+12 IF ONCSDIS2=9
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+13 QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+14 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9139))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+15 IF (ONCSDIS2=2)!(ONCSDIS2=8)
SET ONCSCMA="00421"
+16 IF ONCSDIS2=1
SET ONCSCMA="00410"
+17 IF ONCSDIS2=9
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+18 QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
End DoDot:1
IF ONCSCMA'=0
QUIT
+19 ;
+20 ;SOFT TISSUE ABDOMEN AND THORACIC: C151-C152,C154-C155,C159,C160-C220
+21 ; C239-C249,C260-C269,C339,C379,C600-C619,C630-C639 H8710-8714,8800-
+22 ; 8803,8810-8921,8932-8934,8940-8990,9000-9016,9030-9043,9045-9137
+23 ; 9141-9230,9240-9580,9582
+24 ; or C221 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8975,8981-8990
+25 ; 9000-9016,9030-9043,9045-9137,9141-9230,9240-9580,9582
+26 ; or C250-C259 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8970,8972-
+27 ; 8990,9000-9016,9030-9043,9045-9137,9141-9230,9240-9580,9582
+28 ; or C340-C349 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8971,8973-
+29 ; 8975,8981-8990,9000-9016,9030-9043,9045,9054-9137,9141-9230
+30 ; 9240-9580,9582
+31 ; or C473-C475,C493-C495 H8000-8803,8810-8921,8932-8934,8940-8990,9000-
+32 ; 9016,9030-9043,9045-9137,9141-9230,9240-9580,9582,9700-9701
+33 ; or C510-C519 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8990,9000-
+34 ; 9016,9030-9043,9045-9070,9072-9137,9141-9230,9240-9580,9582
+35 ; or C529 H8710-8714,8800-8803,8810-8921,8932,8934,8940-8975,8981-8990
+36 ; 9000-9016,9030-9043,9045-9070,9072-9105,9120-9137,9141-9230
+37 ; 9240-9580,9582
+38 ; or C530-C539 H8710-8714,8800-8803,8810-8921,8932,8934,8940-8975,8981-
+39 ; 8990,9000-9016,9030-9043,9045-9105,9120-9137,9141-9230,9240-9580,9582
+40 ; or C589 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8990,9000-9016
+41 ; 9030-9043,9045-9091,9110-9137,9141-9230,9240-9580,9582
+42 ; or C620-C629 H8710-8714,8800-8803,8810-8921,8932-8934,8940-8990,9000-
+43 ; 9016,9030-9043,9045-9060,9062-9063,9072-9073,9082-9083,9086-9091
+44 ; 9102-9103,9110-9137,9141-9230,9240-9580,9582
+45 IF (ONCT3=151)!(ONCT3=152)!(ONCT3=154)!(ONCT3=155)!(ONCT3=155)!((ONCT3>158)&(ONCT3<221))!((ONCT3>238)&(ONCT3<250))!((ONCT3>259)&(ONCT3<270))!(ONCT3=339)!(ONCT3=379)!((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690))
Begin DoDot:1
+46 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+47 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+48 IF ONCTPCD="C221"
Begin DoDot:1
+49 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8976))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+50 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+51 IF "C250^C251^C252^C253^C254^C255^C256^C257^C258^C259"[ONCTPCD
Begin DoDot:1
+52 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8971))!((HST14>8971)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+53 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+54 IF "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349"[ONCTPCD
Begin DoDot:1
+55 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8972))!((HST14>8972)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+56 IF ((HST14>9029)&(HST14<9044))!(HST14=9045)!((HST14>9053)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+57 IF "C473^C474^C475^C493^C494^C495"[ONCTPCD
Begin DoDot:1
+58 IF ((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+59 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+60 IF "C510^C511^C512^C513^C514^C515^C516^C517^C518^C519"[ONCTPCD
Begin DoDot:1
+61 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+62 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9071))!((HST14>9071)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+63 IF ONCTPCD="C529"
Begin DoDot:1
+64 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!(HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+65 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9071))!((HST14>9071)&(HST14<9106))!((HST14>9119)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+66 IF "C530^C531^C532^C533^C534^C535^C536^C537^C538^C539"[ONCTPCD
Begin DoDot:1
+67 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8815))!((HST14>8815)&(HST14<8901))!((HST14>8901)&(HST14<8912))!((HST14>8912)&(HST14<8920))
SET ONCSCMA="00421"
+68 IF (HST14=8921)!(HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+69 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9106))!((HST14>9120)&(HST14<9133))!((HST14>9133)&(HST14<9138))
SET ONCSCMA="00421"
+70 IF ((HST14>9140)&(HST14<9180))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+71 IF ONCTPCD="C589"
Begin DoDot:1
+72 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!(HST14=8932)!(HST14=8933)!(HST14=8934)!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+73 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9092))!((HST14>9109)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+74 IF "C620^C621^C622^C623^C624^C625^C626^C627^C628^C629"[ONCTPCD
Begin DoDot:1
+75 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!(HST14=8932)!(HST14=8933)!(HST14=8934)!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00421"
+76 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9061))!(HST14=9062)!(HST14=9063)!(HST14=9072)!(HST14=9073)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!(HST14=9102)!(HST14=9103)
SET ONCSCMA="00421"
+77 IF ((HST14>9109)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00421"
End DoDot:1
IF ONCSCMA'=0
QUIT
+78 ;
+79 ;SOFT TISSUE RARE (was SOFT TISSUE OTHER BEFORE NAACCR 2022):
+80 ; C000-C148,C150,C153,C158,C300-C329,C470,C490,C739,
+81 ; C750,C754-C759 H8804-8806,8910,8920,8930-8931,8991,9020,9044,9120,
+82 ; 9231,9581
+83 ; or C151-C152,C154-C155,C159,C160-C269,C339-C388,C471-C479,C491-C499,
+84 ; C500-C509,C529,C589-C689 H8804-8806,8930-8931,8991,9020,9044,9231,9581
+85 ; or C390,C398-C399,C420-C424 H8710-8714,8800-8934,8940-9137,9141-9582
+86 ; or C440,C442-C449 H8710-8714,8800-8934,8941-8981,8983-9137,9141-9582
+87 ; or C441 H8710-8714,8800-8934,8950-8975,8981-9137,9141-9582
+88 ; or C480-C488 H8804-8805,8991,9020,9044,9231,9581
+89 ; or C480 H8806,8930-8931
+90 ; or C481-C482,C488 H8806,8930-8931 SEX=1,3,4,5,9
+91 ; or C510-C519 H8804-8806,8930-8931,8991,9044,9231,9581
+92 ; or C530-C539 H8804,8806,8930-8931,8991,9020,9044,9231,9581
+93 ; or C569,C570 H8710-8714,8800-8805,8811-8814,8820-8821,8823-8824,8826-
+94 ; 8881,8891-8921,8932,8934,8940-8941,8951-8959,8963-8975,8981-8991,
+95 ; 9010-9045,9051,9053-9055,9061-9065,9072,9081-9084,9086,9101-9105,
+96 ; 9120-9137,9141-9582
+97 ; or C571-C579 H8710-8714,8800-8934,8940-9137,9141-9582
+98 ; or C690-C696,C698-C699 H8930-8931,8991,9020,9180,9231
+99 ; or C700-C721,C728-C729 H8710-8714,8800-8801,8803-8806,8811-8814,8820-
+100 ; 8842,8851-8881,8891-8898,8901-8934,8940-9063,9065,9072-9073,9081-
+101 ; 9083,9086-9091,9110,9121-9132,9135-9137,9141-9175,9181-9210,9221-9361
+102 ; 9363,9365-9381,9383-9384,9410,9412-9423,9431-9432,9444,9460,9472,9480
+103 ; 9491-9493,9502-9504,9506-9507,9509-9523,9531-9537,9539,9541-9582
+104 ; or C722,C724-C725,C751-C753 H8804-8806,8910,8920,8930-8931,8991,9020,
+105 ; 9044,9231,9581
+106 ; or C723 H8930-8931,8991,9020,9231
+107 ; or C740-C749,C761-C765,C767-C768,C770-C775,C778-C779,C809 H8710-8714,
+108 ; 8800-8934,8940-9137,9141-9582
+109 ; or C760 H8710-8714,8800-8934,8940,8950-9137,9141-9582
+110 ; or C760 H8941 DISCR1=0,1
+111 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<149))!(ONCT3=150)!(ONCT3=153)!(ONCT3=158)!((ONCT3>299)&(ONCT3<330))!(ONCT3=470)!(ONCT3=490)!(ONCT3=739)!(ONCT3=750)!((ONCT3>753)&(ONCT3<760))
Begin DoDot:1
+112 IF ((HST14>8803)&(HST14<8807))!(HST14=8910)!(HST14=8920)!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9120)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+113 IF (ONCT3=151)!(ONCT3=152)!(ONCT3=154)!(ONCT3=155)!(ONCT3=159)!((ONCT3>159)&(ONCT3<270))!((ONCT3>338)&(ONCT3<389))!((ONCT3>470)&(ONCT3<480))!((ONCT3>490)&(ONCT3<510))!(ONCT3=529)!((ONCT3>588)&(ONCT3<690))
Begin DoDot:1
+114 IF ((HST14>8803)&(HST14<8807))!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+115 IF "C390^C398^C399^C420^C421^C422^C423^C424"[ONCTPCD
Begin DoDot:1
+116 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+117 IF "C440^C442^C443^C444^C445^C446^C447^C448^C449"[ONCTPCD
Begin DoDot:1
+118 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+119 IF ONCTPCD="C441"
Begin DoDot:1
+120 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8949)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+121 IF "C480^C481^C482^C483^C484^C485^C486^C487^C488"[ONCTPCD
Begin DoDot:1
+122 IF (HST14=8804)!(HST14=8805)!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+123 IF ONCTPCD="C480"
Begin DoDot:1
+124 IF (HST14=8806)!(HST14=8930)!(HST14=8931)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+125 IF "C481^C482^C488"[ONCTPCD
Begin DoDot:1
+126 IF (HST14=8806)!(HST14=8930)!(HST14=8931)
Begin DoDot:2
+127 IF (ONCSSEX=1)!(ONCSSEX=3)!(ONCSSEX=4)!(ONCSSEX=5)!(ONCSSEX=9)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+128 IF "C510^C511^C512^C513^C514^C515^C516^C517^C518^C519"[ONCTPCD
Begin DoDot:1
+129 IF (HST14=8804)!(HST14=8805)!(HST14=8806)!(HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9904)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+130 IF "C530^C531^C532^C533^C534^C535^C536^C537^C538^C539"[ONCTPCD
Begin DoDot:1
+131 IF (HST14=8804)!(HST14=8806)!(HST14=8815)!(HST14=8901)!(HST14=8912)!(HST14=8920)!(HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9120)!(HST14=9133)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+132 IF (HST14=9180)!(HST14=9222)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+133 IF "C569^C570"[ONCTPCD
Begin DoDot:1
+134 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8806))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8822))!((HST14>8822)&(HST14<8825))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+135 IF ((HST14>8825)&(HST14<8882))!((HST14>8890)&(HST14<8922))!(HST14=8932)!(HST14=8934)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+136 IF ((HST14>8939)&(HST14<8942))!((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8992))!((HST14>9009)&(HST14<9046))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+137 IF (HST14=9051)!((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+138 IF (HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086)!((HST14>9100)&(HST14<9106))!((HST14>9119)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+139 IF "C571^C572^C573^C574^C575^C576^C577^C578^C579"[ONCTPCD
Begin DoDot:1
+140 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+141 IF "C690^691^C692^C693^C694^C695^C696^C698^C699"[ONCTPCD
Begin DoDot:1
+142 IF ((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9180)!(HST14=9222)!(HST14=9231)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+143 IF ((ONCT3>699)&(ONCT3<722))!(ONCT3=728)!(ONCT3=729)
Begin DoDot:1
+144 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8802))!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+145 IF ((HST14>8900)&(HST14<8935))!((HST14>8939)&(HST14<9064))!(HST14=9065)!((HST14>9071)&(HST14<9074))!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9120)&(HST14<9133))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+146 IF ((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+147 IF ((HST14>9364)&(HST14<9382))!((HST14>9382)&(HST14<9385))!(HST14=9410)!((HST14>9411)&(HST14<9424))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+148 IF ((HST14>9430)&(HST14<9433))!(HST14=9444)!(HST14=9460)!(HST14=9472)!(HST14=9480)!((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!(HST14=9506)!(HST14=9507)!((HST14>9508)&(HST14<9524))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
+149 IF ((HST14>9530)&(HST14<9538))!(HST14=9539)!((HST14>9540)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+150 IF "C722^C724^C725^C751^C752^C753"[ONCTPCD
Begin DoDot:1
+151 IF (HST14=8804)!(HST14=8805)!(HST14=8806)!(HST14=8910)!(HST14=8920)!(HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+152 IF ONCTPCD="C723"
Begin DoDot:1
+153 IF (HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9222)!(HST14=9231)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+154 IF ((ONCT3>739)&(ONCT3<750))!((ONCT3>760)&(ONCT3<766))!(ONCT3=767)!(ONCT3=768)!((ONCT3>769)&(ONCT3<776))!(ONCT3=778)!(ONCT3=779)!(ONCT3=809)
Begin DoDot:1
+155 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:1
IF ONCSCMA'=0
QUIT
+156 IF ONCTPCD="C760"
Begin DoDot:1
+157 IF HST14=8941
Begin DoDot:2
+158 IF (ONCSDIS1=0)!(ONCSDIS1=1)
SET ONCSCMA="00450"
DO C459^ONCSCHM2
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+159 ;
+160 ;SOFT TISSUE TRUNK & EXTREMITIES: C471-C472,C476,C478-C479,C491-C492,
+161 ; C496,C498-C499 H8000-8803,8810-8921,8932-8934,8940-8990,9000-9016,
+162 ; 9030-9043,9045-9137,9141-9230,9240-9580,9582,9700-9701
+163 ; or C500-C506,C508-C509 H8710-8714,8800-8803,8810-8921,8932-8934,
+164 ; 8940-8981,8990,9000-9016,9030-9043,9045-9137,9141-9230,
+165 ; 9240-9580,9582
+166 ;
+167 IF "C471^C472^C476^C478^C479^C491^C492^C496^C498^C499"[ONCTPCD
Begin DoDot:1
+168 IF ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))
SET ONCSCMA="00410"
+169 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00410"
End DoDot:1
IF ONCSCMA'=0
QUIT
+170 IF "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD
Begin DoDot:1
+171 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8982))
SET ONCSCMA="00410"
+172 IF (HST14=8990)!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00410"
End DoDot:1
IF ONCSCMA'=0
QUIT
+173 ;
+174 QUIT
