Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCSGA8C

ONCSGA8C.m

Go to the documentation of this file.
ONCSGA8C ;HINES OIFO/RTK - AJCC 8th Ed Automatic Staging Tables ;01/17/19
 ;;2.2;ONCOLOGY;**10,12,13**;Jul 31, 2013;Build 7
 ;
 ;
60 ;KIDNEY
 S M=$E(M,2,5)
 I T["T1",N="N0",M="M0" S SG=1 Q
 I T["T1",N="N1",M="M0" S SG=3 Q
 I T["T2",N="N0",M="M0" S SG=2 Q
 I T["T2",N="N1",M="M0" S SG=3 Q
 I T["T3",((N="NX")!(N="N0")),M="M0" S SG=3 Q
 I T["T3",N="N1",M="M0" S SG=3 Q
 I T="T4",M="M0" S SG=4 Q
 I M="M1" S SG=4
 Q
611 ;RENAL PELVIS AND URETER
 S M=$E(M,2,5)
 I T="Ta",N="N0",M="M0" S SG="0a" Q
 I T="Tis",N="N0",M="M0" S SG="0is" Q
 I T="T1",N="N0",M="M0" S SG=1 Q
 I T="T2",N="N0",M="M0" S SG=2 Q
 I T="T3",N="N0",M="M0" S SG=3 Q
 I T="T4",((N="NX")!(N="N0")),M="M0" S SG=4 Q
 I N="N1",M="M0" S SG=4 Q
 I N="N2",M="M0" S SG=4 Q
 I M="M1" S SG=4
 Q
612 ;
 D 611
 Q
621 ;URINARY BLADDER
 S M=$E(M,2,5)
 I T="Ta",N="N0",M="M0" S SG="0a" Q
 I T="Tis",N="N0",M="M0" S SG="0is" Q
 I T="T1",N="N0",M="M0" S SG=1 Q
 I T="T2",N="N0",M="M0" S SG=2 Q
 I T="T2a",N="N0",M="M0" S SG=2 Q
 I T="T2b",N="N0",M="M0" S SG=2 Q
 I ((T="T3a")!(T="T3b")!(T="T4a")),N="N0",M="M0" S SG="3A" Q
 I ((T["T1")!(T["T2")!(T["T3")!(T["T4")),T'="T4b",N="N1",M="M0" S SG="3A" Q
 I ((T["T1")!(T["T2")!(T["T3")!(T["T4")),T'="T4b",((N="N2")!(N="N3")),M="M0" S SG="3B" Q
 I T="T4b",M="M0" S SG="4A" Q
 I M="M1a" S SG="4A" Q
 I M="M1b" S SG="4B"
 Q
622 ;
 D 621
 Q
631 ;URETHRA
 S M=$E(M,2,5)
 I T="Tis",N="N0",M="M0" S SG="0is" Q
 I T="Ta",N="N0",M="M0" S SG="0a" Q
 I T="T1",N="N0",M="M0" S SG=1 Q
 I T="T1",N="N1",M="M0" S SG=3 Q
 I T="T2",N="N0",M="M0" S SG=2 Q
 I T="T2",N="N1",M="M0" S SG=3 Q
 I T="T3",N="N0",M="M0" S SG=3 Q
 I T="T3",N="N1",M="M0" S SG=3 Q
 I T="T4",N="NX",M="M0" S SG=4 Q
 I T="T4",N="N0",M="M0" S SG=4 Q
 I T="T4",N="N1",M="M0" S SG=4 Q
 I N="N2",M="M1" S SG=4 Q
 I M="M1" S SG=4
 Q
632 ;
 D 631
 Q
633 ;
 D 631
 Q
634 ;
 D 631
 Q
64 ;EYELID CARCINOMA
 S M=$E(M,2,5)
 I T="Tis",N="N0",M="M0" S SG=0 Q
 I T="T1",N="N0",M="M0" S SG="1A" Q
 I T="T2a",N="N0",M="M0" S SG="1B" Q
 I ((T="T2b")!(T="T2c")!(T="T3")),N="N0",M="M0" S SG="2A" Q
 I T="T4",N="N0",M="M0" S SG="2B" Q
 I N="N1",M="M0" S SG="3A" Q
 I N="N2",M="M0" S SG="3B" Q
 I M="M1" S SG=4
 Q
672 ;UVEA
 S M=$E(M,2,5)
 I T="T1a",N="N0",M="M0" S SG=1 Q
 I ((T="T1b")!(T="T1c")!(T="T1d")),N="N0",M="M0" S SG="2A" Q
 I T="T2a",N="N0",M="M0" S SG="2A" Q
 I T="T2b",N="N0",M="M0" S SG="2B" Q
 I T="T3a",N="N0",M="M0" S SG="2B" Q
 I ((T="T2c")!(T="T2d")),N="N0",M="M0" S SG="3A" Q
 I ((T="T3b")!(T="T3c")),N="N0",M="M0" S SG="3A" Q
 I T="T4a",N="N0",M="M0" S SG="3A" Q
 I T="T3d",N="N0",M="M0" S SG="3B" Q
 I ((T="T4b")!(T="T4c")),N="N0",M="M0" S SG="3B" Q
 I ((T="T4d")!(T="T4e")),N="N0",M="M0" S SG="3C" Q
 I N="N1",M="M0" S SG=4 Q
 I ((M="M1a")!(M="M1b")!(M="M1c")) S SG=4
 Q
68 ;RETINOBLASTOMA - this code should work for either "C" or "P" STGIND
 I ((T="T1")!(T="T2")!(T="T3")),N="N0",M="cM0" S SG=1 Q
 I T="T4a",N="N0",M="cM0" S SG=2 Q
 I T="T4b",N="N0",M="cM0" S SG=3 Q
 I N="N1",M="cM0" S SG=3 Q
 I ((M["cM1")!(M["pM1")) S SG=4 Q
 I STGIND="P",T="T4",N="N0",M="cM0" S SG=2 Q
 Q
731 ;THYROID
 S M=$E(M,2,5)
 N X D AGE^ONCOCOM Q:X=""  I X<55 D  Q
 .I M="M0" S SG=1
 .I M="M1" S SG=2
 I T["T1",((N["N0")!(N="NX")),M="M0" S SG=1 Q
 I T["T1",N["N1",M="M0" S SG=2 Q
 I T="T2",((N["N0")!(N="NX")),M="M0" S SG=1 Q
 I T="T2",N["N1",M="M0" S SG=2 Q
 I ((T="T3a")!(T="T3b")),M="M0" S SG=2 Q
 I T="T4a",M="M0" S SG=3 Q
 I T="T4b",M="M0" S SG="4A" Q
 I M="M1" S SG="4B"
 Q
732 ;THYROID
 S M=$E(M,2,5)
 I ((T["T1")!(T["T2")!(T["T3")),T'="T3b",((N["N0")!(N="NX")),M="M0" S SG="4A" Q
 I ((T["T1")!(T["T2")!(T["T3")),T'="T3b",N["N1",M="M0" S SG="4B" Q
 I T="T3b",M="M0" S SG="4B" Q
 I T="T4",M="M0" S SG="4B" Q
 I M="M1" S SG="4C"
 Q
74 ;THYROID
 S M=$E(M,2,5)
 I T["T1",N["N0",M="M0" S SG=1 Q
 I T["T2",N["N0",M="M0" S SG=2 Q
 I T["T3",N["N0",M="M0" S SG=2 Q
 I ((T["T1")!(T["T2")!(T["T3")),N="N1a",M="M0" S SG=3 Q
 I T="T4a",M="M0" S SG="4A" Q
 I ((T["T1")!(T["T2")!(T["T3")),N="N1b",M="M0" S SG="4A" Q
 I T="T4b",M="M0" S SG="4B" Q
 I M="M1" S SG="4C"
 Q
76 ;ADRENAL CORTICAL CARCINOMA
 S M=$E(M,2,5)
 I T="T1",N="N0",M="M0" S SG=1 Q
 I T="T1",N="N1",M="M0" S SG=3 Q
 I T="T2",N="N0",M="M0" S SG=2 Q
 I T="T2",N="N1",M="M0" S SG=3 Q
 I T="T3",M="M0" S SG=3 Q
 I T="T4",M="M0" S SG=3 Q
 I M="M1" S SG=4
 Q
77 ;ADRENAL NEUROENDOCRINE
 S M=$E(M,2,5)
 I T="T1",N="N0",M="M0" S SG=1 Q
 I T="T2",N="N0",M="M0" S SG=2 Q
 I T="T1",N="N1",M="M0" S SG=3 Q
 I T="T2",N="N1",M="M0" S SG=3 Q
 I T="T3",M="M0" S SG=3 Q
 I M["M1" S SG=4
 Q
811 ;PRIMARY CUTANEOUS LYMPHOMAS
 S M=$E(M,2,5)
 I T["T1",N="N0",M="M0",PBI18<7 S SG="1A" Q
 I T["T2",N="N0",M="M0",PBI18<7 S SG="1B" Q
 I (T["T1")!(T["T2"),(N="N1")!(N="N2"),M="M0",PBI18<7 S SG="2A" Q
 I T="T3",(N="N0")!(N="N1")!(N="N2"),M="M0",PBI18<7 S SG="2B" Q
 I T="T4",(N="N0")!(N="N1")!(N="N2"),M="M0",PBI18<7 S SG=3 Q
 I T="T4",(N="N0")!(N="N1")!(N="N2"),M="M0",PBI18<4 S SG="3A" Q
 I T="T4",(N="N0")!(N="N1")!(N="N2"),M="M0",(PBI18>3)&(PBI18<7) S SG="3B" Q
 I (N="N0")!(N="N1")!(N="N2"),M="M0",PBI18=7 S SG="4A1" Q
 I N="N3",M="M0",PBI18<8 S SG="4A2" Q
 I (N="N0")!(N="N1")!(N="N2")!(N="N3"),M="M1",PBI18<8 S SG="4B" Q
 Q
529 ;CERVIX UTERI -- 9TH EDITION
 S M=$E(M,2,5)
 I T="T1",N["N0",M="M0" S SG=1 Q
 I T="T1a",N["N0",M="M0" S SG="1A" Q
 I T="T1a1",N["N0",M="M0" S SG="1A1" Q
 I T="T1a2",N["N0",M="M0" S SG="1A2" Q
 I T="T1b",N["N0",M="M1" S SG="1B" Q
 I T="T1b1",N["N0",M="M0" S SG="1B1" Q
 I T="T1b2",N["N0",M="M0" S SG="1B2" Q
 I T="T1b3",N["N0",M="M0" S SG="1B3" Q
 I T="T2",N["N0",M="M0" S SG=2 Q
 I T="T2a",N["N0",M="M0" S SG="2A" Q
 I T="T2a1",N["N0",M="M0" S SG="2A1" Q
 I T="T2a2",N["N0",M="M0" S SG="2A2" Q
 I T="T2b",N["N0",M="M0" S SG="2B" Q
 I T="T3",N["N0",M="M0" S SG=3 Q
 I T="T3a",N["N0",M="M0" S SG="3A" Q
 I T="T3b",N["N0",M="M0" S SG="3B" Q
 I T'="T4",N["N1",M="M0" S SG="3C1" Q
 I T'="T4",N["N2",M="M0" S SG="3C2" Q
 I T="T4",M="M0" S SG="4A" Q
 I M="M1" S SG="4B"
 Q