source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCSG1A.m@ 1729

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

initial load of FOIAVistA 6/30/08 version
File size: 5.6 KB
Line 
1ONCSG1A ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;6/20/02
2 ;;2.11;ONCOLOGY;**35**;Mar 07, 1995
3 ;
4 ;DIGESTIVE SYSTEM (continued)
5 ;
6LIV34 ;Liver - 3rd and 4th editions
7 S TNM=T_N_M D K TNM Q
8 .I TNM=100 S SG=1 Q ;I T1 N0 M0
9 .I TNM=200 S SG=2 Q ;II T2 N0 M0
10 .I TNM=110 S SG=3 Q ;III T1 N1 M0
11 .I TNM=210 S SG=3 Q ; T2 N1 M0
12 .I TNM=300 S SG=3 Q ; T3 N0 M0
13 .I TNM=310 S SG=3 Q ; T3 N1 M0
14 .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0
15 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
16 ;
17LIV5 ;Liver - 5th edition
18 S TNM=T_N_M D K TNM Q
19 .I TNM=100 S SG=1 Q ;I T1 N0 M0
20 .I TNM=200 S SG=2 Q ;II T2 N0 M0
21 .I TNM=300 S SG="3A" Q ;IIIA T3 N0 M0
22 .I TNM=110 S SG="3B" Q ;IIIB T1 N1 M0
23 .I TNM=210 S SG="3B" Q ; T2 N1 M0
24 .I TNM=310 S SG="3B" Q ; T3 N1 M0
25 .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0
26 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
27 ;
28LIV6 ;Liver - 6th edition
29 S TNM=T_N_M D K TNM Q
30 .I TNM=100 S SG=1 Q ;I T1 N0 M0
31 .I TNM=200 S SG=2 Q ;II T2 N0 M0
32 .I TNM=300 S SG="3A" Q ;IIIA T3 N0 M0
33 .I TNM=400 S SG="3B" Q ;IIIB T4 N0 M0
34 .I N=1,M=0 S SG="3C" Q ;IIIC Any T N1 M0
35 .I M=1 S SG=4 Q ;IV Any T Any N M1
36 ;
37GB3 ;Gallbladder - 3rd edition
38 I T="IS" S TNM=T_$E(N,1)_M
39 E S TNM=$E(T,1)_$E(N,1)_M
40 D K TNM Q
41 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
42 .I TNM=100 S SG=1 Q ;I T1 N0 M0
43 .I TNM=200 S SG=2 Q ;II T2 N0 M0
44 .I TNM=110 S SG=3 Q ;III T1 N1 M0
45 .I TNM=210 S SG=3 Q ; T2 N1 M0
46 .I T=3,M=0 S SG=3 Q ; T3 Any N M0
47 .I T=4,M=0 S SG=4 Q ;IV T4 Any N M0
48 .I M=1 S SG=4 Q ; Any T Any N M1
49 ;
50GB45 ;Gallbladder - 4th and 5th editions
51 I T="IS" S TNM=T_N_M
52 E S TNM=$E(T,1)_N_M
53 D K TNM Q
54 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
55 .I TNM=100 S SG=1 Q ;I T1 N0 M0
56 .I TNM=200 S SG=2 Q ;II T2 N0 M0
57 .I TNM=110 S SG=3 Q ;III T1 N1 M0
58 .I TNM=210 S SG=3 Q ; T2 N1 M0
59 .I TNM=300 S SG=3 Q ; T3 N0 M0
60 .I TNM=310 S SG=3 Q ; T3 N1 M0
61 .I TNM=400 S SG="4A" Q ;IVA T4 N0 M0
62 .I TNM=410 S SG="4A" Q ; T4 N1 M0
63 .I N=2,M=0 S SG="4B" Q ;IVB Any T N2 M0
64 .I M=1 S SG="4B" Q ; Any T Any N M1
65 ;
66GB6 ;Gallbladder - 6th edition
67 I T="IS" S TNM=T_N_M
68 E S TNM=$E(T,1)_N_M
69 D K TNM Q
70 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
71 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
72 .I TNM=200 S SG="1B" Q ;IB T2 N0 M0
73 .I TNM=300 S SG="2A" Q ;IIA T3 N0 M0
74 .I TNM=110 S SG="2B" Q ;IIB T1 N1 M0
75 .I TNM=210 S SG="2B" Q ; T2 N1 M0
76 .I TNM=310 S SG="2B" Q ; T3 N1 M0
77 .I T=4,M=0 S SG=3 Q ;III T4 Any N M0
78 .I M=1 S SG=4 Q ;IV Any T Any N M1
79 ;
80EBD3 ;Extrahepatic Bile Ducts - 3rd edition
81 S SG=$S(M:"4B",T=3:"4A",+N=1:3,T=2:2,+T=1:1,T="IS":0,1:"E")
82 Q
83 ;
84EBD45 ;Extrahepatic Bile Ducts - 4th and 5th editions
85 S SG=$S(M:"4B",T=3:"4A",N&T:3,T=2:2,+T=1:1,T="IS":0,1:"E")
86 Q
87 ;
88EBD6 ;Extrahepatic Bile Ducts - 6th edition
89 S TNM=T_N_M D K TNM Q
90 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
91 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
92 .I TNM=200 S SG="1B" Q ;IB T2 N0 M0
93 .I TNM=300 S SG="2A" Q ;IIA T3 N0 M0
94 .I TNM=110 S SG="2B" Q ;IIB T1 N1 M0
95 .I TNM=210 S SG="2B" Q ; T2 N1 M0
96 .I TNM=310 S SG="2B" Q ; T3 N1 M0
97 .I T=4,M=0 S SG=3 Q ;III T4 Any N M0
98 .I M=1 S SG=4 Q ;IV Any T Any N M1
99 ;
100AV345 ;Ampulla of Vater - 3rd, 4th and 5th editions
101 K SG
102 I M=1 S SG=4
103 E I M=0 D
104 .I T="IS",N=0 S SG=0
105 .E I T=1,N=0 S SG=1
106 .E I (T=2)!(T=3),N=0 S SG=2
107 .E I (T=1)!(T=2)!(T=3),N=1 S SG=3
108 .E I T=4 S SG=4
109 I '$D(SG) S SG=99
110 Q
111 ;
112AV6 ;Ampulla of Vater - 6th edition
113 S TNM=T_N_M D K TNM Q
114 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
115 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
116 .I TNM=200 S SG="1B" Q ;IB T2 N0 M0
117 .I TNM=300 S SG="2A" Q ;IIA T3 N0 M0
118 .I TNM=110 S SG="2B" Q ;IIB T1 N1 M0
119 .I TNM=210 S SG="2B" Q ; T2 N1 M0
120 .I TNM=310 S SG="2B" Q ; T3 N1 M0
121 .I T=4,M=0 S SG=3 Q ;III T4 Any N M0
122 .I M=1 S SG=4 Q ;IV Any T Any N M1
123 ;
124EXO34 ;Exocrine Pancreas - 3rd and 4th editions
125 S SG=99
126 I M=1 S SG=4
127 E I M=0 D
128 .I (T[1)!(T=2),N=0 S SG=1
129 .E I T=3,N=0 S SG=2
130 .E I N=1 S SG=3
131 Q
132 ;
133EXO5 ;Exocrine Pancreas - 5th edition
134 S TNM=T_$E(N,1)_M D K TNM Q
135 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
136 .I TNM=100 S SG=1 Q ;I T1 N0 M0
137 .I TNM=200 S SG=1 Q ; T2 N0 M0
138 .I TNM=300 S SG=2 Q ;II T3 N0 M0
139 .I TNM=110 S SG=3 Q ;III T1 N1 M0
140 .I TNM=210 S SG=3 Q ; T2 N1 M0
141 .I TNM=310 S SG=3 Q ; T3 N1 M0
142 .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0
143 .I M=1 S SG="4B" Q ;IVB Any T Any N M1
144 ;
145EXO6 ;Exocrine Pancreas - 6th edition
146 S TNM=T_$E(N,1)_M D K TNM Q
147 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
148 .I TNM=100 S SG="1A" Q ;IA T1 N0 M0
149 .I TNM=200 S SG="1B" Q ;IB T2 N0 M0
150 .I TNM=300 S SG="2A" Q ;IIA T3 N0 M0
151 .I TNM=110 S SG="2B" Q ;IIB T1 N1 M0
152 .I TNM=210 S SG="2B" Q ; T2 N1 M0
153 .I TNM=310 S SG="2B" Q ; T3 N1 M0
154 .I T=4,M=0 S SG=3 Q ;III T4 Any N M0
155 .I M=1 S SG=4 Q ;IV Any T Any N M1
Note: See TracBrowser for help on using the repository browser.