- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCSOT 6202 printed Feb 18, 2025@23:49:04 Page 2
- ONCCSOT ;Hines OIFO/GWB - Collaborative Staging OUTPUT TRANSFORMS ;06/23/10
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- +2 ;
- TOT ;DERIVED AJCC-6 T (165.5,160) OUTPUT TRANSFORM
- +1 ;DERIVED AJCC-7 T (165.5,160.7) OUTPUT TRANSFORM
- +2 IF (Y=99)!(Y=999)
- SET Y="TX"
- QUIT
- +3 IF (Y="00")!(Y="000")
- SET Y="T0"
- QUIT
- +4 IF (Y="01")!(Y="010")
- SET Y="Ta"
- QUIT
- +5 IF (Y="05")!(Y="050")
- SET Y="Tis"
- QUIT
- +6 IF (Y="06")!(Y="060")
- SET Y="Tispu (urethra only)"
- QUIT
- +7 IF (Y="07")!(Y="070")
- SET Y="Tispd (urethra only)"
- QUIT
- +8 IF (Y=10)!(Y=100)
- SET Y="T1"
- QUIT
- +9 IF (Y=11)!(Y=110)
- SET Y="T1mic"
- QUIT
- +10 IF (Y=19)!(Y=199)
- SET Y="T1 NOS"
- QUIT
- +11 IF Y=191
- SET Y="T1 NOS(s)"
- QUIT
- +12 IF Y=192
- SET Y="T1 NOS(m)"
- QUIT
- +13 IF (Y=12)!(Y=120)
- SET Y="T1a"
- QUIT
- +14 IF Y=121
- SET Y="T1a(s)"
- QUIT
- +15 IF Y=122
- SET Y="T1a(m)"
- QUIT
- +16 IF (Y=13)!(Y=130)
- SET Y="T1a1"
- QUIT
- +17 IF (Y=14)!(Y=140)
- SET Y="T1a2"
- QUIT
- +18 IF (Y=15)!(Y=150)
- SET Y="T1b"
- QUIT
- +19 IF Y=151
- SET Y="T1b(s)"
- QUIT
- +20 IF Y=152
- SET Y="T1b(m)"
- QUIT
- +21 IF (Y=16)!(Y=160)
- SET Y="T1b1"
- QUIT
- +22 IF (Y=17)!(Y=170)
- SET Y="T1b2"
- QUIT
- +23 IF (Y=18)!(Y=180)
- SET Y="T1c"
- QUIT
- +24 IF Y=181
- SET Y="T1d"
- QUIT
- +25 IF (Y=20)!(Y=200)
- SET Y="T2"
- QUIT
- +26 IF Y=201
- SET Y="T2(s)"
- QUIT
- +27 IF Y=202
- SET Y="T2(m)"
- QUIT
- +28 IF (Y=29)!(Y=299)
- SET Y="T2 NOS"
- QUIT
- +29 IF (Y=21)!(Y=210)
- SET Y="T2a"
- QUIT
- +30 IF Y=211
- SET Y="T2a1"
- QUIT
- +31 IF Y=212
- SET Y="T2a2"
- QUIT
- +32 IF Y=213
- SET Y="T2a NOS"
- QUIT
- +33 IF (Y=22)!(Y=220)
- SET Y="T2b"
- QUIT
- +34 IF (Y=23)!(Y=230)
- SET Y="T2c"
- QUIT
- +35 IF Y=240
- SET Y="T2d"
- QUIT
- +36 IF (Y=30)!(Y=300)
- SET Y="T3"
- QUIT
- +37 IF Y=301
- SET Y="T3(s)"
- QUIT
- +38 IF Y=302
- SET Y="T3(m)"
- QUIT
- +39 IF (Y=39)!(Y=399)
- SET Y="T3 NOS"
- QUIT
- +40 IF (Y=31)!(Y=310)
- SET Y="T3a"
- QUIT
- +41 IF (Y=32)!(Y=320)
- SET Y="T3b"
- QUIT
- +42 IF (Y=33)!(Y=330)
- SET Y="T3c"
- QUIT
- +43 IF Y=340
- SET Y="T3d"
- QUIT
- +44 IF (Y=40)!(Y=400)
- SET Y="T4"
- QUIT
- +45 IF (Y=49)!(Y=499)
- SET Y="T4 NOS"
- QUIT
- +46 IF Y=491
- SET Y="T4 NOS(s)"
- QUIT
- +47 IF Y=492
- SET Y="T4 NOS(m)"
- QUIT
- +48 IF (Y=41)!(Y=410)
- SET Y="T4a"
- QUIT
- +49 IF Y=411
- SET Y="T4a(s)"
- QUIT
- +50 IF Y=412
- SET Y="T4a(m)"
- QUIT
- +51 IF (Y=42)!(Y=420)
- SET Y="T4b"
- QUIT
- +52 IF Y=421
- SET Y="T4b(s)"
- QUIT
- +53 IF Y=422
- SET Y="T4b(m)"
- QUIT
- +54 IF (Y=43)!(Y=430)
- SET Y="T4c"
- QUIT
- +55 IF (Y=44)!(Y=440)
- SET Y="T4d"
- QUIT
- +56 IF Y=450
- SET Y="T4e"
- QUIT
- +57 IF (Y=80)!(Y=800)
- SET Y="T1a NOS"
- QUIT
- +58 IF (Y=81)!(Y=810)
- SET Y="T1b NOS"
- QUIT
- +59 IF (Y=88)!(Y=888)
- SET Y="Not applicable"
- QUIT
- +60 QUIT
- +61 ;
- NOT ;DERIVED AJCC-6 N (165.5,162) OUTPUT TRANSFORM
- +1 ;DERIVED AJCC-7 N (165.5,162.7) OUTPUT TRANSFORM
- +2 IF (Y=99)!(Y=999)
- SET Y="NX"
- QUIT
- +3 IF (Y="00")!(Y="000")
- SET Y="N0"
- QUIT
- +4 IF (Y="01")!(Y="010")
- SET Y="N0(i-)"
- QUIT
- +5 IF (Y="02")!(Y="020")
- SET Y="N0(i+)"
- QUIT
- +6 IF (Y="03")!(Y="030")
- SET Y="N0(mol-)"
- QUIT
- +7 IF (Y="04")!(Y="040")
- SET Y="N0(mol+)"
- QUIT
- +8 ;I Y="09" S Y="N0 NOS" Q ;No longer used
- +9 IF (Y=10)!(Y=100)
- SET Y="N1"
- QUIT
- +10 IF (Y=19)!(Y=199)
- SET Y="N1 NOS"
- QUIT
- +11 IF (Y=11)!(Y=110)
- SET Y="N1a"
- QUIT
- +12 IF (Y=12)!(Y=120)
- SET Y="N1b"
- QUIT
- +13 IF (Y=13)!(Y=130)
- SET Y="N1c"
- QUIT
- +14 IF (Y=18)!(Y=180)
- SET Y="N1mi"
- QUIT
- +15 IF (Y=20)!(Y=200)
- SET Y="N2"
- QUIT
- +16 IF (Y=29)!(Y=299)
- SET Y="N2 NOS"
- QUIT
- +17 IF (Y=21)!(Y=210)
- SET Y="N2a"
- QUIT
- +18 IF (Y=22)!(Y=220)
- SET Y="N2b"
- QUIT
- +19 IF (Y=23)!(Y=230)
- SET Y="N2c"
- QUIT
- +20 IF (Y=30)!(Y=300)
- SET Y="N3"
- QUIT
- +21 IF (Y=39)!(Y=399)
- SET Y="N3 NOS"
- QUIT
- +22 IF (Y=31)!(Y=310)
- SET Y="N3a"
- QUIT
- +23 IF (Y=32)!(Y=320)
- SET Y="N3b"
- QUIT
- +24 IF (Y=33)!(Y=330)
- SET Y="N3c"
- QUIT
- +25 IF Y=400
- SET Y="N4"
- QUIT
- +26 IF (Y=88)!(Y=888)
- SET Y="Not applicable"
- QUIT
- +27 QUIT
- +28 ;
- MOT ;DERIVED AJCC-6 M (165.5,164) OUTPUT TRANSFORM
- +1 ;DERIVED AJCC-7 M (165.5,164.7) OUTPUT TRANSFORM
- +2 IF (Y=99)!(Y=999)
- SET Y="MX"
- QUIT
- +3 IF (Y="00")!(Y="000")
- SET Y="M0"
- QUIT
- +4 IF Y="010"
- SET Y="M0(i+)"
- QUIT
- +5 IF (Y=10)!(Y=100)
- SET Y="M1"
- QUIT
- +6 IF (Y=11)!(Y=110)
- SET Y="M1a"
- QUIT
- +7 IF (Y=12)!(Y=120)
- SET Y="M1b"
- QUIT
- +8 IF (Y=13)!(Y=130)
- SET Y="M1c"
- QUIT
- +9 IF Y=140
- SET Y="M1d"
- QUIT
- +10 IF Y=150
- SET Y="M1e"
- QUIT
- +11 IF (Y=19)!(Y=199)
- SET Y="M1 NOS"
- QUIT
- +12 IF (Y=88)!(Y=888)
- SET Y="Not applicable"
- QUIT
- +13 QUIT
- +14 ;
- SGOT ;DERIVED AJCC-6 STAGE GROUP (165.5,166) OUTPUT TRANSFORM
- +1 ;DERIVED AJCC-7 STAGE GROUP (165.5,166.7) OUTPUT TRANSFORM
- +2 IF (Y="00")!(Y="000")
- SET Y="Stage 0"
- QUIT
- +3 IF (Y="01")!(Y="010")
- SET Y="Stage 0a"
- QUIT
- +4 IF (Y="02")!(Y="020")
- SET Y="Stage 0is"
- QUIT
- +5 IF (Y=10)!(Y=100)
- SET Y="Stage I"
- QUIT
- +6 IF (Y=11)!(Y=110)
- SET Y="Stage I NOS"
- QUIT
- +7 IF (Y=12)!(Y=120)
- SET Y="Stage IA"
- QUIT
- +8 IF (Y=13)!(Y=130)
- SET Y="Stage IA1"
- QUIT
- +9 IF (Y=14)!(Y=140)
- SET Y="Stage IA2"
- QUIT
- +10 IF Y=121
- SET Y="Stage IA NOS"
- QUIT
- +11 IF (Y=15)!(Y=150)
- SET Y="Stage IB"
- QUIT
- +12 IF (Y=16)!(Y=160)
- SET Y="Stage IB1"
- QUIT
- +13 IF (Y=17)!(Y=170)
- SET Y="Stage IB2"
- QUIT
- +14 IF Y=151
- SET Y="Stage IB NOS"
- QUIT
- +15 IF (Y=18)!(Y=180)
- SET Y="Stage IC"
- QUIT
- +16 IF (Y=19)!(Y=190)
- SET Y="Stage IS"
- QUIT
- +17 IF (Y=23)!(Y=230)
- SET Y="Stage ISA (lymphoma only)"
- QUIT
- +18 IF (Y=24)!(Y=240)
- SET Y="Stage ISB (lymphoma only)"
- QUIT
- +19 IF (Y=20)!(Y=200)
- SET Y="Stage IEA (lymphoma only)"
- QUIT
- +20 IF (Y=21)!(Y=210)
- SET Y="Stage IEB (lymphoma only)"
- QUIT
- +21 IF (Y=22)!(Y=220)
- SET Y="Stage IE (lymphoma only)"
- QUIT
- +22 IF (Y=30)!(Y=300)
- SET Y="Stage II"
- QUIT
- +23 IF (Y=31)!(Y=310)
- SET Y="Stage II NOS"
- QUIT
- +24 IF (Y=32)!(Y=320)
- SET Y="Stage IIA"
- QUIT
- +25 IF Y=321
- SET Y="Stage IIA NOS"
- QUIT
- +26 IF Y=322
- SET Y="Stage IIA1"
- QUIT
- +27 IF Y=323
- SET Y="Stage IIA2"
- QUIT
- +28 IF (Y=33)!(Y=330)
- SET Y="Stage IIB"
- QUIT
- +29 IF (Y=34)!(Y=340)
- SET Y="Stage IIC"
- QUIT
- +30 IF (Y=35)!(Y=350)
- SET Y="Stage IIEA (lymphoma only)"
- QUIT
- +31 IF (Y=36)!(Y=360)
- SET Y="Stage IIEB (lymphoma only)"
- QUIT
- +32 IF (Y=37)!(Y=370)
- SET Y="Stage IIE (lymphoma only)"
- QUIT
- +33 IF (Y=38)!(Y=380)
- SET Y="Stage IISA (lymphoma only)"
- QUIT
- +34 IF (Y=39)!(Y=390)
- SET Y="Stage IISB (lymphoma only)"
- QUIT
- +35 IF (Y=40)!(Y=400)
- SET Y="Stage IIS (lymphoma only)"
- QUIT
- +36 IF (Y=41)!(Y=410)
- SET Y="Stage IIESA (lymphoma only)"
- QUIT
- +37 IF (Y=42)!(Y=420)
- SET Y="Stage IIESB (lymphoma only)"
- QUIT
- +38 IF (Y=43)!(Y=430)
- SET Y="Stage IIES (lymphoma only)"
- QUIT
- +39 IF (Y=50)!(Y=500)
- SET Y="Stage III"
- QUIT
- +40 IF (Y=51)!(Y=510)
- SET Y="Stage III NOS"
- QUIT
- +41 IF (Y=52)!(Y=520)
- SET Y="Stage IIIA"
- QUIT
- +42 IF (Y=53)!(Y=530)
- SET Y="Stage IIIB"
- QUIT
- +43 IF (Y=54)!(Y=540)
- SET Y="Stage IIIC"
- QUIT
- +44 IF Y=541
- SET Y="Stage IIIC1"
- QUIT
- +45 IF Y=542
- SET Y="Stage IIIC2"
- QUIT
- +46 IF (Y=55)!(Y=550)
- SET Y="Stage IIIEA (lymphoma only)"
- QUIT
- +47 IF (Y=56)!(Y=560)
- SET Y="Stage IIIEB (lymphoma only)"
- QUIT
- +48 IF (Y=57)!(Y=570)
- SET Y="Stage IIIE (lymphoma only)"
- QUIT
- +49 IF (Y=58)!(Y=580)
- SET Y="Stage IIISA (lymphoma only)"
- QUIT
- +50 IF (Y=59)!(Y=590)
- SET Y="Stage IIISB (lymphoma only)"
- QUIT
- +51 IF (Y=60)!(Y=600)
- SET Y="Stage IIIS (lymphoma only)"
- QUIT
- +52 IF (Y=61)!(Y=610)
- SET Y="Stage IIIESA (lymphoma only)"
- QUIT
- +53 IF (Y=62)!(Y=620)
- SET Y="Stage IIIESB (lymphoma only)"
- QUIT
- +54 IF (Y=63)!(Y=630)
- SET Y="Stage IIIES (lymphoma only)"
- QUIT
- +55 IF (Y=70)!(Y=700)
- SET Y="Stage IV"
- QUIT
- +56 IF (Y=71)!(Y=710)
- SET Y="Stage IV NOS"
- QUIT
- +57 IF (Y=72)!(Y=720)
- SET Y="Stage IVA"
- QUIT
- +58 IF Y=721
- SET Y="Stage IVA1"
- QUIT
- +59 IF Y=722
- SET Y="Stage IVA2"
- QUIT
- +60 IF (Y=73)!(Y=730)
- SET Y="Stage IVB"
- QUIT
- +61 IF (Y=74)!(Y=740)
- SET Y="Stage IVC"
- QUIT
- +62 IF (Y=88)!(Y=888)
- SET Y="Not applicable"
- QUIT
- +63 IF (Y=90)!(Y=900)
- SET Y="Stage Occult"
- QUIT
- +64 IF (Y=99)!(Y=999)
- SET Y="Stage Unknown"
- +65 QUIT
- +66 ;
- CLEANUP ;Cleanup
- +1 KILL Y