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

IBDEI0D4.m

Go to the documentation of this file.
IBDEI0D4 ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
 Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,32907,1,4,0)
 ;;=4^H57.11
 ;;^UTILITY(U,$J,358.3,32907,2)
 ;;=^5006382
 ;;^UTILITY(U,$J,358.3,32908,0)
 ;;=H57.12^^99^1355^12
 ;;^UTILITY(U,$J,358.3,32908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32908,1,3,0)
 ;;=3^Ocular Pain,Left Eye
 ;;^UTILITY(U,$J,358.3,32908,1,4,0)
 ;;=4^H57.12
 ;;^UTILITY(U,$J,358.3,32908,2)
 ;;=^5006383
 ;;^UTILITY(U,$J,358.3,32909,0)
 ;;=H57.13^^99^1355^11
 ;;^UTILITY(U,$J,358.3,32909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32909,1,3,0)
 ;;=3^Ocular Pain,Bilateral
 ;;^UTILITY(U,$J,358.3,32909,1,4,0)
 ;;=4^H57.13
 ;;^UTILITY(U,$J,358.3,32909,2)
 ;;=^5006384
 ;;^UTILITY(U,$J,358.3,32910,0)
 ;;=H25.9^^99^1355^1
 ;;^UTILITY(U,$J,358.3,32910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32910,1,3,0)
 ;;=3^Cataract,Age-Related,Unspec
 ;;^UTILITY(U,$J,358.3,32910,1,4,0)
 ;;=4^H25.9
 ;;^UTILITY(U,$J,358.3,32910,2)
 ;;=^5005296
 ;;^UTILITY(U,$J,358.3,32911,0)
 ;;=G43.009^^99^1356^1
 ;;^UTILITY(U,$J,358.3,32911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32911,1,3,0)
 ;;=3^Allergic Migraine Headache
 ;;^UTILITY(U,$J,358.3,32911,1,4,0)
 ;;=4^G43.009
 ;;^UTILITY(U,$J,358.3,32911,2)
 ;;=^5003877
 ;;^UTILITY(U,$J,358.3,32912,0)
 ;;=R51.0^^99^1356^2
 ;;^UTILITY(U,$J,358.3,32912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32912,1,3,0)
 ;;=3^Headache w/ Orthostatic Component,NEC
 ;;^UTILITY(U,$J,358.3,32912,1,4,0)
 ;;=4^R51.0
 ;;^UTILITY(U,$J,358.3,32912,2)
 ;;=^5159305
 ;;^UTILITY(U,$J,358.3,32913,0)
 ;;=R51.9^^99^1356^3
 ;;^UTILITY(U,$J,358.3,32913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32913,1,3,0)
 ;;=3^Headache,Unspecified
 ;;^UTILITY(U,$J,358.3,32913,1,4,0)
 ;;=4^R51.9
 ;;^UTILITY(U,$J,358.3,32913,2)
 ;;=^5159306
 ;;^UTILITY(U,$J,358.3,32914,0)
 ;;=E84.0^^99^1357^3
 ;;^UTILITY(U,$J,358.3,32914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32914,1,3,0)
 ;;=3^Cystic Fibrosis w/ Pulmonary Manifestations
 ;;^UTILITY(U,$J,358.3,32914,1,4,0)
 ;;=4^E84.0
 ;;^UTILITY(U,$J,358.3,32914,2)
 ;;=^5003009
 ;;^UTILITY(U,$J,358.3,32915,0)
 ;;=B20.^^99^1357^4
 ;;^UTILITY(U,$J,358.3,32915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32915,1,3,0)
 ;;=3^HIV
 ;;^UTILITY(U,$J,358.3,32915,1,4,0)
 ;;=4^B20.
 ;;^UTILITY(U,$J,358.3,32915,2)
 ;;=^5000555
 ;;^UTILITY(U,$J,358.3,32916,0)
 ;;=K90.0^^99^1357^1
 ;;^UTILITY(U,$J,358.3,32916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32916,1,3,0)
 ;;=3^Celiac Disease
 ;;^UTILITY(U,$J,358.3,32916,1,4,0)
 ;;=4^K90.0
 ;;^UTILITY(U,$J,358.3,32916,2)
 ;;=^20828
 ;;^UTILITY(U,$J,358.3,32917,0)
 ;;=D80.0^^99^1357^5
 ;;^UTILITY(U,$J,358.3,32917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32917,1,3,0)
 ;;=3^Hypogammaglobulinemia,Hereditary
 ;;^UTILITY(U,$J,358.3,32917,1,4,0)
 ;;=4^D80.0
 ;;^UTILITY(U,$J,358.3,32917,2)
 ;;=^5002405
 ;;^UTILITY(U,$J,358.3,32918,0)
 ;;=D80.1^^99^1357^6
 ;;^UTILITY(U,$J,358.3,32918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32918,1,3,0)
 ;;=3^Hypogammaglobulinemia,Nonfamilial
 ;;^UTILITY(U,$J,358.3,32918,1,4,0)
 ;;=4^D80.1
 ;;^UTILITY(U,$J,358.3,32918,2)
 ;;=^5002406
 ;;^UTILITY(U,$J,358.3,32919,0)
 ;;=D80.2^^99^1357^7
 ;;^UTILITY(U,$J,358.3,32919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32919,1,3,0)
 ;;=3^IgA Immunodeficiency
 ;;^UTILITY(U,$J,358.3,32919,1,4,0)
 ;;=4^D80.2
 ;;^UTILITY(U,$J,358.3,32919,2)
 ;;=^5002407
 ;;^UTILITY(U,$J,358.3,32920,0)
 ;;=D83.8^^99^1357^2
 ;;^UTILITY(U,$J,358.3,32920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32920,1,3,0)
 ;;=3^Common Variable Immunodeficiency,Other
 ;;^UTILITY(U,$J,358.3,32920,1,4,0)
 ;;=4^D83.8
 ;;^UTILITY(U,$J,358.3,32920,2)
 ;;=^5002436
 ;;^UTILITY(U,$J,358.3,32921,0)
 ;;=Q82.2^^99^1357^12
 ;;^UTILITY(U,$J,358.3,32921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32921,1,3,0)
 ;;=3^Mastocytosis,General
 ;;^UTILITY(U,$J,358.3,32921,1,4,0)
 ;;=4^Q82.2
 ;;^UTILITY(U,$J,358.3,32921,2)
 ;;=^74444
 ;;^UTILITY(U,$J,358.3,32922,0)
 ;;=C96.21^^99^1357^13
 ;;^UTILITY(U,$J,358.3,32922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32922,1,3,0)
 ;;=3^Mastocytosis,Systemic
 ;;^UTILITY(U,$J,358.3,32922,1,4,0)
 ;;=4^C96.21
 ;;^UTILITY(U,$J,358.3,32922,2)
 ;;=^5151294
 ;;^UTILITY(U,$J,358.3,32923,0)
 ;;=D84.81^^99^1357^9
 ;;^UTILITY(U,$J,358.3,32923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32923,1,3,0)
 ;;=3^Immunodeficiency d/t Conditions Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,32923,1,4,0)
 ;;=4^D84.81
 ;;^UTILITY(U,$J,358.3,32923,2)
 ;;=^5159114
 ;;^UTILITY(U,$J,358.3,32924,0)
 ;;=D84.821^^99^1357^10
 ;;^UTILITY(U,$J,358.3,32924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32924,1,3,0)
 ;;=3^Immunodeficiency d/t Drugs
 ;;^UTILITY(U,$J,358.3,32924,1,4,0)
 ;;=4^D84.821
 ;;^UTILITY(U,$J,358.3,32924,2)
 ;;=^5159115
 ;;^UTILITY(U,$J,358.3,32925,0)
 ;;=D84.822^^99^1357^11
 ;;^UTILITY(U,$J,358.3,32925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32925,1,3,0)
 ;;=3^Immunodeficiency d/t External Causes
 ;;^UTILITY(U,$J,358.3,32925,1,4,0)
 ;;=4^D84.822
 ;;^UTILITY(U,$J,358.3,32925,2)
 ;;=^5159116
 ;;^UTILITY(U,$J,358.3,32926,0)
 ;;=D84.89^^99^1357^8
 ;;^UTILITY(U,$J,358.3,32926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32926,1,3,0)
 ;;=3^Immunodeficiencies,Other
 ;;^UTILITY(U,$J,358.3,32926,1,4,0)
 ;;=4^D84.89
 ;;^UTILITY(U,$J,358.3,32926,2)
 ;;=^5159117
 ;;^UTILITY(U,$J,358.3,32927,0)
 ;;=F17.210^^99^1358^8
 ;;^UTILITY(U,$J,358.3,32927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32927,1,3,0)
 ;;=3^Nicotine Dependence,Uncompl
 ;;^UTILITY(U,$J,358.3,32927,1,4,0)
 ;;=4^F17.210
 ;;^UTILITY(U,$J,358.3,32927,2)
 ;;=^5003365
 ;;^UTILITY(U,$J,358.3,32928,0)
 ;;=F17.211^^99^1358^7
 ;;^UTILITY(U,$J,358.3,32928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32928,1,3,0)
 ;;=3^Nicotine Dependence,In Remission
 ;;^UTILITY(U,$J,358.3,32928,1,4,0)
 ;;=4^F17.211
 ;;^UTILITY(U,$J,358.3,32928,2)
 ;;=^5003366
 ;;^UTILITY(U,$J,358.3,32929,0)
 ;;=F17.213^^99^1358^2
 ;;^UTILITY(U,$J,358.3,32929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32929,1,3,0)
 ;;=3^Nicotine Dependence w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,32929,1,4,0)
 ;;=4^F17.213
 ;;^UTILITY(U,$J,358.3,32929,2)
 ;;=^5003367
 ;;^UTILITY(U,$J,358.3,32930,0)
 ;;=F17.218^^99^1358^1
 ;;^UTILITY(U,$J,358.3,32930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32930,1,3,0)
 ;;=3^Nicotine Dependence w/ Oth Disorders
 ;;^UTILITY(U,$J,358.3,32930,1,4,0)
 ;;=4^F17.218
 ;;^UTILITY(U,$J,358.3,32930,2)
 ;;=^5003368
 ;;^UTILITY(U,$J,358.3,32931,0)
 ;;=F17.220^^99^1358^6
 ;;^UTILITY(U,$J,358.3,32931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32931,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomp
 ;;^UTILITY(U,$J,358.3,32931,1,4,0)
 ;;=4^F17.220
 ;;^UTILITY(U,$J,358.3,32931,2)
 ;;=^5003370
 ;;^UTILITY(U,$J,358.3,32932,0)
 ;;=F17.221^^99^1358^5
 ;;^UTILITY(U,$J,358.3,32932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32932,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco,In Remission
 ;;^UTILITY(U,$J,358.3,32932,1,4,0)
 ;;=4^F17.221
 ;;^UTILITY(U,$J,358.3,32932,2)
 ;;=^5003371
 ;;^UTILITY(U,$J,358.3,32933,0)
 ;;=F17.223^^99^1358^3
 ;;^UTILITY(U,$J,358.3,32933,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32933,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,32933,1,4,0)
 ;;=4^F17.223
 ;;^UTILITY(U,$J,358.3,32933,2)
 ;;=^5003372
 ;;^UTILITY(U,$J,358.3,32934,0)
 ;;=F17.228^^99^1358^4
 ;;^UTILITY(U,$J,358.3,32934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32934,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco w/ Oth Disorders
 ;;^UTILITY(U,$J,358.3,32934,1,4,0)
 ;;=4^F17.228
 ;;^UTILITY(U,$J,358.3,32934,2)
 ;;=^5003373
 ;;^UTILITY(U,$J,358.3,32935,0)
 ;;=Z51.81^^99^1359^19
 ;;^UTILITY(U,$J,358.3,32935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32935,1,3,0)
 ;;=3^Therapeutic Drug Monitoring
 ;;^UTILITY(U,$J,358.3,32935,1,4,0)
 ;;=4^Z51.81
 ;;^UTILITY(U,$J,358.3,32935,2)
 ;;=^5063064
 ;;^UTILITY(U,$J,358.3,32936,0)
 ;;=Z79.01^^99^1359^6
 ;;^UTILITY(U,$J,358.3,32936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32936,1,3,0)
 ;;=3^Long Term Current Use of Anticoagulants
 ;;^UTILITY(U,$J,358.3,32936,1,4,0)
 ;;=4^Z79.01
 ;;^UTILITY(U,$J,358.3,32936,2)
 ;;=^5063330
 ;;^UTILITY(U,$J,358.3,32937,0)
 ;;=Z79.02^^99^1359^7
 ;;^UTILITY(U,$J,358.3,32937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32937,1,3,0)
 ;;=3^Long Term Current Use of Antithrombotics/Antiplatelets
 ;;^UTILITY(U,$J,358.3,32937,1,4,0)
 ;;=4^Z79.02
 ;;^UTILITY(U,$J,358.3,32937,2)
 ;;=^5063331
 ;;^UTILITY(U,$J,358.3,32938,0)
 ;;=Z79.1^^99^1359^10
 ;;^UTILITY(U,$J,358.3,32938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32938,1,3,0)
 ;;=3^Long Term Current Use of NSAIDs
 ;;^UTILITY(U,$J,358.3,32938,1,4,0)
 ;;=4^Z79.1
 ;;^UTILITY(U,$J,358.3,32938,2)
 ;;=^5063332
 ;;^UTILITY(U,$J,358.3,32939,0)
 ;;=Z79.2^^99^1359^5
 ;;^UTILITY(U,$J,358.3,32939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32939,1,3,0)
 ;;=3^Long Term Current Use of Antibiotics
 ;;^UTILITY(U,$J,358.3,32939,1,4,0)
 ;;=4^Z79.2
 ;;^UTILITY(U,$J,358.3,32939,2)
 ;;=^321546
 ;;^UTILITY(U,$J,358.3,32940,0)
 ;;=Z79.82^^99^1359^8
 ;;^UTILITY(U,$J,358.3,32940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32940,1,3,0)
 ;;=3^Long Term Current Use of Aspirin
 ;;^UTILITY(U,$J,358.3,32940,1,4,0)
 ;;=4^Z79.82
 ;;^UTILITY(U,$J,358.3,32940,2)
 ;;=^5063340
 ;;^UTILITY(U,$J,358.3,32941,0)
 ;;=Z79.51^^99^1359^9
 ;;^UTILITY(U,$J,358.3,32941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32941,1,3,0)
 ;;=3^Long Term Current Use of Inhaled Steroids
 ;;^UTILITY(U,$J,358.3,32941,1,4,0)
 ;;=4^Z79.51
 ;;^UTILITY(U,$J,358.3,32941,2)
 ;;=^5063335
 ;;^UTILITY(U,$J,358.3,32942,0)
 ;;=Z79.52^^99^1359^11
 ;;^UTILITY(U,$J,358.3,32942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32942,1,3,0)
 ;;=3^Long Term Current Use of Systemic Steroids
 ;;^UTILITY(U,$J,358.3,32942,1,4,0)
 ;;=4^Z79.52
 ;;^UTILITY(U,$J,358.3,32942,2)
 ;;=^5063336
 ;;^UTILITY(U,$J,358.3,32943,0)
 ;;=Z91.19^^99^1359^12
 ;;^UTILITY(U,$J,358.3,32943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32943,1,3,0)
 ;;=3^Non-Compliance w/ Treatment/Regimen
 ;;^UTILITY(U,$J,358.3,32943,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,32943,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,32944,0)
 ;;=Z87.01^^99^1359^15
 ;;^UTILITY(U,$J,358.3,32944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32944,1,3,0)
 ;;=3^Personal Hx of Pneumonia,Recurrent
 ;;^UTILITY(U,$J,358.3,32944,1,4,0)
 ;;=4^Z87.01
 ;;^UTILITY(U,$J,358.3,32944,2)
 ;;=^5063480
 ;;^UTILITY(U,$J,358.3,32945,0)
 ;;=Z92.22^^99^1359^13
 ;;^UTILITY(U,$J,358.3,32945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32945,1,3,0)
 ;;=3^Personal Hx of Monoclonal Drug Therapy
 ;;^UTILITY(U,$J,358.3,32945,1,4,0)
 ;;=4^Z92.22
 ;;^UTILITY(U,$J,358.3,32945,2)
 ;;=^5063631
 ;;^UTILITY(U,$J,358.3,32946,0)
 ;;=Z33.1^^99^1359^16
 ;;^UTILITY(U,$J,358.3,32946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32946,1,3,0)
 ;;=3^Pregnancy,Incidental to
 ;;^UTILITY(U,$J,358.3,32946,1,4,0)
 ;;=4^Z33.1
 ;;^UTILITY(U,$J,358.3,32946,2)
 ;;=^5062853
 ;;^UTILITY(U,$J,358.3,32947,0)
 ;;=Z13.83^^99^1359^18
 ;;^UTILITY(U,$J,358.3,32947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32947,1,3,0)
 ;;=3^Screening for Repiratory Disorder
 ;;^UTILITY(U,$J,358.3,32947,1,4,0)
 ;;=4^Z13.83
 ;;^UTILITY(U,$J,358.3,32947,2)
 ;;=^5062715
 ;;^UTILITY(U,$J,358.3,32948,0)
 ;;=Z13.820^^99^1359^17
 ;;^UTILITY(U,$J,358.3,32948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32948,1,3,0)
 ;;=3^Screening for Osteoporosis
 ;;^UTILITY(U,$J,358.3,32948,1,4,0)
 ;;=4^Z13.820
 ;;^UTILITY(U,$J,358.3,32948,2)
 ;;=^5062713
 ;;^UTILITY(U,$J,358.3,32949,0)
 ;;=Z23.^^99^1359^4
 ;;^UTILITY(U,$J,358.3,32949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32949,1,3,0)
 ;;=3^Immunization Visit
 ;;^UTILITY(U,$J,358.3,32949,1,4,0)
 ;;=4^Z23.
 ;;^UTILITY(U,$J,358.3,32949,2)
 ;;=^5062795
 ;;^UTILITY(U,$J,358.3,32950,0)
 ;;=Z01.82^^99^1359^1
 ;;^UTILITY(U,$J,358.3,32950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32950,1,3,0)
 ;;=3^Allergy Testing Visit
 ;;^UTILITY(U,$J,358.3,32950,1,4,0)
 ;;=4^Z01.82
 ;;^UTILITY(U,$J,358.3,32950,2)
 ;;=^5062629
 ;;^UTILITY(U,$J,358.3,32951,0)
 ;;=Z01.84^^99^1359^2
 ;;^UTILITY(U,$J,358.3,32951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32951,1,3,0)
 ;;=3^Antibody Response Exam
 ;;^UTILITY(U,$J,358.3,32951,1,4,0)
 ;;=4^Z01.84
 ;;^UTILITY(U,$J,358.3,32951,2)
 ;;=^5062631
 ;;^UTILITY(U,$J,358.3,32952,0)
 ;;=Z82.5^^99^1359^3
 ;;^UTILITY(U,$J,358.3,32952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32952,1,3,0)
 ;;=3^Family Hx of Asthma
 ;;^UTILITY(U,$J,358.3,32952,1,4,0)
 ;;=4^Z82.5
 ;;^UTILITY(U,$J,358.3,32952,2)
 ;;=^5063370
 ;;^UTILITY(U,$J,358.3,32953,0)
 ;;=Z87.891^^99^1359^14
 ;;^UTILITY(U,$J,358.3,32953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32953,1,3,0)
 ;;=3^Personal Hx of Nicotine Dependence
 ;;^UTILITY(U,$J,358.3,32953,1,4,0)
 ;;=4^Z87.891
 ;;^UTILITY(U,$J,358.3,32953,2)
 ;;=^5063518
 ;;^UTILITY(U,$J,358.3,32954,0)
 ;;=99202^^100^1360^1
 ;;^UTILITY(U,$J,358.3,32954,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32954,1,1,0)
 ;;=1^SF MDM or 15-29 mins
 ;;^UTILITY(U,$J,358.3,32954,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,32955,0)
 ;;=99203^^100^1360^2
 ;;^UTILITY(U,$J,358.3,32955,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32955,1,1,0)
 ;;=1^Low Complex MDM or 30-44 mins
 ;;^UTILITY(U,$J,358.3,32955,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,32956,0)
 ;;=99204^^100^1360^3
 ;;^UTILITY(U,$J,358.3,32956,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32956,1,1,0)
 ;;=1^Mod Complex MDM or 45-59 mins
 ;;^UTILITY(U,$J,358.3,32956,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,32957,0)
 ;;=99205^^100^1360^4
 ;;^UTILITY(U,$J,358.3,32957,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32957,1,1,0)
 ;;=1^High Complex MDM or 60-74 mins
 ;;^UTILITY(U,$J,358.3,32957,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,32958,0)
 ;;=99211^^100^1361^1
 ;;^UTILITY(U,$J,358.3,32958,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32958,1,1,0)
 ;;=1^Nursing Visit/Brief MD Visit
 ;;^UTILITY(U,$J,358.3,32958,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,32959,0)
 ;;=99212^^100^1361^2
 ;;^UTILITY(U,$J,358.3,32959,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32959,1,1,0)
 ;;=1^SF MDM or 10-19 mins
 ;;^UTILITY(U,$J,358.3,32959,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,32960,0)
 ;;=99213^^100^1361^3
 ;;^UTILITY(U,$J,358.3,32960,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32960,1,1,0)
 ;;=1^Low Complex MDM or 20-29 mins
 ;;^UTILITY(U,$J,358.3,32960,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,32961,0)
 ;;=99214^^100^1361^4
 ;;^UTILITY(U,$J,358.3,32961,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32961,1,1,0)
 ;;=1^Mod Complex MDM or 30-39 mins
 ;;^UTILITY(U,$J,358.3,32961,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,32962,0)
 ;;=99215^^100^1361^5
 ;;^UTILITY(U,$J,358.3,32962,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32962,1,1,0)
 ;;=1^High Complex MDM or 40-54 mins
 ;;^UTILITY(U,$J,358.3,32962,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,32963,0)
 ;;=99241^^100^1362^1
 ;;^UTILITY(U,$J,358.3,32963,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32963,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,32963,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,32964,0)
 ;;=99242^^100^1362^2
 ;;^UTILITY(U,$J,358.3,32964,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32964,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,32964,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,32965,0)
 ;;=99243^^100^1362^3
 ;;^UTILITY(U,$J,358.3,32965,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32965,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,32965,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,32966,0)
 ;;=99244^^100^1362^4
 ;;^UTILITY(U,$J,358.3,32966,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32966,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,32966,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,32967,0)
 ;;=99245^^100^1362^5
 ;;^UTILITY(U,$J,358.3,32967,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32967,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,32967,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,32968,0)
 ;;=99024^^100^1363^1
 ;;^UTILITY(U,$J,358.3,32968,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,32968,1,1,0)
 ;;=1^Post Op F/U Visit (Global)
 ;;^UTILITY(U,$J,358.3,32968,1,2,0)
 ;;=2^99024
 ;;^UTILITY(U,$J,358.3,32969,0)
 ;;=38240^^101^1364^1^^^^1
 ;;^UTILITY(U,$J,358.3,32969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32969,1,2,0)
 ;;=2^BN MARROW/STM TRANSPLT ALLO
 ;;^UTILITY(U,$J,358.3,32969,1,4,0)
 ;;=4^38240
 ;;^UTILITY(U,$J,358.3,32970,0)
 ;;=38241^^101^1364^2^^^^1
 ;;^UTILITY(U,$J,358.3,32970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32970,1,2,0)
 ;;=2^BN MARROW/STM TRANSPLT AUTO
 ;;^UTILITY(U,$J,358.3,32970,1,4,0)
 ;;=4^38241
 ;;^UTILITY(U,$J,358.3,32971,0)
 ;;=38242^^101^1364^6^^^^1
 ;;^UTILITY(U,$J,358.3,32971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32971,1,2,0)
 ;;=2^LYMPHOCYTE INFUSE TRANSPLANT
 ;;^UTILITY(U,$J,358.3,32971,1,4,0)
 ;;=4^38242
 ;;^UTILITY(U,$J,358.3,32972,0)
 ;;=38230^^101^1364^3^^^^1
 ;;^UTILITY(U,$J,358.3,32972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32972,1,2,0)
 ;;=2^BONE MARROW HARVEST ALLOGEN
 ;;^UTILITY(U,$J,358.3,32972,1,4,0)
 ;;=4^38230
 ;;^UTILITY(U,$J,358.3,32973,0)
 ;;=38205^^101^1364^4^^^^1
 ;;^UTILITY(U,$J,358.3,32973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32973,1,2,0)
 ;;=2^HARVEST ALLOGENEIC STEM CELL
 ;;^UTILITY(U,$J,358.3,32973,1,4,0)
 ;;=4^38205
 ;;^UTILITY(U,$J,358.3,32974,0)
 ;;=38206^^101^1364^5^^^^1
 ;;^UTILITY(U,$J,358.3,32974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32974,1,2,0)
 ;;=2^HARVEST AUTO STEM CELLS
 ;;^UTILITY(U,$J,358.3,32974,1,4,0)
 ;;=4^38206
 ;;^UTILITY(U,$J,358.3,32975,0)
 ;;=33945^^101^1365^2^^^^1
 ;;^UTILITY(U,$J,358.3,32975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32975,1,2,0)
 ;;=2^TRANSPLANTATION OF HEART
 ;;^UTILITY(U,$J,358.3,32975,1,4,0)
 ;;=4^33945
 ;;^UTILITY(U,$J,358.3,32976,0)
 ;;=33944^^101^1365^1^^^^1
 ;;^UTILITY(U,$J,358.3,32976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32976,1,2,0)
 ;;=2^PREPARE DONOR HEART
 ;;^UTILITY(U,$J,358.3,32976,1,4,0)
 ;;=4^33944
 ;;^UTILITY(U,$J,358.3,32977,0)
 ;;=33935^^101^1366^2^^^^1
 ;;^UTILITY(U,$J,358.3,32977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32977,1,2,0)
 ;;=2^TRANSPLANTATION HEART/LUNG
 ;;^UTILITY(U,$J,358.3,32977,1,4,0)
 ;;=4^33935
 ;;^UTILITY(U,$J,358.3,32978,0)
 ;;=33933^^101^1366^1^^^^1
 ;;^UTILITY(U,$J,358.3,32978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32978,1,2,0)
 ;;=2^PREPARE DONOR HEART/LUNG
 ;;^UTILITY(U,$J,358.3,32978,1,4,0)
 ;;=4^33933
 ;;^UTILITY(U,$J,358.3,32979,0)
 ;;=47135^^101^1367^7^^^^1
 ;;^UTILITY(U,$J,358.3,32979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32979,1,2,0)
 ;;=2^TRANSPLANT ORTHOTOPIC
 ;;^UTILITY(U,$J,358.3,32979,1,4,0)
 ;;=4^47135
 ;;^UTILITY(U,$J,358.3,32980,0)
 ;;=47143^^101^1367^3^^^^1
 ;;^UTILITY(U,$J,358.3,32980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32980,1,2,0)
 ;;=2^PREP DONOR LIVER WHOLE
 ;;^UTILITY(U,$J,358.3,32980,1,4,0)
 ;;=4^47143
 ;;^UTILITY(U,$J,358.3,32981,0)
 ;;=47144^^101^1367^1^^^^1
 ;;^UTILITY(U,$J,358.3,32981,1,0)
 ;;=^358.31IA^4^2