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