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