Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI095

IBDEI095.m

Go to the documentation of this file.
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