ONCSCHM0.m

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 ---ONCSCHM0   11652     printed  Feb 18, 2025@23:54:22                                                                                                                                                                                                   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      ;