source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSG4.m@ 1704

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

initial load of WorldVistAEHR
File size: 5.4 KB
RevLine 
[613]1ONCSG4 ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;07/15/02
2 ;;2.11;ONCOLOGY;**35**;Mar 07, 1995
3 ;
4 ;GYNECOLOGICAL SITES
5 ;
6VU3 ;Vulva - 3rd edition
7 I M!($E(N)=3)!(T=4) S SG=4
8 E I T="IS" S SG=0
9 E I T=1,($E(N)=0)!($E(N)=1),$E(M)=0 S SG=1
10 E I T=2,($E(N)=0)!($E(N)=1),$E(M)=0 S SG=2
11 E I T=3,($E(N)=0)!($E(N)=1)!($E(N)=2),$E(M)=0 S SG=3
12 E I (T=1)!(T=2),$E(N)=2,$E(M)=0 S SG=3
13 E S SG=99
14 Q
15 ;
16VU4 ;Vulva - 4th edition
17 I M S SG="4B"
18 E I T=4,$E(M)=0 S SG="4A"
19 E I (T=1)!(T=2)!(T=3),$E(N)=2,$E(M)=0 S SG="4A"
20 E I T="IS",$E(N)=0,$E(M)=0 S SG=0
21 E I T=1,$E(N)=0,$E(M)=0 S SG=1
22 E I T=2,$E(N)=0,$E(M)=0 S SG=2
23 E I (T=1)!(T=2),$E(N)=1,$E(M)=0 S SG=3
24 E I T=3,($E(N)=0)!($E(N)=1),$E(M)=0 S SG=3
25 E S SG=99
26 Q
27 ;
28VU56 ;Vulva - 5th and 6th edition
29 S TNM=T_N_M D K TNM Q
30 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
31 .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0
32 .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0
33 .I TNM=200 S SG=2 Q ;II T2 N0 M0
34 .I TNM=110 S SG=3 Q ;III T1 N1 M0
35 .I TNM=210 S SG=3 Q ; T2 N1 M0
36 .I TNM=300 S SG=3 Q ; T3 N0 M0
37 .I TNM=310 S SG=3 Q ; T3 N1 M0
38 .I TNM=120 S SG="4A" Q ;IVA T1 N2 M0
39 .I TNM=220 S SG="4A" Q ; T2 N2 M0
40 .I TNM=320 S SG="4A" Q ; T3 N2 M0
41 .I T=4,M=0 S SG="4A" Q ; T4 Any N M0
42 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
43 ;
44VA34 ;Vagina - 3rd and 4th editions
45 S SG=99
46 I M[1 S SG="4B"
47 E I M[0 D
48 .I T[4 S SG="4A"
49 .E I N[2,(T[1)!(T[2)!(T[3) S SG="4A"
50 .E I N[1,(T[1)!(T[2)!(T[3) S SG=3
51 .E I N[0,(T["IS")!(T[1)!(T[2)!(T[3) S SG=+T
52 Q
53 ;
54VA56 ;Vagina - 5th and 6th editions
55 S TNM=T_N_M D K TNM Q
56 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
57 .I TNM=100 S SG=1 Q ;I T1 N0 M0
58 .I TNM=200 S SG=2 Q ;II T2 N0 M0
59 .I TNM=110 S SG=3 Q ;III T1 N1 M0
60 .I TNM=210 S SG=3 Q ; T2 N1 M0
61 .I TNM=300 S SG=3 Q ; T3 N0 M0
62 .I TNM=310 S SG=3 Q ; T3 N1 M0
63 .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0
64 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
65 ;
66CEU34 ;Cervix Uteri - 3rd and 4th editions
67 I $E(M)=1 S SG="4B"
68 E I $E(T)=4,$E(M)=0 S SG="4A"
69 E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0
70 E I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A"
71 E I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B"
72 E I $E(T,1,2)="2A",$E(N)=0,$E(M)=0 S SG="2A"
73 E I $E(T,1,2)="2B",$E(N)=0,$E(M)=0 S SG="2B"
74 E I $E(T,1,2)="3A",$E(N)=0,$E(M)=0 S SG="3A"
75 E I ($E(T)=1)!($E(T)=2)!($E(T,1,2)="3A"),$E(N)=1,$E(M)=0 S SG="3B"
76 E I $E(T,1,2)="3B",$E(M)=0 S SG="3B"
77 E S SG=99
78 Q
79 ;
80CEU56 ;Cervix Uteri - 5th and 6th editions
81 S TNM=T_N_M D K TNM Q
82 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
83 .I TNM=100 S SG=1 Q ;I T1 N0 M0
84 .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0
85 .I TNM="1A100" S SG="1A1" Q ;IA1 T1a1 N0 M0
86 .I TNM="1A200" S SG="1A2" Q ;IA2 T1a2 N0 M0
87 .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0
88 .I TNM="1B100" S SG="1B1" Q ;IB1 T1b1 N0 M0
89 .I TNM="1B200" S SG="1B2" Q ;IB2 T1b2 N0 M0
90 .I TNM=200 S SG=2 Q ;II T2 N0 M0
91 .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0
92 .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0
93 .I TNM=300 S SG=3 Q ;III T3 N0 M0
94 .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0
95 .I TNM=110 S SG="3B" Q ;IIIB T1 N1 M0
96 .I TNM=210 S SG="3B" Q ; T2 N1 M0
97 .I TNM="3A10" S SG="3B" Q ; T3a N1 M0
98 .I T="3B",M=0 S SG="3B" Q ; T3b Any N M0
99 .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0
100 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
101 ;
102COU3 ;Corpus Uteri - 3rd edition
103 I $E(M)=1 S SG="4B"
104 E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0
105 E I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A"
106 E I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B"
107 E I $E(T)=2,$E(N)=0,$E(M)=0 S SG=2
108 E I $E(T)=1,$E(N)=1,$E(M)=0 S SG=3
109 E I $E(T)=2,$E(N)=1,$E(M)=0 S SG=3
110 E I $E(T)=3,$E(M)=0 S SG=3
111 E I $E(T)=4,$E(M)=0 S SG="4A"
112 E S SG=99
113 Q
114 ;
115COU45 ;Corpus Uteri - 4th and 5th editions
116 I $E(M)=1 S SG="4B"
117 E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0
118 E I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A"
119 E I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B"
120 E I $E(T,1,2)="1C",$E(N)=0,$E(M)=0 S SG="1C"
121 E I $E(T,1,2)="2A",$E(N)=0,$E(M)=0 S SG="2A"
122 E I $E(T,1,2)="2B",$E(N)=0,$E(M)=0 S SG="2B"
123 E I $E(T,1,2)="3A",$E(N)=0,$E(M)=0 S SG="3A"
124 E I $E(T,1,2)="3B",$E(N)=0,$E(M)=0 S SG="3B"
125 E I $E(T)=1,$E(N)=1,$E(M)=0 S SG="3C"
126 E I $E(T)=2,$E(N)=1,$E(M)=0 S SG="3C"
127 E I $E(T)=3,$E(N)=1,$E(M)=0 S SG="3C"
128 E I $E(T)=4,$E(M)=0 S SG="4A"
129 E S SG=99
130 Q
131 ;
132COU6 ;Corpus Uteri - 6th edition
133 S TNM=T_N_M D K TNM Q
134 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
135 .I TNM=100 S SG=1 Q ;I T1 N0 M0
136 .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0
137 .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0
138 .I TNM="1C00" S SG="1C" Q ;IC T1c N0 M0
139 .I TNM=200 S SG=2 Q ;II T2 N0 M0
140 .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0
141 .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0
142 .I TNM=300 S SG=3 Q ;III T3 N0 M0
143 .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0
144 .I TNM="3B00" S SG="3B" Q ;IIIB T3b N0 M0
145 .I TNM=110 S SG="3C" Q ;IIIC T1 N1 M0
146 .I TNM=210 S SG="3C" Q ; T2 N1 M0
147 .I TNM=310 S SG="3C" Q ; T3 N1 M0
148 .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0
149 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
150 ;
Note: See TracBrowser for help on using the repository browser.