IBDEI09V ; ; 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,24129,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24129,1,2,0)
;;=2^76499
;;^UTILITY(U,$J,358.3,24129,1,3,0)
;;=3^Radiographic Procedure
;;^UTILITY(U,$J,358.3,24130,0)
;;=31633^^72^956^9^^^^1
;;^UTILITY(U,$J,358.3,24130,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24130,1,2,0)
;;=2^31633
;;^UTILITY(U,$J,358.3,24130,1,3,0)
;;=3^Bronch Needle Bx,Ea Addl Bx
;;^UTILITY(U,$J,358.3,24131,0)
;;=31615^^72^956^12^^^^1
;;^UTILITY(U,$J,358.3,24131,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24131,1,2,0)
;;=2^31615
;;^UTILITY(U,$J,358.3,24131,1,3,0)
;;=3^Bronch thru Est Trach
;;^UTILITY(U,$J,358.3,24132,0)
;;=31645^^72^956^21^^^^1
;;^UTILITY(U,$J,358.3,24132,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24132,1,2,0)
;;=2^31645
;;^UTILITY(U,$J,358.3,24132,1,3,0)
;;=3^Bronch w/ Therap Aspiration,Init
;;^UTILITY(U,$J,358.3,24133,0)
;;=31646^^72^956^22^^^^1
;;^UTILITY(U,$J,358.3,24133,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24133,1,2,0)
;;=2^31646
;;^UTILITY(U,$J,358.3,24133,1,3,0)
;;=3^Bronch w/ Therap Aspiration,Subseq
;;^UTILITY(U,$J,358.3,24134,0)
;;=31231^^72^956^28^^^^1
;;^UTILITY(U,$J,358.3,24134,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24134,1,2,0)
;;=2^31231
;;^UTILITY(U,$J,358.3,24134,1,3,0)
;;=3^Nasal Endoscopy,Diag,Uni/Bilateral
;;^UTILITY(U,$J,358.3,24135,0)
;;=31627^^72^956^15^^^^1
;;^UTILITY(U,$J,358.3,24135,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24135,1,2,0)
;;=2^31627
;;^UTILITY(U,$J,358.3,24135,1,3,0)
;;=3^Bronch w/ Computer Assisted-Image,Add-On
;;^UTILITY(U,$J,358.3,24136,0)
;;=31652^^72^956^17^^^^1
;;^UTILITY(U,$J,358.3,24136,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24136,1,2,0)
;;=2^31652
;;^UTILITY(U,$J,358.3,24136,1,3,0)
;;=3^Bronch w/ EBUS Trntch/Bronch Sample 1-2 Med/Hilar LN
;;^UTILITY(U,$J,358.3,24137,0)
;;=31653^^72^956^18^^^^1
;;^UTILITY(U,$J,358.3,24137,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24137,1,2,0)
;;=2^31653
;;^UTILITY(U,$J,358.3,24137,1,3,0)
;;=3^Bronch w/ EBUS Trntch/Bronch Sample=>3 Med/Hil LN
;;^UTILITY(U,$J,358.3,24138,0)
;;=31654^^72^956^16^^^^1
;;^UTILITY(U,$J,358.3,24138,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24138,1,2,0)
;;=2^31654
;;^UTILITY(U,$J,358.3,24138,1,3,0)
;;=3^Bronch w/ EBUS During Bronch,Add-On
;;^UTILITY(U,$J,358.3,24139,0)
;;=93015^^72^957^3^^^^1
;;^UTILITY(U,$J,358.3,24139,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24139,1,2,0)
;;=2^93015
;;^UTILITY(U,$J,358.3,24139,1,3,0)
;;=3^Cardiovascular Stress Test,Complete
;;^UTILITY(U,$J,358.3,24140,0)
;;=93017^^72^957^4^^^^1
;;^UTILITY(U,$J,358.3,24140,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24140,1,2,0)
;;=2^93017
;;^UTILITY(U,$J,358.3,24140,1,3,0)
;;=3^Cardiovascular Stress Test,Tracing Only
;;^UTILITY(U,$J,358.3,24141,0)
;;=94621^^72^957^1^^^^1
;;^UTILITY(U,$J,358.3,24141,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24141,1,2,0)
;;=2^94621
;;^UTILITY(U,$J,358.3,24141,1,3,0)
;;=3^Cardiopulmonary Exercise Tstng,Incl Measurement
;;^UTILITY(U,$J,358.3,24142,0)
;;=93016^^72^957^2^^^^1
;;^UTILITY(U,$J,358.3,24142,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24142,1,2,0)
;;=2^93016
;;^UTILITY(U,$J,358.3,24142,1,3,0)
;;=3^Cardiovascular Stress Test Only w/o Rpt
;;^UTILITY(U,$J,358.3,24143,0)
;;=94618^^72^957^5^^^^1
;;^UTILITY(U,$J,358.3,24143,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24143,1,2,0)
;;=2^94618
;;^UTILITY(U,$J,358.3,24143,1,3,0)
;;=3^Pulmonary Stess Test
;;^UTILITY(U,$J,358.3,24144,0)
;;=90471^^72^958^1^^^^1
;;^UTILITY(U,$J,358.3,24144,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24144,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,24144,1,3,0)
;;=3^Immunization Admin,1st Vaccine
;;^UTILITY(U,$J,358.3,24145,0)
;;=90472^^72^958^2^^^^1
;;^UTILITY(U,$J,358.3,24145,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24145,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,24145,1,3,0)
;;=3^Immunization Admin,Ea Addl Vaccine
;;^UTILITY(U,$J,358.3,24146,0)
;;=90673^^72^959^1^^^^1
;;^UTILITY(U,$J,358.3,24146,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24146,1,2,0)
;;=2^90673
;;^UTILITY(U,$J,358.3,24146,1,3,0)
;;=3^Flu Vaccine,Trivalent RIV3,DNA,HA,Pres ABX Free
;;^UTILITY(U,$J,358.3,24147,0)
;;=90656^^72^959^2^^^^1
;;^UTILITY(U,$J,358.3,24147,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24147,1,2,0)
;;=2^90656
;;^UTILITY(U,$J,358.3,24147,1,3,0)
;;=3^Flu Vaccine,Trivalent,Split Virus,0.5ml,Prsv Free
;;^UTILITY(U,$J,358.3,24148,0)
;;=90658^^72^959^3^^^^1
;;^UTILITY(U,$J,358.3,24148,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24148,1,2,0)
;;=2^90658
;;^UTILITY(U,$J,358.3,24148,1,3,0)
;;=3^Flu Vaccine,Trivalent,Split Virus,0.5ml
;;^UTILITY(U,$J,358.3,24149,0)
;;=90662^^72^959^4^^^^1
;;^UTILITY(U,$J,358.3,24149,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24149,1,2,0)
;;=2^90662
;;^UTILITY(U,$J,358.3,24149,1,3,0)
;;=3^Flu Virus,Split Virus,High Dose,Prsv Free
;;^UTILITY(U,$J,358.3,24150,0)
;;=90732^^72^959^7^^^^1
;;^UTILITY(U,$J,358.3,24150,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24150,1,2,0)
;;=2^90732
;;^UTILITY(U,$J,358.3,24150,1,3,0)
;;=3^Pneumovax 23-Valent (PPSV23) SQ/IM
;;^UTILITY(U,$J,358.3,24151,0)
;;=90671^^72^959^5^^^^1
;;^UTILITY(U,$J,358.3,24151,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24151,1,2,0)
;;=2^90671
;;^UTILITY(U,$J,358.3,24151,1,3,0)
;;=3^Pneumococcal Conjugate,15 Valent (PCV15)
;;^UTILITY(U,$J,358.3,24152,0)
;;=90677^^72^959^6^^^^1
;;^UTILITY(U,$J,358.3,24152,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24152,1,2,0)
;;=2^90677
;;^UTILITY(U,$J,358.3,24152,1,3,0)
;;=3^Pneumococcal Conjugate,20 Valent (PCV20)
;;^UTILITY(U,$J,358.3,24153,0)
;;=31610^^72^960^1^^^^1
;;^UTILITY(U,$J,358.3,24153,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24153,1,2,0)
;;=2^31610
;;^UTILITY(U,$J,358.3,24153,1,3,0)
;;=3^Trach Fenestration w/ Skin Flaps
;;^UTILITY(U,$J,358.3,24154,0)
;;=31605^^72^960^3^^^^1
;;^UTILITY(U,$J,358.3,24154,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24154,1,2,0)
;;=2^31605
;;^UTILITY(U,$J,358.3,24154,1,3,0)
;;=3^Tracheostomy,Emerg,Cricothyroid
;;^UTILITY(U,$J,358.3,24155,0)
;;=31603^^72^960^2^^^^1
;;^UTILITY(U,$J,358.3,24155,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24155,1,2,0)
;;=2^31603
;;^UTILITY(U,$J,358.3,24155,1,3,0)
;;=3^Tracheostomy Emerg,Transtracheal
;;^UTILITY(U,$J,358.3,24156,0)
;;=31600^^72^960^4^^^^1
;;^UTILITY(U,$J,358.3,24156,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24156,1,2,0)
;;=2^31600
;;^UTILITY(U,$J,358.3,24156,1,3,0)
;;=3^Tracheostomy,Planned
;;^UTILITY(U,$J,358.3,24157,0)
;;=99358^^72^961^1^^^^1
;;^UTILITY(U,$J,358.3,24157,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24157,1,2,0)
;;=2^99358
;;^UTILITY(U,$J,358.3,24157,1,3,0)
;;=3^Prolonged Svc,Before/After Visit,1st hr
;;^UTILITY(U,$J,358.3,24158,0)
;;=99359^^72^961^2^^^^1
;;^UTILITY(U,$J,358.3,24158,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24158,1,2,0)
;;=2^99359
;;^UTILITY(U,$J,358.3,24158,1,3,0)
;;=3^Prolonged Svc,Before/After Visit,Ea Add 30min
;;^UTILITY(U,$J,358.3,24159,0)
;;=99417^^72^961^3^^^^1
;;^UTILITY(U,$J,358.3,24159,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24159,1,2,0)
;;=2^99417
;;^UTILITY(U,$J,358.3,24159,1,3,0)
;;=3^Prolonged Svc,Ea 15min;Only with 99205 or 99215
;;^UTILITY(U,$J,358.3,24160,0)
;;=31500^^72^962^5^^^^1
;;^UTILITY(U,$J,358.3,24160,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24160,1,2,0)
;;=2^31500
;;^UTILITY(U,$J,358.3,24160,1,3,0)
;;=3^Intub,Endotrach,Emergency Proc
;;^UTILITY(U,$J,358.3,24161,0)
;;=92950^^72^962^4^^^^1
;;^UTILITY(U,$J,358.3,24161,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24161,1,2,0)
;;=2^92950
;;^UTILITY(U,$J,358.3,24161,1,3,0)
;;=3^Heart/Lung Resusc/CPR
;;^UTILITY(U,$J,358.3,24162,0)
;;=99078^^72^962^3^^^^1
;;^UTILITY(U,$J,358.3,24162,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24162,1,2,0)
;;=2^99078
;;^UTILITY(U,$J,358.3,24162,1,3,0)
;;=3^Group Education by Physician
;;^UTILITY(U,$J,358.3,24163,0)
;;=S9453^^72^962^12^^^^1
;;^UTILITY(U,$J,358.3,24163,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24163,1,2,0)
;;=2^S9453
;;^UTILITY(U,$J,358.3,24163,1,3,0)
;;=3^Smoking Cessation Class
;;^UTILITY(U,$J,358.3,24164,0)
;;=36800^^72^962^2^^^^1
;;^UTILITY(U,$J,358.3,24164,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24164,1,2,0)
;;=2^36800
;;^UTILITY(U,$J,358.3,24164,1,3,0)
;;=3^Cannula Insert,Dialysis,Vein to Vein
;;^UTILITY(U,$J,358.3,24165,0)
;;=36810^^72^962^1^^^^1
;;^UTILITY(U,$J,358.3,24165,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24165,1,2,0)
;;=2^36810
;;^UTILITY(U,$J,358.3,24165,1,3,0)
;;=3^Cannula Insert,Dialysis,AV External
;;^UTILITY(U,$J,358.3,24166,0)
;;=33210^^72^962^9^^^^1
;;^UTILITY(U,$J,358.3,24166,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24166,1,2,0)
;;=2^33210
;;^UTILITY(U,$J,358.3,24166,1,3,0)
;;=3^Pacemaker,Temp,TVS,Sngl Chm,Elec/Cath
;;^UTILITY(U,$J,358.3,24167,0)
;;=33211^^72^962^8^^^^1
;;^UTILITY(U,$J,358.3,24167,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24167,1,2,0)
;;=2^33211
;;^UTILITY(U,$J,358.3,24167,1,3,0)
;;=3^Pacemaker,Temp,TVS,Dual Chm,Elec/Cath
;;^UTILITY(U,$J,358.3,24168,0)
;;=49082^^72^962^11^^^^1
;;^UTILITY(U,$J,358.3,24168,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24168,1,2,0)
;;=2^49082
;;^UTILITY(U,$J,358.3,24168,1,3,0)
;;=3^Paracentesis,Abd,Dx/Tx w/o Imaging
;;^UTILITY(U,$J,358.3,24169,0)
;;=49083^^72^962^10^^^^1
;;^UTILITY(U,$J,358.3,24169,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24169,1,2,0)
;;=2^49083
;;^UTILITY(U,$J,358.3,24169,1,3,0)
;;=3^Paracentesis,Abd,Dx/Tx w/ Imaging
;;^UTILITY(U,$J,358.3,24170,0)
;;=62270^^72^962^6^^^^1
;;^UTILITY(U,$J,358.3,24170,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24170,1,2,0)
;;=2^62270
;;^UTILITY(U,$J,358.3,24170,1,3,0)
;;=3^Lumbar Puncture,Diagnostic
;;^UTILITY(U,$J,358.3,24171,0)
;;=62272^^72^962^7^^^^1
;;^UTILITY(U,$J,358.3,24171,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24171,1,2,0)
;;=2^62272
;;^UTILITY(U,$J,358.3,24171,1,3,0)
;;=3^Lumbar Puncture,Therapeutic
;;^UTILITY(U,$J,358.3,24172,0)
;;=99202^^73^963^1
;;^UTILITY(U,$J,358.3,24172,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24172,1,1,0)
;;=1^SF MDM or 15-29 mins
;;^UTILITY(U,$J,358.3,24172,1,2,0)
;;=2^99202
;;^UTILITY(U,$J,358.3,24173,0)
;;=99203^^73^963^2
;;^UTILITY(U,$J,358.3,24173,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24173,1,1,0)
;;=1^Low MDM or 30-44 mins
;;^UTILITY(U,$J,358.3,24173,1,2,0)
;;=2^99203
;;^UTILITY(U,$J,358.3,24174,0)
;;=99204^^73^963^3
;;^UTILITY(U,$J,358.3,24174,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24174,1,1,0)
;;=1^Moderate MDM or 45-59 mins
;;^UTILITY(U,$J,358.3,24174,1,2,0)
;;=2^99204
;;^UTILITY(U,$J,358.3,24175,0)
;;=99205^^73^963^4
;;^UTILITY(U,$J,358.3,24175,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24175,1,1,0)
;;=1^High MDM or 60-74 mins
;;^UTILITY(U,$J,358.3,24175,1,2,0)
;;=2^99205
;;^UTILITY(U,$J,358.3,24176,0)
;;=99211^^73^964^1
;;^UTILITY(U,$J,358.3,24176,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24176,1,1,0)
;;=1^Brief Visit-MDM None/Minimal
;;^UTILITY(U,$J,358.3,24176,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,24177,0)
;;=99212^^73^964^2
;;^UTILITY(U,$J,358.3,24177,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24177,1,1,0)
;;=1^SF MDM or 10-19 mins
;;^UTILITY(U,$J,358.3,24177,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,24178,0)
;;=99213^^73^964^3
;;^UTILITY(U,$J,358.3,24178,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24178,1,1,0)
;;=1^Low MDM or 20-29 mins
;;^UTILITY(U,$J,358.3,24178,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,24179,0)
;;=99214^^73^964^4
;;^UTILITY(U,$J,358.3,24179,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24179,1,1,0)
;;=1^Moderate MDM or 30-39 mins
;;^UTILITY(U,$J,358.3,24179,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,24180,0)
;;=99215^^73^964^5
;;^UTILITY(U,$J,358.3,24180,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24180,1,1,0)
;;=1^High MDM or 40-54 mins
;;^UTILITY(U,$J,358.3,24180,1,2,0)
;;=2^99215
;;^UTILITY(U,$J,358.3,24181,0)
;;=99241^^73^965^1
;;^UTILITY(U,$J,358.3,24181,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24181,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,24181,1,2,0)
;;=2^99241
;;^UTILITY(U,$J,358.3,24182,0)
;;=99242^^73^965^2
;;^UTILITY(U,$J,358.3,24182,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24182,1,1,0)
;;=1^Exp Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,24182,1,2,0)
;;=2^99242
;;^UTILITY(U,$J,358.3,24183,0)
;;=99243^^73^965^3
;;^UTILITY(U,$J,358.3,24183,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24183,1,1,0)
;;=1^Detailed Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,24183,1,2,0)
;;=2^99243
;;^UTILITY(U,$J,358.3,24184,0)
;;=99244^^73^965^4
;;^UTILITY(U,$J,358.3,24184,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24184,1,1,0)
;;=1^Comprehensive Hx/PE & Moderate Complex MDM
;;^UTILITY(U,$J,358.3,24184,1,2,0)
;;=2^99244
;;^UTILITY(U,$J,358.3,24185,0)
;;=99245^^73^965^5
;;^UTILITY(U,$J,358.3,24185,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24185,1,1,0)
;;=1^Comprehensive Hx/PE & High Complex MDM
;;^UTILITY(U,$J,358.3,24185,1,2,0)
;;=2^99245
;;^UTILITY(U,$J,358.3,24186,0)
;;=99024^^73^966^1
;;^UTILITY(U,$J,358.3,24186,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,24186,1,1,0)
;;=1^Post-Op Follow-Up Care
;;^UTILITY(U,$J,358.3,24186,1,2,0)
;;=2^99024
;;^UTILITY(U,$J,358.3,24187,0)
;;=R91.8^^74^967^2
;;^UTILITY(U,$J,358.3,24187,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24187,1,3,0)
;;=3^Abnormal Finding of Lung Field
;;^UTILITY(U,$J,358.3,24187,1,4,0)
;;=4^R91.8
;;^UTILITY(U,$J,358.3,24187,2)
;;=^5019708
;;^UTILITY(U,$J,358.3,24188,0)
;;=R91.1^^74^967^102
;;^UTILITY(U,$J,358.3,24188,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24188,1,3,0)
;;=3^Pulmonary Nodule,Solitary
;;^UTILITY(U,$J,358.3,24188,1,4,0)
;;=4^R91.1
;;^UTILITY(U,$J,358.3,24188,2)
;;=^5019707
;;^UTILITY(U,$J,358.3,24189,0)
;;=J85.2^^74^967^3
;;^UTILITY(U,$J,358.3,24189,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24189,1,3,0)
;;=3^Abscess of Lung w/o Pneumonia
;;^UTILITY(U,$J,358.3,24189,1,4,0)
;;=4^J85.2
;;^UTILITY(U,$J,358.3,24189,2)
;;=^5008307
;;^UTILITY(U,$J,358.3,24190,0)
;;=J02.9^^74^967^77
;;^UTILITY(U,$J,358.3,24190,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24190,1,3,0)
;;=3^Pharyngitis,Acute,Unspec
;;^UTILITY(U,$J,358.3,24190,1,4,0)
;;=4^J02.9
;;^UTILITY(U,$J,358.3,24190,2)
;;=^5008130
;;^UTILITY(U,$J,358.3,24191,0)
;;=B20.^^74^967^1
;;^UTILITY(U,$J,358.3,24191,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24191,1,3,0)
;;=3^AIDS (HIV Disease, HIV Stage 3, ARC)
;;^UTILITY(U,$J,358.3,24191,1,4,0)
;;=4^B20.
;;^UTILITY(U,$J,358.3,24191,2)
;;=^5000555
;;^UTILITY(U,$J,358.3,24192,0)
;;=J61.^^74^967^81
;;^UTILITY(U,$J,358.3,24192,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24192,1,3,0)
;;=3^Pneumoconiosis d/t Asbestos/Other Mineral Fibers
;;^UTILITY(U,$J,358.3,24192,1,4,0)
;;=4^J61.
;;^UTILITY(U,$J,358.3,24192,2)
;;=^5008262
;;^UTILITY(U,$J,358.3,24193,0)
;;=B44.9^^74^967^14
;;^UTILITY(U,$J,358.3,24193,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24193,1,3,0)
;;=3^Aspergillosis,Unspec
;;^UTILITY(U,$J,358.3,24193,1,4,0)
;;=4^B44.9
;;^UTILITY(U,$J,358.3,24193,2)
;;=^5000668
;;^UTILITY(U,$J,358.3,24194,0)
;;=B44.0^^74^967^13
;;^UTILITY(U,$J,358.3,24194,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24194,1,3,0)
;;=3^Aspergillosis,Invasive Pulmonary
;;^UTILITY(U,$J,358.3,24194,1,4,0)
;;=4^B44.0
;;^UTILITY(U,$J,358.3,24194,2)
;;=^5000663
;;^UTILITY(U,$J,358.3,24195,0)
;;=J44.9^^74^967^28
;;^UTILITY(U,$J,358.3,24195,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24195,1,3,0)
;;=3^COPD,Unspec
;;^UTILITY(U,$J,358.3,24195,1,4,0)
;;=4^J44.9
;;^UTILITY(U,$J,358.3,24195,2)
;;=^5008241
;;^UTILITY(U,$J,358.3,24196,0)
;;=J45.20^^74^967^16
;;^UTILITY(U,$J,358.3,24196,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24196,1,3,0)
;;=3^Asthma,Mild Intermittent Uncomplicated
;;^UTILITY(U,$J,358.3,24196,1,4,0)
;;=4^J45.20
;;^UTILITY(U,$J,358.3,24196,2)
;;=^5008242
;;^UTILITY(U,$J,358.3,24197,0)
;;=J45.21^^74^967^17
;;^UTILITY(U,$J,358.3,24197,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24197,1,3,0)
;;=3^Asthma,Mild Intermittent w/ Acute Exacerbation
;;^UTILITY(U,$J,358.3,24197,1,4,0)
;;=4^J45.21
;;^UTILITY(U,$J,358.3,24197,2)
;;=^5008243
;;^UTILITY(U,$J,358.3,24198,0)
;;=J45.909^^74^967^18
;;^UTILITY(U,$J,358.3,24198,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24198,1,3,0)
;;=3^Asthma,Uncomplicated,Unspec
;;^UTILITY(U,$J,358.3,24198,1,4,0)
;;=4^J45.909
;;^UTILITY(U,$J,358.3,24198,2)
;;=^5008256
;;^UTILITY(U,$J,358.3,24199,0)
;;=J45.902^^74^967^15
;;^UTILITY(U,$J,358.3,24199,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24199,1,3,0)
;;=3^Asthma w/ Status Asthmaticus,Unspec
;;^UTILITY(U,$J,358.3,24199,1,4,0)
;;=4^J45.902
;;^UTILITY(U,$J,358.3,24199,2)
;;=^5008255
;;^UTILITY(U,$J,358.3,24200,0)
;;=J98.11^^74^967^19
;;^UTILITY(U,$J,358.3,24200,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24200,1,3,0)
;;=3^Atelectasis
;;^UTILITY(U,$J,358.3,24200,1,4,0)
;;=4^J98.11
;;^UTILITY(U,$J,358.3,24200,2)
;;=^5008360
;;^UTILITY(U,$J,358.3,24201,0)
;;=A31.9^^74^967^66
;;^UTILITY(U,$J,358.3,24201,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24201,1,3,0)
;;=3^Mycobacterial Infection,Unspec
;;^UTILITY(U,$J,358.3,24201,1,4,0)
;;=4^A31.9
;;^UTILITY(U,$J,358.3,24201,2)
;;=^5000153
;;^UTILITY(U,$J,358.3,24202,0)
;;=A31.0^^74^967^65
;;^UTILITY(U,$J,358.3,24202,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24202,1,3,0)
;;=3^Mycobacterial Infection,Pulmonary
;;^UTILITY(U,$J,358.3,24202,1,4,0)
;;=4^A31.0
;;^UTILITY(U,$J,358.3,24202,2)
;;=^5000149
;;^UTILITY(U,$J,358.3,24203,0)
;;=A31.2^^74^967^41
;;^UTILITY(U,$J,358.3,24203,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24203,1,3,0)
;;=3^Disseminated Mycobacterium Avium-Intracellulare Complex
;;^UTILITY(U,$J,358.3,24203,1,4,0)
;;=4^A31.2
;;^UTILITY(U,$J,358.3,24203,2)
;;=^5000151
;;^UTILITY(U,$J,358.3,24204,0)
;;=J47.9^^74^967^21
;;^UTILITY(U,$J,358.3,24204,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24204,1,3,0)
;;=3^Bronchiectasis,Uncomplicated
;;^UTILITY(U,$J,358.3,24204,1,4,0)
;;=4^J47.9
;;^UTILITY(U,$J,358.3,24204,2)
;;=^5008260
;;^UTILITY(U,$J,358.3,24205,0)
;;=J41.8^^74^967^23
;;^UTILITY(U,$J,358.3,24205,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24205,1,3,0)
;;=3^Bronchitis,Chr,Mixed Simple & Mucopurulent
;;^UTILITY(U,$J,358.3,24205,1,4,0)
;;=4^J41.8
;;^UTILITY(U,$J,358.3,24205,2)
;;=^5008233
;;^UTILITY(U,$J,358.3,24206,0)
;;=J20.9^^74^967^22
;;^UTILITY(U,$J,358.3,24206,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24206,1,3,0)
;;=3^Bronchitis,Acute,Unspec
;;^UTILITY(U,$J,358.3,24206,1,4,0)
;;=4^J20.9
;;^UTILITY(U,$J,358.3,24206,2)
;;=^5008195
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI09V 19745 printed Dec 13, 2024@01:44:30 Page 2
IBDEI09V ; ; 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,24129,1,0)
+2 ;;=^358.31IA^3^2
+3 ;;^UTILITY(U,$J,358.3,24129,1,2,0)
+4 ;;=2^76499
+5 ;;^UTILITY(U,$J,358.3,24129,1,3,0)
+6 ;;=3^Radiographic Procedure
+7 ;;^UTILITY(U,$J,358.3,24130,0)
+8 ;;=31633^^72^956^9^^^^1
+9 ;;^UTILITY(U,$J,358.3,24130,1,0)
+10 ;;=^358.31IA^3^2
+11 ;;^UTILITY(U,$J,358.3,24130,1,2,0)
+12 ;;=2^31633
+13 ;;^UTILITY(U,$J,358.3,24130,1,3,0)
+14 ;;=3^Bronch Needle Bx,Ea Addl Bx
+15 ;;^UTILITY(U,$J,358.3,24131,0)
+16 ;;=31615^^72^956^12^^^^1
+17 ;;^UTILITY(U,$J,358.3,24131,1,0)
+18 ;;=^358.31IA^3^2
+19 ;;^UTILITY(U,$J,358.3,24131,1,2,0)
+20 ;;=2^31615
+21 ;;^UTILITY(U,$J,358.3,24131,1,3,0)
+22 ;;=3^Bronch thru Est Trach
+23 ;;^UTILITY(U,$J,358.3,24132,0)
+24 ;;=31645^^72^956^21^^^^1
+25 ;;^UTILITY(U,$J,358.3,24132,1,0)
+26 ;;=^358.31IA^3^2
+27 ;;^UTILITY(U,$J,358.3,24132,1,2,0)
+28 ;;=2^31645
+29 ;;^UTILITY(U,$J,358.3,24132,1,3,0)
+30 ;;=3^Bronch w/ Therap Aspiration,Init
+31 ;;^UTILITY(U,$J,358.3,24133,0)
+32 ;;=31646^^72^956^22^^^^1
+33 ;;^UTILITY(U,$J,358.3,24133,1,0)
+34 ;;=^358.31IA^3^2
+35 ;;^UTILITY(U,$J,358.3,24133,1,2,0)
+36 ;;=2^31646
+37 ;;^UTILITY(U,$J,358.3,24133,1,3,0)
+38 ;;=3^Bronch w/ Therap Aspiration,Subseq
+39 ;;^UTILITY(U,$J,358.3,24134,0)
+40 ;;=31231^^72^956^28^^^^1
+41 ;;^UTILITY(U,$J,358.3,24134,1,0)
+42 ;;=^358.31IA^3^2
+43 ;;^UTILITY(U,$J,358.3,24134,1,2,0)
+44 ;;=2^31231
+45 ;;^UTILITY(U,$J,358.3,24134,1,3,0)
+46 ;;=3^Nasal Endoscopy,Diag,Uni/Bilateral
+47 ;;^UTILITY(U,$J,358.3,24135,0)
+48 ;;=31627^^72^956^15^^^^1
+49 ;;^UTILITY(U,$J,358.3,24135,1,0)
+50 ;;=^358.31IA^3^2
+51 ;;^UTILITY(U,$J,358.3,24135,1,2,0)
+52 ;;=2^31627
+53 ;;^UTILITY(U,$J,358.3,24135,1,3,0)
+54 ;;=3^Bronch w/ Computer Assisted-Image,Add-On
+55 ;;^UTILITY(U,$J,358.3,24136,0)
+56 ;;=31652^^72^956^17^^^^1
+57 ;;^UTILITY(U,$J,358.3,24136,1,0)
+58 ;;=^358.31IA^3^2
+59 ;;^UTILITY(U,$J,358.3,24136,1,2,0)
+60 ;;=2^31652
+61 ;;^UTILITY(U,$J,358.3,24136,1,3,0)
+62 ;;=3^Bronch w/ EBUS Trntch/Bronch Sample 1-2 Med/Hilar LN
+63 ;;^UTILITY(U,$J,358.3,24137,0)
+64 ;;=31653^^72^956^18^^^^1
+65 ;;^UTILITY(U,$J,358.3,24137,1,0)
+66 ;;=^358.31IA^3^2
+67 ;;^UTILITY(U,$J,358.3,24137,1,2,0)
+68 ;;=2^31653
+69 ;;^UTILITY(U,$J,358.3,24137,1,3,0)
+70 ;;=3^Bronch w/ EBUS Trntch/Bronch Sample=>3 Med/Hil LN
+71 ;;^UTILITY(U,$J,358.3,24138,0)
+72 ;;=31654^^72^956^16^^^^1
+73 ;;^UTILITY(U,$J,358.3,24138,1,0)
+74 ;;=^358.31IA^3^2
+75 ;;^UTILITY(U,$J,358.3,24138,1,2,0)
+76 ;;=2^31654
+77 ;;^UTILITY(U,$J,358.3,24138,1,3,0)
+78 ;;=3^Bronch w/ EBUS During Bronch,Add-On
+79 ;;^UTILITY(U,$J,358.3,24139,0)
+80 ;;=93015^^72^957^3^^^^1
+81 ;;^UTILITY(U,$J,358.3,24139,1,0)
+82 ;;=^358.31IA^3^2
+83 ;;^UTILITY(U,$J,358.3,24139,1,2,0)
+84 ;;=2^93015
+85 ;;^UTILITY(U,$J,358.3,24139,1,3,0)
+86 ;;=3^Cardiovascular Stress Test,Complete
+87 ;;^UTILITY(U,$J,358.3,24140,0)
+88 ;;=93017^^72^957^4^^^^1
+89 ;;^UTILITY(U,$J,358.3,24140,1,0)
+90 ;;=^358.31IA^3^2
+91 ;;^UTILITY(U,$J,358.3,24140,1,2,0)
+92 ;;=2^93017
+93 ;;^UTILITY(U,$J,358.3,24140,1,3,0)
+94 ;;=3^Cardiovascular Stress Test,Tracing Only
+95 ;;^UTILITY(U,$J,358.3,24141,0)
+96 ;;=94621^^72^957^1^^^^1
+97 ;;^UTILITY(U,$J,358.3,24141,1,0)
+98 ;;=^358.31IA^3^2
+99 ;;^UTILITY(U,$J,358.3,24141,1,2,0)
+100 ;;=2^94621
+101 ;;^UTILITY(U,$J,358.3,24141,1,3,0)
+102 ;;=3^Cardiopulmonary Exercise Tstng,Incl Measurement
+103 ;;^UTILITY(U,$J,358.3,24142,0)
+104 ;;=93016^^72^957^2^^^^1
+105 ;;^UTILITY(U,$J,358.3,24142,1,0)
+106 ;;=^358.31IA^3^2
+107 ;;^UTILITY(U,$J,358.3,24142,1,2,0)
+108 ;;=2^93016
+109 ;;^UTILITY(U,$J,358.3,24142,1,3,0)
+110 ;;=3^Cardiovascular Stress Test Only w/o Rpt
+111 ;;^UTILITY(U,$J,358.3,24143,0)
+112 ;;=94618^^72^957^5^^^^1
+113 ;;^UTILITY(U,$J,358.3,24143,1,0)
+114 ;;=^358.31IA^3^2
+115 ;;^UTILITY(U,$J,358.3,24143,1,2,0)
+116 ;;=2^94618
+117 ;;^UTILITY(U,$J,358.3,24143,1,3,0)
+118 ;;=3^Pulmonary Stess Test
+119 ;;^UTILITY(U,$J,358.3,24144,0)
+120 ;;=90471^^72^958^1^^^^1
+121 ;;^UTILITY(U,$J,358.3,24144,1,0)
+122 ;;=^358.31IA^3^2
+123 ;;^UTILITY(U,$J,358.3,24144,1,2,0)
+124 ;;=2^90471
+125 ;;^UTILITY(U,$J,358.3,24144,1,3,0)
+126 ;;=3^Immunization Admin,1st Vaccine
+127 ;;^UTILITY(U,$J,358.3,24145,0)
+128 ;;=90472^^72^958^2^^^^1
+129 ;;^UTILITY(U,$J,358.3,24145,1,0)
+130 ;;=^358.31IA^3^2
+131 ;;^UTILITY(U,$J,358.3,24145,1,2,0)
+132 ;;=2^90472
+133 ;;^UTILITY(U,$J,358.3,24145,1,3,0)
+134 ;;=3^Immunization Admin,Ea Addl Vaccine
+135 ;;^UTILITY(U,$J,358.3,24146,0)
+136 ;;=90673^^72^959^1^^^^1
+137 ;;^UTILITY(U,$J,358.3,24146,1,0)
+138 ;;=^358.31IA^3^2
+139 ;;^UTILITY(U,$J,358.3,24146,1,2,0)
+140 ;;=2^90673
+141 ;;^UTILITY(U,$J,358.3,24146,1,3,0)
+142 ;;=3^Flu Vaccine,Trivalent RIV3,DNA,HA,Pres ABX Free
+143 ;;^UTILITY(U,$J,358.3,24147,0)
+144 ;;=90656^^72^959^2^^^^1
+145 ;;^UTILITY(U,$J,358.3,24147,1,0)
+146 ;;=^358.31IA^3^2
+147 ;;^UTILITY(U,$J,358.3,24147,1,2,0)
+148 ;;=2^90656
+149 ;;^UTILITY(U,$J,358.3,24147,1,3,0)
+150 ;;=3^Flu Vaccine,Trivalent,Split Virus,0.5ml,Prsv Free
+151 ;;^UTILITY(U,$J,358.3,24148,0)
+152 ;;=90658^^72^959^3^^^^1
+153 ;;^UTILITY(U,$J,358.3,24148,1,0)
+154 ;;=^358.31IA^3^2
+155 ;;^UTILITY(U,$J,358.3,24148,1,2,0)
+156 ;;=2^90658
+157 ;;^UTILITY(U,$J,358.3,24148,1,3,0)
+158 ;;=3^Flu Vaccine,Trivalent,Split Virus,0.5ml
+159 ;;^UTILITY(U,$J,358.3,24149,0)
+160 ;;=90662^^72^959^4^^^^1
+161 ;;^UTILITY(U,$J,358.3,24149,1,0)
+162 ;;=^358.31IA^3^2
+163 ;;^UTILITY(U,$J,358.3,24149,1,2,0)
+164 ;;=2^90662
+165 ;;^UTILITY(U,$J,358.3,24149,1,3,0)
+166 ;;=3^Flu Virus,Split Virus,High Dose,Prsv Free
+167 ;;^UTILITY(U,$J,358.3,24150,0)
+168 ;;=90732^^72^959^7^^^^1
+169 ;;^UTILITY(U,$J,358.3,24150,1,0)
+170 ;;=^358.31IA^3^2
+171 ;;^UTILITY(U,$J,358.3,24150,1,2,0)
+172 ;;=2^90732
+173 ;;^UTILITY(U,$J,358.3,24150,1,3,0)
+174 ;;=3^Pneumovax 23-Valent (PPSV23) SQ/IM
+175 ;;^UTILITY(U,$J,358.3,24151,0)
+176 ;;=90671^^72^959^5^^^^1
+177 ;;^UTILITY(U,$J,358.3,24151,1,0)
+178 ;;=^358.31IA^3^2
+179 ;;^UTILITY(U,$J,358.3,24151,1,2,0)
+180 ;;=2^90671
+181 ;;^UTILITY(U,$J,358.3,24151,1,3,0)
+182 ;;=3^Pneumococcal Conjugate,15 Valent (PCV15)
+183 ;;^UTILITY(U,$J,358.3,24152,0)
+184 ;;=90677^^72^959^6^^^^1
+185 ;;^UTILITY(U,$J,358.3,24152,1,0)
+186 ;;=^358.31IA^3^2
+187 ;;^UTILITY(U,$J,358.3,24152,1,2,0)
+188 ;;=2^90677
+189 ;;^UTILITY(U,$J,358.3,24152,1,3,0)
+190 ;;=3^Pneumococcal Conjugate,20 Valent (PCV20)
+191 ;;^UTILITY(U,$J,358.3,24153,0)
+192 ;;=31610^^72^960^1^^^^1
+193 ;;^UTILITY(U,$J,358.3,24153,1,0)
+194 ;;=^358.31IA^3^2
+195 ;;^UTILITY(U,$J,358.3,24153,1,2,0)
+196 ;;=2^31610
+197 ;;^UTILITY(U,$J,358.3,24153,1,3,0)
+198 ;;=3^Trach Fenestration w/ Skin Flaps
+199 ;;^UTILITY(U,$J,358.3,24154,0)
+200 ;;=31605^^72^960^3^^^^1
+201 ;;^UTILITY(U,$J,358.3,24154,1,0)
+202 ;;=^358.31IA^3^2
+203 ;;^UTILITY(U,$J,358.3,24154,1,2,0)
+204 ;;=2^31605
+205 ;;^UTILITY(U,$J,358.3,24154,1,3,0)
+206 ;;=3^Tracheostomy,Emerg,Cricothyroid
+207 ;;^UTILITY(U,$J,358.3,24155,0)
+208 ;;=31603^^72^960^2^^^^1
+209 ;;^UTILITY(U,$J,358.3,24155,1,0)
+210 ;;=^358.31IA^3^2
+211 ;;^UTILITY(U,$J,358.3,24155,1,2,0)
+212 ;;=2^31603
+213 ;;^UTILITY(U,$J,358.3,24155,1,3,0)
+214 ;;=3^Tracheostomy Emerg,Transtracheal
+215 ;;^UTILITY(U,$J,358.3,24156,0)
+216 ;;=31600^^72^960^4^^^^1
+217 ;;^UTILITY(U,$J,358.3,24156,1,0)
+218 ;;=^358.31IA^3^2
+219 ;;^UTILITY(U,$J,358.3,24156,1,2,0)
+220 ;;=2^31600
+221 ;;^UTILITY(U,$J,358.3,24156,1,3,0)
+222 ;;=3^Tracheostomy,Planned
+223 ;;^UTILITY(U,$J,358.3,24157,0)
+224 ;;=99358^^72^961^1^^^^1
+225 ;;^UTILITY(U,$J,358.3,24157,1,0)
+226 ;;=^358.31IA^3^2
+227 ;;^UTILITY(U,$J,358.3,24157,1,2,0)
+228 ;;=2^99358
+229 ;;^UTILITY(U,$J,358.3,24157,1,3,0)
+230 ;;=3^Prolonged Svc,Before/After Visit,1st hr
+231 ;;^UTILITY(U,$J,358.3,24158,0)
+232 ;;=99359^^72^961^2^^^^1
+233 ;;^UTILITY(U,$J,358.3,24158,1,0)
+234 ;;=^358.31IA^3^2
+235 ;;^UTILITY(U,$J,358.3,24158,1,2,0)
+236 ;;=2^99359
+237 ;;^UTILITY(U,$J,358.3,24158,1,3,0)
+238 ;;=3^Prolonged Svc,Before/After Visit,Ea Add 30min
+239 ;;^UTILITY(U,$J,358.3,24159,0)
+240 ;;=99417^^72^961^3^^^^1
+241 ;;^UTILITY(U,$J,358.3,24159,1,0)
+242 ;;=^358.31IA^3^2
+243 ;;^UTILITY(U,$J,358.3,24159,1,2,0)
+244 ;;=2^99417
+245 ;;^UTILITY(U,$J,358.3,24159,1,3,0)
+246 ;;=3^Prolonged Svc,Ea 15min;Only with 99205 or 99215
+247 ;;^UTILITY(U,$J,358.3,24160,0)
+248 ;;=31500^^72^962^5^^^^1
+249 ;;^UTILITY(U,$J,358.3,24160,1,0)
+250 ;;=^358.31IA^3^2
+251 ;;^UTILITY(U,$J,358.3,24160,1,2,0)
+252 ;;=2^31500
+253 ;;^UTILITY(U,$J,358.3,24160,1,3,0)
+254 ;;=3^Intub,Endotrach,Emergency Proc
+255 ;;^UTILITY(U,$J,358.3,24161,0)
+256 ;;=92950^^72^962^4^^^^1
+257 ;;^UTILITY(U,$J,358.3,24161,1,0)
+258 ;;=^358.31IA^3^2
+259 ;;^UTILITY(U,$J,358.3,24161,1,2,0)
+260 ;;=2^92950
+261 ;;^UTILITY(U,$J,358.3,24161,1,3,0)
+262 ;;=3^Heart/Lung Resusc/CPR
+263 ;;^UTILITY(U,$J,358.3,24162,0)
+264 ;;=99078^^72^962^3^^^^1
+265 ;;^UTILITY(U,$J,358.3,24162,1,0)
+266 ;;=^358.31IA^3^2
+267 ;;^UTILITY(U,$J,358.3,24162,1,2,0)
+268 ;;=2^99078
+269 ;;^UTILITY(U,$J,358.3,24162,1,3,0)
+270 ;;=3^Group Education by Physician
+271 ;;^UTILITY(U,$J,358.3,24163,0)
+272 ;;=S9453^^72^962^12^^^^1
+273 ;;^UTILITY(U,$J,358.3,24163,1,0)
+274 ;;=^358.31IA^3^2
+275 ;;^UTILITY(U,$J,358.3,24163,1,2,0)
+276 ;;=2^S9453
+277 ;;^UTILITY(U,$J,358.3,24163,1,3,0)
+278 ;;=3^Smoking Cessation Class
+279 ;;^UTILITY(U,$J,358.3,24164,0)
+280 ;;=36800^^72^962^2^^^^1
+281 ;;^UTILITY(U,$J,358.3,24164,1,0)
+282 ;;=^358.31IA^3^2
+283 ;;^UTILITY(U,$J,358.3,24164,1,2,0)
+284 ;;=2^36800
+285 ;;^UTILITY(U,$J,358.3,24164,1,3,0)
+286 ;;=3^Cannula Insert,Dialysis,Vein to Vein
+287 ;;^UTILITY(U,$J,358.3,24165,0)
+288 ;;=36810^^72^962^1^^^^1
+289 ;;^UTILITY(U,$J,358.3,24165,1,0)
+290 ;;=^358.31IA^3^2
+291 ;;^UTILITY(U,$J,358.3,24165,1,2,0)
+292 ;;=2^36810
+293 ;;^UTILITY(U,$J,358.3,24165,1,3,0)
+294 ;;=3^Cannula Insert,Dialysis,AV External
+295 ;;^UTILITY(U,$J,358.3,24166,0)
+296 ;;=33210^^72^962^9^^^^1
+297 ;;^UTILITY(U,$J,358.3,24166,1,0)
+298 ;;=^358.31IA^3^2
+299 ;;^UTILITY(U,$J,358.3,24166,1,2,0)
+300 ;;=2^33210
+301 ;;^UTILITY(U,$J,358.3,24166,1,3,0)
+302 ;;=3^Pacemaker,Temp,TVS,Sngl Chm,Elec/Cath
+303 ;;^UTILITY(U,$J,358.3,24167,0)
+304 ;;=33211^^72^962^8^^^^1
+305 ;;^UTILITY(U,$J,358.3,24167,1,0)
+306 ;;=^358.31IA^3^2
+307 ;;^UTILITY(U,$J,358.3,24167,1,2,0)
+308 ;;=2^33211
+309 ;;^UTILITY(U,$J,358.3,24167,1,3,0)
+310 ;;=3^Pacemaker,Temp,TVS,Dual Chm,Elec/Cath
+311 ;;^UTILITY(U,$J,358.3,24168,0)
+312 ;;=49082^^72^962^11^^^^1
+313 ;;^UTILITY(U,$J,358.3,24168,1,0)
+314 ;;=^358.31IA^3^2
+315 ;;^UTILITY(U,$J,358.3,24168,1,2,0)
+316 ;;=2^49082
+317 ;;^UTILITY(U,$J,358.3,24168,1,3,0)
+318 ;;=3^Paracentesis,Abd,Dx/Tx w/o Imaging
+319 ;;^UTILITY(U,$J,358.3,24169,0)
+320 ;;=49083^^72^962^10^^^^1
+321 ;;^UTILITY(U,$J,358.3,24169,1,0)
+322 ;;=^358.31IA^3^2
+323 ;;^UTILITY(U,$J,358.3,24169,1,2,0)
+324 ;;=2^49083
+325 ;;^UTILITY(U,$J,358.3,24169,1,3,0)
+326 ;;=3^Paracentesis,Abd,Dx/Tx w/ Imaging
+327 ;;^UTILITY(U,$J,358.3,24170,0)
+328 ;;=62270^^72^962^6^^^^1
+329 ;;^UTILITY(U,$J,358.3,24170,1,0)
+330 ;;=^358.31IA^3^2
+331 ;;^UTILITY(U,$J,358.3,24170,1,2,0)
+332 ;;=2^62270
+333 ;;^UTILITY(U,$J,358.3,24170,1,3,0)
+334 ;;=3^Lumbar Puncture,Diagnostic
+335 ;;^UTILITY(U,$J,358.3,24171,0)
+336 ;;=62272^^72^962^7^^^^1
+337 ;;^UTILITY(U,$J,358.3,24171,1,0)
+338 ;;=^358.31IA^3^2
+339 ;;^UTILITY(U,$J,358.3,24171,1,2,0)
+340 ;;=2^62272
+341 ;;^UTILITY(U,$J,358.3,24171,1,3,0)
+342 ;;=3^Lumbar Puncture,Therapeutic
+343 ;;^UTILITY(U,$J,358.3,24172,0)
+344 ;;=99202^^73^963^1
+345 ;;^UTILITY(U,$J,358.3,24172,1,0)
+346 ;;=^358.31IA^2^2
+347 ;;^UTILITY(U,$J,358.3,24172,1,1,0)
+348 ;;=1^SF MDM or 15-29 mins
+349 ;;^UTILITY(U,$J,358.3,24172,1,2,0)
+350 ;;=2^99202
+351 ;;^UTILITY(U,$J,358.3,24173,0)
+352 ;;=99203^^73^963^2
+353 ;;^UTILITY(U,$J,358.3,24173,1,0)
+354 ;;=^358.31IA^2^2
+355 ;;^UTILITY(U,$J,358.3,24173,1,1,0)
+356 ;;=1^Low MDM or 30-44 mins
+357 ;;^UTILITY(U,$J,358.3,24173,1,2,0)
+358 ;;=2^99203
+359 ;;^UTILITY(U,$J,358.3,24174,0)
+360 ;;=99204^^73^963^3
+361 ;;^UTILITY(U,$J,358.3,24174,1,0)
+362 ;;=^358.31IA^2^2
+363 ;;^UTILITY(U,$J,358.3,24174,1,1,0)
+364 ;;=1^Moderate MDM or 45-59 mins
+365 ;;^UTILITY(U,$J,358.3,24174,1,2,0)
+366 ;;=2^99204
+367 ;;^UTILITY(U,$J,358.3,24175,0)
+368 ;;=99205^^73^963^4
+369 ;;^UTILITY(U,$J,358.3,24175,1,0)
+370 ;;=^358.31IA^2^2
+371 ;;^UTILITY(U,$J,358.3,24175,1,1,0)
+372 ;;=1^High MDM or 60-74 mins
+373 ;;^UTILITY(U,$J,358.3,24175,1,2,0)
+374 ;;=2^99205
+375 ;;^UTILITY(U,$J,358.3,24176,0)
+376 ;;=99211^^73^964^1
+377 ;;^UTILITY(U,$J,358.3,24176,1,0)
+378 ;;=^358.31IA^2^2
+379 ;;^UTILITY(U,$J,358.3,24176,1,1,0)
+380 ;;=1^Brief Visit-MDM None/Minimal
+381 ;;^UTILITY(U,$J,358.3,24176,1,2,0)
+382 ;;=2^99211
+383 ;;^UTILITY(U,$J,358.3,24177,0)
+384 ;;=99212^^73^964^2
+385 ;;^UTILITY(U,$J,358.3,24177,1,0)
+386 ;;=^358.31IA^2^2
+387 ;;^UTILITY(U,$J,358.3,24177,1,1,0)
+388 ;;=1^SF MDM or 10-19 mins
+389 ;;^UTILITY(U,$J,358.3,24177,1,2,0)
+390 ;;=2^99212
+391 ;;^UTILITY(U,$J,358.3,24178,0)
+392 ;;=99213^^73^964^3
+393 ;;^UTILITY(U,$J,358.3,24178,1,0)
+394 ;;=^358.31IA^2^2
+395 ;;^UTILITY(U,$J,358.3,24178,1,1,0)
+396 ;;=1^Low MDM or 20-29 mins
+397 ;;^UTILITY(U,$J,358.3,24178,1,2,0)
+398 ;;=2^99213
+399 ;;^UTILITY(U,$J,358.3,24179,0)
+400 ;;=99214^^73^964^4
+401 ;;^UTILITY(U,$J,358.3,24179,1,0)
+402 ;;=^358.31IA^2^2
+403 ;;^UTILITY(U,$J,358.3,24179,1,1,0)
+404 ;;=1^Moderate MDM or 30-39 mins
+405 ;;^UTILITY(U,$J,358.3,24179,1,2,0)
+406 ;;=2^99214
+407 ;;^UTILITY(U,$J,358.3,24180,0)
+408 ;;=99215^^73^964^5
+409 ;;^UTILITY(U,$J,358.3,24180,1,0)
+410 ;;=^358.31IA^2^2
+411 ;;^UTILITY(U,$J,358.3,24180,1,1,0)
+412 ;;=1^High MDM or 40-54 mins
+413 ;;^UTILITY(U,$J,358.3,24180,1,2,0)
+414 ;;=2^99215
+415 ;;^UTILITY(U,$J,358.3,24181,0)
+416 ;;=99241^^73^965^1
+417 ;;^UTILITY(U,$J,358.3,24181,1,0)
+418 ;;=^358.31IA^2^2
+419 ;;^UTILITY(U,$J,358.3,24181,1,1,0)
+420 ;;=1^Problem Focused Hx/PE & SF MDM
+421 ;;^UTILITY(U,$J,358.3,24181,1,2,0)
+422 ;;=2^99241
+423 ;;^UTILITY(U,$J,358.3,24182,0)
+424 ;;=99242^^73^965^2
+425 ;;^UTILITY(U,$J,358.3,24182,1,0)
+426 ;;=^358.31IA^2^2
+427 ;;^UTILITY(U,$J,358.3,24182,1,1,0)
+428 ;;=1^Exp Problem Focused Hx/PE & SF MDM
+429 ;;^UTILITY(U,$J,358.3,24182,1,2,0)
+430 ;;=2^99242
+431 ;;^UTILITY(U,$J,358.3,24183,0)
+432 ;;=99243^^73^965^3
+433 ;;^UTILITY(U,$J,358.3,24183,1,0)
+434 ;;=^358.31IA^2^2
+435 ;;^UTILITY(U,$J,358.3,24183,1,1,0)
+436 ;;=1^Detailed Hx/PE & Low Complex MDM
+437 ;;^UTILITY(U,$J,358.3,24183,1,2,0)
+438 ;;=2^99243
+439 ;;^UTILITY(U,$J,358.3,24184,0)
+440 ;;=99244^^73^965^4
+441 ;;^UTILITY(U,$J,358.3,24184,1,0)
+442 ;;=^358.31IA^2^2
+443 ;;^UTILITY(U,$J,358.3,24184,1,1,0)
+444 ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
+445 ;;^UTILITY(U,$J,358.3,24184,1,2,0)
+446 ;;=2^99244
+447 ;;^UTILITY(U,$J,358.3,24185,0)
+448 ;;=99245^^73^965^5
+449 ;;^UTILITY(U,$J,358.3,24185,1,0)
+450 ;;=^358.31IA^2^2
+451 ;;^UTILITY(U,$J,358.3,24185,1,1,0)
+452 ;;=1^Comprehensive Hx/PE & High Complex MDM
+453 ;;^UTILITY(U,$J,358.3,24185,1,2,0)
+454 ;;=2^99245
+455 ;;^UTILITY(U,$J,358.3,24186,0)
+456 ;;=99024^^73^966^1
+457 ;;^UTILITY(U,$J,358.3,24186,1,0)
+458 ;;=^358.31IA^2^2
+459 ;;^UTILITY(U,$J,358.3,24186,1,1,0)
+460 ;;=1^Post-Op Follow-Up Care
+461 ;;^UTILITY(U,$J,358.3,24186,1,2,0)
+462 ;;=2^99024
+463 ;;^UTILITY(U,$J,358.3,24187,0)
+464 ;;=R91.8^^74^967^2
+465 ;;^UTILITY(U,$J,358.3,24187,1,0)
+466 ;;=^358.31IA^4^2
+467 ;;^UTILITY(U,$J,358.3,24187,1,3,0)
+468 ;;=3^Abnormal Finding of Lung Field
+469 ;;^UTILITY(U,$J,358.3,24187,1,4,0)
+470 ;;=4^R91.8
+471 ;;^UTILITY(U,$J,358.3,24187,2)
+472 ;;=^5019708
+473 ;;^UTILITY(U,$J,358.3,24188,0)
+474 ;;=R91.1^^74^967^102
+475 ;;^UTILITY(U,$J,358.3,24188,1,0)
+476 ;;=^358.31IA^4^2
+477 ;;^UTILITY(U,$J,358.3,24188,1,3,0)
+478 ;;=3^Pulmonary Nodule,Solitary
+479 ;;^UTILITY(U,$J,358.3,24188,1,4,0)
+480 ;;=4^R91.1
+481 ;;^UTILITY(U,$J,358.3,24188,2)
+482 ;;=^5019707
+483 ;;^UTILITY(U,$J,358.3,24189,0)
+484 ;;=J85.2^^74^967^3
+485 ;;^UTILITY(U,$J,358.3,24189,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,24189,1,3,0)
+488 ;;=3^Abscess of Lung w/o Pneumonia
+489 ;;^UTILITY(U,$J,358.3,24189,1,4,0)
+490 ;;=4^J85.2
+491 ;;^UTILITY(U,$J,358.3,24189,2)
+492 ;;=^5008307
+493 ;;^UTILITY(U,$J,358.3,24190,0)
+494 ;;=J02.9^^74^967^77
+495 ;;^UTILITY(U,$J,358.3,24190,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,24190,1,3,0)
+498 ;;=3^Pharyngitis,Acute,Unspec
+499 ;;^UTILITY(U,$J,358.3,24190,1,4,0)
+500 ;;=4^J02.9
+501 ;;^UTILITY(U,$J,358.3,24190,2)
+502 ;;=^5008130
+503 ;;^UTILITY(U,$J,358.3,24191,0)
+504 ;;=B20.^^74^967^1
+505 ;;^UTILITY(U,$J,358.3,24191,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,24191,1,3,0)
+508 ;;=3^AIDS (HIV Disease, HIV Stage 3, ARC)
+509 ;;^UTILITY(U,$J,358.3,24191,1,4,0)
+510 ;;=4^B20.
+511 ;;^UTILITY(U,$J,358.3,24191,2)
+512 ;;=^5000555
+513 ;;^UTILITY(U,$J,358.3,24192,0)
+514 ;;=J61.^^74^967^81
+515 ;;^UTILITY(U,$J,358.3,24192,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,24192,1,3,0)
+518 ;;=3^Pneumoconiosis d/t Asbestos/Other Mineral Fibers
+519 ;;^UTILITY(U,$J,358.3,24192,1,4,0)
+520 ;;=4^J61.
+521 ;;^UTILITY(U,$J,358.3,24192,2)
+522 ;;=^5008262
+523 ;;^UTILITY(U,$J,358.3,24193,0)
+524 ;;=B44.9^^74^967^14
+525 ;;^UTILITY(U,$J,358.3,24193,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,24193,1,3,0)
+528 ;;=3^Aspergillosis,Unspec
+529 ;;^UTILITY(U,$J,358.3,24193,1,4,0)
+530 ;;=4^B44.9
+531 ;;^UTILITY(U,$J,358.3,24193,2)
+532 ;;=^5000668
+533 ;;^UTILITY(U,$J,358.3,24194,0)
+534 ;;=B44.0^^74^967^13
+535 ;;^UTILITY(U,$J,358.3,24194,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,24194,1,3,0)
+538 ;;=3^Aspergillosis,Invasive Pulmonary
+539 ;;^UTILITY(U,$J,358.3,24194,1,4,0)
+540 ;;=4^B44.0
+541 ;;^UTILITY(U,$J,358.3,24194,2)
+542 ;;=^5000663
+543 ;;^UTILITY(U,$J,358.3,24195,0)
+544 ;;=J44.9^^74^967^28
+545 ;;^UTILITY(U,$J,358.3,24195,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,24195,1,3,0)
+548 ;;=3^COPD,Unspec
+549 ;;^UTILITY(U,$J,358.3,24195,1,4,0)
+550 ;;=4^J44.9
+551 ;;^UTILITY(U,$J,358.3,24195,2)
+552 ;;=^5008241
+553 ;;^UTILITY(U,$J,358.3,24196,0)
+554 ;;=J45.20^^74^967^16
+555 ;;^UTILITY(U,$J,358.3,24196,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,24196,1,3,0)
+558 ;;=3^Asthma,Mild Intermittent Uncomplicated
+559 ;;^UTILITY(U,$J,358.3,24196,1,4,0)
+560 ;;=4^J45.20
+561 ;;^UTILITY(U,$J,358.3,24196,2)
+562 ;;=^5008242
+563 ;;^UTILITY(U,$J,358.3,24197,0)
+564 ;;=J45.21^^74^967^17
+565 ;;^UTILITY(U,$J,358.3,24197,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,24197,1,3,0)
+568 ;;=3^Asthma,Mild Intermittent w/ Acute Exacerbation
+569 ;;^UTILITY(U,$J,358.3,24197,1,4,0)
+570 ;;=4^J45.21
+571 ;;^UTILITY(U,$J,358.3,24197,2)
+572 ;;=^5008243
+573 ;;^UTILITY(U,$J,358.3,24198,0)
+574 ;;=J45.909^^74^967^18
+575 ;;^UTILITY(U,$J,358.3,24198,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,24198,1,3,0)
+578 ;;=3^Asthma,Uncomplicated,Unspec
+579 ;;^UTILITY(U,$J,358.3,24198,1,4,0)
+580 ;;=4^J45.909
+581 ;;^UTILITY(U,$J,358.3,24198,2)
+582 ;;=^5008256
+583 ;;^UTILITY(U,$J,358.3,24199,0)
+584 ;;=J45.902^^74^967^15
+585 ;;^UTILITY(U,$J,358.3,24199,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,24199,1,3,0)
+588 ;;=3^Asthma w/ Status Asthmaticus,Unspec
+589 ;;^UTILITY(U,$J,358.3,24199,1,4,0)
+590 ;;=4^J45.902
+591 ;;^UTILITY(U,$J,358.3,24199,2)
+592 ;;=^5008255
+593 ;;^UTILITY(U,$J,358.3,24200,0)
+594 ;;=J98.11^^74^967^19
+595 ;;^UTILITY(U,$J,358.3,24200,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,24200,1,3,0)
+598 ;;=3^Atelectasis
+599 ;;^UTILITY(U,$J,358.3,24200,1,4,0)
+600 ;;=4^J98.11
+601 ;;^UTILITY(U,$J,358.3,24200,2)
+602 ;;=^5008360
+603 ;;^UTILITY(U,$J,358.3,24201,0)
+604 ;;=A31.9^^74^967^66
+605 ;;^UTILITY(U,$J,358.3,24201,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,24201,1,3,0)
+608 ;;=3^Mycobacterial Infection,Unspec
+609 ;;^UTILITY(U,$J,358.3,24201,1,4,0)
+610 ;;=4^A31.9
+611 ;;^UTILITY(U,$J,358.3,24201,2)
+612 ;;=^5000153
+613 ;;^UTILITY(U,$J,358.3,24202,0)
+614 ;;=A31.0^^74^967^65
+615 ;;^UTILITY(U,$J,358.3,24202,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,24202,1,3,0)
+618 ;;=3^Mycobacterial Infection,Pulmonary
+619 ;;^UTILITY(U,$J,358.3,24202,1,4,0)
+620 ;;=4^A31.0
+621 ;;^UTILITY(U,$J,358.3,24202,2)
+622 ;;=^5000149
+623 ;;^UTILITY(U,$J,358.3,24203,0)
+624 ;;=A31.2^^74^967^41
+625 ;;^UTILITY(U,$J,358.3,24203,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,24203,1,3,0)
+628 ;;=3^Disseminated Mycobacterium Avium-Intracellulare Complex
+629 ;;^UTILITY(U,$J,358.3,24203,1,4,0)
+630 ;;=4^A31.2
+631 ;;^UTILITY(U,$J,358.3,24203,2)
+632 ;;=^5000151
+633 ;;^UTILITY(U,$J,358.3,24204,0)
+634 ;;=J47.9^^74^967^21
+635 ;;^UTILITY(U,$J,358.3,24204,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,24204,1,3,0)
+638 ;;=3^Bronchiectasis,Uncomplicated
+639 ;;^UTILITY(U,$J,358.3,24204,1,4,0)
+640 ;;=4^J47.9
+641 ;;^UTILITY(U,$J,358.3,24204,2)
+642 ;;=^5008260
+643 ;;^UTILITY(U,$J,358.3,24205,0)
+644 ;;=J41.8^^74^967^23
+645 ;;^UTILITY(U,$J,358.3,24205,1,0)
+646 ;;=^358.31IA^4^2
+647 ;;^UTILITY(U,$J,358.3,24205,1,3,0)
+648 ;;=3^Bronchitis,Chr,Mixed Simple & Mucopurulent
+649 ;;^UTILITY(U,$J,358.3,24205,1,4,0)
+650 ;;=4^J41.8
+651 ;;^UTILITY(U,$J,358.3,24205,2)
+652 ;;=^5008233
+653 ;;^UTILITY(U,$J,358.3,24206,0)
+654 ;;=J20.9^^74^967^22
+655 ;;^UTILITY(U,$J,358.3,24206,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,24206,1,3,0)
+658 ;;=3^Bronchitis,Acute,Unspec
+659 ;;^UTILITY(U,$J,358.3,24206,1,4,0)
+660 ;;=4^J20.9
+661 ;;^UTILITY(U,$J,358.3,24206,2)
+662 ;;=^5008195