source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSSF1.m@ 1036

Last change on this file since 1036 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1ONCSSF1 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 1 (165.5,44.1) ;11/20/03
2 ;;2.11;ONCOLOGY;**40**;Mar 07, 1995
3 ;
4 ;SITE-SPECIFIC FACTOR 1 (165.5,44.1)
5SSF1IT ;INPUT TRANSFORM
6 ;
7 S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
8 I PS="" K X W " No PRIMARY SITE defined for this primary" Q
9 S MO=$$HIST^ONCFUNC(D0)
10 ;
11 S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-1")):$O(^ONCO(164.52,"C",PS_"-1",0)),1:1)
12 ;
13 ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
14 I $$MELANOMA^ONCOU55(D0) D
15 .S MELIEN=$O(^ONCO(164.52,"B","MEASURED THICKNESS (DEPTH), BR",0))
16 .I $E(PS,3,4)=44 S SSFIEN=MELIEN S MELIND="Y" Q
17 .I $E(PS,3,4)=51 S SSFIEN=MELIEN S MELIND="Y" Q
18 .I $E(PS,3,4)=60 S SSFIEN=MELIEN S MELIND="Y" Q
19 .I PS=67632 S SSFIEN=MELIEN S MELIND="Y" Q
20 .I PS=67690 S SSFIEN=MELIEN S MELIND="Y" Q
21 .I PS=67693 S SSFIEN=MELIEN S MELIND="Y" Q
22 .I PS=67694 S SSFIEN=MELIEN S MELIND="Y" Q
23 I $G(MELIND)="Y",+X>0,+X<989 D G ITEX
24 .I X'?3N D K X Q
25 ..W !,"Code exact measurement in HUNDREDTHS of millimeters."
26 ..W !,"Examples:"
27 ..W !,"Enter 001 for 0.01 mm"
28 ..W !,"Enter 002 for 0.02 mm"
29 ..W !,"Enter 010 for 0.10 mm"
30 ..W !,"Enter 074 for 0.74 mm"
31 ..W !,"Enter 100 for 1.00 mm"
32 ..W !,"Enter 105 for 1.05 mm"
33 ..W !,"Enter 988 for 9.88 mm"
34 .W " ",$E(X,1),".",$E(X,2,3)," mm"
35 ;
36 ;Kaposi Sarcoma of All Sites
37 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
38 I ($E(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0)) S SSFIEN=$O(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0)) G SSF1I
39 ;
40 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
41 I (MO=97003)!(MO=97013) S SSFIEN=$O(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0)) G SSF1I
42 ;
43 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
44 ;Myeloproliferative Neoplasms
45 I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0)) G SSF1I
46 ;
47 ;Retinoblastoma
48 I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0)) G SSF1I
49 ;
50 ;Head and neck
51 I $P(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES",+X>0,+X<989 D G ITEX
52 .I X'?3N D K X Q
53 ..I X?1N W !!," For ",X," enter 00",X
54 ..I X?2N W !!," For ",X," enter 0",X
55 .W " ",X," mm"
56 ;
57 ;Prostate
58 I PS=67619,+X>1,+X<900 D G ITEX
59 .I X'?3N D K X Q
60 ..W !!," Examples:"
61 ..W !!," Enter 025 for 02.5 ng/ml"
62 ..W !," Enter 040 for 04.0 ng/ml"
63 ..W !," Enter 200 for 20.0 ng/ml",!
64 .W " ",$E(X,1,2),".",$E(X,3)," ng/ml"
65 ;
66SSF1I I '$D(^ONCO(164.52,SSFIEN,1,"B",X)) K X Q
67 S SSF=$O(^ONCO(164.52,SSFIEN,1,"B",X,0))
68 W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2)
69ITEX K PS,SSFIEN,SSF,MO,MELIND Q
70 ;
71SSF1OT ;OUTPUT TRANSFORM
72 ;
73 S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
74 Q:PS=""
75 S MO=$$HIST^ONCFUNC(D0)
76 ;
77 S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-1")):$O(^ONCO(164.52,"C",PS_"-1",0)),1:1)
78 ;
79 ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
80 I $$MELANOMA^ONCOU55(D0) D
81 .S MELIEN=$O(^ONCO(164.52,"B","MEASURED THICKNESS (DEPTH), BR",0))
82 .I $E(PS,3,4)=44 S SSFIEN=MELIEN S MELIND="Y" Q
83 .I $E(PS,3,4)=51 S SSFIEN=MELIEN S MELIND="Y" Q
84 .I $E(PS,3,4)=60 S SSFIEN=MELIEN S MELIND="Y" Q
85 .I PS=67632 S SSFIEN=MELIEN S MELIND="Y" Q
86 .I PS=67690 S SSFIEN=MELIEN S MELIND="Y" Q
87 .I PS=67693 S SSFIEN=MELIEN S MELIND="Y" Q
88 .I PS=67694 S SSFIEN=MELIEN S MELIND="Y" Q
89 I $G(MELIND)="Y",+Y>0,+Y<989 S Y=$E(Y,1)_"."_$E(Y,2,3)_" mm" G OTEX
90 ;
91 ;Kaposi Sarcoma of All Sites
92 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
93 I ($E(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0)) S SSFIEN=$O(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0)) G SSF1O
94 ;
95 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
96 I (MO=97003)!(MO=97013) S SSFIEN=$O(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0)) G SSF1O
97 ;
98 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
99 ;Myeloproliferative Neoplasms
100 I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0)) G SSF1O
101 ;
102 ;Retinoblastoma
103 I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0)) G SSF1O
104 ;
105 ;Head and neck
106 I $P(^ONCO(164.52,SSFIEN,0),U,1)="SIZE OF LYMPH NODES",+Y>0,+Y<989 S Y=Y_" mm" G OTEX
107 ;
108 ;Prostate
109 I PS=67619,+Y>1,+Y<900 S Y=$E(Y,1,2)_"."_$E(Y,3)_" ng/ml" G OTEX
110 ;
111SSF1O S SSF=$O(^ONCO(164.52,SSFIEN,1,"B",Y,0)) I SSF="" G OTEX
112 S Y=$P($G(^ONCO(164.52,SSFIEN,1,SSF,0)),U,2)
113OTEX K PS,SSFIEN,SSF,MO,MELIND Q
114 ;
115SSF1HP ;HELP
116 ;
117 S PS=$P($G(^ONCO(165.5,D0,2)),U,1)
118 Q:PS=""
119 S MO=$$HIST^ONCFUNC(D0)
120 ;
121 S SSFIEN=$S($D(^ONCO(164.52,"C",PS_"-1")):$O(^ONCO(164.52,"C",PS_"-1",0)),1:1)
122 ;
123 ;Malignant Melanoma of Skin, Vulva, Penis, Scrotum
124 I $$MELANOMA^ONCOU55(D0) D
125 .S MELIEN=$O(^ONCO(164.52,"B","MEASURED THICKNESS (DEPTH), BR",0))
126 .I $E(PS,3,4)=44 S SSFIEN=MELIEN Q
127 .I $E(PS,3,4)=51 S SSFIEN=MELIEN Q
128 .I $E(PS,3,4)=60 S SSFIEN=MELIEN Q
129 .I PS=67632 S SSFIEN=MELIEN Q
130 .I PS=67690 S SSFIEN=MELIEN Q
131 .I PS=67693 S SSFIEN=MELIEN Q
132 .I PS=67694 S SSFIEN=MELIEN Q
133 ;
134 ;Kaposi Sarcoma of All Sites
135 ;Hodgkin and Non-Hodgkin Lymphomas of All Sites
136 I ($E(MO,1,4)=9140)!($$LYMPHOMA^ONCFUNC(D0)) S SSFIEN=$O(^ONCO(164.52,"B","ASSOCIATED WITH HIV/AIDS",0))
137 ;
138 ;Mycosis Fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum
139 I (MO=97003)!(MO=97013) S SSFIEN=$O(^ONCO(164.52,"B","PERIPHERAL BLOOD INVOLVEMENT",0))
140 ;
141 ;Hematopoietic, Reticuloendothelial, Immunoproliferative, and
142 I (MO'<97310)&(MO'>99899) S SSFIEN=$O(^ONCO(164.52,"B","NOT APPLICABLE FOR THIS SITE",0))
143 ;
144 ;Retinoblastoma
145 I $E(MO,1,3)=951 S SSFIEN=$O(^ONCO(164.52,"B","EXTENSION EVALUATED AT ENUCLEA",0))
146 ;
147 W !," SITE-SPECIFIC FACTOR 1 for " D
148 .I MO=97003 W "MYCOSIS FUNGOIDES of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
149 .I MO=97013 W "SEZARY SYNDROME of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
150 .I $E(MO,1,3)=951 W "RETINOBLASTOMA of ",$P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")" Q
151 .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
152 .I $E(MO,1,4)=9140 W "KAPOSI SARCOMA of ALL SITES" Q
153 .I $$LYMPHOMA^ONCFUNC(D0) W "HODGKIN AND NON-HODGKIN LYMPHOMAS of ALL SITES" Q
154 .I MO'="",(MO'<97310)&(MO'>99899) W $P(^ONCO(169.3,MO,0),U,1)," (",$P(^ONCO(169.3,MO,0),U,2),")" Q
155 .W $P(^ONCO(164,PS,0),U,1)," (",$P(^ONCO(164,PS,0),U,2),")"
156 W !," ",$P(^ONCO(164.52,SSFIEN,0),U,1)
157 ;S SSF=0 F S SSF=$O(^ONCO(164.52,SSFIEN,1,SSF)) Q:SSF'>0 D
158 ;.S TAB=6
159 ;.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
160 ;.W " ",$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,1),?TAB,$P(^ONCO(164.52,SSFIEN,1,SSF,0),U,2),!
161 K PS,SSFIEN,SSF,MO Q
Note: See TracBrowser for help on using the repository browser.