ONCSCHM3 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/20/20
;;2.2;ONCOLOGY;**12,13,17**;Jul 31, 2013;Build 6
;
;00400 Soft Tissues Head and Neck 40/XX
I ONCSCMA="00400" D I ONCJFG=1 Q
.I (ONCTPCD="C000")!((ONCT3>0)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!((ONCT3>299)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490") D I ONCJFG=1 Q
..I (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8815)&(HST14<8819))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!(HST14=8900)!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8975)!(HST14=8981)!((HST14>8982)&(HST14<8991))!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!(HST14=9135)!(HST14=9137)!(HST14=9138) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8841)!(HST14=8842)!((HST14>8949)&(HST14<8974))!((HST14>9140)&(HST14<9176)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C470")!(ONCTPCD="C490") D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C003")!(ONCTPCD="C004")!(ONCTPCD="C005")!((ONCT3>7)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!((ONCT3>299)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490") D I ONCJFG=1 Q
..I HST14=8940 S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C000")!((ONCT3>0)&(ONCT3<70))!((ONCT3>89)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!(ONCTPCD="C301")!((ONCT3>311)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490") D I ONCJFG=1 Q
..I HST14=8941 S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C000")!((ONCT3>0)&(ONCT3<70))!((ONCT3>89)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!((ONCT3>299)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490") D I ONCJFG=1 Q
..I (HST14=8974)!(HST14=8980) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C019")!(ONCTPCD="C024")!(ONCTPCD="C051")!(ONCTPCD="C052")!((ONCT3>89)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!(ONCTPCD="C301")!((ONCT3>311)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490") D I ONCJFG=1 Q
..I HST14=8982 S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C739")!(ONCTPCD="C750")!(ONCTPCD="C754")!(ONCTPCD="C755")!(ONCTPCD="C758")!(ONCTPCD="C759") D I ONCJFG=1 Q
..I (HST14=8900)!(HST14=9064)!(HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9220)!(HST14=9362)!((HST14>9379)&(HST14<9540)) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C722")!(ONCTPCD="C724")!(ONCTPCD="C725")!(ONCTPCD="C739")!(ONCTPCD="C750")!(ONCTPCD="C751")!(ONCTPCD="C752")!(ONCTPCD="C753")!(ONCTPCD="C754")!(ONCTPCD="C755")!(ONCTPCD="C758")!(ONCTPCD="C759") D I ONCJFG=1 Q
..I (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8815)&(HST14<8819))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9100)&(HST14<9111))!((HST14>9120)&(HST14<9133))!(HST14=9135)!(HST14=9137) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8841)!(HST14=8842)!(HST14=9138)!((HST14>9140)&(HST14<9176))!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!((HST14>9210)&(HST14<9214))!((HST14>9220)&(HST14<9231)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9180)&(HST14<9211))!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
;
;00410 Soft Tissues Trunk and Extremities 41/XX
I ONCSCMA="00410" D I ONCJFG=1 Q
.I (ONCTPCD="C471")!(ONCTPCD="C472")!(ONCTPCD="C476")!(ONCTPCD="C478")!(ONCTPCD="C479")!(ONCTPCD="C491")!(ONCTPCD="C492")!(ONCTPCD="C496")!(ONCTPCD="C498")!(ONCTPCD="C499") D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8982)!(HST14=8983)!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCTPCD="C471")!(ONCTPCD="C472")!(ONCTPCD="C476")!(ONCTPCD="C478")!(ONCTPCD="C479")!(ONCTPCD="C491")!(ONCTPCD="C492")!(ONCTPCD="C496")!(ONCTPCD="C498")!(ONCTPCD="C499")!((ONCT3>499)&(ONCT3<510)) D I ONCJFG=1 Q
..I (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8852)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8982))!(HST14=8990)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
;00421 Soft Tissues Abdomen and Thoracic 42/XX
I ONCSCMA="00421" D I ONCJFG=1 Q
.I (ONCTPCD="C473")!(ONCTPCD="C474")!(ONCTPCD="C475")!(ONCTPCD="C493")!(ONCTPCD="C494")!(ONCTPCD="C495")! D I ONCJFG=1 Q
..I ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>150)&(ONCT3<153))!((ONCT3>153)&(ONCT3<156))!(ONCTPCD="C159")!((ONCT3>159)&(ONCT3<270))!(ONCTPCD="C339")!((ONCT3>339)&(ONCT3<380)) D I ONCJFG=1 Q
..I (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8971))!((HST14>8972)&(HST14<8976))!((HST14>8980)&(HST14<8984))!(HST14=8990)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!(HST14=9045) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9053)&(HST14<9061))!(HST14=9062)!(HST14=9063)!(HST14=9072)!(HST14=9073)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9120)&(HST14<9133)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>472)&(ONCT3<476))!((ONCT3>492)&(ONCT3<496))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C539")!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8971))!((HST14>8972)&(HST14<8976))!((HST14>8980)&(HST14<8984))!(HST14=8990)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!(HST14=9045) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9053)&(HST14<9061))!(HST14=9062)!(HST14=9063)!(HST14=9072)!(HST14=9073)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9120)&(HST14<9133)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>150)&(ONCT3<153))!((ONCT3>153)&(ONCT3<156))!(ONCTPCD="C159")!(ONCTPCD="C339")!((ONCT3>339)&(ONCT3<380))!((ONCT3>472)&(ONCT3<476))!((ONCT3>492)&(ONCT3<496)) D I ONCJFG=1 Q
..I (HST14=8933)!(HST14=9110)!(HST14=8971)!(HST14=8972)!((HST14>9049)&(HST14<9054))!(HST14=8980)!(HST14=9061)!(HST14=9064)!(HST14=9065)!(HST14=9070)!(HST14=9080)!(HST14=9081)!(HST14=9084)!(HST14=9085)!(HST14=9071) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>159)&(ONCT3<270))!((ONCT3>509)&(ONCT3<520))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=8933)!(HST14=9110) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>159)&(ONCT3<250))!((ONCT3>259)&(ONCT3<270))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=8971) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>159)&(ONCT3<270))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=8972)!((HST14>9049)&(HST14<9054)) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>159)&(ONCT3<221))!((ONCT3>238)&(ONCT3<270))!((ONCT3>509)&(ONCT3<520))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=8980) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>159)&(ONCT3<270))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=9061)!(HST14=9064)!(HST14=9065)!(HST14=9070)!(HST14=9080)!(HST14=9081)!(HST14=9084)!(HST14=9085) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>159)&(ONCT3<270))!((ONCT3>529)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=9071) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>150)&(ONCT3<153))!((ONCT3>153)&(ONCT3<156))!(ONCTPCD="C159")!((ONCT3>159)&(ONCT3<270))!(ONCTPCD="C339")!((ONCT3>339)&(ONCT3<380)) D I ONCJFG=1 Q
..I (HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)!(HST14=9102)!(HST14=9103) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>472)&(ONCT3<476))!((ONCT3>492)&(ONCT3<496))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C539") D I ONCJFG=1 Q
..I (HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)!(HST14=9102)!(HST14=9103) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>599)&(ONCT3<690)) D I ONCJFG=1 Q
..I (HST14=9102)!(HST14=9103) S ONCAJID="XX",ONCJFG=1 Q
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHM3 11325 printed Dec 13, 2024@02:27:56 Page 2
ONCSCHM3 ;HINES OIFO/RTK - AJCC ID, XX and other special code ;08/20/20
+1 ;;2.2;ONCOLOGY;**12,13,17**;Jul 31, 2013;Build 6
+2 ;
+3 ;00400 Soft Tissues Head and Neck 40/XX
+4 IF ONCSCMA="00400"
Begin DoDot:1
+5 IF (ONCTPCD="C000")!((ONCT3>0)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!((ONCT3>299)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490")
Begin DoDot:2
+6 IF (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8815)&(HST14<8819))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+7 IF (HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!(HST14=8900)!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+8 IF (HST14=8975)!(HST14=8981)!((HST14>8982)&(HST14<8991))!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))!(HST14=9135)!(HST14=9137)!(HST14=9138)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+9 IF (HST14=8841)!(HST14=8842)!((HST14>8949)&(HST14<8974))!((HST14>9140)&(HST14<9176))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+10 IF ((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+11 IF ((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+12 IF (ONCTPCD="C470")!(ONCTPCD="C490")
Begin DoDot:2
+13 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+14 IF (ONCTPCD="C003")!(ONCTPCD="C004")!(ONCTPCD="C005")!((ONCT3>7)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!((ONCT3>299)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490")
Begin DoDot:2
+15 IF HST14=8940
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+16 IF (ONCTPCD="C000")!((ONCT3>0)&(ONCT3<70))!((ONCT3>89)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!(ONCTPCD="C301")!((ONCT3>311)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490")
Begin DoDot:2
+17 IF HST14=8941
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+18 IF (ONCTPCD="C000")!((ONCT3>0)&(ONCT3<70))!((ONCT3>89)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!((ONCT3>299)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490")
Begin DoDot:2
+19 IF (HST14=8974)!(HST14=8980)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+20 IF (ONCTPCD="C019")!(ONCTPCD="C024")!(ONCTPCD="C051")!(ONCTPCD="C052")!((ONCT3>89)&(ONCT3<149))!(ONCTPCD="C150")!(ONCTPCD="C153")!(ONCTPCD="C158")!(ONCTPCD="C301")!((ONCT3>311)&(ONCT3<330))!(ONCTPCD="C470")!(ONCTPCD="C490")
Begin DoDot:2
+21 IF HST14=8982
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+22 IF (ONCTPCD="C739")!(ONCTPCD="C750")!(ONCTPCD="C754")!(ONCTPCD="C755")!(ONCTPCD="C758")!(ONCTPCD="C759")
Begin DoDot:2
+23 IF (HST14=8900)!(HST14=9064)!(HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9220)!(HST14=9362)!((HST14>9379)&(HST14<9540))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+24 IF (ONCTPCD="C722")!(ONCTPCD="C724")!(ONCTPCD="C725")!(ONCTPCD="C739")!(ONCTPCD="C750")!(ONCTPCD="C751")!(ONCTPCD="C752")!(ONCTPCD="C753")!(ONCTPCD="C754")!(ONCTPCD="C755")!(ONCTPCD="C758")!(ONCTPCD="C759")
Begin DoDot:2
+25 IF (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8815)&(HST14<8819))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+26 IF (HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8901)&(HST14<8906))!(HST14=8921)!((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8991))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+27 IF ((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9100)&(HST14<9111))!((HST14>9120)&(HST14<9133))!(HST14=9135)!(HST14=9137)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+28 IF (HST14=8841)!(HST14=8842)!(HST14=9138)!((HST14>9140)&(HST14<9176))!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!((HST14>9210)&(HST14<9214))!((HST14>9220)&(HST14<9231))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+29 IF ((HST14>9180)&(HST14<9211))!((HST14>9239)&(HST14<9251))!((HST14>9251)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+30 ;
+31 ;00410 Soft Tissues Trunk and Extremities 41/XX
+32 IF ONCSCMA="00410"
Begin DoDot:1
+33 IF (ONCTPCD="C471")!(ONCTPCD="C472")!(ONCTPCD="C476")!(ONCTPCD="C478")!(ONCTPCD="C479")!(ONCTPCD="C491")!(ONCTPCD="C492")!(ONCTPCD="C496")!(ONCTPCD="C498")!(ONCTPCD="C499")
Begin DoDot:2
+34 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=8982)!(HST14=8983)!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+35 IF (ONCTPCD="C471")!(ONCTPCD="C472")!(ONCTPCD="C476")!(ONCTPCD="C478")!(ONCTPCD="C479")!(ONCTPCD="C491")!(ONCTPCD="C492")!(ONCTPCD="C496")!(ONCTPCD="C498")!(ONCTPCD="C499")!((ONCT3>499)&(ONCT3<510))
Begin DoDot:2
+36 IF (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+37 IF (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8852)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+38 IF ((HST14>8931)&(HST14<8935))!((HST14>8939)&(HST14<8982))!(HST14=8990)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!((HST14>9044)&(HST14<9111))!((HST14>9120)&(HST14<9133))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+39 IF (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+40 IF ((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+41 ;00421 Soft Tissues Abdomen and Thoracic 42/XX
+42 IF ONCSCMA="00421"
Begin DoDot:1
+43 IF (ONCTPCD="C473")!(ONCTPCD="C474")!(ONCTPCD="C475")!(ONCTPCD="C493")!(ONCTPCD="C494")!(ONCTPCD="C495")!
Begin DoDot:2
+44 IF ((HST14>7999)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+45 IF ((ONCT3>150)&(ONCT3<153))!((ONCT3>153)&(ONCT3<156))!(ONCTPCD="C159")!((ONCT3>159)&(ONCT3<270))!(ONCTPCD="C339")!((ONCT3>339)&(ONCT3<380))
Begin DoDot:2
+46 IF (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+47 IF (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+48 IF (HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8971))!((HST14>8972)&(HST14<8976))!((HST14>8980)&(HST14<8984))!(HST14=8990)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!(HST14=9045)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+49 IF ((HST14>9053)&(HST14<9061))!(HST14=9062)!(HST14=9063)!(HST14=9072)!(HST14=9073)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9120)&(HST14<9133))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+50 IF (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+51 IF ((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+52 IF ((ONCT3>472)&(ONCT3<476))!((ONCT3>492)&(ONCT3<496))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C539")!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690))
Begin DoDot:2
+53 IF (HST14=8710)!((HST14>8711)&(HST14<8715))!(HST14=8803)!((HST14>8811)&(HST14<8815))!((HST14>8819)&(HST14<8825))!((HST14>8825)&(HST14<8832))!((HST14>8833)&(HST14<8837))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+54 IF (HST14=8841)!(HST14=8842)!(HST14=8851)!(HST14=8853)!((HST14>8854)&(HST14<8858))!((HST14>8859)&(HST14<8882))!((HST14>8890)&(HST14<8901))!((HST14>8901)&(HST14<8906))!(HST14=8921)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+55 IF (HST14=8932)!(HST14=8934)!((HST14>8939)&(HST14<8971))!((HST14>8972)&(HST14<8976))!((HST14>8980)&(HST14<8984))!(HST14=8990)!((HST14>8999)&(HST14<9017))!(HST14=9030)!(HST14=9042)!(HST14=9045)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+56 IF ((HST14>9053)&(HST14<9061))!(HST14=9062)!(HST14=9063)!(HST14=9072)!(HST14=9073)!(HST14=9082)!(HST14=9083)!((HST14>9085)&(HST14<9092))!((HST14>9120)&(HST14<9133))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+57 IF (HST14=9135)!(HST14=9137)!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9222))!((HST14>9222)&(HST14<9231))!((HST14>9239)&(HST14<9251))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+58 IF ((HST14>9251)&(HST14<9364))!((HST14>9364)&(HST14<9540))!(HST14=9541)!((HST14>9549)&(HST14<9561))!((HST14>9561)&(HST14<9572))!(HST14=9582)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+59 IF ((ONCT3>150)&(ONCT3<153))!((ONCT3>153)&(ONCT3<156))!(ONCTPCD="C159")!(ONCTPCD="C339")!((ONCT3>339)&(ONCT3<380))!((ONCT3>472)&(ONCT3<476))!((ONCT3>492)&(ONCT3<496))
Begin DoDot:2
+60 IF (HST14=8933)!(HST14=9110)!(HST14=8971)!(HST14=8972)!((HST14>9049)&(HST14<9054))!(HST14=8980)!(HST14=9061)!(HST14=9064)!(HST14=9065)!(HST14=9070)!(HST14=9080)!(HST14=9081)!(HST14=9084)!(HST14=9085)!(HST14=9071)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+61 IF ((ONCT3>159)&(ONCT3<270))!((ONCT3>509)&(ONCT3<520))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690))
Begin DoDot:2
+62 IF (HST14=8933)!(HST14=9110)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+63 IF ((ONCT3>159)&(ONCT3<250))!((ONCT3>259)&(ONCT3<270))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690))
Begin DoDot:2
+64 IF (HST14=8971)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+65 IF ((ONCT3>159)&(ONCT3<270))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690))
Begin DoDot:2
+66 IF (HST14=8972)!((HST14>9049)&(HST14<9054))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+67 IF ((ONCT3>159)&(ONCT3<221))!((ONCT3>238)&(ONCT3<270))!((ONCT3>509)&(ONCT3<520))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<690))
Begin DoDot:2
+68 IF (HST14=8980)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+69 IF ((ONCT3>159)&(ONCT3<270))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690))
Begin DoDot:2
+70 IF (HST14=9061)!(HST14=9064)!(HST14=9065)!(HST14=9070)!(HST14=9080)!(HST14=9081)!(HST14=9084)!(HST14=9085)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+71 IF ((ONCT3>159)&(ONCT3<270))!((ONCT3>529)&(ONCT3<540))!(ONCTPCD="C589")!((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690))
Begin DoDot:2
+72 IF (HST14=9071)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+73 IF ((ONCT3>150)&(ONCT3<153))!((ONCT3>153)&(ONCT3<156))!(ONCTPCD="C159")!((ONCT3>159)&(ONCT3<270))!(ONCTPCD="C339")!((ONCT3>339)&(ONCT3<380))
Begin DoDot:2
+74 IF (HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)!(HST14=9102)!(HST14=9103)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+75 IF ((ONCT3>472)&(ONCT3<476))!((ONCT3>492)&(ONCT3<496))!((ONCT3>509)&(ONCT3<540))!(ONCTPCD="C539")
Begin DoDot:2
+76 IF (HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)!(HST14=9102)!(HST14=9103)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+77 IF ((ONCT3>599)&(ONCT3<620))!((ONCT3>629)&(ONCT3<690))
Begin DoDot:2
+78 IF (HST14=9100)!(HST14=9101)!(HST14=9104)!(HST14=9105)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+79 IF ((ONCT3>599)&(ONCT3<690))
Begin DoDot:2
+80 IF (HST14=9102)!(HST14=9103)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+81 ;
+82 QUIT
