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

IBDEI01N.m

Go to the documentation of this file.
IBDEI01N ; ; 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,3585,1,4,0)
 ;;=4^E11.9
 ;;^UTILITY(U,$J,358.3,3585,2)
 ;;=^5002666
 ;;^UTILITY(U,$J,358.3,3586,0)
 ;;=E10.9^^26^223^3
 ;;^UTILITY(U,$J,358.3,3586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3586,1,3,0)
 ;;=3^DM1 w/o Complications
 ;;^UTILITY(U,$J,358.3,3586,1,4,0)
 ;;=4^E10.9
 ;;^UTILITY(U,$J,358.3,3586,2)
 ;;=^5002626
 ;;^UTILITY(U,$J,358.3,3587,0)
 ;;=E11.65^^26^223^6
 ;;^UTILITY(U,$J,358.3,3587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3587,1,3,0)
 ;;=3^DM2 w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,3587,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,3587,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,3588,0)
 ;;=E11.29^^26^223^10
 ;;^UTILITY(U,$J,358.3,3588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3588,1,3,0)
 ;;=3^DM2 w/ Other Diabetic Kidney Complication
 ;;^UTILITY(U,$J,358.3,3588,1,4,0)
 ;;=4^E11.29
 ;;^UTILITY(U,$J,358.3,3588,2)
 ;;=^5002631
 ;;^UTILITY(U,$J,358.3,3589,0)
 ;;=E11.40^^26^223^8
 ;;^UTILITY(U,$J,358.3,3589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3589,1,3,0)
 ;;=3^DM2 w/ Neuropathy,Unspec
 ;;^UTILITY(U,$J,358.3,3589,1,4,0)
 ;;=4^E11.40
 ;;^UTILITY(U,$J,358.3,3589,2)
 ;;=^5002644
 ;;^UTILITY(U,$J,358.3,3590,0)
 ;;=E11.8^^26^223^14
 ;;^UTILITY(U,$J,358.3,3590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3590,1,3,0)
 ;;=3^DM2 w/ Unspec Complications
 ;;^UTILITY(U,$J,358.3,3590,1,4,0)
 ;;=4^E11.8
 ;;^UTILITY(U,$J,358.3,3590,2)
 ;;=^5002665
 ;;^UTILITY(U,$J,358.3,3591,0)
 ;;=E78.2^^26^223^23
 ;;^UTILITY(U,$J,358.3,3591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3591,1,3,0)
 ;;=3^Mixed Hyperlipidemia
 ;;^UTILITY(U,$J,358.3,3591,1,4,0)
 ;;=4^E78.2
 ;;^UTILITY(U,$J,358.3,3591,2)
 ;;=^78424
 ;;^UTILITY(U,$J,358.3,3592,0)
 ;;=E78.5^^26^223^17
 ;;^UTILITY(U,$J,358.3,3592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3592,1,3,0)
 ;;=3^Hyperlipidemia,Unspec
 ;;^UTILITY(U,$J,358.3,3592,1,4,0)
 ;;=4^E78.5
 ;;^UTILITY(U,$J,358.3,3592,2)
 ;;=^5002969
 ;;^UTILITY(U,$J,358.3,3593,0)
 ;;=M10.9^^26^223^16
 ;;^UTILITY(U,$J,358.3,3593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3593,1,3,0)
 ;;=3^Gout,Unspec
 ;;^UTILITY(U,$J,358.3,3593,1,4,0)
 ;;=4^M10.9
 ;;^UTILITY(U,$J,358.3,3593,2)
 ;;=^5010404
 ;;^UTILITY(U,$J,358.3,3594,0)
 ;;=Z79.4^^26^223^21
 ;;^UTILITY(U,$J,358.3,3594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3594,1,3,0)
 ;;=3^Long Term (Current) Use of Insulin
 ;;^UTILITY(U,$J,358.3,3594,1,4,0)
 ;;=4^Z79.4
 ;;^UTILITY(U,$J,358.3,3594,2)
 ;;=^5063334
 ;;^UTILITY(U,$J,358.3,3595,0)
 ;;=Z79.83^^26^223^20
 ;;^UTILITY(U,$J,358.3,3595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3595,1,3,0)
 ;;=3^Long Term (Current) Use of Bisphosphonates
 ;;^UTILITY(U,$J,358.3,3595,1,4,0)
 ;;=4^Z79.83
 ;;^UTILITY(U,$J,358.3,3595,2)
 ;;=^5063341
 ;;^UTILITY(U,$J,358.3,3596,0)
 ;;=E78.00^^26^223^24
 ;;^UTILITY(U,$J,358.3,3596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3596,1,3,0)
 ;;=3^Pure Hypercholesterolemia,Unspec
 ;;^UTILITY(U,$J,358.3,3596,1,4,0)
 ;;=4^E78.00
 ;;^UTILITY(U,$J,358.3,3596,2)
 ;;=^5138435
 ;;^UTILITY(U,$J,358.3,3597,0)
 ;;=E08.9^^26^223^2
 ;;^UTILITY(U,$J,358.3,3597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3597,1,3,0)
 ;;=3^DM d/t Underlying Condition w/o Complications
 ;;^UTILITY(U,$J,358.3,3597,1,4,0)
 ;;=4^E08.9
 ;;^UTILITY(U,$J,358.3,3597,2)
 ;;=^5002544
 ;;^UTILITY(U,$J,358.3,3598,0)
 ;;=E09.9^^26^223^1
 ;;^UTILITY(U,$J,358.3,3598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3598,1,3,0)
 ;;=3^DM d/t Drug/Chemical w/o Complications
 ;;^UTILITY(U,$J,358.3,3598,1,4,0)
 ;;=4^E09.9
 ;;^UTILITY(U,$J,358.3,3598,2)
 ;;=^5002586
 ;;^UTILITY(U,$J,358.3,3599,0)
 ;;=E11.22^^26^223^5
 ;;^UTILITY(U,$J,358.3,3599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3599,1,3,0)
 ;;=3^DM2 w/ CKD
 ;;^UTILITY(U,$J,358.3,3599,1,4,0)
 ;;=4^E11.22
 ;;^UTILITY(U,$J,358.3,3599,2)
 ;;=^5002630
 ;;^UTILITY(U,$J,358.3,3600,0)
 ;;=E11.42^^26^223^13
 ;;^UTILITY(U,$J,358.3,3600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3600,1,3,0)
 ;;=3^DM2 w/ Polyneuropathy
 ;;^UTILITY(U,$J,358.3,3600,1,4,0)
 ;;=4^E11.42
 ;;^UTILITY(U,$J,358.3,3600,2)
 ;;=^5002646
 ;;^UTILITY(U,$J,358.3,3601,0)
 ;;=E11.43^^26^223^4
 ;;^UTILITY(U,$J,358.3,3601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3601,1,3,0)
 ;;=3^DM2 w/ Autonomic Neuropathy
 ;;^UTILITY(U,$J,358.3,3601,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,3601,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,3602,0)
 ;;=E11.51^^26^223^12
 ;;^UTILITY(U,$J,358.3,3602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3602,1,3,0)
 ;;=3^DM2 w/ PAD/PVD w/o Gangrene
 ;;^UTILITY(U,$J,358.3,3602,1,4,0)
 ;;=4^E11.51
 ;;^UTILITY(U,$J,358.3,3602,2)
 ;;=^5002650
 ;;^UTILITY(U,$J,358.3,3603,0)
 ;;=E11.52^^26^223^11
 ;;^UTILITY(U,$J,358.3,3603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3603,1,3,0)
 ;;=3^DM2 w/ PAD/PVD w/ Gangrene
 ;;^UTILITY(U,$J,358.3,3603,1,4,0)
 ;;=4^E11.52
 ;;^UTILITY(U,$J,358.3,3603,2)
 ;;=^5002651
 ;;^UTILITY(U,$J,358.3,3604,0)
 ;;=E11.59^^26^223^9
 ;;^UTILITY(U,$J,358.3,3604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3604,1,3,0)
 ;;=3^DM2 w/ Other Circulatory Complications
 ;;^UTILITY(U,$J,358.3,3604,1,4,0)
 ;;=4^E11.59
 ;;^UTILITY(U,$J,358.3,3604,2)
 ;;=^5002652
 ;;^UTILITY(U,$J,358.3,3605,0)
 ;;=Z79.84^^26^223^22
 ;;^UTILITY(U,$J,358.3,3605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3605,1,3,0)
 ;;=3^Long Term (Current) Use of Oral Hypoglycemic Drugs
 ;;^UTILITY(U,$J,358.3,3605,1,4,0)
 ;;=4^Z79.84
 ;;^UTILITY(U,$J,358.3,3605,2)
 ;;=^5140432
 ;;^UTILITY(U,$J,358.3,3606,0)
 ;;=E11.649^^26^223^7
 ;;^UTILITY(U,$J,358.3,3606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3606,1,3,0)
 ;;=3^DM2 w/ Hypoglycemia w/o Coma
 ;;^UTILITY(U,$J,358.3,3606,1,4,0)
 ;;=4^E11.649
 ;;^UTILITY(U,$J,358.3,3606,2)
 ;;=^5002662
 ;;^UTILITY(U,$J,358.3,3607,0)
 ;;=Z79.899^^26^223^19
 ;;^UTILITY(U,$J,358.3,3607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3607,1,3,0)
 ;;=3^Long Term (Current) Drug Therapy,Other
 ;;^UTILITY(U,$J,358.3,3607,1,4,0)
 ;;=4^Z79.899
 ;;^UTILITY(U,$J,358.3,3607,2)
 ;;=^5063343
 ;;^UTILITY(U,$J,358.3,3608,0)
 ;;=I25.10^^26^224^4
 ;;^UTILITY(U,$J,358.3,3608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3608,1,3,0)
 ;;=3^Athscl Hrt Disease w/o Angina Pectoris
 ;;^UTILITY(U,$J,358.3,3608,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,3608,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,3609,0)
 ;;=I25.9^^26^224^26
 ;;^UTILITY(U,$J,358.3,3609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3609,1,3,0)
 ;;=3^Ischemic Hrt Disease,Chronic Unspec
 ;;^UTILITY(U,$J,358.3,3609,1,4,0)
 ;;=4^I25.9
 ;;^UTILITY(U,$J,358.3,3609,2)
 ;;=^5007144
 ;;^UTILITY(U,$J,358.3,3610,0)
 ;;=I50.9^^26^224^21
 ;;^UTILITY(U,$J,358.3,3610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3610,1,3,0)
 ;;=3^Heart Failure,Unspec
 ;;^UTILITY(U,$J,358.3,3610,1,4,0)
 ;;=4^I50.9
 ;;^UTILITY(U,$J,358.3,3610,2)
 ;;=^5007251
 ;;^UTILITY(U,$J,358.3,3611,0)
 ;;=R03.0^^26^224^12
 ;;^UTILITY(U,$J,358.3,3611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3611,1,3,0)
 ;;=3^Elevated B/P w/o Diagnosis of HTN
 ;;^UTILITY(U,$J,358.3,3611,1,4,0)
 ;;=4^R03.0
 ;;^UTILITY(U,$J,358.3,3611,2)
 ;;=^5019171
 ;;^UTILITY(U,$J,358.3,3612,0)
 ;;=E78.2^^26^224^28
 ;;^UTILITY(U,$J,358.3,3612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3612,1,3,0)
 ;;=3^Mixed Hyperlipidemia
 ;;^UTILITY(U,$J,358.3,3612,1,4,0)
 ;;=4^E78.2
 ;;^UTILITY(U,$J,358.3,3612,2)
 ;;=^78424
 ;;^UTILITY(U,$J,358.3,3613,0)
 ;;=E78.00^^26^224^29
 ;;^UTILITY(U,$J,358.3,3613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3613,1,3,0)
 ;;=3^Pure Hypercholesterolemia,Unspec
 ;;^UTILITY(U,$J,358.3,3613,1,4,0)
 ;;=4^E78.00
 ;;^UTILITY(U,$J,358.3,3613,2)
 ;;=^5138435
 ;;^UTILITY(U,$J,358.3,3614,0)
 ;;=E78.5^^26^224^22
 ;;^UTILITY(U,$J,358.3,3614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3614,1,3,0)
 ;;=3^Hyperlipidemia,Unspec
 ;;^UTILITY(U,$J,358.3,3614,1,4,0)
 ;;=4^E78.5
 ;;^UTILITY(U,$J,358.3,3614,2)
 ;;=^5002969
 ;;^UTILITY(U,$J,358.3,3615,0)
 ;;=I10.^^26^224^23
 ;;^UTILITY(U,$J,358.3,3615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3615,1,3,0)
 ;;=3^Hypertension
 ;;^UTILITY(U,$J,358.3,3615,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,3615,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,3616,0)
 ;;=I15.9^^26^224^30
 ;;^UTILITY(U,$J,358.3,3616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3616,1,3,0)
 ;;=3^Secondary Hypertension,Unspec
 ;;^UTILITY(U,$J,358.3,3616,1,4,0)
 ;;=4^I15.9
 ;;^UTILITY(U,$J,358.3,3616,2)
 ;;=^5007075
 ;;^UTILITY(U,$J,358.3,3617,0)
 ;;=I25.118^^26^224^5
 ;;^UTILITY(U,$J,358.3,3617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3617,1,3,0)
 ;;=3^CAD w/ Other Angina (incl Stable)
 ;;^UTILITY(U,$J,358.3,3617,1,4,0)
 ;;=4^I25.118
 ;;^UTILITY(U,$J,358.3,3617,2)
 ;;=^5007110
 ;;^UTILITY(U,$J,358.3,3618,0)
 ;;=I25.119^^26^224^6
 ;;^UTILITY(U,$J,358.3,3618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3618,1,3,0)
 ;;=3^CAD w/ Unspec Angina
 ;;^UTILITY(U,$J,358.3,3618,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,3618,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,3619,0)
 ;;=I50.22^^26^224^14
 ;;^UTILITY(U,$J,358.3,3619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3619,1,3,0)
 ;;=3^HFrEF,Chronic
 ;;^UTILITY(U,$J,358.3,3619,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,3619,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,3620,0)
 ;;=I50.32^^26^224^13
 ;;^UTILITY(U,$J,358.3,3620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3620,1,3,0)
 ;;=3^HFpEF,Chronic
 ;;^UTILITY(U,$J,358.3,3620,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,3620,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,3621,0)
 ;;=I50.42^^26^224^11
 ;;^UTILITY(U,$J,358.3,3621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3621,1,3,0)
 ;;=3^Combined Systolic/Diastolic CHF,Chronic
 ;;^UTILITY(U,$J,358.3,3621,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,3621,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,3622,0)
 ;;=I11.0^^26^224^24
 ;;^UTILITY(U,$J,358.3,3622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3622,1,3,0)
 ;;=3^Hypertensive Heart Disease w/ Heart Failure
 ;;^UTILITY(U,$J,358.3,3622,1,4,0)
 ;;=4^I11.0
 ;;^UTILITY(U,$J,358.3,3622,2)
 ;;=^5007063
 ;;^UTILITY(U,$J,358.3,3623,0)
 ;;=I11.9^^26^224^25
 ;;^UTILITY(U,$J,358.3,3623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3623,1,3,0)
 ;;=3^Hypertensive Heart Disease w/o Heart Failure
 ;;^UTILITY(U,$J,358.3,3623,1,4,0)
 ;;=4^I11.9
 ;;^UTILITY(U,$J,358.3,3623,2)
 ;;=^5007064
 ;;^UTILITY(U,$J,358.3,3624,0)
 ;;=I12.0^^26^224^20
 ;;^UTILITY(U,$J,358.3,3624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3624,1,3,0)
 ;;=3^HTN/CKD5 & ESRD
 ;;^UTILITY(U,$J,358.3,3624,1,4,0)
 ;;=4^I12.0
 ;;^UTILITY(U,$J,358.3,3624,2)
 ;;=^5007065
 ;;^UTILITY(U,$J,358.3,3625,0)
 ;;=I12.9^^26^224^19
 ;;^UTILITY(U,$J,358.3,3625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3625,1,3,0)
 ;;=3^HTN/CKD 1-4 or CKD Unspec Stage
 ;;^UTILITY(U,$J,358.3,3625,1,4,0)
 ;;=4^I12.9
 ;;^UTILITY(U,$J,358.3,3625,2)
 ;;=^5007066
 ;;^UTILITY(U,$J,358.3,3626,0)
 ;;=I13.0^^26^224^17
 ;;^UTILITY(U,$J,358.3,3626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3626,1,3,0)
 ;;=3^HTN/CHF/CKD 1-4 or CKD Unspec Stage
 ;;^UTILITY(U,$J,358.3,3626,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,3626,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,3627,0)
 ;;=I13.10^^26^224^15
 ;;^UTILITY(U,$J,358.3,3627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3627,1,3,0)
 ;;=3^HTN Heart w/o CHF w/ CKD1-4 or Unspec Stage
 ;;^UTILITY(U,$J,358.3,3627,1,4,0)
 ;;=4^I13.10
 ;;^UTILITY(U,$J,358.3,3627,2)
 ;;=^5007068
 ;;^UTILITY(U,$J,358.3,3628,0)
 ;;=I13.11^^26^224^16
 ;;^UTILITY(U,$J,358.3,3628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3628,1,3,0)
 ;;=3^HTN Heart w/o CHF w/ CKD5 or ESRD
 ;;^UTILITY(U,$J,358.3,3628,1,4,0)
 ;;=4^I13.11
 ;;^UTILITY(U,$J,358.3,3628,2)
 ;;=^5007069
 ;;^UTILITY(U,$J,358.3,3629,0)
 ;;=I13.2^^26^224^18
 ;;^UTILITY(U,$J,358.3,3629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3629,1,3,0)
 ;;=3^HTN/CHF/CKD5 & ESRD
 ;;^UTILITY(U,$J,358.3,3629,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,3629,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,3630,0)
 ;;=I42.0^^26^224^9
 ;;^UTILITY(U,$J,358.3,3630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3630,1,3,0)
 ;;=3^Cardiomyopathy,Dilated
 ;;^UTILITY(U,$J,358.3,3630,1,4,0)
 ;;=4^I42.0
 ;;^UTILITY(U,$J,358.3,3630,2)
 ;;=^5007194
 ;;^UTILITY(U,$J,358.3,3631,0)
 ;;=I42.6^^26^224^8
 ;;^UTILITY(U,$J,358.3,3631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3631,1,3,0)
 ;;=3^Cardiomyopathy,Alcoholic
 ;;^UTILITY(U,$J,358.3,3631,1,4,0)
 ;;=4^I42.6
 ;;^UTILITY(U,$J,358.3,3631,2)
 ;;=^5007197
 ;;^UTILITY(U,$J,358.3,3632,0)
 ;;=I42.7^^26^224^7
 ;;^UTILITY(U,$J,358.3,3632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3632,1,3,0)
 ;;=3^Cardiomyopathy d/t Drug & External Agent
 ;;^UTILITY(U,$J,358.3,3632,1,4,0)
 ;;=4^I42.7
 ;;^UTILITY(U,$J,358.3,3632,2)
 ;;=^5007198
 ;;^UTILITY(U,$J,358.3,3633,0)
 ;;=I42.8^^26^224^10
 ;;^UTILITY(U,$J,358.3,3633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3633,1,3,0)
 ;;=3^Cardiomyopathy,Other
 ;;^UTILITY(U,$J,358.3,3633,1,4,0)
 ;;=4^I42.8
 ;;^UTILITY(U,$J,358.3,3633,2)
 ;;=^5007199
 ;;^UTILITY(U,$J,358.3,3634,0)
 ;;=I44.0^^26^224^1
 ;;^UTILITY(U,$J,358.3,3634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3634,1,3,0)
 ;;=3^AV Block,1st Degree
 ;;^UTILITY(U,$J,358.3,3634,1,4,0)
 ;;=4^I44.0
 ;;^UTILITY(U,$J,358.3,3634,2)
 ;;=^5007202
 ;;^UTILITY(U,$J,358.3,3635,0)
 ;;=I44.1^^26^224^2
 ;;^UTILITY(U,$J,358.3,3635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3635,1,3,0)
 ;;=3^AV Block,2nd Degree
 ;;^UTILITY(U,$J,358.3,3635,1,4,0)
 ;;=4^I44.1
 ;;^UTILITY(U,$J,358.3,3635,2)
 ;;=^5007203
 ;;^UTILITY(U,$J,358.3,3636,0)
 ;;=I44.2^^26^224^3
 ;;^UTILITY(U,$J,358.3,3636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3636,1,3,0)
 ;;=3^AV Block,Complete
 ;;^UTILITY(U,$J,358.3,3636,1,4,0)
 ;;=4^I44.2
 ;;^UTILITY(U,$J,358.3,3636,2)
 ;;=^259621
 ;;^UTILITY(U,$J,358.3,3637,0)
 ;;=I44.7^^26^224^27
 ;;^UTILITY(U,$J,358.3,3637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3637,1,3,0)
 ;;=3^LBBB,Unspec
 ;;^UTILITY(U,$J,358.3,3637,1,4,0)
 ;;=4^I44.7
 ;;^UTILITY(U,$J,358.3,3637,2)
 ;;=^5007210
 ;;^UTILITY(U,$J,358.3,3638,0)
 ;;=J45.909^^26^225^2
 ;;^UTILITY(U,$J,358.3,3638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3638,1,3,0)
 ;;=3^Asthma,Uncomplicated
 ;;^UTILITY(U,$J,358.3,3638,1,4,0)
 ;;=4^J45.909
 ;;^UTILITY(U,$J,358.3,3638,2)
 ;;=^5008256
 ;;^UTILITY(U,$J,358.3,3639,0)
 ;;=J44.9^^26^225^3
 ;;^UTILITY(U,$J,358.3,3639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3639,1,3,0)
 ;;=3^COPD
 ;;^UTILITY(U,$J,358.3,3639,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,3639,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,3640,0)
 ;;=J18.9^^26^225^5
 ;;^UTILITY(U,$J,358.3,3640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3640,1,3,0)
 ;;=3^Pneumonia,Unspec Organism
 ;;^UTILITY(U,$J,358.3,3640,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,3640,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,3641,0)
 ;;=J30.9^^26^225^1
 ;;^UTILITY(U,$J,358.3,3641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3641,1,3,0)
 ;;=3^Allergic Rhinitis,Unspec
 ;;^UTILITY(U,$J,358.3,3641,1,4,0)
 ;;=4^J30.9
 ;;^UTILITY(U,$J,358.3,3641,2)
 ;;=^5008205
 ;;^UTILITY(U,$J,358.3,3642,0)
 ;;=J15.9^^26^225^4
 ;;^UTILITY(U,$J,358.3,3642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3642,1,3,0)
 ;;=3^Pneumonia,Bacterial
 ;;^UTILITY(U,$J,358.3,3642,1,4,0)
 ;;=4^J15.9
 ;;^UTILITY(U,$J,358.3,3642,2)
 ;;=^5008178
 ;;^UTILITY(U,$J,358.3,3643,0)
 ;;=C61.^^26^226^32
 ;;^UTILITY(U,$J,358.3,3643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3643,1,3,0)
 ;;=3^Malig Neo of Prostate
 ;;^UTILITY(U,$J,358.3,3643,1,4,0)
 ;;=4^C61.
 ;;^UTILITY(U,$J,358.3,3643,2)
 ;;=^267239
 ;;^UTILITY(U,$J,358.3,3644,0)
 ;;=E55.9^^26^226^42
 ;;^UTILITY(U,$J,358.3,3644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3644,1,3,0)
 ;;=3^Vitamin D Deficiency,Unspec
 ;;^UTILITY(U,$J,358.3,3644,1,4,0)
 ;;=4^E55.9
 ;;^UTILITY(U,$J,358.3,3644,2)
 ;;=^5002799
 ;;^UTILITY(U,$J,358.3,3645,0)
 ;;=D63.1^^26^226^9
 ;;^UTILITY(U,$J,358.3,3645,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3645,1,3,0)
 ;;=3^Anemia in Chr Kidney Disease
 ;;^UTILITY(U,$J,358.3,3645,1,4,0)
 ;;=4^D63.1
 ;;^UTILITY(U,$J,358.3,3645,2)
 ;;=^332908
 ;;^UTILITY(U,$J,358.3,3646,0)
 ;;=D63.8^^26^226^8
 ;;^UTILITY(U,$J,358.3,3646,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3646,1,3,0)
 ;;=3^Anemia in Chr Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,3646,1,4,0)
 ;;=4^D63.8
 ;;^UTILITY(U,$J,358.3,3646,2)
 ;;=^5002343
 ;;^UTILITY(U,$J,358.3,3647,0)
 ;;=D64.9^^26^226^10
 ;;^UTILITY(U,$J,358.3,3647,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3647,1,3,0)
 ;;=3^Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,3647,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,3647,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,3648,0)
 ;;=F52.21^^26^226^31
 ;;^UTILITY(U,$J,358.3,3648,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3648,1,3,0)
 ;;=3^Male Erectile Disorder
 ;;^UTILITY(U,$J,358.3,3648,1,4,0)
 ;;=4^F52.21
 ;;^UTILITY(U,$J,358.3,3648,2)
 ;;=^5003620
 ;;^UTILITY(U,$J,358.3,3649,0)
 ;;=F17.200^^26^226^35
 ;;^UTILITY(U,$J,358.3,3649,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3649,1,3,0)
 ;;=3^Nicotine Dependence,Unspec
 ;;^UTILITY(U,$J,358.3,3649,1,4,0)
 ;;=4^F17.200
 ;;^UTILITY(U,$J,358.3,3649,2)
 ;;=^5003360
 ;;^UTILITY(U,$J,358.3,3650,0)
 ;;=F17.210^^26^226^34
 ;;^UTILITY(U,$J,358.3,3650,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3650,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes
 ;;^UTILITY(U,$J,358.3,3650,1,4,0)
 ;;=4^F17.210
 ;;^UTILITY(U,$J,358.3,3650,2)
 ;;=^5003365
 ;;^UTILITY(U,$J,358.3,3651,0)
 ;;=K21.9^^26^226^19
 ;;^UTILITY(U,$J,358.3,3651,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3651,1,3,0)
 ;;=3^GERD w/o Esophagitis
 ;;^UTILITY(U,$J,358.3,3651,1,4,0)
 ;;=4^K21.9
 ;;^UTILITY(U,$J,358.3,3651,2)
 ;;=^5008505
 ;;^UTILITY(U,$J,358.3,3652,0)
 ;;=N18.6^^26^226^14
 ;;^UTILITY(U,$J,358.3,3652,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3652,1,3,0)
 ;;=3^ESRD
 ;;^UTILITY(U,$J,358.3,3652,1,4,0)
 ;;=4^N18.6
 ;;^UTILITY(U,$J,358.3,3652,2)
 ;;=^303986
 ;;^UTILITY(U,$J,358.3,3653,0)
 ;;=N40.0^^26^226^16
 ;;^UTILITY(U,$J,358.3,3653,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3653,1,3,0)
 ;;=3^Enlarged Prostate w/o Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,3653,1,4,0)
 ;;=4^N40.0
 ;;^UTILITY(U,$J,358.3,3653,2)
 ;;=^5015689
 ;;^UTILITY(U,$J,358.3,3654,0)
 ;;=R82.5^^26^226^15
 ;;^UTILITY(U,$J,358.3,3654,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3654,1,3,0)
 ;;=3^Elevated Urine Levels of Drug/Meds/Bio Subst
 ;;^UTILITY(U,$J,358.3,3654,1,4,0)
 ;;=4^R82.5
 ;;^UTILITY(U,$J,358.3,3654,2)
 ;;=^5019605
 ;;^UTILITY(U,$J,358.3,3655,0)
 ;;=R82.6^^26^226^3
 ;;^UTILITY(U,$J,358.3,3655,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3655,1,3,0)
 ;;=3^Abnormal Urine Levels of Non-Medicinal Subs
 ;;^UTILITY(U,$J,358.3,3655,1,4,0)
 ;;=4^R82.6
 ;;^UTILITY(U,$J,358.3,3655,2)
 ;;=^5019606
 ;;^UTILITY(U,$J,358.3,3656,0)
 ;;=R89.2^^26^226^1
 ;;^UTILITY(U,$J,358.3,3656,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3656,1,3,0)
 ;;=3^Abnormal Drug/Meds/Bio Subs Level in Org/Tiss Specimens
 ;;^UTILITY(U,$J,358.3,3656,1,4,0)
 ;;=4^R89.2