ONCSCHMY ;HINES OIFO/RTK - AJCC ID, XX & special code continued ;09/17/19
;;2.2;ONCOLOGY;**10,12,17,18**;Jul 31, 2013;Build 5
;
; called from ONCSCHMX - continued
;
;00600 Kidney 60/XX
I ONCSCMA="00600" D I ONCJFG=1 Q
.I ($E(ONCHIST,5)=2)&((HST14=8000)!(HST14=8010)!(HST14=8140)!(HST14=8255)!(HST14=8260)!((HST14>8309)&(HST14<8313))!((HST14>8315)&(HST14<8320))!(HST14=8323)!(HST14=8480)!(HST14=8510)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8132))!((HST14>8140)&(HST14<8255))!((HST14>8255)&(HST14<8258))!((HST14>8260)&(HST14<8301))!((HST14>8312)&(HST14<8316))!((HST14>8319)&(HST14<8323)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8323)&(HST14<8475))!((HST14>8480)&(HST14<8510))!((HST14>8511)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00610 Kidney Renal Pelvis 61.1/61.2/XX
I ONCSCMA="00610" D I ONCJFG=1 Q
.I (HST14=8070)!(HST14=8140) S ONCAJID=61.2,ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8082))!((HST14>8082)&(HST14<8111)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00620 Bladder 62.1/62.2/XX
I ONCSCMA="00620" D I ONCJFG=1 Q
.I (HST14=8070)!(HST14=8140) S ONCAJID=62.2,ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8082))!((HST14>8082)&(HST14<8111)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00631 Urethra 63.1/63.2/XX
I ONCSCMA="00631" D I ONCJFG=1 Q
.I (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8031)!(HST14=8041)!(HST14=8082)!(HST14=8120)!(HST14=8122)!(HST14=8130)!(HST14=8131)!(HST14=8310) S ONCAJID=63.1,ONCJFG=1 Q
.I ((HST14>8069)&(HST14<8073))!(HST14=8140) S ONCAJID=63.2,ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8072)&(HST14<8082))!((HST14>8082)&(HST14<8111)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8301))!((HST14>8310)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;
;00633 Urethra-Prostatic 63.3/63.4/XX
I ONCSCMA="00633" D I ONCJFG=1 Q
.I (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8031)!(HST14=8041)!(HST14=8082)!(HST14=8120)!(HST14=8122)!(HST14=8130)!(HST14=8131)!(HST14=8310) S ONCAJID=63.3,ONCJFG=1 Q
.I ((HST14>8069)&(HST14<8073))!(HST14=8140) S ONCAJID=63.4,ONCJFG=1 Q
.I ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8072)&(HST14<8082))!((HST14>8082)&(HST14<8111)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8301))!((HST14>8310)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701) S ONCAJID="XX",ONCJFG=1 Q
;00660 Melanoma Conjunctiva 66/XX
I ONCSCMA="00660" D I ONCJFG=1 Q
.I (HST14=8722)!((HST14>8724)&(HST14<8729))!(HST14=8742)!(HST14=8744)!((HST14>8745)&(HST14<8763))!((HST14>8770)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1
;
;00671/00672 Melanoma Iris/Choroid & Ciliary Body 67.1/67.2/XX
I (ONCSCMA="00671")!(ONCSCMA="00672") D I ONCJFG=1 Q
.I ($E(ONCHIST,5)=2)&((HST14=8720)!(HST14=8730)!(HST14=8770)!(HST14=8771)!(HST14=8772)!(HST14=8773)!(HST14=8774)) S ONCAJID="XX",ONCJFG=1
.I ((HST14>8720)&(HST14<8729))!((HST14>8739)&(HST14<8763))!((HST14>8779)&(HST14<8791)) S ONCAJID="XX",ONCJFG=1
;
;00690 Lacrimal Gland 69/XX
I ONCSCMA="00690" D I ONCJFG=1 Q
.I ($E(ONCHIST,5)=2)&((HST14=8010)!(HST14=8070)!(HST14=8071)!(HST14=8072)!(HST14=8082)!(HST14=8140)!(HST14=8147)!(HST14=8200)!(HST14=8410)!(HST14=8340)!(HST14=8440)!(HST14=8450)) S ONCAJID="XX",ONCJFG=1
.I ($E(ONCHIST,5)=2)&((HST14=8480)!(HST14=8500)!(HST14=8525)!(HST14=8550)!(HST14=8562)!(HST14=8941)!(HST14=8980)!(HST14=8982)) S ONCAJID="XX",ONCJFG=1
.I ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8061))!((HST14>8072)&(HST14<8082))!((HST14>8082)&(HST14<8132))!((HST14>8140)&(HST14<8147))!((HST14>8147)&(HST14<8192)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8200)&(HST14<8410))!((HST14>8412)&(HST14<8421))!((HST14>8440)&(HST14<8445))!((HST14>8450)&(HST14<8475)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>8480)&(HST14<8491))!((HST14>8500)&(HST14<8525))!((HST14>8529)&(HST14<8544))!((HST14>8550)&(HST14<8562))!((HST14>8569)&(HST14<8701))!((HST14>9699)&(HST14<9702)) S ONCAJID="XX",ONCJFG=1 Q
;
;00721/00723 Brain 72/XX
I (ONCSCMA="00721")!(ONCSCMA="09721")!(ONCSCMA="00723")!(ONCSCMA="09723") D I ONCJFG=1 Q
.I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
..I (HST14=8720)!(HST14=8728)!((HST14>8799)&(HST14<8807))!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=8900)!(HST14=9064)!(HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9120) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9140)!(HST14=9180)!(HST14=9220)!(HST14=9362)!(HST14=9364)!(HST14=9382)!(HST14=9385)!((HST14>9389)&(HST14<9394))!(HST14=9395)!(HST14=9396)!(HST14=9400)!(HST14=9401)!(HST14=9411)!(HST14=9424)!(HST14=9425) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9439)&(HST14<9443))!(HST14=9445)!(HST14=9450)!(HST14=9451)!(HST14=9470)!(HST14=9471)!((HST14>9472)&(HST14<9479))!(HST14=9490)!(HST14=9500)!(HST14=9501)!(HST14=9505)!(HST14=9508)!(HST14=9530)!(HST14=9538) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9680)!(HST14=9699)!(HST14=9702)!(HST14=9712)!(HST14=9714)!(HST14=9751)!(HST14=9755)!((HST14>8709)&(HST14<8715))!((HST14>8809)&(HST14<8815))!((HST14>8819)&(HST14<8843))!(HST14=9100)!(HST14=9120)!(HST14=9133) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<9064))!((HST14>9069)&(HST14<9074))!((HST14>9079)&(HST14<9092))!(HST14=9110)!((HST14>9119)&(HST14<9134))!((HST14>9134)&(HST14<9138)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583))!((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9133)!(HST14=9430)!(HST14=9540)!(HST14=9065)!((HST14>9715)&(HST14<9743))!((HST14>9760)&(HST14<9993)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>7999)&(HST14<8701))!((HST14>8720)&(HST14<8728))!((HST14>8729)&(HST14<8791))!((HST14>9100)&(HST14<9106))!((HST14>9379)&(HST14<9382))!((HST14>9382)&(HST14<9385))!(HST14=9410)!((HST14>9411)&(HST14<9424)) S ONCAJID="XX",ONCJFG=1 Q
.I ((HST14>9430)&(HST14<9433))!(HST14=9460)!(HST14=9472)!(HST14=9480)!((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!((HST14>9505)&(HST14<9508))!((HST14>9508)&(HST14<9524))!((HST14>9530)&(HST14<9538)) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=9394)!(HST14=9444)!(HST14=9539)!(HST14=9700)!(HST14=9701)!((HST14>9704)&(HST14<9710))!((HST14>9755)&(HST14<9760)) S ONCAJID="XX",ONCJFG=1 Q
;
;00722 CNS Other 72/XX
I (ONCSCMA="00722")!(ONCSCMA="09722") D I ONCJFG=1 Q
.I "C701^C709^C720^C721^C722^C723^C724^C725^C726^C727^C728^C729"[ONCTPCD D
..I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
...I (HST14=8720)!(HST14=8728)!(HST14=9064)!(HST14=9070)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9140)!(HST14=9362)!(HST14=9382)!(HST14=9385)!((HST14>9389)&(HST14<9394))!((HST14>9394)&(HST14<9402)) S ONCAJID="XX",ONCJFG=1 Q
...I (HST14=9411)!((HST14>9423)&(HST14<9431))!((HST14>9439)&(HST14<9443)) S ONCAJID="XX",ONCJFG=1 Q
...I ((HST14>9444)&(HST14<9452))!(HST14=9470)!(HST14=9471)!((HST14>9473)&(HST14<9479)) S ONCAJID="XX",ONCJFG=1 Q
...I (HST14=9490)!(HST14=9501)!(HST14=9505)!(HST14=9508)!(HST14=9538) S ONCAJID="XX",ONCJFG=1 Q
...I (HST14=9680)!(HST14=9699)!(HST14=9702)!(HST14=9712)!(HST14=9714)!(HST14=9751)!(HST14=9755) S ONCAJID="XX",ONCJFG=1 Q
...I ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843)) S ONCAJID="XX",ONCJFG=1 Q
...I ((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110) S ONCAJID="XX",ONCJFG=1 Q
...I ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583)) S ONCAJID="XX",ONCJFG=1 Q
...I ((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))!((HST14>9715)&(HST14<9743))!((HST14>9760)&(HST14<9993)) S ONCAJID="XX",ONCJFG=1 Q
.I "C701^C709^C720^C721^C728^C729"[ONCTPCD D
..I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
...I (HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=9133)!(HST14=9364)!(HST14=9540) S ONCAJID="XX",ONCJFG=1 Q
.I "C701^C709^C720^C721^C722^C724^C725^C726^C727^C728^C729"[ONCTPCD D
..I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
...I (HST14=8900)!(HST14=9071)!(HST14=9120)!(HST14=9220)!(HST14=9473)!(HST14=9500)!(HST14=9530) S ONCAJID="XX",ONCJFG=1 Q
.I "C701^C709^C720^C721^C722^C723^C724^C725^C728^C729"[ONCTPCD D
..I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
...I HST14=9180 S ONCAJID="XX",ONCJFG=1 Q
.I "C722^C723^C724^C725"[ONCTPCD D
..I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
...I (HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!((HST14>9100)&(HST14<9106))!(HST14=9133)!(HST14=9364)!(HST14=9540) S ONCAJID="XX",ONCJFG=1 Q
.I ONCTPCD="C723" D
..I ($E(ONCHIST,5)=0)!($E(ONCHIST,5)=1) D
...I (HST14=8900)!(HST14=9071)!(HST14=9120)!(HST14=9220)!(HST14=9421)!(HST14=9473)!(HST14=9500)!(HST14=9522)!(HST14=9530) S ONCAJID="XX",ONCJFG=1 Q
.I "C701^C709^C720^C721^C722^C723^C724^C725^C726^C727^C728^C729"[ONCTPCD D
..I ((HST14>7999)&(HST14<8701))!((HST14>8720)&(HST14<8728))!((HST14>8729)&(HST14<8791))!(HST14=9380)!(HST14=9381)!(HST14=9383)!(HST14=9384)!(HST14=9394)!(HST14=9410)!((HST14>9411)&(HST14<9421)) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9423)!(HST14=9431)!(HST14=9432)!(HST14=9444)!(HST14=9460)!(HST14=9472)!(HST14=9480) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!(HST14=9506)!(HST14=9507)!((HST14>9508)&(HST14<9522))!(HST14=9523)!((HST14>9530)&(HST14<9538))!(HST14=9539) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9700)!(HST14=9701)!((HST14>9704)&(HST14<9710))!((HST14>9755)&(HST14<9760)) S ONCAJID="XX",ONCJFG=1 Q
.I "C701^C709^C720^C721^C728^C729"[ONCTPCD D
..I ((HST14>9100)&(HST14<9106)) S ONCAJID="XX",ONCJFG=1 Q
.I "C701^C709^C720^C721^C722^C724^C725^C726^C727^C728^C729"[ONCTPCD D
..I (HST14=9421)!(HST14=9522) S ONCAJID="XX",ONCJFG=1 Q
;00710 Lymphoma 71/XX
I ONCSCMA="00710" D I ONCJFG=1 Q
.I ((HST14>9649)&(HST14<9664))!(HST14=9678)!(HST14=9679)!((HST14>9686)&(HST14<9690))!(HST14=9708)!(HST14=9712)!(HST14=9714)!(HST14=9716)!(HST14=9717)!(HST14=9719) S ONCAJID="XX",ONCJFG=1 Q
.I (HST14=9725)!(HST14=9726)!(HST14=9735)!(HST14=9736)!(HST14=9737)!(HST14=9738)!(HST14=9826)!(HST14=9827) S ONCAJID="XX",ONCJFG=1 Q
;
;00790 Lymphoma 79.0/79.1/79.2/79.3/79.4/79.6/79.7/XX
I ONCSCMA="00790" D I ONCJFG=1 Q
.I (ONCT3="000")!((ONCT3>0)&(ONCT3<425))!((ONCT3>469)&(ONCT3<510))!((ONCT3>510)&(ONCT3<609))!((ONCT3>618)&(ONCT3<632))!((ONCT3>636)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!((ONCT3>738)&(ONCT3<750))!((ONCT3>759)&(ONCT3<810)) D I ONCJFG=1 Q
..I (HST14=9590)!(HST14=9591)!(HST14=9596)!(HST14=9687)!(HST14=9826) S ONCAJID="79.0",ONCJFG=1 Q
..I ((HST14>9677)&(HST14<9681))!(HST14=9688)!(HST14=9712)!(HST14=9735)!(HST14=9737)!(HST14=9738) S ONCAJID=79.1,ONCJFG=1 Q
..I (HST14=9673) S ONCAJID=79.2,ONCJFG=1 Q
..I (HST14=9690)!(HST14=9691)!(HST14=9695)!(HST14=9698) S ONCAJID=79.3,ONCJFG=1 Q
..I (HST14=9689)!(HST14=9699) S ONCAJID=79.4,ONCJFG=1 Q
..I (HST14=9702)!(HST14=9705)!(HST14=9708)!(HST14=9709)!(HST14=9714)!((HST14>9715)&(HST14<9720))!(HST14=9725)!(HST14=9726)!(HST14=9827) S ONCAJID=79.6,ONCJFG=1 Q
..I (HST14=9650)!(HST14=9651)!(HST14=9652)!(HST14=9653)!(HST14=9655)!(HST14=9659)!(HST14=9663) S ONCAJID=79.7,ONCJFG=1 Q
..I (HST14=9597) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCT3=440)!((ONCT3>441)&(ONCT3<450))!(ONCT3=510)!(ONCT3=609)!(ONCT3=632)!(ONCT3=698)!(ONCT3=699) D I ONCJFG=1 Q
..I (HST14=9590)!(HST14=9591)!(HST14=9596)!((HST14>9649)&(HST14<9664))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9700))!((HST14>9701)&(HST14<9706)) S ONCAJID="XX",ONCJFG=1 Q
..I ((HST14>9713)&(HST14<9715))!((HST14>9715)&(HST14<9718))!(HST14=9725)!(HST14=9735)!(HST14=9737)!(HST14=9738)!(HST14=9826)!(HST14=9827) S ONCAJID="XX",ONCJFG=1 Q
.I (ONCT3=698)!(ONCT3=699) D I ONCJFG=1 Q
..I (HST14=9680)!((HST14>9707)&(HST14<9713))!(HST14=9718)!(HST14=9719)!(HST14=9726) S ONCAJID="XX",ONCJFG=1 Q
.I ((ONCT3>699)&(ONCT3<730))!((HST14>749)&(HST14<760)) D I ONCJFG=1 Q
..I (HST14=9590)!(HST14=9591)!((HST14>9595)&(HST14<9664))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9699))!((HST14>9715)&(HST14<9720))!(HST14=9725)!(HST14=9726)!(HST14=9735) S ONCAJID="XX",ONCJFG=1 Q
..I (HST14=9737)!(HST14=9738)!(HST14=9826)!(HST14=9827) S ONCAJID="XX",ONCJFG=1 Q
;
;00795 Lymphoma 79.5/XX
I ONCSCMA="00795" D I ONCJFG=1 Q
.I (ONCT3=440)!((ONCT3>441)&(ONCT3<450))!(ONCT3=510)!(ONCT3=609)!(ONCT3=632)!(ONCT3=698)!(ONCT3=699)!((ONCT3>699)&(ONCT3<730))!((ONCT3>749)&(ONCT3<760)) S ONCAJID="XX",ONCJFG=1 Q
;
D ^ONCSCHMZ
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMY 13736 printed Apr 09, 2024@21:24:11 Page 2
ONCSCHMY ;HINES OIFO/RTK - AJCC ID, XX & special code continued ;09/17/19
+1 ;;2.2;ONCOLOGY;**10,12,17,18**;Jul 31, 2013;Build 5
+2 ;
+3 ; called from ONCSCHMX - continued
+4 ;
+5 ;00600 Kidney 60/XX
+6 IF ONCSCMA="00600"
Begin DoDot:1
+7 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8000)!(HST14=8010)!(HST14=8140)!(HST14=8255)!(HST14=8260)!((HST14>8309)&(HST14<8313))!((HST14>8315)&(HST14<8320))!(HST14=8323)!(HST14=8480)!(HST14=8510))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+8 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8132))!((HST14>8140)&(HST14<8255))!((HST14>8255)&(HST14<8258))!((HST14>8260)&(HST14<8301))!((HST14>8312)&(HST14<8316))!((HST14>8319)&(HST14<8323))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+9 IF ((HST14>8323)&(HST14<8475))!((HST14>8480)&(HST14<8510))!((HST14>8511)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+10 ;
+11 ;00610 Kidney Renal Pelvis 61.1/61.2/XX
+12 IF ONCSCMA="00610"
Begin DoDot:1
+13 IF (HST14=8070)!(HST14=8140)
SET ONCAJID=61.2
SET ONCJFG=1
QUIT
+14 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8082))!((HST14>8082)&(HST14<8111))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+15 IF (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(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 ;00620 Bladder 62.1/62.2/XX
+18 IF ONCSCMA="00620"
Begin DoDot:1
+19 IF (HST14=8070)!(HST14=8140)
SET ONCAJID=62.2
SET ONCJFG=1
QUIT
+20 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8070)&(HST14<8082))!((HST14>8082)&(HST14<8111))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+21 IF (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+22 ;
+23 ;00631 Urethra 63.1/63.2/XX
+24 IF ONCSCMA="00631"
Begin DoDot:1
+25 IF (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8031)!(HST14=8041)!(HST14=8082)!(HST14=8120)!(HST14=8122)!(HST14=8130)!(HST14=8131)!(HST14=8310)
SET ONCAJID=63.1
SET ONCJFG=1
QUIT
+26 IF ((HST14>8069)&(HST14<8073))!(HST14=8140)
SET ONCAJID=63.2
SET ONCJFG=1
QUIT
+27 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8072)&(HST14<8082))!((HST14>8082)&(HST14<8111))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+28 IF (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8301))!((HST14>8310)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+29 ;
+30 ;00633 Urethra-Prostatic 63.3/63.4/XX
+31 IF ONCSCMA="00633"
Begin DoDot:1
+32 IF (HST14=8000)!(HST14=8010)!(HST14=8020)!(HST14=8031)!(HST14=8041)!(HST14=8082)!(HST14=8120)!(HST14=8122)!(HST14=8130)!(HST14=8131)!(HST14=8310)
SET ONCAJID=63.3
SET ONCJFG=1
QUIT
+33 IF ((HST14>8069)&(HST14<8073))!(HST14=8140)
SET ONCAJID=63.4
SET ONCJFG=1
QUIT
+34 IF ((HST14>8000)&(HST14<8006))!((HST14>8010)&(HST14<8016))!((HST14>8020)&(HST14<8031))!((HST14>8031)&(HST14<8041))!((HST14>8041)&(HST14<8061))!((HST14>8072)&(HST14<8082))!((HST14>8082)&(HST14<8111))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+35 IF (HST14=8121)!(HST14=8123)!(HST14=8124)!((HST14>8140)&(HST14<8301))!((HST14>8310)&(HST14<8701))!((HST14>8719)&(HST14<8791))!(HST14=9700)!(HST14=9701)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+36 ;00660 Melanoma Conjunctiva 66/XX
+37 IF ONCSCMA="00660"
Begin DoDot:1
+38 IF (HST14=8722)!((HST14>8724)&(HST14<8729))!(HST14=8742)!(HST14=8744)!((HST14>8745)&(HST14<8763))!((HST14>8770)&(HST14<8791))
SET ONCAJID="XX"
SET ONCJFG=1
End DoDot:1
IF ONCJFG=1
QUIT
+39 ;
+40 ;00671/00672 Melanoma Iris/Choroid & Ciliary Body 67.1/67.2/XX
+41 IF (ONCSCMA="00671")!(ONCSCMA="00672")
Begin DoDot:1
+42 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8720)!(HST14=8730)!(HST14=8770)!(HST14=8771)!(HST14=8772)!(HST14=8773)!(HST14=8774))
SET ONCAJID="XX"
SET ONCJFG=1
+43 IF ((HST14>8720)&(HST14<8729))!((HST14>8739)&(HST14<8763))!((HST14>8779)&(HST14<8791))
SET ONCAJID="XX"
SET ONCJFG=1
End DoDot:1
IF ONCJFG=1
QUIT
+44 ;
+45 ;00690 Lacrimal Gland 69/XX
+46 IF ONCSCMA="00690"
Begin DoDot:1
+47 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8010)!(HST14=8070)!(HST14=8071)!(HST14=8072)!(HST14=8082)!(HST14=8140)!(HST14=8147)!(HST14=8200)!(HST14=8410)!(HST14=8340)!(HST14=8440)!(HST14=8450))
SET ONCAJID="XX"
SET ONCJFG=1
+48 IF ($EXTRACT(ONCHIST,5)=2)&((HST14=8480)!(HST14=8500)!(HST14=8525)!(HST14=8550)!(HST14=8562)!(HST14=8941)!(HST14=8980)!(HST14=8982))
SET ONCAJID="XX"
SET ONCJFG=1
+49 IF ((HST14>7999)&(HST14<8006))!((HST14>8010)&(HST14<8061))!((HST14>8072)&(HST14<8082))!((HST14>8082)&(HST14<8132))!((HST14>8140)&(HST14<8147))!((HST14>8147)&(HST14<8192))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+50 IF ((HST14>8200)&(HST14<8410))!((HST14>8412)&(HST14<8421))!((HST14>8440)&(HST14<8445))!((HST14>8450)&(HST14<8475))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+51 IF ((HST14>8480)&(HST14<8491))!((HST14>8500)&(HST14<8525))!((HST14>8529)&(HST14<8544))!((HST14>8550)&(HST14<8562))!((HST14>8569)&(HST14<8701))!((HST14>9699)&(HST14<9702))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+52 ;
+53 ;00721/00723 Brain 72/XX
+54 IF (ONCSCMA="00721")!(ONCSCMA="09721")!(ONCSCMA="00723")!(ONCSCMA="09723")
Begin DoDot:1
+55 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:2
+56 IF (HST14=8720)!(HST14=8728)!((HST14>8799)&(HST14<8807))!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=8900)!(HST14=9064)!(HST14=9070)!(HST14=9071)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9120)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+57 IF (HST14=9140)!(HST14=9180)!(HST14=9220)!(HST14=9362)!(HST14=9364)!(HST14=9382)!(HST14=9385)!((HST14>9389)&(HST14<9394))!(HST14=9395)!(HST14=9396)!(HST14=9400)!(HST14=9401)!(HST14=9411)!(HST14=9424)!(HST14=9425)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+58 IF ((HST14>9439)&(HST14<9443))!(HST14=9445)!(HST14=9450)!(HST14=9451)!(HST14=9470)!(HST14=9471)!((HST14>9472)&(HST14<9479))!(HST14=9490)!(HST14=9500)!(HST14=9501)!(HST14=9505)!(HST14=9508)!(HST14=9530)!(HST14=9538)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+59 IF (HST14=9680)!(HST14=9699)!(HST14=9702)!(HST14=9712)!(HST14=9714)!(HST14=9751)!(HST14=9755)!((HST14>8709)&(HST14<8715))!((HST14>8809)&(HST14<8815))!((HST14>8819)&(HST14<8843))!(HST14=9100)!(HST14=9120)!(HST14=9133)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+60 IF ((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<9064))!((HST14>9069)&(HST14<9074))!((HST14>9079)&(HST14<9092))!(HST14=9110)!((HST14>9119)&(HST14<9134))!((HST14>9134)&(HST14<9138))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+61 IF ((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583))!((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+62 IF (HST14=9133)!(HST14=9430)!(HST14=9540)!(HST14=9065)!((HST14>9715)&(HST14<9743))!((HST14>9760)&(HST14<9993))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+63 IF ((HST14>7999)&(HST14<8701))!((HST14>8720)&(HST14<8728))!((HST14>8729)&(HST14<8791))!((HST14>9100)&(HST14<9106))!((HST14>9379)&(HST14<9382))!((HST14>9382)&(HST14<9385))!(HST14=9410)!((HST14>9411)&(HST14<9424))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+64 IF ((HST14>9430)&(HST14<9433))!(HST14=9460)!(HST14=9472)!(HST14=9480)!((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!((HST14>9505)&(HST14<9508))!((HST14>9508)&(HST14<9524))!((HST14>9530)&(HST14<9538))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+65 IF (HST14=9394)!(HST14=9444)!(HST14=9539)!(HST14=9700)!(HST14=9701)!((HST14>9704)&(HST14<9710))!((HST14>9755)&(HST14<9760))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+66 ;
+67 ;00722 CNS Other 72/XX
+68 IF (ONCSCMA="00722")!(ONCSCMA="09722")
Begin DoDot:1
+69 IF "C701^C709^C720^C721^C722^C723^C724^C725^C726^C727^C728^C729"[ONCTPCD
Begin DoDot:2
+70 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:3
+71 IF (HST14=8720)!(HST14=8728)!(HST14=9064)!(HST14=9070)!(HST14=9080)!(HST14=9084)!(HST14=9085)!(HST14=9100)!(HST14=9140)!(HST14=9362)!(HST14=9382)!(HST14=9385)!((HST14>9389)&(HST14<9394))!((HST14>9394)&(HST14<9402))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+72 IF (HST14=9411)!((HST14>9423)&(HST14<9431))!((HST14>9439)&(HST14<9443))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+73 IF ((HST14>9444)&(HST14<9452))!(HST14=9470)!(HST14=9471)!((HST14>9473)&(HST14<9479))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+74 IF (HST14=9490)!(HST14=9501)!(HST14=9505)!(HST14=9508)!(HST14=9538)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+75 IF (HST14=9680)!(HST14=9699)!(HST14=9702)!(HST14=9712)!(HST14=9714)!(HST14=9751)!(HST14=9755)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+76 IF ((HST14>8709)&(HST14<8715))!(HST14=8800)!(HST14=8801)!((HST14>8802)&(HST14<8807))!((HST14>8810)&(HST14<8815))!((HST14>8819)&(HST14<8843))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+77 IF ((HST14>8850)&(HST14<8882))!((HST14>8890)&(HST14<8899))!((HST14>8900)&(HST14<9064))!(HST14=9065)!(HST14=9072)!(HST14=9073)!((HST14>9080)&(HST14<9084))!((HST14>9085)&(HST14<9092))!(HST14=9110)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+78 IF ((HST14>9120)&(HST14<9133))!((HST14>9134)&(HST14<9138))!((HST14>9140)&(HST14<9176))!((HST14>9180)&(HST14<9211))!((HST14>9220)&(HST14<9362))!(HST14=9363)!((HST14>9364)&(HST14<9374))!((HST14>9540)&(HST14<9583))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+79 IF ((HST14>9589)&(HST14<9680))!((HST14>9686)&(HST14<9699))!((HST14>9715)&(HST14<9743))!((HST14>9760)&(HST14<9993))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+80 IF "C701^C709^C720^C721^C728^C729"[ONCTPCD
Begin DoDot:2
+81 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:3
+82 IF (HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!(HST14=9133)!(HST14=9364)!(HST14=9540)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+83 IF "C701^C709^C720^C721^C722^C724^C725^C726^C727^C728^C729"[ONCTPCD
Begin DoDot:2
+84 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:3
+85 IF (HST14=8900)!(HST14=9071)!(HST14=9120)!(HST14=9220)!(HST14=9473)!(HST14=9500)!(HST14=9530)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+86 IF "C701^C709^C720^C721^C722^C723^C724^C725^C728^C729"[ONCTPCD
Begin DoDot:2
+87 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:3
+88 IF HST14=9180
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+89 IF "C722^C723^C724^C725"[ONCTPCD
Begin DoDot:2
+90 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:3
+91 IF (HST14=8802)!(HST14=8810)!(HST14=8815)!(HST14=8850)!(HST14=8890)!((HST14>9100)&(HST14<9106))!(HST14=9133)!(HST14=9364)!(HST14=9540)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+92 IF ONCTPCD="C723"
Begin DoDot:2
+93 IF ($EXTRACT(ONCHIST,5)=0)!($EXTRACT(ONCHIST,5)=1)
Begin DoDot:3
+94 IF (HST14=8900)!(HST14=9071)!(HST14=9120)!(HST14=9220)!(HST14=9421)!(HST14=9473)!(HST14=9500)!(HST14=9522)!(HST14=9530)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:3
End DoDot:2
+95 IF "C701^C709^C720^C721^C722^C723^C724^C725^C726^C727^C728^C729"[ONCTPCD
Begin DoDot:2
+96 IF ((HST14>7999)&(HST14<8701))!((HST14>8720)&(HST14<8728))!((HST14>8729)&(HST14<8791))!(HST14=9380)!(HST14=9381)!(HST14=9383)!(HST14=9384)!(HST14=9394)!(HST14=9410)!((HST14>9411)&(HST14<9421))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+97 IF (HST14=9423)!(HST14=9431)!(HST14=9432)!(HST14=9444)!(HST14=9460)!(HST14=9472)!(HST14=9480)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+98 IF ((HST14>9490)&(HST14<9494))!((HST14>9501)&(HST14<9505))!(HST14=9506)!(HST14=9507)!((HST14>9508)&(HST14<9522))!(HST14=9523)!((HST14>9530)&(HST14<9538))!(HST14=9539)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+99 IF (HST14=9700)!(HST14=9701)!((HST14>9704)&(HST14<9710))!((HST14>9755)&(HST14<9760))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+100 IF "C701^C709^C720^C721^C728^C729"[ONCTPCD
Begin DoDot:2
+101 IF ((HST14>9100)&(HST14<9106))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
+102 IF "C701^C709^C720^C721^C722^C724^C725^C726^C727^C728^C729"[ONCTPCD
Begin DoDot:2
+103 IF (HST14=9421)!(HST14=9522)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
End DoDot:1
IF ONCJFG=1
QUIT
+104 ;00710 Lymphoma 71/XX
+105 IF ONCSCMA="00710"
Begin DoDot:1
+106 IF ((HST14>9649)&(HST14<9664))!(HST14=9678)!(HST14=9679)!((HST14>9686)&(HST14<9690))!(HST14=9708)!(HST14=9712)!(HST14=9714)!(HST14=9716)!(HST14=9717)!(HST14=9719)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+107 IF (HST14=9725)!(HST14=9726)!(HST14=9735)!(HST14=9736)!(HST14=9737)!(HST14=9738)!(HST14=9826)!(HST14=9827)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+108 ;
+109 ;00790 Lymphoma 79.0/79.1/79.2/79.3/79.4/79.6/79.7/XX
+110 IF ONCSCMA="00790"
Begin DoDot:1
+111 IF (ONCT3="000")!((ONCT3>0)&(ONCT3<425))!((ONCT3>469)&(ONCT3<510))!((ONCT3>510)&(ONCT3<609))!((ONCT3>618)&(ONCT3<632))!((ONCT3>636)&(ONCT3<690))!((ONCT3>690)&(ONCT3<695))!((ONCT3>738)&(ONCT3<750))!((ONCT3>759)&(ONCT3<810))
Begin DoDot:2
+112 IF (HST14=9590)!(HST14=9591)!(HST14=9596)!(HST14=9687)!(HST14=9826)
SET ONCAJID="79.0"
SET ONCJFG=1
QUIT
+113 IF ((HST14>9677)&(HST14<9681))!(HST14=9688)!(HST14=9712)!(HST14=9735)!(HST14=9737)!(HST14=9738)
SET ONCAJID=79.1
SET ONCJFG=1
QUIT
+114 IF (HST14=9673)
SET ONCAJID=79.2
SET ONCJFG=1
QUIT
+115 IF (HST14=9690)!(HST14=9691)!(HST14=9695)!(HST14=9698)
SET ONCAJID=79.3
SET ONCJFG=1
QUIT
+116 IF (HST14=9689)!(HST14=9699)
SET ONCAJID=79.4
SET ONCJFG=1
QUIT
+117 IF (HST14=9702)!(HST14=9705)!(HST14=9708)!(HST14=9709)!(HST14=9714)!((HST14>9715)&(HST14<9720))!(HST14=9725)!(HST14=9726)!(HST14=9827)
SET ONCAJID=79.6
SET ONCJFG=1
QUIT
+118 IF (HST14=9650)!(HST14=9651)!(HST14=9652)!(HST14=9653)!(HST14=9655)!(HST14=9659)!(HST14=9663)
SET ONCAJID=79.7
SET ONCJFG=1
QUIT
+119 IF (HST14=9597)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+120 IF (ONCT3=440)!((ONCT3>441)&(ONCT3<450))!(ONCT3=510)!(ONCT3=609)!(ONCT3=632)!(ONCT3=698)!(ONCT3=699)
Begin DoDot:2
+121 IF (HST14=9590)!(HST14=9591)!(HST14=9596)!((HST14>9649)&(HST14<9664))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9700))!((HST14>9701)&(HST14<9706))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+122 IF ((HST14>9713)&(HST14<9715))!((HST14>9715)&(HST14<9718))!(HST14=9725)!(HST14=9735)!(HST14=9737)!(HST14=9738)!(HST14=9826)!(HST14=9827)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+123 IF (ONCT3=698)!(ONCT3=699)
Begin DoDot:2
+124 IF (HST14=9680)!((HST14>9707)&(HST14<9713))!(HST14=9718)!(HST14=9719)!(HST14=9726)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
+125 IF ((ONCT3>699)&(ONCT3<730))!((HST14>749)&(HST14<760))
Begin DoDot:2
+126 IF (HST14=9590)!(HST14=9591)!((HST14>9595)&(HST14<9664))!((HST14>9672)&(HST14<9680))!((HST14>9686)&(HST14<9699))!((HST14>9715)&(HST14<9720))!(HST14=9725)!(HST14=9726)!(HST14=9735)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
+127 IF (HST14=9737)!(HST14=9738)!(HST14=9826)!(HST14=9827)
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:2
IF ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+128 ;
+129 ;00795 Lymphoma 79.5/XX
+130 IF ONCSCMA="00795"
Begin DoDot:1
+131 IF (ONCT3=440)!((ONCT3>441)&(ONCT3<450))!(ONCT3=510)!(ONCT3=609)!(ONCT3=632)!(ONCT3=698)!(ONCT3=699)!((ONCT3>699)&(ONCT3<730))!((ONCT3>749)&(ONCT3<760))
SET ONCAJID="XX"
SET ONCJFG=1
QUIT
End DoDot:1
IF ONCJFG=1
QUIT
+132 ;
+133 DO ^ONCSCHMZ
+134 QUIT
