ONCSCHMZ ;HINES OIFO/RTK - AJCC ID, XX and other special code ;05/21/20
;;2.2;ONCOLOGY;**12,13,17**;Jul 31, 2013;Build 6
;
;00071 00072 00073 00074 00075 00076 00077 Lip TongueAnt Gum FloorofMouth PalateHard BuccalMucosa MouthOther 7/XX
I (ONCSCMA="00071")!(ONCSCMA="00072")!(ONCSCMA="00073")!(ONCSCMA="00074")!(ONCSCMA="00075")!(ONCSCMA="00076")!(ONCSCMA="00077") D I ONCSCMA'=0 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8051))!((HST14>8052)&(HST14<8061))!(HST14=8073)!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8132)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8140)&(HST14<8147))!((HST14>8147)&(HST14<8192))!(HST14=8300) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8200)&(HST14<8282))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8475))!((HST14>8480)&(HST14<8491))!((HST14>8500)&(HST14<8525))!((HST14>8529)&(HST14<8544))!(HST14=8552) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8569)&(HST14<8701))!(HST14=8551)!(HST14=8562)!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00080 Major Salivary Glands 8/XX
I ONCSCMA="00080" D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8046))!((HST14>8049)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8073)!((HST14>8074)&(HST14<8082))!((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8147))!((HST14>8147)&(HST14<8192))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8200)&(HST14<8246))!((HST14>8246)&(HST14<8282))!(HST14=8300)!((HST14>8310)&(HST14<8410))!((HST14>8412)&(HST14<8421))!((HST14>8719)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8439)&(HST14<8491))!(HST14=8501)!((HST14>8502)&(HST14<8525))!((HST14>8529)&(HST14<8544))!(HST14=8551)!(HST14=8552)!(HST14=8561)!((HST14>8569)&(HST14<8701)) S ONCAJID="XX",ONCJFG=1 Q
;
;00121 00122 Maxillary Sinus/Nasal Cavity & Ethmoid Sinus 12.1/12.2/XX
I (ONCSCMA="00121")!(ONCSCMA="00122") D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8016))!(HST14=8021)!(HST14=8022)!((HST14>8029)&(HST14<8041))!((HST14>8041)&(HST14<8051)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8052)&(HST14<8061))!(HST14=8073)!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8192)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8301))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8525)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8529)&(HST14<8553))!(HST14=8561)!((HST14>8569)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;00130 Larynx, NOS 13.0/XX
I (ONCTPCD="C328")!(ONCTPCD="C329") D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8045)!(HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8071)!(HST14=8072)!(HST14=8074)!(HST14=8075) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8082)!(HST14=8083)!(HST14=8200)!(HST14=8240)!(HST14=8249)!(HST14=8430)!(HST14=8560) S ONCAJID="XX",ONCJFG=1 Q
I ONCTPCD="C323" D I ONCJFG=1 Q
.I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8045)!(HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8071)!(HST14=8072)!(HST14=8074)!(HST14=8075) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8082)!(HST14=8083)!(HST14=8200)!(HST14=8240)!(HST14=8249)!(HST14=8430)!(HST14=8560) S ONCAJID="XX",ONCJFG=1 Q
I (ONCTPCD="C323")!(ONCTPCD="C328")!(ONCTPCD="C329") D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8051))!((HST14>8052)&(HST14<8061))!(HST14=8073)!((HST14>8075)&(HST14<8082)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8083)&(HST14<8192))!((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8421))!((HST14>8439)&(HST14<8553))!((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00131 00132 00133 Larynx Glottic/Subglottic/Supraglottic 13.1/13.2/13.3/XX
I (ONCSCMA="00131")!(ONCSCMA="00132")!(ONCSCMA="00133") D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8051))!((HST14>8052)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8073)!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8192))!((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8421)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8439)&(HST14<8553))!((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00270 Ampulla of Vater 27/XX
I ONCTPCD="C241" 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<8061))!((HST14>8070)&(HST14<8132)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8150))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8154)!(HST14=8157)!(HST14=8161)!(HST14=8162)!((HST14>8169)&(HST14<8232))!(HST14=8243)!(HST14=8245)!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8255))!(HST14=8256)!(HST14=8257) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8260)&(HST14<8301))!((HST14>8310)&(HST14<8475))!(HST14=8481)!(HST14=8482)!((HST14>8499)&(HST14<8553))!((HST14>8560)&(HST14<8576))!((HST14>8579)&(HST14<8683))!((HST14>8689)&(HST14<8701)) S ONCAJID="XX",ONCJFG=1 Q
;
;00350 Thymus 35/XX
I ONCSCMA="00350" D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8013)!(HST14=8020)!(HST14=8023)!(HST14=8033)!(HST14=8041)!(HST14=8045)!(HST14=8070)!(HST14=8082)!(HST14=8123)!(HST14=8576) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8140)!(HST14=8200)!(HST14=8240)!(HST14=8249)!(HST14=8260)!(HST14=8310)!(HST14=8430)!(HST14=8480)!(HST14=8560)!((HST14>8579)&(HST14<8587)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>7999)&(HST14<8013))!(HST14=8014)!(HST14=8015)!(HST14=8021)!(HST14=8022)!((HST14>8029)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8070)&(HST14<8082))!((HST14>8082)&(HST14<8123))!((HST14>8123)&(HST14<8132))!((HST14>8140)&(HST14<8192))!((HST14>8200)&(HST14<8232)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8258))!((HST14>8260)&(HST14<8301))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8475))!((HST14>8480)&(HST14<8553)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8560)&(HST14<8576))!((HST14>8586)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00500 Vulva 50/XX
I ONCSCMA="00500" D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8051)!((HST14>8069)&(HST14<8073))!(HST14=8076)!(HST14=8077)!(HST14=8083)!(HST14=8090) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8097)!(HST14=8120)!(HST14=8140)!(HST14=8200)!(HST14=8500)!(HST14=8542)!(HST14=8560)!(HST14=9020)!(HST14=9071) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8051)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8072)&(HST14<8076))!((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8087))!((HST14>8090)&(HST14<8097))!((HST14>8097)&(HST14<8111)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8181))!(HST14=8191)!((HST14>8200)&(HST14<8247))!((HST14>8247)&(HST14<8491)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8500)&(HST14<8542))!((HST14>8542)&(HST14<8553))!((HST14>8560)&(HST14<8701)) S ONCAJID="XX",ONCJFG=1 Q
;
;00510 Vagina 51/XX
I ONCSCMA="00510" D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8051)!(HST14=8052)!((HST14>8069)&(HST14<8073))!(HST14=8083)!(HST14=8098) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8140)!(HST14=8246)!(HST14=8260)!(HST14=8310)!(HST14=8380)!(HST14=8480)!(HST14=8560)!(HST14=8693)!(HST14=8933)!(HST14=8980)!(HST14=9071)!(HST14=9110) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8052)&(HST14<8061))!((HST14>8072)&(HST14<8083)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8083)&(HST14<8098))!((HST14>8099)&(HST14<8132))!((HST14>8140)&(HST14<8246))!((HST14>8246)&(HST14<8258))!((HST14>8260)&(HST14<8301)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8310)&(HST14<8376))!((HST14>8380)&(HST14<8475))!((HST14>8480)&(HST14<8553))!((HST14>8560)&(HST14<8693))!(HST14=8700)!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00520/09520 Cervix 52/XX
I ONCSCMA="00520" D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C530")!(ONCTPCD="C531")!(ONCTPCD="C538")!(ONCTPCD="C539") D I ONCJFG=1 Q
..I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8052)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8072)&(HST14<8076))!((HST14>8076)&(HST14<8082))!((HST14>8083)&(HST14<8098))!((HST14>8099)&(HST14<8111))!((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8192)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8263))!((HST14>8263)&(HST14<8301))!((HST14>8310)&(HST14<8323))!((HST14>8323)&(HST14<8376))!((HST14>8380)&(HST14<8384)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8389)&(HST14<8441))!((HST14>8441)&(HST14<8475))!(HST14=8481)!((HST14>8499)&(HST14<8553))!((HST14>8560)&(HST14<8574))!((HST14>8574)&(HST14<8701))!((HST14>8720)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
I ONCSCMA="09520" D I ONCJFG=1 Q
.I $E(ONCHIST,5)=2 S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C530")!(ONCTPCD="C531")!(ONCTPCD="C538")!(ONCTPCD="C539") D I ONCJFG=1 Q
..I ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8051)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8052)&(HST14<8054))!((HST14>8054)&(HST14<8061))!((HST14>8072)&(HST14<8076))!((HST14>8076)&(HST14<8082)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8083)&(HST14<8085))!((HST14>8086)&(HST14<8098))!((HST14>8099)&(HST14<8111))!((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8154))!((HST14>8154)&(HST14<8192)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8199)&(HST14<8232))!((HST14>8240)&(HST14<8246))!((HST14>8246)&(HST14<8249))!((HST14>8249)&(HST14<8263))!((HST14>8263)&(HST14<8301)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8310)&(HST14<8323))!((HST14>8323)&(HST14<8376))!((HST14>8380)&(HST14<8384)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8389)&(HST14<8430))!((HST14>8430)&(HST14<8441))!((HST14>8441)&(HST14<8475))!(HST14=8481)!((HST14>8499)&(HST14<8553)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8560)&(HST14<8574))!((HST14>8574)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00570 Penis 57/XX
I ONCSCMA="00590" D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8041))!((HST14>8041)&(HST14<8051))!(HST14=8053)!(HST14=8060)!(HST14=8073)!((HST14>8075)&(HST14<8081)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8084)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8553))!((HST14>8560)&(HST14<8701)) S ONCAJID="XX",ONCJFG=1 Q
;
;00590 Testis 59/XX
I ONCSCMA="00590" D I ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8591))!((HST14>8591)&(HST14<8635))!((HST14>8640)&(HST14<8643))!((HST14>8659)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00680 Retinoblastoma 68/XX
I "C690^C691^C693^C694^C695^C696^C698^C699"[ONCTPCD D I ONCJFG=1 Q
.I ((HST14>9509)&(HST14<9514)) S ONCAJID="XX",ONCJFG=1 Q
I "C690^C691^C692^C693^C694^C695^C696^C698^C699"[ONCTPCD D I ONCJFG=1 Q
.I (HST14=9514) S ONCAJID="XX",ONCJFG=1 Q
;
;00730 & 00740 Thyroid 73.1/73.2/74/XX
I ONCTPCD="C739" D I ONCJFG=1 Q
.I ONC3926=2 S ONCAJID="XX",ONCJFG=1 Q
.I $E(ONCHIST,5)=3 D
..I (HST14=8000)!(HST14=8010)!(HST14=8050)!(HST14=8230)!(HST14=8260)!(HST14=8290)!(HST14=8330)!(HST14=8331)!(HST14=8335)!(HST14=8337)!(HST14=8339)!((HST14>8339)&(HST14<8345)) S ONCAJID=73.1,ONCJFG=1 Q
.I $E(ONCHIST,5)=3 D
..I (HST14=8020)!(HST14=8021) S ONCAJID=73.2,ONCAJCHP=73.2,ONCJFG=1 Q
.I $E(ONCHIST,5)=2 D
..I (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8021)!(HST14=8050)!(HST14=8230)!(HST14=8260)!(HST14=8290)!(HST14=8330)!(HST14=8331)!(HST14=8335)!(HST14=8337)!(HST14=8339)!((HST14>8339)&(HST14<8345)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8021)&(HST14<8047))!((HST14>8050)&(HST14<8222))!((HST14>8230)&(HST14<8258))!((HST14>8260)&(HST14<8282))!((HST14>8299)&(HST14<8326)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8331)&(HST14<8335))!(HST14=8336)!((HST14>8349)&(HST14<8421))!((HST14>8439)&(HST14<8510))!((HST14>8513)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
I ONCTPCD="C739" D I ONCJFG=1 Q
.I ((HST14>8344)&(HST14<8348)) D
..I ONC3926=2 S ONCAJID="XX",ONCJFG=1 Q
..I $E(ONCHIST,5)=3 S ONCAJID=74,ONCAJCHP=74,ONCJFG=1 Q
..I $E(ONCHIST,5)=2 S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8430)!(HST14=8510)!(HST14=8512)!(HST14=8513) S ONCAJID="XX",ONCJFG=1 Q
;
;00750 Parathyroid 75/XX
I ONCSCMA="00750" D I ONCJFG=1 Q
.I ((HST14>8001)&(HST14<8005))!((HST14>8010)&(HST14<8132))!((HST14>8140)&(HST14<8282))!(HST14=8300)!((HST14>8310)&(HST14<8322))!((HST14>8322)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00760 Adrenal Gland 76/XX
I ONCSCMA="00760" D I ONCJFG=1 Q
.I ONCTPCD="C740" D I ONCJFG=1 Q
..I $E(ONCHIST,5)=2 D
...I (HST14=8010)!(HST14=8290)!(HST14=8370) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C741")!(ONCTPCD="C749") D I ONCJFG=1 Q
..I (HST14=8010)!(HST14=8290)!(HST14=8370) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C740")!(ONCTPCD="C741")!(ONCTPCD="C749") D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8282))!((HST14>8299)&(HST14<8362))!((HST14>8370)&(HST14<8672))!((HST14>8680)&(HST14<8684))!(HST14=8691)!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00770 NET Adrenal Gland 77/XX
I ONCSCMA="00770" D I ONCJFG=1 Q
.I (ONCTPCD="C741")!(ONCTPCD="C755") D I ONCJFG=1 Q
..I $E(ONCHIST,5)=2 D
...I (HST14=8680)!(HST14=8690)!(HST14=8692)!(HST14=8693)!(HST14=8700) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C740")!(ONCTPCD="C749") D I ONCJFG=1 Q
..I (HST14=8680)!(HST14=8690)!(HST14=8692)!(HST14=8693)!(HST14=8700) S ONCAJID="XX",ONCJFG=1 Q
;
D ^ONCSCHM0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMZ 14763 printed Dec 13, 2024@02:28:12 Page 2
ONCSCHMZ ;HINES OIFO/RTK - AJCC ID, XX and other special code ;05/21/20
+1 ;;2.2;ONCOLOGY;**12,13,17**;Jul 31, 2013;Build 6
+2 ;
+3 ;00071 00072 00073 00074 00075 00076 00077 Lip TongueAnt Gum FloorofMouth PalateHard BuccalMucosa MouthOther 7/XX
+4 IF (ONCSCMA="00071")!(ONCSCMA="00072")!(ONCSCMA="00073")!(ONCSCMA="00074")!(ONCSCMA="00075")!(ONCSCMA="00076")!(ONCSCMA="00077")
Begin DoDot:1
+5 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8051))!((HST14>8052)&(HST14<8061))!(HST14=8073)!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8132))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+6 IF ((HST14>8140)&(HST14<8147))!((HST14>8147)&(HST14<8192))!(HST14=8300)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+7 IF ((HST14>8200)&(HST14<8282))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8475))!((HST14>8480)&(HST14<8491))!((HST14>8500)&(HST14<8525))!((HST14>8529)&(HST14<8544))!(HST14=8552)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+8 IF ((HST14>8569)&(HST14<8701))!(HST14=8551)!(HST14=8562)!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCSCMA'=0
QUIT
+9 ;
+10 ;00080 Major Salivary Glands 8/XX
+11 IF ONCSCMA="00080"
Begin DoDot:1
+12 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8046))!((HST14>8049)&(HST14<8061))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+13 IF (HST14=8073)!((HST14>8074)&(HST14<8082))!((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8147))!((HST14>8147)&(HST14<8192))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+14 IF ((HST14>8200)&(HST14<8246))!((HST14>8246)&(HST14<8282))!(HST14=8300)!((HST14>8310)&(HST14<8410))!((HST14>8412)&(HST14<8421))!((HST14>8719)&(HST14<8791))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+15 IF ((HST14>8439)&(HST14<8491))!(HST14=8501)!((HST14>8502)&(HST14<8525))!((HST14>8529)&(HST14<8544))!(HST14=8551)!(HST14=8552)!(HST14=8561)!((HST14>8569)&(HST14<8701))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+16 ;
+17 ;00121 00122 Maxillary Sinus/Nasal Cavity & Ethmoid Sinus 12.1/12.2/XX
+18 IF (ONCSCMA="00121")!(ONCSCMA="00122")
Begin DoDot:1
+19 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8016))!(HST14=8021)!(HST14=8022)!((HST14>8029)&(HST14<8041))!((HST14>8041)&(HST14<8051))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+20 IF ((HST14>8052)&(HST14<8061))!(HST14=8073)!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8192))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+21 IF ((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8301))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8525))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+22 IF ((HST14>8529)&(HST14<8553))!(HST14=8561)!((HST14>8569)&(HST14<8701))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+23 ;00130 Larynx, NOS 13.0/XX
+24 IF (ONCTPCD="C328")!(ONCTPCD="C329")
Begin DoDot:1
+25 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+26 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8045)!(HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8071)!(HST14=8072)!(HST14=8074)!(HST14=8075)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+27 IF (HST14=8082)!(HST14=8083)!(HST14=8200)!(HST14=8240)!(HST14=8249)!(HST14=8430)!(HST14=8560)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+28 IF ONCTPCD="C323"
Begin DoDot:1
+29 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8045)!(HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8071)!(HST14=8072)!(HST14=8074)!(HST14=8075)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+30 IF (HST14=8082)!(HST14=8083)!(HST14=8200)!(HST14=8240)!(HST14=8249)!(HST14=8430)!(HST14=8560)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+31 IF (ONCTPCD="C323")!(ONCTPCD="C328")!(ONCTPCD="C329")
Begin DoDot:1
+32 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8051))!((HST14>8052)&(HST14<8061))!(HST14=8073)!((HST14>8075)&(HST14<8082))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+33 IF ((HST14>8083)&(HST14<8192))!((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8421))!((HST14>8439)&(HST14<8553))!((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+34 ;
+35 ;00131 00132 00133 Larynx Glottic/Subglottic/Supraglottic 13.1/13.2/13.3/XX
+36 IF (ONCSCMA="00131")!(ONCSCMA="00132")!(ONCSCMA="00133")
Begin DoDot:1
+37 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8051))!((HST14>8052)&(HST14<8061))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+38 IF (HST14=8073)!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8192))!((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8421))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+39 IF ((HST14>8439)&(HST14<8553))!((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+40 ;
+41 ;00270 Ampulla of Vater 27/XX
+42 IF ONCTPCD="C241"
Begin DoDot:1
+43 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8035))!(HST14=8040)!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+44 IF ((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8150))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+45 IF (HST14=8154)!(HST14=8157)!(HST14=8161)!(HST14=8162)!((HST14>8169)&(HST14<8232))!(HST14=8243)!(HST14=8245)!(HST14=8247)!(HST14=8248)!((HST14>8249)&(HST14<8255))!(HST14=8256)!(HST14=8257)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+46 IF ((HST14>8260)&(HST14<8301))!((HST14>8310)&(HST14<8475))!(HST14=8481)!(HST14=8482)!((HST14>8499)&(HST14<8553))!((HST14>8560)&(HST14<8576))!((HST14>8579)&(HST14<8683))!((HST14>8689)&(HST14<8701))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+47 ;
+48 ;00350 Thymus 35/XX
+49 IF ONCSCMA="00350"
Begin DoDot:1
+50 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+51 IF (HST14=8013)!(HST14=8020)!(HST14=8023)!(HST14=8033)!(HST14=8041)!(HST14=8045)!(HST14=8070)!(HST14=8082)!(HST14=8123)!(HST14=8576)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+52 IF (HST14=8140)!(HST14=8200)!(HST14=8240)!(HST14=8249)!(HST14=8260)!(HST14=8310)!(HST14=8430)!(HST14=8480)!(HST14=8560)!((HST14>8579)&(HST14<8587))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+53 IF ((HST14>7999)&(HST14<8013))!(HST14=8014)!(HST14=8015)!(HST14=8021)!(HST14=8022)!((HST14>8029)&(HST14<8033))!((HST14>8033)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8061))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+54 IF ((HST14>8070)&(HST14<8082))!((HST14>8082)&(HST14<8123))!((HST14>8123)&(HST14<8132))!((HST14>8140)&(HST14<8192))!((HST14>8200)&(HST14<8232))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+55 IF ((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8258))!((HST14>8260)&(HST14<8301))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8475))!((HST14>8480)&(HST14<8553))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+56 IF ((HST14>8560)&(HST14<8576))!((HST14>8586)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+57 ;
+58 ;00500 Vulva 50/XX
+59 IF ONCSCMA="00500"
Begin DoDot:1
+60 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+61 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8051)!((HST14>8069)&(HST14<8073))!(HST14=8076)!(HST14=8077)!(HST14=8083)!(HST14=8090)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+62 IF (HST14=8097)!(HST14=8120)!(HST14=8140)!(HST14=8200)!(HST14=8500)!(HST14=8542)!(HST14=8560)!(HST14=9020)!(HST14=9071)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+63 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8051)&(HST14<8061))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+64 IF ((HST14>8072)&(HST14<8076))!((HST14>8077)&(HST14<8083))!((HST14>8083)&(HST14<8087))!((HST14>8090)&(HST14<8097))!((HST14>8097)&(HST14<8111))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+65 IF ((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8181))!(HST14=8191)!((HST14>8200)&(HST14<8247))!((HST14>8247)&(HST14<8491))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+66 IF ((HST14>8500)&(HST14<8542))!((HST14>8542)&(HST14<8553))!((HST14>8560)&(HST14<8701))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+67 ;
+68 ;00510 Vagina 51/XX
+69 IF ONCSCMA="00510"
Begin DoDot:1
+70 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+71 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8051)!(HST14=8052)!((HST14>8069)&(HST14<8073))!(HST14=8083)!(HST14=8098)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+72 IF (HST14=8140)!(HST14=8246)!(HST14=8260)!(HST14=8310)!(HST14=8380)!(HST14=8480)!(HST14=8560)!(HST14=8693)!(HST14=8933)!(HST14=8980)!(HST14=9071)!(HST14=9110)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+73 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8052)&(HST14<8061))!((HST14>8072)&(HST14<8083))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+74 IF ((HST14>8083)&(HST14<8098))!((HST14>8099)&(HST14<8132))!((HST14>8140)&(HST14<8246))!((HST14>8246)&(HST14<8258))!((HST14>8260)&(HST14<8301))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+75 IF ((HST14>8310)&(HST14<8376))!((HST14>8380)&(HST14<8475))!((HST14>8480)&(HST14<8553))!((HST14>8560)&(HST14<8693))!(HST14=8700)!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+76 ;
+77 ;00520/09520 Cervix 52/XX
+78 IF ONCSCMA="00520"
Begin DoDot:1
+79 IF $EXTRACT(ONCHIST,5)=2
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+80 IF (ONCTPCD="C530")!(ONCTPCD="C531")!(ONCTPCD="C538")!(ONCTPCD="C539")
Begin DoDot:2
+81 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8051))!((HST14>8052)&(HST14<8061))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+82 IF ((HST14>8072)&(HST14<8076))!((HST14>8076)&(HST14<8082))!((HST14>8083)&(HST14<8098))!((HST14>8099)&(HST14<8111))!((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8192))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+83 IF ((HST14>8200)&(HST14<8232))!((HST14>8240)&(HST14<8249))!((HST14>8249)&(HST14<8263))!((HST14>8263)&(HST14<8301))!((HST14>8310)&(HST14<8323))!((HST14>8323)&(HST14<8376))!((HST14>8380)&(HST14<8384))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+84 IF ((HST14>8389)&(HST14<8441))!((HST14>8441)&(HST14<8475))!(HST14=8481)!((HST14>8499)&(HST14<8553))!((HST14>8560)&(HST14<8574))!((HST14>8574)&(HST14<8701))!((HST14>8720)&(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
+85 IF ONCSCMA="09520"
Begin DoDot:1
+86 IF $EXTRACT(ONCHIST,5)=2
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+87 IF (ONCTPCD="C530")!(ONCTPCD="C531")!(ONCTPCD="C538")!(ONCTPCD="C539")
Begin DoDot:2
+88 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8045))!((HST14>8045)&(HST14<8051))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+89 IF ((HST14>8052)&(HST14<8054))!((HST14>8054)&(HST14<8061))!((HST14>8072)&(HST14<8076))!((HST14>8076)&(HST14<8082))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+90 IF ((HST14>8083)&(HST14<8085))!((HST14>8086)&(HST14<8098))!((HST14>8099)&(HST14<8111))!((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8154))!((HST14>8154)&(HST14<8192))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+91 IF ((HST14>8199)&(HST14<8232))!((HST14>8240)&(HST14<8246))!((HST14>8246)&(HST14<8249))!((HST14>8249)&(HST14<8263))!((HST14>8263)&(HST14<8301))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+92 IF ((HST14>8310)&(HST14<8323))!((HST14>8323)&(HST14<8376))!((HST14>8380)&(HST14<8384))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+93 IF ((HST14>8389)&(HST14<8430))!((HST14>8430)&(HST14<8441))!((HST14>8441)&(HST14<8475))!(HST14=8481)!((HST14>8499)&(HST14<8553))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+94 IF ((HST14>8560)&(HST14<8574))!((HST14>8574)&(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
+95 ;
+96 ;00570 Penis 57/XX
+97 IF ONCSCMA="00590"
Begin DoDot:1
+98 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8041))!((HST14>8041)&(HST14<8051))!(HST14=8053)!(HST14=8060)!(HST14=8073)!((HST14>8075)&(HST14<8081))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+99 IF ((HST14>8084)&(HST14<8181))!((HST14>8190)&(HST14<8247))!((HST14>8247)&(HST14<8553))!((HST14>8560)&(HST14<8701))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+100 ;
+101 ;00590 Testis 59/XX
+102 IF ONCSCMA="00590"
Begin DoDot:1
+103 IF ((HST14>8000)&(HST14<8591))!((HST14>8591)&(HST14<8635))!((HST14>8640)&(HST14<8643))!((HST14>8659)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+104 ;
+105 ;00680 Retinoblastoma 68/XX
+106 IF "C690^C691^C693^C694^C695^C696^C698^C699"[ONCTPCD
Begin DoDot:1
+107 IF ((HST14>9509)&(HST14<9514))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+108 IF "C690^C691^C692^C693^C694^C695^C696^C698^C699"[ONCTPCD
Begin DoDot:1
+109 IF (HST14=9514)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+110 ;
+111 ;00730 & 00740 Thyroid 73.1/73.2/74/XX
+112 IF ONCTPCD="C739"
Begin DoDot:1
+113 IF ONC3926=2
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+114 IF $EXTRACT(ONCHIST,5)=3
Begin DoDot:2
+115 IF (HST14=8000)!(HST14=8010)!(HST14=8050)!(HST14=8230)!(HST14=8260)!(HST14=8290)!(HST14=8330)!(HST14=8331)!(HST14=8335)!(HST14=8337)!(HST14=8339)!((HST14>8339)&(HST14<8345))
SET ONCAJID=73.1
SET ONCJFG=1
QUIT
End DoDot:2
+116 IF $EXTRACT(ONCHIST,5)=3
Begin DoDot:2
+117 IF (HST14=8020)!(HST14=8021)
SET ONCAJID=73.2
SET ONCAJCHP=73.2
SET ONCJFG=1
QUIT
End DoDot:2
+118 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+119 IF (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8021)!(HST14=8050)!(HST14=8230)!(HST14=8260)!(HST14=8290)!(HST14=8330)!(HST14=8331)!(HST14=8335)!(HST14=8337)!(HST14=8339)!((HST14>8339)&(HST14<8345))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+120 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8021)&(HST14<8047))!((HST14>8050)&(HST14<8222))!((HST14>8230)&(HST14<8258))!((HST14>8260)&(HST14<8282))!((HST14>8299)&(HST14<8326))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+121 IF ((HST14>8331)&(HST14<8335))!(HST14=8336)!((HST14>8349)&(HST14<8421))!((HST14>8439)&(HST14<8510))!((HST14>8513)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+122 IF ONCTPCD="C739"
Begin DoDot:1
+123 IF ((HST14>8344)&(HST14<8348))
Begin DoDot:2
+124 IF ONC3926=2
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+125 IF $EXTRACT(ONCHIST,5)=3
SET ONCAJID=74
SET ONCAJCHP=74
SET ONCJFG=1
QUIT
+126 IF $EXTRACT(ONCHIST,5)=2
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+127 IF (HST14=8430)!(HST14=8510)!(HST14=8512)!(HST14=8513)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+128 ;
+129 ;00750 Parathyroid 75/XX
+130 IF ONCSCMA="00750"
Begin DoDot:1
+131 IF ((HST14>8001)&(HST14<8005))!((HST14>8010)&(HST14<8132))!((HST14>8140)&(HST14<8282))!(HST14=8300)!((HST14>8310)&(HST14<8322))!((HST14>8322)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+132 ;
+133 ;00760 Adrenal Gland 76/XX
+134 IF ONCSCMA="00760"
Begin DoDot:1
+135 IF ONCTPCD="C740"
Begin DoDot:2
+136 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:3
+137 IF (HST14=8010)!(HST14=8290)!(HST14=8370)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
IF ONCJFG=1
QUIT
+138 IF (ONCTPCD="C741")!(ONCTPCD="C749")
Begin DoDot:2
+139 IF (HST14=8010)!(HST14=8290)!(HST14=8370)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+140 IF (ONCTPCD="C740")!(ONCTPCD="C741")!(ONCTPCD="C749")
Begin DoDot:2
+141 IF ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8282))!((HST14>8299)&(HST14<8362))!((HST14>8370)&(HST14<8672))!((HST14>8680)&(HST14<8684))!(HST14=8691)!((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
+142 ;
+143 ;00770 NET Adrenal Gland 77/XX
+144 IF ONCSCMA="00770"
Begin DoDot:1
+145 IF (ONCTPCD="C741")!(ONCTPCD="C755")
Begin DoDot:2
+146 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:3
+147 IF (HST14=8680)!(HST14=8690)!(HST14=8692)!(HST14=8693)!(HST14=8700)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
IF ONCJFG=1
QUIT
+148 IF (ONCTPCD="C740")!(ONCTPCD="C749")
Begin DoDot:2
+149 IF (HST14=8680)!(HST14=8690)!(HST14=8692)!(HST14=8693)!(HST14=8700)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+150 ;
+151 DO ^ONCSCHM0
+152 QUIT
