ONCSCHMN ;HINES OIFO/RTK - Onco AJCC ID 9th Edition ;11/12/24
;;2.2;ONCOLOGY;**21,22**;Jul 31, 2013;Build 6
;
AJCCV9 ;Check if AJCC 9th Edition, if so use 9xxx for AJCC ID #
; ONCAJID should already be set to calculated AJCC ID
N ONCOLDSC
S ONCOLDSC=$P($G(^ONCO(165.5,D0,"SSD1")),U,1) ; existing calculated Schema ID
S DATEDX=$P($G(^ONCO(165.5,D0,0)),U,16)
;
I DATEDX>3201231,ONCOLDSC="09520" S ONCAJID=9001 ;Cervix
I DATEDX>3221231,ONCOLDSC="09190" S ONCAJID=9002 ;Appendix
I DATEDX>3221231,ONCOLDSC="09210" S ONCAJID=9003 ;Anus
I DATEDX>3221231 D
.I (ONCAJID=72)!(ONCAJID="72.1") D
..I (ONCOLDSC="09721")!(ONCOLDSC="09722") S ONCAJID=9004 ;Brain & SC Other
..I (ONCOLDSC="09723")!(ONCOLDSC="09724") S ONCAJID=9004 ;Brain & SC Other
I DATEDX>3221231 D
.I ONCAJID="72.2",ONCOLDSC="09724" S ONCAJID=9005 ;Brain & SC Medulloblastoma
I DATEDX>3231231,ONCOLDSC="09500" S ONCAJID=9006 ;Vulva
I DATEDX>3231231,ONCOLDSC="09290" S ONCAJID=9007 ;NET - Stomach
I DATEDX>3231231 D
.I (ONCOLDSC="09301")!(ONCOLDSC="09302") S ONCAJID=9008 ;NET - Duo & Ampulla
I DATEDX>3231231,ONCOLDSC="09310" S ONCAJID=9009 ;NET - Jejunum & Ileum
I DATEDX>3231231,ONCOLDSC="09320" S ONCAJID=9010 ;NET - Appendix
I DATEDX>3231231,ONCOLDSC="09330" S ONCAJID=9011 ;NET - Colon & Rectum
I DATEDX>3231231,ONCOLDSC="09340" S ONCAJID=9012 ;NET - Pancreas
I DATEDX>3241231,ONCOLDSC="09350" S ONCAJID=9013 ;Thymus
I DATEDX>3241231,ONCOLDSC="09360" S ONCAJID=9014 ;Lung
I DATEDX>3241231,ONCOLDSC="09370" S ONCAJID=9015 ;Pleural Mesothelioma
I DATEDX>3241231,ONCOLDSC="09090" S ONCAJID=9016 ;Nasopharynx
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSCHMN 1645 printed Jan 29, 2026@15:26:43 Page 2
ONCSCHMN ;HINES OIFO/RTK - Onco AJCC ID 9th Edition ;11/12/24
+1 ;;2.2;ONCOLOGY;**21,22**;Jul 31, 2013;Build 6
+2 ;
AJCCV9 ;Check if AJCC 9th Edition, if so use 9xxx for AJCC ID #
+1 ; ONCAJID should already be set to calculated AJCC ID
+2 NEW ONCOLDSC
+3 ; existing calculated Schema ID
SET ONCOLDSC=$PIECE($GET(^ONCO(165.5,D0,"SSD1")),U,1)
+4 SET DATEDX=$PIECE($GET(^ONCO(165.5,D0,0)),U,16)
+5 ;
+6 ;Cervix
IF DATEDX>3201231
IF ONCOLDSC="09520"
SET ONCAJID=9001
+7 ;Appendix
IF DATEDX>3221231
IF ONCOLDSC="09190"
SET ONCAJID=9002
+8 ;Anus
IF DATEDX>3221231
IF ONCOLDSC="09210"
SET ONCAJID=9003
+9 IF DATEDX>3221231
Begin DoDot:1
+10 IF (ONCAJID=72)!(ONCAJID="72.1")
Begin DoDot:2
+11 ;Brain & SC Other
IF (ONCOLDSC="09721")!(ONCOLDSC="09722")
SET ONCAJID=9004
+12 ;Brain & SC Other
IF (ONCOLDSC="09723")!(ONCOLDSC="09724")
SET ONCAJID=9004
End DoDot:2
End DoDot:1
+13 IF DATEDX>3221231
Begin DoDot:1
+14 ;Brain & SC Medulloblastoma
IF ONCAJID="72.2"
IF ONCOLDSC="09724"
SET ONCAJID=9005
End DoDot:1
+15 ;Vulva
IF DATEDX>3231231
IF ONCOLDSC="09500"
SET ONCAJID=9006
+16 ;NET - Stomach
IF DATEDX>3231231
IF ONCOLDSC="09290"
SET ONCAJID=9007
+17 IF DATEDX>3231231
Begin DoDot:1
+18 ;NET - Duo & Ampulla
IF (ONCOLDSC="09301")!(ONCOLDSC="09302")
SET ONCAJID=9008
End DoDot:1
+19 ;NET - Jejunum & Ileum
IF DATEDX>3231231
IF ONCOLDSC="09310"
SET ONCAJID=9009
+20 ;NET - Appendix
IF DATEDX>3231231
IF ONCOLDSC="09320"
SET ONCAJID=9010
+21 ;NET - Colon & Rectum
IF DATEDX>3231231
IF ONCOLDSC="09330"
SET ONCAJID=9011
+22 ;NET - Pancreas
IF DATEDX>3231231
IF ONCOLDSC="09340"
SET ONCAJID=9012
+23 ;Thymus
IF DATEDX>3241231
IF ONCOLDSC="09350"
SET ONCAJID=9013
+24 ;Lung
IF DATEDX>3241231
IF ONCOLDSC="09360"
SET ONCAJID=9014
+25 ;Pleural Mesothelioma
IF DATEDX>3241231
IF ONCOLDSC="09370"
SET ONCAJID=9015
+26 ;Nasopharynx
IF DATEDX>3241231
IF ONCOLDSC="09090"
SET ONCAJID=9016
+27 QUIT
