IBDEI070 ; ; 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,16996,1,3,0)
;;=3^Isosporiasis
;;^UTILITY(U,$J,358.3,16996,1,4,0)
;;=4^A07.3
;;^UTILITY(U,$J,358.3,16996,2)
;;=^5000050
;;^UTILITY(U,$J,358.3,16997,0)
;;=A07.4^^56^676^8
;;^UTILITY(U,$J,358.3,16997,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16997,1,3,0)
;;=3^Cyclosporiasis
;;^UTILITY(U,$J,358.3,16997,1,4,0)
;;=4^A07.4
;;^UTILITY(U,$J,358.3,16997,2)
;;=^321973
;;^UTILITY(U,$J,358.3,16998,0)
;;=A07.8^^56^676^14
;;^UTILITY(U,$J,358.3,16998,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16998,1,3,0)
;;=3^Protozoal Intestinal Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,16998,1,4,0)
;;=4^A07.8
;;^UTILITY(U,$J,358.3,16998,2)
;;=^265972
;;^UTILITY(U,$J,358.3,16999,0)
;;=A07.9^^56^676^13
;;^UTILITY(U,$J,358.3,16999,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16999,1,3,0)
;;=3^Protozoal Intestinal Disease,Unspec
;;^UTILITY(U,$J,358.3,16999,1,4,0)
;;=4^A07.9
;;^UTILITY(U,$J,358.3,16999,2)
;;=^5000051
;;^UTILITY(U,$J,358.3,17000,0)
;;=A08.0^^56^676^15
;;^UTILITY(U,$J,358.3,17000,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17000,1,3,0)
;;=3^Rotaviral Enteritis
;;^UTILITY(U,$J,358.3,17000,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,17000,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,17001,0)
;;=A08.11^^56^676^1
;;^UTILITY(U,$J,358.3,17001,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17001,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,17001,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,17001,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,17002,0)
;;=A08.19^^56^676^2
;;^UTILITY(U,$J,358.3,17002,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17002,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,17002,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,17002,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,17003,0)
;;=A08.2^^56^676^3
;;^UTILITY(U,$J,358.3,17003,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17003,1,3,0)
;;=3^Adenoviral Enteritis
;;^UTILITY(U,$J,358.3,17003,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,17003,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,17004,0)
;;=A08.31^^56^676^6
;;^UTILITY(U,$J,358.3,17004,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17004,1,3,0)
;;=3^Calicivirus enteritis
;;^UTILITY(U,$J,358.3,17004,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,17004,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,17005,0)
;;=A08.32^^56^676^4
;;^UTILITY(U,$J,358.3,17005,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17005,1,3,0)
;;=3^Astrovirus enteritis
;;^UTILITY(U,$J,358.3,17005,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,17005,2)
;;=^5000057
;;^UTILITY(U,$J,358.3,17006,0)
;;=A08.39^^56^676^16
;;^UTILITY(U,$J,358.3,17006,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17006,1,3,0)
;;=3^Viral Enteritis,Oth
;;^UTILITY(U,$J,358.3,17006,1,4,0)
;;=4^A08.39
;;^UTILITY(U,$J,358.3,17006,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,17007,0)
;;=A08.4^^56^676^17
;;^UTILITY(U,$J,358.3,17007,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17007,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,17007,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,17007,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,17008,0)
;;=A08.8^^56^676^11
;;^UTILITY(U,$J,358.3,17008,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17008,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,17008,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,17008,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,17009,0)
;;=A09.^^56^676^10
;;^UTILITY(U,$J,358.3,17009,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17009,1,3,0)
;;=3^Infectious Gastroenteritis & Colitis,Unspec
;;^UTILITY(U,$J,358.3,17009,1,4,0)
;;=4^A09.
;;^UTILITY(U,$J,358.3,17009,2)
;;=^5000061
;;^UTILITY(U,$J,358.3,17010,0)
;;=J12.0^^56^677^1
;;^UTILITY(U,$J,358.3,17010,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17010,1,3,0)
;;=3^Adenoviral Pneumonia
;;^UTILITY(U,$J,358.3,17010,1,4,0)
;;=4^J12.0
;;^UTILITY(U,$J,358.3,17010,2)
;;=^5008164
;;^UTILITY(U,$J,358.3,17011,0)
;;=J12.1^^56^677^30
;;^UTILITY(U,$J,358.3,17011,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17011,1,3,0)
;;=3^Respiratory Syncytial Virus Pneumonia
;;^UTILITY(U,$J,358.3,17011,1,4,0)
;;=4^J12.1
;;^UTILITY(U,$J,358.3,17011,2)
;;=^5008165
;;^UTILITY(U,$J,358.3,17012,0)
;;=J12.2^^56^677^4
;;^UTILITY(U,$J,358.3,17012,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17012,1,3,0)
;;=3^Parainfluenza Virus Pneumonia
;;^UTILITY(U,$J,358.3,17012,1,4,0)
;;=4^J12.2
;;^UTILITY(U,$J,358.3,17012,2)
;;=^5008166
;;^UTILITY(U,$J,358.3,17013,0)
;;=J12.3^^56^677^3
;;^UTILITY(U,$J,358.3,17013,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17013,1,3,0)
;;=3^Human Metapneumovirus Pneumonia
;;^UTILITY(U,$J,358.3,17013,1,4,0)
;;=4^J12.3
;;^UTILITY(U,$J,358.3,17013,2)
;;=^5008167
;;^UTILITY(U,$J,358.3,17014,0)
;;=J12.81^^56^677^17
;;^UTILITY(U,$J,358.3,17014,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17014,1,3,0)
;;=3^Pneumonia d/t SARS-Associated Coronavirus
;;^UTILITY(U,$J,358.3,17014,1,4,0)
;;=4^J12.81
;;^UTILITY(U,$J,358.3,17014,2)
;;=^329925
;;^UTILITY(U,$J,358.3,17015,0)
;;=J12.89^^56^677^28
;;^UTILITY(U,$J,358.3,17015,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17015,1,3,0)
;;=3^Pneumonia,Viral,Other
;;^UTILITY(U,$J,358.3,17015,1,4,0)
;;=4^J12.89
;;^UTILITY(U,$J,358.3,17015,2)
;;=^5008168
;;^UTILITY(U,$J,358.3,17016,0)
;;=J12.9^^56^677^29
;;^UTILITY(U,$J,358.3,17016,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17016,1,3,0)
;;=3^Pneumonia,Viral,Unspec
;;^UTILITY(U,$J,358.3,17016,1,4,0)
;;=4^J12.9
;;^UTILITY(U,$J,358.3,17016,2)
;;=^5008169
;;^UTILITY(U,$J,358.3,17017,0)
;;=J13.^^56^677^19
;;^UTILITY(U,$J,358.3,17017,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17017,1,3,0)
;;=3^Pneumonia d/t Streptococcus Pneumoniae
;;^UTILITY(U,$J,358.3,17017,1,4,0)
;;=4^J13.
;;^UTILITY(U,$J,358.3,17017,2)
;;=^5008170
;;^UTILITY(U,$J,358.3,17018,0)
;;=J14.^^56^677^6
;;^UTILITY(U,$J,358.3,17018,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17018,1,3,0)
;;=3^Pneumonia d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,17018,1,4,0)
;;=4^J14.
;;^UTILITY(U,$J,358.3,17018,2)
;;=^5008171
;;^UTILITY(U,$J,358.3,17019,0)
;;=J15.0^^56^677^7
;;^UTILITY(U,$J,358.3,17019,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17019,1,3,0)
;;=3^Pneumonia d/t Klebsiella Pneumoniae
;;^UTILITY(U,$J,358.3,17019,1,4,0)
;;=4^J15.0
;;^UTILITY(U,$J,358.3,17019,2)
;;=^269931
;;^UTILITY(U,$J,358.3,17020,0)
;;=J15.1^^56^677^16
;;^UTILITY(U,$J,358.3,17020,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17020,1,3,0)
;;=3^Pneumonia d/t Pseudomonas
;;^UTILITY(U,$J,358.3,17020,1,4,0)
;;=4^J15.1
;;^UTILITY(U,$J,358.3,17020,2)
;;=^269932
;;^UTILITY(U,$J,358.3,17021,0)
;;=J15.20^^56^677^18
;;^UTILITY(U,$J,358.3,17021,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17021,1,3,0)
;;=3^Pneumonia d/t Staphylococcus,Unspec
;;^UTILITY(U,$J,358.3,17021,1,4,0)
;;=4^J15.20
;;^UTILITY(U,$J,358.3,17021,2)
;;=^321179
;;^UTILITY(U,$J,358.3,17022,0)
;;=J15.211^^56^677^9
;;^UTILITY(U,$J,358.3,17022,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17022,1,3,0)
;;=3^Pneumonia d/t Methicillin Suscep Staph
;;^UTILITY(U,$J,358.3,17022,1,4,0)
;;=4^J15.211
;;^UTILITY(U,$J,358.3,17022,2)
;;=^336833
;;^UTILITY(U,$J,358.3,17023,0)
;;=J15.212^^56^677^8
;;^UTILITY(U,$J,358.3,17023,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17023,1,3,0)
;;=3^Pneumonia d/t Methicillin Resistant Staph Aureus
;;^UTILITY(U,$J,358.3,17023,1,4,0)
;;=4^J15.212
;;^UTILITY(U,$J,358.3,17023,2)
;;=^336602
;;^UTILITY(U,$J,358.3,17024,0)
;;=J15.29^^56^677^11
;;^UTILITY(U,$J,358.3,17024,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17024,1,3,0)
;;=3^Pneumonia d/t Oth Staph
;;^UTILITY(U,$J,358.3,17024,1,4,0)
;;=4^J15.29
;;^UTILITY(U,$J,358.3,17024,2)
;;=^5008172
;;^UTILITY(U,$J,358.3,17025,0)
;;=J15.3^^56^677^20
;;^UTILITY(U,$J,358.3,17025,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17025,1,3,0)
;;=3^Pneumonia d/t Streptococcus,Group B
;;^UTILITY(U,$J,358.3,17025,1,4,0)
;;=4^J15.3
;;^UTILITY(U,$J,358.3,17025,2)
;;=^5008173
;;^UTILITY(U,$J,358.3,17026,0)
;;=J15.4^^56^677^15
;;^UTILITY(U,$J,358.3,17026,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17026,1,3,0)
;;=3^Pneumonia d/t Other Streptococci
;;^UTILITY(U,$J,358.3,17026,1,4,0)
;;=4^J15.4
;;^UTILITY(U,$J,358.3,17026,2)
;;=^5008174
;;^UTILITY(U,$J,358.3,17027,0)
;;=J15.5^^56^677^5
;;^UTILITY(U,$J,358.3,17027,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17027,1,3,0)
;;=3^Pneumonia d/t Escherichia Coli
;;^UTILITY(U,$J,358.3,17027,1,4,0)
;;=4^J15.5
;;^UTILITY(U,$J,358.3,17027,2)
;;=^5008175
;;^UTILITY(U,$J,358.3,17028,0)
;;=J15.6^^56^677^12
;;^UTILITY(U,$J,358.3,17028,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17028,1,3,0)
;;=3^Pneumonia d/t Other Aerobic Gram-Neg Bacteria
;;^UTILITY(U,$J,358.3,17028,1,4,0)
;;=4^J15.6
;;^UTILITY(U,$J,358.3,17028,2)
;;=^5008176
;;^UTILITY(U,$J,358.3,17029,0)
;;=J15.7^^56^677^10
;;^UTILITY(U,$J,358.3,17029,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17029,1,3,0)
;;=3^Pneumonia d/t Mycoplasma Pneumoniae
;;^UTILITY(U,$J,358.3,17029,1,4,0)
;;=4^J15.7
;;^UTILITY(U,$J,358.3,17029,2)
;;=^5008177
;;^UTILITY(U,$J,358.3,17030,0)
;;=J15.8^^56^677^13
;;^UTILITY(U,$J,358.3,17030,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17030,1,3,0)
;;=3^Pneumonia d/t Other Spec Bacteria
;;^UTILITY(U,$J,358.3,17030,1,4,0)
;;=4^J15.8
;;^UTILITY(U,$J,358.3,17030,2)
;;=^95571
;;^UTILITY(U,$J,358.3,17031,0)
;;=J15.9^^56^677^22
;;^UTILITY(U,$J,358.3,17031,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17031,1,3,0)
;;=3^Pneumonia,Bacterial,Unspec
;;^UTILITY(U,$J,358.3,17031,1,4,0)
;;=4^J15.9
;;^UTILITY(U,$J,358.3,17031,2)
;;=^5008178
;;^UTILITY(U,$J,358.3,17032,0)
;;=J16.0^^56^677^23
;;^UTILITY(U,$J,358.3,17032,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17032,1,3,0)
;;=3^Pneumonia,Chlamydial
;;^UTILITY(U,$J,358.3,17032,1,4,0)
;;=4^J16.0
;;^UTILITY(U,$J,358.3,17032,2)
;;=^5008179
;;^UTILITY(U,$J,358.3,17033,0)
;;=J16.8^^56^677^14
;;^UTILITY(U,$J,358.3,17033,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17033,1,3,0)
;;=3^Pneumonia d/t Other Spec Infectious Organisms
;;^UTILITY(U,$J,358.3,17033,1,4,0)
;;=4^J16.8
;;^UTILITY(U,$J,358.3,17033,2)
;;=^5008180
;;^UTILITY(U,$J,358.3,17034,0)
;;=J17.^^56^677^21
;;^UTILITY(U,$J,358.3,17034,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17034,1,3,0)
;;=3^Pneumonia in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,17034,1,4,0)
;;=4^J17.
;;^UTILITY(U,$J,358.3,17034,2)
;;=^5008181
;;^UTILITY(U,$J,358.3,17035,0)
;;=J18.0^^56^677^2
;;^UTILITY(U,$J,358.3,17035,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17035,1,3,0)
;;=3^Bronchopneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,17035,1,4,0)
;;=4^J18.0
;;^UTILITY(U,$J,358.3,17035,2)
;;=^5008182
;;^UTILITY(U,$J,358.3,17036,0)
;;=J18.1^^56^677^25
;;^UTILITY(U,$J,358.3,17036,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17036,1,3,0)
;;=3^Pneumonia,Lobar,Unspec Organism
;;^UTILITY(U,$J,358.3,17036,1,4,0)
;;=4^J18.1
;;^UTILITY(U,$J,358.3,17036,2)
;;=^5008183
;;^UTILITY(U,$J,358.3,17037,0)
;;=J18.2^^56^677^24
;;^UTILITY(U,$J,358.3,17037,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17037,1,3,0)
;;=3^Pneumonia,Hypostatic,Unspec Organism
;;^UTILITY(U,$J,358.3,17037,1,4,0)
;;=4^J18.2
;;^UTILITY(U,$J,358.3,17037,2)
;;=^5008184
;;^UTILITY(U,$J,358.3,17038,0)
;;=J18.8^^56^677^26
;;^UTILITY(U,$J,358.3,17038,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17038,1,3,0)
;;=3^Pneumonia,Oth,Unspec Organism
;;^UTILITY(U,$J,358.3,17038,1,4,0)
;;=4^J18.8
;;^UTILITY(U,$J,358.3,17038,2)
;;=^5008185
;;^UTILITY(U,$J,358.3,17039,0)
;;=J18.9^^56^677^27
;;^UTILITY(U,$J,358.3,17039,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17039,1,3,0)
;;=3^Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,17039,1,4,0)
;;=4^J18.9
;;^UTILITY(U,$J,358.3,17039,2)
;;=^95632
;;^UTILITY(U,$J,358.3,17040,0)
;;=N39.0^^56^678^13
;;^UTILITY(U,$J,358.3,17040,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17040,1,3,0)
;;=3^UTI,Site not Spec
;;^UTILITY(U,$J,358.3,17040,1,4,0)
;;=4^N39.0
;;^UTILITY(U,$J,358.3,17040,2)
;;=^124436
;;^UTILITY(U,$J,358.3,17041,0)
;;=N30.01^^56^678^1
;;^UTILITY(U,$J,358.3,17041,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17041,1,3,0)
;;=3^Acute Cystitis w/ Hematuria
;;^UTILITY(U,$J,358.3,17041,1,4,0)
;;=4^N30.01
;;^UTILITY(U,$J,358.3,17041,2)
;;=^5015633
;;^UTILITY(U,$J,358.3,17042,0)
;;=N30.00^^56^678^2
;;^UTILITY(U,$J,358.3,17042,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17042,1,3,0)
;;=3^Acute Cystitis w/o Hematuria
;;^UTILITY(U,$J,358.3,17042,1,4,0)
;;=4^N30.00
;;^UTILITY(U,$J,358.3,17042,2)
;;=^5015632
;;^UTILITY(U,$J,358.3,17043,0)
;;=N10.^^56^678^3
;;^UTILITY(U,$J,358.3,17043,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17043,1,3,0)
;;=3^Acute Tubulo-Interstitial Nephritis
;;^UTILITY(U,$J,358.3,17043,1,4,0)
;;=4^N10.
;;^UTILITY(U,$J,358.3,17043,2)
;;=^5015570
;;^UTILITY(U,$J,358.3,17044,0)
;;=N11.9^^56^678^4
;;^UTILITY(U,$J,358.3,17044,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17044,1,3,0)
;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
;;^UTILITY(U,$J,358.3,17044,1,4,0)
;;=4^N11.9
;;^UTILITY(U,$J,358.3,17044,2)
;;=^5015574
;;^UTILITY(U,$J,358.3,17045,0)
;;=N30.91^^56^678^5
;;^UTILITY(U,$J,358.3,17045,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17045,1,3,0)
;;=3^Cystitis,Unspec w/ Hematuria
;;^UTILITY(U,$J,358.3,17045,1,4,0)
;;=4^N30.91
;;^UTILITY(U,$J,358.3,17045,2)
;;=^5015643
;;^UTILITY(U,$J,358.3,17046,0)
;;=N30.90^^56^678^6
;;^UTILITY(U,$J,358.3,17046,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17046,1,3,0)
;;=3^Cystitis,Unspec w/o Hematuria
;;^UTILITY(U,$J,358.3,17046,1,4,0)
;;=4^N30.90
;;^UTILITY(U,$J,358.3,17046,2)
;;=^5015642
;;^UTILITY(U,$J,358.3,17047,0)
;;=N28.84^^56^678^7
;;^UTILITY(U,$J,358.3,17047,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17047,1,3,0)
;;=3^Pyelitis Cystica
;;^UTILITY(U,$J,358.3,17047,1,4,0)
;;=4^N28.84
;;^UTILITY(U,$J,358.3,17047,2)
;;=^5015628
;;^UTILITY(U,$J,358.3,17048,0)
;;=N28.85^^56^678^8
;;^UTILITY(U,$J,358.3,17048,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17048,1,3,0)
;;=3^Pyeloureteritis Cystica
;;^UTILITY(U,$J,358.3,17048,1,4,0)
;;=4^N28.85
;;^UTILITY(U,$J,358.3,17048,2)
;;=^270372
;;^UTILITY(U,$J,358.3,17049,0)
;;=N15.1^^56^678^9
;;^UTILITY(U,$J,358.3,17049,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17049,1,3,0)
;;=3^Renal & Perinephric Abscess
;;^UTILITY(U,$J,358.3,17049,1,4,0)
;;=4^N15.1
;;^UTILITY(U,$J,358.3,17049,2)
;;=^270371
;;^UTILITY(U,$J,358.3,17050,0)
;;=N16.^^56^678^10
;;^UTILITY(U,$J,358.3,17050,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17050,1,3,0)
;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
;;^UTILITY(U,$J,358.3,17050,1,4,0)
;;=4^N16.
;;^UTILITY(U,$J,358.3,17050,2)
;;=^5015597
;;^UTILITY(U,$J,358.3,17051,0)
;;=N15.9^^56^678^11
;;^UTILITY(U,$J,358.3,17051,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17051,1,3,0)
;;=3^Tubulo-Interstitial Disease,Unspec
;;^UTILITY(U,$J,358.3,17051,1,4,0)
;;=4^N15.9
;;^UTILITY(U,$J,358.3,17051,2)
;;=^5015596
;;^UTILITY(U,$J,358.3,17052,0)
;;=N12.^^56^678^12
;;^UTILITY(U,$J,358.3,17052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17052,1,3,0)
;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
;;^UTILITY(U,$J,358.3,17052,1,4,0)
;;=4^N12.
;;^UTILITY(U,$J,358.3,17052,2)
;;=^5015575
;;^UTILITY(U,$J,358.3,17053,0)
;;=N28.86^^56^678^14
;;^UTILITY(U,$J,358.3,17053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17053,1,3,0)
;;=3^Ureteritis Cystica
;;^UTILITY(U,$J,358.3,17053,1,4,0)
;;=4^N28.86
;;^UTILITY(U,$J,358.3,17053,2)
;;=^5015629
;;^UTILITY(U,$J,358.3,17054,0)
;;=A08.0^^56^679^6
;;^UTILITY(U,$J,358.3,17054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17054,1,3,0)
;;=3^Enteritis,Rotaviral
;;^UTILITY(U,$J,358.3,17054,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,17054,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,17055,0)
;;=A08.11^^56^679^1
;;^UTILITY(U,$J,358.3,17055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17055,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,17055,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,17055,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,17056,0)
;;=A08.19^^56^679^2
;;^UTILITY(U,$J,358.3,17056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17056,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,17056,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,17056,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,17057,0)
;;=A08.2^^56^679^3
;;^UTILITY(U,$J,358.3,17057,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17057,1,3,0)
;;=3^Enteritis,Adenoviral
;;^UTILITY(U,$J,358.3,17057,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,17057,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,17058,0)
;;=A08.31^^56^679^5
;;^UTILITY(U,$J,358.3,17058,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17058,1,3,0)
;;=3^Enteritis,Calicivirus
;;^UTILITY(U,$J,358.3,17058,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,17058,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,17059,0)
;;=A08.32^^56^679^4
;;^UTILITY(U,$J,358.3,17059,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17059,1,3,0)
;;=3^Enteritis,Astrovirus
;;^UTILITY(U,$J,358.3,17059,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,17059,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,17060,0)
;;=A08.4^^56^679^8
;;^UTILITY(U,$J,358.3,17060,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17060,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,17060,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,17060,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,17061,0)
;;=A08.8^^56^679^7
;;^UTILITY(U,$J,358.3,17061,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17061,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,17061,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,17061,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,17062,0)
;;=J68.0^^56^680^2
;;^UTILITY(U,$J,358.3,17062,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17062,1,3,0)
;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
;;^UTILITY(U,$J,358.3,17062,1,4,0)
;;=4^J68.0
;;^UTILITY(U,$J,358.3,17062,2)
;;=^5008281
;;^UTILITY(U,$J,358.3,17063,0)
;;=J69.1^^56^680^7
;;^UTILITY(U,$J,358.3,17063,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17063,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Oils/Essences
;;^UTILITY(U,$J,358.3,17063,1,4,0)
;;=4^J69.1
;;^UTILITY(U,$J,358.3,17063,2)
;;=^95664
;;^UTILITY(U,$J,358.3,17064,0)
;;=J68.9^^56^680^9
;;^UTILITY(U,$J,358.3,17064,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17064,1,3,0)
;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,17064,1,4,0)
;;=4^J68.9
;;^UTILITY(U,$J,358.3,17064,2)
;;=^5008287
;;^UTILITY(U,$J,358.3,17065,0)
;;=J84.114^^56^680^1
;;^UTILITY(U,$J,358.3,17065,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI070 19746 printed Sep 23, 2025@19:18:52 Page 2
IBDEI070 ; ; 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,16996,1,3,0)
+2 ;;=3^Isosporiasis
+3 ;;^UTILITY(U,$J,358.3,16996,1,4,0)
+4 ;;=4^A07.3
+5 ;;^UTILITY(U,$J,358.3,16996,2)
+6 ;;=^5000050
+7 ;;^UTILITY(U,$J,358.3,16997,0)
+8 ;;=A07.4^^56^676^8
+9 ;;^UTILITY(U,$J,358.3,16997,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,16997,1,3,0)
+12 ;;=3^Cyclosporiasis
+13 ;;^UTILITY(U,$J,358.3,16997,1,4,0)
+14 ;;=4^A07.4
+15 ;;^UTILITY(U,$J,358.3,16997,2)
+16 ;;=^321973
+17 ;;^UTILITY(U,$J,358.3,16998,0)
+18 ;;=A07.8^^56^676^14
+19 ;;^UTILITY(U,$J,358.3,16998,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,16998,1,3,0)
+22 ;;=3^Protozoal Intestinal Diseases,Oth Spec
+23 ;;^UTILITY(U,$J,358.3,16998,1,4,0)
+24 ;;=4^A07.8
+25 ;;^UTILITY(U,$J,358.3,16998,2)
+26 ;;=^265972
+27 ;;^UTILITY(U,$J,358.3,16999,0)
+28 ;;=A07.9^^56^676^13
+29 ;;^UTILITY(U,$J,358.3,16999,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,16999,1,3,0)
+32 ;;=3^Protozoal Intestinal Disease,Unspec
+33 ;;^UTILITY(U,$J,358.3,16999,1,4,0)
+34 ;;=4^A07.9
+35 ;;^UTILITY(U,$J,358.3,16999,2)
+36 ;;=^5000051
+37 ;;^UTILITY(U,$J,358.3,17000,0)
+38 ;;=A08.0^^56^676^15
+39 ;;^UTILITY(U,$J,358.3,17000,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,17000,1,3,0)
+42 ;;=3^Rotaviral Enteritis
+43 ;;^UTILITY(U,$J,358.3,17000,1,4,0)
+44 ;;=4^A08.0
+45 ;;^UTILITY(U,$J,358.3,17000,2)
+46 ;;=^5000052
+47 ;;^UTILITY(U,$J,358.3,17001,0)
+48 ;;=A08.11^^56^676^1
+49 ;;^UTILITY(U,$J,358.3,17001,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,17001,1,3,0)
+52 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+53 ;;^UTILITY(U,$J,358.3,17001,1,4,0)
+54 ;;=4^A08.11
+55 ;;^UTILITY(U,$J,358.3,17001,2)
+56 ;;=^5000053
+57 ;;^UTILITY(U,$J,358.3,17002,0)
+58 ;;=A08.19^^56^676^2
+59 ;;^UTILITY(U,$J,358.3,17002,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,17002,1,3,0)
+62 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+63 ;;^UTILITY(U,$J,358.3,17002,1,4,0)
+64 ;;=4^A08.19
+65 ;;^UTILITY(U,$J,358.3,17002,2)
+66 ;;=^5000054
+67 ;;^UTILITY(U,$J,358.3,17003,0)
+68 ;;=A08.2^^56^676^3
+69 ;;^UTILITY(U,$J,358.3,17003,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,17003,1,3,0)
+72 ;;=3^Adenoviral Enteritis
+73 ;;^UTILITY(U,$J,358.3,17003,1,4,0)
+74 ;;=4^A08.2
+75 ;;^UTILITY(U,$J,358.3,17003,2)
+76 ;;=^5000055
+77 ;;^UTILITY(U,$J,358.3,17004,0)
+78 ;;=A08.31^^56^676^6
+79 ;;^UTILITY(U,$J,358.3,17004,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,17004,1,3,0)
+82 ;;=3^Calicivirus enteritis
+83 ;;^UTILITY(U,$J,358.3,17004,1,4,0)
+84 ;;=4^A08.31
+85 ;;^UTILITY(U,$J,358.3,17004,2)
+86 ;;=^5000056
+87 ;;^UTILITY(U,$J,358.3,17005,0)
+88 ;;=A08.32^^56^676^4
+89 ;;^UTILITY(U,$J,358.3,17005,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,17005,1,3,0)
+92 ;;=3^Astrovirus enteritis
+93 ;;^UTILITY(U,$J,358.3,17005,1,4,0)
+94 ;;=4^A08.32
+95 ;;^UTILITY(U,$J,358.3,17005,2)
+96 ;;=^5000057
+97 ;;^UTILITY(U,$J,358.3,17006,0)
+98 ;;=A08.39^^56^676^16
+99 ;;^UTILITY(U,$J,358.3,17006,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,17006,1,3,0)
+102 ;;=3^Viral Enteritis,Oth
+103 ;;^UTILITY(U,$J,358.3,17006,1,4,0)
+104 ;;=4^A08.39
+105 ;;^UTILITY(U,$J,358.3,17006,2)
+106 ;;=^5000058
+107 ;;^UTILITY(U,$J,358.3,17007,0)
+108 ;;=A08.4^^56^676^17
+109 ;;^UTILITY(U,$J,358.3,17007,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,17007,1,3,0)
+112 ;;=3^Viral Intestinal Infection,Unspec
+113 ;;^UTILITY(U,$J,358.3,17007,1,4,0)
+114 ;;=4^A08.4
+115 ;;^UTILITY(U,$J,358.3,17007,2)
+116 ;;=^5000059
+117 ;;^UTILITY(U,$J,358.3,17008,0)
+118 ;;=A08.8^^56^676^11
+119 ;;^UTILITY(U,$J,358.3,17008,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,17008,1,3,0)
+122 ;;=3^Intestinal Infections,Oth Spec
+123 ;;^UTILITY(U,$J,358.3,17008,1,4,0)
+124 ;;=4^A08.8
+125 ;;^UTILITY(U,$J,358.3,17008,2)
+126 ;;=^5000060
+127 ;;^UTILITY(U,$J,358.3,17009,0)
+128 ;;=A09.^^56^676^10
+129 ;;^UTILITY(U,$J,358.3,17009,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,17009,1,3,0)
+132 ;;=3^Infectious Gastroenteritis & Colitis,Unspec
+133 ;;^UTILITY(U,$J,358.3,17009,1,4,0)
+134 ;;=4^A09.
+135 ;;^UTILITY(U,$J,358.3,17009,2)
+136 ;;=^5000061
+137 ;;^UTILITY(U,$J,358.3,17010,0)
+138 ;;=J12.0^^56^677^1
+139 ;;^UTILITY(U,$J,358.3,17010,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,17010,1,3,0)
+142 ;;=3^Adenoviral Pneumonia
+143 ;;^UTILITY(U,$J,358.3,17010,1,4,0)
+144 ;;=4^J12.0
+145 ;;^UTILITY(U,$J,358.3,17010,2)
+146 ;;=^5008164
+147 ;;^UTILITY(U,$J,358.3,17011,0)
+148 ;;=J12.1^^56^677^30
+149 ;;^UTILITY(U,$J,358.3,17011,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,17011,1,3,0)
+152 ;;=3^Respiratory Syncytial Virus Pneumonia
+153 ;;^UTILITY(U,$J,358.3,17011,1,4,0)
+154 ;;=4^J12.1
+155 ;;^UTILITY(U,$J,358.3,17011,2)
+156 ;;=^5008165
+157 ;;^UTILITY(U,$J,358.3,17012,0)
+158 ;;=J12.2^^56^677^4
+159 ;;^UTILITY(U,$J,358.3,17012,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,17012,1,3,0)
+162 ;;=3^Parainfluenza Virus Pneumonia
+163 ;;^UTILITY(U,$J,358.3,17012,1,4,0)
+164 ;;=4^J12.2
+165 ;;^UTILITY(U,$J,358.3,17012,2)
+166 ;;=^5008166
+167 ;;^UTILITY(U,$J,358.3,17013,0)
+168 ;;=J12.3^^56^677^3
+169 ;;^UTILITY(U,$J,358.3,17013,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,17013,1,3,0)
+172 ;;=3^Human Metapneumovirus Pneumonia
+173 ;;^UTILITY(U,$J,358.3,17013,1,4,0)
+174 ;;=4^J12.3
+175 ;;^UTILITY(U,$J,358.3,17013,2)
+176 ;;=^5008167
+177 ;;^UTILITY(U,$J,358.3,17014,0)
+178 ;;=J12.81^^56^677^17
+179 ;;^UTILITY(U,$J,358.3,17014,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,17014,1,3,0)
+182 ;;=3^Pneumonia d/t SARS-Associated Coronavirus
+183 ;;^UTILITY(U,$J,358.3,17014,1,4,0)
+184 ;;=4^J12.81
+185 ;;^UTILITY(U,$J,358.3,17014,2)
+186 ;;=^329925
+187 ;;^UTILITY(U,$J,358.3,17015,0)
+188 ;;=J12.89^^56^677^28
+189 ;;^UTILITY(U,$J,358.3,17015,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,17015,1,3,0)
+192 ;;=3^Pneumonia,Viral,Other
+193 ;;^UTILITY(U,$J,358.3,17015,1,4,0)
+194 ;;=4^J12.89
+195 ;;^UTILITY(U,$J,358.3,17015,2)
+196 ;;=^5008168
+197 ;;^UTILITY(U,$J,358.3,17016,0)
+198 ;;=J12.9^^56^677^29
+199 ;;^UTILITY(U,$J,358.3,17016,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,17016,1,3,0)
+202 ;;=3^Pneumonia,Viral,Unspec
+203 ;;^UTILITY(U,$J,358.3,17016,1,4,0)
+204 ;;=4^J12.9
+205 ;;^UTILITY(U,$J,358.3,17016,2)
+206 ;;=^5008169
+207 ;;^UTILITY(U,$J,358.3,17017,0)
+208 ;;=J13.^^56^677^19
+209 ;;^UTILITY(U,$J,358.3,17017,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,17017,1,3,0)
+212 ;;=3^Pneumonia d/t Streptococcus Pneumoniae
+213 ;;^UTILITY(U,$J,358.3,17017,1,4,0)
+214 ;;=4^J13.
+215 ;;^UTILITY(U,$J,358.3,17017,2)
+216 ;;=^5008170
+217 ;;^UTILITY(U,$J,358.3,17018,0)
+218 ;;=J14.^^56^677^6
+219 ;;^UTILITY(U,$J,358.3,17018,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,17018,1,3,0)
+222 ;;=3^Pneumonia d/t Hemophilus Influenzae
+223 ;;^UTILITY(U,$J,358.3,17018,1,4,0)
+224 ;;=4^J14.
+225 ;;^UTILITY(U,$J,358.3,17018,2)
+226 ;;=^5008171
+227 ;;^UTILITY(U,$J,358.3,17019,0)
+228 ;;=J15.0^^56^677^7
+229 ;;^UTILITY(U,$J,358.3,17019,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,17019,1,3,0)
+232 ;;=3^Pneumonia d/t Klebsiella Pneumoniae
+233 ;;^UTILITY(U,$J,358.3,17019,1,4,0)
+234 ;;=4^J15.0
+235 ;;^UTILITY(U,$J,358.3,17019,2)
+236 ;;=^269931
+237 ;;^UTILITY(U,$J,358.3,17020,0)
+238 ;;=J15.1^^56^677^16
+239 ;;^UTILITY(U,$J,358.3,17020,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,17020,1,3,0)
+242 ;;=3^Pneumonia d/t Pseudomonas
+243 ;;^UTILITY(U,$J,358.3,17020,1,4,0)
+244 ;;=4^J15.1
+245 ;;^UTILITY(U,$J,358.3,17020,2)
+246 ;;=^269932
+247 ;;^UTILITY(U,$J,358.3,17021,0)
+248 ;;=J15.20^^56^677^18
+249 ;;^UTILITY(U,$J,358.3,17021,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,17021,1,3,0)
+252 ;;=3^Pneumonia d/t Staphylococcus,Unspec
+253 ;;^UTILITY(U,$J,358.3,17021,1,4,0)
+254 ;;=4^J15.20
+255 ;;^UTILITY(U,$J,358.3,17021,2)
+256 ;;=^321179
+257 ;;^UTILITY(U,$J,358.3,17022,0)
+258 ;;=J15.211^^56^677^9
+259 ;;^UTILITY(U,$J,358.3,17022,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,17022,1,3,0)
+262 ;;=3^Pneumonia d/t Methicillin Suscep Staph
+263 ;;^UTILITY(U,$J,358.3,17022,1,4,0)
+264 ;;=4^J15.211
+265 ;;^UTILITY(U,$J,358.3,17022,2)
+266 ;;=^336833
+267 ;;^UTILITY(U,$J,358.3,17023,0)
+268 ;;=J15.212^^56^677^8
+269 ;;^UTILITY(U,$J,358.3,17023,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,17023,1,3,0)
+272 ;;=3^Pneumonia d/t Methicillin Resistant Staph Aureus
+273 ;;^UTILITY(U,$J,358.3,17023,1,4,0)
+274 ;;=4^J15.212
+275 ;;^UTILITY(U,$J,358.3,17023,2)
+276 ;;=^336602
+277 ;;^UTILITY(U,$J,358.3,17024,0)
+278 ;;=J15.29^^56^677^11
+279 ;;^UTILITY(U,$J,358.3,17024,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,17024,1,3,0)
+282 ;;=3^Pneumonia d/t Oth Staph
+283 ;;^UTILITY(U,$J,358.3,17024,1,4,0)
+284 ;;=4^J15.29
+285 ;;^UTILITY(U,$J,358.3,17024,2)
+286 ;;=^5008172
+287 ;;^UTILITY(U,$J,358.3,17025,0)
+288 ;;=J15.3^^56^677^20
+289 ;;^UTILITY(U,$J,358.3,17025,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,17025,1,3,0)
+292 ;;=3^Pneumonia d/t Streptococcus,Group B
+293 ;;^UTILITY(U,$J,358.3,17025,1,4,0)
+294 ;;=4^J15.3
+295 ;;^UTILITY(U,$J,358.3,17025,2)
+296 ;;=^5008173
+297 ;;^UTILITY(U,$J,358.3,17026,0)
+298 ;;=J15.4^^56^677^15
+299 ;;^UTILITY(U,$J,358.3,17026,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,17026,1,3,0)
+302 ;;=3^Pneumonia d/t Other Streptococci
+303 ;;^UTILITY(U,$J,358.3,17026,1,4,0)
+304 ;;=4^J15.4
+305 ;;^UTILITY(U,$J,358.3,17026,2)
+306 ;;=^5008174
+307 ;;^UTILITY(U,$J,358.3,17027,0)
+308 ;;=J15.5^^56^677^5
+309 ;;^UTILITY(U,$J,358.3,17027,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,17027,1,3,0)
+312 ;;=3^Pneumonia d/t Escherichia Coli
+313 ;;^UTILITY(U,$J,358.3,17027,1,4,0)
+314 ;;=4^J15.5
+315 ;;^UTILITY(U,$J,358.3,17027,2)
+316 ;;=^5008175
+317 ;;^UTILITY(U,$J,358.3,17028,0)
+318 ;;=J15.6^^56^677^12
+319 ;;^UTILITY(U,$J,358.3,17028,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,17028,1,3,0)
+322 ;;=3^Pneumonia d/t Other Aerobic Gram-Neg Bacteria
+323 ;;^UTILITY(U,$J,358.3,17028,1,4,0)
+324 ;;=4^J15.6
+325 ;;^UTILITY(U,$J,358.3,17028,2)
+326 ;;=^5008176
+327 ;;^UTILITY(U,$J,358.3,17029,0)
+328 ;;=J15.7^^56^677^10
+329 ;;^UTILITY(U,$J,358.3,17029,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,17029,1,3,0)
+332 ;;=3^Pneumonia d/t Mycoplasma Pneumoniae
+333 ;;^UTILITY(U,$J,358.3,17029,1,4,0)
+334 ;;=4^J15.7
+335 ;;^UTILITY(U,$J,358.3,17029,2)
+336 ;;=^5008177
+337 ;;^UTILITY(U,$J,358.3,17030,0)
+338 ;;=J15.8^^56^677^13
+339 ;;^UTILITY(U,$J,358.3,17030,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,17030,1,3,0)
+342 ;;=3^Pneumonia d/t Other Spec Bacteria
+343 ;;^UTILITY(U,$J,358.3,17030,1,4,0)
+344 ;;=4^J15.8
+345 ;;^UTILITY(U,$J,358.3,17030,2)
+346 ;;=^95571
+347 ;;^UTILITY(U,$J,358.3,17031,0)
+348 ;;=J15.9^^56^677^22
+349 ;;^UTILITY(U,$J,358.3,17031,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,17031,1,3,0)
+352 ;;=3^Pneumonia,Bacterial,Unspec
+353 ;;^UTILITY(U,$J,358.3,17031,1,4,0)
+354 ;;=4^J15.9
+355 ;;^UTILITY(U,$J,358.3,17031,2)
+356 ;;=^5008178
+357 ;;^UTILITY(U,$J,358.3,17032,0)
+358 ;;=J16.0^^56^677^23
+359 ;;^UTILITY(U,$J,358.3,17032,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,17032,1,3,0)
+362 ;;=3^Pneumonia,Chlamydial
+363 ;;^UTILITY(U,$J,358.3,17032,1,4,0)
+364 ;;=4^J16.0
+365 ;;^UTILITY(U,$J,358.3,17032,2)
+366 ;;=^5008179
+367 ;;^UTILITY(U,$J,358.3,17033,0)
+368 ;;=J16.8^^56^677^14
+369 ;;^UTILITY(U,$J,358.3,17033,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,17033,1,3,0)
+372 ;;=3^Pneumonia d/t Other Spec Infectious Organisms
+373 ;;^UTILITY(U,$J,358.3,17033,1,4,0)
+374 ;;=4^J16.8
+375 ;;^UTILITY(U,$J,358.3,17033,2)
+376 ;;=^5008180
+377 ;;^UTILITY(U,$J,358.3,17034,0)
+378 ;;=J17.^^56^677^21
+379 ;;^UTILITY(U,$J,358.3,17034,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,17034,1,3,0)
+382 ;;=3^Pneumonia in Diseases Classified Elsewhere
+383 ;;^UTILITY(U,$J,358.3,17034,1,4,0)
+384 ;;=4^J17.
+385 ;;^UTILITY(U,$J,358.3,17034,2)
+386 ;;=^5008181
+387 ;;^UTILITY(U,$J,358.3,17035,0)
+388 ;;=J18.0^^56^677^2
+389 ;;^UTILITY(U,$J,358.3,17035,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,17035,1,3,0)
+392 ;;=3^Bronchopneumonia,Unspec Organism
+393 ;;^UTILITY(U,$J,358.3,17035,1,4,0)
+394 ;;=4^J18.0
+395 ;;^UTILITY(U,$J,358.3,17035,2)
+396 ;;=^5008182
+397 ;;^UTILITY(U,$J,358.3,17036,0)
+398 ;;=J18.1^^56^677^25
+399 ;;^UTILITY(U,$J,358.3,17036,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,17036,1,3,0)
+402 ;;=3^Pneumonia,Lobar,Unspec Organism
+403 ;;^UTILITY(U,$J,358.3,17036,1,4,0)
+404 ;;=4^J18.1
+405 ;;^UTILITY(U,$J,358.3,17036,2)
+406 ;;=^5008183
+407 ;;^UTILITY(U,$J,358.3,17037,0)
+408 ;;=J18.2^^56^677^24
+409 ;;^UTILITY(U,$J,358.3,17037,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,17037,1,3,0)
+412 ;;=3^Pneumonia,Hypostatic,Unspec Organism
+413 ;;^UTILITY(U,$J,358.3,17037,1,4,0)
+414 ;;=4^J18.2
+415 ;;^UTILITY(U,$J,358.3,17037,2)
+416 ;;=^5008184
+417 ;;^UTILITY(U,$J,358.3,17038,0)
+418 ;;=J18.8^^56^677^26
+419 ;;^UTILITY(U,$J,358.3,17038,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,17038,1,3,0)
+422 ;;=3^Pneumonia,Oth,Unspec Organism
+423 ;;^UTILITY(U,$J,358.3,17038,1,4,0)
+424 ;;=4^J18.8
+425 ;;^UTILITY(U,$J,358.3,17038,2)
+426 ;;=^5008185
+427 ;;^UTILITY(U,$J,358.3,17039,0)
+428 ;;=J18.9^^56^677^27
+429 ;;^UTILITY(U,$J,358.3,17039,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,17039,1,3,0)
+432 ;;=3^Pneumonia,Unspec Organism
+433 ;;^UTILITY(U,$J,358.3,17039,1,4,0)
+434 ;;=4^J18.9
+435 ;;^UTILITY(U,$J,358.3,17039,2)
+436 ;;=^95632
+437 ;;^UTILITY(U,$J,358.3,17040,0)
+438 ;;=N39.0^^56^678^13
+439 ;;^UTILITY(U,$J,358.3,17040,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,17040,1,3,0)
+442 ;;=3^UTI,Site not Spec
+443 ;;^UTILITY(U,$J,358.3,17040,1,4,0)
+444 ;;=4^N39.0
+445 ;;^UTILITY(U,$J,358.3,17040,2)
+446 ;;=^124436
+447 ;;^UTILITY(U,$J,358.3,17041,0)
+448 ;;=N30.01^^56^678^1
+449 ;;^UTILITY(U,$J,358.3,17041,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,17041,1,3,0)
+452 ;;=3^Acute Cystitis w/ Hematuria
+453 ;;^UTILITY(U,$J,358.3,17041,1,4,0)
+454 ;;=4^N30.01
+455 ;;^UTILITY(U,$J,358.3,17041,2)
+456 ;;=^5015633
+457 ;;^UTILITY(U,$J,358.3,17042,0)
+458 ;;=N30.00^^56^678^2
+459 ;;^UTILITY(U,$J,358.3,17042,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,17042,1,3,0)
+462 ;;=3^Acute Cystitis w/o Hematuria
+463 ;;^UTILITY(U,$J,358.3,17042,1,4,0)
+464 ;;=4^N30.00
+465 ;;^UTILITY(U,$J,358.3,17042,2)
+466 ;;=^5015632
+467 ;;^UTILITY(U,$J,358.3,17043,0)
+468 ;;=N10.^^56^678^3
+469 ;;^UTILITY(U,$J,358.3,17043,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,17043,1,3,0)
+472 ;;=3^Acute Tubulo-Interstitial Nephritis
+473 ;;^UTILITY(U,$J,358.3,17043,1,4,0)
+474 ;;=4^N10.
+475 ;;^UTILITY(U,$J,358.3,17043,2)
+476 ;;=^5015570
+477 ;;^UTILITY(U,$J,358.3,17044,0)
+478 ;;=N11.9^^56^678^4
+479 ;;^UTILITY(U,$J,358.3,17044,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,17044,1,3,0)
+482 ;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
+483 ;;^UTILITY(U,$J,358.3,17044,1,4,0)
+484 ;;=4^N11.9
+485 ;;^UTILITY(U,$J,358.3,17044,2)
+486 ;;=^5015574
+487 ;;^UTILITY(U,$J,358.3,17045,0)
+488 ;;=N30.91^^56^678^5
+489 ;;^UTILITY(U,$J,358.3,17045,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,17045,1,3,0)
+492 ;;=3^Cystitis,Unspec w/ Hematuria
+493 ;;^UTILITY(U,$J,358.3,17045,1,4,0)
+494 ;;=4^N30.91
+495 ;;^UTILITY(U,$J,358.3,17045,2)
+496 ;;=^5015643
+497 ;;^UTILITY(U,$J,358.3,17046,0)
+498 ;;=N30.90^^56^678^6
+499 ;;^UTILITY(U,$J,358.3,17046,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,17046,1,3,0)
+502 ;;=3^Cystitis,Unspec w/o Hematuria
+503 ;;^UTILITY(U,$J,358.3,17046,1,4,0)
+504 ;;=4^N30.90
+505 ;;^UTILITY(U,$J,358.3,17046,2)
+506 ;;=^5015642
+507 ;;^UTILITY(U,$J,358.3,17047,0)
+508 ;;=N28.84^^56^678^7
+509 ;;^UTILITY(U,$J,358.3,17047,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,17047,1,3,0)
+512 ;;=3^Pyelitis Cystica
+513 ;;^UTILITY(U,$J,358.3,17047,1,4,0)
+514 ;;=4^N28.84
+515 ;;^UTILITY(U,$J,358.3,17047,2)
+516 ;;=^5015628
+517 ;;^UTILITY(U,$J,358.3,17048,0)
+518 ;;=N28.85^^56^678^8
+519 ;;^UTILITY(U,$J,358.3,17048,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,17048,1,3,0)
+522 ;;=3^Pyeloureteritis Cystica
+523 ;;^UTILITY(U,$J,358.3,17048,1,4,0)
+524 ;;=4^N28.85
+525 ;;^UTILITY(U,$J,358.3,17048,2)
+526 ;;=^270372
+527 ;;^UTILITY(U,$J,358.3,17049,0)
+528 ;;=N15.1^^56^678^9
+529 ;;^UTILITY(U,$J,358.3,17049,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,17049,1,3,0)
+532 ;;=3^Renal & Perinephric Abscess
+533 ;;^UTILITY(U,$J,358.3,17049,1,4,0)
+534 ;;=4^N15.1
+535 ;;^UTILITY(U,$J,358.3,17049,2)
+536 ;;=^270371
+537 ;;^UTILITY(U,$J,358.3,17050,0)
+538 ;;=N16.^^56^678^10
+539 ;;^UTILITY(U,$J,358.3,17050,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,17050,1,3,0)
+542 ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
+543 ;;^UTILITY(U,$J,358.3,17050,1,4,0)
+544 ;;=4^N16.
+545 ;;^UTILITY(U,$J,358.3,17050,2)
+546 ;;=^5015597
+547 ;;^UTILITY(U,$J,358.3,17051,0)
+548 ;;=N15.9^^56^678^11
+549 ;;^UTILITY(U,$J,358.3,17051,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,17051,1,3,0)
+552 ;;=3^Tubulo-Interstitial Disease,Unspec
+553 ;;^UTILITY(U,$J,358.3,17051,1,4,0)
+554 ;;=4^N15.9
+555 ;;^UTILITY(U,$J,358.3,17051,2)
+556 ;;=^5015596
+557 ;;^UTILITY(U,$J,358.3,17052,0)
+558 ;;=N12.^^56^678^12
+559 ;;^UTILITY(U,$J,358.3,17052,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,17052,1,3,0)
+562 ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
+563 ;;^UTILITY(U,$J,358.3,17052,1,4,0)
+564 ;;=4^N12.
+565 ;;^UTILITY(U,$J,358.3,17052,2)
+566 ;;=^5015575
+567 ;;^UTILITY(U,$J,358.3,17053,0)
+568 ;;=N28.86^^56^678^14
+569 ;;^UTILITY(U,$J,358.3,17053,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,17053,1,3,0)
+572 ;;=3^Ureteritis Cystica
+573 ;;^UTILITY(U,$J,358.3,17053,1,4,0)
+574 ;;=4^N28.86
+575 ;;^UTILITY(U,$J,358.3,17053,2)
+576 ;;=^5015629
+577 ;;^UTILITY(U,$J,358.3,17054,0)
+578 ;;=A08.0^^56^679^6
+579 ;;^UTILITY(U,$J,358.3,17054,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,17054,1,3,0)
+582 ;;=3^Enteritis,Rotaviral
+583 ;;^UTILITY(U,$J,358.3,17054,1,4,0)
+584 ;;=4^A08.0
+585 ;;^UTILITY(U,$J,358.3,17054,2)
+586 ;;=^5000052
+587 ;;^UTILITY(U,$J,358.3,17055,0)
+588 ;;=A08.11^^56^679^1
+589 ;;^UTILITY(U,$J,358.3,17055,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,17055,1,3,0)
+592 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+593 ;;^UTILITY(U,$J,358.3,17055,1,4,0)
+594 ;;=4^A08.11
+595 ;;^UTILITY(U,$J,358.3,17055,2)
+596 ;;=^5000053
+597 ;;^UTILITY(U,$J,358.3,17056,0)
+598 ;;=A08.19^^56^679^2
+599 ;;^UTILITY(U,$J,358.3,17056,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,17056,1,3,0)
+602 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+603 ;;^UTILITY(U,$J,358.3,17056,1,4,0)
+604 ;;=4^A08.19
+605 ;;^UTILITY(U,$J,358.3,17056,2)
+606 ;;=^5000054
+607 ;;^UTILITY(U,$J,358.3,17057,0)
+608 ;;=A08.2^^56^679^3
+609 ;;^UTILITY(U,$J,358.3,17057,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,17057,1,3,0)
+612 ;;=3^Enteritis,Adenoviral
+613 ;;^UTILITY(U,$J,358.3,17057,1,4,0)
+614 ;;=4^A08.2
+615 ;;^UTILITY(U,$J,358.3,17057,2)
+616 ;;=^5000055
+617 ;;^UTILITY(U,$J,358.3,17058,0)
+618 ;;=A08.31^^56^679^5
+619 ;;^UTILITY(U,$J,358.3,17058,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,17058,1,3,0)
+622 ;;=3^Enteritis,Calicivirus
+623 ;;^UTILITY(U,$J,358.3,17058,1,4,0)
+624 ;;=4^A08.31
+625 ;;^UTILITY(U,$J,358.3,17058,2)
+626 ;;=^5000056
+627 ;;^UTILITY(U,$J,358.3,17059,0)
+628 ;;=A08.32^^56^679^4
+629 ;;^UTILITY(U,$J,358.3,17059,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,17059,1,3,0)
+632 ;;=3^Enteritis,Astrovirus
+633 ;;^UTILITY(U,$J,358.3,17059,1,4,0)
+634 ;;=4^A08.32
+635 ;;^UTILITY(U,$J,358.3,17059,2)
+636 ;;=^5000058
+637 ;;^UTILITY(U,$J,358.3,17060,0)
+638 ;;=A08.4^^56^679^8
+639 ;;^UTILITY(U,$J,358.3,17060,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,17060,1,3,0)
+642 ;;=3^Viral Intestinal Infection,Unspec
+643 ;;^UTILITY(U,$J,358.3,17060,1,4,0)
+644 ;;=4^A08.4
+645 ;;^UTILITY(U,$J,358.3,17060,2)
+646 ;;=^5000059
+647 ;;^UTILITY(U,$J,358.3,17061,0)
+648 ;;=A08.8^^56^679^7
+649 ;;^UTILITY(U,$J,358.3,17061,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,17061,1,3,0)
+652 ;;=3^Intestinal Infections,Oth Spec
+653 ;;^UTILITY(U,$J,358.3,17061,1,4,0)
+654 ;;=4^A08.8
+655 ;;^UTILITY(U,$J,358.3,17061,2)
+656 ;;=^5000060
+657 ;;^UTILITY(U,$J,358.3,17062,0)
+658 ;;=J68.0^^56^680^2
+659 ;;^UTILITY(U,$J,358.3,17062,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,17062,1,3,0)
+662 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
+663 ;;^UTILITY(U,$J,358.3,17062,1,4,0)
+664 ;;=4^J68.0
+665 ;;^UTILITY(U,$J,358.3,17062,2)
+666 ;;=^5008281
+667 ;;^UTILITY(U,$J,358.3,17063,0)
+668 ;;=J69.1^^56^680^7
+669 ;;^UTILITY(U,$J,358.3,17063,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,17063,1,3,0)
+672 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
+673 ;;^UTILITY(U,$J,358.3,17063,1,4,0)
+674 ;;=4^J69.1
+675 ;;^UTILITY(U,$J,358.3,17063,2)
+676 ;;=^95664
+677 ;;^UTILITY(U,$J,358.3,17064,0)
+678 ;;=J68.9^^56^680^9
+679 ;;^UTILITY(U,$J,358.3,17064,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,17064,1,3,0)
+682 ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
+683 ;;^UTILITY(U,$J,358.3,17064,1,4,0)
+684 ;;=4^J68.9
+685 ;;^UTILITY(U,$J,358.3,17064,2)
+686 ;;=^5008287
+687 ;;^UTILITY(U,$J,358.3,17065,0)
+688 ;;=J84.114^^56^680^1
+689 ;;^UTILITY(U,$J,358.3,17065,1,0)
+690 ;;=^358.31IA^4^2
