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

ONCSGA8B.m

Go to the documentation of this file. 
  1. ONCSGA8B ;HINES OIFO/RTK - AJCC 8th Ed Automatic Staging Tables ;01/15/19
  1.  ;;2.2;ONCOLOGY;**10,12,13,18,20**;Jul 31, 2013;Build 5
  1.  ;
  1.  ;
  1. 30 ;NET
  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="T4",N="N0",M="M0" S SG=3 Q
  1.  I N="N1",M="M0" S SG=3 Q
  1.  I M["M1" S SG=4
  1.  Q
  1. 31 ;NET
  1.  S M=$E(M,2,5)
  1.  I ((T="TX")!(T="T0")),((N="NX")!(N="N0")!(N="N1")!(N="N2")),M["M1" S SG=4 Q
  1.  I T="T1",N="N0",M="M0" S SG=1 Q
  1.  I T="T1",((N="N1")!(N="N2")),M="M0" S SG=3 Q
  1.  I T="T1",((N="NX")!(N="N0")!(N="N1")!(N="N2")),M["M1" S SG=4 Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T2",((N="N1")!(N="N2")),M="M0" S SG=3 Q
  1.  I T="T2",((N="NX")!(N="N0")!(N="N1")!(N="N2")),M["M1" S SG=4 Q
  1.  I T="T3",N="N0",M="M0" S SG=2 Q
  1.  I T="T3",((N="N1")!(N="N2")),M="M0" S SG=3 Q
  1.  I T="T3",((N="NX")!(N="N0")!(N="N1")!(N="N2")),M["M1" S SG=4 Q
  1.  I T="T4",N="N0",M="M0" S SG=3 Q
  1.  I T="T4",((N="N1")!(N="N2")),M="M0" S SG=3 Q
  1.  I T="T4",((N="NX")!(N="N0")!(N="N1")!(N="N2")),M["M1" S SG=4
  1.  Q
  1. 32 ;NET
  1.  D 29^ONCSGA8A
  1.  Q
  1. 33 ;NET
  1.  S M=$E(M,2,5)
  1.  I ((T="TX")!(T="T0")),M["M1" S SG=4 Q
  1.  I T["T1",N="N0",M="M0" S SG=1 Q
  1.  I T["T1",N="N1",M="M0" S SG="3B" Q
  1.  I T["T1",M["M1" S SG=4 Q
  1.  I T="T2",N="N0",M="M0" S SG="2A" Q
  1.  I T="T2",N="N1",M="M0" S SG="3B" Q
  1.  I T="T2",M["M1" S SG=4 Q
  1.  I T="T3",N="N0",M="M0" S SG="2B" Q
  1.  I T="T3",N="N1",M="M0" S SG="3B" Q
  1.  I T="T3",M["M1" S SG=4 Q
  1.  I T="T4",N="N0",M="M0" S SG="3A" Q
  1.  I T="T4",N="N1",M="M0" S SG="3B" Q
  1.  I T="T4",M["M1" S SG=4
  1.  Q
  1. 34 ;NET
  1.  D 30
  1.  Q
  1. 35 ;THYMUS
  1.  S M=$E(M,2,5)
  1.  I ((T="T1a")!(T="T1b")),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="3A" Q
  1.  I T="T4",N="N0",M="M0" S SG="3B" Q
  1.  I N="N1",M="M0" S SG="4A" Q
  1.  I ((N="N0")!(N="N1")),M="M1a" S SG="4A" Q
  1.  I N="N2",((M="M0")!(M="M1a")) S SG="4B" Q
  1.  I M="M1b" S SG="4B"
  1.  Q
  1. 36 ;LUNG
  1.  S M=$E(M,2,5)
  1.  I T="TX",N="N0",M="M0" S SG="OccultCarcinoma" Q
  1.  I T="Tis",N="N0",M="M0" S SG=0 Q
  1.  I T="T1mi",N="N0",M="M0" S SG="1A1" Q
  1.  I T="T1a",N="N0",M="M0" S SG="1A1" Q
  1.  I T="T1a",N="N1",M="M0" S SG="2B" Q
  1.  I T="T1a",N="N2",M="M0" S SG="3A" Q
  1.  I T="T1a",N="N3",M="M0" S SG="3B" Q
  1.  I T="T1b",N="N0",M="M0" S SG="1A2" Q
  1.  I T="T1b",N="N1",M="M0" S SG="2B" Q
  1.  I T="T1b",N="N2",M="M0" S SG="3A" Q
  1.  I T="T1b",N="N3",M="M0" S SG="3B" Q
  1.  I T="T1c",N="N0",M="M0" S SG="1A3" Q
  1.  I T="T1c",N="N1",M="M0" S SG="2B" Q
  1.  I T="T1c",N="N2",M="M0" S SG="3A" Q
  1.  I T="T1c",N="N3",M="M0" S SG="3B" Q
  1.  I T="T2a",N="N0",M="M0" S SG="1B" Q
  1.  I T="T2a",N="N1",M="M0" S SG="2B" Q
  1.  I T="T2a",N="N2",M="M0" S SG="3A" Q
  1.  I T="T2a",N="N3",M="M0" S SG="3B" Q
  1.  I T="T2b",N="N0",M="M0" S SG="2A" Q
  1.  I T="T2b",N="N1",M="M0" S SG="2B" Q
  1.  I T="T2b",N="N2",M="M0" S SG="3A" Q
  1.  I T="T2b",N="N3",M="M0" S SG="3B" Q
  1.  I T="T3",N="N0",M="M0" S SG="2B" Q
  1.  I T="T3",N="N1",M="M0" S SG="3A" Q
  1.  I T="T3",N="N2",M="M0" S SG="3B" Q
  1.  I T="T3",N="N3",M="M0" S SG="3C" Q
  1.  I T="T4",N="N0",M="M0" S SG="3A" Q
  1.  I T="T4",N="N1",M="M0" S SG="3A" Q
  1.  I T="T4",N="N2",M="M0" S SG="3B" Q
  1.  I T="T4",N="N3",M="M0" S SG="3C" Q
  1.  I M="M1" S SG="4A" Q
  1.  I M="M1a" S SG="4A" Q
  1.  I M="M1b" S SG="4A" Q
  1.  I M="M1c" S SG="4B"
  1.  Q
  1. 37 ;MALIGNANT PLEURAL MESOTHELIOMA
  1.  S M=$E(M,2,5)
  1.  I T="T1",N="N0",M="M0" S SG="1A" Q
  1.  I ((T="T2")!(T="T3")),N="N0",M="M0" S SG="1B" Q
  1.  I T="T1",N="N1",M="M0" S SG=2 Q
  1.  I T="T2",N="N1",M="M0" S SG=2 Q
  1.  I T="T3",N="N1",M="M0" S SG="3A" Q
  1.  I ((T="T1")!(T="T2")!(T="T3")),N="N2",M="M0" S SG="3B" Q
  1.  I T="T4",M="M0" S SG="3B" Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 381 ;BONE
  1.  S M=$E(M,2,5)
  1.  I T="T1",N="N0",M="M0",((G=1)!(G=9)) S SG="1A" Q
  1.  I T="T2",N="N0",M="M0",((G=1)!(G=9)) S SG="1B" Q
  1.  I T="T3",N="N0",M="M0",((G=1)!(G=9)) S SG="1B" Q
  1.  I T="T1",N="N0",M="M0",((G=2)!(G=3)) S SG="2A" Q
  1.  I T="T2",N="N0",M="M0",((G=2)!(G=3)) S SG="2B" Q
  1.  I T="T3",N="N0",M="M0",((G=2)!(G=3)) S SG=3 Q
  1.  I N="N0",M="M1a" S SG="4A" Q
  1.  I N="N1" S SG="4A" Q
  1.  I M="M1b" S SG="4B"
  1.  Q
  1. 41 ;SOFT TISSUE
  1.  S M=$E(M,2,5)
  1.  I T="T1",N="N0",M="M0",((G=1)!(G=9)) S SG="1A" Q
  1.  I ((T="T2")!(T="T3")!(T="T4")),N="N0",M="M0",((G=1)!(G=9)) S SG="1B" Q
  1.  I T="T1",N="N0",M="M0",((G=2)!(G=3)) S SG=2 Q
  1.  I T="T2",N="N0",M="M0",((G=2)!(G=3)) S SG="3A" Q
  1.  I ((T="T3")!(T="T4")),N="N0",M="M0",((G=2)!(G=3)) S SG="3B" Q
  1.  I N="N1",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 431 ;GIST
  1.  S M=$E(M,2,5)
  1.  I ((T="T1")!(T="T2")),N="N0",M="M0",MTRT="L" S SG="1A" Q
  1.  I T="T3",N="N0",M="M0",MTRT="L" S SG="1B" Q
  1.  I T="T1",N="N0",M="M0",MTRT="H" S SG=2 Q
  1.  I T="T2",N="N0",M="M0",MTRT="H" S SG=2 Q
  1.  I T="T4",N="N0",M="M0",MTRT="L" S SG=3 Q
  1.  I T="T3",N="N0",M="M0",MTRT="H" S SG="3A" Q
  1.  I T="T4",N="N0",M="M0",MTRT="H" S SG="3B" Q
  1.  I N="N1",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 432 ;GIST
  1.  S M=$E(M,2,5)
  1.  I ((T="T1")!(T="T2")),N="N0",M="M0",MTRT="L" S SG=1 Q
  1.  I T="T3",N="N0",M="M0",MTRT="L" S SG=2 Q
  1.  I T="T1",N="N0",M="M0",MTRT="H" S SG="3A" Q
  1.  I T="T4",N="N0",M="M0",MTRT="L" S SG="3A" Q
  1.  I T="T2",N="N0",M="M0",MTRT="H" S SG="3B" Q
  1.  I T="T3",N="N0",M="M0",MTRT="H" S SG="3B" Q
  1.  I T="T4",N="N0",M="M0",MTRT="H" S SG="3B" Q
  1.  I N="N1",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 44 ;SOFT TISSUE
  1.  S M=$E(M,2,5)
  1.  I T="T1",N="N0",M="M0",((G=1)!(G=9)) S SG="1A" Q
  1.  I ((T="T2")!(T="T3")!(T="T4")),N="N0",M="M0",((G=1)!(G=9)) S SG="1B" Q
  1.  I T="T1",N="N0",M="M0",((G=2)!(G=3)) S SG=2 Q
  1.  I T="T2",N="N0",M="M0",((G=2)!(G=3)) S SG="3A" Q
  1.  I ((T="T3")!(T="T4")),N="N0",M="M0",((G=2)!(G=3)) S SG="3B" Q
  1.  I N="N1",M="M0" S SG="3B" Q
  1.  I M="M1" S SG=4
  1.  Q
  1. 46 ;MERKEL CELL
  1.  S M=$E(M,2,5)
  1.  I STGIND'="P" D
  1.  .I T="Tis",N="N0",M="M0" S SG=0 Q
  1.  .I T="T1",N="N0",M="M0" S SG=1 Q
  1.  .I ((T="T2")!(T="T3")),N="N0",M="M0" S SG="2A" Q
  1.  .I T="T4",N="N0",M="M0" S SG="2B" Q
  1.  .I ((T="T0")!(T="T1")!(T="T2")!(T="T3")!(T="T4")),((N="N1")!(N="N2")!(N="N3")),M="M0" S SG=3 Q
  1.  .I ((T="T0")!(T="T1")!(T="T2")!(T="T3")!(T="T4")),M["M1" S SG=4 Q
  1.  I STGIND="P" D
  1.  .I T="Tis",N="N0",M="M0" S SG=0 Q
  1.  .I T="T1",N="N0",M="M0" S SG=1 Q
  1.  .I ((T="T2")!(T="T3")),N="N0",M="M0" S SG="2A" Q
  1.  .I T="T4",N="N0",M="M0" S SG="2B" Q
  1.  .I ((T="T1")!(T="T2")!(T="T3")!(T="T4")),N="N1a",M="M0",PNSFX'="(f)" S SG="3A" Q
  1.  .I T="T0",N="N1b",M="M0" S SG="3A" Q
  1.  .I ((T="T1")!(T="T2")!(T="T3")!(T="T4")),((N="N1b")!(N="N2")!(N="N3")),M="M0" S SG="3B" Q
  1.  .I ((T="T0")!(T="T1")!(T="T2")!(T="T3")!(T="T4")),M["M1" S SG=4 Q
  1.  Q
  1. 47 ;MELANOMA OF THE SKIN
  1.  S M=$E(M,2,5)
  1.  I STGIND'="P" D
  1.  .I T="Tis",N="N0",M="M0" S SG=0 Q
  1.  .I T="T1a",N="N0",M="M0" S SG="1A" Q
  1.  .I T="T1b",N="N0",M="M0" S SG="1B" Q
  1.  .I T="T2a",N="N0",M="M0" S SG="1B" Q
  1.  .I T="T2b",N="N0",M="M0" S SG="2A" Q
  1.  .I T="T3a",N="N0",M="M0" S SG="2A" Q
  1.  .I T="T3b",N="N0",M="M0" S SG="2B" Q
  1.  .I T="T4a",N="N0",M="M0" S SG="2B" Q
  1.  .I T="T4b",N="N0",M="M0" S SG="2C" Q
  1.  .I N'="NX",N'="N0",M="M0" S SG=3 Q
  1.  .I M["M1" S SG=4 Q
  1.  I STGIND="P" D
  1.  .I T="Tis",N="N0",M="M0" S SG=0 Q
  1.  .I ((T="T1a")!(T="T1b")),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="T3a")),N="N0",M="M0" S SG="2A" Q
  1.  .I ((T="T3b")!(T="T4a")),N="N0",M="M0" S SG="2B" Q
  1.  .I T="T4b",N="N0",M="M0" S SG="2C" Q
  1.  .I T="T0",((N="N1b")!(N="N1c")),M="M0" S SG="3B" Q
  1.  .I T="T0",((N="N2b")!(N="N2c")!(N="N3b")!(N="N3c")),M="M0" S SG="3C" Q
  1.  .I ((T="T1a")!(T="T1b")!(T="T2a")),((N="N1a")!(N="N2a")),M="M0" S SG="3A" Q
  1.  .I ((T="T1a")!(T="T1b")!(T="T2a")),((N="N1b")!(N="N1c")!(N="N2b")),M="M0" S SG="3B" Q
  1.  .I ((T="T2b")!(T="T3a")),((N="N1a")!(N="N1b")!(N="N1c")!(N="N2a")!(N="N2b")),M="M0" S SG="3B" Q
  1.  .I ((T="T1a")!(T="T1b")!(T="T2a")!(T="T2b")!(T="T3a")),((N="N2c")!(N="N3a")!(N="N3b")!(N="N3c")),M="M0" S SG="3C" Q
  1.  .I ((T="T3b")!(T="T4a")),((N'="NX")&(N'="N0")),M="M0" S SG="3C" Q
  1.  .I T="T4b",((N="N1a")!(N="N1b")!(N="N1c")!(N="N2a")!(N="N2b")!(N="N2c")),M="M0" S SG="3C" Q
  1.  .I T="T4b",((N="N3a")!(N="N3b")!(N="N3c")),M="M0" S SG="3D" Q
  1.  .I M["M1" S SG=4 Q
  1.  Q
  1. 48 ;BREAST
  1.  S M=$E(M,2,3) ;can strip,only use char 2-3 b/c M0(i+) treated same as M0
  1.  I STGIND'="P" D
  1.  .I T["Tis",N="N0",M="M0" S SG=0 Q
  1.  .I ((T["T1")&(N="N0")&(M="M0"))!((T="T0")&(N="N1mi")&(M="M0"))!((T["T1")&(N="N1mi")&(M="M0")) D 1^ONCSGA8X
  1.  .I ((T="T0")&(N["N1")&(M="M0"))!((T["T1")&(N["N1")&(M="M0"))&((T="T2")&(N="N0")&(M="M0")) D 2^ONCSGA8X
  1.  .I ((T="T2")&(N["N1")&(M="M0"))!((T="T3")&(N="N0")&(M="M0")) D 3^ONCSGA8X
  1.  .I ((T="T0")&(N="N2")&(M="M0"))!((T["T1")&(N="N2")&(M="M0"))!((T="T2")&(N="N2")&(M="M0"))!((T="T3")&(N["N1")&(M="M0"))!((T="T3")&(N="N2")&(M="M0")) D 4^ONCSGA8X
  1.  .I ((T="T4")&(N="N0")&(M="M0"))!((T="T4")&(N["N1")&(M="M0"))!((T="T4")&(N="N2")&(M="M0"))!((N="N3")&(M="M0")) D 5^ONCSGA8X
  1.  .I M="M1" S SG=4
  1.  I STGIND="P" D
  1.  .I T["Tis",N="N0",M="M0" S SG=0 Q
  1.  .I ((T["T1")&(N="N0")&(M="M0"))!((T="T0")&(N="N1mi")&(M="M0"))!((T["T1")&(N="N1mi")&(M="M0")) D 1^ONCSGA8X
  1.  .I ((T="T0")&(N["N1")&(M="M0"))!((T["T1")&(N["N1")&(M="M0"))!((T="T2")&(N="N0")&(M="M0")) D 2^ONCSGA8X
  1.  .I ((T="T2")&(N["N1")&(M="M0"))!((T="T3")&(N="N0")&(M="M0")) D 3^ONCSGA8X
  1.  .I ((T="T0")&(N="N2")&(M="M0"))!((T["T1")&(N="N2")&(M="M0"))!((T="T2")&(N="N2")&(M="M0"))!((T="T3")&(N["N1")&(M="M0"))!((T="T3")&(N="N2")&(M="M0")) D 4^ONCSGA8X
  1.  .I ((T="T4")&(N="N0")&(M="M0"))!((T="T4")&(N["N1")&(M="M0"))!((T="T4")&(N="N2")&(M="M0"))!((N="N3")&(M="M0")) D 5^ONCSGA8X
  1.  .I M="M1" S SG=4
  1.  Q
  1.  ;
  1. 50 ;VULVA
  1.  S M=$E(M,2,5)
  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="T1b",N="N0",M="M0" S SG="1B" Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),(($E(N,1,2)="N1")!($E(N,1,2)="N2")),M="M0" S SG=3 Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N1",M="M0" S SG="3A" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),((N="N2a")!(N="N2b")),M="M0" S SG="3B" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N2c",M="M0" S SG="3C" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),N="N3",((M="M0")!(M="M1")) S SG=4 Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N3",M="M1" S SG="4A" Q
  1.  I T="T3",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. 51 ;VAGINA
  1.  S M=$E(M,2,5)
  1.  I T="T1a",N="N0",M="M0" S SG="1A" Q
  1.  I T="T1b",N="N0",M="M0" S SG="1B" 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 (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),N="N1",((M="M0")!(M="M1")) S SG=3 Q
  1.  I T="T3",N="N0",M="M1" S SG=3 Q
  1.  I T="T4",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. 52 ;CERVIX UTERI
  1.  S M=$E(M,2,5)
  1.  I $P($G(^ONCO(165.5,D0,0)),"^",16)>3201231 D V529^ONCSGA8C Q
  1.  I T="T1",M="M0" S SG=1 Q
  1.  I T="T1a",M="M0" S SG="1A" Q
  1.  I T="T1a1",M="M0" S SG="1A1" Q
  1.  I T="T1a2",M="M0" S SG="1A2" Q
  1.  I T="T1b",M="M1" S SG="1B" Q
  1.  I T="T1b1",M="M0" S SG="1B1" Q
  1.  I T="T1b2",M="M0" S SG="1B2" Q
  1.  I T="T2",M="M0" S SG=2 Q
  1.  I T="T2a",M="M0" S SG="2A" Q
  1.  I T="T2a1",M="M0" S SG="2A1" Q
  1.  I T="T2a2",M="M0" S SG="2A2" Q
  1.  I T="T2b",M="M0" S SG="2B" Q
  1.  I T="T3",M="M0" S SG=3 Q
  1.  I T="T3a",M="M0" S SG="3A" Q
  1.  I T="T3b",M="M0" S SG="3B" Q
  1.  I T="T4",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. 53 ;CORPUS UTERI
  1.  S M=$E(M,2,5)
  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="T1b",N="N0",M="M0" S SG="1B" Q
  1.  I T="T2",N="N0",M="M0" S SG=2 Q
  1.  I T="T3",N="N0",M="M1" 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 (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),((N="N1")!(N="N1mi")!(N="N1a")),M="M0" S SG="3C1" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),((N="N2")!(N="N2mi")!(N="N2a")),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. 541 ;CORPUS UTERI
  1.  S M=$E(M,2,5)
  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="T1b",N="N0",M="M0" S SG="1B" Q
  1.  I T="T2",N="N0",M="M0" S SG=2 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 (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),N="N1",M="M0" S SG="3C" Q
  1.  I T="T4",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. 542 ;CORPUS UTERI
  1.  S M=$E(M,2,5)
  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="T1b",N="N0",M="M0" S SG="1B" Q
  1.  I T="T1c",N="N0",M="M0" S SG="1C" Q
  1.  I T="T2",N="N0",M="M0" S SG=2 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 (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),N="N1",M="M0" S SG="3C" Q
  1.  I T="T4",M="M0" S SG="4A" Q
  1.  I M="M1" S SG="4B"
  1.  Q
  1. 55 ;OVARY, FALLOPIAN TUBE AND PRIMARY PERITONEAL CARCINOMA
  1.  S M=$E(M,2,5)
  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="T1b",N="N0",M="M0" S SG="1B" Q
  1.  I T="T1c",N="N0",M="M0" S SG="1C" 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="T2b",N="N0",M="M0" S SG="2B" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")),N="N1",M="M0" S SG="3A1" Q
  1.  I T="T3a",((N="NX")!(N="N0")!(N="N1")),M="M0" S SG="3A2" Q
  1.  I T="T3b",((N="NX")!(N="N0")!(N="N1")),M="M0" S SG="3B" Q
  1.  I T="T3c",((N="NX")!(N="N0")!(N="N1")),M="M0" S SG="3C" Q
  1.  I M="M1" S SG=4 Q
  1.  I M="M1a" S SG="4A" Q
  1.  I M="M1b" S SG="4B"
  1.  Q
  1. 56 ;GTN
  1.  S M=$E(M,2,5)
  1.  I T="T1",M="M0" S SG=1
  1.  I T="T1",M="M1a" S SG=3
  1.  I T="T1",M="M1b" S SG=4
  1.  I T="T2",M="M0" S SG=2
  1.  I T="T1",M="M1a" S SG=3
  1.  I T="T1",M="M1b" S SG=4
  1.  I SG'="",RSCORE'="" S SG=SG_":"_RSCORE
  1.  Q
  1. 57 ;PENIS
  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="T1a",N="N0",M="M0" S SG=1 Q
  1.  I T="T1b",N="N0",M="M0" S SG="2A" Q
  1.  I T="T2",N="N0",M="M0" S SG="2A" Q
  1.  I T="T3",N="N0",M="M0" S SG="2B" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),N="N1",M="M0" S SG="3A" Q
  1.  I (($E(T,1,2)="T1")!($E(T,1,2)="T2")!($E(T,1,2)="T3")),N="N2",M="M0" S SG="3B" Q
  1.  I T="T4",M="M0" S SG=4 Q
  1.  I N="N3",M="M0" S SG=4 Q
  1.  I M="M1" S SG=4
  1.  Q
  1.  ;
  1. CLEANUP ;Cleanup
  1.  K M,N,SG,T
  1.  Q