ONCSSF1 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 1 (165.5,44.1) ;11/20/03
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
;SITE-SPECIFIC FACTOR 1 (165.5,44.1)
SSF1IT ;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_"-1")):$O(^ONCO(164.52,"C",PS_"-1",0)),1:1)
;
;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
I $$MELANOMA^ONCOU55(D0) D
.S MELIEN=$O(^ONCO(164.52,"B","MEASURED THICKNESS (DEPTH), BR",0))
.I $E(PS,3,4)=44 S SSFIEN=MELIEN S MELIND="Y" Q
.I $E(PS,3,4)=51 S SSFIEN=MELIEN S MELIND="Y" Q
.I $E(PS,3,4)=60 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67632 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67690 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67693 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67694 S SSFIEN=MELIEN S MELIND="Y" Q
I $G(MELIND)="Y",+X>0,+X<989 D G ITEX
.I X'?3N D K X Q
..W !,"Code exact measurement in HUNDREDTHS of millimeters."
..W !,"Examples:"
..W !,"Enter 001 for 0.01 mm"
..W !,"Enter 002 for 0.02 mm"
..W !,"Enter 010 for 0.10 mm"
..W !,"Enter 074 for 0.74 mm"
..W !,"Enter 100 for 1.00 mm"
..W !,"Enter 105 for 1.05 mm"
..W !,"Enter 988 for 9.88 mm"
.W " ",$E(X,1),".",$E(X,2,3)," mm"
;
;Kaposi Sarcoma of All Sites
;Hodgkin and Non-Hodgkin Lymphomas of All Sites
I ($E(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0)) S SSFIEN=$O(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0)) G SSF1I
;
;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
I (MO=97003)!(MO=97013) S SSFIEN=$O(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0)) G SSF1I
;
;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
;Myeloproliferative Neoplasms
I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0)) G SSF1I
;
;Retinoblastoma
I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0)) G SSF1I
;
;Head and neck
I $P(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES",+X>0,+X<989 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," mm"
;
;Prostate
I PS=67619,+X>1,+X<900 D G ITEX
.I X'?3N D K X Q
..W !!," Examples:"
..W !!," Enter 025 for 02.5 ng/ml"
..W !," Enter 040 for 04.0 ng/ml"
..W !," Enter 200 for 20.0 ng/ml",!
.W " ",$E(X,1,2),".",$E(X,3)," ng/ml"
;
SSF1I 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,MELIND Q
;
SSF1OT ;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_"-1")):$O(^ONCO(164.52,"C",PS_"-1",0)),1:1)
;
;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
I $$MELANOMA^ONCOU55(D0) D
.S MELIEN=$O(^ONCO(164.52,"B","MEASURED THICKNESS (DEPTH), BR",0))
.I $E(PS,3,4)=44 S SSFIEN=MELIEN S MELIND="Y" Q
.I $E(PS,3,4)=51 S SSFIEN=MELIEN S MELIND="Y" Q
.I $E(PS,3,4)=60 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67632 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67690 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67693 S SSFIEN=MELIEN S MELIND="Y" Q
.I PS=67694 S SSFIEN=MELIEN S MELIND="Y" Q
I $G(MELIND)="Y",+Y>0,+Y<989 S Y=$E(Y,1)_"."_$E(Y,2,3)_" mm" G OTEX
;
;Kaposi Sarcoma of All Sites
;Hodgkin and Non-Hodgkin Lymphomas of All Sites
I ($E(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0)) S SSFIEN=$O(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0)) G SSF1O
;
;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
I (MO=97003)!(MO=97013) S SSFIEN=$O(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0)) G SSF1O
;
;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
;Myeloproliferative Neoplasms
I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0)) G SSF1O
;
;Retinoblastoma
I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0)) G SSF1O
;
;Head and neck
I $P(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES",+Y>0,+Y<989 S Y=Y_" mm" G OTEX
;
;Prostate
I PS=67619,+Y>1,+Y<900 S Y=$E(Y,1,2)_"."_$E(Y,3)_" ng/ml" G OTEX
;
SSF1O 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,MELIND Q
;
SSF1HP ;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_"-1")):$O(^ONCO(164.52,"C",PS_"-1",0)),1:1)
;
;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
I $$MELANOMA^ONCOU55(D0) D
.S MELIEN=$O(^ONCO(164.52,"B","MEASURED THICKNESS (DEPTH), BR",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
.I PS=67690 S SSFIEN=MELIEN Q
.I PS=67693 S SSFIEN=MELIEN Q
.I PS=67694 S SSFIEN=MELIEN Q
;
;Kaposi Sarcoma of All Sites
;Hodgkin and Non-Hodgkin Lymphomas of All Sites
I ($E(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0)) S SSFIEN=$O(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0))
;
;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
I (MO=97003)!(MO=97013) S SSFIEN=$O(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",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","EXTENSION EVALUATED AT ENUCLEA",0))
;
W !," SITE-SPECIFIC FACTOR 1 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'="",(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)="SIZE OF LYMPH NODES")!($P(^ONCO(164.52,SSFIEN,0),U,1)="PROSTATIC SPECIFIC ANTIGEN (PSA) LAB VALUE")!($P(^ONCO(164.52,SSFIEN,0),U,1)="MEASURED THICKNESS (DEPTH), BRESLOW'S MEASUREMENT") 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSSF1 6907 printed Dec 13, 2024@02:28:47 Page 2
ONCSSF1 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 1 (165.5,44.1) ;11/20/03
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 ;SITE-SPECIFIC FACTOR 1 (165.5,44.1)
SSF1IT ;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_"-1")):$ORDER(^ONCO(164.52,"C",PS_"-1",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","MEASURED THICKNESS (DEPTH), BR",0))
+11 IF $EXTRACT(PS,3,4)=44
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+12 IF $EXTRACT(PS,3,4)=51
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+13 IF $EXTRACT(PS,3,4)=60
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+14 IF PS=67632
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+15 IF PS=67690
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+16 IF PS=67693
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+17 IF PS=67694
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
End DoDot:1
+18 IF $GET(MELIND)="Y"
IF +X>0
IF +X<989
Begin DoDot:1
+19 IF X'?3N
Begin DoDot:2
+20 WRITE !,"Code exact measurement in HUNDREDTHS of millimeters."
+21 WRITE !,"Examples:"
+22 WRITE !,"Enter 001 for 0.01 mm"
+23 WRITE !,"Enter 002 for 0.02 mm"
+24 WRITE !,"Enter 010 for 0.10 mm"
+25 WRITE !,"Enter 074 for 0.74 mm"
+26 WRITE !,"Enter 100 for 1.00 mm"
+27 WRITE !,"Enter 105 for 1.05 mm"
+28 WRITE !,"Enter 988 for 9.88 mm"
End DoDot:2
KILL X
QUIT
+29 WRITE " ",$EXTRACT(X,1),".",$EXTRACT(X,2,3)," mm"
End DoDot:1
GOTO ITEX
+30 ;
+31 ;Kaposi Sarcoma of All Sites
+32 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
+33 IF ($EXTRACT(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0))
SET SSFIEN=$ORDER(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0))
GOTO SSF1I
+34 ;
+35 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
+36 IF (MO=97003)!(MO=97013)
SET SSFIEN=$ORDER(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0))
GOTO SSF1I
+37 ;
+38 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
+39 ;Myeloproliferative Neoplasms
+40 IF (MO'<97310)&(MO'>99899)
SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
GOTO SSF1I
+41 ;
+42 ;Retinoblastoma
+43 IF $EXTRACT(MO,1,3)=951
SET SSFIEN=$ORDER(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0))
GOTO SSF1I
+44 ;
+45 ;Head and neck
+46 IF $PIECE(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES"
IF +X>0
IF +X<989
Begin DoDot:1
+47 IF X'?3N
Begin DoDot:2
+48 IF X?1N
WRITE !!," For ",X," enter 00",X
+49 IF X?2N
WRITE !!," For ",X," enter 0",X
End DoDot:2
KILL X
QUIT
+50 WRITE " ",X," mm"
End DoDot:1
GOTO ITEX
+51 ;
+52 ;Prostate
+53 IF PS=67619
IF +X>1
IF +X<900
Begin DoDot:1
+54 IF X'?3N
Begin DoDot:2
+55 WRITE !!," Examples:"
+56 WRITE !!," Enter 025 for 02.5 ng/ml"
+57 WRITE !," Enter 040 for 04.0 ng/ml"
+58 WRITE !," Enter 200 for 20.0 ng/ml",!
End DoDot:2
KILL X
QUIT
+59 WRITE " ",$EXTRACT(X,1,2),".",$EXTRACT(X,3)," ng/ml"
End DoDot:1
GOTO ITEX
+60 ;
SSF1I IF '$DATA(^ONCO(164.52,SSFIEN,1,"B",X))
KILL X
QUIT
+1 SET SSF=$ORDER(^ONCO(164.52,SSFIEN,1,"B",X,0))
+2 WRITE " ",$PIECE(^ONCO(164.52,SSFIEN,1,SSF,0),U,2)
ITEX KILL PS,SSFIEN,SSF,MO,MELIND
QUIT
+1 ;
SSF1OT ;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_"-1")):$ORDER(^ONCO(164.52,"C",PS_"-1",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","MEASURED THICKNESS (DEPTH), BR",0))
+11 IF $EXTRACT(PS,3,4)=44
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+12 IF $EXTRACT(PS,3,4)=51
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+13 IF $EXTRACT(PS,3,4)=60
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+14 IF PS=67632
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+15 IF PS=67690
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+16 IF PS=67693
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
+17 IF PS=67694
SET SSFIEN=MELIEN
SET MELIND="Y"
QUIT
End DoDot:1
+18 IF $GET(MELIND)="Y"
IF +Y>0
IF +Y<989
SET Y=$EXTRACT(Y,1)_"."_$EXTRACT(Y,2,3)_" mm"
GOTO OTEX
+19 ;
+20 ;Kaposi Sarcoma of All Sites
+21 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
+22 IF ($EXTRACT(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0))
SET SSFIEN=$ORDER(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0))
GOTO SSF1O
+23 ;
+24 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
+25 IF (MO=97003)!(MO=97013)
SET SSFIEN=$ORDER(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0))
GOTO SSF1O
+26 ;
+27 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
+28 ;Myeloproliferative Neoplasms
+29 IF (MO'<97310)&(MO'>99899)
SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
GOTO SSF1O
+30 ;
+31 ;Retinoblastoma
+32 IF $EXTRACT(MO,1,3)=951
SET SSFIEN=$ORDER(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0))
GOTO SSF1O
+33 ;
+34 ;Head and neck
+35 IF $PIECE(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES"
IF +Y>0
IF +Y<989
SET Y=Y_" mm"
GOTO OTEX
+36 ;
+37 ;Prostate
+38 IF PS=67619
IF +Y>1
IF +Y<900
SET Y=$EXTRACT(Y,1,2)_"."_$EXTRACT(Y,3)_" ng/ml"
GOTO OTEX
+39 ;
SSF1O SET SSF=$ORDER(^ONCO(164.52,SSFIEN,1,"B",Y,0))
IF SSF=""
GOTO OTEX
+1 SET Y=$PIECE($GET(^ONCO(164.52,SSFIEN,1,SSF,0)),U,2)
OTEX KILL PS,SSFIEN,SSF,MO,MELIND
QUIT
+1 ;
SSF1HP ;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_"-1")):$ORDER(^ONCO(164.52,"C",PS_"-1",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","MEASURED THICKNESS (DEPTH), BR",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
+15 IF PS=67690
SET SSFIEN=MELIEN
QUIT
+16 IF PS=67693
SET SSFIEN=MELIEN
QUIT
+17 IF PS=67694
SET SSFIEN=MELIEN
QUIT
End DoDot:1
+18 ;
+19 ;Kaposi Sarcoma of All Sites
+20 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
+21 IF ($EXTRACT(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0))
SET SSFIEN=$ORDER(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0))
+22 ;
+23 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
+24 IF (MO=97003)!(MO=97013)
SET SSFIEN=$ORDER(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0))
+25 ;
+26 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
+27 IF (MO'<97310)&(MO'>99899)
SET SSFIEN=$ORDER(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
+28 ;
+29 ;Retinoblastoma
+30 IF $EXTRACT(MO,1,3)=951
SET SSFIEN=$ORDER(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0))
+31 ;
+32 WRITE !," SITE-SPECIFIC FACTOR 1 for "
Begin DoDot:1
+33 IF MO=97003
WRITE "MYCOSIS FUNGOIDES of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
QUIT
+34 IF MO=97013
WRITE "SEZARY SYNDROME of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
QUIT
+35 IF $EXTRACT(MO,1,3)=951
WRITE "RETINOBLASTOMA of ",$PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
QUIT
+36 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
+37 IF $EXTRACT(MO,1,4)=9140
WRITE "KAPOSI SARCOMA of ALL SITES"
QUIT
+38 IF $$LYMPHOMA^ONCFUNC(D0)
WRITE "HODGKIN AND NON-HODGKIN LYMPHOMAS of ALL SITES"
QUIT
+39 IF MO'=""
IF (MO'<97310)&(MO'>99899)
WRITE $PIECE(^ONCO(169.3,MO,0),U,1)," (",$PIECE(^ONCO(169.3,MO,0),U,2),")"
QUIT
+40 WRITE $PIECE(^ONCO(164,PS,0),U,1)," (",$PIECE(^ONCO(164,PS,0),U,2),")"
End DoDot:1
+41 WRITE !," ",$PIECE(^ONCO(164.52,SSFIEN,0),U,1)
+42 ;S SSF=0 F S SSF=$O(^ONCO(164.52,SSFIEN,1,SSF)) Q:SSF'>0 D
+43 ;.S TAB=6
+44 ;.I ($P(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES")!($P(^ONCO(164.52,SSFIEN,0),U,1)="PROSTATIC SPECIFIC ANTIGEN (PSA) LAB VALUE")!($P(^ONCO(164.52,SSFIEN,0),U,1)="MEASURED THICKNESS (DEPTH), BRESLOW'S MEASUREMENT") S TAB=10
+45 ;.W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,1),?TAB,$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2),!
+46 KILL PS,SSFIEN,SSF,MO
QUIT
