IBDEI05P ; ; 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,13775,1,4,0)
 ;;=4^B37.2
 ;;^UTILITY(U,$J,358.3,13775,2)
 ;;=^5000614
 ;;^UTILITY(U,$J,358.3,13776,0)
 ;;=B37.81^^53^590^20
 ;;^UTILITY(U,$J,358.3,13776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13776,1,3,0)
 ;;=3^Candidiasis,Esophageal
 ;;^UTILITY(U,$J,358.3,13776,1,4,0)
 ;;=4^B37.81
 ;;^UTILITY(U,$J,358.3,13776,2)
 ;;=b377^5000620
 ;;^UTILITY(U,$J,358.3,13777,0)
 ;;=B37.7^^53^590^18
 ;;^UTILITY(U,$J,358.3,13777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13777,1,3,0)
 ;;=3^Candidal Sepsis
 ;;^UTILITY(U,$J,358.3,13777,1,4,0)
 ;;=4^B37.7
 ;;^UTILITY(U,$J,358.3,13777,2)
 ;;=^5000619
 ;;^UTILITY(U,$J,358.3,13778,0)
 ;;=B37.0^^53^590^22
 ;;^UTILITY(U,$J,358.3,13778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13778,1,3,0)
 ;;=3^Candidiasis,Oral
 ;;^UTILITY(U,$J,358.3,13778,1,4,0)
 ;;=4^B37.0
 ;;^UTILITY(U,$J,358.3,13778,2)
 ;;=^5000612
 ;;^UTILITY(U,$J,358.3,13779,0)
 ;;=B37.89^^53^590^19
 ;;^UTILITY(U,$J,358.3,13779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13779,1,3,0)
 ;;=3^Candidiasis NEC
 ;;^UTILITY(U,$J,358.3,13779,1,4,0)
 ;;=4^B37.89
 ;;^UTILITY(U,$J,358.3,13779,2)
 ;;=^5000623
 ;;^UTILITY(U,$J,358.3,13780,0)
 ;;=N81.9^^53^590^1
 ;;^UTILITY(U,$J,358.3,13780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13780,1,3,0)
 ;;=3
 ;;^UTILITY(U,$J,358.3,13780,1,4,0)
 ;;=4^N81.9
 ;;^UTILITY(U,$J,358.3,13780,2)
 ;;=^5015845
 ;;^UTILITY(U,$J,358.3,13781,0)
 ;;=R50.9^^53^590^31
 ;;^UTILITY(U,$J,358.3,13781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13781,1,3,0)
 ;;=3^Fever, unspecified
 ;;^UTILITY(U,$J,358.3,13781,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,13781,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,13782,0)
 ;;=B15.9^^53^590^37
 ;;^UTILITY(U,$J,358.3,13782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13782,1,3,0)
 ;;=3^Hepatitis A w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,13782,1,4,0)
 ;;=4^B15.9
 ;;^UTILITY(U,$J,358.3,13782,2)
 ;;=^5000536
 ;;^UTILITY(U,$J,358.3,13783,0)
 ;;=B19.10^^53^590^38
 ;;^UTILITY(U,$J,358.3,13783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13783,1,3,0)
 ;;=3^Hepatitis B w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,13783,1,4,0)
 ;;=4^B19.10
 ;;^UTILITY(U,$J,358.3,13783,2)
 ;;=^5000552
 ;;^UTILITY(U,$J,358.3,13784,0)
 ;;=B19.20^^53^590^41
 ;;^UTILITY(U,$J,358.3,13784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13784,1,3,0)
 ;;=3^Hepatitis C w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,13784,1,4,0)
 ;;=4^B19.20
 ;;^UTILITY(U,$J,358.3,13784,2)
 ;;=^331436
 ;;^UTILITY(U,$J,358.3,13785,0)
 ;;=B19.9^^53^590^45
 ;;^UTILITY(U,$J,358.3,13785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13785,1,3,0)
 ;;=3^Hepatitis w/o Hepatic Coma,Unspec
 ;;^UTILITY(U,$J,358.3,13785,1,4,0)
 ;;=4^B19.9
 ;;^UTILITY(U,$J,358.3,13785,2)
 ;;=^5000554
 ;;^UTILITY(U,$J,358.3,13786,0)
 ;;=K75.89^^53^590^44
 ;;^UTILITY(U,$J,358.3,13786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13786,1,3,0)
 ;;=3^Hepatitis NEC
 ;;^UTILITY(U,$J,358.3,13786,1,4,0)
 ;;=4^K75.89
 ;;^UTILITY(U,$J,358.3,13786,2)
 ;;=^5008829
 ;;^UTILITY(U,$J,358.3,13787,0)
 ;;=B00.1^^53^590^46
 ;;^UTILITY(U,$J,358.3,13787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13787,1,3,0)
 ;;=3^Herpesviral Vesicular Dermatitis
 ;;^UTILITY(U,$J,358.3,13787,1,4,0)
 ;;=4^B00.1
 ;;^UTILITY(U,$J,358.3,13787,2)
 ;;=^5000468
 ;;^UTILITY(U,$J,358.3,13788,0)
 ;;=A60.01^^53^590^47
 ;;^UTILITY(U,$J,358.3,13788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13788,1,3,0)
 ;;=3^Herpetic Infect of Penis
 ;;^UTILITY(U,$J,358.3,13788,1,4,0)
 ;;=4^A60.01
 ;;^UTILITY(U,$J,358.3,13788,2)
 ;;=^5000353
 ;;^UTILITY(U,$J,358.3,13789,0)
 ;;=A60.04^^53^590^48
 ;;^UTILITY(U,$J,358.3,13789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13789,1,3,0)
 ;;=3^Herpetic Vulvovaginitis
 ;;^UTILITY(U,$J,358.3,13789,1,4,0)
 ;;=4^A60.04
 ;;^UTILITY(U,$J,358.3,13789,2)
 ;;=^5000356
 ;;^UTILITY(U,$J,358.3,13790,0)
 ;;=Z21.^^53^590^36
 ;;^UTILITY(U,$J,358.3,13790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13790,1,3,0)
 ;;=3^HIV + Status (Asymptomatic)
 ;;^UTILITY(U,$J,358.3,13790,1,4,0)
 ;;=4^Z21.
 ;;^UTILITY(U,$J,358.3,13790,2)
 ;;=^5062777
 ;;^UTILITY(U,$J,358.3,13791,0)
 ;;=B20.^^53^590^35
 ;;^UTILITY(U,$J,358.3,13791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13791,1,3,0)
 ;;=3^HIV + (Symptomatic)/AIDS
 ;;^UTILITY(U,$J,358.3,13791,1,4,0)
 ;;=4^B20.
 ;;^UTILITY(U,$J,358.3,13791,2)
 ;;=^5000555
 ;;^UTILITY(U,$J,358.3,13792,0)
 ;;=A63.0^^53^590^50
 ;;^UTILITY(U,$J,358.3,13792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13792,1,3,0)
 ;;=3^Human Papillomavirus infection
 ;;^UTILITY(U,$J,358.3,13792,1,4,0)
 ;;=4^A63.0
 ;;^UTILITY(U,$J,358.3,13792,2)
 ;;=^5000360
 ;;^UTILITY(U,$J,358.3,13793,0)
 ;;=T85.79XA^^53^590^67
 ;;^UTILITY(U,$J,358.3,13793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13793,1,3,0)
 ;;=3^Infect/inflm reaction d/t implantable device graft,init encntr
 ;;^UTILITY(U,$J,358.3,13793,1,4,0)
 ;;=4^T85.79XA
 ;;^UTILITY(U,$J,358.3,13793,2)
 ;;=^5055676
 ;;^UTILITY(U,$J,358.3,13794,0)
 ;;=J11.00^^53^590^79
 ;;^UTILITY(U,$J,358.3,13794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13794,1,3,0)
 ;;=3^Influenza with unspecified type of pneumonia
 ;;^UTILITY(U,$J,358.3,13794,1,4,0)
 ;;=4^J11.00
 ;;^UTILITY(U,$J,358.3,13794,2)
 ;;=^5008156
 ;;^UTILITY(U,$J,358.3,13795,0)
 ;;=H83.09^^53^590^80
 ;;^UTILITY(U,$J,358.3,13795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13795,1,3,0)
 ;;=3^Labyrinthitis, NOS
 ;;^UTILITY(U,$J,358.3,13795,1,4,0)
 ;;=4^H83.09
 ;;^UTILITY(U,$J,358.3,13795,2)
 ;;=^5006897
 ;;^UTILITY(U,$J,358.3,13796,0)
 ;;=H83.02^^53^590^82
 ;;^UTILITY(U,$J,358.3,13796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13796,1,3,0)
 ;;=3^Labyrinthitis, left ear
 ;;^UTILITY(U,$J,358.3,13796,1,4,0)
 ;;=4^H83.02
 ;;^UTILITY(U,$J,358.3,13796,2)
 ;;=^5006895
 ;;^UTILITY(U,$J,358.3,13797,0)
 ;;=H83.01^^53^590^83
 ;;^UTILITY(U,$J,358.3,13797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13797,1,3,0)
 ;;=3^Labyrinthitis, right ear
 ;;^UTILITY(U,$J,358.3,13797,1,4,0)
 ;;=4^H83.01
 ;;^UTILITY(U,$J,358.3,13797,2)
 ;;=^5006894
 ;;^UTILITY(U,$J,358.3,13798,0)
 ;;=H83.03^^53^590^81
 ;;^UTILITY(U,$J,358.3,13798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13798,1,3,0)
 ;;=3^Labyrinthitis, bilateral
 ;;^UTILITY(U,$J,358.3,13798,1,4,0)
 ;;=4^H83.03
 ;;^UTILITY(U,$J,358.3,13798,2)
 ;;=^5006896
 ;;^UTILITY(U,$J,358.3,13799,0)
 ;;=A48.1^^53^590^85
 ;;^UTILITY(U,$J,358.3,13799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13799,1,3,0)
 ;;=3^Legionella pneumonia/Legionnnaire's
 ;;^UTILITY(U,$J,358.3,13799,1,4,0)
 ;;=4^A48.1
 ;;^UTILITY(U,$J,358.3,13799,2)
 ;;=^68817
 ;;^UTILITY(U,$J,358.3,13800,0)
 ;;=A69.20^^53^590^86
 ;;^UTILITY(U,$J,358.3,13800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13800,1,3,0)
 ;;=3^Lyme disease, unspecified
 ;;^UTILITY(U,$J,358.3,13800,1,4,0)
 ;;=4^A69.20
 ;;^UTILITY(U,$J,358.3,13800,2)
 ;;=^5000375
 ;;^UTILITY(U,$J,358.3,13801,0)
 ;;=G03.0^^53^590^89
 ;;^UTILITY(U,$J,358.3,13801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13801,1,3,0)
 ;;=3^Meningitis,Aseptic
 ;;^UTILITY(U,$J,358.3,13801,1,4,0)
 ;;=4^G03.0
 ;;^UTILITY(U,$J,358.3,13801,2)
 ;;=^268379
 ;;^UTILITY(U,$J,358.3,13802,0)
 ;;=G00.9^^53^590^90
 ;;^UTILITY(U,$J,358.3,13802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13802,1,3,0)
 ;;=3^Meningitis,Bacterial
 ;;^UTILITY(U,$J,358.3,13802,1,4,0)
 ;;=4^G00.9
 ;;^UTILITY(U,$J,358.3,13802,2)
 ;;=^5003724
 ;;^UTILITY(U,$J,358.3,13803,0)
 ;;=G03.9^^53^590^87
 ;;^UTILITY(U,$J,358.3,13803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13803,1,3,0)
 ;;=3^Meningitis NOS
 ;;^UTILITY(U,$J,358.3,13803,1,4,0)
 ;;=4^G03.9
 ;;^UTILITY(U,$J,358.3,13803,2)
 ;;=^5003729
 ;;^UTILITY(U,$J,358.3,13804,0)
 ;;=B27.90^^53^590^92
 ;;^UTILITY(U,$J,358.3,13804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13804,1,3,0)
 ;;=3^Mononucleosis
 ;;^UTILITY(U,$J,358.3,13804,1,4,0)
 ;;=4^B27.90
 ;;^UTILITY(U,$J,358.3,13804,2)
 ;;=^5000578
 ;;^UTILITY(U,$J,358.3,13805,0)
 ;;=A31.0^^53^590^93
 ;;^UTILITY(U,$J,358.3,13805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13805,1,3,0)
 ;;=3^Mycobacteria, Atypical, Pulmonary
 ;;^UTILITY(U,$J,358.3,13805,1,4,0)
 ;;=4^A31.0
 ;;^UTILITY(U,$J,358.3,13805,2)
 ;;=^5000149
 ;;^UTILITY(U,$J,358.3,13806,0)
 ;;=A15.9^^53^590^95
 ;;^UTILITY(U,$J,358.3,13806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13806,1,3,0)
 ;;=3^Mycobacterium, Tuberculosis active disease
 ;;^UTILITY(U,$J,358.3,13806,1,4,0)
 ;;=4^A15.9
 ;;^UTILITY(U,$J,358.3,13806,2)
 ;;=^5000066
 ;;^UTILITY(U,$J,358.3,13807,0)
 ;;=A31.8^^53^590^94
 ;;^UTILITY(U,$J,358.3,13807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13807,1,3,0)
 ;;=3^Mycobacterium, Non-Tuberculosis NEC
 ;;^UTILITY(U,$J,358.3,13807,1,4,0)
 ;;=4^A31.8
 ;;^UTILITY(U,$J,358.3,13807,2)
 ;;=^5000152
 ;;^UTILITY(U,$J,358.3,13808,0)
 ;;=M86.10^^53^590^101
 ;;^UTILITY(U,$J,358.3,13808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13808,1,3,0)
 ;;=3^Osteomyelitis,Acute NOS
 ;;^UTILITY(U,$J,358.3,13808,1,4,0)
 ;;=4^M86.10
 ;;^UTILITY(U,$J,358.3,13808,2)
 ;;=^5014521
 ;;^UTILITY(U,$J,358.3,13809,0)
 ;;=M86.60^^53^590^102
 ;;^UTILITY(U,$J,358.3,13809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13809,1,3,0)
 ;;=3^Osteomyelitis,Chronic NOS
 ;;^UTILITY(U,$J,358.3,13809,1,4,0)
 ;;=4^M86.60
 ;;^UTILITY(U,$J,358.3,13809,2)
 ;;=^5014630
 ;;^UTILITY(U,$J,358.3,13810,0)
 ;;=N73.9^^53^590^108
 ;;^UTILITY(U,$J,358.3,13810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13810,1,3,0)
 ;;=3^Pelvic Inflammatory Disease
 ;;^UTILITY(U,$J,358.3,13810,1,4,0)
 ;;=4^N73.9
 ;;^UTILITY(U,$J,358.3,13810,2)
 ;;=^5015820
 ;;^UTILITY(U,$J,358.3,13811,0)
 ;;=K65.2^^53^590^109
 ;;^UTILITY(U,$J,358.3,13811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13811,1,3,0)
 ;;=3^Peritonitis, bacterial
 ;;^UTILITY(U,$J,358.3,13811,1,4,0)
 ;;=4^K65.2
 ;;^UTILITY(U,$J,358.3,13811,2)
 ;;=^332801
 ;;^UTILITY(U,$J,358.3,13812,0)
 ;;=J18.9^^53^590^116
 ;;^UTILITY(U,$J,358.3,13812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13812,1,3,0)
 ;;=3^Pneumonia, NOS
 ;;^UTILITY(U,$J,358.3,13812,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,13812,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,13813,0)
 ;;=J13.^^53^590^117
 ;;^UTILITY(U,$J,358.3,13813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13813,1,3,0)
 ;;=3^Pneumonia, Streptococcus pneumoniae
 ;;^UTILITY(U,$J,358.3,13813,1,4,0)
 ;;=4^J13.
 ;;^UTILITY(U,$J,358.3,13813,2)
 ;;=^5008170
 ;;^UTILITY(U,$J,358.3,13814,0)
 ;;=J15.7^^53^590^115
 ;;^UTILITY(U,$J,358.3,13814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13814,1,3,0)
 ;;=3^Pneumonia, Mycoplasma
 ;;^UTILITY(U,$J,358.3,13814,1,4,0)
 ;;=4^J15.7
 ;;^UTILITY(U,$J,358.3,13814,2)
 ;;=^5008177
 ;;^UTILITY(U,$J,358.3,13815,0)
 ;;=J16.0^^53^590^114
 ;;^UTILITY(U,$J,358.3,13815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13815,1,3,0)
 ;;=3^Pneumonia, Chlamydia/Chlamydophila
 ;;^UTILITY(U,$J,358.3,13815,1,4,0)
 ;;=4^J16.0
 ;;^UTILITY(U,$J,358.3,13815,2)
 ;;=^5008179
 ;;^UTILITY(U,$J,358.3,13816,0)
 ;;=R76.11^^53^590^122
 ;;^UTILITY(U,$J,358.3,13816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13816,1,3,0)
 ;;=3^Positive PPD/Tuberculin skin test
 ;;^UTILITY(U,$J,358.3,13816,1,4,0)
 ;;=4^R76.11
 ;;^UTILITY(U,$J,358.3,13816,2)
 ;;=^5019570
 ;;^UTILITY(U,$J,358.3,13817,0)
 ;;=R76.12^^53^590^121
 ;;^UTILITY(U,$J,358.3,13817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13817,1,3,0)
 ;;=3^Positive IGRA test for tuberculosis
 ;;^UTILITY(U,$J,358.3,13817,1,4,0)
 ;;=4^R76.12
 ;;^UTILITY(U,$J,358.3,13817,2)
 ;;=^5019571
 ;;^UTILITY(U,$J,358.3,13818,0)
 ;;=R76.8^^53^590^123
 ;;^UTILITY(U,$J,358.3,13818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13818,1,3,0)
 ;;=3^Positive RPR
 ;;^UTILITY(U,$J,358.3,13818,1,4,0)
 ;;=4^R76.8
 ;;^UTILITY(U,$J,358.3,13818,2)
 ;;=^5019572
 ;;^UTILITY(U,$J,358.3,13819,0)
 ;;=T84.53XA^^53^590^124
 ;;^UTILITY(U,$J,358.3,13819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13819,1,3,0)
 ;;=3^Prosthetic Right Knee Joint Infection,Init Encntr
 ;;^UTILITY(U,$J,358.3,13819,1,4,0)
 ;;=4^T84.53XA
 ;;^UTILITY(U,$J,358.3,13819,2)
 ;;=^5055391
 ;;^UTILITY(U,$J,358.3,13820,0)
 ;;=T84.59XA^^53^590^125
 ;;^UTILITY(U,$J,358.3,13820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13820,1,3,0)
 ;;=3^Prosthetic Shoulder Joint Infection,Init Encntr
 ;;^UTILITY(U,$J,358.3,13820,1,4,0)
 ;;=4^T84.59XA
 ;;^UTILITY(U,$J,358.3,13820,2)
 ;;=^5055397
 ;;^UTILITY(U,$J,358.3,13821,0)
 ;;=N12.^^53^590^128
 ;;^UTILITY(U,$J,358.3,13821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13821,1,3,0)
 ;;=3^Pyelonephritis
 ;;^UTILITY(U,$J,358.3,13821,1,4,0)
 ;;=4^N12.
 ;;^UTILITY(U,$J,358.3,13821,2)
 ;;=^5015575
 ;;^UTILITY(U,$J,358.3,13822,0)
 ;;=J30.9^^53^590^129
 ;;^UTILITY(U,$J,358.3,13822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13822,1,3,0)
 ;;=3^Rhinitis, allergic
 ;;^UTILITY(U,$J,358.3,13822,1,4,0)
 ;;=4^J30.9
 ;;^UTILITY(U,$J,358.3,13822,2)
 ;;=^5008205
 ;;^UTILITY(U,$J,358.3,13823,0)
 ;;=B86.^^53^590^131
 ;;^UTILITY(U,$J,358.3,13823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13823,1,3,0)
 ;;=3^Scabies
 ;;^UTILITY(U,$J,358.3,13823,1,4,0)
 ;;=4^B86.
 ;;^UTILITY(U,$J,358.3,13823,2)
 ;;=^108096
 ;;^UTILITY(U,$J,358.3,13824,0)
 ;;=M00.9^^53^590^139
 ;;^UTILITY(U,$J,358.3,13824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13824,1,3,0)
 ;;=3^Septic Joint/Arthritis
 ;;^UTILITY(U,$J,358.3,13824,1,4,0)
 ;;=4^M00.9
 ;;^UTILITY(U,$J,358.3,13824,2)
 ;;=^5009693
 ;;^UTILITY(U,$J,358.3,13825,0)
 ;;=B02.9^^53^590^144
 ;;^UTILITY(U,$J,358.3,13825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13825,1,3,0)
 ;;=3^Shingles/zoster
 ;;^UTILITY(U,$J,358.3,13825,1,4,0)
 ;;=4^B02.9
 ;;^UTILITY(U,$J,358.3,13825,2)
 ;;=^5000501
 ;;^UTILITY(U,$J,358.3,13826,0)
 ;;=J01.90^^53^590^145
 ;;^UTILITY(U,$J,358.3,13826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13826,1,3,0)
 ;;=3^Sinusitis, acute
 ;;^UTILITY(U,$J,358.3,13826,1,4,0)
 ;;=4^J01.90
 ;;^UTILITY(U,$J,358.3,13826,2)
 ;;=^5008127
 ;;^UTILITY(U,$J,358.3,13827,0)
 ;;=J32.9^^53^590^146
 ;;^UTILITY(U,$J,358.3,13827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13827,1,3,0)
 ;;=3^Sinusitis, chronic
 ;;^UTILITY(U,$J,358.3,13827,1,4,0)
 ;;=4^J32.9
 ;;^UTILITY(U,$J,358.3,13827,2)
 ;;=^5008207
 ;;^UTILITY(U,$J,358.3,13828,0)
 ;;=A49.01^^53^590^91
 ;;^UTILITY(U,$J,358.3,13828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13828,1,3,0)
 ;;=3^Methicillin Susceptible Staphylococcus Aureus Infection
 ;;^UTILITY(U,$J,358.3,13828,1,4,0)
 ;;=4^A49.01
 ;;^UTILITY(U,$J,358.3,13828,2)
 ;;=^5000235
 ;;^UTILITY(U,$J,358.3,13829,0)
 ;;=R61.^^53^590^159
 ;;^UTILITY(U,$J,358.3,13829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13829,1,3,0)
 ;;=3^Sweats/Night Sweats
 ;;^UTILITY(U,$J,358.3,13829,1,4,0)
 ;;=4^R61.
 ;;^UTILITY(U,$J,358.3,13829,2)
 ;;=^331970
 ;;^UTILITY(U,$J,358.3,13830,0)
 ;;=A51.0^^53^590^160
 ;;^UTILITY(U,$J,358.3,13830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13830,1,3,0)
 ;;=3^Syphilis genital, primary
 ;;^UTILITY(U,$J,358.3,13830,1,4,0)
 ;;=4^A51.0
 ;;^UTILITY(U,$J,358.3,13830,2)
 ;;=^5000272
 ;;^UTILITY(U,$J,358.3,13831,0)
 ;;=A51.5^^53^590^161
 ;;^UTILITY(U,$J,358.3,13831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13831,1,3,0)
 ;;=3^Syphilis,Early Latent
 ;;^UTILITY(U,$J,358.3,13831,1,4,0)
 ;;=4^A51.5
 ;;^UTILITY(U,$J,358.3,13831,2)
 ;;=^266730
 ;;^UTILITY(U,$J,358.3,13832,0)
 ;;=A52.8^^53^590^162
 ;;^UTILITY(U,$J,358.3,13832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13832,1,3,0)
 ;;=3^Syphilis,Late Latent
 ;;^UTILITY(U,$J,358.3,13832,1,4,0)
 ;;=4^A52.8
 ;;^UTILITY(U,$J,358.3,13832,2)
 ;;=^266779
 ;;^UTILITY(U,$J,358.3,13833,0)
 ;;=A52.9^^53^590^164
 ;;^UTILITY(U,$J,358.3,13833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13833,1,3,0)
 ;;=3^Syphilis,Tertiary
 ;;^UTILITY(U,$J,358.3,13833,1,4,0)
 ;;=4^A52.9
 ;;^UTILITY(U,$J,358.3,13833,2)
 ;;=^5000308
 ;;^UTILITY(U,$J,358.3,13834,0)
 ;;=A52.3^^53^590^163
 ;;^UTILITY(U,$J,358.3,13834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13834,1,3,0)
 ;;=3^Syphilis,Neurosyphilis
 ;;^UTILITY(U,$J,358.3,13834,1,4,0)
 ;;=4^A52.3
 ;;^UTILITY(U,$J,358.3,13834,2)
 ;;=^5000298
 ;;^UTILITY(U,$J,358.3,13835,0)
 ;;=J03.90^^53^590^166
 ;;^UTILITY(U,$J,358.3,13835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13835,1,3,0)
 ;;=3^Tonsillitis, acute, unspecified
 ;;^UTILITY(U,$J,358.3,13835,1,4,0)
 ;;=4^J03.90
 ;;^UTILITY(U,$J,358.3,13835,2)
 ;;=^5008135
 ;;^UTILITY(U,$J,358.3,13836,0)
 ;;=A15.0^^53^590^170
 ;;^UTILITY(U,$J,358.3,13836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13836,1,3,0)
 ;;=3^Tuberculosis, pulmonary
 ;;^UTILITY(U,$J,358.3,13836,1,4,0)
 ;;=4^A15.0
 ;;^UTILITY(U,$J,358.3,13836,2)
 ;;=^5000062
 ;;^UTILITY(U,$J,358.3,13837,0)
 ;;=R76.11^^53^590^169
 ;;^UTILITY(U,$J,358.3,13837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13837,1,3,0)
 ;;=3^Tuberculosis, latent
 ;;^UTILITY(U,$J,358.3,13837,1,4,0)
 ;;=4^R76.11
 ;;^UTILITY(U,$J,358.3,13837,2)
 ;;=^5019570
 ;;^UTILITY(U,$J,358.3,13838,0)
 ;;=A15.8^^53^590^168
 ;;^UTILITY(U,$J,358.3,13838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13838,1,3,0)
 ;;=3^Tuberculosis NEC
 ;;^UTILITY(U,$J,358.3,13838,1,4,0)
 ;;=4^A15.8
 ;;^UTILITY(U,$J,358.3,13838,2)
 ;;=^266093
 ;;^UTILITY(U,$J,358.3,13839,0)
 ;;=J06.9^^53^590^171
 ;;^UTILITY(U,$J,358.3,13839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13839,1,3,0)
 ;;=3^URI/Cold Symptoms
 ;;^UTILITY(U,$J,358.3,13839,1,4,0)
 ;;=4^J06.9
 ;;^UTILITY(U,$J,358.3,13839,2)
 ;;=^5008143
 ;;^UTILITY(U,$J,358.3,13840,0)
 ;;=N34.2^^53^590^176
 ;;^UTILITY(U,$J,358.3,13840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13840,1,3,0)
 ;;=3^Urethritis
 ;;^UTILITY(U,$J,358.3,13840,1,4,0)
 ;;=4^N34.2
 ;;^UTILITY(U,$J,358.3,13840,2)
 ;;=^88231
 ;;^UTILITY(U,$J,358.3,13841,0)
 ;;=R63.4^^53^590^179
 ;;^UTILITY(U,$J,358.3,13841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13841,1,3,0)
 ;;=3^Weight Loss
 ;;^UTILITY(U,$J,358.3,13841,1,4,0)
 ;;=4^R63.4
 ;;^UTILITY(U,$J,358.3,13841,2)
 ;;=^5019542
 ;;^UTILITY(U,$J,358.3,13842,0)
 ;;=N39.0^^53^590^172
 ;;^UTILITY(U,$J,358.3,13842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13842,1,3,0)
 ;;=3^UTI
 ;;^UTILITY(U,$J,358.3,13842,1,4,0)
 ;;=4^N39.0
 ;;^UTILITY(U,$J,358.3,13842,2)
 ;;=^124436
 ;;^UTILITY(U,$J,358.3,13843,0)
 ;;=N30.90^^53^590^29
 ;;^UTILITY(U,$J,358.3,13843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13843,1,3,0)
 ;;=3^Cystitis w/o hematuria
 ;;^UTILITY(U,$J,358.3,13843,1,4,0)
 ;;=4^N30.90
 ;;^UTILITY(U,$J,358.3,13843,2)
 ;;=^5015642
 ;;^UTILITY(U,$J,358.3,13844,0)
 ;;=N76.0^^53^590^177
 ;;^UTILITY(U,$J,358.3,13844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13844,1,3,0)
 ;;=3^Vaginitis, Unspecified cause, acute
 ;;^UTILITY(U,$J,358.3,13844,1,4,0)
 ;;=4^N76.0
 ;;^UTILITY(U,$J,358.3,13844,2)
 ;;=^5015826
 ;;^UTILITY(U,$J,358.3,13845,0)
 ;;=N76.3^^53^590^157
 ;;^UTILITY(U,$J,358.3,13845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13845,1,3,0)
 ;;=3^Subacute and chronic vulvitis
 ;;^UTILITY(U,$J,358.3,13845,1,4,0)
 ;;=4^N76.3
 ;;^UTILITY(U,$J,358.3,13845,2)
 ;;=^5015829
 ;;^UTILITY(U,$J,358.3,13846,0)
 ;;=N76.1^^53^590^156
 ;;^UTILITY(U,$J,358.3,13846,1,0)
 ;;=^358.31IA^4^2
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI05P   19797     printed  Sep 23, 2025@19:18:08                                                                                                                                                                                                   Page 2
IBDEI05P  ; ; 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,13775,1,4,0)
 +2       ;;=4^B37.2
 +3       ;;^UTILITY(U,$J,358.3,13775,2)
 +4       ;;=^5000614
 +5       ;;^UTILITY(U,$J,358.3,13776,0)
 +6       ;;=B37.81^^53^590^20
 +7       ;;^UTILITY(U,$J,358.3,13776,1,0)
 +8       ;;=^358.31IA^4^2
 +9       ;;^UTILITY(U,$J,358.3,13776,1,3,0)
 +10      ;;=3^Candidiasis,Esophageal
 +11      ;;^UTILITY(U,$J,358.3,13776,1,4,0)
 +12      ;;=4^B37.81
 +13      ;;^UTILITY(U,$J,358.3,13776,2)
 +14      ;;=b377^5000620
 +15      ;;^UTILITY(U,$J,358.3,13777,0)
 +16      ;;=B37.7^^53^590^18
 +17      ;;^UTILITY(U,$J,358.3,13777,1,0)
 +18      ;;=^358.31IA^4^2
 +19      ;;^UTILITY(U,$J,358.3,13777,1,3,0)
 +20      ;;=3^Candidal Sepsis
 +21      ;;^UTILITY(U,$J,358.3,13777,1,4,0)
 +22      ;;=4^B37.7
 +23      ;;^UTILITY(U,$J,358.3,13777,2)
 +24      ;;=^5000619
 +25      ;;^UTILITY(U,$J,358.3,13778,0)
 +26      ;;=B37.0^^53^590^22
 +27      ;;^UTILITY(U,$J,358.3,13778,1,0)
 +28      ;;=^358.31IA^4^2
 +29      ;;^UTILITY(U,$J,358.3,13778,1,3,0)
 +30      ;;=3^Candidiasis,Oral
 +31      ;;^UTILITY(U,$J,358.3,13778,1,4,0)
 +32      ;;=4^B37.0
 +33      ;;^UTILITY(U,$J,358.3,13778,2)
 +34      ;;=^5000612
 +35      ;;^UTILITY(U,$J,358.3,13779,0)
 +36      ;;=B37.89^^53^590^19
 +37      ;;^UTILITY(U,$J,358.3,13779,1,0)
 +38      ;;=^358.31IA^4^2
 +39      ;;^UTILITY(U,$J,358.3,13779,1,3,0)
 +40      ;;=3^Candidiasis NEC
 +41      ;;^UTILITY(U,$J,358.3,13779,1,4,0)
 +42      ;;=4^B37.89
 +43      ;;^UTILITY(U,$J,358.3,13779,2)
 +44      ;;=^5000623
 +45      ;;^UTILITY(U,$J,358.3,13780,0)
 +46      ;;=N81.9^^53^590^1
 +47      ;;^UTILITY(U,$J,358.3,13780,1,0)
 +48      ;;=^358.31IA^4^2
 +49      ;;^UTILITY(U,$J,358.3,13780,1,3,0)
 +50      ;;=3
 +51      ;;^UTILITY(U,$J,358.3,13780,1,4,0)
 +52      ;;=4^N81.9
 +53      ;;^UTILITY(U,$J,358.3,13780,2)
 +54      ;;=^5015845
 +55      ;;^UTILITY(U,$J,358.3,13781,0)
 +56      ;;=R50.9^^53^590^31
 +57      ;;^UTILITY(U,$J,358.3,13781,1,0)
 +58      ;;=^358.31IA^4^2
 +59      ;;^UTILITY(U,$J,358.3,13781,1,3,0)
 +60      ;;=3^Fever, unspecified
 +61      ;;^UTILITY(U,$J,358.3,13781,1,4,0)
 +62      ;;=4^R50.9
 +63      ;;^UTILITY(U,$J,358.3,13781,2)
 +64      ;;=^5019512
 +65      ;;^UTILITY(U,$J,358.3,13782,0)
 +66      ;;=B15.9^^53^590^37
 +67      ;;^UTILITY(U,$J,358.3,13782,1,0)
 +68      ;;=^358.31IA^4^2
 +69      ;;^UTILITY(U,$J,358.3,13782,1,3,0)
 +70      ;;=3^Hepatitis A w/o Hepatic Coma
 +71      ;;^UTILITY(U,$J,358.3,13782,1,4,0)
 +72      ;;=4^B15.9
 +73      ;;^UTILITY(U,$J,358.3,13782,2)
 +74      ;;=^5000536
 +75      ;;^UTILITY(U,$J,358.3,13783,0)
 +76      ;;=B19.10^^53^590^38
 +77      ;;^UTILITY(U,$J,358.3,13783,1,0)
 +78      ;;=^358.31IA^4^2
 +79      ;;^UTILITY(U,$J,358.3,13783,1,3,0)
 +80      ;;=3^Hepatitis B w/o Hepatic Coma
 +81      ;;^UTILITY(U,$J,358.3,13783,1,4,0)
 +82      ;;=4^B19.10
 +83      ;;^UTILITY(U,$J,358.3,13783,2)
 +84      ;;=^5000552
 +85      ;;^UTILITY(U,$J,358.3,13784,0)
 +86      ;;=B19.20^^53^590^41
 +87      ;;^UTILITY(U,$J,358.3,13784,1,0)
 +88      ;;=^358.31IA^4^2
 +89      ;;^UTILITY(U,$J,358.3,13784,1,3,0)
 +90      ;;=3^Hepatitis C w/o Hepatic Coma
 +91      ;;^UTILITY(U,$J,358.3,13784,1,4,0)
 +92      ;;=4^B19.20
 +93      ;;^UTILITY(U,$J,358.3,13784,2)
 +94      ;;=^331436
 +95      ;;^UTILITY(U,$J,358.3,13785,0)
 +96      ;;=B19.9^^53^590^45
 +97      ;;^UTILITY(U,$J,358.3,13785,1,0)
 +98      ;;=^358.31IA^4^2
 +99      ;;^UTILITY(U,$J,358.3,13785,1,3,0)
 +100     ;;=3^Hepatitis w/o Hepatic Coma,Unspec
 +101     ;;^UTILITY(U,$J,358.3,13785,1,4,0)
 +102     ;;=4^B19.9
 +103     ;;^UTILITY(U,$J,358.3,13785,2)
 +104     ;;=^5000554
 +105     ;;^UTILITY(U,$J,358.3,13786,0)
 +106     ;;=K75.89^^53^590^44
 +107     ;;^UTILITY(U,$J,358.3,13786,1,0)
 +108     ;;=^358.31IA^4^2
 +109     ;;^UTILITY(U,$J,358.3,13786,1,3,0)
 +110     ;;=3^Hepatitis NEC
 +111     ;;^UTILITY(U,$J,358.3,13786,1,4,0)
 +112     ;;=4^K75.89
 +113     ;;^UTILITY(U,$J,358.3,13786,2)
 +114     ;;=^5008829
 +115     ;;^UTILITY(U,$J,358.3,13787,0)
 +116     ;;=B00.1^^53^590^46
 +117     ;;^UTILITY(U,$J,358.3,13787,1,0)
 +118     ;;=^358.31IA^4^2
 +119     ;;^UTILITY(U,$J,358.3,13787,1,3,0)
 +120     ;;=3^Herpesviral Vesicular Dermatitis
 +121     ;;^UTILITY(U,$J,358.3,13787,1,4,0)
 +122     ;;=4^B00.1
 +123     ;;^UTILITY(U,$J,358.3,13787,2)
 +124     ;;=^5000468
 +125     ;;^UTILITY(U,$J,358.3,13788,0)
 +126     ;;=A60.01^^53^590^47
 +127     ;;^UTILITY(U,$J,358.3,13788,1,0)
 +128     ;;=^358.31IA^4^2
 +129     ;;^UTILITY(U,$J,358.3,13788,1,3,0)
 +130     ;;=3^Herpetic Infect of Penis
 +131     ;;^UTILITY(U,$J,358.3,13788,1,4,0)
 +132     ;;=4^A60.01
 +133     ;;^UTILITY(U,$J,358.3,13788,2)
 +134     ;;=^5000353
 +135     ;;^UTILITY(U,$J,358.3,13789,0)
 +136     ;;=A60.04^^53^590^48
 +137     ;;^UTILITY(U,$J,358.3,13789,1,0)
 +138     ;;=^358.31IA^4^2
 +139     ;;^UTILITY(U,$J,358.3,13789,1,3,0)
 +140     ;;=3^Herpetic Vulvovaginitis
 +141     ;;^UTILITY(U,$J,358.3,13789,1,4,0)
 +142     ;;=4^A60.04
 +143     ;;^UTILITY(U,$J,358.3,13789,2)
 +144     ;;=^5000356
 +145     ;;^UTILITY(U,$J,358.3,13790,0)
 +146     ;;=Z21.^^53^590^36
 +147     ;;^UTILITY(U,$J,358.3,13790,1,0)
 +148     ;;=^358.31IA^4^2
 +149     ;;^UTILITY(U,$J,358.3,13790,1,3,0)
 +150     ;;=3^HIV + Status (Asymptomatic)
 +151     ;;^UTILITY(U,$J,358.3,13790,1,4,0)
 +152     ;;=4^Z21.
 +153     ;;^UTILITY(U,$J,358.3,13790,2)
 +154     ;;=^5062777
 +155     ;;^UTILITY(U,$J,358.3,13791,0)
 +156     ;;=B20.^^53^590^35
 +157     ;;^UTILITY(U,$J,358.3,13791,1,0)
 +158     ;;=^358.31IA^4^2
 +159     ;;^UTILITY(U,$J,358.3,13791,1,3,0)
 +160     ;;=3^HIV + (Symptomatic)/AIDS
 +161     ;;^UTILITY(U,$J,358.3,13791,1,4,0)
 +162     ;;=4^B20.
 +163     ;;^UTILITY(U,$J,358.3,13791,2)
 +164     ;;=^5000555
 +165     ;;^UTILITY(U,$J,358.3,13792,0)
 +166     ;;=A63.0^^53^590^50
 +167     ;;^UTILITY(U,$J,358.3,13792,1,0)
 +168     ;;=^358.31IA^4^2
 +169     ;;^UTILITY(U,$J,358.3,13792,1,3,0)
 +170     ;;=3^Human Papillomavirus infection
 +171     ;;^UTILITY(U,$J,358.3,13792,1,4,0)
 +172     ;;=4^A63.0
 +173     ;;^UTILITY(U,$J,358.3,13792,2)
 +174     ;;=^5000360
 +175     ;;^UTILITY(U,$J,358.3,13793,0)
 +176     ;;=T85.79XA^^53^590^67
 +177     ;;^UTILITY(U,$J,358.3,13793,1,0)
 +178     ;;=^358.31IA^4^2
 +179     ;;^UTILITY(U,$J,358.3,13793,1,3,0)
 +180     ;;=3^Infect/inflm reaction d/t implantable device graft,init encntr
 +181     ;;^UTILITY(U,$J,358.3,13793,1,4,0)
 +182     ;;=4^T85.79XA
 +183     ;;^UTILITY(U,$J,358.3,13793,2)
 +184     ;;=^5055676
 +185     ;;^UTILITY(U,$J,358.3,13794,0)
 +186     ;;=J11.00^^53^590^79
 +187     ;;^UTILITY(U,$J,358.3,13794,1,0)
 +188     ;;=^358.31IA^4^2
 +189     ;;^UTILITY(U,$J,358.3,13794,1,3,0)
 +190     ;;=3^Influenza with unspecified type of pneumonia
 +191     ;;^UTILITY(U,$J,358.3,13794,1,4,0)
 +192     ;;=4^J11.00
 +193     ;;^UTILITY(U,$J,358.3,13794,2)
 +194     ;;=^5008156
 +195     ;;^UTILITY(U,$J,358.3,13795,0)
 +196     ;;=H83.09^^53^590^80
 +197     ;;^UTILITY(U,$J,358.3,13795,1,0)
 +198     ;;=^358.31IA^4^2
 +199     ;;^UTILITY(U,$J,358.3,13795,1,3,0)
 +200     ;;=3^Labyrinthitis, NOS
 +201     ;;^UTILITY(U,$J,358.3,13795,1,4,0)
 +202     ;;=4^H83.09
 +203     ;;^UTILITY(U,$J,358.3,13795,2)
 +204     ;;=^5006897
 +205     ;;^UTILITY(U,$J,358.3,13796,0)
 +206     ;;=H83.02^^53^590^82
 +207     ;;^UTILITY(U,$J,358.3,13796,1,0)
 +208     ;;=^358.31IA^4^2
 +209     ;;^UTILITY(U,$J,358.3,13796,1,3,0)
 +210     ;;=3^Labyrinthitis, left ear
 +211     ;;^UTILITY(U,$J,358.3,13796,1,4,0)
 +212     ;;=4^H83.02
 +213     ;;^UTILITY(U,$J,358.3,13796,2)
 +214     ;;=^5006895
 +215     ;;^UTILITY(U,$J,358.3,13797,0)
 +216     ;;=H83.01^^53^590^83
 +217     ;;^UTILITY(U,$J,358.3,13797,1,0)
 +218     ;;=^358.31IA^4^2
 +219     ;;^UTILITY(U,$J,358.3,13797,1,3,0)
 +220     ;;=3^Labyrinthitis, right ear
 +221     ;;^UTILITY(U,$J,358.3,13797,1,4,0)
 +222     ;;=4^H83.01
 +223     ;;^UTILITY(U,$J,358.3,13797,2)
 +224     ;;=^5006894
 +225     ;;^UTILITY(U,$J,358.3,13798,0)
 +226     ;;=H83.03^^53^590^81
 +227     ;;^UTILITY(U,$J,358.3,13798,1,0)
 +228     ;;=^358.31IA^4^2
 +229     ;;^UTILITY(U,$J,358.3,13798,1,3,0)
 +230     ;;=3^Labyrinthitis, bilateral
 +231     ;;^UTILITY(U,$J,358.3,13798,1,4,0)
 +232     ;;=4^H83.03
 +233     ;;^UTILITY(U,$J,358.3,13798,2)
 +234     ;;=^5006896
 +235     ;;^UTILITY(U,$J,358.3,13799,0)
 +236     ;;=A48.1^^53^590^85
 +237     ;;^UTILITY(U,$J,358.3,13799,1,0)
 +238     ;;=^358.31IA^4^2
 +239     ;;^UTILITY(U,$J,358.3,13799,1,3,0)
 +240     ;;=3^Legionella pneumonia/Legionnnaire's
 +241     ;;^UTILITY(U,$J,358.3,13799,1,4,0)
 +242     ;;=4^A48.1
 +243     ;;^UTILITY(U,$J,358.3,13799,2)
 +244     ;;=^68817
 +245     ;;^UTILITY(U,$J,358.3,13800,0)
 +246     ;;=A69.20^^53^590^86
 +247     ;;^UTILITY(U,$J,358.3,13800,1,0)
 +248     ;;=^358.31IA^4^2
 +249     ;;^UTILITY(U,$J,358.3,13800,1,3,0)
 +250     ;;=3^Lyme disease, unspecified
 +251     ;;^UTILITY(U,$J,358.3,13800,1,4,0)
 +252     ;;=4^A69.20
 +253     ;;^UTILITY(U,$J,358.3,13800,2)
 +254     ;;=^5000375
 +255     ;;^UTILITY(U,$J,358.3,13801,0)
 +256     ;;=G03.0^^53^590^89
 +257     ;;^UTILITY(U,$J,358.3,13801,1,0)
 +258     ;;=^358.31IA^4^2
 +259     ;;^UTILITY(U,$J,358.3,13801,1,3,0)
 +260     ;;=3^Meningitis,Aseptic
 +261     ;;^UTILITY(U,$J,358.3,13801,1,4,0)
 +262     ;;=4^G03.0
 +263     ;;^UTILITY(U,$J,358.3,13801,2)
 +264     ;;=^268379
 +265     ;;^UTILITY(U,$J,358.3,13802,0)
 +266     ;;=G00.9^^53^590^90
 +267     ;;^UTILITY(U,$J,358.3,13802,1,0)
 +268     ;;=^358.31IA^4^2
 +269     ;;^UTILITY(U,$J,358.3,13802,1,3,0)
 +270     ;;=3^Meningitis,Bacterial
 +271     ;;^UTILITY(U,$J,358.3,13802,1,4,0)
 +272     ;;=4^G00.9
 +273     ;;^UTILITY(U,$J,358.3,13802,2)
 +274     ;;=^5003724
 +275     ;;^UTILITY(U,$J,358.3,13803,0)
 +276     ;;=G03.9^^53^590^87
 +277     ;;^UTILITY(U,$J,358.3,13803,1,0)
 +278     ;;=^358.31IA^4^2
 +279     ;;^UTILITY(U,$J,358.3,13803,1,3,0)
 +280     ;;=3^Meningitis NOS
 +281     ;;^UTILITY(U,$J,358.3,13803,1,4,0)
 +282     ;;=4^G03.9
 +283     ;;^UTILITY(U,$J,358.3,13803,2)
 +284     ;;=^5003729
 +285     ;;^UTILITY(U,$J,358.3,13804,0)
 +286     ;;=B27.90^^53^590^92
 +287     ;;^UTILITY(U,$J,358.3,13804,1,0)
 +288     ;;=^358.31IA^4^2
 +289     ;;^UTILITY(U,$J,358.3,13804,1,3,0)
 +290     ;;=3^Mononucleosis
 +291     ;;^UTILITY(U,$J,358.3,13804,1,4,0)
 +292     ;;=4^B27.90
 +293     ;;^UTILITY(U,$J,358.3,13804,2)
 +294     ;;=^5000578
 +295     ;;^UTILITY(U,$J,358.3,13805,0)
 +296     ;;=A31.0^^53^590^93
 +297     ;;^UTILITY(U,$J,358.3,13805,1,0)
 +298     ;;=^358.31IA^4^2
 +299     ;;^UTILITY(U,$J,358.3,13805,1,3,0)
 +300     ;;=3^Mycobacteria, Atypical, Pulmonary
 +301     ;;^UTILITY(U,$J,358.3,13805,1,4,0)
 +302     ;;=4^A31.0
 +303     ;;^UTILITY(U,$J,358.3,13805,2)
 +304     ;;=^5000149
 +305     ;;^UTILITY(U,$J,358.3,13806,0)
 +306     ;;=A15.9^^53^590^95
 +307     ;;^UTILITY(U,$J,358.3,13806,1,0)
 +308     ;;=^358.31IA^4^2
 +309     ;;^UTILITY(U,$J,358.3,13806,1,3,0)
 +310     ;;=3^Mycobacterium, Tuberculosis active disease
 +311     ;;^UTILITY(U,$J,358.3,13806,1,4,0)
 +312     ;;=4^A15.9
 +313     ;;^UTILITY(U,$J,358.3,13806,2)
 +314     ;;=^5000066
 +315     ;;^UTILITY(U,$J,358.3,13807,0)
 +316     ;;=A31.8^^53^590^94
 +317     ;;^UTILITY(U,$J,358.3,13807,1,0)
 +318     ;;=^358.31IA^4^2
 +319     ;;^UTILITY(U,$J,358.3,13807,1,3,0)
 +320     ;;=3^Mycobacterium, Non-Tuberculosis NEC
 +321     ;;^UTILITY(U,$J,358.3,13807,1,4,0)
 +322     ;;=4^A31.8
 +323     ;;^UTILITY(U,$J,358.3,13807,2)
 +324     ;;=^5000152
 +325     ;;^UTILITY(U,$J,358.3,13808,0)
 +326     ;;=M86.10^^53^590^101
 +327     ;;^UTILITY(U,$J,358.3,13808,1,0)
 +328     ;;=^358.31IA^4^2
 +329     ;;^UTILITY(U,$J,358.3,13808,1,3,0)
 +330     ;;=3^Osteomyelitis,Acute NOS
 +331     ;;^UTILITY(U,$J,358.3,13808,1,4,0)
 +332     ;;=4^M86.10
 +333     ;;^UTILITY(U,$J,358.3,13808,2)
 +334     ;;=^5014521
 +335     ;;^UTILITY(U,$J,358.3,13809,0)
 +336     ;;=M86.60^^53^590^102
 +337     ;;^UTILITY(U,$J,358.3,13809,1,0)
 +338     ;;=^358.31IA^4^2
 +339     ;;^UTILITY(U,$J,358.3,13809,1,3,0)
 +340     ;;=3^Osteomyelitis,Chronic NOS
 +341     ;;^UTILITY(U,$J,358.3,13809,1,4,0)
 +342     ;;=4^M86.60
 +343     ;;^UTILITY(U,$J,358.3,13809,2)
 +344     ;;=^5014630
 +345     ;;^UTILITY(U,$J,358.3,13810,0)
 +346     ;;=N73.9^^53^590^108
 +347     ;;^UTILITY(U,$J,358.3,13810,1,0)
 +348     ;;=^358.31IA^4^2
 +349     ;;^UTILITY(U,$J,358.3,13810,1,3,0)
 +350     ;;=3^Pelvic Inflammatory Disease
 +351     ;;^UTILITY(U,$J,358.3,13810,1,4,0)
 +352     ;;=4^N73.9
 +353     ;;^UTILITY(U,$J,358.3,13810,2)
 +354     ;;=^5015820
 +355     ;;^UTILITY(U,$J,358.3,13811,0)
 +356     ;;=K65.2^^53^590^109
 +357     ;;^UTILITY(U,$J,358.3,13811,1,0)
 +358     ;;=^358.31IA^4^2
 +359     ;;^UTILITY(U,$J,358.3,13811,1,3,0)
 +360     ;;=3^Peritonitis, bacterial
 +361     ;;^UTILITY(U,$J,358.3,13811,1,4,0)
 +362     ;;=4^K65.2
 +363     ;;^UTILITY(U,$J,358.3,13811,2)
 +364     ;;=^332801
 +365     ;;^UTILITY(U,$J,358.3,13812,0)
 +366     ;;=J18.9^^53^590^116
 +367     ;;^UTILITY(U,$J,358.3,13812,1,0)
 +368     ;;=^358.31IA^4^2
 +369     ;;^UTILITY(U,$J,358.3,13812,1,3,0)
 +370     ;;=3^Pneumonia, NOS
 +371     ;;^UTILITY(U,$J,358.3,13812,1,4,0)
 +372     ;;=4^J18.9
 +373     ;;^UTILITY(U,$J,358.3,13812,2)
 +374     ;;=^95632
 +375     ;;^UTILITY(U,$J,358.3,13813,0)
 +376     ;;=J13.^^53^590^117
 +377     ;;^UTILITY(U,$J,358.3,13813,1,0)
 +378     ;;=^358.31IA^4^2
 +379     ;;^UTILITY(U,$J,358.3,13813,1,3,0)
 +380     ;;=3^Pneumonia, Streptococcus pneumoniae
 +381     ;;^UTILITY(U,$J,358.3,13813,1,4,0)
 +382     ;;=4^J13.
 +383     ;;^UTILITY(U,$J,358.3,13813,2)
 +384     ;;=^5008170
 +385     ;;^UTILITY(U,$J,358.3,13814,0)
 +386     ;;=J15.7^^53^590^115
 +387     ;;^UTILITY(U,$J,358.3,13814,1,0)
 +388     ;;=^358.31IA^4^2
 +389     ;;^UTILITY(U,$J,358.3,13814,1,3,0)
 +390     ;;=3^Pneumonia, Mycoplasma
 +391     ;;^UTILITY(U,$J,358.3,13814,1,4,0)
 +392     ;;=4^J15.7
 +393     ;;^UTILITY(U,$J,358.3,13814,2)
 +394     ;;=^5008177
 +395     ;;^UTILITY(U,$J,358.3,13815,0)
 +396     ;;=J16.0^^53^590^114
 +397     ;;^UTILITY(U,$J,358.3,13815,1,0)
 +398     ;;=^358.31IA^4^2
 +399     ;;^UTILITY(U,$J,358.3,13815,1,3,0)
 +400     ;;=3^Pneumonia, Chlamydia/Chlamydophila
 +401     ;;^UTILITY(U,$J,358.3,13815,1,4,0)
 +402     ;;=4^J16.0
 +403     ;;^UTILITY(U,$J,358.3,13815,2)
 +404     ;;=^5008179
 +405     ;;^UTILITY(U,$J,358.3,13816,0)
 +406     ;;=R76.11^^53^590^122
 +407     ;;^UTILITY(U,$J,358.3,13816,1,0)
 +408     ;;=^358.31IA^4^2
 +409     ;;^UTILITY(U,$J,358.3,13816,1,3,0)
 +410     ;;=3^Positive PPD/Tuberculin skin test
 +411     ;;^UTILITY(U,$J,358.3,13816,1,4,0)
 +412     ;;=4^R76.11
 +413     ;;^UTILITY(U,$J,358.3,13816,2)
 +414     ;;=^5019570
 +415     ;;^UTILITY(U,$J,358.3,13817,0)
 +416     ;;=R76.12^^53^590^121
 +417     ;;^UTILITY(U,$J,358.3,13817,1,0)
 +418     ;;=^358.31IA^4^2
 +419     ;;^UTILITY(U,$J,358.3,13817,1,3,0)
 +420     ;;=3^Positive IGRA test for tuberculosis
 +421     ;;^UTILITY(U,$J,358.3,13817,1,4,0)
 +422     ;;=4^R76.12
 +423     ;;^UTILITY(U,$J,358.3,13817,2)
 +424     ;;=^5019571
 +425     ;;^UTILITY(U,$J,358.3,13818,0)
 +426     ;;=R76.8^^53^590^123
 +427     ;;^UTILITY(U,$J,358.3,13818,1,0)
 +428     ;;=^358.31IA^4^2
 +429     ;;^UTILITY(U,$J,358.3,13818,1,3,0)
 +430     ;;=3^Positive RPR
 +431     ;;^UTILITY(U,$J,358.3,13818,1,4,0)
 +432     ;;=4^R76.8
 +433     ;;^UTILITY(U,$J,358.3,13818,2)
 +434     ;;=^5019572
 +435     ;;^UTILITY(U,$J,358.3,13819,0)
 +436     ;;=T84.53XA^^53^590^124
 +437     ;;^UTILITY(U,$J,358.3,13819,1,0)
 +438     ;;=^358.31IA^4^2
 +439     ;;^UTILITY(U,$J,358.3,13819,1,3,0)
 +440     ;;=3^Prosthetic Right Knee Joint Infection,Init Encntr
 +441     ;;^UTILITY(U,$J,358.3,13819,1,4,0)
 +442     ;;=4^T84.53XA
 +443     ;;^UTILITY(U,$J,358.3,13819,2)
 +444     ;;=^5055391
 +445     ;;^UTILITY(U,$J,358.3,13820,0)
 +446     ;;=T84.59XA^^53^590^125
 +447     ;;^UTILITY(U,$J,358.3,13820,1,0)
 +448     ;;=^358.31IA^4^2
 +449     ;;^UTILITY(U,$J,358.3,13820,1,3,0)
 +450     ;;=3^Prosthetic Shoulder Joint Infection,Init Encntr
 +451     ;;^UTILITY(U,$J,358.3,13820,1,4,0)
 +452     ;;=4^T84.59XA
 +453     ;;^UTILITY(U,$J,358.3,13820,2)
 +454     ;;=^5055397
 +455     ;;^UTILITY(U,$J,358.3,13821,0)
 +456     ;;=N12.^^53^590^128
 +457     ;;^UTILITY(U,$J,358.3,13821,1,0)
 +458     ;;=^358.31IA^4^2
 +459     ;;^UTILITY(U,$J,358.3,13821,1,3,0)
 +460     ;;=3^Pyelonephritis
 +461     ;;^UTILITY(U,$J,358.3,13821,1,4,0)
 +462     ;;=4^N12.
 +463     ;;^UTILITY(U,$J,358.3,13821,2)
 +464     ;;=^5015575
 +465     ;;^UTILITY(U,$J,358.3,13822,0)
 +466     ;;=J30.9^^53^590^129
 +467     ;;^UTILITY(U,$J,358.3,13822,1,0)
 +468     ;;=^358.31IA^4^2
 +469     ;;^UTILITY(U,$J,358.3,13822,1,3,0)
 +470     ;;=3^Rhinitis, allergic
 +471     ;;^UTILITY(U,$J,358.3,13822,1,4,0)
 +472     ;;=4^J30.9
 +473     ;;^UTILITY(U,$J,358.3,13822,2)
 +474     ;;=^5008205
 +475     ;;^UTILITY(U,$J,358.3,13823,0)
 +476     ;;=B86.^^53^590^131
 +477     ;;^UTILITY(U,$J,358.3,13823,1,0)
 +478     ;;=^358.31IA^4^2
 +479     ;;^UTILITY(U,$J,358.3,13823,1,3,0)
 +480     ;;=3^Scabies
 +481     ;;^UTILITY(U,$J,358.3,13823,1,4,0)
 +482     ;;=4^B86.
 +483     ;;^UTILITY(U,$J,358.3,13823,2)
 +484     ;;=^108096
 +485     ;;^UTILITY(U,$J,358.3,13824,0)
 +486     ;;=M00.9^^53^590^139
 +487     ;;^UTILITY(U,$J,358.3,13824,1,0)
 +488     ;;=^358.31IA^4^2
 +489     ;;^UTILITY(U,$J,358.3,13824,1,3,0)
 +490     ;;=3^Septic Joint/Arthritis
 +491     ;;^UTILITY(U,$J,358.3,13824,1,4,0)
 +492     ;;=4^M00.9
 +493     ;;^UTILITY(U,$J,358.3,13824,2)
 +494     ;;=^5009693
 +495     ;;^UTILITY(U,$J,358.3,13825,0)
 +496     ;;=B02.9^^53^590^144
 +497     ;;^UTILITY(U,$J,358.3,13825,1,0)
 +498     ;;=^358.31IA^4^2
 +499     ;;^UTILITY(U,$J,358.3,13825,1,3,0)
 +500     ;;=3^Shingles/zoster
 +501     ;;^UTILITY(U,$J,358.3,13825,1,4,0)
 +502     ;;=4^B02.9
 +503     ;;^UTILITY(U,$J,358.3,13825,2)
 +504     ;;=^5000501
 +505     ;;^UTILITY(U,$J,358.3,13826,0)
 +506     ;;=J01.90^^53^590^145
 +507     ;;^UTILITY(U,$J,358.3,13826,1,0)
 +508     ;;=^358.31IA^4^2
 +509     ;;^UTILITY(U,$J,358.3,13826,1,3,0)
 +510     ;;=3^Sinusitis, acute
 +511     ;;^UTILITY(U,$J,358.3,13826,1,4,0)
 +512     ;;=4^J01.90
 +513     ;;^UTILITY(U,$J,358.3,13826,2)
 +514     ;;=^5008127
 +515     ;;^UTILITY(U,$J,358.3,13827,0)
 +516     ;;=J32.9^^53^590^146
 +517     ;;^UTILITY(U,$J,358.3,13827,1,0)
 +518     ;;=^358.31IA^4^2
 +519     ;;^UTILITY(U,$J,358.3,13827,1,3,0)
 +520     ;;=3^Sinusitis, chronic
 +521     ;;^UTILITY(U,$J,358.3,13827,1,4,0)
 +522     ;;=4^J32.9
 +523     ;;^UTILITY(U,$J,358.3,13827,2)
 +524     ;;=^5008207
 +525     ;;^UTILITY(U,$J,358.3,13828,0)
 +526     ;;=A49.01^^53^590^91
 +527     ;;^UTILITY(U,$J,358.3,13828,1,0)
 +528     ;;=^358.31IA^4^2
 +529     ;;^UTILITY(U,$J,358.3,13828,1,3,0)
 +530     ;;=3^Methicillin Susceptible Staphylococcus Aureus Infection
 +531     ;;^UTILITY(U,$J,358.3,13828,1,4,0)
 +532     ;;=4^A49.01
 +533     ;;^UTILITY(U,$J,358.3,13828,2)
 +534     ;;=^5000235
 +535     ;;^UTILITY(U,$J,358.3,13829,0)
 +536     ;;=R61.^^53^590^159
 +537     ;;^UTILITY(U,$J,358.3,13829,1,0)
 +538     ;;=^358.31IA^4^2
 +539     ;;^UTILITY(U,$J,358.3,13829,1,3,0)
 +540     ;;=3^Sweats/Night Sweats
 +541     ;;^UTILITY(U,$J,358.3,13829,1,4,0)
 +542     ;;=4^R61.
 +543     ;;^UTILITY(U,$J,358.3,13829,2)
 +544     ;;=^331970
 +545     ;;^UTILITY(U,$J,358.3,13830,0)
 +546     ;;=A51.0^^53^590^160
 +547     ;;^UTILITY(U,$J,358.3,13830,1,0)
 +548     ;;=^358.31IA^4^2
 +549     ;;^UTILITY(U,$J,358.3,13830,1,3,0)
 +550     ;;=3^Syphilis genital, primary
 +551     ;;^UTILITY(U,$J,358.3,13830,1,4,0)
 +552     ;;=4^A51.0
 +553     ;;^UTILITY(U,$J,358.3,13830,2)
 +554     ;;=^5000272
 +555     ;;^UTILITY(U,$J,358.3,13831,0)
 +556     ;;=A51.5^^53^590^161
 +557     ;;^UTILITY(U,$J,358.3,13831,1,0)
 +558     ;;=^358.31IA^4^2
 +559     ;;^UTILITY(U,$J,358.3,13831,1,3,0)
 +560     ;;=3^Syphilis,Early Latent
 +561     ;;^UTILITY(U,$J,358.3,13831,1,4,0)
 +562     ;;=4^A51.5
 +563     ;;^UTILITY(U,$J,358.3,13831,2)
 +564     ;;=^266730
 +565     ;;^UTILITY(U,$J,358.3,13832,0)
 +566     ;;=A52.8^^53^590^162
 +567     ;;^UTILITY(U,$J,358.3,13832,1,0)
 +568     ;;=^358.31IA^4^2
 +569     ;;^UTILITY(U,$J,358.3,13832,1,3,0)
 +570     ;;=3^Syphilis,Late Latent
 +571     ;;^UTILITY(U,$J,358.3,13832,1,4,0)
 +572     ;;=4^A52.8
 +573     ;;^UTILITY(U,$J,358.3,13832,2)
 +574     ;;=^266779
 +575     ;;^UTILITY(U,$J,358.3,13833,0)
 +576     ;;=A52.9^^53^590^164
 +577     ;;^UTILITY(U,$J,358.3,13833,1,0)
 +578     ;;=^358.31IA^4^2
 +579     ;;^UTILITY(U,$J,358.3,13833,1,3,0)
 +580     ;;=3^Syphilis,Tertiary
 +581     ;;^UTILITY(U,$J,358.3,13833,1,4,0)
 +582     ;;=4^A52.9
 +583     ;;^UTILITY(U,$J,358.3,13833,2)
 +584     ;;=^5000308
 +585     ;;^UTILITY(U,$J,358.3,13834,0)
 +586     ;;=A52.3^^53^590^163
 +587     ;;^UTILITY(U,$J,358.3,13834,1,0)
 +588     ;;=^358.31IA^4^2
 +589     ;;^UTILITY(U,$J,358.3,13834,1,3,0)
 +590     ;;=3^Syphilis,Neurosyphilis
 +591     ;;^UTILITY(U,$J,358.3,13834,1,4,0)
 +592     ;;=4^A52.3
 +593     ;;^UTILITY(U,$J,358.3,13834,2)
 +594     ;;=^5000298
 +595     ;;^UTILITY(U,$J,358.3,13835,0)
 +596     ;;=J03.90^^53^590^166
 +597     ;;^UTILITY(U,$J,358.3,13835,1,0)
 +598     ;;=^358.31IA^4^2
 +599     ;;^UTILITY(U,$J,358.3,13835,1,3,0)
 +600     ;;=3^Tonsillitis, acute, unspecified
 +601     ;;^UTILITY(U,$J,358.3,13835,1,4,0)
 +602     ;;=4^J03.90
 +603     ;;^UTILITY(U,$J,358.3,13835,2)
 +604     ;;=^5008135
 +605     ;;^UTILITY(U,$J,358.3,13836,0)
 +606     ;;=A15.0^^53^590^170
 +607     ;;^UTILITY(U,$J,358.3,13836,1,0)
 +608     ;;=^358.31IA^4^2
 +609     ;;^UTILITY(U,$J,358.3,13836,1,3,0)
 +610     ;;=3^Tuberculosis, pulmonary
 +611     ;;^UTILITY(U,$J,358.3,13836,1,4,0)
 +612     ;;=4^A15.0
 +613     ;;^UTILITY(U,$J,358.3,13836,2)
 +614     ;;=^5000062
 +615     ;;^UTILITY(U,$J,358.3,13837,0)
 +616     ;;=R76.11^^53^590^169
 +617     ;;^UTILITY(U,$J,358.3,13837,1,0)
 +618     ;;=^358.31IA^4^2
 +619     ;;^UTILITY(U,$J,358.3,13837,1,3,0)
 +620     ;;=3^Tuberculosis, latent
 +621     ;;^UTILITY(U,$J,358.3,13837,1,4,0)
 +622     ;;=4^R76.11
 +623     ;;^UTILITY(U,$J,358.3,13837,2)
 +624     ;;=^5019570
 +625     ;;^UTILITY(U,$J,358.3,13838,0)
 +626     ;;=A15.8^^53^590^168
 +627     ;;^UTILITY(U,$J,358.3,13838,1,0)
 +628     ;;=^358.31IA^4^2
 +629     ;;^UTILITY(U,$J,358.3,13838,1,3,0)
 +630     ;;=3^Tuberculosis NEC
 +631     ;;^UTILITY(U,$J,358.3,13838,1,4,0)
 +632     ;;=4^A15.8
 +633     ;;^UTILITY(U,$J,358.3,13838,2)
 +634     ;;=^266093
 +635     ;;^UTILITY(U,$J,358.3,13839,0)
 +636     ;;=J06.9^^53^590^171
 +637     ;;^UTILITY(U,$J,358.3,13839,1,0)
 +638     ;;=^358.31IA^4^2
 +639     ;;^UTILITY(U,$J,358.3,13839,1,3,0)
 +640     ;;=3^URI/Cold Symptoms
 +641     ;;^UTILITY(U,$J,358.3,13839,1,4,0)
 +642     ;;=4^J06.9
 +643     ;;^UTILITY(U,$J,358.3,13839,2)
 +644     ;;=^5008143
 +645     ;;^UTILITY(U,$J,358.3,13840,0)
 +646     ;;=N34.2^^53^590^176
 +647     ;;^UTILITY(U,$J,358.3,13840,1,0)
 +648     ;;=^358.31IA^4^2
 +649     ;;^UTILITY(U,$J,358.3,13840,1,3,0)
 +650     ;;=3^Urethritis
 +651     ;;^UTILITY(U,$J,358.3,13840,1,4,0)
 +652     ;;=4^N34.2
 +653     ;;^UTILITY(U,$J,358.3,13840,2)
 +654     ;;=^88231
 +655     ;;^UTILITY(U,$J,358.3,13841,0)
 +656     ;;=R63.4^^53^590^179
 +657     ;;^UTILITY(U,$J,358.3,13841,1,0)
 +658     ;;=^358.31IA^4^2
 +659     ;;^UTILITY(U,$J,358.3,13841,1,3,0)
 +660     ;;=3^Weight Loss
 +661     ;;^UTILITY(U,$J,358.3,13841,1,4,0)
 +662     ;;=4^R63.4
 +663     ;;^UTILITY(U,$J,358.3,13841,2)
 +664     ;;=^5019542
 +665     ;;^UTILITY(U,$J,358.3,13842,0)
 +666     ;;=N39.0^^53^590^172
 +667     ;;^UTILITY(U,$J,358.3,13842,1,0)
 +668     ;;=^358.31IA^4^2
 +669     ;;^UTILITY(U,$J,358.3,13842,1,3,0)
 +670     ;;=3^UTI
 +671     ;;^UTILITY(U,$J,358.3,13842,1,4,0)
 +672     ;;=4^N39.0
 +673     ;;^UTILITY(U,$J,358.3,13842,2)
 +674     ;;=^124436
 +675     ;;^UTILITY(U,$J,358.3,13843,0)
 +676     ;;=N30.90^^53^590^29
 +677     ;;^UTILITY(U,$J,358.3,13843,1,0)
 +678     ;;=^358.31IA^4^2
 +679     ;;^UTILITY(U,$J,358.3,13843,1,3,0)
 +680     ;;=3^Cystitis w/o hematuria
 +681     ;;^UTILITY(U,$J,358.3,13843,1,4,0)
 +682     ;;=4^N30.90
 +683     ;;^UTILITY(U,$J,358.3,13843,2)
 +684     ;;=^5015642
 +685     ;;^UTILITY(U,$J,358.3,13844,0)
 +686     ;;=N76.0^^53^590^177
 +687     ;;^UTILITY(U,$J,358.3,13844,1,0)
 +688     ;;=^358.31IA^4^2
 +689     ;;^UTILITY(U,$J,358.3,13844,1,3,0)
 +690     ;;=3^Vaginitis, Unspecified cause, acute
 +691     ;;^UTILITY(U,$J,358.3,13844,1,4,0)
 +692     ;;=4^N76.0
 +693     ;;^UTILITY(U,$J,358.3,13844,2)
 +694     ;;=^5015826
 +695     ;;^UTILITY(U,$J,358.3,13845,0)
 +696     ;;=N76.3^^53^590^157
 +697     ;;^UTILITY(U,$J,358.3,13845,1,0)
 +698     ;;=^358.31IA^4^2
 +699     ;;^UTILITY(U,$J,358.3,13845,1,3,0)
 +700     ;;=3^Subacute and chronic vulvitis
 +701     ;;^UTILITY(U,$J,358.3,13845,1,4,0)
 +702     ;;=4^N76.3
 +703     ;;^UTILITY(U,$J,358.3,13845,2)
 +704     ;;=^5015829
 +705     ;;^UTILITY(U,$J,358.3,13846,0)
 +706     ;;=N76.1^^53^590^156
 +707     ;;^UTILITY(U,$J,358.3,13846,1,0)
 +708     ;;=^358.31IA^4^2