source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSG1.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: 6.1 KB
Line 
1ONCSG1 ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;6/20/02
2 ;;2.11;ONCOLOGY;**35**;Mar 07, 1995
3 ;
4 ;DIGESTIVE SYSTEM
5 ;
6ESO1234 ;Esophagus - 1st, 2nd, 3rd and 4th editions
7 I M[1 S SG=4
8 E I T["IS",N[0,M[0 S SG=0
9 E I T[1,N[0,M[0 S SG=1
10 E I (T[2)!(T[3),N[0,M[0 S SG="2A"
11 E I (T[1)!(T[2),N[1,M[0 S SG="2B"
12 E I T[3,N[1,M[0 S SG=3
13 E I T[4,M[0 S SG=3
14 E S SG=99
15 Q
16 ;
17ESO56 ;Esophagus - 5th and 6th editions
18 S TNM=T_N_M D K TNM Q
19 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
20 .I TNM=100 S SG=1 Q ;I T1 N0 M0
21 .I TNM=200 S SG="2A" Q ;IIA T2 N0 M0
22 .I TNM=300 S SG="2A" Q ; T3 N0 M0
23 .I TNM=110 S SG="2B" Q ;IIB T1 N1 M0
24 .I TNM=210 S SG="2B" Q ; T2 N1 M0
25 .I TNM=310 S SG=3 Q ;III T3 N1 M0
26 .I T=4,M=0 S SG=3 Q ; T4 Any N M0
27 .I M=1 S SG=4 Q ;IV Any T Any N M1
28 .I M="1A" S SG="4A" Q ;IVA Any T Any N M1a
29 .I M="1B" S SG="4B" Q ;IVB Any T Any N M1b
30 ;
31STO34 ;Stomach - 3rd and 4th editions
32 S TNM=T_N_M D K TNM Q
33 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
34 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
35 .I TNM=110 S SG="1B" Q ;IB T1 N1 M0
36 .I TNM=200 S SG="1B" Q ; T2 N0 M0
37 .I TNM=120 S SG=2 Q ;II T1 N2 M0
38 .I TNM=210 S SG=2 Q ; T2 N1 M0
39 .I TNM=300 S SG=2 Q ; T3 N0 M0
40 .I TNM=220 S SG="3A" Q ;IIIA T2 N2 M0
41 .I TNM=310 S SG="3A" Q ; T3 N1 M0
42 .I TNM=400 S SG="3A" Q ; T4 N0 M0
43 .I TNM=320 S SG="3B" Q ;IIIB T3 N2 M0
44 .I TNM=410 S SG="3B" Q ; T4 N1 M0
45 .I TNM=420 S SG=4 Q ;IV T4 N2 M0
46 .I M=1 S SG=4 Q ; Any T Any N M1
47 ;
48STO5 ;Stomach - 5th edition
49 S TNM=T_N_M D K TNM Q
50 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
51 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
52 .I TNM=110 S SG="1B" Q ;IB T1 N1 M0
53 .I TNM=200 S SG="1B" Q ; T2 N0 M0
54 .I TNM=120 S SG=2 Q ;II T1 N2 M0
55 .I TNM=210 S SG=2 Q ; T2 N1 M0
56 .I TNM=300 S SG=2 Q ; T3 N0 M0
57 .I TNM=220 S SG="3A" Q ;IIIA T2 N2 M0
58 .I TNM=310 S SG="3A" Q ; T3 N1 M0
59 .I TNM=400 S SG="3A" Q ; T4 N0 M0
60 .I TNM=320 S SG="3B" Q ;IIIB T3 N2 M0
61 .I TNM=410 S SG=4 Q ;IV T4 N1 M0
62 .I TNM=130 S SG=4 Q ; T1 N3 M0
63 .I TNM=230 S SG=4 Q ; T2 N3 M0
64 .I TNM=330 S SG=4 Q ; T3 N3 M0
65 .I TNM=420 S SG=4 Q ; T4 N2 M0
66 .I TNM=430 S SG=4 Q ; T4 N3 M0
67 .I M=1 S SG=4 Q ; Any T Any N M1
68 ;
69STO6 ;Stomach - 6th edition
70 S TNM=T_N_M D K TNM Q
71 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
72 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
73 .I TNM=110 S SG="1B" Q ;IB T1 N1 M0
74 .I TNM="2A00" S SG="1B" Q ; T2a N0 M0
75 .I TNM="2B00" S SG="1B" Q ; T2b N0 M0
76 .I TNM=120 S SG=2 Q ;II T1 N2 M0
77 .I TNM="2A10" S SG=2 Q ; T2a N1 M0
78 .I TNM="2B10" S SG=2 Q ; T2b N1 M0
79 .I TNM=300 S SG=2 Q ; T3 N0 M0
80 .I TNM="2A20" S SG="3A" Q ;IIIA T2a N2 M0
81 .I TNM="2B20" S SG="3A" Q ; T2b N2 M0
82 .I TNM=310 S SG="3A" Q ; T3 N1 M0
83 .I TNM=400 S SG="3A" Q ; T4 N0 M0
84 .I TNM=320 S SG="3B" Q ;IIIB T3 N2 M0
85 .I TNM=410 S SG=4 Q ;IV T4 N1 M0
86 .I TNM=130 S SG=4 Q ; T1 N3 M0
87 .I TNM="2A30" S SG=4 Q ; T2a N3 M0
88 .I TNM="2B30" S SG=4 Q ; T2b N3 M0
89 .I TNM=330 S SG=4 Q ; T3 N3 M0
90 .I TNM=420 S SG=4 Q ; T4 N2 M0
91 .I TNM=430 S SG=4 Q ; T4 N3 M0
92 .I M=1 S SG=4 Q ; Any T Any N M1
93 ;
94SI ;Small Intestine - 4th, 5th and 6th editions
95 I M S SG=4
96 E I T["IS",N[0,M[0 S SG=0
97 E I (T[1)!(T[2),N[0,M[0 S SG=1
98 E I (T[3)!(T[4),N[0,M[0 S SG=2
99 E I N[1,M[0 S SG=3
100 E S SG=99
101 Q
102 ;
103COL34 ;Colon and Rectum - 3rd and 4th editions
104 S TNM=T_N_M D K TNM Q
105 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
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=2 Q ; T4 N0 M0
110 .I N=1,M=0 S SG=3 Q ;III Any T N1 M0
111 .I N=2,M=0 S SG=3 Q ; Any T N2 M0
112 .I N=3,M=0 S SG=3 Q ; Any T N3 M0
113 .I M=1 S SG=4 Q ;IV Any T Any N M1
114 ;
115COL5 ;Colon and Rectum - 5th edition
116 S TNM=T_N_M D K TNM Q
117 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
118 .I TNM=100 S SG=1 Q ;I T1 N0 M0
119 .I TNM=200 S SG=1 Q ; T2 N0 M0
120 .I TNM=300 S SG=2 Q ;II T3 N0 M0
121 .I TNM=400 S SG=2 Q ; T4 N0 M0
122 .I N=1,M=0 S SG=3 Q ;III Any T N1 M0
123 .I N=2,M=0 S SG=3 Q ; Any T N2 M0
124 .I M=1 S SG=4 Q ;IV Any T Any N M1
125 ;
126COL6 ;Colon and Rectum - 6th edition
127 S TNM=T_N_M D K TNM Q
128 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
129 .I TNM=100 S SG=1 Q ;I T1 N0 M0
130 .I TNM=200 S SG=1 Q ; T2 N0 M0
131 .I TNM=300 S SG="2A" Q ;IIA T3 N0 M0
132 .I TNM=400 S SG="2B" Q ;IIB T4 N0 M0
133 .I TNM=110 S SG="3A" Q ;IIIA T1 N1 M0
134 .I TNM=210 S SG="3A" Q ; T2 N1 M0
135 .I TNM=310 S SG="3B" Q ;IIIB T3 N1 M0
136 .I TNM=410 S SG="3B" Q ; T4 N1 M0
137 .I N=2,M=0 S SG="3C" Q ;IIIC Any T N2 M0
138 .I M=1 S SG=4 Q ;IV Any T Any N M1
139 ;
140AC ;Anal Canal - all editions
141 S TNM=T_N_M D K TNM Q
142 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
143 .I TNM=100 S SG=1 Q ;I T1 N0 M0
144 .I TNM=200 S SG=2 Q ;II T2 N0 M0
145 .I TNM=300 S SG=2 Q ; T3 N0 M0
146 .I TNM=110 S SG="3A" Q ;IIIA T1 N1 M0
147 .I TNM=210 S SG="3A" Q ; T2 N1 M0
148 .I TNM=310 S SG="3A" Q ; T3 N1 M0
149 .I TNM=400 S SG="3A" Q ; T4 N0 M0
150 .I TNM=410 S SG="3B" Q ;IIIB T4 N1 M0
151 .I N=2,M=0 S SG="3B" Q ; Any T N2 M0
152 .I N=3,M=0 S SG="3B" Q ; Any T N3 M0
153 .I M=1 S SG=4 Q ;IV Any T Any N M1
Note: See TracBrowser for help on using the repository browser.