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. 
  1. IBDEI095 ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,22353,1,4,0)
  1.  ;;=4^C65.1
  1.  ;;^UTILITY(U,$J,358.3,22353,2)
  1.  ;;=^5001251
  1.  ;;^UTILITY(U,$J,358.3,22354,0)
  1.  ;;=C62.91^^71^914^166
  1.  ;;^UTILITY(U,$J,358.3,22354,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22354,1,3,0)
  1.  ;;=3^Malig Neop Right Testis
  1.  ;;^UTILITY(U,$J,358.3,22354,1,4,0)
  1.  ;;=4^C62.91
  1.  ;;^UTILITY(U,$J,358.3,22354,2)
  1.  ;;=^5001237
  1.  ;;^UTILITY(U,$J,358.3,22355,0)
  1.  ;;=C17.9^^71^914^167
  1.  ;;^UTILITY(U,$J,358.3,22355,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22355,1,3,0)
  1.  ;;=3^Malig Neop Small Intestine,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22355,1,4,0)
  1.  ;;=4^C17.9
  1.  ;;^UTILITY(U,$J,358.3,22355,2)
  1.  ;;=^5000926
  1.  ;;^UTILITY(U,$J,358.3,22356,0)
  1.  ;;=C16.9^^71^914^168
  1.  ;;^UTILITY(U,$J,358.3,22356,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22356,1,3,0)
  1.  ;;=3^Malig Neop Stomach,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22356,1,4,0)
  1.  ;;=4^C16.9
  1.  ;;^UTILITY(U,$J,358.3,22356,2)
  1.  ;;=^5000923
  1.  ;;^UTILITY(U,$J,358.3,22357,0)
  1.  ;;=C02.9^^71^914^170
  1.  ;;^UTILITY(U,$J,358.3,22357,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22357,1,3,0)
  1.  ;;=3^Malig Neop Tongue,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22357,1,4,0)
  1.  ;;=4^C02.9
  1.  ;;^UTILITY(U,$J,358.3,22357,2)
  1.  ;;=^5000891
  1.  ;;^UTILITY(U,$J,358.3,22358,0)
  1.  ;;=C64.9^^71^914^135
  1.  ;;^UTILITY(U,$J,358.3,22358,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22358,1,3,0)
  1.  ;;=3^Malig Neop Kidney,Except Renal Pelvis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22358,1,4,0)
  1.  ;;=4^C64.9
  1.  ;;^UTILITY(U,$J,358.3,22358,2)
  1.  ;;=^5001250
  1.  ;;^UTILITY(U,$J,358.3,22359,0)
  1.  ;;=C34.92^^71^914^138
  1.  ;;^UTILITY(U,$J,358.3,22359,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22359,1,3,0)
  1.  ;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
  1.  ;;^UTILITY(U,$J,358.3,22359,1,4,0)
  1.  ;;=4^C34.92
  1.  ;;^UTILITY(U,$J,358.3,22359,2)
  1.  ;;=^5000968
  1.  ;;^UTILITY(U,$J,358.3,22360,0)
  1.  ;;=C34.90^^71^914^124
  1.  ;;^UTILITY(U,$J,358.3,22360,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22360,1,3,0)
  1.  ;;=3^Malig Neop Bronchus/Lung,Unspec Part
  1.  ;;^UTILITY(U,$J,358.3,22360,1,4,0)
  1.  ;;=4^C34.90
  1.  ;;^UTILITY(U,$J,358.3,22360,2)
  1.  ;;=^5000966
  1.  ;;^UTILITY(U,$J,358.3,22361,0)
  1.  ;;=C65.9^^71^914^158
  1.  ;;^UTILITY(U,$J,358.3,22361,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22361,1,3,0)
  1.  ;;=3^Malig Neop Renal Pelvis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22361,1,4,0)
  1.  ;;=4^C65.9
  1.  ;;^UTILITY(U,$J,358.3,22361,2)
  1.  ;;=^5001253
  1.  ;;^UTILITY(U,$J,358.3,22362,0)
  1.  ;;=C50.912^^71^914^139
  1.  ;;^UTILITY(U,$J,358.3,22362,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22362,1,3,0)
  1.  ;;=3^Malig Neop Left Female Breast,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,22362,1,4,0)
  1.  ;;=4^C50.912
  1.  ;;^UTILITY(U,$J,358.3,22362,2)
  1.  ;;=^5001196
  1.  ;;^UTILITY(U,$J,358.3,22363,0)
  1.  ;;=C50.911^^71^914^161
  1.  ;;^UTILITY(U,$J,358.3,22363,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22363,1,3,0)
  1.  ;;=3^Malig Neop Right Female Breast,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,22363,1,4,0)
  1.  ;;=4^C50.911
  1.  ;;^UTILITY(U,$J,358.3,22363,2)
  1.  ;;=^5001195
  1.  ;;^UTILITY(U,$J,358.3,22364,0)
  1.  ;;=C50.919^^71^914^131
  1.  ;;^UTILITY(U,$J,358.3,22364,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22364,1,3,0)
  1.  ;;=3^Malig Neop Female Breast,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,22364,1,4,0)
  1.  ;;=4^C50.919
  1.  ;;^UTILITY(U,$J,358.3,22364,2)
  1.  ;;=^5001197
  1.  ;;^UTILITY(U,$J,358.3,22365,0)
  1.  ;;=C62.90^^71^914^169
  1.  ;;^UTILITY(U,$J,358.3,22365,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22365,1,3,0)
  1.  ;;=3^Malig Neop Testis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22365,1,4,0)
  1.  ;;=4^C62.90
  1.  ;;^UTILITY(U,$J,358.3,22365,2)
  1.  ;;=^5001236
  1.  ;;^UTILITY(U,$J,358.3,22366,0)
  1.  ;;=D03.9^^71^914^174
  1.  ;;^UTILITY(U,$J,358.3,22366,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22366,1,3,0)
  1.  ;;=3^Melanoma in Situ,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22366,1,4,0)
  1.  ;;=4^D03.9
  1.  ;;^UTILITY(U,$J,358.3,22366,2)
  1.  ;;=^5001908
  1.  ;;^UTILITY(U,$J,358.3,22367,0)
  1.  ;;=C45.0^^71^914^175
  1.  ;;^UTILITY(U,$J,358.3,22367,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22367,1,3,0)
  1.  ;;=3^Mesothelioma of Pleura
  1.  ;;^UTILITY(U,$J,358.3,22367,1,4,0)
  1.  ;;=4^C45.0
  1.  ;;^UTILITY(U,$J,358.3,22367,2)
  1.  ;;=^5001095
  1.  ;;^UTILITY(U,$J,358.3,22368,0)
  1.  ;;=C90.01^^71^914^177
  1.  ;;^UTILITY(U,$J,358.3,22368,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22368,1,3,0)
  1.  ;;=3^Multiple Myeloma,In Remission
  1.  ;;^UTILITY(U,$J,358.3,22368,1,4,0)
  1.  ;;=4^C90.01
  1.  ;;^UTILITY(U,$J,358.3,22368,2)
  1.  ;;=^267515
  1.  ;;^UTILITY(U,$J,358.3,22369,0)
  1.  ;;=C90.00^^71^914^178
  1.  ;;^UTILITY(U,$J,358.3,22369,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22369,1,3,0)
  1.  ;;=3^Multiple Myeloma,Not in Remission
  1.  ;;^UTILITY(U,$J,358.3,22369,1,4,0)
  1.  ;;=4^C90.00
  1.  ;;^UTILITY(U,$J,358.3,22369,2)
  1.  ;;=^5001752
  1.  ;;^UTILITY(U,$J,358.3,22370,0)
  1.  ;;=C94.6^^71^914^179
  1.  ;;^UTILITY(U,$J,358.3,22370,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22370,1,3,0)
  1.  ;;=3^Myelodysplastic Disease NEC
  1.  ;;^UTILITY(U,$J,358.3,22370,1,4,0)
  1.  ;;=4^C94.6
  1.  ;;^UTILITY(U,$J,358.3,22370,2)
  1.  ;;=^5001846
  1.  ;;^UTILITY(U,$J,358.3,22371,0)
  1.  ;;=D61.82^^71^914^180
  1.  ;;^UTILITY(U,$J,358.3,22371,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22371,1,3,0)
  1.  ;;=3^Myelophthisis
  1.  ;;^UTILITY(U,$J,358.3,22371,1,4,0)
  1.  ;;=4^D61.82
  1.  ;;^UTILITY(U,$J,358.3,22371,2)
  1.  ;;=^334037
  1.  ;;^UTILITY(U,$J,358.3,22372,0)
  1.  ;;=D47.9^^71^914^181
  1.  ;;^UTILITY(U,$J,358.3,22372,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22372,1,3,0)
  1.  ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior
  1.  ;;^UTILITY(U,$J,358.3,22372,1,4,0)
  1.  ;;=4^D47.9
  1.  ;;^UTILITY(U,$J,358.3,22372,2)
  1.  ;;=^5002260
  1.  ;;^UTILITY(U,$J,358.3,22373,0)
  1.  ;;=D53.9^^71^914^185
  1.  ;;^UTILITY(U,$J,358.3,22373,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22373,1,3,0)
  1.  ;;=3^Nutritional Anemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22373,1,4,0)
  1.  ;;=4^D53.9
  1.  ;;^UTILITY(U,$J,358.3,22373,2)
  1.  ;;=^5002298
  1.  ;;^UTILITY(U,$J,358.3,22374,0)
  1.  ;;=D47.4^^71^914^186
  1.  ;;^UTILITY(U,$J,358.3,22374,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22374,1,3,0)
  1.  ;;=3^Osteomyelofibrosis
  1.  ;;^UTILITY(U,$J,358.3,22374,1,4,0)
  1.  ;;=4^D47.4
  1.  ;;^UTILITY(U,$J,358.3,22374,2)
  1.  ;;=^5002259
  1.  ;;^UTILITY(U,$J,358.3,22375,0)
  1.  ;;=D51.3^^71^914^210
  1.  ;;^UTILITY(U,$J,358.3,22375,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22375,1,3,0)
  1.  ;;=3^Vitamin B12 Deficiency Anemia,Other
  1.  ;;^UTILITY(U,$J,358.3,22375,1,4,0)
  1.  ;;=4^D51.3
  1.  ;;^UTILITY(U,$J,358.3,22375,2)
  1.  ;;=^5002287
  1.  ;;^UTILITY(U,$J,358.3,22376,0)
  1.  ;;=D77.^^71^914^62
  1.  ;;^UTILITY(U,$J,358.3,22376,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22376,1,3,0)
  1.  ;;=3^Disorder of Blood/Blood-Forming Organs in Diseases Classified Elsewhere,Other
  1.  ;;^UTILITY(U,$J,358.3,22376,1,4,0)
  1.  ;;=4^D77.
  1.  ;;^UTILITY(U,$J,358.3,22376,2)
  1.  ;;=^5002396
  1.  ;;^UTILITY(U,$J,358.3,22377,0)
  1.  ;;=D58.2^^71^914^88
  1.  ;;^UTILITY(U,$J,358.3,22377,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22377,1,3,0)
  1.  ;;=3^Hemoglobinopathies,Other
  1.  ;;^UTILITY(U,$J,358.3,22377,1,4,0)
  1.  ;;=4^D58.2
  1.  ;;^UTILITY(U,$J,358.3,22377,2)
  1.  ;;=^87629
  1.  ;;^UTILITY(U,$J,358.3,22378,0)
  1.  ;;=C88.8^^71^914^110
  1.  ;;^UTILITY(U,$J,358.3,22378,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22378,1,3,0)
  1.  ;;=3^Malig Immunoproliferative Diseases,Other
  1.  ;;^UTILITY(U,$J,358.3,22378,1,4,0)
  1.  ;;=4^C88.8
  1.  ;;^UTILITY(U,$J,358.3,22378,2)
  1.  ;;=^5001750
  1.  ;;^UTILITY(U,$J,358.3,22379,0)
  1.  ;;=D70.8^^71^914^183
  1.  ;;^UTILITY(U,$J,358.3,22379,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22379,1,3,0)
  1.  ;;=3^Neutropenia,Other
  1.  ;;^UTILITY(U,$J,358.3,22379,1,4,0)
  1.  ;;=4^D70.8
  1.  ;;^UTILITY(U,$J,358.3,22379,2)
  1.  ;;=^334042
  1.  ;;^UTILITY(U,$J,358.3,22380,0)
  1.  ;;=D59.4^^71^914^184
  1.  ;;^UTILITY(U,$J,358.3,22380,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22380,1,3,0)
  1.  ;;=3^Nonautoimmune Hemolytic Anemias,Other
  1.  ;;^UTILITY(U,$J,358.3,22380,1,4,0)
  1.  ;;=4^D59.4
  1.  ;;^UTILITY(U,$J,358.3,22380,2)
  1.  ;;=^5002326
  1.  ;;^UTILITY(U,$J,358.3,22381,0)
  1.  ;;=D69.59^^71^914^190
  1.  ;;^UTILITY(U,$J,358.3,22381,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22381,1,3,0)
  1.  ;;=3^Secondary Thrombocytopenia,Other
  1.  ;;^UTILITY(U,$J,358.3,22381,1,4,0)
  1.  ;;=4^D69.59
  1.  ;;^UTILITY(U,$J,358.3,22381,2)
  1.  ;;=^5002369
  1.  ;;^UTILITY(U,$J,358.3,22382,0)
  1.  ;;=C22.7^^71^914^51
  1.  ;;^UTILITY(U,$J,358.3,22382,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22382,1,3,0)
  1.  ;;=3^Carcinomas of Liver,Other Spec
  1.  ;;^UTILITY(U,$J,358.3,22382,1,4,0)
  1.  ;;=4^C22.7
  1.  ;;^UTILITY(U,$J,358.3,22382,2)
  1.  ;;=^5000938
  1.  ;;^UTILITY(U,$J,358.3,22383,0)
  1.  ;;=D75.89^^71^914^61
  1.  ;;^UTILITY(U,$J,358.3,22383,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22383,1,3,0)
  1.  ;;=3^Diseases of Blood/Blood-Forming Organs,Other Spec
  1.  ;;^UTILITY(U,$J,358.3,22383,1,4,0)
  1.  ;;=4^D75.89
  1.  ;;^UTILITY(U,$J,358.3,22383,2)
  1.  ;;=^5002392
  1.  ;;^UTILITY(U,$J,358.3,22384,0)
  1.  ;;=D47.Z9^^71^914^182
  1.  ;;^UTILITY(U,$J,358.3,22384,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22384,1,3,0)
  1.  ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior,Other
  1.  ;;^UTILITY(U,$J,358.3,22384,1,4,0)
  1.  ;;=4^D47.Z9
  1.  ;;^UTILITY(U,$J,358.3,22384,2)
  1.  ;;=^5002262
  1.  ;;^UTILITY(U,$J,358.3,22385,0)
  1.  ;;=D05.82^^71^914^39
  1.  ;;^UTILITY(U,$J,358.3,22385,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22385,1,3,0)
  1.  ;;=3^Carcinoma in Situ Left Breast,Other Spec Type
  1.  ;;^UTILITY(U,$J,358.3,22385,1,4,0)
  1.  ;;=4^D05.82
  1.  ;;^UTILITY(U,$J,358.3,22385,2)
  1.  ;;=^5001934
  1.  ;;^UTILITY(U,$J,358.3,22386,0)
  1.  ;;=D05.81^^71^914^41
  1.  ;;^UTILITY(U,$J,358.3,22386,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22386,1,3,0)
  1.  ;;=3^Carcinoma in Situ Right Breast,Oth Spec Type
  1.  ;;^UTILITY(U,$J,358.3,22386,1,4,0)
  1.  ;;=4^D05.81
  1.  ;;^UTILITY(U,$J,358.3,22386,2)
  1.  ;;=^5001933
  1.  ;;^UTILITY(U,$J,358.3,22387,0)
  1.  ;;=D05.80^^71^914^43
  1.  ;;^UTILITY(U,$J,358.3,22387,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22387,1,3,0)
  1.  ;;=3^Carcinoma in Situ Unspec Breast,Oth Spec Type
  1.  ;;^UTILITY(U,$J,358.3,22387,1,4,0)
  1.  ;;=4^D05.80
  1.  ;;^UTILITY(U,$J,358.3,22387,2)
  1.  ;;=^5001932
  1.  ;;^UTILITY(U,$J,358.3,22388,0)
  1.  ;;=D56.8^^71^914^205
  1.  ;;^UTILITY(U,$J,358.3,22388,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22388,1,3,0)
  1.  ;;=3^Thalassemias,Other
  1.  ;;^UTILITY(U,$J,358.3,22388,1,4,0)
  1.  ;;=4^D56.8
  1.  ;;^UTILITY(U,$J,358.3,22388,2)
  1.  ;;=^5002305
  1.  ;;^UTILITY(U,$J,358.3,22389,0)
  1.  ;;=C82.89^^71^914^81
  1.  ;;^UTILITY(U,$J,358.3,22389,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22389,1,3,0)
  1.  ;;=3^Follicular Lymphoma,Extranodal/Solid Organ Sites,Other Types
  1.  ;;^UTILITY(U,$J,358.3,22389,1,4,0)
  1.  ;;=4^C82.89
  1.  ;;^UTILITY(U,$J,358.3,22389,2)
  1.  ;;=^5001540
  1.  ;;^UTILITY(U,$J,358.3,22390,0)
  1.  ;;=D51.8^^71^914^212
  1.  ;;^UTILITY(U,$J,358.3,22390,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22390,1,3,0)
  1.  ;;=3^Vitamin B12 Deficiency Anemias,Other
  1.  ;;^UTILITY(U,$J,358.3,22390,1,4,0)
  1.  ;;=4^D51.8
  1.  ;;^UTILITY(U,$J,358.3,22390,2)
  1.  ;;=^5002288
  1.  ;;^UTILITY(U,$J,358.3,22391,0)
  1.  ;;=I80.9^^71^914^187
  1.  ;;^UTILITY(U,$J,358.3,22391,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22391,1,3,0)
  1.  ;;=3^Phlebitis/Thrombophlebitis,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,22391,1,4,0)
  1.  ;;=4^I80.9
  1.  ;;^UTILITY(U,$J,358.3,22391,2)
  1.  ;;=^93357
  1.  ;;^UTILITY(U,$J,358.3,22392,0)
  1.  ;;=D45.^^71^914^188
  1.  ;;^UTILITY(U,$J,358.3,22392,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22392,1,3,0)
  1.  ;;=3^Polycythemia Vera
  1.  ;;^UTILITY(U,$J,358.3,22392,1,4,0)
  1.  ;;=4^D45.
  1.  ;;^UTILITY(U,$J,358.3,22392,2)
  1.  ;;=^96105
  1.  ;;^UTILITY(U,$J,358.3,22393,0)
  1.  ;;=C77.3^^71^914^117
  1.  ;;^UTILITY(U,$J,358.3,22393,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22393,1,3,0)
  1.  ;;=3^Malig Neop Axilla/Upper Limb Lymph Nodes,Sec and Unspec
  1.  ;;^UTILITY(U,$J,358.3,22393,1,4,0)
  1.  ;;=4^C77.3
  1.  ;;^UTILITY(U,$J,358.3,22393,2)
  1.  ;;=^5001330
  1.  ;;^UTILITY(U,$J,358.3,22394,0)
  1.  ;;=C77.2^^71^914^133
  1.  ;;^UTILITY(U,$J,358.3,22394,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22394,1,3,0)
  1.  ;;=3^Malig Neop Intra-Abdominal Lymph Nodes,Sec and Unspec
  1.  ;;^UTILITY(U,$J,358.3,22394,1,4,0)
  1.  ;;=4^C77.2
  1.  ;;^UTILITY(U,$J,358.3,22394,2)
  1.  ;;=^267316
  1.  ;;^UTILITY(U,$J,358.3,22395,0)
  1.  ;;=C77.1^^71^914^134
  1.  ;;^UTILITY(U,$J,358.3,22395,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22395,1,3,0)
  1.  ;;=3^Malig Neop Intrathoracic Lymph Nodes,Sec and Unspec
  1.  ;;^UTILITY(U,$J,358.3,22395,1,4,0)
  1.  ;;=4^C77.1
  1.  ;;^UTILITY(U,$J,358.3,22395,2)
  1.  ;;=^267315
  1.  ;;^UTILITY(U,$J,358.3,22396,0)
  1.  ;;=C77.0^^71^914^150
  1.  ;;^UTILITY(U,$J,358.3,22396,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22396,1,3,0)
  1.  ;;=3^Malig Neop Nodes of Head,Face and Neck,Sec and Unspec
  1.  ;;^UTILITY(U,$J,358.3,22396,1,4,0)
  1.  ;;=4^C77.0
  1.  ;;^UTILITY(U,$J,358.3,22396,2)
  1.  ;;=^5001329
  1.  ;;^UTILITY(U,$J,358.3,22397,0)
  1.  ;;=C77.8^^71^914^151
  1.  ;;^UTILITY(U,$J,358.3,22397,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22397,1,3,0)
  1.  ;;=3^Malig Neop Nodes of Multiple Regions,Sec and Unspec
  1.  ;;^UTILITY(U,$J,358.3,22397,1,4,0)
  1.  ;;=4^C77.8
  1.  ;;^UTILITY(U,$J,358.3,22397,2)
  1.  ;;=^5001332
  1.  ;;^UTILITY(U,$J,358.3,22398,0)
  1.  ;;=C79.51^^71^914^121
  1.  ;;^UTILITY(U,$J,358.3,22398,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22398,1,3,0)
  1.  ;;=3^Malig Neop Bone,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22398,1,4,0)
  1.  ;;=4^C79.51
  1.  ;;^UTILITY(U,$J,358.3,22398,2)
  1.  ;;=^5001350
  1.  ;;^UTILITY(U,$J,358.3,22399,0)
  1.  ;;=C79.52^^71^914^120
  1.  ;;^UTILITY(U,$J,358.3,22399,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22399,1,3,0)
  1.  ;;=3^Malig Neop Bone Marrow,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22399,1,4,0)
  1.  ;;=4^C79.52
  1.  ;;^UTILITY(U,$J,358.3,22399,2)
  1.  ;;=^5001351
  1.  ;;^UTILITY(U,$J,358.3,22400,0)
  1.  ;;=C79.31^^71^914^122
  1.  ;;^UTILITY(U,$J,358.3,22400,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22400,1,3,0)
  1.  ;;=3^Malig Neop Brain,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22400,1,4,0)
  1.  ;;=4^C79.31
  1.  ;;^UTILITY(U,$J,358.3,22400,2)
  1.  ;;=^5001347
  1.  ;;^UTILITY(U,$J,358.3,22401,0)
  1.  ;;=C79.72^^71^914^137
  1.  ;;^UTILITY(U,$J,358.3,22401,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22401,1,3,0)
  1.  ;;=3^Malig Neop Left Adrenal Gland,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22401,1,4,0)
  1.  ;;=4^C79.72
  1.  ;;^UTILITY(U,$J,358.3,22401,2)
  1.  ;;=^5001357
  1.  ;;^UTILITY(U,$J,358.3,22402,0)
  1.  ;;=C78.02^^71^914^141
  1.  ;;^UTILITY(U,$J,358.3,22402,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22402,1,3,0)
  1.  ;;=3^Malig Neop Left Lung,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22402,1,4,0)
  1.  ;;=4^C78.02
  1.  ;;^UTILITY(U,$J,358.3,22402,2)
  1.  ;;=^5001336
  1.  ;;^UTILITY(U,$J,358.3,22403,0)
  1.  ;;=C78.7^^71^914^146
  1.  ;;^UTILITY(U,$J,358.3,22403,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22403,1,3,0)
  1.  ;;=3^Malig Neop Liver/Intrahepatic Bile Duct,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22403,1,4,0)
  1.  ;;=4^C78.7
  1.  ;;^UTILITY(U,$J,358.3,22403,2)
  1.  ;;=^5001339
  1.  ;;^UTILITY(U,$J,358.3,22404,0)
  1.  ;;=C79.71^^71^914^159
  1.  ;;^UTILITY(U,$J,358.3,22404,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22404,1,3,0)
  1.  ;;=3^Malig Neop Right Adrenal Gland,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22404,1,4,0)
  1.  ;;=4^C79.71
  1.  ;;^UTILITY(U,$J,358.3,22404,2)
  1.  ;;=^5001356
  1.  ;;^UTILITY(U,$J,358.3,22405,0)
  1.  ;;=C78.01^^71^914^163
  1.  ;;^UTILITY(U,$J,358.3,22405,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22405,1,3,0)
  1.  ;;=3^Malig Neop Right Lung,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22405,1,4,0)
  1.  ;;=4^C78.01
  1.  ;;^UTILITY(U,$J,358.3,22405,2)
  1.  ;;=^5001335
  1.  ;;^UTILITY(U,$J,358.3,22406,0)
  1.  ;;=C79.70^^71^914^114
  1.  ;;^UTILITY(U,$J,358.3,22406,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22406,1,3,0)
  1.  ;;=3^Malig Neop Adrenal Gland Unspec,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22406,1,4,0)
  1.  ;;=4^C79.70
  1.  ;;^UTILITY(U,$J,358.3,22406,2)
  1.  ;;=^5001355
  1.  ;;^UTILITY(U,$J,358.3,22407,0)
  1.  ;;=C78.00^^71^914^147
  1.  ;;^UTILITY(U,$J,358.3,22407,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22407,1,3,0)
  1.  ;;=3^Malig Neop Lung Unspec,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22407,1,4,0)
  1.  ;;=4^C78.00
  1.  ;;^UTILITY(U,$J,358.3,22407,2)
  1.  ;;=^5001334
  1.  ;;^UTILITY(U,$J,358.3,22408,0)
  1.  ;;=D57.1^^71^914^191
  1.  ;;^UTILITY(U,$J,358.3,22408,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22408,1,3,0)
  1.  ;;=3^Sickle-Cell Disease w/o Crisis
  1.  ;;^UTILITY(U,$J,358.3,22408,1,4,0)
  1.  ;;=4^D57.1
  1.  ;;^UTILITY(U,$J,358.3,22408,2)
  1.  ;;=^5002309
  1.  ;;^UTILITY(U,$J,358.3,22409,0)
  1.  ;;=D75.1^^71^914^189
  1.  ;;^UTILITY(U,$J,358.3,22409,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22409,1,3,0)
  1.  ;;=3^Polycythemia,Secondary
  1.  ;;^UTILITY(U,$J,358.3,22409,1,4,0)
  1.  ;;=4^D75.1
  1.  ;;^UTILITY(U,$J,358.3,22409,2)
  1.  ;;=^186856
  1.  ;;^UTILITY(U,$J,358.3,22410,0)
  1.  ;;=C90.30^^71^914^202
  1.  ;;^UTILITY(U,$J,358.3,22410,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22410,1,3,0)
  1.  ;;=3^Solitary Plasmacytoma,Not in Remission
  1.  ;;^UTILITY(U,$J,358.3,22410,1,4,0)
  1.  ;;=4^C90.30
  1.  ;;^UTILITY(U,$J,358.3,22410,2)
  1.  ;;=^5001759
  1.  ;;^UTILITY(U,$J,358.3,22411,0)
  1.  ;;=D56.3^^71^914^203
  1.  ;;^UTILITY(U,$J,358.3,22411,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22411,1,3,0)
  1.  ;;=3^Thalassemia Minor
  1.  ;;^UTILITY(U,$J,358.3,22411,1,4,0)
  1.  ;;=4^D56.3
  1.  ;;^UTILITY(U,$J,358.3,22411,2)
  1.  ;;=^340497
  1.  ;;^UTILITY(U,$J,358.3,22412,0)
  1.  ;;=D56.9^^71^914^204
  1.  ;;^UTILITY(U,$J,358.3,22412,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22412,1,3,0)
  1.  ;;=3^Thalassemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22412,1,4,0)
  1.  ;;=4^D56.9
  1.  ;;^UTILITY(U,$J,358.3,22412,2)
  1.  ;;=^340606
  1.  ;;^UTILITY(U,$J,358.3,22413,0)
  1.  ;;=D51.2^^71^914^207
  1.  ;;^UTILITY(U,$J,358.3,22413,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22413,1,3,0)
  1.  ;;=3^Transcobalamin II Deficiency
  1.  ;;^UTILITY(U,$J,358.3,22413,1,4,0)
  1.  ;;=4^D51.2
  1.  ;;^UTILITY(U,$J,358.3,22413,2)
  1.  ;;=^5002286
  1.  ;;^UTILITY(U,$J,358.3,22414,0)
  1.  ;;=D05.92^^71^914^40
  1.  ;;^UTILITY(U,$J,358.3,22414,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22414,1,3,0)
  1.  ;;=3^Carcinoma in Situ Left Breast,Unspec Type
  1.  ;;^UTILITY(U,$J,358.3,22414,1,4,0)
  1.  ;;=4^D05.92
  1.  ;;^UTILITY(U,$J,358.3,22414,2)
  1.  ;;=^5001937
  1.  ;;^UTILITY(U,$J,358.3,22415,0)
  1.  ;;=D05.91^^71^914^42
  1.  ;;^UTILITY(U,$J,358.3,22415,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22415,1,3,0)
  1.  ;;=3^Carcinoma in Situ Right Breast,Unspec Type
  1.  ;;^UTILITY(U,$J,358.3,22415,1,4,0)
  1.  ;;=4^D05.91
  1.  ;;^UTILITY(U,$J,358.3,22415,2)
  1.  ;;=^5001936
  1.  ;;^UTILITY(U,$J,358.3,22416,0)
  1.  ;;=D05.90^^71^914^38
  1.  ;;^UTILITY(U,$J,358.3,22416,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22416,1,3,0)
  1.  ;;=3^Carcinoma in Situ Breast Unspec,Unspec Type
  1.  ;;^UTILITY(U,$J,358.3,22416,1,4,0)
  1.  ;;=4^D05.90
  1.  ;;^UTILITY(U,$J,358.3,22416,2)
  1.  ;;=^5001935
  1.  ;;^UTILITY(U,$J,358.3,22417,0)
  1.  ;;=D51.0^^71^914^208
  1.  ;;^UTILITY(U,$J,358.3,22417,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22417,1,3,0)
  1.  ;;=3^Vitamin B12 Deficiency Anemia d/t Intrinsic Factor Deficiency
  1.  ;;^UTILITY(U,$J,358.3,22417,1,4,0)
  1.  ;;=4^D51.0
  1.  ;;^UTILITY(U,$J,358.3,22417,2)
  1.  ;;=^5002284
  1.  ;;^UTILITY(U,$J,358.3,22418,0)
  1.  ;;=D51.1^^71^914^209
  1.  ;;^UTILITY(U,$J,358.3,22418,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22418,1,3,0)
  1.  ;;=3^Vitamin B12 Deficiency Anemia d/t Selective Vit B12 Malabsorp w/ Proteinuria
  1.  ;;^UTILITY(U,$J,358.3,22418,1,4,0)
  1.  ;;=4^D51.1
  1.  ;;^UTILITY(U,$J,358.3,22418,2)
  1.  ;;=^5002285
  1.  ;;^UTILITY(U,$J,358.3,22419,0)
  1.  ;;=D51.9^^71^914^211
  1.  ;;^UTILITY(U,$J,358.3,22419,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22419,1,3,0)
  1.  ;;=3^Vitamin B12 Deficiency Anemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,22419,1,4,0)
  1.  ;;=4^D51.9
  1.  ;;^UTILITY(U,$J,358.3,22419,2)
  1.  ;;=^5002289
  1.  ;;^UTILITY(U,$J,358.3,22420,0)
  1.  ;;=D68.0^^71^914^213
  1.  ;;^UTILITY(U,$J,358.3,22420,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,22420,1,3,0)
  1.  ;;=3^Von Willebrand's Disease
  1.  ;;^UTILITY(U,$J,358.3,22420,1,4,0)
  1.  ;;=4^D68.0
  1.  ;;^UTILITY(U,$J,358.3,22420,2)
  1.  ;;=^127267
  1.  ;;^UTILITY(U,$J,358.3,22421,0)
  1.  ;;=C88.0^^71^914^214