source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCSG0.m@ 674

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

initial load of FOIAVistA 6/30/08 version
File size: 7.2 KB
Line 
1ONCSG0 ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;6/20/02
2 ;;2.11;ONCOLOGY;**35,36**;Mar 07, 1995
3 ;
4 ;HEAD AND NECK SITES
5 ;
6LIP12 ;Lip and Oral Cavity - 1st and 2nd editions
7 I M[1 S SG=4
8 E I M[0 D
9 .I (N[2)!(N[3) S SG=4
10 .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3)
11 .E I N[0,(T[1)!(T[2)!(T[3)!(T[4) S SG=+T
12 Q
13 ;
14LIP34 ;Lip and Oral Cavity - 3rd and 4th editions
15 I M[1 S SG=4
16 E I M[0 D
17 .I (N[2)!(N[3) S SG=4
18 .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3)
19 .E I N[0,(T["IS")!(T[1)!(T[2)!(T[3)!(T[4) S SG=+T
20 Q
21 ;
22LIP5 ;Lip and Oral Cavity - 5th edition
23 S TNM=T_$E(N,1)_M D K TNM Q
24 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
25 .I TNM=100 S SG=1 Q ;I T1 N0 M0
26 .I TNM=200 S SG=2 Q ;II T2 N0 M0
27 .I TNM=300 S SG=3 Q ;III T3 N0 M0
28 .I TNM=110 S SG=3 Q ; T1 N1 M0
29 .I TNM=210 S SG=3 Q ; T2 N1 M0
30 .I TNM=310 S SG=3 Q ; T3 N1 M0
31 .I TNM=400 S SG="4A" Q ;IVA T4 N0 M0
32 .I TNM=410 S SG="4A" Q ; T4 N1 M0
33 .I $E(N,1)=2,M=0 S SG="4A" Q ; Any T N2 M0
34 .I $E(N,1)=3,M=0 S SG="4B" Q ;IVB Any T N3 M0
35 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
36 ;
37LIP6 ;Lip and Oral Cavity - 6th edition
38 S TNM=T_$E(N,1)_M D K TNM Q
39 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
40 .I TNM=100 S SG=1 Q ;I T1 N0 M0
41 .I TNM=200 S SG=2 Q ;II T2 N0 M0
42 .I TNM=300 S SG=3 Q ;III T3 N0 M0
43 .I TNM=110 S SG=3 Q ; T1 N1 M0
44 .I TNM=210 S SG=3 Q ; T2 N1 M0
45 .I TNM=310 S SG=3 Q ; T3 N1 M0
46 .I TNM="4A00" S SG="4A" Q ;IVA T4a N0 M0
47 .I TNM="4A10" S SG="4A" Q ; T4a N1 M0
48 .I TNM=120 S SG="4A" Q ; T1 N2 M0
49 .I TNM=220 S SG="4A" Q ; T2 N2 M0
50 .I TNM=320 S SG="4A" Q ; T3 N2 M0
51 .I TNM="4A20" S SG="4A" Q ; T4a N2 M0
52 .I T="4B",M=0 S SG="4B" Q ;IVB T4b Any N M0
53 .I $E(N,1)=3,M=0 S SG="4B" Q ; Any T N3 M0
54 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
55 ;
56PHA12 ;Pharynx - 1st and 2nd editions
57 I M[1 S SG=4
58 E I M[0 D
59 .I (N[2)!(N[3) S SG=4
60 .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3)
61 .E I N[0,(T[1)!(T[2)!(T[3)!(T[4) S SG=+T
62 Q
63 ;
64PHA34 ;Pharynx - 3rd and 4th editions
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,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3)
69 .E I N[0,(T["IS")!(T[1)!(T[2)!(T[3)!(T[4) S SG=+T
70 Q
71 ;
72PHAN56 ;Pharynx - nasopharynx - 5th and 6th editions
73 S TNM=T_$E(N,1)_M D K TNM Q
74 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
75 .I TNM=100 S SG=1 Q ;I T1 N0 M0
76 .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0
77 .I TNM=110 S SG="2B" Q ;IIB T1 N1 M0
78 .I TNM=210 S SG="2B" Q ; T2 N1 M0
79 .I TNM="2A10" S SG="2B" Q ; T2a N1 M0
80 .I TNM="2B00" S SG="2B" Q ; T2b N0 M0
81 .I TNM="2B10" S SG="2B" Q ; T2b N1 M0
82 .I TNM=120 S SG=3 Q ;III T1 N2 M0
83 .I TNM="2A20" S SG=3 Q ; T2a N2 M0
84 .I TNM="2B20" S SG=3 Q ; T2b N2 M0
85 .I TNM=300 S SG=3 Q ; T3 N0 M0
86 .I TNM=310 S SG=3 Q ; T3 N1 M0
87 .I TNM=320 S SG=3 Q ; T3 N2 M0
88 .I TNM=400 S SG="4A" Q ;IVA T4 N0 M0
89 .I TNM=410 S SG="4A" Q ; T4 N1 M0
90 .I TNM=420 S SG="4A" Q ; T4 N2 M0
91 .I $E(N,1)=3,M=0 S SG="4B" Q ;IVB Any T N3 M0
92 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
93 ;
94PHAOH5 ;Pharynx - oropharynx, hypopharynx - 5th edition
95 S TNM=T_$E(N,1)_M D K TNM Q
96 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
97 .I TNM=100 S SG=1 Q ;I T1 N0 M0
98 .I TNM=200 S SG=2 Q ;II T2 N0 M0
99 .I TNM=300 S SG=3 Q ;III T3 N0 M0
100 .I TNM=110 S SG=3 Q ; T1 N1 M0
101 .I TNM=210 S SG=3 Q ; T2 N1 M0
102 .I TNM=310 S SG=3 Q ; T3 N1 M0
103 .I TNM=400 S SG="4A" Q ;IVA T4 N0 M0
104 .I TNM=410 S SG="4A" Q ; T4 N1 M0
105 .I $E(N,1)=2,M=0 S SG="4A" Q ; Any T N2 M0
106 .I $E(N,1)=3,M=0 S SG="4B" Q ;IVB Any T N3 M0
107 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
108 ;
109PHAOH6 ;Pharynx - oropharynx, hypopharynx - 6th edition
110 S TNM=T_$E(N,1)_M D K TNM Q
111 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
112 .I TNM=100 S SG=1 Q ;I T1 N0 M0
113 .I TNM=200 S SG=2 Q ;II T2 N0 M0
114 .I TNM=300 S SG=3 Q ;III T3 N0 M0
115 .I TNM=110 S SG=3 Q ; T1 N1 M0
116 .I TNM=210 S SG=3 Q ; T2 N1 M0
117 .I TNM=310 S SG=3 Q ; T3 N1 M0
118 .I TNM="4A00" S SG="4A" Q ;IVA T4a N0 M0
119 .I TNM="4A10" S SG="4A" Q ; T4a N1 M0
120 .I TNM=120 S SG="4A" Q ; T1 N2 M0
121 .I TNM=220 S SG="4A" Q ; T2 N2 M0
122 .I TNM=320 S SG="4A" Q ; T3 N2 M0
123 .I TNM="4A20" S SG="4A" Q ; T4a N2 M0
124 .I T="4B",M=0 S SG="4B" Q ;IVB T4b Any N M0
125 .I $E(N,1)=3,M=0 S SG="4B" Q ; Any T N3 M0
126 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
127 ;
128LAR12 ;Larynx - 1st and 2nd editions
129 I M[1 S SG=4
130 E I M[0 D
131 .I (N[2)!(N[3) S SG=4
132 .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3)
133 .E I N[0,(T[1)!(T[2)!(T[3)!(T[4) S SG=+T
134 Q
135 ;
136LAR34 ;Larynx - 3rd and 4th editions
137 I M[1 S SG=4
138 E I M[0 D
139 .I (N[2)!(N[3) S SG=4
140 .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3)
141 .E I N[0,(T["IS")!(T[1)!(T[2)!(T[3)!(T[4) S SG=+T
142 Q
143 ;
144LAR5 ;Larynx - 5th edition
145 I T="IS" S TNM=T_$E(N,1)_M
146 E S TNM=$E(T,1)_$E(N,1)_M
147 D K TNM Q
148 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
149 .I TNM=100 S SG=1 Q ;I T1 N0 M0
150 .I TNM=200 S SG=2 Q ;II T2 N0 M0
151 .I TNM=300 S SG=3 Q ;III T3 N0 M0
152 .I TNM=110 S SG=3 Q ; T1 N1 M0
153 .I TNM=210 S SG=3 Q ; T2 N1 M0
154 .I TNM=310 S SG=3 Q ; T3 N1 M0
155 .I TNM=400 S SG="4A" Q ;IVA T4 N0 M0
156 .I TNM=410 S SG="4A" Q ; T4 N1 M0
157 .I $E(N,1)=2,M=0 S SG="4A" Q ; Any T N2 M0
158 .I $E(N,1)=3,M=0 S SG="4B" Q ;IVB Any T N3 M0
159 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
160 ;
161LAR6 ;Larynx - 6th edition
162 S TNM=T_$E(N,1)_M
163 D K TNM Q
164 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
165 .I TNM=100 S SG=1 Q ;I T1 N0 M0
166 .I TNM="1A00" S SG=1 Q
167 .I TNM="1B00" S SG=1 Q
168 .I TNM=200 S SG=2 Q ;II T2 N0 M0
169 .I TNM=300 S SG=3 Q ;III T3 N0 M0
170 .I TNM=110 S SG=3 Q ; T1 N1 M0
171 .I TNM="1A10" S SG=3 Q
172 .I TNM="1B10" S SG=3 Q
173 .I TNM=210 S SG=3 Q ; T2 N1 M0
174 .I TNM=310 S SG=3 Q ; T3 N1 M0
175 .I TNM="4A00" S SG="4A" Q ;IVA T4a N0 M0
176 .I TNM="4A10" S SG="4A" Q ; T4a N1 M0
177 .I TNM=120 S SG="4A" Q ; T1 N2 M0
178 .I TNM="1A20" S SG="4A" Q
179 .I TNM="1B20" S SG="4A" Q
180 .I TNM=220 S SG="4A" Q ; T2 N2 M0
181 .I TNM=320 S SG="4A" Q ; T3 N2 M0
182 .I TNM="4A20" S SG="4A" Q ; T4a N2 M0
183 .I T="4B",M=0 S SG="4B" Q ;IVB T4b Any N M0
184 .I $E(N,1)=3,M=0 S SG="4B" Q ; Any T N3 M0
185 .I M=1 S SG="4C" Q ;IVC Any T Any N M1
Note: See TracBrowser for help on using the repository browser.