- ONCSSF2 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 2 (165.5,44.2) ;11/20/03
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- ;
- ;SITE-SPECIFIC FACTOR 2 (165.5,44.2)
- SSF2IT ;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_"-2")):$O(^ONCO(164.52,"C",PS_"-2",0)),1:1)
- ;
- ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
- I $$MELANOMA^ONCOU55(D0) D
- .S MELIEN=$O(^ONCO(164.52,"B","ULCERATION",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","SYSTEMIC SYMPTOMS AT DIAGNOSIS",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))
- ;
- 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
- ;
- SSF2OT ;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_"-2")):$O(^ONCO(164.52,"C",PS_"-2",0)),1:1)
- ;
- ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
- I $$MELANOMA^ONCOU55(D0) D
- .S MELIEN=$O(^ONCO(164.52,"B","ULCERATION",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","SYSTEMIC SYMPTOMS AT DIAGNOSIS",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))
- ;
- 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
- ;
- SSF2HP ;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_"-2")):$O(^ONCO(164.52,"C",PS_"-2",0)),1:1)
- ;
- ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
- I $$MELANOMA^ONCOU55(D0) D
- .S MELIEN=$O(^ONCO(164.52,"B","ULCERATION",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","SYSTEMIC SYMPTOMS AT DIAGNOSIS",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))
- ;
- W !," SITE-SPECIFIC FACTOR 2 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
- ;.W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,1)_" "_$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2),!
- K PS,SSFIEN,SSF,MO Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSSF2 4928 printed Feb 18, 2025@23:55:17 Page 2
- 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
- +2 ;
- +3 ;SITE-SPECIFIC FACTOR 2 (165.5,44.2)
- SSF2IT ;INPUT TRANSFORM
- +1 ;
- +2 SET PS=$PIECE($GET(^ONCO(165.5,D0,2)),U,1)
- +3 IF PS=""
- KILL X
- WRITE " No PRIMARY SITE defined for this primary"
- QUIT
- +4 SET MO=$$HIST^ONCFUNC(D0)
- +5 ;
- +6 SET SSFIEN=$SELECT($DATA(^ONCO(164.52,"C",PS_"-2")):$ORDER(^ONCO(164.52,"C",PS_"-2",0)),1:1)
- +7 ;
- +8 ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
- +9 IF $$MELANOMA^ONCOU55(D0)
- Begin DoDot:1
- +10 SET MELIEN=$ORDER(^ONCO(164.52,"B","ULCERATION",0))
- +11 IF $EXTRACT(PS,3,4)=44
- SET SSFIEN=MELIEN
- QUIT
- +12 IF $EXTRACT(PS,3,4)=51
- SET SSFIEN=MELIEN
- QUIT
- +13 IF $EXTRACT(PS,3,4)=60
- SET SSFIEN=MELIEN
- QUIT
- +14 IF PS=67632
- SET SSFIEN=MELIEN
- QUIT
- End DoDot:1
- +15 ;
- +16 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
- +17 IF $$LYMPHOMA^ONCFUNC(D0)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","SYSTEMIC SYMPTOMS AT DIAGNOSIS",0))
- +18 ;
- +19 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
- +20 ;Kaposi Sarcoma of All Sites
- +21 IF (MO=97003)!(MO=97013)!($EXTRACT(MO,1,4)=9140)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +22 ;
- +23 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
- +24 ;Myeloproliferative Neoplasms
- +25 IF (MO'<97310)&(MO'>99899)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +26 ;
- +27 ;Retinoblastoma
- +28 IF $EXTRACT(MO,1,3)=951
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +29 ;
- +30 IF '$DATA(^ONCO(164.52,SSFIEN,1,"B",X))
- KILL X
- QUIT
- +31 SET SSF=$ORDER(^ONCO(164.52,SSFIEN,1,"B",X,0))
- +32 WRITE " ",$PIECE(^ONCO(164.52,SSFIEN,1,SSF,0),U,2)
- ITEX KILL PS,SSFIEN,SSF,MO,MELING
- QUIT
- +1 ;
- SSF2OT ;OUTPUT TRANSFORM
- +1 ;
- +2 SET PS=$PIECE($GET(^ONCO(165.5,D0,2)),U,1)
- +3 if PS=""
- QUIT
- +4 SET MO=$$HIST^ONCFUNC(D0)
- +5 ;
- +6 SET SSFIEN=$SELECT($DATA(^ONCO(164.52,"C",PS_"-2")):$ORDER(^ONCO(164.52,"C",PS_"-2",0)),1:1)
- +7 ;
- +8 ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
- +9 IF $$MELANOMA^ONCOU55(D0)
- Begin DoDot:1
- +10 SET MELIEN=$ORDER(^ONCO(164.52,"B","ULCERATION",0))
- +11 IF $EXTRACT(PS,3,4)=44
- SET SSFIEN=MELIEN
- QUIT
- +12 IF $EXTRACT(PS,3,4)=51
- SET SSFIEN=MELIEN
- QUIT
- +13 IF $EXTRACT(PS,3,4)=60
- SET SSFIEN=MELIEN
- QUIT
- +14 IF PS=67632
- SET SSFIEN=MELIEN
- QUIT
- End DoDot:1
- +15 ;
- +16 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
- +17 IF $$LYMPHOMA^ONCFUNC(D0)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","SYSTEMIC SYMPTOMS AT DIAGNOSIS",0))
- +18 ;
- +19 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
- +20 ;Kaposi Sarcoma of All Sites
- +21 IF (MO=97003)!(MO=97013)!($EXTRACT(MO,1,4)=9140)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +22 ;
- +23 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
- +24 ;Myeloproliferative Neoplasms
- +25 IF (MO'<97310)&(MO'>99899)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +26 ;
- +27 ;Retinoblastoma
- +28 IF $EXTRACT(MO,1,3)=951
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +29 ;
- +30 SET SSF=$ORDER(^ONCO(164.52,SSFIEN,1,"B",Y,0))
- IF SSF=""
- GOTO OTEX
- +31 SET Y=$PIECE($GET(^ONCO(164.52,SSFIEN,1,SSF,0)),U,2)
- OTEX KILL PS,SSFIEN,SSF,MO
- QUIT
- +1 ;
- SSF2HP ;HELP
- +1 ;
- +2 SET PS=$PIECE($GET(^ONCO(165.5,D0,2)),U,1)
- +3 if PS=""
- QUIT
- +4 SET MO=$$HIST^ONCFUNC(D0)
- +5 ;
- +6 SET SSFIEN=$SELECT($DATA(^ONCO(164.52,"C",PS_"-2")):$ORDER(^ONCO(164.52,"C",PS_"-2",0)),1:1)
- +7 ;
- +8 ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
- +9 IF $$MELANOMA^ONCOU55(D0)
- Begin DoDot:1
- +10 SET MELIEN=$ORDER(^ONCO(164.52,"B","ULCERATION",0))
- +11 IF $EXTRACT(PS,3,4)=44
- SET SSFIEN=MELIEN
- QUIT
- +12 IF $EXTRACT(PS,3,4)=51
- SET SSFIEN=MELIEN
- QUIT
- +13 IF $EXTRACT(PS,3,4)=60
- SET SSFIEN=MELIEN
- QUIT
- +14 IF PS=67632
- SET SSFIEN=MELIEN
- QUIT
- End DoDot:1
- +15 ;
- +16 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
- +17 IF $$LYMPHOMA^ONCFUNC(D0)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","SYSTEMIC SYMPTOMS AT DIAGNOSIS",0))
- +18 ;
- +19 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
- +20 ;Kaposi Sarcoma of All Sites
- +21 IF (MO=97003)!(MO=97013)!($EXTRACT(MO,1,4)=9140)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +22 ;
- +23 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
- +24 ;Myeloproliferative Neoplasms
- +25 IF (MO'<97310)&(MO'>99899)
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +26 ;
- +27 ;Retinoblastoma
- +28 IF $EXTRACT(MO,1,3)=951
- SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
- +29 ;
- +30 WRITE !," SITE-SPECIFIC FACTOR 2 for "
- Begin DoDot:1
- +31 IF MO=97003
- WRITE "MYCOSIS FUNGOIDES of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
- QUIT
- +32 IF MO=97013
- WRITE "SEZARY SYNDROME of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
- QUIT
- +33 IF $EXTRACT(MO,1,3)=951
- WRITE "RETINOBLASTOMA of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
- QUIT
- +34 IF $$MELANOMA^ONCOU55(D0)
- IF ($EXTRACT(PS,3,4)=44)!($EXTRACT(PS,3,4)=51)!($EXTRACT(PS,3,4)=60)!(PS=67632)!($EXTRACT(PS,3,4)=69)
- WRITE "MALIGNANT MELANOMA of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
- QUIT
- +35 IF $EXTRACT(MO,1,4)=9140
- WRITE "KAPOSI SARCOMA of ALL SITES"
- QUIT
- +36 IF $$LYMPHOMA^ONCFUNC(D0)
- WRITE "HODGKIN AND NON-HODGKIN LYMPHOMAS of ALL SITES"
- QUIT
- +37 IF (MO'<97310)&(MO'>99899)
- WRITE $PIECE(^ONCO(169.3,MO,0),U,1)," (",$PIECE(^ONCO(169.3,MO,0),U,2),")"
- QUIT
- +38 WRITE $PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
- End DoDot:1
- +39 WRITE !," ",$PIECE(^ONCO(164.52,SSFIEN,0),U,1)
- +40 ;S SSF=0 F S SSF=$O(^ONCO(164.52,SSFIEN,1,SSF)) Q:SSF'>0 D
- +41 ;.W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,1)_" "_$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2),!
- +42 KILL PS,SSFIEN,SSF,MO
- QUIT