Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCSCHME

ONCSCHME.m

Go to the documentation of this file.
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