ONCSCHMA ;HINES OIFO/RTK - Schema derivation and related code ;04/27/18
;;2.2;ONCOLOGY;**10,12,13,17,18**;Jul 31, 2013;Build 5
;
DER ;Derive the correct SCHEMA ID for the abstract based on Primary Site,
; Histology and possibly Schema Discriminators and Sex
; AND Store the SCHEMA ID in field #165.5,#3800
; TOPCOD should be set in Abstract
N ONCHIST,ONCTPCD,ONCSDIS1,ONCSDIS2,ONCSSEX,ONCT3,HST14
S ONCSCMA=0 ;initialize the schema first
S ONCHIST=$$HIST^ONCFUNC(D0)
I '$D(TOPCOD)!('$D(ONCHIST)) W !!," ** MISSING PRIMARY SITE AND/OR HISTOLOGY -- CANNOT DERIVE SCHEMA **",! Q
S ONCTPCD=$P(TOPCOD,".",1)_$P(TOPCOD,".",2) ;remove the "."
S HST14=$E(ONCHIST,1,4),HST5=$E(ONCHIST,5),ONCT3=$E(ONCTPCD,2,5)
S ONCSDIS1=$P($G(^ONCO(165.5,D0,"SSD4")),U,21) ; Schema Discriminator 1
S ONCSDIS2=$P($G(^ONCO(165.5,D0,"SSD4")),U,22) ; Schema Discriminator 2
S ONCSDIS3=$P($G(^ONCO(165.5,D0,"SSD4")),U,23) ; Schema Discriminator 3
S ONCPTPR=$P($G(^ONCO(165.5,D0,0)),U,2),ONCSSEX=$P($G(^ONCO(160,ONCPTPR,0)),U,8) I $G(ONCSSEX)="" W "CHECK PATIENT'S SEX FIELD IN PATIENT FILE" H 2
;
D SCMA
I ONCSCMA=0 D ^ONCSCHMB
I ONCSCMA=0 D ^ONCSCHMC
I ONCSCMA=0 D ^ONCSCHMD
I ONCSCMA=0 D ^ONCSCHME
;
I ONCSCMA=0 W !!," ** UNABLE TO DERIVE SCHEMA **",!!
I ONCSCMA'=0 S $P(^ONCO(165.5,D0,"SSD1"),U,1)=ONCSCMA
;
K ONCPTPR Q
;
;
SCMA ; go through until hit is found, else return ONCSCMA=0
;
;ADNEXA UTERINE OTHER: C571-C574 HIST 8000-8700,8720-8790,9700,9701
I "C571^C572^C573^C574"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791)) S ONCSCMA="00558"
;
;ADRENAL GLAND: C740,C741,C749 H8000-8671,8681-8683,8691,8720-8790,
; 9700,9701
I "C740^C741^C749"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8672))!((HST14>8680)&(HST14<8684))!((HST14>8719)&(HST14<8791))!(HST14=8691)!(HST14=9700)!(HST14=9701) S ONCSCMA="00760"
;
;AMPULLA OF VATER: C241 H8000-8149,8154,8157,8160-8231,8243-8248,8250-
; 8682,8690-8700,8720-8790,9700,9701
I ONCTPCD="C241" 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>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00270"
;
;ANUS: C210-C212,C218 H8000-8700,9700,9701
; or C211-C212,C218 H8720-8790
I "C210^C211^C212^C218"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791)) D
..I DATEDX<3230000 S ONCSCMA="00210"
..I DATEDX>3221231 S ONCSCMA="09210"
;
;APPENDIX: C181 H8000-8149,8154,8157,8160-8231,8243-8248,8250-
; 8682,8690-8700,8720-8790,9700,9701
I ONCTPCD="C181" 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)) D
..I DATEDX<3230000 S ONCSCMA="00190"
..I DATEDX>3221231 S ONCSCMA="09190"
;
;BILE DUCTS DISTAL: C240 H8000-8700,8720-8790,9700,9701 DISCR1=4,7
I ONCTPCD="C240" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I ((ONCSDIS1=4)!(ONCSDIS1=7)) S ONCSCMA="00260"
;
;BILE DUCTS INTRAHEPATIC: C221 H8000-8700,8720-8790,9700,9701
I ONCTPCD="C221" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00230"
;
;BILE DUCTS PERIHILAR: C240 H8000-8700,8720-8790,9700-01 DISCR1=1,5,6,9
I ONCTPCD="C240" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I ((ONCSDIS1=1)!(ONCSDIS1=5)!(ONCSDIS1=6)!(ONCSDIS1=9)) S ONCSCMA="00250"
;
;BILARY OTHER: C248-249 H8000-8700,8720-8790,9700,9701
I "C248^C249"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00278"
;
;BLADDER: C670-679 H8000-8700,8720-8790,9700,9701
I "C670^C671^C672^C673^C674^C675^C676^C677^C678^C679"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00620"
;
;BONE APPENDICULAR SKELETON: C400-403,408-411,413,418,419 H8000-8934,8940-9137,9141-9582,9700,9701
I "C400^C401^C402^C403^C408^C409^C410^C411^C413^C418^C419"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))!(HST14=9700)!(HST14=9701) S ONCSCMA="00381"
;
;BONE PELVIS: C414 H8000-8934,8940-9137,9141-9582,9700,9701
I ONCTPCD="C414" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))!(HST14=9700)!(HST14=9701) S ONCSCMA="00383"
;
;BONE SPINE: C412 H8000-8934,8940-9137,9141-9582,9700,9701
I ONCTPCD="C412" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))!(HST14=9700)!(HST14=9701) S ONCSCMA="00382"
;
;BRAIN: do ONCSCHMV with V9 updates
D BRN721^ONCSCHMV I ONCSCMA'=0 Q
;
;BREAST: C500-506,508,509 H8000-8700,8982,8983,9700,9701
; or C501-506,508,509 H8720-8790
I "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!(HST14=8982)!(HST14=8983)!(HST14=9700)!(HST14=9701) S ONCSCMA="00480"
I "C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8719)&(HST14<8791)) S ONCSCMA="00480"
;
;BUCCAL MUCOSA: C060,C061 H8000-8700,8982,9700,9701
I "C060^C061"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!(HST14=8982)!(HST14=9700)!(HST14=9701) S ONCSCMA="00076"
;
;CERVICAL LYMPH NODES AND UNKNOWN PRIMARY: C760 H8000-8700,8720-8790
; 8941,9700,9701
I ONCTPCD="C760" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8941)!(HST14=9700)!(HST14=9701) S ONCSCMA="00060"
;
;CERVIX: C530,C531,C538,C539 H8000-8700,8720-8790,8805,8933,8980,9110
; 9700,9701
I "C530^C531^C538^C539"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!(HST14=8805)!((HST14>8809)&(HST14<8815))!((HST14>8815)&(HST14<8859))!((HST14>8859)&(HST14<8901))!((HST14>8901)&(HST14<8911)) S ONCSCMA="00528"
.I ((HST14>8920)&(HST14<8942))!((HST14>8950)&(HST14<8977))!((HST14>8980)&(HST14<8991))!((HST14>8991)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9106))!(HST14=9111) S ONCSCMA="00528"
.I ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9139))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!(HST14=9230) S ONCSCMA="00528"
.I ((HST14>9239)&(HST14<9366))!((HST14>9369)&(HST14<9581))!(HST14=9582) S ONCSCMA="00528"
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8933)!(HST14=8980)!(HST14=9110)!(HST14=9700)!(HST14=9701) D
..I DATEDX<3210000 S ONCSCMA="00520"
..I DATEDX>3201231 S ONCSCMA="09520"
;
;CNS OTHER: https://staging.seer.cancer.gov/eod_public/schema/1.7/cns_other/?breadcrumbs=(~schema_list~)
D CNS722^ONCSCHMV I ONCSCMA'=0 Q
;
;COLON AND RECTUM: C180,C182-189,C199,C209 H8000-8149,8154,8157,8160-
; 8231,8243-8248,8250-8682,8690-8700,8720-8790,9700,9701
I "C180^C182^C183^C184^C185^C186^C187^C188^C189^C199^C209"[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="00200"
;
;CONJUNCTIVA: C690 H8000-8700,9700,9701
I ONCTPCD="C690" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCSCMA="00650"
;
;CORPUS ADENOSARCOMA: C540-543,C548-549,C559 H8933
I "C540^C541^C542^C543^C548^C549^C559"[ONCTPCD D I ONCSCMA'=0 Q
.I HST14=8933 S ONCSCMA="00542"
;
;CORPUS CARCINOMA & CARCINOSARCOMA: C540-543,C548-549,C559 H8000-8700,
; 8720-8790,8950,8980,9700,9701
I "C540^C541^C542^C543^C548^C549^C559"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8950)!(HST14=8980)!(HST14=9700)!(HST14=9701) S ONCSCMA="00530"
;
;CORPUS SARCOMA: C540-543,C548-549,C559 H8710-8714,8800-8932,8934-8941,8951-8975,8981-9137,9141-9582
I "C540^C541^C542^C543^C548^C549^C559"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8933))!((HST14>8933)&(HST14<8942))!((HST14>8950)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00541"
;
;CUTANEOUS SQUAMOUS CELL CARCINOMA OF HEAD & NECK: C000-002,C006,
; C440,C442-444 H8000-8040,8042-8180,8191-8246,8248-8700,8940,8982
I "C000^C001^C002^C006^C440^C442^C443^C444"[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=8982) S ONCSCMA="00150"
;
;CYSTIC DUCT: C240 H8000-8700,8720-8790,9700,9701 DISCR=3
I ONCTPCD="C240" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I ONCSDIS1=3 S ONCSCMA="00242"
;
;DIGESTIVE OTHER: C260,C268-269 H8000-8700,8720-8790,9700,9701
I "C260^C268^C269^"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00288"
;
;ENDOCRINE OTHER: C754,C758-759 H8000-8700,8720-8790,9700,9701
; or C755 H8000-8671,8681-8683,8691,8720-8790,9700,9701
I "C754^C758^C759"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00778"
I ONCTPCD="C755" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8672))!((HST14>8680)&(HST14<8684))!(HST14=8691)!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00778"
;
;ESOPHAGUS (INCLUDING GE JUNCTION)(EXCLUDING SQUAMOUS)(ADENOCARCINOMA):
; C150-155,C158-159 H8000-8015,8021-8046,8060,8071-8073,8075-8076,
; 8078-8082,8084-8552,8561-8700,8720-8790,9700,9701
; or C160 H8000-8015,8021-8046,8060,8071-8073,8075-8076,
; 8078-8082,8084-8149,8154,8157,8160-8231,8243-8248,8250-8552,
; 8561-8682,8690-8700,8720-8790,9700,9701 DISCR1=2
; or C150-155,C158-159 H8020 DISCR2=2
; or C160 H8020 DISCR1=2 AND DISCR2=2
I "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8016))!((HST14>8020)&(HST14<8047))!(HST14=8060)!((HST14>8070)&(HST14<8074))!((HST14>8074)&(HST14<8077)) S ONCSCMA="00169"
.I ((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8553))!((HST14>8560)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCSCMA="00169"
I ONCTPCD="C160" D I ONCSCMA'=0 Q
.I ((HST14>7999)&(HST14<8016))!((HST14>8020)&(HST14<8047))!(HST14=8060)!((HST14>8070)&(HST14<8074))!((HST14>8074)&(HST14<8077)) D
..I ONCSDIS1=2 S ONCSCMA="00169"
.I ((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249)) D
..I ONCSDIS1=2 S ONCSCMA="00169"
.I ((HST14>8249)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) D
..I ONCSDIS1=2 S ONCSCMA="00169"
I "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8020)&(ONCSDIS2=2) S ONCSCMA="00169"
I ONCTPCD="C160" D I ONCSCMA'=0 Q
.I (HST14=8020)&((ONCSDIS1=2)&(ONCSDIS2=2)) S ONCSCMA="00169"
;
;ESOPHAGUS (INCLUDING GE JUNCTION)(SQUAMOUS):
; C150-155,C158-159 H8050-8054,8070,8074,8077,8083,8560
; or C160 H8050-8054,8070,8074,8077,8083,8560 DISCR1=2
; or C150-155,C158-159 H8020 DISCR2=1,9
; or C160 H8020 DISCR1=2 AND DISCR2=1,9
I "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD D I ONCSCMA'=0 Q
.I ((HST14>8049)&(HST14<8055))!(HST14=8070)!(HST14=8074)!(HST14=8077)!(HST14=8083)!(HST14=8560) S ONCSCMA="00161"
I ONCTPCD="C160" D I ONCSCMA'=0 Q
.I ((HST14>8049)&(HST14<8055))!(HST14=8070)!(HST14=8074)!(HST14=8077)!(HST14=8083)!(HST14=8560) D
..I ONCSDIS1=2 S ONCSCMA="00161"
I "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD D I ONCSCMA'=0 Q
.I (HST14=8020)&((ONCSDIS2=1)!(ONCSDIS2=9)) S ONCSCMA="00161"
I ONCTPCD="C160" D I ONCSCMA'=0 Q
.I (HST14=8020)&(ONCSDIS1=2)&((ONCSDIS2=1)!(ONCSDIS2=9)) S ONCSCMA="00161"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMA 12312 printed Oct 16, 2024@18:28:37 Page 2
ONCSCHMA ;HINES OIFO/RTK - Schema derivation and related code ;04/27/18
+1 ;;2.2;ONCOLOGY;**10,12,13,17,18**;Jul 31, 2013;Build 5
+2 ;
DER ;Derive the correct SCHEMA ID for the abstract based on Primary Site,
+1 ; Histology and possibly Schema Discriminators and Sex
+2 ; AND Store the SCHEMA ID in field #165.5,#3800
+3 ; TOPCOD should be set in Abstract
+4 NEW ONCHIST,ONCTPCD,ONCSDIS1,ONCSDIS2,ONCSSEX,ONCT3,HST14
+5 ;initialize the schema first
SET ONCSCMA=0
+6 SET ONCHIST=$$HIST^ONCFUNC(D0)
+7 IF '$DATA(TOPCOD)!('$DATA(ONCHIST))
WRITE !!," ** MISSING PRIMARY SITE AND/OR HISTOLOGY -- CANNOT DERIVE SCHEMA **",!
QUIT
+8 ;remove the "."
SET ONCTPCD=$PIECE(TOPCOD,".",1)_$PIECE(TOPCOD,".",2)
+9 SET HST14=$EXTRACT(ONCHIST,1,4)
SET HST5=$EXTRACT(ONCHIST,5)
SET ONCT3=$EXTRACT(ONCTPCD,2,5)
+10 ; Schema Discriminator 1
SET ONCSDIS1=$PIECE($GET(^ONCO(165.5,D0,"SSD4")),U,21)
+11 ; Schema Discriminator 2
SET ONCSDIS2=$PIECE($GET(^ONCO(165.5,D0,"SSD4")),U,22)
+12 ; Schema Discriminator 3
SET ONCSDIS3=$PIECE($GET(^ONCO(165.5,D0,"SSD4")),U,23)
+13 SET ONCPTPR=$PIECE($GET(^ONCO(165.5,D0,0)),U,2)
SET ONCSSEX=$PIECE($GET(^ONCO(160,ONCPTPR,0)),U,8)
IF $GET(ONCSSEX)=""
WRITE "CHECK PATIENT'S SEX FIELD IN PATIENT FILE"
HANG 2
+14 ;
+15 DO SCMA
+16 IF ONCSCMA=0
DO ^ONCSCHMB
+17 IF ONCSCMA=0
DO ^ONCSCHMC
+18 IF ONCSCMA=0
DO ^ONCSCHMD
+19 IF ONCSCMA=0
DO ^ONCSCHME
+20 ;
+21 IF ONCSCMA=0
WRITE !!," ** UNABLE TO DERIVE SCHEMA **",!!
+22 IF ONCSCMA'=0
SET $PIECE(^ONCO(165.5,D0,"SSD1"),U,1)=ONCSCMA
+23 ;
+24 KILL ONCPTPR
QUIT
+25 ;
+26 ;
SCMA ; go through until hit is found, else return ONCSCMA=0
+1 ;
+2 ;ADNEXA UTERINE OTHER: C571-C574 HIST 8000-8700,8720-8790,9700,9701
+3 IF "C571^C572^C573^C574"[ONCTPCD
Begin DoDot:1
+4 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))
SET ONCSCMA="00558"
End DoDot:1
IF ONCSCMA'=0
QUIT
+5 ;
+6 ;ADRENAL GLAND: C740,C741,C749 H8000-8671,8681-8683,8691,8720-8790,
+7 ; 9700,9701
+8 IF "C740^C741^C749"[ONCTPCD
Begin DoDot:1
+9 IF ((HST14>7999)&(HST14<8672))!((HST14>8680)&(HST14<8684))!((HST14>8719)&(HST14<8791))!(HST14=8691)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00760"
End DoDot:1
IF ONCSCMA'=0
QUIT
+10 ;
+11 ;AMPULLA OF VATER: C241 H8000-8149,8154,8157,8160-8231,8243-8248,8250-
+12 ; 8682,8690-8700,8720-8790,9700,9701
+13 IF ONCTPCD="C241"
Begin DoDot:1
+14 IF ((HST14>7999)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))!((HST14>8249)&(HST14<8683))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00270"
End DoDot:1
IF ONCSCMA'=0
QUIT
+15 ;
+16 ;ANUS: C210-C212,C218 H8000-8700,9700,9701
+17 ; or C211-C212,C218 H8720-8790
+18 IF "C210^C211^C212^C218"[ONCTPCD
Begin DoDot:1
+19 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))
Begin DoDot:2
+20 IF DATEDX<3230000
SET ONCSCMA="00210"
+21 IF DATEDX>3221231
SET ONCSCMA="09210"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+22 ;
+23 ;APPENDIX: C181 H8000-8149,8154,8157,8160-8231,8243-8248,8250-
+24 ; 8682,8690-8700,8720-8790,9700,9701
+25 IF ONCTPCD="C181"
Begin DoDot:1
+26 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))
Begin DoDot:2
+27 IF DATEDX<3230000
SET ONCSCMA="00190"
+28 IF DATEDX>3221231
SET ONCSCMA="09190"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+29 ;
+30 ;BILE DUCTS DISTAL: C240 H8000-8700,8720-8790,9700,9701 DISCR1=4,7
+31 IF ONCTPCD="C240"
Begin DoDot:1
+32 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+33 IF ((ONCSDIS1=4)!(ONCSDIS1=7))
SET ONCSCMA="00260"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+34 ;
+35 ;BILE DUCTS INTRAHEPATIC: C221 H8000-8700,8720-8790,9700,9701
+36 IF ONCTPCD="C221"
Begin DoDot:1
+37 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00230"
End DoDot:1
IF ONCSCMA'=0
QUIT
+38 ;
+39 ;BILE DUCTS PERIHILAR: C240 H8000-8700,8720-8790,9700-01 DISCR1=1,5,6,9
+40 IF ONCTPCD="C240"
Begin DoDot:1
+41 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+42 IF ((ONCSDIS1=1)!(ONCSDIS1=5)!(ONCSDIS1=6)!(ONCSDIS1=9))
SET ONCSCMA="00250"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+43 ;
+44 ;BILARY OTHER: C248-249 H8000-8700,8720-8790,9700,9701
+45 IF "C248^C249"[ONCTPCD
Begin DoDot:1
+46 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00278"
End DoDot:1
IF ONCSCMA'=0
QUIT
+47 ;
+48 ;BLADDER: C670-679 H8000-8700,8720-8790,9700,9701
+49 IF "C670^C671^C672^C673^C674^C675^C676^C677^C678^C679"[ONCTPCD
Begin DoDot:1
+50 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00620"
End DoDot:1
IF ONCSCMA'=0
QUIT
+51 ;
+52 ;BONE APPENDICULAR SKELETON: C400-403,408-411,413,418,419 H8000-8934,8940-9137,9141-9582,9700,9701
+53 IF "C400^C401^C402^C403^C408^C409^C410^C411^C413^C418^C419"[ONCTPCD
Begin DoDot:1
+54 IF ((HST14>7999)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00381"
End DoDot:1
IF ONCSCMA'=0
QUIT
+55 ;
+56 ;BONE PELVIS: C414 H8000-8934,8940-9137,9141-9582,9700,9701
+57 IF ONCTPCD="C414"
Begin DoDot:1
+58 IF ((HST14>7999)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00383"
End DoDot:1
IF ONCSCMA'=0
QUIT
+59 ;
+60 ;BONE SPINE: C412 H8000-8934,8940-9137,9141-9582,9700,9701
+61 IF ONCTPCD="C412"
Begin DoDot:1
+62 IF ((HST14>7999)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00382"
End DoDot:1
IF ONCSCMA'=0
QUIT
+63 ;
+64 ;BRAIN: do ONCSCHMV with V9 updates
+65 DO BRN721^ONCSCHMV
IF ONCSCMA'=0
QUIT
+66 ;
+67 ;BREAST: C500-506,508,509 H8000-8700,8982,8983,9700,9701
+68 ; or C501-506,508,509 H8720-8790
+69 IF "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD
Begin DoDot:1
+70 IF ((HST14>7999)&(HST14<8701))!(HST14=8982)!(HST14=8983)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00480"
End DoDot:1
IF ONCSCMA'=0
QUIT
+71 IF "C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD
Begin DoDot:1
+72 IF ((HST14>8719)&(HST14<8791))
SET ONCSCMA="00480"
End DoDot:1
IF ONCSCMA'=0
QUIT
+73 ;
+74 ;BUCCAL MUCOSA: C060,C061 H8000-8700,8982,9700,9701
+75 IF "C060^C061"[ONCTPCD
Begin DoDot:1
+76 IF ((HST14>7999)&(HST14<8701))!(HST14=8982)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00076"
End DoDot:1
IF ONCSCMA'=0
QUIT
+77 ;
+78 ;CERVICAL LYMPH NODES AND UNKNOWN PRIMARY: C760 H8000-8700,8720-8790
+79 ; 8941,9700,9701
+80 IF ONCTPCD="C760"
Begin DoDot:1
+81 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8941)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00060"
End DoDot:1
IF ONCSCMA'=0
QUIT
+82 ;
+83 ;CERVIX: C530,C531,C538,C539 H8000-8700,8720-8790,8805,8933,8980,9110
+84 ; 9700,9701
+85 IF "C530^C531^C538^C539"[ONCTPCD
Begin DoDot:1
+86 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!(HST14=8805)!((HST14>8809)&(HST14<8815))!((HST14>8815)&(HST14<8859))!((HST14>8859)&(HST14<8901))!((HST14>8901)&(HST14<8911))
SET ONCSCMA="00528"
+87 IF ((HST14>8920)&(HST14<8942))!((HST14>8950)&(HST14<8977))!((HST14>8980)&(HST14<8991))!((HST14>8991)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9106))!(HST14=9111)
SET ONCSCMA="00528"
+88 IF ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9139))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!(HST14=9230)
SET ONCSCMA="00528"
+89 IF ((HST14>9239)&(HST14<9366))!((HST14>9369)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00528"
+90 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8933)!(HST14=8980)!(HST14=9110)!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+91 IF DATEDX<3210000
SET ONCSCMA="00520"
+92 IF DATEDX>3201231
SET ONCSCMA="09520"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+93 ;
+94 ;CNS OTHER: https://staging.seer.cancer.gov/eod_public/schema/1.7/cns_other/?breadcrumbs=(~schema_list~)
+95 DO CNS722^ONCSCHMV
IF ONCSCMA'=0
QUIT
+96 ;
+97 ;COLON AND RECTUM: C180,C182-189,C199,C209 H8000-8149,8154,8157,8160-
+98 ; 8231,8243-8248,8250-8682,8690-8700,8720-8790,9700,9701
+99 IF "C180^C182^C183^C184^C185^C186^C187^C188^C189^C199^C209"[ONCTPCD
Begin DoDot:1
+100 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="00200"
End DoDot:1
IF ONCSCMA'=0
QUIT
+101 ;
+102 ;CONJUNCTIVA: C690 H8000-8700,9700,9701
+103 IF ONCTPCD="C690"
Begin DoDot:1
+104 IF ((HST14>7999)&(HST14<8701))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00650"
End DoDot:1
IF ONCSCMA'=0
QUIT
+105 ;
+106 ;CORPUS ADENOSARCOMA: C540-543,C548-549,C559 H8933
+107 IF "C540^C541^C542^C543^C548^C549^C559"[ONCTPCD
Begin DoDot:1
+108 IF HST14=8933
SET ONCSCMA="00542"
End DoDot:1
IF ONCSCMA'=0
QUIT
+109 ;
+110 ;CORPUS CARCINOMA & CARCINOSARCOMA: C540-543,C548-549,C559 H8000-8700,
+111 ; 8720-8790,8950,8980,9700,9701
+112 IF "C540^C541^C542^C543^C548^C549^C559"[ONCTPCD
Begin DoDot:1
+113 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8950)!(HST14=8980)!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00530"
End DoDot:1
IF ONCSCMA'=0
QUIT
+114 ;
+115 ;CORPUS SARCOMA: C540-543,C548-549,C559 H8710-8714,8800-8932,8934-8941,8951-8975,8981-9137,9141-9582
+116 IF "C540^C541^C542^C543^C548^C549^C559"[ONCTPCD
Begin DoDot:1
+117 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8933))!((HST14>8933)&(HST14<8942))!((HST14>8950)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00541"
End DoDot:1
IF ONCSCMA'=0
QUIT
+118 ;
+119 ;CUTANEOUS SQUAMOUS CELL CARCINOMA OF HEAD & NECK: C000-002,C006,
+120 ; C440,C442-444 H8000-8040,8042-8180,8191-8246,8248-8700,8940,8982
+121 IF "C000^C001^C002^C006^C440^C442^C443^C444"[ONCTPCD
Begin DoDot:1
+122 IF ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8701))!(HST14=8940)!(HST14=8982)
SET ONCSCMA="00150"
End DoDot:1
IF ONCSCMA'=0
QUIT
+123 ;
+124 ;CYSTIC DUCT: C240 H8000-8700,8720-8790,9700,9701 DISCR=3
+125 IF ONCTPCD="C240"
Begin DoDot:1
+126 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+127 IF ONCSDIS1=3
SET ONCSCMA="00242"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+128 ;
+129 ;DIGESTIVE OTHER: C260,C268-269 H8000-8700,8720-8790,9700,9701
+130 IF "C260^C268^C269^"[ONCTPCD
Begin DoDot:1
+131 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00288"
End DoDot:1
IF ONCSCMA'=0
QUIT
+132 ;
+133 ;ENDOCRINE OTHER: C754,C758-759 H8000-8700,8720-8790,9700,9701
+134 ; or C755 H8000-8671,8681-8683,8691,8720-8790,9700,9701
+135 IF "C754^C758^C759"[ONCTPCD
Begin DoDot:1
+136 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00778"
End DoDot:1
IF ONCSCMA'=0
QUIT
+137 IF ONCTPCD="C755"
Begin DoDot:1
+138 IF ((HST14>7999)&(HST14<8672))!((HST14>8680)&(HST14<8684))!(HST14=8691)!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00778"
End DoDot:1
IF ONCSCMA'=0
QUIT
+139 ;
+140 ;ESOPHAGUS (INCLUDING GE JUNCTION)(EXCLUDING SQUAMOUS)(ADENOCARCINOMA):
+141 ; C150-155,C158-159 H8000-8015,8021-8046,8060,8071-8073,8075-8076,
+142 ; 8078-8082,8084-8552,8561-8700,8720-8790,9700,9701
+143 ; or C160 H8000-8015,8021-8046,8060,8071-8073,8075-8076,
+144 ; 8078-8082,8084-8149,8154,8157,8160-8231,8243-8248,8250-8552,
+145 ; 8561-8682,8690-8700,8720-8790,9700,9701 DISCR1=2
+146 ; or C150-155,C158-159 H8020 DISCR2=2
+147 ; or C160 H8020 DISCR1=2 AND DISCR2=2
+148 IF "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD
Begin DoDot:1
+149 IF ((HST14>7999)&(HST14<8016))!((HST14>8020)&(HST14<8047))!(HST14=8060)!((HST14>8070)&(HST14<8074))!((HST14>8074)&(HST14<8077))
SET ONCSCMA="00169"
+150 IF ((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8553))!((HST14>8560)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCSCMA="00169"
End DoDot:1
IF ONCSCMA'=0
QUIT
+151 IF ONCTPCD="C160"
Begin DoDot:1
+152 IF ((HST14>7999)&(HST14<8016))!((HST14>8020)&(HST14<8047))!(HST14=8060)!((HST14>8070)&(HST14<8074))!((HST14>8074)&(HST14<8077))
Begin DoDot:2
+153 IF ONCSDIS1=2
SET ONCSCMA="00169"
End DoDot:2
+154 IF ((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8150))!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8249))
Begin DoDot:2
+155 IF ONCSDIS1=2
SET ONCSCMA="00169"
End DoDot:2
+156 IF ((HST14>8249)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
Begin DoDot:2
+157 IF ONCSDIS1=2
SET ONCSCMA="00169"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+158 IF "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD
Begin DoDot:1
+159 IF (HST14=8020)&(ONCSDIS2=2)
SET ONCSCMA="00169"
End DoDot:1
IF ONCSCMA'=0
QUIT
+160 IF ONCTPCD="C160"
Begin DoDot:1
+161 IF (HST14=8020)&((ONCSDIS1=2)&(ONCSDIS2=2))
SET ONCSCMA="00169"
End DoDot:1
IF ONCSCMA'=0
QUIT
+162 ;
+163 ;ESOPHAGUS (INCLUDING GE JUNCTION)(SQUAMOUS):
+164 ; C150-155,C158-159 H8050-8054,8070,8074,8077,8083,8560
+165 ; or C160 H8050-8054,8070,8074,8077,8083,8560 DISCR1=2
+166 ; or C150-155,C158-159 H8020 DISCR2=1,9
+167 ; or C160 H8020 DISCR1=2 AND DISCR2=1,9
+168 IF "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD
Begin DoDot:1
+169 IF ((HST14>8049)&(HST14<8055))!(HST14=8070)!(HST14=8074)!(HST14=8077)!(HST14=8083)!(HST14=8560)
SET ONCSCMA="00161"
End DoDot:1
IF ONCSCMA'=0
QUIT
+170 IF ONCTPCD="C160"
Begin DoDot:1
+171 IF ((HST14>8049)&(HST14<8055))!(HST14=8070)!(HST14=8074)!(HST14=8077)!(HST14=8083)!(HST14=8560)
Begin DoDot:2
+172 IF ONCSDIS1=2
SET ONCSCMA="00161"
End DoDot:2
End DoDot:1
IF ONCSCMA'=0
QUIT
+173 IF "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD
Begin DoDot:1
+174 IF (HST14=8020)&((ONCSDIS2=1)!(ONCSDIS2=9))
SET ONCSCMA="00161"
End DoDot:1
IF ONCSCMA'=0
QUIT
+175 IF ONCTPCD="C160"
Begin DoDot:1
+176 IF (HST14=8020)&(ONCSDIS1=2)&((ONCSDIS2=1)!(ONCSDIS2=9))
SET ONCSCMA="00161"
End DoDot:1
IF ONCSCMA'=0
QUIT
+177 QUIT
