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

IBDEI01O.m

Go to the documentation of this file.
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