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

IBDEI0CZ.m

Go to the documentation of this file.
IBDEI0CZ ; ; 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,32563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32563,1,3,0)
 ;;=3^Skin/Subcutaneous tissue disorder, unspec
 ;;^UTILITY(U,$J,358.3,32563,1,4,0)
 ;;=4^L98.9
 ;;^UTILITY(U,$J,358.3,32563,2)
 ;;=^5009595
 ;;^UTILITY(U,$J,358.3,32564,0)
 ;;=L20.81^^99^1346^15
 ;;^UTILITY(U,$J,358.3,32564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32564,1,3,0)
 ;;=3^Dermatitis,Atopic
 ;;^UTILITY(U,$J,358.3,32564,1,4,0)
 ;;=4^L20.81
 ;;^UTILITY(U,$J,358.3,32564,2)
 ;;=^5009108
 ;;^UTILITY(U,$J,358.3,32565,0)
 ;;=L23.81^^99^1346^7
 ;;^UTILITY(U,$J,358.3,32565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32565,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Animal Dander
 ;;^UTILITY(U,$J,358.3,32565,1,4,0)
 ;;=4^L23.81
 ;;^UTILITY(U,$J,358.3,32565,2)
 ;;=^5009123
 ;;^UTILITY(U,$J,358.3,32566,0)
 ;;=L23.2^^99^1346^8
 ;;^UTILITY(U,$J,358.3,32566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32566,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Cosmetics
 ;;^UTILITY(U,$J,358.3,32566,1,4,0)
 ;;=4^L23.2
 ;;^UTILITY(U,$J,358.3,32566,2)
 ;;=^5009117
 ;;^UTILITY(U,$J,358.3,32567,0)
 ;;=L23.3^^99^1346^9
 ;;^UTILITY(U,$J,358.3,32567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32567,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Drugs on Skin
 ;;^UTILITY(U,$J,358.3,32567,1,4,0)
 ;;=4^L23.3
 ;;^UTILITY(U,$J,358.3,32567,2)
 ;;=^5009118
 ;;^UTILITY(U,$J,358.3,32568,0)
 ;;=L23.6^^99^1346^10
 ;;^UTILITY(U,$J,358.3,32568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32568,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Food on Skin
 ;;^UTILITY(U,$J,358.3,32568,1,4,0)
 ;;=4^L23.6
 ;;^UTILITY(U,$J,358.3,32568,2)
 ;;=^5009121
 ;;^UTILITY(U,$J,358.3,32569,0)
 ;;=L23.5^^99^1346^11
 ;;^UTILITY(U,$J,358.3,32569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32569,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Latex/Rubber
 ;;^UTILITY(U,$J,358.3,32569,1,4,0)
 ;;=4^L23.5
 ;;^UTILITY(U,$J,358.3,32569,2)
 ;;=^5009120
 ;;^UTILITY(U,$J,358.3,32570,0)
 ;;=L23.7^^99^1346^14
 ;;^UTILITY(U,$J,358.3,32570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32570,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Plants
 ;;^UTILITY(U,$J,358.3,32570,1,4,0)
 ;;=4^L23.7
 ;;^UTILITY(U,$J,358.3,32570,2)
 ;;=^5009122
 ;;^UTILITY(U,$J,358.3,32571,0)
 ;;=L23.9^^99^1346^13
 ;;^UTILITY(U,$J,358.3,32571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32571,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Oth Cause
 ;;^UTILITY(U,$J,358.3,32571,1,4,0)
 ;;=4^L23.9
 ;;^UTILITY(U,$J,358.3,32571,2)
 ;;=^5009125
 ;;^UTILITY(U,$J,358.3,32572,0)
 ;;=L23.0^^99^1346^12
 ;;^UTILITY(U,$J,358.3,32572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32572,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Metals
 ;;^UTILITY(U,$J,358.3,32572,1,4,0)
 ;;=4^L23.0
 ;;^UTILITY(U,$J,358.3,32572,2)
 ;;=^5009115
 ;;^UTILITY(U,$J,358.3,32573,0)
 ;;=L27.0^^99^1346^6
 ;;^UTILITY(U,$J,358.3,32573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32573,1,3,0)
 ;;=3^Dermatitis d/t Oral Meds
 ;;^UTILITY(U,$J,358.3,32573,1,4,0)
 ;;=4^L27.0
 ;;^UTILITY(U,$J,358.3,32573,2)
 ;;=^5009144
 ;;^UTILITY(U,$J,358.3,32574,0)
 ;;=L27.2^^99^1346^5
 ;;^UTILITY(U,$J,358.3,32574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32574,1,3,0)
 ;;=3^Dermatitis d/t Ingested Food
 ;;^UTILITY(U,$J,358.3,32574,1,4,0)
 ;;=4^L27.2
 ;;^UTILITY(U,$J,358.3,32574,2)
 ;;=^5009146
 ;;^UTILITY(U,$J,358.3,32575,0)
 ;;=L51.9^^99^1346^17
 ;;^UTILITY(U,$J,358.3,32575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32575,1,3,0)
 ;;=3^Erythema Multiforme
 ;;^UTILITY(U,$J,358.3,32575,1,4,0)
 ;;=4^L51.9
 ;;^UTILITY(U,$J,358.3,32575,2)
 ;;=^336759
 ;;^UTILITY(U,$J,358.3,32576,0)
 ;;=L85.8^^99^1346^18
 ;;^UTILITY(U,$J,358.3,32576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32576,1,3,0)
 ;;=3^Keratosis Pilaris
 ;;^UTILITY(U,$J,358.3,32576,1,4,0)
 ;;=4^L85.8
 ;;^UTILITY(U,$J,358.3,32576,2)
 ;;=^5009324
 ;;^UTILITY(U,$J,358.3,32577,0)
 ;;=L29.8^^99^1346^22
 ;;^UTILITY(U,$J,358.3,32577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32577,1,3,0)
 ;;=3^Pruritis
 ;;^UTILITY(U,$J,358.3,32577,1,4,0)
 ;;=4^L29.8
 ;;^UTILITY(U,$J,358.3,32577,2)
 ;;=^5009152
 ;;^UTILITY(U,$J,358.3,32578,0)
 ;;=L40.9^^99^1346^24
 ;;^UTILITY(U,$J,358.3,32578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32578,1,3,0)
 ;;=3^Psoriasis
 ;;^UTILITY(U,$J,358.3,32578,1,4,0)
 ;;=4^L40.9
 ;;^UTILITY(U,$J,358.3,32578,2)
 ;;=^5009171
 ;;^UTILITY(U,$J,358.3,32579,0)
 ;;=R21.^^99^1346^30
 ;;^UTILITY(U,$J,358.3,32579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32579,1,3,0)
 ;;=3^Rash
 ;;^UTILITY(U,$J,358.3,32579,1,4,0)
 ;;=4^R21.
 ;;^UTILITY(U,$J,358.3,32579,2)
 ;;=^5019283
 ;;^UTILITY(U,$J,358.3,32580,0)
 ;;=L50.0^^99^1346^34
 ;;^UTILITY(U,$J,358.3,32580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32580,1,3,0)
 ;;=3^Urticaria,Allergic
 ;;^UTILITY(U,$J,358.3,32580,1,4,0)
 ;;=4^L50.0
 ;;^UTILITY(U,$J,358.3,32580,2)
 ;;=^5009200
 ;;^UTILITY(U,$J,358.3,32581,0)
 ;;=L50.5^^99^1346^35
 ;;^UTILITY(U,$J,358.3,32581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32581,1,3,0)
 ;;=3^Urticaria,Cholinergic
 ;;^UTILITY(U,$J,358.3,32581,1,4,0)
 ;;=4^L50.5
 ;;^UTILITY(U,$J,358.3,32581,2)
 ;;=^265460
 ;;^UTILITY(U,$J,358.3,32582,0)
 ;;=L50.8^^99^1346^40
 ;;^UTILITY(U,$J,358.3,32582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32582,1,3,0)
 ;;=3^Urticaria,Other
 ;;^UTILITY(U,$J,358.3,32582,1,4,0)
 ;;=4^L50.8
 ;;^UTILITY(U,$J,358.3,32582,2)
 ;;=^5009203
 ;;^UTILITY(U,$J,358.3,32583,0)
 ;;=L50.2^^99^1346^36
 ;;^UTILITY(U,$J,358.3,32583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32583,1,3,0)
 ;;=3^Urticaria,Cold/Heat
 ;;^UTILITY(U,$J,358.3,32583,1,4,0)
 ;;=4^L50.2
 ;;^UTILITY(U,$J,358.3,32583,2)
 ;;=^271938
 ;;^UTILITY(U,$J,358.3,32584,0)
 ;;=L50.6^^99^1346^37
 ;;^UTILITY(U,$J,358.3,32584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32584,1,3,0)
 ;;=3^Urticaria,Contact
 ;;^UTILITY(U,$J,358.3,32584,1,4,0)
 ;;=4^L50.6
 ;;^UTILITY(U,$J,358.3,32584,2)
 ;;=^5009202
 ;;^UTILITY(U,$J,358.3,32585,0)
 ;;=L50.3^^99^1346^38
 ;;^UTILITY(U,$J,358.3,32585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32585,1,3,0)
 ;;=3^Urticaria,Dermatographic
 ;;^UTILITY(U,$J,358.3,32585,1,4,0)
 ;;=4^L50.3
 ;;^UTILITY(U,$J,358.3,32585,2)
 ;;=^5009201
 ;;^UTILITY(U,$J,358.3,32586,0)
 ;;=L50.1^^99^1346^39
 ;;^UTILITY(U,$J,358.3,32586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32586,1,3,0)
 ;;=3^Urticaria,Idiopathic
 ;;^UTILITY(U,$J,358.3,32586,1,4,0)
 ;;=4^L50.1
 ;;^UTILITY(U,$J,358.3,32586,2)
 ;;=^271936
 ;;^UTILITY(U,$J,358.3,32587,0)
 ;;=L50.4^^99^1346^41
 ;;^UTILITY(U,$J,358.3,32587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32587,1,3,0)
 ;;=3^Urticaria,Vibratory
 ;;^UTILITY(U,$J,358.3,32587,1,4,0)
 ;;=4^L50.4
 ;;^UTILITY(U,$J,358.3,32587,2)
 ;;=^271939
 ;;^UTILITY(U,$J,358.3,32588,0)
 ;;=H60.311^^99^1347^26
 ;;^UTILITY(U,$J,358.3,32588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32588,1,3,0)
 ;;=3^Otitis Externa Diffused,Right Ear
 ;;^UTILITY(U,$J,358.3,32588,1,4,0)
 ;;=4^H60.311
 ;;^UTILITY(U,$J,358.3,32588,2)
 ;;=^5006447
 ;;^UTILITY(U,$J,358.3,32589,0)
 ;;=H60.312^^99^1347^25
 ;;^UTILITY(U,$J,358.3,32589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32589,1,3,0)
 ;;=3^Otitis Externa Diffused,Left Ear
 ;;^UTILITY(U,$J,358.3,32589,1,4,0)
 ;;=4^H60.312
 ;;^UTILITY(U,$J,358.3,32589,2)
 ;;=^5006448
 ;;^UTILITY(U,$J,358.3,32590,0)
 ;;=H60.313^^99^1347^24
 ;;^UTILITY(U,$J,358.3,32590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32590,1,3,0)
 ;;=3^Otitis Externa Diffused,Bilateral
 ;;^UTILITY(U,$J,358.3,32590,1,4,0)
 ;;=4^H60.313
 ;;^UTILITY(U,$J,358.3,32590,2)
 ;;=^5006449
 ;;^UTILITY(U,$J,358.3,32591,0)
 ;;=H60.321^^99^1347^29
 ;;^UTILITY(U,$J,358.3,32591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32591,1,3,0)
 ;;=3^Otitis Externa Hemorrhagic,Right Ear
 ;;^UTILITY(U,$J,358.3,32591,1,4,0)
 ;;=4^H60.321
 ;;^UTILITY(U,$J,358.3,32591,2)
 ;;=^5006451
 ;;^UTILITY(U,$J,358.3,32592,0)
 ;;=H60.322^^99^1347^28
 ;;^UTILITY(U,$J,358.3,32592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32592,1,3,0)
 ;;=3^Otitis Externa Hemorrhagic,Left Ear
 ;;^UTILITY(U,$J,358.3,32592,1,4,0)
 ;;=4^H60.322
 ;;^UTILITY(U,$J,358.3,32592,2)
 ;;=^5006452
 ;;^UTILITY(U,$J,358.3,32593,0)
 ;;=H60.323^^99^1347^27
 ;;^UTILITY(U,$J,358.3,32593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32593,1,3,0)
 ;;=3^Otitis Externa Hemorrhagic,Bilateral
 ;;^UTILITY(U,$J,358.3,32593,1,4,0)
 ;;=4^H60.323
 ;;^UTILITY(U,$J,358.3,32593,2)
 ;;=^5006453
 ;;^UTILITY(U,$J,358.3,32594,0)
 ;;=H60.391^^99^1347^32
 ;;^UTILITY(U,$J,358.3,32594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32594,1,3,0)
 ;;=3^Otitis Externa Infective,Right Ear
 ;;^UTILITY(U,$J,358.3,32594,1,4,0)
 ;;=4^H60.391
 ;;^UTILITY(U,$J,358.3,32594,2)
 ;;=^5006459
 ;;^UTILITY(U,$J,358.3,32595,0)
 ;;=H60.392^^99^1347^31
 ;;^UTILITY(U,$J,358.3,32595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32595,1,3,0)
 ;;=3^Otitis Externa Infective,Left Ear
 ;;^UTILITY(U,$J,358.3,32595,1,4,0)
 ;;=4^H60.392
 ;;^UTILITY(U,$J,358.3,32595,2)
 ;;=^5006460
 ;;^UTILITY(U,$J,358.3,32596,0)
 ;;=H66.91^^99^1347^50
 ;;^UTILITY(U,$J,358.3,32596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32596,1,3,0)
 ;;=3^Otitis Media,Unspec,Right Ear
 ;;^UTILITY(U,$J,358.3,32596,1,4,0)
 ;;=4^H66.91
 ;;^UTILITY(U,$J,358.3,32596,2)
 ;;=^5006640
 ;;^UTILITY(U,$J,358.3,32597,0)
 ;;=H66.92^^99^1347^49
 ;;^UTILITY(U,$J,358.3,32597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32597,1,3,0)
 ;;=3^Otitis Media,Unspec,Left Ear
 ;;^UTILITY(U,$J,358.3,32597,1,4,0)
 ;;=4^H66.92
 ;;^UTILITY(U,$J,358.3,32597,2)
 ;;=^5006641
 ;;^UTILITY(U,$J,358.3,32598,0)
 ;;=H66.93^^99^1347^48
 ;;^UTILITY(U,$J,358.3,32598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32598,1,3,0)
 ;;=3^Otitis Media,Unspec,Bilateral
 ;;^UTILITY(U,$J,358.3,32598,1,4,0)
 ;;=4^H66.93
 ;;^UTILITY(U,$J,358.3,32598,2)
 ;;=^5006642
 ;;^UTILITY(U,$J,358.3,32599,0)
 ;;=H92.01^^99^1347^23
 ;;^UTILITY(U,$J,358.3,32599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32599,1,3,0)
 ;;=3^Otalgia,Right Ear
 ;;^UTILITY(U,$J,358.3,32599,1,4,0)
 ;;=4^H92.01
 ;;^UTILITY(U,$J,358.3,32599,2)
 ;;=^5006945
 ;;^UTILITY(U,$J,358.3,32600,0)
 ;;=H92.02^^99^1347^22
 ;;^UTILITY(U,$J,358.3,32600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32600,1,3,0)
 ;;=3^Otalgia,Left Ear
 ;;^UTILITY(U,$J,358.3,32600,1,4,0)
 ;;=4^H92.02
 ;;^UTILITY(U,$J,358.3,32600,2)
 ;;=^5006946
 ;;^UTILITY(U,$J,358.3,32601,0)
 ;;=H92.03^^99^1347^21
 ;;^UTILITY(U,$J,358.3,32601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32601,1,3,0)
 ;;=3^Otalgia,Bilateral
 ;;^UTILITY(U,$J,358.3,32601,1,4,0)
 ;;=4^H92.03
 ;;^UTILITY(U,$J,358.3,32601,2)
 ;;=^5006947
 ;;^UTILITY(U,$J,358.3,32602,0)
 ;;=H61.21^^99^1347^14
 ;;^UTILITY(U,$J,358.3,32602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32602,1,3,0)
 ;;=3^Impacted cerumen, right ear
 ;;^UTILITY(U,$J,358.3,32602,1,4,0)
 ;;=4^H61.21
 ;;^UTILITY(U,$J,358.3,32602,2)
 ;;=^5006531
 ;;^UTILITY(U,$J,358.3,32603,0)
 ;;=H61.22^^99^1347^13
 ;;^UTILITY(U,$J,358.3,32603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32603,1,3,0)
 ;;=3^Impacted cerumen, left ear
 ;;^UTILITY(U,$J,358.3,32603,1,4,0)
 ;;=4^H61.22
 ;;^UTILITY(U,$J,358.3,32603,2)
 ;;=^5006532
 ;;^UTILITY(U,$J,358.3,32604,0)
 ;;=H61.23^^99^1347^12
 ;;^UTILITY(U,$J,358.3,32604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32604,1,3,0)
 ;;=3^Impacted cerumen, bilateral
 ;;^UTILITY(U,$J,358.3,32604,1,4,0)
 ;;=4^H61.23
 ;;^UTILITY(U,$J,358.3,32604,2)
 ;;=^5006533
 ;;^UTILITY(U,$J,358.3,32605,0)
 ;;=H91.91^^99^1347^10
 ;;^UTILITY(U,$J,358.3,32605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32605,1,3,0)
 ;;=3^Hearing loss, unspec, right ear
 ;;^UTILITY(U,$J,358.3,32605,1,4,0)
 ;;=4^H91.91
 ;;^UTILITY(U,$J,358.3,32605,2)
 ;;=^5133553
 ;;^UTILITY(U,$J,358.3,32606,0)
 ;;=H91.92^^99^1347^9
 ;;^UTILITY(U,$J,358.3,32606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32606,1,3,0)
 ;;=3^Hearing loss, unspec, left ear
 ;;^UTILITY(U,$J,358.3,32606,1,4,0)
 ;;=4^H91.92
 ;;^UTILITY(U,$J,358.3,32606,2)
 ;;=^5133554
 ;;^UTILITY(U,$J,358.3,32607,0)
 ;;=H91.93^^99^1347^8
 ;;^UTILITY(U,$J,358.3,32607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32607,1,3,0)
 ;;=3^Hearing loss, unspec, bilateral
 ;;^UTILITY(U,$J,358.3,32607,1,4,0)
 ;;=4^H91.93
 ;;^UTILITY(U,$J,358.3,32607,2)
 ;;=^5006944
 ;;^UTILITY(U,$J,358.3,32608,0)
 ;;=J02.9^^99^1347^54
 ;;^UTILITY(U,$J,358.3,32608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32608,1,3,0)
 ;;=3^Pharyngitis, acute, unspec
 ;;^UTILITY(U,$J,358.3,32608,1,4,0)
 ;;=4^J02.9
 ;;^UTILITY(U,$J,358.3,32608,2)
 ;;=^5008130
 ;;^UTILITY(U,$J,358.3,32609,0)
 ;;=J04.0^^99^1347^15
 ;;^UTILITY(U,$J,358.3,32609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32609,1,3,0)
 ;;=3^Laryngitis, acute
 ;;^UTILITY(U,$J,358.3,32609,1,4,0)
 ;;=4^J04.0
 ;;^UTILITY(U,$J,358.3,32609,2)
 ;;=^5008137
 ;;^UTILITY(U,$J,358.3,32610,0)
 ;;=J05.0^^99^1347^16
 ;;^UTILITY(U,$J,358.3,32610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32610,1,3,0)
 ;;=3^Laryngitis, acute obstructive (croup)
 ;;^UTILITY(U,$J,358.3,32610,1,4,0)
 ;;=4^J05.0
 ;;^UTILITY(U,$J,358.3,32610,2)
 ;;=^5008141
 ;;^UTILITY(U,$J,358.3,32611,0)
 ;;=H81.11^^99^1347^77
 ;;^UTILITY(U,$J,358.3,32611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32611,1,3,0)
 ;;=3^Vertigo,Benign Positional,Right Ear
 ;;^UTILITY(U,$J,358.3,32611,1,4,0)
 ;;=4^H81.11
 ;;^UTILITY(U,$J,358.3,32611,2)
 ;;=^5006865
 ;;^UTILITY(U,$J,358.3,32612,0)
 ;;=H81.12^^99^1347^76
 ;;^UTILITY(U,$J,358.3,32612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32612,1,3,0)
 ;;=3^Vertigo,Benign Positional,Left Ear
 ;;^UTILITY(U,$J,358.3,32612,1,4,0)
 ;;=4^H81.12
 ;;^UTILITY(U,$J,358.3,32612,2)
 ;;=^5006866
 ;;^UTILITY(U,$J,358.3,32613,0)
 ;;=H81.13^^99^1347^75
 ;;^UTILITY(U,$J,358.3,32613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32613,1,3,0)
 ;;=3^Vertigo,Benign Positional,Bilateral
 ;;^UTILITY(U,$J,358.3,32613,1,4,0)
 ;;=4^H81.13
 ;;^UTILITY(U,$J,358.3,32613,2)
 ;;=^5006867
 ;;^UTILITY(U,$J,358.3,32614,0)
 ;;=H68.002^^99^1347^6
 ;;^UTILITY(U,$J,358.3,32614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32614,1,3,0)
 ;;=3^Eustachian Salpingitis,Left Ear
 ;;^UTILITY(U,$J,358.3,32614,1,4,0)
 ;;=4^H68.002
 ;;^UTILITY(U,$J,358.3,32614,2)
 ;;=^5006648
 ;;^UTILITY(U,$J,358.3,32615,0)
 ;;=H68.003^^99^1347^5
 ;;^UTILITY(U,$J,358.3,32615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32615,1,3,0)
 ;;=3^Eustachian Salpingitis,Bilateral
 ;;^UTILITY(U,$J,358.3,32615,1,4,0)
 ;;=4^H68.003
 ;;^UTILITY(U,$J,358.3,32615,2)
 ;;=^5006649
 ;;^UTILITY(U,$J,358.3,32616,0)
 ;;=H68.001^^99^1347^7
 ;;^UTILITY(U,$J,358.3,32616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32616,1,3,0)
 ;;=3^Eustachian Salpingitis,Right Ear
 ;;^UTILITY(U,$J,358.3,32616,1,4,0)
 ;;=4^H68.001
 ;;^UTILITY(U,$J,358.3,32616,2)
 ;;=^5006647
 ;;^UTILITY(U,$J,358.3,32617,0)
 ;;=H60.91^^99^1347^35
 ;;^UTILITY(U,$J,358.3,32617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32617,1,3,0)
 ;;=3^Otitis Externa,Right Ear
 ;;^UTILITY(U,$J,358.3,32617,1,4,0)
 ;;=4^H60.91
 ;;^UTILITY(U,$J,358.3,32617,2)
 ;;=^5133524
 ;;^UTILITY(U,$J,358.3,32618,0)
 ;;=H60.92^^99^1347^34
 ;;^UTILITY(U,$J,358.3,32618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32618,1,3,0)
 ;;=3^Otitis Externa,Left Ear
 ;;^UTILITY(U,$J,358.3,32618,1,4,0)
 ;;=4^H60.92
 ;;^UTILITY(U,$J,358.3,32618,2)
 ;;=^5133525
 ;;^UTILITY(U,$J,358.3,32619,0)
 ;;=H60.93^^99^1347^33
 ;;^UTILITY(U,$J,358.3,32619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32619,1,3,0)
 ;;=3^Otitis Externa,Bilateral
 ;;^UTILITY(U,$J,358.3,32619,1,4,0)
 ;;=4^H60.93
 ;;^UTILITY(U,$J,358.3,32619,2)
 ;;=^5006498
 ;;^UTILITY(U,$J,358.3,32620,0)
 ;;=H65.31^^99^1347^38
 ;;^UTILITY(U,$J,358.3,32620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32620,1,3,0)
 ;;=3^Otitis Media,Mucoid Chronic,Right Ear
 ;;^UTILITY(U,$J,358.3,32620,1,4,0)
 ;;=4^H65.31
 ;;^UTILITY(U,$J,358.3,32620,2)
 ;;=^5006598
 ;;^UTILITY(U,$J,358.3,32621,0)
 ;;=H65.32^^99^1347^37
 ;;^UTILITY(U,$J,358.3,32621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32621,1,3,0)
 ;;=3^Otitis Media,Mucoid Chronic,Left Ear
 ;;^UTILITY(U,$J,358.3,32621,1,4,0)
 ;;=4^H65.32
 ;;^UTILITY(U,$J,358.3,32621,2)
 ;;=^5006599
 ;;^UTILITY(U,$J,358.3,32622,0)
 ;;=H65.33^^99^1347^36
 ;;^UTILITY(U,$J,358.3,32622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32622,1,3,0)
 ;;=3^Otitis Media,Mucoid Chronic,Bilateral
 ;;^UTILITY(U,$J,358.3,32622,1,4,0)
 ;;=4^H65.33
 ;;^UTILITY(U,$J,358.3,32622,2)
 ;;=^5006600
 ;;^UTILITY(U,$J,358.3,32623,0)
 ;;=H65.01^^99^1347^41
 ;;^UTILITY(U,$J,358.3,32623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32623,1,3,0)
 ;;=3^Otitis Media,Serous Acute,Right Ear
 ;;^UTILITY(U,$J,358.3,32623,1,4,0)
 ;;=4^H65.01
 ;;^UTILITY(U,$J,358.3,32623,2)
 ;;=^5006570
 ;;^UTILITY(U,$J,358.3,32624,0)
 ;;=H65.02^^99^1347^40
 ;;^UTILITY(U,$J,358.3,32624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32624,1,3,0)
 ;;=3^Otitis Media,Serous Acute,Left Ear
 ;;^UTILITY(U,$J,358.3,32624,1,4,0)
 ;;=4^H65.02
 ;;^UTILITY(U,$J,358.3,32624,2)
 ;;=^5006571
 ;;^UTILITY(U,$J,358.3,32625,0)
 ;;=H65.03^^99^1347^39
 ;;^UTILITY(U,$J,358.3,32625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32625,1,3,0)
 ;;=3^Otitis Media,Serous Acute,Bilateral
 ;;^UTILITY(U,$J,358.3,32625,1,4,0)
 ;;=4^H65.03
 ;;^UTILITY(U,$J,358.3,32625,2)
 ;;=^5006572
 ;;^UTILITY(U,$J,358.3,32626,0)
 ;;=H65.111^^99^1347^44
 ;;^UTILITY(U,$J,358.3,32626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32626,1,3,0)
 ;;=3^Otitis Media,Serous Allergic,Right Ear
 ;;^UTILITY(U,$J,358.3,32626,1,4,0)
 ;;=4^H65.111
 ;;^UTILITY(U,$J,358.3,32626,2)
 ;;=^5006577
 ;;^UTILITY(U,$J,358.3,32627,0)
 ;;=H65.112^^99^1347^43
 ;;^UTILITY(U,$J,358.3,32627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32627,1,3,0)
 ;;=3^Otitis Media,Serous Allergic,Left Ear
 ;;^UTILITY(U,$J,358.3,32627,1,4,0)
 ;;=4^H65.112
 ;;^UTILITY(U,$J,358.3,32627,2)
 ;;=^5006578
 ;;^UTILITY(U,$J,358.3,32628,0)
 ;;=H65.113^^99^1347^42
 ;;^UTILITY(U,$J,358.3,32628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32628,1,3,0)
 ;;=3^Otitis Media,Serous Allergic,Bilateral
 ;;^UTILITY(U,$J,358.3,32628,1,4,0)
 ;;=4^H65.113
 ;;^UTILITY(U,$J,358.3,32628,2)
 ;;=^5006579
 ;;^UTILITY(U,$J,358.3,32629,0)
 ;;=H65.21^^99^1347^47
 ;;^UTILITY(U,$J,358.3,32629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32629,1,3,0)
 ;;=3^Otitis Media,Serous Chronic,Right Ear
 ;;^UTILITY(U,$J,358.3,32629,1,4,0)
 ;;=4^H65.21
 ;;^UTILITY(U,$J,358.3,32629,2)
 ;;=^5006594
 ;;^UTILITY(U,$J,358.3,32630,0)
 ;;=H65.22^^99^1347^46
 ;;^UTILITY(U,$J,358.3,32630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32630,1,3,0)
 ;;=3^Otitis Media,Serous Chronic,Left Ear
 ;;^UTILITY(U,$J,358.3,32630,1,4,0)
 ;;=4^H65.22
 ;;^UTILITY(U,$J,358.3,32630,2)
 ;;=^5006595
 ;;^UTILITY(U,$J,358.3,32631,0)
 ;;=H65.23^^99^1347^45
 ;;^UTILITY(U,$J,358.3,32631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32631,1,3,0)
 ;;=3^Otitis Media,Serous Chronic,Bilateral
 ;;^UTILITY(U,$J,358.3,32631,1,4,0)
 ;;=4^H65.23
 ;;^UTILITY(U,$J,358.3,32631,2)
 ;;=^5006596
 ;;^UTILITY(U,$J,358.3,32632,0)
 ;;=H93.12^^99^1347^72
 ;;^UTILITY(U,$J,358.3,32632,1,0)
 ;;=^358.31IA^4^2