Routine: ONCSG4

ONCSG4 ;Hines OIFO/GWB - Automatic Staging Tables ;02/28/11

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;GYNECOLOGICAL SITES

VU3 ;Vulva - 3rd edition

 I M!($E(N)=3)!(T=4) S SG=4

 E  I T="IS" S SG=0

 E  I T=1,($E(N)=0)!($E(N)=1),$E(M)=0 S SG=1

 E  I T=2,($E(N)=0)!($E(N)=1),$E(M)=0 S SG=2

 E  I T=3,($E(N)=0)!($E(N)=1)!($E(N)=2),$E(M)=0 S SG=3

 E  I (T=1)!(T=2),$E(N)=2,$E(M)=0 S SG=3

 E  S SG=99

VU4 ;Vulva - 4th edition

 I M S SG="4B"

 E  I T=4,$E(M)=0 S SG="4A"

 E  I (T=1)!(T=2)!(T=3),$E(N)=2,$E(M)=0 S SG="4A"

 E  I T="IS",$E(N)=0,$E(M)=0 S SG=0

 E  I T=1,$E(N)=0,$E(M)=0 S SG=1

 E  I T=2,$E(N)=0,$E(M)=0 S SG=2

 E  I (T=1)!(T=2),$E(N)=1,$E(M)=0 S SG=3

 E  I T=3,($E(N)=0)!($E(N)=1),$E(M)=0 S SG=3

 E  S SG=99

VU56 ;Vulva - 5th and 6th edition

 S TNM=T_N_M 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="1A00" S SG="1A" Q  ;IA   T1a   N0    M0

 .I TNM="1B00" S SG="1B" Q  ;IB   T1b   N0    M0

 .I TNM=200 S SG=2 Q        ;II   T2    N0    M0

 .I TNM=110 S SG=3 Q        ;III  T1    N1    M0

 .I TNM=210 S SG=3 Q        ;     T2    N1    M0

 .I TNM=300 S SG=3 Q        ;     T3    N0    M0

 .I TNM=310 S SG=3 Q        ;     T3    N1    M0

 .I TNM=120 S SG="4A" Q     ;IVA  T1    N2    M0

 .I TNM=220 S SG="4A" Q     ;     T2    N2    M0

 .I TNM=320 S SG="4A" Q     ;     T3    N2    M0

 .I T=4,M=0 S SG="4A" Q     ;     T4    Any N M0

 .I M=1 S SG="4B" Q         ;IVB  Any T Any N M1

VU7 ;Vulva - 7th edition

 S TNM=T_N_M 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="1A00" S SG="1A" Q            ;IA   T1a   N0    M0

 .I TNM="1B00" S SG="1B" Q            ;IB   T1b   N0    M0

 .I TNM=200 S SG=2 Q                  ;II   T2    N0    M0

 .I $E(T,1)=1,N="1A",M=0 S SG="3A" Q  ;IIIA T1    N1a   M0

 .I $E(T,1)=1,N="1B",M=0 S SG="3A" Q  ;     T1    N1b   M0

 .I TNM="21A0" S SG="3A" Q            ;     T2    N1a   M0

 .I TNM="21B0" S SG="3A" Q            ;     T2    N1b   M0

 .I $E(T,1)=1,N="2A",M=0 S SG="3B" Q  ;IIIB T1    N2a   M0

 .I $E(T,1)=1,N="2B",M=0 S SG="3B" Q  ;     T1    N2b   M0

 .I TNM="22A0" S SG="3B" Q            ;     T2    N2a   M0

 .I TNM="22B0" S SG="3B" Q            ;     T2    N2b   M0

 .I $E(T,1)=1,N="2C",M=0 S SG="3C" Q  ;IIIC T1    N2c   M0

 .I TNM="22C0" S SG="3C" Q            ;     T2    N2c   M0

 .I $E(T,1)=1,N=3,M=0 S SG="4A" Q     ;IVA  T1    N3   M0

 .I TNM=230 S SG="4A" Q               ;     T2    N3   M0

 .I T=3,M=0 S SG="4A" Q               ;     T3    Any N M0

 .I M=1 S SG="4B" Q                   ;IVB  Any T Any N M1

