source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSG4A.m@ 1211

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

initial load of WorldVistAEHR
File size: 4.4 KB
Line 
1ONCSG4A ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;07/15/02
2 ;;2.11;ONCOLOGY;**35**;Mar 07, 1995
3 ;
4 ;GYNECOLOGICAL SITES (continued)
5 ;
6OVA345 ;Ovary - 3rd, 4th and 5th editions
7 I M S SG=4
8 E I $E(M)=0,$E(N)=0,$L(T)=2,"123"[$E(T),"ABC"[$E(T,2) S SG=T
9 E I $E(N)=1,$E(M)=0 S SG="3C"
10 E S SG=99
11 Q
12 ;
13OVA6 ;Ovary - 6th edition
14 S TNM=T_N_M D K TNM Q
15 .I TNM=100 S SG=1 Q ;I T1 N0 M0
16 .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0
17 .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0
18 .I TNM="1C00" S SG="1C" Q ;IC T1c N0 M0
19 .I TNM=200 S SG=2 Q ;II T2 N0 M0
20 .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0
21 .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0
22 .I TNM="2C00" S SG="2C" Q ;IIC T2c N0 M0
23 .I TNM=300 S SG=3 Q ;III T3 N0 M0
24 .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0
25 .I TNM="3B00" S SG="3B" Q ;IIIB T3b N0 M0
26 .I TNM="3C00" S SG="3C" Q ;IIIC T3c N0 M0
27 .I N=1,M=0 S SG="3C" Q ; Any T N1 M0
28 .I M=1 S SG=4 Q ;IV Any T Any N M1
29 ;
30FT5 ;Fallopian Tube - 5th edition
31 S TNM=T_N_M D K TNM Q
32 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
33 .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0
34 .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0
35 .I TNM="1C00" S SG="1C" Q ;IC T1c N0 M0
36 .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0
37 .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0
38 .I TNM="2C00" S SG="2C" Q ;IIC T2c N0 M0
39 .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0
40 .I TNM="3B00" S SG="3B" Q ;IIIB T3b N0 M0
41 .I TNM="3C00" S SG="3C" Q ;IIIC T3c N0 M0
42 .I N=1,M=0 S SG="3C" Q ; Any T N1 M0
43 .I M=1 S SG=4 Q ;IV Any T Any N M1
44 ;
45FT6 ;Fallopian Tube - 6th edition
46 S TNM=T_N_M D K TNM Q
47 .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0
48 .I TNM=100 S SG=1 Q ;I T1 N0 M0
49 .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0
50 .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0
51 .I TNM="1C00" S SG="1C" Q ;IC T1c N0 M0
52 .I TNM=200 S SG=2 Q ;II T2 N0 M0
53 .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0
54 .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0
55 .I TNM="2C00" S SG="2C" Q ;IIC T2c N0 M0
56 .I TNM=300 S SG=3 Q ;III T3 N0 M0
57 .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0
58 .I TNM="3B00" S SG="3B" Q ;IIIB T3b N0 M0
59 .I TNM="3C00" S SG="3C" Q ;IIIC T3c N0 M0
60 .I N=1,M=0 S SG="3C" Q ; Any T N1 M0
61 .I M=1 S SG=4 Q ;IV Any T Any N M1
62 ;
63GTT5 ;Gestational Trophoblastic Tumors - 5th edition
64 S:$G(STGIND)="C" RF=$P($G(^ONCO(165.5,D0,2.1)),U,12)
65 S:$G(STGIND)="P" RF=$P($G(^ONCO(165.5,D0,2.1)),U,13)
66 S TNM=T_M_RF D K TNM,RF Q ; T M Risk Factors
67 .I TNM="100" S SG="1A" Q ;IA T1 M0 w/o
68 .I TNM="101" S SG="1B" Q ;IB T1 M0 1
69 .I TNM="102" S SG="1B" Q ; T1 M0 1
70 .I TNM="103" S SG="1C" Q ;IC T1 M0 2
71 .I TNM="200" S SG="2A" Q ;IIA T2 M0 w/o
72 .I TNM="201" S SG="2B" Q ;IIB T2 M0 1
73 .I TNM="202" S SG="2B" Q ; T2 M0 1
74 .I TNM="203" S SG="2C" Q ;IIC T2 M0 2
75 .I M="1A",RF=0 S SG="3A" Q ;IIIA Any T M1a w/o
76 .I M="1A",RF=1 S SG="3B" Q ;IIIB Any T M1a 1
77 .I M="1A",RF=2 S SG="3B" Q ; Any T M1a 1
78 .I M="1A",RF=3 S SG="3C" Q ;IIIC Any T M1a 2
79 .I M="1B",RF=0 S SG="4A" Q ;IVA Any T M1b w/o
80 .I M="1B",RF=1 S SG="4B" Q ;IVB Any T M1b 1
81 .I M="1B",RF=2 S SG="4B" Q ; Any T M1b 1
82 .I M="1B",RF=3 S SG="4C" Q ;IVC Any T M1b 2
83 ;
84GTT6 ;Gestational Trophoblastic Tumors - 6th edition
85 S:$G(STGIND)="C" RF=$P($G(^ONCO(165.5,D0,2.1)),U,12)
86 S:$G(STGIND)="P" RF=$P($G(^ONCO(165.5,D0,2.1)),U,13)
87 S TNM=T_M_RF D K TNM,RF Q ; T M Risk Factors
88 .I TNM="10U" S SG=1 Q ;I T1 M0 Unknown
89 .I TNM="10L" S SG="1A" Q ;IA T1 M0 Low risk
90 .I TNM="10H" S SG="1b" Q ;IB T1 M0 High risk
91 .I TNM="20U" S SG=2 Q ;II T2 M0 Unknown
92 .I TNM="20L" S SG="2A" Q ;IIA T1 M0 Low risk
93 .I TNM="20H" S SG="2B" Q ;IIB T1 M0 High risk
94 .I M="1A",RF="U" S SG=3 Q ;III Any T M1a Unknown
95 .I M="1A",RF="L" S SG="3A" Q ;IIIA Any T M1a Low risk
96 .I M="1A",RF="H" S SG="3B" Q ;IIIB Any T M1a High risk
97 .I M="1B",RF="U" S SG=4 Q ;IV Any T M1b Unknown
98 .I M="1B",RF="L" S SG="4A" Q ;IVA Any T M1b Low risk
99 .I M="1B",RF="H" S SG="4B" Q ;IVB Any T M1b High risk
100 ;
Note: See TracBrowser for help on using the repository browser.