127 lines
5.0 KiB
Mathematica
127 lines
5.0 KiB
Mathematica
ONCSSF3 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 3 (165.5,44.3) ;11/20/03
|
|
;;2.11;ONCOLOGY;**40**;Mar 07, 1995
|
|
;
|
|
;SITE-SPECIFIC FACTOR 3 (165.5,44.3)
|
|
SSF3IT ;INPUT TRANSFORM
|
|
;
|
|
S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
|
|
I PS="" K X W " No PRIMARY SITE defined for this primary" Q
|
|
S MO=$$HIST^ONCFUNC(D0)
|
|
;
|
|
S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-3")):$O(^ONCO(164.52,"C",PS_"-3",0)),1:1)
|
|
;
|
|
;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
|
|
I $$MELANOMA^ONCOU55(D0) D
|
|
.S MELIEN=$O(^ONCO(164.52,"B","CLINICAL STATUS OF LYMPH NODE ",0))
|
|
.I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
|
|
.I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
|
|
.I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
|
|
.I PS=67632 S SSFIEN=MELIEN Q
|
|
;
|
|
;Hodgkin and Non-Hodgkin Lymphomas of All Sites
|
|
I $$LYMPHOMA^ONCFUNC(D0) S SSFIEN=$O(^ONCO(164.52,"B","IPI SCORE",0))
|
|
;
|
|
;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
|
|
;Kaposi Sarcoma of All Sites
|
|
I (MO=97003)!(MO=97013)!($E(MO,1,4)=9140) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
|
|
;Myeloproliferative Neoplasms
|
|
I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
;Retinoblastoma
|
|
I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0)) G SSF3I
|
|
;
|
|
;Breast
|
|
I $E(PS,3,4)=50,+X>0,+X<90 D G ITEX
|
|
.I X'?3N D K X Q
|
|
..I X?1N W !!," For ",X," enter 00",X," "
|
|
..I X?2N W !!," For ",X," enter 0",X," "
|
|
.W " ",X," nodes positive"
|
|
;
|
|
SSF3I I '$D(^ONCO(164.52,SSFIEN,1,"B",X)) K X Q
|
|
S SSF=$O(^ONCO(164.52,SSFIEN,1,"B",X,0))
|
|
W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2)
|
|
ITEX K PS,SSFIEN,SSF,MO,MELING Q
|
|
;
|
|
SSF3OT ;OUTPUT TRANSFORM
|
|
;
|
|
S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
|
|
Q:PS=""
|
|
S MO=$$HIST^ONCFUNC(D0)
|
|
;
|
|
S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-3")):$O(^ONCO(164.52,"C",PS_"-3",0)),1:1)
|
|
;
|
|
;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
|
|
I $$MELANOMA^ONCOU55(D0) D
|
|
.S MELIEN=$O(^ONCO(164.52,"B","CLINICAL STATUS OF LYMPH NODE ",0))
|
|
.I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
|
|
.I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
|
|
.I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
|
|
.I PS=67632 S SSFIEN=MELIEN Q
|
|
;
|
|
;Hodgkin and Non-Hodgkin Lymphomas of All Sites
|
|
I $$LYMPHOMA^ONCFUNC(D0) S SSFIEN=$O(^ONCO(164.52,"B","IPI SCORE",0))
|
|
;
|
|
;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
|
|
;Kaposi Sarcoma of All Sites
|
|
I (MO=97003)!(MO=97013)!($E(MO,1,4)=9140) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
|
|
I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
;Retinoblastoma
|
|
I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0)) G SSF3O
|
|
;
|
|
;Breast
|
|
I $E(PS,3,4)=50,+Y>0,+Y<90 S Y=Y_" nodes positive" G OTEX
|
|
;
|
|
SSF3O S SSF=$O(^ONCO(164.52,SSFIEN,1,"B",Y,0)) I SSF="" G OTEX
|
|
S Y=$P($G(^ONCO(164.52,SSFIEN,1,SSF,0)),U,2)
|
|
OTEX K PS,SSFIEN,SSF,MO Q
|
|
;
|
|
SSF3HP ;HELP
|
|
;
|
|
S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
|
|
Q:PS=""
|
|
S MO=$$HIST^ONCFUNC(D0)
|
|
;
|
|
S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-3")):$O(^ONCO(164.52,"C",PS_"-3",0)),1:1)
|
|
;
|
|
;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
|
|
I $$MELANOMA^ONCOU55(D0) D
|
|
.S MELIEN=$O(^ONCO(164.52,"B","CLINICAL STATUS OF LYMPH NODE ",0))
|
|
.I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
|
|
.I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
|
|
.I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
|
|
.I PS=67632 S SSFIEN=MELIEN Q
|
|
;
|
|
;Hodgkin and Non-Hodgkin Lymphomas of All Sites
|
|
I $$LYMPHOMA^ONCFUNC(D0) S SSFIEN=$O(^ONCO(164.52,"B","IPI SCORE",0))
|
|
;
|
|
;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
|
|
;Kaposi Sarcoma of All Sites
|
|
I (MO=97003)!(MO=97013)!($E(MO,1,4)=9140) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
|
|
I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
;Retinoblastoma
|
|
I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
|
|
;
|
|
W !," SITE-SPECIFIC FACTOR 3 for " D
|
|
.I MO=97003 W "MYCOSIS FUNGOIDES of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
|
|
.I MO=97013 W "SEZARY SYNDROME of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
|
|
.I $E(MO,1,3)=951 W "RETINOBLASTOMA of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
|
|
.I $$MELANOMA^ONCOU55(D0),($E(PS,3,4)=44)!($E(PS,3,4)=51)!($E(PS,3,4)=60)!(PS=67632)!($E(PS,3,4)=69) W "MALIGNANT MELANOMA of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
|
|
.I $E(MO,1,4)=9140 W "KAPOSI SARCOMA of ALL SITES" Q
|
|
.I $$LYMPHOMA^ONCFUNC(D0) W "HODGKIN AND NON-HODGKIN LYMPHOMAS of ALL SITES" Q
|
|
.I (MO'<97310)&(MO'>99899) W $P(^ONCO(169.3,MO,0),U,1)," (",$P(^ONCO(169.3,MO,0),U,2),")" Q
|
|
.W $P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")"
|
|
W !," ",$P(^ONCO(164.52,SSFIEN,0),U,1)
|
|
;S SSF=0 F S SSF=$O(^ONCO(164.52,SSFIEN,1,SSF)) Q:SSF'>0 D
|
|
;.S TAB=6
|
|
;.I ($P(^ONCO(164.52,SSFIEN,0),U,1)="NUMBER OF POSITIVE IPSILATERAL AXILLARY LYMPH NODES") S TAB=10
|
|
;.W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,1),?TAB,$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2),!
|
|
K PS,SSFIEN,SSF,MO Q
|