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

ONCSSF2.m

Go to the documentation of this file.
  1. ONCSSF2 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 2 (165.5,44.2) ;11/20/03
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. ;SITE-SPECIFIC FACTOR 2 (165.5,44.2)
  1. SSF2IT ;INPUT TRANSFORM
  1. ;
  1. S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I PS="" K X W " No PRIMARY SITE defined for this primary" Q
  1. S MO=$$HIST^ONCFUNC(D0)
  1. ;
  1. S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-2")):$O(^ONCO(164.52,"C",PS_"-2",0)),1:1)
  1. ;
  1. ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
  1. I $$MELANOMA^ONCOU55(D0) D
  1. .S MELIEN=$O(^ONCO(164.52,"B","ULCERATION",0))
  1. .I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
  1. .I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
  1. .I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
  1. .I PS=67632 S SSFIEN=MELIEN Q
  1. ;
  1. ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
  1. I $$LYMPHOMA^ONCFUNC(D0) S SSFIEN=$O(^ONCO(164.52,"B","SYSTEMIC SYMPTOMS AT DIAGNOSIS",0))
  1. ;
  1. ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
  1. ;Kaposi Sarcoma of All Sites
  1. I (MO=97003)!(MO=97013)!($E(MO,1,4)=9140) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
  1. ;Myeloproliferative Neoplasms
  1. I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. ;Retinoblastoma
  1. I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. I '$D(^ONCO(164.52,SSFIEN,1,"B",X)) K X Q
  1. S SSF=$O(^ONCO(164.52,SSFIEN,1,"B",X,0))
  1. W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2)
  1. ITEX K PS,SSFIEN,SSF,MO,MELING Q
  1. ;
  1. SSF2OT ;OUTPUT TRANSFORM
  1. ;
  1. S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. Q:PS=""
  1. S MO=$$HIST^ONCFUNC(D0)
  1. ;
  1. S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-2")):$O(^ONCO(164.52,"C",PS_"-2",0)),1:1)
  1. ;
  1. ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
  1. I $$MELANOMA^ONCOU55(D0) D
  1. .S MELIEN=$O(^ONCO(164.52,"B","ULCERATION",0))
  1. .I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
  1. .I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
  1. .I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
  1. .I PS=67632 S SSFIEN=MELIEN Q
  1. ;
  1. ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
  1. I $$LYMPHOMA^ONCFUNC(D0) S SSFIEN=$O(^ONCO(164.52,"B","SYSTEMIC SYMPTOMS AT DIAGNOSIS",0))
  1. ;
  1. ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
  1. ;Kaposi Sarcoma of All Sites
  1. I (MO=97003)!(MO=97013)!($E(MO,1,4)=9140) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
  1. ;Myeloproliferative Neoplasms
  1. I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. ;Retinoblastoma
  1. I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. S SSF=$O(^ONCO(164.52,SSFIEN,1,"B",Y,0)) I SSF="" G OTEX
  1. S Y=$P($G(^ONCO(164.52,SSFIEN,1,SSF,0)),U,2)
  1. OTEX K PS,SSFIEN,SSF,MO Q
  1. ;
  1. SSF2HP ;HELP
  1. ;
  1. S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. Q:PS=""
  1. S MO=$$HIST^ONCFUNC(D0)
  1. ;
  1. S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-2")):$O(^ONCO(164.52,"C",PS_"-2",0)),1:1)
  1. ;
  1. ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
  1. I $$MELANOMA^ONCOU55(D0) D
  1. .S MELIEN=$O(^ONCO(164.52,"B","ULCERATION",0))
  1. .I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
  1. .I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
  1. .I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
  1. .I PS=67632 S SSFIEN=MELIEN Q
  1. ;
  1. ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
  1. I $$LYMPHOMA^ONCFUNC(D0) S SSFIEN=$O(^ONCO(164.52,"B","SYSTEMIC SYMPTOMS AT DIAGNOSIS",0))
  1. ;
  1. ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
  1. ;Kaposi Sarcoma of All Sites
  1. I (MO=97003)!(MO=97013)!($E(MO,1,4)=9140) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
  1. ;Myeloproliferative Neoplasms
  1. I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. ;Retinoblastoma
  1. I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
  1. ;
  1. W !," SITE-SPECIFIC FACTOR 2 for " D
  1. .I MO=97003 W "MYCOSIS FUNGOIDES of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
  1. .I MO=97013 W "SEZARY SYNDROME of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
  1. .I $E(MO,1,3)=951 W "RETINOBLASTOMA of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
  1. .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
  1. .I $E(MO,1,4)=9140 W "KAPOSI SARCOMA of ALL SITES" Q
  1. .I $$LYMPHOMA^ONCFUNC(D0) W "HODGKIN AND NON-HODGKIN LYMPHOMAS of ALL SITES" Q
  1. .I (MO'<97310)&(MO'>99899) W $P(^ONCO(169.3,MO,0),U,1)," (",$P(^ONCO(169.3,MO,0),U,2),")" Q
  1. .W $P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")"
  1. W !," ",$P(^ONCO(164.52,SSFIEN,0),U,1)
  1. ;S SSF=0 F S SSF=$O(^ONCO(164.52,SSFIEN,1,SSF)) Q:SSF'>0 D
  1. ;.W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,1)_" "_$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2),!
  1. K PS,SSFIEN,SSF,MO Q