IBDEI01O ; ; 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,3656,2)
;;=^5019696
;;^UTILITY(U,$J,358.3,3657,0)
;;=R89.3^^26^226^2
;;^UTILITY(U,$J,358.3,3657,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3657,1,3,0)
;;=3^Abnormal Non-Medicinal Level in Org/Tiss Specimens
;;^UTILITY(U,$J,358.3,3657,1,4,0)
;;=4^R89.3
;;^UTILITY(U,$J,358.3,3657,2)
;;=^5019697
;;^UTILITY(U,$J,358.3,3658,0)
;;=T50.995A^^26^226^5
;;^UTILITY(U,$J,358.3,3658,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3658,1,3,0)
;;=3^Adverse Effect of Drug/Meds/Bio Subs,Init Encounter
;;^UTILITY(U,$J,358.3,3658,1,4,0)
;;=4^T50.995A
;;^UTILITY(U,$J,358.3,3658,2)
;;=^5052178
;;^UTILITY(U,$J,358.3,3659,0)
;;=Z88.9^^26^226^7
;;^UTILITY(U,$J,358.3,3659,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3659,1,3,0)
;;=3^Allergy Status to Unspec Drug/Meds/Bio Subs
;;^UTILITY(U,$J,358.3,3659,1,4,0)
;;=4^Z88.9
;;^UTILITY(U,$J,358.3,3659,2)
;;=^5063530
;;^UTILITY(U,$J,358.3,3660,0)
;;=Z91.19^^26^226^36
;;^UTILITY(U,$J,358.3,3660,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3660,1,3,0)
;;=3^Noncompliance w/ Medical Treatment/Regimen
;;^UTILITY(U,$J,358.3,3660,1,4,0)
;;=4^Z91.19
;;^UTILITY(U,$J,358.3,3660,2)
;;=^5063618
;;^UTILITY(U,$J,358.3,3661,0)
;;=H54.7^^26^226^41
;;^UTILITY(U,$J,358.3,3661,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3661,1,3,0)
;;=3^Visual Loss,Unspec
;;^UTILITY(U,$J,358.3,3661,1,4,0)
;;=4^H54.7
;;^UTILITY(U,$J,358.3,3661,2)
;;=^5006368
;;^UTILITY(U,$J,358.3,3662,0)
;;=Z79.2^^26^226^26
;;^UTILITY(U,$J,358.3,3662,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3662,1,3,0)
;;=3^Long Term (Current) Use of Antibiotics
;;^UTILITY(U,$J,358.3,3662,1,4,0)
;;=4^Z79.2
;;^UTILITY(U,$J,358.3,3662,2)
;;=^321546
;;^UTILITY(U,$J,358.3,3663,0)
;;=Z79.1^^26^226^28
;;^UTILITY(U,$J,358.3,3663,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3663,1,3,0)
;;=3^Long Term (Current) Use of NSAID
;;^UTILITY(U,$J,358.3,3663,1,4,0)
;;=4^Z79.1
;;^UTILITY(U,$J,358.3,3663,2)
;;=^5063332
;;^UTILITY(U,$J,358.3,3664,0)
;;=Z79.52^^26^226^30
;;^UTILITY(U,$J,358.3,3664,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3664,1,3,0)
;;=3^Long Term (Current) Use of Systemic Steroids
;;^UTILITY(U,$J,358.3,3664,1,4,0)
;;=4^Z79.52
;;^UTILITY(U,$J,358.3,3664,2)
;;=^5063336
;;^UTILITY(U,$J,358.3,3665,0)
;;=Z79.82^^26^226^27
;;^UTILITY(U,$J,358.3,3665,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3665,1,3,0)
;;=3^Long Term (Current) Use of Aspirin
;;^UTILITY(U,$J,358.3,3665,1,4,0)
;;=4^Z79.82
;;^UTILITY(U,$J,358.3,3665,2)
;;=^5063340
;;^UTILITY(U,$J,358.3,3666,0)
;;=Z79.899^^26^226^25
;;^UTILITY(U,$J,358.3,3666,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3666,1,3,0)
;;=3^Long Term (Current) Drug Therapy
;;^UTILITY(U,$J,358.3,3666,1,4,0)
;;=4^Z79.899
;;^UTILITY(U,$J,358.3,3666,2)
;;=^5063343
;;^UTILITY(U,$J,358.3,3667,0)
;;=Z71.0^^26^226^21
;;^UTILITY(U,$J,358.3,3667,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3667,1,3,0)
;;=3^Health Services to Consult on Behalf of Another Person
;;^UTILITY(U,$J,358.3,3667,1,4,0)
;;=4^Z71.0
;;^UTILITY(U,$J,358.3,3667,2)
;;=^5063242
;;^UTILITY(U,$J,358.3,3668,0)
;;=Z71.3^^26^226^13
;;^UTILITY(U,$J,358.3,3668,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3668,1,3,0)
;;=3^Dietary Counseling/Surveillance
;;^UTILITY(U,$J,358.3,3668,1,4,0)
;;=4^Z71.3
;;^UTILITY(U,$J,358.3,3668,2)
;;=^5063245
;;^UTILITY(U,$J,358.3,3669,0)
;;=Z71.41^^26^226^6
;;^UTILITY(U,$J,358.3,3669,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3669,1,3,0)
;;=3^Alcohol Abuse Counseling/Surveillance of Alcoholic
;;^UTILITY(U,$J,358.3,3669,1,4,0)
;;=4^Z71.41
;;^UTILITY(U,$J,358.3,3669,2)
;;=^5063246
;;^UTILITY(U,$J,358.3,3670,0)
;;=Z09.^^26^226^18
;;^UTILITY(U,$J,358.3,3670,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3670,1,3,0)
;;=3^F/U Exam After Trtmt for Cond Oth Than Malig Neop
;;^UTILITY(U,$J,358.3,3670,1,4,0)
;;=4^Z09.
;;^UTILITY(U,$J,358.3,3670,2)
;;=^5062668
;;^UTILITY(U,$J,358.3,3671,0)
;;=Z76.0^^26^226^24
;;^UTILITY(U,$J,358.3,3671,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3671,1,3,0)
;;=3^Issue of Repeat Prescription
;;^UTILITY(U,$J,358.3,3671,1,4,0)
;;=4^Z76.0
;;^UTILITY(U,$J,358.3,3671,2)
;;=^5063297
;;^UTILITY(U,$J,358.3,3672,0)
;;=N39.0^^26^226^40
;;^UTILITY(U,$J,358.3,3672,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3672,1,3,0)
;;=3^UTI
;;^UTILITY(U,$J,358.3,3672,1,4,0)
;;=4^N39.0
;;^UTILITY(U,$J,358.3,3672,2)
;;=^124436
;;^UTILITY(U,$J,358.3,3673,0)
;;=B19.20^^26^226^23
;;^UTILITY(U,$J,358.3,3673,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3673,1,3,0)
;;=3^Hepatitis C,Viral
;;^UTILITY(U,$J,358.3,3673,1,4,0)
;;=4^B19.20
;;^UTILITY(U,$J,358.3,3673,2)
;;=^331436
;;^UTILITY(U,$J,358.3,3674,0)
;;=B20.^^26^226^20
;;^UTILITY(U,$J,358.3,3674,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3674,1,3,0)
;;=3^HIV
;;^UTILITY(U,$J,358.3,3674,1,4,0)
;;=4^B20.
;;^UTILITY(U,$J,358.3,3674,2)
;;=^5000555
;;^UTILITY(U,$J,358.3,3675,0)
;;=G35.^^26^226^33
;;^UTILITY(U,$J,358.3,3675,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3675,1,3,0)
;;=3^Multiple Sclerosis
;;^UTILITY(U,$J,358.3,3675,1,4,0)
;;=4^G35.
;;^UTILITY(U,$J,358.3,3675,2)
;;=^79761
;;^UTILITY(U,$J,358.3,3676,0)
;;=D68.311^^26^226^22
;;^UTILITY(U,$J,358.3,3676,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3676,1,3,0)
;;=3^Hemophilia,Acquired
;;^UTILITY(U,$J,358.3,3676,1,4,0)
;;=4^D68.311
;;^UTILITY(U,$J,358.3,3676,2)
;;=^340502
;;^UTILITY(U,$J,358.3,3677,0)
;;=D68.312^^26^226^11
;;^UTILITY(U,$J,358.3,3677,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3677,1,3,0)
;;=3^Antiphospholipid Antibody w/ Hemorrhagic Disorder
;;^UTILITY(U,$J,358.3,3677,1,4,0)
;;=4^D68.312
;;^UTILITY(U,$J,358.3,3677,2)
;;=^340503
;;^UTILITY(U,$J,358.3,3678,0)
;;=Z51.81^^26^226^38
;;^UTILITY(U,$J,358.3,3678,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3678,1,3,0)
;;=3^Therapeutic Drug Level Monitoring
;;^UTILITY(U,$J,358.3,3678,1,4,0)
;;=4^Z51.81
;;^UTILITY(U,$J,358.3,3678,2)
;;=^5063064
;;^UTILITY(U,$J,358.3,3679,0)
;;=L03.90^^26^226^12
;;^UTILITY(U,$J,358.3,3679,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3679,1,3,0)
;;=3^Cellulitis,Unspec
;;^UTILITY(U,$J,358.3,3679,1,4,0)
;;=4^L03.90
;;^UTILITY(U,$J,358.3,3679,2)
;;=^5009067
;;^UTILITY(U,$J,358.3,3680,0)
;;=Z04.89^^26^226^17
;;^UTILITY(U,$J,358.3,3680,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3680,1,3,0)
;;=3^Examination/Observation for Other Reasons
;;^UTILITY(U,$J,358.3,3680,1,4,0)
;;=4^Z04.89
;;^UTILITY(U,$J,358.3,3680,2)
;;=^5157615
;;^UTILITY(U,$J,358.3,3681,0)
;;=Z79.891^^26^226^29
;;^UTILITY(U,$J,358.3,3681,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3681,1,3,0)
;;=3^Long Term (Current) Use of Opiate Analgesic
;;^UTILITY(U,$J,358.3,3681,1,4,0)
;;=4^Z79.891
;;^UTILITY(U,$J,358.3,3681,2)
;;=^5063342
;;^UTILITY(U,$J,358.3,3682,0)
;;=Z02.89^^26^226^4
;;^UTILITY(U,$J,358.3,3682,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3682,1,3,0)
;;=3^Administrative Examinations,Other
;;^UTILITY(U,$J,358.3,3682,1,4,0)
;;=4^Z02.89
;;^UTILITY(U,$J,358.3,3682,2)
;;=^5062645
;;^UTILITY(U,$J,358.3,3683,0)
;;=Z71.89^^26^226^37
;;^UTILITY(U,$J,358.3,3683,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3683,1,3,0)
;;=3^Specified Counseling,Other
;;^UTILITY(U,$J,358.3,3683,1,4,0)
;;=4^Z71.89
;;^UTILITY(U,$J,358.3,3683,2)
;;=^5063253
;;^UTILITY(U,$J,358.3,3684,0)
;;=Z71.6^^26^226^39
;;^UTILITY(U,$J,358.3,3684,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3684,1,3,0)
;;=3^Tobacco Abuse Counseling
;;^UTILITY(U,$J,358.3,3684,1,4,0)
;;=4^Z71.6
;;^UTILITY(U,$J,358.3,3684,2)
;;=^5063250
;;^UTILITY(U,$J,358.3,3685,0)
;;=Z02.89^^26^227^1
;;^UTILITY(U,$J,358.3,3685,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3685,1,3,0)
;;=3^Administrative Exams,Other
;;^UTILITY(U,$J,358.3,3685,1,4,0)
;;=4^Z02.89
;;^UTILITY(U,$J,358.3,3685,2)
;;=^5062645
;;^UTILITY(U,$J,358.3,3686,0)
;;=Z51.81^^26^227^4
;;^UTILITY(U,$J,358.3,3686,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3686,1,3,0)
;;=3^Therapeutic Drug Level Monitoring
;;^UTILITY(U,$J,358.3,3686,1,4,0)
;;=4^Z51.81
;;^UTILITY(U,$J,358.3,3686,2)
;;=^5063064
;;^UTILITY(U,$J,358.3,3687,0)
;;=Z79.01^^26^227^3
;;^UTILITY(U,$J,358.3,3687,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3687,1,3,0)
;;=3^Long Term (Current) Use of Anticoagulants
;;^UTILITY(U,$J,358.3,3687,1,4,0)
;;=4^Z79.01
;;^UTILITY(U,$J,358.3,3687,2)
;;=^5063330
;;^UTILITY(U,$J,358.3,3688,0)
;;=Z79.899^^26^227^2
;;^UTILITY(U,$J,358.3,3688,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3688,1,3,0)
;;=3^Long Term (Current) Other Drug Therapy
;;^UTILITY(U,$J,358.3,3688,1,4,0)
;;=4^Z79.899
;;^UTILITY(U,$J,358.3,3688,2)
;;=^5063343
;;^UTILITY(U,$J,358.3,3689,0)
;;=Z91.19^^26^227^5
;;^UTILITY(U,$J,358.3,3689,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3689,1,3,0)
;;=3^Noncompliance w/ Medical Treatment/Regimen
;;^UTILITY(U,$J,358.3,3689,1,4,0)
;;=4^Z91.19
;;^UTILITY(U,$J,358.3,3689,2)
;;=^5063618
;;^UTILITY(U,$J,358.3,3690,0)
;;=Z71.6^^26^227^6
;;^UTILITY(U,$J,358.3,3690,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3690,1,3,0)
;;=3^Tobacco Abuse Counseling
;;^UTILITY(U,$J,358.3,3690,1,4,0)
;;=4^Z71.6
;;^UTILITY(U,$J,358.3,3690,2)
;;=^5063250
;;^UTILITY(U,$J,358.3,3691,0)
;;=99202^^27^228^1
;;^UTILITY(U,$J,358.3,3691,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3691,1,1,0)
;;=1^SF MDM or 15-29 min
;;^UTILITY(U,$J,358.3,3691,1,2,0)
;;=2^99202
;;^UTILITY(U,$J,358.3,3692,0)
;;=99203^^27^228^2
;;^UTILITY(U,$J,358.3,3692,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3692,1,1,0)
;;=1^Low MDM or 30-44 min
;;^UTILITY(U,$J,358.3,3692,1,2,0)
;;=2^99203
;;^UTILITY(U,$J,358.3,3693,0)
;;=99204^^27^228^3
;;^UTILITY(U,$J,358.3,3693,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3693,1,1,0)
;;=1^Mod MDM or 45-59 min
;;^UTILITY(U,$J,358.3,3693,1,2,0)
;;=2^99204
;;^UTILITY(U,$J,358.3,3694,0)
;;=99205^^27^228^4
;;^UTILITY(U,$J,358.3,3694,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3694,1,1,0)
;;=1^High MDM or 60-74 min
;;^UTILITY(U,$J,358.3,3694,1,2,0)
;;=2^99205
;;^UTILITY(U,$J,358.3,3695,0)
;;=99211^^27^229^1
;;^UTILITY(U,$J,358.3,3695,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3695,1,1,0)
;;=1^Brief Visit-MDM None/Minimal
;;^UTILITY(U,$J,358.3,3695,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,3696,0)
;;=99212^^27^229^2
;;^UTILITY(U,$J,358.3,3696,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3696,1,1,0)
;;=1^SF MDM or 10-19 min
;;^UTILITY(U,$J,358.3,3696,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,3697,0)
;;=99213^^27^229^3
;;^UTILITY(U,$J,358.3,3697,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3697,1,1,0)
;;=1^Low MDM or 20-29 min
;;^UTILITY(U,$J,358.3,3697,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,3698,0)
;;=99214^^27^229^4
;;^UTILITY(U,$J,358.3,3698,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3698,1,1,0)
;;=1^Mod MDM or 30-39 min
;;^UTILITY(U,$J,358.3,3698,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,3699,0)
;;=99215^^27^229^5
;;^UTILITY(U,$J,358.3,3699,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3699,1,1,0)
;;=1^High MDM or 40-54 min
;;^UTILITY(U,$J,358.3,3699,1,2,0)
;;=2^99215
;;^UTILITY(U,$J,358.3,3700,0)
;;=99241^^27^230^1
;;^UTILITY(U,$J,358.3,3700,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3700,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,3700,1,2,0)
;;=2^99241
;;^UTILITY(U,$J,358.3,3701,0)
;;=99242^^27^230^2
;;^UTILITY(U,$J,358.3,3701,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3701,1,1,0)
;;=1^Exp Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,3701,1,2,0)
;;=2^99242
;;^UTILITY(U,$J,358.3,3702,0)
;;=99243^^27^230^3
;;^UTILITY(U,$J,358.3,3702,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3702,1,1,0)
;;=1^Detailed Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,3702,1,2,0)
;;=2^99243
;;^UTILITY(U,$J,358.3,3703,0)
;;=99244^^27^230^4
;;^UTILITY(U,$J,358.3,3703,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3703,1,1,0)
;;=1^Comprehensive Hx/PE & Mod Complex MDM
;;^UTILITY(U,$J,358.3,3703,1,2,0)
;;=2^99244
;;^UTILITY(U,$J,358.3,3704,0)
;;=99245^^27^230^5
;;^UTILITY(U,$J,358.3,3704,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3704,1,1,0)
;;=1^Comprehensive Hx/PE & High Complex MDM
;;^UTILITY(U,$J,358.3,3704,1,2,0)
;;=2^99245
;;^UTILITY(U,$J,358.3,3705,0)
;;=99395^^27^231^1
;;^UTILITY(U,$J,358.3,3705,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3705,1,1,0)
;;=1^Est Comp PM Age 18-39
;;^UTILITY(U,$J,358.3,3705,1,2,0)
;;=2^99395
;;^UTILITY(U,$J,358.3,3706,0)
;;=99396^^27^231^2
;;^UTILITY(U,$J,358.3,3706,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3706,1,1,0)
;;=1^Est Comp PM Age 40-64
;;^UTILITY(U,$J,358.3,3706,1,2,0)
;;=2^99396
;;^UTILITY(U,$J,358.3,3707,0)
;;=99397^^27^231^3
;;^UTILITY(U,$J,358.3,3707,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3707,1,1,0)
;;=1^Est Comp PM Age > 64
;;^UTILITY(U,$J,358.3,3707,1,2,0)
;;=2^99397
;;^UTILITY(U,$J,358.3,3708,0)
;;=99385^^27^232^1
;;^UTILITY(U,$J,358.3,3708,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3708,1,1,0)
;;=1^Init Comp PM Age 18-39
;;^UTILITY(U,$J,358.3,3708,1,2,0)
;;=2^99385
;;^UTILITY(U,$J,358.3,3709,0)
;;=99386^^27^232^2
;;^UTILITY(U,$J,358.3,3709,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3709,1,1,0)
;;=1^Init Comp PM Age 40-64
;;^UTILITY(U,$J,358.3,3709,1,2,0)
;;=2^99386
;;^UTILITY(U,$J,358.3,3710,0)
;;=99387^^27^232^3
;;^UTILITY(U,$J,358.3,3710,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3710,1,1,0)
;;=1^Init Comp PM Age > 64
;;^UTILITY(U,$J,358.3,3710,1,2,0)
;;=2^99387
;;^UTILITY(U,$J,358.3,3711,0)
;;=99411^^27^233^1
;;^UTILITY(U,$J,358.3,3711,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3711,1,1,0)
;;=1^Preventive Counsel,Grp,30min
;;^UTILITY(U,$J,358.3,3711,1,2,0)
;;=2^99411
;;^UTILITY(U,$J,358.3,3712,0)
;;=99412^^27^233^2
;;^UTILITY(U,$J,358.3,3712,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3712,1,1,0)
;;=1^Preventive Counsel,Grp,60min
;;^UTILITY(U,$J,358.3,3712,1,2,0)
;;=2^99412
;;^UTILITY(U,$J,358.3,3713,0)
;;=99401^^27^234^1
;;^UTILITY(U,$J,358.3,3713,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3713,1,1,0)
;;=1^Preventive Counseling,15min
;;^UTILITY(U,$J,358.3,3713,1,2,0)
;;=2^99401
;;^UTILITY(U,$J,358.3,3714,0)
;;=99402^^27^234^2
;;^UTILITY(U,$J,358.3,3714,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3714,1,1,0)
;;=1^Preventive Counseling,30min
;;^UTILITY(U,$J,358.3,3714,1,2,0)
;;=2^99402
;;^UTILITY(U,$J,358.3,3715,0)
;;=99403^^27^234^3
;;^UTILITY(U,$J,358.3,3715,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3715,1,1,0)
;;=1^Preventive Counseling,45min
;;^UTILITY(U,$J,358.3,3715,1,2,0)
;;=2^99403
;;^UTILITY(U,$J,358.3,3716,0)
;;=99404^^27^234^4
;;^UTILITY(U,$J,358.3,3716,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,3716,1,1,0)
;;=1^Preventive Counseling,60min
;;^UTILITY(U,$J,358.3,3716,1,2,0)
;;=2^99404
;;^UTILITY(U,$J,358.3,3717,0)
;;=10060^^28^235^9^^^^1
;;^UTILITY(U,$J,358.3,3717,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3717,1,2,0)
;;=2^10060
;;^UTILITY(U,$J,358.3,3717,1,3,0)
;;=3^I&D ABSCESS, SIMPLE or SINGLE
;;^UTILITY(U,$J,358.3,3718,0)
;;=10061^^28^235^8^^^^1
;;^UTILITY(U,$J,358.3,3718,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3718,1,2,0)
;;=2^10061
;;^UTILITY(U,$J,358.3,3718,1,3,0)
;;=3^I&D ABSCESS, COMPLI or MULTI
;;^UTILITY(U,$J,358.3,3719,0)
;;=10120^^28^235^13^^^^1
;;^UTILITY(U,$J,358.3,3719,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3719,1,2,0)
;;=2^10120
;;^UTILITY(U,$J,358.3,3719,1,3,0)
;;=3^REM FB, SUBCUT;SIMPLE
;;^UTILITY(U,$J,358.3,3720,0)
;;=10121^^28^235^12^^^^1
;;^UTILITY(U,$J,358.3,3720,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3720,1,2,0)
;;=2^10121
;;^UTILITY(U,$J,358.3,3720,1,3,0)
;;=3^REM FB, COMPLICATED
;;^UTILITY(U,$J,358.3,3721,0)
;;=11042^^28^235^7^^^^1
;;^UTILITY(U,$J,358.3,3721,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3721,1,2,0)
;;=2^11042
;;^UTILITY(U,$J,358.3,3721,1,3,0)
;;=3^DEBRIDE SKIN,SQ TISSUE,1st 20 sq cm
;;^UTILITY(U,$J,358.3,3722,0)
;;=11045^^28^235^4^^^^1
;;^UTILITY(U,$J,358.3,3722,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3722,1,2,0)
;;=2^11045
;;^UTILITY(U,$J,358.3,3722,1,3,0)
;;=3^DEB SKIN,SQ TISS,ADD 20 sq cm
;;^UTILITY(U,$J,358.3,3723,0)
;;=11043^^28^235^2^^^^1
;;^UTILITY(U,$J,358.3,3723,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3723,1,2,0)
;;=2^11043
;;^UTILITY(U,$J,358.3,3723,1,3,0)
;;=3^DEB MUSC/FASC 1st 20sq cm or <
;;^UTILITY(U,$J,358.3,3724,0)
;;=11046^^28^235^3^^^^1
;;^UTILITY(U,$J,358.3,3724,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3724,1,2,0)
;;=2^11046
;;^UTILITY(U,$J,358.3,3724,1,3,0)
;;=3^DEB MUSC/FASC,EA ADD 20sq cm
;;^UTILITY(U,$J,358.3,3725,0)
;;=11044^^28^235^5^^^^1
;;^UTILITY(U,$J,358.3,3725,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3725,1,2,0)
;;=2^11044
;;^UTILITY(U,$J,358.3,3725,1,3,0)
;;=3^DEBRIDE BONE UP TO 20sq cm
;;^UTILITY(U,$J,358.3,3726,0)
;;=11047^^28^235^6^^^^1
;;^UTILITY(U,$J,358.3,3726,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3726,1,2,0)
;;=2^11047
;;^UTILITY(U,$J,358.3,3726,1,3,0)
;;=3^DEBRIDE BONE,EA ADDL 20sq cm
;;^UTILITY(U,$J,358.3,3727,0)
;;=10140^^28^235^10^^^^1
;;^UTILITY(U,$J,358.3,3727,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3727,1,2,0)
;;=2^10140
;;^UTILITY(U,$J,358.3,3727,1,3,0)
;;=3^I&D HEMATOMA/SEROMA/FLUID COLLECTION
;;^UTILITY(U,$J,358.3,3728,0)
;;=10160^^28^235^1^^^^1
;;^UTILITY(U,$J,358.3,3728,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3728,1,2,0)
;;=2^10160
;;^UTILITY(U,$J,358.3,3728,1,3,0)
;;=3^ASPIRATION ABSCESS/HEMATOMA/BULLA/CYST
;;^UTILITY(U,$J,358.3,3729,0)
;;=10180^^28^235^11^^^^1
;;^UTILITY(U,$J,358.3,3729,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3729,1,2,0)
;;=2^10180
;;^UTILITY(U,$J,358.3,3729,1,3,0)
;;=3^I&D POSTOP WOUND INFECTION,COMPLEX
;;^UTILITY(U,$J,358.3,3730,0)
;;=98960^^28^236^7^^^^1
;;^UTILITY(U,$J,358.3,3730,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3730,1,2,0)
;;=2^98960
;;^UTILITY(U,$J,358.3,3730,1,3,0)
;;=3^SELF-MGMT ED/TRAIN 1 PT,30 MIN
;;^UTILITY(U,$J,358.3,3731,0)
;;=98961^^28^236^8^^^^1
;;^UTILITY(U,$J,358.3,3731,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3731,1,2,0)
;;=2^98961
;;^UTILITY(U,$J,358.3,3731,1,3,0)
;;=3^SELF-MGMT ED/TRN 2-4 PT,30 MIN
;;^UTILITY(U,$J,358.3,3732,0)
;;=98962^^28^236^9^^^^1
;;^UTILITY(U,$J,358.3,3732,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3732,1,2,0)
;;=2^98962
;;^UTILITY(U,$J,358.3,3732,1,3,0)
;;=3^SELF-MGMT ED/TRN 5-8 PT,30 MIN
;;^UTILITY(U,$J,358.3,3733,0)
;;=S9455^^28^236^4^^^^1
;;^UTILITY(U,$J,358.3,3733,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3733,1,2,0)
;;=2^S9455
;;^UTILITY(U,$J,358.3,3733,1,3,0)
;;=3^DIABETIC MGMT PROGRAM,GRP
;;^UTILITY(U,$J,358.3,3734,0)
;;=S9460^^28^236^5^^^^1
;;^UTILITY(U,$J,358.3,3734,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3734,1,2,0)
;;=2^S9460
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI01O 19774 printed Nov 22, 2024@16:50:04 Page 2
IBDEI01O ; ; 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,3656,2)
+2 ;;=^5019696
+3 ;;^UTILITY(U,$J,358.3,3657,0)
+4 ;;=R89.3^^26^226^2
+5 ;;^UTILITY(U,$J,358.3,3657,1,0)
+6 ;;=^358.31IA^4^2
+7 ;;^UTILITY(U,$J,358.3,3657,1,3,0)
+8 ;;=3^Abnormal Non-Medicinal Level in Org/Tiss Specimens
+9 ;;^UTILITY(U,$J,358.3,3657,1,4,0)
+10 ;;=4^R89.3
+11 ;;^UTILITY(U,$J,358.3,3657,2)
+12 ;;=^5019697
+13 ;;^UTILITY(U,$J,358.3,3658,0)
+14 ;;=T50.995A^^26^226^5
+15 ;;^UTILITY(U,$J,358.3,3658,1,0)
+16 ;;=^358.31IA^4^2
+17 ;;^UTILITY(U,$J,358.3,3658,1,3,0)
+18 ;;=3^Adverse Effect of Drug/Meds/Bio Subs,Init Encounter
+19 ;;^UTILITY(U,$J,358.3,3658,1,4,0)
+20 ;;=4^T50.995A
+21 ;;^UTILITY(U,$J,358.3,3658,2)
+22 ;;=^5052178
+23 ;;^UTILITY(U,$J,358.3,3659,0)
+24 ;;=Z88.9^^26^226^7
+25 ;;^UTILITY(U,$J,358.3,3659,1,0)
+26 ;;=^358.31IA^4^2
+27 ;;^UTILITY(U,$J,358.3,3659,1,3,0)
+28 ;;=3^Allergy Status to Unspec Drug/Meds/Bio Subs
+29 ;;^UTILITY(U,$J,358.3,3659,1,4,0)
+30 ;;=4^Z88.9
+31 ;;^UTILITY(U,$J,358.3,3659,2)
+32 ;;=^5063530
+33 ;;^UTILITY(U,$J,358.3,3660,0)
+34 ;;=Z91.19^^26^226^36
+35 ;;^UTILITY(U,$J,358.3,3660,1,0)
+36 ;;=^358.31IA^4^2
+37 ;;^UTILITY(U,$J,358.3,3660,1,3,0)
+38 ;;=3^Noncompliance w/ Medical Treatment/Regimen
+39 ;;^UTILITY(U,$J,358.3,3660,1,4,0)
+40 ;;=4^Z91.19
+41 ;;^UTILITY(U,$J,358.3,3660,2)
+42 ;;=^5063618
+43 ;;^UTILITY(U,$J,358.3,3661,0)
+44 ;;=H54.7^^26^226^41
+45 ;;^UTILITY(U,$J,358.3,3661,1,0)
+46 ;;=^358.31IA^4^2
+47 ;;^UTILITY(U,$J,358.3,3661,1,3,0)
+48 ;;=3^Visual Loss,Unspec
+49 ;;^UTILITY(U,$J,358.3,3661,1,4,0)
+50 ;;=4^H54.7
+51 ;;^UTILITY(U,$J,358.3,3661,2)
+52 ;;=^5006368
+53 ;;^UTILITY(U,$J,358.3,3662,0)
+54 ;;=Z79.2^^26^226^26
+55 ;;^UTILITY(U,$J,358.3,3662,1,0)
+56 ;;=^358.31IA^4^2
+57 ;;^UTILITY(U,$J,358.3,3662,1,3,0)
+58 ;;=3^Long Term (Current) Use of Antibiotics
+59 ;;^UTILITY(U,$J,358.3,3662,1,4,0)
+60 ;;=4^Z79.2
+61 ;;^UTILITY(U,$J,358.3,3662,2)
+62 ;;=^321546
+63 ;;^UTILITY(U,$J,358.3,3663,0)
+64 ;;=Z79.1^^26^226^28
+65 ;;^UTILITY(U,$J,358.3,3663,1,0)
+66 ;;=^358.31IA^4^2
+67 ;;^UTILITY(U,$J,358.3,3663,1,3,0)
+68 ;;=3^Long Term (Current) Use of NSAID
+69 ;;^UTILITY(U,$J,358.3,3663,1,4,0)
+70 ;;=4^Z79.1
+71 ;;^UTILITY(U,$J,358.3,3663,2)
+72 ;;=^5063332
+73 ;;^UTILITY(U,$J,358.3,3664,0)
+74 ;;=Z79.52^^26^226^30
+75 ;;^UTILITY(U,$J,358.3,3664,1,0)
+76 ;;=^358.31IA^4^2
+77 ;;^UTILITY(U,$J,358.3,3664,1,3,0)
+78 ;;=3^Long Term (Current) Use of Systemic Steroids
+79 ;;^UTILITY(U,$J,358.3,3664,1,4,0)
+80 ;;=4^Z79.52
+81 ;;^UTILITY(U,$J,358.3,3664,2)
+82 ;;=^5063336
+83 ;;^UTILITY(U,$J,358.3,3665,0)
+84 ;;=Z79.82^^26^226^27
+85 ;;^UTILITY(U,$J,358.3,3665,1,0)
+86 ;;=^358.31IA^4^2
+87 ;;^UTILITY(U,$J,358.3,3665,1,3,0)
+88 ;;=3^Long Term (Current) Use of Aspirin
+89 ;;^UTILITY(U,$J,358.3,3665,1,4,0)
+90 ;;=4^Z79.82
+91 ;;^UTILITY(U,$J,358.3,3665,2)
+92 ;;=^5063340
+93 ;;^UTILITY(U,$J,358.3,3666,0)
+94 ;;=Z79.899^^26^226^25
+95 ;;^UTILITY(U,$J,358.3,3666,1,0)
+96 ;;=^358.31IA^4^2
+97 ;;^UTILITY(U,$J,358.3,3666,1,3,0)
+98 ;;=3^Long Term (Current) Drug Therapy
+99 ;;^UTILITY(U,$J,358.3,3666,1,4,0)
+100 ;;=4^Z79.899
+101 ;;^UTILITY(U,$J,358.3,3666,2)
+102 ;;=^5063343
+103 ;;^UTILITY(U,$J,358.3,3667,0)
+104 ;;=Z71.0^^26^226^21
+105 ;;^UTILITY(U,$J,358.3,3667,1,0)
+106 ;;=^358.31IA^4^2
+107 ;;^UTILITY(U,$J,358.3,3667,1,3,0)
+108 ;;=3^Health Services to Consult on Behalf of Another Person
+109 ;;^UTILITY(U,$J,358.3,3667,1,4,0)
+110 ;;=4^Z71.0
+111 ;;^UTILITY(U,$J,358.3,3667,2)
+112 ;;=^5063242
+113 ;;^UTILITY(U,$J,358.3,3668,0)
+114 ;;=Z71.3^^26^226^13
+115 ;;^UTILITY(U,$J,358.3,3668,1,0)
+116 ;;=^358.31IA^4^2
+117 ;;^UTILITY(U,$J,358.3,3668,1,3,0)
+118 ;;=3^Dietary Counseling/Surveillance
+119 ;;^UTILITY(U,$J,358.3,3668,1,4,0)
+120 ;;=4^Z71.3
+121 ;;^UTILITY(U,$J,358.3,3668,2)
+122 ;;=^5063245
+123 ;;^UTILITY(U,$J,358.3,3669,0)
+124 ;;=Z71.41^^26^226^6
+125 ;;^UTILITY(U,$J,358.3,3669,1,0)
+126 ;;=^358.31IA^4^2
+127 ;;^UTILITY(U,$J,358.3,3669,1,3,0)
+128 ;;=3^Alcohol Abuse Counseling/Surveillance of Alcoholic
+129 ;;^UTILITY(U,$J,358.3,3669,1,4,0)
+130 ;;=4^Z71.41
+131 ;;^UTILITY(U,$J,358.3,3669,2)
+132 ;;=^5063246
+133 ;;^UTILITY(U,$J,358.3,3670,0)
+134 ;;=Z09.^^26^226^18
+135 ;;^UTILITY(U,$J,358.3,3670,1,0)
+136 ;;=^358.31IA^4^2
+137 ;;^UTILITY(U,$J,358.3,3670,1,3,0)
+138 ;;=3^F/U Exam After Trtmt for Cond Oth Than Malig Neop
+139 ;;^UTILITY(U,$J,358.3,3670,1,4,0)
+140 ;;=4^Z09.
+141 ;;^UTILITY(U,$J,358.3,3670,2)
+142 ;;=^5062668
+143 ;;^UTILITY(U,$J,358.3,3671,0)
+144 ;;=Z76.0^^26^226^24
+145 ;;^UTILITY(U,$J,358.3,3671,1,0)
+146 ;;=^358.31IA^4^2
+147 ;;^UTILITY(U,$J,358.3,3671,1,3,0)
+148 ;;=3^Issue of Repeat Prescription
+149 ;;^UTILITY(U,$J,358.3,3671,1,4,0)
+150 ;;=4^Z76.0
+151 ;;^UTILITY(U,$J,358.3,3671,2)
+152 ;;=^5063297
+153 ;;^UTILITY(U,$J,358.3,3672,0)
+154 ;;=N39.0^^26^226^40
+155 ;;^UTILITY(U,$J,358.3,3672,1,0)
+156 ;;=^358.31IA^4^2
+157 ;;^UTILITY(U,$J,358.3,3672,1,3,0)
+158 ;;=3^UTI
+159 ;;^UTILITY(U,$J,358.3,3672,1,4,0)
+160 ;;=4^N39.0
+161 ;;^UTILITY(U,$J,358.3,3672,2)
+162 ;;=^124436
+163 ;;^UTILITY(U,$J,358.3,3673,0)
+164 ;;=B19.20^^26^226^23
+165 ;;^UTILITY(U,$J,358.3,3673,1,0)
+166 ;;=^358.31IA^4^2
+167 ;;^UTILITY(U,$J,358.3,3673,1,3,0)
+168 ;;=3^Hepatitis C,Viral
+169 ;;^UTILITY(U,$J,358.3,3673,1,4,0)
+170 ;;=4^B19.20
+171 ;;^UTILITY(U,$J,358.3,3673,2)
+172 ;;=^331436
+173 ;;^UTILITY(U,$J,358.3,3674,0)
+174 ;;=B20.^^26^226^20
+175 ;;^UTILITY(U,$J,358.3,3674,1,0)
+176 ;;=^358.31IA^4^2
+177 ;;^UTILITY(U,$J,358.3,3674,1,3,0)
+178 ;;=3^HIV
+179 ;;^UTILITY(U,$J,358.3,3674,1,4,0)
+180 ;;=4^B20.
+181 ;;^UTILITY(U,$J,358.3,3674,2)
+182 ;;=^5000555
+183 ;;^UTILITY(U,$J,358.3,3675,0)
+184 ;;=G35.^^26^226^33
+185 ;;^UTILITY(U,$J,358.3,3675,1,0)
+186 ;;=^358.31IA^4^2
+187 ;;^UTILITY(U,$J,358.3,3675,1,3,0)
+188 ;;=3^Multiple Sclerosis
+189 ;;^UTILITY(U,$J,358.3,3675,1,4,0)
+190 ;;=4^G35.
+191 ;;^UTILITY(U,$J,358.3,3675,2)
+192 ;;=^79761
+193 ;;^UTILITY(U,$J,358.3,3676,0)
+194 ;;=D68.311^^26^226^22
+195 ;;^UTILITY(U,$J,358.3,3676,1,0)
+196 ;;=^358.31IA^4^2
+197 ;;^UTILITY(U,$J,358.3,3676,1,3,0)
+198 ;;=3^Hemophilia,Acquired
+199 ;;^UTILITY(U,$J,358.3,3676,1,4,0)
+200 ;;=4^D68.311
+201 ;;^UTILITY(U,$J,358.3,3676,2)
+202 ;;=^340502
+203 ;;^UTILITY(U,$J,358.3,3677,0)
+204 ;;=D68.312^^26^226^11
+205 ;;^UTILITY(U,$J,358.3,3677,1,0)
+206 ;;=^358.31IA^4^2
+207 ;;^UTILITY(U,$J,358.3,3677,1,3,0)
+208 ;;=3^Antiphospholipid Antibody w/ Hemorrhagic Disorder
+209 ;;^UTILITY(U,$J,358.3,3677,1,4,0)
+210 ;;=4^D68.312
+211 ;;^UTILITY(U,$J,358.3,3677,2)
+212 ;;=^340503
+213 ;;^UTILITY(U,$J,358.3,3678,0)
+214 ;;=Z51.81^^26^226^38
+215 ;;^UTILITY(U,$J,358.3,3678,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,3678,1,3,0)
+218 ;;=3^Therapeutic Drug Level Monitoring
+219 ;;^UTILITY(U,$J,358.3,3678,1,4,0)
+220 ;;=4^Z51.81
+221 ;;^UTILITY(U,$J,358.3,3678,2)
+222 ;;=^5063064
+223 ;;^UTILITY(U,$J,358.3,3679,0)
+224 ;;=L03.90^^26^226^12
+225 ;;^UTILITY(U,$J,358.3,3679,1,0)
+226 ;;=^358.31IA^4^2
+227 ;;^UTILITY(U,$J,358.3,3679,1,3,0)
+228 ;;=3^Cellulitis,Unspec
+229 ;;^UTILITY(U,$J,358.3,3679,1,4,0)
+230 ;;=4^L03.90
+231 ;;^UTILITY(U,$J,358.3,3679,2)
+232 ;;=^5009067
+233 ;;^UTILITY(U,$J,358.3,3680,0)
+234 ;;=Z04.89^^26^226^17
+235 ;;^UTILITY(U,$J,358.3,3680,1,0)
+236 ;;=^358.31IA^4^2
+237 ;;^UTILITY(U,$J,358.3,3680,1,3,0)
+238 ;;=3^Examination/Observation for Other Reasons
+239 ;;^UTILITY(U,$J,358.3,3680,1,4,0)
+240 ;;=4^Z04.89
+241 ;;^UTILITY(U,$J,358.3,3680,2)
+242 ;;=^5157615
+243 ;;^UTILITY(U,$J,358.3,3681,0)
+244 ;;=Z79.891^^26^226^29
+245 ;;^UTILITY(U,$J,358.3,3681,1,0)
+246 ;;=^358.31IA^4^2
+247 ;;^UTILITY(U,$J,358.3,3681,1,3,0)
+248 ;;=3^Long Term (Current) Use of Opiate Analgesic
+249 ;;^UTILITY(U,$J,358.3,3681,1,4,0)
+250 ;;=4^Z79.891
+251 ;;^UTILITY(U,$J,358.3,3681,2)
+252 ;;=^5063342
+253 ;;^UTILITY(U,$J,358.3,3682,0)
+254 ;;=Z02.89^^26^226^4
+255 ;;^UTILITY(U,$J,358.3,3682,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,3682,1,3,0)
+258 ;;=3^Administrative Examinations,Other
+259 ;;^UTILITY(U,$J,358.3,3682,1,4,0)
+260 ;;=4^Z02.89
+261 ;;^UTILITY(U,$J,358.3,3682,2)
+262 ;;=^5062645
+263 ;;^UTILITY(U,$J,358.3,3683,0)
+264 ;;=Z71.89^^26^226^37
+265 ;;^UTILITY(U,$J,358.3,3683,1,0)
+266 ;;=^358.31IA^4^2
+267 ;;^UTILITY(U,$J,358.3,3683,1,3,0)
+268 ;;=3^Specified Counseling,Other
+269 ;;^UTILITY(U,$J,358.3,3683,1,4,0)
+270 ;;=4^Z71.89
+271 ;;^UTILITY(U,$J,358.3,3683,2)
+272 ;;=^5063253
+273 ;;^UTILITY(U,$J,358.3,3684,0)
+274 ;;=Z71.6^^26^226^39
+275 ;;^UTILITY(U,$J,358.3,3684,1,0)
+276 ;;=^358.31IA^4^2
+277 ;;^UTILITY(U,$J,358.3,3684,1,3,0)
+278 ;;=3^Tobacco Abuse Counseling
+279 ;;^UTILITY(U,$J,358.3,3684,1,4,0)
+280 ;;=4^Z71.6
+281 ;;^UTILITY(U,$J,358.3,3684,2)
+282 ;;=^5063250
+283 ;;^UTILITY(U,$J,358.3,3685,0)
+284 ;;=Z02.89^^26^227^1
+285 ;;^UTILITY(U,$J,358.3,3685,1,0)
+286 ;;=^358.31IA^4^2
+287 ;;^UTILITY(U,$J,358.3,3685,1,3,0)
+288 ;;=3^Administrative Exams,Other
+289 ;;^UTILITY(U,$J,358.3,3685,1,4,0)
+290 ;;=4^Z02.89
+291 ;;^UTILITY(U,$J,358.3,3685,2)
+292 ;;=^5062645
+293 ;;^UTILITY(U,$J,358.3,3686,0)
+294 ;;=Z51.81^^26^227^4
+295 ;;^UTILITY(U,$J,358.3,3686,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,3686,1,3,0)
+298 ;;=3^Therapeutic Drug Level Monitoring
+299 ;;^UTILITY(U,$J,358.3,3686,1,4,0)
+300 ;;=4^Z51.81
+301 ;;^UTILITY(U,$J,358.3,3686,2)
+302 ;;=^5063064
+303 ;;^UTILITY(U,$J,358.3,3687,0)
+304 ;;=Z79.01^^26^227^3
+305 ;;^UTILITY(U,$J,358.3,3687,1,0)
+306 ;;=^358.31IA^4^2
+307 ;;^UTILITY(U,$J,358.3,3687,1,3,0)
+308 ;;=3^Long Term (Current) Use of Anticoagulants
+309 ;;^UTILITY(U,$J,358.3,3687,1,4,0)
+310 ;;=4^Z79.01
+311 ;;^UTILITY(U,$J,358.3,3687,2)
+312 ;;=^5063330
+313 ;;^UTILITY(U,$J,358.3,3688,0)
+314 ;;=Z79.899^^26^227^2
+315 ;;^UTILITY(U,$J,358.3,3688,1,0)
+316 ;;=^358.31IA^4^2
+317 ;;^UTILITY(U,$J,358.3,3688,1,3,0)
+318 ;;=3^Long Term (Current) Other Drug Therapy
+319 ;;^UTILITY(U,$J,358.3,3688,1,4,0)
+320 ;;=4^Z79.899
+321 ;;^UTILITY(U,$J,358.3,3688,2)
+322 ;;=^5063343
+323 ;;^UTILITY(U,$J,358.3,3689,0)
+324 ;;=Z91.19^^26^227^5
+325 ;;^UTILITY(U,$J,358.3,3689,1,0)
+326 ;;=^358.31IA^4^2
+327 ;;^UTILITY(U,$J,358.3,3689,1,3,0)
+328 ;;=3^Noncompliance w/ Medical Treatment/Regimen
+329 ;;^UTILITY(U,$J,358.3,3689,1,4,0)
+330 ;;=4^Z91.19
+331 ;;^UTILITY(U,$J,358.3,3689,2)
+332 ;;=^5063618
+333 ;;^UTILITY(U,$J,358.3,3690,0)
+334 ;;=Z71.6^^26^227^6
+335 ;;^UTILITY(U,$J,358.3,3690,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,3690,1,3,0)
+338 ;;=3^Tobacco Abuse Counseling
+339 ;;^UTILITY(U,$J,358.3,3690,1,4,0)
+340 ;;=4^Z71.6
+341 ;;^UTILITY(U,$J,358.3,3690,2)
+342 ;;=^5063250
+343 ;;^UTILITY(U,$J,358.3,3691,0)
+344 ;;=99202^^27^228^1
+345 ;;^UTILITY(U,$J,358.3,3691,1,0)
+346 ;;=^358.31IA^2^2
+347 ;;^UTILITY(U,$J,358.3,3691,1,1,0)
+348 ;;=1^SF MDM or 15-29 min
+349 ;;^UTILITY(U,$J,358.3,3691,1,2,0)
+350 ;;=2^99202
+351 ;;^UTILITY(U,$J,358.3,3692,0)
+352 ;;=99203^^27^228^2
+353 ;;^UTILITY(U,$J,358.3,3692,1,0)
+354 ;;=^358.31IA^2^2
+355 ;;^UTILITY(U,$J,358.3,3692,1,1,0)
+356 ;;=1^Low MDM or 30-44 min
+357 ;;^UTILITY(U,$J,358.3,3692,1,2,0)
+358 ;;=2^99203
+359 ;;^UTILITY(U,$J,358.3,3693,0)
+360 ;;=99204^^27^228^3
+361 ;;^UTILITY(U,$J,358.3,3693,1,0)
+362 ;;=^358.31IA^2^2
+363 ;;^UTILITY(U,$J,358.3,3693,1,1,0)
+364 ;;=1^Mod MDM or 45-59 min
+365 ;;^UTILITY(U,$J,358.3,3693,1,2,0)
+366 ;;=2^99204
+367 ;;^UTILITY(U,$J,358.3,3694,0)
+368 ;;=99205^^27^228^4
+369 ;;^UTILITY(U,$J,358.3,3694,1,0)
+370 ;;=^358.31IA^2^2
+371 ;;^UTILITY(U,$J,358.3,3694,1,1,0)
+372 ;;=1^High MDM or 60-74 min
+373 ;;^UTILITY(U,$J,358.3,3694,1,2,0)
+374 ;;=2^99205
+375 ;;^UTILITY(U,$J,358.3,3695,0)
+376 ;;=99211^^27^229^1
+377 ;;^UTILITY(U,$J,358.3,3695,1,0)
+378 ;;=^358.31IA^2^2
+379 ;;^UTILITY(U,$J,358.3,3695,1,1,0)
+380 ;;=1^Brief Visit-MDM None/Minimal
+381 ;;^UTILITY(U,$J,358.3,3695,1,2,0)
+382 ;;=2^99211
+383 ;;^UTILITY(U,$J,358.3,3696,0)
+384 ;;=99212^^27^229^2
+385 ;;^UTILITY(U,$J,358.3,3696,1,0)
+386 ;;=^358.31IA^2^2
+387 ;;^UTILITY(U,$J,358.3,3696,1,1,0)
+388 ;;=1^SF MDM or 10-19 min
+389 ;;^UTILITY(U,$J,358.3,3696,1,2,0)
+390 ;;=2^99212
+391 ;;^UTILITY(U,$J,358.3,3697,0)
+392 ;;=99213^^27^229^3
+393 ;;^UTILITY(U,$J,358.3,3697,1,0)
+394 ;;=^358.31IA^2^2
+395 ;;^UTILITY(U,$J,358.3,3697,1,1,0)
+396 ;;=1^Low MDM or 20-29 min
+397 ;;^UTILITY(U,$J,358.3,3697,1,2,0)
+398 ;;=2^99213
+399 ;;^UTILITY(U,$J,358.3,3698,0)
+400 ;;=99214^^27^229^4
+401 ;;^UTILITY(U,$J,358.3,3698,1,0)
+402 ;;=^358.31IA^2^2
+403 ;;^UTILITY(U,$J,358.3,3698,1,1,0)
+404 ;;=1^Mod MDM or 30-39 min
+405 ;;^UTILITY(U,$J,358.3,3698,1,2,0)
+406 ;;=2^99214
+407 ;;^UTILITY(U,$J,358.3,3699,0)
+408 ;;=99215^^27^229^5
+409 ;;^UTILITY(U,$J,358.3,3699,1,0)
+410 ;;=^358.31IA^2^2
+411 ;;^UTILITY(U,$J,358.3,3699,1,1,0)
+412 ;;=1^High MDM or 40-54 min
+413 ;;^UTILITY(U,$J,358.3,3699,1,2,0)
+414 ;;=2^99215
+415 ;;^UTILITY(U,$J,358.3,3700,0)
+416 ;;=99241^^27^230^1
+417 ;;^UTILITY(U,$J,358.3,3700,1,0)
+418 ;;=^358.31IA^2^2
+419 ;;^UTILITY(U,$J,358.3,3700,1,1,0)
+420 ;;=1^Problem Focused Hx/PE & SF MDM
+421 ;;^UTILITY(U,$J,358.3,3700,1,2,0)
+422 ;;=2^99241
+423 ;;^UTILITY(U,$J,358.3,3701,0)
+424 ;;=99242^^27^230^2
+425 ;;^UTILITY(U,$J,358.3,3701,1,0)
+426 ;;=^358.31IA^2^2
+427 ;;^UTILITY(U,$J,358.3,3701,1,1,0)
+428 ;;=1^Exp Problem Focused Hx/PE & SF MDM
+429 ;;^UTILITY(U,$J,358.3,3701,1,2,0)
+430 ;;=2^99242
+431 ;;^UTILITY(U,$J,358.3,3702,0)
+432 ;;=99243^^27^230^3
+433 ;;^UTILITY(U,$J,358.3,3702,1,0)
+434 ;;=^358.31IA^2^2
+435 ;;^UTILITY(U,$J,358.3,3702,1,1,0)
+436 ;;=1^Detailed Hx/PE & Low Complex MDM
+437 ;;^UTILITY(U,$J,358.3,3702,1,2,0)
+438 ;;=2^99243
+439 ;;^UTILITY(U,$J,358.3,3703,0)
+440 ;;=99244^^27^230^4
+441 ;;^UTILITY(U,$J,358.3,3703,1,0)
+442 ;;=^358.31IA^2^2
+443 ;;^UTILITY(U,$J,358.3,3703,1,1,0)
+444 ;;=1^Comprehensive Hx/PE & Mod Complex MDM
+445 ;;^UTILITY(U,$J,358.3,3703,1,2,0)
+446 ;;=2^99244
+447 ;;^UTILITY(U,$J,358.3,3704,0)
+448 ;;=99245^^27^230^5
+449 ;;^UTILITY(U,$J,358.3,3704,1,0)
+450 ;;=^358.31IA^2^2
+451 ;;^UTILITY(U,$J,358.3,3704,1,1,0)
+452 ;;=1^Comprehensive Hx/PE & High Complex MDM
+453 ;;^UTILITY(U,$J,358.3,3704,1,2,0)
+454 ;;=2^99245
+455 ;;^UTILITY(U,$J,358.3,3705,0)
+456 ;;=99395^^27^231^1
+457 ;;^UTILITY(U,$J,358.3,3705,1,0)
+458 ;;=^358.31IA^2^2
+459 ;;^UTILITY(U,$J,358.3,3705,1,1,0)
+460 ;;=1^Est Comp PM Age 18-39
+461 ;;^UTILITY(U,$J,358.3,3705,1,2,0)
+462 ;;=2^99395
+463 ;;^UTILITY(U,$J,358.3,3706,0)
+464 ;;=99396^^27^231^2
+465 ;;^UTILITY(U,$J,358.3,3706,1,0)
+466 ;;=^358.31IA^2^2
+467 ;;^UTILITY(U,$J,358.3,3706,1,1,0)
+468 ;;=1^Est Comp PM Age 40-64
+469 ;;^UTILITY(U,$J,358.3,3706,1,2,0)
+470 ;;=2^99396
+471 ;;^UTILITY(U,$J,358.3,3707,0)
+472 ;;=99397^^27^231^3
+473 ;;^UTILITY(U,$J,358.3,3707,1,0)
+474 ;;=^358.31IA^2^2
+475 ;;^UTILITY(U,$J,358.3,3707,1,1,0)
+476 ;;=1^Est Comp PM Age > 64
+477 ;;^UTILITY(U,$J,358.3,3707,1,2,0)
+478 ;;=2^99397
+479 ;;^UTILITY(U,$J,358.3,3708,0)
+480 ;;=99385^^27^232^1
+481 ;;^UTILITY(U,$J,358.3,3708,1,0)
+482 ;;=^358.31IA^2^2
+483 ;;^UTILITY(U,$J,358.3,3708,1,1,0)
+484 ;;=1^Init Comp PM Age 18-39
+485 ;;^UTILITY(U,$J,358.3,3708,1,2,0)
+486 ;;=2^99385
+487 ;;^UTILITY(U,$J,358.3,3709,0)
+488 ;;=99386^^27^232^2
+489 ;;^UTILITY(U,$J,358.3,3709,1,0)
+490 ;;=^358.31IA^2^2
+491 ;;^UTILITY(U,$J,358.3,3709,1,1,0)
+492 ;;=1^Init Comp PM Age 40-64
+493 ;;^UTILITY(U,$J,358.3,3709,1,2,0)
+494 ;;=2^99386
+495 ;;^UTILITY(U,$J,358.3,3710,0)
+496 ;;=99387^^27^232^3
+497 ;;^UTILITY(U,$J,358.3,3710,1,0)
+498 ;;=^358.31IA^2^2
+499 ;;^UTILITY(U,$J,358.3,3710,1,1,0)
+500 ;;=1^Init Comp PM Age > 64
+501 ;;^UTILITY(U,$J,358.3,3710,1,2,0)
+502 ;;=2^99387
+503 ;;^UTILITY(U,$J,358.3,3711,0)
+504 ;;=99411^^27^233^1
+505 ;;^UTILITY(U,$J,358.3,3711,1,0)
+506 ;;=^358.31IA^2^2
+507 ;;^UTILITY(U,$J,358.3,3711,1,1,0)
+508 ;;=1^Preventive Counsel,Grp,30min
+509 ;;^UTILITY(U,$J,358.3,3711,1,2,0)
+510 ;;=2^99411
+511 ;;^UTILITY(U,$J,358.3,3712,0)
+512 ;;=99412^^27^233^2
+513 ;;^UTILITY(U,$J,358.3,3712,1,0)
+514 ;;=^358.31IA^2^2
+515 ;;^UTILITY(U,$J,358.3,3712,1,1,0)
+516 ;;=1^Preventive Counsel,Grp,60min
+517 ;;^UTILITY(U,$J,358.3,3712,1,2,0)
+518 ;;=2^99412
+519 ;;^UTILITY(U,$J,358.3,3713,0)
+520 ;;=99401^^27^234^1
+521 ;;^UTILITY(U,$J,358.3,3713,1,0)
+522 ;;=^358.31IA^2^2
+523 ;;^UTILITY(U,$J,358.3,3713,1,1,0)
+524 ;;=1^Preventive Counseling,15min
+525 ;;^UTILITY(U,$J,358.3,3713,1,2,0)
+526 ;;=2^99401
+527 ;;^UTILITY(U,$J,358.3,3714,0)
+528 ;;=99402^^27^234^2
+529 ;;^UTILITY(U,$J,358.3,3714,1,0)
+530 ;;=^358.31IA^2^2
+531 ;;^UTILITY(U,$J,358.3,3714,1,1,0)
+532 ;;=1^Preventive Counseling,30min
+533 ;;^UTILITY(U,$J,358.3,3714,1,2,0)
+534 ;;=2^99402
+535 ;;^UTILITY(U,$J,358.3,3715,0)
+536 ;;=99403^^27^234^3
+537 ;;^UTILITY(U,$J,358.3,3715,1,0)
+538 ;;=^358.31IA^2^2
+539 ;;^UTILITY(U,$J,358.3,3715,1,1,0)
+540 ;;=1^Preventive Counseling,45min
+541 ;;^UTILITY(U,$J,358.3,3715,1,2,0)
+542 ;;=2^99403
+543 ;;^UTILITY(U,$J,358.3,3716,0)
+544 ;;=99404^^27^234^4
+545 ;;^UTILITY(U,$J,358.3,3716,1,0)
+546 ;;=^358.31IA^2^2
+547 ;;^UTILITY(U,$J,358.3,3716,1,1,0)
+548 ;;=1^Preventive Counseling,60min
+549 ;;^UTILITY(U,$J,358.3,3716,1,2,0)
+550 ;;=2^99404
+551 ;;^UTILITY(U,$J,358.3,3717,0)
+552 ;;=10060^^28^235^9^^^^1
+553 ;;^UTILITY(U,$J,358.3,3717,1,0)
+554 ;;=^358.31IA^3^2
+555 ;;^UTILITY(U,$J,358.3,3717,1,2,0)
+556 ;;=2^10060
+557 ;;^UTILITY(U,$J,358.3,3717,1,3,0)
+558 ;;=3^I&D ABSCESS, SIMPLE or SINGLE
+559 ;;^UTILITY(U,$J,358.3,3718,0)
+560 ;;=10061^^28^235^8^^^^1
+561 ;;^UTILITY(U,$J,358.3,3718,1,0)
+562 ;;=^358.31IA^3^2
+563 ;;^UTILITY(U,$J,358.3,3718,1,2,0)
+564 ;;=2^10061
+565 ;;^UTILITY(U,$J,358.3,3718,1,3,0)
+566 ;;=3^I&D ABSCESS, COMPLI or MULTI
+567 ;;^UTILITY(U,$J,358.3,3719,0)
+568 ;;=10120^^28^235^13^^^^1
+569 ;;^UTILITY(U,$J,358.3,3719,1,0)
+570 ;;=^358.31IA^3^2
+571 ;;^UTILITY(U,$J,358.3,3719,1,2,0)
+572 ;;=2^10120
+573 ;;^UTILITY(U,$J,358.3,3719,1,3,0)
+574 ;;=3^REM FB, SUBCUT;SIMPLE
+575 ;;^UTILITY(U,$J,358.3,3720,0)
+576 ;;=10121^^28^235^12^^^^1
+577 ;;^UTILITY(U,$J,358.3,3720,1,0)
+578 ;;=^358.31IA^3^2
+579 ;;^UTILITY(U,$J,358.3,3720,1,2,0)
+580 ;;=2^10121
+581 ;;^UTILITY(U,$J,358.3,3720,1,3,0)
+582 ;;=3^REM FB, COMPLICATED
+583 ;;^UTILITY(U,$J,358.3,3721,0)
+584 ;;=11042^^28^235^7^^^^1
+585 ;;^UTILITY(U,$J,358.3,3721,1,0)
+586 ;;=^358.31IA^3^2
+587 ;;^UTILITY(U,$J,358.3,3721,1,2,0)
+588 ;;=2^11042
+589 ;;^UTILITY(U,$J,358.3,3721,1,3,0)
+590 ;;=3^DEBRIDE SKIN,SQ TISSUE,1st 20 sq cm
+591 ;;^UTILITY(U,$J,358.3,3722,0)
+592 ;;=11045^^28^235^4^^^^1
+593 ;;^UTILITY(U,$J,358.3,3722,1,0)
+594 ;;=^358.31IA^3^2
+595 ;;^UTILITY(U,$J,358.3,3722,1,2,0)
+596 ;;=2^11045
+597 ;;^UTILITY(U,$J,358.3,3722,1,3,0)
+598 ;;=3^DEB SKIN,SQ TISS,ADD 20 sq cm
+599 ;;^UTILITY(U,$J,358.3,3723,0)
+600 ;;=11043^^28^235^2^^^^1
+601 ;;^UTILITY(U,$J,358.3,3723,1,0)
+602 ;;=^358.31IA^3^2
+603 ;;^UTILITY(U,$J,358.3,3723,1,2,0)
+604 ;;=2^11043
+605 ;;^UTILITY(U,$J,358.3,3723,1,3,0)
+606 ;;=3^DEB MUSC/FASC 1st 20sq cm or <
+607 ;;^UTILITY(U,$J,358.3,3724,0)
+608 ;;=11046^^28^235^3^^^^1
+609 ;;^UTILITY(U,$J,358.3,3724,1,0)
+610 ;;=^358.31IA^3^2
+611 ;;^UTILITY(U,$J,358.3,3724,1,2,0)
+612 ;;=2^11046
+613 ;;^UTILITY(U,$J,358.3,3724,1,3,0)
+614 ;;=3^DEB MUSC/FASC,EA ADD 20sq cm
+615 ;;^UTILITY(U,$J,358.3,3725,0)
+616 ;;=11044^^28^235^5^^^^1
+617 ;;^UTILITY(U,$J,358.3,3725,1,0)
+618 ;;=^358.31IA^3^2
+619 ;;^UTILITY(U,$J,358.3,3725,1,2,0)
+620 ;;=2^11044
+621 ;;^UTILITY(U,$J,358.3,3725,1,3,0)
+622 ;;=3^DEBRIDE BONE UP TO 20sq cm
+623 ;;^UTILITY(U,$J,358.3,3726,0)
+624 ;;=11047^^28^235^6^^^^1
+625 ;;^UTILITY(U,$J,358.3,3726,1,0)
+626 ;;=^358.31IA^3^2
+627 ;;^UTILITY(U,$J,358.3,3726,1,2,0)
+628 ;;=2^11047
+629 ;;^UTILITY(U,$J,358.3,3726,1,3,0)
+630 ;;=3^DEBRIDE BONE,EA ADDL 20sq cm
+631 ;;^UTILITY(U,$J,358.3,3727,0)
+632 ;;=10140^^28^235^10^^^^1
+633 ;;^UTILITY(U,$J,358.3,3727,1,0)
+634 ;;=^358.31IA^3^2
+635 ;;^UTILITY(U,$J,358.3,3727,1,2,0)
+636 ;;=2^10140
+637 ;;^UTILITY(U,$J,358.3,3727,1,3,0)
+638 ;;=3^I&D HEMATOMA/SEROMA/FLUID COLLECTION
+639 ;;^UTILITY(U,$J,358.3,3728,0)
+640 ;;=10160^^28^235^1^^^^1
+641 ;;^UTILITY(U,$J,358.3,3728,1,0)
+642 ;;=^358.31IA^3^2
+643 ;;^UTILITY(U,$J,358.3,3728,1,2,0)
+644 ;;=2^10160
+645 ;;^UTILITY(U,$J,358.3,3728,1,3,0)
+646 ;;=3^ASPIRATION ABSCESS/HEMATOMA/BULLA/CYST
+647 ;;^UTILITY(U,$J,358.3,3729,0)
+648 ;;=10180^^28^235^11^^^^1
+649 ;;^UTILITY(U,$J,358.3,3729,1,0)
+650 ;;=^358.31IA^3^2
+651 ;;^UTILITY(U,$J,358.3,3729,1,2,0)
+652 ;;=2^10180
+653 ;;^UTILITY(U,$J,358.3,3729,1,3,0)
+654 ;;=3^I&D POSTOP WOUND INFECTION,COMPLEX
+655 ;;^UTILITY(U,$J,358.3,3730,0)
+656 ;;=98960^^28^236^7^^^^1
+657 ;;^UTILITY(U,$J,358.3,3730,1,0)
+658 ;;=^358.31IA^3^2
+659 ;;^UTILITY(U,$J,358.3,3730,1,2,0)
+660 ;;=2^98960
+661 ;;^UTILITY(U,$J,358.3,3730,1,3,0)
+662 ;;=3^SELF-MGMT ED/TRAIN 1 PT,30 MIN
+663 ;;^UTILITY(U,$J,358.3,3731,0)
+664 ;;=98961^^28^236^8^^^^1
+665 ;;^UTILITY(U,$J,358.3,3731,1,0)
+666 ;;=^358.31IA^3^2
+667 ;;^UTILITY(U,$J,358.3,3731,1,2,0)
+668 ;;=2^98961
+669 ;;^UTILITY(U,$J,358.3,3731,1,3,0)
+670 ;;=3^SELF-MGMT ED/TRN 2-4 PT,30 MIN
+671 ;;^UTILITY(U,$J,358.3,3732,0)
+672 ;;=98962^^28^236^9^^^^1
+673 ;;^UTILITY(U,$J,358.3,3732,1,0)
+674 ;;=^358.31IA^3^2
+675 ;;^UTILITY(U,$J,358.3,3732,1,2,0)
+676 ;;=2^98962
+677 ;;^UTILITY(U,$J,358.3,3732,1,3,0)
+678 ;;=3^SELF-MGMT ED/TRN 5-8 PT,30 MIN
+679 ;;^UTILITY(U,$J,358.3,3733,0)
+680 ;;=S9455^^28^236^4^^^^1
+681 ;;^UTILITY(U,$J,358.3,3733,1,0)
+682 ;;=^358.31IA^3^2
+683 ;;^UTILITY(U,$J,358.3,3733,1,2,0)
+684 ;;=2^S9455
+685 ;;^UTILITY(U,$J,358.3,3733,1,3,0)
+686 ;;=3^DIABETIC MGMT PROGRAM,GRP
+687 ;;^UTILITY(U,$J,358.3,3734,0)
+688 ;;=S9460^^28^236^5^^^^1
+689 ;;^UTILITY(U,$J,358.3,3734,1,0)
+690 ;;=^358.31IA^3^2
+691 ;;^UTILITY(U,$J,358.3,3734,1,2,0)
+692 ;;=2^S9460
