ONCSG5A ;Hines OIFO/GWB - Automatic Staging Tables ;10/28/10
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
RPU3 ;Renal Pelvis and Ureter - 3rd edition
S TNM=T_N_M D K TNM Q
.I TNM="IS00" S SG=0 Q
.I TNM="A00" S SG=0 Q
.I TNM=100 S SG=1 Q
.I TNM=200 S SG=2 Q
.I TNM=300 S SG=3 Q
.I TNM=400 S SG=4 Q
.I N=1,M=0 S SG=4 Q
.I N=2,M=0 S SG=4 Q
.I N=3,M=0 S SG=4 Q
.I M=1 S SG=4 Q
;
RPU456 ;Renal Pelvis and Ureter - 4th, 5th, 6th and 7th editions
S TNM=T_N_M D K TNM Q
.I TNM="A00" S SG="0A" Q ;0a Ta N0 M0
.I TNM="IS00" S SG="0IS" Q ;0is Tis N0 M0
.I TNM=100 S SG=1 Q ;I T1 N0 M0
.I TNM=200 S SG=2 Q ;II T2 N0 M0
.I TNM=300 S SG=3 Q ;III T3 N0 M0
.I TNM=400 S SG=4 Q ;IV T4 N0 M0
.I N=1,M=0 S SG=4 Q ; Any T N1 M0
.I N=2,M=0 S SG=4 Q ; Any T N2 M0
.I N=3,M=0 S SG=4 Q ; Any T N3 M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
UB3 ;Urinary bladder - 3rd edition
I (M=1)!(N=1)!(N=2)!(N=3) S SG=4
E I N=0,M=0 S SG=$S(T="IS":0,T="A":0,T=1:1,T=2:2,T[3:3,T=4:4,1:99)
Q
;
UB4 ;Urinary bladder - 4th edition
I M!(N=1)!(N=2)!(N=3)!(T="4B") S SG=4
E I T="A",N=0,M=0 S SG="0A"
E I T="IS",N=0,M=0 S SG="0IS"
E I T[1,N=0,M=0 S SG=1
E I (T[2)!(T["3A"),N=0,M=0 S SG=2
E I (T["3B")!(T["4A"),N=0,M=0 S SG=3
E S SG=99
Q
;
UB56 ;Urinary bladder - 5th and 6th editions
S TNM=T_N_M D K TNM Q
.I TNM="A00" S SG="0A" Q ;0a Ta N0 M0
.I TNM="IS00" S SG="0IS" Q ;0is Tis N0 M0
.I TNM=100 S SG=1 Q ;I T1 N0 M0
.I TNM=200 S SG=2 Q ;II T2 N0 M0
.I TNM="2A00" S SG=2 Q ; T2a N0 M0
.I TNM="2B00" S SG=2 Q ; T2b N0 M0
.I TNM=300 S SG=3 Q ;III T3 N0 M0
.I TNM="3A00" S SG=3 Q ; T3a N0 M0
.I TNM="3B00" S SG=3 Q ; T3b N0 M0
.I TNM="4A00" S SG=3 Q ; T4a N0 M0
.I TNM="4B00" S SG=4 Q ;IV T4b N0 M0
.I N=1,M=0 S SG=4 Q ; Any T N1 M0
.I N=2,M=0 S SG=4 Q ; Any T N2 M0
.I N=3,M=0 S SG=4 Q ; Any T N3 M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
U3 ;Urethra - 3rd edition
S SG=99
I M=1 S SG=4
E I M=0 D
.I (N=2)!(N=3) S SG=4
.E I N=1 S SG=$S(T=4:4,(T=1)!(T=2)!(T=3):3,1:9)
.E I N=0 S SG=+T
Q
;
U4 ;Urethra - 4th edition
K SG
I M=1 S SG=4
E I M=0 D UR4NM
I '$D(SG) S SG=99
Q
UR4NM I N=0 S SG=T
E I N=1 D
.I (T=1)!(T=2)!(T=3) S SG=3
.E I T=4 S SG=4
E I (N=2)!(N=3) S SG=4
Q
;
U56 ;Urethra - 5th and 6th editions
S TNM=T_N_M D K TNM Q
.I TNM="A00" S SG="0A" Q ;0a Ta N0 M0
.I TNM="IS00" S SG="0IS" Q ;0is Tis N0 M0
.I TNM="IS PU00" S SG="0IS" Q ; Tis pu N0 M0
.I TNM="IS PD00" S SG="0IS" Q ; Tis pd N0 M0
.I TNM=100 S SG=1 Q ;I T1 N0 M0
.I TNM=200 S SG=2 Q ;II T2 N0 M0
.I TNM=110 S SG=3 Q ;III T1 N1 M0
.I TNM=210 S SG=3 Q ; T2 N1 M0
.I TNM=300 S SG=3 Q ; T3 N0 M0
.I TNM=310 S SG=3 Q ; T3 N1 M0
.I TNM=400 S SG=4 Q ;IV T4 N0 M0
.I TNM=410 S SG=4 Q ; T4 N1 M0
.I N=2,M=0 S SG=4 Q ; Any T N2 M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
ADREN ;Adrenal - 7th editions
S TNM=T_N_M D K TNM Q
.I TNM=100 S SG=1 Q ;I T1 N0 M0
.I TNM=200 S SG=2 Q ;II T2 N0 M0
.I TNM=110 S SG=3 Q ;III T1 N1 M0
.I TNM=210 S SG=3 Q ; T2 N1 M0
.I TNM=300 S SG=3 Q ; T3 N0 M0
.I TNM=310 S SG=3 Q ;IV T3 N1 M0
.I TNM=400 S SG=4 Q ; T4 N0 M0
.I TNM=410 S SG=4 Q ; T4 N1 M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
;OPHTHALMIC SITES
;
CE7 ;Carcinoma of the Eyelid - 7th edition
S TNM=T_N_M D K TNM Q
.I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
.I TNM=100 S SG="1A" Q ;IA T1 N0 M0
.I TNM="2A00" S SG="1B" Q ;IB T2a N0 M0
.I TNM="2B00" S SG="1C" Q ;IC T2b N0 M0
.I TNM="3A00" S SG=2 Q ;II T3a N0 M0
.I TNM="3B00" S SG="3A" Q ;IIIA T3b N0 M0
.I N=1,M=0 S SG="3B" Q ;IIIB Any T N1 M0
.I T=4,M=0 S SG="3C" Q ;IIIC T4 Any N M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
MME34 ;Malignant Melanoma of the Eyelid - 3rd and 4th editions
S TNM=$E(T,1)_$E(N,1)_$E(M,1) D K TNM Q
.I TNM=100 S SG=1 Q ;I T1 N0 M0
.I TNM=200 S SG=1 Q ; T2 N0 M0
.I TNM=300 S SG=2 Q ;II T3 N0 M0
.I TNM=400 S SG=3 Q ;III T4 N0 M0
.I N=1,M=0 S SG=3 Q ; Any T N1 M0
.I N=2,M=0 S SG=3 Q ; Any T N2 M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
;Malignant Melanoma of the Uvea - 3rd, 4th and 5th edtions
CHO345 ;Choroid
I M=1 S SG="4B"
E I M=0 D
.I N=1 S SG="4B"
.E I N=0 S SG=$S(T=4:"4A",T=3:3,T=2:2,T="1B":"1B",T="1A":"1A",1:99)
Q
;
CBI345 ;Ciliary Body and iris
I M=1 S SG="4B"
E I M=0 D
.I N=1 S SG="4B"
.E I N=0 S SG=$S(T=4:"4A",T=3:3,T=2:2,T=1:1,1:99)
Q
;
MMU6 ;Malignant Melanoma of the Uvea - 6th edtion
S TNM=T_N_M D K TNM Q
.I TNM=100 S SG=1 Q ;I T1 N0 M0
.I TNM="1A00" S SG=1 Q ; T1a N0 M0
.I TNM="1B00" S SG=1 Q ; T1b N0 M0
.I TNM="1C00" S SG=1 Q ; T1c N0 M0
.I TNM=200 S SG=2 Q ;II T2 N0 M0
.I TNM="2A00" S SG=2 Q ; T2a N0 M0
.I TNM="2B00" S SG=2 Q ; T2b N0 M0
.I TNM="2C00" S SG=2 Q ; T2c N0 M0
.I TNM=300 S SG=3 Q ;III T3 N0 M0
.I TNM="3A00" S SG=3 Q ; T3a N0 M0
.I TNM=400 S SG=3 Q ; T4 N0 M0
.I N=1,M=0 S SG=4 Q ;IV Any T N1 M0
.I M=1 S SG=4 Q ; Any T Any N M1
;
MMU7 ;Malignant Melanoma of the Uvea - 7th edtion
S TNM=T_N_M D K TNM Q
.I TNM="1A00" S SG=1 Q ;I T1a N0 M0
.I TNM="1B00" S SG="2A" Q ;IIA T1b N0 M0
.I TNM="1C00" S SG="2A" Q ; T1c N0 M0
.I TNM="1D00" S SG="2A" Q ; T1d N0 M0
.I TNM="2A00" S SG="2A" Q ; T2a N0 M0
.I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0
.I TNM="3A00" S SG="2B" Q ; T3a N0 M0
.I TNM="2C00" S SG="3A" Q ;IIIA T2c N0 M0
.I TNM="2D00" S SG="3A" Q ; T2d N0 M0
.I TNM="3B00" S SG="3A" Q ; T3b N0 M0
.I TNM="3C00" S SG="3A" Q ; T3c N0 M0
.I TNM="4A00" S SG="3A" Q ; T4a N0 M0
.I TNM="3D00" S SG="3B" Q ;IIIB T3d N0 M0
.I TNM="4B00" S SG="3B" Q ; T4b N0 M0
.I TNM="4C00" S SG="3B" Q ; T4c N0 M0
.I TNM="4D00" S SG="3C" Q ;IIIC T4d N0 M0
.I TNM="4E00" S SG="3C" Q ; T4e N0 M0
.I N=1,M=0 S SG=4 Q ;IV Any T N1 M0
.I $E(M,1)=1 S SG=4 Q ; Any T Any N M1a-c
;
RET345 ;Retinoblastoma - 3rd, 4th and 5th editions
S SG=99
I M=1 S SG=4
E I M=0 D
.I N=1 S SG=4
.E I N=0 S SG=$S(T=1:"1A",T=2:"1B",T="3A":"2A",T="3B":"2B",T="3C":"2C",T="4A":"3A",T="4B":"3B",1:99)
Q
;
;CENTRAL NERVOUS SYSTEM
;
BSC34 ;Brain and Spincal Cord - 3rd and 4th editions
S SG=99
I M=1 S SG=4
E I M=0 D BNNM
Q
BNNM I G=4 S SG=4
E I (G=1)!(G=2)!(G=3) D
.I T=4 S SG=4
.E I (T=2)!(T=3) S SG=G_"B"
.E I T=1 S SG=G_"A"
Q
;
;LYMPHOID NEOPLASMS
;
MF6 ;Mycosis fungoides - 6th edition
S TNM=T_N_M D K TNM Q
.I TNM=100 S SG="1A" Q ;IA T1 N0 M0
.I TNM=200 S SG="1B" Q ;IB T2 N0 M0
.I TNM=110 S SG="2A" Q ;IIA T1 N1 M0
.I TNM=210 S SG="2A" Q ; T2 N1 M0
.I TNM=300 S SG="2B" Q ;IIB T3 N0 M0
.I TNM=310 S SG="2B" Q ; T3 N1 M0
.I TNM=400 S SG="3A" Q ;IIIA T4 N0 M0
.I TNM=410 S SG="3B" Q ;IIIB T4 N1 M0
.I N=2,M=0 S SG="4A" Q ;IVA Any T N2 M0
.I N=3,M=0 S SG="4A" Q ; Any T N3 M0
.I M=1 S SG="4B" Q ;IVB Any T Any N M1
;
MF7 ;Primary Cutaneous Lymphomas
;Mycosis fungoides and Sezary syndrome - 7th edition
N PBI
S PBI=$P($G(^ONCO(165.5,D0,24)),U,5)
I PBI="" W !!?12,"PERIPHERAL BLOOD INVOLVEMENT is required for 7th Edition staging." Q
S PBI=$E(PBI,2)
S N=$E(N,1)
S TNM=T_$E(N,1)_M_PBI D K TNM Q
.I TNM=1000 S SG="1A" Q ;IA T1 N0 M0 B0
.I TNM=1001 S SG="1A" Q ; T1 N0 M0 B1
.I TNM=2000 S SG="1B" Q ;IB T2 N0 M0 B0
.I TNM=2001 S SG="1B" Q ; T2 N0 M0 B1
.I T<3,N<3,M=0,PBI<2 S SG="2A" Q ;IIA T1,2 N1,2 M0 B0,1
.I T=3,N<3,M=0,PBI<2 S SG="2B" Q ;IIB T3 N0-2 M0 B0,1
.I T=4,N<3,M=0,PBI=0 S SG="3A" Q ;IIIA T4 N0-2 M0 B0
.I T=4,N<3,M=0,PBI=1 S SG="3B" Q ;IIIB T4 N0-2 M0 B1
.I T'="X",N<3,M=0,PBI=2 S SG="4A1" Q ;IVA1 T1-4 N0-2 M0 B2
.I T'="X",N=3,M=0 S SG="4A2" Q ;IVA2 T1-4 N3 M0 Any B
.I T'="X",N'="X",M=1 S SG="4B" Q ;IVB T1-4 N0-3 M1 Any B
;
CLEANUP ;Cleanup
K D0,G,M,N,T
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSG5A 9508 printed Dec 13, 2024@02:28:26 Page 2
ONCSG5A ;Hines OIFO/GWB - Automatic Staging Tables ;10/28/10
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
RPU3 ;Renal Pelvis and Ureter - 3rd edition
+1 SET TNM=T_N_M
Begin DoDot:1
+2 IF TNM="IS00"
SET SG=0
QUIT
+3 IF TNM="A00"
SET SG=0
QUIT
+4 IF TNM=100
SET SG=1
QUIT
+5 IF TNM=200
SET SG=2
QUIT
+6 IF TNM=300
SET SG=3
QUIT
+7 IF TNM=400
SET SG=4
QUIT
+8 IF N=1
IF M=0
SET SG=4
QUIT
+9 IF N=2
IF M=0
SET SG=4
QUIT
+10 IF N=3
IF M=0
SET SG=4
QUIT
+11 IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+12 ;
RPU456 ;Renal Pelvis and Ureter - 4th, 5th, 6th and 7th editions
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;0a Ta N0 M0
IF TNM="A00"
SET SG="0A"
QUIT
+3 ;0is Tis N0 M0
IF TNM="IS00"
SET SG="0IS"
QUIT
+4 ;I T1 N0 M0
IF TNM=100
SET SG=1
QUIT
+5 ;II T2 N0 M0
IF TNM=200
SET SG=2
QUIT
+6 ;III T3 N0 M0
IF TNM=300
SET SG=3
QUIT
+7 ;IV T4 N0 M0
IF TNM=400
SET SG=4
QUIT
+8 ; Any T N1 M0
IF N=1
IF M=0
SET SG=4
QUIT
+9 ; Any T N2 M0
IF N=2
IF M=0
SET SG=4
QUIT
+10 ; Any T N3 M0
IF N=3
IF M=0
SET SG=4
QUIT
+11 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+12 ;
UB3 ;Urinary bladder - 3rd edition
+1 IF (M=1)!(N=1)!(N=2)!(N=3)
SET SG=4
+2 IF '$TEST
IF N=0
IF M=0
SET SG=$SELECT(T="IS":0,T="A":0,T=1:1,T=2:2,T[3:3,T=4:4,1:99)
+3 QUIT
+4 ;
UB4 ;Urinary bladder - 4th edition
+1 IF M!(N=1)!(N=2)!(N=3)!(T="4B")
SET SG=4
+2 IF '$TEST
IF T="A"
IF N=0
IF M=0
SET SG="0A"
+3 IF '$TEST
IF T="IS"
IF N=0
IF M=0
SET SG="0IS"
+4 IF '$TEST
IF T[1
IF N=0
IF M=0
SET SG=1
+5 IF '$TEST
IF (T[2)!(T["3A")
IF N=0
IF M=0
SET SG=2
+6 IF '$TEST
IF (T["3B")!(T["4A")
IF N=0
IF M=0
SET SG=3
+7 IF '$TEST
SET SG=99
+8 QUIT
+9 ;
UB56 ;Urinary bladder - 5th and 6th editions
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;0a Ta N0 M0
IF TNM="A00"
SET SG="0A"
QUIT
+3 ;0is Tis N0 M0
IF TNM="IS00"
SET SG="0IS"
QUIT
+4 ;I T1 N0 M0
IF TNM=100
SET SG=1
QUIT
+5 ;II T2 N0 M0
IF TNM=200
SET SG=2
QUIT
+6 ; T2a N0 M0
IF TNM="2A00"
SET SG=2
QUIT
+7 ; T2b N0 M0
IF TNM="2B00"
SET SG=2
QUIT
+8 ;III T3 N0 M0
IF TNM=300
SET SG=3
QUIT
+9 ; T3a N0 M0
IF TNM="3A00"
SET SG=3
QUIT
+10 ; T3b N0 M0
IF TNM="3B00"
SET SG=3
QUIT
+11 ; T4a N0 M0
IF TNM="4A00"
SET SG=3
QUIT
+12 ;IV T4b N0 M0
IF TNM="4B00"
SET SG=4
QUIT
+13 ; Any T N1 M0
IF N=1
IF M=0
SET SG=4
QUIT
+14 ; Any T N2 M0
IF N=2
IF M=0
SET SG=4
QUIT
+15 ; Any T N3 M0
IF N=3
IF M=0
SET SG=4
QUIT
+16 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+17 ;
U3 ;Urethra - 3rd edition
+1 SET SG=99
+2 IF M=1
SET SG=4
+3 IF '$TEST
IF M=0
Begin DoDot:1
+4 IF (N=2)!(N=3)
SET SG=4
+5 IF '$TEST
IF N=1
SET SG=$SELECT(T=4:4,(T=1)!(T=2)!(T=3):3,1:9)
+6 IF '$TEST
IF N=0
SET SG=+T
End DoDot:1
+7 QUIT
+8 ;
U4 ;Urethra - 4th edition
+1 KILL SG
+2 IF M=1
SET SG=4
+3 IF '$TEST
IF M=0
DO UR4NM
+4 IF '$DATA(SG)
SET SG=99
+5 QUIT
UR4NM IF N=0
SET SG=T
+1 IF '$TEST
IF N=1
Begin DoDot:1
+2 IF (T=1)!(T=2)!(T=3)
SET SG=3
+3 IF '$TEST
IF T=4
SET SG=4
End DoDot:1
+4 IF '$TEST
IF (N=2)!(N=3)
SET SG=4
+5 QUIT
+6 ;
U56 ;Urethra - 5th and 6th editions
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;0a Ta N0 M0
IF TNM="A00"
SET SG="0A"
QUIT
+3 ;0is Tis N0 M0
IF TNM="IS00"
SET SG="0IS"
QUIT
+4 ; Tis pu N0 M0
IF TNM="IS PU00"
SET SG="0IS"
QUIT
+5 ; Tis pd N0 M0
IF TNM="IS PD00"
SET SG="0IS"
QUIT
+6 ;I T1 N0 M0
IF TNM=100
SET SG=1
QUIT
+7 ;II T2 N0 M0
IF TNM=200
SET SG=2
QUIT
+8 ;III T1 N1 M0
IF TNM=110
SET SG=3
QUIT
+9 ; T2 N1 M0
IF TNM=210
SET SG=3
QUIT
+10 ; T3 N0 M0
IF TNM=300
SET SG=3
QUIT
+11 ; T3 N1 M0
IF TNM=310
SET SG=3
QUIT
+12 ;IV T4 N0 M0
IF TNM=400
SET SG=4
QUIT
+13 ; T4 N1 M0
IF TNM=410
SET SG=4
QUIT
+14 ; Any T N2 M0
IF N=2
IF M=0
SET SG=4
QUIT
+15 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+16 ;
ADREN ;Adrenal - 7th editions
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;I T1 N0 M0
IF TNM=100
SET SG=1
QUIT
+3 ;II T2 N0 M0
IF TNM=200
SET SG=2
QUIT
+4 ;III T1 N1 M0
IF TNM=110
SET SG=3
QUIT
+5 ; T2 N1 M0
IF TNM=210
SET SG=3
QUIT
+6 ; T3 N0 M0
IF TNM=300
SET SG=3
QUIT
+7 ;IV T3 N1 M0
IF TNM=310
SET SG=3
QUIT
+8 ; T4 N0 M0
IF TNM=400
SET SG=4
QUIT
+9 ; T4 N1 M0
IF TNM=410
SET SG=4
QUIT
+10 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+11 ;
+12 ;OPHTHALMIC SITES
+13 ;
CE7 ;Carcinoma of the Eyelid - 7th edition
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;0 Tis N0 M0
IF TNM="IS00"
SET SG=0
QUIT
+3 ;IA T1 N0 M0
IF TNM=100
SET SG="1A"
QUIT
+4 ;IB T2a N0 M0
IF TNM="2A00"
SET SG="1B"
QUIT
+5 ;IC T2b N0 M0
IF TNM="2B00"
SET SG="1C"
QUIT
+6 ;II T3a N0 M0
IF TNM="3A00"
SET SG=2
QUIT
+7 ;IIIA T3b N0 M0
IF TNM="3B00"
SET SG="3A"
QUIT
+8 ;IIIB Any T N1 M0
IF N=1
IF M=0
SET SG="3B"
QUIT
+9 ;IIIC T4 Any N M0
IF T=4
IF M=0
SET SG="3C"
QUIT
+10 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+11 ;
MME34 ;Malignant Melanoma of the Eyelid - 3rd and 4th editions
+1 SET TNM=$EXTRACT(T,1)_$EXTRACT(N,1)_$EXTRACT(M,1)
Begin DoDot:1
+2 ;I T1 N0 M0
IF TNM=100
SET SG=1
QUIT
+3 ; T2 N0 M0
IF TNM=200
SET SG=1
QUIT
+4 ;II T3 N0 M0
IF TNM=300
SET SG=2
QUIT
+5 ;III T4 N0 M0
IF TNM=400
SET SG=3
QUIT
+6 ; Any T N1 M0
IF N=1
IF M=0
SET SG=3
QUIT
+7 ; Any T N2 M0
IF N=2
IF M=0
SET SG=3
QUIT
+8 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+9 ;
+10 ;Malignant Melanoma of the Uvea - 3rd, 4th and 5th edtions
CHO345 ;Choroid
+1 IF M=1
SET SG="4B"
+2 IF '$TEST
IF M=0
Begin DoDot:1
+3 IF N=1
SET SG="4B"
+4 IF '$TEST
IF N=0
SET SG=$SELECT(T=4:"4A",T=3:3,T=2:2,T="1B":"1B",T="1A":"1A",1:99)
End DoDot:1
+5 QUIT
+6 ;
CBI345 ;Ciliary Body and iris
+1 IF M=1
SET SG="4B"
+2 IF '$TEST
IF M=0
Begin DoDot:1
+3 IF N=1
SET SG="4B"
+4 IF '$TEST
IF N=0
SET SG=$SELECT(T=4:"4A",T=3:3,T=2:2,T=1:1,1:99)
End DoDot:1
+5 QUIT
+6 ;
MMU6 ;Malignant Melanoma of the Uvea - 6th edtion
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;I T1 N0 M0
IF TNM=100
SET SG=1
QUIT
+3 ; T1a N0 M0
IF TNM="1A00"
SET SG=1
QUIT
+4 ; T1b N0 M0
IF TNM="1B00"
SET SG=1
QUIT
+5 ; T1c N0 M0
IF TNM="1C00"
SET SG=1
QUIT
+6 ;II T2 N0 M0
IF TNM=200
SET SG=2
QUIT
+7 ; T2a N0 M0
IF TNM="2A00"
SET SG=2
QUIT
+8 ; T2b N0 M0
IF TNM="2B00"
SET SG=2
QUIT
+9 ; T2c N0 M0
IF TNM="2C00"
SET SG=2
QUIT
+10 ;III T3 N0 M0
IF TNM=300
SET SG=3
QUIT
+11 ; T3a N0 M0
IF TNM="3A00"
SET SG=3
QUIT
+12 ; T4 N0 M0
IF TNM=400
SET SG=3
QUIT
+13 ;IV Any T N1 M0
IF N=1
IF M=0
SET SG=4
QUIT
+14 ; Any T Any N M1
IF M=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+15 ;
MMU7 ;Malignant Melanoma of the Uvea - 7th edtion
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;I T1a N0 M0
IF TNM="1A00"
SET SG=1
QUIT
+3 ;IIA T1b N0 M0
IF TNM="1B00"
SET SG="2A"
QUIT
+4 ; T1c N0 M0
IF TNM="1C00"
SET SG="2A"
QUIT
+5 ; T1d N0 M0
IF TNM="1D00"
SET SG="2A"
QUIT
+6 ; T2a N0 M0
IF TNM="2A00"
SET SG="2A"
QUIT
+7 ;IIB T2b N0 M0
IF TNM="2B00"
SET SG="2B"
QUIT
+8 ; T3a N0 M0
IF TNM="3A00"
SET SG="2B"
QUIT
+9 ;IIIA T2c N0 M0
IF TNM="2C00"
SET SG="3A"
QUIT
+10 ; T2d N0 M0
IF TNM="2D00"
SET SG="3A"
QUIT
+11 ; T3b N0 M0
IF TNM="3B00"
SET SG="3A"
QUIT
+12 ; T3c N0 M0
IF TNM="3C00"
SET SG="3A"
QUIT
+13 ; T4a N0 M0
IF TNM="4A00"
SET SG="3A"
QUIT
+14 ;IIIB T3d N0 M0
IF TNM="3D00"
SET SG="3B"
QUIT
+15 ; T4b N0 M0
IF TNM="4B00"
SET SG="3B"
QUIT
+16 ; T4c N0 M0
IF TNM="4C00"
SET SG="3B"
QUIT
+17 ;IIIC T4d N0 M0
IF TNM="4D00"
SET SG="3C"
QUIT
+18 ; T4e N0 M0
IF TNM="4E00"
SET SG="3C"
QUIT
+19 ;IV Any T N1 M0
IF N=1
IF M=0
SET SG=4
QUIT
+20 ; Any T Any N M1a-c
IF $EXTRACT(M,1)=1
SET SG=4
QUIT
End DoDot:1
KILL TNM
QUIT
+21 ;
RET345 ;Retinoblastoma - 3rd, 4th and 5th editions
+1 SET SG=99
+2 IF M=1
SET SG=4
+3 IF '$TEST
IF M=0
Begin DoDot:1
+4 IF N=1
SET SG=4
+5 IF '$TEST
IF N=0
SET SG=$SELECT(T=1:"1A",T=2:"1B",T="3A":"2A",T="3B":"2B",T="3C":"2C",T="4A":"3A",T="4B":"3B",1:99)
End DoDot:1
+6 QUIT
+7 ;
+8 ;CENTRAL NERVOUS SYSTEM
+9 ;
BSC34 ;Brain and Spincal Cord - 3rd and 4th editions
+1 SET SG=99
+2 IF M=1
SET SG=4
+3 IF '$TEST
IF M=0
DO BNNM
+4 QUIT
BNNM IF G=4
SET SG=4
+1 IF '$TEST
IF (G=1)!(G=2)!(G=3)
Begin DoDot:1
+2 IF T=4
SET SG=4
+3 IF '$TEST
IF (T=2)!(T=3)
SET SG=G_"B"
+4 IF '$TEST
IF T=1
SET SG=G_"A"
End DoDot:1
+5 QUIT
+6 ;
+7 ;LYMPHOID NEOPLASMS
+8 ;
MF6 ;Mycosis fungoides - 6th edition
+1 SET TNM=T_N_M
Begin DoDot:1
+2 ;IA T1 N0 M0
IF TNM=100
SET SG="1A"
QUIT
+3 ;IB T2 N0 M0
IF TNM=200
SET SG="1B"
QUIT
+4 ;IIA T1 N1 M0
IF TNM=110
SET SG="2A"
QUIT
+5 ; T2 N1 M0
IF TNM=210
SET SG="2A"
QUIT
+6 ;IIB T3 N0 M0
IF TNM=300
SET SG="2B"
QUIT
+7 ; T3 N1 M0
IF TNM=310
SET SG="2B"
QUIT
+8 ;IIIA T4 N0 M0
IF TNM=400
SET SG="3A"
QUIT
+9 ;IIIB T4 N1 M0
IF TNM=410
SET SG="3B"
QUIT
+10 ;IVA Any T N2 M0
IF N=2
IF M=0
SET SG="4A"
QUIT
+11 ; Any T N3 M0
IF N=3
IF M=0
SET SG="4A"
QUIT
+12 ;IVB Any T Any N M1
IF M=1
SET SG="4B"
QUIT
End DoDot:1
KILL TNM
QUIT
+13 ;
MF7 ;Primary Cutaneous Lymphomas
+1 ;Mycosis fungoides and Sezary syndrome - 7th edition
+2 NEW PBI
+3 SET PBI=$PIECE($GET(^ONCO(165.5,D0,24)),U,5)
+4 IF PBI=""
WRITE !!?12,"PERIPHERAL BLOOD INVOLVEMENT is required for 7th Edition staging."
QUIT
+5 SET PBI=$EXTRACT(PBI,2)
+6 SET N=$EXTRACT(N,1)
+7 SET TNM=T_$EXTRACT(N,1)_M_PBI
Begin DoDot:1
+8 ;IA T1 N0 M0 B0
IF TNM=1000
SET SG="1A"
QUIT
+9 ; T1 N0 M0 B1
IF TNM=1001
SET SG="1A"
QUIT
+10 ;IB T2 N0 M0 B0
IF TNM=2000
SET SG="1B"
QUIT
+11 ; T2 N0 M0 B1
IF TNM=2001
SET SG="1B"
QUIT
+12 ;IIA T1,2 N1,2 M0 B0,1
IF T<3
IF N<3
IF M=0
IF PBI<2
SET SG="2A"
QUIT
+13 ;IIB T3 N0-2 M0 B0,1
IF T=3
IF N<3
IF M=0
IF PBI<2
SET SG="2B"
QUIT
+14 ;IIIA T4 N0-2 M0 B0
IF T=4
IF N<3
IF M=0
IF PBI=0
SET SG="3A"
QUIT
+15 ;IIIB T4 N0-2 M0 B1
IF T=4
IF N<3
IF M=0
IF PBI=1
SET SG="3B"
QUIT
+16 ;IVA1 T1-4 N0-2 M0 B2
IF T'="X"
IF N<3
IF M=0
IF PBI=2
SET SG="4A1"
QUIT
+17 ;IVA2 T1-4 N3 M0 Any B
IF T'="X"
IF N=3
IF M=0
SET SG="4A2"
QUIT
+18 ;IVB T1-4 N0-3 M1 Any B
IF T'="X"
IF N'="X"
IF M=1
SET SG="4B"
QUIT
End DoDot:1
KILL TNM
QUIT
+19 ;
CLEANUP ;Cleanup
+1 KILL D0,G,M,N,T
