IBDEI05Q ; ; 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,13846,1,3,0)
;;=3^Subacute and chronic vaginitis
;;^UTILITY(U,$J,358.3,13846,1,4,0)
;;=4^N76.1
;;^UTILITY(U,$J,358.3,13846,2)
;;=^5015827
;;^UTILITY(U,$J,358.3,13847,0)
;;=B97.89^^53^590^178
;;^UTILITY(U,$J,358.3,13847,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13847,1,3,0)
;;=3^Viral syndrome
;;^UTILITY(U,$J,358.3,13847,1,4,0)
;;=4^B97.89
;;^UTILITY(U,$J,358.3,13847,2)
;;=^5000879
;;^UTILITY(U,$J,358.3,13848,0)
;;=Z72.51^^53^590^49
;;^UTILITY(U,$J,358.3,13848,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13848,1,3,0)
;;=3^High Risk Sexual Behaviors
;;^UTILITY(U,$J,358.3,13848,1,4,0)
;;=4^Z72.51
;;^UTILITY(U,$J,358.3,13848,2)
;;=^5063258
;;^UTILITY(U,$J,358.3,13849,0)
;;=B16.9^^53^590^39
;;^UTILITY(U,$J,358.3,13849,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13849,1,3,0)
;;=3^Hepatitis B, acute
;;^UTILITY(U,$J,358.3,13849,1,4,0)
;;=4^B16.9
;;^UTILITY(U,$J,358.3,13849,2)
;;=^5000540
;;^UTILITY(U,$J,358.3,13850,0)
;;=B18.1^^53^590^40
;;^UTILITY(U,$J,358.3,13850,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13850,1,3,0)
;;=3^Hepatitis B, chronic without coma
;;^UTILITY(U,$J,358.3,13850,1,4,0)
;;=4^B18.1
;;^UTILITY(U,$J,358.3,13850,2)
;;=^5000547
;;^UTILITY(U,$J,358.3,13851,0)
;;=B17.10^^53^590^42
;;^UTILITY(U,$J,358.3,13851,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13851,1,3,0)
;;=3^Hepatitis C, acute
;;^UTILITY(U,$J,358.3,13851,1,4,0)
;;=4^B17.10
;;^UTILITY(U,$J,358.3,13851,2)
;;=^5000542
;;^UTILITY(U,$J,358.3,13852,0)
;;=B18.2^^53^590^43
;;^UTILITY(U,$J,358.3,13852,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13852,1,3,0)
;;=3^Hepatitis C, chronic without coma
;;^UTILITY(U,$J,358.3,13852,1,4,0)
;;=4^B18.2
;;^UTILITY(U,$J,358.3,13852,2)
;;=^5000548
;;^UTILITY(U,$J,358.3,13853,0)
;;=J11.1^^53^590^73
;;^UTILITY(U,$J,358.3,13853,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13853,1,3,0)
;;=3^Influenza
;;^UTILITY(U,$J,358.3,13853,1,4,0)
;;=4^J11.1
;;^UTILITY(U,$J,358.3,13853,2)
;;=^5008158
;;^UTILITY(U,$J,358.3,13854,0)
;;=A92.30^^53^590^180
;;^UTILITY(U,$J,358.3,13854,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13854,1,3,0)
;;=3^West Nile
;;^UTILITY(U,$J,358.3,13854,1,4,0)
;;=4^A92.30
;;^UTILITY(U,$J,358.3,13854,2)
;;=^5000443
;;^UTILITY(U,$J,358.3,13855,0)
;;=A41.4^^53^590^137
;;^UTILITY(U,$J,358.3,13855,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13855,1,3,0)
;;=3^Sepsis d/t Anaerobes
;;^UTILITY(U,$J,358.3,13855,1,4,0)
;;=4^A41.4
;;^UTILITY(U,$J,358.3,13855,2)
;;=^5000206
;;^UTILITY(U,$J,358.3,13856,0)
;;=Z16.30^^53^590^68
;;^UTILITY(U,$J,358.3,13856,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13856,1,3,0)
;;=3^Infection with drug-resistant organism
;;^UTILITY(U,$J,358.3,13856,1,4,0)
;;=4^Z16.30
;;^UTILITY(U,$J,358.3,13856,2)
;;=^5062737
;;^UTILITY(U,$J,358.3,13857,0)
;;=B96.4^^53^590^126
;;^UTILITY(U,$J,358.3,13857,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13857,1,3,0)
;;=3^Proteus spp. (other)
;;^UTILITY(U,$J,358.3,13857,1,4,0)
;;=4^B96.4
;;^UTILITY(U,$J,358.3,13857,2)
;;=^5000853
;;^UTILITY(U,$J,358.3,13858,0)
;;=B96.5^^53^590^127
;;^UTILITY(U,$J,358.3,13858,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13858,1,3,0)
;;=3^Pseudomonas spp.(other)
;;^UTILITY(U,$J,358.3,13858,1,4,0)
;;=4^B96.5
;;^UTILITY(U,$J,358.3,13858,2)
;;=^5000854
;;^UTILITY(U,$J,358.3,13859,0)
;;=B95.8^^53^590^149
;;^UTILITY(U,$J,358.3,13859,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13859,1,3,0)
;;=3^Staphylococcus aureus, methicillin-susceptible
;;^UTILITY(U,$J,358.3,13859,1,4,0)
;;=4^B95.8
;;^UTILITY(U,$J,358.3,13859,2)
;;=^5000844
;;^UTILITY(U,$J,358.3,13860,0)
;;=B95.61^^53^590^148
;;^UTILITY(U,$J,358.3,13860,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13860,1,3,0)
;;=3^Staphylococcus aureus, methicillin-resistant
;;^UTILITY(U,$J,358.3,13860,1,4,0)
;;=4^B95.61
;;^UTILITY(U,$J,358.3,13860,2)
;;=^5000841
;;^UTILITY(U,$J,358.3,13861,0)
;;=B95.7^^53^590^150
;;^UTILITY(U,$J,358.3,13861,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13861,1,3,0)
;;=3^Staphylococcus spp.(other)
;;^UTILITY(U,$J,358.3,13861,1,4,0)
;;=4^B95.7
;;^UTILITY(U,$J,358.3,13861,2)
;;=^5000843
;;^UTILITY(U,$J,358.3,13862,0)
;;=B95.0^^53^590^153
;;^UTILITY(U,$J,358.3,13862,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13862,1,3,0)
;;=3^Streptococcus, Group A
;;^UTILITY(U,$J,358.3,13862,1,4,0)
;;=4^B95.0
;;^UTILITY(U,$J,358.3,13862,2)
;;=^5000835
;;^UTILITY(U,$J,358.3,13863,0)
;;=B95.1^^53^590^154
;;^UTILITY(U,$J,358.3,13863,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13863,1,3,0)
;;=3^Streptococcus, Group B
;;^UTILITY(U,$J,358.3,13863,1,4,0)
;;=4^B95.1
;;^UTILITY(U,$J,358.3,13863,2)
;;=^5000836
;;^UTILITY(U,$J,358.3,13864,0)
;;=B95.3^^53^590^151
;;^UTILITY(U,$J,358.3,13864,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13864,1,3,0)
;;=3^Streptococcus pneumoniae
;;^UTILITY(U,$J,358.3,13864,1,4,0)
;;=4^B95.3
;;^UTILITY(U,$J,358.3,13864,2)
;;=^5000838
;;^UTILITY(U,$J,358.3,13865,0)
;;=B95.4^^53^590^152
;;^UTILITY(U,$J,358.3,13865,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13865,1,3,0)
;;=3^Streptococcus spp. (other)
;;^UTILITY(U,$J,358.3,13865,1,4,0)
;;=4^B95.4
;;^UTILITY(U,$J,358.3,13865,2)
;;=^5000839
;;^UTILITY(U,$J,358.3,13866,0)
;;=A02.0^^53^590^130
;;^UTILITY(U,$J,358.3,13866,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13866,1,3,0)
;;=3^Salmonella enteritis
;;^UTILITY(U,$J,358.3,13866,1,4,0)
;;=4^A02.0
;;^UTILITY(U,$J,358.3,13866,2)
;;=^5000011
;;^UTILITY(U,$J,358.3,13867,0)
;;=A41.2^^53^590^138
;;^UTILITY(U,$J,358.3,13867,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13867,1,3,0)
;;=3^Sepsis-Staphylococcus
;;^UTILITY(U,$J,358.3,13867,1,4,0)
;;=4^A41.2
;;^UTILITY(U,$J,358.3,13867,2)
;;=^5000204
;;^UTILITY(U,$J,358.3,13868,0)
;;=A41.52^^53^590^143
;;^UTILITY(U,$J,358.3,13868,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13868,1,3,0)
;;=3^Septicemia-Pseudomonas
;;^UTILITY(U,$J,358.3,13868,1,4,0)
;;=4^A41.52
;;^UTILITY(U,$J,358.3,13868,2)
;;=^5000209
;;^UTILITY(U,$J,358.3,13869,0)
;;=A41.51^^53^590^141
;;^UTILITY(U,$J,358.3,13869,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13869,1,3,0)
;;=3^Septicemia-E. coli
;;^UTILITY(U,$J,358.3,13869,1,4,0)
;;=4^A41.51
;;^UTILITY(U,$J,358.3,13869,2)
;;=^5000208
;;^UTILITY(U,$J,358.3,13870,0)
;;=A41.59^^53^590^142
;;^UTILITY(U,$J,358.3,13870,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13870,1,3,0)
;;=3^Septicemia-Gram Negative Organisms NEC
;;^UTILITY(U,$J,358.3,13870,1,4,0)
;;=4^A41.59
;;^UTILITY(U,$J,358.3,13870,2)
;;=^5000211
;;^UTILITY(U,$J,358.3,13871,0)
;;=A53.9^^53^590^165
;;^UTILITY(U,$J,358.3,13871,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13871,1,3,0)
;;=3^Syphilis,Unspec
;;^UTILITY(U,$J,358.3,13871,1,4,0)
;;=4^A53.9
;;^UTILITY(U,$J,358.3,13871,2)
;;=^5000310
;;^UTILITY(U,$J,358.3,13872,0)
;;=B37.9^^53^590^23
;;^UTILITY(U,$J,358.3,13872,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13872,1,3,0)
;;=3^Candidiasis,Unspec
;;^UTILITY(U,$J,358.3,13872,1,4,0)
;;=4^B37.9
;;^UTILITY(U,$J,358.3,13872,2)
;;=^5000624
;;^UTILITY(U,$J,358.3,13873,0)
;;=B46.9^^53^590^182
;;^UTILITY(U,$J,358.3,13873,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13873,1,3,0)
;;=3^Zygomycosis, unspecified
;;^UTILITY(U,$J,358.3,13873,1,4,0)
;;=4^B46.9
;;^UTILITY(U,$J,358.3,13873,2)
;;=^5000683
;;^UTILITY(U,$J,358.3,13874,0)
;;=B59.^^53^590^112
;;^UTILITY(U,$J,358.3,13874,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13874,1,3,0)
;;=3^Pneumocystosis
;;^UTILITY(U,$J,358.3,13874,1,4,0)
;;=4^B59.
;;^UTILITY(U,$J,358.3,13874,2)
;;=^5000734
;;^UTILITY(U,$J,358.3,13875,0)
;;=B42.9^^53^590^147
;;^UTILITY(U,$J,358.3,13875,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13875,1,3,0)
;;=3^Sporotrichosis, unspecified
;;^UTILITY(U,$J,358.3,13875,1,4,0)
;;=4^B42.9
;;^UTILITY(U,$J,358.3,13875,2)
;;=^5000657
;;^UTILITY(U,$J,358.3,13876,0)
;;=B36.9^^53^590^158
;;^UTILITY(U,$J,358.3,13876,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13876,1,3,0)
;;=3^Superficial mycosis, unspecified
;;^UTILITY(U,$J,358.3,13876,1,4,0)
;;=4^B36.9
;;^UTILITY(U,$J,358.3,13876,2)
;;=^5000611
;;^UTILITY(U,$J,358.3,13877,0)
;;=B78.9^^53^590^155
;;^UTILITY(U,$J,358.3,13877,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13877,1,3,0)
;;=3^Strongyloidiasis, unspecified
;;^UTILITY(U,$J,358.3,13877,1,4,0)
;;=4^B78.9
;;^UTILITY(U,$J,358.3,13877,2)
;;=^5000791
;;^UTILITY(U,$J,358.3,13878,0)
;;=B58.9^^53^590^167
;;^UTILITY(U,$J,358.3,13878,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13878,1,3,0)
;;=3^Toxoplasmosis, unspecified
;;^UTILITY(U,$J,358.3,13878,1,4,0)
;;=4^B58.9
;;^UTILITY(U,$J,358.3,13878,2)
;;=^5000733
;;^UTILITY(U,$J,358.3,13879,0)
;;=R76.11^^53^590^2
;;^UTILITY(U,$J,358.3,13879,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13879,1,3,0)
;;=3^Abnormal Reaction to TB Test w/o Active TB
;;^UTILITY(U,$J,358.3,13879,1,4,0)
;;=4^R76.11
;;^UTILITY(U,$J,358.3,13879,2)
;;=^5019570
;;^UTILITY(U,$J,358.3,13880,0)
;;=A60.9^^53^590^3
;;^UTILITY(U,$J,358.3,13880,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13880,1,3,0)
;;=3^Angenital Herpersviral Infection,Unspec
;;^UTILITY(U,$J,358.3,13880,1,4,0)
;;=4^A60.9
;;^UTILITY(U,$J,358.3,13880,2)
;;=^5000359
;;^UTILITY(U,$J,358.3,13881,0)
;;=M00.20^^53^590^4
;;^UTILITY(U,$J,358.3,13881,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13881,1,3,0)
;;=3^Arthritis Streptococcal,Unspec Joint
;;^UTILITY(U,$J,358.3,13881,1,4,0)
;;=4^M00.20
;;^UTILITY(U,$J,358.3,13881,2)
;;=^5009645
;;^UTILITY(U,$J,358.3,13882,0)
;;=M00.80^^53^590^5
;;^UTILITY(U,$J,358.3,13882,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13882,1,3,0)
;;=3^Arthritis d/t Bacteria,Unspec Joint
;;^UTILITY(U,$J,358.3,13882,1,4,0)
;;=4^M00.80
;;^UTILITY(U,$J,358.3,13882,2)
;;=^5009669
;;^UTILITY(U,$J,358.3,13883,0)
;;=A69.23^^53^590^6
;;^UTILITY(U,$J,358.3,13883,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13883,1,3,0)
;;=3^Arthritis d/t Lyme Disease
;;^UTILITY(U,$J,358.3,13883,1,4,0)
;;=4^A69.23
;;^UTILITY(U,$J,358.3,13883,2)
;;=^5000378
;;^UTILITY(U,$J,358.3,13884,0)
;;=J20.2^^53^590^16
;;^UTILITY(U,$J,358.3,13884,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13884,1,3,0)
;;=3^Bronchitis,Acute d/t Streptococcus
;;^UTILITY(U,$J,358.3,13884,1,4,0)
;;=4^J20.2
;;^UTILITY(U,$J,358.3,13884,2)
;;=^5008188
;;^UTILITY(U,$J,358.3,13885,0)
;;=J20.3^^53^590^8
;;^UTILITY(U,$J,358.3,13885,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13885,1,3,0)
;;=3^Bronchitis,Acute d/t Coxsackievirus
;;^UTILITY(U,$J,358.3,13885,1,4,0)
;;=4^J20.3
;;^UTILITY(U,$J,358.3,13885,2)
;;=^5008189
;;^UTILITY(U,$J,358.3,13886,0)
;;=J20.7^^53^590^9
;;^UTILITY(U,$J,358.3,13886,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13886,1,3,0)
;;=3^Bronchitis,Acute d/t Echovirus
;;^UTILITY(U,$J,358.3,13886,1,4,0)
;;=4^J20.7
;;^UTILITY(U,$J,358.3,13886,2)
;;=^5008193
;;^UTILITY(U,$J,358.3,13887,0)
;;=J20.1^^53^590^10
;;^UTILITY(U,$J,358.3,13887,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13887,1,3,0)
;;=3^Bronchitis,Acute d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,13887,1,4,0)
;;=4^J20.1
;;^UTILITY(U,$J,358.3,13887,2)
;;=^5008187
;;^UTILITY(U,$J,358.3,13888,0)
;;=J20.0^^53^590^11
;;^UTILITY(U,$J,358.3,13888,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13888,1,3,0)
;;=3^Bronchitis,Acute d/t Mycoplasma Pneumoniae
;;^UTILITY(U,$J,358.3,13888,1,4,0)
;;=4^J20.0
;;^UTILITY(U,$J,358.3,13888,2)
;;=^5008186
;;^UTILITY(U,$J,358.3,13889,0)
;;=J20.8^^53^590^12
;;^UTILITY(U,$J,358.3,13889,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13889,1,3,0)
;;=3^Bronchitis,Acute d/t Oth Spec Organisms
;;^UTILITY(U,$J,358.3,13889,1,4,0)
;;=4^J20.8
;;^UTILITY(U,$J,358.3,13889,2)
;;=^5008194
;;^UTILITY(U,$J,358.3,13890,0)
;;=J20.4^^53^590^13
;;^UTILITY(U,$J,358.3,13890,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13890,1,3,0)
;;=3^Bronchitis,Acute d/t Parainfluenza Virus
;;^UTILITY(U,$J,358.3,13890,1,4,0)
;;=4^J20.4
;;^UTILITY(U,$J,358.3,13890,2)
;;=^5008190
;;^UTILITY(U,$J,358.3,13891,0)
;;=J20.5^^53^590^14
;;^UTILITY(U,$J,358.3,13891,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13891,1,3,0)
;;=3^Bronchitis,Acute d/t Respiratory Syncytial Virus
;;^UTILITY(U,$J,358.3,13891,1,4,0)
;;=4^J20.5
;;^UTILITY(U,$J,358.3,13891,2)
;;=^5008191
;;^UTILITY(U,$J,358.3,13892,0)
;;=J20.6^^53^590^15
;;^UTILITY(U,$J,358.3,13892,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13892,1,3,0)
;;=3^Bronchitis,Acute d/t Rhinovirus
;;^UTILITY(U,$J,358.3,13892,1,4,0)
;;=4^J20.6
;;^UTILITY(U,$J,358.3,13892,2)
;;=^5008192
;;^UTILITY(U,$J,358.3,13893,0)
;;=A69.29^^53^590^27
;;^UTILITY(U,$J,358.3,13893,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13893,1,3,0)
;;=3^Conditions d/t Lyme Disease
;;^UTILITY(U,$J,358.3,13893,1,4,0)
;;=4^A69.29
;;^UTILITY(U,$J,358.3,13893,2)
;;=^5000379
;;^UTILITY(U,$J,358.3,13894,0)
;;=N30.91^^53^590^28
;;^UTILITY(U,$J,358.3,13894,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13894,1,3,0)
;;=3^Cystitis w/ hematuria
;;^UTILITY(U,$J,358.3,13894,1,4,0)
;;=4^N30.91
;;^UTILITY(U,$J,358.3,13894,2)
;;=^5015643
;;^UTILITY(U,$J,358.3,13895,0)
;;=B97.10^^53^590^30
;;^UTILITY(U,$J,358.3,13895,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13895,1,3,0)
;;=3^Enterovirus Cause of Disease
;;^UTILITY(U,$J,358.3,13895,1,4,0)
;;=4^B97.10
;;^UTILITY(U,$J,358.3,13895,2)
;;=^5000861
;;^UTILITY(U,$J,358.3,13896,0)
;;=R50.2^^53^590^32
;;^UTILITY(U,$J,358.3,13896,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13896,1,3,0)
;;=3^Fever,Drug-Induced
;;^UTILITY(U,$J,358.3,13896,1,4,0)
;;=4^R50.2
;;^UTILITY(U,$J,358.3,13896,2)
;;=^5019507
;;^UTILITY(U,$J,358.3,13897,0)
;;=J11.00^^53^590^33
;;^UTILITY(U,$J,358.3,13897,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13897,1,3,0)
;;=3^Flu d/t Unidentified Flu Virus w/ Unspec Type Pneumonia
;;^UTILITY(U,$J,358.3,13897,1,4,0)
;;=4^J11.00
;;^UTILITY(U,$J,358.3,13897,2)
;;=^5008156
;;^UTILITY(U,$J,358.3,13898,0)
;;=A51.0^^53^590^34
;;^UTILITY(U,$J,358.3,13898,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13898,1,3,0)
;;=3^Genital Syphilis,Primary
;;^UTILITY(U,$J,358.3,13898,1,4,0)
;;=4^A51.0
;;^UTILITY(U,$J,358.3,13898,2)
;;=^5000272
;;^UTILITY(U,$J,358.3,13899,0)
;;=N41.9^^53^590^72
;;^UTILITY(U,$J,358.3,13899,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13899,1,3,0)
;;=3^Inflammatory Disease of Prostate,Unspec
;;^UTILITY(U,$J,358.3,13899,1,4,0)
;;=4^N41.9
;;^UTILITY(U,$J,358.3,13899,2)
;;=^5015694
;;^UTILITY(U,$J,358.3,13900,0)
;;=N72.^^53^590^70
;;^UTILITY(U,$J,358.3,13900,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13900,1,3,0)
;;=3^Inflammatory Disease of Cervix Uteri
;;^UTILITY(U,$J,358.3,13900,1,4,0)
;;=4^N72.
;;^UTILITY(U,$J,358.3,13900,2)
;;=^5015812
;;^UTILITY(U,$J,358.3,13901,0)
;;=A56.11^^53^590^69
;;^UTILITY(U,$J,358.3,13901,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13901,1,3,0)
;;=3^Inflammatory Disease Chlamydial Female Pelvic
;;^UTILITY(U,$J,358.3,13901,1,4,0)
;;=4^A56.11
;;^UTILITY(U,$J,358.3,13901,2)
;;=^5000342
;;^UTILITY(U,$J,358.3,13902,0)
;;=N73.9^^53^590^71
;;^UTILITY(U,$J,358.3,13902,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13902,1,3,0)
;;=3^Inflammatory Disease of Female Pelvice,Unspec
;;^UTILITY(U,$J,358.3,13902,1,4,0)
;;=4^N73.9
;;^UTILITY(U,$J,358.3,13902,2)
;;=^5015820
;;^UTILITY(U,$J,358.3,13903,0)
;;=J10.01^^53^590^75
;;^UTILITY(U,$J,358.3,13903,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13903,1,3,0)
;;=3^Influenza d/t Oth Indent Flu Virus w/ Same Oth Ident Flu Virus
;;^UTILITY(U,$J,358.3,13903,1,4,0)
;;=4^J10.01
;;^UTILITY(U,$J,358.3,13903,2)
;;=^5008149
;;^UTILITY(U,$J,358.3,13904,0)
;;=J10.00^^53^590^76
;;^UTILITY(U,$J,358.3,13904,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13904,1,3,0)
;;=3^Influenza d/t Oth Indent Flu Virus w/ Unspec Type Pneumonia
;;^UTILITY(U,$J,358.3,13904,1,4,0)
;;=4^J10.00
;;^UTILITY(U,$J,358.3,13904,2)
;;=^5008148
;;^UTILITY(U,$J,358.3,13905,0)
;;=J10.08^^53^590^74
;;^UTILITY(U,$J,358.3,13905,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13905,1,3,0)
;;=3^Influenza d/t Oth Indent Flu Virus w/ Oth Pneumonia
;;^UTILITY(U,$J,358.3,13905,1,4,0)
;;=4^J10.08
;;^UTILITY(U,$J,358.3,13905,2)
;;=^5008150
;;^UTILITY(U,$J,358.3,13906,0)
;;=J10.1^^53^590^77
;;^UTILITY(U,$J,358.3,13906,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13906,1,3,0)
;;=3^Influenza d/t Unident Flu Virus w/ Oth Resp Manifest
;;^UTILITY(U,$J,358.3,13906,1,4,0)
;;=4^J10.1
;;^UTILITY(U,$J,358.3,13906,2)
;;=^5008151
;;^UTILITY(U,$J,358.3,13907,0)
;;=J11.08^^53^590^78
;;^UTILITY(U,$J,358.3,13907,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13907,1,3,0)
;;=3^Influenza d/t Unident Flu Virus w/ Spec Pneumonia
;;^UTILITY(U,$J,358.3,13907,1,4,0)
;;=4^J11.08
;;^UTILITY(U,$J,358.3,13907,2)
;;=^5008157
;;^UTILITY(U,$J,358.3,13908,0)
;;=A52.9^^53^590^84
;;^UTILITY(U,$J,358.3,13908,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13908,1,3,0)
;;=3^Late Syphilis,Unspec
;;^UTILITY(U,$J,358.3,13908,1,4,0)
;;=4^A52.9
;;^UTILITY(U,$J,358.3,13908,2)
;;=^5000308
;;^UTILITY(U,$J,358.3,13909,0)
;;=A69.21^^53^590^88
;;^UTILITY(U,$J,358.3,13909,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13909,1,3,0)
;;=3^Meningitis d/t Lyme Disease
;;^UTILITY(U,$J,358.3,13909,1,4,0)
;;=4^A69.21
;;^UTILITY(U,$J,358.3,13909,2)
;;=^5000376
;;^UTILITY(U,$J,358.3,13910,0)
;;=A69.22^^53^590^96
;;^UTILITY(U,$J,358.3,13910,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13910,1,3,0)
;;=3^Neurologic Disorders d/t Lyme Disease
;;^UTILITY(U,$J,358.3,13910,1,4,0)
;;=4^A69.22
;;^UTILITY(U,$J,358.3,13910,2)
;;=^5000377
;;^UTILITY(U,$J,358.3,13911,0)
;;=A52.10^^53^590^97
;;^UTILITY(U,$J,358.3,13911,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13911,1,3,0)
;;=3^Neurosyphilis Symptomatic,Unspec
;;^UTILITY(U,$J,358.3,13911,1,4,0)
;;=4^A52.10
;;^UTILITY(U,$J,358.3,13911,2)
;;=^5000291
;;^UTILITY(U,$J,358.3,13912,0)
;;=A52.3^^53^590^98
;;^UTILITY(U,$J,358.3,13912,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13912,1,3,0)
;;=3^Neurosyphilis,Unspec
;;^UTILITY(U,$J,358.3,13912,1,4,0)
;;=4^A52.3
;;^UTILITY(U,$J,358.3,13912,2)
;;=^5000298
;;^UTILITY(U,$J,358.3,13913,0)
;;=N70.92^^53^590^99
;;^UTILITY(U,$J,358.3,13913,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13913,1,3,0)
;;=3^Oophoritis,Unspec
;;^UTILITY(U,$J,358.3,13913,1,4,0)
;;=4^N70.92
;;^UTILITY(U,$J,358.3,13913,2)
;;=^5015807
;;^UTILITY(U,$J,358.3,13914,0)
;;=M86.40^^53^590^100
;;^UTILITY(U,$J,358.3,13914,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13914,1,3,0)
;;=3^Osteomyelitis w/ Draining Sinus,Chronic,Unspec Site
;;^UTILITY(U,$J,358.3,13914,1,4,0)
;;=4^M86.40
;;^UTILITY(U,$J,358.3,13914,2)
;;=^5014583
;;^UTILITY(U,$J,358.3,13915,0)
;;=M86.00^^53^590^103
;;^UTILITY(U,$J,358.3,13915,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI05Q 19784 printed Dec 13, 2024@01:42:09 Page 2
IBDEI05Q ; ; 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,13846,1,3,0)
+2 ;;=3^Subacute and chronic vaginitis
+3 ;;^UTILITY(U,$J,358.3,13846,1,4,0)
+4 ;;=4^N76.1
+5 ;;^UTILITY(U,$J,358.3,13846,2)
+6 ;;=^5015827
+7 ;;^UTILITY(U,$J,358.3,13847,0)
+8 ;;=B97.89^^53^590^178
+9 ;;^UTILITY(U,$J,358.3,13847,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,13847,1,3,0)
+12 ;;=3^Viral syndrome
+13 ;;^UTILITY(U,$J,358.3,13847,1,4,0)
+14 ;;=4^B97.89
+15 ;;^UTILITY(U,$J,358.3,13847,2)
+16 ;;=^5000879
+17 ;;^UTILITY(U,$J,358.3,13848,0)
+18 ;;=Z72.51^^53^590^49
+19 ;;^UTILITY(U,$J,358.3,13848,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,13848,1,3,0)
+22 ;;=3^High Risk Sexual Behaviors
+23 ;;^UTILITY(U,$J,358.3,13848,1,4,0)
+24 ;;=4^Z72.51
+25 ;;^UTILITY(U,$J,358.3,13848,2)
+26 ;;=^5063258
+27 ;;^UTILITY(U,$J,358.3,13849,0)
+28 ;;=B16.9^^53^590^39
+29 ;;^UTILITY(U,$J,358.3,13849,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,13849,1,3,0)
+32 ;;=3^Hepatitis B, acute
+33 ;;^UTILITY(U,$J,358.3,13849,1,4,0)
+34 ;;=4^B16.9
+35 ;;^UTILITY(U,$J,358.3,13849,2)
+36 ;;=^5000540
+37 ;;^UTILITY(U,$J,358.3,13850,0)
+38 ;;=B18.1^^53^590^40
+39 ;;^UTILITY(U,$J,358.3,13850,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,13850,1,3,0)
+42 ;;=3^Hepatitis B, chronic without coma
+43 ;;^UTILITY(U,$J,358.3,13850,1,4,0)
+44 ;;=4^B18.1
+45 ;;^UTILITY(U,$J,358.3,13850,2)
+46 ;;=^5000547
+47 ;;^UTILITY(U,$J,358.3,13851,0)
+48 ;;=B17.10^^53^590^42
+49 ;;^UTILITY(U,$J,358.3,13851,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,13851,1,3,0)
+52 ;;=3^Hepatitis C, acute
+53 ;;^UTILITY(U,$J,358.3,13851,1,4,0)
+54 ;;=4^B17.10
+55 ;;^UTILITY(U,$J,358.3,13851,2)
+56 ;;=^5000542
+57 ;;^UTILITY(U,$J,358.3,13852,0)
+58 ;;=B18.2^^53^590^43
+59 ;;^UTILITY(U,$J,358.3,13852,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,13852,1,3,0)
+62 ;;=3^Hepatitis C, chronic without coma
+63 ;;^UTILITY(U,$J,358.3,13852,1,4,0)
+64 ;;=4^B18.2
+65 ;;^UTILITY(U,$J,358.3,13852,2)
+66 ;;=^5000548
+67 ;;^UTILITY(U,$J,358.3,13853,0)
+68 ;;=J11.1^^53^590^73
+69 ;;^UTILITY(U,$J,358.3,13853,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,13853,1,3,0)
+72 ;;=3^Influenza
+73 ;;^UTILITY(U,$J,358.3,13853,1,4,0)
+74 ;;=4^J11.1
+75 ;;^UTILITY(U,$J,358.3,13853,2)
+76 ;;=^5008158
+77 ;;^UTILITY(U,$J,358.3,13854,0)
+78 ;;=A92.30^^53^590^180
+79 ;;^UTILITY(U,$J,358.3,13854,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,13854,1,3,0)
+82 ;;=3^West Nile
+83 ;;^UTILITY(U,$J,358.3,13854,1,4,0)
+84 ;;=4^A92.30
+85 ;;^UTILITY(U,$J,358.3,13854,2)
+86 ;;=^5000443
+87 ;;^UTILITY(U,$J,358.3,13855,0)
+88 ;;=A41.4^^53^590^137
+89 ;;^UTILITY(U,$J,358.3,13855,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,13855,1,3,0)
+92 ;;=3^Sepsis d/t Anaerobes
+93 ;;^UTILITY(U,$J,358.3,13855,1,4,0)
+94 ;;=4^A41.4
+95 ;;^UTILITY(U,$J,358.3,13855,2)
+96 ;;=^5000206
+97 ;;^UTILITY(U,$J,358.3,13856,0)
+98 ;;=Z16.30^^53^590^68
+99 ;;^UTILITY(U,$J,358.3,13856,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,13856,1,3,0)
+102 ;;=3^Infection with drug-resistant organism
+103 ;;^UTILITY(U,$J,358.3,13856,1,4,0)
+104 ;;=4^Z16.30
+105 ;;^UTILITY(U,$J,358.3,13856,2)
+106 ;;=^5062737
+107 ;;^UTILITY(U,$J,358.3,13857,0)
+108 ;;=B96.4^^53^590^126
+109 ;;^UTILITY(U,$J,358.3,13857,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,13857,1,3,0)
+112 ;;=3^Proteus spp. (other)
+113 ;;^UTILITY(U,$J,358.3,13857,1,4,0)
+114 ;;=4^B96.4
+115 ;;^UTILITY(U,$J,358.3,13857,2)
+116 ;;=^5000853
+117 ;;^UTILITY(U,$J,358.3,13858,0)
+118 ;;=B96.5^^53^590^127
+119 ;;^UTILITY(U,$J,358.3,13858,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,13858,1,3,0)
+122 ;;=3^Pseudomonas spp.(other)
+123 ;;^UTILITY(U,$J,358.3,13858,1,4,0)
+124 ;;=4^B96.5
+125 ;;^UTILITY(U,$J,358.3,13858,2)
+126 ;;=^5000854
+127 ;;^UTILITY(U,$J,358.3,13859,0)
+128 ;;=B95.8^^53^590^149
+129 ;;^UTILITY(U,$J,358.3,13859,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,13859,1,3,0)
+132 ;;=3^Staphylococcus aureus, methicillin-susceptible
+133 ;;^UTILITY(U,$J,358.3,13859,1,4,0)
+134 ;;=4^B95.8
+135 ;;^UTILITY(U,$J,358.3,13859,2)
+136 ;;=^5000844
+137 ;;^UTILITY(U,$J,358.3,13860,0)
+138 ;;=B95.61^^53^590^148
+139 ;;^UTILITY(U,$J,358.3,13860,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,13860,1,3,0)
+142 ;;=3^Staphylococcus aureus, methicillin-resistant
+143 ;;^UTILITY(U,$J,358.3,13860,1,4,0)
+144 ;;=4^B95.61
+145 ;;^UTILITY(U,$J,358.3,13860,2)
+146 ;;=^5000841
+147 ;;^UTILITY(U,$J,358.3,13861,0)
+148 ;;=B95.7^^53^590^150
+149 ;;^UTILITY(U,$J,358.3,13861,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,13861,1,3,0)
+152 ;;=3^Staphylococcus spp.(other)
+153 ;;^UTILITY(U,$J,358.3,13861,1,4,0)
+154 ;;=4^B95.7
+155 ;;^UTILITY(U,$J,358.3,13861,2)
+156 ;;=^5000843
+157 ;;^UTILITY(U,$J,358.3,13862,0)
+158 ;;=B95.0^^53^590^153
+159 ;;^UTILITY(U,$J,358.3,13862,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,13862,1,3,0)
+162 ;;=3^Streptococcus, Group A
+163 ;;^UTILITY(U,$J,358.3,13862,1,4,0)
+164 ;;=4^B95.0
+165 ;;^UTILITY(U,$J,358.3,13862,2)
+166 ;;=^5000835
+167 ;;^UTILITY(U,$J,358.3,13863,0)
+168 ;;=B95.1^^53^590^154
+169 ;;^UTILITY(U,$J,358.3,13863,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,13863,1,3,0)
+172 ;;=3^Streptococcus, Group B
+173 ;;^UTILITY(U,$J,358.3,13863,1,4,0)
+174 ;;=4^B95.1
+175 ;;^UTILITY(U,$J,358.3,13863,2)
+176 ;;=^5000836
+177 ;;^UTILITY(U,$J,358.3,13864,0)
+178 ;;=B95.3^^53^590^151
+179 ;;^UTILITY(U,$J,358.3,13864,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,13864,1,3,0)
+182 ;;=3^Streptococcus pneumoniae
+183 ;;^UTILITY(U,$J,358.3,13864,1,4,0)
+184 ;;=4^B95.3
+185 ;;^UTILITY(U,$J,358.3,13864,2)
+186 ;;=^5000838
+187 ;;^UTILITY(U,$J,358.3,13865,0)
+188 ;;=B95.4^^53^590^152
+189 ;;^UTILITY(U,$J,358.3,13865,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,13865,1,3,0)
+192 ;;=3^Streptococcus spp. (other)
+193 ;;^UTILITY(U,$J,358.3,13865,1,4,0)
+194 ;;=4^B95.4
+195 ;;^UTILITY(U,$J,358.3,13865,2)
+196 ;;=^5000839
+197 ;;^UTILITY(U,$J,358.3,13866,0)
+198 ;;=A02.0^^53^590^130
+199 ;;^UTILITY(U,$J,358.3,13866,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,13866,1,3,0)
+202 ;;=3^Salmonella enteritis
+203 ;;^UTILITY(U,$J,358.3,13866,1,4,0)
+204 ;;=4^A02.0
+205 ;;^UTILITY(U,$J,358.3,13866,2)
+206 ;;=^5000011
+207 ;;^UTILITY(U,$J,358.3,13867,0)
+208 ;;=A41.2^^53^590^138
+209 ;;^UTILITY(U,$J,358.3,13867,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,13867,1,3,0)
+212 ;;=3^Sepsis-Staphylococcus
+213 ;;^UTILITY(U,$J,358.3,13867,1,4,0)
+214 ;;=4^A41.2
+215 ;;^UTILITY(U,$J,358.3,13867,2)
+216 ;;=^5000204
+217 ;;^UTILITY(U,$J,358.3,13868,0)
+218 ;;=A41.52^^53^590^143
+219 ;;^UTILITY(U,$J,358.3,13868,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,13868,1,3,0)
+222 ;;=3^Septicemia-Pseudomonas
+223 ;;^UTILITY(U,$J,358.3,13868,1,4,0)
+224 ;;=4^A41.52
+225 ;;^UTILITY(U,$J,358.3,13868,2)
+226 ;;=^5000209
+227 ;;^UTILITY(U,$J,358.3,13869,0)
+228 ;;=A41.51^^53^590^141
+229 ;;^UTILITY(U,$J,358.3,13869,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,13869,1,3,0)
+232 ;;=3^Septicemia-E. coli
+233 ;;^UTILITY(U,$J,358.3,13869,1,4,0)
+234 ;;=4^A41.51
+235 ;;^UTILITY(U,$J,358.3,13869,2)
+236 ;;=^5000208
+237 ;;^UTILITY(U,$J,358.3,13870,0)
+238 ;;=A41.59^^53^590^142
+239 ;;^UTILITY(U,$J,358.3,13870,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,13870,1,3,0)
+242 ;;=3^Septicemia-Gram Negative Organisms NEC
+243 ;;^UTILITY(U,$J,358.3,13870,1,4,0)
+244 ;;=4^A41.59
+245 ;;^UTILITY(U,$J,358.3,13870,2)
+246 ;;=^5000211
+247 ;;^UTILITY(U,$J,358.3,13871,0)
+248 ;;=A53.9^^53^590^165
+249 ;;^UTILITY(U,$J,358.3,13871,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,13871,1,3,0)
+252 ;;=3^Syphilis,Unspec
+253 ;;^UTILITY(U,$J,358.3,13871,1,4,0)
+254 ;;=4^A53.9
+255 ;;^UTILITY(U,$J,358.3,13871,2)
+256 ;;=^5000310
+257 ;;^UTILITY(U,$J,358.3,13872,0)
+258 ;;=B37.9^^53^590^23
+259 ;;^UTILITY(U,$J,358.3,13872,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,13872,1,3,0)
+262 ;;=3^Candidiasis,Unspec
+263 ;;^UTILITY(U,$J,358.3,13872,1,4,0)
+264 ;;=4^B37.9
+265 ;;^UTILITY(U,$J,358.3,13872,2)
+266 ;;=^5000624
+267 ;;^UTILITY(U,$J,358.3,13873,0)
+268 ;;=B46.9^^53^590^182
+269 ;;^UTILITY(U,$J,358.3,13873,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,13873,1,3,0)
+272 ;;=3^Zygomycosis, unspecified
+273 ;;^UTILITY(U,$J,358.3,13873,1,4,0)
+274 ;;=4^B46.9
+275 ;;^UTILITY(U,$J,358.3,13873,2)
+276 ;;=^5000683
+277 ;;^UTILITY(U,$J,358.3,13874,0)
+278 ;;=B59.^^53^590^112
+279 ;;^UTILITY(U,$J,358.3,13874,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,13874,1,3,0)
+282 ;;=3^Pneumocystosis
+283 ;;^UTILITY(U,$J,358.3,13874,1,4,0)
+284 ;;=4^B59.
+285 ;;^UTILITY(U,$J,358.3,13874,2)
+286 ;;=^5000734
+287 ;;^UTILITY(U,$J,358.3,13875,0)
+288 ;;=B42.9^^53^590^147
+289 ;;^UTILITY(U,$J,358.3,13875,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,13875,1,3,0)
+292 ;;=3^Sporotrichosis, unspecified
+293 ;;^UTILITY(U,$J,358.3,13875,1,4,0)
+294 ;;=4^B42.9
+295 ;;^UTILITY(U,$J,358.3,13875,2)
+296 ;;=^5000657
+297 ;;^UTILITY(U,$J,358.3,13876,0)
+298 ;;=B36.9^^53^590^158
+299 ;;^UTILITY(U,$J,358.3,13876,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,13876,1,3,0)
+302 ;;=3^Superficial mycosis, unspecified
+303 ;;^UTILITY(U,$J,358.3,13876,1,4,0)
+304 ;;=4^B36.9
+305 ;;^UTILITY(U,$J,358.3,13876,2)
+306 ;;=^5000611
+307 ;;^UTILITY(U,$J,358.3,13877,0)
+308 ;;=B78.9^^53^590^155
+309 ;;^UTILITY(U,$J,358.3,13877,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,13877,1,3,0)
+312 ;;=3^Strongyloidiasis, unspecified
+313 ;;^UTILITY(U,$J,358.3,13877,1,4,0)
+314 ;;=4^B78.9
+315 ;;^UTILITY(U,$J,358.3,13877,2)
+316 ;;=^5000791
+317 ;;^UTILITY(U,$J,358.3,13878,0)
+318 ;;=B58.9^^53^590^167
+319 ;;^UTILITY(U,$J,358.3,13878,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,13878,1,3,0)
+322 ;;=3^Toxoplasmosis, unspecified
+323 ;;^UTILITY(U,$J,358.3,13878,1,4,0)
+324 ;;=4^B58.9
+325 ;;^UTILITY(U,$J,358.3,13878,2)
+326 ;;=^5000733
+327 ;;^UTILITY(U,$J,358.3,13879,0)
+328 ;;=R76.11^^53^590^2
+329 ;;^UTILITY(U,$J,358.3,13879,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,13879,1,3,0)
+332 ;;=3^Abnormal Reaction to TB Test w/o Active TB
+333 ;;^UTILITY(U,$J,358.3,13879,1,4,0)
+334 ;;=4^R76.11
+335 ;;^UTILITY(U,$J,358.3,13879,2)
+336 ;;=^5019570
+337 ;;^UTILITY(U,$J,358.3,13880,0)
+338 ;;=A60.9^^53^590^3
+339 ;;^UTILITY(U,$J,358.3,13880,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,13880,1,3,0)
+342 ;;=3^Angenital Herpersviral Infection,Unspec
+343 ;;^UTILITY(U,$J,358.3,13880,1,4,0)
+344 ;;=4^A60.9
+345 ;;^UTILITY(U,$J,358.3,13880,2)
+346 ;;=^5000359
+347 ;;^UTILITY(U,$J,358.3,13881,0)
+348 ;;=M00.20^^53^590^4
+349 ;;^UTILITY(U,$J,358.3,13881,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,13881,1,3,0)
+352 ;;=3^Arthritis Streptococcal,Unspec Joint
+353 ;;^UTILITY(U,$J,358.3,13881,1,4,0)
+354 ;;=4^M00.20
+355 ;;^UTILITY(U,$J,358.3,13881,2)
+356 ;;=^5009645
+357 ;;^UTILITY(U,$J,358.3,13882,0)
+358 ;;=M00.80^^53^590^5
+359 ;;^UTILITY(U,$J,358.3,13882,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,13882,1,3,0)
+362 ;;=3^Arthritis d/t Bacteria,Unspec Joint
+363 ;;^UTILITY(U,$J,358.3,13882,1,4,0)
+364 ;;=4^M00.80
+365 ;;^UTILITY(U,$J,358.3,13882,2)
+366 ;;=^5009669
+367 ;;^UTILITY(U,$J,358.3,13883,0)
+368 ;;=A69.23^^53^590^6
+369 ;;^UTILITY(U,$J,358.3,13883,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,13883,1,3,0)
+372 ;;=3^Arthritis d/t Lyme Disease
+373 ;;^UTILITY(U,$J,358.3,13883,1,4,0)
+374 ;;=4^A69.23
+375 ;;^UTILITY(U,$J,358.3,13883,2)
+376 ;;=^5000378
+377 ;;^UTILITY(U,$J,358.3,13884,0)
+378 ;;=J20.2^^53^590^16
+379 ;;^UTILITY(U,$J,358.3,13884,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,13884,1,3,0)
+382 ;;=3^Bronchitis,Acute d/t Streptococcus
+383 ;;^UTILITY(U,$J,358.3,13884,1,4,0)
+384 ;;=4^J20.2
+385 ;;^UTILITY(U,$J,358.3,13884,2)
+386 ;;=^5008188
+387 ;;^UTILITY(U,$J,358.3,13885,0)
+388 ;;=J20.3^^53^590^8
+389 ;;^UTILITY(U,$J,358.3,13885,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,13885,1,3,0)
+392 ;;=3^Bronchitis,Acute d/t Coxsackievirus
+393 ;;^UTILITY(U,$J,358.3,13885,1,4,0)
+394 ;;=4^J20.3
+395 ;;^UTILITY(U,$J,358.3,13885,2)
+396 ;;=^5008189
+397 ;;^UTILITY(U,$J,358.3,13886,0)
+398 ;;=J20.7^^53^590^9
+399 ;;^UTILITY(U,$J,358.3,13886,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,13886,1,3,0)
+402 ;;=3^Bronchitis,Acute d/t Echovirus
+403 ;;^UTILITY(U,$J,358.3,13886,1,4,0)
+404 ;;=4^J20.7
+405 ;;^UTILITY(U,$J,358.3,13886,2)
+406 ;;=^5008193
+407 ;;^UTILITY(U,$J,358.3,13887,0)
+408 ;;=J20.1^^53^590^10
+409 ;;^UTILITY(U,$J,358.3,13887,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,13887,1,3,0)
+412 ;;=3^Bronchitis,Acute d/t Hemophilus Influenzae
+413 ;;^UTILITY(U,$J,358.3,13887,1,4,0)
+414 ;;=4^J20.1
+415 ;;^UTILITY(U,$J,358.3,13887,2)
+416 ;;=^5008187
+417 ;;^UTILITY(U,$J,358.3,13888,0)
+418 ;;=J20.0^^53^590^11
+419 ;;^UTILITY(U,$J,358.3,13888,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,13888,1,3,0)
+422 ;;=3^Bronchitis,Acute d/t Mycoplasma Pneumoniae
+423 ;;^UTILITY(U,$J,358.3,13888,1,4,0)
+424 ;;=4^J20.0
+425 ;;^UTILITY(U,$J,358.3,13888,2)
+426 ;;=^5008186
+427 ;;^UTILITY(U,$J,358.3,13889,0)
+428 ;;=J20.8^^53^590^12
+429 ;;^UTILITY(U,$J,358.3,13889,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,13889,1,3,0)
+432 ;;=3^Bronchitis,Acute d/t Oth Spec Organisms
+433 ;;^UTILITY(U,$J,358.3,13889,1,4,0)
+434 ;;=4^J20.8
+435 ;;^UTILITY(U,$J,358.3,13889,2)
+436 ;;=^5008194
+437 ;;^UTILITY(U,$J,358.3,13890,0)
+438 ;;=J20.4^^53^590^13
+439 ;;^UTILITY(U,$J,358.3,13890,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,13890,1,3,0)
+442 ;;=3^Bronchitis,Acute d/t Parainfluenza Virus
+443 ;;^UTILITY(U,$J,358.3,13890,1,4,0)
+444 ;;=4^J20.4
+445 ;;^UTILITY(U,$J,358.3,13890,2)
+446 ;;=^5008190
+447 ;;^UTILITY(U,$J,358.3,13891,0)
+448 ;;=J20.5^^53^590^14
+449 ;;^UTILITY(U,$J,358.3,13891,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,13891,1,3,0)
+452 ;;=3^Bronchitis,Acute d/t Respiratory Syncytial Virus
+453 ;;^UTILITY(U,$J,358.3,13891,1,4,0)
+454 ;;=4^J20.5
+455 ;;^UTILITY(U,$J,358.3,13891,2)
+456 ;;=^5008191
+457 ;;^UTILITY(U,$J,358.3,13892,0)
+458 ;;=J20.6^^53^590^15
+459 ;;^UTILITY(U,$J,358.3,13892,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,13892,1,3,0)
+462 ;;=3^Bronchitis,Acute d/t Rhinovirus
+463 ;;^UTILITY(U,$J,358.3,13892,1,4,0)
+464 ;;=4^J20.6
+465 ;;^UTILITY(U,$J,358.3,13892,2)
+466 ;;=^5008192
+467 ;;^UTILITY(U,$J,358.3,13893,0)
+468 ;;=A69.29^^53^590^27
+469 ;;^UTILITY(U,$J,358.3,13893,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,13893,1,3,0)
+472 ;;=3^Conditions d/t Lyme Disease
+473 ;;^UTILITY(U,$J,358.3,13893,1,4,0)
+474 ;;=4^A69.29
+475 ;;^UTILITY(U,$J,358.3,13893,2)
+476 ;;=^5000379
+477 ;;^UTILITY(U,$J,358.3,13894,0)
+478 ;;=N30.91^^53^590^28
+479 ;;^UTILITY(U,$J,358.3,13894,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,13894,1,3,0)
+482 ;;=3^Cystitis w/ hematuria
+483 ;;^UTILITY(U,$J,358.3,13894,1,4,0)
+484 ;;=4^N30.91
+485 ;;^UTILITY(U,$J,358.3,13894,2)
+486 ;;=^5015643
+487 ;;^UTILITY(U,$J,358.3,13895,0)
+488 ;;=B97.10^^53^590^30
+489 ;;^UTILITY(U,$J,358.3,13895,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,13895,1,3,0)
+492 ;;=3^Enterovirus Cause of Disease
+493 ;;^UTILITY(U,$J,358.3,13895,1,4,0)
+494 ;;=4^B97.10
+495 ;;^UTILITY(U,$J,358.3,13895,2)
+496 ;;=^5000861
+497 ;;^UTILITY(U,$J,358.3,13896,0)
+498 ;;=R50.2^^53^590^32
+499 ;;^UTILITY(U,$J,358.3,13896,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,13896,1,3,0)
+502 ;;=3^Fever,Drug-Induced
+503 ;;^UTILITY(U,$J,358.3,13896,1,4,0)
+504 ;;=4^R50.2
+505 ;;^UTILITY(U,$J,358.3,13896,2)
+506 ;;=^5019507
+507 ;;^UTILITY(U,$J,358.3,13897,0)
+508 ;;=J11.00^^53^590^33
+509 ;;^UTILITY(U,$J,358.3,13897,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,13897,1,3,0)
+512 ;;=3^Flu d/t Unidentified Flu Virus w/ Unspec Type Pneumonia
+513 ;;^UTILITY(U,$J,358.3,13897,1,4,0)
+514 ;;=4^J11.00
+515 ;;^UTILITY(U,$J,358.3,13897,2)
+516 ;;=^5008156
+517 ;;^UTILITY(U,$J,358.3,13898,0)
+518 ;;=A51.0^^53^590^34
+519 ;;^UTILITY(U,$J,358.3,13898,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,13898,1,3,0)
+522 ;;=3^Genital Syphilis,Primary
+523 ;;^UTILITY(U,$J,358.3,13898,1,4,0)
+524 ;;=4^A51.0
+525 ;;^UTILITY(U,$J,358.3,13898,2)
+526 ;;=^5000272
+527 ;;^UTILITY(U,$J,358.3,13899,0)
+528 ;;=N41.9^^53^590^72
+529 ;;^UTILITY(U,$J,358.3,13899,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,13899,1,3,0)
+532 ;;=3^Inflammatory Disease of Prostate,Unspec
+533 ;;^UTILITY(U,$J,358.3,13899,1,4,0)
+534 ;;=4^N41.9
+535 ;;^UTILITY(U,$J,358.3,13899,2)
+536 ;;=^5015694
+537 ;;^UTILITY(U,$J,358.3,13900,0)
+538 ;;=N72.^^53^590^70
+539 ;;^UTILITY(U,$J,358.3,13900,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,13900,1,3,0)
+542 ;;=3^Inflammatory Disease of Cervix Uteri
+543 ;;^UTILITY(U,$J,358.3,13900,1,4,0)
+544 ;;=4^N72.
+545 ;;^UTILITY(U,$J,358.3,13900,2)
+546 ;;=^5015812
+547 ;;^UTILITY(U,$J,358.3,13901,0)
+548 ;;=A56.11^^53^590^69
+549 ;;^UTILITY(U,$J,358.3,13901,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,13901,1,3,0)
+552 ;;=3^Inflammatory Disease Chlamydial Female Pelvic
+553 ;;^UTILITY(U,$J,358.3,13901,1,4,0)
+554 ;;=4^A56.11
+555 ;;^UTILITY(U,$J,358.3,13901,2)
+556 ;;=^5000342
+557 ;;^UTILITY(U,$J,358.3,13902,0)
+558 ;;=N73.9^^53^590^71
+559 ;;^UTILITY(U,$J,358.3,13902,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,13902,1,3,0)
+562 ;;=3^Inflammatory Disease of Female Pelvice,Unspec
+563 ;;^UTILITY(U,$J,358.3,13902,1,4,0)
+564 ;;=4^N73.9
+565 ;;^UTILITY(U,$J,358.3,13902,2)
+566 ;;=^5015820
+567 ;;^UTILITY(U,$J,358.3,13903,0)
+568 ;;=J10.01^^53^590^75
+569 ;;^UTILITY(U,$J,358.3,13903,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,13903,1,3,0)
+572 ;;=3^Influenza d/t Oth Indent Flu Virus w/ Same Oth Ident Flu Virus
+573 ;;^UTILITY(U,$J,358.3,13903,1,4,0)
+574 ;;=4^J10.01
+575 ;;^UTILITY(U,$J,358.3,13903,2)
+576 ;;=^5008149
+577 ;;^UTILITY(U,$J,358.3,13904,0)
+578 ;;=J10.00^^53^590^76
+579 ;;^UTILITY(U,$J,358.3,13904,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,13904,1,3,0)
+582 ;;=3^Influenza d/t Oth Indent Flu Virus w/ Unspec Type Pneumonia
+583 ;;^UTILITY(U,$J,358.3,13904,1,4,0)
+584 ;;=4^J10.00
+585 ;;^UTILITY(U,$J,358.3,13904,2)
+586 ;;=^5008148
+587 ;;^UTILITY(U,$J,358.3,13905,0)
+588 ;;=J10.08^^53^590^74
+589 ;;^UTILITY(U,$J,358.3,13905,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,13905,1,3,0)
+592 ;;=3^Influenza d/t Oth Indent Flu Virus w/ Oth Pneumonia
+593 ;;^UTILITY(U,$J,358.3,13905,1,4,0)
+594 ;;=4^J10.08
+595 ;;^UTILITY(U,$J,358.3,13905,2)
+596 ;;=^5008150
+597 ;;^UTILITY(U,$J,358.3,13906,0)
+598 ;;=J10.1^^53^590^77
+599 ;;^UTILITY(U,$J,358.3,13906,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,13906,1,3,0)
+602 ;;=3^Influenza d/t Unident Flu Virus w/ Oth Resp Manifest
+603 ;;^UTILITY(U,$J,358.3,13906,1,4,0)
+604 ;;=4^J10.1
+605 ;;^UTILITY(U,$J,358.3,13906,2)
+606 ;;=^5008151
+607 ;;^UTILITY(U,$J,358.3,13907,0)
+608 ;;=J11.08^^53^590^78
+609 ;;^UTILITY(U,$J,358.3,13907,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,13907,1,3,0)
+612 ;;=3^Influenza d/t Unident Flu Virus w/ Spec Pneumonia
+613 ;;^UTILITY(U,$J,358.3,13907,1,4,0)
+614 ;;=4^J11.08
+615 ;;^UTILITY(U,$J,358.3,13907,2)
+616 ;;=^5008157
+617 ;;^UTILITY(U,$J,358.3,13908,0)
+618 ;;=A52.9^^53^590^84
+619 ;;^UTILITY(U,$J,358.3,13908,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,13908,1,3,0)
+622 ;;=3^Late Syphilis,Unspec
+623 ;;^UTILITY(U,$J,358.3,13908,1,4,0)
+624 ;;=4^A52.9
+625 ;;^UTILITY(U,$J,358.3,13908,2)
+626 ;;=^5000308
+627 ;;^UTILITY(U,$J,358.3,13909,0)
+628 ;;=A69.21^^53^590^88
+629 ;;^UTILITY(U,$J,358.3,13909,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,13909,1,3,0)
+632 ;;=3^Meningitis d/t Lyme Disease
+633 ;;^UTILITY(U,$J,358.3,13909,1,4,0)
+634 ;;=4^A69.21
+635 ;;^UTILITY(U,$J,358.3,13909,2)
+636 ;;=^5000376
+637 ;;^UTILITY(U,$J,358.3,13910,0)
+638 ;;=A69.22^^53^590^96
+639 ;;^UTILITY(U,$J,358.3,13910,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,13910,1,3,0)
+642 ;;=3^Neurologic Disorders d/t Lyme Disease
+643 ;;^UTILITY(U,$J,358.3,13910,1,4,0)
+644 ;;=4^A69.22
+645 ;;^UTILITY(U,$J,358.3,13910,2)
+646 ;;=^5000377
+647 ;;^UTILITY(U,$J,358.3,13911,0)
+648 ;;=A52.10^^53^590^97
+649 ;;^UTILITY(U,$J,358.3,13911,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,13911,1,3,0)
+652 ;;=3^Neurosyphilis Symptomatic,Unspec
+653 ;;^UTILITY(U,$J,358.3,13911,1,4,0)
+654 ;;=4^A52.10
+655 ;;^UTILITY(U,$J,358.3,13911,2)
+656 ;;=^5000291
+657 ;;^UTILITY(U,$J,358.3,13912,0)
+658 ;;=A52.3^^53^590^98
+659 ;;^UTILITY(U,$J,358.3,13912,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,13912,1,3,0)
+662 ;;=3^Neurosyphilis,Unspec
+663 ;;^UTILITY(U,$J,358.3,13912,1,4,0)
+664 ;;=4^A52.3
+665 ;;^UTILITY(U,$J,358.3,13912,2)
+666 ;;=^5000298
+667 ;;^UTILITY(U,$J,358.3,13913,0)
+668 ;;=N70.92^^53^590^99
+669 ;;^UTILITY(U,$J,358.3,13913,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,13913,1,3,0)
+672 ;;=3^Oophoritis,Unspec
+673 ;;^UTILITY(U,$J,358.3,13913,1,4,0)
+674 ;;=4^N70.92
+675 ;;^UTILITY(U,$J,358.3,13913,2)
+676 ;;=^5015807
+677 ;;^UTILITY(U,$J,358.3,13914,0)
+678 ;;=M86.40^^53^590^100
+679 ;;^UTILITY(U,$J,358.3,13914,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,13914,1,3,0)
+682 ;;=3^Osteomyelitis w/ Draining Sinus,Chronic,Unspec Site
+683 ;;^UTILITY(U,$J,358.3,13914,1,4,0)
+684 ;;=4^M86.40
+685 ;;^UTILITY(U,$J,358.3,13914,2)
+686 ;;=^5014583
+687 ;;^UTILITY(U,$J,358.3,13915,0)
+688 ;;=M86.00^^53^590^103
+689 ;;^UTILITY(U,$J,358.3,13915,1,0)
+690 ;;=^358.31IA^4^2