IBDEI095 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,22353,1,4,0)
;;=4^C65.1
;;^UTILITY(U,$J,358.3,22353,2)
;;=^5001251
;;^UTILITY(U,$J,358.3,22354,0)
;;=C62.91^^71^914^166
;;^UTILITY(U,$J,358.3,22354,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22354,1,3,0)
;;=3^Malig Neop Right Testis
;;^UTILITY(U,$J,358.3,22354,1,4,0)
;;=4^C62.91
;;^UTILITY(U,$J,358.3,22354,2)
;;=^5001237
;;^UTILITY(U,$J,358.3,22355,0)
;;=C17.9^^71^914^167
;;^UTILITY(U,$J,358.3,22355,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22355,1,3,0)
;;=3^Malig Neop Small Intestine,Unspec
;;^UTILITY(U,$J,358.3,22355,1,4,0)
;;=4^C17.9
;;^UTILITY(U,$J,358.3,22355,2)
;;=^5000926
;;^UTILITY(U,$J,358.3,22356,0)
;;=C16.9^^71^914^168
;;^UTILITY(U,$J,358.3,22356,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22356,1,3,0)
;;=3^Malig Neop Stomach,Unspec
;;^UTILITY(U,$J,358.3,22356,1,4,0)
;;=4^C16.9
;;^UTILITY(U,$J,358.3,22356,2)
;;=^5000923
;;^UTILITY(U,$J,358.3,22357,0)
;;=C02.9^^71^914^170
;;^UTILITY(U,$J,358.3,22357,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22357,1,3,0)
;;=3^Malig Neop Tongue,Unspec
;;^UTILITY(U,$J,358.3,22357,1,4,0)
;;=4^C02.9
;;^UTILITY(U,$J,358.3,22357,2)
;;=^5000891
;;^UTILITY(U,$J,358.3,22358,0)
;;=C64.9^^71^914^135
;;^UTILITY(U,$J,358.3,22358,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22358,1,3,0)
;;=3^Malig Neop Kidney,Except Renal Pelvis,Unspec
;;^UTILITY(U,$J,358.3,22358,1,4,0)
;;=4^C64.9
;;^UTILITY(U,$J,358.3,22358,2)
;;=^5001250
;;^UTILITY(U,$J,358.3,22359,0)
;;=C34.92^^71^914^138
;;^UTILITY(U,$J,358.3,22359,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22359,1,3,0)
;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,22359,1,4,0)
;;=4^C34.92
;;^UTILITY(U,$J,358.3,22359,2)
;;=^5000968
;;^UTILITY(U,$J,358.3,22360,0)
;;=C34.90^^71^914^124
;;^UTILITY(U,$J,358.3,22360,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22360,1,3,0)
;;=3^Malig Neop Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,22360,1,4,0)
;;=4^C34.90
;;^UTILITY(U,$J,358.3,22360,2)
;;=^5000966
;;^UTILITY(U,$J,358.3,22361,0)
;;=C65.9^^71^914^158
;;^UTILITY(U,$J,358.3,22361,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22361,1,3,0)
;;=3^Malig Neop Renal Pelvis,Unspec
;;^UTILITY(U,$J,358.3,22361,1,4,0)
;;=4^C65.9
;;^UTILITY(U,$J,358.3,22361,2)
;;=^5001253
;;^UTILITY(U,$J,358.3,22362,0)
;;=C50.912^^71^914^139
;;^UTILITY(U,$J,358.3,22362,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22362,1,3,0)
;;=3^Malig Neop Left Female Breast,Unspec Site
;;^UTILITY(U,$J,358.3,22362,1,4,0)
;;=4^C50.912
;;^UTILITY(U,$J,358.3,22362,2)
;;=^5001196
;;^UTILITY(U,$J,358.3,22363,0)
;;=C50.911^^71^914^161
;;^UTILITY(U,$J,358.3,22363,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22363,1,3,0)
;;=3^Malig Neop Right Female Breast,Unspec Site
;;^UTILITY(U,$J,358.3,22363,1,4,0)
;;=4^C50.911
;;^UTILITY(U,$J,358.3,22363,2)
;;=^5001195
;;^UTILITY(U,$J,358.3,22364,0)
;;=C50.919^^71^914^131
;;^UTILITY(U,$J,358.3,22364,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22364,1,3,0)
;;=3^Malig Neop Female Breast,Unspec Site
;;^UTILITY(U,$J,358.3,22364,1,4,0)
;;=4^C50.919
;;^UTILITY(U,$J,358.3,22364,2)
;;=^5001197
;;^UTILITY(U,$J,358.3,22365,0)
;;=C62.90^^71^914^169
;;^UTILITY(U,$J,358.3,22365,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22365,1,3,0)
;;=3^Malig Neop Testis,Unspec
;;^UTILITY(U,$J,358.3,22365,1,4,0)
;;=4^C62.90
;;^UTILITY(U,$J,358.3,22365,2)
;;=^5001236
;;^UTILITY(U,$J,358.3,22366,0)
;;=D03.9^^71^914^174
;;^UTILITY(U,$J,358.3,22366,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22366,1,3,0)
;;=3^Melanoma in Situ,Unspec
;;^UTILITY(U,$J,358.3,22366,1,4,0)
;;=4^D03.9
;;^UTILITY(U,$J,358.3,22366,2)
;;=^5001908
;;^UTILITY(U,$J,358.3,22367,0)
;;=C45.0^^71^914^175
;;^UTILITY(U,$J,358.3,22367,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22367,1,3,0)
;;=3^Mesothelioma of Pleura
;;^UTILITY(U,$J,358.3,22367,1,4,0)
;;=4^C45.0
;;^UTILITY(U,$J,358.3,22367,2)
;;=^5001095
;;^UTILITY(U,$J,358.3,22368,0)
;;=C90.01^^71^914^177
;;^UTILITY(U,$J,358.3,22368,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22368,1,3,0)
;;=3^Multiple Myeloma,In Remission
;;^UTILITY(U,$J,358.3,22368,1,4,0)
;;=4^C90.01
;;^UTILITY(U,$J,358.3,22368,2)
;;=^267515
;;^UTILITY(U,$J,358.3,22369,0)
;;=C90.00^^71^914^178
;;^UTILITY(U,$J,358.3,22369,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22369,1,3,0)
;;=3^Multiple Myeloma,Not in Remission
;;^UTILITY(U,$J,358.3,22369,1,4,0)
;;=4^C90.00
;;^UTILITY(U,$J,358.3,22369,2)
;;=^5001752
;;^UTILITY(U,$J,358.3,22370,0)
;;=C94.6^^71^914^179
;;^UTILITY(U,$J,358.3,22370,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22370,1,3,0)
;;=3^Myelodysplastic Disease NEC
;;^UTILITY(U,$J,358.3,22370,1,4,0)
;;=4^C94.6
;;^UTILITY(U,$J,358.3,22370,2)
;;=^5001846
;;^UTILITY(U,$J,358.3,22371,0)
;;=D61.82^^71^914^180
;;^UTILITY(U,$J,358.3,22371,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22371,1,3,0)
;;=3^Myelophthisis
;;^UTILITY(U,$J,358.3,22371,1,4,0)
;;=4^D61.82
;;^UTILITY(U,$J,358.3,22371,2)
;;=^334037
;;^UTILITY(U,$J,358.3,22372,0)
;;=D47.9^^71^914^181
;;^UTILITY(U,$J,358.3,22372,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22372,1,3,0)
;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior
;;^UTILITY(U,$J,358.3,22372,1,4,0)
;;=4^D47.9
;;^UTILITY(U,$J,358.3,22372,2)
;;=^5002260
;;^UTILITY(U,$J,358.3,22373,0)
;;=D53.9^^71^914^185
;;^UTILITY(U,$J,358.3,22373,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22373,1,3,0)
;;=3^Nutritional Anemia,Unspec
;;^UTILITY(U,$J,358.3,22373,1,4,0)
;;=4^D53.9
;;^UTILITY(U,$J,358.3,22373,2)
;;=^5002298
;;^UTILITY(U,$J,358.3,22374,0)
;;=D47.4^^71^914^186
;;^UTILITY(U,$J,358.3,22374,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22374,1,3,0)
;;=3^Osteomyelofibrosis
;;^UTILITY(U,$J,358.3,22374,1,4,0)
;;=4^D47.4
;;^UTILITY(U,$J,358.3,22374,2)
;;=^5002259
;;^UTILITY(U,$J,358.3,22375,0)
;;=D51.3^^71^914^210
;;^UTILITY(U,$J,358.3,22375,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22375,1,3,0)
;;=3^Vitamin B12 Deficiency Anemia,Other
;;^UTILITY(U,$J,358.3,22375,1,4,0)
;;=4^D51.3
;;^UTILITY(U,$J,358.3,22375,2)
;;=^5002287
;;^UTILITY(U,$J,358.3,22376,0)
;;=D77.^^71^914^62
;;^UTILITY(U,$J,358.3,22376,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22376,1,3,0)
;;=3^Disorder of Blood/Blood-Forming Organs in Diseases Classified Elsewhere,Other
;;^UTILITY(U,$J,358.3,22376,1,4,0)
;;=4^D77.
;;^UTILITY(U,$J,358.3,22376,2)
;;=^5002396
;;^UTILITY(U,$J,358.3,22377,0)
;;=D58.2^^71^914^88
;;^UTILITY(U,$J,358.3,22377,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22377,1,3,0)
;;=3^Hemoglobinopathies,Other
;;^UTILITY(U,$J,358.3,22377,1,4,0)
;;=4^D58.2
;;^UTILITY(U,$J,358.3,22377,2)
;;=^87629
;;^UTILITY(U,$J,358.3,22378,0)
;;=C88.8^^71^914^110
;;^UTILITY(U,$J,358.3,22378,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22378,1,3,0)
;;=3^Malig Immunoproliferative Diseases,Other
;;^UTILITY(U,$J,358.3,22378,1,4,0)
;;=4^C88.8
;;^UTILITY(U,$J,358.3,22378,2)
;;=^5001750
;;^UTILITY(U,$J,358.3,22379,0)
;;=D70.8^^71^914^183
;;^UTILITY(U,$J,358.3,22379,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22379,1,3,0)
;;=3^Neutropenia,Other
;;^UTILITY(U,$J,358.3,22379,1,4,0)
;;=4^D70.8
;;^UTILITY(U,$J,358.3,22379,2)
;;=^334042
;;^UTILITY(U,$J,358.3,22380,0)
;;=D59.4^^71^914^184
;;^UTILITY(U,$J,358.3,22380,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22380,1,3,0)
;;=3^Nonautoimmune Hemolytic Anemias,Other
;;^UTILITY(U,$J,358.3,22380,1,4,0)
;;=4^D59.4
;;^UTILITY(U,$J,358.3,22380,2)
;;=^5002326
;;^UTILITY(U,$J,358.3,22381,0)
;;=D69.59^^71^914^190
;;^UTILITY(U,$J,358.3,22381,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22381,1,3,0)
;;=3^Secondary Thrombocytopenia,Other
;;^UTILITY(U,$J,358.3,22381,1,4,0)
;;=4^D69.59
;;^UTILITY(U,$J,358.3,22381,2)
;;=^5002369
;;^UTILITY(U,$J,358.3,22382,0)
;;=C22.7^^71^914^51
;;^UTILITY(U,$J,358.3,22382,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22382,1,3,0)
;;=3^Carcinomas of Liver,Other Spec
;;^UTILITY(U,$J,358.3,22382,1,4,0)
;;=4^C22.7
;;^UTILITY(U,$J,358.3,22382,2)
;;=^5000938
;;^UTILITY(U,$J,358.3,22383,0)
;;=D75.89^^71^914^61
;;^UTILITY(U,$J,358.3,22383,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22383,1,3,0)
;;=3^Diseases of Blood/Blood-Forming Organs,Other Spec
;;^UTILITY(U,$J,358.3,22383,1,4,0)
;;=4^D75.89
;;^UTILITY(U,$J,358.3,22383,2)
;;=^5002392
;;^UTILITY(U,$J,358.3,22384,0)
;;=D47.Z9^^71^914^182
;;^UTILITY(U,$J,358.3,22384,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22384,1,3,0)
;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior,Other
;;^UTILITY(U,$J,358.3,22384,1,4,0)
;;=4^D47.Z9
;;^UTILITY(U,$J,358.3,22384,2)
;;=^5002262
;;^UTILITY(U,$J,358.3,22385,0)
;;=D05.82^^71^914^39
;;^UTILITY(U,$J,358.3,22385,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22385,1,3,0)
;;=3^Carcinoma in Situ Left Breast,Other Spec Type
;;^UTILITY(U,$J,358.3,22385,1,4,0)
;;=4^D05.82
;;^UTILITY(U,$J,358.3,22385,2)
;;=^5001934
;;^UTILITY(U,$J,358.3,22386,0)
;;=D05.81^^71^914^41
;;^UTILITY(U,$J,358.3,22386,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22386,1,3,0)
;;=3^Carcinoma in Situ Right Breast,Oth Spec Type
;;^UTILITY(U,$J,358.3,22386,1,4,0)
;;=4^D05.81
;;^UTILITY(U,$J,358.3,22386,2)
;;=^5001933
;;^UTILITY(U,$J,358.3,22387,0)
;;=D05.80^^71^914^43
;;^UTILITY(U,$J,358.3,22387,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22387,1,3,0)
;;=3^Carcinoma in Situ Unspec Breast,Oth Spec Type
;;^UTILITY(U,$J,358.3,22387,1,4,0)
;;=4^D05.80
;;^UTILITY(U,$J,358.3,22387,2)
;;=^5001932
;;^UTILITY(U,$J,358.3,22388,0)
;;=D56.8^^71^914^205
;;^UTILITY(U,$J,358.3,22388,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22388,1,3,0)
;;=3^Thalassemias,Other
;;^UTILITY(U,$J,358.3,22388,1,4,0)
;;=4^D56.8
;;^UTILITY(U,$J,358.3,22388,2)
;;=^5002305
;;^UTILITY(U,$J,358.3,22389,0)
;;=C82.89^^71^914^81
;;^UTILITY(U,$J,358.3,22389,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22389,1,3,0)
;;=3^Follicular Lymphoma,Extranodal/Solid Organ Sites,Other Types
;;^UTILITY(U,$J,358.3,22389,1,4,0)
;;=4^C82.89
;;^UTILITY(U,$J,358.3,22389,2)
;;=^5001540
;;^UTILITY(U,$J,358.3,22390,0)
;;=D51.8^^71^914^212
;;^UTILITY(U,$J,358.3,22390,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22390,1,3,0)
;;=3^Vitamin B12 Deficiency Anemias,Other
;;^UTILITY(U,$J,358.3,22390,1,4,0)
;;=4^D51.8
;;^UTILITY(U,$J,358.3,22390,2)
;;=^5002288
;;^UTILITY(U,$J,358.3,22391,0)
;;=I80.9^^71^914^187
;;^UTILITY(U,$J,358.3,22391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22391,1,3,0)
;;=3^Phlebitis/Thrombophlebitis,Unspec Site
;;^UTILITY(U,$J,358.3,22391,1,4,0)
;;=4^I80.9
;;^UTILITY(U,$J,358.3,22391,2)
;;=^93357
;;^UTILITY(U,$J,358.3,22392,0)
;;=D45.^^71^914^188
;;^UTILITY(U,$J,358.3,22392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22392,1,3,0)
;;=3^Polycythemia Vera
;;^UTILITY(U,$J,358.3,22392,1,4,0)
;;=4^D45.
;;^UTILITY(U,$J,358.3,22392,2)
;;=^96105
;;^UTILITY(U,$J,358.3,22393,0)
;;=C77.3^^71^914^117
;;^UTILITY(U,$J,358.3,22393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22393,1,3,0)
;;=3^Malig Neop Axilla/Upper Limb Lymph Nodes,Sec and Unspec
;;^UTILITY(U,$J,358.3,22393,1,4,0)
;;=4^C77.3
;;^UTILITY(U,$J,358.3,22393,2)
;;=^5001330
;;^UTILITY(U,$J,358.3,22394,0)
;;=C77.2^^71^914^133
;;^UTILITY(U,$J,358.3,22394,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22394,1,3,0)
;;=3^Malig Neop Intra-Abdominal Lymph Nodes,Sec and Unspec
;;^UTILITY(U,$J,358.3,22394,1,4,0)
;;=4^C77.2
;;^UTILITY(U,$J,358.3,22394,2)
;;=^267316
;;^UTILITY(U,$J,358.3,22395,0)
;;=C77.1^^71^914^134
;;^UTILITY(U,$J,358.3,22395,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22395,1,3,0)
;;=3^Malig Neop Intrathoracic Lymph Nodes,Sec and Unspec
;;^UTILITY(U,$J,358.3,22395,1,4,0)
;;=4^C77.1
;;^UTILITY(U,$J,358.3,22395,2)
;;=^267315
;;^UTILITY(U,$J,358.3,22396,0)
;;=C77.0^^71^914^150
;;^UTILITY(U,$J,358.3,22396,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22396,1,3,0)
;;=3^Malig Neop Nodes of Head,Face and Neck,Sec and Unspec
;;^UTILITY(U,$J,358.3,22396,1,4,0)
;;=4^C77.0
;;^UTILITY(U,$J,358.3,22396,2)
;;=^5001329
;;^UTILITY(U,$J,358.3,22397,0)
;;=C77.8^^71^914^151
;;^UTILITY(U,$J,358.3,22397,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22397,1,3,0)
;;=3^Malig Neop Nodes of Multiple Regions,Sec and Unspec
;;^UTILITY(U,$J,358.3,22397,1,4,0)
;;=4^C77.8
;;^UTILITY(U,$J,358.3,22397,2)
;;=^5001332
;;^UTILITY(U,$J,358.3,22398,0)
;;=C79.51^^71^914^121
;;^UTILITY(U,$J,358.3,22398,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22398,1,3,0)
;;=3^Malig Neop Bone,Secondary
;;^UTILITY(U,$J,358.3,22398,1,4,0)
;;=4^C79.51
;;^UTILITY(U,$J,358.3,22398,2)
;;=^5001350
;;^UTILITY(U,$J,358.3,22399,0)
;;=C79.52^^71^914^120
;;^UTILITY(U,$J,358.3,22399,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22399,1,3,0)
;;=3^Malig Neop Bone Marrow,Secondary
;;^UTILITY(U,$J,358.3,22399,1,4,0)
;;=4^C79.52
;;^UTILITY(U,$J,358.3,22399,2)
;;=^5001351
;;^UTILITY(U,$J,358.3,22400,0)
;;=C79.31^^71^914^122
;;^UTILITY(U,$J,358.3,22400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22400,1,3,0)
;;=3^Malig Neop Brain,Secondary
;;^UTILITY(U,$J,358.3,22400,1,4,0)
;;=4^C79.31
;;^UTILITY(U,$J,358.3,22400,2)
;;=^5001347
;;^UTILITY(U,$J,358.3,22401,0)
;;=C79.72^^71^914^137
;;^UTILITY(U,$J,358.3,22401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22401,1,3,0)
;;=3^Malig Neop Left Adrenal Gland,Secondary
;;^UTILITY(U,$J,358.3,22401,1,4,0)
;;=4^C79.72
;;^UTILITY(U,$J,358.3,22401,2)
;;=^5001357
;;^UTILITY(U,$J,358.3,22402,0)
;;=C78.02^^71^914^141
;;^UTILITY(U,$J,358.3,22402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22402,1,3,0)
;;=3^Malig Neop Left Lung,Secondary
;;^UTILITY(U,$J,358.3,22402,1,4,0)
;;=4^C78.02
;;^UTILITY(U,$J,358.3,22402,2)
;;=^5001336
;;^UTILITY(U,$J,358.3,22403,0)
;;=C78.7^^71^914^146
;;^UTILITY(U,$J,358.3,22403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22403,1,3,0)
;;=3^Malig Neop Liver/Intrahepatic Bile Duct,Secondary
;;^UTILITY(U,$J,358.3,22403,1,4,0)
;;=4^C78.7
;;^UTILITY(U,$J,358.3,22403,2)
;;=^5001339
;;^UTILITY(U,$J,358.3,22404,0)
;;=C79.71^^71^914^159
;;^UTILITY(U,$J,358.3,22404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22404,1,3,0)
;;=3^Malig Neop Right Adrenal Gland,Secondary
;;^UTILITY(U,$J,358.3,22404,1,4,0)
;;=4^C79.71
;;^UTILITY(U,$J,358.3,22404,2)
;;=^5001356
;;^UTILITY(U,$J,358.3,22405,0)
;;=C78.01^^71^914^163
;;^UTILITY(U,$J,358.3,22405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22405,1,3,0)
;;=3^Malig Neop Right Lung,Secondary
;;^UTILITY(U,$J,358.3,22405,1,4,0)
;;=4^C78.01
;;^UTILITY(U,$J,358.3,22405,2)
;;=^5001335
;;^UTILITY(U,$J,358.3,22406,0)
;;=C79.70^^71^914^114
;;^UTILITY(U,$J,358.3,22406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22406,1,3,0)
;;=3^Malig Neop Adrenal Gland Unspec,Secondary
;;^UTILITY(U,$J,358.3,22406,1,4,0)
;;=4^C79.70
;;^UTILITY(U,$J,358.3,22406,2)
;;=^5001355
;;^UTILITY(U,$J,358.3,22407,0)
;;=C78.00^^71^914^147
;;^UTILITY(U,$J,358.3,22407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22407,1,3,0)
;;=3^Malig Neop Lung Unspec,Secondary
;;^UTILITY(U,$J,358.3,22407,1,4,0)
;;=4^C78.00
;;^UTILITY(U,$J,358.3,22407,2)
;;=^5001334
;;^UTILITY(U,$J,358.3,22408,0)
;;=D57.1^^71^914^191
;;^UTILITY(U,$J,358.3,22408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22408,1,3,0)
;;=3^Sickle-Cell Disease w/o Crisis
;;^UTILITY(U,$J,358.3,22408,1,4,0)
;;=4^D57.1
;;^UTILITY(U,$J,358.3,22408,2)
;;=^5002309
;;^UTILITY(U,$J,358.3,22409,0)
;;=D75.1^^71^914^189
;;^UTILITY(U,$J,358.3,22409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22409,1,3,0)
;;=3^Polycythemia,Secondary
;;^UTILITY(U,$J,358.3,22409,1,4,0)
;;=4^D75.1
;;^UTILITY(U,$J,358.3,22409,2)
;;=^186856
;;^UTILITY(U,$J,358.3,22410,0)
;;=C90.30^^71^914^202
;;^UTILITY(U,$J,358.3,22410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22410,1,3,0)
;;=3^Solitary Plasmacytoma,Not in Remission
;;^UTILITY(U,$J,358.3,22410,1,4,0)
;;=4^C90.30
;;^UTILITY(U,$J,358.3,22410,2)
;;=^5001759
;;^UTILITY(U,$J,358.3,22411,0)
;;=D56.3^^71^914^203
;;^UTILITY(U,$J,358.3,22411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22411,1,3,0)
;;=3^Thalassemia Minor
;;^UTILITY(U,$J,358.3,22411,1,4,0)
;;=4^D56.3
;;^UTILITY(U,$J,358.3,22411,2)
;;=^340497
;;^UTILITY(U,$J,358.3,22412,0)
;;=D56.9^^71^914^204
;;^UTILITY(U,$J,358.3,22412,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22412,1,3,0)
;;=3^Thalassemia,Unspec
;;^UTILITY(U,$J,358.3,22412,1,4,0)
;;=4^D56.9
;;^UTILITY(U,$J,358.3,22412,2)
;;=^340606
;;^UTILITY(U,$J,358.3,22413,0)
;;=D51.2^^71^914^207
;;^UTILITY(U,$J,358.3,22413,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22413,1,3,0)
;;=3^Transcobalamin II Deficiency
;;^UTILITY(U,$J,358.3,22413,1,4,0)
;;=4^D51.2
;;^UTILITY(U,$J,358.3,22413,2)
;;=^5002286
;;^UTILITY(U,$J,358.3,22414,0)
;;=D05.92^^71^914^40
;;^UTILITY(U,$J,358.3,22414,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22414,1,3,0)
;;=3^Carcinoma in Situ Left Breast,Unspec Type
;;^UTILITY(U,$J,358.3,22414,1,4,0)
;;=4^D05.92
;;^UTILITY(U,$J,358.3,22414,2)
;;=^5001937
;;^UTILITY(U,$J,358.3,22415,0)
;;=D05.91^^71^914^42
;;^UTILITY(U,$J,358.3,22415,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22415,1,3,0)
;;=3^Carcinoma in Situ Right Breast,Unspec Type
;;^UTILITY(U,$J,358.3,22415,1,4,0)
;;=4^D05.91
;;^UTILITY(U,$J,358.3,22415,2)
;;=^5001936
;;^UTILITY(U,$J,358.3,22416,0)
;;=D05.90^^71^914^38
;;^UTILITY(U,$J,358.3,22416,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22416,1,3,0)
;;=3^Carcinoma in Situ Breast Unspec,Unspec Type
;;^UTILITY(U,$J,358.3,22416,1,4,0)
;;=4^D05.90
;;^UTILITY(U,$J,358.3,22416,2)
;;=^5001935
;;^UTILITY(U,$J,358.3,22417,0)
;;=D51.0^^71^914^208
;;^UTILITY(U,$J,358.3,22417,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22417,1,3,0)
;;=3^Vitamin B12 Deficiency Anemia d/t Intrinsic Factor Deficiency
;;^UTILITY(U,$J,358.3,22417,1,4,0)
;;=4^D51.0
;;^UTILITY(U,$J,358.3,22417,2)
;;=^5002284
;;^UTILITY(U,$J,358.3,22418,0)
;;=D51.1^^71^914^209
;;^UTILITY(U,$J,358.3,22418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22418,1,3,0)
;;=3^Vitamin B12 Deficiency Anemia d/t Selective Vit B12 Malabsorp w/ Proteinuria
;;^UTILITY(U,$J,358.3,22418,1,4,0)
;;=4^D51.1
;;^UTILITY(U,$J,358.3,22418,2)
;;=^5002285
;;^UTILITY(U,$J,358.3,22419,0)
;;=D51.9^^71^914^211
;;^UTILITY(U,$J,358.3,22419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22419,1,3,0)
;;=3^Vitamin B12 Deficiency Anemia,Unspec
;;^UTILITY(U,$J,358.3,22419,1,4,0)
;;=4^D51.9
;;^UTILITY(U,$J,358.3,22419,2)
;;=^5002289
;;^UTILITY(U,$J,358.3,22420,0)
;;=D68.0^^71^914^213
;;^UTILITY(U,$J,358.3,22420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22420,1,3,0)
;;=3^Von Willebrand's Disease
;;^UTILITY(U,$J,358.3,22420,1,4,0)
;;=4^D68.0
;;^UTILITY(U,$J,358.3,22420,2)
;;=^127267
;;^UTILITY(U,$J,358.3,22421,0)
;;=C88.0^^71^914^214
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI095 19778 printed Sep 23, 2025@19:20:04 Page 2
IBDEI095 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,22353,1,4,0)
+2 ;;=4^C65.1
+3 ;;^UTILITY(U,$J,358.3,22353,2)
+4 ;;=^5001251
+5 ;;^UTILITY(U,$J,358.3,22354,0)
+6 ;;=C62.91^^71^914^166
+7 ;;^UTILITY(U,$J,358.3,22354,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,22354,1,3,0)
+10 ;;=3^Malig Neop Right Testis
+11 ;;^UTILITY(U,$J,358.3,22354,1,4,0)
+12 ;;=4^C62.91
+13 ;;^UTILITY(U,$J,358.3,22354,2)
+14 ;;=^5001237
+15 ;;^UTILITY(U,$J,358.3,22355,0)
+16 ;;=C17.9^^71^914^167
+17 ;;^UTILITY(U,$J,358.3,22355,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,22355,1,3,0)
+20 ;;=3^Malig Neop Small Intestine,Unspec
+21 ;;^UTILITY(U,$J,358.3,22355,1,4,0)
+22 ;;=4^C17.9
+23 ;;^UTILITY(U,$J,358.3,22355,2)
+24 ;;=^5000926
+25 ;;^UTILITY(U,$J,358.3,22356,0)
+26 ;;=C16.9^^71^914^168
+27 ;;^UTILITY(U,$J,358.3,22356,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,22356,1,3,0)
+30 ;;=3^Malig Neop Stomach,Unspec
+31 ;;^UTILITY(U,$J,358.3,22356,1,4,0)
+32 ;;=4^C16.9
+33 ;;^UTILITY(U,$J,358.3,22356,2)
+34 ;;=^5000923
+35 ;;^UTILITY(U,$J,358.3,22357,0)
+36 ;;=C02.9^^71^914^170
+37 ;;^UTILITY(U,$J,358.3,22357,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,22357,1,3,0)
+40 ;;=3^Malig Neop Tongue,Unspec
+41 ;;^UTILITY(U,$J,358.3,22357,1,4,0)
+42 ;;=4^C02.9
+43 ;;^UTILITY(U,$J,358.3,22357,2)
+44 ;;=^5000891
+45 ;;^UTILITY(U,$J,358.3,22358,0)
+46 ;;=C64.9^^71^914^135
+47 ;;^UTILITY(U,$J,358.3,22358,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,22358,1,3,0)
+50 ;;=3^Malig Neop Kidney,Except Renal Pelvis,Unspec
+51 ;;^UTILITY(U,$J,358.3,22358,1,4,0)
+52 ;;=4^C64.9
+53 ;;^UTILITY(U,$J,358.3,22358,2)
+54 ;;=^5001250
+55 ;;^UTILITY(U,$J,358.3,22359,0)
+56 ;;=C34.92^^71^914^138
+57 ;;^UTILITY(U,$J,358.3,22359,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,22359,1,3,0)
+60 ;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
+61 ;;^UTILITY(U,$J,358.3,22359,1,4,0)
+62 ;;=4^C34.92
+63 ;;^UTILITY(U,$J,358.3,22359,2)
+64 ;;=^5000968
+65 ;;^UTILITY(U,$J,358.3,22360,0)
+66 ;;=C34.90^^71^914^124
+67 ;;^UTILITY(U,$J,358.3,22360,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,22360,1,3,0)
+70 ;;=3^Malig Neop Bronchus/Lung,Unspec Part
+71 ;;^UTILITY(U,$J,358.3,22360,1,4,0)
+72 ;;=4^C34.90
+73 ;;^UTILITY(U,$J,358.3,22360,2)
+74 ;;=^5000966
+75 ;;^UTILITY(U,$J,358.3,22361,0)
+76 ;;=C65.9^^71^914^158
+77 ;;^UTILITY(U,$J,358.3,22361,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,22361,1,3,0)
+80 ;;=3^Malig Neop Renal Pelvis,Unspec
+81 ;;^UTILITY(U,$J,358.3,22361,1,4,0)
+82 ;;=4^C65.9
+83 ;;^UTILITY(U,$J,358.3,22361,2)
+84 ;;=^5001253
+85 ;;^UTILITY(U,$J,358.3,22362,0)
+86 ;;=C50.912^^71^914^139
+87 ;;^UTILITY(U,$J,358.3,22362,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,22362,1,3,0)
+90 ;;=3^Malig Neop Left Female Breast,Unspec Site
+91 ;;^UTILITY(U,$J,358.3,22362,1,4,0)
+92 ;;=4^C50.912
+93 ;;^UTILITY(U,$J,358.3,22362,2)
+94 ;;=^5001196
+95 ;;^UTILITY(U,$J,358.3,22363,0)
+96 ;;=C50.911^^71^914^161
+97 ;;^UTILITY(U,$J,358.3,22363,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,22363,1,3,0)
+100 ;;=3^Malig Neop Right Female Breast,Unspec Site
+101 ;;^UTILITY(U,$J,358.3,22363,1,4,0)
+102 ;;=4^C50.911
+103 ;;^UTILITY(U,$J,358.3,22363,2)
+104 ;;=^5001195
+105 ;;^UTILITY(U,$J,358.3,22364,0)
+106 ;;=C50.919^^71^914^131
+107 ;;^UTILITY(U,$J,358.3,22364,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,22364,1,3,0)
+110 ;;=3^Malig Neop Female Breast,Unspec Site
+111 ;;^UTILITY(U,$J,358.3,22364,1,4,0)
+112 ;;=4^C50.919
+113 ;;^UTILITY(U,$J,358.3,22364,2)
+114 ;;=^5001197
+115 ;;^UTILITY(U,$J,358.3,22365,0)
+116 ;;=C62.90^^71^914^169
+117 ;;^UTILITY(U,$J,358.3,22365,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,22365,1,3,0)
+120 ;;=3^Malig Neop Testis,Unspec
+121 ;;^UTILITY(U,$J,358.3,22365,1,4,0)
+122 ;;=4^C62.90
+123 ;;^UTILITY(U,$J,358.3,22365,2)
+124 ;;=^5001236
+125 ;;^UTILITY(U,$J,358.3,22366,0)
+126 ;;=D03.9^^71^914^174
+127 ;;^UTILITY(U,$J,358.3,22366,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,22366,1,3,0)
+130 ;;=3^Melanoma in Situ,Unspec
+131 ;;^UTILITY(U,$J,358.3,22366,1,4,0)
+132 ;;=4^D03.9
+133 ;;^UTILITY(U,$J,358.3,22366,2)
+134 ;;=^5001908
+135 ;;^UTILITY(U,$J,358.3,22367,0)
+136 ;;=C45.0^^71^914^175
+137 ;;^UTILITY(U,$J,358.3,22367,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,22367,1,3,0)
+140 ;;=3^Mesothelioma of Pleura
+141 ;;^UTILITY(U,$J,358.3,22367,1,4,0)
+142 ;;=4^C45.0
+143 ;;^UTILITY(U,$J,358.3,22367,2)
+144 ;;=^5001095
+145 ;;^UTILITY(U,$J,358.3,22368,0)
+146 ;;=C90.01^^71^914^177
+147 ;;^UTILITY(U,$J,358.3,22368,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,22368,1,3,0)
+150 ;;=3^Multiple Myeloma,In Remission
+151 ;;^UTILITY(U,$J,358.3,22368,1,4,0)
+152 ;;=4^C90.01
+153 ;;^UTILITY(U,$J,358.3,22368,2)
+154 ;;=^267515
+155 ;;^UTILITY(U,$J,358.3,22369,0)
+156 ;;=C90.00^^71^914^178
+157 ;;^UTILITY(U,$J,358.3,22369,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,22369,1,3,0)
+160 ;;=3^Multiple Myeloma,Not in Remission
+161 ;;^UTILITY(U,$J,358.3,22369,1,4,0)
+162 ;;=4^C90.00
+163 ;;^UTILITY(U,$J,358.3,22369,2)
+164 ;;=^5001752
+165 ;;^UTILITY(U,$J,358.3,22370,0)
+166 ;;=C94.6^^71^914^179
+167 ;;^UTILITY(U,$J,358.3,22370,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,22370,1,3,0)
+170 ;;=3^Myelodysplastic Disease NEC
+171 ;;^UTILITY(U,$J,358.3,22370,1,4,0)
+172 ;;=4^C94.6
+173 ;;^UTILITY(U,$J,358.3,22370,2)
+174 ;;=^5001846
+175 ;;^UTILITY(U,$J,358.3,22371,0)
+176 ;;=D61.82^^71^914^180
+177 ;;^UTILITY(U,$J,358.3,22371,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,22371,1,3,0)
+180 ;;=3^Myelophthisis
+181 ;;^UTILITY(U,$J,358.3,22371,1,4,0)
+182 ;;=4^D61.82
+183 ;;^UTILITY(U,$J,358.3,22371,2)
+184 ;;=^334037
+185 ;;^UTILITY(U,$J,358.3,22372,0)
+186 ;;=D47.9^^71^914^181
+187 ;;^UTILITY(U,$J,358.3,22372,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,22372,1,3,0)
+190 ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior
+191 ;;^UTILITY(U,$J,358.3,22372,1,4,0)
+192 ;;=4^D47.9
+193 ;;^UTILITY(U,$J,358.3,22372,2)
+194 ;;=^5002260
+195 ;;^UTILITY(U,$J,358.3,22373,0)
+196 ;;=D53.9^^71^914^185
+197 ;;^UTILITY(U,$J,358.3,22373,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,22373,1,3,0)
+200 ;;=3^Nutritional Anemia,Unspec
+201 ;;^UTILITY(U,$J,358.3,22373,1,4,0)
+202 ;;=4^D53.9
+203 ;;^UTILITY(U,$J,358.3,22373,2)
+204 ;;=^5002298
+205 ;;^UTILITY(U,$J,358.3,22374,0)
+206 ;;=D47.4^^71^914^186
+207 ;;^UTILITY(U,$J,358.3,22374,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,22374,1,3,0)
+210 ;;=3^Osteomyelofibrosis
+211 ;;^UTILITY(U,$J,358.3,22374,1,4,0)
+212 ;;=4^D47.4
+213 ;;^UTILITY(U,$J,358.3,22374,2)
+214 ;;=^5002259
+215 ;;^UTILITY(U,$J,358.3,22375,0)
+216 ;;=D51.3^^71^914^210
+217 ;;^UTILITY(U,$J,358.3,22375,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,22375,1,3,0)
+220 ;;=3^Vitamin B12 Deficiency Anemia,Other
+221 ;;^UTILITY(U,$J,358.3,22375,1,4,0)
+222 ;;=4^D51.3
+223 ;;^UTILITY(U,$J,358.3,22375,2)
+224 ;;=^5002287
+225 ;;^UTILITY(U,$J,358.3,22376,0)
+226 ;;=D77.^^71^914^62
+227 ;;^UTILITY(U,$J,358.3,22376,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,22376,1,3,0)
+230 ;;=3^Disorder of Blood/Blood-Forming Organs in Diseases Classified Elsewhere,Other
+231 ;;^UTILITY(U,$J,358.3,22376,1,4,0)
+232 ;;=4^D77.
+233 ;;^UTILITY(U,$J,358.3,22376,2)
+234 ;;=^5002396
+235 ;;^UTILITY(U,$J,358.3,22377,0)
+236 ;;=D58.2^^71^914^88
+237 ;;^UTILITY(U,$J,358.3,22377,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,22377,1,3,0)
+240 ;;=3^Hemoglobinopathies,Other
+241 ;;^UTILITY(U,$J,358.3,22377,1,4,0)
+242 ;;=4^D58.2
+243 ;;^UTILITY(U,$J,358.3,22377,2)
+244 ;;=^87629
+245 ;;^UTILITY(U,$J,358.3,22378,0)
+246 ;;=C88.8^^71^914^110
+247 ;;^UTILITY(U,$J,358.3,22378,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,22378,1,3,0)
+250 ;;=3^Malig Immunoproliferative Diseases,Other
+251 ;;^UTILITY(U,$J,358.3,22378,1,4,0)
+252 ;;=4^C88.8
+253 ;;^UTILITY(U,$J,358.3,22378,2)
+254 ;;=^5001750
+255 ;;^UTILITY(U,$J,358.3,22379,0)
+256 ;;=D70.8^^71^914^183
+257 ;;^UTILITY(U,$J,358.3,22379,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,22379,1,3,0)
+260 ;;=3^Neutropenia,Other
+261 ;;^UTILITY(U,$J,358.3,22379,1,4,0)
+262 ;;=4^D70.8
+263 ;;^UTILITY(U,$J,358.3,22379,2)
+264 ;;=^334042
+265 ;;^UTILITY(U,$J,358.3,22380,0)
+266 ;;=D59.4^^71^914^184
+267 ;;^UTILITY(U,$J,358.3,22380,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,22380,1,3,0)
+270 ;;=3^Nonautoimmune Hemolytic Anemias,Other
+271 ;;^UTILITY(U,$J,358.3,22380,1,4,0)
+272 ;;=4^D59.4
+273 ;;^UTILITY(U,$J,358.3,22380,2)
+274 ;;=^5002326
+275 ;;^UTILITY(U,$J,358.3,22381,0)
+276 ;;=D69.59^^71^914^190
+277 ;;^UTILITY(U,$J,358.3,22381,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,22381,1,3,0)
+280 ;;=3^Secondary Thrombocytopenia,Other
+281 ;;^UTILITY(U,$J,358.3,22381,1,4,0)
+282 ;;=4^D69.59
+283 ;;^UTILITY(U,$J,358.3,22381,2)
+284 ;;=^5002369
+285 ;;^UTILITY(U,$J,358.3,22382,0)
+286 ;;=C22.7^^71^914^51
+287 ;;^UTILITY(U,$J,358.3,22382,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,22382,1,3,0)
+290 ;;=3^Carcinomas of Liver,Other Spec
+291 ;;^UTILITY(U,$J,358.3,22382,1,4,0)
+292 ;;=4^C22.7
+293 ;;^UTILITY(U,$J,358.3,22382,2)
+294 ;;=^5000938
+295 ;;^UTILITY(U,$J,358.3,22383,0)
+296 ;;=D75.89^^71^914^61
+297 ;;^UTILITY(U,$J,358.3,22383,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,22383,1,3,0)
+300 ;;=3^Diseases of Blood/Blood-Forming Organs,Other Spec
+301 ;;^UTILITY(U,$J,358.3,22383,1,4,0)
+302 ;;=4^D75.89
+303 ;;^UTILITY(U,$J,358.3,22383,2)
+304 ;;=^5002392
+305 ;;^UTILITY(U,$J,358.3,22384,0)
+306 ;;=D47.Z9^^71^914^182
+307 ;;^UTILITY(U,$J,358.3,22384,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,22384,1,3,0)
+310 ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior,Other
+311 ;;^UTILITY(U,$J,358.3,22384,1,4,0)
+312 ;;=4^D47.Z9
+313 ;;^UTILITY(U,$J,358.3,22384,2)
+314 ;;=^5002262
+315 ;;^UTILITY(U,$J,358.3,22385,0)
+316 ;;=D05.82^^71^914^39
+317 ;;^UTILITY(U,$J,358.3,22385,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,22385,1,3,0)
+320 ;;=3^Carcinoma in Situ Left Breast,Other Spec Type
+321 ;;^UTILITY(U,$J,358.3,22385,1,4,0)
+322 ;;=4^D05.82
+323 ;;^UTILITY(U,$J,358.3,22385,2)
+324 ;;=^5001934
+325 ;;^UTILITY(U,$J,358.3,22386,0)
+326 ;;=D05.81^^71^914^41
+327 ;;^UTILITY(U,$J,358.3,22386,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,22386,1,3,0)
+330 ;;=3^Carcinoma in Situ Right Breast,Oth Spec Type
+331 ;;^UTILITY(U,$J,358.3,22386,1,4,0)
+332 ;;=4^D05.81
+333 ;;^UTILITY(U,$J,358.3,22386,2)
+334 ;;=^5001933
+335 ;;^UTILITY(U,$J,358.3,22387,0)
+336 ;;=D05.80^^71^914^43
+337 ;;^UTILITY(U,$J,358.3,22387,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,22387,1,3,0)
+340 ;;=3^Carcinoma in Situ Unspec Breast,Oth Spec Type
+341 ;;^UTILITY(U,$J,358.3,22387,1,4,0)
+342 ;;=4^D05.80
+343 ;;^UTILITY(U,$J,358.3,22387,2)
+344 ;;=^5001932
+345 ;;^UTILITY(U,$J,358.3,22388,0)
+346 ;;=D56.8^^71^914^205
+347 ;;^UTILITY(U,$J,358.3,22388,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,22388,1,3,0)
+350 ;;=3^Thalassemias,Other
+351 ;;^UTILITY(U,$J,358.3,22388,1,4,0)
+352 ;;=4^D56.8
+353 ;;^UTILITY(U,$J,358.3,22388,2)
+354 ;;=^5002305
+355 ;;^UTILITY(U,$J,358.3,22389,0)
+356 ;;=C82.89^^71^914^81
+357 ;;^UTILITY(U,$J,358.3,22389,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,22389,1,3,0)
+360 ;;=3^Follicular Lymphoma,Extranodal/Solid Organ Sites,Other Types
+361 ;;^UTILITY(U,$J,358.3,22389,1,4,0)
+362 ;;=4^C82.89
+363 ;;^UTILITY(U,$J,358.3,22389,2)
+364 ;;=^5001540
+365 ;;^UTILITY(U,$J,358.3,22390,0)
+366 ;;=D51.8^^71^914^212
+367 ;;^UTILITY(U,$J,358.3,22390,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,22390,1,3,0)
+370 ;;=3^Vitamin B12 Deficiency Anemias,Other
+371 ;;^UTILITY(U,$J,358.3,22390,1,4,0)
+372 ;;=4^D51.8
+373 ;;^UTILITY(U,$J,358.3,22390,2)
+374 ;;=^5002288
+375 ;;^UTILITY(U,$J,358.3,22391,0)
+376 ;;=I80.9^^71^914^187
+377 ;;^UTILITY(U,$J,358.3,22391,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,22391,1,3,0)
+380 ;;=3^Phlebitis/Thrombophlebitis,Unspec Site
+381 ;;^UTILITY(U,$J,358.3,22391,1,4,0)
+382 ;;=4^I80.9
+383 ;;^UTILITY(U,$J,358.3,22391,2)
+384 ;;=^93357
+385 ;;^UTILITY(U,$J,358.3,22392,0)
+386 ;;=D45.^^71^914^188
+387 ;;^UTILITY(U,$J,358.3,22392,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,22392,1,3,0)
+390 ;;=3^Polycythemia Vera
+391 ;;^UTILITY(U,$J,358.3,22392,1,4,0)
+392 ;;=4^D45.
+393 ;;^UTILITY(U,$J,358.3,22392,2)
+394 ;;=^96105
+395 ;;^UTILITY(U,$J,358.3,22393,0)
+396 ;;=C77.3^^71^914^117
+397 ;;^UTILITY(U,$J,358.3,22393,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,22393,1,3,0)
+400 ;;=3^Malig Neop Axilla/Upper Limb Lymph Nodes,Sec and Unspec
+401 ;;^UTILITY(U,$J,358.3,22393,1,4,0)
+402 ;;=4^C77.3
+403 ;;^UTILITY(U,$J,358.3,22393,2)
+404 ;;=^5001330
+405 ;;^UTILITY(U,$J,358.3,22394,0)
+406 ;;=C77.2^^71^914^133
+407 ;;^UTILITY(U,$J,358.3,22394,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,22394,1,3,0)
+410 ;;=3^Malig Neop Intra-Abdominal Lymph Nodes,Sec and Unspec
+411 ;;^UTILITY(U,$J,358.3,22394,1,4,0)
+412 ;;=4^C77.2
+413 ;;^UTILITY(U,$J,358.3,22394,2)
+414 ;;=^267316
+415 ;;^UTILITY(U,$J,358.3,22395,0)
+416 ;;=C77.1^^71^914^134
+417 ;;^UTILITY(U,$J,358.3,22395,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,22395,1,3,0)
+420 ;;=3^Malig Neop Intrathoracic Lymph Nodes,Sec and Unspec
+421 ;;^UTILITY(U,$J,358.3,22395,1,4,0)
+422 ;;=4^C77.1
+423 ;;^UTILITY(U,$J,358.3,22395,2)
+424 ;;=^267315
+425 ;;^UTILITY(U,$J,358.3,22396,0)
+426 ;;=C77.0^^71^914^150
+427 ;;^UTILITY(U,$J,358.3,22396,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,22396,1,3,0)
+430 ;;=3^Malig Neop Nodes of Head,Face and Neck,Sec and Unspec
+431 ;;^UTILITY(U,$J,358.3,22396,1,4,0)
+432 ;;=4^C77.0
+433 ;;^UTILITY(U,$J,358.3,22396,2)
+434 ;;=^5001329
+435 ;;^UTILITY(U,$J,358.3,22397,0)
+436 ;;=C77.8^^71^914^151
+437 ;;^UTILITY(U,$J,358.3,22397,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,22397,1,3,0)
+440 ;;=3^Malig Neop Nodes of Multiple Regions,Sec and Unspec
+441 ;;^UTILITY(U,$J,358.3,22397,1,4,0)
+442 ;;=4^C77.8
+443 ;;^UTILITY(U,$J,358.3,22397,2)
+444 ;;=^5001332
+445 ;;^UTILITY(U,$J,358.3,22398,0)
+446 ;;=C79.51^^71^914^121
+447 ;;^UTILITY(U,$J,358.3,22398,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,22398,1,3,0)
+450 ;;=3^Malig Neop Bone,Secondary
+451 ;;^UTILITY(U,$J,358.3,22398,1,4,0)
+452 ;;=4^C79.51
+453 ;;^UTILITY(U,$J,358.3,22398,2)
+454 ;;=^5001350
+455 ;;^UTILITY(U,$J,358.3,22399,0)
+456 ;;=C79.52^^71^914^120
+457 ;;^UTILITY(U,$J,358.3,22399,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,22399,1,3,0)
+460 ;;=3^Malig Neop Bone Marrow,Secondary
+461 ;;^UTILITY(U,$J,358.3,22399,1,4,0)
+462 ;;=4^C79.52
+463 ;;^UTILITY(U,$J,358.3,22399,2)
+464 ;;=^5001351
+465 ;;^UTILITY(U,$J,358.3,22400,0)
+466 ;;=C79.31^^71^914^122
+467 ;;^UTILITY(U,$J,358.3,22400,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,22400,1,3,0)
+470 ;;=3^Malig Neop Brain,Secondary
+471 ;;^UTILITY(U,$J,358.3,22400,1,4,0)
+472 ;;=4^C79.31
+473 ;;^UTILITY(U,$J,358.3,22400,2)
+474 ;;=^5001347
+475 ;;^UTILITY(U,$J,358.3,22401,0)
+476 ;;=C79.72^^71^914^137
+477 ;;^UTILITY(U,$J,358.3,22401,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,22401,1,3,0)
+480 ;;=3^Malig Neop Left Adrenal Gland,Secondary
+481 ;;^UTILITY(U,$J,358.3,22401,1,4,0)
+482 ;;=4^C79.72
+483 ;;^UTILITY(U,$J,358.3,22401,2)
+484 ;;=^5001357
+485 ;;^UTILITY(U,$J,358.3,22402,0)
+486 ;;=C78.02^^71^914^141
+487 ;;^UTILITY(U,$J,358.3,22402,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,22402,1,3,0)
+490 ;;=3^Malig Neop Left Lung,Secondary
+491 ;;^UTILITY(U,$J,358.3,22402,1,4,0)
+492 ;;=4^C78.02
+493 ;;^UTILITY(U,$J,358.3,22402,2)
+494 ;;=^5001336
+495 ;;^UTILITY(U,$J,358.3,22403,0)
+496 ;;=C78.7^^71^914^146
+497 ;;^UTILITY(U,$J,358.3,22403,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,22403,1,3,0)
+500 ;;=3^Malig Neop Liver/Intrahepatic Bile Duct,Secondary
+501 ;;^UTILITY(U,$J,358.3,22403,1,4,0)
+502 ;;=4^C78.7
+503 ;;^UTILITY(U,$J,358.3,22403,2)
+504 ;;=^5001339
+505 ;;^UTILITY(U,$J,358.3,22404,0)
+506 ;;=C79.71^^71^914^159
+507 ;;^UTILITY(U,$J,358.3,22404,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,22404,1,3,0)
+510 ;;=3^Malig Neop Right Adrenal Gland,Secondary
+511 ;;^UTILITY(U,$J,358.3,22404,1,4,0)
+512 ;;=4^C79.71
+513 ;;^UTILITY(U,$J,358.3,22404,2)
+514 ;;=^5001356
+515 ;;^UTILITY(U,$J,358.3,22405,0)
+516 ;;=C78.01^^71^914^163
+517 ;;^UTILITY(U,$J,358.3,22405,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,22405,1,3,0)
+520 ;;=3^Malig Neop Right Lung,Secondary
+521 ;;^UTILITY(U,$J,358.3,22405,1,4,0)
+522 ;;=4^C78.01
+523 ;;^UTILITY(U,$J,358.3,22405,2)
+524 ;;=^5001335
+525 ;;^UTILITY(U,$J,358.3,22406,0)
+526 ;;=C79.70^^71^914^114
+527 ;;^UTILITY(U,$J,358.3,22406,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,22406,1,3,0)
+530 ;;=3^Malig Neop Adrenal Gland Unspec,Secondary
+531 ;;^UTILITY(U,$J,358.3,22406,1,4,0)
+532 ;;=4^C79.70
+533 ;;^UTILITY(U,$J,358.3,22406,2)
+534 ;;=^5001355
+535 ;;^UTILITY(U,$J,358.3,22407,0)
+536 ;;=C78.00^^71^914^147
+537 ;;^UTILITY(U,$J,358.3,22407,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,22407,1,3,0)
+540 ;;=3^Malig Neop Lung Unspec,Secondary
+541 ;;^UTILITY(U,$J,358.3,22407,1,4,0)
+542 ;;=4^C78.00
+543 ;;^UTILITY(U,$J,358.3,22407,2)
+544 ;;=^5001334
+545 ;;^UTILITY(U,$J,358.3,22408,0)
+546 ;;=D57.1^^71^914^191
+547 ;;^UTILITY(U,$J,358.3,22408,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,22408,1,3,0)
+550 ;;=3^Sickle-Cell Disease w/o Crisis
+551 ;;^UTILITY(U,$J,358.3,22408,1,4,0)
+552 ;;=4^D57.1
+553 ;;^UTILITY(U,$J,358.3,22408,2)
+554 ;;=^5002309
+555 ;;^UTILITY(U,$J,358.3,22409,0)
+556 ;;=D75.1^^71^914^189
+557 ;;^UTILITY(U,$J,358.3,22409,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,22409,1,3,0)
+560 ;;=3^Polycythemia,Secondary
+561 ;;^UTILITY(U,$J,358.3,22409,1,4,0)
+562 ;;=4^D75.1
+563 ;;^UTILITY(U,$J,358.3,22409,2)
+564 ;;=^186856
+565 ;;^UTILITY(U,$J,358.3,22410,0)
+566 ;;=C90.30^^71^914^202
+567 ;;^UTILITY(U,$J,358.3,22410,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,22410,1,3,0)
+570 ;;=3^Solitary Plasmacytoma,Not in Remission
+571 ;;^UTILITY(U,$J,358.3,22410,1,4,0)
+572 ;;=4^C90.30
+573 ;;^UTILITY(U,$J,358.3,22410,2)
+574 ;;=^5001759
+575 ;;^UTILITY(U,$J,358.3,22411,0)
+576 ;;=D56.3^^71^914^203
+577 ;;^UTILITY(U,$J,358.3,22411,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,22411,1,3,0)
+580 ;;=3^Thalassemia Minor
+581 ;;^UTILITY(U,$J,358.3,22411,1,4,0)
+582 ;;=4^D56.3
+583 ;;^UTILITY(U,$J,358.3,22411,2)
+584 ;;=^340497
+585 ;;^UTILITY(U,$J,358.3,22412,0)
+586 ;;=D56.9^^71^914^204
+587 ;;^UTILITY(U,$J,358.3,22412,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,22412,1,3,0)
+590 ;;=3^Thalassemia,Unspec
+591 ;;^UTILITY(U,$J,358.3,22412,1,4,0)
+592 ;;=4^D56.9
+593 ;;^UTILITY(U,$J,358.3,22412,2)
+594 ;;=^340606
+595 ;;^UTILITY(U,$J,358.3,22413,0)
+596 ;;=D51.2^^71^914^207
+597 ;;^UTILITY(U,$J,358.3,22413,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,22413,1,3,0)
+600 ;;=3^Transcobalamin II Deficiency
+601 ;;^UTILITY(U,$J,358.3,22413,1,4,0)
+602 ;;=4^D51.2
+603 ;;^UTILITY(U,$J,358.3,22413,2)
+604 ;;=^5002286
+605 ;;^UTILITY(U,$J,358.3,22414,0)
+606 ;;=D05.92^^71^914^40
+607 ;;^UTILITY(U,$J,358.3,22414,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,22414,1,3,0)
+610 ;;=3^Carcinoma in Situ Left Breast,Unspec Type
+611 ;;^UTILITY(U,$J,358.3,22414,1,4,0)
+612 ;;=4^D05.92
+613 ;;^UTILITY(U,$J,358.3,22414,2)
+614 ;;=^5001937
+615 ;;^UTILITY(U,$J,358.3,22415,0)
+616 ;;=D05.91^^71^914^42
+617 ;;^UTILITY(U,$J,358.3,22415,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,22415,1,3,0)
+620 ;;=3^Carcinoma in Situ Right Breast,Unspec Type
+621 ;;^UTILITY(U,$J,358.3,22415,1,4,0)
+622 ;;=4^D05.91
+623 ;;^UTILITY(U,$J,358.3,22415,2)
+624 ;;=^5001936
+625 ;;^UTILITY(U,$J,358.3,22416,0)
+626 ;;=D05.90^^71^914^38
+627 ;;^UTILITY(U,$J,358.3,22416,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,22416,1,3,0)
+630 ;;=3^Carcinoma in Situ Breast Unspec,Unspec Type
+631 ;;^UTILITY(U,$J,358.3,22416,1,4,0)
+632 ;;=4^D05.90
+633 ;;^UTILITY(U,$J,358.3,22416,2)
+634 ;;=^5001935
+635 ;;^UTILITY(U,$J,358.3,22417,0)
+636 ;;=D51.0^^71^914^208
+637 ;;^UTILITY(U,$J,358.3,22417,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,22417,1,3,0)
+640 ;;=3^Vitamin B12 Deficiency Anemia d/t Intrinsic Factor Deficiency
+641 ;;^UTILITY(U,$J,358.3,22417,1,4,0)
+642 ;;=4^D51.0
+643 ;;^UTILITY(U,$J,358.3,22417,2)
+644 ;;=^5002284
+645 ;;^UTILITY(U,$J,358.3,22418,0)
+646 ;;=D51.1^^71^914^209
+647 ;;^UTILITY(U,$J,358.3,22418,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,22418,1,3,0)
+650 ;;=3^Vitamin B12 Deficiency Anemia d/t Selective Vit B12 Malabsorp w/ Proteinuria
+651 ;;^UTILITY(U,$J,358.3,22418,1,4,0)
+652 ;;=4^D51.1
+653 ;;^UTILITY(U,$J,358.3,22418,2)
+654 ;;=^5002285
+655 ;;^UTILITY(U,$J,358.3,22419,0)
+656 ;;=D51.9^^71^914^211
+657 ;;^UTILITY(U,$J,358.3,22419,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,22419,1,3,0)
+660 ;;=3^Vitamin B12 Deficiency Anemia,Unspec
+661 ;;^UTILITY(U,$J,358.3,22419,1,4,0)
+662 ;;=4^D51.9
+663 ;;^UTILITY(U,$J,358.3,22419,2)
+664 ;;=^5002289
+665 ;;^UTILITY(U,$J,358.3,22420,0)
+666 ;;=D68.0^^71^914^213
+667 ;;^UTILITY(U,$J,358.3,22420,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,22420,1,3,0)
+670 ;;=3^Von Willebrand's Disease
+671 ;;^UTILITY(U,$J,358.3,22420,1,4,0)
+672 ;;=4^D68.0
+673 ;;^UTILITY(U,$J,358.3,22420,2)
+674 ;;=^127267
+675 ;;^UTILITY(U,$J,358.3,22421,0)
+676 ;;=C88.0^^71^914^214
