IBDEI05X ; ; 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,14347,1,2,0)
;;=2^12011
;;^UTILITY(U,$J,358.3,14347,1,3,0)
;;=3^Simple repair; 2.5 cm or less
;;^UTILITY(U,$J,358.3,14348,0)
;;=12013^^55^620^2^^^^1
;;^UTILITY(U,$J,358.3,14348,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14348,1,2,0)
;;=2^12013
;;^UTILITY(U,$J,358.3,14348,1,3,0)
;;=3^Simple repair; 2.6 cm to 5.0 cm
;;^UTILITY(U,$J,358.3,14349,0)
;;=12014^^55^620^3^^^^1
;;^UTILITY(U,$J,358.3,14349,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14349,1,2,0)
;;=2^12014
;;^UTILITY(U,$J,358.3,14349,1,3,0)
;;=3^Simple repair; 5.1 cm to 7.5 cm
;;^UTILITY(U,$J,358.3,14350,0)
;;=12015^^55^620^4^^^^1
;;^UTILITY(U,$J,358.3,14350,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14350,1,2,0)
;;=2^12015
;;^UTILITY(U,$J,358.3,14350,1,3,0)
;;=3^Simple repair; 7.6 cm to 12.5 cm
;;^UTILITY(U,$J,358.3,14351,0)
;;=12016^^55^620^5^^^^1
;;^UTILITY(U,$J,358.3,14351,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14351,1,2,0)
;;=2^12016
;;^UTILITY(U,$J,358.3,14351,1,3,0)
;;=3^Simple repair; 12.6 cm to 20 cm
;;^UTILITY(U,$J,358.3,14352,0)
;;=12017^^55^620^6^^^^1
;;^UTILITY(U,$J,358.3,14352,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14352,1,2,0)
;;=2^12017
;;^UTILITY(U,$J,358.3,14352,1,3,0)
;;=3^Simple repair; 20.1 cm to 30 cm
;;^UTILITY(U,$J,358.3,14353,0)
;;=12018^^55^620^7^^^^1
;;^UTILITY(U,$J,358.3,14353,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14353,1,2,0)
;;=2^12018
;;^UTILITY(U,$J,358.3,14353,1,3,0)
;;=3^Simple repair; over 30 cm
;;^UTILITY(U,$J,358.3,14354,0)
;;=90471^^55^621^1^^^^1
;;^UTILITY(U,$J,358.3,14354,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14354,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,14354,1,3,0)
;;=3^Immunization Admin,1st Vaccine
;;^UTILITY(U,$J,358.3,14355,0)
;;=90472^^55^621^2^^^^1
;;^UTILITY(U,$J,358.3,14355,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14355,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,14355,1,3,0)
;;=3^Immunization Admin,Ea Addl Vacc
;;^UTILITY(U,$J,358.3,14356,0)
;;=99409^^55^622^2^^^^1
;;^UTILITY(U,$J,358.3,14356,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14356,1,2,0)
;;=2^99409
;;^UTILITY(U,$J,358.3,14356,1,3,0)
;;=3^Audit/DAS 15-30 min
;;^UTILITY(U,$J,358.3,14357,0)
;;=99408^^55^622^1^^^^1
;;^UTILITY(U,$J,358.3,14357,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14357,1,2,0)
;;=2^99408
;;^UTILITY(U,$J,358.3,14357,1,3,0)
;;=3^Alcohol/Subst Abuse Screen 15-30 min
;;^UTILITY(U,$J,358.3,14358,0)
;;=99406^^55^622^3^^^^1
;;^UTILITY(U,$J,358.3,14358,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14358,1,2,0)
;;=2^99406
;;^UTILITY(U,$J,358.3,14358,1,3,0)
;;=3^Behav Chng Smoking 3-10 min
;;^UTILITY(U,$J,358.3,14359,0)
;;=99407^^55^622^4^^^^1
;;^UTILITY(U,$J,358.3,14359,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14359,1,2,0)
;;=2^99407
;;^UTILITY(U,$J,358.3,14359,1,3,0)
;;=3^Behav Chng Smoking > 10 min
;;^UTILITY(U,$J,358.3,14360,0)
;;=99497^^55^623^1^^^^1
;;^UTILITY(U,$J,358.3,14360,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14360,1,2,0)
;;=2^99497
;;^UTILITY(U,$J,358.3,14360,1,3,0)
;;=3^Adv Care Plan w/ Pt/Fam by MD/QHP,1st 30 min
;;^UTILITY(U,$J,358.3,14361,0)
;;=99498^^55^623^2^^^^1
;;^UTILITY(U,$J,358.3,14361,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14361,1,2,0)
;;=2^99498
;;^UTILITY(U,$J,358.3,14361,1,3,0)
;;=3^Adv Care Plan w/ Pt/Fam by MD/QHP,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,14362,0)
;;=99395^^55^624^1^^^^1
;;^UTILITY(U,$J,358.3,14362,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14362,1,2,0)
;;=2^99395
;;^UTILITY(U,$J,358.3,14362,1,3,0)
;;=3^Preventive Med,Est Pt,18-39
;;^UTILITY(U,$J,358.3,14363,0)
;;=99396^^55^624^2^^^^1
;;^UTILITY(U,$J,358.3,14363,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14363,1,2,0)
;;=2^99396
;;^UTILITY(U,$J,358.3,14363,1,3,0)
;;=3^Preventive Med,Est Pt,40-64
;;^UTILITY(U,$J,358.3,14364,0)
;;=99397^^55^624^3^^^^1
;;^UTILITY(U,$J,358.3,14364,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14364,1,2,0)
;;=2^99397
;;^UTILITY(U,$J,358.3,14364,1,3,0)
;;=3^Preventive Med,Est Pt > 64
;;^UTILITY(U,$J,358.3,14365,0)
;;=99385^^55^625^1^^^^1
;;^UTILITY(U,$J,358.3,14365,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14365,1,2,0)
;;=2^99385
;;^UTILITY(U,$J,358.3,14365,1,3,0)
;;=3^Preventive Med,New Pt,18-39
;;^UTILITY(U,$J,358.3,14366,0)
;;=99386^^55^625^2^^^^1
;;^UTILITY(U,$J,358.3,14366,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14366,1,2,0)
;;=2^99386
;;^UTILITY(U,$J,358.3,14366,1,3,0)
;;=3^Preventive Med,New Pt,40-64
;;^UTILITY(U,$J,358.3,14367,0)
;;=99387^^55^625^3^^^^1
;;^UTILITY(U,$J,358.3,14367,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14367,1,2,0)
;;=2^99387
;;^UTILITY(U,$J,358.3,14367,1,3,0)
;;=3^Preventive Med,New Pt > 64
;;^UTILITY(U,$J,358.3,14368,0)
;;=99452^^55^626^1^^^^1
;;^UTILITY(U,$J,358.3,14368,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14368,1,2,0)
;;=2^99452
;;^UTILITY(U,$J,358.3,14368,1,3,0)
;;=3^E-Consult Results/Discussion with Patient
;;^UTILITY(U,$J,358.3,14369,0)
;;=Q0243^^55^627^3^^^^1
;;^UTILITY(U,$J,358.3,14369,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14369,1,2,0)
;;=2^Q0243
;;^UTILITY(U,$J,358.3,14369,1,3,0)
;;=3^Casirivimab & Imdevimab 2400mg
;;^UTILITY(U,$J,358.3,14370,0)
;;=M0243^^55^627^4^^^^1
;;^UTILITY(U,$J,358.3,14370,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14370,1,2,0)
;;=2^M0243
;;^UTILITY(U,$J,358.3,14370,1,3,0)
;;=3^Casirivimab & Imdevimab Infusion
;;^UTILITY(U,$J,358.3,14371,0)
;;=M0245^^55^627^1^^^^1
;;^UTILITY(U,$J,358.3,14371,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14371,1,2,0)
;;=2^M0245
;;^UTILITY(U,$J,358.3,14371,1,3,0)
;;=3^Bamlanivimab Infusion w/ Post Admin Monitoring
;;^UTILITY(U,$J,358.3,14372,0)
;;=Q0245^^55^627^2^^^^1
;;^UTILITY(U,$J,358.3,14372,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14372,1,2,0)
;;=2^Q0245
;;^UTILITY(U,$J,358.3,14372,1,3,0)
;;=3^Bamlanivivab 700mg
;;^UTILITY(U,$J,358.3,14373,0)
;;=99417^^55^628^1^^^^1
;;^UTILITY(U,$J,358.3,14373,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,14373,1,2,0)
;;=2^99417
;;^UTILITY(U,$J,358.3,14373,1,3,0)
;;=3^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
;;^UTILITY(U,$J,358.3,14374,0)
;;=B18.2^^56^629^40
;;^UTILITY(U,$J,358.3,14374,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14374,1,3,0)
;;=3^Hepatitis C,Chr
;;^UTILITY(U,$J,358.3,14374,1,4,0)
;;=4^B18.2
;;^UTILITY(U,$J,358.3,14374,2)
;;=^5000548
;;^UTILITY(U,$J,358.3,14375,0)
;;=E11.9^^56^629^25
;;^UTILITY(U,$J,358.3,14375,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14375,1,3,0)
;;=3^Diabetes Type 2
;;^UTILITY(U,$J,358.3,14375,1,4,0)
;;=4^E11.9
;;^UTILITY(U,$J,358.3,14375,2)
;;=^5002666
;;^UTILITY(U,$J,358.3,14376,0)
;;=E11.40^^56^629^23
;;^UTILITY(U,$J,358.3,14376,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14376,1,3,0)
;;=3^DM Type 2 w/ Neuropathy
;;^UTILITY(U,$J,358.3,14376,1,4,0)
;;=4^E11.40
;;^UTILITY(U,$J,358.3,14376,2)
;;=^5002644
;;^UTILITY(U,$J,358.3,14377,0)
;;=E78.2^^56^629^41
;;^UTILITY(U,$J,358.3,14377,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14377,1,3,0)
;;=3^Hyperlipidemia,Mixed
;;^UTILITY(U,$J,358.3,14377,1,4,0)
;;=4^E78.2
;;^UTILITY(U,$J,358.3,14377,2)
;;=^78424
;;^UTILITY(U,$J,358.3,14378,0)
;;=E78.5^^56^629^42
;;^UTILITY(U,$J,358.3,14378,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14378,1,3,0)
;;=3^Hyperlipidemia,Unspec
;;^UTILITY(U,$J,358.3,14378,1,4,0)
;;=4^E78.5
;;^UTILITY(U,$J,358.3,14378,2)
;;=^5002969
;;^UTILITY(U,$J,358.3,14379,0)
;;=E66.3^^56^629^59
;;^UTILITY(U,$J,358.3,14379,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14379,1,3,0)
;;=3^Overweight
;;^UTILITY(U,$J,358.3,14379,1,4,0)
;;=4^E66.3
;;^UTILITY(U,$J,358.3,14379,2)
;;=^5002830
;;^UTILITY(U,$J,358.3,14380,0)
;;=F17.200^^56^629^52
;;^UTILITY(U,$J,358.3,14380,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14380,1,3,0)
;;=3^Nicotine Dependence,Unspec
;;^UTILITY(U,$J,358.3,14380,1,4,0)
;;=4^F17.200
;;^UTILITY(U,$J,358.3,14380,2)
;;=^5003360
;;^UTILITY(U,$J,358.3,14381,0)
;;=G43.909^^56^629^50
;;^UTILITY(U,$J,358.3,14381,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14381,1,3,0)
;;=3^Migraine,Unspec
;;^UTILITY(U,$J,358.3,14381,1,4,0)
;;=4^G43.909
;;^UTILITY(U,$J,358.3,14381,2)
;;=^5003909
;;^UTILITY(U,$J,358.3,14382,0)
;;=H91.93^^56^629^36
;;^UTILITY(U,$J,358.3,14382,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14382,1,3,0)
;;=3^Hearing Loss,Bilateral
;;^UTILITY(U,$J,358.3,14382,1,4,0)
;;=4^H91.93
;;^UTILITY(U,$J,358.3,14382,2)
;;=^5006944
;;^UTILITY(U,$J,358.3,14383,0)
;;=I10.^^56^629^43
;;^UTILITY(U,$J,358.3,14383,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14383,1,3,0)
;;=3^Hypertension
;;^UTILITY(U,$J,358.3,14383,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,14383,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,14384,0)
;;=I50.9^^56^629^19
;;^UTILITY(U,$J,358.3,14384,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14384,1,3,0)
;;=3^Congestive Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,14384,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,14384,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,14385,0)
;;=I67.89^^56^629^18
;;^UTILITY(U,$J,358.3,14385,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14385,1,3,0)
;;=3^Cerebrovascular Disease,Oth
;;^UTILITY(U,$J,358.3,14385,1,4,0)
;;=4^I67.89
;;^UTILITY(U,$J,358.3,14385,2)
;;=^5007388
;;^UTILITY(U,$J,358.3,14386,0)
;;=J45.909^^56^629^4
;;^UTILITY(U,$J,358.3,14386,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14386,1,3,0)
;;=3^Asthma,Unspec,Uncomplicated
;;^UTILITY(U,$J,358.3,14386,1,4,0)
;;=4^J45.909
;;^UTILITY(U,$J,358.3,14386,2)
;;=^5008256
;;^UTILITY(U,$J,358.3,14387,0)
;;=J44.9^^56^629^16
;;^UTILITY(U,$J,358.3,14387,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14387,1,3,0)
;;=3^COPD,Unspec
;;^UTILITY(U,$J,358.3,14387,1,4,0)
;;=4^J44.9
;;^UTILITY(U,$J,358.3,14387,2)
;;=^5008241
;;^UTILITY(U,$J,358.3,14388,0)
;;=K21.9^^56^629^31
;;^UTILITY(U,$J,358.3,14388,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14388,1,3,0)
;;=3^GERD w/o Esophagitis
;;^UTILITY(U,$J,358.3,14388,1,4,0)
;;=4^K21.9
;;^UTILITY(U,$J,358.3,14388,2)
;;=^5008505
;;^UTILITY(U,$J,358.3,14389,0)
;;=N40.1^^56^629^29
;;^UTILITY(U,$J,358.3,14389,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14389,1,3,0)
;;=3^Enlarged Prostate w/ LUTS
;;^UTILITY(U,$J,358.3,14389,1,4,0)
;;=4^N40.1
;;^UTILITY(U,$J,358.3,14389,2)
;;=^5015690
;;^UTILITY(U,$J,358.3,14390,0)
;;=L03.818^^56^629^17
;;^UTILITY(U,$J,358.3,14390,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14390,1,3,0)
;;=3^Cellulitis,Oth Sites
;;^UTILITY(U,$J,358.3,14390,1,4,0)
;;=4^L03.818
;;^UTILITY(U,$J,358.3,14390,2)
;;=^5009064
;;^UTILITY(U,$J,358.3,14391,0)
;;=G47.33^^56^629^77
;;^UTILITY(U,$J,358.3,14391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14391,1,3,0)
;;=3^Sleep Apnea,Obstructive
;;^UTILITY(U,$J,358.3,14391,1,4,0)
;;=4^G47.33
;;^UTILITY(U,$J,358.3,14391,2)
;;=^332763
;;^UTILITY(U,$J,358.3,14392,0)
;;=R73.01^^56^629^46
;;^UTILITY(U,$J,358.3,14392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14392,1,3,0)
;;=3^Impaired Fasting Glucose
;;^UTILITY(U,$J,358.3,14392,1,4,0)
;;=4^R73.01
;;^UTILITY(U,$J,358.3,14392,2)
;;=^5019561
;;^UTILITY(U,$J,358.3,14393,0)
;;=R74.8^^56^629^1
;;^UTILITY(U,$J,358.3,14393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14393,1,3,0)
;;=3^Abnormal Levels of Serum Enzymes
;;^UTILITY(U,$J,358.3,14393,1,4,0)
;;=4^R74.8
;;^UTILITY(U,$J,358.3,14393,2)
;;=^5019566
;;^UTILITY(U,$J,358.3,14394,0)
;;=R03.0^^56^629^27
;;^UTILITY(U,$J,358.3,14394,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14394,1,3,0)
;;=3^Elevated BP Reading w/o Diagnosis of HTN
;;^UTILITY(U,$J,358.3,14394,1,4,0)
;;=4^R03.0
;;^UTILITY(U,$J,358.3,14394,2)
;;=^5019171
;;^UTILITY(U,$J,358.3,14395,0)
;;=Z91.19^^56^629^53
;;^UTILITY(U,$J,358.3,14395,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14395,1,3,0)
;;=3^Noncompliance w/ Medical Treatment/Regimen
;;^UTILITY(U,$J,358.3,14395,1,4,0)
;;=4^Z91.19
;;^UTILITY(U,$J,358.3,14395,2)
;;=^5063618
;;^UTILITY(U,$J,358.3,14396,0)
;;=E66.01^^56^629^54
;;^UTILITY(U,$J,358.3,14396,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14396,1,3,0)
;;=3^Obesity,Morbid
;;^UTILITY(U,$J,358.3,14396,1,4,0)
;;=4^E66.01
;;^UTILITY(U,$J,358.3,14396,2)
;;=^5002826
;;^UTILITY(U,$J,358.3,14397,0)
;;=F43.11^^56^629^61
;;^UTILITY(U,$J,358.3,14397,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14397,1,3,0)
;;=3^PTSD,Acute
;;^UTILITY(U,$J,358.3,14397,1,4,0)
;;=4^F43.11
;;^UTILITY(U,$J,358.3,14397,2)
;;=^5003571
;;^UTILITY(U,$J,358.3,14398,0)
;;=F43.12^^56^629^62
;;^UTILITY(U,$J,358.3,14398,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14398,1,3,0)
;;=3^PTSD,Chronic
;;^UTILITY(U,$J,358.3,14398,1,4,0)
;;=4^F43.12
;;^UTILITY(U,$J,358.3,14398,2)
;;=^5003572
;;^UTILITY(U,$J,358.3,14399,0)
;;=I25.119^^56^629^5
;;^UTILITY(U,$J,358.3,14399,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14399,1,3,0)
;;=3^Athscl Hrt Dis of Native Cor Art w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,14399,1,4,0)
;;=4^I25.119
;;^UTILITY(U,$J,358.3,14399,2)
;;=^5007111
;;^UTILITY(U,$J,358.3,14400,0)
;;=I25.10^^56^629^6
;;^UTILITY(U,$J,358.3,14400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14400,1,3,0)
;;=3^Athscl Hrt Dis of Native Cor Art w/o Ang Pctrs
;;^UTILITY(U,$J,358.3,14400,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,14400,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,14401,0)
;;=F17.219^^56^629^51
;;^UTILITY(U,$J,358.3,14401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14401,1,3,0)
;;=3^Nicotine Dependence,Cigarettes
;;^UTILITY(U,$J,358.3,14401,1,4,0)
;;=4^F17.219
;;^UTILITY(U,$J,358.3,14401,2)
;;=^5003369
;;^UTILITY(U,$J,358.3,14402,0)
;;=Z51.5^^56^629^64
;;^UTILITY(U,$J,358.3,14402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14402,1,3,0)
;;=3^Palliative Care Encounter
;;^UTILITY(U,$J,358.3,14402,1,4,0)
;;=4^Z51.5
;;^UTILITY(U,$J,358.3,14402,2)
;;=^5063063
;;^UTILITY(U,$J,358.3,14403,0)
;;=Z23.^^56^629^28
;;^UTILITY(U,$J,358.3,14403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14403,1,3,0)
;;=3^Encounter for Immunization(s)
;;^UTILITY(U,$J,358.3,14403,1,4,0)
;;=4^Z23.
;;^UTILITY(U,$J,358.3,14403,2)
;;=^5062795
;;^UTILITY(U,$J,358.3,14404,0)
;;=E11.65^^56^629^20
;;^UTILITY(U,$J,358.3,14404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14404,1,3,0)
;;=3^DM Type 2 Uncontrolled w/ Hyperglycemia
;;^UTILITY(U,$J,358.3,14404,1,4,0)
;;=4^E11.65
;;^UTILITY(U,$J,358.3,14404,2)
;;=^5002663
;;^UTILITY(U,$J,358.3,14405,0)
;;=E11.649^^56^629^21
;;^UTILITY(U,$J,358.3,14405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14405,1,3,0)
;;=3^DM Type 2 Uncontrolled w/ Hypoglycemia w/o Coma
;;^UTILITY(U,$J,358.3,14405,1,4,0)
;;=4^E11.649
;;^UTILITY(U,$J,358.3,14405,2)
;;=^5002662
;;^UTILITY(U,$J,358.3,14406,0)
;;=I16.0^^56^629^44
;;^UTILITY(U,$J,358.3,14406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14406,1,3,0)
;;=3^Hypertensive Urgency
;;^UTILITY(U,$J,358.3,14406,1,4,0)
;;=4^I16.0
;;^UTILITY(U,$J,358.3,14406,2)
;;=^8133013
;;^UTILITY(U,$J,358.3,14407,0)
;;=H54.8^^56^629^47
;;^UTILITY(U,$J,358.3,14407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14407,1,3,0)
;;=3^Legal Blindness,USA Definition
;;^UTILITY(U,$J,358.3,14407,1,4,0)
;;=4^H54.8
;;^UTILITY(U,$J,358.3,14407,2)
;;=^5006369
;;^UTILITY(U,$J,358.3,14408,0)
;;=F10.10^^56^629^2
;;^UTILITY(U,$J,358.3,14408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14408,1,3,0)
;;=3^Alcohol Abuse,Uncomplicated
;;^UTILITY(U,$J,358.3,14408,1,4,0)
;;=4^F10.10
;;^UTILITY(U,$J,358.3,14408,2)
;;=^5003068
;;^UTILITY(U,$J,358.3,14409,0)
;;=J30.9^^56^629^3
;;^UTILITY(U,$J,358.3,14409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14409,1,3,0)
;;=3^Allergic Rhinitis,Unspec
;;^UTILITY(U,$J,358.3,14409,1,4,0)
;;=4^J30.9
;;^UTILITY(U,$J,358.3,14409,2)
;;=^5008205
;;^UTILITY(U,$J,358.3,14410,0)
;;=I48.0^^56^629^7
;;^UTILITY(U,$J,358.3,14410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14410,1,3,0)
;;=3^Atrial Fibrillation Paroxysmal (PAF)
;;^UTILITY(U,$J,358.3,14410,1,4,0)
;;=4^I48.0
;;^UTILITY(U,$J,358.3,14410,2)
;;=^90473
;;^UTILITY(U,$J,358.3,14411,0)
;;=N18.1^^56^629^9
;;^UTILITY(U,$J,358.3,14411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14411,1,3,0)
;;=3^CKD,Stage 1
;;^UTILITY(U,$J,358.3,14411,1,4,0)
;;=4^N18.1
;;^UTILITY(U,$J,358.3,14411,2)
;;=^5015602
;;^UTILITY(U,$J,358.3,14412,0)
;;=N18.2^^56^629^10
;;^UTILITY(U,$J,358.3,14412,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14412,1,3,0)
;;=3^CKD,Stage 2
;;^UTILITY(U,$J,358.3,14412,1,4,0)
;;=4^N18.2
;;^UTILITY(U,$J,358.3,14412,2)
;;=^5015603
;;^UTILITY(U,$J,358.3,14413,0)
;;=N18.4^^56^629^14
;;^UTILITY(U,$J,358.3,14413,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14413,1,3,0)
;;=3^CKD,Stage 4
;;^UTILITY(U,$J,358.3,14413,1,4,0)
;;=4^N18.4
;;^UTILITY(U,$J,358.3,14413,2)
;;=^5015605
;;^UTILITY(U,$J,358.3,14414,0)
;;=N18.5^^56^629^15
;;^UTILITY(U,$J,358.3,14414,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14414,1,3,0)
;;=3^CKD,Stage 5
;;^UTILITY(U,$J,358.3,14414,1,4,0)
;;=4^N18.5
;;^UTILITY(U,$J,358.3,14414,2)
;;=^5015606
;;^UTILITY(U,$J,358.3,14415,0)
;;=N18.6^^56^629^26
;;^UTILITY(U,$J,358.3,14415,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14415,1,3,0)
;;=3^ESRD
;;^UTILITY(U,$J,358.3,14415,1,4,0)
;;=4^N18.6
;;^UTILITY(U,$J,358.3,14415,2)
;;=^303986
;;^UTILITY(U,$J,358.3,14416,0)
;;=E11.22^^56^629^22
;;^UTILITY(U,$J,358.3,14416,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14416,1,3,0)
;;=3^DM Type 2 w/ CKD
;;^UTILITY(U,$J,358.3,14416,1,4,0)
;;=4^E11.22
;;^UTILITY(U,$J,358.3,14416,2)
;;=^5002630
;;^UTILITY(U,$J,358.3,14417,0)
;;=E11.319^^56^629^24
;;^UTILITY(U,$J,358.3,14417,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14417,1,3,0)
;;=3^DM Type 2 w/ Retinopathy Unspec w/o Macular Edema
;;^UTILITY(U,$J,358.3,14417,1,4,0)
;;=4^E11.319
;;^UTILITY(U,$J,358.3,14417,2)
;;=^5002633
;;^UTILITY(U,$J,358.3,14418,0)
;;=G40.909^^56^629^76
;;^UTILITY(U,$J,358.3,14418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14418,1,3,0)
;;=3^Seizure Disorder NOS
;;^UTILITY(U,$J,358.3,14418,1,4,0)
;;=4^G40.909
;;^UTILITY(U,$J,358.3,14418,2)
;;=^5003865
;;^UTILITY(U,$J,358.3,14419,0)
;;=N52.9^^56^629^30
;;^UTILITY(U,$J,358.3,14419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14419,1,3,0)
;;=3^Erectile Dysfuntion,Unspec
;;^UTILITY(U,$J,358.3,14419,1,4,0)
;;=4^N52.9
;;^UTILITY(U,$J,358.3,14419,2)
;;=^5015763
;;^UTILITY(U,$J,358.3,14420,0)
;;=I50.22^^56^629^39
;;^UTILITY(U,$J,358.3,14420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14420,1,3,0)
;;=3^Heart Failure,Systolic,Chronic
;;^UTILITY(U,$J,358.3,14420,1,4,0)
;;=4^I50.22
;;^UTILITY(U,$J,358.3,14420,2)
;;=^5007241
;;^UTILITY(U,$J,358.3,14421,0)
;;=I50.32^^56^629^37
;;^UTILITY(U,$J,358.3,14421,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,14421,1,3,0)
;;=3^Heart Failure,Diastolic,Chronic
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI05X 19785 printed Sep 23, 2025@19:18:15 Page 2
IBDEI05X ; ; 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,14347,1,2,0)
+2 ;;=2^12011
+3 ;;^UTILITY(U,$J,358.3,14347,1,3,0)
+4 ;;=3^Simple repair; 2.5 cm or less
+5 ;;^UTILITY(U,$J,358.3,14348,0)
+6 ;;=12013^^55^620^2^^^^1
+7 ;;^UTILITY(U,$J,358.3,14348,1,0)
+8 ;;=^358.31IA^3^2
+9 ;;^UTILITY(U,$J,358.3,14348,1,2,0)
+10 ;;=2^12013
+11 ;;^UTILITY(U,$J,358.3,14348,1,3,0)
+12 ;;=3^Simple repair; 2.6 cm to 5.0 cm
+13 ;;^UTILITY(U,$J,358.3,14349,0)
+14 ;;=12014^^55^620^3^^^^1
+15 ;;^UTILITY(U,$J,358.3,14349,1,0)
+16 ;;=^358.31IA^3^2
+17 ;;^UTILITY(U,$J,358.3,14349,1,2,0)
+18 ;;=2^12014
+19 ;;^UTILITY(U,$J,358.3,14349,1,3,0)
+20 ;;=3^Simple repair; 5.1 cm to 7.5 cm
+21 ;;^UTILITY(U,$J,358.3,14350,0)
+22 ;;=12015^^55^620^4^^^^1
+23 ;;^UTILITY(U,$J,358.3,14350,1,0)
+24 ;;=^358.31IA^3^2
+25 ;;^UTILITY(U,$J,358.3,14350,1,2,0)
+26 ;;=2^12015
+27 ;;^UTILITY(U,$J,358.3,14350,1,3,0)
+28 ;;=3^Simple repair; 7.6 cm to 12.5 cm
+29 ;;^UTILITY(U,$J,358.3,14351,0)
+30 ;;=12016^^55^620^5^^^^1
+31 ;;^UTILITY(U,$J,358.3,14351,1,0)
+32 ;;=^358.31IA^3^2
+33 ;;^UTILITY(U,$J,358.3,14351,1,2,0)
+34 ;;=2^12016
+35 ;;^UTILITY(U,$J,358.3,14351,1,3,0)
+36 ;;=3^Simple repair; 12.6 cm to 20 cm
+37 ;;^UTILITY(U,$J,358.3,14352,0)
+38 ;;=12017^^55^620^6^^^^1
+39 ;;^UTILITY(U,$J,358.3,14352,1,0)
+40 ;;=^358.31IA^3^2
+41 ;;^UTILITY(U,$J,358.3,14352,1,2,0)
+42 ;;=2^12017
+43 ;;^UTILITY(U,$J,358.3,14352,1,3,0)
+44 ;;=3^Simple repair; 20.1 cm to 30 cm
+45 ;;^UTILITY(U,$J,358.3,14353,0)
+46 ;;=12018^^55^620^7^^^^1
+47 ;;^UTILITY(U,$J,358.3,14353,1,0)
+48 ;;=^358.31IA^3^2
+49 ;;^UTILITY(U,$J,358.3,14353,1,2,0)
+50 ;;=2^12018
+51 ;;^UTILITY(U,$J,358.3,14353,1,3,0)
+52 ;;=3^Simple repair; over 30 cm
+53 ;;^UTILITY(U,$J,358.3,14354,0)
+54 ;;=90471^^55^621^1^^^^1
+55 ;;^UTILITY(U,$J,358.3,14354,1,0)
+56 ;;=^358.31IA^3^2
+57 ;;^UTILITY(U,$J,358.3,14354,1,2,0)
+58 ;;=2^90471
+59 ;;^UTILITY(U,$J,358.3,14354,1,3,0)
+60 ;;=3^Immunization Admin,1st Vaccine
+61 ;;^UTILITY(U,$J,358.3,14355,0)
+62 ;;=90472^^55^621^2^^^^1
+63 ;;^UTILITY(U,$J,358.3,14355,1,0)
+64 ;;=^358.31IA^3^2
+65 ;;^UTILITY(U,$J,358.3,14355,1,2,0)
+66 ;;=2^90472
+67 ;;^UTILITY(U,$J,358.3,14355,1,3,0)
+68 ;;=3^Immunization Admin,Ea Addl Vacc
+69 ;;^UTILITY(U,$J,358.3,14356,0)
+70 ;;=99409^^55^622^2^^^^1
+71 ;;^UTILITY(U,$J,358.3,14356,1,0)
+72 ;;=^358.31IA^3^2
+73 ;;^UTILITY(U,$J,358.3,14356,1,2,0)
+74 ;;=2^99409
+75 ;;^UTILITY(U,$J,358.3,14356,1,3,0)
+76 ;;=3^Audit/DAS 15-30 min
+77 ;;^UTILITY(U,$J,358.3,14357,0)
+78 ;;=99408^^55^622^1^^^^1
+79 ;;^UTILITY(U,$J,358.3,14357,1,0)
+80 ;;=^358.31IA^3^2
+81 ;;^UTILITY(U,$J,358.3,14357,1,2,0)
+82 ;;=2^99408
+83 ;;^UTILITY(U,$J,358.3,14357,1,3,0)
+84 ;;=3^Alcohol/Subst Abuse Screen 15-30 min
+85 ;;^UTILITY(U,$J,358.3,14358,0)
+86 ;;=99406^^55^622^3^^^^1
+87 ;;^UTILITY(U,$J,358.3,14358,1,0)
+88 ;;=^358.31IA^3^2
+89 ;;^UTILITY(U,$J,358.3,14358,1,2,0)
+90 ;;=2^99406
+91 ;;^UTILITY(U,$J,358.3,14358,1,3,0)
+92 ;;=3^Behav Chng Smoking 3-10 min
+93 ;;^UTILITY(U,$J,358.3,14359,0)
+94 ;;=99407^^55^622^4^^^^1
+95 ;;^UTILITY(U,$J,358.3,14359,1,0)
+96 ;;=^358.31IA^3^2
+97 ;;^UTILITY(U,$J,358.3,14359,1,2,0)
+98 ;;=2^99407
+99 ;;^UTILITY(U,$J,358.3,14359,1,3,0)
+100 ;;=3^Behav Chng Smoking > 10 min
+101 ;;^UTILITY(U,$J,358.3,14360,0)
+102 ;;=99497^^55^623^1^^^^1
+103 ;;^UTILITY(U,$J,358.3,14360,1,0)
+104 ;;=^358.31IA^3^2
+105 ;;^UTILITY(U,$J,358.3,14360,1,2,0)
+106 ;;=2^99497
+107 ;;^UTILITY(U,$J,358.3,14360,1,3,0)
+108 ;;=3^Adv Care Plan w/ Pt/Fam by MD/QHP,1st 30 min
+109 ;;^UTILITY(U,$J,358.3,14361,0)
+110 ;;=99498^^55^623^2^^^^1
+111 ;;^UTILITY(U,$J,358.3,14361,1,0)
+112 ;;=^358.31IA^3^2
+113 ;;^UTILITY(U,$J,358.3,14361,1,2,0)
+114 ;;=2^99498
+115 ;;^UTILITY(U,$J,358.3,14361,1,3,0)
+116 ;;=3^Adv Care Plan w/ Pt/Fam by MD/QHP,Ea Addl 30 min
+117 ;;^UTILITY(U,$J,358.3,14362,0)
+118 ;;=99395^^55^624^1^^^^1
+119 ;;^UTILITY(U,$J,358.3,14362,1,0)
+120 ;;=^358.31IA^3^2
+121 ;;^UTILITY(U,$J,358.3,14362,1,2,0)
+122 ;;=2^99395
+123 ;;^UTILITY(U,$J,358.3,14362,1,3,0)
+124 ;;=3^Preventive Med,Est Pt,18-39
+125 ;;^UTILITY(U,$J,358.3,14363,0)
+126 ;;=99396^^55^624^2^^^^1
+127 ;;^UTILITY(U,$J,358.3,14363,1,0)
+128 ;;=^358.31IA^3^2
+129 ;;^UTILITY(U,$J,358.3,14363,1,2,0)
+130 ;;=2^99396
+131 ;;^UTILITY(U,$J,358.3,14363,1,3,0)
+132 ;;=3^Preventive Med,Est Pt,40-64
+133 ;;^UTILITY(U,$J,358.3,14364,0)
+134 ;;=99397^^55^624^3^^^^1
+135 ;;^UTILITY(U,$J,358.3,14364,1,0)
+136 ;;=^358.31IA^3^2
+137 ;;^UTILITY(U,$J,358.3,14364,1,2,0)
+138 ;;=2^99397
+139 ;;^UTILITY(U,$J,358.3,14364,1,3,0)
+140 ;;=3^Preventive Med,Est Pt > 64
+141 ;;^UTILITY(U,$J,358.3,14365,0)
+142 ;;=99385^^55^625^1^^^^1
+143 ;;^UTILITY(U,$J,358.3,14365,1,0)
+144 ;;=^358.31IA^3^2
+145 ;;^UTILITY(U,$J,358.3,14365,1,2,0)
+146 ;;=2^99385
+147 ;;^UTILITY(U,$J,358.3,14365,1,3,0)
+148 ;;=3^Preventive Med,New Pt,18-39
+149 ;;^UTILITY(U,$J,358.3,14366,0)
+150 ;;=99386^^55^625^2^^^^1
+151 ;;^UTILITY(U,$J,358.3,14366,1,0)
+152 ;;=^358.31IA^3^2
+153 ;;^UTILITY(U,$J,358.3,14366,1,2,0)
+154 ;;=2^99386
+155 ;;^UTILITY(U,$J,358.3,14366,1,3,0)
+156 ;;=3^Preventive Med,New Pt,40-64
+157 ;;^UTILITY(U,$J,358.3,14367,0)
+158 ;;=99387^^55^625^3^^^^1
+159 ;;^UTILITY(U,$J,358.3,14367,1,0)
+160 ;;=^358.31IA^3^2
+161 ;;^UTILITY(U,$J,358.3,14367,1,2,0)
+162 ;;=2^99387
+163 ;;^UTILITY(U,$J,358.3,14367,1,3,0)
+164 ;;=3^Preventive Med,New Pt > 64
+165 ;;^UTILITY(U,$J,358.3,14368,0)
+166 ;;=99452^^55^626^1^^^^1
+167 ;;^UTILITY(U,$J,358.3,14368,1,0)
+168 ;;=^358.31IA^3^2
+169 ;;^UTILITY(U,$J,358.3,14368,1,2,0)
+170 ;;=2^99452
+171 ;;^UTILITY(U,$J,358.3,14368,1,3,0)
+172 ;;=3^E-Consult Results/Discussion with Patient
+173 ;;^UTILITY(U,$J,358.3,14369,0)
+174 ;;=Q0243^^55^627^3^^^^1
+175 ;;^UTILITY(U,$J,358.3,14369,1,0)
+176 ;;=^358.31IA^3^2
+177 ;;^UTILITY(U,$J,358.3,14369,1,2,0)
+178 ;;=2^Q0243
+179 ;;^UTILITY(U,$J,358.3,14369,1,3,0)
+180 ;;=3^Casirivimab & Imdevimab 2400mg
+181 ;;^UTILITY(U,$J,358.3,14370,0)
+182 ;;=M0243^^55^627^4^^^^1
+183 ;;^UTILITY(U,$J,358.3,14370,1,0)
+184 ;;=^358.31IA^3^2
+185 ;;^UTILITY(U,$J,358.3,14370,1,2,0)
+186 ;;=2^M0243
+187 ;;^UTILITY(U,$J,358.3,14370,1,3,0)
+188 ;;=3^Casirivimab & Imdevimab Infusion
+189 ;;^UTILITY(U,$J,358.3,14371,0)
+190 ;;=M0245^^55^627^1^^^^1
+191 ;;^UTILITY(U,$J,358.3,14371,1,0)
+192 ;;=^358.31IA^3^2
+193 ;;^UTILITY(U,$J,358.3,14371,1,2,0)
+194 ;;=2^M0245
+195 ;;^UTILITY(U,$J,358.3,14371,1,3,0)
+196 ;;=3^Bamlanivimab Infusion w/ Post Admin Monitoring
+197 ;;^UTILITY(U,$J,358.3,14372,0)
+198 ;;=Q0245^^55^627^2^^^^1
+199 ;;^UTILITY(U,$J,358.3,14372,1,0)
+200 ;;=^358.31IA^3^2
+201 ;;^UTILITY(U,$J,358.3,14372,1,2,0)
+202 ;;=2^Q0245
+203 ;;^UTILITY(U,$J,358.3,14372,1,3,0)
+204 ;;=3^Bamlanivivab 700mg
+205 ;;^UTILITY(U,$J,358.3,14373,0)
+206 ;;=99417^^55^628^1^^^^1
+207 ;;^UTILITY(U,$J,358.3,14373,1,0)
+208 ;;=^358.31IA^3^2
+209 ;;^UTILITY(U,$J,358.3,14373,1,2,0)
+210 ;;=2^99417
+211 ;;^UTILITY(U,$J,358.3,14373,1,3,0)
+212 ;;=3^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
+213 ;;^UTILITY(U,$J,358.3,14374,0)
+214 ;;=B18.2^^56^629^40
+215 ;;^UTILITY(U,$J,358.3,14374,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,14374,1,3,0)
+218 ;;=3^Hepatitis C,Chr
+219 ;;^UTILITY(U,$J,358.3,14374,1,4,0)
+220 ;;=4^B18.2
+221 ;;^UTILITY(U,$J,358.3,14374,2)
+222 ;;=^5000548
+223 ;;^UTILITY(U,$J,358.3,14375,0)
+224 ;;=E11.9^^56^629^25
+225 ;;^UTILITY(U,$J,358.3,14375,1,0)
+226 ;;=^358.31IA^4^2
+227 ;;^UTILITY(U,$J,358.3,14375,1,3,0)
+228 ;;=3^Diabetes Type 2
+229 ;;^UTILITY(U,$J,358.3,14375,1,4,0)
+230 ;;=4^E11.9
+231 ;;^UTILITY(U,$J,358.3,14375,2)
+232 ;;=^5002666
+233 ;;^UTILITY(U,$J,358.3,14376,0)
+234 ;;=E11.40^^56^629^23
+235 ;;^UTILITY(U,$J,358.3,14376,1,0)
+236 ;;=^358.31IA^4^2
+237 ;;^UTILITY(U,$J,358.3,14376,1,3,0)
+238 ;;=3^DM Type 2 w/ Neuropathy
+239 ;;^UTILITY(U,$J,358.3,14376,1,4,0)
+240 ;;=4^E11.40
+241 ;;^UTILITY(U,$J,358.3,14376,2)
+242 ;;=^5002644
+243 ;;^UTILITY(U,$J,358.3,14377,0)
+244 ;;=E78.2^^56^629^41
+245 ;;^UTILITY(U,$J,358.3,14377,1,0)
+246 ;;=^358.31IA^4^2
+247 ;;^UTILITY(U,$J,358.3,14377,1,3,0)
+248 ;;=3^Hyperlipidemia,Mixed
+249 ;;^UTILITY(U,$J,358.3,14377,1,4,0)
+250 ;;=4^E78.2
+251 ;;^UTILITY(U,$J,358.3,14377,2)
+252 ;;=^78424
+253 ;;^UTILITY(U,$J,358.3,14378,0)
+254 ;;=E78.5^^56^629^42
+255 ;;^UTILITY(U,$J,358.3,14378,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,14378,1,3,0)
+258 ;;=3^Hyperlipidemia,Unspec
+259 ;;^UTILITY(U,$J,358.3,14378,1,4,0)
+260 ;;=4^E78.5
+261 ;;^UTILITY(U,$J,358.3,14378,2)
+262 ;;=^5002969
+263 ;;^UTILITY(U,$J,358.3,14379,0)
+264 ;;=E66.3^^56^629^59
+265 ;;^UTILITY(U,$J,358.3,14379,1,0)
+266 ;;=^358.31IA^4^2
+267 ;;^UTILITY(U,$J,358.3,14379,1,3,0)
+268 ;;=3^Overweight
+269 ;;^UTILITY(U,$J,358.3,14379,1,4,0)
+270 ;;=4^E66.3
+271 ;;^UTILITY(U,$J,358.3,14379,2)
+272 ;;=^5002830
+273 ;;^UTILITY(U,$J,358.3,14380,0)
+274 ;;=F17.200^^56^629^52
+275 ;;^UTILITY(U,$J,358.3,14380,1,0)
+276 ;;=^358.31IA^4^2
+277 ;;^UTILITY(U,$J,358.3,14380,1,3,0)
+278 ;;=3^Nicotine Dependence,Unspec
+279 ;;^UTILITY(U,$J,358.3,14380,1,4,0)
+280 ;;=4^F17.200
+281 ;;^UTILITY(U,$J,358.3,14380,2)
+282 ;;=^5003360
+283 ;;^UTILITY(U,$J,358.3,14381,0)
+284 ;;=G43.909^^56^629^50
+285 ;;^UTILITY(U,$J,358.3,14381,1,0)
+286 ;;=^358.31IA^4^2
+287 ;;^UTILITY(U,$J,358.3,14381,1,3,0)
+288 ;;=3^Migraine,Unspec
+289 ;;^UTILITY(U,$J,358.3,14381,1,4,0)
+290 ;;=4^G43.909
+291 ;;^UTILITY(U,$J,358.3,14381,2)
+292 ;;=^5003909
+293 ;;^UTILITY(U,$J,358.3,14382,0)
+294 ;;=H91.93^^56^629^36
+295 ;;^UTILITY(U,$J,358.3,14382,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,14382,1,3,0)
+298 ;;=3^Hearing Loss,Bilateral
+299 ;;^UTILITY(U,$J,358.3,14382,1,4,0)
+300 ;;=4^H91.93
+301 ;;^UTILITY(U,$J,358.3,14382,2)
+302 ;;=^5006944
+303 ;;^UTILITY(U,$J,358.3,14383,0)
+304 ;;=I10.^^56^629^43
+305 ;;^UTILITY(U,$J,358.3,14383,1,0)
+306 ;;=^358.31IA^4^2
+307 ;;^UTILITY(U,$J,358.3,14383,1,3,0)
+308 ;;=3^Hypertension
+309 ;;^UTILITY(U,$J,358.3,14383,1,4,0)
+310 ;;=4^I10.
+311 ;;^UTILITY(U,$J,358.3,14383,2)
+312 ;;=^5007062
+313 ;;^UTILITY(U,$J,358.3,14384,0)
+314 ;;=I50.9^^56^629^19
+315 ;;^UTILITY(U,$J,358.3,14384,1,0)
+316 ;;=^358.31IA^4^2
+317 ;;^UTILITY(U,$J,358.3,14384,1,3,0)
+318 ;;=3^Congestive Heart Failure,Unspec
+319 ;;^UTILITY(U,$J,358.3,14384,1,4,0)
+320 ;;=4^I50.9
+321 ;;^UTILITY(U,$J,358.3,14384,2)
+322 ;;=^5007251
+323 ;;^UTILITY(U,$J,358.3,14385,0)
+324 ;;=I67.89^^56^629^18
+325 ;;^UTILITY(U,$J,358.3,14385,1,0)
+326 ;;=^358.31IA^4^2
+327 ;;^UTILITY(U,$J,358.3,14385,1,3,0)
+328 ;;=3^Cerebrovascular Disease,Oth
+329 ;;^UTILITY(U,$J,358.3,14385,1,4,0)
+330 ;;=4^I67.89
+331 ;;^UTILITY(U,$J,358.3,14385,2)
+332 ;;=^5007388
+333 ;;^UTILITY(U,$J,358.3,14386,0)
+334 ;;=J45.909^^56^629^4
+335 ;;^UTILITY(U,$J,358.3,14386,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,14386,1,3,0)
+338 ;;=3^Asthma,Unspec,Uncomplicated
+339 ;;^UTILITY(U,$J,358.3,14386,1,4,0)
+340 ;;=4^J45.909
+341 ;;^UTILITY(U,$J,358.3,14386,2)
+342 ;;=^5008256
+343 ;;^UTILITY(U,$J,358.3,14387,0)
+344 ;;=J44.9^^56^629^16
+345 ;;^UTILITY(U,$J,358.3,14387,1,0)
+346 ;;=^358.31IA^4^2
+347 ;;^UTILITY(U,$J,358.3,14387,1,3,0)
+348 ;;=3^COPD,Unspec
+349 ;;^UTILITY(U,$J,358.3,14387,1,4,0)
+350 ;;=4^J44.9
+351 ;;^UTILITY(U,$J,358.3,14387,2)
+352 ;;=^5008241
+353 ;;^UTILITY(U,$J,358.3,14388,0)
+354 ;;=K21.9^^56^629^31
+355 ;;^UTILITY(U,$J,358.3,14388,1,0)
+356 ;;=^358.31IA^4^2
+357 ;;^UTILITY(U,$J,358.3,14388,1,3,0)
+358 ;;=3^GERD w/o Esophagitis
+359 ;;^UTILITY(U,$J,358.3,14388,1,4,0)
+360 ;;=4^K21.9
+361 ;;^UTILITY(U,$J,358.3,14388,2)
+362 ;;=^5008505
+363 ;;^UTILITY(U,$J,358.3,14389,0)
+364 ;;=N40.1^^56^629^29
+365 ;;^UTILITY(U,$J,358.3,14389,1,0)
+366 ;;=^358.31IA^4^2
+367 ;;^UTILITY(U,$J,358.3,14389,1,3,0)
+368 ;;=3^Enlarged Prostate w/ LUTS
+369 ;;^UTILITY(U,$J,358.3,14389,1,4,0)
+370 ;;=4^N40.1
+371 ;;^UTILITY(U,$J,358.3,14389,2)
+372 ;;=^5015690
+373 ;;^UTILITY(U,$J,358.3,14390,0)
+374 ;;=L03.818^^56^629^17
+375 ;;^UTILITY(U,$J,358.3,14390,1,0)
+376 ;;=^358.31IA^4^2
+377 ;;^UTILITY(U,$J,358.3,14390,1,3,0)
+378 ;;=3^Cellulitis,Oth Sites
+379 ;;^UTILITY(U,$J,358.3,14390,1,4,0)
+380 ;;=4^L03.818
+381 ;;^UTILITY(U,$J,358.3,14390,2)
+382 ;;=^5009064
+383 ;;^UTILITY(U,$J,358.3,14391,0)
+384 ;;=G47.33^^56^629^77
+385 ;;^UTILITY(U,$J,358.3,14391,1,0)
+386 ;;=^358.31IA^4^2
+387 ;;^UTILITY(U,$J,358.3,14391,1,3,0)
+388 ;;=3^Sleep Apnea,Obstructive
+389 ;;^UTILITY(U,$J,358.3,14391,1,4,0)
+390 ;;=4^G47.33
+391 ;;^UTILITY(U,$J,358.3,14391,2)
+392 ;;=^332763
+393 ;;^UTILITY(U,$J,358.3,14392,0)
+394 ;;=R73.01^^56^629^46
+395 ;;^UTILITY(U,$J,358.3,14392,1,0)
+396 ;;=^358.31IA^4^2
+397 ;;^UTILITY(U,$J,358.3,14392,1,3,0)
+398 ;;=3^Impaired Fasting Glucose
+399 ;;^UTILITY(U,$J,358.3,14392,1,4,0)
+400 ;;=4^R73.01
+401 ;;^UTILITY(U,$J,358.3,14392,2)
+402 ;;=^5019561
+403 ;;^UTILITY(U,$J,358.3,14393,0)
+404 ;;=R74.8^^56^629^1
+405 ;;^UTILITY(U,$J,358.3,14393,1,0)
+406 ;;=^358.31IA^4^2
+407 ;;^UTILITY(U,$J,358.3,14393,1,3,0)
+408 ;;=3^Abnormal Levels of Serum Enzymes
+409 ;;^UTILITY(U,$J,358.3,14393,1,4,0)
+410 ;;=4^R74.8
+411 ;;^UTILITY(U,$J,358.3,14393,2)
+412 ;;=^5019566
+413 ;;^UTILITY(U,$J,358.3,14394,0)
+414 ;;=R03.0^^56^629^27
+415 ;;^UTILITY(U,$J,358.3,14394,1,0)
+416 ;;=^358.31IA^4^2
+417 ;;^UTILITY(U,$J,358.3,14394,1,3,0)
+418 ;;=3^Elevated BP Reading w/o Diagnosis of HTN
+419 ;;^UTILITY(U,$J,358.3,14394,1,4,0)
+420 ;;=4^R03.0
+421 ;;^UTILITY(U,$J,358.3,14394,2)
+422 ;;=^5019171
+423 ;;^UTILITY(U,$J,358.3,14395,0)
+424 ;;=Z91.19^^56^629^53
+425 ;;^UTILITY(U,$J,358.3,14395,1,0)
+426 ;;=^358.31IA^4^2
+427 ;;^UTILITY(U,$J,358.3,14395,1,3,0)
+428 ;;=3^Noncompliance w/ Medical Treatment/Regimen
+429 ;;^UTILITY(U,$J,358.3,14395,1,4,0)
+430 ;;=4^Z91.19
+431 ;;^UTILITY(U,$J,358.3,14395,2)
+432 ;;=^5063618
+433 ;;^UTILITY(U,$J,358.3,14396,0)
+434 ;;=E66.01^^56^629^54
+435 ;;^UTILITY(U,$J,358.3,14396,1,0)
+436 ;;=^358.31IA^4^2
+437 ;;^UTILITY(U,$J,358.3,14396,1,3,0)
+438 ;;=3^Obesity,Morbid
+439 ;;^UTILITY(U,$J,358.3,14396,1,4,0)
+440 ;;=4^E66.01
+441 ;;^UTILITY(U,$J,358.3,14396,2)
+442 ;;=^5002826
+443 ;;^UTILITY(U,$J,358.3,14397,0)
+444 ;;=F43.11^^56^629^61
+445 ;;^UTILITY(U,$J,358.3,14397,1,0)
+446 ;;=^358.31IA^4^2
+447 ;;^UTILITY(U,$J,358.3,14397,1,3,0)
+448 ;;=3^PTSD,Acute
+449 ;;^UTILITY(U,$J,358.3,14397,1,4,0)
+450 ;;=4^F43.11
+451 ;;^UTILITY(U,$J,358.3,14397,2)
+452 ;;=^5003571
+453 ;;^UTILITY(U,$J,358.3,14398,0)
+454 ;;=F43.12^^56^629^62
+455 ;;^UTILITY(U,$J,358.3,14398,1,0)
+456 ;;=^358.31IA^4^2
+457 ;;^UTILITY(U,$J,358.3,14398,1,3,0)
+458 ;;=3^PTSD,Chronic
+459 ;;^UTILITY(U,$J,358.3,14398,1,4,0)
+460 ;;=4^F43.12
+461 ;;^UTILITY(U,$J,358.3,14398,2)
+462 ;;=^5003572
+463 ;;^UTILITY(U,$J,358.3,14399,0)
+464 ;;=I25.119^^56^629^5
+465 ;;^UTILITY(U,$J,358.3,14399,1,0)
+466 ;;=^358.31IA^4^2
+467 ;;^UTILITY(U,$J,358.3,14399,1,3,0)
+468 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Ang Pctrs,Unspec
+469 ;;^UTILITY(U,$J,358.3,14399,1,4,0)
+470 ;;=4^I25.119
+471 ;;^UTILITY(U,$J,358.3,14399,2)
+472 ;;=^5007111
+473 ;;^UTILITY(U,$J,358.3,14400,0)
+474 ;;=I25.10^^56^629^6
+475 ;;^UTILITY(U,$J,358.3,14400,1,0)
+476 ;;=^358.31IA^4^2
+477 ;;^UTILITY(U,$J,358.3,14400,1,3,0)
+478 ;;=3^Athscl Hrt Dis of Native Cor Art w/o Ang Pctrs
+479 ;;^UTILITY(U,$J,358.3,14400,1,4,0)
+480 ;;=4^I25.10
+481 ;;^UTILITY(U,$J,358.3,14400,2)
+482 ;;=^5007107
+483 ;;^UTILITY(U,$J,358.3,14401,0)
+484 ;;=F17.219^^56^629^51
+485 ;;^UTILITY(U,$J,358.3,14401,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,14401,1,3,0)
+488 ;;=3^Nicotine Dependence,Cigarettes
+489 ;;^UTILITY(U,$J,358.3,14401,1,4,0)
+490 ;;=4^F17.219
+491 ;;^UTILITY(U,$J,358.3,14401,2)
+492 ;;=^5003369
+493 ;;^UTILITY(U,$J,358.3,14402,0)
+494 ;;=Z51.5^^56^629^64
+495 ;;^UTILITY(U,$J,358.3,14402,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,14402,1,3,0)
+498 ;;=3^Palliative Care Encounter
+499 ;;^UTILITY(U,$J,358.3,14402,1,4,0)
+500 ;;=4^Z51.5
+501 ;;^UTILITY(U,$J,358.3,14402,2)
+502 ;;=^5063063
+503 ;;^UTILITY(U,$J,358.3,14403,0)
+504 ;;=Z23.^^56^629^28
+505 ;;^UTILITY(U,$J,358.3,14403,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,14403,1,3,0)
+508 ;;=3^Encounter for Immunization(s)
+509 ;;^UTILITY(U,$J,358.3,14403,1,4,0)
+510 ;;=4^Z23.
+511 ;;^UTILITY(U,$J,358.3,14403,2)
+512 ;;=^5062795
+513 ;;^UTILITY(U,$J,358.3,14404,0)
+514 ;;=E11.65^^56^629^20
+515 ;;^UTILITY(U,$J,358.3,14404,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,14404,1,3,0)
+518 ;;=3^DM Type 2 Uncontrolled w/ Hyperglycemia
+519 ;;^UTILITY(U,$J,358.3,14404,1,4,0)
+520 ;;=4^E11.65
+521 ;;^UTILITY(U,$J,358.3,14404,2)
+522 ;;=^5002663
+523 ;;^UTILITY(U,$J,358.3,14405,0)
+524 ;;=E11.649^^56^629^21
+525 ;;^UTILITY(U,$J,358.3,14405,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,14405,1,3,0)
+528 ;;=3^DM Type 2 Uncontrolled w/ Hypoglycemia w/o Coma
+529 ;;^UTILITY(U,$J,358.3,14405,1,4,0)
+530 ;;=4^E11.649
+531 ;;^UTILITY(U,$J,358.3,14405,2)
+532 ;;=^5002662
+533 ;;^UTILITY(U,$J,358.3,14406,0)
+534 ;;=I16.0^^56^629^44
+535 ;;^UTILITY(U,$J,358.3,14406,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,14406,1,3,0)
+538 ;;=3^Hypertensive Urgency
+539 ;;^UTILITY(U,$J,358.3,14406,1,4,0)
+540 ;;=4^I16.0
+541 ;;^UTILITY(U,$J,358.3,14406,2)
+542 ;;=^8133013
+543 ;;^UTILITY(U,$J,358.3,14407,0)
+544 ;;=H54.8^^56^629^47
+545 ;;^UTILITY(U,$J,358.3,14407,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,14407,1,3,0)
+548 ;;=3^Legal Blindness,USA Definition
+549 ;;^UTILITY(U,$J,358.3,14407,1,4,0)
+550 ;;=4^H54.8
+551 ;;^UTILITY(U,$J,358.3,14407,2)
+552 ;;=^5006369
+553 ;;^UTILITY(U,$J,358.3,14408,0)
+554 ;;=F10.10^^56^629^2
+555 ;;^UTILITY(U,$J,358.3,14408,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,14408,1,3,0)
+558 ;;=3^Alcohol Abuse,Uncomplicated
+559 ;;^UTILITY(U,$J,358.3,14408,1,4,0)
+560 ;;=4^F10.10
+561 ;;^UTILITY(U,$J,358.3,14408,2)
+562 ;;=^5003068
+563 ;;^UTILITY(U,$J,358.3,14409,0)
+564 ;;=J30.9^^56^629^3
+565 ;;^UTILITY(U,$J,358.3,14409,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,14409,1,3,0)
+568 ;;=3^Allergic Rhinitis,Unspec
+569 ;;^UTILITY(U,$J,358.3,14409,1,4,0)
+570 ;;=4^J30.9
+571 ;;^UTILITY(U,$J,358.3,14409,2)
+572 ;;=^5008205
+573 ;;^UTILITY(U,$J,358.3,14410,0)
+574 ;;=I48.0^^56^629^7
+575 ;;^UTILITY(U,$J,358.3,14410,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,14410,1,3,0)
+578 ;;=3^Atrial Fibrillation Paroxysmal (PAF)
+579 ;;^UTILITY(U,$J,358.3,14410,1,4,0)
+580 ;;=4^I48.0
+581 ;;^UTILITY(U,$J,358.3,14410,2)
+582 ;;=^90473
+583 ;;^UTILITY(U,$J,358.3,14411,0)
+584 ;;=N18.1^^56^629^9
+585 ;;^UTILITY(U,$J,358.3,14411,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,14411,1,3,0)
+588 ;;=3^CKD,Stage 1
+589 ;;^UTILITY(U,$J,358.3,14411,1,4,0)
+590 ;;=4^N18.1
+591 ;;^UTILITY(U,$J,358.3,14411,2)
+592 ;;=^5015602
+593 ;;^UTILITY(U,$J,358.3,14412,0)
+594 ;;=N18.2^^56^629^10
+595 ;;^UTILITY(U,$J,358.3,14412,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,14412,1,3,0)
+598 ;;=3^CKD,Stage 2
+599 ;;^UTILITY(U,$J,358.3,14412,1,4,0)
+600 ;;=4^N18.2
+601 ;;^UTILITY(U,$J,358.3,14412,2)
+602 ;;=^5015603
+603 ;;^UTILITY(U,$J,358.3,14413,0)
+604 ;;=N18.4^^56^629^14
+605 ;;^UTILITY(U,$J,358.3,14413,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,14413,1,3,0)
+608 ;;=3^CKD,Stage 4
+609 ;;^UTILITY(U,$J,358.3,14413,1,4,0)
+610 ;;=4^N18.4
+611 ;;^UTILITY(U,$J,358.3,14413,2)
+612 ;;=^5015605
+613 ;;^UTILITY(U,$J,358.3,14414,0)
+614 ;;=N18.5^^56^629^15
+615 ;;^UTILITY(U,$J,358.3,14414,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,14414,1,3,0)
+618 ;;=3^CKD,Stage 5
+619 ;;^UTILITY(U,$J,358.3,14414,1,4,0)
+620 ;;=4^N18.5
+621 ;;^UTILITY(U,$J,358.3,14414,2)
+622 ;;=^5015606
+623 ;;^UTILITY(U,$J,358.3,14415,0)
+624 ;;=N18.6^^56^629^26
+625 ;;^UTILITY(U,$J,358.3,14415,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,14415,1,3,0)
+628 ;;=3^ESRD
+629 ;;^UTILITY(U,$J,358.3,14415,1,4,0)
+630 ;;=4^N18.6
+631 ;;^UTILITY(U,$J,358.3,14415,2)
+632 ;;=^303986
+633 ;;^UTILITY(U,$J,358.3,14416,0)
+634 ;;=E11.22^^56^629^22
+635 ;;^UTILITY(U,$J,358.3,14416,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,14416,1,3,0)
+638 ;;=3^DM Type 2 w/ CKD
+639 ;;^UTILITY(U,$J,358.3,14416,1,4,0)
+640 ;;=4^E11.22
+641 ;;^UTILITY(U,$J,358.3,14416,2)
+642 ;;=^5002630
+643 ;;^UTILITY(U,$J,358.3,14417,0)
+644 ;;=E11.319^^56^629^24
+645 ;;^UTILITY(U,$J,358.3,14417,1,0)
+646 ;;=^358.31IA^4^2
+647 ;;^UTILITY(U,$J,358.3,14417,1,3,0)
+648 ;;=3^DM Type 2 w/ Retinopathy Unspec w/o Macular Edema
+649 ;;^UTILITY(U,$J,358.3,14417,1,4,0)
+650 ;;=4^E11.319
+651 ;;^UTILITY(U,$J,358.3,14417,2)
+652 ;;=^5002633
+653 ;;^UTILITY(U,$J,358.3,14418,0)
+654 ;;=G40.909^^56^629^76
+655 ;;^UTILITY(U,$J,358.3,14418,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,14418,1,3,0)
+658 ;;=3^Seizure Disorder NOS
+659 ;;^UTILITY(U,$J,358.3,14418,1,4,0)
+660 ;;=4^G40.909
+661 ;;^UTILITY(U,$J,358.3,14418,2)
+662 ;;=^5003865
+663 ;;^UTILITY(U,$J,358.3,14419,0)
+664 ;;=N52.9^^56^629^30
+665 ;;^UTILITY(U,$J,358.3,14419,1,0)
+666 ;;=^358.31IA^4^2
+667 ;;^UTILITY(U,$J,358.3,14419,1,3,0)
+668 ;;=3^Erectile Dysfuntion,Unspec
+669 ;;^UTILITY(U,$J,358.3,14419,1,4,0)
+670 ;;=4^N52.9
+671 ;;^UTILITY(U,$J,358.3,14419,2)
+672 ;;=^5015763
+673 ;;^UTILITY(U,$J,358.3,14420,0)
+674 ;;=I50.22^^56^629^39
+675 ;;^UTILITY(U,$J,358.3,14420,1,0)
+676 ;;=^358.31IA^4^2
+677 ;;^UTILITY(U,$J,358.3,14420,1,3,0)
+678 ;;=3^Heart Failure,Systolic,Chronic
+679 ;;^UTILITY(U,$J,358.3,14420,1,4,0)
+680 ;;=4^I50.22
+681 ;;^UTILITY(U,$J,358.3,14420,2)
+682 ;;=^5007241
+683 ;;^UTILITY(U,$J,358.3,14421,0)
+684 ;;=I50.32^^56^629^37
+685 ;;^UTILITY(U,$J,358.3,14421,1,0)
+686 ;;=^358.31IA^4^2
+687 ;;^UTILITY(U,$J,358.3,14421,1,3,0)
+688 ;;=3^Heart Failure,Diastolic,Chronic
