IBDEI0D2 ; ; 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,32773,1,3,0)
;;=3^Chronic Fatigue Syndrome
;;^UTILITY(U,$J,358.3,32773,1,4,0)
;;=4^R53.82
;;^UTILITY(U,$J,358.3,32773,2)
;;=^5019519
;;^UTILITY(U,$J,358.3,32774,0)
;;=R03.0^^99^1350^21
;;^UTILITY(U,$J,358.3,32774,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32774,1,3,0)
;;=3^Elevated BP w/o Diagnosis of HTN
;;^UTILITY(U,$J,358.3,32774,1,4,0)
;;=4^R03.0
;;^UTILITY(U,$J,358.3,32774,2)
;;=^5019171
;;^UTILITY(U,$J,358.3,32775,0)
;;=R00.2^^99^1350^38
;;^UTILITY(U,$J,358.3,32775,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32775,1,3,0)
;;=3^Palpitations
;;^UTILITY(U,$J,358.3,32775,1,4,0)
;;=4^R00.2
;;^UTILITY(U,$J,358.3,32775,2)
;;=^5019165
;;^UTILITY(U,$J,358.3,32776,0)
;;=M33.20^^99^1350^41
;;^UTILITY(U,$J,358.3,32776,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32776,1,3,0)
;;=3^Polymyositis
;;^UTILITY(U,$J,358.3,32776,1,4,0)
;;=4^M33.20
;;^UTILITY(U,$J,358.3,32776,2)
;;=^5011770
;;^UTILITY(U,$J,358.3,32777,0)
;;=R80.9^^99^1350^46
;;^UTILITY(U,$J,358.3,32777,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32777,1,3,0)
;;=3^Proteinuria
;;^UTILITY(U,$J,358.3,32777,1,4,0)
;;=4^R80.9
;;^UTILITY(U,$J,358.3,32777,2)
;;=^5019599
;;^UTILITY(U,$J,358.3,32778,0)
;;=R76.11^^99^1350^42
;;^UTILITY(U,$J,358.3,32778,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32778,1,3,0)
;;=3^Positive PPD
;;^UTILITY(U,$J,358.3,32778,1,4,0)
;;=4^R76.11
;;^UTILITY(U,$J,358.3,32778,2)
;;=^5019570
;;^UTILITY(U,$J,358.3,32779,0)
;;=M35.00^^99^1350^50
;;^UTILITY(U,$J,358.3,32779,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32779,1,3,0)
;;=3^Sjogren Syndrome,Unspec
;;^UTILITY(U,$J,358.3,32779,1,4,0)
;;=4^M35.00
;;^UTILITY(U,$J,358.3,32779,2)
;;=^5011786
;;^UTILITY(U,$J,358.3,32780,0)
;;=B37.0^^99^1350^56
;;^UTILITY(U,$J,358.3,32780,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32780,1,3,0)
;;=3^Thrush
;;^UTILITY(U,$J,358.3,32780,1,4,0)
;;=4^B37.0
;;^UTILITY(U,$J,358.3,32780,2)
;;=Thrush^5000612
;;^UTILITY(U,$J,358.3,32781,0)
;;=R51.9^^99^1350^27
;;^UTILITY(U,$J,358.3,32781,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32781,1,3,0)
;;=3^Headache,Unspecified
;;^UTILITY(U,$J,358.3,32781,1,4,0)
;;=4^R51.9
;;^UTILITY(U,$J,358.3,32781,2)
;;=^5159306
;;^UTILITY(U,$J,358.3,32782,0)
;;=R51.0^^99^1350^26
;;^UTILITY(U,$J,358.3,32782,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32782,1,3,0)
;;=3^Headache w/ Orthostatic Component,NEC
;;^UTILITY(U,$J,358.3,32782,1,4,0)
;;=4^R51.0
;;^UTILITY(U,$J,358.3,32782,2)
;;=^5159305
;;^UTILITY(U,$J,358.3,32783,0)
;;=R05.9^^99^1350^13
;;^UTILITY(U,$J,358.3,32783,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32783,1,3,0)
;;=3^Cough,Unspec
;;^UTILITY(U,$J,358.3,32783,1,4,0)
;;=4^R05.9
;;^UTILITY(U,$J,358.3,32783,2)
;;=^5161232
;;^UTILITY(U,$J,358.3,32784,0)
;;=I83.91^^99^1351^12
;;^UTILITY(U,$J,358.3,32784,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32784,1,3,0)
;;=3^Varicose Veins,Asymptomatic,Right Lower Extremity
;;^UTILITY(U,$J,358.3,32784,1,4,0)
;;=4^I83.91
;;^UTILITY(U,$J,358.3,32784,2)
;;=^5008020
;;^UTILITY(U,$J,358.3,32785,0)
;;=I83.92^^99^1351^11
;;^UTILITY(U,$J,358.3,32785,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32785,1,3,0)
;;=3^Varicose Veins,Asymptomatic,Left Lower Extremity
;;^UTILITY(U,$J,358.3,32785,1,4,0)
;;=4^I83.92
;;^UTILITY(U,$J,358.3,32785,2)
;;=^5008021
;;^UTILITY(U,$J,358.3,32786,0)
;;=I83.93^^99^1351^10
;;^UTILITY(U,$J,358.3,32786,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32786,1,3,0)
;;=3^Varicose Veins,Asymptomatic,Bilateral Lower Extremities
;;^UTILITY(U,$J,358.3,32786,1,4,0)
;;=4^I83.93
;;^UTILITY(U,$J,358.3,32786,2)
;;=^5008022
;;^UTILITY(U,$J,358.3,32787,0)
;;=I83.019^^99^1351^9
;;^UTILITY(U,$J,358.3,32787,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32787,1,3,0)
;;=3^Varicose Veins Right Lower Extrem w/ Ulcer Unspec Site
;;^UTILITY(U,$J,358.3,32787,1,4,0)
;;=4^I83.019
;;^UTILITY(U,$J,358.3,32787,2)
;;=^5007979
;;^UTILITY(U,$J,358.3,32788,0)
;;=I83.029^^99^1351^8
;;^UTILITY(U,$J,358.3,32788,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32788,1,3,0)
;;=3^Varicose Veins Left Lower Extrem w/ Ulcer Unspec Site
;;^UTILITY(U,$J,358.3,32788,1,4,0)
;;=4^I83.029
;;^UTILITY(U,$J,358.3,32788,2)
;;=^5007986
;;^UTILITY(U,$J,358.3,32789,0)
;;=I71.4^^99^1351^1
;;^UTILITY(U,$J,358.3,32789,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32789,1,3,0)
;;=3^AAA w/o rupture
;;^UTILITY(U,$J,358.3,32789,1,4,0)
;;=4^I71.4
;;^UTILITY(U,$J,358.3,32789,2)
;;=^5007789
;;^UTILITY(U,$J,358.3,32790,0)
;;=I73.9^^99^1351^3
;;^UTILITY(U,$J,358.3,32790,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32790,1,3,0)
;;=3^PVD, unspec
;;^UTILITY(U,$J,358.3,32790,1,4,0)
;;=4^I73.9
;;^UTILITY(U,$J,358.3,32790,2)
;;=^184182
;;^UTILITY(U,$J,358.3,32791,0)
;;=I80.201^^99^1351^4
;;^UTILITY(U,$J,358.3,32791,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32791,1,3,0)
;;=3^Phlebitis & thrombophlebitis deep vessels, right lower extremity
;;^UTILITY(U,$J,358.3,32791,1,4,0)
;;=4^I80.201
;;^UTILITY(U,$J,358.3,32791,2)
;;=^5007828
;;^UTILITY(U,$J,358.3,32792,0)
;;=I80.202^^99^1351^5
;;^UTILITY(U,$J,358.3,32792,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32792,1,3,0)
;;=3^Phlebitis & thrombophlebitis deep vessels, left lower extremities
;;^UTILITY(U,$J,358.3,32792,1,4,0)
;;=4^I80.202
;;^UTILITY(U,$J,358.3,32792,2)
;;=^5007829
;;^UTILITY(U,$J,358.3,32793,0)
;;=I80.203^^99^1351^6
;;^UTILITY(U,$J,358.3,32793,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32793,1,3,0)
;;=3^Phlebitis & thrombophlebitis deep vessels, bilateral lower extremities
;;^UTILITY(U,$J,358.3,32793,1,4,0)
;;=4^I80.203
;;^UTILITY(U,$J,358.3,32793,2)
;;=^5007830
;;^UTILITY(U,$J,358.3,32794,0)
;;=I80.3^^99^1351^7
;;^UTILITY(U,$J,358.3,32794,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32794,1,3,0)
;;=3^Phlebitis & thrombophlebitis of lower extremities, unspec
;;^UTILITY(U,$J,358.3,32794,1,4,0)
;;=4^I80.3
;;^UTILITY(U,$J,358.3,32794,2)
;;=^5007845
;;^UTILITY(U,$J,358.3,32795,0)
;;=I95.9^^99^1351^2
;;^UTILITY(U,$J,358.3,32795,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32795,1,3,0)
;;=3^Hypotension, unspecified
;;^UTILITY(U,$J,358.3,32795,1,4,0)
;;=4^I95.9
;;^UTILITY(U,$J,358.3,32795,2)
;;=^5008080
;;^UTILITY(U,$J,358.3,32796,0)
;;=Z51.81^^99^1352^25
;;^UTILITY(U,$J,358.3,32796,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32796,1,3,0)
;;=3^Therapeutic Drug Level Monitoring
;;^UTILITY(U,$J,358.3,32796,1,4,0)
;;=4^Z51.81
;;^UTILITY(U,$J,358.3,32796,2)
;;=^5063064
;;^UTILITY(U,$J,358.3,32797,0)
;;=D68.51^^99^1352^1
;;^UTILITY(U,$J,358.3,32797,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32797,1,3,0)
;;=3^Activated Protein C Resistance
;;^UTILITY(U,$J,358.3,32797,1,4,0)
;;=4^D68.51
;;^UTILITY(U,$J,358.3,32797,2)
;;=^5002358
;;^UTILITY(U,$J,358.3,32798,0)
;;=I82.402^^99^1352^2
;;^UTILITY(U,$J,358.3,32798,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32798,1,3,0)
;;=3^Acute Embolism/Thrombos Deep Veins Left Lower Extremity
;;^UTILITY(U,$J,358.3,32798,1,4,0)
;;=4^I82.402
;;^UTILITY(U,$J,358.3,32798,2)
;;=^5007855
;;^UTILITY(U,$J,358.3,32799,0)
;;=I82.401^^99^1352^3
;;^UTILITY(U,$J,358.3,32799,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32799,1,3,0)
;;=3^Acute Embolism/Thrombos Deep Veins Right Lower Extremity
;;^UTILITY(U,$J,358.3,32799,1,4,0)
;;=4^I82.401
;;^UTILITY(U,$J,358.3,32799,2)
;;=^5007854
;;^UTILITY(U,$J,358.3,32800,0)
;;=I82.890^^99^1352^4
;;^UTILITY(U,$J,358.3,32800,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32800,1,3,0)
;;=3^Acute Embolism/Thrombosis of Specified Veins
;;^UTILITY(U,$J,358.3,32800,1,4,0)
;;=4^I82.890
;;^UTILITY(U,$J,358.3,32800,2)
;;=^5007938
;;^UTILITY(U,$J,358.3,32801,0)
;;=D68.61^^99^1352^6
;;^UTILITY(U,$J,358.3,32801,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32801,1,3,0)
;;=3^Antiphospholipid Syndrome
;;^UTILITY(U,$J,358.3,32801,1,4,0)
;;=4^D68.61
;;^UTILITY(U,$J,358.3,32801,2)
;;=^185421
;;^UTILITY(U,$J,358.3,32802,0)
;;=I63.50^^99^1352^7
;;^UTILITY(U,$J,358.3,32802,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32802,1,3,0)
;;=3^Cerebral Infarction d/t Occls/Stenos of Cereb Artery
;;^UTILITY(U,$J,358.3,32802,1,4,0)
;;=4^I63.50
;;^UTILITY(U,$J,358.3,32802,2)
;;=^5007343
;;^UTILITY(U,$J,358.3,32803,0)
;;=I82.91^^99^1352^8
;;^UTILITY(U,$J,358.3,32803,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32803,1,3,0)
;;=3^Chronic Embolism/Thrombosis Unspec Vein
;;^UTILITY(U,$J,358.3,32803,1,4,0)
;;=4^I82.91
;;^UTILITY(U,$J,358.3,32803,2)
;;=^5007941
;;^UTILITY(U,$J,358.3,32804,0)
;;=I25.9^^99^1352^10
;;^UTILITY(U,$J,358.3,32804,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32804,1,3,0)
;;=3^Chronic Ischemic Heart Disease,Unspec
;;^UTILITY(U,$J,358.3,32804,1,4,0)
;;=4^I25.9
;;^UTILITY(U,$J,358.3,32804,2)
;;=^5007144
;;^UTILITY(U,$J,358.3,32805,0)
;;=D68.9^^99^1352^11
;;^UTILITY(U,$J,358.3,32805,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32805,1,3,0)
;;=3^Coagulation Defect,Unspec
;;^UTILITY(U,$J,358.3,32805,1,4,0)
;;=4^D68.9
;;^UTILITY(U,$J,358.3,32805,2)
;;=^5002364
;;^UTILITY(U,$J,358.3,32806,0)
;;=D68.8^^99^1352^12
;;^UTILITY(U,$J,358.3,32806,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32806,1,3,0)
;;=3^Coagulation Defects,Other Spec
;;^UTILITY(U,$J,358.3,32806,1,4,0)
;;=4^D68.8
;;^UTILITY(U,$J,358.3,32806,2)
;;=^5002363
;;^UTILITY(U,$J,358.3,32807,0)
;;=D68.318^^99^1352^13
;;^UTILITY(U,$J,358.3,32807,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32807,1,3,0)
;;=3^Hemorrhagic Disorder d/t Intrinsic Circ Anticoagulants
;;^UTILITY(U,$J,358.3,32807,1,4,0)
;;=4^D68.318
;;^UTILITY(U,$J,358.3,32807,2)
;;=^340504
;;^UTILITY(U,$J,358.3,32808,0)
;;=Z79.01^^99^1352^14
;;^UTILITY(U,$J,358.3,32808,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32808,1,3,0)
;;=3^Long Term (Current) Use of Anticoagulants
;;^UTILITY(U,$J,358.3,32808,1,4,0)
;;=4^Z79.01
;;^UTILITY(U,$J,358.3,32808,2)
;;=^5063330
;;^UTILITY(U,$J,358.3,32809,0)
;;=Z79.02^^99^1352^15
;;^UTILITY(U,$J,358.3,32809,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32809,1,3,0)
;;=3^Long Term (Current) use of Antithrombotics/Antiplatelets
;;^UTILITY(U,$J,358.3,32809,1,4,0)
;;=4^Z79.02
;;^UTILITY(U,$J,358.3,32809,2)
;;=^5063331
;;^UTILITY(U,$J,358.3,32810,0)
;;=D68.62^^99^1352^16
;;^UTILITY(U,$J,358.3,32810,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32810,1,3,0)
;;=3^Lupus Anticoagulant Syndrome
;;^UTILITY(U,$J,358.3,32810,1,4,0)
;;=4^D68.62
;;^UTILITY(U,$J,358.3,32810,2)
;;=^5002361
;;^UTILITY(U,$J,358.3,32811,0)
;;=I73.9^^99^1352^17
;;^UTILITY(U,$J,358.3,32811,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32811,1,3,0)
;;=3^Peripheral Vascular Disease,Unspec
;;^UTILITY(U,$J,358.3,32811,1,4,0)
;;=4^I73.9
;;^UTILITY(U,$J,358.3,32811,2)
;;=^184182
;;^UTILITY(U,$J,358.3,32812,0)
;;=Z86.79^^99^1352^18
;;^UTILITY(U,$J,358.3,32812,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32812,1,3,0)
;;=3^Personal Hx of Circulatory System Diseases
;;^UTILITY(U,$J,358.3,32812,1,4,0)
;;=4^Z86.79
;;^UTILITY(U,$J,358.3,32812,2)
;;=^5063479
;;^UTILITY(U,$J,358.3,32813,0)
;;=Z86.711^^99^1352^19
;;^UTILITY(U,$J,358.3,32813,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32813,1,3,0)
;;=3^Personal Hx of Pulmonary Embolism
;;^UTILITY(U,$J,358.3,32813,1,4,0)
;;=4^Z86.711
;;^UTILITY(U,$J,358.3,32813,2)
;;=^5063474
;;^UTILITY(U,$J,358.3,32814,0)
;;=Z86.718^^99^1352^20
;;^UTILITY(U,$J,358.3,32814,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32814,1,3,0)
;;=3^Personal Hx of Venous Thrombosis/Embolism
;;^UTILITY(U,$J,358.3,32814,1,4,0)
;;=4^Z86.718
;;^UTILITY(U,$J,358.3,32814,2)
;;=^5063475
;;^UTILITY(U,$J,358.3,32815,0)
;;=Z95.2^^99^1352^21
;;^UTILITY(U,$J,358.3,32815,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32815,1,3,0)
;;=3^Presence of Prosthetic Heart Valve
;;^UTILITY(U,$J,358.3,32815,1,4,0)
;;=4^Z95.2
;;^UTILITY(U,$J,358.3,32815,2)
;;=^5063670
;;^UTILITY(U,$J,358.3,32816,0)
;;=D68.59^^99^1352^22
;;^UTILITY(U,$J,358.3,32816,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32816,1,3,0)
;;=3^Primary Thrombophilia
;;^UTILITY(U,$J,358.3,32816,1,4,0)
;;=4^D68.59
;;^UTILITY(U,$J,358.3,32816,2)
;;=^5002360
;;^UTILITY(U,$J,358.3,32817,0)
;;=I26.99^^99^1352^23
;;^UTILITY(U,$J,358.3,32817,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32817,1,3,0)
;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale
;;^UTILITY(U,$J,358.3,32817,1,4,0)
;;=4^I26.99
;;^UTILITY(U,$J,358.3,32817,2)
;;=^5007150
;;^UTILITY(U,$J,358.3,32818,0)
;;=I42.5^^99^1352^24
;;^UTILITY(U,$J,358.3,32818,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32818,1,3,0)
;;=3^Restrictive Cardiomyopathy
;;^UTILITY(U,$J,358.3,32818,1,4,0)
;;=4^I42.5
;;^UTILITY(U,$J,358.3,32818,2)
;;=^5007196
;;^UTILITY(U,$J,358.3,32819,0)
;;=G45.9^^99^1352^26
;;^UTILITY(U,$J,358.3,32819,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32819,1,3,0)
;;=3^Transient Cerebral Ischemic Attack,Unspec
;;^UTILITY(U,$J,358.3,32819,1,4,0)
;;=4^G45.9
;;^UTILITY(U,$J,358.3,32819,2)
;;=^5003959
;;^UTILITY(U,$J,358.3,32820,0)
;;=I82.891^^99^1352^9
;;^UTILITY(U,$J,358.3,32820,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32820,1,3,0)
;;=3^Chronic Embolism/Thrombosis,Specified Veins
;;^UTILITY(U,$J,358.3,32820,1,4,0)
;;=4^I82.891
;;^UTILITY(U,$J,358.3,32820,2)
;;=^5007939
;;^UTILITY(U,$J,358.3,32821,0)
;;=I82.90^^99^1352^5
;;^UTILITY(U,$J,358.3,32821,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32821,1,3,0)
;;=3^Acute Embolism/Thrombosis,Unspec Vein
;;^UTILITY(U,$J,358.3,32821,1,4,0)
;;=4^I82.90
;;^UTILITY(U,$J,358.3,32821,2)
;;=^5007940
;;^UTILITY(U,$J,358.3,32822,0)
;;=R45.851^^99^1353^3
;;^UTILITY(U,$J,358.3,32822,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32822,1,3,0)
;;=3^Suicidal Ideations
;;^UTILITY(U,$J,358.3,32822,1,4,0)
;;=4^R45.851
;;^UTILITY(U,$J,358.3,32822,2)
;;=^5019474
;;^UTILITY(U,$J,358.3,32823,0)
;;=T14.91XA^^99^1353^4
;;^UTILITY(U,$J,358.3,32823,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32823,1,3,0)
;;=3^Suicide Attempt,Initial Encntr
;;^UTILITY(U,$J,358.3,32823,1,4,0)
;;=4^T14.91XA
;;^UTILITY(U,$J,358.3,32823,2)
;;=^5151779
;;^UTILITY(U,$J,358.3,32824,0)
;;=T14.91XD^^99^1353^6
;;^UTILITY(U,$J,358.3,32824,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32824,1,3,0)
;;=3^Suicide Attempt,Subsequent Encntr
;;^UTILITY(U,$J,358.3,32824,1,4,0)
;;=4^T14.91XD
;;^UTILITY(U,$J,358.3,32824,2)
;;=^5151780
;;^UTILITY(U,$J,358.3,32825,0)
;;=T14.91XS^^99^1353^5
;;^UTILITY(U,$J,358.3,32825,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32825,1,3,0)
;;=3^Suicide Attempt,Sequela
;;^UTILITY(U,$J,358.3,32825,1,4,0)
;;=4^T14.91XS
;;^UTILITY(U,$J,358.3,32825,2)
;;=^5151781
;;^UTILITY(U,$J,358.3,32826,0)
;;=Z91.51^^99^1353^2
;;^UTILITY(U,$J,358.3,32826,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32826,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,32826,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,32826,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,32827,0)
;;=Z91.52^^99^1353^1
;;^UTILITY(U,$J,358.3,32827,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32827,1,3,0)
;;=3^Personal Hx of Non-Suicidal Self-Harm
;;^UTILITY(U,$J,358.3,32827,1,4,0)
;;=4^Z91.52
;;^UTILITY(U,$J,358.3,32827,2)
;;=^5161318
;;^UTILITY(U,$J,358.3,32828,0)
;;=J30.1^^99^1354^5
;;^UTILITY(U,$J,358.3,32828,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32828,1,3,0)
;;=3^Allergic Rhinitis,Pollen
;;^UTILITY(U,$J,358.3,32828,1,4,0)
;;=4^J30.1
;;^UTILITY(U,$J,358.3,32828,2)
;;=^269906
;;^UTILITY(U,$J,358.3,32829,0)
;;=J30.2^^99^1354^3
;;^UTILITY(U,$J,358.3,32829,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32829,1,3,0)
;;=3^Allergic Rhinitis,Oth Seasonal
;;^UTILITY(U,$J,358.3,32829,1,4,0)
;;=4^J30.2
;;^UTILITY(U,$J,358.3,32829,2)
;;=^5008202
;;^UTILITY(U,$J,358.3,32830,0)
;;=J30.81^^99^1354^1
;;^UTILITY(U,$J,358.3,32830,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32830,1,3,0)
;;=3^Allergic Rhinitis,Danders
;;^UTILITY(U,$J,358.3,32830,1,4,0)
;;=4^J30.81
;;^UTILITY(U,$J,358.3,32830,2)
;;=^5008203
;;^UTILITY(U,$J,358.3,32831,0)
;;=J30.89^^99^1354^4
;;^UTILITY(U,$J,358.3,32831,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32831,1,3,0)
;;=3^Allergic Rhinitis,Other
;;^UTILITY(U,$J,358.3,32831,1,4,0)
;;=4^J30.89
;;^UTILITY(U,$J,358.3,32831,2)
;;=^5008204
;;^UTILITY(U,$J,358.3,32832,0)
;;=J30.5^^99^1354^2
;;^UTILITY(U,$J,358.3,32832,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32832,1,3,0)
;;=3^Allergic Rhinitis,Food
;;^UTILITY(U,$J,358.3,32832,1,4,0)
;;=4^J30.5
;;^UTILITY(U,$J,358.3,32832,2)
;;=^321989
;;^UTILITY(U,$J,358.3,32833,0)
;;=J30.9^^99^1354^6
;;^UTILITY(U,$J,358.3,32833,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32833,1,3,0)
;;=3^Allergic Rhinitis,Unspec
;;^UTILITY(U,$J,358.3,32833,1,4,0)
;;=4^J30.9
;;^UTILITY(U,$J,358.3,32833,2)
;;=^5008205
;;^UTILITY(U,$J,358.3,32834,0)
;;=T78.2XXA^^99^1354^40
;;^UTILITY(U,$J,358.3,32834,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32834,1,3,0)
;;=3^Anaphylaxis,Unspec,1st Encntr
;;^UTILITY(U,$J,358.3,32834,1,4,0)
;;=4^T78.2XXA
;;^UTILITY(U,$J,358.3,32834,2)
;;=^5054278
;;^UTILITY(U,$J,358.3,32835,0)
;;=T78.2XXD^^99^1354^42
;;^UTILITY(U,$J,358.3,32835,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32835,1,3,0)
;;=3^Anaphylaxis,Unspec,Subseq Encntr
;;^UTILITY(U,$J,358.3,32835,1,4,0)
;;=4^T78.2XXD
;;^UTILITY(U,$J,358.3,32835,2)
;;=^5054279
;;^UTILITY(U,$J,358.3,32836,0)
;;=T78.2XXS^^99^1354^41
;;^UTILITY(U,$J,358.3,32836,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32836,1,3,0)
;;=3^Anaphylaxis,Unspec,Sequela
;;^UTILITY(U,$J,358.3,32836,1,4,0)
;;=4^T78.2XXS
;;^UTILITY(U,$J,358.3,32836,2)
;;=^5054280
;;^UTILITY(U,$J,358.3,32837,0)
;;=T78.00XA^^99^1354^37
;;^UTILITY(U,$J,358.3,32837,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32837,1,3,0)
;;=3^Anaphylactic Reaction,Unspec Food,1st Encntr
;;^UTILITY(U,$J,358.3,32837,1,4,0)
;;=4^T78.00XA
;;^UTILITY(U,$J,358.3,32837,2)
;;=^5054245
;;^UTILITY(U,$J,358.3,32838,0)
;;=T78.00XD^^99^1354^39
;;^UTILITY(U,$J,358.3,32838,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32838,1,3,0)
;;=3^Anaphylactic Reaction,Unspec Food,Subseq Encntr
;;^UTILITY(U,$J,358.3,32838,1,4,0)
;;=4^T78.00XD
;;^UTILITY(U,$J,358.3,32838,2)
;;=^5054246
;;^UTILITY(U,$J,358.3,32839,0)
;;=T78.00XS^^99^1354^38
;;^UTILITY(U,$J,358.3,32839,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32839,1,3,0)
;;=3^Anaphylactic Reaction,Unspec Food,Sequela
;;^UTILITY(U,$J,358.3,32839,1,4,0)
;;=4^T78.00XS
;;^UTILITY(U,$J,358.3,32839,2)
;;=^5054247
;;^UTILITY(U,$J,358.3,32840,0)
;;=T78.01XA^^99^1354^31
;;^UTILITY(U,$J,358.3,32840,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32840,1,3,0)
;;=3^Anaphylactic Reaction,Peanuts,1st Encntr
;;^UTILITY(U,$J,358.3,32840,1,4,0)
;;=4^T78.01XA
;;^UTILITY(U,$J,358.3,32840,2)
;;=^5054248
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0D2 19754 printed Sep 23, 2025@19:22:17 Page 2
IBDEI0D2 ; ; 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,32773,1,3,0)
+2 ;;=3^Chronic Fatigue Syndrome
+3 ;;^UTILITY(U,$J,358.3,32773,1,4,0)
+4 ;;=4^R53.82
+5 ;;^UTILITY(U,$J,358.3,32773,2)
+6 ;;=^5019519
+7 ;;^UTILITY(U,$J,358.3,32774,0)
+8 ;;=R03.0^^99^1350^21
+9 ;;^UTILITY(U,$J,358.3,32774,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,32774,1,3,0)
+12 ;;=3^Elevated BP w/o Diagnosis of HTN
+13 ;;^UTILITY(U,$J,358.3,32774,1,4,0)
+14 ;;=4^R03.0
+15 ;;^UTILITY(U,$J,358.3,32774,2)
+16 ;;=^5019171
+17 ;;^UTILITY(U,$J,358.3,32775,0)
+18 ;;=R00.2^^99^1350^38
+19 ;;^UTILITY(U,$J,358.3,32775,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,32775,1,3,0)
+22 ;;=3^Palpitations
+23 ;;^UTILITY(U,$J,358.3,32775,1,4,0)
+24 ;;=4^R00.2
+25 ;;^UTILITY(U,$J,358.3,32775,2)
+26 ;;=^5019165
+27 ;;^UTILITY(U,$J,358.3,32776,0)
+28 ;;=M33.20^^99^1350^41
+29 ;;^UTILITY(U,$J,358.3,32776,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,32776,1,3,0)
+32 ;;=3^Polymyositis
+33 ;;^UTILITY(U,$J,358.3,32776,1,4,0)
+34 ;;=4^M33.20
+35 ;;^UTILITY(U,$J,358.3,32776,2)
+36 ;;=^5011770
+37 ;;^UTILITY(U,$J,358.3,32777,0)
+38 ;;=R80.9^^99^1350^46
+39 ;;^UTILITY(U,$J,358.3,32777,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,32777,1,3,0)
+42 ;;=3^Proteinuria
+43 ;;^UTILITY(U,$J,358.3,32777,1,4,0)
+44 ;;=4^R80.9
+45 ;;^UTILITY(U,$J,358.3,32777,2)
+46 ;;=^5019599
+47 ;;^UTILITY(U,$J,358.3,32778,0)
+48 ;;=R76.11^^99^1350^42
+49 ;;^UTILITY(U,$J,358.3,32778,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,32778,1,3,0)
+52 ;;=3^Positive PPD
+53 ;;^UTILITY(U,$J,358.3,32778,1,4,0)
+54 ;;=4^R76.11
+55 ;;^UTILITY(U,$J,358.3,32778,2)
+56 ;;=^5019570
+57 ;;^UTILITY(U,$J,358.3,32779,0)
+58 ;;=M35.00^^99^1350^50
+59 ;;^UTILITY(U,$J,358.3,32779,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,32779,1,3,0)
+62 ;;=3^Sjogren Syndrome,Unspec
+63 ;;^UTILITY(U,$J,358.3,32779,1,4,0)
+64 ;;=4^M35.00
+65 ;;^UTILITY(U,$J,358.3,32779,2)
+66 ;;=^5011786
+67 ;;^UTILITY(U,$J,358.3,32780,0)
+68 ;;=B37.0^^99^1350^56
+69 ;;^UTILITY(U,$J,358.3,32780,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,32780,1,3,0)
+72 ;;=3^Thrush
+73 ;;^UTILITY(U,$J,358.3,32780,1,4,0)
+74 ;;=4^B37.0
+75 ;;^UTILITY(U,$J,358.3,32780,2)
+76 ;;=Thrush^5000612
+77 ;;^UTILITY(U,$J,358.3,32781,0)
+78 ;;=R51.9^^99^1350^27
+79 ;;^UTILITY(U,$J,358.3,32781,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,32781,1,3,0)
+82 ;;=3^Headache,Unspecified
+83 ;;^UTILITY(U,$J,358.3,32781,1,4,0)
+84 ;;=4^R51.9
+85 ;;^UTILITY(U,$J,358.3,32781,2)
+86 ;;=^5159306
+87 ;;^UTILITY(U,$J,358.3,32782,0)
+88 ;;=R51.0^^99^1350^26
+89 ;;^UTILITY(U,$J,358.3,32782,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,32782,1,3,0)
+92 ;;=3^Headache w/ Orthostatic Component,NEC
+93 ;;^UTILITY(U,$J,358.3,32782,1,4,0)
+94 ;;=4^R51.0
+95 ;;^UTILITY(U,$J,358.3,32782,2)
+96 ;;=^5159305
+97 ;;^UTILITY(U,$J,358.3,32783,0)
+98 ;;=R05.9^^99^1350^13
+99 ;;^UTILITY(U,$J,358.3,32783,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,32783,1,3,0)
+102 ;;=3^Cough,Unspec
+103 ;;^UTILITY(U,$J,358.3,32783,1,4,0)
+104 ;;=4^R05.9
+105 ;;^UTILITY(U,$J,358.3,32783,2)
+106 ;;=^5161232
+107 ;;^UTILITY(U,$J,358.3,32784,0)
+108 ;;=I83.91^^99^1351^12
+109 ;;^UTILITY(U,$J,358.3,32784,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,32784,1,3,0)
+112 ;;=3^Varicose Veins,Asymptomatic,Right Lower Extremity
+113 ;;^UTILITY(U,$J,358.3,32784,1,4,0)
+114 ;;=4^I83.91
+115 ;;^UTILITY(U,$J,358.3,32784,2)
+116 ;;=^5008020
+117 ;;^UTILITY(U,$J,358.3,32785,0)
+118 ;;=I83.92^^99^1351^11
+119 ;;^UTILITY(U,$J,358.3,32785,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,32785,1,3,0)
+122 ;;=3^Varicose Veins,Asymptomatic,Left Lower Extremity
+123 ;;^UTILITY(U,$J,358.3,32785,1,4,0)
+124 ;;=4^I83.92
+125 ;;^UTILITY(U,$J,358.3,32785,2)
+126 ;;=^5008021
+127 ;;^UTILITY(U,$J,358.3,32786,0)
+128 ;;=I83.93^^99^1351^10
+129 ;;^UTILITY(U,$J,358.3,32786,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,32786,1,3,0)
+132 ;;=3^Varicose Veins,Asymptomatic,Bilateral Lower Extremities
+133 ;;^UTILITY(U,$J,358.3,32786,1,4,0)
+134 ;;=4^I83.93
+135 ;;^UTILITY(U,$J,358.3,32786,2)
+136 ;;=^5008022
+137 ;;^UTILITY(U,$J,358.3,32787,0)
+138 ;;=I83.019^^99^1351^9
+139 ;;^UTILITY(U,$J,358.3,32787,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,32787,1,3,0)
+142 ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer Unspec Site
+143 ;;^UTILITY(U,$J,358.3,32787,1,4,0)
+144 ;;=4^I83.019
+145 ;;^UTILITY(U,$J,358.3,32787,2)
+146 ;;=^5007979
+147 ;;^UTILITY(U,$J,358.3,32788,0)
+148 ;;=I83.029^^99^1351^8
+149 ;;^UTILITY(U,$J,358.3,32788,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,32788,1,3,0)
+152 ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer Unspec Site
+153 ;;^UTILITY(U,$J,358.3,32788,1,4,0)
+154 ;;=4^I83.029
+155 ;;^UTILITY(U,$J,358.3,32788,2)
+156 ;;=^5007986
+157 ;;^UTILITY(U,$J,358.3,32789,0)
+158 ;;=I71.4^^99^1351^1
+159 ;;^UTILITY(U,$J,358.3,32789,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,32789,1,3,0)
+162 ;;=3^AAA w/o rupture
+163 ;;^UTILITY(U,$J,358.3,32789,1,4,0)
+164 ;;=4^I71.4
+165 ;;^UTILITY(U,$J,358.3,32789,2)
+166 ;;=^5007789
+167 ;;^UTILITY(U,$J,358.3,32790,0)
+168 ;;=I73.9^^99^1351^3
+169 ;;^UTILITY(U,$J,358.3,32790,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,32790,1,3,0)
+172 ;;=3^PVD, unspec
+173 ;;^UTILITY(U,$J,358.3,32790,1,4,0)
+174 ;;=4^I73.9
+175 ;;^UTILITY(U,$J,358.3,32790,2)
+176 ;;=^184182
+177 ;;^UTILITY(U,$J,358.3,32791,0)
+178 ;;=I80.201^^99^1351^4
+179 ;;^UTILITY(U,$J,358.3,32791,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,32791,1,3,0)
+182 ;;=3^Phlebitis & thrombophlebitis deep vessels, right lower extremity
+183 ;;^UTILITY(U,$J,358.3,32791,1,4,0)
+184 ;;=4^I80.201
+185 ;;^UTILITY(U,$J,358.3,32791,2)
+186 ;;=^5007828
+187 ;;^UTILITY(U,$J,358.3,32792,0)
+188 ;;=I80.202^^99^1351^5
+189 ;;^UTILITY(U,$J,358.3,32792,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,32792,1,3,0)
+192 ;;=3^Phlebitis & thrombophlebitis deep vessels, left lower extremities
+193 ;;^UTILITY(U,$J,358.3,32792,1,4,0)
+194 ;;=4^I80.202
+195 ;;^UTILITY(U,$J,358.3,32792,2)
+196 ;;=^5007829
+197 ;;^UTILITY(U,$J,358.3,32793,0)
+198 ;;=I80.203^^99^1351^6
+199 ;;^UTILITY(U,$J,358.3,32793,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,32793,1,3,0)
+202 ;;=3^Phlebitis & thrombophlebitis deep vessels, bilateral lower extremities
+203 ;;^UTILITY(U,$J,358.3,32793,1,4,0)
+204 ;;=4^I80.203
+205 ;;^UTILITY(U,$J,358.3,32793,2)
+206 ;;=^5007830
+207 ;;^UTILITY(U,$J,358.3,32794,0)
+208 ;;=I80.3^^99^1351^7
+209 ;;^UTILITY(U,$J,358.3,32794,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,32794,1,3,0)
+212 ;;=3^Phlebitis & thrombophlebitis of lower extremities, unspec
+213 ;;^UTILITY(U,$J,358.3,32794,1,4,0)
+214 ;;=4^I80.3
+215 ;;^UTILITY(U,$J,358.3,32794,2)
+216 ;;=^5007845
+217 ;;^UTILITY(U,$J,358.3,32795,0)
+218 ;;=I95.9^^99^1351^2
+219 ;;^UTILITY(U,$J,358.3,32795,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,32795,1,3,0)
+222 ;;=3^Hypotension, unspecified
+223 ;;^UTILITY(U,$J,358.3,32795,1,4,0)
+224 ;;=4^I95.9
+225 ;;^UTILITY(U,$J,358.3,32795,2)
+226 ;;=^5008080
+227 ;;^UTILITY(U,$J,358.3,32796,0)
+228 ;;=Z51.81^^99^1352^25
+229 ;;^UTILITY(U,$J,358.3,32796,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,32796,1,3,0)
+232 ;;=3^Therapeutic Drug Level Monitoring
+233 ;;^UTILITY(U,$J,358.3,32796,1,4,0)
+234 ;;=4^Z51.81
+235 ;;^UTILITY(U,$J,358.3,32796,2)
+236 ;;=^5063064
+237 ;;^UTILITY(U,$J,358.3,32797,0)
+238 ;;=D68.51^^99^1352^1
+239 ;;^UTILITY(U,$J,358.3,32797,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,32797,1,3,0)
+242 ;;=3^Activated Protein C Resistance
+243 ;;^UTILITY(U,$J,358.3,32797,1,4,0)
+244 ;;=4^D68.51
+245 ;;^UTILITY(U,$J,358.3,32797,2)
+246 ;;=^5002358
+247 ;;^UTILITY(U,$J,358.3,32798,0)
+248 ;;=I82.402^^99^1352^2
+249 ;;^UTILITY(U,$J,358.3,32798,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,32798,1,3,0)
+252 ;;=3^Acute Embolism/Thrombos Deep Veins Left Lower Extremity
+253 ;;^UTILITY(U,$J,358.3,32798,1,4,0)
+254 ;;=4^I82.402
+255 ;;^UTILITY(U,$J,358.3,32798,2)
+256 ;;=^5007855
+257 ;;^UTILITY(U,$J,358.3,32799,0)
+258 ;;=I82.401^^99^1352^3
+259 ;;^UTILITY(U,$J,358.3,32799,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,32799,1,3,0)
+262 ;;=3^Acute Embolism/Thrombos Deep Veins Right Lower Extremity
+263 ;;^UTILITY(U,$J,358.3,32799,1,4,0)
+264 ;;=4^I82.401
+265 ;;^UTILITY(U,$J,358.3,32799,2)
+266 ;;=^5007854
+267 ;;^UTILITY(U,$J,358.3,32800,0)
+268 ;;=I82.890^^99^1352^4
+269 ;;^UTILITY(U,$J,358.3,32800,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,32800,1,3,0)
+272 ;;=3^Acute Embolism/Thrombosis of Specified Veins
+273 ;;^UTILITY(U,$J,358.3,32800,1,4,0)
+274 ;;=4^I82.890
+275 ;;^UTILITY(U,$J,358.3,32800,2)
+276 ;;=^5007938
+277 ;;^UTILITY(U,$J,358.3,32801,0)
+278 ;;=D68.61^^99^1352^6
+279 ;;^UTILITY(U,$J,358.3,32801,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,32801,1,3,0)
+282 ;;=3^Antiphospholipid Syndrome
+283 ;;^UTILITY(U,$J,358.3,32801,1,4,0)
+284 ;;=4^D68.61
+285 ;;^UTILITY(U,$J,358.3,32801,2)
+286 ;;=^185421
+287 ;;^UTILITY(U,$J,358.3,32802,0)
+288 ;;=I63.50^^99^1352^7
+289 ;;^UTILITY(U,$J,358.3,32802,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,32802,1,3,0)
+292 ;;=3^Cerebral Infarction d/t Occls/Stenos of Cereb Artery
+293 ;;^UTILITY(U,$J,358.3,32802,1,4,0)
+294 ;;=4^I63.50
+295 ;;^UTILITY(U,$J,358.3,32802,2)
+296 ;;=^5007343
+297 ;;^UTILITY(U,$J,358.3,32803,0)
+298 ;;=I82.91^^99^1352^8
+299 ;;^UTILITY(U,$J,358.3,32803,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,32803,1,3,0)
+302 ;;=3^Chronic Embolism/Thrombosis Unspec Vein
+303 ;;^UTILITY(U,$J,358.3,32803,1,4,0)
+304 ;;=4^I82.91
+305 ;;^UTILITY(U,$J,358.3,32803,2)
+306 ;;=^5007941
+307 ;;^UTILITY(U,$J,358.3,32804,0)
+308 ;;=I25.9^^99^1352^10
+309 ;;^UTILITY(U,$J,358.3,32804,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,32804,1,3,0)
+312 ;;=3^Chronic Ischemic Heart Disease,Unspec
+313 ;;^UTILITY(U,$J,358.3,32804,1,4,0)
+314 ;;=4^I25.9
+315 ;;^UTILITY(U,$J,358.3,32804,2)
+316 ;;=^5007144
+317 ;;^UTILITY(U,$J,358.3,32805,0)
+318 ;;=D68.9^^99^1352^11
+319 ;;^UTILITY(U,$J,358.3,32805,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,32805,1,3,0)
+322 ;;=3^Coagulation Defect,Unspec
+323 ;;^UTILITY(U,$J,358.3,32805,1,4,0)
+324 ;;=4^D68.9
+325 ;;^UTILITY(U,$J,358.3,32805,2)
+326 ;;=^5002364
+327 ;;^UTILITY(U,$J,358.3,32806,0)
+328 ;;=D68.8^^99^1352^12
+329 ;;^UTILITY(U,$J,358.3,32806,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,32806,1,3,0)
+332 ;;=3^Coagulation Defects,Other Spec
+333 ;;^UTILITY(U,$J,358.3,32806,1,4,0)
+334 ;;=4^D68.8
+335 ;;^UTILITY(U,$J,358.3,32806,2)
+336 ;;=^5002363
+337 ;;^UTILITY(U,$J,358.3,32807,0)
+338 ;;=D68.318^^99^1352^13
+339 ;;^UTILITY(U,$J,358.3,32807,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,32807,1,3,0)
+342 ;;=3^Hemorrhagic Disorder d/t Intrinsic Circ Anticoagulants
+343 ;;^UTILITY(U,$J,358.3,32807,1,4,0)
+344 ;;=4^D68.318
+345 ;;^UTILITY(U,$J,358.3,32807,2)
+346 ;;=^340504
+347 ;;^UTILITY(U,$J,358.3,32808,0)
+348 ;;=Z79.01^^99^1352^14
+349 ;;^UTILITY(U,$J,358.3,32808,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,32808,1,3,0)
+352 ;;=3^Long Term (Current) Use of Anticoagulants
+353 ;;^UTILITY(U,$J,358.3,32808,1,4,0)
+354 ;;=4^Z79.01
+355 ;;^UTILITY(U,$J,358.3,32808,2)
+356 ;;=^5063330
+357 ;;^UTILITY(U,$J,358.3,32809,0)
+358 ;;=Z79.02^^99^1352^15
+359 ;;^UTILITY(U,$J,358.3,32809,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,32809,1,3,0)
+362 ;;=3^Long Term (Current) use of Antithrombotics/Antiplatelets
+363 ;;^UTILITY(U,$J,358.3,32809,1,4,0)
+364 ;;=4^Z79.02
+365 ;;^UTILITY(U,$J,358.3,32809,2)
+366 ;;=^5063331
+367 ;;^UTILITY(U,$J,358.3,32810,0)
+368 ;;=D68.62^^99^1352^16
+369 ;;^UTILITY(U,$J,358.3,32810,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,32810,1,3,0)
+372 ;;=3^Lupus Anticoagulant Syndrome
+373 ;;^UTILITY(U,$J,358.3,32810,1,4,0)
+374 ;;=4^D68.62
+375 ;;^UTILITY(U,$J,358.3,32810,2)
+376 ;;=^5002361
+377 ;;^UTILITY(U,$J,358.3,32811,0)
+378 ;;=I73.9^^99^1352^17
+379 ;;^UTILITY(U,$J,358.3,32811,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,32811,1,3,0)
+382 ;;=3^Peripheral Vascular Disease,Unspec
+383 ;;^UTILITY(U,$J,358.3,32811,1,4,0)
+384 ;;=4^I73.9
+385 ;;^UTILITY(U,$J,358.3,32811,2)
+386 ;;=^184182
+387 ;;^UTILITY(U,$J,358.3,32812,0)
+388 ;;=Z86.79^^99^1352^18
+389 ;;^UTILITY(U,$J,358.3,32812,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,32812,1,3,0)
+392 ;;=3^Personal Hx of Circulatory System Diseases
+393 ;;^UTILITY(U,$J,358.3,32812,1,4,0)
+394 ;;=4^Z86.79
+395 ;;^UTILITY(U,$J,358.3,32812,2)
+396 ;;=^5063479
+397 ;;^UTILITY(U,$J,358.3,32813,0)
+398 ;;=Z86.711^^99^1352^19
+399 ;;^UTILITY(U,$J,358.3,32813,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,32813,1,3,0)
+402 ;;=3^Personal Hx of Pulmonary Embolism
+403 ;;^UTILITY(U,$J,358.3,32813,1,4,0)
+404 ;;=4^Z86.711
+405 ;;^UTILITY(U,$J,358.3,32813,2)
+406 ;;=^5063474
+407 ;;^UTILITY(U,$J,358.3,32814,0)
+408 ;;=Z86.718^^99^1352^20
+409 ;;^UTILITY(U,$J,358.3,32814,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,32814,1,3,0)
+412 ;;=3^Personal Hx of Venous Thrombosis/Embolism
+413 ;;^UTILITY(U,$J,358.3,32814,1,4,0)
+414 ;;=4^Z86.718
+415 ;;^UTILITY(U,$J,358.3,32814,2)
+416 ;;=^5063475
+417 ;;^UTILITY(U,$J,358.3,32815,0)
+418 ;;=Z95.2^^99^1352^21
+419 ;;^UTILITY(U,$J,358.3,32815,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,32815,1,3,0)
+422 ;;=3^Presence of Prosthetic Heart Valve
+423 ;;^UTILITY(U,$J,358.3,32815,1,4,0)
+424 ;;=4^Z95.2
+425 ;;^UTILITY(U,$J,358.3,32815,2)
+426 ;;=^5063670
+427 ;;^UTILITY(U,$J,358.3,32816,0)
+428 ;;=D68.59^^99^1352^22
+429 ;;^UTILITY(U,$J,358.3,32816,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,32816,1,3,0)
+432 ;;=3^Primary Thrombophilia
+433 ;;^UTILITY(U,$J,358.3,32816,1,4,0)
+434 ;;=4^D68.59
+435 ;;^UTILITY(U,$J,358.3,32816,2)
+436 ;;=^5002360
+437 ;;^UTILITY(U,$J,358.3,32817,0)
+438 ;;=I26.99^^99^1352^23
+439 ;;^UTILITY(U,$J,358.3,32817,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,32817,1,3,0)
+442 ;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale
+443 ;;^UTILITY(U,$J,358.3,32817,1,4,0)
+444 ;;=4^I26.99
+445 ;;^UTILITY(U,$J,358.3,32817,2)
+446 ;;=^5007150
+447 ;;^UTILITY(U,$J,358.3,32818,0)
+448 ;;=I42.5^^99^1352^24
+449 ;;^UTILITY(U,$J,358.3,32818,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,32818,1,3,0)
+452 ;;=3^Restrictive Cardiomyopathy
+453 ;;^UTILITY(U,$J,358.3,32818,1,4,0)
+454 ;;=4^I42.5
+455 ;;^UTILITY(U,$J,358.3,32818,2)
+456 ;;=^5007196
+457 ;;^UTILITY(U,$J,358.3,32819,0)
+458 ;;=G45.9^^99^1352^26
+459 ;;^UTILITY(U,$J,358.3,32819,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,32819,1,3,0)
+462 ;;=3^Transient Cerebral Ischemic Attack,Unspec
+463 ;;^UTILITY(U,$J,358.3,32819,1,4,0)
+464 ;;=4^G45.9
+465 ;;^UTILITY(U,$J,358.3,32819,2)
+466 ;;=^5003959
+467 ;;^UTILITY(U,$J,358.3,32820,0)
+468 ;;=I82.891^^99^1352^9
+469 ;;^UTILITY(U,$J,358.3,32820,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,32820,1,3,0)
+472 ;;=3^Chronic Embolism/Thrombosis,Specified Veins
+473 ;;^UTILITY(U,$J,358.3,32820,1,4,0)
+474 ;;=4^I82.891
+475 ;;^UTILITY(U,$J,358.3,32820,2)
+476 ;;=^5007939
+477 ;;^UTILITY(U,$J,358.3,32821,0)
+478 ;;=I82.90^^99^1352^5
+479 ;;^UTILITY(U,$J,358.3,32821,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,32821,1,3,0)
+482 ;;=3^Acute Embolism/Thrombosis,Unspec Vein
+483 ;;^UTILITY(U,$J,358.3,32821,1,4,0)
+484 ;;=4^I82.90
+485 ;;^UTILITY(U,$J,358.3,32821,2)
+486 ;;=^5007940
+487 ;;^UTILITY(U,$J,358.3,32822,0)
+488 ;;=R45.851^^99^1353^3
+489 ;;^UTILITY(U,$J,358.3,32822,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,32822,1,3,0)
+492 ;;=3^Suicidal Ideations
+493 ;;^UTILITY(U,$J,358.3,32822,1,4,0)
+494 ;;=4^R45.851
+495 ;;^UTILITY(U,$J,358.3,32822,2)
+496 ;;=^5019474
+497 ;;^UTILITY(U,$J,358.3,32823,0)
+498 ;;=T14.91XA^^99^1353^4
+499 ;;^UTILITY(U,$J,358.3,32823,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,32823,1,3,0)
+502 ;;=3^Suicide Attempt,Initial Encntr
+503 ;;^UTILITY(U,$J,358.3,32823,1,4,0)
+504 ;;=4^T14.91XA
+505 ;;^UTILITY(U,$J,358.3,32823,2)
+506 ;;=^5151779
+507 ;;^UTILITY(U,$J,358.3,32824,0)
+508 ;;=T14.91XD^^99^1353^6
+509 ;;^UTILITY(U,$J,358.3,32824,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,32824,1,3,0)
+512 ;;=3^Suicide Attempt,Subsequent Encntr
+513 ;;^UTILITY(U,$J,358.3,32824,1,4,0)
+514 ;;=4^T14.91XD
+515 ;;^UTILITY(U,$J,358.3,32824,2)
+516 ;;=^5151780
+517 ;;^UTILITY(U,$J,358.3,32825,0)
+518 ;;=T14.91XS^^99^1353^5
+519 ;;^UTILITY(U,$J,358.3,32825,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,32825,1,3,0)
+522 ;;=3^Suicide Attempt,Sequela
+523 ;;^UTILITY(U,$J,358.3,32825,1,4,0)
+524 ;;=4^T14.91XS
+525 ;;^UTILITY(U,$J,358.3,32825,2)
+526 ;;=^5151781
+527 ;;^UTILITY(U,$J,358.3,32826,0)
+528 ;;=Z91.51^^99^1353^2
+529 ;;^UTILITY(U,$J,358.3,32826,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,32826,1,3,0)
+532 ;;=3^Personal Hx of Suicidal Behavior
+533 ;;^UTILITY(U,$J,358.3,32826,1,4,0)
+534 ;;=4^Z91.51
+535 ;;^UTILITY(U,$J,358.3,32826,2)
+536 ;;=^5161317
+537 ;;^UTILITY(U,$J,358.3,32827,0)
+538 ;;=Z91.52^^99^1353^1
+539 ;;^UTILITY(U,$J,358.3,32827,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,32827,1,3,0)
+542 ;;=3^Personal Hx of Non-Suicidal Self-Harm
+543 ;;^UTILITY(U,$J,358.3,32827,1,4,0)
+544 ;;=4^Z91.52
+545 ;;^UTILITY(U,$J,358.3,32827,2)
+546 ;;=^5161318
+547 ;;^UTILITY(U,$J,358.3,32828,0)
+548 ;;=J30.1^^99^1354^5
+549 ;;^UTILITY(U,$J,358.3,32828,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,32828,1,3,0)
+552 ;;=3^Allergic Rhinitis,Pollen
+553 ;;^UTILITY(U,$J,358.3,32828,1,4,0)
+554 ;;=4^J30.1
+555 ;;^UTILITY(U,$J,358.3,32828,2)
+556 ;;=^269906
+557 ;;^UTILITY(U,$J,358.3,32829,0)
+558 ;;=J30.2^^99^1354^3
+559 ;;^UTILITY(U,$J,358.3,32829,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,32829,1,3,0)
+562 ;;=3^Allergic Rhinitis,Oth Seasonal
+563 ;;^UTILITY(U,$J,358.3,32829,1,4,0)
+564 ;;=4^J30.2
+565 ;;^UTILITY(U,$J,358.3,32829,2)
+566 ;;=^5008202
+567 ;;^UTILITY(U,$J,358.3,32830,0)
+568 ;;=J30.81^^99^1354^1
+569 ;;^UTILITY(U,$J,358.3,32830,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,32830,1,3,0)
+572 ;;=3^Allergic Rhinitis,Danders
+573 ;;^UTILITY(U,$J,358.3,32830,1,4,0)
+574 ;;=4^J30.81
+575 ;;^UTILITY(U,$J,358.3,32830,2)
+576 ;;=^5008203
+577 ;;^UTILITY(U,$J,358.3,32831,0)
+578 ;;=J30.89^^99^1354^4
+579 ;;^UTILITY(U,$J,358.3,32831,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,32831,1,3,0)
+582 ;;=3^Allergic Rhinitis,Other
+583 ;;^UTILITY(U,$J,358.3,32831,1,4,0)
+584 ;;=4^J30.89
+585 ;;^UTILITY(U,$J,358.3,32831,2)
+586 ;;=^5008204
+587 ;;^UTILITY(U,$J,358.3,32832,0)
+588 ;;=J30.5^^99^1354^2
+589 ;;^UTILITY(U,$J,358.3,32832,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,32832,1,3,0)
+592 ;;=3^Allergic Rhinitis,Food
+593 ;;^UTILITY(U,$J,358.3,32832,1,4,0)
+594 ;;=4^J30.5
+595 ;;^UTILITY(U,$J,358.3,32832,2)
+596 ;;=^321989
+597 ;;^UTILITY(U,$J,358.3,32833,0)
+598 ;;=J30.9^^99^1354^6
+599 ;;^UTILITY(U,$J,358.3,32833,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,32833,1,3,0)
+602 ;;=3^Allergic Rhinitis,Unspec
+603 ;;^UTILITY(U,$J,358.3,32833,1,4,0)
+604 ;;=4^J30.9
+605 ;;^UTILITY(U,$J,358.3,32833,2)
+606 ;;=^5008205
+607 ;;^UTILITY(U,$J,358.3,32834,0)
+608 ;;=T78.2XXA^^99^1354^40
+609 ;;^UTILITY(U,$J,358.3,32834,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,32834,1,3,0)
+612 ;;=3^Anaphylaxis,Unspec,1st Encntr
+613 ;;^UTILITY(U,$J,358.3,32834,1,4,0)
+614 ;;=4^T78.2XXA
+615 ;;^UTILITY(U,$J,358.3,32834,2)
+616 ;;=^5054278
+617 ;;^UTILITY(U,$J,358.3,32835,0)
+618 ;;=T78.2XXD^^99^1354^42
+619 ;;^UTILITY(U,$J,358.3,32835,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,32835,1,3,0)
+622 ;;=3^Anaphylaxis,Unspec,Subseq Encntr
+623 ;;^UTILITY(U,$J,358.3,32835,1,4,0)
+624 ;;=4^T78.2XXD
+625 ;;^UTILITY(U,$J,358.3,32835,2)
+626 ;;=^5054279
+627 ;;^UTILITY(U,$J,358.3,32836,0)
+628 ;;=T78.2XXS^^99^1354^41
+629 ;;^UTILITY(U,$J,358.3,32836,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,32836,1,3,0)
+632 ;;=3^Anaphylaxis,Unspec,Sequela
+633 ;;^UTILITY(U,$J,358.3,32836,1,4,0)
+634 ;;=4^T78.2XXS
+635 ;;^UTILITY(U,$J,358.3,32836,2)
+636 ;;=^5054280
+637 ;;^UTILITY(U,$J,358.3,32837,0)
+638 ;;=T78.00XA^^99^1354^37
+639 ;;^UTILITY(U,$J,358.3,32837,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,32837,1,3,0)
+642 ;;=3^Anaphylactic Reaction,Unspec Food,1st Encntr
+643 ;;^UTILITY(U,$J,358.3,32837,1,4,0)
+644 ;;=4^T78.00XA
+645 ;;^UTILITY(U,$J,358.3,32837,2)
+646 ;;=^5054245
+647 ;;^UTILITY(U,$J,358.3,32838,0)
+648 ;;=T78.00XD^^99^1354^39
+649 ;;^UTILITY(U,$J,358.3,32838,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,32838,1,3,0)
+652 ;;=3^Anaphylactic Reaction,Unspec Food,Subseq Encntr
+653 ;;^UTILITY(U,$J,358.3,32838,1,4,0)
+654 ;;=4^T78.00XD
+655 ;;^UTILITY(U,$J,358.3,32838,2)
+656 ;;=^5054246
+657 ;;^UTILITY(U,$J,358.3,32839,0)
+658 ;;=T78.00XS^^99^1354^38
+659 ;;^UTILITY(U,$J,358.3,32839,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,32839,1,3,0)
+662 ;;=3^Anaphylactic Reaction,Unspec Food,Sequela
+663 ;;^UTILITY(U,$J,358.3,32839,1,4,0)
+664 ;;=4^T78.00XS
+665 ;;^UTILITY(U,$J,358.3,32839,2)
+666 ;;=^5054247
+667 ;;^UTILITY(U,$J,358.3,32840,0)
+668 ;;=T78.01XA^^99^1354^31
+669 ;;^UTILITY(U,$J,358.3,32840,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,32840,1,3,0)
+672 ;;=3^Anaphylactic Reaction,Peanuts,1st Encntr
+673 ;;^UTILITY(U,$J,358.3,32840,1,4,0)
+674 ;;=4^T78.01XA
+675 ;;^UTILITY(U,$J,358.3,32840,2)
+676 ;;=^5054248
