ONCSCHM0 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/18/20
;;2.2;ONCOLOGY;**12,17,18**;Jul 31, 2013;Build 5
;
;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=8154)!(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 NET Stomach 29/XX
I ONCSCMA="00290" 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=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
;
;00301 00302 NET Duodenum/NET Ampulla of Vater 30/XX
I (ONCSCMA="00301")!(ONCSCMA="00302") 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 ((HST14>8149)&(HST14<8153))!(HST14=8155)!(HST14=8241)!(HST14=8242) S ONCAJID="XX",ONCJFG=1 Q
;
;00310 NET Jejunum and Ileum 31/XX
I ONCSCMA="00310" 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 00330 NET Appendix/NET Colon and Rectum 32/33/XX
I (ONCSCMA="00320")!(ONCSCMA="00330") 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=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
;
;00340 NET Pancreas 34/XX
I ONCSCMA="00340" 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 11652 printed Apr 09, 2024@21:28:32 Page 2
ONCSCHM0 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/18/20
+1 ;;2.2;ONCOLOGY;**12,17,18**;Jul 31, 2013;Build 5
+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=8154)!(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 NET Stomach 29/XX
+52 IF ONCSCMA="00290"
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 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:1
IF ONCJFG=1
QUIT
+56 ;
+57 ;00301 00302 NET Duodenum/NET Ampulla of Vater 30/XX
+58 IF (ONCSCMA="00301")!(ONCSCMA="00302")
Begin DoDot:1
+59 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+60 IF (HST14=8153)!(HST14=8156)!(HST14=8158)!(HST14=8240)!(HST14=8249)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+61 IF ((HST14>8149)&(HST14<8153))!(HST14=8155)!(HST14=8241)!(HST14=8242)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+62 ;
+63 ;00310 NET Jejunum and Ileum 31/XX
+64 IF ONCSCMA="00310"
Begin DoDot:1
+65 IF (ONCTPCD="C171")!(ONCTPCD="C172")
Begin DoDot:2
+66 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:3
+67 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
IF ONCJFG=1
QUIT
+68 IF (ONCTPCD="C173")!(ONCTPCD="C178")!(ONCTPCD="C179")
Begin DoDot:2
+69 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+70 IF (ONCTPCD="C171")!(ONCTPCD="C172")!(ONCTPCD="C173")!(ONCTPCD="C178")!(ONCTPCD="C179")
Begin DoDot:2
+71 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
+72 ;
+73 ;00320 00330 NET Appendix/NET Colon and Rectum 32/33/XX
+74 IF (ONCSCMA="00320")!(ONCSCMA="00330")
Begin DoDot:1
+75 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+76 IF (HST14=8240)!(HST14=8249)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+77 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:1
IF ONCJFG=1
QUIT
+78 ;
+79 ;00340 NET Pancreas 34/XX
+80 IF ONCSCMA="00340"
Begin DoDot:1
+81 IF "C250^C251^C252^C254^C257^C258^C259"[ONCTPCD
Begin DoDot:2
+82 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:3
+83 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
+84 IF ONCTPCD="C253"
Begin DoDot:2
+85 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
+86 IF "C250^C251^C252^C253^C254^C257^C258^C259"[ONCTPCD
Begin DoDot:2
+87 IF (HST14=8241)!(HST14=8242)!(HST14=8683)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+88 ;
+89 ;00370 Pleura/Pleural Mesothelioma 37/XX
+90 IF ONCSCMA="00370"
Begin DoDot:1
+91 IF "C340^C341^C342^C343^C344^C345^C346^C347^C348^C349"[ONCTPCD
Begin DoDot:2
+92 IF ((HST14>9049)&(HST14<9054))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+93 ;
+94 ;00381 00382 00383 Bone App Skeleton/Bone Spine/Bone Pelvis 38.1/38.2/38.1/XX
+95 IF (ONCSCMA="00381")!(ONCSCMA="00382")!(ONCSCMA="00383")
Begin DoDot:1
+96 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
+97 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
+98 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
+99 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
+100 ;
+101 ;00422 Heart, Mediastinum and Pleura 42/XX
+102 IF ONCSCMA="00422"
Begin DoDot:1
+103 IF "C380^C381^C382^C383^C384^C388"[ONCTPCD
Begin DoDot:2
+104 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
+105 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
+106 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
+107 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
+108 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
+109 IF "C380^C381^C382^C383^C388"[ONCTPCD
Begin DoDot:2
+110 IF ((HST14>9049)&(HST14<9054))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+111 ;
+112 ;00440 Retroperitoneum 44/XX
+113 IF ONCSCMA="00440"
Begin DoDot:1
+114 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
+115 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
+116 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
+117 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
+118 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
+119 ;
+120 ;00458 Kaposi Sarcoma 45/XX
+121 IF ONCSCMA="00458"
Begin DoDot:1
+122 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
+123 ;
+124 DO ^ONCSCHM1
+125 QUIT
