ONCSCHM1 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/19/20
;;2.2;ONCOLOGY;**12,13,17,18**;Jul 31, 2013;Build 5
;
;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>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<9994))!(HST14=9820)!(HST14=9832) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9749)!(HST14=9819)!((HST14>9876)&(HST14<9880))!(HST14=9912) 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHM1 8175 printed Sep 23, 2025@20:03:59 Page 2
ONCSCHM1 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/19/20
+1 ;;2.2;ONCOLOGY;**12,13,17,18**;Jul 31, 2013;Build 5
+2 ;
+3 ;00530 Corpus Carcinoma and Carcinosarcoma 53/XX
+4 IF ONCSCMA="00530"
Begin DoDot:1
+5 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+6 IF (HST14=8000)!(HST14=8010)!(HST14=8013)!(HST14=8020)!(HST14=8041)!(HST14=8070)!(HST14=8140)!(HST14=8240)!(HST14=8255)!(HST14=8263)!(HST14=8310)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+7 IF (HST14=8323)!(HST14=8380)!(HST14=8382)!((HST14>8459)&(HST14<8462))!(HST14=8480)!(HST14=8560)!(HST14=8570)!(HST14=8950)!(HST14=8980)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+8 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))!((HST14>8140)&(HST14<8232))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+9 IF ((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))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+10 IF ((HST14>8441)&(HST14<8455))!((HST14>8461)&(HST14<8475))!((HST14>8480)&(HST14<8553))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+11 IF ((HST14>8560)&(HST14<8563))!((HST14>8570)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+12 ;
+13 ;00541 Corpus Sarcoma 54.1/XX
+14 IF ONCSCMA="00541"
Begin DoDot:1
+15 IF ((HST14>8709)&(HST14<8714))!((HST14>8800)&(HST14<8805))!((HST14>8805)&(HST14<8882))!((HST14>8891)&(HST14<8896))!(HST14=8897)!(HST14=8898)!((HST14>8900)&(HST14<8906))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+16 IF ((HST14>8911)&(HST14<8922))!(HST14=8932)!(HST14=8934)!((HST14>8935)&(HST14<8942))!((HST14>8950)&(HST14<8976))!((HST14>8980)&(HST14<9138))!((HST14>9140)&(HST14<9583))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+17 ;
+18 ;00551 00552 00553 Ovary/Primary Peritoneal Carcinoma/Fallopian Tube 55/XX
+19 IF (ONCSCMA="00551")!(ONCSCMA="00552")!(ONCSCMA="00553")
Begin DoDot:1
+20 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)!($EXTRACT(ONCHIST,5)=2)
Begin DoDot:2
+21 IF (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)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+22 IF (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)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+23 IF (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)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+24 IF (HST14=9070)!(HST14=9071)!(HST14=9073)!(HST14=9080)!(HST14=9085)!(HST14=9090)!(HST14=9091)!(HST14=9100)!(HST14=9110)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+25 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+26 IF (HST14=8313)!(HST14=8380)!(HST14=8442)!(HST14=8472)!(HST14=8474)!(HST14=9000)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+27 IF ((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))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+28 IF ((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))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+29 IF ((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))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+30 IF (HST14=8621)!(HST14=8630)!(HST14=8632)!((HST14>8640)&(HST14<8661))!((HST14>8670)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8935)!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+31 IF (ONCSCMA="00551")!(ONCSCMA="00553")
Begin DoDot:1
+32 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:2
+33 IF (HST14=8441)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+34 ;
+35 ;00560 Placenta 56/XX
+36 IF ONCSCMA="00560"
Begin DoDot:1
+37 IF $EXTRACT(ONCHIST,5)=2
Begin DoDot:2
+38 IF (HST14=9100)!(HST14=9104)!(HST14=9105)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+39 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9101)!(HST14=9102)!(HST14=9103)!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+40 ;
+41 ;00811 Mycosis Fungoides 81.1/XX
+42 IF ONCSCMA="00811"
Begin DoDot:1
+43 IF "C000^C001^C002^C006^C441^C511^C512^C518^C519^C600^C601^C602^C608"[ONCTPCD
Begin DoDot:2
+44 IF (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
+45 ;
+46 ;00821 Plasma Cell Myeloma 82.1/XX
+47 IF ONCSCMA="00821"
Begin DoDot:1
+48 IF (ONC3926=1)!(ONC3926=9)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+49 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<302))!((ONCT3>319)&(ONCT3<400))!(ONCT3=420)!((ONCT3>421)&(ONCT3<425))!(ONCT3=441)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+50 IF ((ONCT3>469)&(ONCT3<510))!((ONCT3>528)&(ONCT3<590))!((ONCT3>618)&(ONCT3<632))!((ONCT3>636)&(ONCT3<810))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+51 SET ONCAJID=82.1
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+52 ;
+53 ;00822 Plasma Cell Disorders 82.2/XX
+54 IF ONCSCMA="00822"
Begin DoDot:1
+55 IF (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))
Begin DoDot:2
+56 IF (HST14=9671)!(HST14=9731)!(HST14=9734)!(HST14=9761)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+57 IF ((ONCT3>690)&(ONCT3<695))!((ONCT3>697)&(ONCT3<810))
Begin DoDot:2
+58 IF (HST14=9671)!(HST14=9731)!(HST14=9734)!(HST14=9761)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+59 IF (ONCT3=441)!(ONCT3=690)!(ONCT3=695)!(ONCT3=696)
Begin DoDot:2
+60 IF (HST14=9731)!(HST14=9761)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+61 SET ONCAJID=82.2
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+62 ;
+63 ;00830 HemeRetic 83.0/83.1/83.2/83.3/83.4/XX
+64 IF ONCSCMA="00830"
Begin DoDot:1
+65 IF ONCT3=421
Begin DoDot:2
+66 IF (HST14=9591)!(HST14=9724)!(HST14=9727)!(HST14=9801)!((HST14>9805)&(HST14<9810))!(HST14=9831)!((HST14>9832)&(HST14<9835))!(HST14=9873)!(HST14=9940)!(HST14=9948)
SET ONCAJID="83.0"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+67 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<421))!((ONCT3>421)&(ONCT3<441))!((ONCT3>441)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!((ONCT3>697)&(ONCT3<700))
Begin DoDot:2
+68 IF (HST14=9591)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+69 IF ((ONCT3>738)&(ONCT3<750))!((ONCT3>759)&(ONCT3<810))!((ONCT3>699)&(ONCT3<730))!((ONCT3>749)&(ONCT3<760))
Begin DoDot:2
+70 IF (HST14=9591)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+71 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<421))!((ONCT3>421)&(ONCT3<810))
Begin DoDot:2
+72 IF (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))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+73 IF (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)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+74 IF ONCTPCD="C421"
Begin DoDot:2
+75 IF (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)
SET ONCAJID="83.1"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+76 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<421))!((ONCT3>421)&(ONCT3<441))!((ONCT3>441)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!((ONCT3>697)&(ONCT3<810))
Begin DoDot:2
+77 IF (HST14=9930)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+78 IF ONCTPCD="C421"
Begin DoDot:2
+79 IF ((HST14>9810)&(HST14<9819))!(HST14=9837)
Begin DoDot:3
+80 NEW X
DO AGE^ONCOCOM
if X=""
QUIT
IF X<20
SET ONCAJID="83.2"
SET ONCJFG=1
QUIT
+81 NEW X
DO AGE^ONCOCOM
if X=""
QUIT
IF X>19
SET ONCAJID="83.3"
SET ONCJFG=1
QUIT
End DoDot:3
IF ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+82 IF ONCTPCD="C421"
Begin DoDot:2
+83 IF (HST14=9875)!(HST14=9876)!(HST14=9945)
SET ONCAJID="83.4"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+84 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<810))
Begin DoDot:2
+85 IF ((HST14>9739)&(HST14<9743))!((HST14>9761)&(HST14<9801))!(HST14=9860)!(HST14=9863)!(HST14=9946)!((HST14>9949)&(HST14<9994))!(HST14=9820)!(HST14=9832)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+86 IF (HST14=9749)!(HST14=9819)!((HST14>9876)&(HST14<9880))!(HST14=9912)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+87 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<700))!((ONCT3>738)&(ONCT3<751))!((ONCT3>753)&(ONCT3<810))
Begin DoDot:2
+88 IF (HST14=9751)!((HST14>9754)&(HST14<9760))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+89 ;
+90 DO ^ONCSCHM2
+91 QUIT
