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

IBDEI0C4.m

Go to the documentation of this file.
IBDEI0C4 ; ; 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,30392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30392,1,3,0)
 ;;=3^Cirrhosis of Liver NEC
 ;;^UTILITY(U,$J,358.3,30392,1,4,0)
 ;;=4^K74.69
 ;;^UTILITY(U,$J,358.3,30392,2)
 ;;=^5008823
 ;;^UTILITY(U,$J,358.3,30393,0)
 ;;=K74.60^^86^1221^8
 ;;^UTILITY(U,$J,358.3,30393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30393,1,3,0)
 ;;=3^Cirrhosis of Liver,Unspec
 ;;^UTILITY(U,$J,358.3,30393,1,4,0)
 ;;=4^K74.60
 ;;^UTILITY(U,$J,358.3,30393,2)
 ;;=^5008822
 ;;^UTILITY(U,$J,358.3,30394,0)
 ;;=K74.00^^86^1221^11
 ;;^UTILITY(U,$J,358.3,30394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30394,1,3,0)
 ;;=3^Hepatic Fibrosis,Unspec
 ;;^UTILITY(U,$J,358.3,30394,1,4,0)
 ;;=4^K74.00
 ;;^UTILITY(U,$J,358.3,30394,2)
 ;;=^5159218
 ;;^UTILITY(U,$J,358.3,30395,0)
 ;;=K74.01^^86^1221^10
 ;;^UTILITY(U,$J,358.3,30395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30395,1,3,0)
 ;;=3^Hepatic Fibrosis,Early Fibrosis
 ;;^UTILITY(U,$J,358.3,30395,1,4,0)
 ;;=4^K74.01
 ;;^UTILITY(U,$J,358.3,30395,2)
 ;;=^5159219
 ;;^UTILITY(U,$J,358.3,30396,0)
 ;;=K74.02^^86^1221^9
 ;;^UTILITY(U,$J,358.3,30396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30396,1,3,0)
 ;;=3^Hepatic Fibrosis,Advanced Fibrosis
 ;;^UTILITY(U,$J,358.3,30396,1,4,0)
 ;;=4^K74.02
 ;;^UTILITY(U,$J,358.3,30396,2)
 ;;=^5159220
 ;;^UTILITY(U,$J,358.3,30397,0)
 ;;=K70.30^^86^1221^6
 ;;^UTILITY(U,$J,358.3,30397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30397,1,3,0)
 ;;=3^Alcoholic Cirrhosis w/o Ascites
 ;;^UTILITY(U,$J,358.3,30397,1,4,0)
 ;;=4^K70.30
 ;;^UTILITY(U,$J,358.3,30397,2)
 ;;=^5008788
 ;;^UTILITY(U,$J,358.3,30398,0)
 ;;=K70.31^^86^1221^5
 ;;^UTILITY(U,$J,358.3,30398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30398,1,3,0)
 ;;=3^Alcoholic Cirrhosis w/ Ascites
 ;;^UTILITY(U,$J,358.3,30398,1,4,0)
 ;;=4^K70.31
 ;;^UTILITY(U,$J,358.3,30398,2)
 ;;=^5008789
 ;;^UTILITY(U,$J,358.3,30399,0)
 ;;=K75.81^^86^1221^14
 ;;^UTILITY(U,$J,358.3,30399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30399,1,3,0)
 ;;=3^Nonalcoholic Steatohepatitis (NASH)
 ;;^UTILITY(U,$J,358.3,30399,1,4,0)
 ;;=4^K75.81
 ;;^UTILITY(U,$J,358.3,30399,2)
 ;;=^5008828
 ;;^UTILITY(U,$J,358.3,30400,0)
 ;;=B18.2^^86^1221^12
 ;;^UTILITY(U,$J,358.3,30400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30400,1,3,0)
 ;;=3^Hepatitis C (Carrier/Chronic)
 ;;^UTILITY(U,$J,358.3,30400,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,30400,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,30401,0)
 ;;=J85.1^^86^1222^41
 ;;^UTILITY(U,$J,358.3,30401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30401,1,3,0)
 ;;=3^Abscess of Lung w/ Pneumonia
 ;;^UTILITY(U,$J,358.3,30401,1,4,0)
 ;;=4^J85.1
 ;;^UTILITY(U,$J,358.3,30401,2)
 ;;=^5008306
 ;;^UTILITY(U,$J,358.3,30402,0)
 ;;=J85.2^^86^1222^42
 ;;^UTILITY(U,$J,358.3,30402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30402,1,3,0)
 ;;=3^Abscess of Lung w/o Pneumonia
 ;;^UTILITY(U,$J,358.3,30402,1,4,0)
 ;;=4^J85.2
 ;;^UTILITY(U,$J,358.3,30402,2)
 ;;=^5008307
 ;;^UTILITY(U,$J,358.3,30403,0)
 ;;=H60.513^^86^1222^1
 ;;^UTILITY(U,$J,358.3,30403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30403,1,3,0)
 ;;=3^AC Actinic Otitis Externa,Bilateral
 ;;^UTILITY(U,$J,358.3,30403,1,4,0)
 ;;=4^H60.513
 ;;^UTILITY(U,$J,358.3,30403,2)
 ;;=^5006472
 ;;^UTILITY(U,$J,358.3,30404,0)
 ;;=H60.512^^86^1222^2
 ;;^UTILITY(U,$J,358.3,30404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30404,1,3,0)
 ;;=3^AC Actinic Otitis Externa,Left Ear
 ;;^UTILITY(U,$J,358.3,30404,1,4,0)
 ;;=4^H60.512
 ;;^UTILITY(U,$J,358.3,30404,2)
 ;;=^5006471
 ;;^UTILITY(U,$J,358.3,30405,0)
 ;;=H60.511^^86^1222^3
 ;;^UTILITY(U,$J,358.3,30405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30405,1,3,0)
 ;;=3^AC Actinic Otitis Externa,Right Ear
 ;;^UTILITY(U,$J,358.3,30405,1,4,0)
 ;;=4^H60.511
 ;;^UTILITY(U,$J,358.3,30405,2)
 ;;=^5006470
 ;;^UTILITY(U,$J,358.3,30406,0)
 ;;=J21.1^^86^1222^5
 ;;^UTILITY(U,$J,358.3,30406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30406,1,3,0)
 ;;=3^AC Bronchiolitis d/t Human Metapneumovirus
 ;;^UTILITY(U,$J,358.3,30406,1,4,0)
 ;;=4^J21.1
 ;;^UTILITY(U,$J,358.3,30406,2)
 ;;=^5008197
 ;;^UTILITY(U,$J,358.3,30407,0)
 ;;=J21.8^^86^1222^6
 ;;^UTILITY(U,$J,358.3,30407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30407,1,3,0)
 ;;=3^AC Bronchiolitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,30407,1,4,0)
 ;;=4^J21.8
 ;;^UTILITY(U,$J,358.3,30407,2)
 ;;=^5008198
 ;;^UTILITY(U,$J,358.3,30408,0)
 ;;=J21.9^^86^1222^4
 ;;^UTILITY(U,$J,358.3,30408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30408,1,3,0)
 ;;=3^AC Bronchilitis,Unspec
 ;;^UTILITY(U,$J,358.3,30408,1,4,0)
 ;;=4^J21.9
 ;;^UTILITY(U,$J,358.3,30408,2)
 ;;=^5008199
 ;;^UTILITY(U,$J,358.3,30409,0)
 ;;=J20.3^^86^1222^7
 ;;^UTILITY(U,$J,358.3,30409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30409,1,3,0)
 ;;=3^AC Bronchitis d/t Coxsackievirus
 ;;^UTILITY(U,$J,358.3,30409,1,4,0)
 ;;=4^J20.3
 ;;^UTILITY(U,$J,358.3,30409,2)
 ;;=^5008189
 ;;^UTILITY(U,$J,358.3,30410,0)
 ;;=J20.7^^86^1222^8
 ;;^UTILITY(U,$J,358.3,30410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30410,1,3,0)
 ;;=3^AC Bronchitis d/t Echovirus
 ;;^UTILITY(U,$J,358.3,30410,1,4,0)
 ;;=4^J20.7
 ;;^UTILITY(U,$J,358.3,30410,2)
 ;;=^5008193
 ;;^UTILITY(U,$J,358.3,30411,0)
 ;;=J20.1^^86^1222^9
 ;;^UTILITY(U,$J,358.3,30411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30411,1,3,0)
 ;;=3^AC Bronchitis d/t Hemophilus Influenzae
 ;;^UTILITY(U,$J,358.3,30411,1,4,0)
 ;;=4^J20.1
 ;;^UTILITY(U,$J,358.3,30411,2)
 ;;=^5008187
 ;;^UTILITY(U,$J,358.3,30412,0)
 ;;=J20.0^^86^1222^10
 ;;^UTILITY(U,$J,358.3,30412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30412,1,3,0)
 ;;=3^AC Bronchitis d/t Mycoplasma Pneumoniae
 ;;^UTILITY(U,$J,358.3,30412,1,4,0)
 ;;=4^J20.0
 ;;^UTILITY(U,$J,358.3,30412,2)
 ;;=^5008186
 ;;^UTILITY(U,$J,358.3,30413,0)
 ;;=J20.8^^86^1222^14
 ;;^UTILITY(U,$J,358.3,30413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30413,1,3,0)
 ;;=3^AC Bronchitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,30413,1,4,0)
 ;;=4^J20.8
 ;;^UTILITY(U,$J,358.3,30413,2)
 ;;=^5008194
 ;;^UTILITY(U,$J,358.3,30414,0)
 ;;=J20.4^^86^1222^11
 ;;^UTILITY(U,$J,358.3,30414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30414,1,3,0)
 ;;=3^AC Bronchitis d/t Parainfluenza Virus
 ;;^UTILITY(U,$J,358.3,30414,1,4,0)
 ;;=4^J20.4
 ;;^UTILITY(U,$J,358.3,30414,2)
 ;;=^5008190
 ;;^UTILITY(U,$J,358.3,30415,0)
 ;;=J20.5^^86^1222^12
 ;;^UTILITY(U,$J,358.3,30415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30415,1,3,0)
 ;;=3^AC Bronchitis d/t Respiratory Syncytial Virus
 ;;^UTILITY(U,$J,358.3,30415,1,4,0)
 ;;=4^J20.5
 ;;^UTILITY(U,$J,358.3,30415,2)
 ;;=^5008191
 ;;^UTILITY(U,$J,358.3,30416,0)
 ;;=J20.6^^86^1222^13
 ;;^UTILITY(U,$J,358.3,30416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30416,1,3,0)
 ;;=3^AC Bronchitis d/t Rhinovirus
 ;;^UTILITY(U,$J,358.3,30416,1,4,0)
 ;;=4^J20.6
 ;;^UTILITY(U,$J,358.3,30416,2)
 ;;=^5008192
 ;;^UTILITY(U,$J,358.3,30417,0)
 ;;=J20.2^^86^1222^15
 ;;^UTILITY(U,$J,358.3,30417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30417,1,3,0)
 ;;=3^AC Bronchitis d/t Streptococcus
 ;;^UTILITY(U,$J,358.3,30417,1,4,0)
 ;;=4^J20.2
 ;;^UTILITY(U,$J,358.3,30417,2)
 ;;=^5008188
 ;;^UTILITY(U,$J,358.3,30418,0)
 ;;=J20.9^^86^1222^16
 ;;^UTILITY(U,$J,358.3,30418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30418,1,3,0)
 ;;=3^AC Bronchitis,Unspec
 ;;^UTILITY(U,$J,358.3,30418,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,30418,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,30419,0)
 ;;=H60.523^^86^1222^17
 ;;^UTILITY(U,$J,358.3,30419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30419,1,3,0)
 ;;=3^AC Chemical Otitis Externa,Bilateral
 ;;^UTILITY(U,$J,358.3,30419,1,4,0)
 ;;=4^H60.523
 ;;^UTILITY(U,$J,358.3,30419,2)
 ;;=^5006476
 ;;^UTILITY(U,$J,358.3,30420,0)
 ;;=H60.522^^86^1222^18
 ;;^UTILITY(U,$J,358.3,30420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30420,1,3,0)
 ;;=3^AC Chemical Otitis Externa,Left Ear
 ;;^UTILITY(U,$J,358.3,30420,1,4,0)
 ;;=4^H60.522
 ;;^UTILITY(U,$J,358.3,30420,2)
 ;;=^5006475
 ;;^UTILITY(U,$J,358.3,30421,0)
 ;;=H60.521^^86^1222^19
 ;;^UTILITY(U,$J,358.3,30421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30421,1,3,0)
 ;;=3^AC Chemical Otitis Externa,Right Ear
 ;;^UTILITY(U,$J,358.3,30421,1,4,0)
 ;;=4^H60.521
 ;;^UTILITY(U,$J,358.3,30421,2)
 ;;=^5006474
 ;;^UTILITY(U,$J,358.3,30422,0)
 ;;=H60.543^^86^1222^20
 ;;^UTILITY(U,$J,358.3,30422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30422,1,3,0)
 ;;=3^AC Eczematoid Otitis Externa,Bilateral
 ;;^UTILITY(U,$J,358.3,30422,1,4,0)
 ;;=4^H60.543
 ;;^UTILITY(U,$J,358.3,30422,2)
 ;;=^5006484
 ;;^UTILITY(U,$J,358.3,30423,0)
 ;;=H60.542^^86^1222^21
 ;;^UTILITY(U,$J,358.3,30423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30423,1,3,0)
 ;;=3^AC Eczematoid Otitis Externa,Left Ear
 ;;^UTILITY(U,$J,358.3,30423,1,4,0)
 ;;=4^H60.542
 ;;^UTILITY(U,$J,358.3,30423,2)
 ;;=^5006483
 ;;^UTILITY(U,$J,358.3,30424,0)
 ;;=H60.541^^86^1222^22
 ;;^UTILITY(U,$J,358.3,30424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30424,1,3,0)
 ;;=3^AC Eczematoid Otitis Externa,Right Ear
 ;;^UTILITY(U,$J,358.3,30424,1,4,0)
 ;;=4^H60.541
 ;;^UTILITY(U,$J,358.3,30424,2)
 ;;=^5006482
 ;;^UTILITY(U,$J,358.3,30425,0)
 ;;=J04.0^^86^1222^23
 ;;^UTILITY(U,$J,358.3,30425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30425,1,3,0)
 ;;=3^AC Laryngitis
 ;;^UTILITY(U,$J,358.3,30425,1,4,0)
 ;;=4^J04.0
 ;;^UTILITY(U,$J,358.3,30425,2)
 ;;=^5008137
 ;;^UTILITY(U,$J,358.3,30426,0)
 ;;=J04.2^^86^1222^24
 ;;^UTILITY(U,$J,358.3,30426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30426,1,3,0)
 ;;=3^AC Laryngotracheitis
 ;;^UTILITY(U,$J,358.3,30426,1,4,0)
 ;;=4^J04.2
 ;;^UTILITY(U,$J,358.3,30426,2)
 ;;=^269868
 ;;^UTILITY(U,$J,358.3,30427,0)
 ;;=J00.^^86^1222^25
 ;;^UTILITY(U,$J,358.3,30427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30427,1,3,0)
 ;;=3^AC Nasopharyngitis
 ;;^UTILITY(U,$J,358.3,30427,1,4,0)
 ;;=4^J00.
 ;;^UTILITY(U,$J,358.3,30427,2)
 ;;=^5008115
 ;;^UTILITY(U,$J,358.3,30428,0)
 ;;=J02.8^^86^1222^29
 ;;^UTILITY(U,$J,358.3,30428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30428,1,3,0)
 ;;=3^AC Pharyngitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,30428,1,4,0)
 ;;=4^J02.8
 ;;^UTILITY(U,$J,358.3,30428,2)
 ;;=^5008129
 ;;^UTILITY(U,$J,358.3,30429,0)
 ;;=J02.9^^86^1222^30
 ;;^UTILITY(U,$J,358.3,30429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30429,1,3,0)
 ;;=3^AC Pharyngitis,Unspec
 ;;^UTILITY(U,$J,358.3,30429,1,4,0)
 ;;=4^J02.9
 ;;^UTILITY(U,$J,358.3,30429,2)
 ;;=^5008130
 ;;^UTILITY(U,$J,358.3,30430,0)
 ;;=B40.0^^86^1222^31
 ;;^UTILITY(U,$J,358.3,30430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30430,1,3,0)
 ;;=3^AC Pulmonary Blastomycosis
 ;;^UTILITY(U,$J,358.3,30430,1,4,0)
 ;;=4^B40.0
 ;;^UTILITY(U,$J,358.3,30430,2)
 ;;=^5000639
 ;;^UTILITY(U,$J,358.3,30431,0)
 ;;=H60.553^^86^1222^32
 ;;^UTILITY(U,$J,358.3,30431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30431,1,3,0)
 ;;=3^AC Reactive Otitis Externa,Bilateral
 ;;^UTILITY(U,$J,358.3,30431,1,4,0)
 ;;=4^H60.553
 ;;^UTILITY(U,$J,358.3,30431,2)
 ;;=^5006488
 ;;^UTILITY(U,$J,358.3,30432,0)
 ;;=H60.552^^86^1222^33
 ;;^UTILITY(U,$J,358.3,30432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30432,1,3,0)
 ;;=3^AC Reactive Otitis Externa,Left Ear
 ;;^UTILITY(U,$J,358.3,30432,1,4,0)
 ;;=4^H60.552
 ;;^UTILITY(U,$J,358.3,30432,2)
 ;;=^5006487
 ;;^UTILITY(U,$J,358.3,30433,0)
 ;;=H60.551^^86^1222^34
 ;;^UTILITY(U,$J,358.3,30433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30433,1,3,0)
 ;;=3^AC Reactive Otitis Externa,Right Ear
 ;;^UTILITY(U,$J,358.3,30433,1,4,0)
 ;;=4^H60.551
 ;;^UTILITY(U,$J,358.3,30433,2)
 ;;=^5006486
 ;;^UTILITY(U,$J,358.3,30434,0)
 ;;=J01.91^^86^1222^35
 ;;^UTILITY(U,$J,358.3,30434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30434,1,3,0)
 ;;=3^AC Recurrent Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,30434,1,4,0)
 ;;=4^J01.91
 ;;^UTILITY(U,$J,358.3,30434,2)
 ;;=^5008128
 ;;^UTILITY(U,$J,358.3,30435,0)
 ;;=J03.81^^86^1222^36
 ;;^UTILITY(U,$J,358.3,30435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30435,1,3,0)
 ;;=3^AC Recurrent Tonsillitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,30435,1,4,0)
 ;;=4^J03.81
 ;;^UTILITY(U,$J,358.3,30435,2)
 ;;=^5008134
 ;;^UTILITY(U,$J,358.3,30436,0)
 ;;=J03.91^^86^1222^37
 ;;^UTILITY(U,$J,358.3,30436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30436,1,3,0)
 ;;=3^AC Recurrent Tonsillitis,Unspec
 ;;^UTILITY(U,$J,358.3,30436,1,4,0)
 ;;=4^J03.91
 ;;^UTILITY(U,$J,358.3,30436,2)
 ;;=^5008136
 ;;^UTILITY(U,$J,358.3,30437,0)
 ;;=J01.90^^86^1222^38
 ;;^UTILITY(U,$J,358.3,30437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30437,1,3,0)
 ;;=3^AC Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,30437,1,4,0)
 ;;=4^J01.90
 ;;^UTILITY(U,$J,358.3,30437,2)
 ;;=^5008127
 ;;^UTILITY(U,$J,358.3,30438,0)
 ;;=J03.80^^86^1222^39
 ;;^UTILITY(U,$J,358.3,30438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30438,1,3,0)
 ;;=3^AC Tonsillitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,30438,1,4,0)
 ;;=4^J03.80
 ;;^UTILITY(U,$J,358.3,30438,2)
 ;;=^5008133
 ;;^UTILITY(U,$J,358.3,30439,0)
 ;;=J03.90^^86^1222^40
 ;;^UTILITY(U,$J,358.3,30439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30439,1,3,0)
 ;;=3^AC Tonsillitis,Unspec
 ;;^UTILITY(U,$J,358.3,30439,1,4,0)
 ;;=4^J03.90
 ;;^UTILITY(U,$J,358.3,30439,2)
 ;;=^5008135
 ;;^UTILITY(U,$J,358.3,30440,0)
 ;;=B44.81^^86^1222^43
 ;;^UTILITY(U,$J,358.3,30440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30440,1,3,0)
 ;;=3^Allergic Bronchopulmonary Aspergillosis
 ;;^UTILITY(U,$J,358.3,30440,1,4,0)
 ;;=4^B44.81
 ;;^UTILITY(U,$J,358.3,30440,2)
 ;;=^10945
 ;;^UTILITY(U,$J,358.3,30441,0)
 ;;=B44.9^^86^1222^45
 ;;^UTILITY(U,$J,358.3,30441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30441,1,3,0)
 ;;=3^Aspergillosis,Unspec
 ;;^UTILITY(U,$J,358.3,30441,1,4,0)
 ;;=4^B44.9
 ;;^UTILITY(U,$J,358.3,30441,2)
 ;;=^5000668
 ;;^UTILITY(U,$J,358.3,30442,0)
 ;;=B40.9^^86^1222^47
 ;;^UTILITY(U,$J,358.3,30442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30442,1,3,0)
 ;;=3^Blastomycosis,Unspec
 ;;^UTILITY(U,$J,358.3,30442,1,4,0)
 ;;=4^B40.9
 ;;^UTILITY(U,$J,358.3,30442,2)
 ;;=^5000646
 ;;^UTILITY(U,$J,358.3,30443,0)
 ;;=J18.0^^86^1222^48
 ;;^UTILITY(U,$J,358.3,30443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30443,1,3,0)
 ;;=3^Bronchopneumonia,Unspec Organism
 ;;^UTILITY(U,$J,358.3,30443,1,4,0)
 ;;=4^J18.0
 ;;^UTILITY(U,$J,358.3,30443,2)
 ;;=^5008182
 ;;^UTILITY(U,$J,358.3,30444,0)
 ;;=B45.1^^86^1222^49
 ;;^UTILITY(U,$J,358.3,30444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30444,1,3,0)
 ;;=3^Cerebral Cryptococcosis
 ;;^UTILITY(U,$J,358.3,30444,1,4,0)
 ;;=4^B45.1
 ;;^UTILITY(U,$J,358.3,30444,2)
 ;;=^5000670
 ;;^UTILITY(U,$J,358.3,30445,0)
 ;;=J16.0^^86^1222^50
 ;;^UTILITY(U,$J,358.3,30445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30445,1,3,0)
 ;;=3^Chlamydial Pneumonia
 ;;^UTILITY(U,$J,358.3,30445,1,4,0)
 ;;=4^J16.0
 ;;^UTILITY(U,$J,358.3,30445,2)
 ;;=^5008179
 ;;^UTILITY(U,$J,358.3,30446,0)
 ;;=B40.1^^86^1222^51
 ;;^UTILITY(U,$J,358.3,30446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30446,1,3,0)
 ;;=3^Chr Pulmonary Blastomycosis
 ;;^UTILITY(U,$J,358.3,30446,1,4,0)
 ;;=4^B40.1
 ;;^UTILITY(U,$J,358.3,30446,2)
 ;;=^5000640
 ;;^UTILITY(U,$J,358.3,30447,0)
 ;;=J32.9^^86^1222^52
 ;;^UTILITY(U,$J,358.3,30447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30447,1,3,0)
 ;;=3^Chr Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,30447,1,4,0)
 ;;=4^J32.9
 ;;^UTILITY(U,$J,358.3,30447,2)
 ;;=^5008207
 ;;^UTILITY(U,$J,358.3,30448,0)
 ;;=B45.9^^86^1222^54
 ;;^UTILITY(U,$J,358.3,30448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30448,1,3,0)
 ;;=3^Cryptococcosis,Unspec
 ;;^UTILITY(U,$J,358.3,30448,1,4,0)
 ;;=4^B45.9
 ;;^UTILITY(U,$J,358.3,30448,2)
 ;;=^5000675
 ;;^UTILITY(U,$J,358.3,30449,0)
 ;;=B45.2^^86^1222^55
 ;;^UTILITY(U,$J,358.3,30449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30449,1,3,0)
 ;;=3^Cutaneous Cryptococcosis
 ;;^UTILITY(U,$J,358.3,30449,1,4,0)
 ;;=4^B45.2
 ;;^UTILITY(U,$J,358.3,30449,2)
 ;;=^5000671
 ;;^UTILITY(U,$J,358.3,30450,0)
 ;;=B44.7^^86^1222^56
 ;;^UTILITY(U,$J,358.3,30450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30450,1,3,0)
 ;;=3^Disseminated Aspergillosis
 ;;^UTILITY(U,$J,358.3,30450,1,4,0)
 ;;=4^B44.7
 ;;^UTILITY(U,$J,358.3,30450,2)
 ;;=^5000666
 ;;^UTILITY(U,$J,358.3,30451,0)
 ;;=B45.7^^86^1222^57
 ;;^UTILITY(U,$J,358.3,30451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30451,1,3,0)
 ;;=3^Disseminated Cryptococcosis
 ;;^UTILITY(U,$J,358.3,30451,1,4,0)
 ;;=4^B45.7
 ;;^UTILITY(U,$J,358.3,30451,2)
 ;;=^5000673
 ;;^UTILITY(U,$J,358.3,30452,0)
 ;;=B39.9^^86^1222^59
 ;;^UTILITY(U,$J,358.3,30452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30452,1,3,0)
 ;;=3^Histoplasmosis,Unspec
 ;;^UTILITY(U,$J,358.3,30452,1,4,0)
 ;;=4^B39.9
 ;;^UTILITY(U,$J,358.3,30452,2)
 ;;=^5000638
 ;;^UTILITY(U,$J,358.3,30453,0)
 ;;=J18.2^^86^1222^60
 ;;^UTILITY(U,$J,358.3,30453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30453,1,3,0)
 ;;=3^Hypostatic Pneumonia,Unspec Organism
 ;;^UTILITY(U,$J,358.3,30453,1,4,0)
 ;;=4^J18.2
 ;;^UTILITY(U,$J,358.3,30453,2)
 ;;=^5008184
 ;;^UTILITY(U,$J,358.3,30454,0)
 ;;=B44.0^^86^1222^61
 ;;^UTILITY(U,$J,358.3,30454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30454,1,3,0)
 ;;=3^Invasive Pulmonary Aspergillosis
 ;;^UTILITY(U,$J,358.3,30454,1,4,0)
 ;;=4^B44.0
 ;;^UTILITY(U,$J,358.3,30454,2)
 ;;=^5000663
 ;;^UTILITY(U,$J,358.3,30455,0)
 ;;=J18.1^^86^1222^62
 ;;^UTILITY(U,$J,358.3,30455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30455,1,3,0)
 ;;=3^Lobar Pneumonia,Unspec Organism
 ;;^UTILITY(U,$J,358.3,30455,1,4,0)
 ;;=4^J18.1
 ;;^UTILITY(U,$J,358.3,30455,2)
 ;;=^5008183
 ;;^UTILITY(U,$J,358.3,30456,0)
 ;;=A19.9^^86^1222^63
 ;;^UTILITY(U,$J,358.3,30456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30456,1,3,0)
 ;;=3^Miliary Tuberculosis,Unspec
 ;;^UTILITY(U,$J,358.3,30456,1,4,0)
 ;;=4^A19.9
 ;;^UTILITY(U,$J,358.3,30456,2)
 ;;=^5000104
 ;;^UTILITY(U,$J,358.3,30457,0)
 ;;=R76.11^^86^1222^82
 ;;^UTILITY(U,$J,358.3,30457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30457,1,3,0)
 ;;=3^Reaction to Skin Test w/o Active TB
 ;;^UTILITY(U,$J,358.3,30457,1,4,0)
 ;;=4^R76.11
 ;;^UTILITY(U,$J,358.3,30457,2)
 ;;=^5019570
 ;;^UTILITY(U,$J,358.3,30458,0)
 ;;=B45.3^^86^1222^67
 ;;^UTILITY(U,$J,358.3,30458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30458,1,3,0)
 ;;=3^Osseous Cryptococcosis
 ;;^UTILITY(U,$J,358.3,30458,1,4,0)
 ;;=4^B45.3
 ;;^UTILITY(U,$J,358.3,30458,2)
 ;;=^5000672
 ;;^UTILITY(U,$J,358.3,30459,0)
 ;;=B44.89^^86^1222^44
 ;;^UTILITY(U,$J,358.3,30459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30459,1,3,0)
 ;;=3^Aspergillosis NEC
 ;;^UTILITY(U,$J,358.3,30459,1,4,0)
 ;;=4^B44.89
 ;;^UTILITY(U,$J,358.3,30459,2)
 ;;=^5000667
 ;;^UTILITY(U,$J,358.3,30460,0)
 ;;=B45.8^^86^1222^53
 ;;^UTILITY(U,$J,358.3,30460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30460,1,3,0)
 ;;=3^Cryptococcosis NEC
 ;;^UTILITY(U,$J,358.3,30460,1,4,0)
 ;;=4^B45.8
 ;;^UTILITY(U,$J,358.3,30460,2)
 ;;=^5000674
 ;;^UTILITY(U,$J,358.3,30461,0)
 ;;=H60.593^^86^1222^64