IBDEI09U ; ; 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,24050,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24050,1,3,0)
;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
;;^UTILITY(U,$J,358.3,24050,1,4,0)
;;=4^N12.
;;^UTILITY(U,$J,358.3,24050,2)
;;=^5015575
;;^UTILITY(U,$J,358.3,24051,0)
;;=N28.86^^71^948^14
;;^UTILITY(U,$J,358.3,24051,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24051,1,3,0)
;;=3^Ureteritis Cystica
;;^UTILITY(U,$J,358.3,24051,1,4,0)
;;=4^N28.86
;;^UTILITY(U,$J,358.3,24051,2)
;;=^5015629
;;^UTILITY(U,$J,358.3,24052,0)
;;=A08.0^^71^949^6
;;^UTILITY(U,$J,358.3,24052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24052,1,3,0)
;;=3^Enteritis,Rotaviral
;;^UTILITY(U,$J,358.3,24052,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,24052,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,24053,0)
;;=A08.11^^71^949^1
;;^UTILITY(U,$J,358.3,24053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24053,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,24053,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,24053,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,24054,0)
;;=A08.19^^71^949^2
;;^UTILITY(U,$J,358.3,24054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24054,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,24054,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,24054,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,24055,0)
;;=A08.2^^71^949^3
;;^UTILITY(U,$J,358.3,24055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24055,1,3,0)
;;=3^Enteritis,Adenoviral
;;^UTILITY(U,$J,358.3,24055,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,24055,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,24056,0)
;;=A08.31^^71^949^5
;;^UTILITY(U,$J,358.3,24056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24056,1,3,0)
;;=3^Enteritis,Calicivirus
;;^UTILITY(U,$J,358.3,24056,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,24056,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,24057,0)
;;=A08.32^^71^949^4
;;^UTILITY(U,$J,358.3,24057,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24057,1,3,0)
;;=3^Enteritis,Astrovirus
;;^UTILITY(U,$J,358.3,24057,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,24057,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,24058,0)
;;=A08.4^^71^949^8
;;^UTILITY(U,$J,358.3,24058,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24058,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,24058,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,24058,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,24059,0)
;;=A08.8^^71^949^7
;;^UTILITY(U,$J,358.3,24059,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24059,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,24059,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,24059,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,24060,0)
;;=J68.0^^71^950^2
;;^UTILITY(U,$J,358.3,24060,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24060,1,3,0)
;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
;;^UTILITY(U,$J,358.3,24060,1,4,0)
;;=4^J68.0
;;^UTILITY(U,$J,358.3,24060,2)
;;=^5008281
;;^UTILITY(U,$J,358.3,24061,0)
;;=J69.1^^71^950^7
;;^UTILITY(U,$J,358.3,24061,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24061,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Oils/Essences
;;^UTILITY(U,$J,358.3,24061,1,4,0)
;;=4^J69.1
;;^UTILITY(U,$J,358.3,24061,2)
;;=^95664
;;^UTILITY(U,$J,358.3,24062,0)
;;=J68.9^^71^950^9
;;^UTILITY(U,$J,358.3,24062,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24062,1,3,0)
;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,24062,1,4,0)
;;=4^J68.9
;;^UTILITY(U,$J,358.3,24062,2)
;;=^5008287
;;^UTILITY(U,$J,358.3,24063,0)
;;=J84.114^^71^950^1
;;^UTILITY(U,$J,358.3,24063,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24063,1,3,0)
;;=3^Acute Interstitial Pneumonitis
;;^UTILITY(U,$J,358.3,24063,1,4,0)
;;=4^J84.114
;;^UTILITY(U,$J,358.3,24063,2)
;;=^340536
;;^UTILITY(U,$J,358.3,24064,0)
;;=J84.89^^71^950^6
;;^UTILITY(U,$J,358.3,24064,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24064,1,3,0)
;;=3^Interstitial Pulmonary Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,24064,1,4,0)
;;=4^J84.89
;;^UTILITY(U,$J,358.3,24064,2)
;;=^5008303
;;^UTILITY(U,$J,358.3,24065,0)
;;=J82.81^^71^950^5
;;^UTILITY(U,$J,358.3,24065,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24065,1,3,0)
;;=3^Eosinophilic Pneumonia,Chronic
;;^UTILITY(U,$J,358.3,24065,1,4,0)
;;=4^J82.81
;;^UTILITY(U,$J,358.3,24065,2)
;;=^24374
;;^UTILITY(U,$J,358.3,24066,0)
;;=J82.82^^71^950^4
;;^UTILITY(U,$J,358.3,24066,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24066,1,3,0)
;;=3^Eosinophilic Pneumonia,Acute
;;^UTILITY(U,$J,358.3,24066,1,4,0)
;;=4^J82.82
;;^UTILITY(U,$J,358.3,24066,2)
;;=^5159205
;;^UTILITY(U,$J,358.3,24067,0)
;;=J82.83^^71^950^3
;;^UTILITY(U,$J,358.3,24067,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24067,1,3,0)
;;=3^Eosinophilic Asthma
;;^UTILITY(U,$J,358.3,24067,1,4,0)
;;=4^J82.83
;;^UTILITY(U,$J,358.3,24067,2)
;;=^5159206
;;^UTILITY(U,$J,358.3,24068,0)
;;=J82.89^^71^950^8
;;^UTILITY(U,$J,358.3,24068,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24068,1,3,0)
;;=3^Pulmonary Eosinophilia,Other,NEC
;;^UTILITY(U,$J,358.3,24068,1,4,0)
;;=4^J82.89
;;^UTILITY(U,$J,358.3,24068,2)
;;=^5159207
;;^UTILITY(U,$J,358.3,24069,0)
;;=36600^^72^951^2
;;^UTILITY(U,$J,358.3,24069,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24069,1,2,0)
;;=2^36600
;;^UTILITY(U,$J,358.3,24069,1,3,0)
;;=3^ABG
;;^UTILITY(U,$J,358.3,24070,0)
;;=36620^^72^951^1
;;^UTILITY(U,$J,358.3,24070,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24070,1,2,0)
;;=2^36620
;;^UTILITY(U,$J,358.3,24070,1,3,0)
;;=3^A-Line
;;^UTILITY(U,$J,358.3,24071,0)
;;=36415^^72^951^10
;;^UTILITY(U,$J,358.3,24071,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24071,1,2,0)
;;=2^36415
;;^UTILITY(U,$J,358.3,24071,1,3,0)
;;=3^Venous Puncture
;;^UTILITY(U,$J,358.3,24072,0)
;;=36000^^72^951^6
;;^UTILITY(U,$J,358.3,24072,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24072,1,2,0)
;;=2^36000
;;^UTILITY(U,$J,358.3,24072,1,3,0)
;;=3^Hep Lock w/o IV Infusion
;;^UTILITY(U,$J,358.3,24073,0)
;;=82803^^72^951^3^^^^1
;;^UTILITY(U,$J,358.3,24073,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24073,1,2,0)
;;=2^82803
;;^UTILITY(U,$J,358.3,24073,1,3,0)
;;=3^ABG Analyzed, pO2, pCO2, HCO3
;;^UTILITY(U,$J,358.3,24074,0)
;;=82805^^72^951^4^^^^1
;;^UTILITY(U,$J,358.3,24074,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24074,1,2,0)
;;=2^82805
;;^UTILITY(U,$J,358.3,24074,1,3,0)
;;=3^Arterial O2 Saturation
;;^UTILITY(U,$J,358.3,24075,0)
;;=82375^^72^951^5^^^^1
;;^UTILITY(U,$J,358.3,24075,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24075,1,2,0)
;;=2^82375
;;^UTILITY(U,$J,358.3,24075,1,3,0)
;;=3^Blood Gas, CO analysis
;;^UTILITY(U,$J,358.3,24076,0)
;;=36556^^72^951^8^^^^1
;;^UTILITY(U,$J,358.3,24076,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24076,1,2,0)
;;=2^36556
;;^UTILITY(U,$J,358.3,24076,1,3,0)
;;=3^Insert Central Line,Non-Tunneled
;;^UTILITY(U,$J,358.3,24077,0)
;;=36558^^72^951^9^^^^1
;;^UTILITY(U,$J,358.3,24077,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24077,1,2,0)
;;=2^36558
;;^UTILITY(U,$J,358.3,24077,1,3,0)
;;=3^Insert Central Line,Tunneled w/o Port
;;^UTILITY(U,$J,358.3,24078,0)
;;=93503^^72^951^7^^^^1
;;^UTILITY(U,$J,358.3,24078,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24078,1,2,0)
;;=2^93503
;;^UTILITY(U,$J,358.3,24078,1,3,0)
;;=3^Insert Cath,Flow Direct,Monitoring (Swan-Ganz)
;;^UTILITY(U,$J,358.3,24079,0)
;;=94760^^72^952^2
;;^UTILITY(U,$J,358.3,24079,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24079,1,2,0)
;;=2^94760
;;^UTILITY(U,$J,358.3,24079,1,3,0)
;;=3^Ear or Pulse OX, Resting
;;^UTILITY(U,$J,358.3,24080,0)
;;=94761^^72^952^1
;;^UTILITY(U,$J,358.3,24080,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24080,1,2,0)
;;=2^94761
;;^UTILITY(U,$J,358.3,24080,1,3,0)
;;=3^Ear or Pulse OX, Exercise
;;^UTILITY(U,$J,358.3,24081,0)
;;=99183^^72^952^4^^^^1
;;^UTILITY(U,$J,358.3,24081,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24081,1,2,0)
;;=2^99183
;;^UTILITY(U,$J,358.3,24081,1,3,0)
;;=3^Hyperbaric O2 Chamber,Attend by Prof
;;^UTILITY(U,$J,358.3,24082,0)
;;=94762^^72^952^3^^^^1
;;^UTILITY(U,$J,358.3,24082,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24082,1,2,0)
;;=2^94762
;;^UTILITY(U,$J,358.3,24082,1,3,0)
;;=3^Ear or Pulse OX,Cont Overnight Monitoring
;;^UTILITY(U,$J,358.3,24083,0)
;;=94010^^72^953^11
;;^UTILITY(U,$J,358.3,24083,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24083,1,2,0)
;;=2^94010
;;^UTILITY(U,$J,358.3,24083,1,3,0)
;;=3^Spirometry/Forced Vital Capacity
;;^UTILITY(U,$J,358.3,24084,0)
;;=94060^^72^953^10
;;^UTILITY(U,$J,358.3,24084,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24084,1,2,0)
;;=2^94060
;;^UTILITY(U,$J,358.3,24084,1,3,0)
;;=3^Spirometry, pre and post bronchodilator
;;^UTILITY(U,$J,358.3,24085,0)
;;=94375^^72^953^4^^^^1
;;^UTILITY(U,$J,358.3,24085,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24085,1,2,0)
;;=2^94375
;;^UTILITY(U,$J,358.3,24085,1,3,0)
;;=3^Flow Volume Loop (included w/94010)
;;^UTILITY(U,$J,358.3,24086,0)
;;=94070^^72^953^9^^^^1
;;^UTILITY(U,$J,358.3,24086,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24086,1,2,0)
;;=2^94070
;;^UTILITY(U,$J,358.3,24086,1,3,0)
;;=3^Prolong Eval of Bronchospasm/Methacholine
;;^UTILITY(U,$J,358.3,24087,0)
;;=94200^^72^953^7^^^^1
;;^UTILITY(U,$J,358.3,24087,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24087,1,2,0)
;;=2^94200
;;^UTILITY(U,$J,358.3,24087,1,3,0)
;;=3^Max Voluntary Ventilation (included w/94010)
;;^UTILITY(U,$J,358.3,24088,0)
;;=94014^^72^953^1^^^^1
;;^UTILITY(U,$J,358.3,24088,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24088,1,2,0)
;;=2^94014
;;^UTILITY(U,$J,358.3,24088,1,3,0)
;;=3^30 day Spirometry
;;^UTILITY(U,$J,358.3,24089,0)
;;=94726^^72^953^8^^^^1
;;^UTILITY(U,$J,358.3,24089,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24089,1,2,0)
;;=2^94726
;;^UTILITY(U,$J,358.3,24089,1,3,0)
;;=3^Plethysmography for Lung Volumes
;;^UTILITY(U,$J,358.3,24090,0)
;;=94727^^72^953^5^^^^1
;;^UTILITY(U,$J,358.3,24090,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24090,1,2,0)
;;=2^94727
;;^UTILITY(U,$J,358.3,24090,1,3,0)
;;=3^Gas Dilution or Washout for Lung Volumes
;;^UTILITY(U,$J,358.3,24091,0)
;;=94728^^72^953^2^^^^1
;;^UTILITY(U,$J,358.3,24091,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24091,1,2,0)
;;=2^94728
;;^UTILITY(U,$J,358.3,24091,1,3,0)
;;=3^Airway Resistance by Impulse Oscillometry
;;^UTILITY(U,$J,358.3,24092,0)
;;=94729^^72^953^3^^^^1
;;^UTILITY(U,$J,358.3,24092,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24092,1,2,0)
;;=2^94729
;;^UTILITY(U,$J,358.3,24092,1,3,0)
;;=3^Diffusing Capacity
;;^UTILITY(U,$J,358.3,24093,0)
;;=94799^^72^953^6^^^^1
;;^UTILITY(U,$J,358.3,24093,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24093,1,2,0)
;;=2^94799
;;^UTILITY(U,$J,358.3,24093,1,3,0)
;;=3^MIP/MEP's
;;^UTILITY(U,$J,358.3,24094,0)
;;=94150^^72^953^12^^^^1
;;^UTILITY(U,$J,358.3,24094,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24094,1,2,0)
;;=2^94150
;;^UTILITY(U,$J,358.3,24094,1,3,0)
;;=3^Vital Capacity Test
;;^UTILITY(U,$J,358.3,24095,0)
;;=32400^^72^954^2^^^^1
;;^UTILITY(U,$J,358.3,24095,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24095,1,2,0)
;;=2^32400
;;^UTILITY(U,$J,358.3,24095,1,3,0)
;;=3^Pleural Biopsy
;;^UTILITY(U,$J,358.3,24096,0)
;;=32554^^72^954^7^^^^1
;;^UTILITY(U,$J,358.3,24096,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24096,1,2,0)
;;=2^32554
;;^UTILITY(U,$J,358.3,24096,1,3,0)
;;=3^Thoracentesis w/o Image Guidance
;;^UTILITY(U,$J,358.3,24097,0)
;;=32555^^72^954^6^^^^1
;;^UTILITY(U,$J,358.3,24097,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24097,1,2,0)
;;=2^32555
;;^UTILITY(U,$J,358.3,24097,1,3,0)
;;=3^Thoracentesis w/ Image Guidance
;;^UTILITY(U,$J,358.3,24098,0)
;;=32556^^72^954^4^^^^1
;;^UTILITY(U,$J,358.3,24098,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24098,1,2,0)
;;=2^32556
;;^UTILITY(U,$J,358.3,24098,1,3,0)
;;=3^Pleural Drainage Perc w/ Cath w/o Image Guidance
;;^UTILITY(U,$J,358.3,24099,0)
;;=32557^^72^954^3^^^^1
;;^UTILITY(U,$J,358.3,24099,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24099,1,2,0)
;;=2^32557
;;^UTILITY(U,$J,358.3,24099,1,3,0)
;;=3^Pleural Drainage Perc w/ Cath w/ Image Guidance
;;^UTILITY(U,$J,358.3,24100,0)
;;=32551^^72^954^1^^^^1
;;^UTILITY(U,$J,358.3,24100,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24100,1,2,0)
;;=2^32551
;;^UTILITY(U,$J,358.3,24100,1,3,0)
;;=3^Insert Chest Tube w/ Water Seal
;;^UTILITY(U,$J,358.3,24101,0)
;;=32552^^72^954^5^^^^1
;;^UTILITY(U,$J,358.3,24101,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24101,1,2,0)
;;=2^32552
;;^UTILITY(U,$J,358.3,24101,1,3,0)
;;=3^Remove Chest Tube
;;^UTILITY(U,$J,358.3,24102,0)
;;=94640^^72^955^3^^^^1
;;^UTILITY(U,$J,358.3,24102,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24102,1,2,0)
;;=2^94640
;;^UTILITY(U,$J,358.3,24102,1,3,0)
;;=3^Inhalation Treatment
;;^UTILITY(U,$J,358.3,24102,3,0)
;;=^358.33^1^1
;;^UTILITY(U,$J,358.3,24102,3,1,0)
;;=76
;;^UTILITY(U,$J,358.3,24103,0)
;;=94664^^72^955^2
;;^UTILITY(U,$J,358.3,24103,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24103,1,2,0)
;;=2^94664
;;^UTILITY(U,$J,358.3,24103,1,3,0)
;;=3^Demo/Eval Pt use of Nebulizer
;;^UTILITY(U,$J,358.3,24104,0)
;;=94667^^72^955^4
;;^UTILITY(U,$J,358.3,24104,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24104,1,2,0)
;;=2^94667
;;^UTILITY(U,$J,358.3,24104,1,3,0)
;;=3^Manipulation of Chest Wall
;;^UTILITY(U,$J,358.3,24105,0)
;;=94660^^72^955^1^^^^1
;;^UTILITY(U,$J,358.3,24105,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24105,1,2,0)
;;=2^94660
;;^UTILITY(U,$J,358.3,24105,1,3,0)
;;=3^CPAP Management
;;^UTILITY(U,$J,358.3,24106,0)
;;=94002^^72^955^7^^^^1
;;^UTILITY(U,$J,358.3,24106,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24106,1,2,0)
;;=2^94002
;;^UTILITY(U,$J,358.3,24106,1,3,0)
;;=3^Vent Mgmt,Inpt,Initial Day
;;^UTILITY(U,$J,358.3,24107,0)
;;=94003^^72^955^8^^^^1
;;^UTILITY(U,$J,358.3,24107,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24107,1,2,0)
;;=2^94003
;;^UTILITY(U,$J,358.3,24107,1,3,0)
;;=3^Vent Mgmt,Inpt,Subseq Day
;;^UTILITY(U,$J,358.3,24108,0)
;;=94005^^72^955^6^^^^1
;;^UTILITY(U,$J,358.3,24108,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24108,1,2,0)
;;=2^94005
;;^UTILITY(U,$J,358.3,24108,1,3,0)
;;=3^Vent Mgmt,Home,Dom,Rst Home>29 min
;;^UTILITY(U,$J,358.3,24109,0)
;;=99504^^72^955^5^^^^1
;;^UTILITY(U,$J,358.3,24109,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24109,1,2,0)
;;=2^99504
;;^UTILITY(U,$J,358.3,24109,1,3,0)
;;=3^Vent Mech Care,Home Visit
;;^UTILITY(U,$J,358.3,24110,0)
;;=31622^^72^956^5^^^^1
;;^UTILITY(U,$J,358.3,24110,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24110,1,2,0)
;;=2^31622
;;^UTILITY(U,$J,358.3,24110,1,3,0)
;;=3^Bronch Diag w/ Wash
;;^UTILITY(U,$J,358.3,24111,0)
;;=31623^^72^956^14^^^^1
;;^UTILITY(U,$J,358.3,24111,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24111,1,2,0)
;;=2^31623
;;^UTILITY(U,$J,358.3,24111,1,3,0)
;;=3^Bronch w/ Brushings
;;^UTILITY(U,$J,358.3,24112,0)
;;=31624^^72^956^20^^^^1
;;^UTILITY(U,$J,358.3,24112,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24112,1,2,0)
;;=2^31624
;;^UTILITY(U,$J,358.3,24112,1,3,0)
;;=3^Bronch w/ Lavage
;;^UTILITY(U,$J,358.3,24113,0)
;;=31625^^72^956^13^^^^1
;;^UTILITY(U,$J,358.3,24113,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24113,1,2,0)
;;=2^31625
;;^UTILITY(U,$J,358.3,24113,1,3,0)
;;=3^Bronch w/ Biopsy
;;^UTILITY(U,$J,358.3,24114,0)
;;=31628^^72^956^23^^^^1
;;^UTILITY(U,$J,358.3,24114,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24114,1,2,0)
;;=2^31628
;;^UTILITY(U,$J,358.3,24114,1,3,0)
;;=3^Bronch w/ Transbronch Bx
;;^UTILITY(U,$J,358.3,24115,0)
;;=31629^^72^956^24^^^^1
;;^UTILITY(U,$J,358.3,24115,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24115,1,2,0)
;;=2^31629
;;^UTILITY(U,$J,358.3,24115,1,3,0)
;;=3^Bronch w/ Transbronch Needle Aspiration
;;^UTILITY(U,$J,358.3,24116,0)
;;=31635^^72^956^19^^^^1
;;^UTILITY(U,$J,358.3,24116,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24116,1,2,0)
;;=2^31635
;;^UTILITY(U,$J,358.3,24116,1,3,0)
;;=3^Bronch w/ FB Removal
;;^UTILITY(U,$J,358.3,24117,0)
;;=31899^^72^956^1^^^^1
;;^UTILITY(U,$J,358.3,24117,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24117,1,2,0)
;;=2^31899
;;^UTILITY(U,$J,358.3,24117,1,3,0)
;;=3^Airways Surgical Procedure
;;^UTILITY(U,$J,358.3,24118,0)
;;=31630^^72^956^7^^^^1
;;^UTILITY(U,$J,358.3,24118,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24118,1,2,0)
;;=2^31630
;;^UTILITY(U,$J,358.3,24118,1,3,0)
;;=3^Bronch Dilate/Fx Repair
;;^UTILITY(U,$J,358.3,24119,0)
;;=31640^^72^956^25^^^^1
;;^UTILITY(U,$J,358.3,24119,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24119,1,2,0)
;;=2^31640
;;^UTILITY(U,$J,358.3,24119,1,3,0)
;;=3^Bronch w/ Tumor Excise
;;^UTILITY(U,$J,358.3,24120,0)
;;=31636^^72^956^2^^^^1
;;^UTILITY(U,$J,358.3,24120,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24120,1,2,0)
;;=2^31636
;;^UTILITY(U,$J,358.3,24120,1,3,0)
;;=3^Bronch Bronch Stents
;;^UTILITY(U,$J,358.3,24121,0)
;;=31643^^72^956^27^^^^1
;;^UTILITY(U,$J,358.3,24121,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24121,1,2,0)
;;=2^31643
;;^UTILITY(U,$J,358.3,24121,1,3,0)
;;=3^Diag Bronchoscope/Catheter
;;^UTILITY(U,$J,358.3,24122,0)
;;=31645^^72^956^4^^^^1
;;^UTILITY(U,$J,358.3,24122,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24122,1,2,0)
;;=2^31645
;;^UTILITY(U,$J,358.3,24122,1,3,0)
;;=3^Bronch Clear Airways
;;^UTILITY(U,$J,358.3,24123,0)
;;=31631^^72^956^6^^^^1
;;^UTILITY(U,$J,358.3,24123,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24123,1,2,0)
;;=2^31631
;;^UTILITY(U,$J,358.3,24123,1,3,0)
;;=3^Bronch Dilate w/ Stent
;;^UTILITY(U,$J,358.3,24124,0)
;;=31638^^72^956^10^^^^1
;;^UTILITY(U,$J,358.3,24124,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24124,1,2,0)
;;=2^31638
;;^UTILITY(U,$J,358.3,24124,1,3,0)
;;=3^Bronch Revise Stent
;;^UTILITY(U,$J,358.3,24125,0)
;;=31637^^72^956^3^^^^1
;;^UTILITY(U,$J,358.3,24125,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24125,1,2,0)
;;=2^31637
;;^UTILITY(U,$J,358.3,24125,1,3,0)
;;=3^Bronch Bronch Stents,Ea Addl Stent
;;^UTILITY(U,$J,358.3,24126,0)
;;=31641^^72^956^11^^^^1
;;^UTILITY(U,$J,358.3,24126,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24126,1,2,0)
;;=2^31641
;;^UTILITY(U,$J,358.3,24126,1,3,0)
;;=3^Bronch Treat Blockage
;;^UTILITY(U,$J,358.3,24127,0)
;;=31632^^72^956^8^^^^1
;;^UTILITY(U,$J,358.3,24127,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24127,1,2,0)
;;=2^31632
;;^UTILITY(U,$J,358.3,24127,1,3,0)
;;=3^Bronch Lung Bx,Ea Addl
;;^UTILITY(U,$J,358.3,24128,0)
;;=32999^^72^956^26^^^^1
;;^UTILITY(U,$J,358.3,24128,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,24128,1,2,0)
;;=2^32999
;;^UTILITY(U,$J,358.3,24128,1,3,0)
;;=3^Chest Surgery Procedure
;;^UTILITY(U,$J,358.3,24129,0)
;;=76499^^72^956^29^^^^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI09U 19786 printed Apr 09, 2024@21:21:31 Page 2
IBDEI09U ; ; 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,24050,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,24050,1,3,0)
+4 ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
+5 ;;^UTILITY(U,$J,358.3,24050,1,4,0)
+6 ;;=4^N12.
+7 ;;^UTILITY(U,$J,358.3,24050,2)
+8 ;;=^5015575
+9 ;;^UTILITY(U,$J,358.3,24051,0)
+10 ;;=N28.86^^71^948^14
+11 ;;^UTILITY(U,$J,358.3,24051,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,24051,1,3,0)
+14 ;;=3^Ureteritis Cystica
+15 ;;^UTILITY(U,$J,358.3,24051,1,4,0)
+16 ;;=4^N28.86
+17 ;;^UTILITY(U,$J,358.3,24051,2)
+18 ;;=^5015629
+19 ;;^UTILITY(U,$J,358.3,24052,0)
+20 ;;=A08.0^^71^949^6
+21 ;;^UTILITY(U,$J,358.3,24052,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,24052,1,3,0)
+24 ;;=3^Enteritis,Rotaviral
+25 ;;^UTILITY(U,$J,358.3,24052,1,4,0)
+26 ;;=4^A08.0
+27 ;;^UTILITY(U,$J,358.3,24052,2)
+28 ;;=^5000052
+29 ;;^UTILITY(U,$J,358.3,24053,0)
+30 ;;=A08.11^^71^949^1
+31 ;;^UTILITY(U,$J,358.3,24053,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,24053,1,3,0)
+34 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+35 ;;^UTILITY(U,$J,358.3,24053,1,4,0)
+36 ;;=4^A08.11
+37 ;;^UTILITY(U,$J,358.3,24053,2)
+38 ;;=^5000053
+39 ;;^UTILITY(U,$J,358.3,24054,0)
+40 ;;=A08.19^^71^949^2
+41 ;;^UTILITY(U,$J,358.3,24054,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,24054,1,3,0)
+44 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+45 ;;^UTILITY(U,$J,358.3,24054,1,4,0)
+46 ;;=4^A08.19
+47 ;;^UTILITY(U,$J,358.3,24054,2)
+48 ;;=^5000054
+49 ;;^UTILITY(U,$J,358.3,24055,0)
+50 ;;=A08.2^^71^949^3
+51 ;;^UTILITY(U,$J,358.3,24055,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,24055,1,3,0)
+54 ;;=3^Enteritis,Adenoviral
+55 ;;^UTILITY(U,$J,358.3,24055,1,4,0)
+56 ;;=4^A08.2
+57 ;;^UTILITY(U,$J,358.3,24055,2)
+58 ;;=^5000055
+59 ;;^UTILITY(U,$J,358.3,24056,0)
+60 ;;=A08.31^^71^949^5
+61 ;;^UTILITY(U,$J,358.3,24056,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,24056,1,3,0)
+64 ;;=3^Enteritis,Calicivirus
+65 ;;^UTILITY(U,$J,358.3,24056,1,4,0)
+66 ;;=4^A08.31
+67 ;;^UTILITY(U,$J,358.3,24056,2)
+68 ;;=^5000056
+69 ;;^UTILITY(U,$J,358.3,24057,0)
+70 ;;=A08.32^^71^949^4
+71 ;;^UTILITY(U,$J,358.3,24057,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,24057,1,3,0)
+74 ;;=3^Enteritis,Astrovirus
+75 ;;^UTILITY(U,$J,358.3,24057,1,4,0)
+76 ;;=4^A08.32
+77 ;;^UTILITY(U,$J,358.3,24057,2)
+78 ;;=^5000058
+79 ;;^UTILITY(U,$J,358.3,24058,0)
+80 ;;=A08.4^^71^949^8
+81 ;;^UTILITY(U,$J,358.3,24058,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,24058,1,3,0)
+84 ;;=3^Viral Intestinal Infection,Unspec
+85 ;;^UTILITY(U,$J,358.3,24058,1,4,0)
+86 ;;=4^A08.4
+87 ;;^UTILITY(U,$J,358.3,24058,2)
+88 ;;=^5000059
+89 ;;^UTILITY(U,$J,358.3,24059,0)
+90 ;;=A08.8^^71^949^7
+91 ;;^UTILITY(U,$J,358.3,24059,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,24059,1,3,0)
+94 ;;=3^Intestinal Infections,Oth Spec
+95 ;;^UTILITY(U,$J,358.3,24059,1,4,0)
+96 ;;=4^A08.8
+97 ;;^UTILITY(U,$J,358.3,24059,2)
+98 ;;=^5000060
+99 ;;^UTILITY(U,$J,358.3,24060,0)
+100 ;;=J68.0^^71^950^2
+101 ;;^UTILITY(U,$J,358.3,24060,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,24060,1,3,0)
+104 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
+105 ;;^UTILITY(U,$J,358.3,24060,1,4,0)
+106 ;;=4^J68.0
+107 ;;^UTILITY(U,$J,358.3,24060,2)
+108 ;;=^5008281
+109 ;;^UTILITY(U,$J,358.3,24061,0)
+110 ;;=J69.1^^71^950^7
+111 ;;^UTILITY(U,$J,358.3,24061,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,24061,1,3,0)
+114 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
+115 ;;^UTILITY(U,$J,358.3,24061,1,4,0)
+116 ;;=4^J69.1
+117 ;;^UTILITY(U,$J,358.3,24061,2)
+118 ;;=^95664
+119 ;;^UTILITY(U,$J,358.3,24062,0)
+120 ;;=J68.9^^71^950^9
+121 ;;^UTILITY(U,$J,358.3,24062,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,24062,1,3,0)
+124 ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
+125 ;;^UTILITY(U,$J,358.3,24062,1,4,0)
+126 ;;=4^J68.9
+127 ;;^UTILITY(U,$J,358.3,24062,2)
+128 ;;=^5008287
+129 ;;^UTILITY(U,$J,358.3,24063,0)
+130 ;;=J84.114^^71^950^1
+131 ;;^UTILITY(U,$J,358.3,24063,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,24063,1,3,0)
+134 ;;=3^Acute Interstitial Pneumonitis
+135 ;;^UTILITY(U,$J,358.3,24063,1,4,0)
+136 ;;=4^J84.114
+137 ;;^UTILITY(U,$J,358.3,24063,2)
+138 ;;=^340536
+139 ;;^UTILITY(U,$J,358.3,24064,0)
+140 ;;=J84.89^^71^950^6
+141 ;;^UTILITY(U,$J,358.3,24064,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,24064,1,3,0)
+144 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
+145 ;;^UTILITY(U,$J,358.3,24064,1,4,0)
+146 ;;=4^J84.89
+147 ;;^UTILITY(U,$J,358.3,24064,2)
+148 ;;=^5008303
+149 ;;^UTILITY(U,$J,358.3,24065,0)
+150 ;;=J82.81^^71^950^5
+151 ;;^UTILITY(U,$J,358.3,24065,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,24065,1,3,0)
+154 ;;=3^Eosinophilic Pneumonia,Chronic
+155 ;;^UTILITY(U,$J,358.3,24065,1,4,0)
+156 ;;=4^J82.81
+157 ;;^UTILITY(U,$J,358.3,24065,2)
+158 ;;=^24374
+159 ;;^UTILITY(U,$J,358.3,24066,0)
+160 ;;=J82.82^^71^950^4
+161 ;;^UTILITY(U,$J,358.3,24066,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,24066,1,3,0)
+164 ;;=3^Eosinophilic Pneumonia,Acute
+165 ;;^UTILITY(U,$J,358.3,24066,1,4,0)
+166 ;;=4^J82.82
+167 ;;^UTILITY(U,$J,358.3,24066,2)
+168 ;;=^5159205
+169 ;;^UTILITY(U,$J,358.3,24067,0)
+170 ;;=J82.83^^71^950^3
+171 ;;^UTILITY(U,$J,358.3,24067,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,24067,1,3,0)
+174 ;;=3^Eosinophilic Asthma
+175 ;;^UTILITY(U,$J,358.3,24067,1,4,0)
+176 ;;=4^J82.83
+177 ;;^UTILITY(U,$J,358.3,24067,2)
+178 ;;=^5159206
+179 ;;^UTILITY(U,$J,358.3,24068,0)
+180 ;;=J82.89^^71^950^8
+181 ;;^UTILITY(U,$J,358.3,24068,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,24068,1,3,0)
+184 ;;=3^Pulmonary Eosinophilia,Other,NEC
+185 ;;^UTILITY(U,$J,358.3,24068,1,4,0)
+186 ;;=4^J82.89
+187 ;;^UTILITY(U,$J,358.3,24068,2)
+188 ;;=^5159207
+189 ;;^UTILITY(U,$J,358.3,24069,0)
+190 ;;=36600^^72^951^2
+191 ;;^UTILITY(U,$J,358.3,24069,1,0)
+192 ;;=^358.31IA^3^2
+193 ;;^UTILITY(U,$J,358.3,24069,1,2,0)
+194 ;;=2^36600
+195 ;;^UTILITY(U,$J,358.3,24069,1,3,0)
+196 ;;=3^ABG
+197 ;;^UTILITY(U,$J,358.3,24070,0)
+198 ;;=36620^^72^951^1
+199 ;;^UTILITY(U,$J,358.3,24070,1,0)
+200 ;;=^358.31IA^3^2
+201 ;;^UTILITY(U,$J,358.3,24070,1,2,0)
+202 ;;=2^36620
+203 ;;^UTILITY(U,$J,358.3,24070,1,3,0)
+204 ;;=3^A-Line
+205 ;;^UTILITY(U,$J,358.3,24071,0)
+206 ;;=36415^^72^951^10
+207 ;;^UTILITY(U,$J,358.3,24071,1,0)
+208 ;;=^358.31IA^3^2
+209 ;;^UTILITY(U,$J,358.3,24071,1,2,0)
+210 ;;=2^36415
+211 ;;^UTILITY(U,$J,358.3,24071,1,3,0)
+212 ;;=3^Venous Puncture
+213 ;;^UTILITY(U,$J,358.3,24072,0)
+214 ;;=36000^^72^951^6
+215 ;;^UTILITY(U,$J,358.3,24072,1,0)
+216 ;;=^358.31IA^3^2
+217 ;;^UTILITY(U,$J,358.3,24072,1,2,0)
+218 ;;=2^36000
+219 ;;^UTILITY(U,$J,358.3,24072,1,3,0)
+220 ;;=3^Hep Lock w/o IV Infusion
+221 ;;^UTILITY(U,$J,358.3,24073,0)
+222 ;;=82803^^72^951^3^^^^1
+223 ;;^UTILITY(U,$J,358.3,24073,1,0)
+224 ;;=^358.31IA^3^2
+225 ;;^UTILITY(U,$J,358.3,24073,1,2,0)
+226 ;;=2^82803
+227 ;;^UTILITY(U,$J,358.3,24073,1,3,0)
+228 ;;=3^ABG Analyzed, pO2, pCO2, HCO3
+229 ;;^UTILITY(U,$J,358.3,24074,0)
+230 ;;=82805^^72^951^4^^^^1
+231 ;;^UTILITY(U,$J,358.3,24074,1,0)
+232 ;;=^358.31IA^3^2
+233 ;;^UTILITY(U,$J,358.3,24074,1,2,0)
+234 ;;=2^82805
+235 ;;^UTILITY(U,$J,358.3,24074,1,3,0)
+236 ;;=3^Arterial O2 Saturation
+237 ;;^UTILITY(U,$J,358.3,24075,0)
+238 ;;=82375^^72^951^5^^^^1
+239 ;;^UTILITY(U,$J,358.3,24075,1,0)
+240 ;;=^358.31IA^3^2
+241 ;;^UTILITY(U,$J,358.3,24075,1,2,0)
+242 ;;=2^82375
+243 ;;^UTILITY(U,$J,358.3,24075,1,3,0)
+244 ;;=3^Blood Gas, CO analysis
+245 ;;^UTILITY(U,$J,358.3,24076,0)
+246 ;;=36556^^72^951^8^^^^1
+247 ;;^UTILITY(U,$J,358.3,24076,1,0)
+248 ;;=^358.31IA^3^2
+249 ;;^UTILITY(U,$J,358.3,24076,1,2,0)
+250 ;;=2^36556
+251 ;;^UTILITY(U,$J,358.3,24076,1,3,0)
+252 ;;=3^Insert Central Line,Non-Tunneled
+253 ;;^UTILITY(U,$J,358.3,24077,0)
+254 ;;=36558^^72^951^9^^^^1
+255 ;;^UTILITY(U,$J,358.3,24077,1,0)
+256 ;;=^358.31IA^3^2
+257 ;;^UTILITY(U,$J,358.3,24077,1,2,0)
+258 ;;=2^36558
+259 ;;^UTILITY(U,$J,358.3,24077,1,3,0)
+260 ;;=3^Insert Central Line,Tunneled w/o Port
+261 ;;^UTILITY(U,$J,358.3,24078,0)
+262 ;;=93503^^72^951^7^^^^1
+263 ;;^UTILITY(U,$J,358.3,24078,1,0)
+264 ;;=^358.31IA^3^2
+265 ;;^UTILITY(U,$J,358.3,24078,1,2,0)
+266 ;;=2^93503
+267 ;;^UTILITY(U,$J,358.3,24078,1,3,0)
+268 ;;=3^Insert Cath,Flow Direct,Monitoring (Swan-Ganz)
+269 ;;^UTILITY(U,$J,358.3,24079,0)
+270 ;;=94760^^72^952^2
+271 ;;^UTILITY(U,$J,358.3,24079,1,0)
+272 ;;=^358.31IA^3^2
+273 ;;^UTILITY(U,$J,358.3,24079,1,2,0)
+274 ;;=2^94760
+275 ;;^UTILITY(U,$J,358.3,24079,1,3,0)
+276 ;;=3^Ear or Pulse OX, Resting
+277 ;;^UTILITY(U,$J,358.3,24080,0)
+278 ;;=94761^^72^952^1
+279 ;;^UTILITY(U,$J,358.3,24080,1,0)
+280 ;;=^358.31IA^3^2
+281 ;;^UTILITY(U,$J,358.3,24080,1,2,0)
+282 ;;=2^94761
+283 ;;^UTILITY(U,$J,358.3,24080,1,3,0)
+284 ;;=3^Ear or Pulse OX, Exercise
+285 ;;^UTILITY(U,$J,358.3,24081,0)
+286 ;;=99183^^72^952^4^^^^1
+287 ;;^UTILITY(U,$J,358.3,24081,1,0)
+288 ;;=^358.31IA^3^2
+289 ;;^UTILITY(U,$J,358.3,24081,1,2,0)
+290 ;;=2^99183
+291 ;;^UTILITY(U,$J,358.3,24081,1,3,0)
+292 ;;=3^Hyperbaric O2 Chamber,Attend by Prof
+293 ;;^UTILITY(U,$J,358.3,24082,0)
+294 ;;=94762^^72^952^3^^^^1
+295 ;;^UTILITY(U,$J,358.3,24082,1,0)
+296 ;;=^358.31IA^3^2
+297 ;;^UTILITY(U,$J,358.3,24082,1,2,0)
+298 ;;=2^94762
+299 ;;^UTILITY(U,$J,358.3,24082,1,3,0)
+300 ;;=3^Ear or Pulse OX,Cont Overnight Monitoring
+301 ;;^UTILITY(U,$J,358.3,24083,0)
+302 ;;=94010^^72^953^11
+303 ;;^UTILITY(U,$J,358.3,24083,1,0)
+304 ;;=^358.31IA^3^2
+305 ;;^UTILITY(U,$J,358.3,24083,1,2,0)
+306 ;;=2^94010
+307 ;;^UTILITY(U,$J,358.3,24083,1,3,0)
+308 ;;=3^Spirometry/Forced Vital Capacity
+309 ;;^UTILITY(U,$J,358.3,24084,0)
+310 ;;=94060^^72^953^10
+311 ;;^UTILITY(U,$J,358.3,24084,1,0)
+312 ;;=^358.31IA^3^2
+313 ;;^UTILITY(U,$J,358.3,24084,1,2,0)
+314 ;;=2^94060
+315 ;;^UTILITY(U,$J,358.3,24084,1,3,0)
+316 ;;=3^Spirometry, pre and post bronchodilator
+317 ;;^UTILITY(U,$J,358.3,24085,0)
+318 ;;=94375^^72^953^4^^^^1
+319 ;;^UTILITY(U,$J,358.3,24085,1,0)
+320 ;;=^358.31IA^3^2
+321 ;;^UTILITY(U,$J,358.3,24085,1,2,0)
+322 ;;=2^94375
+323 ;;^UTILITY(U,$J,358.3,24085,1,3,0)
+324 ;;=3^Flow Volume Loop (included w/94010)
+325 ;;^UTILITY(U,$J,358.3,24086,0)
+326 ;;=94070^^72^953^9^^^^1
+327 ;;^UTILITY(U,$J,358.3,24086,1,0)
+328 ;;=^358.31IA^3^2
+329 ;;^UTILITY(U,$J,358.3,24086,1,2,0)
+330 ;;=2^94070
+331 ;;^UTILITY(U,$J,358.3,24086,1,3,0)
+332 ;;=3^Prolong Eval of Bronchospasm/Methacholine
+333 ;;^UTILITY(U,$J,358.3,24087,0)
+334 ;;=94200^^72^953^7^^^^1
+335 ;;^UTILITY(U,$J,358.3,24087,1,0)
+336 ;;=^358.31IA^3^2
+337 ;;^UTILITY(U,$J,358.3,24087,1,2,0)
+338 ;;=2^94200
+339 ;;^UTILITY(U,$J,358.3,24087,1,3,0)
+340 ;;=3^Max Voluntary Ventilation (included w/94010)
+341 ;;^UTILITY(U,$J,358.3,24088,0)
+342 ;;=94014^^72^953^1^^^^1
+343 ;;^UTILITY(U,$J,358.3,24088,1,0)
+344 ;;=^358.31IA^3^2
+345 ;;^UTILITY(U,$J,358.3,24088,1,2,0)
+346 ;;=2^94014
+347 ;;^UTILITY(U,$J,358.3,24088,1,3,0)
+348 ;;=3^30 day Spirometry
+349 ;;^UTILITY(U,$J,358.3,24089,0)
+350 ;;=94726^^72^953^8^^^^1
+351 ;;^UTILITY(U,$J,358.3,24089,1,0)
+352 ;;=^358.31IA^3^2
+353 ;;^UTILITY(U,$J,358.3,24089,1,2,0)
+354 ;;=2^94726
+355 ;;^UTILITY(U,$J,358.3,24089,1,3,0)
+356 ;;=3^Plethysmography for Lung Volumes
+357 ;;^UTILITY(U,$J,358.3,24090,0)
+358 ;;=94727^^72^953^5^^^^1
+359 ;;^UTILITY(U,$J,358.3,24090,1,0)
+360 ;;=^358.31IA^3^2
+361 ;;^UTILITY(U,$J,358.3,24090,1,2,0)
+362 ;;=2^94727
+363 ;;^UTILITY(U,$J,358.3,24090,1,3,0)
+364 ;;=3^Gas Dilution or Washout for Lung Volumes
+365 ;;^UTILITY(U,$J,358.3,24091,0)
+366 ;;=94728^^72^953^2^^^^1
+367 ;;^UTILITY(U,$J,358.3,24091,1,0)
+368 ;;=^358.31IA^3^2
+369 ;;^UTILITY(U,$J,358.3,24091,1,2,0)
+370 ;;=2^94728
+371 ;;^UTILITY(U,$J,358.3,24091,1,3,0)
+372 ;;=3^Airway Resistance by Impulse Oscillometry
+373 ;;^UTILITY(U,$J,358.3,24092,0)
+374 ;;=94729^^72^953^3^^^^1
+375 ;;^UTILITY(U,$J,358.3,24092,1,0)
+376 ;;=^358.31IA^3^2
+377 ;;^UTILITY(U,$J,358.3,24092,1,2,0)
+378 ;;=2^94729
+379 ;;^UTILITY(U,$J,358.3,24092,1,3,0)
+380 ;;=3^Diffusing Capacity
+381 ;;^UTILITY(U,$J,358.3,24093,0)
+382 ;;=94799^^72^953^6^^^^1
+383 ;;^UTILITY(U,$J,358.3,24093,1,0)
+384 ;;=^358.31IA^3^2
+385 ;;^UTILITY(U,$J,358.3,24093,1,2,0)
+386 ;;=2^94799
+387 ;;^UTILITY(U,$J,358.3,24093,1,3,0)
+388 ;;=3^MIP/MEP's
+389 ;;^UTILITY(U,$J,358.3,24094,0)
+390 ;;=94150^^72^953^12^^^^1
+391 ;;^UTILITY(U,$J,358.3,24094,1,0)
+392 ;;=^358.31IA^3^2
+393 ;;^UTILITY(U,$J,358.3,24094,1,2,0)
+394 ;;=2^94150
+395 ;;^UTILITY(U,$J,358.3,24094,1,3,0)
+396 ;;=3^Vital Capacity Test
+397 ;;^UTILITY(U,$J,358.3,24095,0)
+398 ;;=32400^^72^954^2^^^^1
+399 ;;^UTILITY(U,$J,358.3,24095,1,0)
+400 ;;=^358.31IA^3^2
+401 ;;^UTILITY(U,$J,358.3,24095,1,2,0)
+402 ;;=2^32400
+403 ;;^UTILITY(U,$J,358.3,24095,1,3,0)
+404 ;;=3^Pleural Biopsy
+405 ;;^UTILITY(U,$J,358.3,24096,0)
+406 ;;=32554^^72^954^7^^^^1
+407 ;;^UTILITY(U,$J,358.3,24096,1,0)
+408 ;;=^358.31IA^3^2
+409 ;;^UTILITY(U,$J,358.3,24096,1,2,0)
+410 ;;=2^32554
+411 ;;^UTILITY(U,$J,358.3,24096,1,3,0)
+412 ;;=3^Thoracentesis w/o Image Guidance
+413 ;;^UTILITY(U,$J,358.3,24097,0)
+414 ;;=32555^^72^954^6^^^^1
+415 ;;^UTILITY(U,$J,358.3,24097,1,0)
+416 ;;=^358.31IA^3^2
+417 ;;^UTILITY(U,$J,358.3,24097,1,2,0)
+418 ;;=2^32555
+419 ;;^UTILITY(U,$J,358.3,24097,1,3,0)
+420 ;;=3^Thoracentesis w/ Image Guidance
+421 ;;^UTILITY(U,$J,358.3,24098,0)
+422 ;;=32556^^72^954^4^^^^1
+423 ;;^UTILITY(U,$J,358.3,24098,1,0)
+424 ;;=^358.31IA^3^2
+425 ;;^UTILITY(U,$J,358.3,24098,1,2,0)
+426 ;;=2^32556
+427 ;;^UTILITY(U,$J,358.3,24098,1,3,0)
+428 ;;=3^Pleural Drainage Perc w/ Cath w/o Image Guidance
+429 ;;^UTILITY(U,$J,358.3,24099,0)
+430 ;;=32557^^72^954^3^^^^1
+431 ;;^UTILITY(U,$J,358.3,24099,1,0)
+432 ;;=^358.31IA^3^2
+433 ;;^UTILITY(U,$J,358.3,24099,1,2,0)
+434 ;;=2^32557
+435 ;;^UTILITY(U,$J,358.3,24099,1,3,0)
+436 ;;=3^Pleural Drainage Perc w/ Cath w/ Image Guidance
+437 ;;^UTILITY(U,$J,358.3,24100,0)
+438 ;;=32551^^72^954^1^^^^1
+439 ;;^UTILITY(U,$J,358.3,24100,1,0)
+440 ;;=^358.31IA^3^2
+441 ;;^UTILITY(U,$J,358.3,24100,1,2,0)
+442 ;;=2^32551
+443 ;;^UTILITY(U,$J,358.3,24100,1,3,0)
+444 ;;=3^Insert Chest Tube w/ Water Seal
+445 ;;^UTILITY(U,$J,358.3,24101,0)
+446 ;;=32552^^72^954^5^^^^1
+447 ;;^UTILITY(U,$J,358.3,24101,1,0)
+448 ;;=^358.31IA^3^2
+449 ;;^UTILITY(U,$J,358.3,24101,1,2,0)
+450 ;;=2^32552
+451 ;;^UTILITY(U,$J,358.3,24101,1,3,0)
+452 ;;=3^Remove Chest Tube
+453 ;;^UTILITY(U,$J,358.3,24102,0)
+454 ;;=94640^^72^955^3^^^^1
+455 ;;^UTILITY(U,$J,358.3,24102,1,0)
+456 ;;=^358.31IA^3^2
+457 ;;^UTILITY(U,$J,358.3,24102,1,2,0)
+458 ;;=2^94640
+459 ;;^UTILITY(U,$J,358.3,24102,1,3,0)
+460 ;;=3^Inhalation Treatment
+461 ;;^UTILITY(U,$J,358.3,24102,3,0)
+462 ;;=^358.33^1^1
+463 ;;^UTILITY(U,$J,358.3,24102,3,1,0)
+464 ;;=76
+465 ;;^UTILITY(U,$J,358.3,24103,0)
+466 ;;=94664^^72^955^2
+467 ;;^UTILITY(U,$J,358.3,24103,1,0)
+468 ;;=^358.31IA^3^2
+469 ;;^UTILITY(U,$J,358.3,24103,1,2,0)
+470 ;;=2^94664
+471 ;;^UTILITY(U,$J,358.3,24103,1,3,0)
+472 ;;=3^Demo/Eval Pt use of Nebulizer
+473 ;;^UTILITY(U,$J,358.3,24104,0)
+474 ;;=94667^^72^955^4
+475 ;;^UTILITY(U,$J,358.3,24104,1,0)
+476 ;;=^358.31IA^3^2
+477 ;;^UTILITY(U,$J,358.3,24104,1,2,0)
+478 ;;=2^94667
+479 ;;^UTILITY(U,$J,358.3,24104,1,3,0)
+480 ;;=3^Manipulation of Chest Wall
+481 ;;^UTILITY(U,$J,358.3,24105,0)
+482 ;;=94660^^72^955^1^^^^1
+483 ;;^UTILITY(U,$J,358.3,24105,1,0)
+484 ;;=^358.31IA^3^2
+485 ;;^UTILITY(U,$J,358.3,24105,1,2,0)
+486 ;;=2^94660
+487 ;;^UTILITY(U,$J,358.3,24105,1,3,0)
+488 ;;=3^CPAP Management
+489 ;;^UTILITY(U,$J,358.3,24106,0)
+490 ;;=94002^^72^955^7^^^^1
+491 ;;^UTILITY(U,$J,358.3,24106,1,0)
+492 ;;=^358.31IA^3^2
+493 ;;^UTILITY(U,$J,358.3,24106,1,2,0)
+494 ;;=2^94002
+495 ;;^UTILITY(U,$J,358.3,24106,1,3,0)
+496 ;;=3^Vent Mgmt,Inpt,Initial Day
+497 ;;^UTILITY(U,$J,358.3,24107,0)
+498 ;;=94003^^72^955^8^^^^1
+499 ;;^UTILITY(U,$J,358.3,24107,1,0)
+500 ;;=^358.31IA^3^2
+501 ;;^UTILITY(U,$J,358.3,24107,1,2,0)
+502 ;;=2^94003
+503 ;;^UTILITY(U,$J,358.3,24107,1,3,0)
+504 ;;=3^Vent Mgmt,Inpt,Subseq Day
+505 ;;^UTILITY(U,$J,358.3,24108,0)
+506 ;;=94005^^72^955^6^^^^1
+507 ;;^UTILITY(U,$J,358.3,24108,1,0)
+508 ;;=^358.31IA^3^2
+509 ;;^UTILITY(U,$J,358.3,24108,1,2,0)
+510 ;;=2^94005
+511 ;;^UTILITY(U,$J,358.3,24108,1,3,0)
+512 ;;=3^Vent Mgmt,Home,Dom,Rst Home>29 min
+513 ;;^UTILITY(U,$J,358.3,24109,0)
+514 ;;=99504^^72^955^5^^^^1
+515 ;;^UTILITY(U,$J,358.3,24109,1,0)
+516 ;;=^358.31IA^3^2
+517 ;;^UTILITY(U,$J,358.3,24109,1,2,0)
+518 ;;=2^99504
+519 ;;^UTILITY(U,$J,358.3,24109,1,3,0)
+520 ;;=3^Vent Mech Care,Home Visit
+521 ;;^UTILITY(U,$J,358.3,24110,0)
+522 ;;=31622^^72^956^5^^^^1
+523 ;;^UTILITY(U,$J,358.3,24110,1,0)
+524 ;;=^358.31IA^3^2
+525 ;;^UTILITY(U,$J,358.3,24110,1,2,0)
+526 ;;=2^31622
+527 ;;^UTILITY(U,$J,358.3,24110,1,3,0)
+528 ;;=3^Bronch Diag w/ Wash
+529 ;;^UTILITY(U,$J,358.3,24111,0)
+530 ;;=31623^^72^956^14^^^^1
+531 ;;^UTILITY(U,$J,358.3,24111,1,0)
+532 ;;=^358.31IA^3^2
+533 ;;^UTILITY(U,$J,358.3,24111,1,2,0)
+534 ;;=2^31623
+535 ;;^UTILITY(U,$J,358.3,24111,1,3,0)
+536 ;;=3^Bronch w/ Brushings
+537 ;;^UTILITY(U,$J,358.3,24112,0)
+538 ;;=31624^^72^956^20^^^^1
+539 ;;^UTILITY(U,$J,358.3,24112,1,0)
+540 ;;=^358.31IA^3^2
+541 ;;^UTILITY(U,$J,358.3,24112,1,2,0)
+542 ;;=2^31624
+543 ;;^UTILITY(U,$J,358.3,24112,1,3,0)
+544 ;;=3^Bronch w/ Lavage
+545 ;;^UTILITY(U,$J,358.3,24113,0)
+546 ;;=31625^^72^956^13^^^^1
+547 ;;^UTILITY(U,$J,358.3,24113,1,0)
+548 ;;=^358.31IA^3^2
+549 ;;^UTILITY(U,$J,358.3,24113,1,2,0)
+550 ;;=2^31625
+551 ;;^UTILITY(U,$J,358.3,24113,1,3,0)
+552 ;;=3^Bronch w/ Biopsy
+553 ;;^UTILITY(U,$J,358.3,24114,0)
+554 ;;=31628^^72^956^23^^^^1
+555 ;;^UTILITY(U,$J,358.3,24114,1,0)
+556 ;;=^358.31IA^3^2
+557 ;;^UTILITY(U,$J,358.3,24114,1,2,0)
+558 ;;=2^31628
+559 ;;^UTILITY(U,$J,358.3,24114,1,3,0)
+560 ;;=3^Bronch w/ Transbronch Bx
+561 ;;^UTILITY(U,$J,358.3,24115,0)
+562 ;;=31629^^72^956^24^^^^1
+563 ;;^UTILITY(U,$J,358.3,24115,1,0)
+564 ;;=^358.31IA^3^2
+565 ;;^UTILITY(U,$J,358.3,24115,1,2,0)
+566 ;;=2^31629
+567 ;;^UTILITY(U,$J,358.3,24115,1,3,0)
+568 ;;=3^Bronch w/ Transbronch Needle Aspiration
+569 ;;^UTILITY(U,$J,358.3,24116,0)
+570 ;;=31635^^72^956^19^^^^1
+571 ;;^UTILITY(U,$J,358.3,24116,1,0)
+572 ;;=^358.31IA^3^2
+573 ;;^UTILITY(U,$J,358.3,24116,1,2,0)
+574 ;;=2^31635
+575 ;;^UTILITY(U,$J,358.3,24116,1,3,0)
+576 ;;=3^Bronch w/ FB Removal
+577 ;;^UTILITY(U,$J,358.3,24117,0)
+578 ;;=31899^^72^956^1^^^^1
+579 ;;^UTILITY(U,$J,358.3,24117,1,0)
+580 ;;=^358.31IA^3^2
+581 ;;^UTILITY(U,$J,358.3,24117,1,2,0)
+582 ;;=2^31899
+583 ;;^UTILITY(U,$J,358.3,24117,1,3,0)
+584 ;;=3^Airways Surgical Procedure
+585 ;;^UTILITY(U,$J,358.3,24118,0)
+586 ;;=31630^^72^956^7^^^^1
+587 ;;^UTILITY(U,$J,358.3,24118,1,0)
+588 ;;=^358.31IA^3^2
+589 ;;^UTILITY(U,$J,358.3,24118,1,2,0)
+590 ;;=2^31630
+591 ;;^UTILITY(U,$J,358.3,24118,1,3,0)
+592 ;;=3^Bronch Dilate/Fx Repair
+593 ;;^UTILITY(U,$J,358.3,24119,0)
+594 ;;=31640^^72^956^25^^^^1
+595 ;;^UTILITY(U,$J,358.3,24119,1,0)
+596 ;;=^358.31IA^3^2
+597 ;;^UTILITY(U,$J,358.3,24119,1,2,0)
+598 ;;=2^31640
+599 ;;^UTILITY(U,$J,358.3,24119,1,3,0)
+600 ;;=3^Bronch w/ Tumor Excise
+601 ;;^UTILITY(U,$J,358.3,24120,0)
+602 ;;=31636^^72^956^2^^^^1
+603 ;;^UTILITY(U,$J,358.3,24120,1,0)
+604 ;;=^358.31IA^3^2
+605 ;;^UTILITY(U,$J,358.3,24120,1,2,0)
+606 ;;=2^31636
+607 ;;^UTILITY(U,$J,358.3,24120,1,3,0)
+608 ;;=3^Bronch Bronch Stents
+609 ;;^UTILITY(U,$J,358.3,24121,0)
+610 ;;=31643^^72^956^27^^^^1
+611 ;;^UTILITY(U,$J,358.3,24121,1,0)
+612 ;;=^358.31IA^3^2
+613 ;;^UTILITY(U,$J,358.3,24121,1,2,0)
+614 ;;=2^31643
+615 ;;^UTILITY(U,$J,358.3,24121,1,3,0)
+616 ;;=3^Diag Bronchoscope/Catheter
+617 ;;^UTILITY(U,$J,358.3,24122,0)
+618 ;;=31645^^72^956^4^^^^1
+619 ;;^UTILITY(U,$J,358.3,24122,1,0)
+620 ;;=^358.31IA^3^2
+621 ;;^UTILITY(U,$J,358.3,24122,1,2,0)
+622 ;;=2^31645
+623 ;;^UTILITY(U,$J,358.3,24122,1,3,0)
+624 ;;=3^Bronch Clear Airways
+625 ;;^UTILITY(U,$J,358.3,24123,0)
+626 ;;=31631^^72^956^6^^^^1
+627 ;;^UTILITY(U,$J,358.3,24123,1,0)
+628 ;;=^358.31IA^3^2
+629 ;;^UTILITY(U,$J,358.3,24123,1,2,0)
+630 ;;=2^31631
+631 ;;^UTILITY(U,$J,358.3,24123,1,3,0)
+632 ;;=3^Bronch Dilate w/ Stent
+633 ;;^UTILITY(U,$J,358.3,24124,0)
+634 ;;=31638^^72^956^10^^^^1
+635 ;;^UTILITY(U,$J,358.3,24124,1,0)
+636 ;;=^358.31IA^3^2
+637 ;;^UTILITY(U,$J,358.3,24124,1,2,0)
+638 ;;=2^31638
+639 ;;^UTILITY(U,$J,358.3,24124,1,3,0)
+640 ;;=3^Bronch Revise Stent
+641 ;;^UTILITY(U,$J,358.3,24125,0)
+642 ;;=31637^^72^956^3^^^^1
+643 ;;^UTILITY(U,$J,358.3,24125,1,0)
+644 ;;=^358.31IA^3^2
+645 ;;^UTILITY(U,$J,358.3,24125,1,2,0)
+646 ;;=2^31637
+647 ;;^UTILITY(U,$J,358.3,24125,1,3,0)
+648 ;;=3^Bronch Bronch Stents,Ea Addl Stent
+649 ;;^UTILITY(U,$J,358.3,24126,0)
+650 ;;=31641^^72^956^11^^^^1
+651 ;;^UTILITY(U,$J,358.3,24126,1,0)
+652 ;;=^358.31IA^3^2
+653 ;;^UTILITY(U,$J,358.3,24126,1,2,0)
+654 ;;=2^31641
+655 ;;^UTILITY(U,$J,358.3,24126,1,3,0)
+656 ;;=3^Bronch Treat Blockage
+657 ;;^UTILITY(U,$J,358.3,24127,0)
+658 ;;=31632^^72^956^8^^^^1
+659 ;;^UTILITY(U,$J,358.3,24127,1,0)
+660 ;;=^358.31IA^3^2
+661 ;;^UTILITY(U,$J,358.3,24127,1,2,0)
+662 ;;=2^31632
+663 ;;^UTILITY(U,$J,358.3,24127,1,3,0)
+664 ;;=3^Bronch Lung Bx,Ea Addl
+665 ;;^UTILITY(U,$J,358.3,24128,0)
+666 ;;=32999^^72^956^26^^^^1
+667 ;;^UTILITY(U,$J,358.3,24128,1,0)
+668 ;;=^358.31IA^3^2
+669 ;;^UTILITY(U,$J,358.3,24128,1,2,0)
+670 ;;=2^32999
+671 ;;^UTILITY(U,$J,358.3,24128,1,3,0)
+672 ;;=3^Chest Surgery Procedure
+673 ;;^UTILITY(U,$J,358.3,24129,0)
+674 ;;=76499^^72^956^29^^^^1
