ONCSCHMD ;HINES OIFO/RTK - Schema derivation, related code continued ;04/27/18
;;2.2;ONCOLOGY;**10,12,21,22**;Jul 31, 2013;Build 6
;
; go through until hit is found, else return ONCSCMA=0
;
;PLASMA CELL DISORDERS: https://staging.seer.cancer.gov/eod_public/schema/1.7/plasma_cell_disorders/?breadcrumbs=(~schema_list~)
I (ONCT3="000")!((ONCT3>0)&(ONCT3<441))!((ONCT3>441)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!(ONCT3=698)!(ONCT3=699)!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810)) D I ONCSCMA'=0 Q
.I (HST14=9671)!(HST14=9734) S ONCSCMA="00822"
I (ONCT3="000")!((ONCT3>0)&(ONCT3<700))!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810)) D I ONCSCMA'=0 Q
.I (HST14=9731)!(HST14=9761) S ONCSCMA="00822"
I (ONCT3="000")!((ONCT3>0)&(ONCT3<730))!((ONCT3>750)&(ONCT3<754)) D I ONCSCMA'=0 Q
.I (ONCHIST=96713)!(ONCHIST=97313)!(ONCHIST=97343)!(ONCHIST=97613) S ONCSCMA="00822"
;
I (ONCT3="000")!((ONCT3>0)&(ONCT3<810)) D I ONCSCMA'=0 Q
.I (HST14=9731)!(HST14=9761) S ONCSCMA="00822"
;
;PLASMA CELL MYELOMA: C000-C809 H9732
I (ONCT3="000")!((ONCT3>0)&(ONCT3<810)) D I ONCSCMA'=0 Q
.I HST14=9732 S ONCSCMA="00821"
;
;PLEURAL MESOTHELIOMA: C340-C349,C384 H9050-9053
I "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349^C384"[ONCTPCD D I ONCSCMA'=0 Q
.I $P($G(^ONCO(165.5,D0,0)),U,16)<3250000 I ((HST14>9049)&(HST14<9054)) S ONCSCMA="00370"
.I $P($G(^ONCO(165.5,D0,0)),U,16)>3241231 I ((HST14>9049)&(HST14<9054)) S ONCSCMA="09370"
;
;PRIMARY CUTANEOUS LYMPHOMA (EXCLUDING MF & SS): C440,C442-C449,C510
; C609,C632 H9597,9680,9708-9709,9712,9718-9719,9726
I "C440^C442^C443^C444^C445^C446^C447^C448^C449^C510^C609^C632"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=9597)!(HST14=9680)!(HST14=9708)!(HST14=9709)!(HST14=9712)!(HST14=9718)!(HST14=9719)!(HST14=9726) S ONCSCMA="00812"
;
;PRIMARY PERITONEAL CARCINOMA: C481,C482,C488 H8000-8700,8720-8790,8806
; 8822,8930-8931,8933,8950,8960,8980,9000,9050,9052,9060,9070-9071
; 9073,9080,9085,9090-9091,9100,9110,9700-9701
I "C481^C482^C488"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8806)!(HST14=8822)!(HST14=8930)!(HST14=8931)!(HST14=8933)!(HST14=8950)!(HST14=8960)!(HST14=8980) D
..I (ONCSSEX=2)!(ONCSSEX=6) S ONCSCMA="00552"
.I (HST14=9000)!(HST14=9050)!(HST14=9052)!(HST14=9060)!(HST14=9070)!(HST14=9071)!(HST14=9073)!(HST14=9080)!(HST14=9085) D
..I (ONCSSEX=2)!(ONCSSEX=6) S ONCSCMA="00552"
.I (HST14=9090)!(HST14=9091)!(HST14=9100)!(HST14=9110)!(HST14=9700)!(HST14=9701) D
..I (ONCSSEX=2)!(ONCSSEX=6) S ONCSCMA="00552"
;
;PROSTATE: C619 H8000-8700,8720-8790,9700,9701
I ONCTPCD="C619" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00580"
;
;RESPIRATORY OTHER: C390,C398-C399 H8000-8700,8720-8790,9700,9701
I "C390^C398^C399"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00378"
;
;RETINOBLASTOMA: C690-C696,C698-C699 H9510-9514
I "C690^C691^C692^C693^C694^C695^C696^C698^C699"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>9509)&(HST14<9515)) S ONCSCMA="00680"
;
;RETROPERITONEUM: C480 H8000-8803,8810-8921,8932-8934,8940-8990,9000-
; 9016,9030-9043,9045-9137,9141-9230,9240-9580,9582,9700-9701
; or C481,C482,C488 H8000-8700,8720-8790,8822,8933,8950,8960,8980,9000
; 9050,9052,9060,9070-9071,9073,9080,9085,9090-9091,9100,9110,9700-
; 9701 SEX=1,3,4,5,9
; or C481,C482,C488 H8710-8714,8800-8803,8810-8821,8823-8921,8932,8934
; 8940-8941,8951-8959,8963-8975,8981-8990,9010-9016,9030-9043,9045,
; 9051,9053-9055,9061-9065,9072,9081-9084,9086,9101-9105,9120-9137,
; 9141-9230,9240-9580,9582
I ONCTPCD="C480" 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))!((HST14>9029)&(HST14<9044)) S ONCSCMA="00440"
.I ((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701) S ONCSCMA="00440"
I "C481^C482^C488"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8822)!(HST14=8933)!(HST14=8950)!(HST14=8960)!(HST14=8980)!(HST14=9000)!(HST14=9050)!(HST14=9052)!(HST14=9060) D
..I (ONCSSEX=1)!(ONCSSEX=3)!(ONCSSEX=4)!(ONCSSEX=5)!(ONCSSEX=9) S ONCSCMA="00440"
.I (HST14=9070)!(HST14=9071)!(HST14=9073)!(HST14=9080)!(HST14=9085)!(HST14=9090)!(HST14=9091)!(HST14=9100)!(HST14=9110)!(HST14=9700)!(HST14=9701) D
..I (ONCSSEX=1)!(ONCSSEX=3)!(ONCSSEX=4)!(ONCSSEX=5)!(ONCSSEX=9) S ONCSCMA="00440"
I "C481^C482^C488"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8822))!((HST14>8822)&(HST14<8922))!(HST14=8932)!(HST14=8934)!(HST14=8940)!(HST14=8941) S ONCSCMA="00440"
.I ((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>9009)&(HST14<9017))!((HST14>9029)&(HST14<9044))!(HST14=9045)!(HST14=9051) S ONCSCMA="00440"
.I ((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))!(HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086)!((HST14>9100)&(HST14<9106))!((HST14>9119)&(HST14<9138)) S ONCSCMA="00440"
.I ((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00440"
;
;SINUS OTHER: C312-C313,C318-C319 H8000-8700,9700,9701
I "C312^C313^C318^C319"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCSCMA="00128"
;
;SKIN EYELID: C441 H8000-8040,8042-8180,8191-8246,8248-8700,8940-8941,8980
I ONCTPCD="C441" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!((HST14>8939)&(HST14<8942))!(HST14=8980) S ONCSCMA="00640"
;
;SKIN OTHER: C445-449 H8000-8040,8042-8180,8191-8246,8248-8700,8940,8980
I "C445^C446^C447^C448^C449"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=8940)!(HST14=8980) S ONCSCMA="00478"
;
;SMALL INTESTINE: C170-C173,C178-C179 H8000-8149,8154,8157,8160-8231
; 8243-8248,8250-8682,8690-8700,8720-8790,9700,9701
I "C170^C171^C172^C173^C178^C179"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00180"
;
;SOFT TISSUE HEAD AND NECK: C000-C002,C006 H8710-8714,8800-8803,8810-
; 8905,8912,8921,8932-8934,8941-8981,8983-8990,9000-9016,9030-9043,
; 9045-9110,9121-9137,9141-9230,9240-9580,9582
; or C003-C005,C008-C009,C020-C023,C028-C050,C058-C069 H8710-8714,8800-
; 8803,8810-8905,8912,8921,8932-8934,8940-8981,8983-8990,9000-9016,
; 9030-9043,9045-9110,9121-9137,9141-9230,9240-9580,9582
; or C019,C024,C051-C052,C090-C148,C150,C153,C158,C301,C312-C329,C739,
; C750,C754-C759 H8710-8714,8800-8803,8810-8905,8912,8921,8932-8934,
; 8940-8990,9000-9016,9030-9043,9045-9110,9121-9137,9141-9230,
; 9240-9580,9582
; or C079-C089 H8710-8714,8800-8803,8810-8905,8912,8921,8932-8934,8940,
; 8950-8973,8975,8981,8983-8990,9000-9016,9030-9043,9045-9110,9121-
; 9137,9141-9230,9240-9580,9582
; or C300,C310-C311 H8710-8714,8800-8803,8810-8905,8912,8921,8932-8934,
; 8940,8950-8981,8983-8990,9000-9016,9030-9043,9045-9110,9121-9137,
; 9141-9230,9240-9580,9582
; or C470,C490 H8000-8803,8810-8905,8912,8921,8932-8934,8940-8990,9000-
; 9016,9030-9043,9045-9110,9121-9137,9141-9230,9240-9580,9582,
; 9700-9701
; or C722,C724-C725,C751-C753 H8710-8714,8800-8803,8810-8898,8901-8905
; 8912,8921,8932-8934,8940-8990,9000-9016,9030-9043,9045-9063,9065,
; 9072-9073,9081-9083,9086-9091,9101-9110,9121-9137,9141-9210,9221-
; 9230,9240-9361,9363-9381,9383-9384,9410,9412-9423,9431-9432,9444,
; 9460,9472,9480,9491-9493,9502-9504,9506-9507,9509-9523,9531-9537,
; 9539-9580,9582
; or C723 H9510-9514
;
I "C000^C001^C002^C006"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<8991)) S ONCSCMA="00400"
.I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00400"
I (ONCT3="003")!(ONCT3="004")!(ONCT3="005")!(ONCT3="008")!(ONCT3="009")!((ONCT3>19)&(ONCT3<24))!((ONCT3>27)&(ONCT3<51))!((ONCT3>57)&(ONCT3<70)) D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8982))!((HST14>8982)&(HST14<8991)) S ONCSCMA="00400"
.I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00400"
I (ONCT3="019")!(ONCT3="024")!(ONCT3="051")!(ONCT3="052")!((ONCT3>89)&(ONCT3<149))!(ONCT3=150)!(ONCT3=153)!(ONCT3=158)!(ONCT3=301)!((ONCT3>311)&(ONCT3<330))!(ONCT3=739)!(ONCT3=750)!((ONCT3>753)&(ONCT3<760)) D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991)) S ONCSCMA="00400"
.I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00400"
I ((ONCT3>78)&(ONCT3<90)) D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!(HST14=8940)!((HST14>8949)&(HST14<8974))!(HST14=8975)!(HST14=8981) S ONCSCMA="00400"
.I ((HST14>8982)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00400"
I "C300^C310^C311"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!(HST14=8940)!((HST14>8949)&(HST14<8982))!((HST14>8982)&(HST14<8991)) S ONCSCMA="00400"
.I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00400"
I "C470^C490"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991)) S ONCSCMA="00400"
.I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701) S ONCSCMA="00400"
I "C722^C724^C725^C751^C753^"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8899))!((HST14>8900)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991)) S ONCSCMA="00400"
.I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9111)) S ONCSCMA="00400"
.I ((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9239)&(HST14<9362))!((HST14>9362)&(HST14<9382))!((HST14>9382)&(HST14<9385))!(HST14=9410) S ONCSCMA="00400"
.I ((HST14>9411)&(HST14<9424))!((HST14>9430)&(HST14<9433))!(HST14=9444)!(HST14=9460)!(HST14=9472)!(HST14=9480)!((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!(HST14=9506)!(HST14=9507) S ONCSCMA="00400"
.I ((HST14>9508)&(HST14<9524))!((HST14>9530)&(HST14<9538))!((HST14>9538)&(HST14<9581))!(HST14=9582) S ONCSCMA="00400"
I ONCTPCD="C723" D I ONCSCMA'=0 Q
.I ((HST14>9509)&(HST14<9515)) S ONCSCMA="00400"
;
D ^ONCSCHME I ONCSCMA'=0 Q ;SOFT TISSUE CONTINUED
;
;STOMACH: C160 H8000-8149,8154,8157,8160-8231,8243-8248,
; 8250-8682,8690-8700,8720-8790,9700-9701 DISCR1=0,3,9
; or C161-166,C168-169 H8000-8149,8154,8157,8160-8231,8243-8248,
; 8250-8682,8690-8700,8720-8790,9700-9701
I ONCTPCD="C160" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I (ONCSDIS1=0)!(ONCSDIS1=3)!(ONCSDIS1=9) S ONCSCMA="00170"
I "C161^C162^C163^C164^C165^C166^C168^C169"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00170"
;
;TESTIS: C620-C621,C629 H8000-8700,8720-8790,9061,9064-9065,9070-9071,
; 9080-9081,9084-9085,9100-9101,9104-9105,9700-9701
I "C620^C621^C629"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9061)!((HST14>9063)&(HST14<9066))!((HST14>9069)&(HST14<9072)) S ONCSCMA="00590"
.I (HST14=9080)!(HST14=9081)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)!(HST14=9700)!(HST14=9701) S ONCSCMA="00590"
;
;THYMUS: <2025 -- C379 H8000-8700,8720-8790,9700,9701
; 2025+ -- C379 H8000-8700,8720-8790,8980
I ONCTPCD="C379" D I ONCSCMA'=0 Q
.I $P($G(^ONCO(165.5,D0,0)),U,16)<3250000 I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00350"
.I $P($G(^ONCO(165.5,D0,0)),U,16)>3241231 I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8980) S ONCSCMA="09350"
;
;THYROID: C739 H8000-8344,8350-8420,8440-8509,8514-8700,8720-8790,
; 9700-9701
I ONCTPCD="C739" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8345))!((HST14>8349)&(HST14<8421))!((HST14>8439)&(HST14<8510))!((HST14>8513)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00730"
;
;THYROID MEDULLARY: C739 H8345-8347,8430,8510,8512-8513
I ONCTPCD="C739" D I ONCSCMA'=0 Q
.I ((HST14>8344)&(HST14<8348))!(HST14=8430)!(HST14=8510)!(HST14=8512)!(HST14=8513) S ONCSCMA="00740"
;
;TONGUE ANTERIOR: C020-C023,C028-C029 H8000-8700,8982,9700,9701
I "C020^C021^C022^C023^C028^C029"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!(HST14=8982)!(HST14=9700)!(HST14=9701) S ONCSCMA="00072"
;
;TRACHEA: C339 H8000-8700,8720-8790,9700,9701
I ONCTPCD="C339" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00358"
;
;URETHRA: C680 H8000-8700,8720-8790,9700,9701 DISCR1=1
I ONCTPCD="C680" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I ONCSDIS1=1 S ONCSCMA="00631"
;
;URETHRA-PROSTATIC: C680 H8000-8700,8720-8790,9700,9701 DISCR1=1
I ONCTPCD="C680" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I ONCSDIS1=2 S ONCSCMA="00633"
;
;URINARY OTHER: C681,C688-C689 H8000-8700,8720-8790,9700,9701
I "C681^C688^C689"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00638"
;
;VAGINA: C529 H8000-8700,8720-8790,8933,8980,9071,9110,9700,9701
I ONCTPCD="C529" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8933)!(HST14=8980)!(HST14=9071)!(HST14=9110)!(HST14=9700)!(HST14=9701) S ONCSCMA="00510"
;
;VULVA: C510,C511,C512,C518,C519 H8000-8040,8042-8180,8191-8246,
; 8248-8700,9020,9071
I "C510^C511^C512^C518^C519"[ONCTPCD D I ONCSCMA'=0 Q
.I $P($G(^ONCO(165.5,D0,0)),U,16)<3240000 I ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=9020)!(HST14=9071) S ONCSCMA="00500"
.I $P($G(^ONCO(165.5,D0,0)),U,16)>3231231 I ((HST14>7999)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=8982)!(HST14=9020)!(HST14=9064)!(HST14=9071) S ONCSCMA="09500"
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMD 16713 printed Jan 29, 2026@15:26:38 Page 2
ONCSCHMD ;HINES OIFO/RTK - Schema derivation, related code continued ;04/27/18
+1 ;;2.2;ONCOLOGY;**10,12,21,22**;Jul 31, 2013;Build 6
+2 ;
+3 ; go through until hit is found, else return ONCSCMA=0
+4 ;
+5 ;PLASMA CELL DISORDERS: https://staging.seer.cancer.gov/eod_public/schema/1.7/plasma_cell_disorders/?breadcrumbs=(~schema_list~)
+6 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<441))!((ONCT3>441)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!(ONCT3=698)!(ONCT3=699)!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810))
Begin DoDot:1
+7 IF (HST14=9671)!(HST14=9734)
SET ONCSCMA="00822"
End DoDot:1
IF ONCSCMA'=0
QUIT
+8 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<700))!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810))
Begin DoDot:1
+9 IF (HST14=9731)!(HST14=9761)
SET ONCSCMA="00822"
End DoDot:1
IF ONCSCMA'=0
QUIT
+10 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<730))!((ONCT3>750)&(ONCT3<754))
Begin DoDot:1
+11 IF (ONCHIST=96713)!(ONCHIST=97313)!(ONCHIST=97343)!(ONCHIST=97613)
SET ONCSCMA="00822"
End DoDot:1
IF ONCSCMA'=0
QUIT
+12 ;
+13 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<810))
Begin DoDot:1
+14 IF (HST14=9731)!(HST14=9761)
SET ONCSCMA="00822"
End DoDot:1
IF ONCSCMA'=0
QUIT
+15 ;
+16 ;PLASMA CELL MYELOMA: C000-C809 H9732
+17 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<810))
Begin DoDot:1
+18 IF HST14=9732
SET ONCSCMA="00821"
End DoDot:1
IF ONCSCMA'=0
QUIT
+19 ;
+20 ;PLEURAL MESOTHELIOMA: C340-C349,C384 H9050-9053
+21 IF "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349^C384"[ONCTPCD
Begin DoDot:1
+22 IF $PIECE($GET(^ONCO(165.5,D0,0)),U,16)<3250000
IF ((HST14>9049)&(HST14<9054))
SET ONCSCMA="00370"
+23 IF $PIECE($GET(^ONCO(165.5,D0,0)),U,16)>3241231
IF ((HST14>9049)&(HST14<9054))
SET ONCSCMA="09370"
End DoDot:1
IF ONCSCMA'=0
QUIT
+24 ;
+25 ;PRIMARY CUTANEOUS LYMPHOMA (EXCLUDING MF & SS): C440,C442-C449,C510
+26 ; C609,C632 H9597,9680,9708-9709,9712,9718-9719,9726
+27 IF "C440^C442^C443^C444^C445^C446^C447^C448^C449^C510^C609^C632"[ONCTPCD
Begin DoDot:1
+28 IF (HST14=9597)!(HST14=9680)!(HST14=9708)!(HST14=9709)!(HST14=9712)!(HST14=9718)!(HST14=9719)!(HST14=9726)
SET ONCSCMA="00812"
End DoDot:1
IF ONCSCMA'=0
QUIT
+29 ;
+30 ;PRIMARY PERITONEAL CARCINOMA: C481,C482,C488 H8000-8700,8720-8790,8806
+31 ; 8822,8930-8931,8933,8950,8960,8980,9000,9050,9052,9060,9070-9071
+32 ; 9073,9080,9085,9090-9091,9100,9110,9700-9701
+33 IF "C481^C482^C488"[ONCTPCD
Begin DoDot:1
+34 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8806)!(HST14=8822)!(HST14=8930)!(HST14=8931)!(HST14=8933)!(HST14=8950)!(HST14=8960)!(HST14=8980)
Begin DoDot:2
+35 IF (ONCSSEX=2)!(ONCSSEX=6)
SET ONCSCMA="00552"
End DoDot:2
+36 IF (HST14=9000)!(HST14=9050)!(HST14=9052)!(HST14=9060)!(HST14=9070)!(HST14=9071)!(HST14=9073)!(HST14=9080)!(HST14=9085)
Begin DoDot:2
+37 IF (ONCSSEX=2)!(ONCSSEX=6)
SET ONCSCMA="00552"
End DoDot:2
+38 IF (HST14=9090)!(HST14=9091)!(HST14=9100)!(HST14=9110)!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+39 IF (ONCSSEX=2)!(ONCSSEX=6)
SET ONCSCMA="00552"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+40 ;
+41 ;PROSTATE: C619 H8000-8700,8720-8790,9700,9701
+42 IF ONCTPCD="C619"
Begin DoDot:1
+43 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00580"
End DoDot:1
IF ONCSCMA'=0
QUIT
+44 ;
+45 ;RESPIRATORY OTHER: C390,C398-C399 H8000-8700,8720-8790,9700,9701
+46 IF "C390^C398^C399"[ONCTPCD
Begin DoDot:1
+47 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00378"
End DoDot:1
IF ONCSCMA'=0
QUIT
+48 ;
+49 ;RETINOBLASTOMA: C690-C696,C698-C699 H9510-9514
+50 IF "C690^C691^C692^C693^C694^C695^C696^C698^C699"[ONCTPCD
Begin DoDot:1
+51 IF ((HST14>9509)&(HST14<9515))
SET ONCSCMA="00680"
End DoDot:1
IF ONCSCMA'=0
QUIT
+52 ;
+53 ;RETROPERITONEUM: C480 H8000-8803,8810-8921,8932-8934,8940-8990,9000-
+54 ; 9016,9030-9043,9045-9137,9141-9230,9240-9580,9582,9700-9701
+55 ; or C481,C482,C488 H8000-8700,8720-8790,8822,8933,8950,8960,8980,9000
+56 ; 9050,9052,9060,9070-9071,9073,9080,9085,9090-9091,9100,9110,9700-
+57 ; 9701 SEX=1,3,4,5,9
+58 ; or C481,C482,C488 H8710-8714,8800-8803,8810-8821,8823-8921,8932,8934
+59 ; 8940-8941,8951-8959,8963-8975,8981-8990,9010-9016,9030-9043,9045,
+60 ; 9051,9053-9055,9061-9065,9072,9081-9084,9086,9101-9105,9120-9137,
+61 ; 9141-9230,9240-9580,9582
+62 IF ONCTPCD="C480"
Begin DoDot:1
+63 IF ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8922))!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))
SET ONCSCMA="00440"
+64 IF ((HST14>9044)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00440"
End DoDot:1
IF ONCSCMA'=0
QUIT
+65 IF "C481^C482^C488"[ONCTPCD
Begin DoDot:1
+66 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8822)!(HST14=8933)!(HST14=8950)!(HST14=8960)!(HST14=8980)!(HST14=9000)!(HST14=9050)!(HST14=9052)!(HST14=9060)
Begin DoDot:2
+67 IF (ONCSSEX=1)!(ONCSSEX=3)!(ONCSSEX=4)!(ONCSSEX=5)!(ONCSSEX=9)
SET ONCSCMA="00440"
End DoDot:2
+68 IF (HST14=9070)!(HST14=9071)!(HST14=9073)!(HST14=9080)!(HST14=9085)!(HST14=9090)!(HST14=9091)!(HST14=9100)!(HST14=9110)!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+69 IF (ONCSSEX=1)!(ONCSSEX=3)!(ONCSSEX=4)!(ONCSSEX=5)!(ONCSSEX=9)
SET ONCSCMA="00440"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+70 IF "C481^C482^C488"[ONCTPCD
Begin DoDot:1
+71 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8822))!((HST14>8822)&(HST14<8922))!(HST14=8932)!(HST14=8934)!(HST14=8940)!(HST14=8941)
SET ONCSCMA="00440"
+72 IF ((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8991))!((HST14>9009)&(HST14<9017))!((HST14>9029)&(HST14<9044))!(HST14=9045)!(HST14=9051)
SET ONCSCMA="00440"
+73 IF ((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))!(HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086)!((HST14>9100)&(HST14<9106))!((HST14>9119)&(HST14<9138))
SET ONCSCMA="00440"
+74 IF ((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00440"
End DoDot:1
IF ONCSCMA'=0
QUIT
+75 ;
+76 ;SINUS OTHER: C312-C313,C318-C319 H8000-8700,9700,9701
+77 IF "C312^C313^C318^C319"[ONCTPCD
Begin DoDot:1
+78 IF ((HST14>7999)&(HST14<8701))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00128"
End DoDot:1
IF ONCSCMA'=0
QUIT
+79 ;
+80 ;SKIN EYELID: C441 H8000-8040,8042-8180,8191-8246,8248-8700,8940-8941,8980
+81 IF ONCTPCD="C441"
Begin DoDot:1
+82 IF ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!((HST14>8939)&(HST14<8942))!(HST14=8980)
SET ONCSCMA="00640"
End DoDot:1
IF ONCSCMA'=0
QUIT
+83 ;
+84 ;SKIN OTHER: C445-449 H8000-8040,8042-8180,8191-8246,8248-8700,8940,8980
+85 IF "C445^C446^C447^C448^C449"[ONCTPCD
Begin DoDot:1
+86 IF ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=8940)!(HST14=8980)
SET ONCSCMA="00478"
End DoDot:1
IF ONCSCMA'=0
QUIT
+87 ;
+88 ;SMALL INTESTINE: C170-C173,C178-C179 H8000-8149,8154,8157,8160-8231
+89 ; 8243-8248,8250-8682,8690-8700,8720-8790,9700,9701
+90 IF "C170^C171^C172^C173^C178^C179"[ONCTPCD
Begin DoDot:1
+91 IF ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00180"
End DoDot:1
IF ONCSCMA'=0
QUIT
+92 ;
+93 ;SOFT TISSUE HEAD AND NECK: C000-C002,C006 H8710-8714,8800-8803,8810-
+94 ; 8905,8912,8921,8932-8934,8941-8981,8983-8990,9000-9016,9030-9043,
+95 ; 9045-9110,9121-9137,9141-9230,9240-9580,9582
+96 ; or C003-C005,C008-C009,C020-C023,C028-C050,C058-C069 H8710-8714,8800-
+97 ; 8803,8810-8905,8912,8921,8932-8934,8940-8981,8983-8990,9000-9016,
+98 ; 9030-9043,9045-9110,9121-9137,9141-9230,9240-9580,9582
+99 ; or C019,C024,C051-C052,C090-C148,C150,C153,C158,C301,C312-C329,C739,
+100 ; C750,C754-C759 H8710-8714,8800-8803,8810-8905,8912,8921,8932-8934,
+101 ; 8940-8990,9000-9016,9030-9043,9045-9110,9121-9137,9141-9230,
+102 ; 9240-9580,9582
+103 ; or C079-C089 H8710-8714,8800-8803,8810-8905,8912,8921,8932-8934,8940,
+104 ; 8950-8973,8975,8981,8983-8990,9000-9016,9030-9043,9045-9110,9121-
+105 ; 9137,9141-9230,9240-9580,9582
+106 ; or C300,C310-C311 H8710-8714,8800-8803,8810-8905,8912,8921,8932-8934,
+107 ; 8940,8950-8981,8983-8990,9000-9016,9030-9043,9045-9110,9121-9137,
+108 ; 9141-9230,9240-9580,9582
+109 ; or C470,C490 H8000-8803,8810-8905,8912,8921,8932-8934,8940-8990,9000-
+110 ; 9016,9030-9043,9045-9110,9121-9137,9141-9230,9240-9580,9582,
+111 ; 9700-9701
+112 ; or C722,C724-C725,C751-C753 H8710-8714,8800-8803,8810-8898,8901-8905
+113 ; 8912,8921,8932-8934,8940-8990,9000-9016,9030-9043,9045-9063,9065,
+114 ; 9072-9073,9081-9083,9086-9091,9101-9110,9121-9137,9141-9210,9221-
+115 ; 9230,9240-9361,9363-9381,9383-9384,9410,9412-9423,9431-9432,9444,
+116 ; 9460,9472,9480,9491-9493,9502-9504,9506-9507,9509-9523,9531-9537,
+117 ; 9539-9580,9582
+118 ; or C723 H9510-9514
+119 ;
+120 IF "C000^C001^C002^C006"[ONCTPCD
Begin DoDot:1
+121 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<8991))
SET ONCSCMA="00400"
+122 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+123 IF (ONCT3="003")!(ONCT3="004")!(ONCT3="005")!(ONCT3="008")!(ONCT3="009")!((ONCT3>19)&(ONCT3<24))!((ONCT3>27)&(ONCT3<51))!((ONCT3>57)&(ONCT3<70))
Begin DoDot:1
+124 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8982))!((HST14>8982)&(HST14<8991))
SET ONCSCMA="00400"
+125 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+126 IF (ONCT3="019")!(ONCT3="024")!(ONCT3="051")!(ONCT3="052")!((ONCT3>89)&(ONCT3<149))!(ONCT3=150)!(ONCT3=153)!(ONCT3=158)!(ONCT3=301)!((ONCT3>311)&(ONCT3<330))!(ONCT3=739)!(ONCT3=750)!((ONCT3>753)&(ONCT3<760))
Begin DoDot:1
+127 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))
SET ONCSCMA="00400"
+128 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+129 IF ((ONCT3>78)&(ONCT3<90))
Begin DoDot:1
+130 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!(HST14=8940)!((HST14>8949)&(HST14<8974))!(HST14=8975)!(HST14=8981)
SET ONCSCMA="00400"
+131 IF ((HST14>8982)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+132 IF "C300^C310^C311"[ONCTPCD
Begin DoDot:1
+133 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!(HST14=8940)!((HST14>8949)&(HST14<8982))!((HST14>8982)&(HST14<8991))
SET ONCSCMA="00400"
+134 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+135 IF "C470^C490"[ONCTPCD
Begin DoDot:1
+136 IF ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))
SET ONCSCMA="00400"
+137 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+138 IF "C722^C724^C725^C751^C753^"[ONCTPCD
Begin DoDot:1
+139 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8809)&(HST14<8899))!((HST14>8900)&(HST14<8906))!(HST14=8912)!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))
SET ONCSCMA="00400"
+140 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9111))
SET ONCSCMA="00400"
+141 IF ((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9239)&(HST14<9362))!((HST14>9362)&(HST14<9382))!((HST14>9382)&(HST14<9385))!(HST14=9410)
SET ONCSCMA="00400"
+142 IF ((HST14>9411)&(HST14<9424))!((HST14>9430)&(HST14<9433))!(HST14=9444)!(HST14=9460)!(HST14=9472)!(HST14=9480)!((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!(HST14=9506)!(HST14=9507)
SET ONCSCMA="00400"
+143 IF ((HST14>9508)&(HST14<9524))!((HST14>9530)&(HST14<9538))!((HST14>9538)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+144 IF ONCTPCD="C723"
Begin DoDot:1
+145 IF ((HST14>9509)&(HST14<9515))
SET ONCSCMA="00400"
End DoDot:1
IF ONCSCMA'=0
QUIT
+146 ;
+147 ;SOFT TISSUE CONTINUED
DO ^ONCSCHME
IF ONCSCMA'=0
QUIT
+148 ;
+149 ;STOMACH: C160 H8000-8149,8154,8157,8160-8231,8243-8248,
+150 ; 8250-8682,8690-8700,8720-8790,9700-9701 DISCR1=0,3,9
+151 ; or C161-166,C168-169 H8000-8149,8154,8157,8160-8231,8243-8248,
+152 ; 8250-8682,8690-8700,8720-8790,9700-9701
+153 IF ONCTPCD="C160"
Begin DoDot:1
+154 IF ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+155 IF (ONCSDIS1=0)!(ONCSDIS1=3)!(ONCSDIS1=9)
SET ONCSCMA="00170"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+156 IF "C161^C162^C163^C164^C165^C166^C168^C169"[ONCTPCD
Begin DoDot:1
+157 IF ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00170"
End DoDot:1
IF ONCSCMA'=0
QUIT
+158 ;
+159 ;TESTIS: C620-C621,C629 H8000-8700,8720-8790,9061,9064-9065,9070-9071,
+160 ; 9080-9081,9084-9085,9100-9101,9104-9105,9700-9701
+161 IF "C620^C621^C629"[ONCTPCD
Begin DoDot:1
+162 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9061)!((HST14>9063)&(HST14<9066))!((HST14>9069)&(HST14<9072))
SET ONCSCMA="00590"
+163 IF (HST14=9080)!(HST14=9081)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00590"
End DoDot:1
IF ONCSCMA'=0
QUIT
+164 ;
+165 ;THYMUS: <2025 -- C379 H8000-8700,8720-8790,9700,9701
+166 ; 2025+ -- C379 H8000-8700,8720-8790,8980
+167 IF ONCTPCD="C379"
Begin DoDot:1
+168 IF $PIECE($GET(^ONCO(165.5,D0,0)),U,16)<3250000
IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00350"
+169 IF $PIECE($GET(^ONCO(165.5,D0,0)),U,16)>3241231
IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8980)
SET ONCSCMA="09350"
End DoDot:1
IF ONCSCMA'=0
QUIT
+170 ;
+171 ;THYROID: C739 H8000-8344,8350-8420,8440-8509,8514-8700,8720-8790,
+172 ; 9700-9701
+173 IF ONCTPCD="C739"
Begin DoDot:1
+174 IF ((HST14>7999)&(HST14<8345))!((HST14>8349)&(HST14<8421))!((HST14>8439)&(HST14<8510))!((HST14>8513)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00730"
End DoDot:1
IF ONCSCMA'=0
QUIT
+175 ;
+176 ;THYROID MEDULLARY: C739 H8345-8347,8430,8510,8512-8513
+177 IF ONCTPCD="C739"
Begin DoDot:1
+178 IF ((HST14>8344)&(HST14<8348))!(HST14=8430)!(HST14=8510)!(HST14=8512)!(HST14=8513)
SET ONCSCMA="00740"
End DoDot:1
IF ONCSCMA'=0
QUIT
+179 ;
+180 ;TONGUE ANTERIOR: C020-C023,C028-C029 H8000-8700,8982,9700,9701
+181 IF "C020^C021^C022^C023^C028^C029"[ONCTPCD
Begin DoDot:1
+182 IF ((HST14>7999)&(HST14<8701))!(HST14=8982)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00072"
End DoDot:1
IF ONCSCMA'=0
QUIT
+183 ;
+184 ;TRACHEA: C339 H8000-8700,8720-8790,9700,9701
+185 IF ONCTPCD="C339"
Begin DoDot:1
+186 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00358"
End DoDot:1
IF ONCSCMA'=0
QUIT
+187 ;
+188 ;URETHRA: C680 H8000-8700,8720-8790,9700,9701 DISCR1=1
+189 IF ONCTPCD="C680"
Begin DoDot:1
+190 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+191 IF ONCSDIS1=1
SET ONCSCMA="00631"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+192 ;
+193 ;URETHRA-PROSTATIC: C680 H8000-8700,8720-8790,9700,9701 DISCR1=1
+194 IF ONCTPCD="C680"
Begin DoDot:1
+195 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+196 IF ONCSDIS1=2
SET ONCSCMA="00633"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+197 ;
+198 ;URINARY OTHER: C681,C688-C689 H8000-8700,8720-8790,9700,9701
+199 IF "C681^C688^C689"[ONCTPCD
Begin DoDot:1
+200 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00638"
End DoDot:1
IF ONCSCMA'=0
QUIT
+201 ;
+202 ;VAGINA: C529 H8000-8700,8720-8790,8933,8980,9071,9110,9700,9701
+203 IF ONCTPCD="C529"
Begin DoDot:1
+204 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8933)!(HST14=8980)!(HST14=9071)!(HST14=9110)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00510"
End DoDot:1
IF ONCSCMA'=0
QUIT
+205 ;
+206 ;VULVA: C510,C511,C512,C518,C519 H8000-8040,8042-8180,8191-8246,
+207 ; 8248-8700,9020,9071
+208 IF "C510^C511^C512^C518^C519"[ONCTPCD
Begin DoDot:1
+209 IF $PIECE($GET(^ONCO(165.5,D0,0)),U,16)<3240000
IF ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=9020)!(HST14=9071)
SET ONCSCMA="00500"
+210 IF $PIECE($GET(^ONCO(165.5,D0,0)),U,16)>3231231
IF ((HST14>7999)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=8982)!(HST14=9020)!(HST14=9064)!(HST14=9071)
SET ONCSCMA="09500"
End DoDot:1
IF ONCSCMA'=0
QUIT
+211 ;
+212 QUIT
