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

IBDEI03O.m

Go to the documentation of this file.
IBDEI03O ; ; 01-MAY-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 01, 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,8772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8772,1,3,0)
 ;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
 ;;^UTILITY(U,$J,358.3,8772,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,8772,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,8773,0)
 ;;=I25.10^^48^476^4
 ;;^UTILITY(U,$J,358.3,8773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8773,1,3,0)
 ;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,8773,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,8773,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,8774,0)
 ;;=I25.110^^48^476^5
 ;;^UTILITY(U,$J,358.3,8774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8774,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
 ;;^UTILITY(U,$J,358.3,8774,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,8774,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,8775,0)
 ;;=I25.810^^48^476^17
 ;;^UTILITY(U,$J,358.3,8775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8775,1,3,0)
 ;;=3^Athscl of CABG w/o Angina Pectoris
 ;;^UTILITY(U,$J,358.3,8775,1,4,0)
 ;;=4^I25.810
 ;;^UTILITY(U,$J,358.3,8775,2)
 ;;=^5007141
 ;;^UTILITY(U,$J,358.3,8776,0)
 ;;=I25.701^^48^476^18
 ;;^UTILITY(U,$J,358.3,8776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8776,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
 ;;^UTILITY(U,$J,358.3,8776,1,4,0)
 ;;=4^I25.701
 ;;^UTILITY(U,$J,358.3,8776,2)
 ;;=^5007118
 ;;^UTILITY(U,$J,358.3,8777,0)
 ;;=I25.708^^48^476^19
 ;;^UTILITY(U,$J,358.3,8777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8777,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
 ;;^UTILITY(U,$J,358.3,8777,1,4,0)
 ;;=4^I25.708
 ;;^UTILITY(U,$J,358.3,8777,2)
 ;;=^5007119
 ;;^UTILITY(U,$J,358.3,8778,0)
 ;;=I25.709^^48^476^20
 ;;^UTILITY(U,$J,358.3,8778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8778,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
 ;;^UTILITY(U,$J,358.3,8778,1,4,0)
 ;;=4^I25.709
 ;;^UTILITY(U,$J,358.3,8778,2)
 ;;=^5007120
 ;;^UTILITY(U,$J,358.3,8779,0)
 ;;=I25.700^^48^476^21
 ;;^UTILITY(U,$J,358.3,8779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8779,1,3,0)
 ;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
 ;;^UTILITY(U,$J,358.3,8779,1,4,0)
 ;;=4^I25.700
 ;;^UTILITY(U,$J,358.3,8779,2)
 ;;=^5007117
 ;;^UTILITY(U,$J,358.3,8780,0)
 ;;=I82.469^^48^476^24
 ;;^UTILITY(U,$J,358.3,8780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8780,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
 ;;^UTILITY(U,$J,358.3,8780,1,4,0)
 ;;=4^I82.469
 ;;^UTILITY(U,$J,358.3,8780,2)
 ;;=^5158066
 ;;^UTILITY(U,$J,358.3,8781,0)
 ;;=I82.569^^48^476^25
 ;;^UTILITY(U,$J,358.3,8781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8781,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
 ;;^UTILITY(U,$J,358.3,8781,1,4,0)
 ;;=4^I82.569
 ;;^UTILITY(U,$J,358.3,8781,2)
 ;;=^5158074
 ;;^UTILITY(U,$J,358.3,8782,0)
 ;;=I80.259^^48^476^33
 ;;^UTILITY(U,$J,358.3,8782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8782,1,3,0)
 ;;=3^Phlebitis & Thrombophlebitis,Unspec Calf Muscle Vein
 ;;^UTILITY(U,$J,358.3,8782,1,4,0)
 ;;=4^I80.259
 ;;^UTILITY(U,$J,358.3,8782,2)
 ;;=^5158058
 ;;^UTILITY(U,$J,358.3,8783,0)
 ;;=I82.409^^48^476^26
 ;;^UTILITY(U,$J,358.3,8783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8783,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Acute
 ;;^UTILITY(U,$J,358.3,8783,1,4,0)
 ;;=4^I82.409
 ;;^UTILITY(U,$J,358.3,8783,2)
 ;;=^5133625
 ;;^UTILITY(U,$J,358.3,8784,0)
 ;;=I82.509^^48^476^27
 ;;^UTILITY(U,$J,358.3,8784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8784,1,3,0)
 ;;=3^Embolism/Thrombosis,Unspec Deep Vein,LE Unspec Chronic
 ;;^UTILITY(U,$J,358.3,8784,1,4,0)
 ;;=4^I82.509
 ;;^UTILITY(U,$J,358.3,8784,2)
 ;;=^5133628
 ;;^UTILITY(U,$J,358.3,8785,0)
 ;;=E78.1^^48^477^23
 ;;^UTILITY(U,$J,358.3,8785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8785,1,3,0)
 ;;=3^Pure Hyperglyceridemia
 ;;^UTILITY(U,$J,358.3,8785,1,4,0)
 ;;=4^E78.1
 ;;^UTILITY(U,$J,358.3,8785,2)
 ;;=^101303
 ;;^UTILITY(U,$J,358.3,8786,0)
 ;;=E78.2^^48^477^21
 ;;^UTILITY(U,$J,358.3,8786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8786,1,3,0)
 ;;=3^Mixed Hyperlipidemia
 ;;^UTILITY(U,$J,358.3,8786,1,4,0)
 ;;=4^E78.2
 ;;^UTILITY(U,$J,358.3,8786,2)
 ;;=^78424
 ;;^UTILITY(U,$J,358.3,8787,0)
 ;;=I10.^^48^477^9
 ;;^UTILITY(U,$J,358.3,8787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8787,1,3,0)
 ;;=3^Essential Primary Hypertension
 ;;^UTILITY(U,$J,358.3,8787,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,8787,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,8788,0)
 ;;=I11.9^^48^477^19
 ;;^UTILITY(U,$J,358.3,8788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8788,1,3,0)
 ;;=3^Hypertensive Heart Disease w/o Heart Failure
 ;;^UTILITY(U,$J,358.3,8788,1,4,0)
 ;;=4^I11.9
 ;;^UTILITY(U,$J,358.3,8788,2)
 ;;=^5007064
 ;;^UTILITY(U,$J,358.3,8789,0)
 ;;=I11.0^^48^477^18
 ;;^UTILITY(U,$J,358.3,8789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8789,1,3,0)
 ;;=3^Hypertensive Heart Disease w/ Heart Failure
 ;;^UTILITY(U,$J,358.3,8789,1,4,0)
 ;;=4^I11.0
 ;;^UTILITY(U,$J,358.3,8789,2)
 ;;=^5007063
 ;;^UTILITY(U,$J,358.3,8790,0)
 ;;=I12.0^^48^477^15
 ;;^UTILITY(U,$J,358.3,8790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8790,1,3,0)
 ;;=3^Hypertensive Chr Kidney Disease w/ ESRD
 ;;^UTILITY(U,$J,358.3,8790,1,4,0)
 ;;=4^I12.0
 ;;^UTILITY(U,$J,358.3,8790,2)
 ;;=^5007065
 ;;^UTILITY(U,$J,358.3,8791,0)
 ;;=I13.10^^48^477^13
 ;;^UTILITY(U,$J,358.3,8791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8791,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,8791,1,4,0)
 ;;=4^I13.10
 ;;^UTILITY(U,$J,358.3,8791,2)
 ;;=^5007068
 ;;^UTILITY(U,$J,358.3,8792,0)
 ;;=I13.0^^48^477^11
 ;;^UTILITY(U,$J,358.3,8792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8792,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,8792,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,8792,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,8793,0)
 ;;=I13.11^^48^477^14
 ;;^UTILITY(U,$J,358.3,8793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8793,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/o Hrt Fail w/ Stg 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,8793,1,4,0)
 ;;=4^I13.11
 ;;^UTILITY(U,$J,358.3,8793,2)
 ;;=^5007069
 ;;^UTILITY(U,$J,358.3,8794,0)
 ;;=I13.2^^48^477^12
 ;;^UTILITY(U,$J,358.3,8794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8794,1,3,0)
 ;;=3^HTN Hrt & Chr Kdny Dis w/ Hrt Fail w/ Stg 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,8794,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,8794,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,8795,0)
 ;;=I48.91^^48^477^6
 ;;^UTILITY(U,$J,358.3,8795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8795,1,3,0)
 ;;=3^Atrial Fibrillation,Unspec
 ;;^UTILITY(U,$J,358.3,8795,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,8795,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,8796,0)
 ;;=I48.92^^48^477^7
 ;;^UTILITY(U,$J,358.3,8796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8796,1,3,0)
 ;;=3^Atrial Flutter,Unspec
 ;;^UTILITY(U,$J,358.3,8796,1,4,0)
 ;;=4^I48.92
 ;;^UTILITY(U,$J,358.3,8796,2)
 ;;=^5007230
 ;;^UTILITY(U,$J,358.3,8797,0)
 ;;=I16.1^^48^477^17
 ;;^UTILITY(U,$J,358.3,8797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8797,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,8797,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,8797,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,8798,0)
 ;;=I16.0^^48^477^20
 ;;^UTILITY(U,$J,358.3,8798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8798,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,8798,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,8798,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,8799,0)
 ;;=I16.9^^48^477^16
 ;;^UTILITY(U,$J,358.3,8799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8799,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,8799,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,8799,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,8800,0)
 ;;=E78.01^^48^477^10
 ;;^UTILITY(U,$J,358.3,8800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8800,1,3,0)
 ;;=3^Familial Hypercholesterolemia
 ;;^UTILITY(U,$J,358.3,8800,1,4,0)
 ;;=4^E78.01
 ;;^UTILITY(U,$J,358.3,8800,2)
 ;;=^7570555
 ;;^UTILITY(U,$J,358.3,8801,0)
 ;;=E78.00^^48^477^22
 ;;^UTILITY(U,$J,358.3,8801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8801,1,3,0)
 ;;=3^Pure Hypercholesterolemia,Unspec
 ;;^UTILITY(U,$J,358.3,8801,1,4,0)
 ;;=4^E78.00
 ;;^UTILITY(U,$J,358.3,8801,2)
 ;;=^5138435
 ;;^UTILITY(U,$J,358.3,8802,0)
 ;;=I47.2^^48^477^24
 ;;^UTILITY(U,$J,358.3,8802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8802,1,3,0)
 ;;=3^Ventricular Tachycardia
 ;;^UTILITY(U,$J,358.3,8802,1,4,0)
 ;;=4^I47.2
 ;;^UTILITY(U,$J,358.3,8802,2)
 ;;=^125976
 ;;^UTILITY(U,$J,358.3,8803,0)
 ;;=I42.6^^48^477^1
 ;;^UTILITY(U,$J,358.3,8803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8803,1,3,0)
 ;;=3^Alcoholic Cardiomyopathy
 ;;^UTILITY(U,$J,358.3,8803,1,4,0)
 ;;=4^I42.6
 ;;^UTILITY(U,$J,358.3,8803,2)
 ;;=^5007197
 ;;^UTILITY(U,$J,358.3,8804,0)
 ;;=I51.7^^48^477^8
 ;;^UTILITY(U,$J,358.3,8804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8804,1,3,0)
 ;;=3^Cardiomegaly
 ;;^UTILITY(U,$J,358.3,8804,1,4,0)
 ;;=4^I51.7
 ;;^UTILITY(U,$J,358.3,8804,2)
 ;;=^5007257
 ;;^UTILITY(U,$J,358.3,8805,0)
 ;;=I48.20^^48^477^2
 ;;^UTILITY(U,$J,358.3,8805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8805,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,8805,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,8805,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,8806,0)
 ;;=I48.11^^48^477^3
 ;;^UTILITY(U,$J,358.3,8806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8806,1,3,0)
 ;;=3^Atrial Fibrillation,Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,8806,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,8806,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,8807,0)
 ;;=I48.19^^48^477^4
 ;;^UTILITY(U,$J,358.3,8807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8807,1,3,0)
 ;;=3^Atrial Fibrillation,Other Persistent
 ;;^UTILITY(U,$J,358.3,8807,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,8807,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,8808,0)
 ;;=I48.21^^48^477^5
 ;;^UTILITY(U,$J,358.3,8808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8808,1,3,0)
 ;;=3^Atrial Fibrillation,Permanent
 ;;^UTILITY(U,$J,358.3,8808,1,4,0)
 ;;=4^I48.21
 ;;^UTILITY(U,$J,358.3,8808,2)
 ;;=^304710
 ;;^UTILITY(U,$J,358.3,8809,0)
 ;;=B07.9^^48^478^328
 ;;^UTILITY(U,$J,358.3,8809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8809,1,3,0)
 ;;=3^Viral Wart,Unspec
 ;;^UTILITY(U,$J,358.3,8809,1,4,0)
 ;;=4^B07.9
 ;;^UTILITY(U,$J,358.3,8809,2)
 ;;=^5000519
 ;;^UTILITY(U,$J,358.3,8810,0)
 ;;=A63.0^^48^478^35
 ;;^UTILITY(U,$J,358.3,8810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8810,1,3,0)
 ;;=3^Anogenital (Venereal) Warts
 ;;^UTILITY(U,$J,358.3,8810,1,4,0)
 ;;=4^A63.0
 ;;^UTILITY(U,$J,358.3,8810,2)
 ;;=^5000360
 ;;^UTILITY(U,$J,358.3,8811,0)
 ;;=B35.0^^48^478^319
 ;;^UTILITY(U,$J,358.3,8811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8811,1,3,0)
 ;;=3^Tinea Barbae and Tinea Capitis
 ;;^UTILITY(U,$J,358.3,8811,1,4,0)
 ;;=4^B35.0
 ;;^UTILITY(U,$J,358.3,8811,2)
 ;;=^5000604
 ;;^UTILITY(U,$J,358.3,8812,0)
 ;;=B35.1^^48^478^324
 ;;^UTILITY(U,$J,358.3,8812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8812,1,3,0)
 ;;=3^Tinea Unguium
 ;;^UTILITY(U,$J,358.3,8812,1,4,0)
 ;;=4^B35.1
 ;;^UTILITY(U,$J,358.3,8812,2)
 ;;=^119748
 ;;^UTILITY(U,$J,358.3,8813,0)
 ;;=B35.6^^48^478^321
 ;;^UTILITY(U,$J,358.3,8813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8813,1,3,0)
 ;;=3^Tinea Cruris
 ;;^UTILITY(U,$J,358.3,8813,1,4,0)
 ;;=4^B35.6
 ;;^UTILITY(U,$J,358.3,8813,2)
 ;;=^119711
 ;;^UTILITY(U,$J,358.3,8814,0)
 ;;=B35.3^^48^478^323
 ;;^UTILITY(U,$J,358.3,8814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8814,1,3,0)
 ;;=3^Tinea Pedis
 ;;^UTILITY(U,$J,358.3,8814,1,4,0)
 ;;=4^B35.3
 ;;^UTILITY(U,$J,358.3,8814,2)
 ;;=^119732
 ;;^UTILITY(U,$J,358.3,8815,0)
 ;;=B35.5^^48^478^322
 ;;^UTILITY(U,$J,358.3,8815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8815,1,3,0)
 ;;=3^Tinea Imbricata
 ;;^UTILITY(U,$J,358.3,8815,1,4,0)
 ;;=4^B35.5
 ;;^UTILITY(U,$J,358.3,8815,2)
 ;;=^119725
 ;;^UTILITY(U,$J,358.3,8816,0)
 ;;=B35.4^^48^478^320
 ;;^UTILITY(U,$J,358.3,8816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8816,1,3,0)
 ;;=3^Tinea Corporis
 ;;^UTILITY(U,$J,358.3,8816,1,4,0)
 ;;=4^B35.4
 ;;^UTILITY(U,$J,358.3,8816,2)
 ;;=^119704
 ;;^UTILITY(U,$J,358.3,8817,0)
 ;;=B35.8^^48^478^140
 ;;^UTILITY(U,$J,358.3,8817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8817,1,3,0)
 ;;=3^Dermatophytoses,Other
 ;;^UTILITY(U,$J,358.3,8817,1,4,0)
 ;;=4^B35.8
 ;;^UTILITY(U,$J,358.3,8817,2)
 ;;=^5000606
 ;;^UTILITY(U,$J,358.3,8818,0)
 ;;=B36.9^^48^478^312
 ;;^UTILITY(U,$J,358.3,8818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8818,1,3,0)
 ;;=3^Superficial Mycosis,Unspec
 ;;^UTILITY(U,$J,358.3,8818,1,4,0)
 ;;=4^B36.9
 ;;^UTILITY(U,$J,358.3,8818,2)
 ;;=^5000611
 ;;^UTILITY(U,$J,358.3,8819,0)
 ;;=D69.0^^48^478^33
 ;;^UTILITY(U,$J,358.3,8819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8819,1,3,0)
 ;;=3^Allergic Purpura
 ;;^UTILITY(U,$J,358.3,8819,1,4,0)
 ;;=4^D69.0
 ;;^UTILITY(U,$J,358.3,8819,2)
 ;;=^5002365
 ;;^UTILITY(U,$J,358.3,8820,0)
 ;;=B00.9^^48^478^161
 ;;^UTILITY(U,$J,358.3,8820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8820,1,3,0)
 ;;=3^Herpesviral Infection,Unspec
 ;;^UTILITY(U,$J,358.3,8820,1,4,0)
 ;;=4^B00.9
 ;;^UTILITY(U,$J,358.3,8820,2)
 ;;=^5000480
 ;;^UTILITY(U,$J,358.3,8821,0)
 ;;=B02.9^^48^478^331
 ;;^UTILITY(U,$J,358.3,8821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8821,1,3,0)
 ;;=3^Zoster w/o Complications
 ;;^UTILITY(U,$J,358.3,8821,1,4,0)
 ;;=4^B02.9
 ;;^UTILITY(U,$J,358.3,8821,2)
 ;;=^5000501
 ;;^UTILITY(U,$J,358.3,8822,0)
 ;;=D17.9^^48^478^90
 ;;^UTILITY(U,$J,358.3,8822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8822,1,3,0)
 ;;=3^Benign Lipomatous Neop,Unspec
 ;;^UTILITY(U,$J,358.3,8822,1,4,0)
 ;;=4^D17.9
 ;;^UTILITY(U,$J,358.3,8822,2)
 ;;=^5002020
 ;;^UTILITY(U,$J,358.3,8823,0)
 ;;=E08.621^^48^478^137
 ;;^UTILITY(U,$J,358.3,8823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8823,1,3,0)
 ;;=3^DM d/t Underlying Condition w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,8823,1,4,0)
 ;;=4^E08.621
 ;;^UTILITY(U,$J,358.3,8823,2)
 ;;=^5002534
 ;;^UTILITY(U,$J,358.3,8824,0)
 ;;=E09.621^^48^478^136
 ;;^UTILITY(U,$J,358.3,8824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8824,1,3,0)
 ;;=3^DM d/t Drug/Chemical w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,8824,1,4,0)
 ;;=4^E09.621
 ;;^UTILITY(U,$J,358.3,8824,2)
 ;;=^5002576
 ;;^UTILITY(U,$J,358.3,8825,0)
 ;;=H05.011^^48^478^112
 ;;^UTILITY(U,$J,358.3,8825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8825,1,3,0)
 ;;=3^Cellulitis of Right Orbit
 ;;^UTILITY(U,$J,358.3,8825,1,4,0)
 ;;=4^H05.011
 ;;^UTILITY(U,$J,358.3,8825,2)
 ;;=^5004560
 ;;^UTILITY(U,$J,358.3,8826,0)
 ;;=H05.012^^48^478^105
 ;;^UTILITY(U,$J,358.3,8826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8826,1,3,0)
 ;;=3^Cellulitis of Left Orbit
 ;;^UTILITY(U,$J,358.3,8826,1,4,0)
 ;;=4^H05.012
 ;;^UTILITY(U,$J,358.3,8826,2)
 ;;=^5004561
 ;;^UTILITY(U,$J,358.3,8827,0)
 ;;=H05.013^^48^478^99
 ;;^UTILITY(U,$J,358.3,8827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8827,1,3,0)
 ;;=3^Cellulitis of Bilateral Orbits
 ;;^UTILITY(U,$J,358.3,8827,1,4,0)
 ;;=4^H05.013
 ;;^UTILITY(U,$J,358.3,8827,2)
 ;;=^5004562
 ;;^UTILITY(U,$J,358.3,8828,0)
 ;;=I70.331^^48^478^51
 ;;^UTILITY(U,$J,358.3,8828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8828,1,3,0)
 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Thigh
 ;;^UTILITY(U,$J,358.3,8828,1,4,0)
 ;;=4^I70.331
 ;;^UTILITY(U,$J,358.3,8828,2)
 ;;=^5007626
 ;;^UTILITY(U,$J,358.3,8829,0)
 ;;=I70.332^^48^478^52
 ;;^UTILITY(U,$J,358.3,8829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8829,1,3,0)
 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Calf
 ;;^UTILITY(U,$J,358.3,8829,1,4,0)
 ;;=4^I70.332
 ;;^UTILITY(U,$J,358.3,8829,2)
 ;;=^5007627
 ;;^UTILITY(U,$J,358.3,8830,0)
 ;;=I70.333^^48^478^53
 ;;^UTILITY(U,$J,358.3,8830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8830,1,3,0)
 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Ankle
 ;;^UTILITY(U,$J,358.3,8830,1,4,0)
 ;;=4^I70.333
 ;;^UTILITY(U,$J,358.3,8830,2)
 ;;=^5007628
 ;;^UTILITY(U,$J,358.3,8831,0)
 ;;=I70.334^^48^478^54
 ;;^UTILITY(U,$J,358.3,8831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8831,1,3,0)
 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Heel/Midfoot
 ;;^UTILITY(U,$J,358.3,8831,1,4,0)
 ;;=4^I70.334
 ;;^UTILITY(U,$J,358.3,8831,2)
 ;;=^5007629
 ;;^UTILITY(U,$J,358.3,8832,0)
 ;;=I70.335^^48^478^55
 ;;^UTILITY(U,$J,358.3,8832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8832,1,3,0)
 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Oth Part of Foot
 ;;^UTILITY(U,$J,358.3,8832,1,4,0)
 ;;=4^I70.335
 ;;^UTILITY(U,$J,358.3,8832,2)
 ;;=^5007630
 ;;^UTILITY(U,$J,358.3,8833,0)
 ;;=I70.341^^48^478^50
 ;;^UTILITY(U,$J,358.3,8833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8833,1,3,0)
 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Thigh
 ;;^UTILITY(U,$J,358.3,8833,1,4,0)
 ;;=4^I70.341
 ;;^UTILITY(U,$J,358.3,8833,2)
 ;;=^5007633
 ;;^UTILITY(U,$J,358.3,8834,0)
 ;;=I70.342^^48^478^47
 ;;^UTILITY(U,$J,358.3,8834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8834,1,3,0)
 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Calf
 ;;^UTILITY(U,$J,358.3,8834,1,4,0)
 ;;=4^I70.342
 ;;^UTILITY(U,$J,358.3,8834,2)
 ;;=^5007634
 ;;^UTILITY(U,$J,358.3,8835,0)
 ;;=I70.343^^48^478^46
 ;;^UTILITY(U,$J,358.3,8835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8835,1,3,0)
 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Ankle
 ;;^UTILITY(U,$J,358.3,8835,1,4,0)
 ;;=4^I70.343
 ;;^UTILITY(U,$J,358.3,8835,2)
 ;;=^5007635
 ;;^UTILITY(U,$J,358.3,8836,0)
 ;;=I70.344^^48^478^48
 ;;^UTILITY(U,$J,358.3,8836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8836,1,3,0)
 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Heel/Midfoot
 ;;^UTILITY(U,$J,358.3,8836,1,4,0)
 ;;=4^I70.344
 ;;^UTILITY(U,$J,358.3,8836,2)
 ;;=^5007636
 ;;^UTILITY(U,$J,358.3,8837,0)
 ;;=I70.345^^48^478^49
 ;;^UTILITY(U,$J,358.3,8837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8837,1,3,0)
 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Oth Part of Foot
 ;;^UTILITY(U,$J,358.3,8837,1,4,0)
 ;;=4^I70.345
 ;;^UTILITY(U,$J,358.3,8837,2)
 ;;=^5007637
 ;;^UTILITY(U,$J,358.3,8838,0)
 ;;=I70.431^^48^478^41
 ;;^UTILITY(U,$J,358.3,8838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8838,1,3,0)
 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Thigh
 ;;^UTILITY(U,$J,358.3,8838,1,4,0)
 ;;=4^I70.431
 ;;^UTILITY(U,$J,358.3,8838,2)
 ;;=^5007664
 ;;^UTILITY(U,$J,358.3,8839,0)
 ;;=I70.432^^48^478^42
 ;;^UTILITY(U,$J,358.3,8839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8839,1,3,0)
 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Calf
 ;;^UTILITY(U,$J,358.3,8839,1,4,0)
 ;;=4^I70.432
 ;;^UTILITY(U,$J,358.3,8839,2)
 ;;=^5007665
 ;;^UTILITY(U,$J,358.3,8840,0)
 ;;=I70.433^^48^478^43
 ;;^UTILITY(U,$J,358.3,8840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8840,1,3,0)
 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Ankle
 ;;^UTILITY(U,$J,358.3,8840,1,4,0)
 ;;=4^I70.433