IBDEI0EU ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
Q:'DIFQR(358.3) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.3,37132,0)
;;=C62.11^^107^1487^128
;;^UTILITY(U,$J,358.3,37132,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37132,1,3,0)
;;=3^Malig Neop Descended Right Testis
;;^UTILITY(U,$J,358.3,37132,1,4,0)
;;=4^C62.11
;;^UTILITY(U,$J,358.3,37132,2)
;;=^5001234
;;^UTILITY(U,$J,358.3,37133,0)
;;=C15.9^^107^1487^129
;;^UTILITY(U,$J,358.3,37133,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37133,1,3,0)
;;=3^Malig Neop Esophagus,Unspec
;;^UTILITY(U,$J,358.3,37133,1,4,0)
;;=4^C15.9
;;^UTILITY(U,$J,358.3,37133,2)
;;=^5000919
;;^UTILITY(U,$J,358.3,37134,0)
;;=C24.0^^107^1487^130
;;^UTILITY(U,$J,358.3,37134,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37134,1,3,0)
;;=3^Malig Neop Extrahepatic Bile Duct
;;^UTILITY(U,$J,358.3,37134,1,4,0)
;;=4^C24.0
;;^UTILITY(U,$J,358.3,37134,2)
;;=^5000940
;;^UTILITY(U,$J,358.3,37135,0)
;;=C23.^^107^1487^132
;;^UTILITY(U,$J,358.3,37135,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37135,1,3,0)
;;=3^Malig Neop Gallbladder
;;^UTILITY(U,$J,358.3,37135,1,4,0)
;;=4^C23.
;;^UTILITY(U,$J,358.3,37135,2)
;;=^267098
;;^UTILITY(U,$J,358.3,37136,0)
;;=C32.9^^107^1487^136
;;^UTILITY(U,$J,358.3,37136,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37136,1,3,0)
;;=3^Malig Neop Larynx,Unspec
;;^UTILITY(U,$J,358.3,37136,1,4,0)
;;=4^C32.9
;;^UTILITY(U,$J,358.3,37136,2)
;;=^5000956
;;^UTILITY(U,$J,358.3,37137,0)
;;=C64.2^^107^1487^140
;;^UTILITY(U,$J,358.3,37137,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37137,1,3,0)
;;=3^Malig Neop Left Kidney,Except Renal Pelvis
;;^UTILITY(U,$J,358.3,37137,1,4,0)
;;=4^C64.2
;;^UTILITY(U,$J,358.3,37137,2)
;;=^5001249
;;^UTILITY(U,$J,358.3,37138,0)
;;=C65.2^^107^1487^143
;;^UTILITY(U,$J,358.3,37138,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37138,1,3,0)
;;=3^Malig Neop Left Renal Pelvis
;;^UTILITY(U,$J,358.3,37138,1,4,0)
;;=4^C65.2
;;^UTILITY(U,$J,358.3,37138,2)
;;=^5001252
;;^UTILITY(U,$J,358.3,37139,0)
;;=C62.92^^107^1487^144
;;^UTILITY(U,$J,358.3,37139,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37139,1,3,0)
;;=3^Malig Neop Left Testis,Unspec
;;^UTILITY(U,$J,358.3,37139,1,4,0)
;;=4^C62.92
;;^UTILITY(U,$J,358.3,37139,2)
;;=^5001238
;;^UTILITY(U,$J,358.3,37140,0)
;;=C22.8^^107^1487^145
;;^UTILITY(U,$J,358.3,37140,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37140,1,3,0)
;;=3^Malig Neop Liver,Primary
;;^UTILITY(U,$J,358.3,37140,1,4,0)
;;=4^C22.8
;;^UTILITY(U,$J,358.3,37140,2)
;;=^5000939
;;^UTILITY(U,$J,358.3,37141,0)
;;=C06.9^^107^1487^148
;;^UTILITY(U,$J,358.3,37141,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37141,1,3,0)
;;=3^Malig Neop Mouth,Unspec
;;^UTILITY(U,$J,358.3,37141,1,4,0)
;;=4^C06.9
;;^UTILITY(U,$J,358.3,37141,2)
;;=^5000901
;;^UTILITY(U,$J,358.3,37142,0)
;;=C11.9^^107^1487^149
;;^UTILITY(U,$J,358.3,37142,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37142,1,3,0)
;;=3^Malig Neop Nasopharynx,Unspec
;;^UTILITY(U,$J,358.3,37142,1,4,0)
;;=4^C11.9
;;^UTILITY(U,$J,358.3,37142,2)
;;=^5000911
;;^UTILITY(U,$J,358.3,37143,0)
;;=C10.9^^107^1487^152
;;^UTILITY(U,$J,358.3,37143,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37143,1,3,0)
;;=3^Malig Neop Oropharynx,Unspec
;;^UTILITY(U,$J,358.3,37143,1,4,0)
;;=4^C10.9
;;^UTILITY(U,$J,358.3,37143,2)
;;=^5000909
;;^UTILITY(U,$J,358.3,37144,0)
;;=C25.9^^107^1487^153
;;^UTILITY(U,$J,358.3,37144,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37144,1,3,0)
;;=3^Malig Neop Pancreas,Unspec
;;^UTILITY(U,$J,358.3,37144,1,4,0)
;;=4^C25.9
;;^UTILITY(U,$J,358.3,37144,2)
;;=^5000946
;;^UTILITY(U,$J,358.3,37145,0)
;;=C47.9^^107^1487^154
;;^UTILITY(U,$J,358.3,37145,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37145,1,3,0)
;;=3^Malig Neop Peripheral Nerves/Autonomic Nervous System,Unspec
;;^UTILITY(U,$J,358.3,37145,1,4,0)
;;=4^C47.9
;;^UTILITY(U,$J,358.3,37145,2)
;;=^5001121
;;^UTILITY(U,$J,358.3,37146,0)
;;=C38.4^^107^1487^155
;;^UTILITY(U,$J,358.3,37146,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37146,1,3,0)
;;=3^Malig Neop Pleura
;;^UTILITY(U,$J,358.3,37146,1,4,0)
;;=4^C38.4
;;^UTILITY(U,$J,358.3,37146,2)
;;=^267140
;;^UTILITY(U,$J,358.3,37147,0)
;;=C61.^^107^1487^156
;;^UTILITY(U,$J,358.3,37147,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37147,1,3,0)
;;=3^Malig Neop Prostate
;;^UTILITY(U,$J,358.3,37147,1,4,0)
;;=4^C61.
;;^UTILITY(U,$J,358.3,37147,2)
;;=^267239
;;^UTILITY(U,$J,358.3,37148,0)
;;=C20.^^107^1487^157
;;^UTILITY(U,$J,358.3,37148,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37148,1,3,0)
;;=3^Malig Neop Rectum
;;^UTILITY(U,$J,358.3,37148,1,4,0)
;;=4^C20.
;;^UTILITY(U,$J,358.3,37148,2)
;;=^267090
;;^UTILITY(U,$J,358.3,37149,0)
;;=C64.1^^107^1487^162
;;^UTILITY(U,$J,358.3,37149,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37149,1,3,0)
;;=3^Malig Neop Right Kidney,Except Renal pelvis
;;^UTILITY(U,$J,358.3,37149,1,4,0)
;;=4^C64.1
;;^UTILITY(U,$J,358.3,37149,2)
;;=^5001248
;;^UTILITY(U,$J,358.3,37150,0)
;;=C65.1^^107^1487^165
;;^UTILITY(U,$J,358.3,37150,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37150,1,3,0)
;;=3^Malig Neop Right Renal Pelvis
;;^UTILITY(U,$J,358.3,37150,1,4,0)
;;=4^C65.1
;;^UTILITY(U,$J,358.3,37150,2)
;;=^5001251
;;^UTILITY(U,$J,358.3,37151,0)
;;=C62.91^^107^1487^166
;;^UTILITY(U,$J,358.3,37151,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37151,1,3,0)
;;=3^Malig Neop Right Testis
;;^UTILITY(U,$J,358.3,37151,1,4,0)
;;=4^C62.91
;;^UTILITY(U,$J,358.3,37151,2)
;;=^5001237
;;^UTILITY(U,$J,358.3,37152,0)
;;=C17.9^^107^1487^167
;;^UTILITY(U,$J,358.3,37152,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37152,1,3,0)
;;=3^Malig Neop Small Intestine,Unspec
;;^UTILITY(U,$J,358.3,37152,1,4,0)
;;=4^C17.9
;;^UTILITY(U,$J,358.3,37152,2)
;;=^5000926
;;^UTILITY(U,$J,358.3,37153,0)
;;=C16.9^^107^1487^168
;;^UTILITY(U,$J,358.3,37153,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37153,1,3,0)
;;=3^Malig Neop Stomach,Unspec
;;^UTILITY(U,$J,358.3,37153,1,4,0)
;;=4^C16.9
;;^UTILITY(U,$J,358.3,37153,2)
;;=^5000923
;;^UTILITY(U,$J,358.3,37154,0)
;;=C02.9^^107^1487^170
;;^UTILITY(U,$J,358.3,37154,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37154,1,3,0)
;;=3^Malig Neop Tongue,Unspec
;;^UTILITY(U,$J,358.3,37154,1,4,0)
;;=4^C02.9
;;^UTILITY(U,$J,358.3,37154,2)
;;=^5000891
;;^UTILITY(U,$J,358.3,37155,0)
;;=C64.9^^107^1487^135
;;^UTILITY(U,$J,358.3,37155,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37155,1,3,0)
;;=3^Malig Neop Kidney,Except Renal Pelvis,Unspec
;;^UTILITY(U,$J,358.3,37155,1,4,0)
;;=4^C64.9
;;^UTILITY(U,$J,358.3,37155,2)
;;=^5001250
;;^UTILITY(U,$J,358.3,37156,0)
;;=C34.92^^107^1487^138
;;^UTILITY(U,$J,358.3,37156,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37156,1,3,0)
;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,37156,1,4,0)
;;=4^C34.92
;;^UTILITY(U,$J,358.3,37156,2)
;;=^5000968
;;^UTILITY(U,$J,358.3,37157,0)
;;=C34.90^^107^1487^124
;;^UTILITY(U,$J,358.3,37157,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37157,1,3,0)
;;=3^Malig Neop Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,37157,1,4,0)
;;=4^C34.90
;;^UTILITY(U,$J,358.3,37157,2)
;;=^5000966
;;^UTILITY(U,$J,358.3,37158,0)
;;=C65.9^^107^1487^158
;;^UTILITY(U,$J,358.3,37158,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37158,1,3,0)
;;=3^Malig Neop Renal Pelvis,Unspec
;;^UTILITY(U,$J,358.3,37158,1,4,0)
;;=4^C65.9
;;^UTILITY(U,$J,358.3,37158,2)
;;=^5001253
;;^UTILITY(U,$J,358.3,37159,0)
;;=C50.912^^107^1487^139
;;^UTILITY(U,$J,358.3,37159,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37159,1,3,0)
;;=3^Malig Neop Left Female Breast,Unspec Site
;;^UTILITY(U,$J,358.3,37159,1,4,0)
;;=4^C50.912
;;^UTILITY(U,$J,358.3,37159,2)
;;=^5001196
;;^UTILITY(U,$J,358.3,37160,0)
;;=C50.911^^107^1487^161
;;^UTILITY(U,$J,358.3,37160,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37160,1,3,0)
;;=3^Malig Neop Right Female Breast,Unspec Site
;;^UTILITY(U,$J,358.3,37160,1,4,0)
;;=4^C50.911
;;^UTILITY(U,$J,358.3,37160,2)
;;=^5001195
;;^UTILITY(U,$J,358.3,37161,0)
;;=C50.919^^107^1487^131
;;^UTILITY(U,$J,358.3,37161,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37161,1,3,0)
;;=3^Malig Neop Female Breast,Unspec Site
;;^UTILITY(U,$J,358.3,37161,1,4,0)
;;=4^C50.919
;;^UTILITY(U,$J,358.3,37161,2)
;;=^5001197
;;^UTILITY(U,$J,358.3,37162,0)
;;=C62.90^^107^1487^169
;;^UTILITY(U,$J,358.3,37162,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37162,1,3,0)
;;=3^Malig Neop Testis,Unspec
;;^UTILITY(U,$J,358.3,37162,1,4,0)
;;=4^C62.90
;;^UTILITY(U,$J,358.3,37162,2)
;;=^5001236
;;^UTILITY(U,$J,358.3,37163,0)
;;=D03.9^^107^1487^174
;;^UTILITY(U,$J,358.3,37163,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37163,1,3,0)
;;=3^Melanoma in Situ,Unspec
;;^UTILITY(U,$J,358.3,37163,1,4,0)
;;=4^D03.9
;;^UTILITY(U,$J,358.3,37163,2)
;;=^5001908
;;^UTILITY(U,$J,358.3,37164,0)
;;=C45.0^^107^1487^175
;;^UTILITY(U,$J,358.3,37164,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37164,1,3,0)
;;=3^Mesothelioma of Pleura
;;^UTILITY(U,$J,358.3,37164,1,4,0)
;;=4^C45.0
;;^UTILITY(U,$J,358.3,37164,2)
;;=^5001095
;;^UTILITY(U,$J,358.3,37165,0)
;;=C90.01^^107^1487^177
;;^UTILITY(U,$J,358.3,37165,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37165,1,3,0)
;;=3^Multiple Myeloma,In Remission
;;^UTILITY(U,$J,358.3,37165,1,4,0)
;;=4^C90.01
;;^UTILITY(U,$J,358.3,37165,2)
;;=^267515
;;^UTILITY(U,$J,358.3,37166,0)
;;=C90.00^^107^1487^178
;;^UTILITY(U,$J,358.3,37166,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37166,1,3,0)
;;=3^Multiple Myeloma,Not in Remission
;;^UTILITY(U,$J,358.3,37166,1,4,0)
;;=4^C90.00
;;^UTILITY(U,$J,358.3,37166,2)
;;=^5001752
;;^UTILITY(U,$J,358.3,37167,0)
;;=C94.6^^107^1487^179
;;^UTILITY(U,$J,358.3,37167,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37167,1,3,0)
;;=3^Myelodysplastic Disease NEC
;;^UTILITY(U,$J,358.3,37167,1,4,0)
;;=4^C94.6
;;^UTILITY(U,$J,358.3,37167,2)
;;=^5001846
;;^UTILITY(U,$J,358.3,37168,0)
;;=D61.82^^107^1487^180
;;^UTILITY(U,$J,358.3,37168,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37168,1,3,0)
;;=3^Myelophthisis
;;^UTILITY(U,$J,358.3,37168,1,4,0)
;;=4^D61.82
;;^UTILITY(U,$J,358.3,37168,2)
;;=^334037
;;^UTILITY(U,$J,358.3,37169,0)
;;=D47.9^^107^1487^181
;;^UTILITY(U,$J,358.3,37169,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37169,1,3,0)
;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior
;;^UTILITY(U,$J,358.3,37169,1,4,0)
;;=4^D47.9
;;^UTILITY(U,$J,358.3,37169,2)
;;=^5002260
;;^UTILITY(U,$J,358.3,37170,0)
;;=D53.9^^107^1487^185
;;^UTILITY(U,$J,358.3,37170,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37170,1,3,0)
;;=3^Nutritional Anemia,Unspec
;;^UTILITY(U,$J,358.3,37170,1,4,0)
;;=4^D53.9
;;^UTILITY(U,$J,358.3,37170,2)
;;=^5002298
;;^UTILITY(U,$J,358.3,37171,0)
;;=D47.4^^107^1487^186
;;^UTILITY(U,$J,358.3,37171,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37171,1,3,0)
;;=3^Osteomyelofibrosis
;;^UTILITY(U,$J,358.3,37171,1,4,0)
;;=4^D47.4
;;^UTILITY(U,$J,358.3,37171,2)
;;=^5002259
;;^UTILITY(U,$J,358.3,37172,0)
;;=D51.3^^107^1487^210
;;^UTILITY(U,$J,358.3,37172,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37172,1,3,0)
;;=3^Vitamin B12 Deficiency Anemia,Other
;;^UTILITY(U,$J,358.3,37172,1,4,0)
;;=4^D51.3
;;^UTILITY(U,$J,358.3,37172,2)
;;=^5002287
;;^UTILITY(U,$J,358.3,37173,0)
;;=D77.^^107^1487^62
;;^UTILITY(U,$J,358.3,37173,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37173,1,3,0)
;;=3^Disorder of Blood/Blood-Forming Organs in Diseases Classified Elsewhere,Other
;;^UTILITY(U,$J,358.3,37173,1,4,0)
;;=4^D77.
;;^UTILITY(U,$J,358.3,37173,2)
;;=^5002396
;;^UTILITY(U,$J,358.3,37174,0)
;;=D58.2^^107^1487^88
;;^UTILITY(U,$J,358.3,37174,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37174,1,3,0)
;;=3^Hemoglobinopathies,Other
;;^UTILITY(U,$J,358.3,37174,1,4,0)
;;=4^D58.2
;;^UTILITY(U,$J,358.3,37174,2)
;;=^87629
;;^UTILITY(U,$J,358.3,37175,0)
;;=C88.8^^107^1487^110
;;^UTILITY(U,$J,358.3,37175,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37175,1,3,0)
;;=3^Malig Immunoproliferative Diseases,Other
;;^UTILITY(U,$J,358.3,37175,1,4,0)
;;=4^C88.8
;;^UTILITY(U,$J,358.3,37175,2)
;;=^5001750
;;^UTILITY(U,$J,358.3,37176,0)
;;=D70.8^^107^1487^183
;;^UTILITY(U,$J,358.3,37176,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37176,1,3,0)
;;=3^Neutropenia,Other
;;^UTILITY(U,$J,358.3,37176,1,4,0)
;;=4^D70.8
;;^UTILITY(U,$J,358.3,37176,2)
;;=^334042
;;^UTILITY(U,$J,358.3,37177,0)
;;=D59.4^^107^1487^184
;;^UTILITY(U,$J,358.3,37177,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37177,1,3,0)
;;=3^Nonautoimmune Hemolytic Anemias,Other
;;^UTILITY(U,$J,358.3,37177,1,4,0)
;;=4^D59.4
;;^UTILITY(U,$J,358.3,37177,2)
;;=^5002326
;;^UTILITY(U,$J,358.3,37178,0)
;;=D69.59^^107^1487^190
;;^UTILITY(U,$J,358.3,37178,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37178,1,3,0)
;;=3^Secondary Thrombocytopenia,Other
;;^UTILITY(U,$J,358.3,37178,1,4,0)
;;=4^D69.59
;;^UTILITY(U,$J,358.3,37178,2)
;;=^5002369
;;^UTILITY(U,$J,358.3,37179,0)
;;=C22.7^^107^1487^51
;;^UTILITY(U,$J,358.3,37179,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37179,1,3,0)
;;=3^Carcinomas of Liver,Other Spec
;;^UTILITY(U,$J,358.3,37179,1,4,0)
;;=4^C22.7
;;^UTILITY(U,$J,358.3,37179,2)
;;=^5000938
;;^UTILITY(U,$J,358.3,37180,0)
;;=D75.89^^107^1487^61
;;^UTILITY(U,$J,358.3,37180,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37180,1,3,0)
;;=3^Diseases of Blood/Blood-Forming Organs,Other Spec
;;^UTILITY(U,$J,358.3,37180,1,4,0)
;;=4^D75.89
;;^UTILITY(U,$J,358.3,37180,2)
;;=^5002392
;;^UTILITY(U,$J,358.3,37181,0)
;;=D47.Z9^^107^1487^182
;;^UTILITY(U,$J,358.3,37181,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37181,1,3,0)
;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior,Other
;;^UTILITY(U,$J,358.3,37181,1,4,0)
;;=4^D47.Z9
;;^UTILITY(U,$J,358.3,37181,2)
;;=^5002262
;;^UTILITY(U,$J,358.3,37182,0)
;;=D05.82^^107^1487^39
;;^UTILITY(U,$J,358.3,37182,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37182,1,3,0)
;;=3^Carcinoma in Situ Left Breast,Other Spec Type
;;^UTILITY(U,$J,358.3,37182,1,4,0)
;;=4^D05.82
;;^UTILITY(U,$J,358.3,37182,2)
;;=^5001934
;;^UTILITY(U,$J,358.3,37183,0)
;;=D05.81^^107^1487^41
;;^UTILITY(U,$J,358.3,37183,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37183,1,3,0)
;;=3^Carcinoma in Situ Right Breast,Oth Spec Type
;;^UTILITY(U,$J,358.3,37183,1,4,0)
;;=4^D05.81
;;^UTILITY(U,$J,358.3,37183,2)
;;=^5001933
;;^UTILITY(U,$J,358.3,37184,0)
;;=D05.80^^107^1487^43
;;^UTILITY(U,$J,358.3,37184,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37184,1,3,0)
;;=3^Carcinoma in Situ Unspec Breast,Oth Spec Type
;;^UTILITY(U,$J,358.3,37184,1,4,0)
;;=4^D05.80
;;^UTILITY(U,$J,358.3,37184,2)
;;=^5001932
;;^UTILITY(U,$J,358.3,37185,0)
;;=D56.8^^107^1487^205
;;^UTILITY(U,$J,358.3,37185,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37185,1,3,0)
;;=3^Thalassemias,Other
;;^UTILITY(U,$J,358.3,37185,1,4,0)
;;=4^D56.8
;;^UTILITY(U,$J,358.3,37185,2)
;;=^5002305
;;^UTILITY(U,$J,358.3,37186,0)
;;=C82.89^^107^1487^81
;;^UTILITY(U,$J,358.3,37186,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37186,1,3,0)
;;=3^Follicular Lymphoma,Extranodal/Solid Organ Sites,Other Types
;;^UTILITY(U,$J,358.3,37186,1,4,0)
;;=4^C82.89
;;^UTILITY(U,$J,358.3,37186,2)
;;=^5001540
;;^UTILITY(U,$J,358.3,37187,0)
;;=D51.8^^107^1487^212
;;^UTILITY(U,$J,358.3,37187,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37187,1,3,0)
;;=3^Vitamin B12 Deficiency Anemias,Other
;;^UTILITY(U,$J,358.3,37187,1,4,0)
;;=4^D51.8
;;^UTILITY(U,$J,358.3,37187,2)
;;=^5002288
;;^UTILITY(U,$J,358.3,37188,0)
;;=I80.9^^107^1487^187
;;^UTILITY(U,$J,358.3,37188,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37188,1,3,0)
;;=3^Phlebitis/Thrombophlebitis,Unspec Site
;;^UTILITY(U,$J,358.3,37188,1,4,0)
;;=4^I80.9
;;^UTILITY(U,$J,358.3,37188,2)
;;=^93357
;;^UTILITY(U,$J,358.3,37189,0)
;;=D45.^^107^1487^188
;;^UTILITY(U,$J,358.3,37189,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37189,1,3,0)
;;=3^Polycythemia Vera
;;^UTILITY(U,$J,358.3,37189,1,4,0)
;;=4^D45.
;;^UTILITY(U,$J,358.3,37189,2)
;;=^96105
;;^UTILITY(U,$J,358.3,37190,0)
;;=C77.3^^107^1487^117
;;^UTILITY(U,$J,358.3,37190,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37190,1,3,0)
;;=3^Malig Neop Axilla/Upper Limb Lymph Nodes,Sec and Unspec
;;^UTILITY(U,$J,358.3,37190,1,4,0)
;;=4^C77.3
;;^UTILITY(U,$J,358.3,37190,2)
;;=^5001330
;;^UTILITY(U,$J,358.3,37191,0)
;;=C77.2^^107^1487^133
;;^UTILITY(U,$J,358.3,37191,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37191,1,3,0)
;;=3^Malig Neop Intra-Abdominal Lymph Nodes,Sec and Unspec
;;^UTILITY(U,$J,358.3,37191,1,4,0)
;;=4^C77.2
;;^UTILITY(U,$J,358.3,37191,2)
;;=^267316
;;^UTILITY(U,$J,358.3,37192,0)
;;=C77.1^^107^1487^134
;;^UTILITY(U,$J,358.3,37192,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37192,1,3,0)
;;=3^Malig Neop Intrathoracic Lymph Nodes,Sec and Unspec
;;^UTILITY(U,$J,358.3,37192,1,4,0)
;;=4^C77.1
;;^UTILITY(U,$J,358.3,37192,2)
;;=^267315
;;^UTILITY(U,$J,358.3,37193,0)
;;=C77.0^^107^1487^150
;;^UTILITY(U,$J,358.3,37193,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37193,1,3,0)
;;=3^Malig Neop Nodes of Head,Face and Neck,Sec and Unspec
;;^UTILITY(U,$J,358.3,37193,1,4,0)
;;=4^C77.0
;;^UTILITY(U,$J,358.3,37193,2)
;;=^5001329
;;^UTILITY(U,$J,358.3,37194,0)
;;=C77.8^^107^1487^151
;;^UTILITY(U,$J,358.3,37194,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37194,1,3,0)
;;=3^Malig Neop Nodes of Multiple Regions,Sec and Unspec
;;^UTILITY(U,$J,358.3,37194,1,4,0)
;;=4^C77.8
;;^UTILITY(U,$J,358.3,37194,2)
;;=^5001332
;;^UTILITY(U,$J,358.3,37195,0)
;;=C79.51^^107^1487^121
;;^UTILITY(U,$J,358.3,37195,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37195,1,3,0)
;;=3^Malig Neop Bone,Secondary
;;^UTILITY(U,$J,358.3,37195,1,4,0)
;;=4^C79.51
;;^UTILITY(U,$J,358.3,37195,2)
;;=^5001350
;;^UTILITY(U,$J,358.3,37196,0)
;;=C79.52^^107^1487^120
;;^UTILITY(U,$J,358.3,37196,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37196,1,3,0)
;;=3^Malig Neop Bone Marrow,Secondary
;;^UTILITY(U,$J,358.3,37196,1,4,0)
;;=4^C79.52
;;^UTILITY(U,$J,358.3,37196,2)
;;=^5001351
;;^UTILITY(U,$J,358.3,37197,0)
;;=C79.31^^107^1487^122
;;^UTILITY(U,$J,358.3,37197,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37197,1,3,0)
;;=3^Malig Neop Brain,Secondary
;;^UTILITY(U,$J,358.3,37197,1,4,0)
;;=4^C79.31
;;^UTILITY(U,$J,358.3,37197,2)
;;=^5001347
;;^UTILITY(U,$J,358.3,37198,0)
;;=C79.72^^107^1487^137
;;^UTILITY(U,$J,358.3,37198,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37198,1,3,0)
;;=3^Malig Neop Left Adrenal Gland,Secondary
;;^UTILITY(U,$J,358.3,37198,1,4,0)
;;=4^C79.72
;;^UTILITY(U,$J,358.3,37198,2)
;;=^5001357
;;^UTILITY(U,$J,358.3,37199,0)
;;=C78.02^^107^1487^141
;;^UTILITY(U,$J,358.3,37199,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37199,1,3,0)
;;=3^Malig Neop Left Lung,Secondary
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0EU 19784 printed Sep 23, 2025@19:23:17 Page 2
IBDEI0EU ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,37132,0)
+2 ;;=C62.11^^107^1487^128
+3 ;;^UTILITY(U,$J,358.3,37132,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,37132,1,3,0)
+6 ;;=3^Malig Neop Descended Right Testis
+7 ;;^UTILITY(U,$J,358.3,37132,1,4,0)
+8 ;;=4^C62.11
+9 ;;^UTILITY(U,$J,358.3,37132,2)
+10 ;;=^5001234
+11 ;;^UTILITY(U,$J,358.3,37133,0)
+12 ;;=C15.9^^107^1487^129
+13 ;;^UTILITY(U,$J,358.3,37133,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,37133,1,3,0)
+16 ;;=3^Malig Neop Esophagus,Unspec
+17 ;;^UTILITY(U,$J,358.3,37133,1,4,0)
+18 ;;=4^C15.9
+19 ;;^UTILITY(U,$J,358.3,37133,2)
+20 ;;=^5000919
+21 ;;^UTILITY(U,$J,358.3,37134,0)
+22 ;;=C24.0^^107^1487^130
+23 ;;^UTILITY(U,$J,358.3,37134,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,37134,1,3,0)
+26 ;;=3^Malig Neop Extrahepatic Bile Duct
+27 ;;^UTILITY(U,$J,358.3,37134,1,4,0)
+28 ;;=4^C24.0
+29 ;;^UTILITY(U,$J,358.3,37134,2)
+30 ;;=^5000940
+31 ;;^UTILITY(U,$J,358.3,37135,0)
+32 ;;=C23.^^107^1487^132
+33 ;;^UTILITY(U,$J,358.3,37135,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,37135,1,3,0)
+36 ;;=3^Malig Neop Gallbladder
+37 ;;^UTILITY(U,$J,358.3,37135,1,4,0)
+38 ;;=4^C23.
+39 ;;^UTILITY(U,$J,358.3,37135,2)
+40 ;;=^267098
+41 ;;^UTILITY(U,$J,358.3,37136,0)
+42 ;;=C32.9^^107^1487^136
+43 ;;^UTILITY(U,$J,358.3,37136,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,37136,1,3,0)
+46 ;;=3^Malig Neop Larynx,Unspec
+47 ;;^UTILITY(U,$J,358.3,37136,1,4,0)
+48 ;;=4^C32.9
+49 ;;^UTILITY(U,$J,358.3,37136,2)
+50 ;;=^5000956
+51 ;;^UTILITY(U,$J,358.3,37137,0)
+52 ;;=C64.2^^107^1487^140
+53 ;;^UTILITY(U,$J,358.3,37137,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,37137,1,3,0)
+56 ;;=3^Malig Neop Left Kidney,Except Renal Pelvis
+57 ;;^UTILITY(U,$J,358.3,37137,1,4,0)
+58 ;;=4^C64.2
+59 ;;^UTILITY(U,$J,358.3,37137,2)
+60 ;;=^5001249
+61 ;;^UTILITY(U,$J,358.3,37138,0)
+62 ;;=C65.2^^107^1487^143
+63 ;;^UTILITY(U,$J,358.3,37138,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,37138,1,3,0)
+66 ;;=3^Malig Neop Left Renal Pelvis
+67 ;;^UTILITY(U,$J,358.3,37138,1,4,0)
+68 ;;=4^C65.2
+69 ;;^UTILITY(U,$J,358.3,37138,2)
+70 ;;=^5001252
+71 ;;^UTILITY(U,$J,358.3,37139,0)
+72 ;;=C62.92^^107^1487^144
+73 ;;^UTILITY(U,$J,358.3,37139,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,37139,1,3,0)
+76 ;;=3^Malig Neop Left Testis,Unspec
+77 ;;^UTILITY(U,$J,358.3,37139,1,4,0)
+78 ;;=4^C62.92
+79 ;;^UTILITY(U,$J,358.3,37139,2)
+80 ;;=^5001238
+81 ;;^UTILITY(U,$J,358.3,37140,0)
+82 ;;=C22.8^^107^1487^145
+83 ;;^UTILITY(U,$J,358.3,37140,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,37140,1,3,0)
+86 ;;=3^Malig Neop Liver,Primary
+87 ;;^UTILITY(U,$J,358.3,37140,1,4,0)
+88 ;;=4^C22.8
+89 ;;^UTILITY(U,$J,358.3,37140,2)
+90 ;;=^5000939
+91 ;;^UTILITY(U,$J,358.3,37141,0)
+92 ;;=C06.9^^107^1487^148
+93 ;;^UTILITY(U,$J,358.3,37141,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,37141,1,3,0)
+96 ;;=3^Malig Neop Mouth,Unspec
+97 ;;^UTILITY(U,$J,358.3,37141,1,4,0)
+98 ;;=4^C06.9
+99 ;;^UTILITY(U,$J,358.3,37141,2)
+100 ;;=^5000901
+101 ;;^UTILITY(U,$J,358.3,37142,0)
+102 ;;=C11.9^^107^1487^149
+103 ;;^UTILITY(U,$J,358.3,37142,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,37142,1,3,0)
+106 ;;=3^Malig Neop Nasopharynx,Unspec
+107 ;;^UTILITY(U,$J,358.3,37142,1,4,0)
+108 ;;=4^C11.9
+109 ;;^UTILITY(U,$J,358.3,37142,2)
+110 ;;=^5000911
+111 ;;^UTILITY(U,$J,358.3,37143,0)
+112 ;;=C10.9^^107^1487^152
+113 ;;^UTILITY(U,$J,358.3,37143,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,37143,1,3,0)
+116 ;;=3^Malig Neop Oropharynx,Unspec
+117 ;;^UTILITY(U,$J,358.3,37143,1,4,0)
+118 ;;=4^C10.9
+119 ;;^UTILITY(U,$J,358.3,37143,2)
+120 ;;=^5000909
+121 ;;^UTILITY(U,$J,358.3,37144,0)
+122 ;;=C25.9^^107^1487^153
+123 ;;^UTILITY(U,$J,358.3,37144,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,37144,1,3,0)
+126 ;;=3^Malig Neop Pancreas,Unspec
+127 ;;^UTILITY(U,$J,358.3,37144,1,4,0)
+128 ;;=4^C25.9
+129 ;;^UTILITY(U,$J,358.3,37144,2)
+130 ;;=^5000946
+131 ;;^UTILITY(U,$J,358.3,37145,0)
+132 ;;=C47.9^^107^1487^154
+133 ;;^UTILITY(U,$J,358.3,37145,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,37145,1,3,0)
+136 ;;=3^Malig Neop Peripheral Nerves/Autonomic Nervous System,Unspec
+137 ;;^UTILITY(U,$J,358.3,37145,1,4,0)
+138 ;;=4^C47.9
+139 ;;^UTILITY(U,$J,358.3,37145,2)
+140 ;;=^5001121
+141 ;;^UTILITY(U,$J,358.3,37146,0)
+142 ;;=C38.4^^107^1487^155
+143 ;;^UTILITY(U,$J,358.3,37146,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,37146,1,3,0)
+146 ;;=3^Malig Neop Pleura
+147 ;;^UTILITY(U,$J,358.3,37146,1,4,0)
+148 ;;=4^C38.4
+149 ;;^UTILITY(U,$J,358.3,37146,2)
+150 ;;=^267140
+151 ;;^UTILITY(U,$J,358.3,37147,0)
+152 ;;=C61.^^107^1487^156
+153 ;;^UTILITY(U,$J,358.3,37147,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,37147,1,3,0)
+156 ;;=3^Malig Neop Prostate
+157 ;;^UTILITY(U,$J,358.3,37147,1,4,0)
+158 ;;=4^C61.
+159 ;;^UTILITY(U,$J,358.3,37147,2)
+160 ;;=^267239
+161 ;;^UTILITY(U,$J,358.3,37148,0)
+162 ;;=C20.^^107^1487^157
+163 ;;^UTILITY(U,$J,358.3,37148,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,37148,1,3,0)
+166 ;;=3^Malig Neop Rectum
+167 ;;^UTILITY(U,$J,358.3,37148,1,4,0)
+168 ;;=4^C20.
+169 ;;^UTILITY(U,$J,358.3,37148,2)
+170 ;;=^267090
+171 ;;^UTILITY(U,$J,358.3,37149,0)
+172 ;;=C64.1^^107^1487^162
+173 ;;^UTILITY(U,$J,358.3,37149,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,37149,1,3,0)
+176 ;;=3^Malig Neop Right Kidney,Except Renal pelvis
+177 ;;^UTILITY(U,$J,358.3,37149,1,4,0)
+178 ;;=4^C64.1
+179 ;;^UTILITY(U,$J,358.3,37149,2)
+180 ;;=^5001248
+181 ;;^UTILITY(U,$J,358.3,37150,0)
+182 ;;=C65.1^^107^1487^165
+183 ;;^UTILITY(U,$J,358.3,37150,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,37150,1,3,0)
+186 ;;=3^Malig Neop Right Renal Pelvis
+187 ;;^UTILITY(U,$J,358.3,37150,1,4,0)
+188 ;;=4^C65.1
+189 ;;^UTILITY(U,$J,358.3,37150,2)
+190 ;;=^5001251
+191 ;;^UTILITY(U,$J,358.3,37151,0)
+192 ;;=C62.91^^107^1487^166
+193 ;;^UTILITY(U,$J,358.3,37151,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,37151,1,3,0)
+196 ;;=3^Malig Neop Right Testis
+197 ;;^UTILITY(U,$J,358.3,37151,1,4,0)
+198 ;;=4^C62.91
+199 ;;^UTILITY(U,$J,358.3,37151,2)
+200 ;;=^5001237
+201 ;;^UTILITY(U,$J,358.3,37152,0)
+202 ;;=C17.9^^107^1487^167
+203 ;;^UTILITY(U,$J,358.3,37152,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,37152,1,3,0)
+206 ;;=3^Malig Neop Small Intestine,Unspec
+207 ;;^UTILITY(U,$J,358.3,37152,1,4,0)
+208 ;;=4^C17.9
+209 ;;^UTILITY(U,$J,358.3,37152,2)
+210 ;;=^5000926
+211 ;;^UTILITY(U,$J,358.3,37153,0)
+212 ;;=C16.9^^107^1487^168
+213 ;;^UTILITY(U,$J,358.3,37153,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,37153,1,3,0)
+216 ;;=3^Malig Neop Stomach,Unspec
+217 ;;^UTILITY(U,$J,358.3,37153,1,4,0)
+218 ;;=4^C16.9
+219 ;;^UTILITY(U,$J,358.3,37153,2)
+220 ;;=^5000923
+221 ;;^UTILITY(U,$J,358.3,37154,0)
+222 ;;=C02.9^^107^1487^170
+223 ;;^UTILITY(U,$J,358.3,37154,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,37154,1,3,0)
+226 ;;=3^Malig Neop Tongue,Unspec
+227 ;;^UTILITY(U,$J,358.3,37154,1,4,0)
+228 ;;=4^C02.9
+229 ;;^UTILITY(U,$J,358.3,37154,2)
+230 ;;=^5000891
+231 ;;^UTILITY(U,$J,358.3,37155,0)
+232 ;;=C64.9^^107^1487^135
+233 ;;^UTILITY(U,$J,358.3,37155,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,37155,1,3,0)
+236 ;;=3^Malig Neop Kidney,Except Renal Pelvis,Unspec
+237 ;;^UTILITY(U,$J,358.3,37155,1,4,0)
+238 ;;=4^C64.9
+239 ;;^UTILITY(U,$J,358.3,37155,2)
+240 ;;=^5001250
+241 ;;^UTILITY(U,$J,358.3,37156,0)
+242 ;;=C34.92^^107^1487^138
+243 ;;^UTILITY(U,$J,358.3,37156,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,37156,1,3,0)
+246 ;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
+247 ;;^UTILITY(U,$J,358.3,37156,1,4,0)
+248 ;;=4^C34.92
+249 ;;^UTILITY(U,$J,358.3,37156,2)
+250 ;;=^5000968
+251 ;;^UTILITY(U,$J,358.3,37157,0)
+252 ;;=C34.90^^107^1487^124
+253 ;;^UTILITY(U,$J,358.3,37157,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,37157,1,3,0)
+256 ;;=3^Malig Neop Bronchus/Lung,Unspec Part
+257 ;;^UTILITY(U,$J,358.3,37157,1,4,0)
+258 ;;=4^C34.90
+259 ;;^UTILITY(U,$J,358.3,37157,2)
+260 ;;=^5000966
+261 ;;^UTILITY(U,$J,358.3,37158,0)
+262 ;;=C65.9^^107^1487^158
+263 ;;^UTILITY(U,$J,358.3,37158,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,37158,1,3,0)
+266 ;;=3^Malig Neop Renal Pelvis,Unspec
+267 ;;^UTILITY(U,$J,358.3,37158,1,4,0)
+268 ;;=4^C65.9
+269 ;;^UTILITY(U,$J,358.3,37158,2)
+270 ;;=^5001253
+271 ;;^UTILITY(U,$J,358.3,37159,0)
+272 ;;=C50.912^^107^1487^139
+273 ;;^UTILITY(U,$J,358.3,37159,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,37159,1,3,0)
+276 ;;=3^Malig Neop Left Female Breast,Unspec Site
+277 ;;^UTILITY(U,$J,358.3,37159,1,4,0)
+278 ;;=4^C50.912
+279 ;;^UTILITY(U,$J,358.3,37159,2)
+280 ;;=^5001196
+281 ;;^UTILITY(U,$J,358.3,37160,0)
+282 ;;=C50.911^^107^1487^161
+283 ;;^UTILITY(U,$J,358.3,37160,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,37160,1,3,0)
+286 ;;=3^Malig Neop Right Female Breast,Unspec Site
+287 ;;^UTILITY(U,$J,358.3,37160,1,4,0)
+288 ;;=4^C50.911
+289 ;;^UTILITY(U,$J,358.3,37160,2)
+290 ;;=^5001195
+291 ;;^UTILITY(U,$J,358.3,37161,0)
+292 ;;=C50.919^^107^1487^131
+293 ;;^UTILITY(U,$J,358.3,37161,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,37161,1,3,0)
+296 ;;=3^Malig Neop Female Breast,Unspec Site
+297 ;;^UTILITY(U,$J,358.3,37161,1,4,0)
+298 ;;=4^C50.919
+299 ;;^UTILITY(U,$J,358.3,37161,2)
+300 ;;=^5001197
+301 ;;^UTILITY(U,$J,358.3,37162,0)
+302 ;;=C62.90^^107^1487^169
+303 ;;^UTILITY(U,$J,358.3,37162,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,37162,1,3,0)
+306 ;;=3^Malig Neop Testis,Unspec
+307 ;;^UTILITY(U,$J,358.3,37162,1,4,0)
+308 ;;=4^C62.90
+309 ;;^UTILITY(U,$J,358.3,37162,2)
+310 ;;=^5001236
+311 ;;^UTILITY(U,$J,358.3,37163,0)
+312 ;;=D03.9^^107^1487^174
+313 ;;^UTILITY(U,$J,358.3,37163,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,37163,1,3,0)
+316 ;;=3^Melanoma in Situ,Unspec
+317 ;;^UTILITY(U,$J,358.3,37163,1,4,0)
+318 ;;=4^D03.9
+319 ;;^UTILITY(U,$J,358.3,37163,2)
+320 ;;=^5001908
+321 ;;^UTILITY(U,$J,358.3,37164,0)
+322 ;;=C45.0^^107^1487^175
+323 ;;^UTILITY(U,$J,358.3,37164,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,37164,1,3,0)
+326 ;;=3^Mesothelioma of Pleura
+327 ;;^UTILITY(U,$J,358.3,37164,1,4,0)
+328 ;;=4^C45.0
+329 ;;^UTILITY(U,$J,358.3,37164,2)
+330 ;;=^5001095
+331 ;;^UTILITY(U,$J,358.3,37165,0)
+332 ;;=C90.01^^107^1487^177
+333 ;;^UTILITY(U,$J,358.3,37165,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,37165,1,3,0)
+336 ;;=3^Multiple Myeloma,In Remission
+337 ;;^UTILITY(U,$J,358.3,37165,1,4,0)
+338 ;;=4^C90.01
+339 ;;^UTILITY(U,$J,358.3,37165,2)
+340 ;;=^267515
+341 ;;^UTILITY(U,$J,358.3,37166,0)
+342 ;;=C90.00^^107^1487^178
+343 ;;^UTILITY(U,$J,358.3,37166,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,37166,1,3,0)
+346 ;;=3^Multiple Myeloma,Not in Remission
+347 ;;^UTILITY(U,$J,358.3,37166,1,4,0)
+348 ;;=4^C90.00
+349 ;;^UTILITY(U,$J,358.3,37166,2)
+350 ;;=^5001752
+351 ;;^UTILITY(U,$J,358.3,37167,0)
+352 ;;=C94.6^^107^1487^179
+353 ;;^UTILITY(U,$J,358.3,37167,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,37167,1,3,0)
+356 ;;=3^Myelodysplastic Disease NEC
+357 ;;^UTILITY(U,$J,358.3,37167,1,4,0)
+358 ;;=4^C94.6
+359 ;;^UTILITY(U,$J,358.3,37167,2)
+360 ;;=^5001846
+361 ;;^UTILITY(U,$J,358.3,37168,0)
+362 ;;=D61.82^^107^1487^180
+363 ;;^UTILITY(U,$J,358.3,37168,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,37168,1,3,0)
+366 ;;=3^Myelophthisis
+367 ;;^UTILITY(U,$J,358.3,37168,1,4,0)
+368 ;;=4^D61.82
+369 ;;^UTILITY(U,$J,358.3,37168,2)
+370 ;;=^334037
+371 ;;^UTILITY(U,$J,358.3,37169,0)
+372 ;;=D47.9^^107^1487^181
+373 ;;^UTILITY(U,$J,358.3,37169,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,37169,1,3,0)
+376 ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior
+377 ;;^UTILITY(U,$J,358.3,37169,1,4,0)
+378 ;;=4^D47.9
+379 ;;^UTILITY(U,$J,358.3,37169,2)
+380 ;;=^5002260
+381 ;;^UTILITY(U,$J,358.3,37170,0)
+382 ;;=D53.9^^107^1487^185
+383 ;;^UTILITY(U,$J,358.3,37170,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,37170,1,3,0)
+386 ;;=3^Nutritional Anemia,Unspec
+387 ;;^UTILITY(U,$J,358.3,37170,1,4,0)
+388 ;;=4^D53.9
+389 ;;^UTILITY(U,$J,358.3,37170,2)
+390 ;;=^5002298
+391 ;;^UTILITY(U,$J,358.3,37171,0)
+392 ;;=D47.4^^107^1487^186
+393 ;;^UTILITY(U,$J,358.3,37171,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,37171,1,3,0)
+396 ;;=3^Osteomyelofibrosis
+397 ;;^UTILITY(U,$J,358.3,37171,1,4,0)
+398 ;;=4^D47.4
+399 ;;^UTILITY(U,$J,358.3,37171,2)
+400 ;;=^5002259
+401 ;;^UTILITY(U,$J,358.3,37172,0)
+402 ;;=D51.3^^107^1487^210
+403 ;;^UTILITY(U,$J,358.3,37172,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,37172,1,3,0)
+406 ;;=3^Vitamin B12 Deficiency Anemia,Other
+407 ;;^UTILITY(U,$J,358.3,37172,1,4,0)
+408 ;;=4^D51.3
+409 ;;^UTILITY(U,$J,358.3,37172,2)
+410 ;;=^5002287
+411 ;;^UTILITY(U,$J,358.3,37173,0)
+412 ;;=D77.^^107^1487^62
+413 ;;^UTILITY(U,$J,358.3,37173,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,37173,1,3,0)
+416 ;;=3^Disorder of Blood/Blood-Forming Organs in Diseases Classified Elsewhere,Other
+417 ;;^UTILITY(U,$J,358.3,37173,1,4,0)
+418 ;;=4^D77.
+419 ;;^UTILITY(U,$J,358.3,37173,2)
+420 ;;=^5002396
+421 ;;^UTILITY(U,$J,358.3,37174,0)
+422 ;;=D58.2^^107^1487^88
+423 ;;^UTILITY(U,$J,358.3,37174,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,37174,1,3,0)
+426 ;;=3^Hemoglobinopathies,Other
+427 ;;^UTILITY(U,$J,358.3,37174,1,4,0)
+428 ;;=4^D58.2
+429 ;;^UTILITY(U,$J,358.3,37174,2)
+430 ;;=^87629
+431 ;;^UTILITY(U,$J,358.3,37175,0)
+432 ;;=C88.8^^107^1487^110
+433 ;;^UTILITY(U,$J,358.3,37175,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,37175,1,3,0)
+436 ;;=3^Malig Immunoproliferative Diseases,Other
+437 ;;^UTILITY(U,$J,358.3,37175,1,4,0)
+438 ;;=4^C88.8
+439 ;;^UTILITY(U,$J,358.3,37175,2)
+440 ;;=^5001750
+441 ;;^UTILITY(U,$J,358.3,37176,0)
+442 ;;=D70.8^^107^1487^183
+443 ;;^UTILITY(U,$J,358.3,37176,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,37176,1,3,0)
+446 ;;=3^Neutropenia,Other
+447 ;;^UTILITY(U,$J,358.3,37176,1,4,0)
+448 ;;=4^D70.8
+449 ;;^UTILITY(U,$J,358.3,37176,2)
+450 ;;=^334042
+451 ;;^UTILITY(U,$J,358.3,37177,0)
+452 ;;=D59.4^^107^1487^184
+453 ;;^UTILITY(U,$J,358.3,37177,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,37177,1,3,0)
+456 ;;=3^Nonautoimmune Hemolytic Anemias,Other
+457 ;;^UTILITY(U,$J,358.3,37177,1,4,0)
+458 ;;=4^D59.4
+459 ;;^UTILITY(U,$J,358.3,37177,2)
+460 ;;=^5002326
+461 ;;^UTILITY(U,$J,358.3,37178,0)
+462 ;;=D69.59^^107^1487^190
+463 ;;^UTILITY(U,$J,358.3,37178,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,37178,1,3,0)
+466 ;;=3^Secondary Thrombocytopenia,Other
+467 ;;^UTILITY(U,$J,358.3,37178,1,4,0)
+468 ;;=4^D69.59
+469 ;;^UTILITY(U,$J,358.3,37178,2)
+470 ;;=^5002369
+471 ;;^UTILITY(U,$J,358.3,37179,0)
+472 ;;=C22.7^^107^1487^51
+473 ;;^UTILITY(U,$J,358.3,37179,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,37179,1,3,0)
+476 ;;=3^Carcinomas of Liver,Other Spec
+477 ;;^UTILITY(U,$J,358.3,37179,1,4,0)
+478 ;;=4^C22.7
+479 ;;^UTILITY(U,$J,358.3,37179,2)
+480 ;;=^5000938
+481 ;;^UTILITY(U,$J,358.3,37180,0)
+482 ;;=D75.89^^107^1487^61
+483 ;;^UTILITY(U,$J,358.3,37180,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,37180,1,3,0)
+486 ;;=3^Diseases of Blood/Blood-Forming Organs,Other Spec
+487 ;;^UTILITY(U,$J,358.3,37180,1,4,0)
+488 ;;=4^D75.89
+489 ;;^UTILITY(U,$J,358.3,37180,2)
+490 ;;=^5002392
+491 ;;^UTILITY(U,$J,358.3,37181,0)
+492 ;;=D47.Z9^^107^1487^182
+493 ;;^UTILITY(U,$J,358.3,37181,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,37181,1,3,0)
+496 ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior,Other
+497 ;;^UTILITY(U,$J,358.3,37181,1,4,0)
+498 ;;=4^D47.Z9
+499 ;;^UTILITY(U,$J,358.3,37181,2)
+500 ;;=^5002262
+501 ;;^UTILITY(U,$J,358.3,37182,0)
+502 ;;=D05.82^^107^1487^39
+503 ;;^UTILITY(U,$J,358.3,37182,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,37182,1,3,0)
+506 ;;=3^Carcinoma in Situ Left Breast,Other Spec Type
+507 ;;^UTILITY(U,$J,358.3,37182,1,4,0)
+508 ;;=4^D05.82
+509 ;;^UTILITY(U,$J,358.3,37182,2)
+510 ;;=^5001934
+511 ;;^UTILITY(U,$J,358.3,37183,0)
+512 ;;=D05.81^^107^1487^41
+513 ;;^UTILITY(U,$J,358.3,37183,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,37183,1,3,0)
+516 ;;=3^Carcinoma in Situ Right Breast,Oth Spec Type
+517 ;;^UTILITY(U,$J,358.3,37183,1,4,0)
+518 ;;=4^D05.81
+519 ;;^UTILITY(U,$J,358.3,37183,2)
+520 ;;=^5001933
+521 ;;^UTILITY(U,$J,358.3,37184,0)
+522 ;;=D05.80^^107^1487^43
+523 ;;^UTILITY(U,$J,358.3,37184,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,37184,1,3,0)
+526 ;;=3^Carcinoma in Situ Unspec Breast,Oth Spec Type
+527 ;;^UTILITY(U,$J,358.3,37184,1,4,0)
+528 ;;=4^D05.80
+529 ;;^UTILITY(U,$J,358.3,37184,2)
+530 ;;=^5001932
+531 ;;^UTILITY(U,$J,358.3,37185,0)
+532 ;;=D56.8^^107^1487^205
+533 ;;^UTILITY(U,$J,358.3,37185,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,37185,1,3,0)
+536 ;;=3^Thalassemias,Other
+537 ;;^UTILITY(U,$J,358.3,37185,1,4,0)
+538 ;;=4^D56.8
+539 ;;^UTILITY(U,$J,358.3,37185,2)
+540 ;;=^5002305
+541 ;;^UTILITY(U,$J,358.3,37186,0)
+542 ;;=C82.89^^107^1487^81
+543 ;;^UTILITY(U,$J,358.3,37186,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,37186,1,3,0)
+546 ;;=3^Follicular Lymphoma,Extranodal/Solid Organ Sites,Other Types
+547 ;;^UTILITY(U,$J,358.3,37186,1,4,0)
+548 ;;=4^C82.89
+549 ;;^UTILITY(U,$J,358.3,37186,2)
+550 ;;=^5001540
+551 ;;^UTILITY(U,$J,358.3,37187,0)
+552 ;;=D51.8^^107^1487^212
+553 ;;^UTILITY(U,$J,358.3,37187,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,37187,1,3,0)
+556 ;;=3^Vitamin B12 Deficiency Anemias,Other
+557 ;;^UTILITY(U,$J,358.3,37187,1,4,0)
+558 ;;=4^D51.8
+559 ;;^UTILITY(U,$J,358.3,37187,2)
+560 ;;=^5002288
+561 ;;^UTILITY(U,$J,358.3,37188,0)
+562 ;;=I80.9^^107^1487^187
+563 ;;^UTILITY(U,$J,358.3,37188,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,37188,1,3,0)
+566 ;;=3^Phlebitis/Thrombophlebitis,Unspec Site
+567 ;;^UTILITY(U,$J,358.3,37188,1,4,0)
+568 ;;=4^I80.9
+569 ;;^UTILITY(U,$J,358.3,37188,2)
+570 ;;=^93357
+571 ;;^UTILITY(U,$J,358.3,37189,0)
+572 ;;=D45.^^107^1487^188
+573 ;;^UTILITY(U,$J,358.3,37189,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,37189,1,3,0)
+576 ;;=3^Polycythemia Vera
+577 ;;^UTILITY(U,$J,358.3,37189,1,4,0)
+578 ;;=4^D45.
+579 ;;^UTILITY(U,$J,358.3,37189,2)
+580 ;;=^96105
+581 ;;^UTILITY(U,$J,358.3,37190,0)
+582 ;;=C77.3^^107^1487^117
+583 ;;^UTILITY(U,$J,358.3,37190,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,37190,1,3,0)
+586 ;;=3^Malig Neop Axilla/Upper Limb Lymph Nodes,Sec and Unspec
+587 ;;^UTILITY(U,$J,358.3,37190,1,4,0)
+588 ;;=4^C77.3
+589 ;;^UTILITY(U,$J,358.3,37190,2)
+590 ;;=^5001330
+591 ;;^UTILITY(U,$J,358.3,37191,0)
+592 ;;=C77.2^^107^1487^133
+593 ;;^UTILITY(U,$J,358.3,37191,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,37191,1,3,0)
+596 ;;=3^Malig Neop Intra-Abdominal Lymph Nodes,Sec and Unspec
+597 ;;^UTILITY(U,$J,358.3,37191,1,4,0)
+598 ;;=4^C77.2
+599 ;;^UTILITY(U,$J,358.3,37191,2)
+600 ;;=^267316
+601 ;;^UTILITY(U,$J,358.3,37192,0)
+602 ;;=C77.1^^107^1487^134
+603 ;;^UTILITY(U,$J,358.3,37192,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,37192,1,3,0)
+606 ;;=3^Malig Neop Intrathoracic Lymph Nodes,Sec and Unspec
+607 ;;^UTILITY(U,$J,358.3,37192,1,4,0)
+608 ;;=4^C77.1
+609 ;;^UTILITY(U,$J,358.3,37192,2)
+610 ;;=^267315
+611 ;;^UTILITY(U,$J,358.3,37193,0)
+612 ;;=C77.0^^107^1487^150
+613 ;;^UTILITY(U,$J,358.3,37193,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,37193,1,3,0)
+616 ;;=3^Malig Neop Nodes of Head,Face and Neck,Sec and Unspec
+617 ;;^UTILITY(U,$J,358.3,37193,1,4,0)
+618 ;;=4^C77.0
+619 ;;^UTILITY(U,$J,358.3,37193,2)
+620 ;;=^5001329
+621 ;;^UTILITY(U,$J,358.3,37194,0)
+622 ;;=C77.8^^107^1487^151
+623 ;;^UTILITY(U,$J,358.3,37194,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,37194,1,3,0)
+626 ;;=3^Malig Neop Nodes of Multiple Regions,Sec and Unspec
+627 ;;^UTILITY(U,$J,358.3,37194,1,4,0)
+628 ;;=4^C77.8
+629 ;;^UTILITY(U,$J,358.3,37194,2)
+630 ;;=^5001332
+631 ;;^UTILITY(U,$J,358.3,37195,0)
+632 ;;=C79.51^^107^1487^121
+633 ;;^UTILITY(U,$J,358.3,37195,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,37195,1,3,0)
+636 ;;=3^Malig Neop Bone,Secondary
+637 ;;^UTILITY(U,$J,358.3,37195,1,4,0)
+638 ;;=4^C79.51
+639 ;;^UTILITY(U,$J,358.3,37195,2)
+640 ;;=^5001350
+641 ;;^UTILITY(U,$J,358.3,37196,0)
+642 ;;=C79.52^^107^1487^120
+643 ;;^UTILITY(U,$J,358.3,37196,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,37196,1,3,0)
+646 ;;=3^Malig Neop Bone Marrow,Secondary
+647 ;;^UTILITY(U,$J,358.3,37196,1,4,0)
+648 ;;=4^C79.52
+649 ;;^UTILITY(U,$J,358.3,37196,2)
+650 ;;=^5001351
+651 ;;^UTILITY(U,$J,358.3,37197,0)
+652 ;;=C79.31^^107^1487^122
+653 ;;^UTILITY(U,$J,358.3,37197,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,37197,1,3,0)
+656 ;;=3^Malig Neop Brain,Secondary
+657 ;;^UTILITY(U,$J,358.3,37197,1,4,0)
+658 ;;=4^C79.31
+659 ;;^UTILITY(U,$J,358.3,37197,2)
+660 ;;=^5001347
+661 ;;^UTILITY(U,$J,358.3,37198,0)
+662 ;;=C79.72^^107^1487^137
+663 ;;^UTILITY(U,$J,358.3,37198,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,37198,1,3,0)
+666 ;;=3^Malig Neop Left Adrenal Gland,Secondary
+667 ;;^UTILITY(U,$J,358.3,37198,1,4,0)
+668 ;;=4^C79.72
+669 ;;^UTILITY(U,$J,358.3,37198,2)
+670 ;;=^5001357
+671 ;;^UTILITY(U,$J,358.3,37199,0)
+672 ;;=C78.02^^107^1487^141
+673 ;;^UTILITY(U,$J,358.3,37199,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,37199,1,3,0)
+676 ;;=3^Malig Neop Left Lung,Secondary
