IBDEI0A1 ; ; 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,24549,0)
;;=K74.02^^74^978^9
;;^UTILITY(U,$J,358.3,24549,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24549,1,3,0)
;;=3^Hepatic Fibrosis,Advanced Fibrosis
;;^UTILITY(U,$J,358.3,24549,1,4,0)
;;=4^K74.02
;;^UTILITY(U,$J,358.3,24549,2)
;;=^5159220
;;^UTILITY(U,$J,358.3,24550,0)
;;=K70.30^^74^978^6
;;^UTILITY(U,$J,358.3,24550,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24550,1,3,0)
;;=3^Alcoholic Cirrhosis w/o Ascites
;;^UTILITY(U,$J,358.3,24550,1,4,0)
;;=4^K70.30
;;^UTILITY(U,$J,358.3,24550,2)
;;=^5008788
;;^UTILITY(U,$J,358.3,24551,0)
;;=K70.31^^74^978^5
;;^UTILITY(U,$J,358.3,24551,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24551,1,3,0)
;;=3^Alcoholic Cirrhosis w/ Ascites
;;^UTILITY(U,$J,358.3,24551,1,4,0)
;;=4^K70.31
;;^UTILITY(U,$J,358.3,24551,2)
;;=^5008789
;;^UTILITY(U,$J,358.3,24552,0)
;;=K75.81^^74^978^14
;;^UTILITY(U,$J,358.3,24552,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24552,1,3,0)
;;=3^Nonalcoholic Steatohepatitis (NASH)
;;^UTILITY(U,$J,358.3,24552,1,4,0)
;;=4^K75.81
;;^UTILITY(U,$J,358.3,24552,2)
;;=^5008828
;;^UTILITY(U,$J,358.3,24553,0)
;;=B18.2^^74^978^12
;;^UTILITY(U,$J,358.3,24553,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24553,1,3,0)
;;=3^Hepatitis C (Carrier/Chronic)
;;^UTILITY(U,$J,358.3,24553,1,4,0)
;;=4^B18.2
;;^UTILITY(U,$J,358.3,24553,2)
;;=^5000548
;;^UTILITY(U,$J,358.3,24554,0)
;;=J85.1^^74^979^41
;;^UTILITY(U,$J,358.3,24554,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24554,1,3,0)
;;=3^Abscess of Lung w/ Pneumonia
;;^UTILITY(U,$J,358.3,24554,1,4,0)
;;=4^J85.1
;;^UTILITY(U,$J,358.3,24554,2)
;;=^5008306
;;^UTILITY(U,$J,358.3,24555,0)
;;=J85.2^^74^979^42
;;^UTILITY(U,$J,358.3,24555,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24555,1,3,0)
;;=3^Abscess of Lung w/o Pneumonia
;;^UTILITY(U,$J,358.3,24555,1,4,0)
;;=4^J85.2
;;^UTILITY(U,$J,358.3,24555,2)
;;=^5008307
;;^UTILITY(U,$J,358.3,24556,0)
;;=H60.513^^74^979^1
;;^UTILITY(U,$J,358.3,24556,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24556,1,3,0)
;;=3^AC Actinic Otitis Externa,Bilateral
;;^UTILITY(U,$J,358.3,24556,1,4,0)
;;=4^H60.513
;;^UTILITY(U,$J,358.3,24556,2)
;;=^5006472
;;^UTILITY(U,$J,358.3,24557,0)
;;=H60.512^^74^979^2
;;^UTILITY(U,$J,358.3,24557,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24557,1,3,0)
;;=3^AC Actinic Otitis Externa,Left Ear
;;^UTILITY(U,$J,358.3,24557,1,4,0)
;;=4^H60.512
;;^UTILITY(U,$J,358.3,24557,2)
;;=^5006471
;;^UTILITY(U,$J,358.3,24558,0)
;;=H60.511^^74^979^3
;;^UTILITY(U,$J,358.3,24558,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24558,1,3,0)
;;=3^AC Actinic Otitis Externa,Right Ear
;;^UTILITY(U,$J,358.3,24558,1,4,0)
;;=4^H60.511
;;^UTILITY(U,$J,358.3,24558,2)
;;=^5006470
;;^UTILITY(U,$J,358.3,24559,0)
;;=J21.1^^74^979^5
;;^UTILITY(U,$J,358.3,24559,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24559,1,3,0)
;;=3^AC Bronchiolitis d/t Human Metapneumovirus
;;^UTILITY(U,$J,358.3,24559,1,4,0)
;;=4^J21.1
;;^UTILITY(U,$J,358.3,24559,2)
;;=^5008197
;;^UTILITY(U,$J,358.3,24560,0)
;;=J21.8^^74^979^6
;;^UTILITY(U,$J,358.3,24560,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24560,1,3,0)
;;=3^AC Bronchiolitis d/t Specified Organisms
;;^UTILITY(U,$J,358.3,24560,1,4,0)
;;=4^J21.8
;;^UTILITY(U,$J,358.3,24560,2)
;;=^5008198
;;^UTILITY(U,$J,358.3,24561,0)
;;=J21.9^^74^979^4
;;^UTILITY(U,$J,358.3,24561,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24561,1,3,0)
;;=3^AC Bronchilitis,Unspec
;;^UTILITY(U,$J,358.3,24561,1,4,0)
;;=4^J21.9
;;^UTILITY(U,$J,358.3,24561,2)
;;=^5008199
;;^UTILITY(U,$J,358.3,24562,0)
;;=J20.3^^74^979^7
;;^UTILITY(U,$J,358.3,24562,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24562,1,3,0)
;;=3^AC Bronchitis d/t Coxsackievirus
;;^UTILITY(U,$J,358.3,24562,1,4,0)
;;=4^J20.3
;;^UTILITY(U,$J,358.3,24562,2)
;;=^5008189
;;^UTILITY(U,$J,358.3,24563,0)
;;=J20.7^^74^979^8
;;^UTILITY(U,$J,358.3,24563,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24563,1,3,0)
;;=3^AC Bronchitis d/t Echovirus
;;^UTILITY(U,$J,358.3,24563,1,4,0)
;;=4^J20.7
;;^UTILITY(U,$J,358.3,24563,2)
;;=^5008193
;;^UTILITY(U,$J,358.3,24564,0)
;;=J20.1^^74^979^9
;;^UTILITY(U,$J,358.3,24564,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24564,1,3,0)
;;=3^AC Bronchitis d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,24564,1,4,0)
;;=4^J20.1
;;^UTILITY(U,$J,358.3,24564,2)
;;=^5008187
;;^UTILITY(U,$J,358.3,24565,0)
;;=J20.0^^74^979^10
;;^UTILITY(U,$J,358.3,24565,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24565,1,3,0)
;;=3^AC Bronchitis d/t Mycoplasma Pneumoniae
;;^UTILITY(U,$J,358.3,24565,1,4,0)
;;=4^J20.0
;;^UTILITY(U,$J,358.3,24565,2)
;;=^5008186
;;^UTILITY(U,$J,358.3,24566,0)
;;=J20.8^^74^979^14
;;^UTILITY(U,$J,358.3,24566,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24566,1,3,0)
;;=3^AC Bronchitis d/t Specified Organisms
;;^UTILITY(U,$J,358.3,24566,1,4,0)
;;=4^J20.8
;;^UTILITY(U,$J,358.3,24566,2)
;;=^5008194
;;^UTILITY(U,$J,358.3,24567,0)
;;=J20.4^^74^979^11
;;^UTILITY(U,$J,358.3,24567,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24567,1,3,0)
;;=3^AC Bronchitis d/t Parainfluenza Virus
;;^UTILITY(U,$J,358.3,24567,1,4,0)
;;=4^J20.4
;;^UTILITY(U,$J,358.3,24567,2)
;;=^5008190
;;^UTILITY(U,$J,358.3,24568,0)
;;=J20.5^^74^979^12
;;^UTILITY(U,$J,358.3,24568,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24568,1,3,0)
;;=3^AC Bronchitis d/t Respiratory Syncytial Virus
;;^UTILITY(U,$J,358.3,24568,1,4,0)
;;=4^J20.5
;;^UTILITY(U,$J,358.3,24568,2)
;;=^5008191
;;^UTILITY(U,$J,358.3,24569,0)
;;=J20.6^^74^979^13
;;^UTILITY(U,$J,358.3,24569,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24569,1,3,0)
;;=3^AC Bronchitis d/t Rhinovirus
;;^UTILITY(U,$J,358.3,24569,1,4,0)
;;=4^J20.6
;;^UTILITY(U,$J,358.3,24569,2)
;;=^5008192
;;^UTILITY(U,$J,358.3,24570,0)
;;=J20.2^^74^979^15
;;^UTILITY(U,$J,358.3,24570,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24570,1,3,0)
;;=3^AC Bronchitis d/t Streptococcus
;;^UTILITY(U,$J,358.3,24570,1,4,0)
;;=4^J20.2
;;^UTILITY(U,$J,358.3,24570,2)
;;=^5008188
;;^UTILITY(U,$J,358.3,24571,0)
;;=J20.9^^74^979^16
;;^UTILITY(U,$J,358.3,24571,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24571,1,3,0)
;;=3^AC Bronchitis,Unspec
;;^UTILITY(U,$J,358.3,24571,1,4,0)
;;=4^J20.9
;;^UTILITY(U,$J,358.3,24571,2)
;;=^5008195
;;^UTILITY(U,$J,358.3,24572,0)
;;=H60.523^^74^979^17
;;^UTILITY(U,$J,358.3,24572,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24572,1,3,0)
;;=3^AC Chemical Otitis Externa,Bilateral
;;^UTILITY(U,$J,358.3,24572,1,4,0)
;;=4^H60.523
;;^UTILITY(U,$J,358.3,24572,2)
;;=^5006476
;;^UTILITY(U,$J,358.3,24573,0)
;;=H60.522^^74^979^18
;;^UTILITY(U,$J,358.3,24573,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24573,1,3,0)
;;=3^AC Chemical Otitis Externa,Left Ear
;;^UTILITY(U,$J,358.3,24573,1,4,0)
;;=4^H60.522
;;^UTILITY(U,$J,358.3,24573,2)
;;=^5006475
;;^UTILITY(U,$J,358.3,24574,0)
;;=H60.521^^74^979^19
;;^UTILITY(U,$J,358.3,24574,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24574,1,3,0)
;;=3^AC Chemical Otitis Externa,Right Ear
;;^UTILITY(U,$J,358.3,24574,1,4,0)
;;=4^H60.521
;;^UTILITY(U,$J,358.3,24574,2)
;;=^5006474
;;^UTILITY(U,$J,358.3,24575,0)
;;=H60.543^^74^979^20
;;^UTILITY(U,$J,358.3,24575,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24575,1,3,0)
;;=3^AC Eczematoid Otitis Externa,Bilateral
;;^UTILITY(U,$J,358.3,24575,1,4,0)
;;=4^H60.543
;;^UTILITY(U,$J,358.3,24575,2)
;;=^5006484
;;^UTILITY(U,$J,358.3,24576,0)
;;=H60.542^^74^979^21
;;^UTILITY(U,$J,358.3,24576,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24576,1,3,0)
;;=3^AC Eczematoid Otitis Externa,Left Ear
;;^UTILITY(U,$J,358.3,24576,1,4,0)
;;=4^H60.542
;;^UTILITY(U,$J,358.3,24576,2)
;;=^5006483
;;^UTILITY(U,$J,358.3,24577,0)
;;=H60.541^^74^979^22
;;^UTILITY(U,$J,358.3,24577,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24577,1,3,0)
;;=3^AC Eczematoid Otitis Externa,Right Ear
;;^UTILITY(U,$J,358.3,24577,1,4,0)
;;=4^H60.541
;;^UTILITY(U,$J,358.3,24577,2)
;;=^5006482
;;^UTILITY(U,$J,358.3,24578,0)
;;=J04.0^^74^979^23
;;^UTILITY(U,$J,358.3,24578,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24578,1,3,0)
;;=3^AC Laryngitis
;;^UTILITY(U,$J,358.3,24578,1,4,0)
;;=4^J04.0
;;^UTILITY(U,$J,358.3,24578,2)
;;=^5008137
;;^UTILITY(U,$J,358.3,24579,0)
;;=J04.2^^74^979^24
;;^UTILITY(U,$J,358.3,24579,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24579,1,3,0)
;;=3^AC Laryngotracheitis
;;^UTILITY(U,$J,358.3,24579,1,4,0)
;;=4^J04.2
;;^UTILITY(U,$J,358.3,24579,2)
;;=^269868
;;^UTILITY(U,$J,358.3,24580,0)
;;=J00.^^74^979^25
;;^UTILITY(U,$J,358.3,24580,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24580,1,3,0)
;;=3^AC Nasopharyngitis
;;^UTILITY(U,$J,358.3,24580,1,4,0)
;;=4^J00.
;;^UTILITY(U,$J,358.3,24580,2)
;;=^5008115
;;^UTILITY(U,$J,358.3,24581,0)
;;=J02.8^^74^979^29
;;^UTILITY(U,$J,358.3,24581,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24581,1,3,0)
;;=3^AC Pharyngitis d/t Specified Organisms
;;^UTILITY(U,$J,358.3,24581,1,4,0)
;;=4^J02.8
;;^UTILITY(U,$J,358.3,24581,2)
;;=^5008129
;;^UTILITY(U,$J,358.3,24582,0)
;;=J02.9^^74^979^30
;;^UTILITY(U,$J,358.3,24582,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24582,1,3,0)
;;=3^AC Pharyngitis,Unspec
;;^UTILITY(U,$J,358.3,24582,1,4,0)
;;=4^J02.9
;;^UTILITY(U,$J,358.3,24582,2)
;;=^5008130
;;^UTILITY(U,$J,358.3,24583,0)
;;=B40.0^^74^979^31
;;^UTILITY(U,$J,358.3,24583,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24583,1,3,0)
;;=3^AC Pulmonary Blastomycosis
;;^UTILITY(U,$J,358.3,24583,1,4,0)
;;=4^B40.0
;;^UTILITY(U,$J,358.3,24583,2)
;;=^5000639
;;^UTILITY(U,$J,358.3,24584,0)
;;=H60.553^^74^979^32
;;^UTILITY(U,$J,358.3,24584,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24584,1,3,0)
;;=3^AC Reactive Otitis Externa,Bilateral
;;^UTILITY(U,$J,358.3,24584,1,4,0)
;;=4^H60.553
;;^UTILITY(U,$J,358.3,24584,2)
;;=^5006488
;;^UTILITY(U,$J,358.3,24585,0)
;;=H60.552^^74^979^33
;;^UTILITY(U,$J,358.3,24585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24585,1,3,0)
;;=3^AC Reactive Otitis Externa,Left Ear
;;^UTILITY(U,$J,358.3,24585,1,4,0)
;;=4^H60.552
;;^UTILITY(U,$J,358.3,24585,2)
;;=^5006487
;;^UTILITY(U,$J,358.3,24586,0)
;;=H60.551^^74^979^34
;;^UTILITY(U,$J,358.3,24586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24586,1,3,0)
;;=3^AC Reactive Otitis Externa,Right Ear
;;^UTILITY(U,$J,358.3,24586,1,4,0)
;;=4^H60.551
;;^UTILITY(U,$J,358.3,24586,2)
;;=^5006486
;;^UTILITY(U,$J,358.3,24587,0)
;;=J01.91^^74^979^35
;;^UTILITY(U,$J,358.3,24587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24587,1,3,0)
;;=3^AC Recurrent Sinusitis,Unspec
;;^UTILITY(U,$J,358.3,24587,1,4,0)
;;=4^J01.91
;;^UTILITY(U,$J,358.3,24587,2)
;;=^5008128
;;^UTILITY(U,$J,358.3,24588,0)
;;=J03.81^^74^979^36
;;^UTILITY(U,$J,358.3,24588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24588,1,3,0)
;;=3^AC Recurrent Tonsillitis d/t Specified Organisms
;;^UTILITY(U,$J,358.3,24588,1,4,0)
;;=4^J03.81
;;^UTILITY(U,$J,358.3,24588,2)
;;=^5008134
;;^UTILITY(U,$J,358.3,24589,0)
;;=J03.91^^74^979^37
;;^UTILITY(U,$J,358.3,24589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24589,1,3,0)
;;=3^AC Recurrent Tonsillitis,Unspec
;;^UTILITY(U,$J,358.3,24589,1,4,0)
;;=4^J03.91
;;^UTILITY(U,$J,358.3,24589,2)
;;=^5008136
;;^UTILITY(U,$J,358.3,24590,0)
;;=J01.90^^74^979^38
;;^UTILITY(U,$J,358.3,24590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24590,1,3,0)
;;=3^AC Sinusitis,Unspec
;;^UTILITY(U,$J,358.3,24590,1,4,0)
;;=4^J01.90
;;^UTILITY(U,$J,358.3,24590,2)
;;=^5008127
;;^UTILITY(U,$J,358.3,24591,0)
;;=J03.80^^74^979^39
;;^UTILITY(U,$J,358.3,24591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24591,1,3,0)
;;=3^AC Tonsillitis d/t Specified Organisms
;;^UTILITY(U,$J,358.3,24591,1,4,0)
;;=4^J03.80
;;^UTILITY(U,$J,358.3,24591,2)
;;=^5008133
;;^UTILITY(U,$J,358.3,24592,0)
;;=J03.90^^74^979^40
;;^UTILITY(U,$J,358.3,24592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24592,1,3,0)
;;=3^AC Tonsillitis,Unspec
;;^UTILITY(U,$J,358.3,24592,1,4,0)
;;=4^J03.90
;;^UTILITY(U,$J,358.3,24592,2)
;;=^5008135
;;^UTILITY(U,$J,358.3,24593,0)
;;=B44.81^^74^979^43
;;^UTILITY(U,$J,358.3,24593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24593,1,3,0)
;;=3^Allergic Bronchopulmonary Aspergillosis
;;^UTILITY(U,$J,358.3,24593,1,4,0)
;;=4^B44.81
;;^UTILITY(U,$J,358.3,24593,2)
;;=^10945
;;^UTILITY(U,$J,358.3,24594,0)
;;=B44.9^^74^979^45
;;^UTILITY(U,$J,358.3,24594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24594,1,3,0)
;;=3^Aspergillosis,Unspec
;;^UTILITY(U,$J,358.3,24594,1,4,0)
;;=4^B44.9
;;^UTILITY(U,$J,358.3,24594,2)
;;=^5000668
;;^UTILITY(U,$J,358.3,24595,0)
;;=B40.9^^74^979^47
;;^UTILITY(U,$J,358.3,24595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24595,1,3,0)
;;=3^Blastomycosis,Unspec
;;^UTILITY(U,$J,358.3,24595,1,4,0)
;;=4^B40.9
;;^UTILITY(U,$J,358.3,24595,2)
;;=^5000646
;;^UTILITY(U,$J,358.3,24596,0)
;;=J18.0^^74^979^48
;;^UTILITY(U,$J,358.3,24596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24596,1,3,0)
;;=3^Bronchopneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,24596,1,4,0)
;;=4^J18.0
;;^UTILITY(U,$J,358.3,24596,2)
;;=^5008182
;;^UTILITY(U,$J,358.3,24597,0)
;;=B45.1^^74^979^49
;;^UTILITY(U,$J,358.3,24597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24597,1,3,0)
;;=3^Cerebral Cryptococcosis
;;^UTILITY(U,$J,358.3,24597,1,4,0)
;;=4^B45.1
;;^UTILITY(U,$J,358.3,24597,2)
;;=^5000670
;;^UTILITY(U,$J,358.3,24598,0)
;;=J16.0^^74^979^50
;;^UTILITY(U,$J,358.3,24598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24598,1,3,0)
;;=3^Chlamydial Pneumonia
;;^UTILITY(U,$J,358.3,24598,1,4,0)
;;=4^J16.0
;;^UTILITY(U,$J,358.3,24598,2)
;;=^5008179
;;^UTILITY(U,$J,358.3,24599,0)
;;=B40.1^^74^979^51
;;^UTILITY(U,$J,358.3,24599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24599,1,3,0)
;;=3^Chr Pulmonary Blastomycosis
;;^UTILITY(U,$J,358.3,24599,1,4,0)
;;=4^B40.1
;;^UTILITY(U,$J,358.3,24599,2)
;;=^5000640
;;^UTILITY(U,$J,358.3,24600,0)
;;=J32.9^^74^979^52
;;^UTILITY(U,$J,358.3,24600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24600,1,3,0)
;;=3^Chr Sinusitis,Unspec
;;^UTILITY(U,$J,358.3,24600,1,4,0)
;;=4^J32.9
;;^UTILITY(U,$J,358.3,24600,2)
;;=^5008207
;;^UTILITY(U,$J,358.3,24601,0)
;;=B45.9^^74^979^54
;;^UTILITY(U,$J,358.3,24601,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24601,1,3,0)
;;=3^Cryptococcosis,Unspec
;;^UTILITY(U,$J,358.3,24601,1,4,0)
;;=4^B45.9
;;^UTILITY(U,$J,358.3,24601,2)
;;=^5000675
;;^UTILITY(U,$J,358.3,24602,0)
;;=B45.2^^74^979^55
;;^UTILITY(U,$J,358.3,24602,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24602,1,3,0)
;;=3^Cutaneous Cryptococcosis
;;^UTILITY(U,$J,358.3,24602,1,4,0)
;;=4^B45.2
;;^UTILITY(U,$J,358.3,24602,2)
;;=^5000671
;;^UTILITY(U,$J,358.3,24603,0)
;;=B44.7^^74^979^56
;;^UTILITY(U,$J,358.3,24603,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24603,1,3,0)
;;=3^Disseminated Aspergillosis
;;^UTILITY(U,$J,358.3,24603,1,4,0)
;;=4^B44.7
;;^UTILITY(U,$J,358.3,24603,2)
;;=^5000666
;;^UTILITY(U,$J,358.3,24604,0)
;;=B45.7^^74^979^57
;;^UTILITY(U,$J,358.3,24604,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24604,1,3,0)
;;=3^Disseminated Cryptococcosis
;;^UTILITY(U,$J,358.3,24604,1,4,0)
;;=4^B45.7
;;^UTILITY(U,$J,358.3,24604,2)
;;=^5000673
;;^UTILITY(U,$J,358.3,24605,0)
;;=B39.9^^74^979^59
;;^UTILITY(U,$J,358.3,24605,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24605,1,3,0)
;;=3^Histoplasmosis,Unspec
;;^UTILITY(U,$J,358.3,24605,1,4,0)
;;=4^B39.9
;;^UTILITY(U,$J,358.3,24605,2)
;;=^5000638
;;^UTILITY(U,$J,358.3,24606,0)
;;=J18.2^^74^979^60
;;^UTILITY(U,$J,358.3,24606,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24606,1,3,0)
;;=3^Hypostatic Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,24606,1,4,0)
;;=4^J18.2
;;^UTILITY(U,$J,358.3,24606,2)
;;=^5008184
;;^UTILITY(U,$J,358.3,24607,0)
;;=B44.0^^74^979^61
;;^UTILITY(U,$J,358.3,24607,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24607,1,3,0)
;;=3^Invasive Pulmonary Aspergillosis
;;^UTILITY(U,$J,358.3,24607,1,4,0)
;;=4^B44.0
;;^UTILITY(U,$J,358.3,24607,2)
;;=^5000663
;;^UTILITY(U,$J,358.3,24608,0)
;;=J18.1^^74^979^62
;;^UTILITY(U,$J,358.3,24608,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24608,1,3,0)
;;=3^Lobar Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,24608,1,4,0)
;;=4^J18.1
;;^UTILITY(U,$J,358.3,24608,2)
;;=^5008183
;;^UTILITY(U,$J,358.3,24609,0)
;;=A19.9^^74^979^63
;;^UTILITY(U,$J,358.3,24609,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24609,1,3,0)
;;=3^Miliary Tuberculosis,Unspec
;;^UTILITY(U,$J,358.3,24609,1,4,0)
;;=4^A19.9
;;^UTILITY(U,$J,358.3,24609,2)
;;=^5000104
;;^UTILITY(U,$J,358.3,24610,0)
;;=R76.11^^74^979^82
;;^UTILITY(U,$J,358.3,24610,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24610,1,3,0)
;;=3^Reaction to Skin Test w/o Active TB
;;^UTILITY(U,$J,358.3,24610,1,4,0)
;;=4^R76.11
;;^UTILITY(U,$J,358.3,24610,2)
;;=^5019570
;;^UTILITY(U,$J,358.3,24611,0)
;;=B45.3^^74^979^67
;;^UTILITY(U,$J,358.3,24611,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24611,1,3,0)
;;=3^Osseous Cryptococcosis
;;^UTILITY(U,$J,358.3,24611,1,4,0)
;;=4^B45.3
;;^UTILITY(U,$J,358.3,24611,2)
;;=^5000672
;;^UTILITY(U,$J,358.3,24612,0)
;;=B44.89^^74^979^44
;;^UTILITY(U,$J,358.3,24612,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24612,1,3,0)
;;=3^Aspergillosis NEC
;;^UTILITY(U,$J,358.3,24612,1,4,0)
;;=4^B44.89
;;^UTILITY(U,$J,358.3,24612,2)
;;=^5000667
;;^UTILITY(U,$J,358.3,24613,0)
;;=B45.8^^74^979^53
;;^UTILITY(U,$J,358.3,24613,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24613,1,3,0)
;;=3^Cryptococcosis NEC
;;^UTILITY(U,$J,358.3,24613,1,4,0)
;;=4^B45.8
;;^UTILITY(U,$J,358.3,24613,2)
;;=^5000674
;;^UTILITY(U,$J,358.3,24614,0)
;;=H60.593^^74^979^64
;;^UTILITY(U,$J,358.3,24614,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24614,1,3,0)
;;=3^Noninfective AC Otitis Externa,Bilateral NEC
;;^UTILITY(U,$J,358.3,24614,1,4,0)
;;=4^H60.593
;;^UTILITY(U,$J,358.3,24614,2)
;;=^5006491
;;^UTILITY(U,$J,358.3,24615,0)
;;=H60.592^^74^979^65
;;^UTILITY(U,$J,358.3,24615,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24615,1,3,0)
;;=3^Noninfective AC Otitis Externa,Left Ear NEC
;;^UTILITY(U,$J,358.3,24615,1,4,0)
;;=4^H60.592
;;^UTILITY(U,$J,358.3,24615,2)
;;=^5133527
;;^UTILITY(U,$J,358.3,24616,0)
;;=H60.591^^74^979^66
;;^UTILITY(U,$J,358.3,24616,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24616,1,3,0)
;;=3^Noninfective AC Otitis Externa,Right Ear NEC
;;^UTILITY(U,$J,358.3,24616,1,4,0)
;;=4^H60.591
;;^UTILITY(U,$J,358.3,24616,2)
;;=^5006490
;;^UTILITY(U,$J,358.3,24617,0)
;;=J18.8^^74^979^73
;;^UTILITY(U,$J,358.3,24617,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24617,1,3,0)
;;=3^Pneumonia,Unspec Organism NEC
;;^UTILITY(U,$J,358.3,24617,1,4,0)
;;=4^J18.8
;;^UTILITY(U,$J,358.3,24617,2)
;;=^5008185
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0A1 19750 printed Nov 22, 2024@16:54:48 Page 2
IBDEI0A1 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,24549,0)
+2 ;;=K74.02^^74^978^9
+3 ;;^UTILITY(U,$J,358.3,24549,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,24549,1,3,0)
+6 ;;=3^Hepatic Fibrosis,Advanced Fibrosis
+7 ;;^UTILITY(U,$J,358.3,24549,1,4,0)
+8 ;;=4^K74.02
+9 ;;^UTILITY(U,$J,358.3,24549,2)
+10 ;;=^5159220
+11 ;;^UTILITY(U,$J,358.3,24550,0)
+12 ;;=K70.30^^74^978^6
+13 ;;^UTILITY(U,$J,358.3,24550,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,24550,1,3,0)
+16 ;;=3^Alcoholic Cirrhosis w/o Ascites
+17 ;;^UTILITY(U,$J,358.3,24550,1,4,0)
+18 ;;=4^K70.30
+19 ;;^UTILITY(U,$J,358.3,24550,2)
+20 ;;=^5008788
+21 ;;^UTILITY(U,$J,358.3,24551,0)
+22 ;;=K70.31^^74^978^5
+23 ;;^UTILITY(U,$J,358.3,24551,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,24551,1,3,0)
+26 ;;=3^Alcoholic Cirrhosis w/ Ascites
+27 ;;^UTILITY(U,$J,358.3,24551,1,4,0)
+28 ;;=4^K70.31
+29 ;;^UTILITY(U,$J,358.3,24551,2)
+30 ;;=^5008789
+31 ;;^UTILITY(U,$J,358.3,24552,0)
+32 ;;=K75.81^^74^978^14
+33 ;;^UTILITY(U,$J,358.3,24552,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,24552,1,3,0)
+36 ;;=3^Nonalcoholic Steatohepatitis (NASH)
+37 ;;^UTILITY(U,$J,358.3,24552,1,4,0)
+38 ;;=4^K75.81
+39 ;;^UTILITY(U,$J,358.3,24552,2)
+40 ;;=^5008828
+41 ;;^UTILITY(U,$J,358.3,24553,0)
+42 ;;=B18.2^^74^978^12
+43 ;;^UTILITY(U,$J,358.3,24553,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,24553,1,3,0)
+46 ;;=3^Hepatitis C (Carrier/Chronic)
+47 ;;^UTILITY(U,$J,358.3,24553,1,4,0)
+48 ;;=4^B18.2
+49 ;;^UTILITY(U,$J,358.3,24553,2)
+50 ;;=^5000548
+51 ;;^UTILITY(U,$J,358.3,24554,0)
+52 ;;=J85.1^^74^979^41
+53 ;;^UTILITY(U,$J,358.3,24554,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,24554,1,3,0)
+56 ;;=3^Abscess of Lung w/ Pneumonia
+57 ;;^UTILITY(U,$J,358.3,24554,1,4,0)
+58 ;;=4^J85.1
+59 ;;^UTILITY(U,$J,358.3,24554,2)
+60 ;;=^5008306
+61 ;;^UTILITY(U,$J,358.3,24555,0)
+62 ;;=J85.2^^74^979^42
+63 ;;^UTILITY(U,$J,358.3,24555,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,24555,1,3,0)
+66 ;;=3^Abscess of Lung w/o Pneumonia
+67 ;;^UTILITY(U,$J,358.3,24555,1,4,0)
+68 ;;=4^J85.2
+69 ;;^UTILITY(U,$J,358.3,24555,2)
+70 ;;=^5008307
+71 ;;^UTILITY(U,$J,358.3,24556,0)
+72 ;;=H60.513^^74^979^1
+73 ;;^UTILITY(U,$J,358.3,24556,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,24556,1,3,0)
+76 ;;=3^AC Actinic Otitis Externa,Bilateral
+77 ;;^UTILITY(U,$J,358.3,24556,1,4,0)
+78 ;;=4^H60.513
+79 ;;^UTILITY(U,$J,358.3,24556,2)
+80 ;;=^5006472
+81 ;;^UTILITY(U,$J,358.3,24557,0)
+82 ;;=H60.512^^74^979^2
+83 ;;^UTILITY(U,$J,358.3,24557,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,24557,1,3,0)
+86 ;;=3^AC Actinic Otitis Externa,Left Ear
+87 ;;^UTILITY(U,$J,358.3,24557,1,4,0)
+88 ;;=4^H60.512
+89 ;;^UTILITY(U,$J,358.3,24557,2)
+90 ;;=^5006471
+91 ;;^UTILITY(U,$J,358.3,24558,0)
+92 ;;=H60.511^^74^979^3
+93 ;;^UTILITY(U,$J,358.3,24558,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,24558,1,3,0)
+96 ;;=3^AC Actinic Otitis Externa,Right Ear
+97 ;;^UTILITY(U,$J,358.3,24558,1,4,0)
+98 ;;=4^H60.511
+99 ;;^UTILITY(U,$J,358.3,24558,2)
+100 ;;=^5006470
+101 ;;^UTILITY(U,$J,358.3,24559,0)
+102 ;;=J21.1^^74^979^5
+103 ;;^UTILITY(U,$J,358.3,24559,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,24559,1,3,0)
+106 ;;=3^AC Bronchiolitis d/t Human Metapneumovirus
+107 ;;^UTILITY(U,$J,358.3,24559,1,4,0)
+108 ;;=4^J21.1
+109 ;;^UTILITY(U,$J,358.3,24559,2)
+110 ;;=^5008197
+111 ;;^UTILITY(U,$J,358.3,24560,0)
+112 ;;=J21.8^^74^979^6
+113 ;;^UTILITY(U,$J,358.3,24560,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,24560,1,3,0)
+116 ;;=3^AC Bronchiolitis d/t Specified Organisms
+117 ;;^UTILITY(U,$J,358.3,24560,1,4,0)
+118 ;;=4^J21.8
+119 ;;^UTILITY(U,$J,358.3,24560,2)
+120 ;;=^5008198
+121 ;;^UTILITY(U,$J,358.3,24561,0)
+122 ;;=J21.9^^74^979^4
+123 ;;^UTILITY(U,$J,358.3,24561,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,24561,1,3,0)
+126 ;;=3^AC Bronchilitis,Unspec
+127 ;;^UTILITY(U,$J,358.3,24561,1,4,0)
+128 ;;=4^J21.9
+129 ;;^UTILITY(U,$J,358.3,24561,2)
+130 ;;=^5008199
+131 ;;^UTILITY(U,$J,358.3,24562,0)
+132 ;;=J20.3^^74^979^7
+133 ;;^UTILITY(U,$J,358.3,24562,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,24562,1,3,0)
+136 ;;=3^AC Bronchitis d/t Coxsackievirus
+137 ;;^UTILITY(U,$J,358.3,24562,1,4,0)
+138 ;;=4^J20.3
+139 ;;^UTILITY(U,$J,358.3,24562,2)
+140 ;;=^5008189
+141 ;;^UTILITY(U,$J,358.3,24563,0)
+142 ;;=J20.7^^74^979^8
+143 ;;^UTILITY(U,$J,358.3,24563,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,24563,1,3,0)
+146 ;;=3^AC Bronchitis d/t Echovirus
+147 ;;^UTILITY(U,$J,358.3,24563,1,4,0)
+148 ;;=4^J20.7
+149 ;;^UTILITY(U,$J,358.3,24563,2)
+150 ;;=^5008193
+151 ;;^UTILITY(U,$J,358.3,24564,0)
+152 ;;=J20.1^^74^979^9
+153 ;;^UTILITY(U,$J,358.3,24564,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,24564,1,3,0)
+156 ;;=3^AC Bronchitis d/t Hemophilus Influenzae
+157 ;;^UTILITY(U,$J,358.3,24564,1,4,0)
+158 ;;=4^J20.1
+159 ;;^UTILITY(U,$J,358.3,24564,2)
+160 ;;=^5008187
+161 ;;^UTILITY(U,$J,358.3,24565,0)
+162 ;;=J20.0^^74^979^10
+163 ;;^UTILITY(U,$J,358.3,24565,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,24565,1,3,0)
+166 ;;=3^AC Bronchitis d/t Mycoplasma Pneumoniae
+167 ;;^UTILITY(U,$J,358.3,24565,1,4,0)
+168 ;;=4^J20.0
+169 ;;^UTILITY(U,$J,358.3,24565,2)
+170 ;;=^5008186
+171 ;;^UTILITY(U,$J,358.3,24566,0)
+172 ;;=J20.8^^74^979^14
+173 ;;^UTILITY(U,$J,358.3,24566,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,24566,1,3,0)
+176 ;;=3^AC Bronchitis d/t Specified Organisms
+177 ;;^UTILITY(U,$J,358.3,24566,1,4,0)
+178 ;;=4^J20.8
+179 ;;^UTILITY(U,$J,358.3,24566,2)
+180 ;;=^5008194
+181 ;;^UTILITY(U,$J,358.3,24567,0)
+182 ;;=J20.4^^74^979^11
+183 ;;^UTILITY(U,$J,358.3,24567,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,24567,1,3,0)
+186 ;;=3^AC Bronchitis d/t Parainfluenza Virus
+187 ;;^UTILITY(U,$J,358.3,24567,1,4,0)
+188 ;;=4^J20.4
+189 ;;^UTILITY(U,$J,358.3,24567,2)
+190 ;;=^5008190
+191 ;;^UTILITY(U,$J,358.3,24568,0)
+192 ;;=J20.5^^74^979^12
+193 ;;^UTILITY(U,$J,358.3,24568,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,24568,1,3,0)
+196 ;;=3^AC Bronchitis d/t Respiratory Syncytial Virus
+197 ;;^UTILITY(U,$J,358.3,24568,1,4,0)
+198 ;;=4^J20.5
+199 ;;^UTILITY(U,$J,358.3,24568,2)
+200 ;;=^5008191
+201 ;;^UTILITY(U,$J,358.3,24569,0)
+202 ;;=J20.6^^74^979^13
+203 ;;^UTILITY(U,$J,358.3,24569,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,24569,1,3,0)
+206 ;;=3^AC Bronchitis d/t Rhinovirus
+207 ;;^UTILITY(U,$J,358.3,24569,1,4,0)
+208 ;;=4^J20.6
+209 ;;^UTILITY(U,$J,358.3,24569,2)
+210 ;;=^5008192
+211 ;;^UTILITY(U,$J,358.3,24570,0)
+212 ;;=J20.2^^74^979^15
+213 ;;^UTILITY(U,$J,358.3,24570,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,24570,1,3,0)
+216 ;;=3^AC Bronchitis d/t Streptococcus
+217 ;;^UTILITY(U,$J,358.3,24570,1,4,0)
+218 ;;=4^J20.2
+219 ;;^UTILITY(U,$J,358.3,24570,2)
+220 ;;=^5008188
+221 ;;^UTILITY(U,$J,358.3,24571,0)
+222 ;;=J20.9^^74^979^16
+223 ;;^UTILITY(U,$J,358.3,24571,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,24571,1,3,0)
+226 ;;=3^AC Bronchitis,Unspec
+227 ;;^UTILITY(U,$J,358.3,24571,1,4,0)
+228 ;;=4^J20.9
+229 ;;^UTILITY(U,$J,358.3,24571,2)
+230 ;;=^5008195
+231 ;;^UTILITY(U,$J,358.3,24572,0)
+232 ;;=H60.523^^74^979^17
+233 ;;^UTILITY(U,$J,358.3,24572,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,24572,1,3,0)
+236 ;;=3^AC Chemical Otitis Externa,Bilateral
+237 ;;^UTILITY(U,$J,358.3,24572,1,4,0)
+238 ;;=4^H60.523
+239 ;;^UTILITY(U,$J,358.3,24572,2)
+240 ;;=^5006476
+241 ;;^UTILITY(U,$J,358.3,24573,0)
+242 ;;=H60.522^^74^979^18
+243 ;;^UTILITY(U,$J,358.3,24573,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,24573,1,3,0)
+246 ;;=3^AC Chemical Otitis Externa,Left Ear
+247 ;;^UTILITY(U,$J,358.3,24573,1,4,0)
+248 ;;=4^H60.522
+249 ;;^UTILITY(U,$J,358.3,24573,2)
+250 ;;=^5006475
+251 ;;^UTILITY(U,$J,358.3,24574,0)
+252 ;;=H60.521^^74^979^19
+253 ;;^UTILITY(U,$J,358.3,24574,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,24574,1,3,0)
+256 ;;=3^AC Chemical Otitis Externa,Right Ear
+257 ;;^UTILITY(U,$J,358.3,24574,1,4,0)
+258 ;;=4^H60.521
+259 ;;^UTILITY(U,$J,358.3,24574,2)
+260 ;;=^5006474
+261 ;;^UTILITY(U,$J,358.3,24575,0)
+262 ;;=H60.543^^74^979^20
+263 ;;^UTILITY(U,$J,358.3,24575,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,24575,1,3,0)
+266 ;;=3^AC Eczematoid Otitis Externa,Bilateral
+267 ;;^UTILITY(U,$J,358.3,24575,1,4,0)
+268 ;;=4^H60.543
+269 ;;^UTILITY(U,$J,358.3,24575,2)
+270 ;;=^5006484
+271 ;;^UTILITY(U,$J,358.3,24576,0)
+272 ;;=H60.542^^74^979^21
+273 ;;^UTILITY(U,$J,358.3,24576,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,24576,1,3,0)
+276 ;;=3^AC Eczematoid Otitis Externa,Left Ear
+277 ;;^UTILITY(U,$J,358.3,24576,1,4,0)
+278 ;;=4^H60.542
+279 ;;^UTILITY(U,$J,358.3,24576,2)
+280 ;;=^5006483
+281 ;;^UTILITY(U,$J,358.3,24577,0)
+282 ;;=H60.541^^74^979^22
+283 ;;^UTILITY(U,$J,358.3,24577,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,24577,1,3,0)
+286 ;;=3^AC Eczematoid Otitis Externa,Right Ear
+287 ;;^UTILITY(U,$J,358.3,24577,1,4,0)
+288 ;;=4^H60.541
+289 ;;^UTILITY(U,$J,358.3,24577,2)
+290 ;;=^5006482
+291 ;;^UTILITY(U,$J,358.3,24578,0)
+292 ;;=J04.0^^74^979^23
+293 ;;^UTILITY(U,$J,358.3,24578,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,24578,1,3,0)
+296 ;;=3^AC Laryngitis
+297 ;;^UTILITY(U,$J,358.3,24578,1,4,0)
+298 ;;=4^J04.0
+299 ;;^UTILITY(U,$J,358.3,24578,2)
+300 ;;=^5008137
+301 ;;^UTILITY(U,$J,358.3,24579,0)
+302 ;;=J04.2^^74^979^24
+303 ;;^UTILITY(U,$J,358.3,24579,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,24579,1,3,0)
+306 ;;=3^AC Laryngotracheitis
+307 ;;^UTILITY(U,$J,358.3,24579,1,4,0)
+308 ;;=4^J04.2
+309 ;;^UTILITY(U,$J,358.3,24579,2)
+310 ;;=^269868
+311 ;;^UTILITY(U,$J,358.3,24580,0)
+312 ;;=J00.^^74^979^25
+313 ;;^UTILITY(U,$J,358.3,24580,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,24580,1,3,0)
+316 ;;=3^AC Nasopharyngitis
+317 ;;^UTILITY(U,$J,358.3,24580,1,4,0)
+318 ;;=4^J00.
+319 ;;^UTILITY(U,$J,358.3,24580,2)
+320 ;;=^5008115
+321 ;;^UTILITY(U,$J,358.3,24581,0)
+322 ;;=J02.8^^74^979^29
+323 ;;^UTILITY(U,$J,358.3,24581,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,24581,1,3,0)
+326 ;;=3^AC Pharyngitis d/t Specified Organisms
+327 ;;^UTILITY(U,$J,358.3,24581,1,4,0)
+328 ;;=4^J02.8
+329 ;;^UTILITY(U,$J,358.3,24581,2)
+330 ;;=^5008129
+331 ;;^UTILITY(U,$J,358.3,24582,0)
+332 ;;=J02.9^^74^979^30
+333 ;;^UTILITY(U,$J,358.3,24582,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,24582,1,3,0)
+336 ;;=3^AC Pharyngitis,Unspec
+337 ;;^UTILITY(U,$J,358.3,24582,1,4,0)
+338 ;;=4^J02.9
+339 ;;^UTILITY(U,$J,358.3,24582,2)
+340 ;;=^5008130
+341 ;;^UTILITY(U,$J,358.3,24583,0)
+342 ;;=B40.0^^74^979^31
+343 ;;^UTILITY(U,$J,358.3,24583,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,24583,1,3,0)
+346 ;;=3^AC Pulmonary Blastomycosis
+347 ;;^UTILITY(U,$J,358.3,24583,1,4,0)
+348 ;;=4^B40.0
+349 ;;^UTILITY(U,$J,358.3,24583,2)
+350 ;;=^5000639
+351 ;;^UTILITY(U,$J,358.3,24584,0)
+352 ;;=H60.553^^74^979^32
+353 ;;^UTILITY(U,$J,358.3,24584,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,24584,1,3,0)
+356 ;;=3^AC Reactive Otitis Externa,Bilateral
+357 ;;^UTILITY(U,$J,358.3,24584,1,4,0)
+358 ;;=4^H60.553
+359 ;;^UTILITY(U,$J,358.3,24584,2)
+360 ;;=^5006488
+361 ;;^UTILITY(U,$J,358.3,24585,0)
+362 ;;=H60.552^^74^979^33
+363 ;;^UTILITY(U,$J,358.3,24585,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,24585,1,3,0)
+366 ;;=3^AC Reactive Otitis Externa,Left Ear
+367 ;;^UTILITY(U,$J,358.3,24585,1,4,0)
+368 ;;=4^H60.552
+369 ;;^UTILITY(U,$J,358.3,24585,2)
+370 ;;=^5006487
+371 ;;^UTILITY(U,$J,358.3,24586,0)
+372 ;;=H60.551^^74^979^34
+373 ;;^UTILITY(U,$J,358.3,24586,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,24586,1,3,0)
+376 ;;=3^AC Reactive Otitis Externa,Right Ear
+377 ;;^UTILITY(U,$J,358.3,24586,1,4,0)
+378 ;;=4^H60.551
+379 ;;^UTILITY(U,$J,358.3,24586,2)
+380 ;;=^5006486
+381 ;;^UTILITY(U,$J,358.3,24587,0)
+382 ;;=J01.91^^74^979^35
+383 ;;^UTILITY(U,$J,358.3,24587,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,24587,1,3,0)
+386 ;;=3^AC Recurrent Sinusitis,Unspec
+387 ;;^UTILITY(U,$J,358.3,24587,1,4,0)
+388 ;;=4^J01.91
+389 ;;^UTILITY(U,$J,358.3,24587,2)
+390 ;;=^5008128
+391 ;;^UTILITY(U,$J,358.3,24588,0)
+392 ;;=J03.81^^74^979^36
+393 ;;^UTILITY(U,$J,358.3,24588,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,24588,1,3,0)
+396 ;;=3^AC Recurrent Tonsillitis d/t Specified Organisms
+397 ;;^UTILITY(U,$J,358.3,24588,1,4,0)
+398 ;;=4^J03.81
+399 ;;^UTILITY(U,$J,358.3,24588,2)
+400 ;;=^5008134
+401 ;;^UTILITY(U,$J,358.3,24589,0)
+402 ;;=J03.91^^74^979^37
+403 ;;^UTILITY(U,$J,358.3,24589,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,24589,1,3,0)
+406 ;;=3^AC Recurrent Tonsillitis,Unspec
+407 ;;^UTILITY(U,$J,358.3,24589,1,4,0)
+408 ;;=4^J03.91
+409 ;;^UTILITY(U,$J,358.3,24589,2)
+410 ;;=^5008136
+411 ;;^UTILITY(U,$J,358.3,24590,0)
+412 ;;=J01.90^^74^979^38
+413 ;;^UTILITY(U,$J,358.3,24590,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,24590,1,3,0)
+416 ;;=3^AC Sinusitis,Unspec
+417 ;;^UTILITY(U,$J,358.3,24590,1,4,0)
+418 ;;=4^J01.90
+419 ;;^UTILITY(U,$J,358.3,24590,2)
+420 ;;=^5008127
+421 ;;^UTILITY(U,$J,358.3,24591,0)
+422 ;;=J03.80^^74^979^39
+423 ;;^UTILITY(U,$J,358.3,24591,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,24591,1,3,0)
+426 ;;=3^AC Tonsillitis d/t Specified Organisms
+427 ;;^UTILITY(U,$J,358.3,24591,1,4,0)
+428 ;;=4^J03.80
+429 ;;^UTILITY(U,$J,358.3,24591,2)
+430 ;;=^5008133
+431 ;;^UTILITY(U,$J,358.3,24592,0)
+432 ;;=J03.90^^74^979^40
+433 ;;^UTILITY(U,$J,358.3,24592,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,24592,1,3,0)
+436 ;;=3^AC Tonsillitis,Unspec
+437 ;;^UTILITY(U,$J,358.3,24592,1,4,0)
+438 ;;=4^J03.90
+439 ;;^UTILITY(U,$J,358.3,24592,2)
+440 ;;=^5008135
+441 ;;^UTILITY(U,$J,358.3,24593,0)
+442 ;;=B44.81^^74^979^43
+443 ;;^UTILITY(U,$J,358.3,24593,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,24593,1,3,0)
+446 ;;=3^Allergic Bronchopulmonary Aspergillosis
+447 ;;^UTILITY(U,$J,358.3,24593,1,4,0)
+448 ;;=4^B44.81
+449 ;;^UTILITY(U,$J,358.3,24593,2)
+450 ;;=^10945
+451 ;;^UTILITY(U,$J,358.3,24594,0)
+452 ;;=B44.9^^74^979^45
+453 ;;^UTILITY(U,$J,358.3,24594,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,24594,1,3,0)
+456 ;;=3^Aspergillosis,Unspec
+457 ;;^UTILITY(U,$J,358.3,24594,1,4,0)
+458 ;;=4^B44.9
+459 ;;^UTILITY(U,$J,358.3,24594,2)
+460 ;;=^5000668
+461 ;;^UTILITY(U,$J,358.3,24595,0)
+462 ;;=B40.9^^74^979^47
+463 ;;^UTILITY(U,$J,358.3,24595,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,24595,1,3,0)
+466 ;;=3^Blastomycosis,Unspec
+467 ;;^UTILITY(U,$J,358.3,24595,1,4,0)
+468 ;;=4^B40.9
+469 ;;^UTILITY(U,$J,358.3,24595,2)
+470 ;;=^5000646
+471 ;;^UTILITY(U,$J,358.3,24596,0)
+472 ;;=J18.0^^74^979^48
+473 ;;^UTILITY(U,$J,358.3,24596,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,24596,1,3,0)
+476 ;;=3^Bronchopneumonia,Unspec Organism
+477 ;;^UTILITY(U,$J,358.3,24596,1,4,0)
+478 ;;=4^J18.0
+479 ;;^UTILITY(U,$J,358.3,24596,2)
+480 ;;=^5008182
+481 ;;^UTILITY(U,$J,358.3,24597,0)
+482 ;;=B45.1^^74^979^49
+483 ;;^UTILITY(U,$J,358.3,24597,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,24597,1,3,0)
+486 ;;=3^Cerebral Cryptococcosis
+487 ;;^UTILITY(U,$J,358.3,24597,1,4,0)
+488 ;;=4^B45.1
+489 ;;^UTILITY(U,$J,358.3,24597,2)
+490 ;;=^5000670
+491 ;;^UTILITY(U,$J,358.3,24598,0)
+492 ;;=J16.0^^74^979^50
+493 ;;^UTILITY(U,$J,358.3,24598,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,24598,1,3,0)
+496 ;;=3^Chlamydial Pneumonia
+497 ;;^UTILITY(U,$J,358.3,24598,1,4,0)
+498 ;;=4^J16.0
+499 ;;^UTILITY(U,$J,358.3,24598,2)
+500 ;;=^5008179
+501 ;;^UTILITY(U,$J,358.3,24599,0)
+502 ;;=B40.1^^74^979^51
+503 ;;^UTILITY(U,$J,358.3,24599,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,24599,1,3,0)
+506 ;;=3^Chr Pulmonary Blastomycosis
+507 ;;^UTILITY(U,$J,358.3,24599,1,4,0)
+508 ;;=4^B40.1
+509 ;;^UTILITY(U,$J,358.3,24599,2)
+510 ;;=^5000640
+511 ;;^UTILITY(U,$J,358.3,24600,0)
+512 ;;=J32.9^^74^979^52
+513 ;;^UTILITY(U,$J,358.3,24600,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,24600,1,3,0)
+516 ;;=3^Chr Sinusitis,Unspec
+517 ;;^UTILITY(U,$J,358.3,24600,1,4,0)
+518 ;;=4^J32.9
+519 ;;^UTILITY(U,$J,358.3,24600,2)
+520 ;;=^5008207
+521 ;;^UTILITY(U,$J,358.3,24601,0)
+522 ;;=B45.9^^74^979^54
+523 ;;^UTILITY(U,$J,358.3,24601,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,24601,1,3,0)
+526 ;;=3^Cryptococcosis,Unspec
+527 ;;^UTILITY(U,$J,358.3,24601,1,4,0)
+528 ;;=4^B45.9
+529 ;;^UTILITY(U,$J,358.3,24601,2)
+530 ;;=^5000675
+531 ;;^UTILITY(U,$J,358.3,24602,0)
+532 ;;=B45.2^^74^979^55
+533 ;;^UTILITY(U,$J,358.3,24602,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,24602,1,3,0)
+536 ;;=3^Cutaneous Cryptococcosis
+537 ;;^UTILITY(U,$J,358.3,24602,1,4,0)
+538 ;;=4^B45.2
+539 ;;^UTILITY(U,$J,358.3,24602,2)
+540 ;;=^5000671
+541 ;;^UTILITY(U,$J,358.3,24603,0)
+542 ;;=B44.7^^74^979^56
+543 ;;^UTILITY(U,$J,358.3,24603,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,24603,1,3,0)
+546 ;;=3^Disseminated Aspergillosis
+547 ;;^UTILITY(U,$J,358.3,24603,1,4,0)
+548 ;;=4^B44.7
+549 ;;^UTILITY(U,$J,358.3,24603,2)
+550 ;;=^5000666
+551 ;;^UTILITY(U,$J,358.3,24604,0)
+552 ;;=B45.7^^74^979^57
+553 ;;^UTILITY(U,$J,358.3,24604,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,24604,1,3,0)
+556 ;;=3^Disseminated Cryptococcosis
+557 ;;^UTILITY(U,$J,358.3,24604,1,4,0)
+558 ;;=4^B45.7
+559 ;;^UTILITY(U,$J,358.3,24604,2)
+560 ;;=^5000673
+561 ;;^UTILITY(U,$J,358.3,24605,0)
+562 ;;=B39.9^^74^979^59
+563 ;;^UTILITY(U,$J,358.3,24605,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,24605,1,3,0)
+566 ;;=3^Histoplasmosis,Unspec
+567 ;;^UTILITY(U,$J,358.3,24605,1,4,0)
+568 ;;=4^B39.9
+569 ;;^UTILITY(U,$J,358.3,24605,2)
+570 ;;=^5000638
+571 ;;^UTILITY(U,$J,358.3,24606,0)
+572 ;;=J18.2^^74^979^60
+573 ;;^UTILITY(U,$J,358.3,24606,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,24606,1,3,0)
+576 ;;=3^Hypostatic Pneumonia,Unspec Organism
+577 ;;^UTILITY(U,$J,358.3,24606,1,4,0)
+578 ;;=4^J18.2
+579 ;;^UTILITY(U,$J,358.3,24606,2)
+580 ;;=^5008184
+581 ;;^UTILITY(U,$J,358.3,24607,0)
+582 ;;=B44.0^^74^979^61
+583 ;;^UTILITY(U,$J,358.3,24607,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,24607,1,3,0)
+586 ;;=3^Invasive Pulmonary Aspergillosis
+587 ;;^UTILITY(U,$J,358.3,24607,1,4,0)
+588 ;;=4^B44.0
+589 ;;^UTILITY(U,$J,358.3,24607,2)
+590 ;;=^5000663
+591 ;;^UTILITY(U,$J,358.3,24608,0)
+592 ;;=J18.1^^74^979^62
+593 ;;^UTILITY(U,$J,358.3,24608,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,24608,1,3,0)
+596 ;;=3^Lobar Pneumonia,Unspec Organism
+597 ;;^UTILITY(U,$J,358.3,24608,1,4,0)
+598 ;;=4^J18.1
+599 ;;^UTILITY(U,$J,358.3,24608,2)
+600 ;;=^5008183
+601 ;;^UTILITY(U,$J,358.3,24609,0)
+602 ;;=A19.9^^74^979^63
+603 ;;^UTILITY(U,$J,358.3,24609,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,24609,1,3,0)
+606 ;;=3^Miliary Tuberculosis,Unspec
+607 ;;^UTILITY(U,$J,358.3,24609,1,4,0)
+608 ;;=4^A19.9
+609 ;;^UTILITY(U,$J,358.3,24609,2)
+610 ;;=^5000104
+611 ;;^UTILITY(U,$J,358.3,24610,0)
+612 ;;=R76.11^^74^979^82
+613 ;;^UTILITY(U,$J,358.3,24610,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,24610,1,3,0)
+616 ;;=3^Reaction to Skin Test w/o Active TB
+617 ;;^UTILITY(U,$J,358.3,24610,1,4,0)
+618 ;;=4^R76.11
+619 ;;^UTILITY(U,$J,358.3,24610,2)
+620 ;;=^5019570
+621 ;;^UTILITY(U,$J,358.3,24611,0)
+622 ;;=B45.3^^74^979^67
+623 ;;^UTILITY(U,$J,358.3,24611,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,24611,1,3,0)
+626 ;;=3^Osseous Cryptococcosis
+627 ;;^UTILITY(U,$J,358.3,24611,1,4,0)
+628 ;;=4^B45.3
+629 ;;^UTILITY(U,$J,358.3,24611,2)
+630 ;;=^5000672
+631 ;;^UTILITY(U,$J,358.3,24612,0)
+632 ;;=B44.89^^74^979^44
+633 ;;^UTILITY(U,$J,358.3,24612,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,24612,1,3,0)
+636 ;;=3^Aspergillosis NEC
+637 ;;^UTILITY(U,$J,358.3,24612,1,4,0)
+638 ;;=4^B44.89
+639 ;;^UTILITY(U,$J,358.3,24612,2)
+640 ;;=^5000667
+641 ;;^UTILITY(U,$J,358.3,24613,0)
+642 ;;=B45.8^^74^979^53
+643 ;;^UTILITY(U,$J,358.3,24613,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,24613,1,3,0)
+646 ;;=3^Cryptococcosis NEC
+647 ;;^UTILITY(U,$J,358.3,24613,1,4,0)
+648 ;;=4^B45.8
+649 ;;^UTILITY(U,$J,358.3,24613,2)
+650 ;;=^5000674
+651 ;;^UTILITY(U,$J,358.3,24614,0)
+652 ;;=H60.593^^74^979^64
+653 ;;^UTILITY(U,$J,358.3,24614,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,24614,1,3,0)
+656 ;;=3^Noninfective AC Otitis Externa,Bilateral NEC
+657 ;;^UTILITY(U,$J,358.3,24614,1,4,0)
+658 ;;=4^H60.593
+659 ;;^UTILITY(U,$J,358.3,24614,2)
+660 ;;=^5006491
+661 ;;^UTILITY(U,$J,358.3,24615,0)
+662 ;;=H60.592^^74^979^65
+663 ;;^UTILITY(U,$J,358.3,24615,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,24615,1,3,0)
+666 ;;=3^Noninfective AC Otitis Externa,Left Ear NEC
+667 ;;^UTILITY(U,$J,358.3,24615,1,4,0)
+668 ;;=4^H60.592
+669 ;;^UTILITY(U,$J,358.3,24615,2)
+670 ;;=^5133527
+671 ;;^UTILITY(U,$J,358.3,24616,0)
+672 ;;=H60.591^^74^979^66
+673 ;;^UTILITY(U,$J,358.3,24616,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,24616,1,3,0)
+676 ;;=3^Noninfective AC Otitis Externa,Right Ear NEC
+677 ;;^UTILITY(U,$J,358.3,24616,1,4,0)
+678 ;;=4^H60.591
+679 ;;^UTILITY(U,$J,358.3,24616,2)
+680 ;;=^5006490
+681 ;;^UTILITY(U,$J,358.3,24617,0)
+682 ;;=J18.8^^74^979^73
+683 ;;^UTILITY(U,$J,358.3,24617,1,0)
+684 ;;=^358.31IA^4^2
+685 ;;^UTILITY(U,$J,358.3,24617,1,3,0)
+686 ;;=3^Pneumonia,Unspec Organism NEC
+687 ;;^UTILITY(U,$J,358.3,24617,1,4,0)
+688 ;;=4^J18.8
+689 ;;^UTILITY(U,$J,358.3,24617,2)
+690 ;;=^5008185
