136 lines
5.4 KiB
Mathematica
136 lines
5.4 KiB
Mathematica
ONCSG2 ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;07/15/02
|
|
;;2.11;ONCOLOGY;**35,36**;Mar 07, 1995
|
|
;
|
|
;THORAX
|
|
;
|
|
LUN34 ;Lung - 3rd and 4th editions
|
|
S SG=99
|
|
I M=1 S SG=4
|
|
E I M=0 D
|
|
.I T=4 S SG="3B"
|
|
.E I N=3 S SG="3B"
|
|
.E I N=2 S SG=$S(T=1:"3A",T=2:"3A",T=3:"3A",1:99)
|
|
.E I N=1 S SG=$S(T=1:2,T=2:2,T=3:"3A",1:99)
|
|
.E I N=0 S SG=$S(T="X":"0C",T="IS":0,T=1:1,T=2:1,T=3:"3A",1:99)
|
|
Q
|
|
;
|
|
LUN56 ;Lung - 5th and 6th editions
|
|
S TNM=T_N_M D K TNM Q
|
|
.I TNM="X00" S SG="0C" Q ;Occult Tx N0 M0
|
|
.I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
|
|
.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="2B" Q ;IIB T2 N1 M0
|
|
.I TNM=300 S SG="2B" Q ; T3 N0 M0
|
|
.I TNM=120 S SG="3A" Q ;IIIA T1 N2 M0
|
|
.I TNM=220 S SG="3A" Q ; T2 N2 M0
|
|
.I TNM=310 S SG="3A" Q ; T3 N1 M0
|
|
.I TNM=320 S SG="3A" Q ; T3 N2 M0
|
|
.I N=3,M=0 S SG="3B" Q ;IIIB Any T N3 M0
|
|
.I T=4,M=0 S SG="3B" Q ; T4 Any N M0
|
|
.I M=1 S SG=4 Q ;IV Any T Any N M1
|
|
;
|
|
PM45 ;Pleural Mesothelioma - 4th and 5th editions
|
|
I M S SG=4
|
|
E I T[4,M[0 S SG=4
|
|
E I N[3,M[0 S SG=4
|
|
E I (T[1)!(T[2),N[0,M[0 S SG=1
|
|
E I (T[1)!(T[2),N[1,M[0 S SG=2
|
|
E I (T[1)!(T[2),N[2,M[0 S SG=3
|
|
E I T[3,(N[0)!(N[1)!(N[2),M[0 S SG=3
|
|
E S SG=99
|
|
Q
|
|
;
|
|
PM6 ;Pleural Mesothelioma - 6th edition
|
|
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="1A" Q ;IA T1a N0 M0
|
|
.I TNM="1B00" S SG="1B" Q ;IB T1b 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=120 S SG=3 Q ; T1 N2 M0
|
|
.I TNM=220 S SG=3 Q ; T2 N2 M0
|
|
.I TNM=300 S SG=3 Q ; T3 N0 M0
|
|
.I TNM=310 S SG=3 Q ; T3 N1 M0
|
|
.I TNM=320 S SG=3 Q ; T3 N2 M0
|
|
.I T=4,M=0 S SG=4 Q ;IV T4 Any N 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
|
|
;
|
|
;MUSCULOSKELETAL SITES
|
|
;
|
|
BONE345 ;Bone - 3rd, 4th and 5th editions
|
|
K SG
|
|
I M=1 S SG="4B"
|
|
E I M=0 D
|
|
.I N=1 S SG="4A"
|
|
.E I N=0 D BONLG
|
|
I '$D(SG) S SG=99
|
|
Q
|
|
;
|
|
BONLG ;Bone - 3rd, 4th and 5th editions (continued)
|
|
I (G=1)!(G=2) D
|
|
.I T=1 S SG="1A"
|
|
.E I T=2 S SG="1B"
|
|
E I (G=3)!(G=4) D
|
|
.I T=1 S SG="2A"
|
|
.E I T=2 S SG="2B"
|
|
Q
|
|
;
|
|
BONE6 ;Bone - 6th edition
|
|
S TNM=T_N_M D K TNM Q
|
|
.I ((G=1)!(G=2))&(TNM=100) S SG="1A" Q ;IA T1 N0 M0 G1,2
|
|
.I ((G=1)!(G=2))&(TNM=200) S SG="1B" Q ;IB T2 N0 M0 G1,2
|
|
.I ((G=3)!(G=4))&(TNM=100) S SG="2A" Q ;IIA T1 N0 M0 G3,4
|
|
.I ((G=3)!(G=4))&(TNM=200) S SG="2B" Q ;IIB T2 N0 M0 G3,4
|
|
.I TNM=300 S SG=3 Q ;III T3 N0 M0 Any G
|
|
.I N=0,M="1A" S SG="4A" Q ;IVA Any T N0 M1a Any G
|
|
.I N=1 S SG="4B" Q ;IVB Any T N1 Any M Any G
|
|
.I M="1B" S SG="4B" Q ; Any T Any N M1b Any G
|
|
;
|
|
STS34 ;Soft Tissue Sarcoma - 3rd and 4th editions
|
|
I $E(M)=1 S SG="4B"
|
|
E I $E(M)=0 D
|
|
.I $E(N)=1 S SG="4A"
|
|
.E I $E(N)=0,(G=1)!(G=2)!(G=3)!(G=4),(T=1)!(T=2) S SG=$S(G=1:1,G=2:2,1:3)_$S(T=1:"A",1:"B")
|
|
I '$D(SG) S SG=99
|
|
Q
|
|
;
|
|
STS5 ;Soft Tissue Sarcoma - 5th edition
|
|
S TNM=T_N_M D K TNM Q
|
|
.I ((G=1)!(G=2))&(TNM="1A00") S SG="1A" Q ;IA G1-2 T1a N0 M0
|
|
.I ((G=1)!(G=2))&(TNM="1B00") S SG="1A" Q ; T1b N0 M0
|
|
.I ((G=1)!(G=2))&(TNM="2A00") S SG="1B" Q ;IB G1-2 T2a N0 M0
|
|
.I ((G=1)!(G=2))&(TNM="2B00") S SG="2A" Q ;IIA G1-2 T2b N0 M0
|
|
.I ((G=3)!(G=4))&(TNM="1A00") S SG="2B" Q ;IIB G3-4 T1a N0 M0
|
|
.I ((G=3)!(G=4))&(TNM="1B00") S SG="2B" Q ; T1b N0 M0
|
|
.I ((G=3)!(G=4))&(TNM="2A00") S SG="2C" Q ;IIC G3-4 T2a N0 M0
|
|
.I ((G=3)!(G=4))&(TNM="2B00") S SG=3 Q ;III G3-4 T2b N0 M0
|
|
.I N=1,M=0 S SG=4 Q ;IV Any G Any T N1 M0
|
|
.I N=0,M=1 S SG=4 Q ;IV Any G Any T N0 M1
|
|
.I N=1,M=1 S SG=4 Q ;IV Any G Any T N1 M1
|
|
;
|
|
STS6 ;Soft Tissue Sarcoma - 6th edition
|
|
S TNM=T_N_M D K TNM Q
|
|
.I ((G=1)!(G=2))&(TNM="1A00") S SG="1A" Q ;IA T1a N0 M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="1AX0") S SG="1A" Q ; T1a NX M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="1B00") S SG="1A" Q ; T1b N0 M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="1BX0") S SG="1A" Q ; T1b NX M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="2A00") S SG="1B" Q ;IB T2a N0 M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="2AX0") S SG="1B" Q ; T2a NX M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="2B00") S SG="1B" Q ; T2b N0 M0 G1-2
|
|
.I ((G=1)!(G=2))&(TNM="2BX0") S SG="1B" Q ; T2b NX M0 G1-2
|
|
.I ((G=3)!(G=4))&(TNM="1A00") S SG="2A" Q ;IIA T1a N0 M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="1AX0") S SG="2A" Q ; T1a NX M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="1B00") S SG="2A" Q ; T1b N0 M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="1BX0") S SG="2A" Q ; T1b NX M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="2A00") S SG="2B" Q ;IIB T2a N0 M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="2AX0") S SG="2B" Q ; T2a NX M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="2B00") S SG=3 Q ;III T2b N0 M0 G3-4
|
|
.I ((G=3)!(G=4))&(TNM="2BX0") S SG=3 Q ; T2b NX M0 G3-4
|
|
.I N=1,M=0 S SG=4 Q ;IV Any T N1 M0 Any G
|
|
.I N=0,M=1 S SG=4 Q ; Any T N0 M1 Any G
|
|
.I N=1,M=1 S SG=4 Q ; Any T N1 M1 Any G
|