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

IBDEI03K.m

Go to the documentation of this file.
IBDEI03K ; ; 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,8525,1,4,0)
 ;;=4^L97.316
 ;;^UTILITY(U,$J,358.3,8525,2)
 ;;=^5151452
 ;;^UTILITY(U,$J,358.3,8526,0)
 ;;=L97.315^^45^421^228
 ;;^UTILITY(U,$J,358.3,8526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8526,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8526,1,4,0)
 ;;=4^L97.315
 ;;^UTILITY(U,$J,358.3,8526,2)
 ;;=^5151451
 ;;^UTILITY(U,$J,358.3,8527,0)
 ;;=L97.318^^45^421^229
 ;;^UTILITY(U,$J,358.3,8527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8527,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8527,1,4,0)
 ;;=4^L97.318
 ;;^UTILITY(U,$J,358.3,8527,2)
 ;;=^5151453
 ;;^UTILITY(U,$J,358.3,8528,0)
 ;;=L97.216^^45^421^235
 ;;^UTILITY(U,$J,358.3,8528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8528,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8528,1,4,0)
 ;;=4^L97.216
 ;;^UTILITY(U,$J,358.3,8528,2)
 ;;=^5151443
 ;;^UTILITY(U,$J,358.3,8529,0)
 ;;=L97.215^^45^421^236
 ;;^UTILITY(U,$J,358.3,8529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8529,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8529,1,4,0)
 ;;=4^L97.215
 ;;^UTILITY(U,$J,358.3,8529,2)
 ;;=^5151442
 ;;^UTILITY(U,$J,358.3,8530,0)
 ;;=L97.218^^45^421^237
 ;;^UTILITY(U,$J,358.3,8530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8530,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8530,1,4,0)
 ;;=4^L97.218
 ;;^UTILITY(U,$J,358.3,8530,2)
 ;;=^5151444
 ;;^UTILITY(U,$J,358.3,8531,0)
 ;;=L97.516^^45^421^243
 ;;^UTILITY(U,$J,358.3,8531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8531,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8531,1,4,0)
 ;;=4^L97.516
 ;;^UTILITY(U,$J,358.3,8531,2)
 ;;=^5151470
 ;;^UTILITY(U,$J,358.3,8532,0)
 ;;=L97.515^^45^421^244
 ;;^UTILITY(U,$J,358.3,8532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8532,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8532,1,4,0)
 ;;=4^L97.515
 ;;^UTILITY(U,$J,358.3,8532,2)
 ;;=^5151469
 ;;^UTILITY(U,$J,358.3,8533,0)
 ;;=L97.518^^45^421^245
 ;;^UTILITY(U,$J,358.3,8533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8533,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8533,1,4,0)
 ;;=4^L97.518
 ;;^UTILITY(U,$J,358.3,8533,2)
 ;;=^5151471
 ;;^UTILITY(U,$J,358.3,8534,0)
 ;;=L97.416^^45^421^251
 ;;^UTILITY(U,$J,358.3,8534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8534,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8534,1,4,0)
 ;;=4^L97.416
 ;;^UTILITY(U,$J,358.3,8534,2)
 ;;=^5151461
 ;;^UTILITY(U,$J,358.3,8535,0)
 ;;=L97.415^^45^421^252
 ;;^UTILITY(U,$J,358.3,8535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8535,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8535,1,4,0)
 ;;=4^L97.415
 ;;^UTILITY(U,$J,358.3,8535,2)
 ;;=^5151460
 ;;^UTILITY(U,$J,358.3,8536,0)
 ;;=L97.418^^45^421^253
 ;;^UTILITY(U,$J,358.3,8536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8536,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Hell/Midft w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8536,1,4,0)
 ;;=4^L97.418
 ;;^UTILITY(U,$J,358.3,8536,2)
 ;;=^5151462
 ;;^UTILITY(U,$J,358.3,8537,0)
 ;;=L97.916^^45^421^259
 ;;^UTILITY(U,$J,358.3,8537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8537,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8537,1,4,0)
 ;;=4^L97.916
 ;;^UTILITY(U,$J,358.3,8537,2)
 ;;=^5151488
 ;;^UTILITY(U,$J,358.3,8538,0)
 ;;=L97.915^^45^421^260
 ;;^UTILITY(U,$J,358.3,8538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8538,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8538,1,4,0)
 ;;=4^L97.915
 ;;^UTILITY(U,$J,358.3,8538,2)
 ;;=^5151487
 ;;^UTILITY(U,$J,358.3,8539,0)
 ;;=L97.918^^45^421^261
 ;;^UTILITY(U,$J,358.3,8539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8539,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8539,1,4,0)
 ;;=4^L97.918
 ;;^UTILITY(U,$J,358.3,8539,2)
 ;;=^5151489
 ;;^UTILITY(U,$J,358.3,8540,0)
 ;;=L97.116^^45^421^267
 ;;^UTILITY(U,$J,358.3,8540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8540,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8540,1,4,0)
 ;;=4^L97.116
 ;;^UTILITY(U,$J,358.3,8540,2)
 ;;=^5151434
 ;;^UTILITY(U,$J,358.3,8541,0)
 ;;=L97.115^^45^421^268
 ;;^UTILITY(U,$J,358.3,8541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8541,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8541,1,4,0)
 ;;=4^L97.115
 ;;^UTILITY(U,$J,358.3,8541,2)
 ;;=^5151433
 ;;^UTILITY(U,$J,358.3,8542,0)
 ;;=L89.306^^45^421^276
 ;;^UTILITY(U,$J,358.3,8542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8542,1,3,0)
 ;;=3^Pressure Induced Deep Tissue Damage,Unspec Buttock
 ;;^UTILITY(U,$J,358.3,8542,1,4,0)
 ;;=4^L89.306
 ;;^UTILITY(U,$J,358.3,8542,2)
 ;;=^5158088
 ;;^UTILITY(U,$J,358.3,8543,0)
 ;;=L89.46^^45^421^275
 ;;^UTILITY(U,$J,358.3,8543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8543,1,3,0)
 ;;=3^Pressure Induced Deep Tissue Damage,Contig Site:Back/Buttock/Hip
 ;;^UTILITY(U,$J,358.3,8543,1,4,0)
 ;;=4^L89.46
 ;;^UTILITY(U,$J,358.3,8543,2)
 ;;=^5158091
 ;;^UTILITY(U,$J,358.3,8544,0)
 ;;=L02.818^^45^421^128
 ;;^UTILITY(U,$J,358.3,8544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8544,1,3,0)
 ;;=3^Cutaneous Abscess of Other Sites
 ;;^UTILITY(U,$J,358.3,8544,1,4,0)
 ;;=4^L02.818
 ;;^UTILITY(U,$J,358.3,8544,2)
 ;;=^5009011
 ;;^UTILITY(U,$J,358.3,8545,0)
 ;;=H65.03^^45^422^3
 ;;^UTILITY(U,$J,358.3,8545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8545,1,3,0)
 ;;=3^Acute Serous Otitis Media,Bilateral
 ;;^UTILITY(U,$J,358.3,8545,1,4,0)
 ;;=4^H65.03
 ;;^UTILITY(U,$J,358.3,8545,2)
 ;;=^5006572
 ;;^UTILITY(U,$J,358.3,8546,0)
 ;;=H65.01^^45^422^5
 ;;^UTILITY(U,$J,358.3,8546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8546,1,3,0)
 ;;=3^Acute Serous Otitis Media,Right Ear
 ;;^UTILITY(U,$J,358.3,8546,1,4,0)
 ;;=4^H65.01
 ;;^UTILITY(U,$J,358.3,8546,2)
 ;;=^5006570
 ;;^UTILITY(U,$J,358.3,8547,0)
 ;;=H65.23^^45^422^15
 ;;^UTILITY(U,$J,358.3,8547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8547,1,3,0)
 ;;=3^Chronic Serous Otitis Media,Bilateral
 ;;^UTILITY(U,$J,358.3,8547,1,4,0)
 ;;=4^H65.23
 ;;^UTILITY(U,$J,358.3,8547,2)
 ;;=^5006596
 ;;^UTILITY(U,$J,358.3,8548,0)
 ;;=H65.22^^45^422^16
 ;;^UTILITY(U,$J,358.3,8548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8548,1,3,0)
 ;;=3^Chronic Serous Otitis Media,Left Ear
 ;;^UTILITY(U,$J,358.3,8548,1,4,0)
 ;;=4^H65.22
 ;;^UTILITY(U,$J,358.3,8548,2)
 ;;=^5006595
 ;;^UTILITY(U,$J,358.3,8549,0)
 ;;=H65.21^^45^422^17
 ;;^UTILITY(U,$J,358.3,8549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8549,1,3,0)
 ;;=3^Chronic Serous Otitis Media,Right Ear
 ;;^UTILITY(U,$J,358.3,8549,1,4,0)
 ;;=4^H65.21
 ;;^UTILITY(U,$J,358.3,8549,2)
 ;;=^5006594
 ;;^UTILITY(U,$J,358.3,8550,0)
 ;;=H66.012^^45^422^6
 ;;^UTILITY(U,$J,358.3,8550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8550,1,3,0)
 ;;=3^Acute Suppr Otitis Media w/ Spon Rupt Ear Drum,Left Ear
 ;;^UTILITY(U,$J,358.3,8550,1,4,0)
 ;;=4^H66.012
 ;;^UTILITY(U,$J,358.3,8550,2)
 ;;=^5133534
 ;;^UTILITY(U,$J,358.3,8551,0)
 ;;=H66.011^^45^422^7
 ;;^UTILITY(U,$J,358.3,8551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8551,1,3,0)
 ;;=3^Acute Suppr Otitis Media w/ Spon Rupt Ear Drum,Right Ear
 ;;^UTILITY(U,$J,358.3,8551,1,4,0)
 ;;=4^H66.011
 ;;^UTILITY(U,$J,358.3,8551,2)
 ;;=^5006621
 ;;^UTILITY(U,$J,358.3,8552,0)
 ;;=H66.91^^45^422^36
 ;;^UTILITY(U,$J,358.3,8552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8552,1,3,0)
 ;;=3^Otitis Media,Unspec,Right Ear
 ;;^UTILITY(U,$J,358.3,8552,1,4,0)
 ;;=4^H66.91
 ;;^UTILITY(U,$J,358.3,8552,2)
 ;;=^5006640
 ;;^UTILITY(U,$J,358.3,8553,0)
 ;;=H66.92^^45^422^35
 ;;^UTILITY(U,$J,358.3,8553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8553,1,3,0)
 ;;=3^Otitis Media,Unspec,Left Ear
 ;;^UTILITY(U,$J,358.3,8553,1,4,0)
 ;;=4^H66.92
 ;;^UTILITY(U,$J,358.3,8553,2)
 ;;=^5006641
 ;;^UTILITY(U,$J,358.3,8554,0)
 ;;=H66.93^^45^422^34
 ;;^UTILITY(U,$J,358.3,8554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8554,1,3,0)
 ;;=3^Otitis Media,Unspec,Bilateral
 ;;^UTILITY(U,$J,358.3,8554,1,4,0)
 ;;=4^H66.93
 ;;^UTILITY(U,$J,358.3,8554,2)
 ;;=^5006642
 ;;^UTILITY(U,$J,358.3,8555,0)
 ;;=H81.10^^45^422^37
 ;;^UTILITY(U,$J,358.3,8555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8555,1,3,0)
 ;;=3^Paroxysmal Veritgo,Benign,Unspec Ear
 ;;^UTILITY(U,$J,358.3,8555,1,4,0)
 ;;=4^H81.10
 ;;^UTILITY(U,$J,358.3,8555,2)
 ;;=^5006864
 ;;^UTILITY(U,$J,358.3,8556,0)
 ;;=H93.13^^45^422^41
 ;;^UTILITY(U,$J,358.3,8556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8556,1,3,0)
 ;;=3^Tinnitus,Bilateral
 ;;^UTILITY(U,$J,358.3,8556,1,4,0)
 ;;=4^H93.13
 ;;^UTILITY(U,$J,358.3,8556,2)
 ;;=^5006966
 ;;^UTILITY(U,$J,358.3,8557,0)
 ;;=H93.12^^45^422^42
 ;;^UTILITY(U,$J,358.3,8557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8557,1,3,0)
 ;;=3^Tinnitus,Left Ear
 ;;^UTILITY(U,$J,358.3,8557,1,4,0)
 ;;=4^H93.12
 ;;^UTILITY(U,$J,358.3,8557,2)
 ;;=^5006965
 ;;^UTILITY(U,$J,358.3,8558,0)
 ;;=H93.11^^45^422^43
 ;;^UTILITY(U,$J,358.3,8558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8558,1,3,0)
 ;;=3^Tinnitus,Right Ear
 ;;^UTILITY(U,$J,358.3,8558,1,4,0)
 ;;=4^H93.11
 ;;^UTILITY(U,$J,358.3,8558,2)
 ;;=^5006964
 ;;^UTILITY(U,$J,358.3,8559,0)
 ;;=H92.01^^45^422^33
 ;;^UTILITY(U,$J,358.3,8559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8559,1,3,0)
 ;;=3^Otalgia,Right Ear
 ;;^UTILITY(U,$J,358.3,8559,1,4,0)
 ;;=4^H92.01
 ;;^UTILITY(U,$J,358.3,8559,2)
 ;;=^5006945
 ;;^UTILITY(U,$J,358.3,8560,0)
 ;;=H92.02^^45^422^32
 ;;^UTILITY(U,$J,358.3,8560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8560,1,3,0)
 ;;=3^Otalgia,Left Ear
 ;;^UTILITY(U,$J,358.3,8560,1,4,0)
 ;;=4^H92.02
 ;;^UTILITY(U,$J,358.3,8560,2)
 ;;=^5006946
 ;;^UTILITY(U,$J,358.3,8561,0)
 ;;=H92.03^^45^422^31
 ;;^UTILITY(U,$J,358.3,8561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8561,1,3,0)
 ;;=3^Otalgia,Bilateral
 ;;^UTILITY(U,$J,358.3,8561,1,4,0)
 ;;=4^H92.03
 ;;^UTILITY(U,$J,358.3,8561,2)
 ;;=^5006947
 ;;^UTILITY(U,$J,358.3,8562,0)
 ;;=H91.92^^45^422^22
 ;;^UTILITY(U,$J,358.3,8562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8562,1,3,0)
 ;;=3^Hearing Loss,Unspec,Left Ear
 ;;^UTILITY(U,$J,358.3,8562,1,4,0)
 ;;=4^H91.92
 ;;^UTILITY(U,$J,358.3,8562,2)
 ;;=^5133554
 ;;^UTILITY(U,$J,358.3,8563,0)
 ;;=H91.93^^45^422^21
 ;;^UTILITY(U,$J,358.3,8563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8563,1,3,0)
 ;;=3^Hearing Loss,Unspec,Bilateral
 ;;^UTILITY(U,$J,358.3,8563,1,4,0)
 ;;=4^H91.93
 ;;^UTILITY(U,$J,358.3,8563,2)
 ;;=^5006944
 ;;^UTILITY(U,$J,358.3,8564,0)
 ;;=H91.91^^45^422^23
 ;;^UTILITY(U,$J,358.3,8564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8564,1,3,0)
 ;;=3^Hearing Loss,Unspec,Right Ear
 ;;^UTILITY(U,$J,358.3,8564,1,4,0)
 ;;=4^H91.91
 ;;^UTILITY(U,$J,358.3,8564,2)
 ;;=^5133553
 ;;^UTILITY(U,$J,358.3,8565,0)
 ;;=H65.02^^45^422^4
 ;;^UTILITY(U,$J,358.3,8565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8565,1,3,0)
 ;;=3^Acute Serous Otitis Media,Left Ear
 ;;^UTILITY(U,$J,358.3,8565,1,4,0)
 ;;=4^H65.02
 ;;^UTILITY(U,$J,358.3,8565,2)
 ;;=^5006571
 ;;^UTILITY(U,$J,358.3,8566,0)
 ;;=H60.312^^45^422^19
 ;;^UTILITY(U,$J,358.3,8566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8566,1,3,0)
 ;;=3^Diffuse Otitis Externa,Left Ear
 ;;^UTILITY(U,$J,358.3,8566,1,4,0)
 ;;=4^H60.312
 ;;^UTILITY(U,$J,358.3,8566,2)
 ;;=^5006448
 ;;^UTILITY(U,$J,358.3,8567,0)
 ;;=H60.311^^45^422^20
 ;;^UTILITY(U,$J,358.3,8567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8567,1,3,0)
 ;;=3^Diffuse Otitis Externa,Right Ear
 ;;^UTILITY(U,$J,358.3,8567,1,4,0)
 ;;=4^H60.311
 ;;^UTILITY(U,$J,358.3,8567,2)
 ;;=^5006447
 ;;^UTILITY(U,$J,358.3,8568,0)
 ;;=H55.09^^45^422^30
 ;;^UTILITY(U,$J,358.3,8568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8568,1,3,0)
 ;;=3^Nystagmus NEC
 ;;^UTILITY(U,$J,358.3,8568,1,4,0)
 ;;=4^H55.09
 ;;^UTILITY(U,$J,358.3,8568,2)
 ;;=^87599
 ;;^UTILITY(U,$J,358.3,8569,0)
 ;;=H60.01^^45^422^2
 ;;^UTILITY(U,$J,358.3,8569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8569,1,3,0)
 ;;=3^Abscess External Ear,Right
 ;;^UTILITY(U,$J,358.3,8569,1,4,0)
 ;;=4^H60.01
 ;;^UTILITY(U,$J,358.3,8569,2)
 ;;=^5006436
 ;;^UTILITY(U,$J,358.3,8570,0)
 ;;=H60.02^^45^422^1
 ;;^UTILITY(U,$J,358.3,8570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8570,1,3,0)
 ;;=3^Abscess External Ear,Left
 ;;^UTILITY(U,$J,358.3,8570,1,4,0)
 ;;=4^H60.02
 ;;^UTILITY(U,$J,358.3,8570,2)
 ;;=^5006437
 ;;^UTILITY(U,$J,358.3,8571,0)
 ;;=H60.12^^45^422^13
 ;;^UTILITY(U,$J,358.3,8571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8571,1,3,0)
 ;;=3^Cellulitis External Ear,Left
 ;;^UTILITY(U,$J,358.3,8571,1,4,0)
 ;;=4^H60.12
 ;;^UTILITY(U,$J,358.3,8571,2)
 ;;=^5006441
 ;;^UTILITY(U,$J,358.3,8572,0)
 ;;=H60.11^^45^422^14
 ;;^UTILITY(U,$J,358.3,8572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8572,1,3,0)
 ;;=3^Cellulitis External Ear,Right
 ;;^UTILITY(U,$J,358.3,8572,1,4,0)
 ;;=4^H60.11
 ;;^UTILITY(U,$J,358.3,8572,2)
 ;;=^5006440
 ;;^UTILITY(U,$J,358.3,8573,0)
 ;;=H61.21^^45^422^26
 ;;^UTILITY(U,$J,358.3,8573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8573,1,3,0)
 ;;=3^Impacted Cerumen,Right Ear
 ;;^UTILITY(U,$J,358.3,8573,1,4,0)
 ;;=4^H61.21
 ;;^UTILITY(U,$J,358.3,8573,2)
 ;;=^5006531
 ;;^UTILITY(U,$J,358.3,8574,0)
 ;;=H61.22^^45^422^25
 ;;^UTILITY(U,$J,358.3,8574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8574,1,3,0)
 ;;=3^Impacted Cerumen,Left Ear
 ;;^UTILITY(U,$J,358.3,8574,1,4,0)
 ;;=4^H61.22
 ;;^UTILITY(U,$J,358.3,8574,2)
 ;;=^5006532
 ;;^UTILITY(U,$J,358.3,8575,0)
 ;;=H61.23^^45^422^24
 ;;^UTILITY(U,$J,358.3,8575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8575,1,3,0)
 ;;=3^Impacted Cerumen,Bilateral 
 ;;^UTILITY(U,$J,358.3,8575,1,4,0)
 ;;=4^H61.23
 ;;^UTILITY(U,$J,358.3,8575,2)
 ;;=^5006533
 ;;^UTILITY(U,$J,358.3,8576,0)
 ;;=H81.01^^45^422^29
 ;;^UTILITY(U,$J,358.3,8576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8576,1,3,0)
 ;;=3^Meniere's Disease,Right Ear
 ;;^UTILITY(U,$J,358.3,8576,1,4,0)
 ;;=4^H81.01
 ;;^UTILITY(U,$J,358.3,8576,2)
 ;;=^5006860
 ;;^UTILITY(U,$J,358.3,8577,0)
 ;;=H81.02^^45^422^28
 ;;^UTILITY(U,$J,358.3,8577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8577,1,3,0)
 ;;=3^Meniere's Disease,Left Ear
 ;;^UTILITY(U,$J,358.3,8577,1,4,0)
 ;;=4^H81.02
 ;;^UTILITY(U,$J,358.3,8577,2)
 ;;=^5006861
 ;;^UTILITY(U,$J,358.3,8578,0)
 ;;=H81.03^^45^422^27
 ;;^UTILITY(U,$J,358.3,8578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8578,1,3,0)
 ;;=3^Meniere's Disease,Bilateral
 ;;^UTILITY(U,$J,358.3,8578,1,4,0)
 ;;=4^H81.03
 ;;^UTILITY(U,$J,358.3,8578,2)
 ;;=^5006862
 ;;^UTILITY(U,$J,358.3,8579,0)
 ;;=H81.12^^45^422^9
 ;;^UTILITY(U,$J,358.3,8579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8579,1,3,0)
 ;;=3^Benign Paroxysmal Vertigo,Left Ear
 ;;^UTILITY(U,$J,358.3,8579,1,4,0)
 ;;=4^H81.12
 ;;^UTILITY(U,$J,358.3,8579,2)
 ;;=^5006866
 ;;^UTILITY(U,$J,358.3,8580,0)
 ;;=H81.11^^45^422^10
 ;;^UTILITY(U,$J,358.3,8580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8580,1,3,0)
 ;;=3^Benign Paroxysmal Vertigo,Right Ear
 ;;^UTILITY(U,$J,358.3,8580,1,4,0)
 ;;=4^H81.11
 ;;^UTILITY(U,$J,358.3,8580,2)
 ;;=^5006865
 ;;^UTILITY(U,$J,358.3,8581,0)
 ;;=H81.13^^45^422^8
 ;;^UTILITY(U,$J,358.3,8581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8581,1,3,0)
 ;;=3^Benign Paroxysmal Vertigo,Bilateral
 ;;^UTILITY(U,$J,358.3,8581,1,4,0)
 ;;=4^H81.13
 ;;^UTILITY(U,$J,358.3,8581,2)
 ;;=^5006867
 ;;^UTILITY(U,$J,358.3,8582,0)
 ;;=H81.10^^45^422^11
 ;;^UTILITY(U,$J,358.3,8582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8582,1,3,0)
 ;;=3^Benign Paroxysmal Vertigo,Unspec Ear
 ;;^UTILITY(U,$J,358.3,8582,1,4,0)
 ;;=4^H81.10
 ;;^UTILITY(U,$J,358.3,8582,2)
 ;;=^5006864
 ;;^UTILITY(U,$J,358.3,8583,0)
 ;;=B37.84^^45^422^12
 ;;^UTILITY(U,$J,358.3,8583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8583,1,3,0)
 ;;=3^Candidal Otitis Externa
 ;;^UTILITY(U,$J,358.3,8583,1,4,0)
 ;;=4^B37.84
 ;;^UTILITY(U,$J,358.3,8583,2)
 ;;=^266875
 ;;^UTILITY(U,$J,358.3,8584,0)
 ;;=H60.313^^45^422^18
 ;;^UTILITY(U,$J,358.3,8584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8584,1,3,0)
 ;;=3^Diffuse Otitis Externa,Bilateral
 ;;^UTILITY(U,$J,358.3,8584,1,4,0)
 ;;=4^H60.313
 ;;^UTILITY(U,$J,358.3,8584,2)
 ;;=^5006449
 ;;^UTILITY(U,$J,358.3,8585,0)
 ;;=H93.A3^^45^422^38
 ;;^UTILITY(U,$J,358.3,8585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8585,1,3,0)
 ;;=3^Pulsatile Tinnitus,Bilateral
 ;;^UTILITY(U,$J,358.3,8585,1,4,0)
 ;;=4^H93.A3
 ;;^UTILITY(U,$J,358.3,8585,2)
 ;;=^5138592
 ;;^UTILITY(U,$J,358.3,8586,0)
 ;;=H93.A1^^45^422^40
 ;;^UTILITY(U,$J,358.3,8586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8586,1,3,0)
 ;;=3^Pulsatile Tinnitus,Right Ear
 ;;^UTILITY(U,$J,358.3,8586,1,4,0)
 ;;=4^H93.A1
 ;;^UTILITY(U,$J,358.3,8586,2)
 ;;=^5138590
 ;;^UTILITY(U,$J,358.3,8587,0)
 ;;=H93.A2^^45^422^39
 ;;^UTILITY(U,$J,358.3,8587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8587,1,3,0)
 ;;=3^Pulsatile Tinnitus,Left Ear
 ;;^UTILITY(U,$J,358.3,8587,1,4,0)
 ;;=4^H93.A2
 ;;^UTILITY(U,$J,358.3,8587,2)
 ;;=^5138591
 ;;^UTILITY(U,$J,358.3,8588,0)
 ;;=B37.0^^45^423^13
 ;;^UTILITY(U,$J,358.3,8588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8588,1,3,0)
 ;;=3^Candidal Stomatitis
 ;;^UTILITY(U,$J,358.3,8588,1,4,0)
 ;;=4^B37.0
 ;;^UTILITY(U,$J,358.3,8588,2)
 ;;=^5000612
 ;;^UTILITY(U,$J,358.3,8589,0)
 ;;=B37.83^^45^423^12
 ;;^UTILITY(U,$J,358.3,8589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8589,1,3,0)
 ;;=3^Candidal Cheilitis
 ;;^UTILITY(U,$J,358.3,8589,1,4,0)
 ;;=4^B37.83
 ;;^UTILITY(U,$J,358.3,8589,2)
 ;;=^5000622
 ;;^UTILITY(U,$J,358.3,8590,0)
 ;;=J00.^^45^423^6
 ;;^UTILITY(U,$J,358.3,8590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8590,1,3,0)
 ;;=3^Acute Nasopharyngitis 
 ;;^UTILITY(U,$J,358.3,8590,1,4,0)
 ;;=4^J00.
 ;;^UTILITY(U,$J,358.3,8590,2)
 ;;=^5008115
 ;;^UTILITY(U,$J,358.3,8591,0)
 ;;=J01.00^^45^423^5
 ;;^UTILITY(U,$J,358.3,8591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8591,1,3,0)
 ;;=3^Acute Maxillary Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,8591,1,4,0)
 ;;=4^J01.00
 ;;^UTILITY(U,$J,358.3,8591,2)
 ;;=^5008116
 ;;^UTILITY(U,$J,358.3,8592,0)
 ;;=J01.10^^45^423^1
 ;;^UTILITY(U,$J,358.3,8592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8592,1,3,0)
 ;;=3^Acute Frontal Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,8592,1,4,0)
 ;;=4^J01.10
 ;;^UTILITY(U,$J,358.3,8592,2)
 ;;=^5008118
 ;;^UTILITY(U,$J,358.3,8593,0)
 ;;=J02.9^^45^423^7
 ;;^UTILITY(U,$J,358.3,8593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8593,1,3,0)
 ;;=3^Acute Pharyngitis,Unspec
 ;;^UTILITY(U,$J,358.3,8593,1,4,0)
 ;;=4^J02.9
 ;;^UTILITY(U,$J,358.3,8593,2)
 ;;=^5008130