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

IBDEI05P.m

Go to the documentation of this file.
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