- ONCSCHMX ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/28/19
- ;;2.2;ONCOLOGY;**10,12,13,17**;Jul 31, 2013;Build 6
- ;
- Q
- CHKAJID ;Special code for some Schemas-AJCC ID/Chapter values including 'XX'
- N ONCJFG,ONC3926 S ONCJFG=0
- S ONCHIST=$$HIST^ONCFUNC(D0)
- S ONCTPCD=$P(TOPCOD,".",1)_$P(TOPCOD,".",2) ;remove the "."
- S HST14=$E(ONCHIST,1,4),ONCT3=$E(ONCTPCD,2,5)
- S ONC3926=$P($G(^ONCO(165.5,D0,"SSD4")),U,21) ; Schema Discriminator 1
- S ONC3927=$P($G(^ONCO(165.5,D0,"SSD4")),U,22) ; Schema Discriminator 2
- D ^ONCSCHMA I ONCSCMA=0 W !!,"Unable to calculate the AJCC ID Value",! Q
- S ONCJFG=0
- ;
- ;
- ;00060 Cervical LN & Unknown Primary 6/XX
- I ONCSCMA="00060" D I ONCJFG=1 Q
- .I ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8046))!(HST14=8050)!((HST14>8052)&(HST14<8061))!((HST14>8074)&(HST14<8082))!((HST14>8084)&(HST14<8121))!((HST14>8121)&(HST14<8132))!((HST14>8140)&(HST14<8147)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8147)&(HST14<8192))!((HST14>8200)&(HST14<8301))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8445))!((HST14>8450)&(HST14<8475))!((HST14>8480)&(HST14<8525)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8529)&(HST14<8544))!((HST14>8550)&(HST14<8562))!((HST14>8569)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00090 Nasopharynx 9/XX
- I ONCSCMA="00090" D I ONCJFG=1 Q
- .I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8052))!((HST14>8052)&(HST14<8061))!((HST14>8073)&(HST14<8083)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8192))!((HST14>8200)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00111 Oropharynx (p16-) 11.1/XX
- I ONCSCMA="00111" D I ONCJFG=1 Q
- .I (ONCTPCD="C104")&((HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8074)!(HST14=8075)!(HST14=8082)!(HST14=8083)!(HST14=8086)!(HST14=8560)) S ONCAJID="XX",ONCJFG=1 Q
- .I "C019^C024^C051^C052^C090^C091^C098^C099^C100^C102^C103^C104^C108^C109^C111"[ONCTPCD D
- ..I ((HST14>7999)&(HST14<8051))!((HST14>8052)&(HST14<8061))!((HST14>8070)&(HST14<8074))!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8086))!((HST14>8089)&(HST14<8553)) S ONCAJID="XX",ONCJFG=1 Q
- ..I ((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ..I (HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8074)!(HST14=8075)!(HST14=8082)!(HST14=8083)!(HST14=8086)!(HST14=8560) S ONCAJID="11.1",ONCJFG=1 Q
- ;
- ;00100 Oropharynx (p16+) 10/XX
- I ONCSCMA="00100" D I ONCJFG=1 Q
- .I (ONCTPCD="C104")&((HST14=8070)!(HST14=8072)!(HST14=8083)!(HST14=8085)) S ONCAJID="XX",ONCJFG=1 Q
- .I "C019^C024^C051^C052^C090^C091^C098^C099^C100^C102^C103^C104^C108^C109^C111"[ONCTPCD D
- ..I ($E(ONCHIST,5)=2)&((HST14=8070)!(HST14=8072)!(HST14=8083)!(HST14=8085)) S ONCAJID="XX",ONCJFG=1 Q
- ..I ((HST14>7999)&(HST14<8061))!(HST14=8071)!((HST14>8072)&(HST14<8083))!(HST14=8084)!((HST14>8085)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00112 Hypopharynx 11.2/XX
- I ONCSCMA="00112" D I ONCJFG=1 Q
- .I ((HST14>7999)&(HST14<8051))!((HST14>8052)&(HST14<8061))!((HST14>8070)&(HST14<8074))!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8086))!((HST14>8089)&(HST14<8553)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00140 Melanoma of Head & Neck 14/XX
- I ONCSCMA="00140" D I ONCJFG=1 Q
- .I ((ONCT3>2)&(ONCT3<6))!((ONCT3>7)&(ONCT3<10))!((ONCT3>18)&(ONCT3<70))!((ONCT3>89)&(ONCT3<92))!((ONCT3>97)&(ONCT3<104))!((ONCT3>107)&(ONCT3<149))!(ONCT3=300)!(ONCT3=310)!(ONCT3=311)!((ONCT3>319)&(ONCT3<323))!(ONCT3=328)!(ONCT3=329) D
- ..I ($E(ONCHIST,5)=2) D I ONCJFG=1 Q
- ...I ((HST14=8720)!(HST14=8721)!(HST14=8722)!(HST14=8730)!(HST14=8745)!(HST14=8746)!(HST14=8770)!(HST14=8771)!(HST14=8772)) S ONCAJID="XX",ONCJFG=1 Q
- .I "C104^C301^C312^C313^C318^C319^C323"[ONCTPCD D I ONCJFG=1 Q
- ..I (HST14=8720)!(HST14=8721)!(HST14=8722)!(HST14=8730)!(HST14=8745)!(HST14=8746)!(HST14=8770)!(HST14=8771)!(HST14=8772) S ONCAJID="XX",ONCJFG=1 Q
- .I ((ONCT3>2)&(ONCT3<6))!((ONCT3>7)&(ONCT3<10))!((ONCT3>18)&(ONCT3<70))!((ONCT3>89)&(ONCT3<149))!((ONCT3>299)&(ONCT3<330)) D I ONCJFG=1 Q
- ..I ((HST14>8722)&(HST14<8729))!((HST14>8739)&(HST14<8745))!((HST14>8749)&(HST14<8763))!((HST14>8772)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00161 Esophagus (Squamous) 16.1/XX
- I (ONCSCMA="00161") D I ONCJFG=1 Q
- .I (HST14=8020)!(HST14=8051)!(HST14=8070)!(HST14=8074)!(HST14=8077)!(HST14=8083)!(HST14=8560) S ONCAJID=16.1,ONCAJCHP=16.1,ONCJFG=1 Q
- .I (HST14=8050)!(HST14=8052)!(HST14=8053)!(HST14=8054) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00169 Esophagus (excluding Squamous) 16.2/16.3/XX
- I (ONCSCMA="00169") D I ONCJFG=1 Q
- .I "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD D
- ..I (HST14=8240)!(HST14=8249) S ONCAJID=16.3,ONCAJCHP=16.3,ONCJFG=1 Q
- ..I (HST14=8150)!(HST14=8151)!(HST14=8152)!(HST14=8153)!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683) S ONCAJID="XX",ONCJFG=1 Q
- .I "C150^C151^C152^C153^C154^C155^C158^C159^C160"[ONCTPCD D
- ..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8071)!(HST14=8145)!(HST14=8246)!(HST14=8255) S ONCAJID=16.3,ONCAJCHP=16.3,ONCJFG=1 Q
- ..I ((HST14=8020)&(ONC3927=2))!(HST14=8140)!(HST14=8148)!(HST14=8200)!(HST14=8244)!(HST14=8430) S ONCAJID=16.2,ONCAJCHP=16.2,ONCJFG=1 Q
- ..I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8013))!((HST14>8013)&(HST14<8015))!((HST14>8020)&(HST14<8041))!(HST14=8060)!((HST14>8071)&(HST14<8074))!((HST14>8074)&(HST14<8077))!((HST14>8077)&(HST14<8083)) S ONCAJID="XX",ONCJFG=1 Q
- ..I ((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8145))!(HST14=8146)!(HST14=8147)!(HST14=8149)!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8192))!((HST14>8200)&(HST14<8232))!(HST14=8243)!(HST14=8245) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8041)&(HST14<8047))!(HST14=8247)!(HST14=8248) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8249)&(HST14<8255))!((HST14>8255)&(HST14<8421))!((HST14>8439)&(HST14<8553))!((HST14>8560)&(HST14<8683))!((HST14>8689)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00180 Small Intestine 18.1/18.2/XX
- I ONCSCMA="00180" D I ONCJFG=1 Q
- .I "C170^C171^C172^C178^C179"[ONCTPCD D
- ..I (HST14=8000)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8070)!(HST14=8148)!(HST14=8244)!(HST14=8255)!(HST14=8510)!(HST14=8560) S ONCAJID=18.2,ONCJFG=1 Q
- .I ONCTPCD="C173" D
- ..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8070)!(HST14=8140)!(HST14=8148)!(HST14=8210) S ONCAJID="XX",ONCJFG=1 Q
- ..I (HST14=8244)!(HST14=8255)!(HST14=8261)!(HST14=8263)!(HST14=8480)!(HST14=8481)!(HST14=8490)!(HST14=8510)!(HST14=8560) S ONCAJID="XX",ONCJFG=1 Q
- .I "C170^C171^C172^C173^C178^C179"[ONCTPCD D
- ..I ((HST14>7999)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132)) S ONCAJID="XX",ONCJFG=1 Q
- ..I ((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8148))!(HST14=8149) S ONCAJID="XX",ONCJFG=1 Q
- ..I (HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8205))!((HST14>8210)&(HST14<8213))!((HST14>8213)&(HST14<8232))!(HST14=8243) S ONCAJID="XX",ONCJFG=1 Q
- ..I ((HST14>8244)&(HST14<8249))!((HST14>8249)&(HST14<8255))!((HST14>8255)&(HST14<8261))!(HST14=8262) S ONCAJID="XX",ONCJFG=1 Q
- ..I ((HST14>8263)&(HST14<8475))!(HST14=8482)!((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
- ;
- ;00220 Liver 22/XX
- I ONCSCMA="00220" D I ONCJFG=1 Q
- .I ($E(ONCHIST,5)=2)&((HST14>8169)&(HST14<8175)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>7999)&(HST14<8164))!((HST14>8174)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00230 Bile Ducts Intrahepatic 23/XX
- I ONCSCMA="00230" D I ONCJFG=1 Q
- .I ((HST14>7999)&(HST14<8013))!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8148))!((HST14>8148)&(HST14<8159))!((HST14>8161)&(HST14<8176)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8189)&(HST14<8246))!((HST14>8246)&(HST14<8464))!((HST14>8470)&(HST14<8503))!((HST14>8503)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00241/00242/00250 Gallbladder/Cystic Duct/Bile Duct Perihilar 24/25/XX
- I (ONCSCMA="00241")!(ONCSCMA="00242")!(ONCSCMA="00250") D I ONCJFG=1 Q
- .I ((HST14>7999)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8070)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8148)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8148)&(HST14<8246))!((HST14>8246)&(HST14<8301))!((HST14>8310)&(HST14<8464))!((HST14>8470)&(HST14<8475))!((HST14>8503)&(HST14<8553))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- .I (HST14=8481)!(HST14=8482)!(HST14=8500)!(HST14=8501)!(HST14=8502)!((HST14>8560)&(HST14<8701))!((HST14>8719)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00260 Bile Ducts Distal 26/XX
- I ONCSCMA="00260" 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<8132)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8148))!((HST14>8148)&(HST14<8159))!(HST14=8161) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8162)&(HST14<8244))!(HST14=8245)!((HST14>8246)&(HST14<8301))!((HST14>8310)&(HST14<8464))!((HST14>8470)&(HST14<8475))!((HST14>8503)&(HST14<8553))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- .I (HST14=8481)!(HST14=8482)!(HST14=8501)!(HST14=8502)!((HST14>8560)&(HST14<8701))!((HST14>8719)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00360 Lung 36/XX
- I ONCSCMA="00360" D I ONCJFG=1 Q
- .I ((HST14>8000)&(HST14<8006))!(HST14=8011)!((HST14>8013)&(HST14<8022))!(HST14=8030)!((HST14>8033)&(HST14<8036))!((HST14>8042)&(HST14<8045))!((HST14>8045)&(HST14<8061)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8072)&(HST14<8082))!((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8192)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8200)&(HST14<8222))!(HST14=8231)!((HST14>8240)&(HST14<8246))!(HST14=8247)!(HST14=8248)!(HST14=8251)!((HST14>8260)&(HST14<8265))!((HST14>8269)&(HST14<8333)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8333)&(HST14<8421))!((HST14>8439)&(HST14<8475))!((HST14>8481)&(HST14<8551))!(HST14=8552)!(HST14=8561)!((HST14>8569)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00430 GIST 43.1/43.2/XX
- I ((ONCT3>149)&(ONCT3<160))!((ONCT3>169)&(ONCT3<173))!((ONCT3>177)&(ONCT3<210))!(ONCT3=480)!(ONCT3=482)!(ONCT3=488) D I ONCJFG=1 Q
- .I $E(ONCHIST,5)'=2 D
- ..I (HST14=8936)&(ONC3926="") S ONCAJID=43.2,ONCAJCHP=43.2,ONCJFG=1 Q
- I ONCTPCD="C481" D I ONCJFG=1 Q
- .I $E(ONCHIST,5)'=2 D
- ..I (HST14=8936)&((ONC3926=1)!(ONC3926=9)) S ONCAJID=43.2,ONCAJCHP=43.2,ONCJFG=1 Q
- I ONCTPCD="C173" D I ONCJFG=1 Q
- .I (HST14=8936)&(ONC3926="") S ONCAJID="XX",ONCJFG=1 Q
- I ONCTPCD="C481" D I ONCJFG=1 Q
- .I (HST14=8935)&((ONC3926=1)!(ONC3926=2)!(ONC3926=9)) S ONCAJID="XX",ONCJFG=1 Q
- .I (HST14=8936)&($E(ONCHIST,5)=2)&((ONC3926=1)!(ONC3926=2)!(ONC3926=9)) S ONCAJID="XX",ONCJFG=1 Q
- I ((ONCT3>149)&(ONCT3<173))!((ONCT3>177)&(ONCT3<210))!(ONCT3=480)!(ONCT3=482)!(ONCT3=488) D I ONCJFG=1 Q
- .I (HST14=8936)&($E(ONCHIST,5)=2)&(ONC3926="") S ONCAJID="XX",ONCJFG=1 Q
- I ((ONCT3>149)&(ONCT3<210))!(ONCT3=480)!(ONCT3=481)!(ONCT3=482)!(ONCT3=488) D I ONCJFG=1 Q
- .I (HST14=8935)&(ONC3926="") S ONCAJID="XX",ONCJFG=1 Q
- I (ONCT3="000")!((ONCT3>0)&(ONCT3<149))!((ONCT3>209)&(ONCT3<480))!((ONCT3>489)&(ONCT3<540))!((ONCT3>570)&(ONCT3<700))!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810)) D I ONCJFG=1 Q
- .I ((HST14=8935)!(HST14=8936))&(ONC3926="") S ONCAJID="XX",ONCJFG=1 Q
- I ((ONCT3>699)&(ONCT3<730))!((ONCT3>750)&(ONCT3<754)) D I ONCJFG=1 Q
- .I ((HST14=8935)!(HST14=8936))&($E(ONCHIST,5)=3)&(ONC3926="") S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00470 Melanoma of the Skin 47/XX
- I ONCSCMA="00470" D I ONCJFG=1 Q
- .I (HST14=8722)!((HST14>8724)&(HST14<8729))!(HST14=8740)!(HST14=8741)!((HST14>8745)&(HST14<8761))!(HST14=8762)!(HST14=8773)!(HST14=8774)!(HST14=8790) S ONCAJID="XX",ONCJFG=1 Q
- ;
- ;00480 Breast 48.1/48.2/XX
- I "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD D I ONCJFG=1 Q
- .I $E(ONCHIST,5)=2 D
- ..I (HST14=8000)!(HST14=8010)!(HST14=8022)!(HST14=8032)!(HST14=8035)!(HST14=8041)!(HST14=8070)!(HST14=8140)!(HST14=8200)!(HST14=8211)!(HST14=8246)!(HST14=8255)!(HST14=8290)!(HST14=8314)!(HST14=8315)!(HST14=8401) S ONCAJID="XX",ONCJFG=1 Q
- ..I (HST14=8410)!(HST14=8430)!(HST14=8480)!(HST14=8502)!(HST14=8510)!(HST14=8513)!((HST14>8519)&(HST14<8526))!(HST14=8530)!(HST14=8540)!(HST14=8541)!(HST14=8550)!((HST14>8569)&(HST14<8573))!(HST14=8574) S ONCAJID="XX",ONCJFG=1 Q
- ..I (HST14=8575)!(HST14=8982)!(HST14=8983) S ONCAJID="XX",ONCJFG=1 Q
- I "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD D I ONCJFG=1 Q
- .I $E(ONCHIST,5)=2 D
- ..I (HST14=8201)!(HST14=8500)!(HST14=8501)!(HST14=8503)!(HST14=8504)!(HST14=8507)!(HST14=8509)!(HST14=8543) S ONCAJID=48.1,ONCJFG=1
- I "C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD D I ONCJFG=1 Q
- .I ((HST14>8719)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1
- ;
- ;00580 Prostate 58/XX
- I ONCSCMA="00580" D I ONCJFG=1 Q
- .I ($E(ONCHIST,5)=2)&((HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8070)!(HST14=8120)!(HST14=8140)!(HST14=8147)!(HST14=8148)!(HST14=8201)!(HST14=8230)!(HST14=8240)) S ONCAJID="XX",ONCJFG=1 Q
- .I ($E(ONCHIST,5)=2)&((HST14=8260)!(HST14=8480)!(HST14=8490)!(HST14=8500)!(HST14=8560)!(HST14=8572)!(HST14=8574)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8010)&(HST14<8013))!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8111))!((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8147))!((HST14>8148)&(HST14<8201)) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8201)&(HST14<8222))!(HST14=8231)!((HST14>8240)&(HST14<8258))!((HST14>8260)&(HST14<8475))!(HST14=8481)!(HST14=8482)!((HST14>8500)&(HST14<8553))!((HST14>8560)&(HST14<8572))!(HST14=8573) S ONCAJID="XX",ONCJFG=1 Q
- .I ((HST14>8574)&(HST14<8701))!((HST14>8000)&(HST14<8006))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
- ;
- D ^ONCSCHMY ;continued in ONCSCHMY
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMX 14533 printed Feb 18, 2025@23:54:39 Page 2
- ONCSCHMX ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/28/19
- +1 ;;2.2;ONCOLOGY;**10,12,13,17**;Jul 31, 2013;Build 6
- +2 ;
- +3 QUIT
- CHKAJID ;Special code for some Schemas-AJCC ID/Chapter values including 'XX'
- +1 NEW ONCJFG,ONC3926
- SET ONCJFG=0
- +2 SET ONCHIST=$$HIST^ONCFUNC(D0)
- +3 ;remove the "."
- SET ONCTPCD=$PIECE(TOPCOD,".",1)_$PIECE(TOPCOD,".",2)
- +4 SET HST14=$EXTRACT(ONCHIST,1,4)
- SET ONCT3=$EXTRACT(ONCTPCD,2,5)
- +5 ; Schema Discriminator 1
- SET ONC3926=$PIECE($GET(^ONCO(165.5,D0,"SSD4")),U,21)
- +6 ; Schema Discriminator 2
- SET ONC3927=$PIECE($GET(^ONCO(165.5,D0,"SSD4")),U,22)
- +7 DO ^ONCSCHMA
- IF ONCSCMA=0
- WRITE !!,"Unable to calculate the AJCC ID Value",!
- QUIT
- +8 SET ONCJFG=0
- +9 ;
- +10 ;
- +11 ;00060 Cervical LN & Unknown Primary 6/XX
- +12 IF ONCSCMA="00060"
- Begin DoDot:1
- +13 IF ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8046))!(HST14=8050)!((HST14>8052)&(HST14<8061))!((HST14>8074)&(HST14<8082))!((HST14>8084)&(HST14<8121))!((HST14>8121)&(HST14<8132))!((HST14>8140)&(HST14<8147))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +14 IF ((HST14>8147)&(HST14<8192))!((HST14>8200)&(HST14<8301))!((HST14>8310)&(HST14<8421))!((HST14>8439)&(HST14<8445))!((HST14>8450)&(HST14<8475))!((HST14>8480)&(HST14<8525))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +15 IF ((HST14>8529)&(HST14<8544))!((HST14>8550)&(HST14<8562))!((HST14>8569)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +16 ;
- +17 ;00090 Nasopharynx 9/XX
- +18 IF ONCSCMA="00090"
- Begin DoDot:1
- +19 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8052))!((HST14>8052)&(HST14<8061))!((HST14>8073)&(HST14<8083))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +20 IF ((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8192))!((HST14>8200)&(HST14<8701))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +21 ;
- +22 ;00111 Oropharynx (p16-) 11.1/XX
- +23 IF ONCSCMA="00111"
- Begin DoDot:1
- +24 IF (ONCTPCD="C104")&((HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8074)!(HST14=8075)!(HST14=8082)!(HST14=8083)!(HST14=8086)!(HST14=8560))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +25 IF "C019^C024^C051^C052^C090^C091^C098^C099^C100^C102^C103^C104^C108^C109^C111"[ONCTPCD
- Begin DoDot:2
- +26 IF ((HST14>7999)&(HST14<8051))!((HST14>8052)&(HST14<8061))!((HST14>8070)&(HST14<8074))!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8086))!((HST14>8089)&(HST14<8553))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +27 IF ((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +28 IF (HST14=8051)!(HST14=8052)!(HST14=8070)!(HST14=8074)!(HST14=8075)!(HST14=8082)!(HST14=8083)!(HST14=8086)!(HST14=8560)
- SET ONCAJID="11.1"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +29 ;
- +30 ;00100 Oropharynx (p16+) 10/XX
- +31 IF ONCSCMA="00100"
- Begin DoDot:1
- +32 IF (ONCTPCD="C104")&((HST14=8070)!(HST14=8072)!(HST14=8083)!(HST14=8085))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +33 IF "C019^C024^C051^C052^C090^C091^C098^C099^C100^C102^C103^C104^C108^C109^C111"[ONCTPCD
- Begin DoDot:2
- +34 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8070)!(HST14=8072)!(HST14=8083)!(HST14=8085))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +35 IF ((HST14>7999)&(HST14<8061))!(HST14=8071)!((HST14>8072)&(HST14<8083))!(HST14=8084)!((HST14>8085)&(HST14<8701))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +36 ;
- +37 ;00112 Hypopharynx 11.2/XX
- +38 IF ONCSCMA="00112"
- Begin DoDot:1
- +39 IF ((HST14>7999)&(HST14<8051))!((HST14>8052)&(HST14<8061))!((HST14>8070)&(HST14<8074))!((HST14>8075)&(HST14<8082))!((HST14>8083)&(HST14<8086))!((HST14>8089)&(HST14<8553))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +40 IF ((HST14>8560)&(HST14<8701))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +41 ;
- +42 ;00140 Melanoma of Head & Neck 14/XX
- +43 IF ONCSCMA="00140"
- Begin DoDot:1
- +44 IF ((ONCT3>2)&(ONCT3<6))!((ONCT3>7)&(ONCT3<10))!((ONCT3>18)&(ONCT3<70))!((ONCT3>89)&(ONCT3<92))!((ONCT3>97)&(ONCT3<104))!((ONCT3>107)&(ONCT3<149))!(ONCT3=300)!(ONCT3=310)!(ONCT3=311)!((ONCT3>319)&(ONCT3<323))!(ONCT3=328)!(ONCT3=329)
- Begin DoDot:2
- +45 IF ($EXTRACT(ONCHIST,5)=2)
- Begin DoDot:3
- +46 IF ((HST14=8720)!(HST14=8721)!(HST14=8722)!(HST14=8730)!(HST14=8745)!(HST14=8746)!(HST14=8770)!(HST14=8771)!(HST14=8772))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:3
- IF ONCJFG=1
- QUIT
- End DoDot:2
- +47 IF "C104^C301^C312^C313^C318^C319^C323"[ONCTPCD
- Begin DoDot:2
- +48 IF (HST14=8720)!(HST14=8721)!(HST14=8722)!(HST14=8730)!(HST14=8745)!(HST14=8746)!(HST14=8770)!(HST14=8771)!(HST14=8772)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- IF ONCJFG=1
- QUIT
- +49 IF ((ONCT3>2)&(ONCT3<6))!((ONCT3>7)&(ONCT3<10))!((ONCT3>18)&(ONCT3<70))!((ONCT3>89)&(ONCT3<149))!((ONCT3>299)&(ONCT3<330))
- Begin DoDot:2
- +50 IF ((HST14>8722)&(HST14<8729))!((HST14>8739)&(HST14<8745))!((HST14>8749)&(HST14<8763))!((HST14>8772)&(HST14<8791))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- IF ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +51 ;
- +52 ;00161 Esophagus (Squamous) 16.1/XX
- +53 IF (ONCSCMA="00161")
- Begin DoDot:1
- +54 IF (HST14=8020)!(HST14=8051)!(HST14=8070)!(HST14=8074)!(HST14=8077)!(HST14=8083)!(HST14=8560)
- SET ONCAJID=16.1
- SET ONCAJCHP=16.1
- SET ONCJFG=1
- QUIT
- +55 IF (HST14=8050)!(HST14=8052)!(HST14=8053)!(HST14=8054)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +56 ;
- +57 ;00169 Esophagus (excluding Squamous) 16.2/16.3/XX
- +58 IF (ONCSCMA="00169")
- Begin DoDot:1
- +59 IF "C150^C151^C152^C153^C154^C155^C158^C159"[ONCTPCD
- Begin DoDot:2
- +60 IF (HST14=8240)!(HST14=8249)
- SET ONCAJID=16.3
- SET ONCAJCHP=16.3
- SET ONCJFG=1
- QUIT
- +61 IF (HST14=8150)!(HST14=8151)!(HST14=8152)!(HST14=8153)!(HST14=8155)!(HST14=8156)!(HST14=8158)!(HST14=8241)!(HST14=8242)!(HST14=8683)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- +62 IF "C150^C151^C152^C153^C154^C155^C158^C159^C160"[ONCTPCD
- Begin DoDot:2
- +63 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8071)!(HST14=8145)!(HST14=8246)!(HST14=8255)
- SET ONCAJID=16.3
- SET ONCAJCHP=16.3
- SET ONCJFG=1
- QUIT
- +64 IF ((HST14=8020)&(ONC3927=2))!(HST14=8140)!(HST14=8148)!(HST14=8200)!(HST14=8244)!(HST14=8430)
- SET ONCAJID=16.2
- SET ONCAJCHP=16.2
- SET ONCJFG=1
- QUIT
- +65 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8013))!((HST14>8013)&(HST14<8015))!((HST14>8020)&(HST14<8041))!(HST14=8060)!((HST14>8071)&(HST14<8074))!((HST14>8074)&(HST14<8077))!((HST14>8077)&(HST14<8083))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +66 IF ((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8145))!(HST14=8146)!(HST14=8147)!(HST14=8149)!(HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8192))!((HST14>8200)&(HST14<8232))!(HST14=8243)!(HST14=8245)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- +67 IF ((HST14>8041)&(HST14<8047))!(HST14=8247)!(HST14=8248)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +68 IF ((HST14>8249)&(HST14<8255))!((HST14>8255)&(HST14<8421))!((HST14>8439)&(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
- +69 ;
- +70 ;00180 Small Intestine 18.1/18.2/XX
- +71 IF ONCSCMA="00180"
- Begin DoDot:1
- +72 IF "C170^C171^C172^C178^C179"[ONCTPCD
- Begin DoDot:2
- +73 IF (HST14=8000)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8070)!(HST14=8148)!(HST14=8244)!(HST14=8255)!(HST14=8510)!(HST14=8560)
- SET ONCAJID=18.2
- SET ONCJFG=1
- QUIT
- End DoDot:2
- +74 IF ONCTPCD="C173"
- Begin DoDot:2
- +75 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8070)!(HST14=8140)!(HST14=8148)!(HST14=8210)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +76 IF (HST14=8244)!(HST14=8255)!(HST14=8261)!(HST14=8263)!(HST14=8480)!(HST14=8481)!(HST14=8490)!(HST14=8510)!(HST14=8560)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- +77 IF "C170^C171^C172^C173^C178^C179"[ONCTPCD
- Begin DoDot:2
- +78 IF ((HST14>7999)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +79 IF ((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8148))!(HST14=8149)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +80 IF (HST14=8154)!(HST14=8157)!((HST14>8159)&(HST14<8205))!((HST14>8210)&(HST14<8213))!((HST14>8213)&(HST14<8232))!(HST14=8243)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +81 IF ((HST14>8244)&(HST14<8249))!((HST14>8249)&(HST14<8255))!((HST14>8255)&(HST14<8261))!(HST14=8262)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +82 IF ((HST14>8263)&(HST14<8475))!(HST14=8482)!((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:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +83 ;
- +84 ;00220 Liver 22/XX
- +85 IF ONCSCMA="00220"
- Begin DoDot:1
- +86 IF ($EXTRACT(ONCHIST,5)=2)&((HST14>8169)&(HST14<8175))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +87 IF ((HST14>7999)&(HST14<8164))!((HST14>8174)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +88 ;
- +89 ;00230 Bile Ducts Intrahepatic 23/XX
- +90 IF ONCSCMA="00230"
- Begin DoDot:1
- +91 IF ((HST14>7999)&(HST14<8013))!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8148))!((HST14>8148)&(HST14<8159))!((HST14>8161)&(HST14<8176))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +92 IF ((HST14>8189)&(HST14<8246))!((HST14>8246)&(HST14<8464))!((HST14>8470)&(HST14<8503))!((HST14>8503)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +93 ;
- +94 ;00241/00242/00250 Gallbladder/Cystic Duct/Bile Duct Perihilar 24/25/XX
- +95 IF (ONCSCMA="00241")!(ONCSCMA="00242")!(ONCSCMA="00250")
- Begin DoDot:1
- +96 IF ((HST14>7999)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +97 IF ((HST14>8070)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8148))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +98 IF ((HST14>8148)&(HST14<8246))!((HST14>8246)&(HST14<8301))!((HST14>8310)&(HST14<8464))!((HST14>8470)&(HST14<8475))!((HST14>8503)&(HST14<8553))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +99 IF (HST14=8481)!(HST14=8482)!(HST14=8500)!(HST14=8501)!(HST14=8502)!((HST14>8560)&(HST14<8701))!((HST14>8719)&(HST14<8791))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +100 ;
- +101 ;00260 Bile Ducts Distal 26/XX
- +102 IF ONCSCMA="00260"
- Begin DoDot:1
- +103 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!(HST14=8012)!(HST14=8014)!(HST14=8015)!((HST14>8020)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8132))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +104 IF ((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8148))!((HST14>8148)&(HST14<8159))!(HST14=8161)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +105 IF ((HST14>8162)&(HST14<8244))!(HST14=8245)!((HST14>8246)&(HST14<8301))!((HST14>8310)&(HST14<8464))!((HST14>8470)&(HST14<8475))!((HST14>8503)&(HST14<8553))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +106 IF (HST14=8481)!(HST14=8482)!(HST14=8501)!(HST14=8502)!((HST14>8560)&(HST14<8701))!((HST14>8719)&(HST14<8791))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +107 ;
- +108 ;00360 Lung 36/XX
- +109 IF ONCSCMA="00360"
- Begin DoDot:1
- +110 IF ((HST14>8000)&(HST14<8006))!(HST14=8011)!((HST14>8013)&(HST14<8022))!(HST14=8030)!((HST14>8033)&(HST14<8036))!((HST14>8042)&(HST14<8045))!((HST14>8045)&(HST14<8061))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +111 IF ((HST14>8072)&(HST14<8082))!((HST14>8083)&(HST14<8132))!((HST14>8140)&(HST14<8144))!((HST14>8144)&(HST14<8192))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +112 IF ((HST14>8200)&(HST14<8222))!(HST14=8231)!((HST14>8240)&(HST14<8246))!(HST14=8247)!(HST14=8248)!(HST14=8251)!((HST14>8260)&(HST14<8265))!((HST14>8269)&(HST14<8333))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +113 IF ((HST14>8333)&(HST14<8421))!((HST14>8439)&(HST14<8475))!((HST14>8481)&(HST14<8551))!(HST14=8552)!(HST14=8561)!((HST14>8569)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +114 ;
- +115 ;00430 GIST 43.1/43.2/XX
- +116 IF ((ONCT3>149)&(ONCT3<160))!((ONCT3>169)&(ONCT3<173))!((ONCT3>177)&(ONCT3<210))!(ONCT3=480)!(ONCT3=482)!(ONCT3=488)
- Begin DoDot:1
- +117 IF $EXTRACT(ONCHIST,5)'=2
- Begin DoDot:2
- +118 IF (HST14=8936)&(ONC3926="")
- SET ONCAJID=43.2
- SET ONCAJCHP=43.2
- SET ONCJFG=1
- QUIT
- End DoDot:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +119 IF ONCTPCD="C481"
- Begin DoDot:1
- +120 IF $EXTRACT(ONCHIST,5)'=2
- Begin DoDot:2
- +121 IF (HST14=8936)&((ONC3926=1)!(ONC3926=9))
- SET ONCAJID=43.2
- SET ONCAJCHP=43.2
- SET ONCJFG=1
- QUIT
- End DoDot:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +122 IF ONCTPCD="C173"
- Begin DoDot:1
- +123 IF (HST14=8936)&(ONC3926="")
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +124 IF ONCTPCD="C481"
- Begin DoDot:1
- +125 IF (HST14=8935)&((ONC3926=1)!(ONC3926=2)!(ONC3926=9))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +126 IF (HST14=8936)&($EXTRACT(ONCHIST,5)=2)&((ONC3926=1)!(ONC3926=2)!(ONC3926=9))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +127 IF ((ONCT3>149)&(ONCT3<173))!((ONCT3>177)&(ONCT3<210))!(ONCT3=480)!(ONCT3=482)!(ONCT3=488)
- Begin DoDot:1
- +128 IF (HST14=8936)&($EXTRACT(ONCHIST,5)=2)&(ONC3926="")
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +129 IF ((ONCT3>149)&(ONCT3<210))!(ONCT3=480)!(ONCT3=481)!(ONCT3=482)!(ONCT3=488)
- Begin DoDot:1
- +130 IF (HST14=8935)&(ONC3926="")
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +131 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<149))!((ONCT3>209)&(ONCT3<480))!((ONCT3>489)&(ONCT3<540))!((ONCT3>570)&(ONCT3<700))!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810))
- Begin DoDot:1
- +132 IF ((HST14=8935)!(HST14=8936))&(ONC3926="")
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +133 IF ((ONCT3>699)&(ONCT3<730))!((ONCT3>750)&(ONCT3<754))
- Begin DoDot:1
- +134 IF ((HST14=8935)!(HST14=8936))&($EXTRACT(ONCHIST,5)=3)&(ONC3926="")
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +135 ;
- +136 ;00470 Melanoma of the Skin 47/XX
- +137 IF ONCSCMA="00470"
- Begin DoDot:1
- +138 IF (HST14=8722)!((HST14>8724)&(HST14<8729))!(HST14=8740)!(HST14=8741)!((HST14>8745)&(HST14<8761))!(HST14=8762)!(HST14=8773)!(HST14=8774)!(HST14=8790)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +139 ;
- +140 ;00480 Breast 48.1/48.2/XX
- +141 IF "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD
- Begin DoDot:1
- +142 IF $EXTRACT(ONCHIST,5)=2
- Begin DoDot:2
- +143 IF (HST14=8000)!(HST14=8010)!(HST14=8022)!(HST14=8032)!(HST14=8035)!(HST14=8041)!(HST14=8070)!(HST14=8140)!(HST14=8200)!(HST14=8211)!(HST14=8246)!(HST14=8255)!(HST14=8290)!(HST14=8314)!(HST14=8315)!(HST14=8401)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +144 IF (HST14=8410)!(HST14=8430)!(HST14=8480)!(HST14=8502)!(HST14=8510)!(HST14=8513)!((HST14>8519)&(HST14<8526))!(HST14=8530)!(HST14=8540)!(HST14=8541)!(HST14=8550)!((HST14>8569)&(HST14<8573))!(HST14=8574)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +145 IF (HST14=8575)!(HST14=8982)!(HST14=8983)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +146 IF "C500^C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD
- Begin DoDot:1
- +147 IF $EXTRACT(ONCHIST,5)=2
- Begin DoDot:2
- +148 IF (HST14=8201)!(HST14=8500)!(HST14=8501)!(HST14=8503)!(HST14=8504)!(HST14=8507)!(HST14=8509)!(HST14=8543)
- SET ONCAJID=48.1
- SET ONCJFG=1
- End DoDot:2
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +149 IF "C501^C502^C503^C504^C505^C506^C508^C509"[ONCTPCD
- Begin DoDot:1
- +150 IF ((HST14>8719)&(HST14<8791))
- SET ONCAJID="XX"
- SET ONCJFG=1
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +151 ;
- +152 ;00580 Prostate 58/XX
- +153 IF ONCSCMA="00580"
- Begin DoDot:1
- +154 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8041)!(HST14=8070)!(HST14=8120)!(HST14=8140)!(HST14=8147)!(HST14=8148)!(HST14=8201)!(HST14=8230)!(HST14=8240))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +155 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8260)!(HST14=8480)!(HST14=8490)!(HST14=8500)!(HST14=8560)!(HST14=8572)!(HST14=8574))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +156 IF ((HST14>8010)&(HST14<8013))!((HST14>8013)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8111))!((HST14>8120)&(HST14<8132))!((HST14>8140)&(HST14<8147))!((HST14>8148)&(HST14<8201))
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +157 IF ((HST14>8201)&(HST14<8222))!(HST14=8231)!((HST14>8240)&(HST14<8258))!((HST14>8260)&(HST14<8475))!(HST14=8481)!(HST14=8482)!((HST14>8500)&(HST14<8553))!((HST14>8560)&(HST14<8572))!(HST14=8573)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- +158 IF ((HST14>8574)&(HST14<8701))!((HST14>8000)&(HST14<8006))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
- SET ONCAJID="XX"
- SET ONCJFG=1
- QUIT
- End DoDot:1
- IF ONCJFG=1
- QUIT
- +159 ;
- +160 ;continued in ONCSCHMY
- DO ^ONCSCHMY
- +161 QUIT