IBDEI0DD ; ; 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,33563,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33563,1,3,0)
;;=3^Housing/Economic Circumstance Problems,Other
;;^UTILITY(U,$J,358.3,33563,1,4,0)
;;=4^Z59.89
;;^UTILITY(U,$J,358.3,33563,2)
;;=^5161312
;;^UTILITY(U,$J,358.3,33564,0)
;;=I20.0^^105^1420^5
;;^UTILITY(U,$J,358.3,33564,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33564,1,3,0)
;;=3^Unstable Angina
;;^UTILITY(U,$J,358.3,33564,1,4,0)
;;=4^I20.0
;;^UTILITY(U,$J,358.3,33564,2)
;;=^5007076
;;^UTILITY(U,$J,358.3,33565,0)
;;=I25.2^^105^1420^4
;;^UTILITY(U,$J,358.3,33565,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33565,1,3,0)
;;=3^Old Myocardial Infarction
;;^UTILITY(U,$J,358.3,33565,1,4,0)
;;=4^I25.2
;;^UTILITY(U,$J,358.3,33565,2)
;;=^259884
;;^UTILITY(U,$J,358.3,33566,0)
;;=I20.8^^105^1420^2
;;^UTILITY(U,$J,358.3,33566,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33566,1,3,0)
;;=3^Angina Pectoris,Oth Forms
;;^UTILITY(U,$J,358.3,33566,1,4,0)
;;=4^I20.8
;;^UTILITY(U,$J,358.3,33566,2)
;;=^5007078
;;^UTILITY(U,$J,358.3,33567,0)
;;=I20.1^^105^1420^1
;;^UTILITY(U,$J,358.3,33567,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33567,1,3,0)
;;=3^Angina Pectoris w/ Documented Spasm
;;^UTILITY(U,$J,358.3,33567,1,4,0)
;;=4^I20.1
;;^UTILITY(U,$J,358.3,33567,2)
;;=^5007077
;;^UTILITY(U,$J,358.3,33568,0)
;;=I20.9^^105^1420^3
;;^UTILITY(U,$J,358.3,33568,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33568,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,33568,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,33568,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,33569,0)
;;=I65.29^^105^1421^31
;;^UTILITY(U,$J,358.3,33569,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33569,1,3,0)
;;=3^Occlusion & Stenosis Unspec Carotid Artery
;;^UTILITY(U,$J,358.3,33569,1,4,0)
;;=4^I65.29
;;^UTILITY(U,$J,358.3,33569,2)
;;=^5007363
;;^UTILITY(U,$J,358.3,33570,0)
;;=I65.22^^105^1421^29
;;^UTILITY(U,$J,358.3,33570,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33570,1,3,0)
;;=3^Occlusion & Stenosis Left Carotid Artery
;;^UTILITY(U,$J,358.3,33570,1,4,0)
;;=4^I65.22
;;^UTILITY(U,$J,358.3,33570,2)
;;=^5007361
;;^UTILITY(U,$J,358.3,33571,0)
;;=I65.23^^105^1421^28
;;^UTILITY(U,$J,358.3,33571,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33571,1,3,0)
;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
;;^UTILITY(U,$J,358.3,33571,1,4,0)
;;=4^I65.23
;;^UTILITY(U,$J,358.3,33571,2)
;;=^5007362
;;^UTILITY(U,$J,358.3,33572,0)
;;=I65.21^^105^1421^30
;;^UTILITY(U,$J,358.3,33572,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33572,1,3,0)
;;=3^Occlusion & Stenosis Right Carotid Artery
;;^UTILITY(U,$J,358.3,33572,1,4,0)
;;=4^I65.21
;;^UTILITY(U,$J,358.3,33572,2)
;;=^5007360
;;^UTILITY(U,$J,358.3,33573,0)
;;=I70.219^^105^1421^7
;;^UTILITY(U,$J,358.3,33573,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33573,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
;;^UTILITY(U,$J,358.3,33573,1,4,0)
;;=4^I70.219
;;^UTILITY(U,$J,358.3,33573,2)
;;=^5007582
;;^UTILITY(U,$J,358.3,33574,0)
;;=I70.213^^105^1421^8
;;^UTILITY(U,$J,358.3,33574,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33574,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
;;^UTILITY(U,$J,358.3,33574,1,4,0)
;;=4^I70.213
;;^UTILITY(U,$J,358.3,33574,2)
;;=^5007580
;;^UTILITY(U,$J,358.3,33575,0)
;;=I70.212^^105^1421^9
;;^UTILITY(U,$J,358.3,33575,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33575,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
;;^UTILITY(U,$J,358.3,33575,1,4,0)
;;=4^I70.212
;;^UTILITY(U,$J,358.3,33575,2)
;;=^5007579
;;^UTILITY(U,$J,358.3,33576,0)
;;=I70.211^^105^1421^10
;;^UTILITY(U,$J,358.3,33576,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33576,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
;;^UTILITY(U,$J,358.3,33576,1,4,0)
;;=4^I70.211
;;^UTILITY(U,$J,358.3,33576,2)
;;=^5007578
;;^UTILITY(U,$J,358.3,33577,0)
;;=I70.25^^105^1421^6
;;^UTILITY(U,$J,358.3,33577,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33577,1,3,0)
;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
;;^UTILITY(U,$J,358.3,33577,1,4,0)
;;=4^I70.25
;;^UTILITY(U,$J,358.3,33577,2)
;;=^5007602
;;^UTILITY(U,$J,358.3,33578,0)
;;=I70.249^^105^1421^11
;;^UTILITY(U,$J,358.3,33578,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33578,1,3,0)
;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
;;^UTILITY(U,$J,358.3,33578,1,4,0)
;;=4^I70.249
;;^UTILITY(U,$J,358.3,33578,2)
;;=^5007601
;;^UTILITY(U,$J,358.3,33579,0)
;;=I70.239^^105^1421^12
;;^UTILITY(U,$J,358.3,33579,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33579,1,3,0)
;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
;;^UTILITY(U,$J,358.3,33579,1,4,0)
;;=4^I70.239
;;^UTILITY(U,$J,358.3,33579,2)
;;=^5007594
;;^UTILITY(U,$J,358.3,33580,0)
;;=I70.269^^105^1421^13
;;^UTILITY(U,$J,358.3,33580,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33580,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
;;^UTILITY(U,$J,358.3,33580,1,4,0)
;;=4^I70.269
;;^UTILITY(U,$J,358.3,33580,2)
;;=^5007607
;;^UTILITY(U,$J,358.3,33581,0)
;;=I70.263^^105^1421^14
;;^UTILITY(U,$J,358.3,33581,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33581,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
;;^UTILITY(U,$J,358.3,33581,1,4,0)
;;=4^I70.263
;;^UTILITY(U,$J,358.3,33581,2)
;;=^5007605
;;^UTILITY(U,$J,358.3,33582,0)
;;=I70.262^^105^1421^15
;;^UTILITY(U,$J,358.3,33582,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33582,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Left Leg
;;^UTILITY(U,$J,358.3,33582,1,4,0)
;;=4^I70.262
;;^UTILITY(U,$J,358.3,33582,2)
;;=^5007604
;;^UTILITY(U,$J,358.3,33583,0)
;;=I70.261^^105^1421^16
;;^UTILITY(U,$J,358.3,33583,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33583,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Right Leg
;;^UTILITY(U,$J,358.3,33583,1,4,0)
;;=4^I70.261
;;^UTILITY(U,$J,358.3,33583,2)
;;=^5007603
;;^UTILITY(U,$J,358.3,33584,0)
;;=I71.2^^105^1421^34
;;^UTILITY(U,$J,358.3,33584,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33584,1,3,0)
;;=3^Thoracic Aortic Aneurysm w/o Rupture
;;^UTILITY(U,$J,358.3,33584,1,4,0)
;;=4^I71.2
;;^UTILITY(U,$J,358.3,33584,2)
;;=^5007787
;;^UTILITY(U,$J,358.3,33585,0)
;;=I71.4^^105^1421^1
;;^UTILITY(U,$J,358.3,33585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33585,1,3,0)
;;=3^Abdominal Aortic Aneurysm w/o Rupture
;;^UTILITY(U,$J,358.3,33585,1,4,0)
;;=4^I71.4
;;^UTILITY(U,$J,358.3,33585,2)
;;=^5007789
;;^UTILITY(U,$J,358.3,33586,0)
;;=I73.9^^105^1421^32
;;^UTILITY(U,$J,358.3,33586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33586,1,3,0)
;;=3^Peripheral Vascular Disease,Unspec
;;^UTILITY(U,$J,358.3,33586,1,4,0)
;;=4^I73.9
;;^UTILITY(U,$J,358.3,33586,2)
;;=^184182
;;^UTILITY(U,$J,358.3,33587,0)
;;=I82.891^^105^1421^23
;;^UTILITY(U,$J,358.3,33587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33587,1,3,0)
;;=3^Embolism/Thrombosis Oth Spec Veins,Chronic
;;^UTILITY(U,$J,358.3,33587,1,4,0)
;;=4^I82.891
;;^UTILITY(U,$J,358.3,33587,2)
;;=^5007939
;;^UTILITY(U,$J,358.3,33588,0)
;;=I82.890^^105^1421^22
;;^UTILITY(U,$J,358.3,33588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33588,1,3,0)
;;=3^Embolism/Thrombosis Oth Spec Veins,Acute
;;^UTILITY(U,$J,358.3,33588,1,4,0)
;;=4^I82.890
;;^UTILITY(U,$J,358.3,33588,2)
;;=^5007938
;;^UTILITY(U,$J,358.3,33589,0)
;;=I25.729^^105^1421^2
;;^UTILITY(U,$J,358.3,33589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33589,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Unspec Angina Pectoris
;;^UTILITY(U,$J,358.3,33589,1,4,0)
;;=4^I25.729
;;^UTILITY(U,$J,358.3,33589,2)
;;=^5133561
;;^UTILITY(U,$J,358.3,33590,0)
;;=I25.119^^105^1421^3
;;^UTILITY(U,$J,358.3,33590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33590,1,3,0)
;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,33590,1,4,0)
;;=4^I25.119
;;^UTILITY(U,$J,358.3,33590,2)
;;=^5007111
;;^UTILITY(U,$J,358.3,33591,0)
;;=I25.10^^105^1421^4
;;^UTILITY(U,$J,358.3,33591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33591,1,3,0)
;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
;;^UTILITY(U,$J,358.3,33591,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,33591,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,33592,0)
;;=I25.110^^105^1421^5
;;^UTILITY(U,$J,358.3,33592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33592,1,3,0)
;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
;;^UTILITY(U,$J,358.3,33592,1,4,0)
;;=4^I25.110
;;^UTILITY(U,$J,358.3,33592,2)
;;=^5007108
;;^UTILITY(U,$J,358.3,33593,0)
;;=I25.810^^105^1421^17
;;^UTILITY(U,$J,358.3,33593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33593,1,3,0)
;;=3^Athscl of CABG w/o Angina Pectoris
;;^UTILITY(U,$J,358.3,33593,1,4,0)
;;=4^I25.810
;;^UTILITY(U,$J,358.3,33593,2)
;;=^5007141
;;^UTILITY(U,$J,358.3,33594,0)
;;=I25.701^^105^1421^18
;;^UTILITY(U,$J,358.3,33594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33594,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
;;^UTILITY(U,$J,358.3,33594,1,4,0)
;;=4^I25.701
;;^UTILITY(U,$J,358.3,33594,2)
;;=^5007118
;;^UTILITY(U,$J,358.3,33595,0)
;;=I25.708^^105^1421^19
;;^UTILITY(U,$J,358.3,33595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33595,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
;;^UTILITY(U,$J,358.3,33595,1,4,0)
;;=4^I25.708
;;^UTILITY(U,$J,358.3,33595,2)
;;=^5007119
;;^UTILITY(U,$J,358.3,33596,0)
;;=I25.709^^105^1421^20
;;^UTILITY(U,$J,358.3,33596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33596,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
;;^UTILITY(U,$J,358.3,33596,1,4,0)
;;=4^I25.709
;;^UTILITY(U,$J,358.3,33596,2)
;;=^5007120
;;^UTILITY(U,$J,358.3,33597,0)
;;=I25.700^^105^1421^21
;;^UTILITY(U,$J,358.3,33597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33597,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
;;^UTILITY(U,$J,358.3,33597,1,4,0)
;;=4^I25.700
;;^UTILITY(U,$J,358.3,33597,2)
;;=^5007117
;;^UTILITY(U,$J,358.3,33598,0)
;;=I82.469^^105^1421^24
;;^UTILITY(U,$J,358.3,33598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33598,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
;;^UTILITY(U,$J,358.3,33598,1,4,0)
;;=4^I82.469
;;^UTILITY(U,$J,358.3,33598,2)
;;=^5158066
;;^UTILITY(U,$J,358.3,33599,0)
;;=I82.569^^105^1421^25
;;^UTILITY(U,$J,358.3,33599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33599,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
;;^UTILITY(U,$J,358.3,33599,1,4,0)
;;=4^I82.569
;;^UTILITY(U,$J,358.3,33599,2)
;;=^5158074
;;^UTILITY(U,$J,358.3,33600,0)
;;=I80.259^^105^1421^33
;;^UTILITY(U,$J,358.3,33600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33600,1,3,0)
;;=3^Phlebitis & Thrombophlebitis,Unspec Calf Muscle Vein
;;^UTILITY(U,$J,358.3,33600,1,4,0)
;;=4^I80.259
;;^UTILITY(U,$J,358.3,33600,2)
;;=^5158058
;;^UTILITY(U,$J,358.3,33601,0)
;;=I82.409^^105^1421^26
;;^UTILITY(U,$J,358.3,33601,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33601,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Acute
;;^UTILITY(U,$J,358.3,33601,1,4,0)
;;=4^I82.409
;;^UTILITY(U,$J,358.3,33601,2)
;;=^5133625
;;^UTILITY(U,$J,358.3,33602,0)
;;=I82.509^^105^1421^27
;;^UTILITY(U,$J,358.3,33602,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33602,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Chronic
;;^UTILITY(U,$J,358.3,33602,1,4,0)
;;=4^I82.509
;;^UTILITY(U,$J,358.3,33602,2)
;;=^5133628
;;^UTILITY(U,$J,358.3,33603,0)
;;=E78.1^^105^1422^23
;;^UTILITY(U,$J,358.3,33603,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33603,1,3,0)
;;=3^Pure Hyperglyceridemia
;;^UTILITY(U,$J,358.3,33603,1,4,0)
;;=4^E78.1
;;^UTILITY(U,$J,358.3,33603,2)
;;=^101303
;;^UTILITY(U,$J,358.3,33604,0)
;;=E78.2^^105^1422^21
;;^UTILITY(U,$J,358.3,33604,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33604,1,3,0)
;;=3^Mixed Hyperlipidemia
;;^UTILITY(U,$J,358.3,33604,1,4,0)
;;=4^E78.2
;;^UTILITY(U,$J,358.3,33604,2)
;;=^78424
;;^UTILITY(U,$J,358.3,33605,0)
;;=I10.^^105^1422^9
;;^UTILITY(U,$J,358.3,33605,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33605,1,3,0)
;;=3^Essential Primary Hypertension
;;^UTILITY(U,$J,358.3,33605,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,33605,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,33606,0)
;;=I11.9^^105^1422^19
;;^UTILITY(U,$J,358.3,33606,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33606,1,3,0)
;;=3^Hypertensive Heart Disease w/o Heart Failure
;;^UTILITY(U,$J,358.3,33606,1,4,0)
;;=4^I11.9
;;^UTILITY(U,$J,358.3,33606,2)
;;=^5007064
;;^UTILITY(U,$J,358.3,33607,0)
;;=I11.0^^105^1422^18
;;^UTILITY(U,$J,358.3,33607,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33607,1,3,0)
;;=3^Hypertensive Heart Disease w/ Heart Failure
;;^UTILITY(U,$J,358.3,33607,1,4,0)
;;=4^I11.0
;;^UTILITY(U,$J,358.3,33607,2)
;;=^5007063
;;^UTILITY(U,$J,358.3,33608,0)
;;=I12.0^^105^1422^15
;;^UTILITY(U,$J,358.3,33608,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33608,1,3,0)
;;=3^Hypertensive Chr Kidney Disease w/ ESRD
;;^UTILITY(U,$J,358.3,33608,1,4,0)
;;=4^I12.0
;;^UTILITY(U,$J,358.3,33608,2)
;;=^5007065
;;^UTILITY(U,$J,358.3,33609,0)
;;=I13.10^^105^1422^13
;;^UTILITY(U,$J,358.3,33609,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33609,1,3,0)
;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 1-4 Chr Kdny
;;^UTILITY(U,$J,358.3,33609,1,4,0)
;;=4^I13.10
;;^UTILITY(U,$J,358.3,33609,2)
;;=^5007068
;;^UTILITY(U,$J,358.3,33610,0)
;;=I13.0^^105^1422^11
;;^UTILITY(U,$J,358.3,33610,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33610,1,3,0)
;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 1-4 Chr Kdny
;;^UTILITY(U,$J,358.3,33610,1,4,0)
;;=4^I13.0
;;^UTILITY(U,$J,358.3,33610,2)
;;=^5007067
;;^UTILITY(U,$J,358.3,33611,0)
;;=I13.11^^105^1422^14
;;^UTILITY(U,$J,358.3,33611,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33611,1,3,0)
;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 5 Chr Kdny
;;^UTILITY(U,$J,358.3,33611,1,4,0)
;;=4^I13.11
;;^UTILITY(U,$J,358.3,33611,2)
;;=^5007069
;;^UTILITY(U,$J,358.3,33612,0)
;;=I13.2^^105^1422^12
;;^UTILITY(U,$J,358.3,33612,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33612,1,3,0)
;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 5 Chr Kdny
;;^UTILITY(U,$J,358.3,33612,1,4,0)
;;=4^I13.2
;;^UTILITY(U,$J,358.3,33612,2)
;;=^5007070
;;^UTILITY(U,$J,358.3,33613,0)
;;=I48.91^^105^1422^6
;;^UTILITY(U,$J,358.3,33613,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33613,1,3,0)
;;=3^Atrial Fibrillation,Unspec
;;^UTILITY(U,$J,358.3,33613,1,4,0)
;;=4^I48.91
;;^UTILITY(U,$J,358.3,33613,2)
;;=^5007229
;;^UTILITY(U,$J,358.3,33614,0)
;;=I48.92^^105^1422^7
;;^UTILITY(U,$J,358.3,33614,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33614,1,3,0)
;;=3^Atrial Flutter,Unspec
;;^UTILITY(U,$J,358.3,33614,1,4,0)
;;=4^I48.92
;;^UTILITY(U,$J,358.3,33614,2)
;;=^5007230
;;^UTILITY(U,$J,358.3,33615,0)
;;=I16.1^^105^1422^17
;;^UTILITY(U,$J,358.3,33615,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33615,1,3,0)
;;=3^Hypertensive Emergency
;;^UTILITY(U,$J,358.3,33615,1,4,0)
;;=4^I16.1
;;^UTILITY(U,$J,358.3,33615,2)
;;=^8204721
;;^UTILITY(U,$J,358.3,33616,0)
;;=I16.0^^105^1422^20
;;^UTILITY(U,$J,358.3,33616,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33616,1,3,0)
;;=3^Hypertensive Urgency
;;^UTILITY(U,$J,358.3,33616,1,4,0)
;;=4^I16.0
;;^UTILITY(U,$J,358.3,33616,2)
;;=^8133013
;;^UTILITY(U,$J,358.3,33617,0)
;;=I16.9^^105^1422^16
;;^UTILITY(U,$J,358.3,33617,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33617,1,3,0)
;;=3^Hypertensive Crisis,Unspec
;;^UTILITY(U,$J,358.3,33617,1,4,0)
;;=4^I16.9
;;^UTILITY(U,$J,358.3,33617,2)
;;=^5138600
;;^UTILITY(U,$J,358.3,33618,0)
;;=E78.01^^105^1422^10
;;^UTILITY(U,$J,358.3,33618,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33618,1,3,0)
;;=3^Familial Hypercholesterolemia
;;^UTILITY(U,$J,358.3,33618,1,4,0)
;;=4^E78.01
;;^UTILITY(U,$J,358.3,33618,2)
;;=^7570555
;;^UTILITY(U,$J,358.3,33619,0)
;;=E78.00^^105^1422^22
;;^UTILITY(U,$J,358.3,33619,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33619,1,3,0)
;;=3^Pure Hypercholesterolemia,Unspec
;;^UTILITY(U,$J,358.3,33619,1,4,0)
;;=4^E78.00
;;^UTILITY(U,$J,358.3,33619,2)
;;=^5138435
;;^UTILITY(U,$J,358.3,33620,0)
;;=I47.2^^105^1422^24
;;^UTILITY(U,$J,358.3,33620,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33620,1,3,0)
;;=3^Ventricular Tachycardia
;;^UTILITY(U,$J,358.3,33620,1,4,0)
;;=4^I47.2
;;^UTILITY(U,$J,358.3,33620,2)
;;=^125976
;;^UTILITY(U,$J,358.3,33621,0)
;;=I42.6^^105^1422^1
;;^UTILITY(U,$J,358.3,33621,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33621,1,3,0)
;;=3^Alcoholic Cardiomyopathy
;;^UTILITY(U,$J,358.3,33621,1,4,0)
;;=4^I42.6
;;^UTILITY(U,$J,358.3,33621,2)
;;=^5007197
;;^UTILITY(U,$J,358.3,33622,0)
;;=I51.7^^105^1422^8
;;^UTILITY(U,$J,358.3,33622,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33622,1,3,0)
;;=3^Cardiomegaly
;;^UTILITY(U,$J,358.3,33622,1,4,0)
;;=4^I51.7
;;^UTILITY(U,$J,358.3,33622,2)
;;=^5007257
;;^UTILITY(U,$J,358.3,33623,0)
;;=I48.20^^105^1422^2
;;^UTILITY(U,$J,358.3,33623,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33623,1,3,0)
;;=3^Atrial Fibrillation,Chronic,Unspec
;;^UTILITY(U,$J,358.3,33623,1,4,0)
;;=4^I48.20
;;^UTILITY(U,$J,358.3,33623,2)
;;=^5158048
;;^UTILITY(U,$J,358.3,33624,0)
;;=I48.11^^105^1422^3
;;^UTILITY(U,$J,358.3,33624,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33624,1,3,0)
;;=3^Atrial Fibrillation,Longstanding Persistent
;;^UTILITY(U,$J,358.3,33624,1,4,0)
;;=4^I48.11
;;^UTILITY(U,$J,358.3,33624,2)
;;=^5158046
;;^UTILITY(U,$J,358.3,33625,0)
;;=I48.19^^105^1422^4
;;^UTILITY(U,$J,358.3,33625,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33625,1,3,0)
;;=3^Atrial Fibrillation,Other Persistent
;;^UTILITY(U,$J,358.3,33625,1,4,0)
;;=4^I48.19
;;^UTILITY(U,$J,358.3,33625,2)
;;=^5158047
;;^UTILITY(U,$J,358.3,33626,0)
;;=I48.21^^105^1422^5
;;^UTILITY(U,$J,358.3,33626,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33626,1,3,0)
;;=3^Atrial Fibrillation,Permanent
;;^UTILITY(U,$J,358.3,33626,1,4,0)
;;=4^I48.21
;;^UTILITY(U,$J,358.3,33626,2)
;;=^304710
;;^UTILITY(U,$J,358.3,33627,0)
;;=B07.9^^105^1423^328
;;^UTILITY(U,$J,358.3,33627,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33627,1,3,0)
;;=3^Viral Wart,Unspec
;;^UTILITY(U,$J,358.3,33627,1,4,0)
;;=4^B07.9
;;^UTILITY(U,$J,358.3,33627,2)
;;=^5000519
;;^UTILITY(U,$J,358.3,33628,0)
;;=A63.0^^105^1423^35
;;^UTILITY(U,$J,358.3,33628,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33628,1,3,0)
;;=3^Anogenital (Venereal) Warts
;;^UTILITY(U,$J,358.3,33628,1,4,0)
;;=4^A63.0
;;^UTILITY(U,$J,358.3,33628,2)
;;=^5000360
;;^UTILITY(U,$J,358.3,33629,0)
;;=B35.0^^105^1423^319
;;^UTILITY(U,$J,358.3,33629,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0DD 19767 printed Nov 22, 2024@16:56:40 Page 2
IBDEI0DD ; ; 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,33563,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,33563,1,3,0)
+4 ;;=3^Housing/Economic Circumstance Problems,Other
+5 ;;^UTILITY(U,$J,358.3,33563,1,4,0)
+6 ;;=4^Z59.89
+7 ;;^UTILITY(U,$J,358.3,33563,2)
+8 ;;=^5161312
+9 ;;^UTILITY(U,$J,358.3,33564,0)
+10 ;;=I20.0^^105^1420^5
+11 ;;^UTILITY(U,$J,358.3,33564,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,33564,1,3,0)
+14 ;;=3^Unstable Angina
+15 ;;^UTILITY(U,$J,358.3,33564,1,4,0)
+16 ;;=4^I20.0
+17 ;;^UTILITY(U,$J,358.3,33564,2)
+18 ;;=^5007076
+19 ;;^UTILITY(U,$J,358.3,33565,0)
+20 ;;=I25.2^^105^1420^4
+21 ;;^UTILITY(U,$J,358.3,33565,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,33565,1,3,0)
+24 ;;=3^Old Myocardial Infarction
+25 ;;^UTILITY(U,$J,358.3,33565,1,4,0)
+26 ;;=4^I25.2
+27 ;;^UTILITY(U,$J,358.3,33565,2)
+28 ;;=^259884
+29 ;;^UTILITY(U,$J,358.3,33566,0)
+30 ;;=I20.8^^105^1420^2
+31 ;;^UTILITY(U,$J,358.3,33566,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,33566,1,3,0)
+34 ;;=3^Angina Pectoris,Oth Forms
+35 ;;^UTILITY(U,$J,358.3,33566,1,4,0)
+36 ;;=4^I20.8
+37 ;;^UTILITY(U,$J,358.3,33566,2)
+38 ;;=^5007078
+39 ;;^UTILITY(U,$J,358.3,33567,0)
+40 ;;=I20.1^^105^1420^1
+41 ;;^UTILITY(U,$J,358.3,33567,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,33567,1,3,0)
+44 ;;=3^Angina Pectoris w/ Documented Spasm
+45 ;;^UTILITY(U,$J,358.3,33567,1,4,0)
+46 ;;=4^I20.1
+47 ;;^UTILITY(U,$J,358.3,33567,2)
+48 ;;=^5007077
+49 ;;^UTILITY(U,$J,358.3,33568,0)
+50 ;;=I20.9^^105^1420^3
+51 ;;^UTILITY(U,$J,358.3,33568,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,33568,1,3,0)
+54 ;;=3^Angina Pectoris,Unspec
+55 ;;^UTILITY(U,$J,358.3,33568,1,4,0)
+56 ;;=4^I20.9
+57 ;;^UTILITY(U,$J,358.3,33568,2)
+58 ;;=^5007079
+59 ;;^UTILITY(U,$J,358.3,33569,0)
+60 ;;=I65.29^^105^1421^31
+61 ;;^UTILITY(U,$J,358.3,33569,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,33569,1,3,0)
+64 ;;=3^Occlusion & Stenosis Unspec Carotid Artery
+65 ;;^UTILITY(U,$J,358.3,33569,1,4,0)
+66 ;;=4^I65.29
+67 ;;^UTILITY(U,$J,358.3,33569,2)
+68 ;;=^5007363
+69 ;;^UTILITY(U,$J,358.3,33570,0)
+70 ;;=I65.22^^105^1421^29
+71 ;;^UTILITY(U,$J,358.3,33570,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,33570,1,3,0)
+74 ;;=3^Occlusion & Stenosis Left Carotid Artery
+75 ;;^UTILITY(U,$J,358.3,33570,1,4,0)
+76 ;;=4^I65.22
+77 ;;^UTILITY(U,$J,358.3,33570,2)
+78 ;;=^5007361
+79 ;;^UTILITY(U,$J,358.3,33571,0)
+80 ;;=I65.23^^105^1421^28
+81 ;;^UTILITY(U,$J,358.3,33571,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,33571,1,3,0)
+84 ;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
+85 ;;^UTILITY(U,$J,358.3,33571,1,4,0)
+86 ;;=4^I65.23
+87 ;;^UTILITY(U,$J,358.3,33571,2)
+88 ;;=^5007362
+89 ;;^UTILITY(U,$J,358.3,33572,0)
+90 ;;=I65.21^^105^1421^30
+91 ;;^UTILITY(U,$J,358.3,33572,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,33572,1,3,0)
+94 ;;=3^Occlusion & Stenosis Right Carotid Artery
+95 ;;^UTILITY(U,$J,358.3,33572,1,4,0)
+96 ;;=4^I65.21
+97 ;;^UTILITY(U,$J,358.3,33572,2)
+98 ;;=^5007360
+99 ;;^UTILITY(U,$J,358.3,33573,0)
+100 ;;=I70.219^^105^1421^7
+101 ;;^UTILITY(U,$J,358.3,33573,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,33573,1,3,0)
+104 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
+105 ;;^UTILITY(U,$J,358.3,33573,1,4,0)
+106 ;;=4^I70.219
+107 ;;^UTILITY(U,$J,358.3,33573,2)
+108 ;;=^5007582
+109 ;;^UTILITY(U,$J,358.3,33574,0)
+110 ;;=I70.213^^105^1421^8
+111 ;;^UTILITY(U,$J,358.3,33574,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,33574,1,3,0)
+114 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
+115 ;;^UTILITY(U,$J,358.3,33574,1,4,0)
+116 ;;=4^I70.213
+117 ;;^UTILITY(U,$J,358.3,33574,2)
+118 ;;=^5007580
+119 ;;^UTILITY(U,$J,358.3,33575,0)
+120 ;;=I70.212^^105^1421^9
+121 ;;^UTILITY(U,$J,358.3,33575,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,33575,1,3,0)
+124 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
+125 ;;^UTILITY(U,$J,358.3,33575,1,4,0)
+126 ;;=4^I70.212
+127 ;;^UTILITY(U,$J,358.3,33575,2)
+128 ;;=^5007579
+129 ;;^UTILITY(U,$J,358.3,33576,0)
+130 ;;=I70.211^^105^1421^10
+131 ;;^UTILITY(U,$J,358.3,33576,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,33576,1,3,0)
+134 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
+135 ;;^UTILITY(U,$J,358.3,33576,1,4,0)
+136 ;;=4^I70.211
+137 ;;^UTILITY(U,$J,358.3,33576,2)
+138 ;;=^5007578
+139 ;;^UTILITY(U,$J,358.3,33577,0)
+140 ;;=I70.25^^105^1421^6
+141 ;;^UTILITY(U,$J,358.3,33577,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,33577,1,3,0)
+144 ;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
+145 ;;^UTILITY(U,$J,358.3,33577,1,4,0)
+146 ;;=4^I70.25
+147 ;;^UTILITY(U,$J,358.3,33577,2)
+148 ;;=^5007602
+149 ;;^UTILITY(U,$J,358.3,33578,0)
+150 ;;=I70.249^^105^1421^11
+151 ;;^UTILITY(U,$J,358.3,33578,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,33578,1,3,0)
+154 ;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
+155 ;;^UTILITY(U,$J,358.3,33578,1,4,0)
+156 ;;=4^I70.249
+157 ;;^UTILITY(U,$J,358.3,33578,2)
+158 ;;=^5007601
+159 ;;^UTILITY(U,$J,358.3,33579,0)
+160 ;;=I70.239^^105^1421^12
+161 ;;^UTILITY(U,$J,358.3,33579,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,33579,1,3,0)
+164 ;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
+165 ;;^UTILITY(U,$J,358.3,33579,1,4,0)
+166 ;;=4^I70.239
+167 ;;^UTILITY(U,$J,358.3,33579,2)
+168 ;;=^5007594
+169 ;;^UTILITY(U,$J,358.3,33580,0)
+170 ;;=I70.269^^105^1421^13
+171 ;;^UTILITY(U,$J,358.3,33580,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,33580,1,3,0)
+174 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
+175 ;;^UTILITY(U,$J,358.3,33580,1,4,0)
+176 ;;=4^I70.269
+177 ;;^UTILITY(U,$J,358.3,33580,2)
+178 ;;=^5007607
+179 ;;^UTILITY(U,$J,358.3,33581,0)
+180 ;;=I70.263^^105^1421^14
+181 ;;^UTILITY(U,$J,358.3,33581,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,33581,1,3,0)
+184 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
+185 ;;^UTILITY(U,$J,358.3,33581,1,4,0)
+186 ;;=4^I70.263
+187 ;;^UTILITY(U,$J,358.3,33581,2)
+188 ;;=^5007605
+189 ;;^UTILITY(U,$J,358.3,33582,0)
+190 ;;=I70.262^^105^1421^15
+191 ;;^UTILITY(U,$J,358.3,33582,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,33582,1,3,0)
+194 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Left Leg
+195 ;;^UTILITY(U,$J,358.3,33582,1,4,0)
+196 ;;=4^I70.262
+197 ;;^UTILITY(U,$J,358.3,33582,2)
+198 ;;=^5007604
+199 ;;^UTILITY(U,$J,358.3,33583,0)
+200 ;;=I70.261^^105^1421^16
+201 ;;^UTILITY(U,$J,358.3,33583,1,0)
+202 ;;=^358.31IA^4^2
+203 ;;^UTILITY(U,$J,358.3,33583,1,3,0)
+204 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Right Leg
+205 ;;^UTILITY(U,$J,358.3,33583,1,4,0)
+206 ;;=4^I70.261
+207 ;;^UTILITY(U,$J,358.3,33583,2)
+208 ;;=^5007603
+209 ;;^UTILITY(U,$J,358.3,33584,0)
+210 ;;=I71.2^^105^1421^34
+211 ;;^UTILITY(U,$J,358.3,33584,1,0)
+212 ;;=^358.31IA^4^2
+213 ;;^UTILITY(U,$J,358.3,33584,1,3,0)
+214 ;;=3^Thoracic Aortic Aneurysm w/o Rupture
+215 ;;^UTILITY(U,$J,358.3,33584,1,4,0)
+216 ;;=4^I71.2
+217 ;;^UTILITY(U,$J,358.3,33584,2)
+218 ;;=^5007787
+219 ;;^UTILITY(U,$J,358.3,33585,0)
+220 ;;=I71.4^^105^1421^1
+221 ;;^UTILITY(U,$J,358.3,33585,1,0)
+222 ;;=^358.31IA^4^2
+223 ;;^UTILITY(U,$J,358.3,33585,1,3,0)
+224 ;;=3^Abdominal Aortic Aneurysm w/o Rupture
+225 ;;^UTILITY(U,$J,358.3,33585,1,4,0)
+226 ;;=4^I71.4
+227 ;;^UTILITY(U,$J,358.3,33585,2)
+228 ;;=^5007789
+229 ;;^UTILITY(U,$J,358.3,33586,0)
+230 ;;=I73.9^^105^1421^32
+231 ;;^UTILITY(U,$J,358.3,33586,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,33586,1,3,0)
+234 ;;=3^Peripheral Vascular Disease,Unspec
+235 ;;^UTILITY(U,$J,358.3,33586,1,4,0)
+236 ;;=4^I73.9
+237 ;;^UTILITY(U,$J,358.3,33586,2)
+238 ;;=^184182
+239 ;;^UTILITY(U,$J,358.3,33587,0)
+240 ;;=I82.891^^105^1421^23
+241 ;;^UTILITY(U,$J,358.3,33587,1,0)
+242 ;;=^358.31IA^4^2
+243 ;;^UTILITY(U,$J,358.3,33587,1,3,0)
+244 ;;=3^Embolism/Thrombosis Oth Spec Veins,Chronic
+245 ;;^UTILITY(U,$J,358.3,33587,1,4,0)
+246 ;;=4^I82.891
+247 ;;^UTILITY(U,$J,358.3,33587,2)
+248 ;;=^5007939
+249 ;;^UTILITY(U,$J,358.3,33588,0)
+250 ;;=I82.890^^105^1421^22
+251 ;;^UTILITY(U,$J,358.3,33588,1,0)
+252 ;;=^358.31IA^4^2
+253 ;;^UTILITY(U,$J,358.3,33588,1,3,0)
+254 ;;=3^Embolism/Thrombosis Oth Spec Veins,Acute
+255 ;;^UTILITY(U,$J,358.3,33588,1,4,0)
+256 ;;=4^I82.890
+257 ;;^UTILITY(U,$J,358.3,33588,2)
+258 ;;=^5007938
+259 ;;^UTILITY(U,$J,358.3,33589,0)
+260 ;;=I25.729^^105^1421^2
+261 ;;^UTILITY(U,$J,358.3,33589,1,0)
+262 ;;=^358.31IA^4^2
+263 ;;^UTILITY(U,$J,358.3,33589,1,3,0)
+264 ;;=3^Athscl Autologous Artery CABG w/ Unspec Angina Pectoris
+265 ;;^UTILITY(U,$J,358.3,33589,1,4,0)
+266 ;;=4^I25.729
+267 ;;^UTILITY(U,$J,358.3,33589,2)
+268 ;;=^5133561
+269 ;;^UTILITY(U,$J,358.3,33590,0)
+270 ;;=I25.119^^105^1421^3
+271 ;;^UTILITY(U,$J,358.3,33590,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,33590,1,3,0)
+274 ;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
+275 ;;^UTILITY(U,$J,358.3,33590,1,4,0)
+276 ;;=4^I25.119
+277 ;;^UTILITY(U,$J,358.3,33590,2)
+278 ;;=^5007111
+279 ;;^UTILITY(U,$J,358.3,33591,0)
+280 ;;=I25.10^^105^1421^4
+281 ;;^UTILITY(U,$J,358.3,33591,1,0)
+282 ;;=^358.31IA^4^2
+283 ;;^UTILITY(U,$J,358.3,33591,1,3,0)
+284 ;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
+285 ;;^UTILITY(U,$J,358.3,33591,1,4,0)
+286 ;;=4^I25.10
+287 ;;^UTILITY(U,$J,358.3,33591,2)
+288 ;;=^5007107
+289 ;;^UTILITY(U,$J,358.3,33592,0)
+290 ;;=I25.110^^105^1421^5
+291 ;;^UTILITY(U,$J,358.3,33592,1,0)
+292 ;;=^358.31IA^4^2
+293 ;;^UTILITY(U,$J,358.3,33592,1,3,0)
+294 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
+295 ;;^UTILITY(U,$J,358.3,33592,1,4,0)
+296 ;;=4^I25.110
+297 ;;^UTILITY(U,$J,358.3,33592,2)
+298 ;;=^5007108
+299 ;;^UTILITY(U,$J,358.3,33593,0)
+300 ;;=I25.810^^105^1421^17
+301 ;;^UTILITY(U,$J,358.3,33593,1,0)
+302 ;;=^358.31IA^4^2
+303 ;;^UTILITY(U,$J,358.3,33593,1,3,0)
+304 ;;=3^Athscl of CABG w/o Angina Pectoris
+305 ;;^UTILITY(U,$J,358.3,33593,1,4,0)
+306 ;;=4^I25.810
+307 ;;^UTILITY(U,$J,358.3,33593,2)
+308 ;;=^5007141
+309 ;;^UTILITY(U,$J,358.3,33594,0)
+310 ;;=I25.701^^105^1421^18
+311 ;;^UTILITY(U,$J,358.3,33594,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,33594,1,3,0)
+314 ;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
+315 ;;^UTILITY(U,$J,358.3,33594,1,4,0)
+316 ;;=4^I25.701
+317 ;;^UTILITY(U,$J,358.3,33594,2)
+318 ;;=^5007118
+319 ;;^UTILITY(U,$J,358.3,33595,0)
+320 ;;=I25.708^^105^1421^19
+321 ;;^UTILITY(U,$J,358.3,33595,1,0)
+322 ;;=^358.31IA^4^2
+323 ;;^UTILITY(U,$J,358.3,33595,1,3,0)
+324 ;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
+325 ;;^UTILITY(U,$J,358.3,33595,1,4,0)
+326 ;;=4^I25.708
+327 ;;^UTILITY(U,$J,358.3,33595,2)
+328 ;;=^5007119
+329 ;;^UTILITY(U,$J,358.3,33596,0)
+330 ;;=I25.709^^105^1421^20
+331 ;;^UTILITY(U,$J,358.3,33596,1,0)
+332 ;;=^358.31IA^4^2
+333 ;;^UTILITY(U,$J,358.3,33596,1,3,0)
+334 ;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
+335 ;;^UTILITY(U,$J,358.3,33596,1,4,0)
+336 ;;=4^I25.709
+337 ;;^UTILITY(U,$J,358.3,33596,2)
+338 ;;=^5007120
+339 ;;^UTILITY(U,$J,358.3,33597,0)
+340 ;;=I25.700^^105^1421^21
+341 ;;^UTILITY(U,$J,358.3,33597,1,0)
+342 ;;=^358.31IA^4^2
+343 ;;^UTILITY(U,$J,358.3,33597,1,3,0)
+344 ;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
+345 ;;^UTILITY(U,$J,358.3,33597,1,4,0)
+346 ;;=4^I25.700
+347 ;;^UTILITY(U,$J,358.3,33597,2)
+348 ;;=^5007117
+349 ;;^UTILITY(U,$J,358.3,33598,0)
+350 ;;=I82.469^^105^1421^24
+351 ;;^UTILITY(U,$J,358.3,33598,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,33598,1,3,0)
+354 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
+355 ;;^UTILITY(U,$J,358.3,33598,1,4,0)
+356 ;;=4^I82.469
+357 ;;^UTILITY(U,$J,358.3,33598,2)
+358 ;;=^5158066
+359 ;;^UTILITY(U,$J,358.3,33599,0)
+360 ;;=I82.569^^105^1421^25
+361 ;;^UTILITY(U,$J,358.3,33599,1,0)
+362 ;;=^358.31IA^4^2
+363 ;;^UTILITY(U,$J,358.3,33599,1,3,0)
+364 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
+365 ;;^UTILITY(U,$J,358.3,33599,1,4,0)
+366 ;;=4^I82.569
+367 ;;^UTILITY(U,$J,358.3,33599,2)
+368 ;;=^5158074
+369 ;;^UTILITY(U,$J,358.3,33600,0)
+370 ;;=I80.259^^105^1421^33
+371 ;;^UTILITY(U,$J,358.3,33600,1,0)
+372 ;;=^358.31IA^4^2
+373 ;;^UTILITY(U,$J,358.3,33600,1,3,0)
+374 ;;=3^Phlebitis & Thrombophlebitis,Unspec Calf Muscle Vein
+375 ;;^UTILITY(U,$J,358.3,33600,1,4,0)
+376 ;;=4^I80.259
+377 ;;^UTILITY(U,$J,358.3,33600,2)
+378 ;;=^5158058
+379 ;;^UTILITY(U,$J,358.3,33601,0)
+380 ;;=I82.409^^105^1421^26
+381 ;;^UTILITY(U,$J,358.3,33601,1,0)
+382 ;;=^358.31IA^4^2
+383 ;;^UTILITY(U,$J,358.3,33601,1,3,0)
+384 ;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Acute
+385 ;;^UTILITY(U,$J,358.3,33601,1,4,0)
+386 ;;=4^I82.409
+387 ;;^UTILITY(U,$J,358.3,33601,2)
+388 ;;=^5133625
+389 ;;^UTILITY(U,$J,358.3,33602,0)
+390 ;;=I82.509^^105^1421^27
+391 ;;^UTILITY(U,$J,358.3,33602,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,33602,1,3,0)
+394 ;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Chronic
+395 ;;^UTILITY(U,$J,358.3,33602,1,4,0)
+396 ;;=4^I82.509
+397 ;;^UTILITY(U,$J,358.3,33602,2)
+398 ;;=^5133628
+399 ;;^UTILITY(U,$J,358.3,33603,0)
+400 ;;=E78.1^^105^1422^23
+401 ;;^UTILITY(U,$J,358.3,33603,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,33603,1,3,0)
+404 ;;=3^Pure Hyperglyceridemia
+405 ;;^UTILITY(U,$J,358.3,33603,1,4,0)
+406 ;;=4^E78.1
+407 ;;^UTILITY(U,$J,358.3,33603,2)
+408 ;;=^101303
+409 ;;^UTILITY(U,$J,358.3,33604,0)
+410 ;;=E78.2^^105^1422^21
+411 ;;^UTILITY(U,$J,358.3,33604,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,33604,1,3,0)
+414 ;;=3^Mixed Hyperlipidemia
+415 ;;^UTILITY(U,$J,358.3,33604,1,4,0)
+416 ;;=4^E78.2
+417 ;;^UTILITY(U,$J,358.3,33604,2)
+418 ;;=^78424
+419 ;;^UTILITY(U,$J,358.3,33605,0)
+420 ;;=I10.^^105^1422^9
+421 ;;^UTILITY(U,$J,358.3,33605,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,33605,1,3,0)
+424 ;;=3^Essential Primary Hypertension
+425 ;;^UTILITY(U,$J,358.3,33605,1,4,0)
+426 ;;=4^I10.
+427 ;;^UTILITY(U,$J,358.3,33605,2)
+428 ;;=^5007062
+429 ;;^UTILITY(U,$J,358.3,33606,0)
+430 ;;=I11.9^^105^1422^19
+431 ;;^UTILITY(U,$J,358.3,33606,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,33606,1,3,0)
+434 ;;=3^Hypertensive Heart Disease w/o Heart Failure
+435 ;;^UTILITY(U,$J,358.3,33606,1,4,0)
+436 ;;=4^I11.9
+437 ;;^UTILITY(U,$J,358.3,33606,2)
+438 ;;=^5007064
+439 ;;^UTILITY(U,$J,358.3,33607,0)
+440 ;;=I11.0^^105^1422^18
+441 ;;^UTILITY(U,$J,358.3,33607,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,33607,1,3,0)
+444 ;;=3^Hypertensive Heart Disease w/ Heart Failure
+445 ;;^UTILITY(U,$J,358.3,33607,1,4,0)
+446 ;;=4^I11.0
+447 ;;^UTILITY(U,$J,358.3,33607,2)
+448 ;;=^5007063
+449 ;;^UTILITY(U,$J,358.3,33608,0)
+450 ;;=I12.0^^105^1422^15
+451 ;;^UTILITY(U,$J,358.3,33608,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,33608,1,3,0)
+454 ;;=3^Hypertensive Chr Kidney Disease w/ ESRD
+455 ;;^UTILITY(U,$J,358.3,33608,1,4,0)
+456 ;;=4^I12.0
+457 ;;^UTILITY(U,$J,358.3,33608,2)
+458 ;;=^5007065
+459 ;;^UTILITY(U,$J,358.3,33609,0)
+460 ;;=I13.10^^105^1422^13
+461 ;;^UTILITY(U,$J,358.3,33609,1,0)
+462 ;;=^358.31IA^4^2
+463 ;;^UTILITY(U,$J,358.3,33609,1,3,0)
+464 ;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 1-4 Chr Kdny
+465 ;;^UTILITY(U,$J,358.3,33609,1,4,0)
+466 ;;=4^I13.10
+467 ;;^UTILITY(U,$J,358.3,33609,2)
+468 ;;=^5007068
+469 ;;^UTILITY(U,$J,358.3,33610,0)
+470 ;;=I13.0^^105^1422^11
+471 ;;^UTILITY(U,$J,358.3,33610,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,33610,1,3,0)
+474 ;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 1-4 Chr Kdny
+475 ;;^UTILITY(U,$J,358.3,33610,1,4,0)
+476 ;;=4^I13.0
+477 ;;^UTILITY(U,$J,358.3,33610,2)
+478 ;;=^5007067
+479 ;;^UTILITY(U,$J,358.3,33611,0)
+480 ;;=I13.11^^105^1422^14
+481 ;;^UTILITY(U,$J,358.3,33611,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,33611,1,3,0)
+484 ;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 5 Chr Kdny
+485 ;;^UTILITY(U,$J,358.3,33611,1,4,0)
+486 ;;=4^I13.11
+487 ;;^UTILITY(U,$J,358.3,33611,2)
+488 ;;=^5007069
+489 ;;^UTILITY(U,$J,358.3,33612,0)
+490 ;;=I13.2^^105^1422^12
+491 ;;^UTILITY(U,$J,358.3,33612,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,33612,1,3,0)
+494 ;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 5 Chr Kdny
+495 ;;^UTILITY(U,$J,358.3,33612,1,4,0)
+496 ;;=4^I13.2
+497 ;;^UTILITY(U,$J,358.3,33612,2)
+498 ;;=^5007070
+499 ;;^UTILITY(U,$J,358.3,33613,0)
+500 ;;=I48.91^^105^1422^6
+501 ;;^UTILITY(U,$J,358.3,33613,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,33613,1,3,0)
+504 ;;=3^Atrial Fibrillation,Unspec
+505 ;;^UTILITY(U,$J,358.3,33613,1,4,0)
+506 ;;=4^I48.91
+507 ;;^UTILITY(U,$J,358.3,33613,2)
+508 ;;=^5007229
+509 ;;^UTILITY(U,$J,358.3,33614,0)
+510 ;;=I48.92^^105^1422^7
+511 ;;^UTILITY(U,$J,358.3,33614,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,33614,1,3,0)
+514 ;;=3^Atrial Flutter,Unspec
+515 ;;^UTILITY(U,$J,358.3,33614,1,4,0)
+516 ;;=4^I48.92
+517 ;;^UTILITY(U,$J,358.3,33614,2)
+518 ;;=^5007230
+519 ;;^UTILITY(U,$J,358.3,33615,0)
+520 ;;=I16.1^^105^1422^17
+521 ;;^UTILITY(U,$J,358.3,33615,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,33615,1,3,0)
+524 ;;=3^Hypertensive Emergency
+525 ;;^UTILITY(U,$J,358.3,33615,1,4,0)
+526 ;;=4^I16.1
+527 ;;^UTILITY(U,$J,358.3,33615,2)
+528 ;;=^8204721
+529 ;;^UTILITY(U,$J,358.3,33616,0)
+530 ;;=I16.0^^105^1422^20
+531 ;;^UTILITY(U,$J,358.3,33616,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,33616,1,3,0)
+534 ;;=3^Hypertensive Urgency
+535 ;;^UTILITY(U,$J,358.3,33616,1,4,0)
+536 ;;=4^I16.0
+537 ;;^UTILITY(U,$J,358.3,33616,2)
+538 ;;=^8133013
+539 ;;^UTILITY(U,$J,358.3,33617,0)
+540 ;;=I16.9^^105^1422^16
+541 ;;^UTILITY(U,$J,358.3,33617,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,33617,1,3,0)
+544 ;;=3^Hypertensive Crisis,Unspec
+545 ;;^UTILITY(U,$J,358.3,33617,1,4,0)
+546 ;;=4^I16.9
+547 ;;^UTILITY(U,$J,358.3,33617,2)
+548 ;;=^5138600
+549 ;;^UTILITY(U,$J,358.3,33618,0)
+550 ;;=E78.01^^105^1422^10
+551 ;;^UTILITY(U,$J,358.3,33618,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,33618,1,3,0)
+554 ;;=3^Familial Hypercholesterolemia
+555 ;;^UTILITY(U,$J,358.3,33618,1,4,0)
+556 ;;=4^E78.01
+557 ;;^UTILITY(U,$J,358.3,33618,2)
+558 ;;=^7570555
+559 ;;^UTILITY(U,$J,358.3,33619,0)
+560 ;;=E78.00^^105^1422^22
+561 ;;^UTILITY(U,$J,358.3,33619,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,33619,1,3,0)
+564 ;;=3^Pure Hypercholesterolemia,Unspec
+565 ;;^UTILITY(U,$J,358.3,33619,1,4,0)
+566 ;;=4^E78.00
+567 ;;^UTILITY(U,$J,358.3,33619,2)
+568 ;;=^5138435
+569 ;;^UTILITY(U,$J,358.3,33620,0)
+570 ;;=I47.2^^105^1422^24
+571 ;;^UTILITY(U,$J,358.3,33620,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,33620,1,3,0)
+574 ;;=3^Ventricular Tachycardia
+575 ;;^UTILITY(U,$J,358.3,33620,1,4,0)
+576 ;;=4^I47.2
+577 ;;^UTILITY(U,$J,358.3,33620,2)
+578 ;;=^125976
+579 ;;^UTILITY(U,$J,358.3,33621,0)
+580 ;;=I42.6^^105^1422^1
+581 ;;^UTILITY(U,$J,358.3,33621,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,33621,1,3,0)
+584 ;;=3^Alcoholic Cardiomyopathy
+585 ;;^UTILITY(U,$J,358.3,33621,1,4,0)
+586 ;;=4^I42.6
+587 ;;^UTILITY(U,$J,358.3,33621,2)
+588 ;;=^5007197
+589 ;;^UTILITY(U,$J,358.3,33622,0)
+590 ;;=I51.7^^105^1422^8
+591 ;;^UTILITY(U,$J,358.3,33622,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,33622,1,3,0)
+594 ;;=3^Cardiomegaly
+595 ;;^UTILITY(U,$J,358.3,33622,1,4,0)
+596 ;;=4^I51.7
+597 ;;^UTILITY(U,$J,358.3,33622,2)
+598 ;;=^5007257
+599 ;;^UTILITY(U,$J,358.3,33623,0)
+600 ;;=I48.20^^105^1422^2
+601 ;;^UTILITY(U,$J,358.3,33623,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,33623,1,3,0)
+604 ;;=3^Atrial Fibrillation,Chronic,Unspec
+605 ;;^UTILITY(U,$J,358.3,33623,1,4,0)
+606 ;;=4^I48.20
+607 ;;^UTILITY(U,$J,358.3,33623,2)
+608 ;;=^5158048
+609 ;;^UTILITY(U,$J,358.3,33624,0)
+610 ;;=I48.11^^105^1422^3
+611 ;;^UTILITY(U,$J,358.3,33624,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,33624,1,3,0)
+614 ;;=3^Atrial Fibrillation,Longstanding Persistent
+615 ;;^UTILITY(U,$J,358.3,33624,1,4,0)
+616 ;;=4^I48.11
+617 ;;^UTILITY(U,$J,358.3,33624,2)
+618 ;;=^5158046
+619 ;;^UTILITY(U,$J,358.3,33625,0)
+620 ;;=I48.19^^105^1422^4
+621 ;;^UTILITY(U,$J,358.3,33625,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,33625,1,3,0)
+624 ;;=3^Atrial Fibrillation,Other Persistent
+625 ;;^UTILITY(U,$J,358.3,33625,1,4,0)
+626 ;;=4^I48.19
+627 ;;^UTILITY(U,$J,358.3,33625,2)
+628 ;;=^5158047
+629 ;;^UTILITY(U,$J,358.3,33626,0)
+630 ;;=I48.21^^105^1422^5
+631 ;;^UTILITY(U,$J,358.3,33626,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,33626,1,3,0)
+634 ;;=3^Atrial Fibrillation,Permanent
+635 ;;^UTILITY(U,$J,358.3,33626,1,4,0)
+636 ;;=4^I48.21
+637 ;;^UTILITY(U,$J,358.3,33626,2)
+638 ;;=^304710
+639 ;;^UTILITY(U,$J,358.3,33627,0)
+640 ;;=B07.9^^105^1423^328
+641 ;;^UTILITY(U,$J,358.3,33627,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,33627,1,3,0)
+644 ;;=3^Viral Wart,Unspec
+645 ;;^UTILITY(U,$J,358.3,33627,1,4,0)
+646 ;;=4^B07.9
+647 ;;^UTILITY(U,$J,358.3,33627,2)
+648 ;;=^5000519
+649 ;;^UTILITY(U,$J,358.3,33628,0)
+650 ;;=A63.0^^105^1423^35
+651 ;;^UTILITY(U,$J,358.3,33628,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,33628,1,3,0)
+654 ;;=3^Anogenital (Venereal) Warts
+655 ;;^UTILITY(U,$J,358.3,33628,1,4,0)
+656 ;;=4^A63.0
+657 ;;^UTILITY(U,$J,358.3,33628,2)
+658 ;;=^5000360
+659 ;;^UTILITY(U,$J,358.3,33629,0)
+660 ;;=B35.0^^105^1423^319
+661 ;;^UTILITY(U,$J,358.3,33629,1,0)
+662 ;;=^358.31IA^4^2
