Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCSCHM2

ONCSCHM2.m

Go to the documentation of this file.
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