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

ONCOTN.m

Go to the documentation of this file.
  1. ONCOTN ;Hines OIFO/GWB - TNM Staging ;02/28/11
  1. ;;2.2;ONCOLOGY;**1,4,5,6**;Jul 31, 2013;Build 10
  1. ;
  1. N DATEDX,H,ONCED,S,YR
  1. S DATEDX=$P(^ONCO(165.5,D0,0),U,16)
  1. S YR=$E(DATEDX,1,3)
  1. S ONCED=$S(YR<283:1,YR<288:2,YR<292:3,YR<298:4,YR<303:5,YR<310:6,1:7)
  1. S S=$P(^ONCO(165.5,D0,0),U,1)
  1. S T=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I T="" W !!?5,"PRIMARY SITE not defined.",! S Y=20 Q
  1. S H=$$HIST^ONCFUNC(D0)
  1. S HT14=$E(H,1,4)
  1. S SD=$P($G(^ONCO(165.5,D0,"CS3")),U,1)
  1. I H="" W !!?5,"HISTOLOGY not defined.",! S Y=$S(DATEDX>3001231:22.3,1:22) Q
  1. S Y="@69"
  1. ;
  1. ;Dermatofibrosarcomas of the skin
  1. I (HT14=8832)!(HT14=8833),($E(T,3,4)=44) D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for dermatofibrosarcomas of the skin.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;Laryngeal cartilage C32.3 - 7th Edition
  1. ;Removed from 7th Edition Larynx chapter 5
  1. I ONCED>6,T=67323 D Q
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. 7 ;Major Salivary Glands - 7th Edition
  1. I ONCED>6,($E(T,3,4)="07")!($E(T,3,4)="08"),(HT14<8000)!((HT14>8576)&(HT14<8940))!((HT14>8950)&(HT14<8980))!(HT14>8981) D Q
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. 8 ;Mycosis fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
  1. I (H=97003)!(H=97013),($E(T,3,4)=44)!($E(T,3,4)=51)!($E(T,3,4)=60)!(T=67632),ONCED>5 Q
  1. ;
  1. I (S=62)!($$LYMPHOMA^ONCFUNC(D0)) D Q
  1. .I ONCED>6,(T=67441)!(T=67690)!(T=67695)!(T=67696) Q
  1. .W !!?3,"No TNM classification is available for Lymphoid Neoplasms.",!
  1. .;D CTNM88,PTNM88 ;changed to call these from within the input template
  1. .S Y="@376"
  1. ;
  1. I (T=67301)!(T=67339)!(T=67379)!($E(T,1,4)=6739)!(T=67630)!(T=67631)!(T=67637)!(T=67638)!(T=67639)!(T=67691)!(T=67750)!(T=67754)!(T=67755)!(T=67758)!(T=67759)!($E(T,1,4)=6776)!($E(T,1,4)=6726) D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I $E(T,1,4)=6774,ONCED<7 D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I (T=67248)!(T=67249),ONCED>6 D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I T=67695,SD="020",ONCED>6 D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for lacrimal sac.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I (T=67254)!(T=67312)!(T=67313)!(T=67318)!(T=67319) D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I ONCED=6,$$MELANOMA^ONCOU55(D0),($E(T,3,4)=44)!($E(T,3,4)=51)!($E(T,3,4)=60)!(T=67632),(H=87233)!(H=87283)!(H=87303)!(H=87403)!(H=87412)!(H=87413)!(H=87463)!(H=87703)!(H=87733)!(H=87743)!(H=87422) D S Y="@313" Q
  1. .W !!?1,"Histology ",$E(H,1,4)_"/"_$E(H,5)," is not appropriate for or relevant to the staging of melanoma.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I (ONCED<7),((H<8020)!(H>8090)),(T=67140)!(T=67142)!(T=67148) D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I (T=67250)!($E(T,1,4)=6715)!($E(T,1,4)=6716)!($E(T,1,4)=6717)!($E(T,1,4)=6718),$E(H,1,4)=8936,ONCED=6 D S Y="@313" Q
  1. .W !!," No TNM coding/staging available for GASTROINTESTINAL STROMA of ",$S($E(T,1,4)=6715:"ESOPHAGUS",$E(T,1,4)=6716:"STOMACH",$E(T,1,4)=6717:"SMALL INTESTINE",$E(T,1,4)=6718:"COLON",T=67250:"PANCREAS, HEAD",1:""),".",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;Carcinoid Tumors
  1. I ($E(T,3,4)=16)!($E(T,3,4)=17)!($E(T,3,4)=18)!(T=67199)!(T=67209)!($E(T,3,4)=21)!(T=67239)!($E(T,3,4)=24)!($E(T,3,4)=25),($E(H,1,4)=8249)!($E(H,1,4)=9091) D Q
  1. .I ONCED>6,($E(T,3,4)=16)!($E(T,3,4)=17)!(T=67180)!(T=67181)!(T=67182)!(T=67183)!(T=67184)!(T=67185)!(T=67186)!(T=67187)!(T=67188)!(T=67189)!(T=67199)!(T=67209)!(T=67241) Q
  1. .W !!?3,"No TNM coding/staging is available for carcinoid tumors" D
  1. ..I ($E(T,3,4)=16)!($E(T,3,4)=17)!($E(T,3,4)=18)!($E(T,3,4)=21)!(T=67239)!($E(T,3,4)=24)!(T=67241)!($E(T,3,4)=25) W !?3,"of the ",$P($G(^ONCO(164,T,0)),U,1),"."
  1. ..W !
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. .S Y="@313"
  1. ;
  1. I $E(T,1,4)=6734 D ^ONCLNG,^ONCLNG1 I $D(ONCLUNG(H)) D S Y="@313" Q
  1. .W !!?3,"No TNM coding/staging available for sarcomas and rare tumors of the lung.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. .K ONCLUNG
  1. K ONCLUNG
  1. ;
  1. ;I (T=67380)!(T=67381)!(T=67382)!(T=67383)!(T=67388)!($E(T,1,4)=6747)!($E(T,1,4)=6748)!($E(T,1,4)=6749),(H=91203)!(H=89903) D S Y="@313" Q
  1. ;.W !!?3,"No TNM coding/staging available for angiosarcoma or malignant mesenchymoma.",! D ;removed these in p5
  1. ;.D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I $E(T,1,4)=6748,H=90503 D S Y="@313" Q
  1. .W !!?3,"No TNM coding/staging available for malignant peritoneal mesothelioma.",! D
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;I (T=67300)!(T=67310)!(T=67311),(H=95223) D S Y="@313" Q
  1. ;.W !!," No TNM coding available for OLFACTORY NEUROMBLASTOMA of ",$S(T=67300:"NASAL CAVITY",T=67310:"SINUS, MAXILLARY",T=67311:"SINUS ETHMOID",1:""),".",!
  1. ;.D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;Fallopian Tube (C57.0)
  1. ;Other/unspecified female genitalia (C57.1-C57.9)
  1. I ((T=67570)&(ONCED<5))!(($E(T,1,4)=6757)&(T'=67570)) D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;Paraurethral gland (C68.1)
  1. ;Overlapping lesion of urinary organs (C68.8)
  1. ;Urinary system, NOS (C68.9)
  1. I ONCED>5,((T=67681)!(T=67688)!(T=67689)) D S Y="@313" Q
  1. .W !!?3,"AJCC does not define staging for this site.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;Melanoma of the Eyelid
  1. I ONCED<5,T=67441,$$MELANOMA^ONCOU55(D0) D S Y=37.2 Q
  1. .W !!?3,"No classification is recommended at present.",!
  1. .S $P(^ONCO(165.5,D0,2),U,25)=88
  1. .W !,"CLINICAL T: T88 NA"
  1. ;
  1. ;Brain and Spinal Cord
  1. I ONCED>4,(T=67700)!(T=67701)!(T=67709)!(T=67751)!(T=67752)!(T=67753)!($E(T,3,4)=71)!($E(T,3,4)=72) D S Y="@313" Q
  1. .W !!?3,"Central Nervous System Tumors have no TNM designation.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. ;Kaposi's sarcoma
  1. I H=91403 D S Y="@313" Q
  1. .W !!?3,"No TNM classification or staging is available for Kaposi's sarcoma.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. ;
  1. I $P(^ONCO(164,T,0),U,11)="" D S Y="@313" Q
  1. .W !!?3,"No stage grouping is presently recommended.",!
  1. .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB
  1. Q
  1. ;
  1. CN2 ;GTT - clinical
  1. S T=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I T=67589 D S Y=37.3 Q
  1. .W !!," Regional lymph node (N) classification does not apply to these tumors.",!
  1. .S $P(^ONCO(165.5,D0,2),U,26)=""
  1. .W !,"CLINICAL N:"
  1. Q
  1. ;
  1. CN4 ;GTT - pathologic
  1. S T=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I T=67589 D S Y=87 Q
  1. .W !!," Regional lymph node (N) classification does not apply to these tumors.",!
  1. .S $P(^ONCO(165.5,D0,2.1),U,2)=""
  1. .W !,"PATHOLOGIC N:"
  1. Q
  1. ;
  1. CN5 ;GTT - other
  1. S T=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I T=67589 D S Y=99 Q
  1. .W !!," Regional lymph node (N) classification does not apply to these tumors.",!
  1. .S $P(^ONCO(165.5,D0,2.1),U,7)=""
  1. .W !,"OTHER N:"
  1. Q
  1. ;
  1. RECN ;GTT - Subsequent Recurrences - other
  1. S T=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I T=67589 D S Y=3 Q
  1. .W !!," Regional lymph node (N) classification does not apply to these tumors.",!
  1. .S $P(^ONCO(165.5,D0,23,D1,0),U,8)=""
  1. .W !,"OTHER N:"
  1. Q
  1. ;
  1. ES ;Automatic Staging
  1. N CM,G,HT,HT14,N,M,SD,SP,STGTYP,T,TX,XX,XXX,YR
  1. S YR=$E($P($G(^ONCO(165.5,D0,0)),U,16),1,3)
  1. S ONCED=$S(YR<283:1,YR<288:2,YR<292:3,YR<298:4,YR<303:5,YR<310:6,1:7)
  1. I ONCED<3 D Q
  1. .W !!,"DATE DX prior to 1988. Automatic staging unavailable.",!
  1. S STGTYP=$S(STGIND="C":"CLINICAL",STGIND="P":"PATHOLOGIC",STGIND="O":"OTHER",STGIND="R":"RECURRENCE",1:"")
  1. S XX=$G(^ONCO(165.5,D0,2))
  1. G EX:XX=""
  1. S ST=$P(^ONCO(165.5,D0,0),U,1)
  1. S G=$P(^ONCO(165.5,D0,2),U,5)
  1. S TX=$P(^ONCO(165.5,D0,2),U,1)
  1. S HT=$$HIST^ONCFUNC(D0)
  1. S SP=$P($G(^ONCO(164,+TX,0)),U,11)
  1. S SD=$P($G(^ONCO(165.5,D0,"CS3")),U,1)
  1. I STGIND="C" D
  1. .S XXX=$G(^ONCO(165.5,D0,2))
  1. .S T=$P(XXX,U,25)
  1. .S N=$P(XXX,U,26)
  1. .S M=$P(XXX,U,27)
  1. I STGIND="P" D
  1. .S XXX=$G(^ONCO(165.5,D0,2.1))
  1. .S T=$P(XXX,U,1)
  1. .S N=$P(XXX,U,2)
  1. .S M=$P(XXX,U,3)
  1. .S CM=$P($G(^ONCO(165.5,D0,2)),U,27)
  1. .I (T'="X")!(N'="X"),$E(M,1)'=1,CM'="X" D
  1. ..S M=CM
  1. ..W !!?12,"CLINICAL M will be used to calculate PATHOLOGIC STAGE GROUPING."
  1. I STGIND="O" D
  1. .S XXX=$G(^ONCO(165.5,D0,2.1))
  1. .S T=$P(XXX,U,6)
  1. .S N=$P(XXX,U,7)
  1. .S M=$P(XXX,U,8)
  1. I STGIND="R" D
  1. .S XXX=$G(^ONCO(165.5,D0,23,DA,0))
  1. .S T=$P(XXX,U,6)
  1. .S N=$P(XXX,U,7)
  1. .S M=$P(XXX,U,8)
  1. I T="" D G SG
  1. .W !!?3,"No ",STGTYP," T category has been assigned."
  1. .S SG=99
  1. I N="",ST'=58,'$$GTT^ONCOU55(D0) D G SG
  1. .W !!?3,"No ",STGTYP," N category has been assigned."
  1. .S SG=99
  1. I M="",'$$OCULAR D G SG
  1. .W !?3,"No ",STGTYP," M category has been assigned."
  1. .S SG=99
  1. ;
  1. ;Gastrointestinal Stromal Tumor (Gist) 8935-8936
  1. I ($E(HT,1,4)=8935)!($E(HT,1,4)=8936),(($E(TX,3,4)=15)!($E(TX,3,4)=16)!($E(TX,3,4)=17)!($E(TX,3,4)=18)!($E(TX,3,4)=21)!($E(TX,3,4)=48)!(TX=67199)!(TX=67209)),ONCED>6 S AG="121" G AG
  1. ;
  1. ;Neuroendocrine Tumor 8153, 8240-8242, 8246, 8249
  1. I ONCED>6,(($E(HT,1,4)=8153)!($E(HT,1,4)=8240)!($E(HT,1,4)=8241)!($E(HT,1,4)=8242)!($E(HT,1,4)=8246)!($E(HT,1,4)=8249)),(($E(TX,3,4)=16)!($E(TX,3,4)=17)!($E(TX,3,4)=18)!(TX=67241)!(TX=67199)!(TX=67209)) S AG=122 G AG
  1. ;
  1. ;Esophagus/GE Junction C16.0-C16.2
  1. I TX=67160,ONCED>6 S AG="9" G AG
  1. I TX=67161!(TX=67162),ONCED>6,SD="010"!(SD="020")!(SD="040")!(SD="060") S AG="9" G AG
  1. ;
  1. ;Gallbladder
  1. ;Distal Bile Duct
  1. I TX=67240,ONCED>6,(SD="040")!(SD="070") S AG=63 G AG
  1. I TX=67240,ONCED>6,SD="030" S AG=14 G AG
  1. ;
  1. ;Melanoma of the Eyelid (C44.1)
  1. I TX=67441,ONCED<5,$$MELANOMA^ONCOU55(D0) S AG=37 G AG
  1. ;
  1. ;Melanoma of the Skin
  1. I $$MELANOMA^ONCOU55(D0),$P($G(^ONCO(164,+TX,0)),U,15) S AG=22 G AG
  1. ;
  1. ;Merkel Cell Carcinoma
  1. I $E(HT,1,4)=8247,ONCED>6 S AG=21 G AG
  1. ;
  1. ;Ovary and Primary Peritoneal Carcinoma - 7th edition
  1. S HT14=$E(HT,1,4)
  1. I ONCED>6,(TX=67481)!(TX=67482)!(TX=67488),(HT14>7999)&(HT14<8577)!(HT14>8929)&(HT14<9111) S AG=26,SP=67569 G AG
  1. ;
  1. ;GTT
  1. I TX=67589 S AG=54 G AG
  1. ;
  1. ;Urethra (C68.9)
  1. ;Urothelial (Transitional Cell) Carcinoma of the Prostate
  1. I ONCED>4,TX=67619,(HT=81203)!(HT=81303)!(HT=81223)!(HT=81202) D G AG
  1. .S AG=35
  1. ;
  1. ;Melanoma of the Conjunctiva
  1. I $$MELANOMA^ONCOU55(D0),TX=67690 S AG=39 G AG
  1. ;
  1. ;Melanoma of the Uvea
  1. I $$MELANOMA^ONCOU55(D0),((TX=67693)!(TX=67694)) S AG=40 G AG
  1. ;
  1. ;Ocular Adnexa Lymphoma
  1. I ONCED>6,$$LYMPHOMA^ONCFUNC(D0),((TX=67441)!(TX=67690)!(TX=67695)!(TX=67696)) S AG=431 G AG
  1. ;
  1. ;Lymphoid Neoplasms
  1. ;Mycosis fungoides (9700/3)
  1. ;Sezary Disease (9701/3)
  1. I ONCED>5,(HT=97003)!(HT=97013) S AG=55 G AG
  1. ;
  1. S AG=$P($G(^ONCO(164,+TX,0)),U,12)
  1. ;
  1. AG ;DO staging subroutine
  1. S SG=99
  1. I T=88,N=88,M=88 S SG=88 G SG
  1. S ONCOED=ONCED
  1. D @(AG_"^ONCOTN0")
  1. W:SG=99 !!,?12,"TNM combination not in staging table."
  1. ;
  1. SG ;Computed stage
  1. I STGIND="C" S $P(^ONCO(165.5,D0,2),U,20)=SG
  1. I STGIND="P" S $P(^ONCO(165.5,D0,2.1),U,4)=SG
  1. I STGIND="O" S $P(^ONCO(165.5,D0,2.1),U,9)=SG
  1. I STGIND="R" S $P(^ONCO(165.5,D0,23,DA,0),U,9)=SG
  1. I SG'="" S X=SG D KSG^ONCOCRC D
  1. .I STGIND="C" D CSSG^ONCOCRC Q
  1. .I STGIND="P" D PSSG^ONCOCRC Q
  1. N CMPFLG S CMPFLG="COMPUTING TNM"
  1. W !!?12,"Computed "_$S(STGIND="C":"CLINICAL",STGIND="P":"PATHOLOGIC",STGIND="O":"OTHER",STGIND="R":"RECURRENCE",1:"")," STAGE GROUPING: ",$$SGOUT^ONCOTNO(D0),!
  1. EX Q
  1. ;
  1. CTNM88 ;CLINICAL TNM 88
  1. S $P(^ONCO(165.5,D0,2),U,25)=88
  1. S $P(^ONCO(165.5,D0,2),U,26)=88
  1. S $P(^ONCO(165.5,D0,2),U,27)=88
  1. W !,"CLINICAL T: T88 NA"
  1. W !,"CLINICAL N: N88 NA"
  1. W !,"CLINICAL M: M88 NA",!
  1. I $$LYMPHOMA^ONCFUNC(D0) Q
  1. S:$P($G(^ONCO(165.5,D0,7)),U,7)="" $P(^ONCO(165.5,D0,7),U,7)="0000000"
  1. S:$P($G(^ONCO(165.5,D0,7)),U,14)="" $P(^ONCO(165.5,D0,7),U,14)="0000000"
  1. Q
  1. ;
  1. CSB I DATEDX>2951231 D
  1. .S $P(^ONCO(165.5,D0,3),U,32)=1 ;ONC*2.2*6 use pointer value now
  1. .W !,"STAGED BY (CLINICAL STAGE): Not staged",!
  1. Q
  1. ;
  1. PTNM88 ;PATHOLOGIC TNM 88
  1. S $P(^ONCO(165.5,D0,7),U,17)="N"
  1. S $P(^ONCO(165.5,D0,2.1),U,1)=88
  1. S $P(^ONCO(165.5,D0,2.1),U,2)=88
  1. S $P(^ONCO(165.5,D0,2.1),U,3)=88
  1. W !,"MULTIMODALITY THERAPY: NO"
  1. W !,"PATHOLOGIC T: T88 NA"
  1. W !,"PATHOLOGIC N: N88 NA"
  1. W !,"PATHOLOGIC M: M88 NA",!
  1. Q
  1. ;
  1. PSB I DATEDX>2951231 D
  1. .S $P(^ONCO(165.5,D0,2.1),U,5)=1 ;ONC*2.2*6 use pointer value now
  1. .W !,"STAGED BY (PATHOLOGIC STAGE): Not staged",!
  1. Q
  1. ;
  1. CSTG88 ;CLINICAL STAGE 88
  1. S $P(^ONCO(165.5,D0,2),U,20)=88
  1. W !,"STAGE GROUP CLINICAL: NA",!
  1. S TMP=$G(X),X=88 D CSSG^ONCOCRC S X=TMP
  1. K TMP
  1. Q
  1. ;
  1. PSTG88 ;PATHOLOGIC STAGE 88
  1. S $P(^ONCO(165.5,D0,2.1),U,4)=88
  1. W !,"STAGE GROUP PATHOLOGIC: NA",!
  1. S TMP=$G(X),X=88 D PSSG^ONCOCRC S X=TMP
  1. K TMP
  1. Q
  1. ;
  1. OCULAR() ;
  1. I $G(HT14)="" S HT14=$E(HT,1,4)
  1. I ONCED>6,$$LYMPHOMA^ONCFUNC(D0),((TX=67441)!(TX=67690)!(TX=67695)!(TX=67696)),((HT14>9589)&(HT14<9700)!(HT14>9701)&(HT14<9739)!(HT14>9810)&(HT14<9819)!(HT14>9819)&(HT14<9838)) Q 1
  1. Q 0
  1. ;
  1. CN1 ;No longer used. Called by PCEs.
  1. CN3 ;No longer used. Called by PCEs.
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K AG,D0,D1,DA,ONCOED,SG,ST,STGIND,X,Y