ONCCSSTF ;Hines OIFO/GWB - COLLABORATIVE STAGING STUFFING ;01/07/04
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
Q:$G(TOP)=""
N MM,MO
S MO=$$HIST^ONCFUNC(D0)
S MM="NO"
I $$MELANOMA^ONCOU55(D0) D
.S:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" $P(^ONCO(165.5,D0,"CS"),U,5)=$P($G(^ONCO(165.5,D0,2)),U,9)
E D
.S:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" $P(^ONCO(165.5,D0,"CS1"),U,10)=$P($G(^ONCO(165.5,D0,2)),U,9)
;
;Pharynx, NOS, Other Ill-Defined Oral Cavity Sites
I (TOP=67140)!(TOP=67142)!(TOP=67148) D EVAL9
;Other & Ill-defined Digestive Organs
I ($E(TOP,3,4)=26) D EVAL9
;Middle Ear
I TOP=67301 D EVAL9
;Accessory (Paranasal) Sinuses
I (TOP=67312)!(TOP=67313)!(TOP=67318)!(TOP=67319) D EVAL9
;Trachea
I TOP=67339 D EVAL9
;Other & Ill-Defined Respiratory Sites & Intrathoracic Organs
I (TOP=67390)!(TOP=67398)!(TOP=67399) D EVAL9
;Broad & Round Ligaments, Parametrium, Uterine Adnexa
I (TOP=67571)!(TOP=67572)!(TOP=67573)!(TOP=67574) D EVAL9
;Other & Unspecified Female Genital Organs
I (TOP=67577)!(TOP=67578)!(TOP=67579) D EVAL9
;Prostate
I TOP=67619 D
.S:$P($G(^ONCO(165.5,D0,2.2)),U,2)=99 $P(^ONCO(165.5,D0,"CS"),U,7)="097"
.N GS
.S GS=$$GET1^DIQ(165.5,D0,623)
.I GS'="" S GS=$S(GS="02":"002",GS="03":"003",GS="04":"004",GS="05":"005",GS="06":"006",GS="07":"007",GS="08":"008",GS="09":"009",GS="10":"010",1:"") S $P(^ONCO(165.5,D0,"CS"),U,10)=GS
;Other & Unspecified Male Genital Organs
I ($E(TOP,3,4)=63) D EVAL9
;Paraurethral Gland, Overlapping Lesion of Urinary Organs, &
;Unspecified Urinary Organs
I (TOP=67681)!(TOP=67688)!(TOP=67689) D EVAL9
;Cornea, Retina, Choroid, Ciliary Body, Eyeball, Overlapping &
;Other Eye
I '$$MELANOMA^ONCOU55(D0),(TOP=67691)!(TOP=67692)!(TOP=67693)!(TOP=67694)!(TOP=67698)!(TOP=67699) D EVAL9
;Brain & Cerebral Meninges
I (TOP=67700)!($E(TOP,3,4)=71) D EVAL9,LN
;Other Parts of CNS
I (TOP=67701)!(TOP=67709)!($E(TOP,3,4)=72) D EVAL9,LN
;Thymus, Adrenal (Suprarenal) Gland, & Other Endocrine Glands
I (TOP=67379)!($E(TOP,3,4)=74)!($E(TOP,3,4)=75) D EVAL9
;
MM ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
I $$MELANOMA^ONCOU55(D0),($E(TOP,3,4)=44)!($E(TOP,3,4)=51)!($E(TOP,3,4)=60)!(TOP=67632) D SSF56 Q
;Malignant Melanoma of Conjunctiva
I $$MELANOMA^ONCOU55(D0),TOP=67690 S MM="YES" G SSF26
;Malignant Melanoma of Iris & Ciliary Body
I $$MELANOMA^ONCOU55(D0),TOP=67694 S MM="YES" G SSF26
;Malignant Melanoma of Choroid
I $$MELANOMA^ONCOU55(D0),TOP=67693 S MM="YES" G SSF26
;Malignant Melanoma of Other Eye
I $$MELANOMA^ONCOU55(D0),(TOP=67691)!(TOP=67692)!(TOP=67695)!(TOP=67698)!(TOP=67699) D SSF168 Q
MFSD ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
I (MO=97003)!(MO=97013),($E(TOP,3,4)=44)!($E(TOP,3,4)=51)!($E(TOP,3,4)=60)!(TOP=67632) D SSF26 Q
RET ;Retinoblastoma
I $E(MO,1,3)=951,($E(TOP,3,4)=69) S MM="YES" G SSF26
;Kaposi Sarcoma of All Sites (9140)
I MO=91403 D D EVAL9 S MM="YES" G SSF26
.S $P(^ONCO(165.5,D0,"CS1"),U,10)=888
.S $P(^ONCO(165.5,D0,"CS"),U,3)=88
LYMPH ;Hodgkin & Non-Hodgkin Lymphomas of All Sites
;(excl. Mycosis Fungoides & Sezary Disease)
I $$LYMPHOMA^ONCFUNC(D0),MO'=97003,MO'=97013 D LN D Q
.S $P(^ONCO(165.5,D0,"CS1"),U,10)=888
.S $P(^ONCO(165.5,D0,"CS"),U,2)=9
.S $P(^ONCO(165.5,D0,"CS"),U,4)=9
.S $P(^ONCO(165.5,D0,"CS"),U,3)=88
.S $P(^ONCO(165.5,D0,"CS"),U,8)=888
.S $P(^ONCO(165.5,D0,"CS"),U,9)=888
.S $P(^ONCO(165.5,D0,"CS"),U,10)=888
HRIMN ;Hematopoietic, Reticuloendothelial, Immunoproliferative, &
;Myeloproliferative Neoplasms
I (MO'<97310)&(MO'>99899) D EVAL9,LN,SSF168 D Q
.S $P(^ONCO(165.5,D0,"CS1"),U,10)=888
.S $P(^ONCO(165.5,D0,"CS"),U,3)=88
.;EXTENSION (CS) (165.5,30.2) stuffing with 80 (Systemic disease)
.I (MO'=97313)&($E(MO,1,4)'=9740)&($E(MO,1,4)'=9750)&($E(MO,1,4)'=9755)&($E(MO,1,4)'=9756)&($E(MO,1,4)'=9757)&($E(MO,1,4)'=9758)&($E(MO,1,4)'=9930) D
..S $P(^ONCO(165.5,D0,"CS"),U,11)=80
;
SSF16 ;SITE-SPECIFIC FACTOR 1-6 = 888 (Not applicable for this site)
;Esophagus
I ($E(TOP,3,4)=15) D SSF168 Q
;Small Intestine
I ($E(TOP,3,4)=17) D SSF168 Q
;Anus
I ($E(TOP,3,4)=21) D SSF168 Q
;Gallbladder
I TOP=67239 D SSF168 Q
;Extrahepatic Bile Duct(s)
I TOP=67240 D SSF168 Q
;Ampulla of Vater
I TOP=67241 D SSF168 Q
;Other Biliary & Biliary, NOS
I (TOP=67248)!(TOP=67249) D SSF168 Q
;Pancreas: Head
I TOP=67250 D SSF168 Q
;Pancreas: Body & Tail
I (TOP=67251)!(TOP=67252) D SSF168 Q
;Pancreas: Other & Unspecified
I (TOP=67253)!(TOP=67254)!(TOP=67257)!(TOP=67258)!(TOP=67259) D SSF168 Q
;Other & Ill-defined Digestive Organs
I (TOP=67260)!(TOP=6728)!(TOP=67269) D SSF168 Q
;Trachea
I TOP=67339 D SSF168 Q
;Lung
I ($E(TOP,3,4)=34) D SSF168 Q
;Heart, Mediastinum
I (TOP=67380)!(TOP=67381)!(TOP=67382)!(TOP=67383)!(TOP=67388) D SSF168 Q
;Other & Ill-Defined Respiratory Sites & Intrathoracic Organs
I (TOP=67390)!(TOP=67398)!(TOP=67399) D SSF168 Q
;Bone
I ($E(TOP,3,4)=40)!($E(TOP,3,4)=41) D SSF168 Q
;Skin
;(excl. Mycosis Fungoides & Sezary Disease)
I (TOP=67440)!(TOP=67442)!(TOP=67443)!(TOP=67444)!(TOP=67445)!(TOP=67446)!(TOP=67447)!(TOP=67448)!(TOP=67449),MO'=97003,MO'=97013 D SSF168 Q
;Skin of Eyelid
I TOP=67441 D SSF168 Q
;Peripheral Nerves & Autonomic Nervous System;
;Connective, Subcutaneous, & Other Soft Tissues
I ($E(TOP,3,4)=47)!($E(TOP,3,4)=49) D SSF168 Q
;Retroperitoneum & Peritoneum
I ($E(TOP,3,4)=48) D SSF168 Q
;Vulva
I ($E(TOP,3,4)=51) D SSF168 Q
;Vagina
I TOP=67529 D SSF168 Q
;Cervix Uteri
I ($E(TOP,3,4)=53) D SSF168 Q
;Corpus Uteri; Uterus, NOS
I ($E(TOP,3,4)=54)!(TOP=67559) D SSF168 Q
;Fallopian Tube
I TOP=67570 D SSF168 Q
;Broad & Round Ligaments, Parametrium, Uterine Adnexa
I (TOP=67571)!(TOP=67572)!(TOP=67573)!(TOP=67574) D SSF168 Q
;Other & Unspecified Female Genital Organs
I (TOP=67577)!(TOP=67578)!(TOP=67579) D SSF168 Q
;Penis
I ($E(TOP,3,4)=60) D SSF168 Q
;Other & Unspecified Male Genital Organs
I ($E(TOP,3,4)=63) D SSF168 Q
;Scrotum
I TOP=67632 D SSF168 Q
;Kidney (Renal Parenchyma)
I TOP=67649 D SSF168 Q
;Renal Pelvis & Ureter
I (TOP=67659)!(TOP=67669) D SSF168 Q
;Bladder
I ($E(TOP,3,4)=67) D SSF168 Q
;Urethra
I TOP=67680 D SSF168 Q
;Paraurethral Gland, Overlapping Lesion of Urinary Organs, &
;Unspecified Urinary Organs
I (TOP=67681)!(TOP=67688)!(TOP=67689) D SSF168 Q
;Conjunctiva
I TOP=67690 D SSF168 Q
;Cornea, Retina, Choroid, Ciliary Body, Eyeball, Overlapping &
;Other Eye
I (TOP=67691)!(TOP=67692)!(TOP=67693)!(TOP=67694)!(TOP=67698)!(TOP=67699) D SSF168 Q
;Lacrimal Gland
I TOP=67695 D SSF168 Q
;Orbit
I TOP=67696 D SSF168 Q
;Other & Ill-Defined Sites, Unknown Primary Site
I ($E(TOP,3,4)=42)!($E(TOP,3,4)=76)!($E(TOP,3,4)=77)!(TOP=67809) D EVAL9,LN,SSF168 D Q
.S $P(^ONCO(165.5,D0,"CS"),U,11)=88
.S $P(^ONCO(165.5,D0,"CS"),U,3)=88
;
SSF26 ;SITE-SPECIFIC FACTOR 2-6 = 888 (Not applicable for this site)
;Pleura
;Mycosis Fungoides & Sezary Disease (9700-9701)
;Ovary
;Placenta
I TOP=67589 D LN S $P(^ONCO(165.5,D0,"CS"),U,2)=9
;Brain & Cerebral Meninges
;Other Parts of CNS
;Thyroid
;Thymus, Adrenal (Suprarenal) Gland, & Other Endocrine Glands
;Stomach
I (TOP=67384)!(MO=97003)!(MO=97013)!(TOP=67569)!(TOP=67589)!(MM="YES")!(TOP=67700)!($E(TOP,3,4)=71)!(TOP=67701)!(TOP=67709)!($E(TOP,3,4)=72)!(TOP=67739)!(TOP=67379)!($E(TOP,3,4)=74)!($E(TOP,3,4)=75)!($E(TOP,3,4)=16) D Q
.S $P(^ONCO(165.5,D0,"CS"),U,6)=888
.S $P(^ONCO(165.5,D0,"CS"),U,7)=888
.S $P(^ONCO(165.5,D0,"CS"),U,8)=888
.S $P(^ONCO(165.5,D0,"CS"),U,9)=888
.S $P(^ONCO(165.5,D0,"CS"),U,10)=888
;
SSF36 ;SITE-SPECIFIC FACTOR 3-6 = 888 (Not applicable for this site)
;Colon
;Rectosigmoid, Rectum
;Liver & Intrahepatic Bile Ducts
I ($E(TOP,3,4)=18)!(TOP=67199)!(TOP=67209)!($E(TOP,3,4)=22) D Q
.S $P(^ONCO(165.5,D0,"CS"),U,7)=888
.S $P(^ONCO(165.5,D0,"CS"),U,8)=888
.S $P(^ONCO(165.5,D0,"CS"),U,9)=888
.S $P(^ONCO(165.5,D0,"CS"),U,10)=888
;
SSF6 ;SITE-SPECIFIC FACTOR 6 = 888 (Not applicable for this site)
;Testis
I ($E(TOP,3,4)=62) D Q
.S $P(^ONCO(165.5,D0,"CS"),U,10)=888
;
Q
;
EVAL9 S $P(^ONCO(165.5,D0,"CS"),U,1)=9
S $P(^ONCO(165.5,D0,"CS"),U,2)=9
S $P(^ONCO(165.5,D0,"CS"),U,4)=9
Q
;
SSF168 S $P(^ONCO(165.5,D0,"CS"),U,5)=888
S $P(^ONCO(165.5,D0,"CS"),U,6)=888
S $P(^ONCO(165.5,D0,"CS"),U,7)=888
S $P(^ONCO(165.5,D0,"CS"),U,8)=888
S $P(^ONCO(165.5,D0,"CS"),U,9)=888
S $P(^ONCO(165.5,D0,"CS"),U,10)=888
Q
;
SSF56 ;SITE-SPECIFIC FACTOR 5-6 = 888 (Not applicable for this site)
S $P(^ONCO(165.5,D0,"CS"),U,9)=888
S $P(^ONCO(165.5,D0,"CS"),U,10)=888
Q
;
LN S $P(^ONCO(165.5,D0,"CS"),U,12)=88
S $P(^ONCO(165.5,D0,2),U,12)=99
S $P(^ONCO(165.5,D0,2),U,13)=99
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCSSTF 8834 printed Nov 22, 2024@17:32:48 Page 2
ONCCSSTF ;Hines OIFO/GWB - COLLABORATIVE STAGING STUFFING ;01/07/04
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 if $GET(TOP)=""
QUIT
+4 NEW MM,MO
+5 SET MO=$$HIST^ONCFUNC(D0)
+6 SET MM="NO"
+7 IF $$MELANOMA^ONCOU55(D0)
Begin DoDot:1
+8 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
SET $PIECE(^ONCO(165.5,D0,"CS"),U,5)=$PIECE($GET(^ONCO(165.5,D0,2)),U,9)
End DoDot:1
+9 IF '$TEST
Begin DoDot:1
+10 if $PIECE($GET(^ONCO(165.5,D0,"CS1")),U,10)=""
SET $PIECE(^ONCO(165.5,D0,"CS1"),U,10)=$PIECE($GET(^ONCO(165.5,D0,2)),U,9)
End DoDot:1
+11 ;
+12 ;Pharynx, NOS, Other Ill-Defined Oral Cavity Sites
+13 IF (TOP=67140)!(TOP=67142)!(TOP=67148)
DO EVAL9
+14 ;Other & Ill-defined Digestive Organs
+15 IF ($EXTRACT(TOP,3,4)=26)
DO EVAL9
+16 ;Middle Ear
+17 IF TOP=67301
DO EVAL9
+18 ;Accessory (Paranasal) Sinuses
+19 IF (TOP=67312)!(TOP=67313)!(TOP=67318)!(TOP=67319)
DO EVAL9
+20 ;Trachea
+21 IF TOP=67339
DO EVAL9
+22 ;Other & Ill-Defined Respiratory Sites & Intrathoracic Organs
+23 IF (TOP=67390)!(TOP=67398)!(TOP=67399)
DO EVAL9
+24 ;Broad & Round Ligaments, Parametrium, Uterine Adnexa
+25 IF (TOP=67571)!(TOP=67572)!(TOP=67573)!(TOP=67574)
DO EVAL9
+26 ;Other & Unspecified Female Genital Organs
+27 IF (TOP=67577)!(TOP=67578)!(TOP=67579)
DO EVAL9
+28 ;Prostate
+29 IF TOP=67619
Begin DoDot:1
+30 if $PIECE($GET(^ONCO(165.5,D0,2.2)),U,2)=99
SET $PIECE(^ONCO(165.5,D0,"CS"),U,7)="097"
+31 NEW GS
+32 SET GS=$$GET1^DIQ(165.5,D0,623)
+33 IF GS'=""
SET GS=$SELECT(GS="02":"002",GS="03":"003",GS="04":"004",GS="05":"005",GS="06":"006",GS="07":"007",GS="08":"008",GS="09":"009",GS="10":"010",1:"")
SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=GS
End DoDot:1
+34 ;Other & Unspecified Male Genital Organs
+35 IF ($EXTRACT(TOP,3,4)=63)
DO EVAL9
+36 ;Paraurethral Gland, Overlapping Lesion of Urinary Organs, &
+37 ;Unspecified Urinary Organs
+38 IF (TOP=67681)!(TOP=67688)!(TOP=67689)
DO EVAL9
+39 ;Cornea, Retina, Choroid, Ciliary Body, Eyeball, Overlapping &
+40 ;Other Eye
+41 IF '$$MELANOMA^ONCOU55(D0)
IF (TOP=67691)!(TOP=67692)!(TOP=67693)!(TOP=67694)!(TOP=67698)!(TOP=67699)
DO EVAL9
+42 ;Brain & Cerebral Meninges
+43 IF (TOP=67700)!($EXTRACT(TOP,3,4)=71)
DO EVAL9
DO LN
+44 ;Other Parts of CNS
+45 IF (TOP=67701)!(TOP=67709)!($EXTRACT(TOP,3,4)=72)
DO EVAL9
DO LN
+46 ;Thymus, Adrenal (Suprarenal) Gland, & Other Endocrine Glands
+47 IF (TOP=67379)!($EXTRACT(TOP,3,4)=74)!($EXTRACT(TOP,3,4)=75)
DO EVAL9
+48 ;
MM ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
+1 IF $$MELANOMA^ONCOU55(D0)
IF ($EXTRACT(TOP,3,4)=44)!($EXTRACT(TOP,3,4)=51)!($EXTRACT(TOP,3,4)=60)!(TOP=67632)
DO SSF56
QUIT
+2 ;Malignant Melanoma of Conjunctiva
+3 IF $$MELANOMA^ONCOU55(D0)
IF TOP=67690
SET MM="YES"
GOTO SSF26
+4 ;Malignant Melanoma of Iris & Ciliary Body
+5 IF $$MELANOMA^ONCOU55(D0)
IF TOP=67694
SET MM="YES"
GOTO SSF26
+6 ;Malignant Melanoma of Choroid
+7 IF $$MELANOMA^ONCOU55(D0)
IF TOP=67693
SET MM="YES"
GOTO SSF26
+8 ;Malignant Melanoma of Other Eye
+9 IF $$MELANOMA^ONCOU55(D0)
IF (TOP=67691)!(TOP=67692)!(TOP=67695)!(TOP=67698)!(TOP=67699)
DO SSF168
QUIT
MFSD ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
+1 IF (MO=97003)!(MO=97013)
IF ($EXTRACT(TOP,3,4)=44)!($EXTRACT(TOP,3,4)=51)!($EXTRACT(TOP,3,4)=60)!(TOP=67632)
DO SSF26
QUIT
RET ;Retinoblastoma
+1 IF $EXTRACT(MO,1,3)=951
IF ($EXTRACT(TOP,3,4)=69)
SET MM="YES"
GOTO SSF26
+2 ;Kaposi Sarcoma of All Sites (9140)
+3 IF MO=91403
Begin DoDot:1
+4 SET $PIECE(^ONCO(165.5,D0,"CS1"),U,10)=888
+5 SET $PIECE(^ONCO(165.5,D0,"CS"),U,3)=88
End DoDot:1
DO EVAL9
SET MM="YES"
GOTO SSF26
LYMPH ;Hodgkin & Non-Hodgkin Lymphomas of All Sites
+1 ;(excl. Mycosis Fungoides & Sezary Disease)
+2 IF $$LYMPHOMA^ONCFUNC(D0)
IF MO'=97003
IF MO'=97013
DO LN
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,D0,"CS1"),U,10)=888
+4 SET $PIECE(^ONCO(165.5,D0,"CS"),U,2)=9
+5 SET $PIECE(^ONCO(165.5,D0,"CS"),U,4)=9
+6 SET $PIECE(^ONCO(165.5,D0,"CS"),U,3)=88
+7 SET $PIECE(^ONCO(165.5,D0,"CS"),U,8)=888
+8 SET $PIECE(^ONCO(165.5,D0,"CS"),U,9)=888
+9 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=888
End DoDot:1
QUIT
HRIMN ;Hematopoietic, Reticuloendothelial, Immunoproliferative, &
+1 ;Myeloproliferative Neoplasms
+2 IF (MO'<97310)&(MO'>99899)
DO EVAL9
DO LN
DO SSF168
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,D0,"CS1"),U,10)=888
+4 SET $PIECE(^ONCO(165.5,D0,"CS"),U,3)=88
+5 ;EXTENSION (CS) (165.5,30.2) stuffing with 80 (Systemic disease)
+6 IF (MO'=97313)&($EXTRACT(MO,1,4)'=9740)&($EXTRACT(MO,1,4)'=9750)&($EXTRACT(MO,1,4)'=9755)&($EXTRACT(MO,1,4)'=9756)&($EXTRACT(MO,1,4)'=9757)&($EXTRACT(MO,1,4)'=9758)&($EXTRACT(MO,1,4)'=9930)
Begin DoDot:2
+7 SET $PIECE(^ONCO(165.5,D0,"CS"),U,11)=80
End DoDot:2
End DoDot:1
QUIT
+8 ;
SSF16 ;SITE-SPECIFIC FACTOR 1-6 = 888 (Not applicable for this site)
+1 ;Esophagus
+2 IF ($EXTRACT(TOP,3,4)=15)
DO SSF168
QUIT
+3 ;Small Intestine
+4 IF ($EXTRACT(TOP,3,4)=17)
DO SSF168
QUIT
+5 ;Anus
+6 IF ($EXTRACT(TOP,3,4)=21)
DO SSF168
QUIT
+7 ;Gallbladder
+8 IF TOP=67239
DO SSF168
QUIT
+9 ;Extrahepatic Bile Duct(s)
+10 IF TOP=67240
DO SSF168
QUIT
+11 ;Ampulla of Vater
+12 IF TOP=67241
DO SSF168
QUIT
+13 ;Other Biliary & Biliary, NOS
+14 IF (TOP=67248)!(TOP=67249)
DO SSF168
QUIT
+15 ;Pancreas: Head
+16 IF TOP=67250
DO SSF168
QUIT
+17 ;Pancreas: Body & Tail
+18 IF (TOP=67251)!(TOP=67252)
DO SSF168
QUIT
+19 ;Pancreas: Other & Unspecified
+20 IF (TOP=67253)!(TOP=67254)!(TOP=67257)!(TOP=67258)!(TOP=67259)
DO SSF168
QUIT
+21 ;Other & Ill-defined Digestive Organs
+22 IF (TOP=67260)!(TOP=6728)!(TOP=67269)
DO SSF168
QUIT
+23 ;Trachea
+24 IF TOP=67339
DO SSF168
QUIT
+25 ;Lung
+26 IF ($EXTRACT(TOP,3,4)=34)
DO SSF168
QUIT
+27 ;Heart, Mediastinum
+28 IF (TOP=67380)!(TOP=67381)!(TOP=67382)!(TOP=67383)!(TOP=67388)
DO SSF168
QUIT
+29 ;Other & Ill-Defined Respiratory Sites & Intrathoracic Organs
+30 IF (TOP=67390)!(TOP=67398)!(TOP=67399)
DO SSF168
QUIT
+31 ;Bone
+32 IF ($EXTRACT(TOP,3,4)=40)!($EXTRACT(TOP,3,4)=41)
DO SSF168
QUIT
+33 ;Skin
+34 ;(excl. Mycosis Fungoides & Sezary Disease)
+35 IF (TOP=67440)!(TOP=67442)!(TOP=67443)!(TOP=67444)!(TOP=67445)!(TOP=67446)!(TOP=67447)!(TOP=67448)!(TOP=67449)
IF MO'=97003
IF MO'=97013
DO SSF168
QUIT
+36 ;Skin of Eyelid
+37 IF TOP=67441
DO SSF168
QUIT
+38 ;Peripheral Nerves & Autonomic Nervous System;
+39 ;Connective, Subcutaneous, & Other Soft Tissues
+40 IF ($EXTRACT(TOP,3,4)=47)!($EXTRACT(TOP,3,4)=49)
DO SSF168
QUIT
+41 ;Retroperitoneum & Peritoneum
+42 IF ($EXTRACT(TOP,3,4)=48)
DO SSF168
QUIT
+43 ;Vulva
+44 IF ($EXTRACT(TOP,3,4)=51)
DO SSF168
QUIT
+45 ;Vagina
+46 IF TOP=67529
DO SSF168
QUIT
+47 ;Cervix Uteri
+48 IF ($EXTRACT(TOP,3,4)=53)
DO SSF168
QUIT
+49 ;Corpus Uteri; Uterus, NOS
+50 IF ($EXTRACT(TOP,3,4)=54)!(TOP=67559)
DO SSF168
QUIT
+51 ;Fallopian Tube
+52 IF TOP=67570
DO SSF168
QUIT
+53 ;Broad & Round Ligaments, Parametrium, Uterine Adnexa
+54 IF (TOP=67571)!(TOP=67572)!(TOP=67573)!(TOP=67574)
DO SSF168
QUIT
+55 ;Other & Unspecified Female Genital Organs
+56 IF (TOP=67577)!(TOP=67578)!(TOP=67579)
DO SSF168
QUIT
+57 ;Penis
+58 IF ($EXTRACT(TOP,3,4)=60)
DO SSF168
QUIT
+59 ;Other & Unspecified Male Genital Organs
+60 IF ($EXTRACT(TOP,3,4)=63)
DO SSF168
QUIT
+61 ;Scrotum
+62 IF TOP=67632
DO SSF168
QUIT
+63 ;Kidney (Renal Parenchyma)
+64 IF TOP=67649
DO SSF168
QUIT
+65 ;Renal Pelvis & Ureter
+66 IF (TOP=67659)!(TOP=67669)
DO SSF168
QUIT
+67 ;Bladder
+68 IF ($EXTRACT(TOP,3,4)=67)
DO SSF168
QUIT
+69 ;Urethra
+70 IF TOP=67680
DO SSF168
QUIT
+71 ;Paraurethral Gland, Overlapping Lesion of Urinary Organs, &
+72 ;Unspecified Urinary Organs
+73 IF (TOP=67681)!(TOP=67688)!(TOP=67689)
DO SSF168
QUIT
+74 ;Conjunctiva
+75 IF TOP=67690
DO SSF168
QUIT
+76 ;Cornea, Retina, Choroid, Ciliary Body, Eyeball, Overlapping &
+77 ;Other Eye
+78 IF (TOP=67691)!(TOP=67692)!(TOP=67693)!(TOP=67694)!(TOP=67698)!(TOP=67699)
DO SSF168
QUIT
+79 ;Lacrimal Gland
+80 IF TOP=67695
DO SSF168
QUIT
+81 ;Orbit
+82 IF TOP=67696
DO SSF168
QUIT
+83 ;Other & Ill-Defined Sites, Unknown Primary Site
+84 IF ($EXTRACT(TOP,3,4)=42)!($EXTRACT(TOP,3,4)=76)!($EXTRACT(TOP,3,4)=77)!(TOP=67809)
DO EVAL9
DO LN
DO SSF168
Begin DoDot:1
+85 SET $PIECE(^ONCO(165.5,D0,"CS"),U,11)=88
+86 SET $PIECE(^ONCO(165.5,D0,"CS"),U,3)=88
End DoDot:1
QUIT
+87 ;
SSF26 ;SITE-SPECIFIC FACTOR 2-6 = 888 (Not applicable for this site)
+1 ;Pleura
+2 ;Mycosis Fungoides & Sezary Disease (9700-9701)
+3 ;Ovary
+4 ;Placenta
+5 IF TOP=67589
DO LN
SET $PIECE(^ONCO(165.5,D0,"CS"),U,2)=9
+6 ;Brain & Cerebral Meninges
+7 ;Other Parts of CNS
+8 ;Thyroid
+9 ;Thymus, Adrenal (Suprarenal) Gland, & Other Endocrine Glands
+10 ;Stomach
+11 IF (TOP=67384)!(MO=97003)!(MO=97013)!(TOP=67569)!(TOP=67589)!(MM="YES")!(TOP=67700)!($EXTRACT(TOP,3,4)=71)!(TOP=67701)!(TOP=67709)!($EXTRACT(TOP,3,4)=72)!(TOP=67739)!(TOP=67379)!($EXTRACT(TOP,3,4)=74)!($EXTRACT(TOP,3,4)=75)!($EXTRACT(TOP,3,4)=1
6)
Begin DoDot:1
+12 SET $PIECE(^ONCO(165.5,D0,"CS"),U,6)=888
+13 SET $PIECE(^ONCO(165.5,D0,"CS"),U,7)=888
+14 SET $PIECE(^ONCO(165.5,D0,"CS"),U,8)=888
+15 SET $PIECE(^ONCO(165.5,D0,"CS"),U,9)=888
+16 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=888
End DoDot:1
QUIT
+17 ;
SSF36 ;SITE-SPECIFIC FACTOR 3-6 = 888 (Not applicable for this site)
+1 ;Colon
+2 ;Rectosigmoid, Rectum
+3 ;Liver & Intrahepatic Bile Ducts
+4 IF ($EXTRACT(TOP,3,4)=18)!(TOP=67199)!(TOP=67209)!($EXTRACT(TOP,3,4)=22)
Begin DoDot:1
+5 SET $PIECE(^ONCO(165.5,D0,"CS"),U,7)=888
+6 SET $PIECE(^ONCO(165.5,D0,"CS"),U,8)=888
+7 SET $PIECE(^ONCO(165.5,D0,"CS"),U,9)=888
+8 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=888
End DoDot:1
QUIT
+9 ;
SSF6 ;SITE-SPECIFIC FACTOR 6 = 888 (Not applicable for this site)
+1 ;Testis
+2 IF ($EXTRACT(TOP,3,4)=62)
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=888
End DoDot:1
QUIT
+4 ;
+5 QUIT
+6 ;
EVAL9 SET $PIECE(^ONCO(165.5,D0,"CS"),U,1)=9
+1 SET $PIECE(^ONCO(165.5,D0,"CS"),U,2)=9
+2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,4)=9
+3 QUIT
+4 ;
SSF168 SET $PIECE(^ONCO(165.5,D0,"CS"),U,5)=888
+1 SET $PIECE(^ONCO(165.5,D0,"CS"),U,6)=888
+2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,7)=888
+3 SET $PIECE(^ONCO(165.5,D0,"CS"),U,8)=888
+4 SET $PIECE(^ONCO(165.5,D0,"CS"),U,9)=888
+5 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=888
+6 QUIT
+7 ;
SSF56 ;SITE-SPECIFIC FACTOR 5-6 = 888 (Not applicable for this site)
+1 SET $PIECE(^ONCO(165.5,D0,"CS"),U,9)=888
+2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=888
+3 QUIT
+4 ;
LN SET $PIECE(^ONCO(165.5,D0,"CS"),U,12)=88
+1 SET $PIECE(^ONCO(165.5,D0,2),U,12)=99
+2 SET $PIECE(^ONCO(165.5,D0,2),U,13)=99
+3 QUIT
