| [613] | 1 | ONCSG5A ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;07/15/02
|
|---|
| 2 | ;;2.11;ONCOLOGY;**35,37**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | RPU3 ;Renal Pelvis and Ureter - 3rd edition
|
|---|
| 5 | S TNM=T_N_M D K TNM Q
|
|---|
| 6 | .I TNM="IS00" S SG=0 Q
|
|---|
| 7 | .I TNM="A00" S SG=0 Q
|
|---|
| 8 | .I TNM=100 S SG=1 Q
|
|---|
| 9 | .I TNM=200 S SG=2 Q
|
|---|
| 10 | .I TNM=300 S SG=3 Q
|
|---|
| 11 | .I TNM=400 S SG=4 Q
|
|---|
| 12 | .I N=1,M=0 S SG=4 Q
|
|---|
| 13 | .I N=2,M=0 S SG=4 Q
|
|---|
| 14 | .I N=3,M=0 S SG=4 Q
|
|---|
| 15 | .I M=1 S SG=4 Q
|
|---|
| 16 | ;
|
|---|
| 17 | RPU456 ;Renal Pelvis and Ureter - 4th, 5th and 6th editions
|
|---|
| 18 | S TNM=T_N_M D K TNM Q
|
|---|
| 19 | .I TNM="A00" S SG="0A" Q ;0a Ta N0 M0
|
|---|
| 20 | .I TNM="IS00" S SG="0IS" Q ;0is Tis N0 M0
|
|---|
| 21 | .I TNM=100 S SG=1 Q ;I T1 N0 M0
|
|---|
| 22 | .I TNM=200 S SG=2 Q ;II T2 N0 M0
|
|---|
| 23 | .I TNM=300 S SG=3 Q ;III T3 N0 M0
|
|---|
| 24 | .I TNM=400 S SG=4 Q ;IV T4 N0 M0
|
|---|
| 25 | .I N=1,M=0 S SG=4 Q ; Any T N1 M0
|
|---|
| 26 | .I N=2,M=0 S SG=4 Q ; Any T N2 M0
|
|---|
| 27 | .I N=3,M=0 S SG=4 Q ; Any T N3 M0
|
|---|
| 28 | .I M=1 S SG=4 Q ; Any T Any N M1
|
|---|
| 29 | ;
|
|---|
| 30 | UB3 ;Urinary bladder - 3rd edition
|
|---|
| 31 | I (M=1)!(N=1)!(N=2)!(N=3) S SG=4
|
|---|
| 32 | E I N=0,M=0 S SG=$S(T="IS":0,T="A":0,T=1:1,T=2:2,T[3:3,T=4:4,1:99)
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | UB4 ;Urinary bladder - 4th edition
|
|---|
| 36 | I M!(N=1)!(N=2)!(N=3)!(T="4B") S SG=4
|
|---|
| 37 | E I T="A",N=0,M=0 S SG="0a"
|
|---|
| 38 | E I T="IS",N=0,M=0 S SG="0is"
|
|---|
| 39 | E I T[1,N=0,M=0 S SG=1
|
|---|
| 40 | E I (T[2)!(T["3A"),N=0,M=0 S SG=2
|
|---|
| 41 | E I (T["3B")!(T["4A"),N=0,M=0 S SG=3
|
|---|
| 42 | E S SG=99
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | UB56 ;Urinary bladder - 5th and 6th editions
|
|---|
| 46 | S TNM=T_N_M D K TNM Q
|
|---|
| 47 | .I TNM="A00" S SG="0A" Q ;0a Ta N0 M0
|
|---|
| 48 | .I TNM="IS00" S SG="0IS" Q ;0is Tis N0 M0
|
|---|
| 49 | .I TNM=100 S SG=1 Q ;I T1 N0 M0
|
|---|
| 50 | .I TNM=200 S SG=2 Q ;II T2 N0 M0
|
|---|
| 51 | .I TNM="2A00" S SG=2 Q ; T2a N0 M0
|
|---|
| 52 | .I TNM="2B00" S SG=2 Q ; T2b N0 M0
|
|---|
| 53 | .I TNM=300 S SG=3 Q ;III T3 N0 M0
|
|---|
| 54 | .I TNM="3A00" S SG=3 Q ; T3a N0 M0
|
|---|
| 55 | .I TNM="3B00" S SG=3 Q ; T3b N0 M0
|
|---|
| 56 | .I TNM="4A00" S SG=3 Q ; T4a N0 M0
|
|---|
| 57 | .I TNM="4B00" S SG=4 Q ;IV T4b N0 M0
|
|---|
| 58 | .I N=1,M=0 S SG=4 Q ; Any T N1 M0
|
|---|
| 59 | .I N=2,M=0 S SG=4 Q ; Any T N2 M0
|
|---|
| 60 | .I N=3,M=0 S SG=4 Q ; Any T N3 M0
|
|---|
| 61 | .I M=1 S SG=4 Q ; Any T Any N M1
|
|---|
| 62 | ;
|
|---|
| 63 | U3 ;Urethra - 3rd edition
|
|---|
| 64 | S SG=99
|
|---|
| 65 | I M=1 S SG=4
|
|---|
| 66 | E I M=0 D
|
|---|
| 67 | .I (N=2)!(N=3) S SG=4
|
|---|
| 68 | .E I N=1 S SG=$S(T=4:4,(T=1)!(T=2)!(T=3):3,1:9)
|
|---|
| 69 | .E I N=0 S SG=+T
|
|---|
| 70 | Q
|
|---|
| 71 | ;
|
|---|
| 72 | U4 ;Urethra - 4th edition
|
|---|
| 73 | K SG
|
|---|
| 74 | I M=1 S SG=4
|
|---|
| 75 | E I M=0 D UR4NM
|
|---|
| 76 | I '$D(SG) S SG=99
|
|---|
| 77 | Q
|
|---|
| 78 | UR4NM I N=0 S SG=T
|
|---|
| 79 | E I N=1 D
|
|---|
| 80 | .I (T=1)!(T=2)!(T=3) S SG=3
|
|---|
| 81 | .E I T=4 S SG=4
|
|---|
| 82 | E I (N=2)!(N=3) S SG=4
|
|---|
| 83 | Q
|
|---|
| 84 | ;
|
|---|
| 85 | U56 ;Urethra - 5th and 6th editions
|
|---|
| 86 | S TNM=T_N_M D K TNM Q
|
|---|
| 87 | .I TNM="A00" S SG="0A" Q ;0a Ta N0 M0
|
|---|
| 88 | .I TNM="IS00" S SG="0IS" Q ;0is Tis N0 M0
|
|---|
| 89 | .I TNM="IS PU00" S SG="0IS" Q ; Tis pu N0 M0
|
|---|
| 90 | .I TNM="IS PD00" S SG="0IS" Q ; Tis pd N0 M0
|
|---|
| 91 | .I TNM=100 S SG=1 Q ;I T1 N0 M0
|
|---|
| 92 | .I TNM=200 S SG=2 Q ;II T2 N0 M0
|
|---|
| 93 | .I TNM=110 S SG=3 Q ;III T1 N1 M0
|
|---|
| 94 | .I TNM=210 S SG=3 Q ; T2 N1 M0
|
|---|
| 95 | .I TNM=300 S SG=3 Q ; T3 N0 M0
|
|---|
| 96 | .I TNM=310 S SG=3 Q ; T3 N1 M0
|
|---|
| 97 | .I TNM=400 S SG=4 Q ;IV T4 N0 M0
|
|---|
| 98 | .I TNM=410 S SG=4 Q ; T4 N1 M0
|
|---|
| 99 | .I N=2,M=0 S SG=4 Q ; Any T N2 M0
|
|---|
| 100 | .I M=1 S SG=4 Q ; Any T Any N M1
|
|---|
| 101 | ;
|
|---|
| 102 | ;OPHTHALMIC SITES
|
|---|
| 103 | ;
|
|---|
| 104 | MME34 ;Malignant Melanoma of the Eyelid - 3rd and 4th editions
|
|---|
| 105 | S TNM=$E(T,1)_$E(N,1)_$E(M,1) D K TNM Q
|
|---|
| 106 | .I TNM=100 S SG=1 Q ;I T1 N0 M0
|
|---|
| 107 | .I TNM=200 S SG=1 Q ; T2 N0 M0
|
|---|
| 108 | .I TNM=300 S SG=2 Q ;II T3 N0 M0
|
|---|
| 109 | .I TNM=400 S SG=3 Q ;III T4 N0 M0
|
|---|
| 110 | .I N=1,M=0 S SG=3 Q ; Any T N1 M0
|
|---|
| 111 | .I N=2,M=0 S SG=3 Q ; Any T N2 M0
|
|---|
| 112 | .I M=1 S SG=4 Q ; Any T Any N M1
|
|---|
| 113 | ;
|
|---|
| 114 | ;Malignant Melanoma of the Uvea - 3rd, 4th and 5th edtions
|
|---|
| 115 | CHO345 ;Choroid
|
|---|
| 116 | I M=1 S SG="4B"
|
|---|
| 117 | E I M=0 D
|
|---|
| 118 | .I N=1 S SG="4B"
|
|---|
| 119 | .E I N=0 S SG=$S(T=4:"4A",T=3:3,T=2:2,T="1B":"1B",T="1A":"1A",1:99)
|
|---|
| 120 | Q
|
|---|
| 121 | ;
|
|---|
| 122 | CBI345 ;Ciliary Body and iris
|
|---|
| 123 | I M=1 S SG="4B"
|
|---|
| 124 | E I M=0 D
|
|---|
| 125 | .I N=1 S SG="4B"
|
|---|
| 126 | .E I N=0 S SG=$S(T=4:"4A",T=3:3,T=2:2,T=1:1,1:99)
|
|---|
| 127 | Q
|
|---|
| 128 | ;
|
|---|
| 129 | MMU6 ;Malignant Melanoma of the Uvea - 6th edtion
|
|---|
| 130 | S TNM=T_N_M D K TNM Q
|
|---|
| 131 | .I TNM=100 S SG=1 Q ;I T1 N0 M0
|
|---|
| 132 | .I TNM="1A00" S SG=1 Q ; T1a N0 M0
|
|---|
| 133 | .I TNM="1B00" S SG=1 Q ; T1b N0 M0
|
|---|
| 134 | .I TNM="1C00" S SG=1 Q ; T1c N0 M0
|
|---|
| 135 | .I TNM=200 S SG=2 Q ;II T2 N0 M0
|
|---|
| 136 | .I TNM="2A00" S SG=2 Q ; T2a N0 M0
|
|---|
| 137 | .I TNM="2B00" S SG=2 Q ; T2b N0 M0
|
|---|
| 138 | .I TNM="2C00" S SG=2 Q ; T2c N0 M0
|
|---|
| 139 | .I TNM=300 S SG=3 Q ;III T3 N0 M0
|
|---|
| 140 | .I TNM="3A00" S SG=3 Q ; T3a N0 M0
|
|---|
| 141 | .I TNM=400 S SG=3 Q ; T4 N0 M0
|
|---|
| 142 | .I N=1,M=0 S SG=4 Q ;IV Any T N1 M0
|
|---|
| 143 | .I M=1 S SG=4 Q ; Any T Any N M1
|
|---|
| 144 | ;
|
|---|
| 145 | RET345 ;Retinoblastoma - 3rd, 4th and 5th editions
|
|---|
| 146 | S SG=99
|
|---|
| 147 | I M=1 S SG=4
|
|---|
| 148 | E I M=0 D
|
|---|
| 149 | .I N=1 S SG=4
|
|---|
| 150 | .E I N=0 S SG=$S(T=1:"1A",T=2:"1B",T="3A":"2A",T="3B":"2B",T="3C":"2C",T="4A":"3A",T="4B":"3B",1:99)
|
|---|
| 151 | Q
|
|---|
| 152 | ;
|
|---|
| 153 | ;CENTRAL NERVOUS SYSTEM
|
|---|
| 154 | ;
|
|---|
| 155 | BSC34 ;Brain and Spincal Cord - 3rd and 4th editions
|
|---|
| 156 | S SG=99
|
|---|
| 157 | I M=1 S SG=4
|
|---|
| 158 | E I M=0 D BNNM
|
|---|
| 159 | Q
|
|---|
| 160 | BNNM I G=4 S SG=4
|
|---|
| 161 | E I (G=1)!(G=2)!(G=3) D
|
|---|
| 162 | .I T=4 S SG=4
|
|---|
| 163 | .E I (T=2)!(T=3) S SG=G_"B"
|
|---|
| 164 | .E I T=1 S SG=G_"A"
|
|---|
| 165 | Q
|
|---|
| 166 | ;
|
|---|
| 167 | ;LYMPHOID NEOPLASMS
|
|---|
| 168 | ;
|
|---|
| 169 | MF6 ;Mycosis fungoides - 6th edition
|
|---|
| 170 | S TNM=T_N_M D K TNM Q
|
|---|
| 171 | .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
|
|---|
| 172 | .I TNM=200 S SG="1B" Q ;IB T2 N0 M0
|
|---|
| 173 | .I TNM=110 S SG="2A" Q ;IIA T1 N1 M0
|
|---|
| 174 | .I TNM=210 S SG="2A" Q ; T2 N1 M0
|
|---|
| 175 | .I TNM=300 S SG="2B" Q ;IIB T3 N0 M0
|
|---|
| 176 | .I TNM=310 S SG="2B" Q ; T3 N1 M0
|
|---|
| 177 | .I TNM=400 S SG="3A" Q ;IIIA T4 N0 M0
|
|---|
| 178 | .I TNM=410 S SG="3B" Q ;IIIB T4 N1 M0
|
|---|
| 179 | .I N=2,M=0 S SG="4A" Q ;IVA Any T N2 M0
|
|---|
| 180 | .I N=3,M=0 S SG="4A" Q ; Any T N3 M0
|
|---|
| 181 | .I M=1 S SG="4B" Q ;IVB Any T Any N M1
|
|---|
