ONCSG3 ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;07/15/02
 ;;2.11;ONCOLOGY;**35**;Mar 07, 1995
 ;
 ;SKIN
 ;
CS ;Carcinoma of the Skin - all editions
 K SG
 I $E(M)=1 S SG=4
 E  I $E(M)=0 D SKNRP
 I '$D(SG) S SG=99
 Q
SKNRP ;Carcinoma of the Skin
 I $E(N)=1 S SG=3
 E  I $E(N)=0 D
 .I T="IS" S SG=0
 .E  I T=1 S SG=1
 .E  I (T=2)!(T=3) S SG=2
 .E  I T=4 S SG=3
 Q
 ;
MMS3 ;Melanoma of the Skin - 3rd edition
 I M[1 S SG=4
 E  I (T[1)!(T[2)!(T[3),N[0,M[0 S SG=+T
 E  I N,M[0 S SG=3
 E  S SG=99
 Q
 ;
MMS4 ;Malignant Melanoma of the Skin - 4th edition
 S SG=99
 I M[1 S SG=4
 E  I (N[1)!(N[2),M[0 S SG=3
 E  I N[0,M[0 S SG=$S((T[3)!(T[4):2,(T[1)!(T[2):1,T["IS":0,1:99)
 Q
 ;
MMS5 ;Malignant Melanoma of the Skin - 5th edition
 I T="IS" S TNM=T_$E(N,1)_$E(M,1)
 E  S TNM=$E(T,1)_$E(N,1)_$E(M,1)
 D  K TNM Q
 .I TNM="IS00" S SG=0 Q     ;0    Tis   N0    M0
 .I TNM=100 S SG=1 Q        ;I    T1    N0    M0
 .I TNM=200 S SG=1 Q        ;     T2    N0    M0
 .I TNM=300 S SG=2 Q        ;II   T3    N0    M0
 .I TNM=400 S SG=3 Q        ;III  T4    N0    M0
 .I $E(N,1)=1,M=0 S SG=3 Q  ;     Any T N1    M0
 .I $E(N,1)=2,M=0 S SG=3 Q  ;     Any T N2    M0
 .I $E(M,1)=1 S SG=4 Q      ;IV   Any T Any N M1
 ;
MMS6 ;Melanoma of the Skin - 6th edition
 I STGIND="C" D MMS6C Q
 I STGIND="P" D MMS6P Q
 Q
 ;
MMS6C ;Melanoma of the Skin - 6th edition (Clinical Stage Grouping)
 S TNM=T_$E(N,1)_$E(M,1)
 D  K TNM Q
 .I TNM="IS00" S SG=0 Q     ;0    Tis   N0    M0
 .I TNM="1A00" S SG="1A" Q  ;IA   T1a   N0    M0
 .I TNM="1B00" S SG="1B" Q  ;IB   T1b   N0    M0
 .I TNM="2A00" S SG="1B" Q  ;     T2a   N0    M0
 .I TNM="2B00" S SG="2A" Q  ;IIA  T2b   N0    M0
 .I TNM="3A00" S SG="2A" Q  ;     T3a   N0    M0
 .I TNM="3B00" S SG="2B" Q  ;IIB  T3b   N0    M0
 .I TNM="4A00" S SG="2B" Q  ;     T4a   N0    M0
 .I TNM="4B00" S SG="2C" Q  ;IIC  T4b   N0    M0
 .I $E(N,1)=1,M=0 S SG=3 Q  ;III  Any T N1    M0
 .I $E(N,1)=2,M=0 S SG=3 Q  ;     Any T N2    M0
 .I $E(N,1)=3,M=0 S SG=3 Q  ;     Any T N3    M0
 .I $E(M,1)=1 S SG=4 Q      ;IV   Any T Any N M1
 ;
MMS6P ;Melanoma of the Skin - 6th edition (Pathologic Stage Grouping)
 S TNM=T_N_$E(M,1)
 D  K TNM Q
 .I TNM="IS00" S SG=0 Q      ;0    Tis   N0    M0
 .I TNM="1A00" S SG="1A" Q   ;IA   T1a   N0    M0
 .I TNM="1B00" S SG="1B" Q   ;IB   T1b   N0    M0
 .I TNM="2A00" S SG="1B" Q   ;     T2a   N0    M0
 .I TNM="2B00" S SG="2A" Q   ;IIA  T2b   N0    M0
 .I TNM="3A00" S SG="2A" Q   ;     T3a   N0    M0
 .I TNM="3B00" S SG="2B" Q   ;IIB  T3b   N0    M0
 .I TNM="4A00" S SG="2B" Q   ;     T4a   N0    M0
 .I TNM="4B00" S SG="2C" Q   ;IIC  T4b   N0    M0
 .I TNM="1A1A0" S SG="3A" Q  ;IIIA T1a   N1a   M0
 .I TNM="2A1A0" S SG="3A" Q  ;     T2a   N1a   M0
 .I TNM="3A1A0" S SG="3A" Q  ;     T3a   N1a   M0
 .I TNM="4A1A0" S SG="3A" Q  ;     T4a   N1a   M0
 .I TNM="1A2A0" S SG="3A" Q  ;     T1a   N2a   M0
 .I TNM="2A2A0" S SG="3A" Q  ;     T2a   N2a   M0
 .I TNM="3A2A0" S SG="3A" Q  ;     T3a   N2a   M0
 .I TNM="4A2A0" S SG="3A" Q  ;     T4a   N2a   M0
 .I TNM="1B1A0" S SG="3B" Q  ;IIIB T1b   N1a   M0
 .I TNM="2B1A0" S SG="3B" Q  ;     T2b   N1a   M0
 .I TNM="3B1A0" S SG="3B" Q  ;     T3b   N1a   M0
 .I TNM="4B1A0" S SG="3B" Q  ;     T4b   N1a   M0
 .I TNM="1B2A0" S SG="3B" Q  ;     T1b   N2a   M0
 .I TNM="2B2A0" S SG="3B" Q  ;     T2b   N2a   M0
 .I TNM="3B2A0" S SG="3B" Q  ;     T3b   N2a   M0
 .I TNM="4B2A0" S SG="3B" Q  ;     T4b   N2a   M0
 .I TNM="1A1B0" S SG="3B" Q  ;     T1a   N1b   M0
 .I TNM="2A1B0" S SG="3B" Q  ;     T2a   N1b   M0
 .I TNM="3A1B0" S SG="3B" Q  ;     T3a   N1b   M0
 .I TNM="4A1B0" S SG="3B" Q  ;     T4a   N1b   M0
 .I TNM="1A2B0" S SG="3B" Q  ;     T1a   N2b   M0
 .I TNM="2A2B0" S SG="3B" Q  ;     T2a   N2b   M0
 .I TNM="3A2B0" S SG="3B" Q  ;     T3a   N2b   M0
 .I TNM="4A2B0" S SG="3B" Q  ;     T4a   N2b   M0
 .I TNM="1A2C0" S SG="3B" Q  ;     T1a   N2c   M0
 .I TNM="2A2C0" S SG="3B" Q  ;     T2a   N2c   M0
 .I TNM="3A2C0" S SG="3B" Q  ;     T3a   N2c   M0
 .I TNM="4A2C0" S SG="3B" Q  ;     T4a   N2c   M0
 .I TNM="1B2C0" S SG="3B" Q  ;     T1b   N2c   M0
 .I TNM="2B2C0" S SG="3B" Q  ;     T2b   N2c   M0
 .I TNM="3B2C0" S SG="3B" Q  ;     T3b   N2c   M0
 .I TNM="4B2C0" S SG="3B" Q  ;     T4b   N2c   M0
 .I TNM="1B1B0" S SG="3C" Q  ;IIIC T1b   N1b   M0
 .I TNM="2B1B0" S SG="3C" Q  ;     T2b   N1b   M0
 .I TNM="3B1B0" S SG="3C" Q  ;     T3b   N1b   M0
 .I TNM="4B1B0" S SG="3C" Q  ;     T4b   N1b   M0
 .I TNM="1B2B0" S SG="3C" Q  ;     T1b   N2b   M0
 .I TNM="2B2B0" S SG="3C" Q  ;     T2b   N2b   M0
 .I TNM="3B2B0" S SG="3C" Q  ;     T3b   N2b   M0
 .I TNM="4B2B0" S SG="3C" Q  ;     T4b   N2b   M0
 .I N=3,M=0 S SG="3C" Q      ;     Any T N3    M0
 .I $E(M,1)=1 S SG=4 Q       ;IV   Any T Any N M1
 ;
 ;BREAST
 ;
BRST345 ;Breast - 3rd, 4th and 5th editions 
 I $E(M)=1 S SG=4
 E  I ($E(N)=3)!($E(T)=4),$E(M)=0 S SG="3B"
 E  I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0
 E  I $E(T)=1,$E(N)=0,$E(M)=0 S SG=1
 E  I ($E(T)=0)!($E(T)=1),$E(N)=1,$E(M)=0 S SG="2A"
 E  I $E(T)=2,$E(N)=0,$E(M)=0 S SG="2A"
 E  I $E(T)=2,$E(N)=1,$E(M)=0 S SG="2B"
 E  I $E(T)=3,$E(N)=0,$E(M)=0 S SG="2B"
 E  I ($E(T)=0)!($E(T)=1)!($E(T)=2)!($E(T)=3),$E(N)=2,$E(M)=0 S SG="3A"
 E  I $E(T)=3,$E(N)=1,$E(M)=0 S SG="3A"
 E  S SG=99
 Q
 ;
BRST6 ;Breast - 6th edition 
 I T="IS" S TNM=T_$E(N,1)_$E(M,1)
 E  S TNM=$E(T,1)_$E(N,1)_$E(M,1)
 S N=$E(N,1)
 D  K TNM Q
 .I TNM="IS00" S SG=0 Q       ;0    Tis   N0    M0
 .I TNM=100 S SG=1 Q          ;I    T1    N0    M0
 .I TNM="010" S SG="2A" Q     ;IIA  T0    N1    M0
 .I TNM=110 S SG="2A" Q       ;     T1    N1    M0
 .I TNM=200 S SG="2A" Q       ;     T2    N0    M0
 .I TNM=210 S SG="2B" Q       ;IIB  T2    N1    M0
 .I TNM=300 S SG="2B" Q       ;     T3    N0    M0
 .I TNM="020" S SG="3A" Q     ;IIIA T0    N2    M0
 .I TNM=120 S SG="3A" Q       ;     T1    N2    M0
 .I TNM=220 S SG="3A" Q       ;     T2    N2    M0
 .I TNM=310 S SG="3A" Q       ;     T3    N1    M0
 .I TNM=320 S SG="3A" Q       ;     T3    N2    M0
 .I TNM=400 S SG="3B" Q       ;IIIB T4    N0    M0
 .I TNM=410 S SG="3B" Q       ;     T4    N1    M0
 .I TNM=420 S SG="3B" Q       ;     T4    N2    M0
 .I N=3,M=0 S SG="3C" Q       ;IIIC Any T N3    M0
 .I M=1 S SG=4 Q              ;IV   Any T Any N M1
 ;