source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSG5A.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 5.9 KB
Line 
1ONCSG5A ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;07/15/02
2 ;;2.11;ONCOLOGY;**35,37**;Mar 07, 1995
3 ;
4RPU3 ;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 ;
17RPU456 ;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 ;
30UB3 ;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 ;
35UB4 ;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 ;
45UB56 ;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 ;
63U3 ;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 ;
72U4 ;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
78UR4NM 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 ;
85U56 ;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 ;
104MME34 ;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
115CHO345 ;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 ;
122CBI345 ;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 ;
129MMU6 ;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 ;
145RET345 ;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 ;
155BSC34 ;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
160BNNM 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 ;
169MF6 ;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
Note: See TracBrowser for help on using the repository browser.