ONCSCHMW ;HINES OIFO/RTK - Schema derivation and related code ;08/28/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
;
;
ITC723 ;INTRACRANIAL GLAND: V8 & V9 https://staging.seer.cancer.gov/eod_public/list/3.0/
I DATEDX<3230000 D
.I "C751^C752^C753"[ONCTPCD D I ONCSCMA'=0 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8900)!(HST14=9064)!(HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085) S ONCSCMA="00723"
..I (HST14=9100)!(HST14=9120)!(HST14=9140)!(HST14=9220)!(HST14=9362)!((HST14>9384)&(HST14<9402))!(HST14=9411)!((HST14>9423)&(HST14<9431)) S ONCSCMA="00723"
..I ((HST14>9439)&(HST14<9443))!(HST14=9445)!((HST14>9449)&(HST14<9452))!((HST14>9469)&(HST14<9472))!((HST14>9472)&(HST14<9479))!(HST14=9490)!(HST14=9500)!(HST14=9501)!(HST14=9505) S ONCSCMA="00723"
..I (HST14=9508)!(HST14=9530)!(HST14=9538)!(HST14=9680)!(HST14=9699)!((HST14>9699)&(HST14<9715))!((HST14>9750)&(HST14<9760)) S ONCSCMA="00723"
..I (HST5=0)!(HST5=1) D I ONCSCMA'=0 Q
...I ((HST14>9220)&(HST14<9362))!((HST14>9362)&(HST14<9374)) S ONCSCMA="00723"
;
I DATEDX>3221231 D
.I "C751^C752^C753"[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))!(HST14=8841)!(HST14=8842) S ONCSCMA="09723"
..I (HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!(HST14=8900)!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935)) S ONCSCMA="09723"
..I ((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))!(HST14=9230) S ONCSCMA="09723"
..I ((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9362))!(HST14=9363)!(HST14=9365)!((HST14>9369)&(HST14<9540))!(HST14=9541)!(HST14=9550)!(HST14=9560)!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9671) S ONCSCMA="09723"
..I (HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766) S ONCSCMA="09723"
..I (HST5=0)!(HST5=1)!(HST5=2) D I ONCSCMA'=0 Q
...I (HST14=8711)!((HST14>8799)&(HST14<8803))!((HST14>8803)&(HST14<8812))!(HST14=8815)!(HST14=8825)!(HST14=8832)!(HST14=8833)!(HST14=8840)!(HST14=8850)!(HST14=8852)!(HST14=8854)!(HST14=8858)!(HST14=8859)!(HST14=8890) S ONCSCMA="09723"
...I (HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=8930)!(HST14=8931)!(HST14=8935)!(HST14=8936)!(HST14=8991)!(HST14=9020)!(HST14=9040)!(HST14=9041)!(HST14=9043)!(HST14=9044)!(HST14=9133)!(HST14=9136)!(HST14=9180) S ONCSCMA="09723"
...I (HST14=9222)!(HST14=9231)!(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="09723"
...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="09723"
.I "C751^C752"[ONCTPCD D I ONCSCMA'=0 Q
..I (HST14=9362) S ONCSCMA="09723"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMW 3414 printed Oct 16, 2024@18:28:49 Page 2
ONCSCHMW ;HINES OIFO/RTK - Schema derivation and related code ;08/28/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 ;
ITC723 ;INTRACRANIAL GLAND: V8 & V9 https://staging.seer.cancer.gov/eod_public/list/3.0/
+1 IF DATEDX<3230000
Begin DoDot:1
+2 IF "C751^C752^C753"[ONCTPCD
Begin DoDot:2
+3 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8900)!(HST14=9064)!(HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)
SET ONCSCMA="00723"
+4 IF (HST14=9100)!(HST14=9120)!(HST14=9140)!(HST14=9220)!(HST14=9362)!((HST14>9384)&(HST14<9402))!(HST14=9411)!((HST14>9423)&(HST14<9431))
SET ONCSCMA="00723"
+5 IF ((HST14>9439)&(HST14<9443))!(HST14=9445)!((HST14>9449)&(HST14<9452))!((HST14>9469)&(HST14<9472))!((HST14>9472)&(HST14<9479))!(HST14=9490)!(HST14=9500)!(HST14=9501)!(HST14=9505)
SET ONCSCMA="00723"
+6 IF (HST14=9508)!(HST14=9530)!(HST14=9538)!(HST14=9680)!(HST14=9699)!((HST14>9699)&(HST14<9715))!((HST14>9750)&(HST14<9760))
SET ONCSCMA="00723"
+7 IF (HST5=0)!(HST5=1)
Begin DoDot:3
+8 IF ((HST14>9220)&(HST14<9362))!((HST14>9362)&(HST14<9374))
SET ONCSCMA="00723"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
End DoDot:1
+9 ;
+10 IF DATEDX>3221231
Begin DoDot:1
+11 IF "C751^C752^C753"[ONCTPCD
Begin DoDot:2
+12 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))!(HST14=8841)!(HST14=8842)
SET ONCSCMA="09723"
+13 IF (HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!(HST14=8900)!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))
SET ONCSCMA="09723"
+14 IF ((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))!(HST14=9230)
SET ONCSCMA="09723"
+15 IF ((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9362))!(HST14=9363)!(HST14=9365)!((HST14>9369)&(HST14<9540))!(HST14=9541)!(HST14=9550)!(HST14=9560)!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9671)
SET ONCSCMA="09723"
+16 IF (HST14=9680)!(HST14=9690)!(HST14=9699)!((HST14>9701)&(HST14<9716))!(HST14=9719)!(HST14=9749)!((HST14>9750)&(HST14<9760))!(HST14=9766)
SET ONCSCMA="09723"
+17 IF (HST5=0)!(HST5=1)!(HST5=2)
Begin DoDot:3
+18 IF (HST14=8711)!((HST14>8799)&(HST14<8803))!((HST14>8803)&(HST14<8812))!(HST14=8815)!(HST14=8825)!(HST14=8832)!(HST14=8833)!(HST14=8840)!(HST14=8850)!(HST14=8852)!(HST14=8854)!(HST14=8858)!(HST14=8859)!(HST14=8890)
SET ONCSCMA="09723"
+19 IF (HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=8930)!(HST14=8931)!(HST14=8935)!(HST14=8936)!(HST14=8991)!(HST14=9020)!(HST14=9040)!(HST14=9041)!(HST14=9043)!(HST14=9044)!(HST14=9133)!(HST14=9136)!(HST14=9180)
SET ONCSCMA="09723"
+20 IF (HST14=9222)!(HST14=9231)!(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="09723"
+21 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="09723"
End DoDot:3
IF ONCSCMA'=0
QUIT
End DoDot:2
IF ONCSCMA'=0
QUIT
+22 IF "C751^C752"[ONCTPCD
Begin DoDot:2
+23 IF (HST14=9362)
SET ONCSCMA="09723"
End DoDot:2
IF ONCSCMA'=0
QUIT
End DoDot:1
+24 QUIT
