ONCSCHM0 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/18/20
;;2.2;ONCOLOGY;**12,17,18,21**;Jul 31, 2013;Build 6
;
;00150 Cutaneous Squamous Cell Carcinoma Head and Neck 15/XX
I ONCSCMA="00150" D I ONCJFG=1 Q
.I (ONCTPCD="C000")!(ONCTPCD="C001")!(ONCTPCD="C002")!(ONCTPCD="C006")!(ONCTPCD="C440")!(ONCTPCD="C442")!(ONCTPCD="C443")!(ONCTPCD="C444") D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8087))!((HST14>8093)&(HST14<8103))!((HST14>8119)&(HST14<8181))!(HST14=8191) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8200)&(HST14<8211))!((HST14>8211)&(HST14<8247))!((HST14>8247)&(HST14<8393))!(HST14=8400)!((HST14>8403)&(HST14<8407))!((HST14>8412)&(HST14<8475))!((HST14>8480)&(HST14<8701)) S ONCAJID="XX",ONCJFG=1 Q
;
;00170 Stomach 17/XX
I ONCSCMA="00170" D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8082)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8082)&(HST14<8132))!(HST14=8141)!(HST14=8143)!(HST14=8146)!(HST14=8147)!(HST14=8149)!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8211))!(HST14=8212) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8214)&(HST14<8232))!(HST14=8243)!(HST14=8245)!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8255))!(HST14=8256)!(HST14=8257)!((HST14>8260)&(HST14<8475))!(HST14=8481)!(HST14=8482) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8499)&(HST14<8510))!((HST14>8512)&(HST14<8553))!((HST14>8560)&(HST14<8576))!((HST14>8579)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00190/09190 Appendix 19/XX
I (ONCSCMA="00190")!(ONCSCMA="09190") D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8140)&(HST14<8148))!(HST14=8149)!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8205))!((HST14>8210)&(HST14<8232)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8255))!((HST14>8255)&(HST14<8475))!(HST14=8482) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8499)&(HST14<8510))!((HST14>8511)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00200 Rectum and Colon 20/XX
I ONCSCMA="00200" D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8140)&(HST14<8150))!(HST14=8157)!((HST14>8159)&(HST14<8213)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8213)&(HST14<8232))!(HST14=8243)!(HST14=8244)!(HST14=8245)!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8262))!((HST14>8262)&(HST14<8265))!((HST14>8269)&(HST14<8475))!(HST14=8482) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8499)&(HST14<8510))!((HST14>8511)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00210/09210 Anus 21/XX
I (ONCSCMA="00210")!(ONCSCMA="09210") D I ONCJFG=1 Q
.I ONCTPCD="C212" D I ONCJFG=1 Q
..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8051)!((HST14>8069)&(HST14<8073)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8077)!(HST14=8083)!(HST14=8090)!(HST14=8123)!(HST14=8124)!(HST14=8140)!(HST14=8244)!(HST14=8246)!(HST14=8480)!(HST14=8542) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C210")!(ONCTPCD="C211")!(ONCTPCD="C212")!(ONCTPCD="C218") D I ONCJFG=1 Q
..I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8051)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8072)&(HST14<8077))!((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8087))!((HST14>8090)&(HST14<8123))!(HST14=8130)!(HST14=8131) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8140)&(HST14<8244))!(HST14=8245)!((HST14>8246)&(HST14<8475))!((HST14>8480)&(HST14<8542))!((HST14>8542)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00280 Pancreas 28/XX
I ONCSCMA="00280" D I ONCJFG=1 Q
.I ONCTPCD="C254" D I ONCJFG=1 Q
..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8035)!(HST14=8041)!(HST14=8140)!(HST14=8148)!(HST14=8154)!(HST14=8246)!(HST14=8441)!(HST14=8452)!(HST14=8453)!(HST14=8470) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8480)!(HST14=8481)!(HST14=8490)!(HST14=8500)!(HST14=8503)!(HST14=8510)!(HST14=8550)!(HST14=8551)!(HST14=8552)!(HST14=8560)!(HST14=8576)!(HST14=8971) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C250")!(ONCTPCD="C251")!(ONCTPCD="C252")!(ONCTPCD="C253")!(ONCTPCD="C254")!(ONCTPCD="C257")!(ONCTPCD="C258")!(ONCTPCD="C259") D I ONCJFG=1 Q
..I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8035))!(HST14=8040)!((HST14>8041)&(HST14<8132))!((HST14>8140)&(HST14<8148))!(HST14=8149) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8246))!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8441))!((HST14>8441)&(HST14<8452))!((HST14>8453)&(HST14<8464)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8470)&(HST14<8475))!(HST14=8482)!(HST14=8501)!(HST14=8502)!((HST14>8503)&(HST14<8510))!((HST14>8511)&(HST14<8544)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8560)&(HST14<8576))!((HST14>8579)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00290/09290 NET Stomach 29/XX
I (ONCSCMA="00290")!(ONCSCMA="09290") D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8240)!(HST14=8249) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q ;patch 21 remove 8241)
.;I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
;
;00301/09301 00302/09302 NET Duodenum/NET Ampulla of Vater 30/XX
I (ONCSCMA="00301")!(ONCSCMA="00302")!(ONCSCMA="09301")!(ONCSCMA="09302") D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8153)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
.I ONCSCMA="09302" D
..I ((HST14>8150)&(HST14<8153))!(HST14=8155)!(HST14=8241)!(HST14=8242) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCSCMA="00301")!(ONCSCMA="00302")!(ONCSCMA="09301") D
..I ((HST14>8149)&(HST14<8153))!(HST14=8155)!(HST14=8241)!(HST14=8242) S ONCAJID="XX",ONCJFG=1 Q
;
;00310/09310 NET Jejunum and Ileum 31/XX
I (ONCSCMA="00310")!(ONCSCMA="09310") D I ONCJFG=1 Q
.I (ONCTPCD="C171")!(ONCTPCD="C172") D I ONCJFG=1 Q
..I $E(ONCHIST,5)=2 D
...I (HST14=8240)!(HST14=8249) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C173")!(ONCTPCD="C178")!(ONCTPCD="C179") D I ONCJFG=1 Q
..I (HST14=8240)!(HST14=8249) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C171")!(ONCTPCD="C172")!(ONCTPCD="C173")!(ONCTPCD="C178")!(ONCTPCD="C179") D I ONCJFG=1 Q
..I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
;
;00320/09320 00330/09330 NET Appendix/NET Colon and Rectum 32/33/XX
I (ONCSCMA="00320")!(ONCSCMA="00330")!(ONCSCMA="09320")!(ONCSCMA="09330") D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8240)!(HST14=8249) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q ; patch 21
.;I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q ; original line
;
;00340/09340 NET Pancreas 34/XX
I (ONCSCMA="00340")!(ONCSCMA="09340") D I ONCJFG=1 Q
.I "C250^C251^C252^C254^C257^C258^C259"[ONCTPCD D
..I $E(ONCHIST,5)=2 D
...I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249) S ONCAJID="XX",ONCJFG=1 Q
.I ONCTPCD="C253" D I ONCJFG=1 Q
..I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249) S ONCAJID="XX",ONCJFG=1 Q
.I "C250^C251^C252^C253^C254^C257^C258^C259"[ONCTPCD D
..I (HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
;
;00370 Pleura/Pleural Mesothelioma 37/XX
I ONCSCMA="00370" D I ONCJFG=1 Q
.I "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349"[ONCTPCD D
..I ((HST14>9049)&(HST14<9054)) S ONCAJID="XX",ONCJFG=1 Q
;
;00381 00382 00383 Bone App Skeleton/Bone Spine/Bone Pelvis 38.1/38.2/38.1/XX
I (ONCSCMA="00381")!(ONCSCMA="00382")!(ONCSCMA="00383") D I ONCJFG=1 Q
.I ((HST14>7999)&(HST14<8791))!(HST14=8802)!(HST14=8803)!(HST14=8805)!(HST14=8806)!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8828))!((HST14>8830)&(HST14<8843))!((HST14>8850)&(HST14<8882)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<8935))!((HST14>8939)&(HST14<9031))!((HST14>9040)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=9186)!(HST14=9191)!(HST14=9195)!((HST14>9199)&(HST14<9211))!(HST14=9230)!(HST14=9241)!((HST14>9250)&(HST14<9261))!((HST14>9261)&(HST14<9364))!(HST14=9365) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>9372)&(HST14<9540))!((HST14>9540)&(HST14<9583))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00422 Heart, Mediastinum and Pleura 42/XX
I ONCSCMA="00422" D I ONCJFG=1 Q
.I "C380^C381^C382^C383^C384^C388"[ONCTPCD D
..I ((HST14>7999)&(HST14<8711))!((HST14>8711)&(HST14<8791))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!(HST14=9045)!((HST14>9053)&(HST14<9111))!((HST14>9120)&(HST14<9133)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
.I "C380^C381^C382^C383^C388"[ONCTPCD D
..I ((HST14>9049)&(HST14<9054)) S ONCAJID="XX",ONCJFG=1 Q
;
;00440 Retroperitoneum 44/XX
I ONCSCMA="00440" D I ONCJFG=1 Q
.I ((HST14>7999)&(HST14<8701))!(HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8719)&(HST14<8791))!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8834)!(HST14=8835)!(HST14=8836)!(HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00458 Kaposi Sarcoma 45/XX
I ONCSCMA="00458" D I ONCJFG=1 Q
.I ((ONCT3>389)&(ONCT3<450))!((ONCT3>539)&(ONCT3<560))!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C750")!((ONCT3>753)&(ONCT3<780)) S ONCAJID="XX",ONCJFG=1 Q
;
D ^ONCSCHM1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHM0 12303 printed Sep 23, 2025@20:03:58 Page 2
ONCSCHM0 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/18/20
+1 ;;2.2;ONCOLOGY;**12,17,18,21**;Jul 31, 2013;Build 6
+2 ;
+3 ;00150 Cutaneous Squamous Cell Carcinoma Head and Neck 15/XX
+4 IF ONCSCMA="00150"
Begin DoDot:1
+5 IF (ONCTPCD="C000")!(ONCTPCD="C001")!(ONCTPCD="C002")!(ONCTPCD="C006")!(ONCTPCD="C440")!(ONCTPCD="C442")!(ONCTPCD="C443")!(ONCTPCD="C444")
Begin DoDot:2
+6 IF ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8087))!((HST14>8093)&(HST14<8103))!((HST14>8119)&(HST14<8181))!(HST14=8191)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+7 IF ((HST14>8200)&(HST14<8211))!((HST14>8211)&(HST14<8247))!((HST14>8247)&(HST14<8393))!(HST14=8400)!((HST14>8403)&(HST14<8407))!((HST14>8412)&(HST14<8475))!((HST14>8480)&(HST14<8701))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+8 ;
+9 ;00170 Stomach 17/XX
+10 IF ONCSCMA="00170"
Begin DoDot:1
+11 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8082))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+12 IF ((HST14>8082)&(HST14<8132))!(HST14=8141)!(HST14=8143)!(HST14=8146)!(HST14=8147)!(HST14=8149)!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8211))!(HST14=8212)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+13 IF ((HST14>8214)&(HST14<8232))!(HST14=8243)!(HST14=8245)!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8255))!(HST14=8256)!(HST14=8257)!((HST14>8260)&(HST14<8475))!(HST14=8481)!(HST14=8482)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+14 IF ((HST14>8499)&(HST14<8510))!((HST14>8512)&(HST14<8553))!((HST14>8560)&(HST14<8576))!((HST14>8579)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+15 ;
+16 ;00190/09190 Appendix 19/XX
+17 IF (ONCSCMA="00190")!(ONCSCMA="09190")
Begin DoDot:1
+18 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+19 IF ((HST14>8140)&(HST14<8148))!(HST14=8149)!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8205))!((HST14>8210)&(HST14<8232))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+20 IF (HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8255))!((HST14>8255)&(HST14<8475))!(HST14=8482)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+21 IF ((HST14>8499)&(HST14<8510))!((HST14>8511)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+22 ;
+23 ;00200 Rectum and Colon 20/XX
+24 IF ONCSCMA="00200"
Begin DoDot:1
+25 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+26 IF ((HST14>8140)&(HST14<8150))!(HST14=8157)!((HST14>8159)&(HST14<8213))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+27 IF ((HST14>8213)&(HST14<8232))!(HST14=8243)!(HST14=8244)!(HST14=8245)!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8262))!((HST14>8262)&(HST14<8265))!((HST14>8269)&(HST14<8475))!(HST14=8482)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+28 IF ((HST14>8499)&(HST14<8510))!((HST14>8511)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+29 ;
+30 ;00210/09210 Anus 21/XX
+31 IF (ONCSCMA="00210")!(ONCSCMA="09210")
Begin DoDot:1
+32 IF ONCTPCD="C212"
Begin DoDot:2
+33 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8051)!((HST14>8069)&(HST14<8073))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+34 IF (HST14=8077)!(HST14=8083)!(HST14=8090)!(HST14=8123)!(HST14=8124)!(HST14=8140)!(HST14=8244)!(HST14=8246)!(HST14=8480)!(HST14=8542)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+35 IF (ONCTPCD="C210")!(ONCTPCD="C211")!(ONCTPCD="C212")!(ONCTPCD="C218")
Begin DoDot:2
+36 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8051)&(HST14<8061))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+37 IF ((HST14>8072)&(HST14<8077))!((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8087))!((HST14>8090)&(HST14<8123))!(HST14=8130)!(HST14=8131)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+38 IF ((HST14>8140)&(HST14<8244))!(HST14=8245)!((HST14>8246)&(HST14<8475))!((HST14>8480)&(HST14<8542))!((HST14>8542)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+39 ;
+40 ;00280 Pancreas 28/XX
+41 IF ONCSCMA="00280"
Begin DoDot:1
+42 IF ONCTPCD="C254"
Begin DoDot:2
+43 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8035)!(HST14=8041)!(HST14=8140)!(HST14=8148)!(HST14=8154)!(HST14=8246)!(HST14=8441)!(HST14=8452)!(HST14=8453)!(HST14=8470)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+44 IF (HST14=8480)!(HST14=8481)!(HST14=8490)!(HST14=8500)!(HST14=8503)!(HST14=8510)!(HST14=8550)!(HST14=8551)!(HST14=8552)!(HST14=8560)!(HST14=8576)!(HST14=8971)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+45 IF (ONCTPCD="C250")!(ONCTPCD="C251")!(ONCTPCD="C252")!(ONCTPCD="C253")!(ONCTPCD="C254")!(ONCTPCD="C257")!(ONCTPCD="C258")!(ONCTPCD="C259")
Begin DoDot:2
+46 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8035))!(HST14=8040)!((HST14>8041)&(HST14<8132))!((HST14>8140)&(HST14<8148))!(HST14=8149)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+47 IF (HST14=8157)!((HST14>8159)&(HST14<8232))!((HST14>8242)&(HST14<8246))!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8441))!((HST14>8441)&(HST14<8452))!((HST14>8453)&(HST14<8464))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+48 IF ((HST14>8470)&(HST14<8475))!(HST14=8482)!(HST14=8501)!(HST14=8502)!((HST14>8503)&(HST14<8510))!((HST14>8511)&(HST14<8544))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+49 IF ((HST14>8560)&(HST14<8576))!((HST14>8579)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+50 ;
+51 ;00290/09290 NET Stomach 29/XX
+52 IF (ONCSCMA="00290")!(ONCSCMA="09290")
Begin DoDot:1
+53 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+54 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+55 ;patch 21 remove 8241)
IF ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8242)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+56 ;I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
End DoDot:1
IF ONCJFG=1
QUIT
+57 ;
+58 ;00301/09301 00302/09302 NET Duodenum/NET Ampulla of Vater 30/XX
+59 IF (ONCSCMA="00301")!(ONCSCMA="00302")!(ONCSCMA="09301")!(ONCSCMA="09302")
Begin DoDot:1
+60 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+61 IF (HST14=8153)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+62 IF ONCSCMA="09302"
Begin DoDot:2
+63 IF ((HST14>8150)&(HST14<8153))!(HST14=8155)!(HST14=8241)!(HST14=8242)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+64 IF (ONCSCMA="00301")!(ONCSCMA="00302")!(ONCSCMA="09301")
Begin DoDot:2
+65 IF ((HST14>8149)&(HST14<8153))!(HST14=8155)!(HST14=8241)!(HST14=8242)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+66 ;
+67 ;00310/09310 NET Jejunum and Ileum 31/XX
+68 IF (ONCSCMA="00310")!(ONCSCMA="09310")
Begin DoDot:1
+69 IF (ONCTPCD="C171")!(ONCTPCD="C172")
Begin DoDot:2
+70 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:3
+71 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
IF ONCJFG=1
QUIT
+72 IF (ONCTPCD="C173")!(ONCTPCD="C178")!(ONCTPCD="C179")
Begin DoDot:2
+73 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+74 IF (ONCTPCD="C171")!(ONCTPCD="C172")!(ONCTPCD="C173")!(ONCTPCD="C178")!(ONCTPCD="C179")
Begin DoDot:2
+75 IF ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+76 ;
+77 ;00320/09320 00330/09330 NET Appendix/NET Colon and Rectum 32/33/XX
+78 IF (ONCSCMA="00320")!(ONCSCMA="00330")!(ONCSCMA="09320")!(ONCSCMA="09330")
Begin DoDot:1
+79 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+80 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+81 ; patch 21
IF ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8242)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+82 ;I ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q ; original line
End DoDot:1
IF ONCJFG=1
QUIT
+83 ;
+84 ;00340/09340 NET Pancreas 34/XX
+85 IF (ONCSCMA="00340")!(ONCSCMA="09340")
Begin DoDot:1
+86 IF "C250^C251^C252^C254^C257^C258^C259"[ONCTPCD
Begin DoDot:2
+87 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:3
+88 IF ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+89 IF ONCTPCD="C253"
Begin DoDot:2
+90 IF ((HST14>8149)&(HST14<8154))!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+91 IF "C250^C251^C252^C253^C254^C257^C258^C259"[ONCTPCD
Begin DoDot:2
+92 IF (HST14=8241)!(HST14=8242)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+93 ;
+94 ;00370 Pleura/Pleural Mesothelioma 37/XX
+95 IF ONCSCMA="00370"
Begin DoDot:1
+96 IF "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349"[ONCTPCD
Begin DoDot:2
+97 IF ((HST14>9049)&(HST14<9054))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+98 ;
+99 ;00381 00382 00383 Bone App Skeleton/Bone Spine/Bone Pelvis 38.1/38.2/38.1/XX
+100 IF (ONCSCMA="00381")!(ONCSCMA="00382")!(ONCSCMA="00383")
Begin DoDot:1
+101 IF ((HST14>7999)&(HST14<8791))!(HST14=8802)!(HST14=8803)!(HST14=8805)!(HST14=8806)!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8828))!((HST14>8830)&(HST14<8843))!((HST14>8850)&(HST14<8882))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+102 IF ((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<8935))!((HST14>8939)&(HST14<9031))!((HST14>9040)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+103 IF (HST14=9186)!(HST14=9191)!(HST14=9195)!((HST14>9199)&(HST14<9211))!(HST14=9230)!(HST14=9241)!((HST14>9250)&(HST14<9261))!((HST14>9261)&(HST14<9364))!(HST14=9365)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+104 IF ((HST14>9372)&(HST14<9540))!((HST14>9540)&(HST14<9583))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+105 ;
+106 ;00422 Heart, Mediastinum and Pleura 42/XX
+107 IF ONCSCMA="00422"
Begin DoDot:1
+108 IF "C380^C381^C382^C383^C384^C388"[ONCTPCD
Begin DoDot:2
+109 IF ((HST14>7999)&(HST14<8711))!((HST14>8711)&(HST14<8791))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+110 IF (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+111 IF ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!(HST14=9045)!((HST14>9053)&(HST14<9111))!((HST14>9120)&(HST14<9133))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+112 IF (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+113 IF (HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+114 IF "C380^C381^C382^C383^C388"[ONCTPCD
Begin DoDot:2
+115 IF ((HST14>9049)&(HST14<9054))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+116 ;
+117 ;00440 Retroperitoneum 44/XX
+118 IF ONCSCMA="00440"
Begin DoDot:1
+119 IF ((HST14>7999)&(HST14<8701))!(HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8719)&(HST14<8791))!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+120 IF (HST14=8834)!(HST14=8835)!(HST14=8836)!(HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+121 IF ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+122 IF (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+123 IF (HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+124 ;
+125 ;00458 Kaposi Sarcoma 45/XX
+126 IF ONCSCMA="00458"
Begin DoDot:1
+127 IF ((ONCT3>389)&(ONCT3<450))!((ONCT3>539)&(ONCT3<560))!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C750")!((ONCT3>753)&(ONCT3<780))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+128 ;
+129 DO ^ONCSCHM1
+130 QUIT
