IBDEI0AA ; ; 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,25175,1,3,0)
;;=3^Skin Seal protect moisturizer
;;^UTILITY(U,$J,358.3,25176,0)
;;=A6257^^75^1000^9^^^^1
;;^UTILITY(U,$J,358.3,25176,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25176,1,2,0)
;;=2^A6257
;;^UTILITY(U,$J,358.3,25176,1,3,0)
;;=3^Transparent Film <= 16 Sq IN
;;^UTILITY(U,$J,358.3,25177,0)
;;=A6197^^75^1000^2^^^^1
;;^UTILITY(U,$J,358.3,25177,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25177,1,2,0)
;;=2^A6197
;;^UTILITY(U,$J,358.3,25177,1,3,0)
;;=3^Alginate Dressing,16-48 Sq In,Each
;;^UTILITY(U,$J,358.3,25178,0)
;;=A6217^^75^1000^7^^^^1
;;^UTILITY(U,$J,358.3,25178,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25178,1,2,0)
;;=2^A6217
;;^UTILITY(U,$J,358.3,25178,1,3,0)
;;=3^Non-Sterile Gauze,16-48 Sq In,Each
;;^UTILITY(U,$J,358.3,25179,0)
;;=97034^^75^1001^3^^^^1
;;^UTILITY(U,$J,358.3,25179,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25179,1,2,0)
;;=2^97034
;;^UTILITY(U,$J,358.3,25179,1,3,0)
;;=3^Contrast Baths, 15 Mins each
;;^UTILITY(U,$J,358.3,25180,0)
;;=97014^^75^1001^4^^^^1
;;^UTILITY(U,$J,358.3,25180,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25180,1,2,0)
;;=2^97014
;;^UTILITY(U,$J,358.3,25180,1,3,0)
;;=3^Electrical Stimulation
;;^UTILITY(U,$J,358.3,25181,0)
;;=97530^^75^1001^5^^^^1
;;^UTILITY(U,$J,358.3,25181,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25181,1,2,0)
;;=2^97530
;;^UTILITY(U,$J,358.3,25181,1,3,0)
;;=3^Functional Activities
;;^UTILITY(U,$J,358.3,25182,0)
;;=97116^^75^1001^6^^^^1
;;^UTILITY(U,$J,358.3,25182,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25182,1,2,0)
;;=2^97116
;;^UTILITY(U,$J,358.3,25182,1,3,0)
;;=3^Gait Training
;;^UTILITY(U,$J,358.3,25183,0)
;;=97010^^75^1001^7^^^^1
;;^UTILITY(U,$J,358.3,25183,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25183,1,2,0)
;;=2^97010
;;^UTILITY(U,$J,358.3,25183,1,3,0)
;;=3^Hot/Cold Therapies
;;^UTILITY(U,$J,358.3,25184,0)
;;=97033^^75^1001^8^^^^1
;;^UTILITY(U,$J,358.3,25184,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25184,1,2,0)
;;=2^97033
;;^UTILITY(U,$J,358.3,25184,1,3,0)
;;=3^Iontophoresis, 15 Mins each
;;^UTILITY(U,$J,358.3,25185,0)
;;=97530^^75^1001^9^^^^1
;;^UTILITY(U,$J,358.3,25185,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25185,1,2,0)
;;=2^97530
;;^UTILITY(U,$J,358.3,25185,1,3,0)
;;=3^Kinetic Therapy, 15 Mins each
;;^UTILITY(U,$J,358.3,25186,0)
;;=97140^^75^1001^10^^^^1
;;^UTILITY(U,$J,358.3,25186,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25186,1,2,0)
;;=2^97140
;;^UTILITY(U,$J,358.3,25186,1,3,0)
;;=3^Manipulation/Mobilization, 15 Mins each
;;^UTILITY(U,$J,358.3,25187,0)
;;=97112^^75^1001^11^^^^1
;;^UTILITY(U,$J,358.3,25187,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25187,1,2,0)
;;=2^97112
;;^UTILITY(U,$J,358.3,25187,1,3,0)
;;=3^Neuromuscular Re-Ed
;;^UTILITY(U,$J,358.3,25188,0)
;;=97018^^75^1001^12^^^^1
;;^UTILITY(U,$J,358.3,25188,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25188,1,2,0)
;;=2^97018
;;^UTILITY(U,$J,358.3,25188,1,3,0)
;;=3^Paraffin Bath
;;^UTILITY(U,$J,358.3,25189,0)
;;=97039^^75^1001^13^^^^1
;;^UTILITY(U,$J,358.3,25189,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25189,1,2,0)
;;=2^97039
;;^UTILITY(U,$J,358.3,25189,1,3,0)
;;=3^Physical Therapy Treatment
;;^UTILITY(U,$J,358.3,25190,0)
;;=97124^^75^1001^16^^^^1
;;^UTILITY(U,$J,358.3,25190,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25190,1,2,0)
;;=2^97124
;;^UTILITY(U,$J,358.3,25190,1,3,0)
;;=3^Soft Tissue Mobilization
;;^UTILITY(U,$J,358.3,25191,0)
;;=97110^^75^1001^17^^^^1
;;^UTILITY(U,$J,358.3,25191,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25191,1,2,0)
;;=2^97110
;;^UTILITY(U,$J,358.3,25191,1,3,0)
;;=3^Therapeutic Ex/Recond/Flex
;;^UTILITY(U,$J,358.3,25192,0)
;;=97140^^75^1001^20^^^^1
;;^UTILITY(U,$J,358.3,25192,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25192,1,2,0)
;;=2^97140
;;^UTILITY(U,$J,358.3,25192,1,3,0)
;;=3^Traction, Manual, 15 Mins each
;;^UTILITY(U,$J,358.3,25193,0)
;;=97035^^75^1001^21^^^^1
;;^UTILITY(U,$J,358.3,25193,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25193,1,2,0)
;;=2^97035
;;^UTILITY(U,$J,358.3,25193,1,3,0)
;;=3^Ultrasound, 15 Mins each
;;^UTILITY(U,$J,358.3,25194,0)
;;=97016^^75^1001^22^^^^1
;;^UTILITY(U,$J,358.3,25194,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25194,1,2,0)
;;=2^97016
;;^UTILITY(U,$J,358.3,25194,1,3,0)
;;=3^Vasopneumatic device
;;^UTILITY(U,$J,358.3,25195,0)
;;=97022^^75^1001^23^^^^1
;;^UTILITY(U,$J,358.3,25195,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25195,1,2,0)
;;=2^97022
;;^UTILITY(U,$J,358.3,25195,1,3,0)
;;=3^Whirlpool
;;^UTILITY(U,$J,358.3,25196,0)
;;=95970^^75^1001^2^^^^1
;;^UTILITY(U,$J,358.3,25196,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25196,1,2,0)
;;=2^95970
;;^UTILITY(U,$J,358.3,25196,1,3,0)
;;=3^Analysis Spinal Cord Stim w/o Prog
;;^UTILITY(U,$J,358.3,25197,0)
;;=95971^^75^1001^1^^^^1
;;^UTILITY(U,$J,358.3,25197,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25197,1,2,0)
;;=2^95971
;;^UTILITY(U,$J,358.3,25197,1,3,0)
;;=3^Analysis Spinal Cord Stim w/ Prog
;;^UTILITY(U,$J,358.3,25198,0)
;;=95990^^75^1001^15^^^^1
;;^UTILITY(U,$J,358.3,25198,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25198,1,2,0)
;;=2^95990
;;^UTILITY(U,$J,358.3,25198,1,3,0)
;;=3^Refill of Intrathecal Pain Pump
;;^UTILITY(U,$J,358.3,25199,0)
;;=95991^^75^1001^14^^^^1
;;^UTILITY(U,$J,358.3,25199,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25199,1,2,0)
;;=2^95991
;;^UTILITY(U,$J,358.3,25199,1,3,0)
;;=3^Refill Intrathecal Pain Pump by MD
;;^UTILITY(U,$J,358.3,25200,0)
;;=97129^^75^1001^18^^^^1
;;^UTILITY(U,$J,358.3,25200,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25200,1,2,0)
;;=2^97129
;;^UTILITY(U,$J,358.3,25200,1,3,0)
;;=3^Therapeutic Intrvn,Cog Func,1st 15 min
;;^UTILITY(U,$J,358.3,25201,0)
;;=97130^^75^1001^19^^^^1
;;^UTILITY(U,$J,358.3,25201,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25201,1,2,0)
;;=2^97130
;;^UTILITY(U,$J,358.3,25201,1,3,0)
;;=3^Therapeutic Intrvn,Cog Func,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,25202,0)
;;=20552^^75^1002^6^^^^1
;;^UTILITY(U,$J,358.3,25202,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25202,1,2,0)
;;=2^20552
;;^UTILITY(U,$J,358.3,25202,1,3,0)
;;=3^Trigger point INJ, 1 or 2 muscles
;;^UTILITY(U,$J,358.3,25203,0)
;;=20553^^75^1002^7^^^^1
;;^UTILITY(U,$J,358.3,25203,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25203,1,2,0)
;;=2^20553
;;^UTILITY(U,$J,358.3,25203,1,3,0)
;;=3^Trigger point INJ, 3 or more muscles
;;^UTILITY(U,$J,358.3,25204,0)
;;=20550^^75^1002^5^^^^1
;;^UTILITY(U,$J,358.3,25204,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25204,1,2,0)
;;=2^20550
;;^UTILITY(U,$J,358.3,25204,1,3,0)
;;=3^INJ tendon sheath/ligament
;;^UTILITY(U,$J,358.3,25205,0)
;;=20551^^75^1002^4^^^^1
;;^UTILITY(U,$J,358.3,25205,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25205,1,2,0)
;;=2^20551
;;^UTILITY(U,$J,358.3,25205,1,3,0)
;;=3^INJ tendon insertion/origin
;;^UTILITY(U,$J,358.3,25206,0)
;;=J0585^^75^1002^1^^^^1
;;^UTILITY(U,$J,358.3,25206,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25206,1,2,0)
;;=2^J0585
;;^UTILITY(U,$J,358.3,25206,1,3,0)
;;=3^Botulinum Toxin A, per unit
;;^UTILITY(U,$J,358.3,25207,0)
;;=J0587^^75^1002^2^^^^1
;;^UTILITY(U,$J,358.3,25207,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25207,1,2,0)
;;=2^J0587
;;^UTILITY(U,$J,358.3,25207,1,3,0)
;;=3^Botulinum Toxin B, 100 Units
;;^UTILITY(U,$J,358.3,25208,0)
;;=64615^^75^1002^3^^^^1
;;^UTILITY(U,$J,358.3,25208,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25208,1,2,0)
;;=2^64615
;;^UTILITY(U,$J,358.3,25208,1,3,0)
;;=3^Chemodenervation Muscle for Migraine
;;^UTILITY(U,$J,358.3,25209,0)
;;=97810^^75^1003^1^^^^1
;;^UTILITY(U,$J,358.3,25209,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25209,1,2,0)
;;=2^97810
;;^UTILITY(U,$J,358.3,25209,1,3,0)
;;=3^Acupuncture w/o Stimul 15 Min
;;^UTILITY(U,$J,358.3,25210,0)
;;=97811^^75^1003^2^^^^1
;;^UTILITY(U,$J,358.3,25210,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25210,1,2,0)
;;=2^97811
;;^UTILITY(U,$J,358.3,25210,1,3,0)
;;=3^Acupuncture w/o Stimul,Ea Addl 15 Min
;;^UTILITY(U,$J,358.3,25211,0)
;;=97813^^75^1003^3^^^^1
;;^UTILITY(U,$J,358.3,25211,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25211,1,2,0)
;;=2^97813
;;^UTILITY(U,$J,358.3,25211,1,3,0)
;;=3^Acupuncture w/ Stimul 15 Min
;;^UTILITY(U,$J,358.3,25212,0)
;;=97814^^75^1003^4^^^^1
;;^UTILITY(U,$J,358.3,25212,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25212,1,2,0)
;;=2^97814
;;^UTILITY(U,$J,358.3,25212,1,3,0)
;;=3^Acupuncture w/ Stimul,Ea Addl 15 Min
;;^UTILITY(U,$J,358.3,25213,0)
;;=11719^^75^1004^3^^^^1
;;^UTILITY(U,$J,358.3,25213,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25213,1,2,0)
;;=2^11719
;;^UTILITY(U,$J,358.3,25213,1,3,0)
;;=3^Trim Nondystrophic Nails,Any Number
;;^UTILITY(U,$J,358.3,25214,0)
;;=11720^^75^1004^1^^^^1
;;^UTILITY(U,$J,358.3,25214,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25214,1,2,0)
;;=2^11720
;;^UTILITY(U,$J,358.3,25214,1,3,0)
;;=3^Debride Nail(s);1-5
;;^UTILITY(U,$J,358.3,25215,0)
;;=11721^^75^1004^2^^^^1
;;^UTILITY(U,$J,358.3,25215,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25215,1,2,0)
;;=2^11721
;;^UTILITY(U,$J,358.3,25215,1,3,0)
;;=3^Debride Nails;6 or more
;;^UTILITY(U,$J,358.3,25216,0)
;;=J0475^^75^1005^5^^^^1
;;^UTILITY(U,$J,358.3,25216,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25216,1,2,0)
;;=2^J0475
;;^UTILITY(U,$J,358.3,25216,1,3,0)
;;=3^Baclofen 10mg
;;^UTILITY(U,$J,358.3,25217,0)
;;=J0476^^75^1005^6^^^^1
;;^UTILITY(U,$J,358.3,25217,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25217,1,2,0)
;;=2^J0476
;;^UTILITY(U,$J,358.3,25217,1,3,0)
;;=3^Baclofen Intrathecal Trial 50mcg
;;^UTILITY(U,$J,358.3,25218,0)
;;=62322^^75^1005^7^^^^1
;;^UTILITY(U,$J,358.3,25218,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25218,1,2,0)
;;=2^62322
;;^UTILITY(U,$J,358.3,25218,1,3,0)
;;=3^Njx Interlaminar Lmbr/Sac
;;^UTILITY(U,$J,358.3,25219,0)
;;=62367^^75^1005^1^^^^1
;;^UTILITY(U,$J,358.3,25219,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25219,1,2,0)
;;=2^62367
;;^UTILITY(U,$J,358.3,25219,1,3,0)
;;=3^Analyze Spine Infus Pump
;;^UTILITY(U,$J,358.3,25220,0)
;;=62368^^75^1005^3^^^^1
;;^UTILITY(U,$J,358.3,25220,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25220,1,2,0)
;;=2^62368
;;^UTILITY(U,$J,358.3,25220,1,3,0)
;;=3^Analyze Spine Infus Pump w/ Reprog
;;^UTILITY(U,$J,358.3,25221,0)
;;=62369^^75^1005^4^^^^1
;;^UTILITY(U,$J,358.3,25221,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25221,1,2,0)
;;=2^62369
;;^UTILITY(U,$J,358.3,25221,1,3,0)
;;=3^Analyze Spine Infus Pump w/ Reprog/Fill
;;^UTILITY(U,$J,358.3,25222,0)
;;=62370^^75^1005^2^^^^1
;;^UTILITY(U,$J,358.3,25222,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25222,1,2,0)
;;=2^62370
;;^UTILITY(U,$J,358.3,25222,1,3,0)
;;=3^Analyze Spine Infus Pump w/ Mdreprg/Fill
;;^UTILITY(U,$J,358.3,25223,0)
;;=97750^^75^1005^8^^^^1
;;^UTILITY(U,$J,358.3,25223,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25223,1,2,0)
;;=2^97750
;;^UTILITY(U,$J,358.3,25223,1,3,0)
;;=3^Physical Performance Test
;;^UTILITY(U,$J,358.3,25224,0)
;;=95990^^75^1005^9^^^^1
;;^UTILITY(U,$J,358.3,25224,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25224,1,2,0)
;;=2^95990
;;^UTILITY(U,$J,358.3,25224,1,3,0)
;;=3^Spine/Brain Pump Refll/Maint
;;^UTILITY(U,$J,358.3,25225,0)
;;=99202^^76^1006^1
;;^UTILITY(U,$J,358.3,25225,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25225,1,1,0)
;;=1^SF MDM or 15-29 mins
;;^UTILITY(U,$J,358.3,25225,1,2,0)
;;=2^99202
;;^UTILITY(U,$J,358.3,25226,0)
;;=99203^^76^1006^2
;;^UTILITY(U,$J,358.3,25226,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25226,1,1,0)
;;=1^Low MDM or 30-44 mins
;;^UTILITY(U,$J,358.3,25226,1,2,0)
;;=2^99203
;;^UTILITY(U,$J,358.3,25227,0)
;;=99204^^76^1006^3
;;^UTILITY(U,$J,358.3,25227,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25227,1,1,0)
;;=1^Moderate MDM or 45-59 mins
;;^UTILITY(U,$J,358.3,25227,1,2,0)
;;=2^99204
;;^UTILITY(U,$J,358.3,25228,0)
;;=99205^^76^1006^4
;;^UTILITY(U,$J,358.3,25228,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25228,1,1,0)
;;=1^High MDM or 60-74 mins
;;^UTILITY(U,$J,358.3,25228,1,2,0)
;;=2^99205
;;^UTILITY(U,$J,358.3,25229,0)
;;=99211^^76^1007^1
;;^UTILITY(U,$J,358.3,25229,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25229,1,1,0)
;;=1^Brief Visit-MDM None/Minimal
;;^UTILITY(U,$J,358.3,25229,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,25230,0)
;;=99212^^76^1007^2
;;^UTILITY(U,$J,358.3,25230,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25230,1,1,0)
;;=1^SF MDM or 10-19 mins
;;^UTILITY(U,$J,358.3,25230,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,25231,0)
;;=99213^^76^1007^3
;;^UTILITY(U,$J,358.3,25231,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25231,1,1,0)
;;=1^Low MDM or 20-29 mins
;;^UTILITY(U,$J,358.3,25231,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,25232,0)
;;=99214^^76^1007^4
;;^UTILITY(U,$J,358.3,25232,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25232,1,1,0)
;;=1^Moderate MDM or 30-39 mins
;;^UTILITY(U,$J,358.3,25232,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,25233,0)
;;=99215^^76^1007^5
;;^UTILITY(U,$J,358.3,25233,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25233,1,1,0)
;;=1^High MDM or 40-54 mins
;;^UTILITY(U,$J,358.3,25233,1,2,0)
;;=2^99215
;;^UTILITY(U,$J,358.3,25234,0)
;;=99241^^76^1008^1
;;^UTILITY(U,$J,358.3,25234,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25234,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,25234,1,2,0)
;;=2^99241
;;^UTILITY(U,$J,358.3,25235,0)
;;=99242^^76^1008^2
;;^UTILITY(U,$J,358.3,25235,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25235,1,1,0)
;;=1^Exp Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,25235,1,2,0)
;;=2^99242
;;^UTILITY(U,$J,358.3,25236,0)
;;=99243^^76^1008^3
;;^UTILITY(U,$J,358.3,25236,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25236,1,1,0)
;;=1^Detailed Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,25236,1,2,0)
;;=2^99243
;;^UTILITY(U,$J,358.3,25237,0)
;;=99244^^76^1008^4
;;^UTILITY(U,$J,358.3,25237,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25237,1,1,0)
;;=1^Comprehensive Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,25237,1,2,0)
;;=2^99244
;;^UTILITY(U,$J,358.3,25238,0)
;;=99245^^76^1008^5
;;^UTILITY(U,$J,358.3,25238,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25238,1,1,0)
;;=1^Comprehensive Hx/PE & High Complex MDM
;;^UTILITY(U,$J,358.3,25238,1,2,0)
;;=2^99245
;;^UTILITY(U,$J,358.3,25239,0)
;;=99347^^76^1009^1
;;^UTILITY(U,$J,358.3,25239,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25239,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,25239,1,2,0)
;;=2^99347
;;^UTILITY(U,$J,358.3,25240,0)
;;=99348^^76^1009^2
;;^UTILITY(U,$J,358.3,25240,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25240,1,1,0)
;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,25240,1,2,0)
;;=2^99348
;;^UTILITY(U,$J,358.3,25241,0)
;;=99349^^76^1009^3
;;^UTILITY(U,$J,358.3,25241,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25241,1,1,0)
;;=1^Detailed Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,25241,1,2,0)
;;=2^99349
;;^UTILITY(U,$J,358.3,25242,0)
;;=99350^^76^1009^4
;;^UTILITY(U,$J,358.3,25242,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25242,1,1,0)
;;=1^Comprehensive Hx/PE & Mod or High Complex MDM
;;^UTILITY(U,$J,358.3,25242,1,2,0)
;;=2^99350
;;^UTILITY(U,$J,358.3,25243,0)
;;=99341^^76^1010^1
;;^UTILITY(U,$J,358.3,25243,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25243,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,25243,1,2,0)
;;=2^99341
;;^UTILITY(U,$J,358.3,25244,0)
;;=99342^^76^1010^2
;;^UTILITY(U,$J,358.3,25244,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25244,1,1,0)
;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,25244,1,2,0)
;;=2^99342
;;^UTILITY(U,$J,358.3,25245,0)
;;=99343^^76^1010^3
;;^UTILITY(U,$J,358.3,25245,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25245,1,1,0)
;;=1^Detailed Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,25245,1,2,0)
;;=2^99343
;;^UTILITY(U,$J,358.3,25246,0)
;;=99344^^76^1010^4
;;^UTILITY(U,$J,358.3,25246,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25246,1,1,0)
;;=1^Comprehensive Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,25246,1,2,0)
;;=2^99344
;;^UTILITY(U,$J,358.3,25247,0)
;;=99345^^76^1010^5
;;^UTILITY(U,$J,358.3,25247,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,25247,1,1,0)
;;=1^Comprehensive Hx/PE & High Complex MDM
;;^UTILITY(U,$J,358.3,25247,1,2,0)
;;=2^99345
;;^UTILITY(U,$J,358.3,25248,0)
;;=I20.9^^77^1011^3
;;^UTILITY(U,$J,358.3,25248,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25248,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,25248,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,25248,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,25249,0)
;;=I25.10^^77^1011^14
;;^UTILITY(U,$J,358.3,25249,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25249,1,3,0)
;;=3^CAD w/o Angina
;;^UTILITY(U,$J,358.3,25249,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,25249,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,25250,0)
;;=I48.91^^77^1011^9
;;^UTILITY(U,$J,358.3,25250,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25250,1,3,0)
;;=3^Atrial Fibrillation,Unspec
;;^UTILITY(U,$J,358.3,25250,1,4,0)
;;=4^I48.91
;;^UTILITY(U,$J,358.3,25250,2)
;;=^5007229
;;^UTILITY(U,$J,358.3,25251,0)
;;=I48.0^^77^1011^7
;;^UTILITY(U,$J,358.3,25251,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25251,1,3,0)
;;=3^Atrial Fibrillation,Paroxysmal
;;^UTILITY(U,$J,358.3,25251,1,4,0)
;;=4^I48.0
;;^UTILITY(U,$J,358.3,25251,2)
;;=^90473
;;^UTILITY(U,$J,358.3,25252,0)
;;=Z95.0^^77^1011^21
;;^UTILITY(U,$J,358.3,25252,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25252,1,3,0)
;;=3^Presence of Cardiac Pacemaker
;;^UTILITY(U,$J,358.3,25252,1,4,0)
;;=4^Z95.0
;;^UTILITY(U,$J,358.3,25252,2)
;;=^5063668
;;^UTILITY(U,$J,358.3,25253,0)
;;=I50.9^^77^1011^18
;;^UTILITY(U,$J,358.3,25253,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25253,1,3,0)
;;=3^Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,25253,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,25253,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,25254,0)
;;=I20.0^^77^1011^22
;;^UTILITY(U,$J,358.3,25254,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25254,1,3,0)
;;=3^Unstable Angina
;;^UTILITY(U,$J,358.3,25254,1,4,0)
;;=4^I20.0
;;^UTILITY(U,$J,358.3,25254,2)
;;=^5007076
;;^UTILITY(U,$J,358.3,25255,0)
;;=I25.110^^77^1011^13
;;^UTILITY(U,$J,358.3,25255,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25255,1,3,0)
;;=3^CAD w/ Unstable Angina
;;^UTILITY(U,$J,358.3,25255,1,4,0)
;;=4^I25.110
;;^UTILITY(U,$J,358.3,25255,2)
;;=^5007108
;;^UTILITY(U,$J,358.3,25256,0)
;;=I25.2^^77^1011^20
;;^UTILITY(U,$J,358.3,25256,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25256,1,3,0)
;;=3^Old Myocardial Infarction
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0AA 19757 printed Sep 23, 2025@19:20:43 Page 2
IBDEI0AA ; ; 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,25175,1,3,0)
+2 ;;=3^Skin Seal protect moisturizer
+3 ;;^UTILITY(U,$J,358.3,25176,0)
+4 ;;=A6257^^75^1000^9^^^^1
+5 ;;^UTILITY(U,$J,358.3,25176,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,25176,1,2,0)
+8 ;;=2^A6257
+9 ;;^UTILITY(U,$J,358.3,25176,1,3,0)
+10 ;;=3^Transparent Film <= 16 Sq IN
+11 ;;^UTILITY(U,$J,358.3,25177,0)
+12 ;;=A6197^^75^1000^2^^^^1
+13 ;;^UTILITY(U,$J,358.3,25177,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,25177,1,2,0)
+16 ;;=2^A6197
+17 ;;^UTILITY(U,$J,358.3,25177,1,3,0)
+18 ;;=3^Alginate Dressing,16-48 Sq In,Each
+19 ;;^UTILITY(U,$J,358.3,25178,0)
+20 ;;=A6217^^75^1000^7^^^^1
+21 ;;^UTILITY(U,$J,358.3,25178,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,25178,1,2,0)
+24 ;;=2^A6217
+25 ;;^UTILITY(U,$J,358.3,25178,1,3,0)
+26 ;;=3^Non-Sterile Gauze,16-48 Sq In,Each
+27 ;;^UTILITY(U,$J,358.3,25179,0)
+28 ;;=97034^^75^1001^3^^^^1
+29 ;;^UTILITY(U,$J,358.3,25179,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,25179,1,2,0)
+32 ;;=2^97034
+33 ;;^UTILITY(U,$J,358.3,25179,1,3,0)
+34 ;;=3^Contrast Baths, 15 Mins each
+35 ;;^UTILITY(U,$J,358.3,25180,0)
+36 ;;=97014^^75^1001^4^^^^1
+37 ;;^UTILITY(U,$J,358.3,25180,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,25180,1,2,0)
+40 ;;=2^97014
+41 ;;^UTILITY(U,$J,358.3,25180,1,3,0)
+42 ;;=3^Electrical Stimulation
+43 ;;^UTILITY(U,$J,358.3,25181,0)
+44 ;;=97530^^75^1001^5^^^^1
+45 ;;^UTILITY(U,$J,358.3,25181,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,25181,1,2,0)
+48 ;;=2^97530
+49 ;;^UTILITY(U,$J,358.3,25181,1,3,0)
+50 ;;=3^Functional Activities
+51 ;;^UTILITY(U,$J,358.3,25182,0)
+52 ;;=97116^^75^1001^6^^^^1
+53 ;;^UTILITY(U,$J,358.3,25182,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,25182,1,2,0)
+56 ;;=2^97116
+57 ;;^UTILITY(U,$J,358.3,25182,1,3,0)
+58 ;;=3^Gait Training
+59 ;;^UTILITY(U,$J,358.3,25183,0)
+60 ;;=97010^^75^1001^7^^^^1
+61 ;;^UTILITY(U,$J,358.3,25183,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,25183,1,2,0)
+64 ;;=2^97010
+65 ;;^UTILITY(U,$J,358.3,25183,1,3,0)
+66 ;;=3^Hot/Cold Therapies
+67 ;;^UTILITY(U,$J,358.3,25184,0)
+68 ;;=97033^^75^1001^8^^^^1
+69 ;;^UTILITY(U,$J,358.3,25184,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,25184,1,2,0)
+72 ;;=2^97033
+73 ;;^UTILITY(U,$J,358.3,25184,1,3,0)
+74 ;;=3^Iontophoresis, 15 Mins each
+75 ;;^UTILITY(U,$J,358.3,25185,0)
+76 ;;=97530^^75^1001^9^^^^1
+77 ;;^UTILITY(U,$J,358.3,25185,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,25185,1,2,0)
+80 ;;=2^97530
+81 ;;^UTILITY(U,$J,358.3,25185,1,3,0)
+82 ;;=3^Kinetic Therapy, 15 Mins each
+83 ;;^UTILITY(U,$J,358.3,25186,0)
+84 ;;=97140^^75^1001^10^^^^1
+85 ;;^UTILITY(U,$J,358.3,25186,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,25186,1,2,0)
+88 ;;=2^97140
+89 ;;^UTILITY(U,$J,358.3,25186,1,3,0)
+90 ;;=3^Manipulation/Mobilization, 15 Mins each
+91 ;;^UTILITY(U,$J,358.3,25187,0)
+92 ;;=97112^^75^1001^11^^^^1
+93 ;;^UTILITY(U,$J,358.3,25187,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,25187,1,2,0)
+96 ;;=2^97112
+97 ;;^UTILITY(U,$J,358.3,25187,1,3,0)
+98 ;;=3^Neuromuscular Re-Ed
+99 ;;^UTILITY(U,$J,358.3,25188,0)
+100 ;;=97018^^75^1001^12^^^^1
+101 ;;^UTILITY(U,$J,358.3,25188,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,25188,1,2,0)
+104 ;;=2^97018
+105 ;;^UTILITY(U,$J,358.3,25188,1,3,0)
+106 ;;=3^Paraffin Bath
+107 ;;^UTILITY(U,$J,358.3,25189,0)
+108 ;;=97039^^75^1001^13^^^^1
+109 ;;^UTILITY(U,$J,358.3,25189,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,25189,1,2,0)
+112 ;;=2^97039
+113 ;;^UTILITY(U,$J,358.3,25189,1,3,0)
+114 ;;=3^Physical Therapy Treatment
+115 ;;^UTILITY(U,$J,358.3,25190,0)
+116 ;;=97124^^75^1001^16^^^^1
+117 ;;^UTILITY(U,$J,358.3,25190,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,25190,1,2,0)
+120 ;;=2^97124
+121 ;;^UTILITY(U,$J,358.3,25190,1,3,0)
+122 ;;=3^Soft Tissue Mobilization
+123 ;;^UTILITY(U,$J,358.3,25191,0)
+124 ;;=97110^^75^1001^17^^^^1
+125 ;;^UTILITY(U,$J,358.3,25191,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,25191,1,2,0)
+128 ;;=2^97110
+129 ;;^UTILITY(U,$J,358.3,25191,1,3,0)
+130 ;;=3^Therapeutic Ex/Recond/Flex
+131 ;;^UTILITY(U,$J,358.3,25192,0)
+132 ;;=97140^^75^1001^20^^^^1
+133 ;;^UTILITY(U,$J,358.3,25192,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,25192,1,2,0)
+136 ;;=2^97140
+137 ;;^UTILITY(U,$J,358.3,25192,1,3,0)
+138 ;;=3^Traction, Manual, 15 Mins each
+139 ;;^UTILITY(U,$J,358.3,25193,0)
+140 ;;=97035^^75^1001^21^^^^1
+141 ;;^UTILITY(U,$J,358.3,25193,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,25193,1,2,0)
+144 ;;=2^97035
+145 ;;^UTILITY(U,$J,358.3,25193,1,3,0)
+146 ;;=3^Ultrasound, 15 Mins each
+147 ;;^UTILITY(U,$J,358.3,25194,0)
+148 ;;=97016^^75^1001^22^^^^1
+149 ;;^UTILITY(U,$J,358.3,25194,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,25194,1,2,0)
+152 ;;=2^97016
+153 ;;^UTILITY(U,$J,358.3,25194,1,3,0)
+154 ;;=3^Vasopneumatic device
+155 ;;^UTILITY(U,$J,358.3,25195,0)
+156 ;;=97022^^75^1001^23^^^^1
+157 ;;^UTILITY(U,$J,358.3,25195,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,25195,1,2,0)
+160 ;;=2^97022
+161 ;;^UTILITY(U,$J,358.3,25195,1,3,0)
+162 ;;=3^Whirlpool
+163 ;;^UTILITY(U,$J,358.3,25196,0)
+164 ;;=95970^^75^1001^2^^^^1
+165 ;;^UTILITY(U,$J,358.3,25196,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,25196,1,2,0)
+168 ;;=2^95970
+169 ;;^UTILITY(U,$J,358.3,25196,1,3,0)
+170 ;;=3^Analysis Spinal Cord Stim w/o Prog
+171 ;;^UTILITY(U,$J,358.3,25197,0)
+172 ;;=95971^^75^1001^1^^^^1
+173 ;;^UTILITY(U,$J,358.3,25197,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,25197,1,2,0)
+176 ;;=2^95971
+177 ;;^UTILITY(U,$J,358.3,25197,1,3,0)
+178 ;;=3^Analysis Spinal Cord Stim w/ Prog
+179 ;;^UTILITY(U,$J,358.3,25198,0)
+180 ;;=95990^^75^1001^15^^^^1
+181 ;;^UTILITY(U,$J,358.3,25198,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,25198,1,2,0)
+184 ;;=2^95990
+185 ;;^UTILITY(U,$J,358.3,25198,1,3,0)
+186 ;;=3^Refill of Intrathecal Pain Pump
+187 ;;^UTILITY(U,$J,358.3,25199,0)
+188 ;;=95991^^75^1001^14^^^^1
+189 ;;^UTILITY(U,$J,358.3,25199,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,25199,1,2,0)
+192 ;;=2^95991
+193 ;;^UTILITY(U,$J,358.3,25199,1,3,0)
+194 ;;=3^Refill Intrathecal Pain Pump by MD
+195 ;;^UTILITY(U,$J,358.3,25200,0)
+196 ;;=97129^^75^1001^18^^^^1
+197 ;;^UTILITY(U,$J,358.3,25200,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,25200,1,2,0)
+200 ;;=2^97129
+201 ;;^UTILITY(U,$J,358.3,25200,1,3,0)
+202 ;;=3^Therapeutic Intrvn,Cog Func,1st 15 min
+203 ;;^UTILITY(U,$J,358.3,25201,0)
+204 ;;=97130^^75^1001^19^^^^1
+205 ;;^UTILITY(U,$J,358.3,25201,1,0)
+206 ;;=^358.31IA^3^2
+207 ;;^UTILITY(U,$J,358.3,25201,1,2,0)
+208 ;;=2^97130
+209 ;;^UTILITY(U,$J,358.3,25201,1,3,0)
+210 ;;=3^Therapeutic Intrvn,Cog Func,Ea Addl 15 min
+211 ;;^UTILITY(U,$J,358.3,25202,0)
+212 ;;=20552^^75^1002^6^^^^1
+213 ;;^UTILITY(U,$J,358.3,25202,1,0)
+214 ;;=^358.31IA^3^2
+215 ;;^UTILITY(U,$J,358.3,25202,1,2,0)
+216 ;;=2^20552
+217 ;;^UTILITY(U,$J,358.3,25202,1,3,0)
+218 ;;=3^Trigger point INJ, 1 or 2 muscles
+219 ;;^UTILITY(U,$J,358.3,25203,0)
+220 ;;=20553^^75^1002^7^^^^1
+221 ;;^UTILITY(U,$J,358.3,25203,1,0)
+222 ;;=^358.31IA^3^2
+223 ;;^UTILITY(U,$J,358.3,25203,1,2,0)
+224 ;;=2^20553
+225 ;;^UTILITY(U,$J,358.3,25203,1,3,0)
+226 ;;=3^Trigger point INJ, 3 or more muscles
+227 ;;^UTILITY(U,$J,358.3,25204,0)
+228 ;;=20550^^75^1002^5^^^^1
+229 ;;^UTILITY(U,$J,358.3,25204,1,0)
+230 ;;=^358.31IA^3^2
+231 ;;^UTILITY(U,$J,358.3,25204,1,2,0)
+232 ;;=2^20550
+233 ;;^UTILITY(U,$J,358.3,25204,1,3,0)
+234 ;;=3^INJ tendon sheath/ligament
+235 ;;^UTILITY(U,$J,358.3,25205,0)
+236 ;;=20551^^75^1002^4^^^^1
+237 ;;^UTILITY(U,$J,358.3,25205,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,25205,1,2,0)
+240 ;;=2^20551
+241 ;;^UTILITY(U,$J,358.3,25205,1,3,0)
+242 ;;=3^INJ tendon insertion/origin
+243 ;;^UTILITY(U,$J,358.3,25206,0)
+244 ;;=J0585^^75^1002^1^^^^1
+245 ;;^UTILITY(U,$J,358.3,25206,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,25206,1,2,0)
+248 ;;=2^J0585
+249 ;;^UTILITY(U,$J,358.3,25206,1,3,0)
+250 ;;=3^Botulinum Toxin A, per unit
+251 ;;^UTILITY(U,$J,358.3,25207,0)
+252 ;;=J0587^^75^1002^2^^^^1
+253 ;;^UTILITY(U,$J,358.3,25207,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,25207,1,2,0)
+256 ;;=2^J0587
+257 ;;^UTILITY(U,$J,358.3,25207,1,3,0)
+258 ;;=3^Botulinum Toxin B, 100 Units
+259 ;;^UTILITY(U,$J,358.3,25208,0)
+260 ;;=64615^^75^1002^3^^^^1
+261 ;;^UTILITY(U,$J,358.3,25208,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,25208,1,2,0)
+264 ;;=2^64615
+265 ;;^UTILITY(U,$J,358.3,25208,1,3,0)
+266 ;;=3^Chemodenervation Muscle for Migraine
+267 ;;^UTILITY(U,$J,358.3,25209,0)
+268 ;;=97810^^75^1003^1^^^^1
+269 ;;^UTILITY(U,$J,358.3,25209,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,25209,1,2,0)
+272 ;;=2^97810
+273 ;;^UTILITY(U,$J,358.3,25209,1,3,0)
+274 ;;=3^Acupuncture w/o Stimul 15 Min
+275 ;;^UTILITY(U,$J,358.3,25210,0)
+276 ;;=97811^^75^1003^2^^^^1
+277 ;;^UTILITY(U,$J,358.3,25210,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,25210,1,2,0)
+280 ;;=2^97811
+281 ;;^UTILITY(U,$J,358.3,25210,1,3,0)
+282 ;;=3^Acupuncture w/o Stimul,Ea Addl 15 Min
+283 ;;^UTILITY(U,$J,358.3,25211,0)
+284 ;;=97813^^75^1003^3^^^^1
+285 ;;^UTILITY(U,$J,358.3,25211,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,25211,1,2,0)
+288 ;;=2^97813
+289 ;;^UTILITY(U,$J,358.3,25211,1,3,0)
+290 ;;=3^Acupuncture w/ Stimul 15 Min
+291 ;;^UTILITY(U,$J,358.3,25212,0)
+292 ;;=97814^^75^1003^4^^^^1
+293 ;;^UTILITY(U,$J,358.3,25212,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,25212,1,2,0)
+296 ;;=2^97814
+297 ;;^UTILITY(U,$J,358.3,25212,1,3,0)
+298 ;;=3^Acupuncture w/ Stimul,Ea Addl 15 Min
+299 ;;^UTILITY(U,$J,358.3,25213,0)
+300 ;;=11719^^75^1004^3^^^^1
+301 ;;^UTILITY(U,$J,358.3,25213,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,25213,1,2,0)
+304 ;;=2^11719
+305 ;;^UTILITY(U,$J,358.3,25213,1,3,0)
+306 ;;=3^Trim Nondystrophic Nails,Any Number
+307 ;;^UTILITY(U,$J,358.3,25214,0)
+308 ;;=11720^^75^1004^1^^^^1
+309 ;;^UTILITY(U,$J,358.3,25214,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,25214,1,2,0)
+312 ;;=2^11720
+313 ;;^UTILITY(U,$J,358.3,25214,1,3,0)
+314 ;;=3^Debride Nail(s);1-5
+315 ;;^UTILITY(U,$J,358.3,25215,0)
+316 ;;=11721^^75^1004^2^^^^1
+317 ;;^UTILITY(U,$J,358.3,25215,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,25215,1,2,0)
+320 ;;=2^11721
+321 ;;^UTILITY(U,$J,358.3,25215,1,3,0)
+322 ;;=3^Debride Nails;6 or more
+323 ;;^UTILITY(U,$J,358.3,25216,0)
+324 ;;=J0475^^75^1005^5^^^^1
+325 ;;^UTILITY(U,$J,358.3,25216,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,25216,1,2,0)
+328 ;;=2^J0475
+329 ;;^UTILITY(U,$J,358.3,25216,1,3,0)
+330 ;;=3^Baclofen 10mg
+331 ;;^UTILITY(U,$J,358.3,25217,0)
+332 ;;=J0476^^75^1005^6^^^^1
+333 ;;^UTILITY(U,$J,358.3,25217,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,25217,1,2,0)
+336 ;;=2^J0476
+337 ;;^UTILITY(U,$J,358.3,25217,1,3,0)
+338 ;;=3^Baclofen Intrathecal Trial 50mcg
+339 ;;^UTILITY(U,$J,358.3,25218,0)
+340 ;;=62322^^75^1005^7^^^^1
+341 ;;^UTILITY(U,$J,358.3,25218,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,25218,1,2,0)
+344 ;;=2^62322
+345 ;;^UTILITY(U,$J,358.3,25218,1,3,0)
+346 ;;=3^Njx Interlaminar Lmbr/Sac
+347 ;;^UTILITY(U,$J,358.3,25219,0)
+348 ;;=62367^^75^1005^1^^^^1
+349 ;;^UTILITY(U,$J,358.3,25219,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,25219,1,2,0)
+352 ;;=2^62367
+353 ;;^UTILITY(U,$J,358.3,25219,1,3,0)
+354 ;;=3^Analyze Spine Infus Pump
+355 ;;^UTILITY(U,$J,358.3,25220,0)
+356 ;;=62368^^75^1005^3^^^^1
+357 ;;^UTILITY(U,$J,358.3,25220,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,25220,1,2,0)
+360 ;;=2^62368
+361 ;;^UTILITY(U,$J,358.3,25220,1,3,0)
+362 ;;=3^Analyze Spine Infus Pump w/ Reprog
+363 ;;^UTILITY(U,$J,358.3,25221,0)
+364 ;;=62369^^75^1005^4^^^^1
+365 ;;^UTILITY(U,$J,358.3,25221,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,25221,1,2,0)
+368 ;;=2^62369
+369 ;;^UTILITY(U,$J,358.3,25221,1,3,0)
+370 ;;=3^Analyze Spine Infus Pump w/ Reprog/Fill
+371 ;;^UTILITY(U,$J,358.3,25222,0)
+372 ;;=62370^^75^1005^2^^^^1
+373 ;;^UTILITY(U,$J,358.3,25222,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,25222,1,2,0)
+376 ;;=2^62370
+377 ;;^UTILITY(U,$J,358.3,25222,1,3,0)
+378 ;;=3^Analyze Spine Infus Pump w/ Mdreprg/Fill
+379 ;;^UTILITY(U,$J,358.3,25223,0)
+380 ;;=97750^^75^1005^8^^^^1
+381 ;;^UTILITY(U,$J,358.3,25223,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,25223,1,2,0)
+384 ;;=2^97750
+385 ;;^UTILITY(U,$J,358.3,25223,1,3,0)
+386 ;;=3^Physical Performance Test
+387 ;;^UTILITY(U,$J,358.3,25224,0)
+388 ;;=95990^^75^1005^9^^^^1
+389 ;;^UTILITY(U,$J,358.3,25224,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,25224,1,2,0)
+392 ;;=2^95990
+393 ;;^UTILITY(U,$J,358.3,25224,1,3,0)
+394 ;;=3^Spine/Brain Pump Refll/Maint
+395 ;;^UTILITY(U,$J,358.3,25225,0)
+396 ;;=99202^^76^1006^1
+397 ;;^UTILITY(U,$J,358.3,25225,1,0)
+398 ;;=^358.31IA^2^2
+399 ;;^UTILITY(U,$J,358.3,25225,1,1,0)
+400 ;;=1^SF MDM or 15-29 mins
+401 ;;^UTILITY(U,$J,358.3,25225,1,2,0)
+402 ;;=2^99202
+403 ;;^UTILITY(U,$J,358.3,25226,0)
+404 ;;=99203^^76^1006^2
+405 ;;^UTILITY(U,$J,358.3,25226,1,0)
+406 ;;=^358.31IA^2^2
+407 ;;^UTILITY(U,$J,358.3,25226,1,1,0)
+408 ;;=1^Low MDM or 30-44 mins
+409 ;;^UTILITY(U,$J,358.3,25226,1,2,0)
+410 ;;=2^99203
+411 ;;^UTILITY(U,$J,358.3,25227,0)
+412 ;;=99204^^76^1006^3
+413 ;;^UTILITY(U,$J,358.3,25227,1,0)
+414 ;;=^358.31IA^2^2
+415 ;;^UTILITY(U,$J,358.3,25227,1,1,0)
+416 ;;=1^Moderate MDM or 45-59 mins
+417 ;;^UTILITY(U,$J,358.3,25227,1,2,0)
+418 ;;=2^99204
+419 ;;^UTILITY(U,$J,358.3,25228,0)
+420 ;;=99205^^76^1006^4
+421 ;;^UTILITY(U,$J,358.3,25228,1,0)
+422 ;;=^358.31IA^2^2
+423 ;;^UTILITY(U,$J,358.3,25228,1,1,0)
+424 ;;=1^High MDM or 60-74 mins
+425 ;;^UTILITY(U,$J,358.3,25228,1,2,0)
+426 ;;=2^99205
+427 ;;^UTILITY(U,$J,358.3,25229,0)
+428 ;;=99211^^76^1007^1
+429 ;;^UTILITY(U,$J,358.3,25229,1,0)
+430 ;;=^358.31IA^2^2
+431 ;;^UTILITY(U,$J,358.3,25229,1,1,0)
+432 ;;=1^Brief Visit-MDM None/Minimal
+433 ;;^UTILITY(U,$J,358.3,25229,1,2,0)
+434 ;;=2^99211
+435 ;;^UTILITY(U,$J,358.3,25230,0)
+436 ;;=99212^^76^1007^2
+437 ;;^UTILITY(U,$J,358.3,25230,1,0)
+438 ;;=^358.31IA^2^2
+439 ;;^UTILITY(U,$J,358.3,25230,1,1,0)
+440 ;;=1^SF MDM or 10-19 mins
+441 ;;^UTILITY(U,$J,358.3,25230,1,2,0)
+442 ;;=2^99212
+443 ;;^UTILITY(U,$J,358.3,25231,0)
+444 ;;=99213^^76^1007^3
+445 ;;^UTILITY(U,$J,358.3,25231,1,0)
+446 ;;=^358.31IA^2^2
+447 ;;^UTILITY(U,$J,358.3,25231,1,1,0)
+448 ;;=1^Low MDM or 20-29 mins
+449 ;;^UTILITY(U,$J,358.3,25231,1,2,0)
+450 ;;=2^99213
+451 ;;^UTILITY(U,$J,358.3,25232,0)
+452 ;;=99214^^76^1007^4
+453 ;;^UTILITY(U,$J,358.3,25232,1,0)
+454 ;;=^358.31IA^2^2
+455 ;;^UTILITY(U,$J,358.3,25232,1,1,0)
+456 ;;=1^Moderate MDM or 30-39 mins
+457 ;;^UTILITY(U,$J,358.3,25232,1,2,0)
+458 ;;=2^99214
+459 ;;^UTILITY(U,$J,358.3,25233,0)
+460 ;;=99215^^76^1007^5
+461 ;;^UTILITY(U,$J,358.3,25233,1,0)
+462 ;;=^358.31IA^2^2
+463 ;;^UTILITY(U,$J,358.3,25233,1,1,0)
+464 ;;=1^High MDM or 40-54 mins
+465 ;;^UTILITY(U,$J,358.3,25233,1,2,0)
+466 ;;=2^99215
+467 ;;^UTILITY(U,$J,358.3,25234,0)
+468 ;;=99241^^76^1008^1
+469 ;;^UTILITY(U,$J,358.3,25234,1,0)
+470 ;;=^358.31IA^2^2
+471 ;;^UTILITY(U,$J,358.3,25234,1,1,0)
+472 ;;=1^Problem Focused Hx/PE & SF MDM
+473 ;;^UTILITY(U,$J,358.3,25234,1,2,0)
+474 ;;=2^99241
+475 ;;^UTILITY(U,$J,358.3,25235,0)
+476 ;;=99242^^76^1008^2
+477 ;;^UTILITY(U,$J,358.3,25235,1,0)
+478 ;;=^358.31IA^2^2
+479 ;;^UTILITY(U,$J,358.3,25235,1,1,0)
+480 ;;=1^Exp Problem Focused Hx/PE & SF MDM
+481 ;;^UTILITY(U,$J,358.3,25235,1,2,0)
+482 ;;=2^99242
+483 ;;^UTILITY(U,$J,358.3,25236,0)
+484 ;;=99243^^76^1008^3
+485 ;;^UTILITY(U,$J,358.3,25236,1,0)
+486 ;;=^358.31IA^2^2
+487 ;;^UTILITY(U,$J,358.3,25236,1,1,0)
+488 ;;=1^Detailed Hx/PE & Low Complex MDM
+489 ;;^UTILITY(U,$J,358.3,25236,1,2,0)
+490 ;;=2^99243
+491 ;;^UTILITY(U,$J,358.3,25237,0)
+492 ;;=99244^^76^1008^4
+493 ;;^UTILITY(U,$J,358.3,25237,1,0)
+494 ;;=^358.31IA^2^2
+495 ;;^UTILITY(U,$J,358.3,25237,1,1,0)
+496 ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
+497 ;;^UTILITY(U,$J,358.3,25237,1,2,0)
+498 ;;=2^99244
+499 ;;^UTILITY(U,$J,358.3,25238,0)
+500 ;;=99245^^76^1008^5
+501 ;;^UTILITY(U,$J,358.3,25238,1,0)
+502 ;;=^358.31IA^2^2
+503 ;;^UTILITY(U,$J,358.3,25238,1,1,0)
+504 ;;=1^Comprehensive Hx/PE & High Complex MDM
+505 ;;^UTILITY(U,$J,358.3,25238,1,2,0)
+506 ;;=2^99245
+507 ;;^UTILITY(U,$J,358.3,25239,0)
+508 ;;=99347^^76^1009^1
+509 ;;^UTILITY(U,$J,358.3,25239,1,0)
+510 ;;=^358.31IA^2^2
+511 ;;^UTILITY(U,$J,358.3,25239,1,1,0)
+512 ;;=1^Problem Focused Hx/PE & SF MDM
+513 ;;^UTILITY(U,$J,358.3,25239,1,2,0)
+514 ;;=2^99347
+515 ;;^UTILITY(U,$J,358.3,25240,0)
+516 ;;=99348^^76^1009^2
+517 ;;^UTILITY(U,$J,358.3,25240,1,0)
+518 ;;=^358.31IA^2^2
+519 ;;^UTILITY(U,$J,358.3,25240,1,1,0)
+520 ;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
+521 ;;^UTILITY(U,$J,358.3,25240,1,2,0)
+522 ;;=2^99348
+523 ;;^UTILITY(U,$J,358.3,25241,0)
+524 ;;=99349^^76^1009^3
+525 ;;^UTILITY(U,$J,358.3,25241,1,0)
+526 ;;=^358.31IA^2^2
+527 ;;^UTILITY(U,$J,358.3,25241,1,1,0)
+528 ;;=1^Detailed Hx/PE & Moderate Complex MDM
+529 ;;^UTILITY(U,$J,358.3,25241,1,2,0)
+530 ;;=2^99349
+531 ;;^UTILITY(U,$J,358.3,25242,0)
+532 ;;=99350^^76^1009^4
+533 ;;^UTILITY(U,$J,358.3,25242,1,0)
+534 ;;=^358.31IA^2^2
+535 ;;^UTILITY(U,$J,358.3,25242,1,1,0)
+536 ;;=1^Comprehensive Hx/PE & Mod or High Complex MDM
+537 ;;^UTILITY(U,$J,358.3,25242,1,2,0)
+538 ;;=2^99350
+539 ;;^UTILITY(U,$J,358.3,25243,0)
+540 ;;=99341^^76^1010^1
+541 ;;^UTILITY(U,$J,358.3,25243,1,0)
+542 ;;=^358.31IA^2^2
+543 ;;^UTILITY(U,$J,358.3,25243,1,1,0)
+544 ;;=1^Problem Focused Hx/PE & SF MDM
+545 ;;^UTILITY(U,$J,358.3,25243,1,2,0)
+546 ;;=2^99341
+547 ;;^UTILITY(U,$J,358.3,25244,0)
+548 ;;=99342^^76^1010^2
+549 ;;^UTILITY(U,$J,358.3,25244,1,0)
+550 ;;=^358.31IA^2^2
+551 ;;^UTILITY(U,$J,358.3,25244,1,1,0)
+552 ;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
+553 ;;^UTILITY(U,$J,358.3,25244,1,2,0)
+554 ;;=2^99342
+555 ;;^UTILITY(U,$J,358.3,25245,0)
+556 ;;=99343^^76^1010^3
+557 ;;^UTILITY(U,$J,358.3,25245,1,0)
+558 ;;=^358.31IA^2^2
+559 ;;^UTILITY(U,$J,358.3,25245,1,1,0)
+560 ;;=1^Detailed Hx/PE & Moderate Complex MDM
+561 ;;^UTILITY(U,$J,358.3,25245,1,2,0)
+562 ;;=2^99343
+563 ;;^UTILITY(U,$J,358.3,25246,0)
+564 ;;=99344^^76^1010^4
+565 ;;^UTILITY(U,$J,358.3,25246,1,0)
+566 ;;=^358.31IA^2^2
+567 ;;^UTILITY(U,$J,358.3,25246,1,1,0)
+568 ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
+569 ;;^UTILITY(U,$J,358.3,25246,1,2,0)
+570 ;;=2^99344
+571 ;;^UTILITY(U,$J,358.3,25247,0)
+572 ;;=99345^^76^1010^5
+573 ;;^UTILITY(U,$J,358.3,25247,1,0)
+574 ;;=^358.31IA^2^2
+575 ;;^UTILITY(U,$J,358.3,25247,1,1,0)
+576 ;;=1^Comprehensive Hx/PE & High Complex MDM
+577 ;;^UTILITY(U,$J,358.3,25247,1,2,0)
+578 ;;=2^99345
+579 ;;^UTILITY(U,$J,358.3,25248,0)
+580 ;;=I20.9^^77^1011^3
+581 ;;^UTILITY(U,$J,358.3,25248,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,25248,1,3,0)
+584 ;;=3^Angina Pectoris,Unspec
+585 ;;^UTILITY(U,$J,358.3,25248,1,4,0)
+586 ;;=4^I20.9
+587 ;;^UTILITY(U,$J,358.3,25248,2)
+588 ;;=^5007079
+589 ;;^UTILITY(U,$J,358.3,25249,0)
+590 ;;=I25.10^^77^1011^14
+591 ;;^UTILITY(U,$J,358.3,25249,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,25249,1,3,0)
+594 ;;=3^CAD w/o Angina
+595 ;;^UTILITY(U,$J,358.3,25249,1,4,0)
+596 ;;=4^I25.10
+597 ;;^UTILITY(U,$J,358.3,25249,2)
+598 ;;=^5007107
+599 ;;^UTILITY(U,$J,358.3,25250,0)
+600 ;;=I48.91^^77^1011^9
+601 ;;^UTILITY(U,$J,358.3,25250,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,25250,1,3,0)
+604 ;;=3^Atrial Fibrillation,Unspec
+605 ;;^UTILITY(U,$J,358.3,25250,1,4,0)
+606 ;;=4^I48.91
+607 ;;^UTILITY(U,$J,358.3,25250,2)
+608 ;;=^5007229
+609 ;;^UTILITY(U,$J,358.3,25251,0)
+610 ;;=I48.0^^77^1011^7
+611 ;;^UTILITY(U,$J,358.3,25251,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,25251,1,3,0)
+614 ;;=3^Atrial Fibrillation,Paroxysmal
+615 ;;^UTILITY(U,$J,358.3,25251,1,4,0)
+616 ;;=4^I48.0
+617 ;;^UTILITY(U,$J,358.3,25251,2)
+618 ;;=^90473
+619 ;;^UTILITY(U,$J,358.3,25252,0)
+620 ;;=Z95.0^^77^1011^21
+621 ;;^UTILITY(U,$J,358.3,25252,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,25252,1,3,0)
+624 ;;=3^Presence of Cardiac Pacemaker
+625 ;;^UTILITY(U,$J,358.3,25252,1,4,0)
+626 ;;=4^Z95.0
+627 ;;^UTILITY(U,$J,358.3,25252,2)
+628 ;;=^5063668
+629 ;;^UTILITY(U,$J,358.3,25253,0)
+630 ;;=I50.9^^77^1011^18
+631 ;;^UTILITY(U,$J,358.3,25253,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,25253,1,3,0)
+634 ;;=3^Heart Failure,Unspec
+635 ;;^UTILITY(U,$J,358.3,25253,1,4,0)
+636 ;;=4^I50.9
+637 ;;^UTILITY(U,$J,358.3,25253,2)
+638 ;;=^5007251
+639 ;;^UTILITY(U,$J,358.3,25254,0)
+640 ;;=I20.0^^77^1011^22
+641 ;;^UTILITY(U,$J,358.3,25254,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,25254,1,3,0)
+644 ;;=3^Unstable Angina
+645 ;;^UTILITY(U,$J,358.3,25254,1,4,0)
+646 ;;=4^I20.0
+647 ;;^UTILITY(U,$J,358.3,25254,2)
+648 ;;=^5007076
+649 ;;^UTILITY(U,$J,358.3,25255,0)
+650 ;;=I25.110^^77^1011^13
+651 ;;^UTILITY(U,$J,358.3,25255,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,25255,1,3,0)
+654 ;;=3^CAD w/ Unstable Angina
+655 ;;^UTILITY(U,$J,358.3,25255,1,4,0)
+656 ;;=4^I25.110
+657 ;;^UTILITY(U,$J,358.3,25255,2)
+658 ;;=^5007108
+659 ;;^UTILITY(U,$J,358.3,25256,0)
+660 ;;=I25.2^^77^1011^20
+661 ;;^UTILITY(U,$J,358.3,25256,1,0)
+662 ;;=^358.31IA^4^2
+663 ;;^UTILITY(U,$J,358.3,25256,1,3,0)
+664 ;;=3^Old Myocardial Infarction
