IBDEI0BA ; ; 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,27686,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,27686,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,27687,0)
;;=E78.2^^90^1153^34
;;^UTILITY(U,$J,358.3,27687,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27687,1,3,0)
;;=3^Mixed Hyperlipidemia
;;^UTILITY(U,$J,358.3,27687,1,4,0)
;;=4^E78.2
;;^UTILITY(U,$J,358.3,27687,2)
;;=^78424
;;^UTILITY(U,$J,358.3,27688,0)
;;=I48.0^^90^1153^8
;;^UTILITY(U,$J,358.3,27688,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27688,1,3,0)
;;=3^Atrial Fibrillation,Paroxysmal
;;^UTILITY(U,$J,358.3,27688,1,4,0)
;;=4^I48.0
;;^UTILITY(U,$J,358.3,27688,2)
;;=^90473
;;^UTILITY(U,$J,358.3,27689,0)
;;=I48.11^^90^1153^6
;;^UTILITY(U,$J,358.3,27689,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27689,1,3,0)
;;=3^Atrial Fibrillation,Longstanding Persistent
;;^UTILITY(U,$J,358.3,27689,1,4,0)
;;=4^I48.11
;;^UTILITY(U,$J,358.3,27689,2)
;;=^5158046
;;^UTILITY(U,$J,358.3,27690,0)
;;=I48.19^^90^1153^7
;;^UTILITY(U,$J,358.3,27690,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27690,1,3,0)
;;=3^Atrial Fibrillation,Other Persistent
;;^UTILITY(U,$J,358.3,27690,1,4,0)
;;=4^I48.19
;;^UTILITY(U,$J,358.3,27690,2)
;;=^5158047
;;^UTILITY(U,$J,358.3,27691,0)
;;=I48.21^^90^1153^9
;;^UTILITY(U,$J,358.3,27691,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27691,1,3,0)
;;=3^Atrial Fibrillation,Permanent
;;^UTILITY(U,$J,358.3,27691,1,4,0)
;;=4^I48.21
;;^UTILITY(U,$J,358.3,27691,2)
;;=^304710
;;^UTILITY(U,$J,358.3,27692,0)
;;=I48.20^^90^1153^5
;;^UTILITY(U,$J,358.3,27692,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27692,1,3,0)
;;=3^Atrial Fibrillation,Chronic,Unspec
;;^UTILITY(U,$J,358.3,27692,1,4,0)
;;=4^I48.20
;;^UTILITY(U,$J,358.3,27692,2)
;;=^5158048
;;^UTILITY(U,$J,358.3,27693,0)
;;=I48.3^^90^1153^4
;;^UTILITY(U,$J,358.3,27693,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27693,1,3,0)
;;=3^Artrial Flutter,Typical
;;^UTILITY(U,$J,358.3,27693,1,4,0)
;;=4^I48.3
;;^UTILITY(U,$J,358.3,27693,2)
;;=^5007227
;;^UTILITY(U,$J,358.3,27694,0)
;;=I48.4^^90^1153^10
;;^UTILITY(U,$J,358.3,27694,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27694,1,3,0)
;;=3^Atrial Flutter,Atypical
;;^UTILITY(U,$J,358.3,27694,1,4,0)
;;=4^I48.4
;;^UTILITY(U,$J,358.3,27694,2)
;;=^5007228
;;^UTILITY(U,$J,358.3,27695,0)
;;=I25.5^^90^1153^33
;;^UTILITY(U,$J,358.3,27695,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27695,1,3,0)
;;=3^Ischemic Cardiomyopathy
;;^UTILITY(U,$J,358.3,27695,1,4,0)
;;=4^I25.5
;;^UTILITY(U,$J,358.3,27695,2)
;;=^5007115
;;^UTILITY(U,$J,358.3,27696,0)
;;=I50.22^^90^1153^31
;;^UTILITY(U,$J,358.3,27696,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27696,1,3,0)
;;=3^Heart Failure,Congestive,Chronic Systolic
;;^UTILITY(U,$J,358.3,27696,1,4,0)
;;=4^I50.22
;;^UTILITY(U,$J,358.3,27696,2)
;;=^5007241
;;^UTILITY(U,$J,358.3,27697,0)
;;=I50.32^^90^1153^30
;;^UTILITY(U,$J,358.3,27697,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27697,1,3,0)
;;=3^Heart Failure,Congestive,Chronic Diastolic
;;^UTILITY(U,$J,358.3,27697,1,4,0)
;;=4^I50.32
;;^UTILITY(U,$J,358.3,27697,2)
;;=^5007245
;;^UTILITY(U,$J,358.3,27698,0)
;;=F03.90^^90^1153^27
;;^UTILITY(U,$J,358.3,27698,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27698,1,3,0)
;;=3^Dementia w/o Behavioral Disturbance,Unspec
;;^UTILITY(U,$J,358.3,27698,1,4,0)
;;=4^F03.90
;;^UTILITY(U,$J,358.3,27698,2)
;;=^5003050
;;^UTILITY(U,$J,358.3,27699,0)
;;=G30.9^^90^1153^3
;;^UTILITY(U,$J,358.3,27699,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27699,1,3,0)
;;=3^Alzheimer's Disease,Unspec
;;^UTILITY(U,$J,358.3,27699,1,4,0)
;;=4^G30.9
;;^UTILITY(U,$J,358.3,27699,2)
;;=^5003808
;;^UTILITY(U,$J,358.3,27700,0)
;;=K70.30^^90^1153^2
;;^UTILITY(U,$J,358.3,27700,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27700,1,3,0)
;;=3^Alcoholic Cirrhosis of Liver w/o Ascites
;;^UTILITY(U,$J,358.3,27700,1,4,0)
;;=4^K70.30
;;^UTILITY(U,$J,358.3,27700,2)
;;=^5008788
;;^UTILITY(U,$J,358.3,27701,0)
;;=K70.31^^90^1153^1
;;^UTILITY(U,$J,358.3,27701,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27701,1,3,0)
;;=3^Alcoholic Cirrhosis of Liver w/ Ascites
;;^UTILITY(U,$J,358.3,27701,1,4,0)
;;=4^K70.31
;;^UTILITY(U,$J,358.3,27701,2)
;;=^5008789
;;^UTILITY(U,$J,358.3,27702,0)
;;=K74.60^^90^1153^26
;;^UTILITY(U,$J,358.3,27702,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27702,1,3,0)
;;=3^Cirrhosis of Liver,Unspec
;;^UTILITY(U,$J,358.3,27702,1,4,0)
;;=4^K74.60
;;^UTILITY(U,$J,358.3,27702,2)
;;=^5008822
;;^UTILITY(U,$J,358.3,27703,0)
;;=N18.30^^90^1153^20
;;^UTILITY(U,$J,358.3,27703,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27703,1,3,0)
;;=3^Chronic Kidney Disease,Stage 3,Unspec
;;^UTILITY(U,$J,358.3,27703,1,4,0)
;;=4^N18.30
;;^UTILITY(U,$J,358.3,27703,2)
;;=^5159286
;;^UTILITY(U,$J,358.3,27704,0)
;;=N18.31^^90^1153^21
;;^UTILITY(U,$J,358.3,27704,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27704,1,3,0)
;;=3^Chronic Kidney Disease,Stage 3a
;;^UTILITY(U,$J,358.3,27704,1,4,0)
;;=4^N18.31
;;^UTILITY(U,$J,358.3,27704,2)
;;=^5159287
;;^UTILITY(U,$J,358.3,27705,0)
;;=N18.32^^90^1153^22
;;^UTILITY(U,$J,358.3,27705,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27705,1,3,0)
;;=3^Chronic Kidney Disease,Stage 3b
;;^UTILITY(U,$J,358.3,27705,1,4,0)
;;=4^N18.32
;;^UTILITY(U,$J,358.3,27705,2)
;;=^5159288
;;^UTILITY(U,$J,358.3,27706,0)
;;=Z68.1^^90^1153^11
;;^UTILITY(U,$J,358.3,27706,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27706,1,3,0)
;;=3^BMI 19.9 or Less
;;^UTILITY(U,$J,358.3,27706,1,4,0)
;;=4^Z68.1
;;^UTILITY(U,$J,358.3,27706,2)
;;=^5063198
;;^UTILITY(U,$J,358.3,27707,0)
;;=Z68.41^^90^1153^12
;;^UTILITY(U,$J,358.3,27707,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27707,1,3,0)
;;=3^BMI 40.0-44.9
;;^UTILITY(U,$J,358.3,27707,1,4,0)
;;=4^Z68.41
;;^UTILITY(U,$J,358.3,27707,2)
;;=^5063219
;;^UTILITY(U,$J,358.3,27708,0)
;;=Z68.42^^90^1153^13
;;^UTILITY(U,$J,358.3,27708,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27708,1,3,0)
;;=3^BMI 45.0-49.9
;;^UTILITY(U,$J,358.3,27708,1,4,0)
;;=4^Z68.42
;;^UTILITY(U,$J,358.3,27708,2)
;;=^5063220
;;^UTILITY(U,$J,358.3,27709,0)
;;=Z68.43^^90^1153^14
;;^UTILITY(U,$J,358.3,27709,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27709,1,3,0)
;;=3^BMI 50.0-59.9
;;^UTILITY(U,$J,358.3,27709,1,4,0)
;;=4^Z68.43
;;^UTILITY(U,$J,358.3,27709,2)
;;=^5063221
;;^UTILITY(U,$J,358.3,27710,0)
;;=E66.01^^90^1153^36
;;^UTILITY(U,$J,358.3,27710,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27710,1,3,0)
;;=3^Morbid Obesity
;;^UTILITY(U,$J,358.3,27710,1,4,0)
;;=4^E66.01
;;^UTILITY(U,$J,358.3,27710,2)
;;=^5002826
;;^UTILITY(U,$J,358.3,27711,0)
;;=E11.42^^90^1153^44
;;^UTILITY(U,$J,358.3,27711,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27711,1,3,0)
;;=3^Type 2 DM w/ Polyneuropathy
;;^UTILITY(U,$J,358.3,27711,1,4,0)
;;=4^E11.42
;;^UTILITY(U,$J,358.3,27711,2)
;;=^5002646
;;^UTILITY(U,$J,358.3,27712,0)
;;=E11.51^^90^1153^43
;;^UTILITY(U,$J,358.3,27712,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27712,1,3,0)
;;=3^Type 2 DM w/ PVD w/o Gangrene
;;^UTILITY(U,$J,358.3,27712,1,4,0)
;;=4^E11.51
;;^UTILITY(U,$J,358.3,27712,2)
;;=^5002650
;;^UTILITY(U,$J,358.3,27713,0)
;;=E11.52^^90^1153^42
;;^UTILITY(U,$J,358.3,27713,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27713,1,3,0)
;;=3^Type 2 DM w/ PVD w/ Gangrene
;;^UTILITY(U,$J,358.3,27713,1,4,0)
;;=4^E11.52
;;^UTILITY(U,$J,358.3,27713,2)
;;=^5002651
;;^UTILITY(U,$J,358.3,27714,0)
;;=A40.0^^90^1154^1
;;^UTILITY(U,$J,358.3,27714,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27714,1,3,0)
;;=3^Sepsis d/t Streptococcus,Group A
;;^UTILITY(U,$J,358.3,27714,1,4,0)
;;=4^A40.0
;;^UTILITY(U,$J,358.3,27714,2)
;;=^5000196
;;^UTILITY(U,$J,358.3,27715,0)
;;=A40.1^^90^1154^2
;;^UTILITY(U,$J,358.3,27715,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27715,1,3,0)
;;=3^Sepsis d/t Streptococcus,Group B
;;^UTILITY(U,$J,358.3,27715,1,4,0)
;;=4^A40.1
;;^UTILITY(U,$J,358.3,27715,2)
;;=^5000197
;;^UTILITY(U,$J,358.3,27716,0)
;;=A40.3^^90^1154^3
;;^UTILITY(U,$J,358.3,27716,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27716,1,3,0)
;;=3^Sepsis d/t Streptococcus Pneumoniae
;;^UTILITY(U,$J,358.3,27716,1,4,0)
;;=4^A40.3
;;^UTILITY(U,$J,358.3,27716,2)
;;=^5000198
;;^UTILITY(U,$J,358.3,27717,0)
;;=A40.8^^90^1154^4
;;^UTILITY(U,$J,358.3,27717,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27717,1,3,0)
;;=3^Streptococcal Sepsis,Other
;;^UTILITY(U,$J,358.3,27717,1,4,0)
;;=4^A40.8
;;^UTILITY(U,$J,358.3,27717,2)
;;=^5000199
;;^UTILITY(U,$J,358.3,27718,0)
;;=A40.9^^90^1154^5
;;^UTILITY(U,$J,358.3,27718,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27718,1,3,0)
;;=3^Streptococcal Sepsis,Unspec
;;^UTILITY(U,$J,358.3,27718,1,4,0)
;;=4^A40.9
;;^UTILITY(U,$J,358.3,27718,2)
;;=^5000200
;;^UTILITY(U,$J,358.3,27719,0)
;;=A41.01^^90^1154^6
;;^UTILITY(U,$J,358.3,27719,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27719,1,3,0)
;;=3^Sepsis d/t Methicillin Susceptible
;;^UTILITY(U,$J,358.3,27719,1,4,0)
;;=4^A41.01
;;^UTILITY(U,$J,358.3,27719,2)
;;=^5000201
;;^UTILITY(U,$J,358.3,27720,0)
;;=A41.02^^90^1154^7
;;^UTILITY(U,$J,358.3,27720,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27720,1,3,0)
;;=3^Sepsis d/t Methicillin Resistant
;;^UTILITY(U,$J,358.3,27720,1,4,0)
;;=4^A41.02
;;^UTILITY(U,$J,358.3,27720,2)
;;=^5000202
;;^UTILITY(U,$J,358.3,27721,0)
;;=A41.1^^90^1154^8
;;^UTILITY(U,$J,358.3,27721,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27721,1,3,0)
;;=3^Sepsis d/t Staphylococcus,Oth Spec
;;^UTILITY(U,$J,358.3,27721,1,4,0)
;;=4^A41.1
;;^UTILITY(U,$J,358.3,27721,2)
;;=^5000203
;;^UTILITY(U,$J,358.3,27722,0)
;;=A41.2^^90^1154^9
;;^UTILITY(U,$J,358.3,27722,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27722,1,3,0)
;;=3^Sepsis d/t Staphylococcus,Unspec
;;^UTILITY(U,$J,358.3,27722,1,4,0)
;;=4^A41.2
;;^UTILITY(U,$J,358.3,27722,2)
;;=^5000204
;;^UTILITY(U,$J,358.3,27723,0)
;;=A41.3^^90^1154^10
;;^UTILITY(U,$J,358.3,27723,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27723,1,3,0)
;;=3^Sepsis d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,27723,1,4,0)
;;=4^A41.3
;;^UTILITY(U,$J,358.3,27723,2)
;;=^5000205
;;^UTILITY(U,$J,358.3,27724,0)
;;=A41.4^^90^1154^11
;;^UTILITY(U,$J,358.3,27724,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27724,1,3,0)
;;=3^Sepsis d/t Anaerobes
;;^UTILITY(U,$J,358.3,27724,1,4,0)
;;=4^A41.4
;;^UTILITY(U,$J,358.3,27724,2)
;;=^5000206
;;^UTILITY(U,$J,358.3,27725,0)
;;=A41.50^^90^1154^12
;;^UTILITY(U,$J,358.3,27725,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27725,1,3,0)
;;=3^Gram-Negative Sepsis,Unspec
;;^UTILITY(U,$J,358.3,27725,1,4,0)
;;=4^A41.50
;;^UTILITY(U,$J,358.3,27725,2)
;;=^5000207
;;^UTILITY(U,$J,358.3,27726,0)
;;=A41.51^^90^1154^13
;;^UTILITY(U,$J,358.3,27726,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27726,1,3,0)
;;=3^Sepsis d/t Escherichia Coli
;;^UTILITY(U,$J,358.3,27726,1,4,0)
;;=4^A41.51
;;^UTILITY(U,$J,358.3,27726,2)
;;=^5000208
;;^UTILITY(U,$J,358.3,27727,0)
;;=A41.52^^90^1154^14
;;^UTILITY(U,$J,358.3,27727,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27727,1,3,0)
;;=3^Sepsis d/t Pseudomonas
;;^UTILITY(U,$J,358.3,27727,1,4,0)
;;=4^A41.52
;;^UTILITY(U,$J,358.3,27727,2)
;;=^5000209
;;^UTILITY(U,$J,358.3,27728,0)
;;=A41.53^^90^1154^15
;;^UTILITY(U,$J,358.3,27728,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27728,1,3,0)
;;=3^Sepsis d/t Serratia
;;^UTILITY(U,$J,358.3,27728,1,4,0)
;;=4^A41.53
;;^UTILITY(U,$J,358.3,27728,2)
;;=^5000210
;;^UTILITY(U,$J,358.3,27729,0)
;;=A41.59^^90^1154^16
;;^UTILITY(U,$J,358.3,27729,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27729,1,3,0)
;;=3^Gram-Negative Sepsis,Other
;;^UTILITY(U,$J,358.3,27729,1,4,0)
;;=4^A41.59
;;^UTILITY(U,$J,358.3,27729,2)
;;=^5000211
;;^UTILITY(U,$J,358.3,27730,0)
;;=A41.81^^90^1154^17
;;^UTILITY(U,$J,358.3,27730,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27730,1,3,0)
;;=3^Sepsis d/t Enterococcus
;;^UTILITY(U,$J,358.3,27730,1,4,0)
;;=4^A41.81
;;^UTILITY(U,$J,358.3,27730,2)
;;=^5000212
;;^UTILITY(U,$J,358.3,27731,0)
;;=A41.89^^90^1154^18
;;^UTILITY(U,$J,358.3,27731,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27731,1,3,0)
;;=3^Sepsis,Oth Spec
;;^UTILITY(U,$J,358.3,27731,1,4,0)
;;=4^A41.89
;;^UTILITY(U,$J,358.3,27731,2)
;;=^5000213
;;^UTILITY(U,$J,358.3,27732,0)
;;=U07.1^^91^1155^1
;;^UTILITY(U,$J,358.3,27732,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27732,1,3,0)
;;=3^Confirmed COVID-19
;;^UTILITY(U,$J,358.3,27732,1,4,0)
;;=4^U07.1
;;^UTILITY(U,$J,358.3,27732,2)
;;=^5159070
;;^UTILITY(U,$J,358.3,27733,0)
;;=U09.9^^91^1155^2
;;^UTILITY(U,$J,358.3,27733,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27733,1,3,0)
;;=3^Post COVID-19 Condition,Unspec
;;^UTILITY(U,$J,358.3,27733,1,4,0)
;;=4^U09.9
;;^UTILITY(U,$J,358.3,27733,2)
;;=^5161298
;;^UTILITY(U,$J,358.3,27734,0)
;;=Z20.822^^91^1156^1
;;^UTILITY(U,$J,358.3,27734,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27734,1,3,0)
;;=3^Contact w/ & Exposure to COVID-19
;;^UTILITY(U,$J,358.3,27734,1,4,0)
;;=4^Z20.822
;;^UTILITY(U,$J,358.3,27734,2)
;;=^5160187
;;^UTILITY(U,$J,358.3,27735,0)
;;=J20.8^^91^1157^1
;;^UTILITY(U,$J,358.3,27735,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27735,1,3,0)
;;=3^Bronchitis,Acute d/t Other Spec Organisms
;;^UTILITY(U,$J,358.3,27735,1,4,0)
;;=4^J20.8
;;^UTILITY(U,$J,358.3,27735,2)
;;=^5008194
;;^UTILITY(U,$J,358.3,27736,0)
;;=J22.^^91^1157^11
;;^UTILITY(U,$J,358.3,27736,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27736,1,3,0)
;;=3^Lower Respiratory Infection,Acute,Unspec
;;^UTILITY(U,$J,358.3,27736,1,4,0)
;;=4^J22.
;;^UTILITY(U,$J,358.3,27736,2)
;;=^5008200
;;^UTILITY(U,$J,358.3,27737,0)
;;=J98.8^^91^1157^15
;;^UTILITY(U,$J,358.3,27737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27737,1,3,0)
;;=3^Respiratory Disorder,Other Spec
;;^UTILITY(U,$J,358.3,27737,1,4,0)
;;=4^J98.8
;;^UTILITY(U,$J,358.3,27737,2)
;;=^5008365
;;^UTILITY(U,$J,358.3,27738,0)
;;=R50.9^^91^1157^10
;;^UTILITY(U,$J,358.3,27738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27738,1,3,0)
;;=3^Fever,Unspec
;;^UTILITY(U,$J,358.3,27738,1,4,0)
;;=4^R50.9
;;^UTILITY(U,$J,358.3,27738,2)
;;=^5019512
;;^UTILITY(U,$J,358.3,27739,0)
;;=R06.02^^91^1157^17
;;^UTILITY(U,$J,358.3,27739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27739,1,3,0)
;;=3^Shortness of Breath
;;^UTILITY(U,$J,358.3,27739,1,4,0)
;;=4^R06.02
;;^UTILITY(U,$J,358.3,27739,2)
;;=^5019181
;;^UTILITY(U,$J,358.3,27740,0)
;;=J40.^^91^1157^2
;;^UTILITY(U,$J,358.3,27740,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27740,1,3,0)
;;=3^Bronchitis,Not Specified as Acute or Chronic
;;^UTILITY(U,$J,358.3,27740,1,4,0)
;;=4^J40.
;;^UTILITY(U,$J,358.3,27740,2)
;;=^17164
;;^UTILITY(U,$J,358.3,27741,0)
;;=J80.^^91^1157^16
;;^UTILITY(U,$J,358.3,27741,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27741,1,3,0)
;;=3^Respiratory Distress Syndrome,Acute
;;^UTILITY(U,$J,358.3,27741,1,4,0)
;;=4^J80.
;;^UTILITY(U,$J,358.3,27741,2)
;;=^5008294
;;^UTILITY(U,$J,358.3,27742,0)
;;=J12.82^^91^1157^14
;;^UTILITY(U,$J,358.3,27742,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27742,1,3,0)
;;=3^Pneumonia d/t COVID-19
;;^UTILITY(U,$J,358.3,27742,1,4,0)
;;=4^J12.82
;;^UTILITY(U,$J,358.3,27742,2)
;;=^5160183
;;^UTILITY(U,$J,358.3,27743,0)
;;=Z86.16^^91^1157^13
;;^UTILITY(U,$J,358.3,27743,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27743,1,3,0)
;;=3^Personal Hx of COVID-19
;;^UTILITY(U,$J,358.3,27743,1,4,0)
;;=4^Z86.16
;;^UTILITY(U,$J,358.3,27743,2)
;;=^5160188
;;^UTILITY(U,$J,358.3,27744,0)
;;=M35.81^^91^1157^12
;;^UTILITY(U,$J,358.3,27744,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27744,1,3,0)
;;=3^Multisystem Inflammatory Syndrome
;;^UTILITY(U,$J,358.3,27744,1,4,0)
;;=4^M35.81
;;^UTILITY(U,$J,358.3,27744,2)
;;=^5160184
;;^UTILITY(U,$J,358.3,27745,0)
;;=M35.89^^91^1157^18
;;^UTILITY(U,$J,358.3,27745,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27745,1,3,0)
;;=3^Systemic Involvement of Connective Tissue,Oth Spec
;;^UTILITY(U,$J,358.3,27745,1,4,0)
;;=4^M35.89
;;^UTILITY(U,$J,358.3,27745,2)
;;=^5160185
;;^UTILITY(U,$J,358.3,27746,0)
;;=R05.9^^91^1157^8
;;^UTILITY(U,$J,358.3,27746,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27746,1,3,0)
;;=3^Cough,Unspec
;;^UTILITY(U,$J,358.3,27746,1,4,0)
;;=4^R05.9
;;^UTILITY(U,$J,358.3,27746,2)
;;=^5161232
;;^UTILITY(U,$J,358.3,27747,0)
;;=R05.1^^91^1157^3
;;^UTILITY(U,$J,358.3,27747,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27747,1,3,0)
;;=3^Cough,Acute
;;^UTILITY(U,$J,358.3,27747,1,4,0)
;;=4^R05.1
;;^UTILITY(U,$J,358.3,27747,2)
;;=^5161227
;;^UTILITY(U,$J,358.3,27748,0)
;;=R05.2^^91^1157^6
;;^UTILITY(U,$J,358.3,27748,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27748,1,3,0)
;;=3^Cough,Subacute
;;^UTILITY(U,$J,358.3,27748,1,4,0)
;;=4^R05.2
;;^UTILITY(U,$J,358.3,27748,2)
;;=^5161228
;;^UTILITY(U,$J,358.3,27749,0)
;;=R05.3^^91^1157^4
;;^UTILITY(U,$J,358.3,27749,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27749,1,3,0)
;;=3^Cough,Chronic
;;^UTILITY(U,$J,358.3,27749,1,4,0)
;;=4^R05.3
;;^UTILITY(U,$J,358.3,27749,2)
;;=^5161229
;;^UTILITY(U,$J,358.3,27750,0)
;;=R05.4^^91^1157^7
;;^UTILITY(U,$J,358.3,27750,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27750,1,3,0)
;;=3^Cough,Syncope
;;^UTILITY(U,$J,358.3,27750,1,4,0)
;;=4^R05.4
;;^UTILITY(U,$J,358.3,27750,2)
;;=^5161230
;;^UTILITY(U,$J,358.3,27751,0)
;;=R05.8^^91^1157^5
;;^UTILITY(U,$J,358.3,27751,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27751,1,3,0)
;;=3^Cough,Oth Specified
;;^UTILITY(U,$J,358.3,27751,1,4,0)
;;=4^R05.8
;;^UTILITY(U,$J,358.3,27751,2)
;;=^5161231
;;^UTILITY(U,$J,358.3,27752,0)
;;=R50.83^^91^1157^9
;;^UTILITY(U,$J,358.3,27752,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27752,1,3,0)
;;=3^Fever,Postvaccination
;;^UTILITY(U,$J,358.3,27752,1,4,0)
;;=4^R50.83
;;^UTILITY(U,$J,358.3,27752,2)
;;=^5019510
;;^UTILITY(U,$J,358.3,27753,0)
;;=Z11.52^^91^1158^1
;;^UTILITY(U,$J,358.3,27753,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27753,1,3,0)
;;=3^Screen for COVID-19
;;^UTILITY(U,$J,358.3,27753,1,4,0)
;;=4^Z11.52
;;^UTILITY(U,$J,358.3,27753,2)
;;=^5160186
;;^UTILITY(U,$J,358.3,27754,0)
;;=Z20.822^^91^1159^1
;;^UTILITY(U,$J,358.3,27754,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27754,1,3,0)
;;=3^PreProcedure COVID screen
;;^UTILITY(U,$J,358.3,27754,1,4,0)
;;=4^Z20.822
;;^UTILITY(U,$J,358.3,27754,2)
;;=^5160187
;;^UTILITY(U,$J,358.3,27755,0)
;;=Z01.812^^91^1159^2
;;^UTILITY(U,$J,358.3,27755,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,27755,1,3,0)
;;=3^PreProcedure Lab Screen
;;^UTILITY(U,$J,358.3,27755,1,4,0)
;;=4^Z01.812
;;^UTILITY(U,$J,358.3,27755,2)
;;=^5062627
;;^UTILITY(U,$J,358.3,27756,0)
;;=Z28.310^^91^1160^3
;;^UTILITY(U,$J,358.3,27756,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0BA 19756 printed Dec 13, 2024@01:45:18 Page 2
IBDEI0BA ; ; 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,27686,1,4,0)
+2 ;;=4^I25.10
+3 ;;^UTILITY(U,$J,358.3,27686,2)
+4 ;;=^5007107
+5 ;;^UTILITY(U,$J,358.3,27687,0)
+6 ;;=E78.2^^90^1153^34
+7 ;;^UTILITY(U,$J,358.3,27687,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,27687,1,3,0)
+10 ;;=3^Mixed Hyperlipidemia
+11 ;;^UTILITY(U,$J,358.3,27687,1,4,0)
+12 ;;=4^E78.2
+13 ;;^UTILITY(U,$J,358.3,27687,2)
+14 ;;=^78424
+15 ;;^UTILITY(U,$J,358.3,27688,0)
+16 ;;=I48.0^^90^1153^8
+17 ;;^UTILITY(U,$J,358.3,27688,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,27688,1,3,0)
+20 ;;=3^Atrial Fibrillation,Paroxysmal
+21 ;;^UTILITY(U,$J,358.3,27688,1,4,0)
+22 ;;=4^I48.0
+23 ;;^UTILITY(U,$J,358.3,27688,2)
+24 ;;=^90473
+25 ;;^UTILITY(U,$J,358.3,27689,0)
+26 ;;=I48.11^^90^1153^6
+27 ;;^UTILITY(U,$J,358.3,27689,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,27689,1,3,0)
+30 ;;=3^Atrial Fibrillation,Longstanding Persistent
+31 ;;^UTILITY(U,$J,358.3,27689,1,4,0)
+32 ;;=4^I48.11
+33 ;;^UTILITY(U,$J,358.3,27689,2)
+34 ;;=^5158046
+35 ;;^UTILITY(U,$J,358.3,27690,0)
+36 ;;=I48.19^^90^1153^7
+37 ;;^UTILITY(U,$J,358.3,27690,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,27690,1,3,0)
+40 ;;=3^Atrial Fibrillation,Other Persistent
+41 ;;^UTILITY(U,$J,358.3,27690,1,4,0)
+42 ;;=4^I48.19
+43 ;;^UTILITY(U,$J,358.3,27690,2)
+44 ;;=^5158047
+45 ;;^UTILITY(U,$J,358.3,27691,0)
+46 ;;=I48.21^^90^1153^9
+47 ;;^UTILITY(U,$J,358.3,27691,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,27691,1,3,0)
+50 ;;=3^Atrial Fibrillation,Permanent
+51 ;;^UTILITY(U,$J,358.3,27691,1,4,0)
+52 ;;=4^I48.21
+53 ;;^UTILITY(U,$J,358.3,27691,2)
+54 ;;=^304710
+55 ;;^UTILITY(U,$J,358.3,27692,0)
+56 ;;=I48.20^^90^1153^5
+57 ;;^UTILITY(U,$J,358.3,27692,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,27692,1,3,0)
+60 ;;=3^Atrial Fibrillation,Chronic,Unspec
+61 ;;^UTILITY(U,$J,358.3,27692,1,4,0)
+62 ;;=4^I48.20
+63 ;;^UTILITY(U,$J,358.3,27692,2)
+64 ;;=^5158048
+65 ;;^UTILITY(U,$J,358.3,27693,0)
+66 ;;=I48.3^^90^1153^4
+67 ;;^UTILITY(U,$J,358.3,27693,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,27693,1,3,0)
+70 ;;=3^Artrial Flutter,Typical
+71 ;;^UTILITY(U,$J,358.3,27693,1,4,0)
+72 ;;=4^I48.3
+73 ;;^UTILITY(U,$J,358.3,27693,2)
+74 ;;=^5007227
+75 ;;^UTILITY(U,$J,358.3,27694,0)
+76 ;;=I48.4^^90^1153^10
+77 ;;^UTILITY(U,$J,358.3,27694,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,27694,1,3,0)
+80 ;;=3^Atrial Flutter,Atypical
+81 ;;^UTILITY(U,$J,358.3,27694,1,4,0)
+82 ;;=4^I48.4
+83 ;;^UTILITY(U,$J,358.3,27694,2)
+84 ;;=^5007228
+85 ;;^UTILITY(U,$J,358.3,27695,0)
+86 ;;=I25.5^^90^1153^33
+87 ;;^UTILITY(U,$J,358.3,27695,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,27695,1,3,0)
+90 ;;=3^Ischemic Cardiomyopathy
+91 ;;^UTILITY(U,$J,358.3,27695,1,4,0)
+92 ;;=4^I25.5
+93 ;;^UTILITY(U,$J,358.3,27695,2)
+94 ;;=^5007115
+95 ;;^UTILITY(U,$J,358.3,27696,0)
+96 ;;=I50.22^^90^1153^31
+97 ;;^UTILITY(U,$J,358.3,27696,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,27696,1,3,0)
+100 ;;=3^Heart Failure,Congestive,Chronic Systolic
+101 ;;^UTILITY(U,$J,358.3,27696,1,4,0)
+102 ;;=4^I50.22
+103 ;;^UTILITY(U,$J,358.3,27696,2)
+104 ;;=^5007241
+105 ;;^UTILITY(U,$J,358.3,27697,0)
+106 ;;=I50.32^^90^1153^30
+107 ;;^UTILITY(U,$J,358.3,27697,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,27697,1,3,0)
+110 ;;=3^Heart Failure,Congestive,Chronic Diastolic
+111 ;;^UTILITY(U,$J,358.3,27697,1,4,0)
+112 ;;=4^I50.32
+113 ;;^UTILITY(U,$J,358.3,27697,2)
+114 ;;=^5007245
+115 ;;^UTILITY(U,$J,358.3,27698,0)
+116 ;;=F03.90^^90^1153^27
+117 ;;^UTILITY(U,$J,358.3,27698,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,27698,1,3,0)
+120 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
+121 ;;^UTILITY(U,$J,358.3,27698,1,4,0)
+122 ;;=4^F03.90
+123 ;;^UTILITY(U,$J,358.3,27698,2)
+124 ;;=^5003050
+125 ;;^UTILITY(U,$J,358.3,27699,0)
+126 ;;=G30.9^^90^1153^3
+127 ;;^UTILITY(U,$J,358.3,27699,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,27699,1,3,0)
+130 ;;=3^Alzheimer's Disease,Unspec
+131 ;;^UTILITY(U,$J,358.3,27699,1,4,0)
+132 ;;=4^G30.9
+133 ;;^UTILITY(U,$J,358.3,27699,2)
+134 ;;=^5003808
+135 ;;^UTILITY(U,$J,358.3,27700,0)
+136 ;;=K70.30^^90^1153^2
+137 ;;^UTILITY(U,$J,358.3,27700,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,27700,1,3,0)
+140 ;;=3^Alcoholic Cirrhosis of Liver w/o Ascites
+141 ;;^UTILITY(U,$J,358.3,27700,1,4,0)
+142 ;;=4^K70.30
+143 ;;^UTILITY(U,$J,358.3,27700,2)
+144 ;;=^5008788
+145 ;;^UTILITY(U,$J,358.3,27701,0)
+146 ;;=K70.31^^90^1153^1
+147 ;;^UTILITY(U,$J,358.3,27701,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,27701,1,3,0)
+150 ;;=3^Alcoholic Cirrhosis of Liver w/ Ascites
+151 ;;^UTILITY(U,$J,358.3,27701,1,4,0)
+152 ;;=4^K70.31
+153 ;;^UTILITY(U,$J,358.3,27701,2)
+154 ;;=^5008789
+155 ;;^UTILITY(U,$J,358.3,27702,0)
+156 ;;=K74.60^^90^1153^26
+157 ;;^UTILITY(U,$J,358.3,27702,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,27702,1,3,0)
+160 ;;=3^Cirrhosis of Liver,Unspec
+161 ;;^UTILITY(U,$J,358.3,27702,1,4,0)
+162 ;;=4^K74.60
+163 ;;^UTILITY(U,$J,358.3,27702,2)
+164 ;;=^5008822
+165 ;;^UTILITY(U,$J,358.3,27703,0)
+166 ;;=N18.30^^90^1153^20
+167 ;;^UTILITY(U,$J,358.3,27703,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,27703,1,3,0)
+170 ;;=3^Chronic Kidney Disease,Stage 3,Unspec
+171 ;;^UTILITY(U,$J,358.3,27703,1,4,0)
+172 ;;=4^N18.30
+173 ;;^UTILITY(U,$J,358.3,27703,2)
+174 ;;=^5159286
+175 ;;^UTILITY(U,$J,358.3,27704,0)
+176 ;;=N18.31^^90^1153^21
+177 ;;^UTILITY(U,$J,358.3,27704,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,27704,1,3,0)
+180 ;;=3^Chronic Kidney Disease,Stage 3a
+181 ;;^UTILITY(U,$J,358.3,27704,1,4,0)
+182 ;;=4^N18.31
+183 ;;^UTILITY(U,$J,358.3,27704,2)
+184 ;;=^5159287
+185 ;;^UTILITY(U,$J,358.3,27705,0)
+186 ;;=N18.32^^90^1153^22
+187 ;;^UTILITY(U,$J,358.3,27705,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,27705,1,3,0)
+190 ;;=3^Chronic Kidney Disease,Stage 3b
+191 ;;^UTILITY(U,$J,358.3,27705,1,4,0)
+192 ;;=4^N18.32
+193 ;;^UTILITY(U,$J,358.3,27705,2)
+194 ;;=^5159288
+195 ;;^UTILITY(U,$J,358.3,27706,0)
+196 ;;=Z68.1^^90^1153^11
+197 ;;^UTILITY(U,$J,358.3,27706,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,27706,1,3,0)
+200 ;;=3^BMI 19.9 or Less
+201 ;;^UTILITY(U,$J,358.3,27706,1,4,0)
+202 ;;=4^Z68.1
+203 ;;^UTILITY(U,$J,358.3,27706,2)
+204 ;;=^5063198
+205 ;;^UTILITY(U,$J,358.3,27707,0)
+206 ;;=Z68.41^^90^1153^12
+207 ;;^UTILITY(U,$J,358.3,27707,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,27707,1,3,0)
+210 ;;=3^BMI 40.0-44.9
+211 ;;^UTILITY(U,$J,358.3,27707,1,4,0)
+212 ;;=4^Z68.41
+213 ;;^UTILITY(U,$J,358.3,27707,2)
+214 ;;=^5063219
+215 ;;^UTILITY(U,$J,358.3,27708,0)
+216 ;;=Z68.42^^90^1153^13
+217 ;;^UTILITY(U,$J,358.3,27708,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,27708,1,3,0)
+220 ;;=3^BMI 45.0-49.9
+221 ;;^UTILITY(U,$J,358.3,27708,1,4,0)
+222 ;;=4^Z68.42
+223 ;;^UTILITY(U,$J,358.3,27708,2)
+224 ;;=^5063220
+225 ;;^UTILITY(U,$J,358.3,27709,0)
+226 ;;=Z68.43^^90^1153^14
+227 ;;^UTILITY(U,$J,358.3,27709,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,27709,1,3,0)
+230 ;;=3^BMI 50.0-59.9
+231 ;;^UTILITY(U,$J,358.3,27709,1,4,0)
+232 ;;=4^Z68.43
+233 ;;^UTILITY(U,$J,358.3,27709,2)
+234 ;;=^5063221
+235 ;;^UTILITY(U,$J,358.3,27710,0)
+236 ;;=E66.01^^90^1153^36
+237 ;;^UTILITY(U,$J,358.3,27710,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,27710,1,3,0)
+240 ;;=3^Morbid Obesity
+241 ;;^UTILITY(U,$J,358.3,27710,1,4,0)
+242 ;;=4^E66.01
+243 ;;^UTILITY(U,$J,358.3,27710,2)
+244 ;;=^5002826
+245 ;;^UTILITY(U,$J,358.3,27711,0)
+246 ;;=E11.42^^90^1153^44
+247 ;;^UTILITY(U,$J,358.3,27711,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,27711,1,3,0)
+250 ;;=3^Type 2 DM w/ Polyneuropathy
+251 ;;^UTILITY(U,$J,358.3,27711,1,4,0)
+252 ;;=4^E11.42
+253 ;;^UTILITY(U,$J,358.3,27711,2)
+254 ;;=^5002646
+255 ;;^UTILITY(U,$J,358.3,27712,0)
+256 ;;=E11.51^^90^1153^43
+257 ;;^UTILITY(U,$J,358.3,27712,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,27712,1,3,0)
+260 ;;=3^Type 2 DM w/ PVD w/o Gangrene
+261 ;;^UTILITY(U,$J,358.3,27712,1,4,0)
+262 ;;=4^E11.51
+263 ;;^UTILITY(U,$J,358.3,27712,2)
+264 ;;=^5002650
+265 ;;^UTILITY(U,$J,358.3,27713,0)
+266 ;;=E11.52^^90^1153^42
+267 ;;^UTILITY(U,$J,358.3,27713,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,27713,1,3,0)
+270 ;;=3^Type 2 DM w/ PVD w/ Gangrene
+271 ;;^UTILITY(U,$J,358.3,27713,1,4,0)
+272 ;;=4^E11.52
+273 ;;^UTILITY(U,$J,358.3,27713,2)
+274 ;;=^5002651
+275 ;;^UTILITY(U,$J,358.3,27714,0)
+276 ;;=A40.0^^90^1154^1
+277 ;;^UTILITY(U,$J,358.3,27714,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,27714,1,3,0)
+280 ;;=3^Sepsis d/t Streptococcus,Group A
+281 ;;^UTILITY(U,$J,358.3,27714,1,4,0)
+282 ;;=4^A40.0
+283 ;;^UTILITY(U,$J,358.3,27714,2)
+284 ;;=^5000196
+285 ;;^UTILITY(U,$J,358.3,27715,0)
+286 ;;=A40.1^^90^1154^2
+287 ;;^UTILITY(U,$J,358.3,27715,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,27715,1,3,0)
+290 ;;=3^Sepsis d/t Streptococcus,Group B
+291 ;;^UTILITY(U,$J,358.3,27715,1,4,0)
+292 ;;=4^A40.1
+293 ;;^UTILITY(U,$J,358.3,27715,2)
+294 ;;=^5000197
+295 ;;^UTILITY(U,$J,358.3,27716,0)
+296 ;;=A40.3^^90^1154^3
+297 ;;^UTILITY(U,$J,358.3,27716,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,27716,1,3,0)
+300 ;;=3^Sepsis d/t Streptococcus Pneumoniae
+301 ;;^UTILITY(U,$J,358.3,27716,1,4,0)
+302 ;;=4^A40.3
+303 ;;^UTILITY(U,$J,358.3,27716,2)
+304 ;;=^5000198
+305 ;;^UTILITY(U,$J,358.3,27717,0)
+306 ;;=A40.8^^90^1154^4
+307 ;;^UTILITY(U,$J,358.3,27717,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,27717,1,3,0)
+310 ;;=3^Streptococcal Sepsis,Other
+311 ;;^UTILITY(U,$J,358.3,27717,1,4,0)
+312 ;;=4^A40.8
+313 ;;^UTILITY(U,$J,358.3,27717,2)
+314 ;;=^5000199
+315 ;;^UTILITY(U,$J,358.3,27718,0)
+316 ;;=A40.9^^90^1154^5
+317 ;;^UTILITY(U,$J,358.3,27718,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,27718,1,3,0)
+320 ;;=3^Streptococcal Sepsis,Unspec
+321 ;;^UTILITY(U,$J,358.3,27718,1,4,0)
+322 ;;=4^A40.9
+323 ;;^UTILITY(U,$J,358.3,27718,2)
+324 ;;=^5000200
+325 ;;^UTILITY(U,$J,358.3,27719,0)
+326 ;;=A41.01^^90^1154^6
+327 ;;^UTILITY(U,$J,358.3,27719,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,27719,1,3,0)
+330 ;;=3^Sepsis d/t Methicillin Susceptible
+331 ;;^UTILITY(U,$J,358.3,27719,1,4,0)
+332 ;;=4^A41.01
+333 ;;^UTILITY(U,$J,358.3,27719,2)
+334 ;;=^5000201
+335 ;;^UTILITY(U,$J,358.3,27720,0)
+336 ;;=A41.02^^90^1154^7
+337 ;;^UTILITY(U,$J,358.3,27720,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,27720,1,3,0)
+340 ;;=3^Sepsis d/t Methicillin Resistant
+341 ;;^UTILITY(U,$J,358.3,27720,1,4,0)
+342 ;;=4^A41.02
+343 ;;^UTILITY(U,$J,358.3,27720,2)
+344 ;;=^5000202
+345 ;;^UTILITY(U,$J,358.3,27721,0)
+346 ;;=A41.1^^90^1154^8
+347 ;;^UTILITY(U,$J,358.3,27721,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,27721,1,3,0)
+350 ;;=3^Sepsis d/t Staphylococcus,Oth Spec
+351 ;;^UTILITY(U,$J,358.3,27721,1,4,0)
+352 ;;=4^A41.1
+353 ;;^UTILITY(U,$J,358.3,27721,2)
+354 ;;=^5000203
+355 ;;^UTILITY(U,$J,358.3,27722,0)
+356 ;;=A41.2^^90^1154^9
+357 ;;^UTILITY(U,$J,358.3,27722,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,27722,1,3,0)
+360 ;;=3^Sepsis d/t Staphylococcus,Unspec
+361 ;;^UTILITY(U,$J,358.3,27722,1,4,0)
+362 ;;=4^A41.2
+363 ;;^UTILITY(U,$J,358.3,27722,2)
+364 ;;=^5000204
+365 ;;^UTILITY(U,$J,358.3,27723,0)
+366 ;;=A41.3^^90^1154^10
+367 ;;^UTILITY(U,$J,358.3,27723,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,27723,1,3,0)
+370 ;;=3^Sepsis d/t Hemophilus Influenzae
+371 ;;^UTILITY(U,$J,358.3,27723,1,4,0)
+372 ;;=4^A41.3
+373 ;;^UTILITY(U,$J,358.3,27723,2)
+374 ;;=^5000205
+375 ;;^UTILITY(U,$J,358.3,27724,0)
+376 ;;=A41.4^^90^1154^11
+377 ;;^UTILITY(U,$J,358.3,27724,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,27724,1,3,0)
+380 ;;=3^Sepsis d/t Anaerobes
+381 ;;^UTILITY(U,$J,358.3,27724,1,4,0)
+382 ;;=4^A41.4
+383 ;;^UTILITY(U,$J,358.3,27724,2)
+384 ;;=^5000206
+385 ;;^UTILITY(U,$J,358.3,27725,0)
+386 ;;=A41.50^^90^1154^12
+387 ;;^UTILITY(U,$J,358.3,27725,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,27725,1,3,0)
+390 ;;=3^Gram-Negative Sepsis,Unspec
+391 ;;^UTILITY(U,$J,358.3,27725,1,4,0)
+392 ;;=4^A41.50
+393 ;;^UTILITY(U,$J,358.3,27725,2)
+394 ;;=^5000207
+395 ;;^UTILITY(U,$J,358.3,27726,0)
+396 ;;=A41.51^^90^1154^13
+397 ;;^UTILITY(U,$J,358.3,27726,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,27726,1,3,0)
+400 ;;=3^Sepsis d/t Escherichia Coli
+401 ;;^UTILITY(U,$J,358.3,27726,1,4,0)
+402 ;;=4^A41.51
+403 ;;^UTILITY(U,$J,358.3,27726,2)
+404 ;;=^5000208
+405 ;;^UTILITY(U,$J,358.3,27727,0)
+406 ;;=A41.52^^90^1154^14
+407 ;;^UTILITY(U,$J,358.3,27727,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,27727,1,3,0)
+410 ;;=3^Sepsis d/t Pseudomonas
+411 ;;^UTILITY(U,$J,358.3,27727,1,4,0)
+412 ;;=4^A41.52
+413 ;;^UTILITY(U,$J,358.3,27727,2)
+414 ;;=^5000209
+415 ;;^UTILITY(U,$J,358.3,27728,0)
+416 ;;=A41.53^^90^1154^15
+417 ;;^UTILITY(U,$J,358.3,27728,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,27728,1,3,0)
+420 ;;=3^Sepsis d/t Serratia
+421 ;;^UTILITY(U,$J,358.3,27728,1,4,0)
+422 ;;=4^A41.53
+423 ;;^UTILITY(U,$J,358.3,27728,2)
+424 ;;=^5000210
+425 ;;^UTILITY(U,$J,358.3,27729,0)
+426 ;;=A41.59^^90^1154^16
+427 ;;^UTILITY(U,$J,358.3,27729,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,27729,1,3,0)
+430 ;;=3^Gram-Negative Sepsis,Other
+431 ;;^UTILITY(U,$J,358.3,27729,1,4,0)
+432 ;;=4^A41.59
+433 ;;^UTILITY(U,$J,358.3,27729,2)
+434 ;;=^5000211
+435 ;;^UTILITY(U,$J,358.3,27730,0)
+436 ;;=A41.81^^90^1154^17
+437 ;;^UTILITY(U,$J,358.3,27730,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,27730,1,3,0)
+440 ;;=3^Sepsis d/t Enterococcus
+441 ;;^UTILITY(U,$J,358.3,27730,1,4,0)
+442 ;;=4^A41.81
+443 ;;^UTILITY(U,$J,358.3,27730,2)
+444 ;;=^5000212
+445 ;;^UTILITY(U,$J,358.3,27731,0)
+446 ;;=A41.89^^90^1154^18
+447 ;;^UTILITY(U,$J,358.3,27731,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,27731,1,3,0)
+450 ;;=3^Sepsis,Oth Spec
+451 ;;^UTILITY(U,$J,358.3,27731,1,4,0)
+452 ;;=4^A41.89
+453 ;;^UTILITY(U,$J,358.3,27731,2)
+454 ;;=^5000213
+455 ;;^UTILITY(U,$J,358.3,27732,0)
+456 ;;=U07.1^^91^1155^1
+457 ;;^UTILITY(U,$J,358.3,27732,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,27732,1,3,0)
+460 ;;=3^Confirmed COVID-19
+461 ;;^UTILITY(U,$J,358.3,27732,1,4,0)
+462 ;;=4^U07.1
+463 ;;^UTILITY(U,$J,358.3,27732,2)
+464 ;;=^5159070
+465 ;;^UTILITY(U,$J,358.3,27733,0)
+466 ;;=U09.9^^91^1155^2
+467 ;;^UTILITY(U,$J,358.3,27733,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,27733,1,3,0)
+470 ;;=3^Post COVID-19 Condition,Unspec
+471 ;;^UTILITY(U,$J,358.3,27733,1,4,0)
+472 ;;=4^U09.9
+473 ;;^UTILITY(U,$J,358.3,27733,2)
+474 ;;=^5161298
+475 ;;^UTILITY(U,$J,358.3,27734,0)
+476 ;;=Z20.822^^91^1156^1
+477 ;;^UTILITY(U,$J,358.3,27734,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,27734,1,3,0)
+480 ;;=3^Contact w/ & Exposure to COVID-19
+481 ;;^UTILITY(U,$J,358.3,27734,1,4,0)
+482 ;;=4^Z20.822
+483 ;;^UTILITY(U,$J,358.3,27734,2)
+484 ;;=^5160187
+485 ;;^UTILITY(U,$J,358.3,27735,0)
+486 ;;=J20.8^^91^1157^1
+487 ;;^UTILITY(U,$J,358.3,27735,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,27735,1,3,0)
+490 ;;=3^Bronchitis,Acute d/t Other Spec Organisms
+491 ;;^UTILITY(U,$J,358.3,27735,1,4,0)
+492 ;;=4^J20.8
+493 ;;^UTILITY(U,$J,358.3,27735,2)
+494 ;;=^5008194
+495 ;;^UTILITY(U,$J,358.3,27736,0)
+496 ;;=J22.^^91^1157^11
+497 ;;^UTILITY(U,$J,358.3,27736,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,27736,1,3,0)
+500 ;;=3^Lower Respiratory Infection,Acute,Unspec
+501 ;;^UTILITY(U,$J,358.3,27736,1,4,0)
+502 ;;=4^J22.
+503 ;;^UTILITY(U,$J,358.3,27736,2)
+504 ;;=^5008200
+505 ;;^UTILITY(U,$J,358.3,27737,0)
+506 ;;=J98.8^^91^1157^15
+507 ;;^UTILITY(U,$J,358.3,27737,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,27737,1,3,0)
+510 ;;=3^Respiratory Disorder,Other Spec
+511 ;;^UTILITY(U,$J,358.3,27737,1,4,0)
+512 ;;=4^J98.8
+513 ;;^UTILITY(U,$J,358.3,27737,2)
+514 ;;=^5008365
+515 ;;^UTILITY(U,$J,358.3,27738,0)
+516 ;;=R50.9^^91^1157^10
+517 ;;^UTILITY(U,$J,358.3,27738,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,27738,1,3,0)
+520 ;;=3^Fever,Unspec
+521 ;;^UTILITY(U,$J,358.3,27738,1,4,0)
+522 ;;=4^R50.9
+523 ;;^UTILITY(U,$J,358.3,27738,2)
+524 ;;=^5019512
+525 ;;^UTILITY(U,$J,358.3,27739,0)
+526 ;;=R06.02^^91^1157^17
+527 ;;^UTILITY(U,$J,358.3,27739,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,27739,1,3,0)
+530 ;;=3^Shortness of Breath
+531 ;;^UTILITY(U,$J,358.3,27739,1,4,0)
+532 ;;=4^R06.02
+533 ;;^UTILITY(U,$J,358.3,27739,2)
+534 ;;=^5019181
+535 ;;^UTILITY(U,$J,358.3,27740,0)
+536 ;;=J40.^^91^1157^2
+537 ;;^UTILITY(U,$J,358.3,27740,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,27740,1,3,0)
+540 ;;=3^Bronchitis,Not Specified as Acute or Chronic
+541 ;;^UTILITY(U,$J,358.3,27740,1,4,0)
+542 ;;=4^J40.
+543 ;;^UTILITY(U,$J,358.3,27740,2)
+544 ;;=^17164
+545 ;;^UTILITY(U,$J,358.3,27741,0)
+546 ;;=J80.^^91^1157^16
+547 ;;^UTILITY(U,$J,358.3,27741,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,27741,1,3,0)
+550 ;;=3^Respiratory Distress Syndrome,Acute
+551 ;;^UTILITY(U,$J,358.3,27741,1,4,0)
+552 ;;=4^J80.
+553 ;;^UTILITY(U,$J,358.3,27741,2)
+554 ;;=^5008294
+555 ;;^UTILITY(U,$J,358.3,27742,0)
+556 ;;=J12.82^^91^1157^14
+557 ;;^UTILITY(U,$J,358.3,27742,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,27742,1,3,0)
+560 ;;=3^Pneumonia d/t COVID-19
+561 ;;^UTILITY(U,$J,358.3,27742,1,4,0)
+562 ;;=4^J12.82
+563 ;;^UTILITY(U,$J,358.3,27742,2)
+564 ;;=^5160183
+565 ;;^UTILITY(U,$J,358.3,27743,0)
+566 ;;=Z86.16^^91^1157^13
+567 ;;^UTILITY(U,$J,358.3,27743,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,27743,1,3,0)
+570 ;;=3^Personal Hx of COVID-19
+571 ;;^UTILITY(U,$J,358.3,27743,1,4,0)
+572 ;;=4^Z86.16
+573 ;;^UTILITY(U,$J,358.3,27743,2)
+574 ;;=^5160188
+575 ;;^UTILITY(U,$J,358.3,27744,0)
+576 ;;=M35.81^^91^1157^12
+577 ;;^UTILITY(U,$J,358.3,27744,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,27744,1,3,0)
+580 ;;=3^Multisystem Inflammatory Syndrome
+581 ;;^UTILITY(U,$J,358.3,27744,1,4,0)
+582 ;;=4^M35.81
+583 ;;^UTILITY(U,$J,358.3,27744,2)
+584 ;;=^5160184
+585 ;;^UTILITY(U,$J,358.3,27745,0)
+586 ;;=M35.89^^91^1157^18
+587 ;;^UTILITY(U,$J,358.3,27745,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,27745,1,3,0)
+590 ;;=3^Systemic Involvement of Connective Tissue,Oth Spec
+591 ;;^UTILITY(U,$J,358.3,27745,1,4,0)
+592 ;;=4^M35.89
+593 ;;^UTILITY(U,$J,358.3,27745,2)
+594 ;;=^5160185
+595 ;;^UTILITY(U,$J,358.3,27746,0)
+596 ;;=R05.9^^91^1157^8
+597 ;;^UTILITY(U,$J,358.3,27746,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,27746,1,3,0)
+600 ;;=3^Cough,Unspec
+601 ;;^UTILITY(U,$J,358.3,27746,1,4,0)
+602 ;;=4^R05.9
+603 ;;^UTILITY(U,$J,358.3,27746,2)
+604 ;;=^5161232
+605 ;;^UTILITY(U,$J,358.3,27747,0)
+606 ;;=R05.1^^91^1157^3
+607 ;;^UTILITY(U,$J,358.3,27747,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,27747,1,3,0)
+610 ;;=3^Cough,Acute
+611 ;;^UTILITY(U,$J,358.3,27747,1,4,0)
+612 ;;=4^R05.1
+613 ;;^UTILITY(U,$J,358.3,27747,2)
+614 ;;=^5161227
+615 ;;^UTILITY(U,$J,358.3,27748,0)
+616 ;;=R05.2^^91^1157^6
+617 ;;^UTILITY(U,$J,358.3,27748,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,27748,1,3,0)
+620 ;;=3^Cough,Subacute
+621 ;;^UTILITY(U,$J,358.3,27748,1,4,0)
+622 ;;=4^R05.2
+623 ;;^UTILITY(U,$J,358.3,27748,2)
+624 ;;=^5161228
+625 ;;^UTILITY(U,$J,358.3,27749,0)
+626 ;;=R05.3^^91^1157^4
+627 ;;^UTILITY(U,$J,358.3,27749,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,27749,1,3,0)
+630 ;;=3^Cough,Chronic
+631 ;;^UTILITY(U,$J,358.3,27749,1,4,0)
+632 ;;=4^R05.3
+633 ;;^UTILITY(U,$J,358.3,27749,2)
+634 ;;=^5161229
+635 ;;^UTILITY(U,$J,358.3,27750,0)
+636 ;;=R05.4^^91^1157^7
+637 ;;^UTILITY(U,$J,358.3,27750,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,27750,1,3,0)
+640 ;;=3^Cough,Syncope
+641 ;;^UTILITY(U,$J,358.3,27750,1,4,0)
+642 ;;=4^R05.4
+643 ;;^UTILITY(U,$J,358.3,27750,2)
+644 ;;=^5161230
+645 ;;^UTILITY(U,$J,358.3,27751,0)
+646 ;;=R05.8^^91^1157^5
+647 ;;^UTILITY(U,$J,358.3,27751,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,27751,1,3,0)
+650 ;;=3^Cough,Oth Specified
+651 ;;^UTILITY(U,$J,358.3,27751,1,4,0)
+652 ;;=4^R05.8
+653 ;;^UTILITY(U,$J,358.3,27751,2)
+654 ;;=^5161231
+655 ;;^UTILITY(U,$J,358.3,27752,0)
+656 ;;=R50.83^^91^1157^9
+657 ;;^UTILITY(U,$J,358.3,27752,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,27752,1,3,0)
+660 ;;=3^Fever,Postvaccination
+661 ;;^UTILITY(U,$J,358.3,27752,1,4,0)
+662 ;;=4^R50.83
+663 ;;^UTILITY(U,$J,358.3,27752,2)
+664 ;;=^5019510
+665 ;;^UTILITY(U,$J,358.3,27753,0)
+666 ;;=Z11.52^^91^1158^1
+667 ;;^UTILITY(U,$J,358.3,27753,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,27753,1,3,0)
+670 ;;=3^Screen for COVID-19
+671 ;;^UTILITY(U,$J,358.3,27753,1,4,0)
+672 ;;=4^Z11.52
+673 ;;^UTILITY(U,$J,358.3,27753,2)
+674 ;;=^5160186
+675 ;;^UTILITY(U,$J,358.3,27754,0)
+676 ;;=Z20.822^^91^1159^1
+677 ;;^UTILITY(U,$J,358.3,27754,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,27754,1,3,0)
+680 ;;=3^PreProcedure COVID screen
+681 ;;^UTILITY(U,$J,358.3,27754,1,4,0)
+682 ;;=4^Z20.822
+683 ;;^UTILITY(U,$J,358.3,27754,2)
+684 ;;=^5160187
+685 ;;^UTILITY(U,$J,358.3,27755,0)
+686 ;;=Z01.812^^91^1159^2
+687 ;;^UTILITY(U,$J,358.3,27755,1,0)
+688 ;;=^358.31IA^4^2
+689 ;;^UTILITY(U,$J,358.3,27755,1,3,0)
+690 ;;=3^PreProcedure Lab Screen
+691 ;;^UTILITY(U,$J,358.3,27755,1,4,0)
+692 ;;=4^Z01.812
+693 ;;^UTILITY(U,$J,358.3,27755,2)
+694 ;;=^5062627
+695 ;;^UTILITY(U,$J,358.3,27756,0)
+696 ;;=Z28.310^^91^1160^3
+697 ;;^UTILITY(U,$J,358.3,27756,1,0)
+698 ;;=^358.31IA^4^2