IBDEI0CD ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,31015,1,3,0)
;;=3^INJ Epidural/Subarachnoid,C/T
;;^UTILITY(U,$J,358.3,31016,0)
;;=62322^^87^1242^10^^^^1
;;^UTILITY(U,$J,358.3,31016,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31016,1,2,0)
;;=2^62322
;;^UTILITY(U,$J,358.3,31016,1,3,0)
;;=3^INJ Epidural/Subarachnoid,L/S
;;^UTILITY(U,$J,358.3,31017,0)
;;=A6196^^87^1243^1^^^^1
;;^UTILITY(U,$J,358.3,31017,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31017,1,2,0)
;;=2^A6196
;;^UTILITY(U,$J,358.3,31017,1,3,0)
;;=3^Alginate dressing,16 sq IN or < EA
;;^UTILITY(U,$J,358.3,31018,0)
;;=A6222^^87^1243^3^^^^1
;;^UTILITY(U,$J,358.3,31018,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31018,1,2,0)
;;=2^A6222
;;^UTILITY(U,$J,358.3,31018,1,3,0)
;;=3^Gauze, 16 sq IN or <, saline
;;^UTILITY(U,$J,358.3,31019,0)
;;=A6234^^87^1243^4^^^^1
;;^UTILITY(U,$J,358.3,31019,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31019,1,2,0)
;;=2^A6234
;;^UTILITY(U,$J,358.3,31019,1,3,0)
;;=3^Hydrocolid drg 16<=IN w/o bdr
;;^UTILITY(U,$J,358.3,31020,0)
;;=A6242^^87^1243^5^^^^1
;;^UTILITY(U,$J,358.3,31020,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31020,1,2,0)
;;=2^A6242
;;^UTILITY(U,$J,358.3,31020,1,3,0)
;;=3^Hydrogel drg <=IN w/o bdr
;;^UTILITY(U,$J,358.3,31021,0)
;;=A6216^^87^1243^6^^^^1
;;^UTILITY(U,$J,358.3,31021,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31021,1,2,0)
;;=2^A6216
;;^UTILITY(U,$J,358.3,31021,1,3,0)
;;=3^Non-Sterile Gauze <=16 Sq IN
;;^UTILITY(U,$J,358.3,31022,0)
;;=A6250^^87^1243^8^^^^1
;;^UTILITY(U,$J,358.3,31022,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31022,1,2,0)
;;=2^A6250
;;^UTILITY(U,$J,358.3,31022,1,3,0)
;;=3^Skin Seal protect moisturizer
;;^UTILITY(U,$J,358.3,31023,0)
;;=A6257^^87^1243^9^^^^1
;;^UTILITY(U,$J,358.3,31023,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31023,1,2,0)
;;=2^A6257
;;^UTILITY(U,$J,358.3,31023,1,3,0)
;;=3^Transparent Film <= 16 Sq IN
;;^UTILITY(U,$J,358.3,31024,0)
;;=A6197^^87^1243^2^^^^1
;;^UTILITY(U,$J,358.3,31024,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31024,1,2,0)
;;=2^A6197
;;^UTILITY(U,$J,358.3,31024,1,3,0)
;;=3^Alginate Dressing,16-48 Sq In,Each
;;^UTILITY(U,$J,358.3,31025,0)
;;=A6217^^87^1243^7^^^^1
;;^UTILITY(U,$J,358.3,31025,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31025,1,2,0)
;;=2^A6217
;;^UTILITY(U,$J,358.3,31025,1,3,0)
;;=3^Non-Sterile Gauze,16-48 Sq In,Each
;;^UTILITY(U,$J,358.3,31026,0)
;;=97034^^87^1244^3^^^^1
;;^UTILITY(U,$J,358.3,31026,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31026,1,2,0)
;;=2^97034
;;^UTILITY(U,$J,358.3,31026,1,3,0)
;;=3^Contrast Baths, 15 Mins each
;;^UTILITY(U,$J,358.3,31027,0)
;;=97014^^87^1244^4^^^^1
;;^UTILITY(U,$J,358.3,31027,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31027,1,2,0)
;;=2^97014
;;^UTILITY(U,$J,358.3,31027,1,3,0)
;;=3^Electrical Stimulation
;;^UTILITY(U,$J,358.3,31028,0)
;;=97530^^87^1244^5^^^^1
;;^UTILITY(U,$J,358.3,31028,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31028,1,2,0)
;;=2^97530
;;^UTILITY(U,$J,358.3,31028,1,3,0)
;;=3^Functional Activities
;;^UTILITY(U,$J,358.3,31029,0)
;;=97116^^87^1244^6^^^^1
;;^UTILITY(U,$J,358.3,31029,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31029,1,2,0)
;;=2^97116
;;^UTILITY(U,$J,358.3,31029,1,3,0)
;;=3^Gait Training
;;^UTILITY(U,$J,358.3,31030,0)
;;=97010^^87^1244^7^^^^1
;;^UTILITY(U,$J,358.3,31030,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31030,1,2,0)
;;=2^97010
;;^UTILITY(U,$J,358.3,31030,1,3,0)
;;=3^Hot/Cold Therapies
;;^UTILITY(U,$J,358.3,31031,0)
;;=97033^^87^1244^8^^^^1
;;^UTILITY(U,$J,358.3,31031,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31031,1,2,0)
;;=2^97033
;;^UTILITY(U,$J,358.3,31031,1,3,0)
;;=3^Iontophoresis, 15 Mins each
;;^UTILITY(U,$J,358.3,31032,0)
;;=97530^^87^1244^9^^^^1
;;^UTILITY(U,$J,358.3,31032,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31032,1,2,0)
;;=2^97530
;;^UTILITY(U,$J,358.3,31032,1,3,0)
;;=3^Kinetic Therapy, 15 Mins each
;;^UTILITY(U,$J,358.3,31033,0)
;;=97140^^87^1244^10^^^^1
;;^UTILITY(U,$J,358.3,31033,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31033,1,2,0)
;;=2^97140
;;^UTILITY(U,$J,358.3,31033,1,3,0)
;;=3^Manipulation/Mobilization, 15 Mins each
;;^UTILITY(U,$J,358.3,31034,0)
;;=97112^^87^1244^11^^^^1
;;^UTILITY(U,$J,358.3,31034,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31034,1,2,0)
;;=2^97112
;;^UTILITY(U,$J,358.3,31034,1,3,0)
;;=3^Neuromuscular Re-Ed
;;^UTILITY(U,$J,358.3,31035,0)
;;=97018^^87^1244^12^^^^1
;;^UTILITY(U,$J,358.3,31035,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31035,1,2,0)
;;=2^97018
;;^UTILITY(U,$J,358.3,31035,1,3,0)
;;=3^Paraffin Bath
;;^UTILITY(U,$J,358.3,31036,0)
;;=97039^^87^1244^13^^^^1
;;^UTILITY(U,$J,358.3,31036,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31036,1,2,0)
;;=2^97039
;;^UTILITY(U,$J,358.3,31036,1,3,0)
;;=3^Physical Therapy Treatment
;;^UTILITY(U,$J,358.3,31037,0)
;;=97124^^87^1244^16^^^^1
;;^UTILITY(U,$J,358.3,31037,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31037,1,2,0)
;;=2^97124
;;^UTILITY(U,$J,358.3,31037,1,3,0)
;;=3^Soft Tissue Mobilization
;;^UTILITY(U,$J,358.3,31038,0)
;;=97110^^87^1244^17^^^^1
;;^UTILITY(U,$J,358.3,31038,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31038,1,2,0)
;;=2^97110
;;^UTILITY(U,$J,358.3,31038,1,3,0)
;;=3^Therapeutic Ex/Recond/Flex
;;^UTILITY(U,$J,358.3,31039,0)
;;=97140^^87^1244^20^^^^1
;;^UTILITY(U,$J,358.3,31039,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31039,1,2,0)
;;=2^97140
;;^UTILITY(U,$J,358.3,31039,1,3,0)
;;=3^Traction, Manual, 15 Mins each
;;^UTILITY(U,$J,358.3,31040,0)
;;=97035^^87^1244^21^^^^1
;;^UTILITY(U,$J,358.3,31040,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31040,1,2,0)
;;=2^97035
;;^UTILITY(U,$J,358.3,31040,1,3,0)
;;=3^Ultrasound, 15 Mins each
;;^UTILITY(U,$J,358.3,31041,0)
;;=97016^^87^1244^22^^^^1
;;^UTILITY(U,$J,358.3,31041,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31041,1,2,0)
;;=2^97016
;;^UTILITY(U,$J,358.3,31041,1,3,0)
;;=3^Vasopneumatic device
;;^UTILITY(U,$J,358.3,31042,0)
;;=97022^^87^1244^23^^^^1
;;^UTILITY(U,$J,358.3,31042,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31042,1,2,0)
;;=2^97022
;;^UTILITY(U,$J,358.3,31042,1,3,0)
;;=3^Whirlpool
;;^UTILITY(U,$J,358.3,31043,0)
;;=95970^^87^1244^2^^^^1
;;^UTILITY(U,$J,358.3,31043,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31043,1,2,0)
;;=2^95970
;;^UTILITY(U,$J,358.3,31043,1,3,0)
;;=3^Analysis Spinal Cord Stim w/o Prog
;;^UTILITY(U,$J,358.3,31044,0)
;;=95971^^87^1244^1^^^^1
;;^UTILITY(U,$J,358.3,31044,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31044,1,2,0)
;;=2^95971
;;^UTILITY(U,$J,358.3,31044,1,3,0)
;;=3^Analysis Spinal Cord Stim w/ Prog
;;^UTILITY(U,$J,358.3,31045,0)
;;=95990^^87^1244^15^^^^1
;;^UTILITY(U,$J,358.3,31045,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31045,1,2,0)
;;=2^95990
;;^UTILITY(U,$J,358.3,31045,1,3,0)
;;=3^Refill of Intrathecal Pain Pump
;;^UTILITY(U,$J,358.3,31046,0)
;;=95991^^87^1244^14^^^^1
;;^UTILITY(U,$J,358.3,31046,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31046,1,2,0)
;;=2^95991
;;^UTILITY(U,$J,358.3,31046,1,3,0)
;;=3^Refill Intrathecal Pain Pump by MD
;;^UTILITY(U,$J,358.3,31047,0)
;;=97129^^87^1244^18^^^^1
;;^UTILITY(U,$J,358.3,31047,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31047,1,2,0)
;;=2^97129
;;^UTILITY(U,$J,358.3,31047,1,3,0)
;;=3^Therapeutic Intrvn,Cog Func,1st 15 min
;;^UTILITY(U,$J,358.3,31048,0)
;;=97130^^87^1244^19^^^^1
;;^UTILITY(U,$J,358.3,31048,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31048,1,2,0)
;;=2^97130
;;^UTILITY(U,$J,358.3,31048,1,3,0)
;;=3^Therapeutic Intrvn,Cog Func,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,31049,0)
;;=20552^^87^1245^6^^^^1
;;^UTILITY(U,$J,358.3,31049,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31049,1,2,0)
;;=2^20552
;;^UTILITY(U,$J,358.3,31049,1,3,0)
;;=3^Trigger point INJ, 1 or 2 muscles
;;^UTILITY(U,$J,358.3,31050,0)
;;=20553^^87^1245^7^^^^1
;;^UTILITY(U,$J,358.3,31050,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31050,1,2,0)
;;=2^20553
;;^UTILITY(U,$J,358.3,31050,1,3,0)
;;=3^Trigger point INJ, 3 or more muscles
;;^UTILITY(U,$J,358.3,31051,0)
;;=20550^^87^1245^5^^^^1
;;^UTILITY(U,$J,358.3,31051,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31051,1,2,0)
;;=2^20550
;;^UTILITY(U,$J,358.3,31051,1,3,0)
;;=3^INJ tendon sheath/ligament
;;^UTILITY(U,$J,358.3,31052,0)
;;=20551^^87^1245^4^^^^1
;;^UTILITY(U,$J,358.3,31052,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31052,1,2,0)
;;=2^20551
;;^UTILITY(U,$J,358.3,31052,1,3,0)
;;=3^INJ tendon insertion/origin
;;^UTILITY(U,$J,358.3,31053,0)
;;=J0585^^87^1245^1^^^^1
;;^UTILITY(U,$J,358.3,31053,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31053,1,2,0)
;;=2^J0585
;;^UTILITY(U,$J,358.3,31053,1,3,0)
;;=3^Botulinum Toxin A, per unit
;;^UTILITY(U,$J,358.3,31054,0)
;;=J0587^^87^1245^2^^^^1
;;^UTILITY(U,$J,358.3,31054,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31054,1,2,0)
;;=2^J0587
;;^UTILITY(U,$J,358.3,31054,1,3,0)
;;=3^Botulinum Toxin B, 100 Units
;;^UTILITY(U,$J,358.3,31055,0)
;;=64615^^87^1245^3^^^^1
;;^UTILITY(U,$J,358.3,31055,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31055,1,2,0)
;;=2^64615
;;^UTILITY(U,$J,358.3,31055,1,3,0)
;;=3^Chemodenervation Muscle for Migraine
;;^UTILITY(U,$J,358.3,31056,0)
;;=97810^^87^1246^1^^^^1
;;^UTILITY(U,$J,358.3,31056,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31056,1,2,0)
;;=2^97810
;;^UTILITY(U,$J,358.3,31056,1,3,0)
;;=3^Acupuncture w/o Stimul 15 Min
;;^UTILITY(U,$J,358.3,31057,0)
;;=97811^^87^1246^2^^^^1
;;^UTILITY(U,$J,358.3,31057,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31057,1,2,0)
;;=2^97811
;;^UTILITY(U,$J,358.3,31057,1,3,0)
;;=3^Acupuncture w/o Stimul,Ea Addl 15 Min
;;^UTILITY(U,$J,358.3,31058,0)
;;=97813^^87^1246^3^^^^1
;;^UTILITY(U,$J,358.3,31058,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31058,1,2,0)
;;=2^97813
;;^UTILITY(U,$J,358.3,31058,1,3,0)
;;=3^Acupuncture w/ Stimul 15 Min
;;^UTILITY(U,$J,358.3,31059,0)
;;=97814^^87^1246^4^^^^1
;;^UTILITY(U,$J,358.3,31059,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31059,1,2,0)
;;=2^97814
;;^UTILITY(U,$J,358.3,31059,1,3,0)
;;=3^Acupuncture w/ Stimul,Ea Addl 15 Min
;;^UTILITY(U,$J,358.3,31060,0)
;;=11719^^87^1247^3^^^^1
;;^UTILITY(U,$J,358.3,31060,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31060,1,2,0)
;;=2^11719
;;^UTILITY(U,$J,358.3,31060,1,3,0)
;;=3^Trim Nondystrophic Nails,Any Number
;;^UTILITY(U,$J,358.3,31061,0)
;;=11720^^87^1247^1^^^^1
;;^UTILITY(U,$J,358.3,31061,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31061,1,2,0)
;;=2^11720
;;^UTILITY(U,$J,358.3,31061,1,3,0)
;;=3^Debride Nail(s);1-5
;;^UTILITY(U,$J,358.3,31062,0)
;;=11721^^87^1247^2^^^^1
;;^UTILITY(U,$J,358.3,31062,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31062,1,2,0)
;;=2^11721
;;^UTILITY(U,$J,358.3,31062,1,3,0)
;;=3^Debride Nails;6 or more
;;^UTILITY(U,$J,358.3,31063,0)
;;=J0475^^87^1248^5^^^^1
;;^UTILITY(U,$J,358.3,31063,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31063,1,2,0)
;;=2^J0475
;;^UTILITY(U,$J,358.3,31063,1,3,0)
;;=3^Baclofen 10mg
;;^UTILITY(U,$J,358.3,31064,0)
;;=J0476^^87^1248^6^^^^1
;;^UTILITY(U,$J,358.3,31064,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31064,1,2,0)
;;=2^J0476
;;^UTILITY(U,$J,358.3,31064,1,3,0)
;;=3^Baclofen Intrathecal Trial 50mcg
;;^UTILITY(U,$J,358.3,31065,0)
;;=62322^^87^1248^7^^^^1
;;^UTILITY(U,$J,358.3,31065,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31065,1,2,0)
;;=2^62322
;;^UTILITY(U,$J,358.3,31065,1,3,0)
;;=3^Njx Interlaminar Lmbr/Sac
;;^UTILITY(U,$J,358.3,31066,0)
;;=62367^^87^1248^1^^^^1
;;^UTILITY(U,$J,358.3,31066,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31066,1,2,0)
;;=2^62367
;;^UTILITY(U,$J,358.3,31066,1,3,0)
;;=3^Analyze Spine Infus Pump
;;^UTILITY(U,$J,358.3,31067,0)
;;=62368^^87^1248^3^^^^1
;;^UTILITY(U,$J,358.3,31067,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31067,1,2,0)
;;=2^62368
;;^UTILITY(U,$J,358.3,31067,1,3,0)
;;=3^Analyze Spine Infus Pump w/ Reprog
;;^UTILITY(U,$J,358.3,31068,0)
;;=62369^^87^1248^4^^^^1
;;^UTILITY(U,$J,358.3,31068,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31068,1,2,0)
;;=2^62369
;;^UTILITY(U,$J,358.3,31068,1,3,0)
;;=3^Analyze Spine Infus Pump w/ Reprog/Fill
;;^UTILITY(U,$J,358.3,31069,0)
;;=62370^^87^1248^2^^^^1
;;^UTILITY(U,$J,358.3,31069,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31069,1,2,0)
;;=2^62370
;;^UTILITY(U,$J,358.3,31069,1,3,0)
;;=3^Analyze Spine Infus Pump w/ Mdreprg/Fill
;;^UTILITY(U,$J,358.3,31070,0)
;;=97750^^87^1248^8^^^^1
;;^UTILITY(U,$J,358.3,31070,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31070,1,2,0)
;;=2^97750
;;^UTILITY(U,$J,358.3,31070,1,3,0)
;;=3^Physical Performance Test
;;^UTILITY(U,$J,358.3,31071,0)
;;=95990^^87^1248^9^^^^1
;;^UTILITY(U,$J,358.3,31071,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31071,1,2,0)
;;=2^95990
;;^UTILITY(U,$J,358.3,31071,1,3,0)
;;=3^Spine/Brain Pump Refll/Maint
;;^UTILITY(U,$J,358.3,31072,0)
;;=99202^^88^1249^1
;;^UTILITY(U,$J,358.3,31072,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31072,1,1,0)
;;=1^SF MDM or 15-29 mins
;;^UTILITY(U,$J,358.3,31072,1,2,0)
;;=2^99202
;;^UTILITY(U,$J,358.3,31073,0)
;;=99203^^88^1249^2
;;^UTILITY(U,$J,358.3,31073,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31073,1,1,0)
;;=1^Low MDM or 30-44 mins
;;^UTILITY(U,$J,358.3,31073,1,2,0)
;;=2^99203
;;^UTILITY(U,$J,358.3,31074,0)
;;=99204^^88^1249^3
;;^UTILITY(U,$J,358.3,31074,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31074,1,1,0)
;;=1^Moderate MDM or 45-59 mins
;;^UTILITY(U,$J,358.3,31074,1,2,0)
;;=2^99204
;;^UTILITY(U,$J,358.3,31075,0)
;;=99205^^88^1249^4
;;^UTILITY(U,$J,358.3,31075,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31075,1,1,0)
;;=1^High MDM or 60-74 mins
;;^UTILITY(U,$J,358.3,31075,1,2,0)
;;=2^99205
;;^UTILITY(U,$J,358.3,31076,0)
;;=99211^^88^1250^1
;;^UTILITY(U,$J,358.3,31076,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31076,1,1,0)
;;=1^Brief Visit-MDM None/Minimal
;;^UTILITY(U,$J,358.3,31076,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,31077,0)
;;=99212^^88^1250^2
;;^UTILITY(U,$J,358.3,31077,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31077,1,1,0)
;;=1^SF MDM or 10-19 mins
;;^UTILITY(U,$J,358.3,31077,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,31078,0)
;;=99213^^88^1250^3
;;^UTILITY(U,$J,358.3,31078,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31078,1,1,0)
;;=1^Low MDM or 20-29 mins
;;^UTILITY(U,$J,358.3,31078,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,31079,0)
;;=99214^^88^1250^4
;;^UTILITY(U,$J,358.3,31079,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31079,1,1,0)
;;=1^Moderate MDM or 30-39 mins
;;^UTILITY(U,$J,358.3,31079,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,31080,0)
;;=99215^^88^1250^5
;;^UTILITY(U,$J,358.3,31080,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31080,1,1,0)
;;=1^High MDM or 40-54 mins
;;^UTILITY(U,$J,358.3,31080,1,2,0)
;;=2^99215
;;^UTILITY(U,$J,358.3,31081,0)
;;=99241^^88^1251^1
;;^UTILITY(U,$J,358.3,31081,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31081,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,31081,1,2,0)
;;=2^99241
;;^UTILITY(U,$J,358.3,31082,0)
;;=99242^^88^1251^2
;;^UTILITY(U,$J,358.3,31082,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31082,1,1,0)
;;=1^Exp Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,31082,1,2,0)
;;=2^99242
;;^UTILITY(U,$J,358.3,31083,0)
;;=99243^^88^1251^3
;;^UTILITY(U,$J,358.3,31083,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31083,1,1,0)
;;=1^Detailed Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,31083,1,2,0)
;;=2^99243
;;^UTILITY(U,$J,358.3,31084,0)
;;=99244^^88^1251^4
;;^UTILITY(U,$J,358.3,31084,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31084,1,1,0)
;;=1^Comprehensive Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,31084,1,2,0)
;;=2^99244
;;^UTILITY(U,$J,358.3,31085,0)
;;=99245^^88^1251^5
;;^UTILITY(U,$J,358.3,31085,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31085,1,1,0)
;;=1^Comprehensive Hx/PE & High Complex MDM
;;^UTILITY(U,$J,358.3,31085,1,2,0)
;;=2^99245
;;^UTILITY(U,$J,358.3,31086,0)
;;=99347^^88^1252^1
;;^UTILITY(U,$J,358.3,31086,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31086,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,31086,1,2,0)
;;=2^99347
;;^UTILITY(U,$J,358.3,31087,0)
;;=99348^^88^1252^2
;;^UTILITY(U,$J,358.3,31087,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31087,1,1,0)
;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,31087,1,2,0)
;;=2^99348
;;^UTILITY(U,$J,358.3,31088,0)
;;=99349^^88^1252^3
;;^UTILITY(U,$J,358.3,31088,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31088,1,1,0)
;;=1^Detailed Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,31088,1,2,0)
;;=2^99349
;;^UTILITY(U,$J,358.3,31089,0)
;;=99350^^88^1252^4
;;^UTILITY(U,$J,358.3,31089,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31089,1,1,0)
;;=1^Comprehensive Hx/PE & Mod or High Complex MDM
;;^UTILITY(U,$J,358.3,31089,1,2,0)
;;=2^99350
;;^UTILITY(U,$J,358.3,31090,0)
;;=99341^^88^1253^1
;;^UTILITY(U,$J,358.3,31090,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31090,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,31090,1,2,0)
;;=2^99341
;;^UTILITY(U,$J,358.3,31091,0)
;;=99342^^88^1253^2
;;^UTILITY(U,$J,358.3,31091,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31091,1,1,0)
;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,31091,1,2,0)
;;=2^99342
;;^UTILITY(U,$J,358.3,31092,0)
;;=99343^^88^1253^3
;;^UTILITY(U,$J,358.3,31092,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31092,1,1,0)
;;=1^Detailed Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,31092,1,2,0)
;;=2^99343
;;^UTILITY(U,$J,358.3,31093,0)
;;=99344^^88^1253^4
;;^UTILITY(U,$J,358.3,31093,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31093,1,1,0)
;;=1^Comprehensive Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,31093,1,2,0)
;;=2^99344
;;^UTILITY(U,$J,358.3,31094,0)
;;=99345^^88^1253^5
;;^UTILITY(U,$J,358.3,31094,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31094,1,1,0)
;;=1^Comprehensive Hx/PE & High Complex MDM
;;^UTILITY(U,$J,358.3,31094,1,2,0)
;;=2^99345
;;^UTILITY(U,$J,358.3,31095,0)
;;=I20.9^^89^1254^3
;;^UTILITY(U,$J,358.3,31095,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31095,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,31095,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,31095,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,31096,0)
;;=I25.10^^89^1254^14
;;^UTILITY(U,$J,358.3,31096,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31096,1,3,0)
;;=3^CAD w/o Angina
;;^UTILITY(U,$J,358.3,31096,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,31096,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,31097,0)
;;=I48.91^^89^1254^9
;;^UTILITY(U,$J,358.3,31097,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31097,1,3,0)
;;=3^Atrial Fibrillation,Unspec
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CD 19768 printed Dec 13, 2024@01:45:54 Page 2
IBDEI0CD ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,31015,1,3,0)
+2 ;;=3^INJ Epidural/Subarachnoid,C/T
+3 ;;^UTILITY(U,$J,358.3,31016,0)
+4 ;;=62322^^87^1242^10^^^^1
+5 ;;^UTILITY(U,$J,358.3,31016,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,31016,1,2,0)
+8 ;;=2^62322
+9 ;;^UTILITY(U,$J,358.3,31016,1,3,0)
+10 ;;=3^INJ Epidural/Subarachnoid,L/S
+11 ;;^UTILITY(U,$J,358.3,31017,0)
+12 ;;=A6196^^87^1243^1^^^^1
+13 ;;^UTILITY(U,$J,358.3,31017,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,31017,1,2,0)
+16 ;;=2^A6196
+17 ;;^UTILITY(U,$J,358.3,31017,1,3,0)
+18 ;;=3^Alginate dressing,16 sq IN or < EA
+19 ;;^UTILITY(U,$J,358.3,31018,0)
+20 ;;=A6222^^87^1243^3^^^^1
+21 ;;^UTILITY(U,$J,358.3,31018,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,31018,1,2,0)
+24 ;;=2^A6222
+25 ;;^UTILITY(U,$J,358.3,31018,1,3,0)
+26 ;;=3^Gauze, 16 sq IN or <, saline
+27 ;;^UTILITY(U,$J,358.3,31019,0)
+28 ;;=A6234^^87^1243^4^^^^1
+29 ;;^UTILITY(U,$J,358.3,31019,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,31019,1,2,0)
+32 ;;=2^A6234
+33 ;;^UTILITY(U,$J,358.3,31019,1,3,0)
+34 ;;=3^Hydrocolid drg 16<=IN w/o bdr
+35 ;;^UTILITY(U,$J,358.3,31020,0)
+36 ;;=A6242^^87^1243^5^^^^1
+37 ;;^UTILITY(U,$J,358.3,31020,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,31020,1,2,0)
+40 ;;=2^A6242
+41 ;;^UTILITY(U,$J,358.3,31020,1,3,0)
+42 ;;=3^Hydrogel drg <=IN w/o bdr
+43 ;;^UTILITY(U,$J,358.3,31021,0)
+44 ;;=A6216^^87^1243^6^^^^1
+45 ;;^UTILITY(U,$J,358.3,31021,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,31021,1,2,0)
+48 ;;=2^A6216
+49 ;;^UTILITY(U,$J,358.3,31021,1,3,0)
+50 ;;=3^Non-Sterile Gauze <=16 Sq IN
+51 ;;^UTILITY(U,$J,358.3,31022,0)
+52 ;;=A6250^^87^1243^8^^^^1
+53 ;;^UTILITY(U,$J,358.3,31022,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,31022,1,2,0)
+56 ;;=2^A6250
+57 ;;^UTILITY(U,$J,358.3,31022,1,3,0)
+58 ;;=3^Skin Seal protect moisturizer
+59 ;;^UTILITY(U,$J,358.3,31023,0)
+60 ;;=A6257^^87^1243^9^^^^1
+61 ;;^UTILITY(U,$J,358.3,31023,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,31023,1,2,0)
+64 ;;=2^A6257
+65 ;;^UTILITY(U,$J,358.3,31023,1,3,0)
+66 ;;=3^Transparent Film <= 16 Sq IN
+67 ;;^UTILITY(U,$J,358.3,31024,0)
+68 ;;=A6197^^87^1243^2^^^^1
+69 ;;^UTILITY(U,$J,358.3,31024,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,31024,1,2,0)
+72 ;;=2^A6197
+73 ;;^UTILITY(U,$J,358.3,31024,1,3,0)
+74 ;;=3^Alginate Dressing,16-48 Sq In,Each
+75 ;;^UTILITY(U,$J,358.3,31025,0)
+76 ;;=A6217^^87^1243^7^^^^1
+77 ;;^UTILITY(U,$J,358.3,31025,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,31025,1,2,0)
+80 ;;=2^A6217
+81 ;;^UTILITY(U,$J,358.3,31025,1,3,0)
+82 ;;=3^Non-Sterile Gauze,16-48 Sq In,Each
+83 ;;^UTILITY(U,$J,358.3,31026,0)
+84 ;;=97034^^87^1244^3^^^^1
+85 ;;^UTILITY(U,$J,358.3,31026,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,31026,1,2,0)
+88 ;;=2^97034
+89 ;;^UTILITY(U,$J,358.3,31026,1,3,0)
+90 ;;=3^Contrast Baths, 15 Mins each
+91 ;;^UTILITY(U,$J,358.3,31027,0)
+92 ;;=97014^^87^1244^4^^^^1
+93 ;;^UTILITY(U,$J,358.3,31027,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,31027,1,2,0)
+96 ;;=2^97014
+97 ;;^UTILITY(U,$J,358.3,31027,1,3,0)
+98 ;;=3^Electrical Stimulation
+99 ;;^UTILITY(U,$J,358.3,31028,0)
+100 ;;=97530^^87^1244^5^^^^1
+101 ;;^UTILITY(U,$J,358.3,31028,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,31028,1,2,0)
+104 ;;=2^97530
+105 ;;^UTILITY(U,$J,358.3,31028,1,3,0)
+106 ;;=3^Functional Activities
+107 ;;^UTILITY(U,$J,358.3,31029,0)
+108 ;;=97116^^87^1244^6^^^^1
+109 ;;^UTILITY(U,$J,358.3,31029,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,31029,1,2,0)
+112 ;;=2^97116
+113 ;;^UTILITY(U,$J,358.3,31029,1,3,0)
+114 ;;=3^Gait Training
+115 ;;^UTILITY(U,$J,358.3,31030,0)
+116 ;;=97010^^87^1244^7^^^^1
+117 ;;^UTILITY(U,$J,358.3,31030,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,31030,1,2,0)
+120 ;;=2^97010
+121 ;;^UTILITY(U,$J,358.3,31030,1,3,0)
+122 ;;=3^Hot/Cold Therapies
+123 ;;^UTILITY(U,$J,358.3,31031,0)
+124 ;;=97033^^87^1244^8^^^^1
+125 ;;^UTILITY(U,$J,358.3,31031,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,31031,1,2,0)
+128 ;;=2^97033
+129 ;;^UTILITY(U,$J,358.3,31031,1,3,0)
+130 ;;=3^Iontophoresis, 15 Mins each
+131 ;;^UTILITY(U,$J,358.3,31032,0)
+132 ;;=97530^^87^1244^9^^^^1
+133 ;;^UTILITY(U,$J,358.3,31032,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,31032,1,2,0)
+136 ;;=2^97530
+137 ;;^UTILITY(U,$J,358.3,31032,1,3,0)
+138 ;;=3^Kinetic Therapy, 15 Mins each
+139 ;;^UTILITY(U,$J,358.3,31033,0)
+140 ;;=97140^^87^1244^10^^^^1
+141 ;;^UTILITY(U,$J,358.3,31033,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,31033,1,2,0)
+144 ;;=2^97140
+145 ;;^UTILITY(U,$J,358.3,31033,1,3,0)
+146 ;;=3^Manipulation/Mobilization, 15 Mins each
+147 ;;^UTILITY(U,$J,358.3,31034,0)
+148 ;;=97112^^87^1244^11^^^^1
+149 ;;^UTILITY(U,$J,358.3,31034,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,31034,1,2,0)
+152 ;;=2^97112
+153 ;;^UTILITY(U,$J,358.3,31034,1,3,0)
+154 ;;=3^Neuromuscular Re-Ed
+155 ;;^UTILITY(U,$J,358.3,31035,0)
+156 ;;=97018^^87^1244^12^^^^1
+157 ;;^UTILITY(U,$J,358.3,31035,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,31035,1,2,0)
+160 ;;=2^97018
+161 ;;^UTILITY(U,$J,358.3,31035,1,3,0)
+162 ;;=3^Paraffin Bath
+163 ;;^UTILITY(U,$J,358.3,31036,0)
+164 ;;=97039^^87^1244^13^^^^1
+165 ;;^UTILITY(U,$J,358.3,31036,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,31036,1,2,0)
+168 ;;=2^97039
+169 ;;^UTILITY(U,$J,358.3,31036,1,3,0)
+170 ;;=3^Physical Therapy Treatment
+171 ;;^UTILITY(U,$J,358.3,31037,0)
+172 ;;=97124^^87^1244^16^^^^1
+173 ;;^UTILITY(U,$J,358.3,31037,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,31037,1,2,0)
+176 ;;=2^97124
+177 ;;^UTILITY(U,$J,358.3,31037,1,3,0)
+178 ;;=3^Soft Tissue Mobilization
+179 ;;^UTILITY(U,$J,358.3,31038,0)
+180 ;;=97110^^87^1244^17^^^^1
+181 ;;^UTILITY(U,$J,358.3,31038,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,31038,1,2,0)
+184 ;;=2^97110
+185 ;;^UTILITY(U,$J,358.3,31038,1,3,0)
+186 ;;=3^Therapeutic Ex/Recond/Flex
+187 ;;^UTILITY(U,$J,358.3,31039,0)
+188 ;;=97140^^87^1244^20^^^^1
+189 ;;^UTILITY(U,$J,358.3,31039,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,31039,1,2,0)
+192 ;;=2^97140
+193 ;;^UTILITY(U,$J,358.3,31039,1,3,0)
+194 ;;=3^Traction, Manual, 15 Mins each
+195 ;;^UTILITY(U,$J,358.3,31040,0)
+196 ;;=97035^^87^1244^21^^^^1
+197 ;;^UTILITY(U,$J,358.3,31040,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,31040,1,2,0)
+200 ;;=2^97035
+201 ;;^UTILITY(U,$J,358.3,31040,1,3,0)
+202 ;;=3^Ultrasound, 15 Mins each
+203 ;;^UTILITY(U,$J,358.3,31041,0)
+204 ;;=97016^^87^1244^22^^^^1
+205 ;;^UTILITY(U,$J,358.3,31041,1,0)
+206 ;;=^358.31IA^3^2
+207 ;;^UTILITY(U,$J,358.3,31041,1,2,0)
+208 ;;=2^97016
+209 ;;^UTILITY(U,$J,358.3,31041,1,3,0)
+210 ;;=3^Vasopneumatic device
+211 ;;^UTILITY(U,$J,358.3,31042,0)
+212 ;;=97022^^87^1244^23^^^^1
+213 ;;^UTILITY(U,$J,358.3,31042,1,0)
+214 ;;=^358.31IA^3^2
+215 ;;^UTILITY(U,$J,358.3,31042,1,2,0)
+216 ;;=2^97022
+217 ;;^UTILITY(U,$J,358.3,31042,1,3,0)
+218 ;;=3^Whirlpool
+219 ;;^UTILITY(U,$J,358.3,31043,0)
+220 ;;=95970^^87^1244^2^^^^1
+221 ;;^UTILITY(U,$J,358.3,31043,1,0)
+222 ;;=^358.31IA^3^2
+223 ;;^UTILITY(U,$J,358.3,31043,1,2,0)
+224 ;;=2^95970
+225 ;;^UTILITY(U,$J,358.3,31043,1,3,0)
+226 ;;=3^Analysis Spinal Cord Stim w/o Prog
+227 ;;^UTILITY(U,$J,358.3,31044,0)
+228 ;;=95971^^87^1244^1^^^^1
+229 ;;^UTILITY(U,$J,358.3,31044,1,0)
+230 ;;=^358.31IA^3^2
+231 ;;^UTILITY(U,$J,358.3,31044,1,2,0)
+232 ;;=2^95971
+233 ;;^UTILITY(U,$J,358.3,31044,1,3,0)
+234 ;;=3^Analysis Spinal Cord Stim w/ Prog
+235 ;;^UTILITY(U,$J,358.3,31045,0)
+236 ;;=95990^^87^1244^15^^^^1
+237 ;;^UTILITY(U,$J,358.3,31045,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,31045,1,2,0)
+240 ;;=2^95990
+241 ;;^UTILITY(U,$J,358.3,31045,1,3,0)
+242 ;;=3^Refill of Intrathecal Pain Pump
+243 ;;^UTILITY(U,$J,358.3,31046,0)
+244 ;;=95991^^87^1244^14^^^^1
+245 ;;^UTILITY(U,$J,358.3,31046,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,31046,1,2,0)
+248 ;;=2^95991
+249 ;;^UTILITY(U,$J,358.3,31046,1,3,0)
+250 ;;=3^Refill Intrathecal Pain Pump by MD
+251 ;;^UTILITY(U,$J,358.3,31047,0)
+252 ;;=97129^^87^1244^18^^^^1
+253 ;;^UTILITY(U,$J,358.3,31047,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,31047,1,2,0)
+256 ;;=2^97129
+257 ;;^UTILITY(U,$J,358.3,31047,1,3,0)
+258 ;;=3^Therapeutic Intrvn,Cog Func,1st 15 min
+259 ;;^UTILITY(U,$J,358.3,31048,0)
+260 ;;=97130^^87^1244^19^^^^1
+261 ;;^UTILITY(U,$J,358.3,31048,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,31048,1,2,0)
+264 ;;=2^97130
+265 ;;^UTILITY(U,$J,358.3,31048,1,3,0)
+266 ;;=3^Therapeutic Intrvn,Cog Func,Ea Addl 15 min
+267 ;;^UTILITY(U,$J,358.3,31049,0)
+268 ;;=20552^^87^1245^6^^^^1
+269 ;;^UTILITY(U,$J,358.3,31049,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,31049,1,2,0)
+272 ;;=2^20552
+273 ;;^UTILITY(U,$J,358.3,31049,1,3,0)
+274 ;;=3^Trigger point INJ, 1 or 2 muscles
+275 ;;^UTILITY(U,$J,358.3,31050,0)
+276 ;;=20553^^87^1245^7^^^^1
+277 ;;^UTILITY(U,$J,358.3,31050,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,31050,1,2,0)
+280 ;;=2^20553
+281 ;;^UTILITY(U,$J,358.3,31050,1,3,0)
+282 ;;=3^Trigger point INJ, 3 or more muscles
+283 ;;^UTILITY(U,$J,358.3,31051,0)
+284 ;;=20550^^87^1245^5^^^^1
+285 ;;^UTILITY(U,$J,358.3,31051,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,31051,1,2,0)
+288 ;;=2^20550
+289 ;;^UTILITY(U,$J,358.3,31051,1,3,0)
+290 ;;=3^INJ tendon sheath/ligament
+291 ;;^UTILITY(U,$J,358.3,31052,0)
+292 ;;=20551^^87^1245^4^^^^1
+293 ;;^UTILITY(U,$J,358.3,31052,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,31052,1,2,0)
+296 ;;=2^20551
+297 ;;^UTILITY(U,$J,358.3,31052,1,3,0)
+298 ;;=3^INJ tendon insertion/origin
+299 ;;^UTILITY(U,$J,358.3,31053,0)
+300 ;;=J0585^^87^1245^1^^^^1
+301 ;;^UTILITY(U,$J,358.3,31053,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,31053,1,2,0)
+304 ;;=2^J0585
+305 ;;^UTILITY(U,$J,358.3,31053,1,3,0)
+306 ;;=3^Botulinum Toxin A, per unit
+307 ;;^UTILITY(U,$J,358.3,31054,0)
+308 ;;=J0587^^87^1245^2^^^^1
+309 ;;^UTILITY(U,$J,358.3,31054,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,31054,1,2,0)
+312 ;;=2^J0587
+313 ;;^UTILITY(U,$J,358.3,31054,1,3,0)
+314 ;;=3^Botulinum Toxin B, 100 Units
+315 ;;^UTILITY(U,$J,358.3,31055,0)
+316 ;;=64615^^87^1245^3^^^^1
+317 ;;^UTILITY(U,$J,358.3,31055,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,31055,1,2,0)
+320 ;;=2^64615
+321 ;;^UTILITY(U,$J,358.3,31055,1,3,0)
+322 ;;=3^Chemodenervation Muscle for Migraine
+323 ;;^UTILITY(U,$J,358.3,31056,0)
+324 ;;=97810^^87^1246^1^^^^1
+325 ;;^UTILITY(U,$J,358.3,31056,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,31056,1,2,0)
+328 ;;=2^97810
+329 ;;^UTILITY(U,$J,358.3,31056,1,3,0)
+330 ;;=3^Acupuncture w/o Stimul 15 Min
+331 ;;^UTILITY(U,$J,358.3,31057,0)
+332 ;;=97811^^87^1246^2^^^^1
+333 ;;^UTILITY(U,$J,358.3,31057,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,31057,1,2,0)
+336 ;;=2^97811
+337 ;;^UTILITY(U,$J,358.3,31057,1,3,0)
+338 ;;=3^Acupuncture w/o Stimul,Ea Addl 15 Min
+339 ;;^UTILITY(U,$J,358.3,31058,0)
+340 ;;=97813^^87^1246^3^^^^1
+341 ;;^UTILITY(U,$J,358.3,31058,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,31058,1,2,0)
+344 ;;=2^97813
+345 ;;^UTILITY(U,$J,358.3,31058,1,3,0)
+346 ;;=3^Acupuncture w/ Stimul 15 Min
+347 ;;^UTILITY(U,$J,358.3,31059,0)
+348 ;;=97814^^87^1246^4^^^^1
+349 ;;^UTILITY(U,$J,358.3,31059,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,31059,1,2,0)
+352 ;;=2^97814
+353 ;;^UTILITY(U,$J,358.3,31059,1,3,0)
+354 ;;=3^Acupuncture w/ Stimul,Ea Addl 15 Min
+355 ;;^UTILITY(U,$J,358.3,31060,0)
+356 ;;=11719^^87^1247^3^^^^1
+357 ;;^UTILITY(U,$J,358.3,31060,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,31060,1,2,0)
+360 ;;=2^11719
+361 ;;^UTILITY(U,$J,358.3,31060,1,3,0)
+362 ;;=3^Trim Nondystrophic Nails,Any Number
+363 ;;^UTILITY(U,$J,358.3,31061,0)
+364 ;;=11720^^87^1247^1^^^^1
+365 ;;^UTILITY(U,$J,358.3,31061,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,31061,1,2,0)
+368 ;;=2^11720
+369 ;;^UTILITY(U,$J,358.3,31061,1,3,0)
+370 ;;=3^Debride Nail(s);1-5
+371 ;;^UTILITY(U,$J,358.3,31062,0)
+372 ;;=11721^^87^1247^2^^^^1
+373 ;;^UTILITY(U,$J,358.3,31062,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,31062,1,2,0)
+376 ;;=2^11721
+377 ;;^UTILITY(U,$J,358.3,31062,1,3,0)
+378 ;;=3^Debride Nails;6 or more
+379 ;;^UTILITY(U,$J,358.3,31063,0)
+380 ;;=J0475^^87^1248^5^^^^1
+381 ;;^UTILITY(U,$J,358.3,31063,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,31063,1,2,0)
+384 ;;=2^J0475
+385 ;;^UTILITY(U,$J,358.3,31063,1,3,0)
+386 ;;=3^Baclofen 10mg
+387 ;;^UTILITY(U,$J,358.3,31064,0)
+388 ;;=J0476^^87^1248^6^^^^1
+389 ;;^UTILITY(U,$J,358.3,31064,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,31064,1,2,0)
+392 ;;=2^J0476
+393 ;;^UTILITY(U,$J,358.3,31064,1,3,0)
+394 ;;=3^Baclofen Intrathecal Trial 50mcg
+395 ;;^UTILITY(U,$J,358.3,31065,0)
+396 ;;=62322^^87^1248^7^^^^1
+397 ;;^UTILITY(U,$J,358.3,31065,1,0)
+398 ;;=^358.31IA^3^2
+399 ;;^UTILITY(U,$J,358.3,31065,1,2,0)
+400 ;;=2^62322
+401 ;;^UTILITY(U,$J,358.3,31065,1,3,0)
+402 ;;=3^Njx Interlaminar Lmbr/Sac
+403 ;;^UTILITY(U,$J,358.3,31066,0)
+404 ;;=62367^^87^1248^1^^^^1
+405 ;;^UTILITY(U,$J,358.3,31066,1,0)
+406 ;;=^358.31IA^3^2
+407 ;;^UTILITY(U,$J,358.3,31066,1,2,0)
+408 ;;=2^62367
+409 ;;^UTILITY(U,$J,358.3,31066,1,3,0)
+410 ;;=3^Analyze Spine Infus Pump
+411 ;;^UTILITY(U,$J,358.3,31067,0)
+412 ;;=62368^^87^1248^3^^^^1
+413 ;;^UTILITY(U,$J,358.3,31067,1,0)
+414 ;;=^358.31IA^3^2
+415 ;;^UTILITY(U,$J,358.3,31067,1,2,0)
+416 ;;=2^62368
+417 ;;^UTILITY(U,$J,358.3,31067,1,3,0)
+418 ;;=3^Analyze Spine Infus Pump w/ Reprog
+419 ;;^UTILITY(U,$J,358.3,31068,0)
+420 ;;=62369^^87^1248^4^^^^1
+421 ;;^UTILITY(U,$J,358.3,31068,1,0)
+422 ;;=^358.31IA^3^2
+423 ;;^UTILITY(U,$J,358.3,31068,1,2,0)
+424 ;;=2^62369
+425 ;;^UTILITY(U,$J,358.3,31068,1,3,0)
+426 ;;=3^Analyze Spine Infus Pump w/ Reprog/Fill
+427 ;;^UTILITY(U,$J,358.3,31069,0)
+428 ;;=62370^^87^1248^2^^^^1
+429 ;;^UTILITY(U,$J,358.3,31069,1,0)
+430 ;;=^358.31IA^3^2
+431 ;;^UTILITY(U,$J,358.3,31069,1,2,0)
+432 ;;=2^62370
+433 ;;^UTILITY(U,$J,358.3,31069,1,3,0)
+434 ;;=3^Analyze Spine Infus Pump w/ Mdreprg/Fill
+435 ;;^UTILITY(U,$J,358.3,31070,0)
+436 ;;=97750^^87^1248^8^^^^1
+437 ;;^UTILITY(U,$J,358.3,31070,1,0)
+438 ;;=^358.31IA^3^2
+439 ;;^UTILITY(U,$J,358.3,31070,1,2,0)
+440 ;;=2^97750
+441 ;;^UTILITY(U,$J,358.3,31070,1,3,0)
+442 ;;=3^Physical Performance Test
+443 ;;^UTILITY(U,$J,358.3,31071,0)
+444 ;;=95990^^87^1248^9^^^^1
+445 ;;^UTILITY(U,$J,358.3,31071,1,0)
+446 ;;=^358.31IA^3^2
+447 ;;^UTILITY(U,$J,358.3,31071,1,2,0)
+448 ;;=2^95990
+449 ;;^UTILITY(U,$J,358.3,31071,1,3,0)
+450 ;;=3^Spine/Brain Pump Refll/Maint
+451 ;;^UTILITY(U,$J,358.3,31072,0)
+452 ;;=99202^^88^1249^1
+453 ;;^UTILITY(U,$J,358.3,31072,1,0)
+454 ;;=^358.31IA^2^2
+455 ;;^UTILITY(U,$J,358.3,31072,1,1,0)
+456 ;;=1^SF MDM or 15-29 mins
+457 ;;^UTILITY(U,$J,358.3,31072,1,2,0)
+458 ;;=2^99202
+459 ;;^UTILITY(U,$J,358.3,31073,0)
+460 ;;=99203^^88^1249^2
+461 ;;^UTILITY(U,$J,358.3,31073,1,0)
+462 ;;=^358.31IA^2^2
+463 ;;^UTILITY(U,$J,358.3,31073,1,1,0)
+464 ;;=1^Low MDM or 30-44 mins
+465 ;;^UTILITY(U,$J,358.3,31073,1,2,0)
+466 ;;=2^99203
+467 ;;^UTILITY(U,$J,358.3,31074,0)
+468 ;;=99204^^88^1249^3
+469 ;;^UTILITY(U,$J,358.3,31074,1,0)
+470 ;;=^358.31IA^2^2
+471 ;;^UTILITY(U,$J,358.3,31074,1,1,0)
+472 ;;=1^Moderate MDM or 45-59 mins
+473 ;;^UTILITY(U,$J,358.3,31074,1,2,0)
+474 ;;=2^99204
+475 ;;^UTILITY(U,$J,358.3,31075,0)
+476 ;;=99205^^88^1249^4
+477 ;;^UTILITY(U,$J,358.3,31075,1,0)
+478 ;;=^358.31IA^2^2
+479 ;;^UTILITY(U,$J,358.3,31075,1,1,0)
+480 ;;=1^High MDM or 60-74 mins
+481 ;;^UTILITY(U,$J,358.3,31075,1,2,0)
+482 ;;=2^99205
+483 ;;^UTILITY(U,$J,358.3,31076,0)
+484 ;;=99211^^88^1250^1
+485 ;;^UTILITY(U,$J,358.3,31076,1,0)
+486 ;;=^358.31IA^2^2
+487 ;;^UTILITY(U,$J,358.3,31076,1,1,0)
+488 ;;=1^Brief Visit-MDM None/Minimal
+489 ;;^UTILITY(U,$J,358.3,31076,1,2,0)
+490 ;;=2^99211
+491 ;;^UTILITY(U,$J,358.3,31077,0)
+492 ;;=99212^^88^1250^2
+493 ;;^UTILITY(U,$J,358.3,31077,1,0)
+494 ;;=^358.31IA^2^2
+495 ;;^UTILITY(U,$J,358.3,31077,1,1,0)
+496 ;;=1^SF MDM or 10-19 mins
+497 ;;^UTILITY(U,$J,358.3,31077,1,2,0)
+498 ;;=2^99212
+499 ;;^UTILITY(U,$J,358.3,31078,0)
+500 ;;=99213^^88^1250^3
+501 ;;^UTILITY(U,$J,358.3,31078,1,0)
+502 ;;=^358.31IA^2^2
+503 ;;^UTILITY(U,$J,358.3,31078,1,1,0)
+504 ;;=1^Low MDM or 20-29 mins
+505 ;;^UTILITY(U,$J,358.3,31078,1,2,0)
+506 ;;=2^99213
+507 ;;^UTILITY(U,$J,358.3,31079,0)
+508 ;;=99214^^88^1250^4
+509 ;;^UTILITY(U,$J,358.3,31079,1,0)
+510 ;;=^358.31IA^2^2
+511 ;;^UTILITY(U,$J,358.3,31079,1,1,0)
+512 ;;=1^Moderate MDM or 30-39 mins
+513 ;;^UTILITY(U,$J,358.3,31079,1,2,0)
+514 ;;=2^99214
+515 ;;^UTILITY(U,$J,358.3,31080,0)
+516 ;;=99215^^88^1250^5
+517 ;;^UTILITY(U,$J,358.3,31080,1,0)
+518 ;;=^358.31IA^2^2
+519 ;;^UTILITY(U,$J,358.3,31080,1,1,0)
+520 ;;=1^High MDM or 40-54 mins
+521 ;;^UTILITY(U,$J,358.3,31080,1,2,0)
+522 ;;=2^99215
+523 ;;^UTILITY(U,$J,358.3,31081,0)
+524 ;;=99241^^88^1251^1
+525 ;;^UTILITY(U,$J,358.3,31081,1,0)
+526 ;;=^358.31IA^2^2
+527 ;;^UTILITY(U,$J,358.3,31081,1,1,0)
+528 ;;=1^Problem Focused Hx/PE & SF MDM
+529 ;;^UTILITY(U,$J,358.3,31081,1,2,0)
+530 ;;=2^99241
+531 ;;^UTILITY(U,$J,358.3,31082,0)
+532 ;;=99242^^88^1251^2
+533 ;;^UTILITY(U,$J,358.3,31082,1,0)
+534 ;;=^358.31IA^2^2
+535 ;;^UTILITY(U,$J,358.3,31082,1,1,0)
+536 ;;=1^Exp Problem Focused Hx/PE & SF MDM
+537 ;;^UTILITY(U,$J,358.3,31082,1,2,0)
+538 ;;=2^99242
+539 ;;^UTILITY(U,$J,358.3,31083,0)
+540 ;;=99243^^88^1251^3
+541 ;;^UTILITY(U,$J,358.3,31083,1,0)
+542 ;;=^358.31IA^2^2
+543 ;;^UTILITY(U,$J,358.3,31083,1,1,0)
+544 ;;=1^Detailed Hx/PE & Low Complex MDM
+545 ;;^UTILITY(U,$J,358.3,31083,1,2,0)
+546 ;;=2^99243
+547 ;;^UTILITY(U,$J,358.3,31084,0)
+548 ;;=99244^^88^1251^4
+549 ;;^UTILITY(U,$J,358.3,31084,1,0)
+550 ;;=^358.31IA^2^2
+551 ;;^UTILITY(U,$J,358.3,31084,1,1,0)
+552 ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
+553 ;;^UTILITY(U,$J,358.3,31084,1,2,0)
+554 ;;=2^99244
+555 ;;^UTILITY(U,$J,358.3,31085,0)
+556 ;;=99245^^88^1251^5
+557 ;;^UTILITY(U,$J,358.3,31085,1,0)
+558 ;;=^358.31IA^2^2
+559 ;;^UTILITY(U,$J,358.3,31085,1,1,0)
+560 ;;=1^Comprehensive Hx/PE & High Complex MDM
+561 ;;^UTILITY(U,$J,358.3,31085,1,2,0)
+562 ;;=2^99245
+563 ;;^UTILITY(U,$J,358.3,31086,0)
+564 ;;=99347^^88^1252^1
+565 ;;^UTILITY(U,$J,358.3,31086,1,0)
+566 ;;=^358.31IA^2^2
+567 ;;^UTILITY(U,$J,358.3,31086,1,1,0)
+568 ;;=1^Problem Focused Hx/PE & SF MDM
+569 ;;^UTILITY(U,$J,358.3,31086,1,2,0)
+570 ;;=2^99347
+571 ;;^UTILITY(U,$J,358.3,31087,0)
+572 ;;=99348^^88^1252^2
+573 ;;^UTILITY(U,$J,358.3,31087,1,0)
+574 ;;=^358.31IA^2^2
+575 ;;^UTILITY(U,$J,358.3,31087,1,1,0)
+576 ;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
+577 ;;^UTILITY(U,$J,358.3,31087,1,2,0)
+578 ;;=2^99348
+579 ;;^UTILITY(U,$J,358.3,31088,0)
+580 ;;=99349^^88^1252^3
+581 ;;^UTILITY(U,$J,358.3,31088,1,0)
+582 ;;=^358.31IA^2^2
+583 ;;^UTILITY(U,$J,358.3,31088,1,1,0)
+584 ;;=1^Detailed Hx/PE & Moderate Complex MDM
+585 ;;^UTILITY(U,$J,358.3,31088,1,2,0)
+586 ;;=2^99349
+587 ;;^UTILITY(U,$J,358.3,31089,0)
+588 ;;=99350^^88^1252^4
+589 ;;^UTILITY(U,$J,358.3,31089,1,0)
+590 ;;=^358.31IA^2^2
+591 ;;^UTILITY(U,$J,358.3,31089,1,1,0)
+592 ;;=1^Comprehensive Hx/PE & Mod or High Complex MDM
+593 ;;^UTILITY(U,$J,358.3,31089,1,2,0)
+594 ;;=2^99350
+595 ;;^UTILITY(U,$J,358.3,31090,0)
+596 ;;=99341^^88^1253^1
+597 ;;^UTILITY(U,$J,358.3,31090,1,0)
+598 ;;=^358.31IA^2^2
+599 ;;^UTILITY(U,$J,358.3,31090,1,1,0)
+600 ;;=1^Problem Focused Hx/PE & SF MDM
+601 ;;^UTILITY(U,$J,358.3,31090,1,2,0)
+602 ;;=2^99341
+603 ;;^UTILITY(U,$J,358.3,31091,0)
+604 ;;=99342^^88^1253^2
+605 ;;^UTILITY(U,$J,358.3,31091,1,0)
+606 ;;=^358.31IA^2^2
+607 ;;^UTILITY(U,$J,358.3,31091,1,1,0)
+608 ;;=1^Exp Problem Focused Hx/PE & Low Complex MDM
+609 ;;^UTILITY(U,$J,358.3,31091,1,2,0)
+610 ;;=2^99342
+611 ;;^UTILITY(U,$J,358.3,31092,0)
+612 ;;=99343^^88^1253^3
+613 ;;^UTILITY(U,$J,358.3,31092,1,0)
+614 ;;=^358.31IA^2^2
+615 ;;^UTILITY(U,$J,358.3,31092,1,1,0)
+616 ;;=1^Detailed Hx/PE & Moderate Complex MDM
+617 ;;^UTILITY(U,$J,358.3,31092,1,2,0)
+618 ;;=2^99343
+619 ;;^UTILITY(U,$J,358.3,31093,0)
+620 ;;=99344^^88^1253^4
+621 ;;^UTILITY(U,$J,358.3,31093,1,0)
+622 ;;=^358.31IA^2^2
+623 ;;^UTILITY(U,$J,358.3,31093,1,1,0)
+624 ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
+625 ;;^UTILITY(U,$J,358.3,31093,1,2,0)
+626 ;;=2^99344
+627 ;;^UTILITY(U,$J,358.3,31094,0)
+628 ;;=99345^^88^1253^5
+629 ;;^UTILITY(U,$J,358.3,31094,1,0)
+630 ;;=^358.31IA^2^2
+631 ;;^UTILITY(U,$J,358.3,31094,1,1,0)
+632 ;;=1^Comprehensive Hx/PE & High Complex MDM
+633 ;;^UTILITY(U,$J,358.3,31094,1,2,0)
+634 ;;=2^99345
+635 ;;^UTILITY(U,$J,358.3,31095,0)
+636 ;;=I20.9^^89^1254^3
+637 ;;^UTILITY(U,$J,358.3,31095,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,31095,1,3,0)
+640 ;;=3^Angina Pectoris,Unspec
+641 ;;^UTILITY(U,$J,358.3,31095,1,4,0)
+642 ;;=4^I20.9
+643 ;;^UTILITY(U,$J,358.3,31095,2)
+644 ;;=^5007079
+645 ;;^UTILITY(U,$J,358.3,31096,0)
+646 ;;=I25.10^^89^1254^14
+647 ;;^UTILITY(U,$J,358.3,31096,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,31096,1,3,0)
+650 ;;=3^CAD w/o Angina
+651 ;;^UTILITY(U,$J,358.3,31096,1,4,0)
+652 ;;=4^I25.10
+653 ;;^UTILITY(U,$J,358.3,31096,2)
+654 ;;=^5007107
+655 ;;^UTILITY(U,$J,358.3,31097,0)
+656 ;;=I48.91^^89^1254^9
+657 ;;^UTILITY(U,$J,358.3,31097,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,31097,1,3,0)
+660 ;;=3^Atrial Fibrillation,Unspec