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

IBDEI07D.m

Go to the documentation of this file.
IBDEI07D ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
 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,17782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17782,1,3,0)
 ;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
 ;;^UTILITY(U,$J,358.3,17782,1,4,0)
 ;;=4^I65.23
 ;;^UTILITY(U,$J,358.3,17782,2)
 ;;=^5007362
 ;;^UTILITY(U,$J,358.3,17783,0)
 ;;=I65.21^^85^882^30
 ;;^UTILITY(U,$J,358.3,17783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17783,1,3,0)
 ;;=3^Occlusion & Stenosis Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,17783,1,4,0)
 ;;=4^I65.21
 ;;^UTILITY(U,$J,358.3,17783,2)
 ;;=^5007360
 ;;^UTILITY(U,$J,358.3,17784,0)
 ;;=I70.219^^85^882^7
 ;;^UTILITY(U,$J,358.3,17784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17784,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
 ;;^UTILITY(U,$J,358.3,17784,1,4,0)
 ;;=4^I70.219
 ;;^UTILITY(U,$J,358.3,17784,2)
 ;;=^5007582
 ;;^UTILITY(U,$J,358.3,17785,0)
 ;;=I70.213^^85^882^8
 ;;^UTILITY(U,$J,358.3,17785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17785,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
 ;;^UTILITY(U,$J,358.3,17785,1,4,0)
 ;;=4^I70.213
 ;;^UTILITY(U,$J,358.3,17785,2)
 ;;=^5007580
 ;;^UTILITY(U,$J,358.3,17786,0)
 ;;=I70.212^^85^882^9
 ;;^UTILITY(U,$J,358.3,17786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17786,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
 ;;^UTILITY(U,$J,358.3,17786,1,4,0)
 ;;=4^I70.212
 ;;^UTILITY(U,$J,358.3,17786,2)
 ;;=^5007579
 ;;^UTILITY(U,$J,358.3,17787,0)
 ;;=I70.211^^85^882^10
 ;;^UTILITY(U,$J,358.3,17787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17787,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
 ;;^UTILITY(U,$J,358.3,17787,1,4,0)
 ;;=4^I70.211
 ;;^UTILITY(U,$J,358.3,17787,2)
 ;;=^5007578
 ;;^UTILITY(U,$J,358.3,17788,0)
 ;;=I70.25^^85^882^6
 ;;^UTILITY(U,$J,358.3,17788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17788,1,3,0)
 ;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
 ;;^UTILITY(U,$J,358.3,17788,1,4,0)
 ;;=4^I70.25
 ;;^UTILITY(U,$J,358.3,17788,2)
 ;;=^5007602
 ;;^UTILITY(U,$J,358.3,17789,0)
 ;;=I70.249^^85^882^11
 ;;^UTILITY(U,$J,358.3,17789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17789,1,3,0)
 ;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
 ;;^UTILITY(U,$J,358.3,17789,1,4,0)
 ;;=4^I70.249
 ;;^UTILITY(U,$J,358.3,17789,2)
 ;;=^5007601
 ;;^UTILITY(U,$J,358.3,17790,0)
 ;;=I70.239^^85^882^12
 ;;^UTILITY(U,$J,358.3,17790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17790,1,3,0)
 ;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,17790,1,4,0)
 ;;=4^I70.239
 ;;^UTILITY(U,$J,358.3,17790,2)
 ;;=^5007594
 ;;^UTILITY(U,$J,358.3,17791,0)
 ;;=I70.269^^85^882^13
 ;;^UTILITY(U,$J,358.3,17791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17791,1,3,0)
 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
 ;;^UTILITY(U,$J,358.3,17791,1,4,0)
 ;;=4^I70.269
 ;;^UTILITY(U,$J,358.3,17791,2)
 ;;=^5007607
 ;;^UTILITY(U,$J,358.3,17792,0)
 ;;=I70.263^^85^882^14
 ;;^UTILITY(U,$J,358.3,17792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17792,1,3,0)
 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
 ;;^UTILITY(U,$J,358.3,17792,1,4,0)
 ;;=4^I70.263
 ;;^UTILITY(U,$J,358.3,17792,2)
 ;;=^5007605
 ;;^UTILITY(U,$J,358.3,17793,0)
 ;;=I70.262^^85^882^15
 ;;^UTILITY(U,$J,358.3,17793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17793,1,3,0)
 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Left Leg
 ;;^UTILITY(U,$J,358.3,17793,1,4,0)
 ;;=4^I70.262
 ;;^UTILITY(U,$J,358.3,17793,2)
 ;;=^5007604
 ;;^UTILITY(U,$J,358.3,17794,0)
 ;;=I70.261^^85^882^16
 ;;^UTILITY(U,$J,358.3,17794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17794,1,3,0)
 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Right Leg
 ;;^UTILITY(U,$J,358.3,17794,1,4,0)
 ;;=4^I70.261
 ;;^UTILITY(U,$J,358.3,17794,2)
 ;;=^5007603
 ;;^UTILITY(U,$J,358.3,17795,0)
 ;;=I71.2^^85^882^34
 ;;^UTILITY(U,$J,358.3,17795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17795,1,3,0)
 ;;=3^Thoracic Aortic Aneurysm w/o Rupture
 ;;^UTILITY(U,$J,358.3,17795,1,4,0)
 ;;=4^I71.2
 ;;^UTILITY(U,$J,358.3,17795,2)
 ;;=^5007787
 ;;^UTILITY(U,$J,358.3,17796,0)
 ;;=I71.4^^85^882^1
 ;;^UTILITY(U,$J,358.3,17796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17796,1,3,0)
 ;;=3^Abdominal Aortic Aneurysm w/o Rupture
 ;;^UTILITY(U,$J,358.3,17796,1,4,0)
 ;;=4^I71.4
 ;;^UTILITY(U,$J,358.3,17796,2)
 ;;=^5007789
 ;;^UTILITY(U,$J,358.3,17797,0)
 ;;=I73.9^^85^882^32
 ;;^UTILITY(U,$J,358.3,17797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17797,1,3,0)
 ;;=3^Peripheral Vascular Disease,Unspec
 ;;^UTILITY(U,$J,358.3,17797,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,17797,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,17798,0)
 ;;=I82.891^^85^882^23
 ;;^UTILITY(U,$J,358.3,17798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17798,1,3,0)
 ;;=3^Embolism/Thrombosis Oth Spec Veins,Chronic
 ;;^UTILITY(U,$J,358.3,17798,1,4,0)
 ;;=4^I82.891
 ;;^UTILITY(U,$J,358.3,17798,2)
 ;;=^5007939
 ;;^UTILITY(U,$J,358.3,17799,0)
 ;;=I82.890^^85^882^22
 ;;^UTILITY(U,$J,358.3,17799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17799,1,3,0)
 ;;=3^Embolism/Thrombosis Oth Spec Veins,Acute
 ;;^UTILITY(U,$J,358.3,17799,1,4,0)
 ;;=4^I82.890
 ;;^UTILITY(U,$J,358.3,17799,2)
 ;;=^5007938
 ;;^UTILITY(U,$J,358.3,17800,0)
 ;;=I25.729^^85^882^2
 ;;^UTILITY(U,$J,358.3,17800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17800,1,3,0)
 ;;=3^Athscl Autologous Artery CABG w/ Unspec Angina Pectoris
 ;;^UTILITY(U,$J,358.3,17800,1,4,0)
 ;;=4^I25.729
 ;;^UTILITY(U,$J,358.3,17800,2)
 ;;=^5133561
 ;;^UTILITY(U,$J,358.3,17801,0)
 ;;=I25.119^^85^882^3
 ;;^UTILITY(U,$J,358.3,17801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17801,1,3,0)
 ;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
 ;;^UTILITY(U,$J,358.3,17801,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,17801,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,17802,0)
 ;;=I25.10^^85^882^4
 ;;^UTILITY(U,$J,358.3,17802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17802,1,3,0)
 ;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,17802,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,17802,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,17803,0)
 ;;=I25.110^^85^882^5
 ;;^UTILITY(U,$J,358.3,17803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17803,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
 ;;^UTILITY(U,$J,358.3,17803,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,17803,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,17804,0)
 ;;=I25.810^^85^882^17
 ;;^UTILITY(U,$J,358.3,17804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17804,1,3,0)
 ;;=3^Athscl of CABG w/o Angina Pectoris
 ;;^UTILITY(U,$J,358.3,17804,1,4,0)
 ;;=4^I25.810
 ;;^UTILITY(U,$J,358.3,17804,2)
 ;;=^5007141
 ;;^UTILITY(U,$J,358.3,17805,0)
 ;;=I25.701^^85^882^18
 ;;^UTILITY(U,$J,358.3,17805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17805,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
 ;;^UTILITY(U,$J,358.3,17805,1,4,0)
 ;;=4^I25.701
 ;;^UTILITY(U,$J,358.3,17805,2)
 ;;=^5007118
 ;;^UTILITY(U,$J,358.3,17806,0)
 ;;=I25.708^^85^882^19
 ;;^UTILITY(U,$J,358.3,17806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17806,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
 ;;^UTILITY(U,$J,358.3,17806,1,4,0)
 ;;=4^I25.708
 ;;^UTILITY(U,$J,358.3,17806,2)
 ;;=^5007119
 ;;^UTILITY(U,$J,358.3,17807,0)
 ;;=I25.709^^85^882^20
 ;;^UTILITY(U,$J,358.3,17807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17807,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
 ;;^UTILITY(U,$J,358.3,17807,1,4,0)
 ;;=4^I25.709
 ;;^UTILITY(U,$J,358.3,17807,2)
 ;;=^5007120
 ;;^UTILITY(U,$J,358.3,17808,0)
 ;;=I25.700^^85^882^21
 ;;^UTILITY(U,$J,358.3,17808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17808,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
 ;;^UTILITY(U,$J,358.3,17808,1,4,0)
 ;;=4^I25.700
 ;;^UTILITY(U,$J,358.3,17808,2)
 ;;=^5007117
 ;;^UTILITY(U,$J,358.3,17809,0)
 ;;=I82.469^^85^882^24
 ;;^UTILITY(U,$J,358.3,17809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17809,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
 ;;^UTILITY(U,$J,358.3,17809,1,4,0)
 ;;=4^I82.469
 ;;^UTILITY(U,$J,358.3,17809,2)
 ;;=^5158066
 ;;^UTILITY(U,$J,358.3,17810,0)
 ;;=I82.569^^85^882^25
 ;;^UTILITY(U,$J,358.3,17810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17810,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
 ;;^UTILITY(U,$J,358.3,17810,1,4,0)
 ;;=4^I82.569
 ;;^UTILITY(U,$J,358.3,17810,2)
 ;;=^5158074
 ;;^UTILITY(U,$J,358.3,17811,0)
 ;;=I80.259^^85^882^33
 ;;^UTILITY(U,$J,358.3,17811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17811,1,3,0)
 ;;=3^Phlebitis & Thrombophlebitis,Unspec Calf Muscle Vein
 ;;^UTILITY(U,$J,358.3,17811,1,4,0)
 ;;=4^I80.259
 ;;^UTILITY(U,$J,358.3,17811,2)
 ;;=^5158058
 ;;^UTILITY(U,$J,358.3,17812,0)
 ;;=I82.409^^85^882^26
 ;;^UTILITY(U,$J,358.3,17812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17812,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Acute
 ;;^UTILITY(U,$J,358.3,17812,1,4,0)
 ;;=4^I82.409
 ;;^UTILITY(U,$J,358.3,17812,2)
 ;;=^5133625
 ;;^UTILITY(U,$J,358.3,17813,0)
 ;;=I82.509^^85^882^27
 ;;^UTILITY(U,$J,358.3,17813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17813,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Chronic
 ;;^UTILITY(U,$J,358.3,17813,1,4,0)
 ;;=4^I82.509
 ;;^UTILITY(U,$J,358.3,17813,2)
 ;;=^5133628
 ;;^UTILITY(U,$J,358.3,17814,0)
 ;;=E78.1^^85^883^23
 ;;^UTILITY(U,$J,358.3,17814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17814,1,3,0)
 ;;=3^Pure Hyperglyceridemia
 ;;^UTILITY(U,$J,358.3,17814,1,4,0)
 ;;=4^E78.1
 ;;^UTILITY(U,$J,358.3,17814,2)
 ;;=^101303
 ;;^UTILITY(U,$J,358.3,17815,0)
 ;;=E78.2^^85^883^21
 ;;^UTILITY(U,$J,358.3,17815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17815,1,3,0)
 ;;=3^Mixed Hyperlipidemia
 ;;^UTILITY(U,$J,358.3,17815,1,4,0)
 ;;=4^E78.2
 ;;^UTILITY(U,$J,358.3,17815,2)
 ;;=^78424
 ;;^UTILITY(U,$J,358.3,17816,0)
 ;;=I10.^^85^883^9
 ;;^UTILITY(U,$J,358.3,17816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17816,1,3,0)
 ;;=3^Essential Primary Hypertension
 ;;^UTILITY(U,$J,358.3,17816,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,17816,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,17817,0)
 ;;=I11.9^^85^883^19
 ;;^UTILITY(U,$J,358.3,17817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17817,1,3,0)
 ;;=3^Hypertensive Heart Disease w/o Heart Failure
 ;;^UTILITY(U,$J,358.3,17817,1,4,0)
 ;;=4^I11.9
 ;;^UTILITY(U,$J,358.3,17817,2)
 ;;=^5007064
 ;;^UTILITY(U,$J,358.3,17818,0)
 ;;=I11.0^^85^883^18
 ;;^UTILITY(U,$J,358.3,17818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17818,1,3,0)
 ;;=3^Hypertensive Heart Disease w/ Heart Failure
 ;;^UTILITY(U,$J,358.3,17818,1,4,0)
 ;;=4^I11.0
 ;;^UTILITY(U,$J,358.3,17818,2)
 ;;=^5007063
 ;;^UTILITY(U,$J,358.3,17819,0)
 ;;=I12.0^^85^883^15
 ;;^UTILITY(U,$J,358.3,17819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17819,1,3,0)
 ;;=3^Hypertensive Chr Kidney Disease w/ ESRD
 ;;^UTILITY(U,$J,358.3,17819,1,4,0)
 ;;=4^I12.0
 ;;^UTILITY(U,$J,358.3,17819,2)
 ;;=^5007065
 ;;^UTILITY(U,$J,358.3,17820,0)
 ;;=I13.10^^85^883^13
 ;;^UTILITY(U,$J,358.3,17820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17820,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,17820,1,4,0)
 ;;=4^I13.10
 ;;^UTILITY(U,$J,358.3,17820,2)
 ;;=^5007068
 ;;^UTILITY(U,$J,358.3,17821,0)
 ;;=I13.0^^85^883^11
 ;;^UTILITY(U,$J,358.3,17821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17821,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,17821,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,17821,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,17822,0)
 ;;=I13.11^^85^883^14
 ;;^UTILITY(U,$J,358.3,17822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17822,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,17822,1,4,0)
 ;;=4^I13.11
 ;;^UTILITY(U,$J,358.3,17822,2)
 ;;=^5007069
 ;;^UTILITY(U,$J,358.3,17823,0)
 ;;=I13.2^^85^883^12
 ;;^UTILITY(U,$J,358.3,17823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17823,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,17823,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,17823,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,17824,0)
 ;;=I48.91^^85^883^6
 ;;^UTILITY(U,$J,358.3,17824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17824,1,3,0)
 ;;=3^Atrial Fibrillation,Unspec
 ;;^UTILITY(U,$J,358.3,17824,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,17824,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,17825,0)
 ;;=I48.92^^85^883^7
 ;;^UTILITY(U,$J,358.3,17825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17825,1,3,0)
 ;;=3^Atrial Flutter,Unspec
 ;;^UTILITY(U,$J,358.3,17825,1,4,0)
 ;;=4^I48.92
 ;;^UTILITY(U,$J,358.3,17825,2)
 ;;=^5007230
 ;;^UTILITY(U,$J,358.3,17826,0)
 ;;=I16.1^^85^883^17
 ;;^UTILITY(U,$J,358.3,17826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17826,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,17826,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,17826,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,17827,0)
 ;;=I16.0^^85^883^20
 ;;^UTILITY(U,$J,358.3,17827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17827,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,17827,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,17827,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,17828,0)
 ;;=I16.9^^85^883^16
 ;;^UTILITY(U,$J,358.3,17828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17828,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,17828,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,17828,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,17829,0)
 ;;=E78.01^^85^883^10
 ;;^UTILITY(U,$J,358.3,17829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17829,1,3,0)
 ;;=3^Familial Hypercholesterolemia
 ;;^UTILITY(U,$J,358.3,17829,1,4,0)
 ;;=4^E78.01
 ;;^UTILITY(U,$J,358.3,17829,2)
 ;;=^7570555
 ;;^UTILITY(U,$J,358.3,17830,0)
 ;;=E78.00^^85^883^22
 ;;^UTILITY(U,$J,358.3,17830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17830,1,3,0)
 ;;=3^Pure Hypercholesterolemia,Unspec
 ;;^UTILITY(U,$J,358.3,17830,1,4,0)
 ;;=4^E78.00
 ;;^UTILITY(U,$J,358.3,17830,2)
 ;;=^5138435
 ;;^UTILITY(U,$J,358.3,17831,0)
 ;;=I47.2^^85^883^24
 ;;^UTILITY(U,$J,358.3,17831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17831,1,3,0)
 ;;=3^Ventricular Tachycardia
 ;;^UTILITY(U,$J,358.3,17831,1,4,0)
 ;;=4^I47.2
 ;;^UTILITY(U,$J,358.3,17831,2)
 ;;=^125976
 ;;^UTILITY(U,$J,358.3,17832,0)
 ;;=I42.6^^85^883^1
 ;;^UTILITY(U,$J,358.3,17832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17832,1,3,0)
 ;;=3^Alcoholic Cardiomyopathy
 ;;^UTILITY(U,$J,358.3,17832,1,4,0)
 ;;=4^I42.6
 ;;^UTILITY(U,$J,358.3,17832,2)
 ;;=^5007197
 ;;^UTILITY(U,$J,358.3,17833,0)
 ;;=I51.7^^85^883^8
 ;;^UTILITY(U,$J,358.3,17833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17833,1,3,0)
 ;;=3^Cardiomegaly
 ;;^UTILITY(U,$J,358.3,17833,1,4,0)
 ;;=4^I51.7
 ;;^UTILITY(U,$J,358.3,17833,2)
 ;;=^5007257
 ;;^UTILITY(U,$J,358.3,17834,0)
 ;;=I48.20^^85^883^2
 ;;^UTILITY(U,$J,358.3,17834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17834,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,17834,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,17834,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,17835,0)
 ;;=I48.11^^85^883^3
 ;;^UTILITY(U,$J,358.3,17835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17835,1,3,0)
 ;;=3^Atrial Fibrillation,Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,17835,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,17835,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,17836,0)
 ;;=I48.19^^85^883^4
 ;;^UTILITY(U,$J,358.3,17836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17836,1,3,0)
 ;;=3^Atrial Fibrillation,Other Persistent
 ;;^UTILITY(U,$J,358.3,17836,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,17836,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,17837,0)
 ;;=I48.21^^85^883^5
 ;;^UTILITY(U,$J,358.3,17837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17837,1,3,0)
 ;;=3^Atrial Fibrillation,Permanent
 ;;^UTILITY(U,$J,358.3,17837,1,4,0)
 ;;=4^I48.21
 ;;^UTILITY(U,$J,358.3,17837,2)
 ;;=^304710
 ;;^UTILITY(U,$J,358.3,17838,0)
 ;;=B07.9^^85^884^328
 ;;^UTILITY(U,$J,358.3,17838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17838,1,3,0)
 ;;=3^Viral Wart,Unspec
 ;;^UTILITY(U,$J,358.3,17838,1,4,0)
 ;;=4^B07.9
 ;;^UTILITY(U,$J,358.3,17838,2)
 ;;=^5000519
 ;;^UTILITY(U,$J,358.3,17839,0)
 ;;=A63.0^^85^884^35
 ;;^UTILITY(U,$J,358.3,17839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17839,1,3,0)
 ;;=3^Anogenital (Venereal) Warts
 ;;^UTILITY(U,$J,358.3,17839,1,4,0)
 ;;=4^A63.0
 ;;^UTILITY(U,$J,358.3,17839,2)
 ;;=^5000360
 ;;^UTILITY(U,$J,358.3,17840,0)
 ;;=B35.0^^85^884^319
 ;;^UTILITY(U,$J,358.3,17840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17840,1,3,0)
 ;;=3^Tinea Barbae and Tinea Capitis
 ;;^UTILITY(U,$J,358.3,17840,1,4,0)
 ;;=4^B35.0
 ;;^UTILITY(U,$J,358.3,17840,2)
 ;;=^5000604
 ;;^UTILITY(U,$J,358.3,17841,0)
 ;;=B35.1^^85^884^324
 ;;^UTILITY(U,$J,358.3,17841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17841,1,3,0)
 ;;=3^Tinea Unguium
 ;;^UTILITY(U,$J,358.3,17841,1,4,0)
 ;;=4^B35.1
 ;;^UTILITY(U,$J,358.3,17841,2)
 ;;=^119748
 ;;^UTILITY(U,$J,358.3,17842,0)
 ;;=B35.6^^85^884^321
 ;;^UTILITY(U,$J,358.3,17842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17842,1,3,0)
 ;;=3^Tinea Cruris
 ;;^UTILITY(U,$J,358.3,17842,1,4,0)
 ;;=4^B35.6
 ;;^UTILITY(U,$J,358.3,17842,2)
 ;;=^119711
 ;;^UTILITY(U,$J,358.3,17843,0)
 ;;=B35.3^^85^884^323
 ;;^UTILITY(U,$J,358.3,17843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17843,1,3,0)
 ;;=3^Tinea Pedis
 ;;^UTILITY(U,$J,358.3,17843,1,4,0)
 ;;=4^B35.3
 ;;^UTILITY(U,$J,358.3,17843,2)
 ;;=^119732
 ;;^UTILITY(U,$J,358.3,17844,0)
 ;;=B35.5^^85^884^322
 ;;^UTILITY(U,$J,358.3,17844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17844,1,3,0)
 ;;=3^Tinea Imbricata
 ;;^UTILITY(U,$J,358.3,17844,1,4,0)
 ;;=4^B35.5
 ;;^UTILITY(U,$J,358.3,17844,2)
 ;;=^119725
 ;;^UTILITY(U,$J,358.3,17845,0)
 ;;=B35.4^^85^884^320
 ;;^UTILITY(U,$J,358.3,17845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17845,1,3,0)
 ;;=3^Tinea Corporis
 ;;^UTILITY(U,$J,358.3,17845,1,4,0)
 ;;=4^B35.4
 ;;^UTILITY(U,$J,358.3,17845,2)
 ;;=^119704
 ;;^UTILITY(U,$J,358.3,17846,0)
 ;;=B35.8^^85^884^140
 ;;^UTILITY(U,$J,358.3,17846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17846,1,3,0)
 ;;=3^Dermatophytoses,Other
 ;;^UTILITY(U,$J,358.3,17846,1,4,0)
 ;;=4^B35.8
 ;;^UTILITY(U,$J,358.3,17846,2)
 ;;=^5000606
 ;;^UTILITY(U,$J,358.3,17847,0)
 ;;=B36.9^^85^884^312
 ;;^UTILITY(U,$J,358.3,17847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17847,1,3,0)
 ;;=3^Superficial Mycosis,Unspec
 ;;^UTILITY(U,$J,358.3,17847,1,4,0)
 ;;=4^B36.9
 ;;^UTILITY(U,$J,358.3,17847,2)
 ;;=^5000611
 ;;^UTILITY(U,$J,358.3,17848,0)
 ;;=D69.0^^85^884^33
 ;;^UTILITY(U,$J,358.3,17848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17848,1,3,0)
 ;;=3^Allergic Purpura
 ;;^UTILITY(U,$J,358.3,17848,1,4,0)
 ;;=4^D69.0
 ;;^UTILITY(U,$J,358.3,17848,2)
 ;;=^5002365
 ;;^UTILITY(U,$J,358.3,17849,0)
 ;;=B00.9^^85^884^161