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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0D4 19793 printed Nov 22, 2024@16:56:32 Page 2
IBDEI0D4 ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,32907,1,4,0)
+2 ;;=4^H57.11
+3 ;;^UTILITY(U,$J,358.3,32907,2)
+4 ;;=^5006382
+5 ;;^UTILITY(U,$J,358.3,32908,0)
+6 ;;=H57.12^^99^1355^12
+7 ;;^UTILITY(U,$J,358.3,32908,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,32908,1,3,0)
+10 ;;=3^Ocular Pain,Left Eye
+11 ;;^UTILITY(U,$J,358.3,32908,1,4,0)
+12 ;;=4^H57.12
+13 ;;^UTILITY(U,$J,358.3,32908,2)
+14 ;;=^5006383
+15 ;;^UTILITY(U,$J,358.3,32909,0)
+16 ;;=H57.13^^99^1355^11
+17 ;;^UTILITY(U,$J,358.3,32909,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,32909,1,3,0)
+20 ;;=3^Ocular Pain,Bilateral
+21 ;;^UTILITY(U,$J,358.3,32909,1,4,0)
+22 ;;=4^H57.13
+23 ;;^UTILITY(U,$J,358.3,32909,2)
+24 ;;=^5006384
+25 ;;^UTILITY(U,$J,358.3,32910,0)
+26 ;;=H25.9^^99^1355^1
+27 ;;^UTILITY(U,$J,358.3,32910,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,32910,1,3,0)
+30 ;;=3^Cataract,Age-Related,Unspec
+31 ;;^UTILITY(U,$J,358.3,32910,1,4,0)
+32 ;;=4^H25.9
+33 ;;^UTILITY(U,$J,358.3,32910,2)
+34 ;;=^5005296
+35 ;;^UTILITY(U,$J,358.3,32911,0)
+36 ;;=G43.009^^99^1356^1
+37 ;;^UTILITY(U,$J,358.3,32911,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,32911,1,3,0)
+40 ;;=3^Allergic Migraine Headache
+41 ;;^UTILITY(U,$J,358.3,32911,1,4,0)
+42 ;;=4^G43.009
+43 ;;^UTILITY(U,$J,358.3,32911,2)
+44 ;;=^5003877
+45 ;;^UTILITY(U,$J,358.3,32912,0)
+46 ;;=R51.0^^99^1356^2
+47 ;;^UTILITY(U,$J,358.3,32912,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,32912,1,3,0)
+50 ;;=3^Headache w/ Orthostatic Component,NEC
+51 ;;^UTILITY(U,$J,358.3,32912,1,4,0)
+52 ;;=4^R51.0
+53 ;;^UTILITY(U,$J,358.3,32912,2)
+54 ;;=^5159305
+55 ;;^UTILITY(U,$J,358.3,32913,0)
+56 ;;=R51.9^^99^1356^3
+57 ;;^UTILITY(U,$J,358.3,32913,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,32913,1,3,0)
+60 ;;=3^Headache,Unspecified
+61 ;;^UTILITY(U,$J,358.3,32913,1,4,0)
+62 ;;=4^R51.9
+63 ;;^UTILITY(U,$J,358.3,32913,2)
+64 ;;=^5159306
+65 ;;^UTILITY(U,$J,358.3,32914,0)
+66 ;;=E84.0^^99^1357^3
+67 ;;^UTILITY(U,$J,358.3,32914,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,32914,1,3,0)
+70 ;;=3^Cystic Fibrosis w/ Pulmonary Manifestations
+71 ;;^UTILITY(U,$J,358.3,32914,1,4,0)
+72 ;;=4^E84.0
+73 ;;^UTILITY(U,$J,358.3,32914,2)
+74 ;;=^5003009
+75 ;;^UTILITY(U,$J,358.3,32915,0)
+76 ;;=B20.^^99^1357^4
+77 ;;^UTILITY(U,$J,358.3,32915,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,32915,1,3,0)
+80 ;;=3^HIV
+81 ;;^UTILITY(U,$J,358.3,32915,1,4,0)
+82 ;;=4^B20.
+83 ;;^UTILITY(U,$J,358.3,32915,2)
+84 ;;=^5000555
+85 ;;^UTILITY(U,$J,358.3,32916,0)
+86 ;;=K90.0^^99^1357^1
+87 ;;^UTILITY(U,$J,358.3,32916,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,32916,1,3,0)
+90 ;;=3^Celiac Disease
+91 ;;^UTILITY(U,$J,358.3,32916,1,4,0)
+92 ;;=4^K90.0
+93 ;;^UTILITY(U,$J,358.3,32916,2)
+94 ;;=^20828
+95 ;;^UTILITY(U,$J,358.3,32917,0)
+96 ;;=D80.0^^99^1357^5
+97 ;;^UTILITY(U,$J,358.3,32917,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,32917,1,3,0)
+100 ;;=3^Hypogammaglobulinemia,Hereditary
+101 ;;^UTILITY(U,$J,358.3,32917,1,4,0)
+102 ;;=4^D80.0
+103 ;;^UTILITY(U,$J,358.3,32917,2)
+104 ;;=^5002405
+105 ;;^UTILITY(U,$J,358.3,32918,0)
+106 ;;=D80.1^^99^1357^6
+107 ;;^UTILITY(U,$J,358.3,32918,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,32918,1,3,0)
+110 ;;=3^Hypogammaglobulinemia,Nonfamilial
+111 ;;^UTILITY(U,$J,358.3,32918,1,4,0)
+112 ;;=4^D80.1
+113 ;;^UTILITY(U,$J,358.3,32918,2)
+114 ;;=^5002406
+115 ;;^UTILITY(U,$J,358.3,32919,0)
+116 ;;=D80.2^^99^1357^7
+117 ;;^UTILITY(U,$J,358.3,32919,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,32919,1,3,0)
+120 ;;=3^IgA Immunodeficiency
+121 ;;^UTILITY(U,$J,358.3,32919,1,4,0)
+122 ;;=4^D80.2
+123 ;;^UTILITY(U,$J,358.3,32919,2)
+124 ;;=^5002407
+125 ;;^UTILITY(U,$J,358.3,32920,0)
+126 ;;=D83.8^^99^1357^2
+127 ;;^UTILITY(U,$J,358.3,32920,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,32920,1,3,0)
+130 ;;=3^Common Variable Immunodeficiency,Other
+131 ;;^UTILITY(U,$J,358.3,32920,1,4,0)
+132 ;;=4^D83.8
+133 ;;^UTILITY(U,$J,358.3,32920,2)
+134 ;;=^5002436
+135 ;;^UTILITY(U,$J,358.3,32921,0)
+136 ;;=Q82.2^^99^1357^12
+137 ;;^UTILITY(U,$J,358.3,32921,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,32921,1,3,0)
+140 ;;=3^Mastocytosis,General
+141 ;;^UTILITY(U,$J,358.3,32921,1,4,0)
+142 ;;=4^Q82.2
+143 ;;^UTILITY(U,$J,358.3,32921,2)
+144 ;;=^74444
+145 ;;^UTILITY(U,$J,358.3,32922,0)
+146 ;;=C96.21^^99^1357^13
+147 ;;^UTILITY(U,$J,358.3,32922,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,32922,1,3,0)
+150 ;;=3^Mastocytosis,Systemic
+151 ;;^UTILITY(U,$J,358.3,32922,1,4,0)
+152 ;;=4^C96.21
+153 ;;^UTILITY(U,$J,358.3,32922,2)
+154 ;;=^5151294
+155 ;;^UTILITY(U,$J,358.3,32923,0)
+156 ;;=D84.81^^99^1357^9
+157 ;;^UTILITY(U,$J,358.3,32923,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,32923,1,3,0)
+160 ;;=3^Immunodeficiency d/t Conditions Classified Elsewhere
+161 ;;^UTILITY(U,$J,358.3,32923,1,4,0)
+162 ;;=4^D84.81
+163 ;;^UTILITY(U,$J,358.3,32923,2)
+164 ;;=^5159114
+165 ;;^UTILITY(U,$J,358.3,32924,0)
+166 ;;=D84.821^^99^1357^10
+167 ;;^UTILITY(U,$J,358.3,32924,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,32924,1,3,0)
+170 ;;=3^Immunodeficiency d/t Drugs
+171 ;;^UTILITY(U,$J,358.3,32924,1,4,0)
+172 ;;=4^D84.821
+173 ;;^UTILITY(U,$J,358.3,32924,2)
+174 ;;=^5159115
+175 ;;^UTILITY(U,$J,358.3,32925,0)
+176 ;;=D84.822^^99^1357^11
+177 ;;^UTILITY(U,$J,358.3,32925,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,32925,1,3,0)
+180 ;;=3^Immunodeficiency d/t External Causes
+181 ;;^UTILITY(U,$J,358.3,32925,1,4,0)
+182 ;;=4^D84.822
+183 ;;^UTILITY(U,$J,358.3,32925,2)
+184 ;;=^5159116
+185 ;;^UTILITY(U,$J,358.3,32926,0)
+186 ;;=D84.89^^99^1357^8
+187 ;;^UTILITY(U,$J,358.3,32926,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,32926,1,3,0)
+190 ;;=3^Immunodeficiencies,Other
+191 ;;^UTILITY(U,$J,358.3,32926,1,4,0)
+192 ;;=4^D84.89
+193 ;;^UTILITY(U,$J,358.3,32926,2)
+194 ;;=^5159117
+195 ;;^UTILITY(U,$J,358.3,32927,0)
+196 ;;=F17.210^^99^1358^8
+197 ;;^UTILITY(U,$J,358.3,32927,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,32927,1,3,0)
+200 ;;=3^Nicotine Dependence,Uncompl
+201 ;;^UTILITY(U,$J,358.3,32927,1,4,0)
+202 ;;=4^F17.210
+203 ;;^UTILITY(U,$J,358.3,32927,2)
+204 ;;=^5003365
+205 ;;^UTILITY(U,$J,358.3,32928,0)
+206 ;;=F17.211^^99^1358^7
+207 ;;^UTILITY(U,$J,358.3,32928,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,32928,1,3,0)
+210 ;;=3^Nicotine Dependence,In Remission
+211 ;;^UTILITY(U,$J,358.3,32928,1,4,0)
+212 ;;=4^F17.211
+213 ;;^UTILITY(U,$J,358.3,32928,2)
+214 ;;=^5003366
+215 ;;^UTILITY(U,$J,358.3,32929,0)
+216 ;;=F17.213^^99^1358^2
+217 ;;^UTILITY(U,$J,358.3,32929,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,32929,1,3,0)
+220 ;;=3^Nicotine Dependence w/ Withdrawal
+221 ;;^UTILITY(U,$J,358.3,32929,1,4,0)
+222 ;;=4^F17.213
+223 ;;^UTILITY(U,$J,358.3,32929,2)
+224 ;;=^5003367
+225 ;;^UTILITY(U,$J,358.3,32930,0)
+226 ;;=F17.218^^99^1358^1
+227 ;;^UTILITY(U,$J,358.3,32930,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,32930,1,3,0)
+230 ;;=3^Nicotine Dependence w/ Oth Disorders
+231 ;;^UTILITY(U,$J,358.3,32930,1,4,0)
+232 ;;=4^F17.218
+233 ;;^UTILITY(U,$J,358.3,32930,2)
+234 ;;=^5003368
+235 ;;^UTILITY(U,$J,358.3,32931,0)
+236 ;;=F17.220^^99^1358^6
+237 ;;^UTILITY(U,$J,358.3,32931,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,32931,1,3,0)
+240 ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomp
+241 ;;^UTILITY(U,$J,358.3,32931,1,4,0)
+242 ;;=4^F17.220
+243 ;;^UTILITY(U,$J,358.3,32931,2)
+244 ;;=^5003370
+245 ;;^UTILITY(U,$J,358.3,32932,0)
+246 ;;=F17.221^^99^1358^5
+247 ;;^UTILITY(U,$J,358.3,32932,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,32932,1,3,0)
+250 ;;=3^Nicotine Dependence,Chewing Tobacco,In Remission
+251 ;;^UTILITY(U,$J,358.3,32932,1,4,0)
+252 ;;=4^F17.221
+253 ;;^UTILITY(U,$J,358.3,32932,2)
+254 ;;=^5003371
+255 ;;^UTILITY(U,$J,358.3,32933,0)
+256 ;;=F17.223^^99^1358^3
+257 ;;^UTILITY(U,$J,358.3,32933,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,32933,1,3,0)
+260 ;;=3^Nicotine Dependence,Chewing Tobacco w/ Withdrawal
+261 ;;^UTILITY(U,$J,358.3,32933,1,4,0)
+262 ;;=4^F17.223
+263 ;;^UTILITY(U,$J,358.3,32933,2)
+264 ;;=^5003372
+265 ;;^UTILITY(U,$J,358.3,32934,0)
+266 ;;=F17.228^^99^1358^4
+267 ;;^UTILITY(U,$J,358.3,32934,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,32934,1,3,0)
+270 ;;=3^Nicotine Dependence,Chewing Tobacco w/ Oth Disorders
+271 ;;^UTILITY(U,$J,358.3,32934,1,4,0)
+272 ;;=4^F17.228
+273 ;;^UTILITY(U,$J,358.3,32934,2)
+274 ;;=^5003373
+275 ;;^UTILITY(U,$J,358.3,32935,0)
+276 ;;=Z51.81^^99^1359^19
+277 ;;^UTILITY(U,$J,358.3,32935,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,32935,1,3,0)
+280 ;;=3^Therapeutic Drug Monitoring
+281 ;;^UTILITY(U,$J,358.3,32935,1,4,0)
+282 ;;=4^Z51.81
+283 ;;^UTILITY(U,$J,358.3,32935,2)
+284 ;;=^5063064
+285 ;;^UTILITY(U,$J,358.3,32936,0)
+286 ;;=Z79.01^^99^1359^6
+287 ;;^UTILITY(U,$J,358.3,32936,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,32936,1,3,0)
+290 ;;=3^Long Term Current Use of Anticoagulants
+291 ;;^UTILITY(U,$J,358.3,32936,1,4,0)
+292 ;;=4^Z79.01
+293 ;;^UTILITY(U,$J,358.3,32936,2)
+294 ;;=^5063330
+295 ;;^UTILITY(U,$J,358.3,32937,0)
+296 ;;=Z79.02^^99^1359^7
+297 ;;^UTILITY(U,$J,358.3,32937,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,32937,1,3,0)
+300 ;;=3^Long Term Current Use of Antithrombotics/Antiplatelets
+301 ;;^UTILITY(U,$J,358.3,32937,1,4,0)
+302 ;;=4^Z79.02
+303 ;;^UTILITY(U,$J,358.3,32937,2)
+304 ;;=^5063331
+305 ;;^UTILITY(U,$J,358.3,32938,0)
+306 ;;=Z79.1^^99^1359^10
+307 ;;^UTILITY(U,$J,358.3,32938,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,32938,1,3,0)
+310 ;;=3^Long Term Current Use of NSAIDs
+311 ;;^UTILITY(U,$J,358.3,32938,1,4,0)
+312 ;;=4^Z79.1
+313 ;;^UTILITY(U,$J,358.3,32938,2)
+314 ;;=^5063332
+315 ;;^UTILITY(U,$J,358.3,32939,0)
+316 ;;=Z79.2^^99^1359^5
+317 ;;^UTILITY(U,$J,358.3,32939,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,32939,1,3,0)
+320 ;;=3^Long Term Current Use of Antibiotics
+321 ;;^UTILITY(U,$J,358.3,32939,1,4,0)
+322 ;;=4^Z79.2
+323 ;;^UTILITY(U,$J,358.3,32939,2)
+324 ;;=^321546
+325 ;;^UTILITY(U,$J,358.3,32940,0)
+326 ;;=Z79.82^^99^1359^8
+327 ;;^UTILITY(U,$J,358.3,32940,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,32940,1,3,0)
+330 ;;=3^Long Term Current Use of Aspirin
+331 ;;^UTILITY(U,$J,358.3,32940,1,4,0)
+332 ;;=4^Z79.82
+333 ;;^UTILITY(U,$J,358.3,32940,2)
+334 ;;=^5063340
+335 ;;^UTILITY(U,$J,358.3,32941,0)
+336 ;;=Z79.51^^99^1359^9
+337 ;;^UTILITY(U,$J,358.3,32941,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,32941,1,3,0)
+340 ;;=3^Long Term Current Use of Inhaled Steroids
+341 ;;^UTILITY(U,$J,358.3,32941,1,4,0)
+342 ;;=4^Z79.51
+343 ;;^UTILITY(U,$J,358.3,32941,2)
+344 ;;=^5063335
+345 ;;^UTILITY(U,$J,358.3,32942,0)
+346 ;;=Z79.52^^99^1359^11
+347 ;;^UTILITY(U,$J,358.3,32942,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,32942,1,3,0)
+350 ;;=3^Long Term Current Use of Systemic Steroids
+351 ;;^UTILITY(U,$J,358.3,32942,1,4,0)
+352 ;;=4^Z79.52
+353 ;;^UTILITY(U,$J,358.3,32942,2)
+354 ;;=^5063336
+355 ;;^UTILITY(U,$J,358.3,32943,0)
+356 ;;=Z91.19^^99^1359^12
+357 ;;^UTILITY(U,$J,358.3,32943,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,32943,1,3,0)
+360 ;;=3^Non-Compliance w/ Treatment/Regimen
+361 ;;^UTILITY(U,$J,358.3,32943,1,4,0)
+362 ;;=4^Z91.19
+363 ;;^UTILITY(U,$J,358.3,32943,2)
+364 ;;=^5063618
+365 ;;^UTILITY(U,$J,358.3,32944,0)
+366 ;;=Z87.01^^99^1359^15
+367 ;;^UTILITY(U,$J,358.3,32944,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,32944,1,3,0)
+370 ;;=3^Personal Hx of Pneumonia,Recurrent
+371 ;;^UTILITY(U,$J,358.3,32944,1,4,0)
+372 ;;=4^Z87.01
+373 ;;^UTILITY(U,$J,358.3,32944,2)
+374 ;;=^5063480
+375 ;;^UTILITY(U,$J,358.3,32945,0)
+376 ;;=Z92.22^^99^1359^13
+377 ;;^UTILITY(U,$J,358.3,32945,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,32945,1,3,0)
+380 ;;=3^Personal Hx of Monoclonal Drug Therapy
+381 ;;^UTILITY(U,$J,358.3,32945,1,4,0)
+382 ;;=4^Z92.22
+383 ;;^UTILITY(U,$J,358.3,32945,2)
+384 ;;=^5063631
+385 ;;^UTILITY(U,$J,358.3,32946,0)
+386 ;;=Z33.1^^99^1359^16
+387 ;;^UTILITY(U,$J,358.3,32946,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,32946,1,3,0)
+390 ;;=3^Pregnancy,Incidental to
+391 ;;^UTILITY(U,$J,358.3,32946,1,4,0)
+392 ;;=4^Z33.1
+393 ;;^UTILITY(U,$J,358.3,32946,2)
+394 ;;=^5062853
+395 ;;^UTILITY(U,$J,358.3,32947,0)
+396 ;;=Z13.83^^99^1359^18
+397 ;;^UTILITY(U,$J,358.3,32947,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,32947,1,3,0)
+400 ;;=3^Screening for Repiratory Disorder
+401 ;;^UTILITY(U,$J,358.3,32947,1,4,0)
+402 ;;=4^Z13.83
+403 ;;^UTILITY(U,$J,358.3,32947,2)
+404 ;;=^5062715
+405 ;;^UTILITY(U,$J,358.3,32948,0)
+406 ;;=Z13.820^^99^1359^17
+407 ;;^UTILITY(U,$J,358.3,32948,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,32948,1,3,0)
+410 ;;=3^Screening for Osteoporosis
+411 ;;^UTILITY(U,$J,358.3,32948,1,4,0)
+412 ;;=4^Z13.820
+413 ;;^UTILITY(U,$J,358.3,32948,2)
+414 ;;=^5062713
+415 ;;^UTILITY(U,$J,358.3,32949,0)
+416 ;;=Z23.^^99^1359^4
+417 ;;^UTILITY(U,$J,358.3,32949,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,32949,1,3,0)
+420 ;;=3^Immunization Visit
+421 ;;^UTILITY(U,$J,358.3,32949,1,4,0)
+422 ;;=4^Z23.
+423 ;;^UTILITY(U,$J,358.3,32949,2)
+424 ;;=^5062795
+425 ;;^UTILITY(U,$J,358.3,32950,0)
+426 ;;=Z01.82^^99^1359^1
+427 ;;^UTILITY(U,$J,358.3,32950,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,32950,1,3,0)
+430 ;;=3^Allergy Testing Visit
+431 ;;^UTILITY(U,$J,358.3,32950,1,4,0)
+432 ;;=4^Z01.82
+433 ;;^UTILITY(U,$J,358.3,32950,2)
+434 ;;=^5062629
+435 ;;^UTILITY(U,$J,358.3,32951,0)
+436 ;;=Z01.84^^99^1359^2
+437 ;;^UTILITY(U,$J,358.3,32951,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,32951,1,3,0)
+440 ;;=3^Antibody Response Exam
+441 ;;^UTILITY(U,$J,358.3,32951,1,4,0)
+442 ;;=4^Z01.84
+443 ;;^UTILITY(U,$J,358.3,32951,2)
+444 ;;=^5062631
+445 ;;^UTILITY(U,$J,358.3,32952,0)
+446 ;;=Z82.5^^99^1359^3
+447 ;;^UTILITY(U,$J,358.3,32952,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,32952,1,3,0)
+450 ;;=3^Family Hx of Asthma
+451 ;;^UTILITY(U,$J,358.3,32952,1,4,0)
+452 ;;=4^Z82.5
+453 ;;^UTILITY(U,$J,358.3,32952,2)
+454 ;;=^5063370
+455 ;;^UTILITY(U,$J,358.3,32953,0)
+456 ;;=Z87.891^^99^1359^14
+457 ;;^UTILITY(U,$J,358.3,32953,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,32953,1,3,0)
+460 ;;=3^Personal Hx of Nicotine Dependence
+461 ;;^UTILITY(U,$J,358.3,32953,1,4,0)
+462 ;;=4^Z87.891
+463 ;;^UTILITY(U,$J,358.3,32953,2)
+464 ;;=^5063518
+465 ;;^UTILITY(U,$J,358.3,32954,0)
+466 ;;=99202^^100^1360^1
+467 ;;^UTILITY(U,$J,358.3,32954,1,0)
+468 ;;=^358.31IA^2^2
+469 ;;^UTILITY(U,$J,358.3,32954,1,1,0)
+470 ;;=1^SF MDM or 15-29 mins
+471 ;;^UTILITY(U,$J,358.3,32954,1,2,0)
+472 ;;=2^99202
+473 ;;^UTILITY(U,$J,358.3,32955,0)
+474 ;;=99203^^100^1360^2
+475 ;;^UTILITY(U,$J,358.3,32955,1,0)
+476 ;;=^358.31IA^2^2
+477 ;;^UTILITY(U,$J,358.3,32955,1,1,0)
+478 ;;=1^Low Complex MDM or 30-44 mins
+479 ;;^UTILITY(U,$J,358.3,32955,1,2,0)
+480 ;;=2^99203
+481 ;;^UTILITY(U,$J,358.3,32956,0)
+482 ;;=99204^^100^1360^3
+483 ;;^UTILITY(U,$J,358.3,32956,1,0)
+484 ;;=^358.31IA^2^2
+485 ;;^UTILITY(U,$J,358.3,32956,1,1,0)
+486 ;;=1^Mod Complex MDM or 45-59 mins
+487 ;;^UTILITY(U,$J,358.3,32956,1,2,0)
+488 ;;=2^99204
+489 ;;^UTILITY(U,$J,358.3,32957,0)
+490 ;;=99205^^100^1360^4
+491 ;;^UTILITY(U,$J,358.3,32957,1,0)
+492 ;;=^358.31IA^2^2
+493 ;;^UTILITY(U,$J,358.3,32957,1,1,0)
+494 ;;=1^High Complex MDM or 60-74 mins
+495 ;;^UTILITY(U,$J,358.3,32957,1,2,0)
+496 ;;=2^99205
+497 ;;^UTILITY(U,$J,358.3,32958,0)
+498 ;;=99211^^100^1361^1
+499 ;;^UTILITY(U,$J,358.3,32958,1,0)
+500 ;;=^358.31IA^2^2
+501 ;;^UTILITY(U,$J,358.3,32958,1,1,0)
+502 ;;=1^Nursing Visit/Brief MD Visit
+503 ;;^UTILITY(U,$J,358.3,32958,1,2,0)
+504 ;;=2^99211
+505 ;;^UTILITY(U,$J,358.3,32959,0)
+506 ;;=99212^^100^1361^2
+507 ;;^UTILITY(U,$J,358.3,32959,1,0)
+508 ;;=^358.31IA^2^2
+509 ;;^UTILITY(U,$J,358.3,32959,1,1,0)
+510 ;;=1^SF MDM or 10-19 mins
+511 ;;^UTILITY(U,$J,358.3,32959,1,2,0)
+512 ;;=2^99212
+513 ;;^UTILITY(U,$J,358.3,32960,0)
+514 ;;=99213^^100^1361^3
+515 ;;^UTILITY(U,$J,358.3,32960,1,0)
+516 ;;=^358.31IA^2^2
+517 ;;^UTILITY(U,$J,358.3,32960,1,1,0)
+518 ;;=1^Low Complex MDM or 20-29 mins
+519 ;;^UTILITY(U,$J,358.3,32960,1,2,0)
+520 ;;=2^99213
+521 ;;^UTILITY(U,$J,358.3,32961,0)
+522 ;;=99214^^100^1361^4
+523 ;;^UTILITY(U,$J,358.3,32961,1,0)
+524 ;;=^358.31IA^2^2
+525 ;;^UTILITY(U,$J,358.3,32961,1,1,0)
+526 ;;=1^Mod Complex MDM or 30-39 mins
+527 ;;^UTILITY(U,$J,358.3,32961,1,2,0)
+528 ;;=2^99214
+529 ;;^UTILITY(U,$J,358.3,32962,0)
+530 ;;=99215^^100^1361^5
+531 ;;^UTILITY(U,$J,358.3,32962,1,0)
+532 ;;=^358.31IA^2^2
+533 ;;^UTILITY(U,$J,358.3,32962,1,1,0)
+534 ;;=1^High Complex MDM or 40-54 mins
+535 ;;^UTILITY(U,$J,358.3,32962,1,2,0)
+536 ;;=2^99215
+537 ;;^UTILITY(U,$J,358.3,32963,0)
+538 ;;=99241^^100^1362^1
+539 ;;^UTILITY(U,$J,358.3,32963,1,0)
+540 ;;=^358.31IA^2^2
+541 ;;^UTILITY(U,$J,358.3,32963,1,1,0)
+542 ;;=1^Problem Focused
+543 ;;^UTILITY(U,$J,358.3,32963,1,2,0)
+544 ;;=2^99241
+545 ;;^UTILITY(U,$J,358.3,32964,0)
+546 ;;=99242^^100^1362^2
+547 ;;^UTILITY(U,$J,358.3,32964,1,0)
+548 ;;=^358.31IA^2^2
+549 ;;^UTILITY(U,$J,358.3,32964,1,1,0)
+550 ;;=1^Expanded Problem Focus
+551 ;;^UTILITY(U,$J,358.3,32964,1,2,0)
+552 ;;=2^99242
+553 ;;^UTILITY(U,$J,358.3,32965,0)
+554 ;;=99243^^100^1362^3
+555 ;;^UTILITY(U,$J,358.3,32965,1,0)
+556 ;;=^358.31IA^2^2
+557 ;;^UTILITY(U,$J,358.3,32965,1,1,0)
+558 ;;=1^Detailed
+559 ;;^UTILITY(U,$J,358.3,32965,1,2,0)
+560 ;;=2^99243
+561 ;;^UTILITY(U,$J,358.3,32966,0)
+562 ;;=99244^^100^1362^4
+563 ;;^UTILITY(U,$J,358.3,32966,1,0)
+564 ;;=^358.31IA^2^2
+565 ;;^UTILITY(U,$J,358.3,32966,1,1,0)
+566 ;;=1^Comprehensive, Moderate
+567 ;;^UTILITY(U,$J,358.3,32966,1,2,0)
+568 ;;=2^99244
+569 ;;^UTILITY(U,$J,358.3,32967,0)
+570 ;;=99245^^100^1362^5
+571 ;;^UTILITY(U,$J,358.3,32967,1,0)
+572 ;;=^358.31IA^2^2
+573 ;;^UTILITY(U,$J,358.3,32967,1,1,0)
+574 ;;=1^Comprehensive, High
+575 ;;^UTILITY(U,$J,358.3,32967,1,2,0)
+576 ;;=2^99245
+577 ;;^UTILITY(U,$J,358.3,32968,0)
+578 ;;=99024^^100^1363^1
+579 ;;^UTILITY(U,$J,358.3,32968,1,0)
+580 ;;=^358.31IA^2^2
+581 ;;^UTILITY(U,$J,358.3,32968,1,1,0)
+582 ;;=1^Post Op F/U Visit (Global)
+583 ;;^UTILITY(U,$J,358.3,32968,1,2,0)
+584 ;;=2^99024
+585 ;;^UTILITY(U,$J,358.3,32969,0)
+586 ;;=38240^^101^1364^1^^^^1
+587 ;;^UTILITY(U,$J,358.3,32969,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,32969,1,2,0)
+590 ;;=2^BN MARROW/STM TRANSPLT ALLO
+591 ;;^UTILITY(U,$J,358.3,32969,1,4,0)
+592 ;;=4^38240
+593 ;;^UTILITY(U,$J,358.3,32970,0)
+594 ;;=38241^^101^1364^2^^^^1
+595 ;;^UTILITY(U,$J,358.3,32970,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,32970,1,2,0)
+598 ;;=2^BN MARROW/STM TRANSPLT AUTO
+599 ;;^UTILITY(U,$J,358.3,32970,1,4,0)
+600 ;;=4^38241
+601 ;;^UTILITY(U,$J,358.3,32971,0)
+602 ;;=38242^^101^1364^6^^^^1
+603 ;;^UTILITY(U,$J,358.3,32971,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,32971,1,2,0)
+606 ;;=2^LYMPHOCYTE INFUSE TRANSPLANT
+607 ;;^UTILITY(U,$J,358.3,32971,1,4,0)
+608 ;;=4^38242
+609 ;;^UTILITY(U,$J,358.3,32972,0)
+610 ;;=38230^^101^1364^3^^^^1
+611 ;;^UTILITY(U,$J,358.3,32972,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,32972,1,2,0)
+614 ;;=2^BONE MARROW HARVEST ALLOGEN
+615 ;;^UTILITY(U,$J,358.3,32972,1,4,0)
+616 ;;=4^38230
+617 ;;^UTILITY(U,$J,358.3,32973,0)
+618 ;;=38205^^101^1364^4^^^^1
+619 ;;^UTILITY(U,$J,358.3,32973,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,32973,1,2,0)
+622 ;;=2^HARVEST ALLOGENEIC STEM CELL
+623 ;;^UTILITY(U,$J,358.3,32973,1,4,0)
+624 ;;=4^38205
+625 ;;^UTILITY(U,$J,358.3,32974,0)
+626 ;;=38206^^101^1364^5^^^^1
+627 ;;^UTILITY(U,$J,358.3,32974,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,32974,1,2,0)
+630 ;;=2^HARVEST AUTO STEM CELLS
+631 ;;^UTILITY(U,$J,358.3,32974,1,4,0)
+632 ;;=4^38206
+633 ;;^UTILITY(U,$J,358.3,32975,0)
+634 ;;=33945^^101^1365^2^^^^1
+635 ;;^UTILITY(U,$J,358.3,32975,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,32975,1,2,0)
+638 ;;=2^TRANSPLANTATION OF HEART
+639 ;;^UTILITY(U,$J,358.3,32975,1,4,0)
+640 ;;=4^33945
+641 ;;^UTILITY(U,$J,358.3,32976,0)
+642 ;;=33944^^101^1365^1^^^^1
+643 ;;^UTILITY(U,$J,358.3,32976,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,32976,1,2,0)
+646 ;;=2^PREPARE DONOR HEART
+647 ;;^UTILITY(U,$J,358.3,32976,1,4,0)
+648 ;;=4^33944
+649 ;;^UTILITY(U,$J,358.3,32977,0)
+650 ;;=33935^^101^1366^2^^^^1
+651 ;;^UTILITY(U,$J,358.3,32977,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,32977,1,2,0)
+654 ;;=2^TRANSPLANTATION HEART/LUNG
+655 ;;^UTILITY(U,$J,358.3,32977,1,4,0)
+656 ;;=4^33935
+657 ;;^UTILITY(U,$J,358.3,32978,0)
+658 ;;=33933^^101^1366^1^^^^1
+659 ;;^UTILITY(U,$J,358.3,32978,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,32978,1,2,0)
+662 ;;=2^PREPARE DONOR HEART/LUNG
+663 ;;^UTILITY(U,$J,358.3,32978,1,4,0)
+664 ;;=4^33933
+665 ;;^UTILITY(U,$J,358.3,32979,0)
+666 ;;=47135^^101^1367^7^^^^1
+667 ;;^UTILITY(U,$J,358.3,32979,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,32979,1,2,0)
+670 ;;=2^TRANSPLANT ORTHOTOPIC
+671 ;;^UTILITY(U,$J,358.3,32979,1,4,0)
+672 ;;=4^47135
+673 ;;^UTILITY(U,$J,358.3,32980,0)
+674 ;;=47143^^101^1367^3^^^^1
+675 ;;^UTILITY(U,$J,358.3,32980,1,0)
+676 ;;=^358.31IA^4^2
+677 ;;^UTILITY(U,$J,358.3,32980,1,2,0)
+678 ;;=2^PREP DONOR LIVER WHOLE
+679 ;;^UTILITY(U,$J,358.3,32980,1,4,0)
+680 ;;=4^47143
+681 ;;^UTILITY(U,$J,358.3,32981,0)
+682 ;;=47144^^101^1367^1^^^^1
+683 ;;^UTILITY(U,$J,358.3,32981,1,0)
+684 ;;=^358.31IA^4^2