source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOTN0.m@ 1458

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

initial load of FOIAVistA 6/30/08 version
File size: 4.8 KB
Line 
1ONCOTN0 ;Hines OIFO/GWB - AUTOMATIC STAGING ;6/11/93
2 ;;2.11;ONCOLOGY;**1,15,28,35**;Mar 07, 1995
3 ;
4PART2 ;HEAD AND NECK SITES
5 ;
63 ;Lip and Oral Cavity
7 D @$S(ONCOED=6:"LIP6^ONCSG0",ONCOED=5:"LIP5^ONCSG0",ONCOED>2:"LIP34^ONCSG0",1:"LIP12^ONCSG0")
8 Q
9 ;
104 ;Pharynx
11 D @$S(ONCOED=6:"PHA6",ONCOED=5:"PHA5",ONCOED>2:"PHA34^ONCSG0",1:"PHA12^ONCSG0")
12 Q
13 ;
14PHA5 ;Pharynx - 5th edition
15 I SP=67110 D PHAN56^ONCSG0 Q ;C11.0 Superior wall of nasopharynx
16 E D PHAOH5^ONCSG0 Q
17 ;
18PHA6 ;Pharynx - 6th edition
19 I SP=67110 D PHAN56^ONCSG0 Q ;C11.0 Superior wall of nasopharynx
20 E D PHAOH6^ONCSG0 Q
21 ;
225 ;Larynx
23 D @$S(ONCOED=6:"LAR6^ONCSG0",ONCOED=5:"LAR5^ONCSG0",ONCOED>2:"LAR34^ONCSG0",1:"LAR12^ONCSG0")
24 Q
25 ;
266 ;Nasal Cavity and Paranasal Sinuses
27 D @$S(ONCOED=6:"PAR6^ONCSG0A",5:"PAR5^ONCSG0A",ONCOED>2:"PAR34^ONCSG0A",1:"PAR12^ONCSG0A")
28 Q
29 ;
307 ;Major Salivary Glands
31 D @$S(ONCOED=6:"SAL6^ONCSG0A",ONCOED=5:"SAL5^ONCSG0A",ONCOED>2:"SAL34^ONCSG0A",1:"SAL12^ONCSG0A")
32 Q
33 ;
348 ;Thyroid
35 D @$S(ONCOED=6:"THY6^ONCSG0A",1:"THY15^ONCSG0A")
36 Q
37 ;
38PART3 ;DIGESTIVE SYSTEM
39 ;
409 ;Esophogus
41 D @$S(ONCOED>4:"ESO56^ONCSG1",1:"ESO1234^ONCSG1")
42 Q
43 ;
4410 ;Stomach
45 D @$S(ONCOED=6:"STO6^ONCSG1",ONCOED=5:"STO5^ONCSG1",1:"STO34^ONCSG1")
46 Q
47 ;
481 ;Small Intestine
49 I ONCOED<4 D Q
50 .W !!?12,"NO AJCC TNM Coding Schema for this edition."
51 .S SG=88
52 D SI^ONCSG1
53 Q
54 ;
5511 ;Colon and Rectum
56 D @$S(ONCOED=6:"COL6^ONCSG1",ONCOED=5:"COL5^ONCSG1",1:"COL34^ONCSG1")
57 Q
58 ;
5912 ;Anal Canal
60 D AC^ONCSG1
61 Q
62 ;
6313 ;Liver
64 D @$S(ONCOED=6:"LIV6^ONCSG1A",ONCOED=5:"LIV5^ONCSG1A",1:"LIV34^ONCSG1A")
65 Q
66 ;
6714 ;Gallbladder
68 D @$S(ONCOED=6:"GB6^ONCSG1A",ONCOED=5:"GB45^ONCSG1A",ONCOED=4:"GB45^ONCSG1A",1:"GB3^ONCSG1A")
69 Q
70 ;
7115 ;Extrahepatic Bile Ducts
72 D @$S(ONCOED=6:"EBD6^ONCSG1A",ONCOED>3:"EBD45^ONCSG1A",1:"EBD3^ONCSG1A")
73 Q
74 ;
7516 ;Ampulla of Vater
76 D @$S(ONCOED=6:"AV6^ONCSG1A",1:"AV345^ONCSG1A")
77 Q
78 ;
7917 ;Exocrine Pancreas
80 D @$S(ONCOED=6:"EXO6^ONCSG1A",ONCOED=5:"EXO5^ONCSG1A",1:"EXO34^ONCSG1A")
81 Q
82 ;
83PART4 ;THORAX
84 ;
8518 ;Lung
86 D @$S(ONCOED>4:"LUN56^ONCSG2",1:"LUN34^ONCSG2")
87 Q
88 ;
892 ;Pleural Mesothelioma
90 D @$S(ONCOED=6:"PM6^ONCSG2",1:"PM45^ONCSG2")
91 Q
92 ;
93PART5 ;MUSCULOSKELETAL SITES
94 ;
9519 ;Bone
96 D @$S(ONCOED=6:"BONE6^ONCSG2",1:"BONE345^ONCSG2")
97 Q
98 ;
9920 ;Soft Tissue Sarcoma
100 D @$S(ONCOED=6:"STS6^ONCSG2",ONCOED=5:"STS5^ONCSG2",1:"STS34^ONCSG2")
101 Q
102 ;
103PART6 ;SKIN
104 ;
10521 ;Carcinoma of the Skin
106 D CS^ONCSG3
107 Q
108 ;
10922 ;Melanoma of the Skin
110 D @$S(ONCOED=6:"MMS6^ONCSG3",ONCOED=5:"MMS5^ONCSG3",ONCOED=4:"MMS4^ONCSG3",1:"MMS3^ONCSG3")
111 Q
112 ;
113PART7 ;BREAST
114 ;
11523 ;Breast
116 D @$S(ONCOED=6:"BRST6^ONCSG3",1:"BRST345^ONCSG3")
117 Q
118 ;
119PART8 ;GYNECOLOGIC SITES
120 ;
12128 ;Vulva
122 D @$S(ONCOED>4:"VU56^ONCSG4",ONCOED=4:"VU4^ONCSG4",1:"VU3^ONCSG4")
123 Q
124 ;
12527 ;Vagina
126 D @$S(ONCOED>4:"VA56^ONCSG4",1:"VA34^ONCSG4")
127 Q
128 ;
12924 ;Cervix Uteri
130 D @$S(ONCOED>4:"CEU56^ONCSG4",1:"CEU34^ONCSG4")
131 Q
132 ;
13325 ;Corpus Uteri
134 D @$S(ONCOED=6:"COU6^ONCSG4",ONCOED>3:"COU45^ONCSG4",1:"COU3^ONCSG4")
135 Q
136 ;
13726 ;Ovary
138 D @$S(ONCOED=6:"OVA6^ONCSG4A",1:"OVA345^ONCSG4A")
139 Q
140 ;
14153 ;Fallopian Tube
142 D @$S(ONCOED=6:"FT6^ONCSG4A",1:"FT5^ONCSG4A")
143 Q
144 ;
14554 ;Gestational Trophoblastic Tumors
146 D @$S(ONCOED=6:"GTT6^ONCSG4A",1:"GTT5^ONCSG4A")
147 Q
148 ;
149PART9 ;GENITOURINARY SITES
150 ;
15131 ;Penis
152 D PENIS^ONCSG5
153 Q
154 ;
15529 ;Prostate
156 D @$S(ONCOED>4:"PROS56^ONCSG5",ONCOED=4:"PROS4^ONCSG5",1:"PROS3^ONCSG5")
157 Q
158 ;
15930 ;Testis
160 D @$S(ONCOED>4:"TES56^ONCSG5",ONCOED=4:"TES4^ONCSG5",1:"TES3^ONCSG5")
161 Q
162 ;
16333 ;Kidney
164 D @$S(ONCOED=6:"KID6^ONCSG5",ONCOED=5:"KID5^ONCSG5",1:"KID34^ONCSG5")
165 Q
166 ;
16734 ;Renal Pelvis and Ureter
168 D @$S(ONCOED>3:"RPU456^ONCSG5A",1:"RPU3^ONCSG5A")
169 Q
170 ;
17132 ;Urinary Bladder
172 D @$S(ONCOED>4:"UB56^ONCSG5A",ONCOED=4:"UB4^ONCSG5A",1:"UB3^ONCSG5A")
173 Q
174 ;
17535 ;Urethra
176 D @$S(ONCOED>4:"U56^ONCSG5A",ONCOED=4:"U4^ONCSG5A",1:"U3^ONCSG5A")
177 Q
178 ;
179PART10 ;OPHTHALMIC SITES
180 ;
18136 ;Carcinoma of the Eyelid
182 W !!?12,"No stage grouping is presently recommended."
183 S SG=88 Q
184 ;
18537 ;Malignant Melanoma of the Eyelid
186 I STGIND="C" D Q
187 .W !!?12,"No stage grouping is presently recommended."
188 .S SG=88
189 D MME34^ONCSG5A
190 Q
191 ;
19238 ;Carcinoma of the Conjunctiva
193 W !!?12,"No stage grouping is presently recommended."
194 S SG=88 Q
195 ;
19639 ;Malignant Melanoma of the Conjunctiva
197 W !!?12,"No stage grouping is presently recommended."
198 S SG=88 Q
199 ;
20040 ;Malignant Melanoma of the uvea
201 I TX=67693 D @$S(ONCOED=6:"MMU6^ONCSG5A",1:"CHO345^ONCSG5A") Q
202 I TX=67694 D @$S(ONCOED=6:"MMU6^ONCSG5A",1:"CBI345^ONCSG5A") Q
203 Q
204 ;
20541 ;Retinoblastoma
206 I ONCOED=6 D Q
207 .W !!?12,"No stage grouping applies."
208 .S SG=88
209 D RET345^ONCSG5A
210 Q
211 ;
21243 ;Carcinoma of the Lacrimal Gland
213 W !!?12,"No stage grouping is presently recommended."
214 S SG=88 Q
215 ;
21642 ;Sarcoma of the orbit
217 W !!?12,"No stage grouping is presently recommended."
218 S SG=88 Q
219 ;
220PART11 ;CENTRAL NERVOUS SYSTEM
221 ;
22244 ;Brain and Spinal Cord
223 D BSC34^ONCSG5A
224 Q
225 ;
226PART12 ;LYMPHOID NEOPLASMS
227 ;
22855 ;Mycosis fungoides
229 D MF6^ONCSG5A
230 Q
Note: See TracBrowser for help on using the repository browser.