ONCSCHM2 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/20/20
;;2.2;ONCOLOGY;**12,17**;Jul 31, 2013;Build 6
;
;00640 Skin Eyelid 64/XX
I ONCSCMA="00640" D I ONCJFG=1 Q
.I ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8087))!((HST14>8090)&(HST14<8132))!((HST14>8140)&(HST14<8181))!(HST14=8191)!((HST14>8200)&(HST14<8247)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8247)&(HST14<8385))!(HST14=8391)!(HST14=8392)!((HST14>8401)&(HST14<8407))!(HST14=8408)!(HST14=8409)!(HST14=8420)!((HST14>8439)&(HST14<8475))!((HST14>8481)&(HST14<8701)) S ONCAJID="XX",ONCJFG=1 Q
;00650 Conjunctiva 65/XX
I ONCSCMA="00650" D I ONCJFG=1 Q
.I ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8061))!((HST14>8076)&(HST14<8087))!((HST14>8090)&(HST14<8410)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8412)&(HST14<8421))!((HST14>8439)&(HST14<8553))!((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;00700 Orbital Sarcoma 70/XX
I ONCSCMA="00700" D I ONCJFG=1 Q
.I (ONCTPCD="C690")!(ONCTPCD="C691")!(ONCTPCD="C692")!(ONCTPCD="C693")!(ONCTPCD="C694")!(ONCTPCD="C695")!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C699")!(ONCTPCD="C723") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!(HST14=8803)!(HST14=8812)!(HST14=8813)!((HST14>8819)&(HST14<8825))!(HST14=8826)!(HST14=8827)!(HST14=8831)!((HST14>8832)&(HST14<8837))!(HST14=8841)!(HST14=8842) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8851)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8901)&(HST14<8906))!((HST14>8931)&(HST14<8935))!((HST14>8949)&(HST14<8961)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8963)&(HST14<8976))!(HST14=8981)!((HST14>8982)&(HST14<8991))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9240)&(HST14<9362)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8999)&(HST14<9017))!(HST14=9030)!((HST14>9040)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9141)!(HST14=9142)!((HST14>9159)&(HST14<9176))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9572))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C690")!(ONCTPCD="C691")!(ONCTPCD="C692")!(ONCTPCD="C693")!(ONCTPCD="C694")!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C699")!(ONCTPCD="C723") D I ONCJFG=1 Q
..I (HST14=8941)!(HST14=8980)!(HST14=8982) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C690")!(ONCTPCD="C691")!(ONCTPCD="C692")!(ONCTPCD="C693")!(ONCTPCD="C694")!(ONCTPCD="C695")!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C699") D I ONCJFG=1 Q
..I (HST14=9064)!(HST14=9070)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9362)!((HST14>9379)&(HST14<9421))!((HST14>9422)&(HST14<9473)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9473)&(HST14<9494))!((HST14>9500)&(HST14<9510))!(HST14=9520)!(HST14=9521)!(HST14=9523)!((HST14>9530)&(HST14<9540)) S ONCAJID="XX",ONCJFG=1 Q
;
;00450 Soft Tissue Rare or 00459 Soft Tissue Other 45/XX
I (ONCSCMA="00450")!(ONCSCMA="00459") D I ONCJFG=1 Q
.I (ONCTPCD="C440")!(ONCTPCD="C442")!(ONCTPCD="C443")!(ONCTPCD="C444") D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8807))!(HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9120)!(HST14=9133)!(HST14=9180)!(HST14=9231)!(HST14=9581) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8809)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<8991)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C473")!(ONCTPCD="C475")!(ONCTPCD="C493")!(ONCTPCD="C494")!(ONCTPCD="C495") D I ONCJFG=1 Q
..I (HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=9120)!(HST14=9133)!(HST14=9180) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C481")!(ONCTPCD="C482")!(ONCTPCD="C483")!(ONCTPCD="C484")!(ONCTPCD="C485")!(ONCTPCD="C486")!(ONCTPCD="C487")!(ONCTPCD="C488") D I ONCJFG=1 Q
..I (HST14=8806)!(HST14=8930)!(HST14=8931) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C696")!(ONCTPCD="C698") D I ONCJFG=1 Q
..I (HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9180)!(HST14=9222)!(HST14=9231) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C390")!(ONCTPCD="C398")!(ONCTPCD="C399")!((ONCT3>419)&(ONCT3<425))!((ONCT3>419)&(ONCT3<425))!((ONCT3>759)&(ONCT3<766))!(ONCTPCD="C767")!(ONCTPCD="C768")!((ONCT3>769)&(ONCT3<776))!(ONCTPCD="C778")!(ONCTPCD="C779") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C441") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8949)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9515))!((HST14>9519)&(HST14<9583)) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C445")!(ONCTPCD="C446")!(ONCTPCD="C447")!(ONCTPCD="C448")!(ONCTPCD="C449") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C569")!(ONCTPCD="C570") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!(HST14=8820)!(HST14=8821)!(HST14=8823)!(HST14=8824)!((HST14>8825)&(HST14<8882))!((HST14>8890)&(HST14<8901)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8901)&(HST14<8906))!(HST14=8921)!(HST14=8932)!(HST14=8934)!(HST14=8940)!(HST14=8941)!((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8991)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9009)&(HST14<9017))!((HST14>9029)&(HST14<9044))!(HST14=9045)!(HST14=9051)!((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))!(HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9100)&(HST14<9106))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>570)&(ONCT3<580))!((ONCT3>739)&(ONCT3<750))!(ONCTPCD="C809") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(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>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>699)&(ONCT3<722))!(ONCTPCD="C728")!(ONCTPCD="C729") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!(HST14=8803)!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9239)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9581))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
;
D ^ONCSCHM3
Q
C459 ;change "XX" 00450's to 00459 (NAACCR v22)
S ONCJFG=0
I ONCSCMA="00450" D I ONCJFG=1 Q
.I (ONCTPCD="C440")!(ONCTPCD="C442")!(ONCTPCD="C443")!(ONCTPCD="C444") D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8807))!(HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020) S ONCSCMA="00459",ONCJFG=1 Q
..I (HST14=9044)!(HST14=9120)!(HST14=9133)!(HST14=9180)!(HST14=9231)!(HST14=9581) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8809)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<8991)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C473")!(ONCTPCD="C475")!(ONCTPCD="C493")!(ONCTPCD="C494")!(ONCTPCD="C495") D I ONCJFG=1 Q
..I (HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=9120)!(HST14=9133)!(HST14=9180) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C481")!(ONCTPCD="C482")!(ONCTPCD="C483")!(ONCTPCD="C484")!(ONCTPCD="C485")!(ONCTPCD="C486")!(ONCTPCD="C487")!(ONCTPCD="C488") D I ONCJFG=1 Q
..I (HST14=8806)!(HST14=8930)!(HST14=8931) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C696")!(ONCTPCD="C698") D I ONCJFG=1 Q
..I (HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9180)!(HST14=9222)!(HST14=9231) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C390")!(ONCTPCD="C398")!(ONCTPCD="C399")!((ONCT3>419)&(ONCT3<425))!((ONCT3>419)&(ONCT3<425))!((ONCT3>759)&(ONCT3<766))!(ONCTPCD="C767")!(ONCTPCD="C768")!((ONCT3>769)&(ONCT3<776))!(ONCTPCD="C778")!(ONCTPCD="C779") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C441") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8949)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9515))!((HST14>9519)&(HST14<9583)) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C445")!(ONCTPCD="C446")!(ONCTPCD="C447")!(ONCTPCD="C448")!(ONCTPCD="C449") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCSCMA="00459",ONCJFG=1 Q
.I (ONCTPCD="C569")!(ONCTPCD="C570") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!(HST14=8820)!(HST14=8821)!(HST14=8823)!(HST14=8824)!((HST14>8825)&(HST14<8882))!((HST14>8890)&(HST14<8901)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>8901)&(HST14<8906))!(HST14=8921)!(HST14=8932)!(HST14=8934)!(HST14=8940)!(HST14=8941)!((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8991)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>9009)&(HST14<9017))!((HST14>9029)&(HST14<9044))!(HST14=9045)!(HST14=9051)!((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))!(HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>9100)&(HST14<9106))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00459",ONCJFG=1 Q
.I ((ONCT3>570)&(ONCT3<580))!((ONCT3>739)&(ONCT3<750))!(ONCTPCD="C809") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582) S ONCSCMA="00459",ONCJFG=1 Q
.I ((ONCT3>699)&(ONCT3<722))!(ONCTPCD="C728")!(ONCTPCD="C729") D I ONCJFG=1 Q
..I ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!(HST14=8803)!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065) S ONCSCMA="00459",ONCJFG=1 Q
..I (HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138)) S ONCSCMA="00459",ONCJFG=1 Q
..I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9239)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9581))!(HST14=9582) S ONCSCMA="00459",ONCJFG=1 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHM2 13528 printed Dec 13, 2024@02:27:55 Page 2
ONCSCHM2 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/20/20
+1 ;;2.2;ONCOLOGY;**12,17**;Jul 31, 2013;Build 6
+2 ;
+3 ;00640 Skin Eyelid 64/XX
+4 IF ONCSCMA="00640"
Begin DoDot:1
+5 IF ((HST14>7999)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8087))!((HST14>8090)&(HST14<8132))!((HST14>8140)&(HST14<8181))!(HST14=8191)!((HST14>8200)&(HST14<8247))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+6 IF ((HST14>8247)&(HST14<8385))!(HST14=8391)!(HST14=8392)!((HST14>8401)&(HST14<8407))!(HST14=8408)!(HST14=8409)!(HST14=8420)!((HST14>8439)&(HST14<8475))!((HST14>8481)&(HST14<8701))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+7 ;00650 Conjunctiva 65/XX
+8 IF ONCSCMA="00650"
Begin DoDot:1
+9 IF ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8061))!((HST14>8076)&(HST14<8087))!((HST14>8090)&(HST14<8410))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+10 IF ((HST14>8412)&(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
+11 ;00700 Orbital Sarcoma 70/XX
+12 IF ONCSCMA="00700"
Begin DoDot:1
+13 IF (ONCTPCD="C690")!(ONCTPCD="C691")!(ONCTPCD="C692")!(ONCTPCD="C693")!(ONCTPCD="C694")!(ONCTPCD="C695")!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C699")!(ONCTPCD="C723")
Begin DoDot:2
+14 IF ((HST14>8709)&(HST14<8715))!(HST14=8803)!(HST14=8812)!(HST14=8813)!((HST14>8819)&(HST14<8825))!(HST14=8826)!(HST14=8827)!(HST14=8831)!((HST14>8832)&(HST14<8837))!(HST14=8841)!(HST14=8842)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+15 IF (HST14=8851)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8901)&(HST14<8906))!((HST14>8931)&(HST14<8935))!((HST14>8949)&(HST14<8961))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+16 IF ((HST14>8963)&(HST14<8976))!(HST14=8981)!((HST14>8982)&(HST14<8991))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9240)&(HST14<9362))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+17 IF ((HST14>8999)&(HST14<9017))!(HST14=9030)!((HST14>9040)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+18 IF ((HST14>9085)&(HST14<9092))!((HST14>9100)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+19 IF (HST14=9141)!(HST14=9142)!((HST14>9159)&(HST14<9176))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9572))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+20 IF (ONCTPCD="C690")!(ONCTPCD="C691")!(ONCTPCD="C692")!(ONCTPCD="C693")!(ONCTPCD="C694")!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C699")!(ONCTPCD="C723")
Begin DoDot:2
+21 IF (HST14=8941)!(HST14=8980)!(HST14=8982)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+22 IF (ONCTPCD="C690")!(ONCTPCD="C691")!(ONCTPCD="C692")!(ONCTPCD="C693")!(ONCTPCD="C694")!(ONCTPCD="C695")!(ONCTPCD="C696")!(ONCTPCD="C698")!(ONCTPCD="C699")
Begin DoDot:2
+23 IF (HST14=9064)!(HST14=9070)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9362)!((HST14>9379)&(HST14<9421))!((HST14>9422)&(HST14<9473))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+24 IF ((HST14>9473)&(HST14<9494))!((HST14>9500)&(HST14<9510))!(HST14=9520)!(HST14=9521)!(HST14=9523)!((HST14>9530)&(HST14<9540))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+25 ;
+26 ;00450 Soft Tissue Rare or 00459 Soft Tissue Other 45/XX
+27 IF (ONCSCMA="00450")!(ONCSCMA="00459")
Begin DoDot:1
+28 IF (ONCTPCD="C440")!(ONCTPCD="C442")!(ONCTPCD="C443")!(ONCTPCD="C444")
Begin DoDot:2
+29 IF ((HST14>7999)&(HST14<8807))!(HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)!(HST14=9044)!(HST14=9120)!(HST14=9133)!(HST14=9180)!(HST14=9231)!(HST14=9581)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+30 IF ((HST14>8709)&(HST14<8715))!((HST14>8809)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<8991))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+31 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+32 IF ((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+33 IF (ONCTPCD="C473")!(ONCTPCD="C475")!(ONCTPCD="C493")!(ONCTPCD="C494")!(ONCTPCD="C495")
Begin DoDot:2
+34 IF (HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=9120)!(HST14=9133)!(HST14=9180)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+35 IF (ONCTPCD="C481")!(ONCTPCD="C482")!(ONCTPCD="C483")!(ONCTPCD="C484")!(ONCTPCD="C485")!(ONCTPCD="C486")!(ONCTPCD="C487")!(ONCTPCD="C488")
Begin DoDot:2
+36 IF (HST14=8806)!(HST14=8930)!(HST14=8931)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+37 IF (ONCTPCD="C696")!(ONCTPCD="C698")
Begin DoDot:2
+38 IF (HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9180)!(HST14=9222)!(HST14=9231)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+39 IF (ONCTPCD="C390")!(ONCTPCD="C398")!(ONCTPCD="C399")!((ONCT3>419)&(ONCT3<425))!((ONCT3>419)&(ONCT3<425))!((ONCT3>759)&(ONCT3<766))!(ONCTPCD="C767")!(ONCTPCD="C768")!((ONCT3>769)&(ONCT3<776))!(ONCTPCD="C778")!(ONCTPCD="C779")
Begin DoDot:2
+40 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+41 IF (ONCTPCD="C441")
Begin DoDot:2
+42 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8949)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9515))!((HST14>9519)&(HST14<9583))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+43 IF (ONCTPCD="C445")!(ONCTPCD="C446")!(ONCTPCD="C447")!(ONCTPCD="C448")!(ONCTPCD="C449")
Begin DoDot:2
+44 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+45 IF (ONCTPCD="C569")!(ONCTPCD="C570")
Begin DoDot:2
+46 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!(HST14=8820)!(HST14=8821)!(HST14=8823)!(HST14=8824)!((HST14>8825)&(HST14<8882))!((HST14>8890)&(HST14<8901))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+47 IF ((HST14>8901)&(HST14<8906))!(HST14=8921)!(HST14=8932)!(HST14=8934)!(HST14=8940)!(HST14=8941)!((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8991))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+48 IF ((HST14>9009)&(HST14<9017))!((HST14>9029)&(HST14<9044))!(HST14=9045)!(HST14=9051)!((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))!(HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+49 IF ((HST14>9100)&(HST14<9106))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+50 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+51 IF ((ONCT3>570)&(ONCT3<580))!((ONCT3>739)&(ONCT3<750))!(ONCTPCD="C809")
Begin DoDot:2
+52 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+53 IF ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+54 IF ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+55 IF ((ONCT3>699)&(ONCT3<722))!(ONCTPCD="C728")!(ONCTPCD="C729")
Begin DoDot:2
+56 IF ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!(HST14=8803)!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+57 IF ((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+58 IF (HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+59 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9239)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9581))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+60 ;
+61 DO ^ONCSCHM3
+62 QUIT
C459 ;change "XX" 00450's to 00459 (NAACCR v22)
+1 SET ONCJFG=0
+2 IF ONCSCMA="00450"
Begin DoDot:1
+3 IF (ONCTPCD="C440")!(ONCTPCD="C442")!(ONCTPCD="C443")!(ONCTPCD="C444")
Begin DoDot:2
+4 IF ((HST14>7999)&(HST14<8807))!(HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!((HST14>8929)&(HST14<8932))!(HST14=8991)!(HST14=9020)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+5 IF (HST14=9044)!(HST14=9120)!(HST14=9133)!(HST14=9180)!(HST14=9231)!(HST14=9581)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+6 IF ((HST14>8709)&(HST14<8715))!((HST14>8809)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<8991))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+7 IF ((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+8 IF ((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+9 IF (ONCTPCD="C473")!(ONCTPCD="C475")!(ONCTPCD="C493")!(ONCTPCD="C494")!(ONCTPCD="C495")
Begin DoDot:2
+10 IF (HST14=8815)!(HST14=8901)!((HST14>8909)&(HST14<8921))!(HST14=9120)!(HST14=9133)!(HST14=9180)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+11 IF (ONCTPCD="C481")!(ONCTPCD="C482")!(ONCTPCD="C483")!(ONCTPCD="C484")!(ONCTPCD="C485")!(ONCTPCD="C486")!(ONCTPCD="C487")!(ONCTPCD="C488")
Begin DoDot:2
+12 IF (HST14=8806)!(HST14=8930)!(HST14=8931)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+13 IF (ONCTPCD="C696")!(ONCTPCD="C698")
Begin DoDot:2
+14 IF (HST14=8930)!(HST14=8931)!(HST14=8991)!(HST14=9020)!(HST14=9180)!(HST14=9222)!(HST14=9231)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+15 IF (ONCTPCD="C390")!(ONCTPCD="C398")!(ONCTPCD="C399")!((ONCT3>419)&(ONCT3<425))!((ONCT3>419)&(ONCT3<425))!((ONCT3>759)&(ONCT3<766))!(ONCTPCD="C767")!(ONCTPCD="C768")!((ONCT3>769)&(ONCT3<776))!(ONCTPCD="C778")!(ONCTPCD="C779")
Begin DoDot:2
+16 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8939)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+17 IF (ONCTPCD="C441")
Begin DoDot:2
+18 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8949)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9515))!((HST14>9519)&(HST14<9583))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+19 IF (ONCTPCD="C445")!(ONCTPCD="C446")!(ONCTPCD="C447")!(ONCTPCD="C448")!(ONCTPCD="C449")
Begin DoDot:2
+20 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8935))!((HST14>8940)&(HST14<8982))!((HST14>8982)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+21 IF (ONCTPCD="C569")!(ONCTPCD="C570")
Begin DoDot:2
+22 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!(HST14=8820)!(HST14=8821)!(HST14=8823)!(HST14=8824)!((HST14>8825)&(HST14<8882))!((HST14>8890)&(HST14<8901))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+23 IF ((HST14>8901)&(HST14<8906))!(HST14=8921)!(HST14=8932)!(HST14=8934)!(HST14=8940)!(HST14=8941)!((HST14>8950)&(HST14<8960))!((HST14>8962)&(HST14<8976))!((HST14>8980)&(HST14<8991))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+24 IF ((HST14>9009)&(HST14<9017))!((HST14>9029)&(HST14<9044))!(HST14=9045)!(HST14=9051)!((HST14>9052)&(HST14<9056))!((HST14>9060)&(HST14<9066))!(HST14=9072)!((HST14>9080)&(HST14<9085))!(HST14=9086)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+25 IF ((HST14>9100)&(HST14<9106))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+26 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+27 IF ((ONCT3>570)&(ONCT3<580))!((ONCT3>739)&(ONCT3<750))!(ONCTPCD="C809")
Begin DoDot:2
+28 IF ((HST14>8709)&(HST14<8715))!((HST14>8799)&(HST14<8804))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+29 IF ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9111))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+30 IF ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+31 IF ((ONCT3>699)&(ONCT3<722))!(ONCTPCD="C728")!(ONCTPCD="C729")
Begin DoDot:2
+32 IF ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!(HST14=8803)!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))!((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+33 IF ((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))!((HST14>8999)&(HST14<9017))!((HST14>9029)&(HST14<9044))!((HST14>9044)&(HST14<9064))!(HST14=9065)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+34 IF (HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
+35 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9231))!((HST14>9239)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9581))!(HST14=9582)
SET ONCSCMA="00459"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+36 QUIT