VA34 ;Vagina - 3rd and 4th editions

 S SG=99

 I M[1 S SG="4B"

 E  I M[0 D

 .I T[4 S SG="4A"

 .E  I N[2,(T[1)!(T[2)!(T[3) S SG="4A"

 .E  I N[1,(T[1)!(T[2)!(T[3) S SG=3

 .E  I N[0,(T["IS")!(T[1)!(T[2)!(T[3) S SG=+T

VA567 ;Vagina - 5th, 6th and 7th editions

 S TNM=T_N_M 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=2 Q        ;II   T2    N0    M0

 .I TNM=110 S SG=3 Q        ;III  T1    N1    M0

 .I TNM=210 S SG=3 Q        ;     T2    N1    M0

 .I TNM=300 S SG=3 Q        ;     T3    N0    M0

 .I TNM=310 S SG=3 Q        ;     T3    N1    M0

 .I T=4,M=0 S SG="4A" Q     ;IVA  T4    Any N M0

 .I M=1 S SG="4B" Q         ;IVB  Any T Any N M1

CEU34 ;Cervix Uteri - 3rd and 4th editions

 I $E(M)=1 S SG="4B"

 E  I $E(T)=4,$E(M)=0 S SG="4A"

 E  I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0

 E  I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A"

 E  I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B"

 E  I $E(T,1,2)="2A",$E(N)=0,$E(M)=0 S SG="2A"

 E  I $E(T,1,2)="2B",$E(N)=0,$E(M)=0 S SG="2B"

 E  I $E(T,1,2)="3A",$E(N)=0,$E(M)=0 S SG="3A"

 E  I ($E(T)=1)!($E(T)=2)!($E(T,1,2)="3A"),$E(N)=1,$E(M)=0 S SG="3B"

 E  I $E(T,1,2)="3B",$E(M)=0 S SG="3B"

 E  S SG=99

CEU56 ;Cervix Uteri - 5th and 6th editions

 S TNM=T_N_M 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="1A00" S SG="1A" Q    ;IA   T1a   N0    M0

 .I TNM="1A100" S SG="1A1" Q  ;IA1  T1a1  N0    M0

 .I TNM="1A200" S SG="1A2" Q  ;IA2  T1a2  N0    M0

 .I TNM="1B00" S SG="1B" Q    ;IB   T1b   N0    M0

 .I TNM="1B100" S SG="1B1" Q  ;IB1  T1b1  N0    M0

 .I TNM="1B200" S SG="1B2" Q  ;IB2  T1b2  N0    M0

 .I TNM=200 S SG=2 Q          ;II   T2    N0    M0

 .I TNM="2A00" S SG="2A" Q    ;IIA  T2a   N0    M0

 .I TNM="2B00" S SG="2B" Q    ;IIB  T2b   N0    M0

 .I TNM=300 S SG=3 Q          ;III  T3    N0    M0

 .I TNM="3A00" S SG="3A" Q    ;IIIA T3a   N0    M0

 .I TNM=110 S SG="3B" Q       ;IIIB T1    N1    M0

 .I TNM=210 S SG="3B" Q       ;     T2    N1    M0

 .I TNM="3A10" S SG="3B" Q    ;     T3a   N1    M0

 .I T="3B",M=0 S SG="3B" Q    ;     T3b   Any N M0

 .I T=4,M=0 S SG="4A" Q       ;IVA  T4    Any N M0

 .I M=1 S SG="4B" Q           ;IVB  Any T Any N M1

CEU7 ;Cervix Uteri - 7th editions

 S TNM=T_N_M 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="1A00" S SG="1A" Q         ;IA   T1a   N0    M0

 .I TNM="1A100" S SG="1A1" Q       ;IA1  T1a1  N0    M0

 .I TNM="1A200" S SG="1A2" Q       ;IA2  T1a2  N0    M0

 .I TNM="1B00" S SG="1B" Q         ;IB   T1b   N0    M0

 .I TNM="1B100" S SG="1B1" Q       ;IB1  T1b1  N0    M0

 .I TNM="1B200" S SG="1B2" Q       ;IB2  T1b2  N0    M0

 .I TNM=200 S SG=2 Q               ;II   T2    N0    M0

 .I TNM="2A00" S SG="2A" Q         ;IIA  T2a   N0    M0

 .I TNM="2A100" S SG="2A1" Q       ;IIA1 T2a1  N0    M0

 .I TNM="2A200" S SG="2A2" Q       ;IIA2 T2a1  N0    M0

 .I TNM="2B00" S SG="2B" Q         ;IIB  T2b   N0    M0

 .I TNM=300 S SG=3 Q               ;III  T3    N0    M0

 .I TNM="3A00" S SG="3A" Q         ;IIIA T3a   N0    M0

 .I T="3B",M=0 S SG="3B" Q         ;IIIB T1    Any T M0

 .I $E(T,1)<4,N=1,M=0 S SG="3B" Q  ;     T1-3  N1    M0

 .I T=4,M=0 S SG="4A" Q            ;IVA  T4    Any N M0

 .I M=1 S SG="4B" Q                ;IVB  Any T Any N M1

COU3 ;Corpus Uteri - 3rd edition

 I $E(M)=1 S SG="4B"

 E  I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0

 E  I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A"

 E  I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B"

 E  I $E(T)=2,$E(N)=0,$E(M)=0 S SG=2

 E  I $E(T)=1,$E(N)=1,$E(M)=0 S SG=3

 E  I $E(T)=2,$E(N)=1,$E(M)=0 S SG=3

 E  I $E(T)=3,$E(M)=0 S SG=3

 E  I $E(T)=4,$E(M)=0 S SG="4A"

 E  S SG=99

COU45 ;Corpus Uteri - 4th and 5th editions

 I $E(M)=1 S SG="4B"

 E  I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0

 E  I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A"

 E  I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B"

 E  I $E(T,1,2)="1C",$E(N)=0,$E(M)=0 S SG="1C"

 E  I $E(T,1,2)="2A",$E(N)=0,$E(M)=0 S SG="2A"

 E  I $E(T,1,2)="2B",$E(N)=0,$E(M)=0 S SG="2B"

 E  I $E(T,1,2)="3A",$E(N)=0,$E(M)=0 S SG="3A"

 E  I $E(T,1,2)="3B",$E(N)=0,$E(M)=0 S SG="3B"

 E  I $E(T)=1,$E(N)=1,$E(M)=0 S SG="3C"

 E  I $E(T)=2,$E(N)=1,$E(M)=0 S SG="3C"

 E  I $E(T)=3,$E(N)=1,$E(M)=0 S SG="3C"

 E  I $E(T)=4,$E(M)=0 S SG="4A"

 E  S SG=99

COU6 ;Corpus Uteri - 6th edition

 S TNM=T_N_M 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="1A00" S SG="1A" Q    ;IA   T1a   N0    M0

 .I TNM="1B00" S SG="1B" Q    ;IB   T1b   N0    M0

 .I TNM="1C00" S SG="1C" Q    ;IC   T1c   N0    M0

 .I TNM=200 S SG=2 Q          ;II   T2    N0    M0

 .I TNM="2A00" S SG="2A" Q    ;IIA  T2a   N0    M0

 .I TNM="2B00" S SG="2B" Q    ;IIB  T2b   N0    M0

 .I TNM=300 S SG=3 Q          ;III  T3    N0    M0

 .I TNM="3A00" S SG="3A" Q    ;IIIA T3a   N0    M0

 .I TNM="3B00" S SG="3B" Q    ;IIIB T3b   N0    M0

 .I TNM=110 S SG="3C" Q       ;IIIC T1    N1    M0

 .I TNM=210 S SG="3C" Q       ;     T2    N1    M0

 .I TNM=310 S SG="3C" Q       ;     T3    N1    M0

 .I T=4,M=0 S SG="4A" Q       ;IVA  T4    Any N M0

 .I M=1 S SG="4B" Q           ;IVB  Any T Any N M1

COU7 ;Corpus Uteri - 7th edition

 N HT14

 S HT14=$E(HT,1,4)

 I (HT14>7999)&(HT14<8791) G COU7C

 I (HT14>8979)&(HT14<8982) G COU7C

 I (HT14>9699)&(HT14<9702) G COU7C

 I (HT14>8889)&(HT14<8899) G COU7S

 I (HT14>8929)&(HT14<8932) G COU7S

 I HT14=8933 G COU7S

COU7C ;Corpus Uteri Carcinoma - 7th edition

 S TNM=T_N_M 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="1A00" S SG="1A" Q    ;IA    T1a   N0    M0

 .I TNM="1B00" S SG="1B" Q    ;IB    T1b   N0    M0

 .I TNM="1C00" S SG="1C" Q    ;IC    T1c   N0    M0

 .I TNM=200 S SG=2 Q          ;II    T2    N0    M0

 .I TNM="2A00" S SG="2A" Q    ;IIA   T2a   N0    M0

 .I TNM="2B00" S SG="2B" Q    ;IIB   T2b   N0    M0

 .I TNM=300 S SG=3 Q          ;III   T3    N0    M0

 .I TNM="3A00" S SG="3A" Q    ;IIIA  T3a   N0    M0

 .I TNM="3B00" S SG="3B" Q    ;IIIB  T3b   N0    M0

 .I TNM=110 S SG="3C1" Q      ;IIIC1 T1    N1    M0

 .I TNM="1A10" S SG="3C1" Q   ;      T1a   N1    M0

 .I TNM="1B10" S SG="3C1" Q   ;      T1B   N1    M0

 .I TNM=210 S SG="3C1" Q      ;      T2    N1    M0

 .I TNM=310 S SG="3C1" Q      ;      T3    N1    M0

 .I TNM="3A10" S SG="3C1" Q   ;      T3a   N1    M0

 .I TNM="3B10" S SG="3C1" Q   ;      T3b   N1    M0

 .I TNM=120 S SG="3C2" Q      ;IIIC2 T1    N2    M0

 .I TNM="1A20" S SG="3C2" Q   ;      T1a   N2    M0

 .I TNM="1B20" S SG="3C2" Q   ;      T1b   N2    M0

 .I TNM=220 S SG="3C2" Q      ;      T2    N2    M0

 .I TNM=320 S SG="3C2" Q      ;      T3    N2    M0

 .I TNM="3A20" S SG="3C2" Q   ;      T3a   N2    M0

 .I TNM="3B20" S SG="3C2" Q   ;      T3b   N2    M0

 .I T=4,M=0 S SG="4A" Q       ;IVA   T4    Any N M0

 .I M=1 S SG="4B" Q           ;IVB   Any T Any N M1

COU7S ;Corpus Uteri Sarcoma - 7th edition

 S TNM=T_N_M D  K TNM Q

 .I TNM=100 S SG=1 Q            ;I    T1    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="1C00" S SG="1C" Q      ;IC   T1c   N0    M0

 .I $E(T,1)=2,N=0,M=0 S SG=2 Q  ;II   T2    N0    M0

 .I TNM="3A00" S SG="3A" Q      ;IIIA T3a   N0    M0

 .I TNM="3B00" S SG="3B" Q      ;IIIB T3b   N0    M0

 .I TNM=110 S SG="3C" Q         ;IIIC T1    N1    M0

 .I TNM="1A10" S SG="3C" Q      ;     T1a   N1    M0

 .I TNM="1B10" S SG="3C" Q      ;     T1b   N1    M0

 .I TNM="1C10" S SG="3C" Q      ;     T1c   N1    M0

 .I TNM=210 S SG="3C" Q         ;     T2    N1    M0

 .I TNM=310 S SG="3C" Q         ;     T3    N1    M0

 .I TNM="3A10" S SG="3C" Q      ;     T3a   N1    M0

 .I TNM="3B10" S SG="3C" Q      ;     T3b   N1    M0

 .I T=4,M=0 S SG="4A" Q         ;IVA  T4    Any N M0

 .I M=1 S SG="4B" Q             ;IVB  Any T Any N M1

CLEANUP ;Cleanup

 K HT,M,N,SG,T

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSG4   10902     printed  Apr 09, 2024@21:26:32                                                                                                                                                                                                     Page 2

ONCSG4    ;Hines OIFO/GWB - Automatic Staging Tables ;02/28/11

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

 +3       ;GYNECOLOGICAL SITES

 +4       ;

VU3       ;Vulva - 3rd edition

 +1        IF M!($EXTRACT(N)=3)!(T=4)

               SET SG=4

 +2       IF '$TEST

               IF T="IS"

                   SET SG=0

 +3       IF '$TEST

               IF T=1

                   IF ($EXTRACT(N)=0)!($EXTRACT(N)=1)

                       IF $EXTRACT(M)=0

                           SET SG=1

 +4       IF '$TEST

               IF T=2

                   IF ($EXTRACT(N)=0)!($EXTRACT(N)=1)

                       IF $EXTRACT(M)=0

                           SET SG=2

 +5       IF '$TEST

               IF T=3

                   IF ($EXTRACT(N)=0)!($EXTRACT(N)=1)!($EXTRACT(N)=2)

                       IF $EXTRACT(M)=0

                           SET SG=3

 +6       IF '$TEST

               IF (T=1)!(T=2)

                   IF $EXTRACT(N)=2

                       IF $EXTRACT(M)=0

                           SET SG=3

 +7       IF '$TEST

               SET SG=99

 +8        QUIT

 +9       ;

VU4       ;Vulva - 4th edition

 +1        IF M

               SET SG="4B"

 +2       IF '$TEST

               IF T=4

                   IF $EXTRACT(M)=0

                       SET SG="4A"

 +3       IF '$TEST

               IF (T=1)!(T=2)!(T=3)

                   IF $EXTRACT(N)=2

                       IF $EXTRACT(M)=0

                           SET SG="4A"

 +4       IF '$TEST

               IF T="IS"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=0

 +5       IF '$TEST

               IF T=1

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=1

 +6       IF '$TEST

               IF T=2

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=2

 +7       IF '$TEST

               IF (T=1)!(T=2)

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG=3

 +8       IF '$TEST

               IF T=3

                   IF ($EXTRACT(N)=0)!($EXTRACT(N)=1)

                       IF $EXTRACT(M)=0

                           SET SG=3

 +9       IF '$TEST

               SET SG=99

 +10       QUIT

 +11      ;

VU56      ;Vulva - 5th and 6th edition

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0    Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;IA   T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +5       ;IB   T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +6       ;II   T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +7       ;III  T1    N1    M0

               IF TNM=110

                   SET SG=3

                   QUIT

 +8       ;     T2    N1    M0

               IF TNM=210

                   SET SG=3

                   QUIT

 +9       ;     T3    N0    M0

               IF TNM=300

                   SET SG=3

                   QUIT

 +10      ;     T3    N1    M0

               IF TNM=310

                   SET SG=3

                   QUIT

 +11      ;IVA  T1    N2    M0

               IF TNM=120

                   SET SG="4A"

                   QUIT

 +12      ;     T2    N2    M0

               IF TNM=220

                   SET SG="4A"

                   QUIT

 +13      ;     T3    N2    M0

               IF TNM=320

                   SET SG="4A"

                   QUIT

 +14      ;     T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +15      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +16      ;

VU7       ;Vulva - 7th edition

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0    Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;IA   T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +5       ;IB   T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +6       ;II   T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +7       ;IIIA T1    N1a   M0

               IF $EXTRACT(T,1)=1

                   IF N="1A"

                       IF M=0

                           SET SG="3A"

                           QUIT

 +8       ;     T1    N1b   M0

               IF $EXTRACT(T,1)=1

                   IF N="1B"

                       IF M=0

                           SET SG="3A"

                           QUIT

 +9       ;     T2    N1a   M0

               IF TNM="21A0"

                   SET SG="3A"

                   QUIT

 +10      ;     T2    N1b   M0

               IF TNM="21B0"

                   SET SG="3A"

                   QUIT

 +11      ;IIIB T1    N2a   M0

               IF $EXTRACT(T,1)=1

                   IF N="2A"

                       IF M=0

                           SET SG="3B"

                           QUIT

 +12      ;     T1    N2b   M0

               IF $EXTRACT(T,1)=1

                   IF N="2B"

                       IF M=0

                           SET SG="3B"

                           QUIT

 +13      ;     T2    N2a   M0

               IF TNM="22A0"

                   SET SG="3B"

                   QUIT

 +14      ;     T2    N2b   M0

               IF TNM="22B0"

                   SET SG="3B"

                   QUIT

 +15      ;IIIC T1    N2c   M0

               IF $EXTRACT(T,1)=1

                   IF N="2C"

                       IF M=0

                           SET SG="3C"

                           QUIT

 +16      ;     T2    N2c   M0

               IF TNM="22C0"

                   SET SG="3C"

                   QUIT

 +17      ;IVA  T1    N3   M0

               IF $EXTRACT(T,1)=1

                   IF N=3

                       IF M=0

                           SET SG="4A"

                           QUIT

 +18      ;     T2    N3   M0

               IF TNM=230

                   SET SG="4A"

                   QUIT

 +19      ;     T3    Any N M0

               IF T=3

                   IF M=0

                       SET SG="4A"

                       QUIT

 +20      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +21      ;

VA34      ;Vagina - 3rd and 4th editions

 +1        SET SG=99

 +2        IF M[1

               SET SG="4B"

 +3       IF '$TEST

               IF M[0

                   Begin DoDot:1

 +4                    IF T[4

                           SET SG="4A"

 +5                   IF '$TEST

                           IF N[2

                               IF (T[1)!(T[2)!(T[3)

                                   SET SG="4A"

 +6                   IF '$TEST

                           IF N[1

                               IF (T[1)!(T[2)!(T[3)

                                   SET SG=3

 +7                   IF '$TEST

                           IF N[0

                               IF (T["IS")!(T[1)!(T[2)!(T[3)

                                   SET SG=+T

                   End DoDot:1

 +8        QUIT

 +9       ;

VA567     ;Vagina - 5th, 6th and 7th editions

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0    Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;II   T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +5       ;III  T1    N1    M0

               IF TNM=110

                   SET SG=3

                   QUIT

 +6       ;     T2    N1    M0

               IF TNM=210

                   SET SG=3

                   QUIT

 +7       ;     T3    N0    M0

               IF TNM=300

                   SET SG=3

                   QUIT

 +8       ;     T3    N1    M0

               IF TNM=310

                   SET SG=3

                   QUIT

 +9       ;IVA  T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +10      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +11      ;

CEU34     ;Cervix Uteri - 3rd and 4th editions

 +1        IF $EXTRACT(M)=1

               SET SG="4B"

 +2       IF '$TEST

               IF $EXTRACT(T)=4

                   IF $EXTRACT(M)=0

                       SET SG="4A"

 +3       IF '$TEST

               IF $EXTRACT(T,1,2)="IS"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=0

 +4       IF '$TEST

               IF $EXTRACT(T,1,2)="1A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1A"

 +5       IF '$TEST

               IF $EXTRACT(T,1,2)="1B"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1B"

 +6       IF '$TEST

               IF $EXTRACT(T,1,2)="2A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="2A"

 +7       IF '$TEST

               IF $EXTRACT(T,1,2)="2B"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="2B"

 +8       IF '$TEST

               IF $EXTRACT(T,1,2)="3A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="3A"

 +9       IF '$TEST

               IF ($EXTRACT(T)=1)!($EXTRACT(T)=2)!($EXTRACT(T,1,2)="3A")

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG="3B"

 +10      IF '$TEST

               IF $EXTRACT(T,1,2)="3B"

                   IF $EXTRACT(M)=0

                       SET SG="3B"

 +11      IF '$TEST

               SET SG=99

 +12       QUIT

 +13      ;

CEU56     ;Cervix Uteri - 5th and 6th editions

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0    Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;IA   T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +5       ;IA1  T1a1  N0    M0

               IF TNM="1A100"

                   SET SG="1A1"

                   QUIT

 +6       ;IA2  T1a2  N0    M0

               IF TNM="1A200"

                   SET SG="1A2"

                   QUIT

 +7       ;IB   T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +8       ;IB1  T1b1  N0    M0

               IF TNM="1B100"

                   SET SG="1B1"

                   QUIT

 +9       ;IB2  T1b2  N0    M0

               IF TNM="1B200"

                   SET SG="1B2"

                   QUIT

 +10      ;II   T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +11      ;IIA  T2a   N0    M0

               IF TNM="2A00"

                   SET SG="2A"

                   QUIT

 +12      ;IIB  T2b   N0    M0

               IF TNM="2B00"

                   SET SG="2B"

                   QUIT

 +13      ;III  T3    N0    M0

               IF TNM=300

                   SET SG=3

                   QUIT

 +14      ;IIIA T3a   N0    M0

               IF TNM="3A00"

                   SET SG="3A"

                   QUIT

 +15      ;IIIB T1    N1    M0

               IF TNM=110

                   SET SG="3B"

                   QUIT

 +16      ;     T2    N1    M0

               IF TNM=210

                   SET SG="3B"

                   QUIT

 +17      ;     T3a   N1    M0

               IF TNM="3A10"

                   SET SG="3B"

                   QUIT

 +18      ;     T3b   Any N M0

               IF T="3B"

                   IF M=0

                       SET SG="3B"

                       QUIT

 +19      ;IVA  T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +20      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +21      ;

CEU7      ;Cervix Uteri - 7th editions

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0    Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;IA   T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +5       ;IA1  T1a1  N0    M0

               IF TNM="1A100"

                   SET SG="1A1"

                   QUIT

 +6       ;IA2  T1a2  N0    M0

               IF TNM="1A200"

                   SET SG="1A2"

                   QUIT

 +7       ;IB   T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +8       ;IB1  T1b1  N0    M0

               IF TNM="1B100"

                   SET SG="1B1"

                   QUIT

 +9       ;IB2  T1b2  N0    M0

               IF TNM="1B200"

                   SET SG="1B2"

                   QUIT

 +10      ;II   T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +11      ;IIA  T2a   N0    M0

               IF TNM="2A00"

                   SET SG="2A"

                   QUIT

 +12      ;IIA1 T2a1  N0    M0

               IF TNM="2A100"

                   SET SG="2A1"

                   QUIT

 +13      ;IIA2 T2a1  N0    M0

               IF TNM="2A200"

                   SET SG="2A2"

                   QUIT

 +14      ;IIB  T2b   N0    M0

               IF TNM="2B00"

                   SET SG="2B"

                   QUIT

 +15      ;III  T3    N0    M0

               IF TNM=300

                   SET SG=3

                   QUIT

 +16      ;IIIA T3a   N0    M0

               IF TNM="3A00"

                   SET SG="3A"

                   QUIT

 +17      ;IIIB T1    Any T M0

               IF T="3B"

                   IF M=0

                       SET SG="3B"

                       QUIT

 +18      ;     T1-3  N1    M0

               IF $EXTRACT(T,1)<4

                   IF N=1

                       IF M=0

                           SET SG="3B"

                           QUIT

 +19      ;IVA  T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +20      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +21      ;

COU3      ;Corpus Uteri - 3rd edition

 +1        IF $EXTRACT(M)=1

               SET SG="4B"

 +2       IF '$TEST

               IF $EXTRACT(T,1,2)="IS"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=0

 +3       IF '$TEST

               IF $EXTRACT(T,1,2)="1A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1A"

 +4       IF '$TEST

               IF $EXTRACT(T,1,2)="1B"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1B"

 +5       IF '$TEST

               IF $EXTRACT(T)=2

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=2

 +6       IF '$TEST

               IF $EXTRACT(T)=1

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG=3

 +7       IF '$TEST

               IF $EXTRACT(T)=2

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG=3

 +8       IF '$TEST

               IF $EXTRACT(T)=3

                   IF $EXTRACT(M)=0

                       SET SG=3

 +9       IF '$TEST

               IF $EXTRACT(T)=4

                   IF $EXTRACT(M)=0

                       SET SG="4A"

 +10      IF '$TEST

               SET SG=99

 +11       QUIT

 +12      ;

COU45     ;Corpus Uteri - 4th and 5th editions

 +1        IF $EXTRACT(M)=1

               SET SG="4B"

 +2       IF '$TEST

               IF $EXTRACT(T,1,2)="IS"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG=0

 +3       IF '$TEST

               IF $EXTRACT(T,1,2)="1A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1A"

 +4       IF '$TEST

               IF $EXTRACT(T,1,2)="1B"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1B"

 +5       IF '$TEST

               IF $EXTRACT(T,1,2)="1C"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="1C"

 +6       IF '$TEST

               IF $EXTRACT(T,1,2)="2A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="2A"

 +7       IF '$TEST

               IF $EXTRACT(T,1,2)="2B"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="2B"

 +8       IF '$TEST

               IF $EXTRACT(T,1,2)="3A"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="3A"

 +9       IF '$TEST

               IF $EXTRACT(T,1,2)="3B"

                   IF $EXTRACT(N)=0

                       IF $EXTRACT(M)=0

                           SET SG="3B"

 +10      IF '$TEST

               IF $EXTRACT(T)=1

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG="3C"

 +11      IF '$TEST

               IF $EXTRACT(T)=2

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG="3C"

 +12      IF '$TEST

               IF $EXTRACT(T)=3

                   IF $EXTRACT(N)=1

                       IF $EXTRACT(M)=0

                           SET SG="3C"

 +13      IF '$TEST

               IF $EXTRACT(T)=4

                   IF $EXTRACT(M)=0

                       SET SG="4A"

 +14      IF '$TEST

               SET SG=99

 +15       QUIT

 +16      ;

COU6      ;Corpus Uteri - 6th edition

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0    Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;IA   T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +5       ;IB   T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +6       ;IC   T1c   N0    M0

               IF TNM="1C00"

                   SET SG="1C"

                   QUIT

 +7       ;II   T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +8       ;IIA  T2a   N0    M0

               IF TNM="2A00"

                   SET SG="2A"

                   QUIT

 +9       ;IIB  T2b   N0    M0

               IF TNM="2B00"

                   SET SG="2B"

                   QUIT

 +10      ;III  T3    N0    M0

               IF TNM=300

                   SET SG=3

                   QUIT

 +11      ;IIIA T3a   N0    M0

               IF TNM="3A00"

                   SET SG="3A"

                   QUIT

 +12      ;IIIB T3b   N0    M0

               IF TNM="3B00"

                   SET SG="3B"

                   QUIT

 +13      ;IIIC T1    N1    M0

               IF TNM=110

                   SET SG="3C"

                   QUIT

 +14      ;     T2    N1    M0

               IF TNM=210

                   SET SG="3C"

                   QUIT

 +15      ;     T3    N1    M0

               IF TNM=310

                   SET SG="3C"

                   QUIT

 +16      ;IVA  T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +17      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +18      ;

COU7      ;Corpus Uteri - 7th edition

 +1        NEW HT14

 +2        SET HT14=$EXTRACT(HT,1,4)

 +3        IF (HT14>7999)&(HT14<8791)

               GOTO COU7C

 +4        IF (HT14>8979)&(HT14<8982)

               GOTO COU7C

 +5        IF (HT14>9699)&(HT14<9702)

               GOTO COU7C

 +6        IF (HT14>8889)&(HT14<8899)

               GOTO COU7S

 +7        IF (HT14>8929)&(HT14<8932)

               GOTO COU7S

 +8        IF HT14=8933

               GOTO COU7S

 +9       ;

COU7C     ;Corpus Uteri Carcinoma - 7th edition

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;0     Tis   N0    M0

               IF TNM="IS00"

                   SET SG=0

                   QUIT

 +3       ;I     T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +4       ;IA    T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +5       ;IB    T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +6       ;IC    T1c   N0    M0

               IF TNM="1C00"

                   SET SG="1C"

                   QUIT

 +7       ;II    T2    N0    M0

               IF TNM=200

                   SET SG=2

                   QUIT

 +8       ;IIA   T2a   N0    M0

               IF TNM="2A00"

                   SET SG="2A"

                   QUIT

 +9       ;IIB   T2b   N0    M0

               IF TNM="2B00"

                   SET SG="2B"

                   QUIT

 +10      ;III   T3    N0    M0

               IF TNM=300

                   SET SG=3

                   QUIT

 +11      ;IIIA  T3a   N0    M0

               IF TNM="3A00"

                   SET SG="3A"

                   QUIT

 +12      ;IIIB  T3b   N0    M0

               IF TNM="3B00"

                   SET SG="3B"

                   QUIT

 +13      ;IIIC1 T1    N1    M0

               IF TNM=110

                   SET SG="3C1"

                   QUIT

 +14      ;      T1a   N1    M0

               IF TNM="1A10"

                   SET SG="3C1"

                   QUIT

 +15      ;      T1B   N1    M0

               IF TNM="1B10"

                   SET SG="3C1"

                   QUIT

 +16      ;      T2    N1    M0

               IF TNM=210

                   SET SG="3C1"

                   QUIT

 +17      ;      T3    N1    M0

               IF TNM=310

                   SET SG="3C1"

                   QUIT

 +18      ;      T3a   N1    M0

               IF TNM="3A10"

                   SET SG="3C1"

                   QUIT

 +19      ;      T3b   N1    M0

               IF TNM="3B10"

                   SET SG="3C1"

                   QUIT

 +20      ;IIIC2 T1    N2    M0

               IF TNM=120

                   SET SG="3C2"

                   QUIT

 +21      ;      T1a   N2    M0

               IF TNM="1A20"

                   SET SG="3C2"

                   QUIT

 +22      ;      T1b   N2    M0

               IF TNM="1B20"

                   SET SG="3C2"

                   QUIT

 +23      ;      T2    N2    M0

               IF TNM=220

                   SET SG="3C2"

                   QUIT

 +24      ;      T3    N2    M0

               IF TNM=320

                   SET SG="3C2"

                   QUIT

 +25      ;      T3a   N2    M0

               IF TNM="3A20"

                   SET SG="3C2"

                   QUIT

 +26      ;      T3b   N2    M0

               IF TNM="3B20"

                   SET SG="3C2"

                   QUIT

 +27      ;IVA   T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +28      ;IVB   Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +29      ;

COU7S     ;Corpus Uteri Sarcoma - 7th edition

 +1        SET TNM=T_N_M

           Begin DoDot:1

 +2       ;I    T1    N0    M0

               IF TNM=100

                   SET SG=1

                   QUIT

 +3       ;IA   T1a   N0    M0

               IF TNM="1A00"

                   SET SG="1A"

                   QUIT

 +4       ;IB   T1b   N0    M0

               IF TNM="1B00"

                   SET SG="1B"

                   QUIT

 +5       ;IC   T1c   N0    M0

               IF TNM="1C00"

                   SET SG="1C"

                   QUIT

 +6       ;II   T2    N0    M0

               IF $EXTRACT(T,1)=2

                   IF N=0

                       IF M=0

                           SET SG=2

                           QUIT

 +7       ;IIIA T3a   N0    M0

               IF TNM="3A00"

                   SET SG="3A"

                   QUIT

 +8       ;IIIB T3b   N0    M0

               IF TNM="3B00"

                   SET SG="3B"

                   QUIT

 +9       ;IIIC T1    N1    M0

               IF TNM=110

                   SET SG="3C"

                   QUIT

 +10      ;     T1a   N1    M0

               IF TNM="1A10"

                   SET SG="3C"

                   QUIT

 +11      ;     T1b   N1    M0

               IF TNM="1B10"

                   SET SG="3C"

                   QUIT

 +12      ;     T1c   N1    M0

               IF TNM="1C10"

                   SET SG="3C"

                   QUIT

 +13      ;     T2    N1    M0

               IF TNM=210

                   SET SG="3C"

                   QUIT

 +14      ;     T3    N1    M0

               IF TNM=310

                   SET SG="3C"

                   QUIT

 +15      ;     T3a   N1    M0

               IF TNM="3A10"

                   SET SG="3C"

                   QUIT

 +16      ;     T3b   N1    M0

               IF TNM="3B10"

                   SET SG="3C"

                   QUIT

 +17      ;IVA  T4    Any N M0

               IF T=4

                   IF M=0

                       SET SG="4A"

                       QUIT

 +18      ;IVB  Any T Any N M1

               IF M=1

                   SET SG="4B"

                   QUIT

           End DoDot:1

           KILL TNM

           QUIT

 +19      ;

CLEANUP   ;Cleanup

 +1        KILL HT,M,N,SG,T

ONCSG4.m