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

IBDEI016.m

Go to the documentation of this file.
IBDEI016 ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,1851,1,4,0)
 ;;=4^C78.1
 ;;^UTILITY(U,$J,358.3,1851,2)
 ;;=^267323
 ;;^UTILITY(U,$J,358.3,1852,0)
 ;;=C78.2^^19^144^7
 ;;^UTILITY(U,$J,358.3,1852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1852,1,3,0)
 ;;=3^Secondary Malig Neop of Pleura
 ;;^UTILITY(U,$J,358.3,1852,1,4,0)
 ;;=4^C78.2
 ;;^UTILITY(U,$J,358.3,1852,2)
 ;;=^267324
 ;;^UTILITY(U,$J,358.3,1853,0)
 ;;=C78.30^^19^144^8
 ;;^UTILITY(U,$J,358.3,1853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1853,1,3,0)
 ;;=3^Secondary Malig Neop of Respiratory Organ,Unspec
 ;;^UTILITY(U,$J,358.3,1853,1,4,0)
 ;;=4^C78.30
 ;;^UTILITY(U,$J,358.3,1853,2)
 ;;=^5001337
 ;;^UTILITY(U,$J,358.3,1854,0)
 ;;=C78.39^^19^144^9
 ;;^UTILITY(U,$J,358.3,1854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1854,1,3,0)
 ;;=3^Secondary Malig Neop of Respiratory Organs NEC
 ;;^UTILITY(U,$J,358.3,1854,1,4,0)
 ;;=4^C78.39
 ;;^UTILITY(U,$J,358.3,1854,2)
 ;;=^267325
 ;;^UTILITY(U,$J,358.3,1855,0)
 ;;=C78.4^^19^144^12
 ;;^UTILITY(U,$J,358.3,1855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1855,1,3,0)
 ;;=3^Secondary Malig Neop of Small Intestine
 ;;^UTILITY(U,$J,358.3,1855,1,4,0)
 ;;=4^C78.4
 ;;^UTILITY(U,$J,358.3,1855,2)
 ;;=^5001338
 ;;^UTILITY(U,$J,358.3,1856,0)
 ;;=C78.5^^19^144^3
 ;;^UTILITY(U,$J,358.3,1856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1856,1,3,0)
 ;;=3^Secondary Malig Neop of Large Intestine/Rectum
 ;;^UTILITY(U,$J,358.3,1856,1,4,0)
 ;;=4^C78.5
 ;;^UTILITY(U,$J,358.3,1856,2)
 ;;=^267327
 ;;^UTILITY(U,$J,358.3,1857,0)
 ;;=C78.6^^19^144^10
 ;;^UTILITY(U,$J,358.3,1857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1857,1,3,0)
 ;;=3^Secondary Malig Neop of Retroperitoneum/Peritoneum
 ;;^UTILITY(U,$J,358.3,1857,1,4,0)
 ;;=4^C78.6
 ;;^UTILITY(U,$J,358.3,1857,2)
 ;;=^108899
 ;;^UTILITY(U,$J,358.3,1858,0)
 ;;=C78.7^^19^144^5
 ;;^UTILITY(U,$J,358.3,1858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1858,1,3,0)
 ;;=3^Secondary Malig Neop of Liver/Intrahepatic Bile Duct
 ;;^UTILITY(U,$J,358.3,1858,1,4,0)
 ;;=4^C78.7
 ;;^UTILITY(U,$J,358.3,1858,2)
 ;;=^5001339
 ;;^UTILITY(U,$J,358.3,1859,0)
 ;;=C78.80^^19^144^1
 ;;^UTILITY(U,$J,358.3,1859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1859,1,3,0)
 ;;=3^Secondary Malig Neop of Digestive Organ,Unspec
 ;;^UTILITY(U,$J,358.3,1859,1,4,0)
 ;;=4^C78.80
 ;;^UTILITY(U,$J,358.3,1859,2)
 ;;=^5001340
 ;;^UTILITY(U,$J,358.3,1860,0)
 ;;=C78.89^^19^144^2
 ;;^UTILITY(U,$J,358.3,1860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1860,1,3,0)
 ;;=3^Secondary Malig Neop of Digestive Organs NEC
 ;;^UTILITY(U,$J,358.3,1860,1,4,0)
 ;;=4^C78.89
 ;;^UTILITY(U,$J,358.3,1860,2)
 ;;=^5001341
 ;;^UTILITY(U,$J,358.3,1861,0)
 ;;=Z91.5^^19^145^1
 ;;^UTILITY(U,$J,358.3,1861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1861,1,3,0)
 ;;=3^Personal Hx of Suicide Attempt(s)
 ;;^UTILITY(U,$J,358.3,1861,1,4,0)
 ;;=4^Z91.5
 ;;^UTILITY(U,$J,358.3,1861,2)
 ;;=^5063624
 ;;^UTILITY(U,$J,358.3,1862,0)
 ;;=R45.851^^19^145^2
 ;;^UTILITY(U,$J,358.3,1862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1862,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,1862,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,1862,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,1863,0)
 ;;=T14.91XA^^19^145^3
 ;;^UTILITY(U,$J,358.3,1863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1863,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,1863,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,1863,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,1864,0)
 ;;=T14.91XD^^19^145^4
 ;;^UTILITY(U,$J,358.3,1864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1864,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,1864,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,1864,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,1865,0)
 ;;=T14.91XS^^19^145^5
 ;;^UTILITY(U,$J,358.3,1865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1865,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,1865,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,1865,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,1866,0)
 ;;=77261^^20^146^24^^^^1
 ;;^UTILITY(U,$J,358.3,1866,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1866,1,1,0)
 ;;=1^77261
 ;;^UTILITY(U,$J,358.3,1866,1,3,0)
 ;;=3^Treatment Planning - Simple
 ;;^UTILITY(U,$J,358.3,1866,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1867,0)
 ;;=77262^^20^146^26^^^^1
 ;;^UTILITY(U,$J,358.3,1867,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1867,1,1,0)
 ;;=1^77262
 ;;^UTILITY(U,$J,358.3,1867,1,3,0)
 ;;=3^Treatment Planning - Intermediate
 ;;^UTILITY(U,$J,358.3,1867,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1868,0)
 ;;=77263^^20^146^28^^^^1
 ;;^UTILITY(U,$J,358.3,1868,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1868,1,1,0)
 ;;=1^77263
 ;;^UTILITY(U,$J,358.3,1868,1,3,0)
 ;;=3^Treatment Planning - Complex
 ;;^UTILITY(U,$J,358.3,1868,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1869,0)
 ;;=77280^^20^147^1^^^^1
 ;;^UTILITY(U,$J,358.3,1869,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1869,1,1,0)
 ;;=1^77280
 ;;^UTILITY(U,$J,358.3,1869,1,3,0)
 ;;=3^Simulation - Simple
 ;;^UTILITY(U,$J,358.3,1869,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1870,0)
 ;;=77285^^20^147^2^^^^1
 ;;^UTILITY(U,$J,358.3,1870,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1870,1,1,0)
 ;;=1^77285
 ;;^UTILITY(U,$J,358.3,1870,1,3,0)
 ;;=3^Simulation - Intermediate
 ;;^UTILITY(U,$J,358.3,1870,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1871,0)
 ;;=77290^^20^147^3^^^^1
 ;;^UTILITY(U,$J,358.3,1871,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1871,1,1,0)
 ;;=1^77290
 ;;^UTILITY(U,$J,358.3,1871,1,3,0)
 ;;=3^Simulation - Complex
 ;;^UTILITY(U,$J,358.3,1871,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1872,0)
 ;;=77293^^20^147^4^^^^1
 ;;^UTILITY(U,$J,358.3,1872,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1872,1,1,0)
 ;;=1^77293
 ;;^UTILITY(U,$J,358.3,1872,1,3,0)
 ;;=3^Respiratory Motion Mgmt Sim,Add-On
 ;;^UTILITY(U,$J,358.3,1873,0)
 ;;=77332^^20^148^2^^^^1
 ;;^UTILITY(U,$J,358.3,1873,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1873,1,1,0)
 ;;=1^77332
 ;;^UTILITY(U,$J,358.3,1873,1,3,0)
 ;;=3^Treatment Device - Simple
 ;;^UTILITY(U,$J,358.3,1873,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1874,0)
 ;;=77333^^20^148^4^^^^1
 ;;^UTILITY(U,$J,358.3,1874,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1874,1,1,0)
 ;;=1^77333
 ;;^UTILITY(U,$J,358.3,1874,1,3,0)
 ;;=3^Treatment Device - Intermediate
 ;;^UTILITY(U,$J,358.3,1874,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1875,0)
 ;;=77334^^20^148^7^^^^1
 ;;^UTILITY(U,$J,358.3,1875,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1875,1,1,0)
 ;;=1^77334
 ;;^UTILITY(U,$J,358.3,1875,1,3,0)
 ;;=3^Treatment Device - Complex
 ;;^UTILITY(U,$J,358.3,1875,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1876,0)
 ;;=77338^^20^148^1^^^^1
 ;;^UTILITY(U,$J,358.3,1876,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1876,1,1,0)
 ;;=1^77338
 ;;^UTILITY(U,$J,358.3,1876,1,3,0)
 ;;=3^Design MLC Device for IMRT
 ;;^UTILITY(U,$J,358.3,1877,0)
 ;;=77331^^20^149^2^^^^1
 ;;^UTILITY(U,$J,358.3,1877,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1877,1,1,0)
 ;;=1^77331
 ;;^UTILITY(U,$J,358.3,1877,1,3,0)
 ;;=3^Special Dosimetry
 ;;^UTILITY(U,$J,358.3,1877,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1878,0)
 ;;=77300^^20^149^1^^^^1
 ;;^UTILITY(U,$J,358.3,1878,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1878,1,1,0)
 ;;=1^77300
 ;;^UTILITY(U,$J,358.3,1878,1,3,0)
 ;;=3^Basic Dosimetry Calculations
 ;;^UTILITY(U,$J,358.3,1878,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1879,0)
 ;;=77336^^20^149^3^^^^1
 ;;^UTILITY(U,$J,358.3,1879,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1879,1,1,0)
 ;;=1^77336
 ;;^UTILITY(U,$J,358.3,1879,1,3,0)
 ;;=3^Weekly Physics Consult
 ;;^UTILITY(U,$J,358.3,1880,0)
 ;;=77321^^20^150^4^^^^1
 ;;^UTILITY(U,$J,358.3,1880,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1880,1,1,0)
 ;;=1^77321
 ;;^UTILITY(U,$J,358.3,1880,1,3,0)
 ;;=3^Special Port Planparticles Hemi/Tot
 ;;^UTILITY(U,$J,358.3,1881,0)
 ;;=77306^^20^150^1^^^^1
 ;;^UTILITY(U,$J,358.3,1881,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1881,1,1,0)
 ;;=1^77306
 ;;^UTILITY(U,$J,358.3,1881,1,3,0)
 ;;=3^Isodose Plan-Simple
 ;;^UTILITY(U,$J,358.3,1882,0)
 ;;=77307^^20^150^2^^^^1
 ;;^UTILITY(U,$J,358.3,1882,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1882,1,1,0)
 ;;=1^77307
 ;;^UTILITY(U,$J,358.3,1882,1,3,0)
 ;;=3^Isodose Plan-Complex
 ;;^UTILITY(U,$J,358.3,1883,0)
 ;;=77295^^20^150^3^^^^1
 ;;^UTILITY(U,$J,358.3,1883,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1883,1,1,0)
 ;;=1^77295
 ;;^UTILITY(U,$J,358.3,1883,1,3,0)
 ;;=3^Simulation 3-D
 ;;^UTILITY(U,$J,358.3,1884,0)
 ;;=77427^^20^151^5^^^^1
 ;;^UTILITY(U,$J,358.3,1884,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1884,1,1,0)
 ;;=1^77427
 ;;^UTILITY(U,$J,358.3,1884,1,3,0)
 ;;=3^Weekly Tx Management
 ;;^UTILITY(U,$J,358.3,1885,0)
 ;;=77431^^20^151^1^^^^1
 ;;^UTILITY(U,$J,358.3,1885,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1885,1,1,0)
 ;;=1^77431
 ;;^UTILITY(U,$J,358.3,1885,1,3,0)
 ;;=3^RT Manage/1-2 fx only
 ;;^UTILITY(U,$J,358.3,1885,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1886,0)
 ;;=77432^^20^151^4^^^^1
 ;;^UTILITY(U,$J,358.3,1886,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1886,1,1,0)
 ;;=1^77432
 ;;^UTILITY(U,$J,358.3,1886,1,3,0)
 ;;=3^Stereotactic RT Tx/Complete Tx
 ;;^UTILITY(U,$J,358.3,1887,0)
 ;;=77435^^20^151^2^^^^1
 ;;^UTILITY(U,$J,358.3,1887,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1887,1,1,0)
 ;;=1^77435
 ;;^UTILITY(U,$J,358.3,1887,1,3,0)
 ;;=3^SBRT Management
 ;;^UTILITY(U,$J,358.3,1888,0)
 ;;=77470^^20^151^3^^^^1
 ;;^UTILITY(U,$J,358.3,1888,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1888,1,1,0)
 ;;=1^77470
 ;;^UTILITY(U,$J,358.3,1888,1,3,0)
 ;;=3^Special Treatment Procedure
 ;;^UTILITY(U,$J,358.3,1889,0)
 ;;=77370^^20^152^8^^^^1
 ;;^UTILITY(U,$J,358.3,1889,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1889,1,1,0)
 ;;=1^77370
 ;;^UTILITY(U,$J,358.3,1889,1,3,0)
 ;;=3^Special Physics Consult  
 ;;^UTILITY(U,$J,358.3,1889,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1890,0)
 ;;=77469^^20^152^4^^^^1
 ;;^UTILITY(U,$J,358.3,1890,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1890,1,1,0)
 ;;=1^77469
 ;;^UTILITY(U,$J,358.3,1890,1,3,0)
 ;;=3^Intra-op Radiation Tx Mgmt
 ;;^UTILITY(U,$J,358.3,1891,0)
 ;;=92511^^20^152^5^^^^1
 ;;^UTILITY(U,$J,358.3,1891,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1891,1,1,0)
 ;;=1^92511
 ;;^UTILITY(U,$J,358.3,1891,1,3,0)
 ;;=3^Nasopharyngoscopy
 ;;^UTILITY(U,$J,358.3,1892,0)
 ;;=94760^^20^152^7^^^^1
 ;;^UTILITY(U,$J,358.3,1892,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1892,1,1,0)
 ;;=1^94760
 ;;^UTILITY(U,$J,358.3,1892,1,3,0)
 ;;=3^Pulse Oximetry
 ;;^UTILITY(U,$J,358.3,1893,0)
 ;;=96360^^20^152^3^^^^1
 ;;^UTILITY(U,$J,358.3,1893,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1893,1,1,0)
 ;;=1^96360
 ;;^UTILITY(U,$J,358.3,1893,1,3,0)
 ;;=3^Hydration IV Infusion,Init
 ;;^UTILITY(U,$J,358.3,1894,0)
 ;;=96361^^20^152^2^^^^1
 ;;^UTILITY(U,$J,358.3,1894,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1894,1,1,0)
 ;;=1^96361
 ;;^UTILITY(U,$J,358.3,1894,1,3,0)
 ;;=3^Hydration IV Infusion,Add-On
 ;;^UTILITY(U,$J,358.3,1895,0)
 ;;=55876^^20^152^6^^^^1
 ;;^UTILITY(U,$J,358.3,1895,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1895,1,1,0)
 ;;=1^55876
 ;;^UTILITY(U,$J,358.3,1895,1,3,0)
 ;;=3^Place Interstitial Dev for Rad Tx Guidance
 ;;^UTILITY(U,$J,358.3,1896,0)
 ;;=76942^^20^152^9^^^^1
 ;;^UTILITY(U,$J,358.3,1896,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1896,1,1,0)
 ;;=1^76942
 ;;^UTILITY(U,$J,358.3,1896,1,3,0)
 ;;=3^US Guidance for Needle Placement
 ;;^UTILITY(U,$J,358.3,1897,0)
 ;;=77399^^20^152^1^^^^1
 ;;^UTILITY(U,$J,358.3,1897,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1897,1,1,0)
 ;;=1^77399
 ;;^UTILITY(U,$J,358.3,1897,1,3,0)
 ;;=3^External Radiation Dosimetry
 ;;^UTILITY(U,$J,358.3,1898,0)
 ;;=77301^^20^153^1^^^^1
 ;;^UTILITY(U,$J,358.3,1898,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1898,1,1,0)
 ;;=1^77301
 ;;^UTILITY(U,$J,358.3,1898,1,3,0)
 ;;=3^IMRT Dose Plan
 ;;^UTILITY(U,$J,358.3,1899,0)
 ;;=77417^^20^154^7^^^^1
 ;;^UTILITY(U,$J,358.3,1899,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1899,1,1,0)
 ;;=1^77417
 ;;^UTILITY(U,$J,358.3,1899,1,3,0)
 ;;=3^Radiology Port Films
 ;;^UTILITY(U,$J,358.3,1900,0)
 ;;=77014^^20^154^1^^^^1
 ;;^UTILITY(U,$J,358.3,1900,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1900,1,1,0)
 ;;=1^77014
 ;;^UTILITY(U,$J,358.3,1900,1,3,0)
 ;;=3^CT Scan for Therapy Guide
 ;;^UTILITY(U,$J,358.3,1901,0)
 ;;=77407^^20^154^6^^^^1
 ;;^UTILITY(U,$J,358.3,1901,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1901,1,1,0)
 ;;=1^77407
 ;;^UTILITY(U,$J,358.3,1901,1,3,0)
 ;;=3^Intermediate Tx;>1 MeV
 ;;^UTILITY(U,$J,358.3,1901,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1902,0)
 ;;=77402^^20^154^8^^^^1
 ;;^UTILITY(U,$J,358.3,1902,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1902,1,1,0)
 ;;=1^77402
 ;;^UTILITY(U,$J,358.3,1902,1,3,0)
 ;;=3^Simple Tx;>1 MeV
 ;;^UTILITY(U,$J,358.3,1903,0)
 ;;=77412^^20^154^2^^^^1
 ;;^UTILITY(U,$J,358.3,1903,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1903,1,1,0)
 ;;=1^77412
 ;;^UTILITY(U,$J,358.3,1903,1,3,0)
 ;;=3^Complex Tx;>1 MeV
 ;;^UTILITY(U,$J,358.3,1904,0)
 ;;=77385^^20^154^5^^^^1
 ;;^UTILITY(U,$J,358.3,1904,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1904,1,1,0)
 ;;=1^77385
 ;;^UTILITY(U,$J,358.3,1904,1,3,0)
 ;;=3^IMRT;Simple
 ;;^UTILITY(U,$J,358.3,1905,0)
 ;;=77386^^20^154^4^^^^1
 ;;^UTILITY(U,$J,358.3,1905,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1905,1,1,0)
 ;;=1^77386
 ;;^UTILITY(U,$J,358.3,1905,1,3,0)
 ;;=3^IMRT;Complex
 ;;^UTILITY(U,$J,358.3,1906,0)
 ;;=77401^^20^154^9^^^^1
 ;;^UTILITY(U,$J,358.3,1906,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1906,1,1,0)
 ;;=1^77401
 ;;^UTILITY(U,$J,358.3,1906,1,3,0)
 ;;=3^Superficial Tx;<1 MeV per day
 ;;^UTILITY(U,$J,358.3,1907,0)
 ;;=77387^^20^154^3^^^^1
 ;;^UTILITY(U,$J,358.3,1907,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1907,1,1,0)
 ;;=1^77387
 ;;^UTILITY(U,$J,358.3,1907,1,3,0)
 ;;=3^Guidance for RADIAJ Tx Dlvr
 ;;^UTILITY(U,$J,358.3,1908,0)
 ;;=76873^^20^155^5^^^^1
 ;;^UTILITY(U,$J,358.3,1908,1,0)
 ;;=^358.31IA^4^3
 ;;^UTILITY(U,$J,358.3,1908,1,1,0)
 ;;=1^76873
 ;;^UTILITY(U,$J,358.3,1908,1,3,0)
 ;;=3^Prostate Volume Study
 ;;^UTILITY(U,$J,358.3,1908,1,4,0)
 ;;=4
 ;;^UTILITY(U,$J,358.3,1909,0)
 ;;=77778^^20^155^4^^^^1
 ;;^UTILITY(U,$J,358.3,1909,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1909,1,1,0)
 ;;=1^77778
 ;;^UTILITY(U,$J,358.3,1909,1,3,0)
 ;;=3^Interstitial Radiation,Complex
 ;;^UTILITY(U,$J,358.3,1910,0)
 ;;=77790^^20^155^6^^^^1
 ;;^UTILITY(U,$J,358.3,1910,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1910,1,1,0)
 ;;=1^77790
 ;;^UTILITY(U,$J,358.3,1910,1,3,0)
 ;;=3^Suprvsn,Handling,Radiation Load
 ;;^UTILITY(U,$J,358.3,1911,0)
 ;;=77318^^20^155^3^^^^1
 ;;^UTILITY(U,$J,358.3,1911,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1911,1,1,0)
 ;;=1^77318
 ;;^UTILITY(U,$J,358.3,1911,1,3,0)
 ;;=3^Brachytx Iso Pln-Cplx > 10
 ;;^UTILITY(U,$J,358.3,1912,0)
 ;;=77316^^20^155^1^^^^1
 ;;^UTILITY(U,$J,358.3,1912,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1912,1,1,0)
 ;;=1^77316
 ;;^UTILITY(U,$J,358.3,1912,1,3,0)
 ;;=3^Brachytx Iso Pln-Simple 1-4
 ;;^UTILITY(U,$J,358.3,1913,0)
 ;;=77317^^20^155^2^^^^1
 ;;^UTILITY(U,$J,358.3,1913,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1913,1,1,0)
 ;;=1^77317
 ;;^UTILITY(U,$J,358.3,1913,1,3,0)
 ;;=3^Brachytx Iso Pln-Intmd 5-10
 ;;^UTILITY(U,$J,358.3,1914,0)
 ;;=77371^^20^156^2^^^^1
 ;;^UTILITY(U,$J,358.3,1914,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1914,1,1,0)
 ;;=1^77371
 ;;^UTILITY(U,$J,358.3,1914,1,3,0)
 ;;=3^SRS Cranial Lesion,Multi Source
 ;;^UTILITY(U,$J,358.3,1915,0)
 ;;=77372^^20^156^3^^^^1
 ;;^UTILITY(U,$J,358.3,1915,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1915,1,1,0)
 ;;=1^77372
 ;;^UTILITY(U,$J,358.3,1915,1,3,0)
 ;;=3^SRS Linear Accelerator Based
 ;;^UTILITY(U,$J,358.3,1916,0)
 ;;=77373^^20^156^1^^^^1
 ;;^UTILITY(U,$J,358.3,1916,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1916,1,1,0)
 ;;=1^77373
 ;;^UTILITY(U,$J,358.3,1916,1,3,0)
 ;;=3^SRS Body,1 or More Lesions
 ;;^UTILITY(U,$J,358.3,1917,0)
 ;;=G6001^^20^157^3^^^^1
 ;;^UTILITY(U,$J,358.3,1917,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1917,1,1,0)
 ;;=1^G6001
 ;;^UTILITY(U,$J,358.3,1917,1,3,0)
 ;;=3^Ultrasonic Guidance-Plmnt Rad Tx Fields
 ;;^UTILITY(U,$J,358.3,1918,0)
 ;;=G6002^^20^157^1^^^^1
 ;;^UTILITY(U,$J,358.3,1918,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1918,1,1,0)
 ;;=1^G6002
 ;;^UTILITY(U,$J,358.3,1918,1,3,0)
 ;;=3^Stereoscopic X-Ray Guidance-Delivery Rad Tx
 ;;^UTILITY(U,$J,358.3,1919,0)
 ;;=76942^^20^157^2^^^^1
 ;;^UTILITY(U,$J,358.3,1919,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1919,1,1,0)
 ;;=1^76942
 ;;^UTILITY(U,$J,358.3,1919,1,3,0)
 ;;=3^Ultrasonic Guidance for Needle Placement
 ;;^UTILITY(U,$J,358.3,1920,0)
 ;;=31575^^20^158^1^^^^1
 ;;^UTILITY(U,$J,358.3,1920,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1920,1,1,0)
 ;;=1^31575
 ;;^UTILITY(U,$J,358.3,1920,1,3,0)
 ;;=3^Laryngoscopy,Flexible Fiberoptic,Dx
 ;;^UTILITY(U,$J,358.3,1921,0)
 ;;=99417^^20^159^1^^^^1
 ;;^UTILITY(U,$J,358.3,1921,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1921,1,1,0)
 ;;=1^99417
 ;;^UTILITY(U,$J,358.3,1921,1,3,0)
 ;;=3^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
 ;;^UTILITY(U,$J,358.3,1922,0)
 ;;=94640^^21^160^1^^^^1
 ;;^UTILITY(U,$J,358.3,1922,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1922,1,1,0)
 ;;=1^94640
 ;;^UTILITY(U,$J,358.3,1922,1,3,0)
 ;;=3^Aerosol/Neb/MDI Therapy
 ;;^UTILITY(U,$J,358.3,1923,0)
 ;;=31502^^21^160^4^^^^1
 ;;^UTILITY(U,$J,358.3,1923,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1923,1,1,0)
 ;;=1^31502
 ;;^UTILITY(U,$J,358.3,1923,1,3,0)
 ;;=3^Trach Change
 ;;^UTILITY(U,$J,358.3,1924,0)
 ;;=31500^^21^160^3^^^^1
 ;;^UTILITY(U,$J,358.3,1924,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1924,1,1,0)
 ;;=1^31500
 ;;^UTILITY(U,$J,358.3,1924,1,3,0)
 ;;=3^Endotracheal Intubation
 ;;^UTILITY(U,$J,358.3,1925,0)
 ;;=92950^^21^160^2^^^^1
 ;;^UTILITY(U,$J,358.3,1925,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1925,1,1,0)
 ;;=1^92950
 ;;^UTILITY(U,$J,358.3,1925,1,3,0)
 ;;=3^CPR
 ;;^UTILITY(U,$J,358.3,1926,0)
 ;;=95805^^21^161^2^^^^1
 ;;^UTILITY(U,$J,358.3,1926,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1926,1,1,0)
 ;;=1^95805
 ;;^UTILITY(U,$J,358.3,1926,1,3,0)
 ;;=3^Multiple Sleep Latency Test
 ;;^UTILITY(U,$J,358.3,1927,0)
 ;;=95810^^21^161^4^^^^1
 ;;^UTILITY(U,$J,358.3,1927,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1927,1,1,0)
 ;;=1^95810
 ;;^UTILITY(U,$J,358.3,1927,1,3,0)
 ;;=3^PSG Baseline
 ;;^UTILITY(U,$J,358.3,1928,0)
 ;;=95811^^21^161^5^^^^1
 ;;^UTILITY(U,$J,358.3,1928,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1928,1,1,0)
 ;;=1^95811
 ;;^UTILITY(U,$J,358.3,1928,1,3,0)
 ;;=3^PSG Split/PAP
 ;;^UTILITY(U,$J,358.3,1929,0)
 ;;=95803^^21^161^1^^^^1
 ;;^UTILITY(U,$J,358.3,1929,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,1929,1,1,0)
 ;;=1^95803
 ;;^UTILITY(U,$J,358.3,1929,1,3,0)
 ;;=3^Actigraphy Test;72 hr-14 Days
 ;;^UTILITY(U,$J,358.3,1930,0)
 ;;=95807^^21^161^6^^^^1
 ;;^UTILITY(U,$J,358.3,1930,1,0)
 ;;=^358.31IA^3^2