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

ONCSCHM1.m

Go to the documentation of this file.
ONCSCHM1 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/19/20
 ;;2.2;ONCOLOGY;**12,13**;Jul 31, 2013;Build 7
 ;
 ;00530 Corpus Carcinoma and Carcinosarcoma 53/XX
 I ONCSCMA="00530" D  I ONCJFG=1 Q
 .I $E(ONCHIST,5)=2 D
 ..I (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8070)!(HST14=8140)!(HST14=8240)!(HST14=8255)!(HST14=8263)!(HST14=8310) S ONCAJID="XX",ONCJFG=1 Q
 ..I (HST14=8323)!(HST14=8380)!(HST14=8382)!(HST14=8441)!((HST14>8459)&(HST14<8462))!(HST14=8480)!(HST14=8560)!(HST14=8570)!(HST14=8950)!(HST14=8980) 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<8061))!((HST14>8070)&(HST14<8132))!((HST14>8140)&(HST14<8232)) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8240)&(HST14<8255))!((HST14>8255)&(HST14<8263))!((HST14>8263)&(HST14<8301))!((HST14>8310)&(HST14<8323))!((HST14>8323)&(HST14<8376))!(HST14=8381)!((HST14>8382)&(HST14<8441)) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8441)&(HST14<8455))!((HST14>8461)&(HST14<8475))!((HST14>8480)&(HST14<8553)) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8560)&(HST14<8563))!((HST14>8570)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
 ;
 ;00541 Corpus Sarcoma 54.1/XX
 I ONCSCMA="00541" D  I ONCJFG=1 Q
 .I ((HST14>8709)&(HST14<8714))!((HST14>8800)&(HST14<8805))!((HST14>8805)&(HST14<8882))!((HST14>8891)&(HST14<8896))!(HST14=8897)!(HST14=8898)!((HST14>8900)&(HST14<8906)) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8911)&(HST14<8922))!(HST14=8932)!(HST14=8934)!((HST14>8935)&(HST14<8942))!((HST14>8950)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9583)) S ONCAJID="XX",ONCJFG=1 Q
 ;
 ;00551 00552 00553 Ovary/Primary Peritoneal Carcinoma/Fallopian Tube 55/XX
 I (ONCSCMA="00551")!(ONCSCMA="00552")!(ONCSCMA="00553") D  I ONCJFG=1 Q
 .I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1)!($E(ONCHIST,5)=2) D
 ..I (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8041)!(HST14=8044)!(HST14=8070)!(HST14=8120)!(HST14=8140)!(HST14=8240)!(HST14=8243)!(HST14=8310)!(HST14=8323)!(HST14=8410)!(HST14=8452)!(HST14=8460) S ONCAJID="XX",ONCJFG=1 Q
 ..I (HST14=8461)!(HST14=8470)!(HST14=8480)!(HST14=8590)!(HST14=8594)!(HST14=8620)!(HST14=8622)!(HST14=8623)!(HST14=8631)!(HST14=8633)!(HST14=8634)!(HST14=8640)!(HST14=8670)!(HST14=8806)!(HST14=8810) S ONCAJID="XX",ONCJFG=1 Q
 ..I (HST14=8815)!(HST14=8822)!(HST14=8825)!(HST14=8890)!(HST14=8930)!(HST14=8931)!(HST14=8933)!(HST14=8936)!(HST14=8950)!(HST14=8960)!(HST14=8980)!(HST14=9050)!(HST14=9052)!(HST14=9060) S ONCAJID="XX",ONCJFG=1 Q
 ..I (HST14=9070)!(HST14=9071)!(HST14=9073)!(HST14=9080)!(HST14=9085)!(HST14=9090)!(HST14=9091)!(HST14=9100)!(HST14=9110) S ONCAJID="XX",ONCJFG=1 Q
 .I $E(ONCHIST,5)=2 D
 ..I (HST14=8313)!(HST14=8380)!(HST14=8442)!(HST14=8472)!(HST14=8474)!(HST14=9000) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8041))!(HST14=8042)!(HST14=8043)!((HST14>8044)&(HST14<8061))!((HST14>8070)&(HST14<8111))!((HST14>8120)&(HST14<8132)) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8140)&(HST14<8232))!(HST14=8241)!(HST14=8242)!((HST14>8243)&(HST14<8301))!(HST14=8311)!(HST14=8312)!((HST14>8313)&(HST14<8323))!((HST14>8323)&(HST14<8376))!((HST14>8380)&(HST14<8410)) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>8412)&(HST14<8441))!((HST14>8442)&(HST14<8452))!(HST14=8453)!(HST14=8454)!(HST14=8462)!(HST14=8463)!(HST14=8471)!((HST14>8480)&(HST14<8590))!((HST14>8590)&(HST14<8594))!((HST14>8599)&(HST14<8611)) S ONCAJID="XX",ONCJFG=1 Q
 .I (HST14=8621)!(HST14=8630)!(HST14=8632)!((HST14>8640)&(HST14<8661))!((HST14>8670)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8935)!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
 I (ONCSCMA="00551")!(ONCSCMA="00553") D  I ONCJFG=1 Q
 .I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
 ..I (HST14=8441) S ONCAJID="XX",ONCJFG=1 Q
 ;
 ;00560 Placenta 56/XX
 I ONCSCMA="00560" D  I ONCJFG=1 Q
 .I $E(ONCHIST,5)=2 D
 ..I (HST14=9100)!(HST14=9104)!(HST14=9105) S ONCAJID="XX",ONCJFG=1 Q
 .I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9101)!(HST14=9102)!(HST14=9103)!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
 ;
 ;00811 Mycosis Fungoides 81.1/XX
 I ONCSCMA="00811" D  I ONCJFG=1 Q
 .I "C000^C001^C002^C006^C441^C511^C512^C518^C519^C600^C601^C602^C608"[ONCTPCD D  I ONCJFG=1 Q
 ..I (HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
 ;
 ;00821 Plasma Cell Myeloma 82.1/XX
 I ONCSCMA="00821" D  I ONCJFG=1 Q
 .I (ONC3926=1)!(ONC3926=9) S ONCAJID="XX",ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<302))!((ONCT3>319)&(ONCT3<400))!(ONCT3=420)!((ONCT3>421)&(ONCT3<425))!(ONCT3=441) S ONCAJID="XX",ONCJFG=1 Q
 .I ((ONCT3>469)&(ONCT3<510))!((ONCT3>528)&(ONCT3<590))!((ONCT3>618)&(ONCT3<632))!((ONCT3>636)&(ONCT3<810)) S ONCAJID="XX",ONCJFG=1 Q
 .S ONCAJID=82.1,ONCJFG=1 Q
 ;
 ;00822 Plasma Cell Disorders 82.2/XX
 I ONCSCMA="00822" D  I ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<302))!((ONCT3>319)&(ONCT3<400))!(ONCT3=420)!((ONCT3>421)&(ONCT3<425))!((ONCT3>469)&(ONCT3<510))!((ONCT3>528)&(ONCT3<590))!((ONCT3>618)&(ONCT3<632))!((ONCT3>636)&(ONCT3<690)) D  I ONCJFG=1 Q
 ..I (HST14=9671)!(HST14=9731)!(HST14=9734)!(HST14=9761) S ONCAJID="XX",ONCJFG=1 Q
 .I ((ONCT3>690)&(ONCT3<695))!((ONCT3>697)&(ONCT3<810)) D  I ONCJFG=1 Q
 ..I (HST14=9671)!(HST14=9731)!(HST14=9734)!(HST14=9761) S ONCAJID="XX",ONCJFG=1 Q
 .I (ONCT3=441)!(ONCT3=690)!(ONCT3=695)!(ONCT3=696) D  I ONCJFG=1 Q
 ..I (HST14=9731)!(HST14=9761) S ONCAJID="XX",ONCJFG=1 Q
 .S ONCAJID=82.2,ONCJFG=1 Q
 ;
 ;00830 HemeRetic 83.0/83.1/83.2/83.3/83.4/XX
 I ONCSCMA="00830" D  I ONCJFG=1 Q
 .I ONCT3=421 D  I ONCJFG=1 Q
 ..I (HST14=9591)!(HST14=9724)!(HST14=9727)!(HST14=9801)!((HST14>9805)&(HST14<9810))!(HST14=9831)!((HST14>9832)&(HST14<9835))!(HST14=9873)!(HST14=9940)!(HST14=9948) S ONCAJID="83.0",ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<421))!((ONCT3>421)&(ONCT3<441))!((ONCT3>441)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!((ONCT3>697)&(ONCT3<700)) D  I ONCJFG=1 Q
 ..I (HST14=9591) S ONCAJID="XX",ONCJFG=1 Q
 .I ((ONCT3>738)&(ONCT3<750))!((ONCT3>759)&(ONCT3<810))!((ONCT3>699)&(ONCT3<730))!((ONCT3>749)&(ONCT3<760)) D  I ONCJFG=1 Q
 ..I (HST14=9591) S ONCAJID="XX",ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<421))!((ONCT3>421)&(ONCT3<810)) D  I ONCJFG=1 Q
 ..I (HST14=9724)!(HST14=9727)!(HST14=9801)!((HST14>9805)&(HST14<9810))!(HST14=9831)!((HST14>9832)&(HST14<9835))!(HST14=9940)!(HST14=9948)!(HST14=9861)!((HST14>9864)&(HST14<9868))!((HST14>9868)&(HST14<9875)) S ONCAJID="XX",ONCJFG=1 Q
 ..I (HST14=9891)!((HST14>9894)&(HST14<9899))!((HST14>9909)&(HST14<9912))!(HST14=9920)!(HST14=9931)!((HST14>9810)&(HST14<9819))!(HST14=9837)!(HST14=9875)!(HST14=9876)!(HST14=9945) S ONCAJID="XX",ONCJFG=1 Q
 .I ONCTPCD="C421" D  I ONCJFG=1 Q
 ..I (HST14=9840)!(HST14=9861)!((HST14>9864)&(HST14<9868))!((HST14>9868)&(HST14<9875))!(HST14=9891)!((HST14>9894)&(HST14<9899))!(HST14=9910)!(HST14=9911)!(HST14=9920)!(HST14=9930)!(HST14=9931) S ONCAJID="83.1",ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<421))!((ONCT3>421)&(ONCT3<441))!((ONCT3>441)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!((ONCT3>697)&(ONCT3<810)) D  I ONCJFG=1 Q
 ..I (HST14=9930) S ONCAJID="XX",ONCJFG=1 Q
 .I ONCTPCD="C421" D  I ONCJFG=1 Q
 ..I ((HST14>9810)&(HST14<9819))!(HST14=9837) D  I ONCJFG=1 Q
 ...N X D AGE^ONCOCOM Q:X=""  I X<20 S ONCAJID="83.2",ONCJFG=1 Q
 ...N X D AGE^ONCOCOM Q:X=""  I X>19 S ONCAJID="83.3",ONCJFG=1 Q
 .I ONCTPCD="C421" D  I ONCJFG=1 Q
 ..I (HST14=9875)!(HST14=9876)!(HST14=9945) S ONCAJID="83.4",ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<810)) D  I ONCJFG=1 Q
 ..I ((HST14>9739)&(HST14<9743))!((HST14>9761)&(HST14<9801))!(HST14=9860)!(HST14=9863)!(HST14=9946)!((HST14>9949)&(HST14<9993))!(HST14=9820)!(HST14=9832) S ONCAJID="XX",ONCJFG=1 Q
 .I (ONCT3="000")!((ONCT3>0)&(ONCT3<700))!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810)) D  I ONCJFG=1 Q
 ..I (HST14=9751)!((HST14>9754)&(HST14<9760)) S ONCAJID="XX",ONCJFG=1 Q
 ;
 D ^ONCSCHM2
 Q