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