source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOHICD.m@ 1262

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

initial load of FOIAVistA 6/30/08 version
File size: 6.2 KB
Line 
1ONCOHICD ;Hines OIFO/GWB ICD-O HELP ;5/18/92
2 ;;2.11;ONCOLOGY;**28,32,34,44**;Mar 07, 1995
3 ;
4HP ;PRIMARY SITE (165.5,20) EXECUTABLE HELP
5 ;HISTOLOGY (ICD-O-2) (165.5,22) EXECUTABLE HELP
6 Q:'$D(ONCOX)
7 S ONCOY=$S(ONCOX=164:2,1:3),ONCOS=$P(^ONCO(165.5,D0,0),U)
8 W:$X !
9 S XI=0 F S XI=$O(^ONCO(164.2,ONCOS,ONCOY,"B",XI)) Q:XI'>0 S Y=$G(^ONCO(ONCOX,XI,0)) I Y'="" W !,?3,$P(Y,U,2),?12,$P(Y,U),?45,$P(Y,U,9)
10 W:$X !
11 K ONCOX,ONCOS,ONCOY
12 Q
13 ;
14ICDO3 ;ICD-O-3 MORPHOLOGY help
15 S ICDTOP=$P($G(^ONCO(165.5,D0,2)),U,1)
16 I ICDTOP="" G ICDO3EX
17 S ICDTOP=$E(ICDTOP,1,4)
18 W:$X !
19 S XI=0 F I=1:1 S XI=$O(^ONCO(169.3,"AC",ICDTOP,XI)) Q:XI'>0 S Y=^ONCO(169.3,XI,0) W:I=1 !,?3,"Common morpholgies for topography ","(C",$E(ICDTOP,3,4),"._)",! W !,?3,$P(Y,U,2)," ",$P(Y,U,1) I I#20=0 K DIR S DIR(0)="E" D ^DIR Q:'Y W @IOF
20 W:$X !
21ICDO3EX K ICDTOP,XI,I
22 Q
23 ;
24HIST23 ;If HISTOLOGY (ICD-O-2) (165.5,22) value is changed and DATE DX is
25 ;prior to 2001, delete HISTOLOGY (ICD-O-3) (165.5,22.3) value
26 S:$P(^ONCO(165.5,DA,0),U,16)<3010000 $P(^ONCO(165.5,DA,2.2),U,3)=""
27 Q
28 ;
29DEFH3 ;HISTOLOGY (ICD-O-3) (165.5,22.3) default
30 S H3DEF="",DATEDX=$P($G(^ONCO(165.5,D0,0)),U,16) I DATEDX>3001231 Q
31 S H2VAL=$P($G(^ONCO(165.5,D0,2)),U,3),FND=0
32 I H2VAL="" D Q
33 .S $P(^ONCO(165.5,D0,2.2),U,3)="",Y=101
34 .W !,"HISTOLOGY (ICD-O-3): " Q
35 F NNN=1:1 S VAL=$P($T(TABLE+NNN),";;",2) D Q:VAL=""!(FND=1)
36 .I $P(VAL,U,1)=H2VAL S H3DEF=$E($P(VAL,U,2),1,5),FND=1
37 I H3DEF'="" S H3DEF=$P($G(^ONCO(169.3,H3DEF,0)),U,1) Q
38 I H3DEF="" S H3DEF=$P($G(^ONCO(169.3,H2VAL,0)),U,1) Q
39 ;
40TABLE ;Histology ICD-O-2 to ICD-O-3 Table
41 ;;82411^82401 ;CARCINOID TUMOR OF UNCERTAIN MALIG POTENTIAL
42 ;;85113^83453 ;MEDULLARY CARCINOMA WITH AMYLOID STROMA
43 ;;85112^83452 ;MEDULLARY CARCINOMA WITH AMYLOID STROMA IN SITU
44 ;;87240^91600 ;ANGIOFIBROMA, NOS
45 ;;91341^91333 ;EPITHELIOID HEMANGIOENDOTHELIOMA, MALIGNANT
46 ;;91260^91250 ;EPITHELIOID HEMANGIOMA
47 ;;91903^91923 ;PAROSTEAL OSTEOSARCOMA
48 ;;91902^91922 ;PAROSTEAL OSTEOSARCOMA IN SITU
49 ;;94223^94211 ;PILOCYTIC ASTROCYTOMA
50 ;;94222^94212 ;JUVENILE ASTROCYTOMA IN SITU
51 ;;94433^94233 ;POLAR SPONGIOBLASTOMA
52 ;;94432^94232 ;POLAR SPONGIOBLASTOMA IN SITU
53 ;;94813^94413 ;GIANT CELL GLIOBLASTOMA
54 ;;94812^94412 ;GIANT CELL GLIOBLASTOMA IN SITU
55 ;;95360^91501 ;HEMANGIOPERICYTOMA, NOS
56 ;;95923^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS
57 ;;95933^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS
58 ;;95943^95903 ;MALIGNANT LYMPHOMA, NOS
59 ;;95953^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS
60 ;;96573^96513 ;HODGKIN LYMPHOMA, LYMPHOCYTE-RICH
61 ;;96583^96513 ;HODGKIN LYMPHOMA, LYMPHOCYTE-RICH
62 ;;96603^96593 ;HODGKIN LYMPHOMA, NODULAR LYMPHOCYTE PREDOMIN
63 ;;96663^96653 ;HODGKIN LYMPHOMA, NODULAR SCLEROSIS, GRADE 1
64 ;;96723^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS
65 ;;96743^96733 ;MANTLE CELL LYMPHOMA
66 ;;96763^96753 ;MALIGNANT LYMPHOMA, MIXED SMALL/LARGE, DIFF
67 ;;96773^96733 ;MANTLE CELL LYMPHOMA
68 ;;96813^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS
69 ;;96823^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS
70 ;;96833^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS
71 ;;96853^97273 ;PRECURSOR CELL LYMPHOBLASTIC LYMPHOMA, NOS
72 ;;96863^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS
73 ;;96883^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS
74 ;;96923^96903 ;FOLLICULAR LYMPHOMA, NOS
75 ;;96933^96983 ;FOLLICULAR LYMPHOMA, GRADE 3
76 ;;96943^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS
77 ;;96963^96953 ;FOLLICULAR LYMPHOMA, GRADE 1
78 ;;96973^96983 ;FOLLICULAR LYMPHOMA, GRADE 3
79 ;;97033^97023 ;MATURE T-CELL LYMPHOMA, NOS
80 ;;97043^97023 ;MATURE T-CELL LYMPHOMA, NOS
81 ;;97063^97023 ;MATURE T-CELL LYMPHOMA, NOS
82 ;;97073^97023 ;MATURE T-CELL LYMPHOMA, NOS
83 ;;97103^96993 ;MARGINAL ZONE B-CELL LYMPHOMA, NOS
84 ;;97113^96993 ;MARGINAL ZONE B-CELL LYMPHOMA, NOS
85 ;;97123^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS
86 ;;97133^97193 ;NK/T-CELL LYMPHOMA, NASAL AND NASAL-TYPE
87 ;;97153^96993 ;MARGINAL ZONE B-CELL LYMPHOMA, NOS
88 ;;97203^97503 ;MALIGNANT HISTIOCYTOSIS
89 ;;97223^97543 ;LANGERHANS CELL HISTIOCYTOSIS, DISSEMINATED
90 ;;97233^97553 ;HISTIOCYTIC SARCOMA
91 ;;97633^97623 ;HEAVY CHAIN DISEASE, NOS
92 ;;98023^98003 ;LEUKEMIA, NOS
93 ;;98033^98003 ;LEUKEMIA, NOS
94 ;;98043^98003 ;LEUKEMIA, NOS
95 ;;98213^98353 ;PRECURSOR CELL LYMPHOBLASTIC LEUKEMIA, NOS
96 ;;98223^98203 ;LYMPHOID LEUKEMIA, NOS
97 ;;98243^98203 ;LYMPHOID LEUKEMIA, NOS
98 ;;98253^98323 ;PROLYMPHOCYTIC LEUKEMIA, NOS
99 ;;98283^98353 ;PRECURSOR CELL LYMPHOBLASTIC LEUKEMIA, NOS
100 ;;98303^97333 ;PLASMA CELL LEUKEMIA
101 ;;98413^98403 ;ACUTE MYELOID LEUKEMIA, M6 TYPE
102 ;;98423^99503 ;POLYCYTHEMIA VERA
103 ;;98503^98203 ;LYMPHOID LEUKEMIA, NOS
104 ;;98623^98603 ;MYELOID LEUKEMIA, NOS
105 ;;98643^98603 ;MYELOID LEUKEMIA, NOS
106 ;;98653^98743 ;ACUTE MYELOID LEUKEMIA WITH MATURATION
107 ;;98683^99453 ;CHRONIC MYELOMONOCYTIC LEUKEMIA, NOS
108 ;;98693^98723 ;ACUTE MYELOID LEUKEMIA, MINIMAL DIFF
109 ;;98803^98603 ;MYELOID LEUKEMIA, NOS
110 ;;98903^98603 ;MYELOID LEUKEMIA, NOS
111 ;;98923^98603 ;MYELOID LEUKEMIA, NOS
112 ;;98933^98603 ;MYELOID LEUKEMIA, NOS
113 ;;98943^98603 ;MYELOID LEUKEMIA, NOS
114 ;;99003^97423 ;MAST CELL LEUKEMIA
115 ;;99323^99313 ;ACUTE PANMYELOSIS WITH MYELOFIBROSIS
116 ;;99413^99403 ;HAIRY CELL LEUKEMIA
117 ;;99811^99803 ;REFRACTORY ANEMIA
118 ;;89311^89313 ;ENDOMETRIAL STROMAL SARCOMA, LOW GRADE
119 ;;93931^93933 ;PAPILLARY EPENDYMOMA
120 ;;95381^95383 ;PAPILLARY MENINGIOMA
121 ;;99501^99503 ;POLYCYTHEMIA VERA
122 ;;99601^99603 ;CHRONIC MYELOPROLIFERATIVE DISEASE, NOS
123 ;;99611^99613 ;MYELOSCLEROSIS WITH MYELOID METAPLASIA
124 ;;99621^99623 ;ESSENTIAL THROMBOCYTHEMIA
125 ;;99801^99803 ;REFRACTORY ANEMIA
126 ;;99821^99823 ;REFRACTORY ANEMIA WITH SIDEROBLASTS
127 ;;99831^99833 ;REFRACTORY ANEMIA WITH EXCESS BLASTS
128 ;;99841^99843 ;REFRACTORY ANEMIA W EXCESS BLASTS IN TRANS
129 ;;99891^99893 ;MYELODYSPLASTIC SYNDROME, NOS
130 ;;84423^84421 ;SEROUS CYSTADENOMA, BORDERLINE
131 ;;84513^84511 ;PAPILLARY CYSTADENOMA, BORDERLINE
132 ;;84623^84621 ;SEROUS PAPILLARY CYSTIC TUMOR, BORDERLINE
133 ;;84723^84721 ;MUCINOUS CYSTIC TUMOR, BORDERLINE
134 ;;84733^84731 ;PAPILLARY MUCINOUS CYSTADENOMA, BORDERLINE
135 ;;94213^94211 ;PILOCYTIC ASTROCYTOMA *** SEE APPENDIX E
136 ;;81200^81201 ;UROTHELIAL PAPILLOMA, NOS
137 ;;81520^81521 ;GLUCAGONOMA, NOS
138 ;;86400^86401 ;SERTOLI CELL TUMOR, NOS
139 ;;95060^95061 ;CENTRAL NEUROCYTOMA
140 ;;82611^82610 ;VILLOUS ADENOMA, NOS
141 ;;83611^83610 ;JUXTAGLOMERULAR TUMOR
142 ;;88231^88230 ;DESMOPLASTIC FIBROMA
143 ;;90801^90800 ;MATURE TERATOMA
Note: See TracBrowser for help on using the repository browser.