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

ONCSGA8C.m

Go to the documentation of this file. 
  1. ONCSGA8C ;HINES OIFO/RTK - AJCC 8th Ed Automatic Staging Tables ;01/17/19
  1.  ;;2.2;ONCOLOGY;**10,12,13,18,19,20**;Jul 31, 2013;Build 5
  1.  ;
  1.  ;
  1. 58 ;PROSTATE
  1.  S M=$E(M,2,5)
  1.  I (($E(T,1,2)="T1")!(T="T2a")),N="N0",M="M0",PSA<10,G=1 S SG=1 Q
  1.  I T="T2",N="N0",M="M0",PSA<10,G=1 S SG=1 Q
  1.  I (($E(T,1,2)="T1")!(T="T2")!(T="T2a")),N="N0",M="M0",((PSA>10)&(PSA<20)),G=1 S SG="2A" Q
  1.  I (($E(T,1,2)="T2")),N="N0",M="M0",PSA<20,G=1 S SG="2A" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N0",M="M0",PSA<20,G=2 S SG="2B" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N0",M="M0",PSA<20,G=3 S SG="2C" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N0",M="M0",PSA<20,G=4 S SG="2C" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N0",M="M0",PSA>19,G<5 S SG="3A" Q
  1.  I (($E(T,1,2)="T3")!($E(T,1,2)="T4")),N="N0",M="M0",G<5 S SG="3B" Q
  1.  I N="N0",M="M0",G=5 S SG="3C" Q
  1.  I N="N1",M="M0" S SG="4A" Q
  1.  I M["M1" S SG="4B" Q
  1.  Q
  1. 59 ;TESTIS
  1.  S M=$E(M,2,5)
  1.  I T="Tis",N="N0",M="M0",SCAT=0 S SG=0 Q
  1.  I ((T["T1")!(T="T2")!(T="T3")!(T="T4")),N="N0",M="M0",SCAT=9 S SG=1 Q
  1.  I T["T1",N="N0",M="M0",SCAT=0 S SG="1A" Q
  1.  I T="T2",N="N0",M="M0",SCAT=0 S SG="1B" Q
  1.  I T="T3",N="N0",M="M0",SCAT=0 S SG="1B" Q
  1.  I T="T4",N="N0",M="M0",SCAT=0 S SG="1B" Q
  1.  I N="N0",M="M0",((SCAT=1)!(SCAT=2)!(SCAT=3)) S SG="1S" Q
  1.  I ((N="N1")!(N="N2")!(N="N3")),M="M0",SCAT=9 S SG=2 Q
  1.  I N="N1",M="M0",SCAT=0 S SG="2A" Q
  1.  I N="N1",M="M0",SCAT=1 S SG="2A" Q
  1.  I N="N2",M="M0",SCAT=0 S SG="2B" Q
  1.  I N="N2",M="M0",SCAT=1 S SG="2B" Q
  1.  I N="N3",M="M0",SCAT=0 S SG="2C" Q
  1.  I N="N3",M="M0",SCAT=1 S SG="2C" Q
  1.  I M="M1",SCAT=9 S SG=3 Q
  1.  I M="M1a",SCAT=0 S SG="3A" Q
  1.  I M="M1b",SCAT=1 S SG="3A" Q
  1.  I ((N="N1")!(N="N2")!(N="N3")),M="M0",SCAT=2 S SG="3B" Q
  1.  I M="M1a",SCAT=2 S SG="3B" Q
  1.  I ((N="N1")!(N="N2")!(N="N3")),M="M0",SCAT=3 S SG="3C" Q
  1.  I M="M1a",SCAT=3 S SG="3C" Q
  1.  I M="M1a",SCAT=3 S SG="3C" Q
  1.  I M="M1b" S SG="3C"
  1.  Q
  1. 60 ;KIDNEY
  1.  S M=$E(M,2,5)
  1.  I T["T1",N="N0",M="M0" S SG=1 Q
  1.  I T["T1",N="N1",M="M0" S SG=3 Q
  1.  I T["T2",N="N0",M="M0" S SG=2 Q
  1.  I T["T2",N="N1",M="M0" S SG=3 Q
  1.  I T["T3",((N="NX")!(N="N0")),M="M0" S SG=3 Q
  1.  I T["T3",N="N1",M="M0" S SG=3 Q
  1.  I T="T4",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 611 ;RENAL PELVIS AND URETER
  1.  S M=$E(M,2,5)
  1.  I T="Ta",N="N0",M="M0" S SG="0a" Q
  1.  I T="Tis",N="N0",M="M0" S SG="0is" Q
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T3",N="N0",M="M0" S SG=3 Q
  1.  I T="T4",((N="NX")!(N="N0")),M="M0" S SG=4 Q
  1.  I N="N1",M="M0" S SG=4 Q
  1.  I N="N2",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 612 ;
  1.  D 611
  1.  Q
  1. 621 ;URINARY BLADDER
  1.  S M=$E(M,2,5)
  1.  I T="Ta",N="N0",M="M0" S SG="0a" Q
  1.  I T="Tis",N="N0",M="M0" S SG="0is" Q
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T2a",N="N0",M="M0" S SG=2 Q
  1.  I T="T2b",N="N0",M="M0" S SG=2 Q
  1.  I ((T="T3")!(T="T3a")!(T="T3b")!(T="T4a")),N="N0",M="M0" S SG="3A" Q
  1.  I ((T["T1")!(T["T2")!(T["T3")!(T["T4")),T'="T4b",N="N1",M="M0" S SG="3A" Q
  1.  I ((T["T1")!(T["T2")!(T["T3")!(T["T4")),T'="T4b",((N="N2")!(N="N3")),M="M0" S SG="3B" Q
  1.  I T="T4b",M="M0" S SG="4A" Q
  1.  I M="M1a" S SG="4A" Q
  1.  I M="M1b" S SG="4B"
  1.  Q
  1. 622 ;
  1.  D 621
  1.  Q
  1. 631 ;URETHRA
  1.  S M=$E(M,2,5)
  1.  I T="Tis",N="N0",M="M0" S SG="0is" Q
  1.  I T="Ta",N="N0",M="M0" S SG="0a" Q
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T1",N="N1",M="M0" S SG=3 Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T2",N="N1",M="M0" S SG=3 Q
  1.  I T="T3",N="N0",M="M0" S SG=3 Q
  1.  I T="T3",N="N1",M="M0" S SG=3 Q
  1.  I T="T4",N="NX",M="M0" S SG=4 Q
  1.  I T="T4",N="N0",M="M0" S SG=4 Q
  1.  I T="T4",N="N1",M="M0" S SG=4 Q
  1.  I N="N2",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 632 ;
  1.  D 631
  1.  Q
  1. 633 ;
  1.  D 631
  1.  Q
  1. 634 ;
  1.  D 631
  1.  Q
  1. 64 ;EYELID CARCINOMA
  1.  S M=$E(M,2,5)
  1.  I T="Tis",N="N0",M="M0" S SG=0 Q
  1.  I T="T1",N="N0",M="M0" S SG="1A" Q
  1.  I T="T2a",N="N0",M="M0" S SG="1B" Q
  1.  I ((T="T2b")!(T="T2c")!(T="T3")),N="N0",M="M0" S SG="2A" Q
  1.  I T="T4",N="N0",M="M0" S SG="2B" Q
  1.  I N="N1",M="M0" S SG="3A" Q
  1.  I N="N2",M="M0" S SG="3B" Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 672 ;UVEA
  1.  S M=$E(M,2,5)
  1.  I T="T1a",N="N0",M="M0" S SG=1 Q
  1.  I ((T="T1b")!(T="T1c")!(T="T1d")),N="N0",M="M0" S SG="2A" Q
  1.  I T="T2a",N="N0",M="M0" S SG="2A" Q
  1.  I T="T2b",N="N0",M="M0" S SG="2B" Q
  1.  I T="T3a",N="N0",M="M0" S SG="2B" Q
  1.  I ((T="T2c")!(T="T2d")),N="N0",M="M0" S SG="3A" Q
  1.  I ((T="T3b")!(T="T3c")),N="N0",M="M0" S SG="3A" Q
  1.  I T="T4a",N="N0",M="M0" S SG="3A" Q
  1.  I T="T3d",N="N0",M="M0" S SG="3B" Q
  1.  I ((T="T4b")!(T="T4c")),N="N0",M="M0" S SG="3B" Q
  1.  I ((T="T4d")!(T="T4e")),N="N0",M="M0" S SG="3C" Q
  1.  I N="N1",M="M0" S SG=4 Q
  1.  I ((M="M1a")!(M="M1b")!(M="M1c")) S SG=4
  1.  Q
  1. 68 ;RETINOBLASTOMA - this code should work for either "C" or "P" STGIND
  1.  I ((T="T1")!(T="T2")!(T="T3")),N="N0",M="cM0" S SG=1 Q
  1.  I T="T4a",N="N0",M="cM0" S SG=2 Q
  1.  I T="T4b",N="N0",M="cM0" S SG=3 Q
  1.  I N="N1",M="cM0" S SG=3 Q
  1.  I ((M["cM1")!(M["pM1")) S SG=4 Q
  1.  I STGIND="P",T="T4",N="N0",M="cM0" S SG=2 Q
  1.  Q
  1. 731 ;THYROID
  1.  S M=$E(M,2,5)
  1.  N X D AGE^ONCOCOM Q:X=""  I X<55 D  Q
  1.  .I M="M0" S SG=1
  1.  .I M="M1" S SG=2
  1.  I T["T1",((N["N0")!(N="NX")),M="M0" S SG=1 Q
  1.  I T["T1",N["N1",M="M0" S SG=2 Q
  1.  I T="T2",((N["N0")!(N="NX")),M="M0" S SG=1 Q
  1.  I T="T2",N["N1",M="M0" S SG=2 Q
  1.  I ((T="T3a")!(T="T3b")),M="M0" S SG=2 Q
  1.  I T="T4a",M="M0" S SG=3 Q
  1.  I T="T4b",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. 732 ;THYROID
  1.  S M=$E(M,2,5)
  1.  I ((T["T1")!(T["T2")!(T["T3")),T'="T3b",((N["N0")!(N="NX")),M="M0" S SG="4A" Q
  1.  I ((T["T1")!(T["T2")!(T["T3")),T'="T3b",N["N1",M="M0" S SG="4B" Q
  1.  I T="T3b",M="M0" S SG="4B" Q
  1.  I T="T4",M="M0" S SG="4B" Q
  1.  I M="M1" S SG="4C"
  1.  Q
  1. 74 ;THYROID
  1.  S M=$E(M,2,5)
  1.  I T["T1",N["N0",M="M0" S SG=1 Q
  1.  I T["T2",N["N0",M="M0" S SG=2 Q
  1.  I T["T3",N["N0",M="M0" S SG=2 Q
  1.  I ((T["T1")!(T["T2")!(T["T3")),N="N1a",M="M0" S SG=3 Q
  1.  I T="T4a",M="M0" S SG="4A" Q
  1.  I ((T["T1")!(T["T2")!(T["T3")),N="N1b",M="M0" S SG="4A" Q
  1.  I T="T4b",M="M0" S SG="4B" Q
  1.  I M="M1" S SG="4C"
  1.  Q
  1. 76 ;ADRENAL CORTICAL CARCINOMA
  1.  S M=$E(M,2,5)
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T1",N="N1",M="M0" S SG=3 Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T2",N="N1",M="M0" S SG=3 Q
  1.  I T="T3",M="M0" S SG=3 Q
  1.  I T="T4",M="M0" S SG=3 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 77 ;ADRENAL NEUROENDOCRINE
  1.  S M=$E(M,2,5)
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T1",N="N1",M="M0" S SG=3 Q
  1.  I T="T2",N="N1",M="M0" S SG=3 Q
  1.  I T="T3",M="M0" S SG=3 Q
  1.  I M["M1" S SG=4
  1.  Q
  1. 811 ;PRIMARY CUTANEOUS LYMPHOMAS
  1.  S M=$E(M,2,5)
  1.  I T["T1",N="N0",M="M0",PBI18<7 S SG="1A" Q
  1.  I T["T2",N="N0",M="M0",PBI18<7 S SG="1B" Q
  1.  I (T["T1")!(T["T2"),(N="N1")!(N="N2"),M="M0",PBI18<7 S SG="2A" Q
  1.  I T="T3",(N="N0")!(N="N1")!(N="N2"),M="M0",PBI18<7 S SG="2B" Q
  1.  I T="T4",(N="N0")!(N="N1")!(N="N2"),M="M0",PBI18<7 S SG=3 Q
  1.  I T="T4",(N="N0")!(N="N1")!(N="N2"),M="M0",PBI18<4 S SG="3A" Q
  1.  I T="T4",(N="N0")!(N="N1")!(N="N2"),M="M0",(PBI18>3)&(PBI18<7) S SG="3B" Q
  1.  I (N="N0")!(N="N1")!(N="N2"),M="M0",PBI18=7 S SG="4A1" Q
  1.  I N="N3",M="M0",PBI18<8 S SG="4A2" Q
  1.  I (N="N0")!(N="N1")!(N="N2")!(N="N3"),M="M1",PBI18<8 S SG="4B" Q
  1.  Q
  1.  ;v9 UPDATES
  1. V529 ;CERVIX UTERI -- 52 - 9TH EDITION
  1.  I T="T1",N["N0",M="M0" S SG=1 Q
  1.  I T="T1a",N["N0",M="M0" S SG="1A" Q
  1.  I T="T1a1",N["N0",M="M0" S SG="1A1" Q
  1.  I T="T1a2",N["N0",M="M0" S SG="1A2" Q
  1.  I T="T1b",N["N0",M="M1" S SG="1B" Q
  1.  I T="T1b1",N["N0",M="M0" S SG="1B1" Q
  1.  I T="T1b2",N["N0",M="M0" S SG="1B2" Q
  1.  I T="T1b3",N["N0",M="M0" S SG="1B3" Q
  1.  I T="T2",N["N0",M="M0" S SG=2 Q
  1.  I T="T2a",N["N0",M="M0" S SG="2A" Q
  1.  I T="T2a1",N["N0",M="M0" S SG="2A1" Q
  1.  I T="T2a2",N["N0",M="M0" S SG="2A2" Q
  1.  I T="T2b",N["N0",M="M0" S SG="2B" Q
  1.  I T="T3",N["N0",M="M0" S SG=3 Q
  1.  I T="T3a",N["N0",M="M0" S SG="3A" Q
  1.  I T="T3b",N["N0",M="M0" S SG="3B" Q
  1.  I T'="T4",N["N1",M="M0" S SG="3C1" Q
  1.  I T'="T4",N["N2",M="M0" S SG="3C2" Q
  1.  I T="T4",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. V219 ;ANUS AJCC -- 21 - 9TH EDITION V9 STAGING
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T2",N="N0",M="M0" S SG="2A" Q
  1.  I T="T1",N["N1",M="M0" S SG="2B" Q
  1.  I T="T2",N["N1",M="M0" S SG="2B" Q
  1.  I T="T3",((N="N0")!(N["N1")),M="M0" S SG="3A" Q
  1.  I T="T4",N="N0",M="M0" S SG="3B" Q
  1.  I T="T4",N["N1",M="M0" S SG="3C" Q
  1.  I M="M1" S SG=4
  1.  Q