ONCSCHMV ;HINES OIFO/RTK - Schema derivation and related code ;08/23/23
;;2.2;ONCOLOGY;**18**;Jul 31, 2013;Build 5
;
; This routine is called from ONCSCHMA-ONCSCHME to handle newer versions
; of the Schemas when the are released by the standard setters
;
;ANUS: V8 & V9 handled within ONCSCHMA
;
;APPENDIX: V8 & V9 handled within ONCSCHMA
;
BRN721 ;BRAIN: V8 & V9 https://staging.seer.cancer.gov/eod_public/list/3.0/
;
I DATEDX<3230000 D
.I "C700^C710^C711^C712^C713^C714^C715^C716^C717^C718^C719"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=8900)!(HST14=9064) S ONCSCMA="00721"
..I (HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085) S ONCSCMA="00721"
..I ((HST14>9099)&(HST14<9106))!(HST14=9120)!(HST14=9133)!(HST14=9140)!(HST14=9180)!(HST14=9220)!(HST14=9362)!(HST14=9364) S ONCSCMA="00721"
..I ((HST14>9379)!(HST14<9541))!(HST14=9680)!(HST14=9699)!((HST14>9701)&(HST14<9716))!((HST14>9750)&(HST14<9760)) S ONCSCMA="00721"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8815)&(HST14<8819))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882)) S ONCSCMA="00721"
...I ((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!(HST14=9111) S ONCSCMA="00721"
...I ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9139))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9214))!((HST14>9220)&(HST14<9362))!(HST14=9363) S ONCSCMA="00721"
...I ((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583))!((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9743))!(HST14=9749)!((HST14>9760)&(HST14<9994)) S ONCSCMA="00721"
;
I DATEDX>3221231 D
.I "C700^C710^C711^C712^C713^C714^C715^C716^C717^C718^C719"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8859))!((HST14>8859)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!(HST14=8992) S ONCSCMA="09721"
..I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9222))!(HST14=9230)!((HST14>9239)&(HST14<9362))!((HST14>9362)&(HST14<9366))!((HST14>9369)&(HST14<9461))!((HST14>9479)&(HST14<9501)) S ONCSCMA="09721"
..I ((HST14>9504)&(HST14<9508))!((HST14>9508)&(HST14<9581))!(HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716)) S ONCSCMA="09721"
..I (HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766) S ONCSCMA="09721"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8803)&(HST14<8807))!(HST14=8859)!(HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=8930)!(HST14=8931)!(HST14=8935)!(HST14=8936) S ONCSCMA="09721"
...I (HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9222)!(HST14=9231)!((HST14>9365)&(HST14<9369)) S ONCSCMA="09721"
...I (HST14=9581)!((HST14>9589)&(HST14<9664))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))!((HST14>9723)&(HST14<9743)) S ONCSCMA="09721"
...I ((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994)) S ONCSCMA="09721"
.Q
Q
;
;CERVIX: V8 & V9 handled within ONCSCHMA
;
CNS722 ;CNS OTHER: V8 & V9 https://staging.seer.cancer.gov/eod_public/list/3.0/
I DATEDX<3230000 D
.I "C701^C709^C720^C721^C728^C729"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=8900)!(HST14=9064) S ONCSCMA="00722"
..I (HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!((HST14>9099)&(HST14<9106))!(HST14=9120)!(HST14=9133)!(HST14=9140)!(HST14=9180)!(HST14=9220)!(HST14=9362)!(HST14=9364)!((HST14>9379)&(HST14<9541)) S ONCSCMA="00722"
..I (HST14=9680)!(HST14=9699)!((HST14>9699)&(HST14<9715))!((HST14>9750)&(HST14<9760)) S ONCSCMA="00722"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8709)&(HST14<8716))!(HST14=8800)!(HST14=8801)!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8709)&(HST14<8716))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899)) S ONCSCMA="00722"
...I ((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138)) S ONCSCMA="00722"
...I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583)) S ONCSCMA="00722"
.I "C722^C724^C725"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8900)!(HST14=9064) S ONCSCMA="00722"
..I (HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9120)!(HST14=9140)!(HST14=9220)!(HST14=9362)!((HST14>9379)&(HST14<9540)) S ONCSCMA="00722"
..I (HST14=9680)!((HST14>9698)&(HST14<9715))!((HST14>9750)&(HST14<9760)) S ONCSCMA="00722"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8709)&(HST14<8716))!((HST14>8799)&(HST14<8899))!((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!(HST14=9081)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9111)) S ONCSCMA="00722"
...I ((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9211))!((HST14>9220)&(HST14<9362))!((HST14>9362)&(HST14<9374))!((HST14>9539)&(HST14<9583)) S ONCSCMA="00722"
.I ONCTPCD="C723" D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9064)!(HST14=9070)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9140)!(HST14=9180)!(HST14=9362)!((HST14>9379)&(HST14<9421)) S ONCSCMA="00722"
..I ((HST14>9422)&(HST14<9473))!((HST14>9473)&(HST14<9494))!((HST14>9499)&(HST14<9522))!(HST14=9523)!((HST14>9530)&(HST14<9540))!(HST14=9680)!((HST14>9698)&(HST14<9715))!((HST14>9750)&(HST14<9760)) S ONCSCMA="00722"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8709)&(HST14<8716))!((HST14>8799)&(HST14<9064))!(HST14=9065)!(HST14=9071)!(HST14=9072)!(HST14=9073)!(HST14=9081)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9138)) S ONCSCMA="00722"
...I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9362))!((HST14>9362)&(HST14<9374))!(HST14=9421)!(HST14=9473)!(HST14=9500)!(HST14=9522)!(HST14=9530)!((HST14>9539)&(HST14<9583)) S ONCSCMA="00722"
.I "C701^C709^C720^C721^C722^C723^C724^C725^C726^C727^C728^C729"[ONCTPCD D I ONCSCMA'=0 Q
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))!((HST14>9715)&(HST14<9743))!((HST14>9760)&(HST14<9993)) S ONCSCMA="00722"
I DATEDX>3221231 D
.I "C701^C709^C720^C721^C728^C729"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8859))!((HST14>8859)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!(HST14=8992)!((HST14>8999)&(HST14<9017)) S ONCSCMA="09722"
..I ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9222))!(HST14=9230)!((HST14>9239)&(HST14<9362))!((HST14>9362)&(HST14<9366))!((HST14>9369)&(HST14<9461))!((HST14>9479)&(HST14<9501))!((HST14>9504)&(HST14<9508)) S ONCSCMA="09722"
..I ((HST14>9508)&(HST14<9581))!(HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766) S ONCSCMA="09722"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8803)&(HST14<8807))!(HST14=8859)!(HST14=8901)!((HST14>8909)&(HST14<8921))!((HST14>8929)&(HST14<8932))!((HST14>8934)&(HST14<8937))!(HST14=8991)!(HST14=9020) S ONCSCMA="09722"
...I (HST14=9044)!(HST14=9222)!(HST14=9231)!((HST14>9365)&(HST14<9369)) S ONCSCMA="09722"
...I (HST14=9581)!((HST14>9589)&(HST14<9663))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719)) S ONCSCMA="09722"
...I ((HST14>9723)&(HST14<9743))!((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994)) S ONCSCMA="09722"
.I "C722^C724^C725"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8711))!((HST14>8711)&(HST14<8791))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8815)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCSCMA="09722"
..I (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!(HST14=8900)!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCSCMA="09722"
..I ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!(HST14=8992)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9133))!(HST14=9135)!((HST14>9136)&(HST14<9176))!((HST14>9180)&(HST14<9222)) S ONCSCMA="09722"
..I (HST14=9230)!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9362))!(HST14=9363)!(HST14=9365)!((HST14>9369)&(HST14<9461))!((HST14>9479)&(HST14<9501))!((HST14>9504)&(HST14<9508)) S ONCSCMA="09722"
..I ((HST14>9508)&(HST14<9540))!(HST14=9541)!(HST14=9550)!(HST14=9560)!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699) S ONCSCMA="09722"
..I ((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766) S ONCSCMA="09722"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I (HST14=8711)!((HST14>8799)&(HST14<8803))!((HST14>8803)&(HST14<8812))!(HST14=8815)!(HST14=8825)!((HST14>8831)&(HST14<8834))!(HST14=8840) S ONCSCMA="09722"
...I (HST14=8850)!(HST14=8852)!(HST14=8854)!(HST14=8858)!(HST14=8859)!(HST14=8890)!(HST14=8901) S ONCSCMA="09722"
...I ((HST14>8909)&(HST14<8921))!(HST14=8930)!(HST14=8931)!(HST14=8935)!(HST14=8936)!(HST14=8991)!(HST14=9020)!(HST14=9040)!(HST14=9041) S ONCSCMA="09722"
...I (HST14=9043)!(HST14=9044)!(HST14=9133)!(HST14=9136)!(HST14=9180)!(HST14=9222)!(HST14=9231) S ONCSCMA="09722"
...I (HST14=9251)!(HST14=9364)!((HST14>9365)&(HST14<9369))!(HST14=9540)!(HST14=9542)!(HST14=9561)!(HST14=9580)!(HST14=9581)!((HST14>9589)&(HST14<9664))!((HST14>9672)&(HST14<9680)) S ONCSCMA="09722"
...I ((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))!((HST14>9723)&(HST14<9743))!((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994)) S ONCSCMA="09722"
.I ONCTPCD="C723" D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8791))!(HST14=8803)!(HST14=8812)!(HST14=8813)!((HST14>8815)&(HST14<8825))!((HST14>8825)&(HST14<8829))!(HST14=8831) S ONCSCMA="09722"
..I ((HST14>8832)&(HST14<8837))!(HST14=8841)!(HST14=8842)!(HST14=8851)!((HST14>8854)&(HST14<8858)) S ONCSCMA="09722"
..I ((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8901)&(HST14<8906))!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8961)) S ONCSCMA="09722"
..I ((HST14>8963)&(HST14<8991))!(HST14=8992)!((HST14>8999)&(HST14<9017))!(HST14=9030)!((HST14>9040)&(HST14<9044)) S ONCSCMA="09722"
..I ((HST14>9044)&(HST14<9071))!((HST14>9071)&(HST14<9112))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9143))!((HST14>9159)&(HST14<9214))!(HST14=9221)!(HST14=9230)!((HST14>9240)&(HST14<9362))!(HST14=9363)!(HST14=9365) S ONCSCMA="09722"
..I ((HST14>9369)&(HST14<9421))!((HST14>9242)&(HST14<9461))!((HST14>9479)&(HST14<9494))!((HST14>9504)&(HST14<9508))!((HST14>9508)&(HST14<9522))!(HST14=9523)!((HST14>9530)&(HST14<9540))!((HST14>9540)&(HST14<9572)) S ONCSCMA="09722"
..I (HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766) S ONCSCMA="09722"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>8799)&(HST14<8803))!((HST14>8803)&(HST14<8812))!(HST14=8814)!(HST14=8815)!(HST14=8825)!(HST14=8830)!(HST14=8832)!(HST14=8840)!(HST14=8850)!((HST14>8851)&(HST14<8855))!(HST14=8858)!(HST14=8859)!(HST14=8890) S ONCSCMA="09722"
...I (HST14=8900)!(HST14=8901)!((HST14>8909)&(HST14<8932))!((HST14>8934)&(HST14<8941))!(HST14=8963)!(HST14=8991)!(HST14=9020)!(HST14=9040)!(HST14=9044)!(HST14=9071)!(HST14=9120)!(HST14=9133) S ONCSCMA="09722"
...I (HST14=9150)!(HST14=9220)!(HST14=9222)!(HST14=9231)!(HST14=9240)!(HST14=9364)!((HST14>9365)&(HST14<9369))!(HST14=9421)!(HST14=9473)!(HST14=9500)!(HST14=9522) S ONCSCMA="09722"
...I (HST14=9530)!(HST14=9540)!(HST14=9580)!(HST14=9581)!((HST14>9589)&(HST14<9664)) S ONCSCMA="09722"
...I ((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))!((HST14>9723)&(HST14<9743))!((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994)) S ONCSCMA="09722"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMV 12893 printed Apr 09, 2024@21:28:13 Page 2
ONCSCHMV ;HINES OIFO/RTK - Schema derivation and related code ;08/23/23
+1 ;;2.2;ONCOLOGY;**18**;Jul 31, 2013;Build 5
+2 ;
+3 ; This routine is called from ONCSCHMA-ONCSCHME to handle newer versions
+4 ; of the Schemas when the are released by the standard setters
+5 ;
+6 ;ANUS: V8 & V9 handled within ONCSCHMA
+7 ;
+8 ;APPENDIX: V8 & V9 handled within ONCSCHMA
+9 ;
BRN721 ;BRAIN: V8 & V9 https://staging.seer.cancer.gov/eod_public/list/3.0/
+1 ;
+2 IF DATEDX<3230000
Begin DoDot:1
+3 IF "C700^C710^C711^C712^C713^C714^C715^C716^C717^C718^C719"[ONCTPCD
Begin DoDot:2
+4 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=8900)!(HST14=9064)
SET ONCSCMA="00721"
+5 IF (HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)
SET ONCSCMA="00721"
+6 IF ((HST14>9099)&(HST14<9106))!(HST14=9120)!(HST14=9133)!(HST14=9140)!(HST14=9180)!(HST14=9220)!(HST14=9362)!(HST14=9364)
SET ONCSCMA="00721"
+7 IF ((HST14>9379)!(HST14<9541))!(HST14=9680)!(HST14=9699)!((HST14>9701)&(HST14<9716))!((HST14>9750)&(HST14<9760))
SET ONCSCMA="00721"
+8 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+9 IF ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8815)&(HST14<8819))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))
SET ONCSCMA="00721"
+10 IF ((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!(HST14=9111)
SET ONCSCMA="00721"
+11 IF ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9139))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9214))!((HST14>9220)&(HST14<9362))!(HST14=9363)
SET ONCSCMA="00721"
+12 IF ((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583))!((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9743))!(HST14=9749)!((HST14>9760)&(HST14<9994))
SET ONCSCMA="00721"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
End DoDot:1
+13 ;
+14 IF DATEDX>3221231
Begin DoDot:1
+15 IF "C700^C710^C711^C712^C713^C714^C715^C716^C717^C718^C719"[ONCTPCD
Begin DoDot:2
+16 IF ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8859))!((HST14>8859)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!(HST14=8992)
SET ONCSCMA="09721"
+17 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9222))!(HST14=9230)!((HST14>9239)&(HST14<9362))!((HST14>9362)&(HST14<9366))!((HST14>9369)&(HST14<9461))!((HST14>9479)&(HST14<9501))
SET ONCSCMA="09721"
+18 IF ((HST14>9504)&(HST14<9508))!((HST14>9508)&(HST14<9581))!(HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))
SET ONCSCMA="09721"
+19 IF (HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766)
SET ONCSCMA="09721"
+20 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+21 IF ((HST14>8803)&(HST14<8807))!(HST14=8859)!(HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=8930)!(HST14=8931)!(HST14=8935)!(HST14=8936)
SET ONCSCMA="09721"
+22 IF (HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9222)!(HST14=9231)!((HST14>9365)&(HST14<9369))
SET ONCSCMA="09721"
+23 IF (HST14=9581)!((HST14>9589)&(HST14<9664))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))!((HST14>9723)&(HST14<9743))
SET ONCSCMA="09721"
+24 IF ((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994))
SET ONCSCMA="09721"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+25 QUIT
End DoDot:1
+26 QUIT
+27 ;
+28 ;CERVIX: V8 & V9 handled within ONCSCHMA
+29 ;
CNS722 ;CNS OTHER: V8 & V9 https://staging.seer.cancer.gov/eod_public/list/3.0/
+1 IF DATEDX<3230000
Begin DoDot:1
+2 IF "C701^C709^C720^C721^C728^C729"[ONCTPCD
Begin DoDot:2
+3 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=8900)!(HST14=9064)
SET ONCSCMA="00722"
+4 IF (HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!((HST14>9099)&(HST14<9106))!(HST14=9120)!(HST14=9133)!(HST14=9140)!(HST14=9180)!(HST14=9220)!(HST14=9362)!(HST14=9364)!((HST14>9379)&(HST14<9541))
SET ONCSCMA="00722"
+5 IF (HST14=9680)!(HST14=9699)!((HST14>9699)&(HST14<9715))!((HST14>9750)&(HST14<9760))
SET ONCSCMA="00722"
+6 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+7 IF ((HST14>8709)&(HST14<8716))!(HST14=8800)!(HST14=8801)!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8709)&(HST14<8716))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<88
99))
SET ONCSCMA="00722"
+8 IF ((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))
SET ONCSCMA="00722"
+9 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583))
SET ONCSCMA="00722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+10 IF "C722^C724^C725"[ONCTPCD
Begin DoDot:2
+11 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8900)!(HST14=9064)
SET ONCSCMA="00722"
+12 IF (HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9120)!(HST14=9140)!(HST14=9220)!(HST14=9362)!((HST14>9379)&(HST14<9540))
SET ONCSCMA="00722"
+13 IF (HST14=9680)!((HST14>9698)&(HST14<9715))!((HST14>9750)&(HST14<9760))
SET ONCSCMA="00722"
+14 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+15 IF ((HST14>8709)&(HST14<8716))!((HST14>8799)&(HST14<8899))!((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!(HST14=9081)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9111))
SET ONCSCMA="00722"
+16 IF ((HST14>9120)&(HST14<9138))!((HST14>9140)&(HST14<9211))!((HST14>9220)&(HST14<9362))!((HST14>9362)&(HST14<9374))!((HST14>9539)&(HST14<9583))
SET ONCSCMA="00722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+17 IF ONCTPCD="C723"
Begin DoDot:2
+18 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9064)!(HST14=9070)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9140)!(HST14=9180)!(HST14=9362)!((HST14>9379)&(HST14<9421))
SET ONCSCMA="00722"
+19 IF ((HST14>9422)&(HST14<9473))!((HST14>9473)&(HST14<9494))!((HST14>9499)&(HST14<9522))!(HST14=9523)!((HST14>9530)&(HST14<9540))!(HST14=9680)!((HST14>9698)&(HST14<9715))!((HST14>9750)&(HST14<9760))
SET ONCSCMA="00722"
+20 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+21 IF ((HST14>8709)&(HST14<8716))!((HST14>8799)&(HST14<9064))!(HST14=9065)!(HST14=9071)!(HST14=9072)!(HST14=9073)!(HST14=9081)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9138))
SET ONCSCMA="00722"
+22 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9362))!((HST14>9362)&(HST14<9374))!(HST14=9421)!(HST14=9473)!(HST14=9500)!(HST14=9522)!(HST14=9530)!((HST14>9539)&(HST14<9583))
SET ONCSCMA="00722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+23 IF "C701^C709^C720^C721^C722^C723^C724^C725^C726^C727^C728^C729"[ONCTPCD
Begin DoDot:2
+24 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+25 IF ((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))!((HST14>9715)&(HST14<9743))!((HST14>9760)&(HST14<9993))
SET ONCSCMA="00722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
End DoDot:1
+26 IF DATEDX>3221231
Begin DoDot:1
+27 IF "C701^C709^C720^C721^C728^C729"[ONCTPCD
Begin DoDot:2
+28 IF ((HST14>7999)&(HST14<8804))!((HST14>8809)&(HST14<8859))!((HST14>8859)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!(HST14=8992)!((HST14>8999)&(HST14<9017))
SET ONCSCMA="09722"
+29 IF ((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9222))!(HST14=9230)!((HST14>9239)&(HST14<9362))!((HST14>9362)&(HST14<9366))!((HST14>9369)&(HST14<9461))!((HST14>9479)&(HST14<9501))!((HST14>9504)&(HST14<9508))
SET ONCSCMA="09722"
+30 IF ((HST14>9508)&(HST14<9581))!(HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766)
SET ONCSCMA="09722"
+31 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+32 IF ((HST14>8803)&(HST14<8807))!(HST14=8859)!(HST14=8901)!((HST14>8909)&(HST14<8921))!((HST14>8929)&(HST14<8932))!((HST14>8934)&(HST14<8937))!(HST14=8991)!(HST14=9020)
SET ONCSCMA="09722"
+33 IF (HST14=9044)!(HST14=9222)!(HST14=9231)!((HST14>9365)&(HST14<9369))
SET ONCSCMA="09722"
+34 IF (HST14=9581)!((HST14>9589)&(HST14<9663))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))
SET ONCSCMA="09722"
+35 IF ((HST14>9723)&(HST14<9743))!((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994))
SET ONCSCMA="09722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+36 IF "C722^C724^C725"[ONCTPCD
Begin DoDot:2
+37 IF ((HST14>7999)&(HST14<8711))!((HST14>8711)&(HST14<8791))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8815)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCSCMA="09722"
+38 IF (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!(HST14=8900)!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCSCMA="09722"
+39 IF ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!(HST14=8992)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9133))!(HST14=9135)!((HST14>9136)&(HST14<9176))!((HST14>9180)&(HST14<9222))
SET ONCSCMA="09722"
+40 IF (HST14=9230)!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9362))!(HST14=9363)!(HST14=9365)!((HST14>9369)&(HST14<9461))!((HST14>9479)&(HST14<9501))!((HST14>9504)&(HST14<9508))
SET ONCSCMA="09722"
+41 IF ((HST14>9508)&(HST14<9540))!(HST14=9541)!(HST14=9550)!(HST14=9560)!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)
SET ONCSCMA="09722"
+42 IF ((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766)
SET ONCSCMA="09722"
+43 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+44 IF (HST14=8711)!((HST14>8799)&(HST14<8803))!((HST14>8803)&(HST14<8812))!(HST14=8815)!(HST14=8825)!((HST14>8831)&(HST14<8834))!(HST14=8840)
SET ONCSCMA="09722"
+45 IF (HST14=8850)!(HST14=8852)!(HST14=8854)!(HST14=8858)!(HST14=8859)!(HST14=8890)!(HST14=8901)
SET ONCSCMA="09722"
+46 IF ((HST14>8909)&(HST14<8921))!(HST14=8930)!(HST14=8931)!(HST14=8935)!(HST14=8936)!(HST14=8991)!(HST14=9020)!(HST14=9040)!(HST14=9041)
SET ONCSCMA="09722"
+47 IF (HST14=9043)!(HST14=9044)!(HST14=9133)!(HST14=9136)!(HST14=9180)!(HST14=9222)!(HST14=9231)
SET ONCSCMA="09722"
+48 IF (HST14=9251)!(HST14=9364)!((HST14>9365)&(HST14<9369))!(HST14=9540)!(HST14=9542)!(HST14=9561)!(HST14=9580)!(HST14=9581)!((HST14>9589)&(HST14<9664))!((HST14>9672)&(HST14<9680))
SET ONCSCMA="09722"
+49 IF ((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))!((HST14>9723)&(HST14<9743))!((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<9994))
SET ONCSCMA="09722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+50 IF ONCTPCD="C723"
Begin DoDot:2
+51 IF ((HST14>7999)&(HST14<8791))!(HST14=8803)!(HST14=8812)!(HST14=8813)!((HST14>8815)&(HST14<8825))!((HST14>8825)&(HST14<8829))!(HST14=8831)
SET ONCSCMA="09722"
+52 IF ((HST14>8832)&(HST14<8837))!(HST14=8841)!(HST14=8842)!(HST14=8851)!((HST14>8854)&(HST14<8858))
SET ONCSCMA="09722"
+53 IF ((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8901)&(HST14<8906))!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8961))
SET ONCSCMA="09722"
+54 IF ((HST14>8963)&(HST14<8991))!(HST14=8992)!((HST14>8999)&(HST14<9017))!(HST14=9030)!((HST14>9040)&(HST14<9044))
SET ONCSCMA="09722"
+55 IF ((HST14>9044)&(HST14<9071))!((HST14>9071)&(HST14<9112))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9143))!((HST14>9159)&(HST14<9214))!(HST14=9221)!(HST14=9230)!((HST14>9240)&(HST14<9362))!(HST14=9363)!(HST14=9365)
SET ONCSCMA="09722"
+56 IF ((HST14>9369)&(HST14<9421))!((HST14>9242)&(HST14<9461))!((HST14>9479)&(HST14<9494))!((HST14>9504)&(HST14<9508))!((HST14>9508)&(HST14<9522))!(HST14=9523)!((HST14>9530)&(HST14<9540))!((HST14>9540)&(HST14<9572))
SET ONCSCMA="09722"
+57 IF (HST14=9582)!(HST14=9671)!(HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766)
SET ONCSCMA="09722"
+58 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+59 IF ((HST14>8799)&(HST14<8803))!((HST14>8803)&(HST14<8812))!(HST14=8814)!(HST14=8815)!(HST14=8825)!(HST14=8830)!(HST14=8832)!(HST14=8840)!(HST14=8850)!((HST14>8851)&(HST14<8855))!(HST14=8858)!(HST14=8859)!(HST14=8890)
SET ONCSCMA="09722"
+60 IF (HST14=8900)!(HST14=8901)!((HST14>8909)&(HST14<8932))!((HST14>8934)&(HST14<8941))!(HST14=8963)!(HST14=8991)!(HST14=9020)!(HST14=9040)!(HST14=9044)!(HST14=9071)!(HST14=9120)!(HST14=9133)
SET ONCSCMA="09722"
+61 IF (HST14=9150)!(HST14=9220)!(HST14=9222)!(HST14=9231)!(HST14=9240)!(HST14=9364)!((HST14>9365)&(HST14<9369))!(HST14=9421)!(HST14=9473)!(HST14=9500)!(HST14=9522)
SET ONCSCMA="09722"
+62 IF (HST14=9530)!(HST14=9540)!(HST14=9580)!(HST14=9581)!((HST14>9589)&(HST14<9664))
SET ONCSCMA="09722"
+63 IF ((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9690))!((HST14>9690)&(HST14<9699))!(HST14=9700)!(HST14=9701)!((HST14>9715)&(HST14<9719))!((HST14>9723)&(HST14<9743))!((HST14>9760)&(HST14<9766))!((HST14>9766)&(HST14<99
94))
SET ONCSCMA="09722"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
End DoDot:1
+64 QUIT
