- 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 Feb 18, 2025@23:54:38 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