IBDEI0FJ ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
Q:'DIFQR(358.3) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.3,38816,1,4,0)
;;=4^J15.20
;;^UTILITY(U,$J,358.3,38816,2)
;;=^321179
;;^UTILITY(U,$J,358.3,38817,0)
;;=J15.211^^107^1520^9
;;^UTILITY(U,$J,358.3,38817,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38817,1,3,0)
;;=3^Pneumonia d/t Methicillin Suscep Staph
;;^UTILITY(U,$J,358.3,38817,1,4,0)
;;=4^J15.211
;;^UTILITY(U,$J,358.3,38817,2)
;;=^336833
;;^UTILITY(U,$J,358.3,38818,0)
;;=J15.212^^107^1520^8
;;^UTILITY(U,$J,358.3,38818,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38818,1,3,0)
;;=3^Pneumonia d/t Methicillin Resistant Staph Aureus
;;^UTILITY(U,$J,358.3,38818,1,4,0)
;;=4^J15.212
;;^UTILITY(U,$J,358.3,38818,2)
;;=^336602
;;^UTILITY(U,$J,358.3,38819,0)
;;=J15.29^^107^1520^11
;;^UTILITY(U,$J,358.3,38819,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38819,1,3,0)
;;=3^Pneumonia d/t Oth Staph
;;^UTILITY(U,$J,358.3,38819,1,4,0)
;;=4^J15.29
;;^UTILITY(U,$J,358.3,38819,2)
;;=^5008172
;;^UTILITY(U,$J,358.3,38820,0)
;;=J15.3^^107^1520^20
;;^UTILITY(U,$J,358.3,38820,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38820,1,3,0)
;;=3^Pneumonia d/t Streptococcus,Group B
;;^UTILITY(U,$J,358.3,38820,1,4,0)
;;=4^J15.3
;;^UTILITY(U,$J,358.3,38820,2)
;;=^5008173
;;^UTILITY(U,$J,358.3,38821,0)
;;=J15.4^^107^1520^15
;;^UTILITY(U,$J,358.3,38821,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38821,1,3,0)
;;=3^Pneumonia d/t Other Streptococci
;;^UTILITY(U,$J,358.3,38821,1,4,0)
;;=4^J15.4
;;^UTILITY(U,$J,358.3,38821,2)
;;=^5008174
;;^UTILITY(U,$J,358.3,38822,0)
;;=J15.5^^107^1520^5
;;^UTILITY(U,$J,358.3,38822,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38822,1,3,0)
;;=3^Pneumonia d/t Escherichia Coli
;;^UTILITY(U,$J,358.3,38822,1,4,0)
;;=4^J15.5
;;^UTILITY(U,$J,358.3,38822,2)
;;=^5008175
;;^UTILITY(U,$J,358.3,38823,0)
;;=J15.6^^107^1520^12
;;^UTILITY(U,$J,358.3,38823,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38823,1,3,0)
;;=3^Pneumonia d/t Other Aerobic Gram-Neg Bacteria
;;^UTILITY(U,$J,358.3,38823,1,4,0)
;;=4^J15.6
;;^UTILITY(U,$J,358.3,38823,2)
;;=^5008176
;;^UTILITY(U,$J,358.3,38824,0)
;;=J15.7^^107^1520^10
;;^UTILITY(U,$J,358.3,38824,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38824,1,3,0)
;;=3^Pneumonia d/t Mycoplasma Pneumoniae
;;^UTILITY(U,$J,358.3,38824,1,4,0)
;;=4^J15.7
;;^UTILITY(U,$J,358.3,38824,2)
;;=^5008177
;;^UTILITY(U,$J,358.3,38825,0)
;;=J15.8^^107^1520^13
;;^UTILITY(U,$J,358.3,38825,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38825,1,3,0)
;;=3^Pneumonia d/t Other Spec Bacteria
;;^UTILITY(U,$J,358.3,38825,1,4,0)
;;=4^J15.8
;;^UTILITY(U,$J,358.3,38825,2)
;;=^95571
;;^UTILITY(U,$J,358.3,38826,0)
;;=J15.9^^107^1520^22
;;^UTILITY(U,$J,358.3,38826,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38826,1,3,0)
;;=3^Pneumonia,Bacterial,Unspec
;;^UTILITY(U,$J,358.3,38826,1,4,0)
;;=4^J15.9
;;^UTILITY(U,$J,358.3,38826,2)
;;=^5008178
;;^UTILITY(U,$J,358.3,38827,0)
;;=J16.0^^107^1520^23
;;^UTILITY(U,$J,358.3,38827,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38827,1,3,0)
;;=3^Pneumonia,Chlamydial
;;^UTILITY(U,$J,358.3,38827,1,4,0)
;;=4^J16.0
;;^UTILITY(U,$J,358.3,38827,2)
;;=^5008179
;;^UTILITY(U,$J,358.3,38828,0)
;;=J16.8^^107^1520^14
;;^UTILITY(U,$J,358.3,38828,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38828,1,3,0)
;;=3^Pneumonia d/t Other Spec Infectious Organisms
;;^UTILITY(U,$J,358.3,38828,1,4,0)
;;=4^J16.8
;;^UTILITY(U,$J,358.3,38828,2)
;;=^5008180
;;^UTILITY(U,$J,358.3,38829,0)
;;=J17.^^107^1520^21
;;^UTILITY(U,$J,358.3,38829,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38829,1,3,0)
;;=3^Pneumonia in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,38829,1,4,0)
;;=4^J17.
;;^UTILITY(U,$J,358.3,38829,2)
;;=^5008181
;;^UTILITY(U,$J,358.3,38830,0)
;;=J18.0^^107^1520^2
;;^UTILITY(U,$J,358.3,38830,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38830,1,3,0)
;;=3^Bronchopneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,38830,1,4,0)
;;=4^J18.0
;;^UTILITY(U,$J,358.3,38830,2)
;;=^5008182
;;^UTILITY(U,$J,358.3,38831,0)
;;=J18.1^^107^1520^25
;;^UTILITY(U,$J,358.3,38831,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38831,1,3,0)
;;=3^Pneumonia,Lobar,Unspec Organism
;;^UTILITY(U,$J,358.3,38831,1,4,0)
;;=4^J18.1
;;^UTILITY(U,$J,358.3,38831,2)
;;=^5008183
;;^UTILITY(U,$J,358.3,38832,0)
;;=J18.2^^107^1520^24
;;^UTILITY(U,$J,358.3,38832,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38832,1,3,0)
;;=3^Pneumonia,Hypostatic,Unspec Organism
;;^UTILITY(U,$J,358.3,38832,1,4,0)
;;=4^J18.2
;;^UTILITY(U,$J,358.3,38832,2)
;;=^5008184
;;^UTILITY(U,$J,358.3,38833,0)
;;=J18.8^^107^1520^26
;;^UTILITY(U,$J,358.3,38833,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38833,1,3,0)
;;=3^Pneumonia,Oth,Unspec Organism
;;^UTILITY(U,$J,358.3,38833,1,4,0)
;;=4^J18.8
;;^UTILITY(U,$J,358.3,38833,2)
;;=^5008185
;;^UTILITY(U,$J,358.3,38834,0)
;;=J18.9^^107^1520^27
;;^UTILITY(U,$J,358.3,38834,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38834,1,3,0)
;;=3^Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,38834,1,4,0)
;;=4^J18.9
;;^UTILITY(U,$J,358.3,38834,2)
;;=^95632
;;^UTILITY(U,$J,358.3,38835,0)
;;=N39.0^^107^1521^13
;;^UTILITY(U,$J,358.3,38835,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38835,1,3,0)
;;=3^UTI,Site not Spec
;;^UTILITY(U,$J,358.3,38835,1,4,0)
;;=4^N39.0
;;^UTILITY(U,$J,358.3,38835,2)
;;=^124436
;;^UTILITY(U,$J,358.3,38836,0)
;;=N30.01^^107^1521^1
;;^UTILITY(U,$J,358.3,38836,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38836,1,3,0)
;;=3^Acute Cystitis w/ Hematuria
;;^UTILITY(U,$J,358.3,38836,1,4,0)
;;=4^N30.01
;;^UTILITY(U,$J,358.3,38836,2)
;;=^5015633
;;^UTILITY(U,$J,358.3,38837,0)
;;=N30.00^^107^1521^2
;;^UTILITY(U,$J,358.3,38837,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38837,1,3,0)
;;=3^Acute Cystitis w/o Hematuria
;;^UTILITY(U,$J,358.3,38837,1,4,0)
;;=4^N30.00
;;^UTILITY(U,$J,358.3,38837,2)
;;=^5015632
;;^UTILITY(U,$J,358.3,38838,0)
;;=N10.^^107^1521^3
;;^UTILITY(U,$J,358.3,38838,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38838,1,3,0)
;;=3^Acute Tubulo-Interstitial Nephritis
;;^UTILITY(U,$J,358.3,38838,1,4,0)
;;=4^N10.
;;^UTILITY(U,$J,358.3,38838,2)
;;=^5015570
;;^UTILITY(U,$J,358.3,38839,0)
;;=N11.9^^107^1521^4
;;^UTILITY(U,$J,358.3,38839,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38839,1,3,0)
;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
;;^UTILITY(U,$J,358.3,38839,1,4,0)
;;=4^N11.9
;;^UTILITY(U,$J,358.3,38839,2)
;;=^5015574
;;^UTILITY(U,$J,358.3,38840,0)
;;=N30.91^^107^1521^5
;;^UTILITY(U,$J,358.3,38840,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38840,1,3,0)
;;=3^Cystitis,Unspec w/ Hematuria
;;^UTILITY(U,$J,358.3,38840,1,4,0)
;;=4^N30.91
;;^UTILITY(U,$J,358.3,38840,2)
;;=^5015643
;;^UTILITY(U,$J,358.3,38841,0)
;;=N30.90^^107^1521^6
;;^UTILITY(U,$J,358.3,38841,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38841,1,3,0)
;;=3^Cystitis,Unspec w/o Hematuria
;;^UTILITY(U,$J,358.3,38841,1,4,0)
;;=4^N30.90
;;^UTILITY(U,$J,358.3,38841,2)
;;=^5015642
;;^UTILITY(U,$J,358.3,38842,0)
;;=N28.84^^107^1521^7
;;^UTILITY(U,$J,358.3,38842,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38842,1,3,0)
;;=3^Pyelitis Cystica
;;^UTILITY(U,$J,358.3,38842,1,4,0)
;;=4^N28.84
;;^UTILITY(U,$J,358.3,38842,2)
;;=^5015628
;;^UTILITY(U,$J,358.3,38843,0)
;;=N28.85^^107^1521^8
;;^UTILITY(U,$J,358.3,38843,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38843,1,3,0)
;;=3^Pyeloureteritis Cystica
;;^UTILITY(U,$J,358.3,38843,1,4,0)
;;=4^N28.85
;;^UTILITY(U,$J,358.3,38843,2)
;;=^270372
;;^UTILITY(U,$J,358.3,38844,0)
;;=N15.1^^107^1521^9
;;^UTILITY(U,$J,358.3,38844,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38844,1,3,0)
;;=3^Renal & Perinephric Abscess
;;^UTILITY(U,$J,358.3,38844,1,4,0)
;;=4^N15.1
;;^UTILITY(U,$J,358.3,38844,2)
;;=^270371
;;^UTILITY(U,$J,358.3,38845,0)
;;=N16.^^107^1521^10
;;^UTILITY(U,$J,358.3,38845,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38845,1,3,0)
;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
;;^UTILITY(U,$J,358.3,38845,1,4,0)
;;=4^N16.
;;^UTILITY(U,$J,358.3,38845,2)
;;=^5015597
;;^UTILITY(U,$J,358.3,38846,0)
;;=N15.9^^107^1521^11
;;^UTILITY(U,$J,358.3,38846,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38846,1,3,0)
;;=3^Tubulo-Interstitial Disease,Unspec
;;^UTILITY(U,$J,358.3,38846,1,4,0)
;;=4^N15.9
;;^UTILITY(U,$J,358.3,38846,2)
;;=^5015596
;;^UTILITY(U,$J,358.3,38847,0)
;;=N12.^^107^1521^12
;;^UTILITY(U,$J,358.3,38847,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38847,1,3,0)
;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
;;^UTILITY(U,$J,358.3,38847,1,4,0)
;;=4^N12.
;;^UTILITY(U,$J,358.3,38847,2)
;;=^5015575
;;^UTILITY(U,$J,358.3,38848,0)
;;=N28.86^^107^1521^14
;;^UTILITY(U,$J,358.3,38848,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38848,1,3,0)
;;=3^Ureteritis Cystica
;;^UTILITY(U,$J,358.3,38848,1,4,0)
;;=4^N28.86
;;^UTILITY(U,$J,358.3,38848,2)
;;=^5015629
;;^UTILITY(U,$J,358.3,38849,0)
;;=A08.0^^107^1522^6
;;^UTILITY(U,$J,358.3,38849,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38849,1,3,0)
;;=3^Enteritis,Rotaviral
;;^UTILITY(U,$J,358.3,38849,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,38849,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,38850,0)
;;=A08.11^^107^1522^1
;;^UTILITY(U,$J,358.3,38850,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38850,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,38850,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,38850,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,38851,0)
;;=A08.19^^107^1522^2
;;^UTILITY(U,$J,358.3,38851,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38851,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,38851,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,38851,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,38852,0)
;;=A08.2^^107^1522^3
;;^UTILITY(U,$J,358.3,38852,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38852,1,3,0)
;;=3^Enteritis,Adenoviral
;;^UTILITY(U,$J,358.3,38852,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,38852,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,38853,0)
;;=A08.31^^107^1522^5
;;^UTILITY(U,$J,358.3,38853,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38853,1,3,0)
;;=3^Enteritis,Calicivirus
;;^UTILITY(U,$J,358.3,38853,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,38853,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,38854,0)
;;=A08.32^^107^1522^4
;;^UTILITY(U,$J,358.3,38854,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38854,1,3,0)
;;=3^Enteritis,Astrovirus
;;^UTILITY(U,$J,358.3,38854,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,38854,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,38855,0)
;;=A08.4^^107^1522^8
;;^UTILITY(U,$J,358.3,38855,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38855,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,38855,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,38855,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,38856,0)
;;=A08.8^^107^1522^7
;;^UTILITY(U,$J,358.3,38856,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38856,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,38856,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,38856,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,38857,0)
;;=J68.0^^107^1523^2
;;^UTILITY(U,$J,358.3,38857,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38857,1,3,0)
;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
;;^UTILITY(U,$J,358.3,38857,1,4,0)
;;=4^J68.0
;;^UTILITY(U,$J,358.3,38857,2)
;;=^5008281
;;^UTILITY(U,$J,358.3,38858,0)
;;=J69.1^^107^1523^7
;;^UTILITY(U,$J,358.3,38858,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38858,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Oils/Essences
;;^UTILITY(U,$J,358.3,38858,1,4,0)
;;=4^J69.1
;;^UTILITY(U,$J,358.3,38858,2)
;;=^95664
;;^UTILITY(U,$J,358.3,38859,0)
;;=J68.9^^107^1523^9
;;^UTILITY(U,$J,358.3,38859,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38859,1,3,0)
;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,38859,1,4,0)
;;=4^J68.9
;;^UTILITY(U,$J,358.3,38859,2)
;;=^5008287
;;^UTILITY(U,$J,358.3,38860,0)
;;=J84.114^^107^1523^1
;;^UTILITY(U,$J,358.3,38860,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38860,1,3,0)
;;=3^Acute Interstitial Pneumonitis
;;^UTILITY(U,$J,358.3,38860,1,4,0)
;;=4^J84.114
;;^UTILITY(U,$J,358.3,38860,2)
;;=^340536
;;^UTILITY(U,$J,358.3,38861,0)
;;=J84.89^^107^1523^6
;;^UTILITY(U,$J,358.3,38861,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38861,1,3,0)
;;=3^Interstitial Pulmonary Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,38861,1,4,0)
;;=4^J84.89
;;^UTILITY(U,$J,358.3,38861,2)
;;=^5008303
;;^UTILITY(U,$J,358.3,38862,0)
;;=J82.81^^107^1523^5
;;^UTILITY(U,$J,358.3,38862,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38862,1,3,0)
;;=3^Eosinophilic Pneumonia,Chronic
;;^UTILITY(U,$J,358.3,38862,1,4,0)
;;=4^J82.81
;;^UTILITY(U,$J,358.3,38862,2)
;;=^24374
;;^UTILITY(U,$J,358.3,38863,0)
;;=J82.82^^107^1523^4
;;^UTILITY(U,$J,358.3,38863,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38863,1,3,0)
;;=3^Eosinophilic Pneumonia,Acute
;;^UTILITY(U,$J,358.3,38863,1,4,0)
;;=4^J82.82
;;^UTILITY(U,$J,358.3,38863,2)
;;=^5159205
;;^UTILITY(U,$J,358.3,38864,0)
;;=J82.83^^107^1523^3
;;^UTILITY(U,$J,358.3,38864,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38864,1,3,0)
;;=3^Eosinophilic Asthma
;;^UTILITY(U,$J,358.3,38864,1,4,0)
;;=4^J82.83
;;^UTILITY(U,$J,358.3,38864,2)
;;=^5159206
;;^UTILITY(U,$J,358.3,38865,0)
;;=J82.89^^107^1523^8
;;^UTILITY(U,$J,358.3,38865,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38865,1,3,0)
;;=3^Pulmonary Eosinophilia,Other,NEC
;;^UTILITY(U,$J,358.3,38865,1,4,0)
;;=4^J82.89
;;^UTILITY(U,$J,358.3,38865,2)
;;=^5159207
;;^UTILITY(U,$J,358.3,38866,0)
;;=U07.1^^108^1524^1
;;^UTILITY(U,$J,358.3,38866,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38866,1,3,0)
;;=3^Confirmed COVID-19
;;^UTILITY(U,$J,358.3,38866,1,4,0)
;;=4^U07.1
;;^UTILITY(U,$J,358.3,38866,2)
;;=^5159070
;;^UTILITY(U,$J,358.3,38867,0)
;;=U09.9^^108^1524^2
;;^UTILITY(U,$J,358.3,38867,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38867,1,3,0)
;;=3^Post COVID-19 Condition,Unspec
;;^UTILITY(U,$J,358.3,38867,1,4,0)
;;=4^U09.9
;;^UTILITY(U,$J,358.3,38867,2)
;;=^5161298
;;^UTILITY(U,$J,358.3,38868,0)
;;=Z20.822^^108^1525^1
;;^UTILITY(U,$J,358.3,38868,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38868,1,3,0)
;;=3^Contact w/ & Exposure to COVID-19
;;^UTILITY(U,$J,358.3,38868,1,4,0)
;;=4^Z20.822
;;^UTILITY(U,$J,358.3,38868,2)
;;=^5160187
;;^UTILITY(U,$J,358.3,38869,0)
;;=J20.8^^108^1526^1
;;^UTILITY(U,$J,358.3,38869,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38869,1,3,0)
;;=3^Bronchitis,Acute d/t Other Spec Organisms
;;^UTILITY(U,$J,358.3,38869,1,4,0)
;;=4^J20.8
;;^UTILITY(U,$J,358.3,38869,2)
;;=^5008194
;;^UTILITY(U,$J,358.3,38870,0)
;;=J22.^^108^1526^11
;;^UTILITY(U,$J,358.3,38870,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38870,1,3,0)
;;=3^Lower Respiratory Infection,Acute,Unspec
;;^UTILITY(U,$J,358.3,38870,1,4,0)
;;=4^J22.
;;^UTILITY(U,$J,358.3,38870,2)
;;=^5008200
;;^UTILITY(U,$J,358.3,38871,0)
;;=J98.8^^108^1526^15
;;^UTILITY(U,$J,358.3,38871,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38871,1,3,0)
;;=3^Respiratory Disorder,Other Spec
;;^UTILITY(U,$J,358.3,38871,1,4,0)
;;=4^J98.8
;;^UTILITY(U,$J,358.3,38871,2)
;;=^5008365
;;^UTILITY(U,$J,358.3,38872,0)
;;=R50.9^^108^1526^10
;;^UTILITY(U,$J,358.3,38872,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38872,1,3,0)
;;=3^Fever,Unspec
;;^UTILITY(U,$J,358.3,38872,1,4,0)
;;=4^R50.9
;;^UTILITY(U,$J,358.3,38872,2)
;;=^5019512
;;^UTILITY(U,$J,358.3,38873,0)
;;=R06.02^^108^1526^17
;;^UTILITY(U,$J,358.3,38873,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38873,1,3,0)
;;=3^Shortness of Breath
;;^UTILITY(U,$J,358.3,38873,1,4,0)
;;=4^R06.02
;;^UTILITY(U,$J,358.3,38873,2)
;;=^5019181
;;^UTILITY(U,$J,358.3,38874,0)
;;=J40.^^108^1526^2
;;^UTILITY(U,$J,358.3,38874,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38874,1,3,0)
;;=3^Bronchitis,Not Specified as Acute or Chronic
;;^UTILITY(U,$J,358.3,38874,1,4,0)
;;=4^J40.
;;^UTILITY(U,$J,358.3,38874,2)
;;=^17164
;;^UTILITY(U,$J,358.3,38875,0)
;;=J80.^^108^1526^16
;;^UTILITY(U,$J,358.3,38875,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38875,1,3,0)
;;=3^Respiratory Distress Syndrome,Acute
;;^UTILITY(U,$J,358.3,38875,1,4,0)
;;=4^J80.
;;^UTILITY(U,$J,358.3,38875,2)
;;=^5008294
;;^UTILITY(U,$J,358.3,38876,0)
;;=J12.82^^108^1526^14
;;^UTILITY(U,$J,358.3,38876,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38876,1,3,0)
;;=3^Pneumonia d/t COVID-19
;;^UTILITY(U,$J,358.3,38876,1,4,0)
;;=4^J12.82
;;^UTILITY(U,$J,358.3,38876,2)
;;=^5160183
;;^UTILITY(U,$J,358.3,38877,0)
;;=Z86.16^^108^1526^13
;;^UTILITY(U,$J,358.3,38877,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38877,1,3,0)
;;=3^Personal Hx of COVID-19
;;^UTILITY(U,$J,358.3,38877,1,4,0)
;;=4^Z86.16
;;^UTILITY(U,$J,358.3,38877,2)
;;=^5160188
;;^UTILITY(U,$J,358.3,38878,0)
;;=M35.81^^108^1526^12
;;^UTILITY(U,$J,358.3,38878,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38878,1,3,0)
;;=3^Multisystem Inflammatory Syndrome
;;^UTILITY(U,$J,358.3,38878,1,4,0)
;;=4^M35.81
;;^UTILITY(U,$J,358.3,38878,2)
;;=^5160184
;;^UTILITY(U,$J,358.3,38879,0)
;;=M35.89^^108^1526^18
;;^UTILITY(U,$J,358.3,38879,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38879,1,3,0)
;;=3^Systemic Involvement of Connective Tissue,Oth Spec
;;^UTILITY(U,$J,358.3,38879,1,4,0)
;;=4^M35.89
;;^UTILITY(U,$J,358.3,38879,2)
;;=^5160185
;;^UTILITY(U,$J,358.3,38880,0)
;;=R05.9^^108^1526^8
;;^UTILITY(U,$J,358.3,38880,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38880,1,3,0)
;;=3^Cough,Unspec
;;^UTILITY(U,$J,358.3,38880,1,4,0)
;;=4^R05.9
;;^UTILITY(U,$J,358.3,38880,2)
;;=^5161232
;;^UTILITY(U,$J,358.3,38881,0)
;;=R05.1^^108^1526^3
;;^UTILITY(U,$J,358.3,38881,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38881,1,3,0)
;;=3^Cough,Acute
;;^UTILITY(U,$J,358.3,38881,1,4,0)
;;=4^R05.1
;;^UTILITY(U,$J,358.3,38881,2)
;;=^5161227
;;^UTILITY(U,$J,358.3,38882,0)
;;=R05.2^^108^1526^6
;;^UTILITY(U,$J,358.3,38882,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38882,1,3,0)
;;=3^Cough,Subacute
;;^UTILITY(U,$J,358.3,38882,1,4,0)
;;=4^R05.2
;;^UTILITY(U,$J,358.3,38882,2)
;;=^5161228
;;^UTILITY(U,$J,358.3,38883,0)
;;=R05.3^^108^1526^4
;;^UTILITY(U,$J,358.3,38883,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38883,1,3,0)
;;=3^Cough,Chronic
;;^UTILITY(U,$J,358.3,38883,1,4,0)
;;=4^R05.3
;;^UTILITY(U,$J,358.3,38883,2)
;;=^5161229
;;^UTILITY(U,$J,358.3,38884,0)
;;=R05.4^^108^1526^7
;;^UTILITY(U,$J,358.3,38884,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38884,1,3,0)
;;=3^Cough,Syncope
;;^UTILITY(U,$J,358.3,38884,1,4,0)
;;=4^R05.4
;;^UTILITY(U,$J,358.3,38884,2)
;;=^5161230
;;^UTILITY(U,$J,358.3,38885,0)
;;=R05.8^^108^1526^5
;;^UTILITY(U,$J,358.3,38885,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FJ 19753 printed Sep 23, 2025@19:23:40 Page 2
IBDEI0FJ ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,38816,1,4,0)
+2 ;;=4^J15.20
+3 ;;^UTILITY(U,$J,358.3,38816,2)
+4 ;;=^321179
+5 ;;^UTILITY(U,$J,358.3,38817,0)
+6 ;;=J15.211^^107^1520^9
+7 ;;^UTILITY(U,$J,358.3,38817,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,38817,1,3,0)
+10 ;;=3^Pneumonia d/t Methicillin Suscep Staph
+11 ;;^UTILITY(U,$J,358.3,38817,1,4,0)
+12 ;;=4^J15.211
+13 ;;^UTILITY(U,$J,358.3,38817,2)
+14 ;;=^336833
+15 ;;^UTILITY(U,$J,358.3,38818,0)
+16 ;;=J15.212^^107^1520^8
+17 ;;^UTILITY(U,$J,358.3,38818,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,38818,1,3,0)
+20 ;;=3^Pneumonia d/t Methicillin Resistant Staph Aureus
+21 ;;^UTILITY(U,$J,358.3,38818,1,4,0)
+22 ;;=4^J15.212
+23 ;;^UTILITY(U,$J,358.3,38818,2)
+24 ;;=^336602
+25 ;;^UTILITY(U,$J,358.3,38819,0)
+26 ;;=J15.29^^107^1520^11
+27 ;;^UTILITY(U,$J,358.3,38819,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,38819,1,3,0)
+30 ;;=3^Pneumonia d/t Oth Staph
+31 ;;^UTILITY(U,$J,358.3,38819,1,4,0)
+32 ;;=4^J15.29
+33 ;;^UTILITY(U,$J,358.3,38819,2)
+34 ;;=^5008172
+35 ;;^UTILITY(U,$J,358.3,38820,0)
+36 ;;=J15.3^^107^1520^20
+37 ;;^UTILITY(U,$J,358.3,38820,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,38820,1,3,0)
+40 ;;=3^Pneumonia d/t Streptococcus,Group B
+41 ;;^UTILITY(U,$J,358.3,38820,1,4,0)
+42 ;;=4^J15.3
+43 ;;^UTILITY(U,$J,358.3,38820,2)
+44 ;;=^5008173
+45 ;;^UTILITY(U,$J,358.3,38821,0)
+46 ;;=J15.4^^107^1520^15
+47 ;;^UTILITY(U,$J,358.3,38821,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,38821,1,3,0)
+50 ;;=3^Pneumonia d/t Other Streptococci
+51 ;;^UTILITY(U,$J,358.3,38821,1,4,0)
+52 ;;=4^J15.4
+53 ;;^UTILITY(U,$J,358.3,38821,2)
+54 ;;=^5008174
+55 ;;^UTILITY(U,$J,358.3,38822,0)
+56 ;;=J15.5^^107^1520^5
+57 ;;^UTILITY(U,$J,358.3,38822,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,38822,1,3,0)
+60 ;;=3^Pneumonia d/t Escherichia Coli
+61 ;;^UTILITY(U,$J,358.3,38822,1,4,0)
+62 ;;=4^J15.5
+63 ;;^UTILITY(U,$J,358.3,38822,2)
+64 ;;=^5008175
+65 ;;^UTILITY(U,$J,358.3,38823,0)
+66 ;;=J15.6^^107^1520^12
+67 ;;^UTILITY(U,$J,358.3,38823,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,38823,1,3,0)
+70 ;;=3^Pneumonia d/t Other Aerobic Gram-Neg Bacteria
+71 ;;^UTILITY(U,$J,358.3,38823,1,4,0)
+72 ;;=4^J15.6
+73 ;;^UTILITY(U,$J,358.3,38823,2)
+74 ;;=^5008176
+75 ;;^UTILITY(U,$J,358.3,38824,0)
+76 ;;=J15.7^^107^1520^10
+77 ;;^UTILITY(U,$J,358.3,38824,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,38824,1,3,0)
+80 ;;=3^Pneumonia d/t Mycoplasma Pneumoniae
+81 ;;^UTILITY(U,$J,358.3,38824,1,4,0)
+82 ;;=4^J15.7
+83 ;;^UTILITY(U,$J,358.3,38824,2)
+84 ;;=^5008177
+85 ;;^UTILITY(U,$J,358.3,38825,0)
+86 ;;=J15.8^^107^1520^13
+87 ;;^UTILITY(U,$J,358.3,38825,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,38825,1,3,0)
+90 ;;=3^Pneumonia d/t Other Spec Bacteria
+91 ;;^UTILITY(U,$J,358.3,38825,1,4,0)
+92 ;;=4^J15.8
+93 ;;^UTILITY(U,$J,358.3,38825,2)
+94 ;;=^95571
+95 ;;^UTILITY(U,$J,358.3,38826,0)
+96 ;;=J15.9^^107^1520^22
+97 ;;^UTILITY(U,$J,358.3,38826,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,38826,1,3,0)
+100 ;;=3^Pneumonia,Bacterial,Unspec
+101 ;;^UTILITY(U,$J,358.3,38826,1,4,0)
+102 ;;=4^J15.9
+103 ;;^UTILITY(U,$J,358.3,38826,2)
+104 ;;=^5008178
+105 ;;^UTILITY(U,$J,358.3,38827,0)
+106 ;;=J16.0^^107^1520^23
+107 ;;^UTILITY(U,$J,358.3,38827,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,38827,1,3,0)
+110 ;;=3^Pneumonia,Chlamydial
+111 ;;^UTILITY(U,$J,358.3,38827,1,4,0)
+112 ;;=4^J16.0
+113 ;;^UTILITY(U,$J,358.3,38827,2)
+114 ;;=^5008179
+115 ;;^UTILITY(U,$J,358.3,38828,0)
+116 ;;=J16.8^^107^1520^14
+117 ;;^UTILITY(U,$J,358.3,38828,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,38828,1,3,0)
+120 ;;=3^Pneumonia d/t Other Spec Infectious Organisms
+121 ;;^UTILITY(U,$J,358.3,38828,1,4,0)
+122 ;;=4^J16.8
+123 ;;^UTILITY(U,$J,358.3,38828,2)
+124 ;;=^5008180
+125 ;;^UTILITY(U,$J,358.3,38829,0)
+126 ;;=J17.^^107^1520^21
+127 ;;^UTILITY(U,$J,358.3,38829,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,38829,1,3,0)
+130 ;;=3^Pneumonia in Diseases Classified Elsewhere
+131 ;;^UTILITY(U,$J,358.3,38829,1,4,0)
+132 ;;=4^J17.
+133 ;;^UTILITY(U,$J,358.3,38829,2)
+134 ;;=^5008181
+135 ;;^UTILITY(U,$J,358.3,38830,0)
+136 ;;=J18.0^^107^1520^2
+137 ;;^UTILITY(U,$J,358.3,38830,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,38830,1,3,0)
+140 ;;=3^Bronchopneumonia,Unspec Organism
+141 ;;^UTILITY(U,$J,358.3,38830,1,4,0)
+142 ;;=4^J18.0
+143 ;;^UTILITY(U,$J,358.3,38830,2)
+144 ;;=^5008182
+145 ;;^UTILITY(U,$J,358.3,38831,0)
+146 ;;=J18.1^^107^1520^25
+147 ;;^UTILITY(U,$J,358.3,38831,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,38831,1,3,0)
+150 ;;=3^Pneumonia,Lobar,Unspec Organism
+151 ;;^UTILITY(U,$J,358.3,38831,1,4,0)
+152 ;;=4^J18.1
+153 ;;^UTILITY(U,$J,358.3,38831,2)
+154 ;;=^5008183
+155 ;;^UTILITY(U,$J,358.3,38832,0)
+156 ;;=J18.2^^107^1520^24
+157 ;;^UTILITY(U,$J,358.3,38832,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,38832,1,3,0)
+160 ;;=3^Pneumonia,Hypostatic,Unspec Organism
+161 ;;^UTILITY(U,$J,358.3,38832,1,4,0)
+162 ;;=4^J18.2
+163 ;;^UTILITY(U,$J,358.3,38832,2)
+164 ;;=^5008184
+165 ;;^UTILITY(U,$J,358.3,38833,0)
+166 ;;=J18.8^^107^1520^26
+167 ;;^UTILITY(U,$J,358.3,38833,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,38833,1,3,0)
+170 ;;=3^Pneumonia,Oth,Unspec Organism
+171 ;;^UTILITY(U,$J,358.3,38833,1,4,0)
+172 ;;=4^J18.8
+173 ;;^UTILITY(U,$J,358.3,38833,2)
+174 ;;=^5008185
+175 ;;^UTILITY(U,$J,358.3,38834,0)
+176 ;;=J18.9^^107^1520^27
+177 ;;^UTILITY(U,$J,358.3,38834,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,38834,1,3,0)
+180 ;;=3^Pneumonia,Unspec Organism
+181 ;;^UTILITY(U,$J,358.3,38834,1,4,0)
+182 ;;=4^J18.9
+183 ;;^UTILITY(U,$J,358.3,38834,2)
+184 ;;=^95632
+185 ;;^UTILITY(U,$J,358.3,38835,0)
+186 ;;=N39.0^^107^1521^13
+187 ;;^UTILITY(U,$J,358.3,38835,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,38835,1,3,0)
+190 ;;=3^UTI,Site not Spec
+191 ;;^UTILITY(U,$J,358.3,38835,1,4,0)
+192 ;;=4^N39.0
+193 ;;^UTILITY(U,$J,358.3,38835,2)
+194 ;;=^124436
+195 ;;^UTILITY(U,$J,358.3,38836,0)
+196 ;;=N30.01^^107^1521^1
+197 ;;^UTILITY(U,$J,358.3,38836,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,38836,1,3,0)
+200 ;;=3^Acute Cystitis w/ Hematuria
+201 ;;^UTILITY(U,$J,358.3,38836,1,4,0)
+202 ;;=4^N30.01
+203 ;;^UTILITY(U,$J,358.3,38836,2)
+204 ;;=^5015633
+205 ;;^UTILITY(U,$J,358.3,38837,0)
+206 ;;=N30.00^^107^1521^2
+207 ;;^UTILITY(U,$J,358.3,38837,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,38837,1,3,0)
+210 ;;=3^Acute Cystitis w/o Hematuria
+211 ;;^UTILITY(U,$J,358.3,38837,1,4,0)
+212 ;;=4^N30.00
+213 ;;^UTILITY(U,$J,358.3,38837,2)
+214 ;;=^5015632
+215 ;;^UTILITY(U,$J,358.3,38838,0)
+216 ;;=N10.^^107^1521^3
+217 ;;^UTILITY(U,$J,358.3,38838,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,38838,1,3,0)
+220 ;;=3^Acute Tubulo-Interstitial Nephritis
+221 ;;^UTILITY(U,$J,358.3,38838,1,4,0)
+222 ;;=4^N10.
+223 ;;^UTILITY(U,$J,358.3,38838,2)
+224 ;;=^5015570
+225 ;;^UTILITY(U,$J,358.3,38839,0)
+226 ;;=N11.9^^107^1521^4
+227 ;;^UTILITY(U,$J,358.3,38839,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,38839,1,3,0)
+230 ;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
+231 ;;^UTILITY(U,$J,358.3,38839,1,4,0)
+232 ;;=4^N11.9
+233 ;;^UTILITY(U,$J,358.3,38839,2)
+234 ;;=^5015574
+235 ;;^UTILITY(U,$J,358.3,38840,0)
+236 ;;=N30.91^^107^1521^5
+237 ;;^UTILITY(U,$J,358.3,38840,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,38840,1,3,0)
+240 ;;=3^Cystitis,Unspec w/ Hematuria
+241 ;;^UTILITY(U,$J,358.3,38840,1,4,0)
+242 ;;=4^N30.91
+243 ;;^UTILITY(U,$J,358.3,38840,2)
+244 ;;=^5015643
+245 ;;^UTILITY(U,$J,358.3,38841,0)
+246 ;;=N30.90^^107^1521^6
+247 ;;^UTILITY(U,$J,358.3,38841,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,38841,1,3,0)
+250 ;;=3^Cystitis,Unspec w/o Hematuria
+251 ;;^UTILITY(U,$J,358.3,38841,1,4,0)
+252 ;;=4^N30.90
+253 ;;^UTILITY(U,$J,358.3,38841,2)
+254 ;;=^5015642
+255 ;;^UTILITY(U,$J,358.3,38842,0)
+256 ;;=N28.84^^107^1521^7
+257 ;;^UTILITY(U,$J,358.3,38842,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,38842,1,3,0)
+260 ;;=3^Pyelitis Cystica
+261 ;;^UTILITY(U,$J,358.3,38842,1,4,0)
+262 ;;=4^N28.84
+263 ;;^UTILITY(U,$J,358.3,38842,2)
+264 ;;=^5015628
+265 ;;^UTILITY(U,$J,358.3,38843,0)
+266 ;;=N28.85^^107^1521^8
+267 ;;^UTILITY(U,$J,358.3,38843,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,38843,1,3,0)
+270 ;;=3^Pyeloureteritis Cystica
+271 ;;^UTILITY(U,$J,358.3,38843,1,4,0)
+272 ;;=4^N28.85
+273 ;;^UTILITY(U,$J,358.3,38843,2)
+274 ;;=^270372
+275 ;;^UTILITY(U,$J,358.3,38844,0)
+276 ;;=N15.1^^107^1521^9
+277 ;;^UTILITY(U,$J,358.3,38844,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,38844,1,3,0)
+280 ;;=3^Renal & Perinephric Abscess
+281 ;;^UTILITY(U,$J,358.3,38844,1,4,0)
+282 ;;=4^N15.1
+283 ;;^UTILITY(U,$J,358.3,38844,2)
+284 ;;=^270371
+285 ;;^UTILITY(U,$J,358.3,38845,0)
+286 ;;=N16.^^107^1521^10
+287 ;;^UTILITY(U,$J,358.3,38845,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,38845,1,3,0)
+290 ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
+291 ;;^UTILITY(U,$J,358.3,38845,1,4,0)
+292 ;;=4^N16.
+293 ;;^UTILITY(U,$J,358.3,38845,2)
+294 ;;=^5015597
+295 ;;^UTILITY(U,$J,358.3,38846,0)
+296 ;;=N15.9^^107^1521^11
+297 ;;^UTILITY(U,$J,358.3,38846,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,38846,1,3,0)
+300 ;;=3^Tubulo-Interstitial Disease,Unspec
+301 ;;^UTILITY(U,$J,358.3,38846,1,4,0)
+302 ;;=4^N15.9
+303 ;;^UTILITY(U,$J,358.3,38846,2)
+304 ;;=^5015596
+305 ;;^UTILITY(U,$J,358.3,38847,0)
+306 ;;=N12.^^107^1521^12
+307 ;;^UTILITY(U,$J,358.3,38847,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,38847,1,3,0)
+310 ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
+311 ;;^UTILITY(U,$J,358.3,38847,1,4,0)
+312 ;;=4^N12.
+313 ;;^UTILITY(U,$J,358.3,38847,2)
+314 ;;=^5015575
+315 ;;^UTILITY(U,$J,358.3,38848,0)
+316 ;;=N28.86^^107^1521^14
+317 ;;^UTILITY(U,$J,358.3,38848,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,38848,1,3,0)
+320 ;;=3^Ureteritis Cystica
+321 ;;^UTILITY(U,$J,358.3,38848,1,4,0)
+322 ;;=4^N28.86
+323 ;;^UTILITY(U,$J,358.3,38848,2)
+324 ;;=^5015629
+325 ;;^UTILITY(U,$J,358.3,38849,0)
+326 ;;=A08.0^^107^1522^6
+327 ;;^UTILITY(U,$J,358.3,38849,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,38849,1,3,0)
+330 ;;=3^Enteritis,Rotaviral
+331 ;;^UTILITY(U,$J,358.3,38849,1,4,0)
+332 ;;=4^A08.0
+333 ;;^UTILITY(U,$J,358.3,38849,2)
+334 ;;=^5000052
+335 ;;^UTILITY(U,$J,358.3,38850,0)
+336 ;;=A08.11^^107^1522^1
+337 ;;^UTILITY(U,$J,358.3,38850,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,38850,1,3,0)
+340 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+341 ;;^UTILITY(U,$J,358.3,38850,1,4,0)
+342 ;;=4^A08.11
+343 ;;^UTILITY(U,$J,358.3,38850,2)
+344 ;;=^5000053
+345 ;;^UTILITY(U,$J,358.3,38851,0)
+346 ;;=A08.19^^107^1522^2
+347 ;;^UTILITY(U,$J,358.3,38851,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,38851,1,3,0)
+350 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+351 ;;^UTILITY(U,$J,358.3,38851,1,4,0)
+352 ;;=4^A08.19
+353 ;;^UTILITY(U,$J,358.3,38851,2)
+354 ;;=^5000054
+355 ;;^UTILITY(U,$J,358.3,38852,0)
+356 ;;=A08.2^^107^1522^3
+357 ;;^UTILITY(U,$J,358.3,38852,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,38852,1,3,0)
+360 ;;=3^Enteritis,Adenoviral
+361 ;;^UTILITY(U,$J,358.3,38852,1,4,0)
+362 ;;=4^A08.2
+363 ;;^UTILITY(U,$J,358.3,38852,2)
+364 ;;=^5000055
+365 ;;^UTILITY(U,$J,358.3,38853,0)
+366 ;;=A08.31^^107^1522^5
+367 ;;^UTILITY(U,$J,358.3,38853,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,38853,1,3,0)
+370 ;;=3^Enteritis,Calicivirus
+371 ;;^UTILITY(U,$J,358.3,38853,1,4,0)
+372 ;;=4^A08.31
+373 ;;^UTILITY(U,$J,358.3,38853,2)
+374 ;;=^5000056
+375 ;;^UTILITY(U,$J,358.3,38854,0)
+376 ;;=A08.32^^107^1522^4
+377 ;;^UTILITY(U,$J,358.3,38854,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,38854,1,3,0)
+380 ;;=3^Enteritis,Astrovirus
+381 ;;^UTILITY(U,$J,358.3,38854,1,4,0)
+382 ;;=4^A08.32
+383 ;;^UTILITY(U,$J,358.3,38854,2)
+384 ;;=^5000058
+385 ;;^UTILITY(U,$J,358.3,38855,0)
+386 ;;=A08.4^^107^1522^8
+387 ;;^UTILITY(U,$J,358.3,38855,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,38855,1,3,0)
+390 ;;=3^Viral Intestinal Infection,Unspec
+391 ;;^UTILITY(U,$J,358.3,38855,1,4,0)
+392 ;;=4^A08.4
+393 ;;^UTILITY(U,$J,358.3,38855,2)
+394 ;;=^5000059
+395 ;;^UTILITY(U,$J,358.3,38856,0)
+396 ;;=A08.8^^107^1522^7
+397 ;;^UTILITY(U,$J,358.3,38856,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,38856,1,3,0)
+400 ;;=3^Intestinal Infections,Oth Spec
+401 ;;^UTILITY(U,$J,358.3,38856,1,4,0)
+402 ;;=4^A08.8
+403 ;;^UTILITY(U,$J,358.3,38856,2)
+404 ;;=^5000060
+405 ;;^UTILITY(U,$J,358.3,38857,0)
+406 ;;=J68.0^^107^1523^2
+407 ;;^UTILITY(U,$J,358.3,38857,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,38857,1,3,0)
+410 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
+411 ;;^UTILITY(U,$J,358.3,38857,1,4,0)
+412 ;;=4^J68.0
+413 ;;^UTILITY(U,$J,358.3,38857,2)
+414 ;;=^5008281
+415 ;;^UTILITY(U,$J,358.3,38858,0)
+416 ;;=J69.1^^107^1523^7
+417 ;;^UTILITY(U,$J,358.3,38858,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,38858,1,3,0)
+420 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
+421 ;;^UTILITY(U,$J,358.3,38858,1,4,0)
+422 ;;=4^J69.1
+423 ;;^UTILITY(U,$J,358.3,38858,2)
+424 ;;=^95664
+425 ;;^UTILITY(U,$J,358.3,38859,0)
+426 ;;=J68.9^^107^1523^9
+427 ;;^UTILITY(U,$J,358.3,38859,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,38859,1,3,0)
+430 ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
+431 ;;^UTILITY(U,$J,358.3,38859,1,4,0)
+432 ;;=4^J68.9
+433 ;;^UTILITY(U,$J,358.3,38859,2)
+434 ;;=^5008287
+435 ;;^UTILITY(U,$J,358.3,38860,0)
+436 ;;=J84.114^^107^1523^1
+437 ;;^UTILITY(U,$J,358.3,38860,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,38860,1,3,0)
+440 ;;=3^Acute Interstitial Pneumonitis
+441 ;;^UTILITY(U,$J,358.3,38860,1,4,0)
+442 ;;=4^J84.114
+443 ;;^UTILITY(U,$J,358.3,38860,2)
+444 ;;=^340536
+445 ;;^UTILITY(U,$J,358.3,38861,0)
+446 ;;=J84.89^^107^1523^6
+447 ;;^UTILITY(U,$J,358.3,38861,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,38861,1,3,0)
+450 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
+451 ;;^UTILITY(U,$J,358.3,38861,1,4,0)
+452 ;;=4^J84.89
+453 ;;^UTILITY(U,$J,358.3,38861,2)
+454 ;;=^5008303
+455 ;;^UTILITY(U,$J,358.3,38862,0)
+456 ;;=J82.81^^107^1523^5
+457 ;;^UTILITY(U,$J,358.3,38862,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,38862,1,3,0)
+460 ;;=3^Eosinophilic Pneumonia,Chronic
+461 ;;^UTILITY(U,$J,358.3,38862,1,4,0)
+462 ;;=4^J82.81
+463 ;;^UTILITY(U,$J,358.3,38862,2)
+464 ;;=^24374
+465 ;;^UTILITY(U,$J,358.3,38863,0)
+466 ;;=J82.82^^107^1523^4
+467 ;;^UTILITY(U,$J,358.3,38863,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,38863,1,3,0)
+470 ;;=3^Eosinophilic Pneumonia,Acute
+471 ;;^UTILITY(U,$J,358.3,38863,1,4,0)
+472 ;;=4^J82.82
+473 ;;^UTILITY(U,$J,358.3,38863,2)
+474 ;;=^5159205
+475 ;;^UTILITY(U,$J,358.3,38864,0)
+476 ;;=J82.83^^107^1523^3
+477 ;;^UTILITY(U,$J,358.3,38864,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,38864,1,3,0)
+480 ;;=3^Eosinophilic Asthma
+481 ;;^UTILITY(U,$J,358.3,38864,1,4,0)
+482 ;;=4^J82.83
+483 ;;^UTILITY(U,$J,358.3,38864,2)
+484 ;;=^5159206
+485 ;;^UTILITY(U,$J,358.3,38865,0)
+486 ;;=J82.89^^107^1523^8
+487 ;;^UTILITY(U,$J,358.3,38865,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,38865,1,3,0)
+490 ;;=3^Pulmonary Eosinophilia,Other,NEC
+491 ;;^UTILITY(U,$J,358.3,38865,1,4,0)
+492 ;;=4^J82.89
+493 ;;^UTILITY(U,$J,358.3,38865,2)
+494 ;;=^5159207
+495 ;;^UTILITY(U,$J,358.3,38866,0)
+496 ;;=U07.1^^108^1524^1
+497 ;;^UTILITY(U,$J,358.3,38866,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,38866,1,3,0)
+500 ;;=3^Confirmed COVID-19
+501 ;;^UTILITY(U,$J,358.3,38866,1,4,0)
+502 ;;=4^U07.1
+503 ;;^UTILITY(U,$J,358.3,38866,2)
+504 ;;=^5159070
+505 ;;^UTILITY(U,$J,358.3,38867,0)
+506 ;;=U09.9^^108^1524^2
+507 ;;^UTILITY(U,$J,358.3,38867,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,38867,1,3,0)
+510 ;;=3^Post COVID-19 Condition,Unspec
+511 ;;^UTILITY(U,$J,358.3,38867,1,4,0)
+512 ;;=4^U09.9
+513 ;;^UTILITY(U,$J,358.3,38867,2)
+514 ;;=^5161298
+515 ;;^UTILITY(U,$J,358.3,38868,0)
+516 ;;=Z20.822^^108^1525^1
+517 ;;^UTILITY(U,$J,358.3,38868,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,38868,1,3,0)
+520 ;;=3^Contact w/ & Exposure to COVID-19
+521 ;;^UTILITY(U,$J,358.3,38868,1,4,0)
+522 ;;=4^Z20.822
+523 ;;^UTILITY(U,$J,358.3,38868,2)
+524 ;;=^5160187
+525 ;;^UTILITY(U,$J,358.3,38869,0)
+526 ;;=J20.8^^108^1526^1
+527 ;;^UTILITY(U,$J,358.3,38869,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,38869,1,3,0)
+530 ;;=3^Bronchitis,Acute d/t Other Spec Organisms
+531 ;;^UTILITY(U,$J,358.3,38869,1,4,0)
+532 ;;=4^J20.8
+533 ;;^UTILITY(U,$J,358.3,38869,2)
+534 ;;=^5008194
+535 ;;^UTILITY(U,$J,358.3,38870,0)
+536 ;;=J22.^^108^1526^11
+537 ;;^UTILITY(U,$J,358.3,38870,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,38870,1,3,0)
+540 ;;=3^Lower Respiratory Infection,Acute,Unspec
+541 ;;^UTILITY(U,$J,358.3,38870,1,4,0)
+542 ;;=4^J22.
+543 ;;^UTILITY(U,$J,358.3,38870,2)
+544 ;;=^5008200
+545 ;;^UTILITY(U,$J,358.3,38871,0)
+546 ;;=J98.8^^108^1526^15
+547 ;;^UTILITY(U,$J,358.3,38871,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,38871,1,3,0)
+550 ;;=3^Respiratory Disorder,Other Spec
+551 ;;^UTILITY(U,$J,358.3,38871,1,4,0)
+552 ;;=4^J98.8
+553 ;;^UTILITY(U,$J,358.3,38871,2)
+554 ;;=^5008365
+555 ;;^UTILITY(U,$J,358.3,38872,0)
+556 ;;=R50.9^^108^1526^10
+557 ;;^UTILITY(U,$J,358.3,38872,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,38872,1,3,0)
+560 ;;=3^Fever,Unspec
+561 ;;^UTILITY(U,$J,358.3,38872,1,4,0)
+562 ;;=4^R50.9
+563 ;;^UTILITY(U,$J,358.3,38872,2)
+564 ;;=^5019512
+565 ;;^UTILITY(U,$J,358.3,38873,0)
+566 ;;=R06.02^^108^1526^17
+567 ;;^UTILITY(U,$J,358.3,38873,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,38873,1,3,0)
+570 ;;=3^Shortness of Breath
+571 ;;^UTILITY(U,$J,358.3,38873,1,4,0)
+572 ;;=4^R06.02
+573 ;;^UTILITY(U,$J,358.3,38873,2)
+574 ;;=^5019181
+575 ;;^UTILITY(U,$J,358.3,38874,0)
+576 ;;=J40.^^108^1526^2
+577 ;;^UTILITY(U,$J,358.3,38874,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,38874,1,3,0)
+580 ;;=3^Bronchitis,Not Specified as Acute or Chronic
+581 ;;^UTILITY(U,$J,358.3,38874,1,4,0)
+582 ;;=4^J40.
+583 ;;^UTILITY(U,$J,358.3,38874,2)
+584 ;;=^17164
+585 ;;^UTILITY(U,$J,358.3,38875,0)
+586 ;;=J80.^^108^1526^16
+587 ;;^UTILITY(U,$J,358.3,38875,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,38875,1,3,0)
+590 ;;=3^Respiratory Distress Syndrome,Acute
+591 ;;^UTILITY(U,$J,358.3,38875,1,4,0)
+592 ;;=4^J80.
+593 ;;^UTILITY(U,$J,358.3,38875,2)
+594 ;;=^5008294
+595 ;;^UTILITY(U,$J,358.3,38876,0)
+596 ;;=J12.82^^108^1526^14
+597 ;;^UTILITY(U,$J,358.3,38876,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,38876,1,3,0)
+600 ;;=3^Pneumonia d/t COVID-19
+601 ;;^UTILITY(U,$J,358.3,38876,1,4,0)
+602 ;;=4^J12.82
+603 ;;^UTILITY(U,$J,358.3,38876,2)
+604 ;;=^5160183
+605 ;;^UTILITY(U,$J,358.3,38877,0)
+606 ;;=Z86.16^^108^1526^13
+607 ;;^UTILITY(U,$J,358.3,38877,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,38877,1,3,0)
+610 ;;=3^Personal Hx of COVID-19
+611 ;;^UTILITY(U,$J,358.3,38877,1,4,0)
+612 ;;=4^Z86.16
+613 ;;^UTILITY(U,$J,358.3,38877,2)
+614 ;;=^5160188
+615 ;;^UTILITY(U,$J,358.3,38878,0)
+616 ;;=M35.81^^108^1526^12
+617 ;;^UTILITY(U,$J,358.3,38878,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,38878,1,3,0)
+620 ;;=3^Multisystem Inflammatory Syndrome
+621 ;;^UTILITY(U,$J,358.3,38878,1,4,0)
+622 ;;=4^M35.81
+623 ;;^UTILITY(U,$J,358.3,38878,2)
+624 ;;=^5160184
+625 ;;^UTILITY(U,$J,358.3,38879,0)
+626 ;;=M35.89^^108^1526^18
+627 ;;^UTILITY(U,$J,358.3,38879,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,38879,1,3,0)
+630 ;;=3^Systemic Involvement of Connective Tissue,Oth Spec
+631 ;;^UTILITY(U,$J,358.3,38879,1,4,0)
+632 ;;=4^M35.89
+633 ;;^UTILITY(U,$J,358.3,38879,2)
+634 ;;=^5160185
+635 ;;^UTILITY(U,$J,358.3,38880,0)
+636 ;;=R05.9^^108^1526^8
+637 ;;^UTILITY(U,$J,358.3,38880,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,38880,1,3,0)
+640 ;;=3^Cough,Unspec
+641 ;;^UTILITY(U,$J,358.3,38880,1,4,0)
+642 ;;=4^R05.9
+643 ;;^UTILITY(U,$J,358.3,38880,2)
+644 ;;=^5161232
+645 ;;^UTILITY(U,$J,358.3,38881,0)
+646 ;;=R05.1^^108^1526^3
+647 ;;^UTILITY(U,$J,358.3,38881,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,38881,1,3,0)
+650 ;;=3^Cough,Acute
+651 ;;^UTILITY(U,$J,358.3,38881,1,4,0)
+652 ;;=4^R05.1
+653 ;;^UTILITY(U,$J,358.3,38881,2)
+654 ;;=^5161227
+655 ;;^UTILITY(U,$J,358.3,38882,0)
+656 ;;=R05.2^^108^1526^6
+657 ;;^UTILITY(U,$J,358.3,38882,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,38882,1,3,0)
+660 ;;=3^Cough,Subacute
+661 ;;^UTILITY(U,$J,358.3,38882,1,4,0)
+662 ;;=4^R05.2
+663 ;;^UTILITY(U,$J,358.3,38882,2)
+664 ;;=^5161228
+665 ;;^UTILITY(U,$J,358.3,38883,0)
+666 ;;=R05.3^^108^1526^4
+667 ;;^UTILITY(U,$J,358.3,38883,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,38883,1,3,0)
+670 ;;=3^Cough,Chronic
+671 ;;^UTILITY(U,$J,358.3,38883,1,4,0)
+672 ;;=4^R05.3
+673 ;;^UTILITY(U,$J,358.3,38883,2)
+674 ;;=^5161229
+675 ;;^UTILITY(U,$J,358.3,38884,0)
+676 ;;=R05.4^^108^1526^7
+677 ;;^UTILITY(U,$J,358.3,38884,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,38884,1,3,0)
+680 ;;=3^Cough,Syncope
+681 ;;^UTILITY(U,$J,358.3,38884,1,4,0)
+682 ;;=4^R05.4
+683 ;;^UTILITY(U,$J,358.3,38884,2)
+684 ;;=^5161230
+685 ;;^UTILITY(U,$J,358.3,38885,0)
+686 ;;=R05.8^^108^1526^5
+687 ;;^UTILITY(U,$J,358.3,38885,1,0)
+688 ;;=^358.31IA^4^2
