ONCOTN0 ;Hines OIFO/GWB - Automatic Staging ;12/03/10
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
PART2 ;HEAD AND NECK SITES
;
3 ;Lip and Oral Cavity
D @$S(ONCOED>5:"LIP6^ONCSG0",ONCOED>4:"LIP5^ONCSG0",ONCOED>2:"LIP34^ONCSG0",1:"LIP12^ONCSG0")
Q
;
4 ;Pharynx
D @$S(ONCOED>6:"PHA7",ONCOED>5:"PHA6",ONCOED>4:"PHA5",ONCOED>2:"PHA34^ONCSG0",1:"PHA12^ONCSG0")
Q
;
PHA5 ;Pharynx - 5th edition
I SP=67110 D PHAN56^ONCSG0 Q ;C11.0 Superior wall of nasopharynx
E D PHAOH5^ONCSG0 Q
;
PHA6 ;Pharynx - 6th edition
I SP=67110 D PHAN56^ONCSG0 Q ;C11.0 Superior wall of nasopharynx
E D PHAOH6^ONCSG0 Q
;
PHA7 ;Pharynx - 7th edition
I SP=67110 D PHAN7^ONCSG0 Q ;C11.0 Superior wall of nasopharynx
E D PHAOH6^ONCSG0 Q
;
5 ;Larynx
D @$S(ONCOED>5:"LAR6^ONCSG0",ONCOED=5:"LAR5^ONCSG0",ONCOED>2:"LAR34^ONCSG0",1:"LAR12^ONCSG0")
Q
;
6 ;Nasal Cavity and Paranasal Sinuses
D @$S(ONCOED>5:"PAR6^ONCSG0A",ONCOED=5:"PAR5^ONCSG0A",ONCOED>2:"PAR34^ONCSG0A",1:"PAR12^ONCSG0A")
Q
;
7 ;Major Salivary Glands
D @$S(ONCOED>5:"SAL6^ONCSG0A",ONCOED=5:"SAL5^ONCSG0A",ONCOED>2:"SAL34^ONCSG0A",1:"SAL12^ONCSG0A")
Q
;
8 ;Thyroid
D @$S(ONCOED>5:"THY6^ONCSG0A",1:"THY15^ONCSG0A")
Q
;
PART3 ;DIGESTIVE SYSTEM
;
9 ;Esophogus
D @$S(ONCOED=7:"ESO7^ONCSG1",ONCOED>4:"ESO56^ONCSG1",1:"ESO1234^ONCSG1")
Q
;
10 ;Stomach
D @$S(ONCOED>6:"STO7^ONCSG1",ONCOED>5:"STO6^ONCSG1",ONCOED>4:"STO5^ONCSG1",1:"STO34^ONCSG1")
Q
;
1 ;Small Intestine
I ONCOED<4 D Q
.W:$G(RESTAGE)="" !!?12,"NO AJCC TNM Coding Schema for this edition."
.S SG=88
D @$S(ONCOED=7:"SI7^ONCSG1",1:"SI456^ONCSG1")
Q
;
62 ;Appendix
D @$S(ONCOED>6:"APP7^ONCSG1",ONCOED>5:"COL6^ONCSG1",ONCOED>4:"COL5^ONCSG1",1:"COL34^ONCSG1")
Q
;
11 ;Colon and Rectum
D @$S(ONCOED>6:"COL7^ONCSG1",ONCOED>5:"COL6^ONCSG1",ONCOED>4:"COL5^ONCSG1",1:"COL34^ONCSG1")
Q
;
12 ;Anus
D AC^ONCSG1
Q
;
121 ;Gastrointestinal Stromal Tumor (Gist) 8935-8936
D GIST^ONCSG1
Q
;
122 ;Neuroendocrine Tumor 8246/
D NT^ONCSG1
Q
;
13 ;Liver
D @$S(ONCOED>6:"LIV7^ONCSG1A",ONCOED>5:"LIV6^ONCSG1A",ONCOED>4:"LIV5^ONCSG1A",1:"LIV34^ONCSG1A")
Q
;
14 ;Gallbladder
D @$S(ONCOED>6:"GB7^ONCSG1A",ONCOED>5:"GB6^ONCSG1A",ONCOED>4:"GB45^ONCSG1A",ONCOED=4:"GB45^ONCSG1A",1:"GB3^ONCSG1A")
Q
;
15 ;Extrahepatic Bile Ducts
;Perihilar Bile Ducts
I ONCOED>6,TX=67240 D PBD^ONCSG1A Q
D @$S(ONCOED=6:"EBD6^ONCSG1A",ONCOED=5:"EBD45^ONCSG1A",ONCOED=4:"EBD45^ONCSG1A",1:"EBD3^ONCSG1A")
Q
;
63 ;Distal Bile Duct
D DBD^ONCSG1A
Q
;
16 ;Ampulla of Vater
D @$S(ONCOED>5:"AV6^ONCSG1A",1:"AV345^ONCSG1A")
Q
;
17 ;Exocrine Pancreas
D @$S(ONCOED>5:"EXO6^ONCSG1A",ONCOED=5:"EXO5^ONCSG1A",1:"EXO34^ONCSG1A")
Q
;
PART4 ;THORAX
;
18 ;Lung
D @$S(ONCOED=7:"LUN7^ONCSG2",ONCOED>4:"LUN56^ONCSG2",1:"LUN34^ONCSG2")
Q
;
2 ;Pleural Mesothelioma
D @$S(ONCOED>5:"PM6^ONCSG2",1:"PM45^ONCSG2")
Q
;
PART5 ;MUSCULOSKELETAL SITES
;
19 ;Bone
D @$S(ONCOED>6:"BONE7^ONCSG2",ONCOED>5:"BONE6^ONCSG2",1:"BONE345^ONCSG2")
Q
;
20 ;Soft Tissue Sarcoma
D @$S(ONCOED>6:"STS7^ONCSG2",ONCOED>5:"STS6^ONCSG2",ONCOED=5:"STS5^ONCSG2",1:"STS34^ONCSG2")
Q
;
PART6 ;SKIN
;
21 ;Carcinoma of the Skin
D @$S(ONCOED>6:"CSC^ONCSG3",1:"CS^ONCSG3")
Q
;
22 ;Melanoma of the Skin
D @$S(ONCOED>5:"MMS6^ONCSG3",ONCOED=5:"MMS5^ONCSG3",ONCOED=4:"MMS4^ONCSG3",1:"MMS3^ONCSG3")
Q
;
PART7 ;BREAST
;
23 ;Breast
D @$S(ONCOED>6:"BRST7^ONCSG3",ONCOED>5:"BRST6^ONCSG3",1:"BRST345^ONCSG3")
Q
;
PART8 ;GYNECOLOGIC SITES
;
28 ;Vulva
D @$S(ONCOED>6:"VU7^ONCSG4",ONCOED>4:"VU56^ONCSG4",ONCOED=4:"VU4^ONCSG4",1:"VU3^ONCSG4")
Q
;
27 ;Vagina
D @$S(ONCOED>4:"VA567^ONCSG4",1:"VA34^ONCSG4")
Q
;
24 ;Cervix Uteri
D @$S(ONCOED>6:"CEU7^ONCSG4",ONCOED>4:"CEU56^ONCSG4",1:"CEU34^ONCSG4")
Q
;
25 ;Corpus Uteri
D @$S(ONCOED>6:"COU7^ONCSG4",ONCOED>5:"COU6^ONCSG4",ONCOED>3:"COU45^ONCSG4",1:"COU3^ONCSG4")
Q
;
26 ;Ovary and Primary Peritoneal Carcinoma
D @$S(ONCOED>6:"OVA6^ONCSG4A",1:"OVA345^ONCSG4A")
Q
;
53 ;Fallopian Tube
D @$S(ONCOED>6:"FT6^ONCSG4A",1:"FT5^ONCSG4A")
Q
;
54 ;Gestational Trophoblastic Tumors
D @$S(ONCOED>6:"GTT6^ONCSG4A",1:"GTT5^ONCSG4A")
Q
;
PART9 ;GENITOURINARY SITES
;
31 ;Penis
D @$S(ONCOED>6:"PEN7^ONCSG5",1:"PEN36^ONCSG5")
Q
;
29 ;Prostate
D @$S(ONCOED>6:"PROS7^ONCSG5",ONCOED>4:"PROS56^ONCSG5",ONCOED=4:"PROS4^ONCSG5",1:"PROS3^ONCSG5")
Q
;
30 ;Testis
D @$S(ONCOED>4:"TES56^ONCSG5",ONCOED=4:"TES4^ONCSG5",1:"TES3^ONCSG5")
Q
;
33 ;Kidney
D @$S(ONCOED>6:"KID7^ONCSG5",ONCOED>5:"KID6^ONCSG5",ONCOED=5:"KID5^ONCSG5",1:"KID34^ONCSG5")
Q
;
34 ;Renal Pelvis and Ureter
D @$S(ONCOED>3:"RPU456^ONCSG5A",1:"RPU3^ONCSG5A")
Q
;
32 ;Urinary Bladder
D @$S(ONCOED>4:"UB56^ONCSG5A",ONCOED=4:"UB4^ONCSG5A",1:"UB3^ONCSG5A")
Q
;
35 ;Urethra
D @$S(ONCOED>4:"U56^ONCSG5A",ONCOED=4:"U4^ONCSG5A",1:"U3^ONCSG5A")
Q
;
65 ;Adrenal
D ADREN^ONCSG5A
Q
;
PART10 ;OPHTHALMIC SITES
;
36 ;Carcinoma of the Eyelid
I ONCOED<7,$G(RESTAGE)="" W !!?12,"No stage grouping is presently recommended."
I ONCOED<7 S SG=88 Q
D CE7^ONCSG5A
Q
;
37 ;Malignant Melanoma of the Eyelid
I STGIND="C" D Q
.W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended."
.S SG=88
D MME34^ONCSG5A
Q
;
38 ;Carcinoma of the Conjunctiva
W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended."
S SG=88 Q
;
39 ;Malignant Melanoma of the Conjunctiva
W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended."
S SG=88 Q
;
40 ;Malignant Melanoma of the uvea
I TX=67693 D @$S(ONCOED>6:"MMU7^ONCSG5A",ONCOED>5:"MMU6^ONCSG5A",1:"CHO345^ONCSG5A") Q
I TX=67694 D @$S(ONCOED>6:"MMU7^ONCSG5A",1:"CBI345^ONCSG5A") Q
Q
;
41 ;Retinoblastoma
I ONCOED>6 D Q
.W:$G(RESTAGE)="" !!?12,"No stage grouping applies."
.S SG=88
D RET345^ONCSG5A
Q
;
42 ;Sarcoma of the Orbit
W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended."
S SG=88 Q
;
43 ;Carcinoma of the Lacrimal Gland
W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended."
S SG=88 Q
;
431 ;Ocular Adnexal Lymphoma
W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended."
S SG=88 Q
;
PART11 ;CENTRAL NERVOUS SYSTEM
;
44 ;Brain and Spinal Cord
D BSC34^ONCSG5A
Q
;
PART12 ;LYMPHOID NEOPLASMS
;
55 ;Mycosis fungoides
D @$S(ONCOED>6:"MF7^ONCSG5A",1:"MF6^ONCSG5A")
Q
;
CLEANUP ;Cleanup
K ONCOED,RESTAGE,SG,SP,STGIND,TX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOTN0 6518 printed Dec 13, 2024@02:25:55 Page 2
ONCOTN0 ;Hines OIFO/GWB - Automatic Staging ;12/03/10
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
PART2 ;HEAD AND NECK SITES
+1 ;
3 ;Lip and Oral Cavity
+1 DO @$SELECT(ONCOED>5:"LIP6^ONCSG0",ONCOED>4:"LIP5^ONCSG0",ONCOED>2:"LIP34^ONCSG0",1:"LIP12^ONCSG0")
+2 QUIT
+3 ;
4 ;Pharynx
+1 DO @$SELECT(ONCOED>6:"PHA7",ONCOED>5:"PHA6",ONCOED>4:"PHA5",ONCOED>2:"PHA34^ONCSG0",1:"PHA12^ONCSG0")
+2 QUIT
+3 ;
PHA5 ;Pharynx - 5th edition
+1 ;C11.0 Superior wall of nasopharynx
IF SP=67110
DO PHAN56^ONCSG0
QUIT
+2 IF '$TEST
DO PHAOH5^ONCSG0
QUIT
+3 ;
PHA6 ;Pharynx - 6th edition
+1 ;C11.0 Superior wall of nasopharynx
IF SP=67110
DO PHAN56^ONCSG0
QUIT
+2 IF '$TEST
DO PHAOH6^ONCSG0
QUIT
+3 ;
PHA7 ;Pharynx - 7th edition
+1 ;C11.0 Superior wall of nasopharynx
IF SP=67110
DO PHAN7^ONCSG0
QUIT
+2 IF '$TEST
DO PHAOH6^ONCSG0
QUIT
+3 ;
5 ;Larynx
+1 DO @$SELECT(ONCOED>5:"LAR6^ONCSG0",ONCOED=5:"LAR5^ONCSG0",ONCOED>2:"LAR34^ONCSG0",1:"LAR12^ONCSG0")
+2 QUIT
+3 ;
6 ;Nasal Cavity and Paranasal Sinuses
+1 DO @$SELECT(ONCOED>5:"PAR6^ONCSG0A",ONCOED=5:"PAR5^ONCSG0A",ONCOED>2:"PAR34^ONCSG0A",1:"PAR12^ONCSG0A")
+2 QUIT
+3 ;
7 ;Major Salivary Glands
+1 DO @$SELECT(ONCOED>5:"SAL6^ONCSG0A",ONCOED=5:"SAL5^ONCSG0A",ONCOED>2:"SAL34^ONCSG0A",1:"SAL12^ONCSG0A")
+2 QUIT
+3 ;
8 ;Thyroid
+1 DO @$SELECT(ONCOED>5:"THY6^ONCSG0A",1:"THY15^ONCSG0A")
+2 QUIT
+3 ;
PART3 ;DIGESTIVE SYSTEM
+1 ;
9 ;Esophogus
+1 DO @$SELECT(ONCOED=7:"ESO7^ONCSG1",ONCOED>4:"ESO56^ONCSG1",1:"ESO1234^ONCSG1")
+2 QUIT
+3 ;
10 ;Stomach
+1 DO @$SELECT(ONCOED>6:"STO7^ONCSG1",ONCOED>5:"STO6^ONCSG1",ONCOED>4:"STO5^ONCSG1",1:"STO34^ONCSG1")
+2 QUIT
+3 ;
1 ;Small Intestine
+1 IF ONCOED<4
Begin DoDot:1
+2 if $GET(RESTAGE)=""
WRITE !!?12,"NO AJCC TNM Coding Schema for this edition."
+3 SET SG=88
End DoDot:1
QUIT
+4 DO @$SELECT(ONCOED=7:"SI7^ONCSG1",1:"SI456^ONCSG1")
+5 QUIT
+6 ;
62 ;Appendix
+1 DO @$SELECT(ONCOED>6:"APP7^ONCSG1",ONCOED>5:"COL6^ONCSG1",ONCOED>4:"COL5^ONCSG1",1:"COL34^ONCSG1")
+2 QUIT
+3 ;
11 ;Colon and Rectum
+1 DO @$SELECT(ONCOED>6:"COL7^ONCSG1",ONCOED>5:"COL6^ONCSG1",ONCOED>4:"COL5^ONCSG1",1:"COL34^ONCSG1")
+2 QUIT
+3 ;
12 ;Anus
+1 DO AC^ONCSG1
+2 QUIT
+3 ;
121 ;Gastrointestinal Stromal Tumor (Gist) 8935-8936
+1 DO GIST^ONCSG1
+2 QUIT
+3 ;
122 ;Neuroendocrine Tumor 8246/
+1 DO NT^ONCSG1
+2 QUIT
+3 ;
13 ;Liver
+1 DO @$SELECT(ONCOED>6:"LIV7^ONCSG1A",ONCOED>5:"LIV6^ONCSG1A",ONCOED>4:"LIV5^ONCSG1A",1:"LIV34^ONCSG1A")
+2 QUIT
+3 ;
14 ;Gallbladder
+1 DO @$SELECT(ONCOED>6:"GB7^ONCSG1A",ONCOED>5:"GB6^ONCSG1A",ONCOED>4:"GB45^ONCSG1A",ONCOED=4:"GB45^ONCSG1A",1:"GB3^ONCSG1A")
+2 QUIT
+3 ;
15 ;Extrahepatic Bile Ducts
+1 ;Perihilar Bile Ducts
+2 IF ONCOED>6
IF TX=67240
DO PBD^ONCSG1A
QUIT
+3 DO @$SELECT(ONCOED=6:"EBD6^ONCSG1A",ONCOED=5:"EBD45^ONCSG1A",ONCOED=4:"EBD45^ONCSG1A",1:"EBD3^ONCSG1A")
+4 QUIT
+5 ;
63 ;Distal Bile Duct
+1 DO DBD^ONCSG1A
+2 QUIT
+3 ;
16 ;Ampulla of Vater
+1 DO @$SELECT(ONCOED>5:"AV6^ONCSG1A",1:"AV345^ONCSG1A")
+2 QUIT
+3 ;
17 ;Exocrine Pancreas
+1 DO @$SELECT(ONCOED>5:"EXO6^ONCSG1A",ONCOED=5:"EXO5^ONCSG1A",1:"EXO34^ONCSG1A")
+2 QUIT
+3 ;
PART4 ;THORAX
+1 ;
18 ;Lung
+1 DO @$SELECT(ONCOED=7:"LUN7^ONCSG2",ONCOED>4:"LUN56^ONCSG2",1:"LUN34^ONCSG2")
+2 QUIT
+3 ;
2 ;Pleural Mesothelioma
+1 DO @$SELECT(ONCOED>5:"PM6^ONCSG2",1:"PM45^ONCSG2")
+2 QUIT
+3 ;
PART5 ;MUSCULOSKELETAL SITES
+1 ;
19 ;Bone
+1 DO @$SELECT(ONCOED>6:"BONE7^ONCSG2",ONCOED>5:"BONE6^ONCSG2",1:"BONE345^ONCSG2")
+2 QUIT
+3 ;
20 ;Soft Tissue Sarcoma
+1 DO @$SELECT(ONCOED>6:"STS7^ONCSG2",ONCOED>5:"STS6^ONCSG2",ONCOED=5:"STS5^ONCSG2",1:"STS34^ONCSG2")
+2 QUIT
+3 ;
PART6 ;SKIN
+1 ;
21 ;Carcinoma of the Skin
+1 DO @$SELECT(ONCOED>6:"CSC^ONCSG3",1:"CS^ONCSG3")
+2 QUIT
+3 ;
22 ;Melanoma of the Skin
+1 DO @$SELECT(ONCOED>5:"MMS6^ONCSG3",ONCOED=5:"MMS5^ONCSG3",ONCOED=4:"MMS4^ONCSG3",1:"MMS3^ONCSG3")
+2 QUIT
+3 ;
PART7 ;BREAST
+1 ;
23 ;Breast
+1 DO @$SELECT(ONCOED>6:"BRST7^ONCSG3",ONCOED>5:"BRST6^ONCSG3",1:"BRST345^ONCSG3")
+2 QUIT
+3 ;
PART8 ;GYNECOLOGIC SITES
+1 ;
28 ;Vulva
+1 DO @$SELECT(ONCOED>6:"VU7^ONCSG4",ONCOED>4:"VU56^ONCSG4",ONCOED=4:"VU4^ONCSG4",1:"VU3^ONCSG4")
+2 QUIT
+3 ;
27 ;Vagina
+1 DO @$SELECT(ONCOED>4:"VA567^ONCSG4",1:"VA34^ONCSG4")
+2 QUIT
+3 ;
24 ;Cervix Uteri
+1 DO @$SELECT(ONCOED>6:"CEU7^ONCSG4",ONCOED>4:"CEU56^ONCSG4",1:"CEU34^ONCSG4")
+2 QUIT
+3 ;
25 ;Corpus Uteri
+1 DO @$SELECT(ONCOED>6:"COU7^ONCSG4",ONCOED>5:"COU6^ONCSG4",ONCOED>3:"COU45^ONCSG4",1:"COU3^ONCSG4")
+2 QUIT
+3 ;
26 ;Ovary and Primary Peritoneal Carcinoma
+1 DO @$SELECT(ONCOED>6:"OVA6^ONCSG4A",1:"OVA345^ONCSG4A")
+2 QUIT
+3 ;
53 ;Fallopian Tube
+1 DO @$SELECT(ONCOED>6:"FT6^ONCSG4A",1:"FT5^ONCSG4A")
+2 QUIT
+3 ;
54 ;Gestational Trophoblastic Tumors
+1 DO @$SELECT(ONCOED>6:"GTT6^ONCSG4A",1:"GTT5^ONCSG4A")
+2 QUIT
+3 ;
PART9 ;GENITOURINARY SITES
+1 ;
31 ;Penis
+1 DO @$SELECT(ONCOED>6:"PEN7^ONCSG5",1:"PEN36^ONCSG5")
+2 QUIT
+3 ;
29 ;Prostate
+1 DO @$SELECT(ONCOED>6:"PROS7^ONCSG5",ONCOED>4:"PROS56^ONCSG5",ONCOED=4:"PROS4^ONCSG5",1:"PROS3^ONCSG5")
+2 QUIT
+3 ;
30 ;Testis
+1 DO @$SELECT(ONCOED>4:"TES56^ONCSG5",ONCOED=4:"TES4^ONCSG5",1:"TES3^ONCSG5")
+2 QUIT
+3 ;
33 ;Kidney
+1 DO @$SELECT(ONCOED>6:"KID7^ONCSG5",ONCOED>5:"KID6^ONCSG5",ONCOED=5:"KID5^ONCSG5",1:"KID34^ONCSG5")
+2 QUIT
+3 ;
34 ;Renal Pelvis and Ureter
+1 DO @$SELECT(ONCOED>3:"RPU456^ONCSG5A",1:"RPU3^ONCSG5A")
+2 QUIT
+3 ;
32 ;Urinary Bladder
+1 DO @$SELECT(ONCOED>4:"UB56^ONCSG5A",ONCOED=4:"UB4^ONCSG5A",1:"UB3^ONCSG5A")
+2 QUIT
+3 ;
35 ;Urethra
+1 DO @$SELECT(ONCOED>4:"U56^ONCSG5A",ONCOED=4:"U4^ONCSG5A",1:"U3^ONCSG5A")
+2 QUIT
+3 ;
65 ;Adrenal
+1 DO ADREN^ONCSG5A
+2 QUIT
+3 ;
PART10 ;OPHTHALMIC SITES
+1 ;
36 ;Carcinoma of the Eyelid
+1 IF ONCOED<7
IF $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+2 IF ONCOED<7
SET SG=88
QUIT
+3 DO CE7^ONCSG5A
+4 QUIT
+5 ;
37 ;Malignant Melanoma of the Eyelid
+1 IF STGIND="C"
Begin DoDot:1
+2 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+3 SET SG=88
End DoDot:1
QUIT
+4 DO MME34^ONCSG5A
+5 QUIT
+6 ;
38 ;Carcinoma of the Conjunctiva
+1 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+2 SET SG=88
QUIT
+3 ;
39 ;Malignant Melanoma of the Conjunctiva
+1 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+2 SET SG=88
QUIT
+3 ;
40 ;Malignant Melanoma of the uvea
+1 IF TX=67693
DO @$SELECT(ONCOED>6:"MMU7^ONCSG5A",ONCOED>5:"MMU6^ONCSG5A",1:"CHO345^ONCSG5A")
QUIT
+2 IF TX=67694
DO @$SELECT(ONCOED>6:"MMU7^ONCSG5A",1:"CBI345^ONCSG5A")
QUIT
+3 QUIT
+4 ;
41 ;Retinoblastoma
+1 IF ONCOED>6
Begin DoDot:1
+2 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping applies."
+3 SET SG=88
End DoDot:1
QUIT
+4 DO RET345^ONCSG5A
+5 QUIT
+6 ;
42 ;Sarcoma of the Orbit
+1 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+2 SET SG=88
QUIT
+3 ;
43 ;Carcinoma of the Lacrimal Gland
+1 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+2 SET SG=88
QUIT
+3 ;
431 ;Ocular Adnexal Lymphoma
+1 if $GET(RESTAGE)=""
WRITE !!?12,"No stage grouping is presently recommended."
+2 SET SG=88
QUIT
+3 ;
PART11 ;CENTRAL NERVOUS SYSTEM
+1 ;
44 ;Brain and Spinal Cord
+1 DO BSC34^ONCSG5A
+2 QUIT
+3 ;
PART12 ;LYMPHOID NEOPLASMS
+1 ;
55 ;Mycosis fungoides
+1 DO @$SELECT(ONCOED>6:"MF7^ONCSG5A",1:"MF6^ONCSG5A")
+2 QUIT
+3 ;
CLEANUP ;Cleanup
+1 KILL ONCOED,RESTAGE,SG,SP,STGIND,TX
