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