IBDEI0EF ; ; 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,36120,0)
;;=J16.8^^105^1466^14
;;^UTILITY(U,$J,358.3,36120,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36120,1,3,0)
;;=3^Pneumonia d/t Other Spec Infectious Organisms
;;^UTILITY(U,$J,358.3,36120,1,4,0)
;;=4^J16.8
;;^UTILITY(U,$J,358.3,36120,2)
;;=^5008180
;;^UTILITY(U,$J,358.3,36121,0)
;;=J17.^^105^1466^21
;;^UTILITY(U,$J,358.3,36121,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36121,1,3,0)
;;=3^Pneumonia in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,36121,1,4,0)
;;=4^J17.
;;^UTILITY(U,$J,358.3,36121,2)
;;=^5008181
;;^UTILITY(U,$J,358.3,36122,0)
;;=J18.0^^105^1466^2
;;^UTILITY(U,$J,358.3,36122,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36122,1,3,0)
;;=3^Bronchopneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,36122,1,4,0)
;;=4^J18.0
;;^UTILITY(U,$J,358.3,36122,2)
;;=^5008182
;;^UTILITY(U,$J,358.3,36123,0)
;;=J18.1^^105^1466^25
;;^UTILITY(U,$J,358.3,36123,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36123,1,3,0)
;;=3^Pneumonia,Lobar,Unspec Organism
;;^UTILITY(U,$J,358.3,36123,1,4,0)
;;=4^J18.1
;;^UTILITY(U,$J,358.3,36123,2)
;;=^5008183
;;^UTILITY(U,$J,358.3,36124,0)
;;=J18.2^^105^1466^24
;;^UTILITY(U,$J,358.3,36124,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36124,1,3,0)
;;=3^Pneumonia,Hypostatic,Unspec Organism
;;^UTILITY(U,$J,358.3,36124,1,4,0)
;;=4^J18.2
;;^UTILITY(U,$J,358.3,36124,2)
;;=^5008184
;;^UTILITY(U,$J,358.3,36125,0)
;;=J18.8^^105^1466^26
;;^UTILITY(U,$J,358.3,36125,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36125,1,3,0)
;;=3^Pneumonia,Oth,Unspec Organism
;;^UTILITY(U,$J,358.3,36125,1,4,0)
;;=4^J18.8
;;^UTILITY(U,$J,358.3,36125,2)
;;=^5008185
;;^UTILITY(U,$J,358.3,36126,0)
;;=J18.9^^105^1466^27
;;^UTILITY(U,$J,358.3,36126,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36126,1,3,0)
;;=3^Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,36126,1,4,0)
;;=4^J18.9
;;^UTILITY(U,$J,358.3,36126,2)
;;=^95632
;;^UTILITY(U,$J,358.3,36127,0)
;;=N39.0^^105^1467^13
;;^UTILITY(U,$J,358.3,36127,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36127,1,3,0)
;;=3^UTI,Site not Spec
;;^UTILITY(U,$J,358.3,36127,1,4,0)
;;=4^N39.0
;;^UTILITY(U,$J,358.3,36127,2)
;;=^124436
;;^UTILITY(U,$J,358.3,36128,0)
;;=N30.01^^105^1467^1
;;^UTILITY(U,$J,358.3,36128,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36128,1,3,0)
;;=3^Acute Cystitis w/ Hematuria
;;^UTILITY(U,$J,358.3,36128,1,4,0)
;;=4^N30.01
;;^UTILITY(U,$J,358.3,36128,2)
;;=^5015633
;;^UTILITY(U,$J,358.3,36129,0)
;;=N30.00^^105^1467^2
;;^UTILITY(U,$J,358.3,36129,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36129,1,3,0)
;;=3^Acute Cystitis w/o Hematuria
;;^UTILITY(U,$J,358.3,36129,1,4,0)
;;=4^N30.00
;;^UTILITY(U,$J,358.3,36129,2)
;;=^5015632
;;^UTILITY(U,$J,358.3,36130,0)
;;=N10.^^105^1467^3
;;^UTILITY(U,$J,358.3,36130,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36130,1,3,0)
;;=3^Acute Tubulo-Interstitial Nephritis
;;^UTILITY(U,$J,358.3,36130,1,4,0)
;;=4^N10.
;;^UTILITY(U,$J,358.3,36130,2)
;;=^5015570
;;^UTILITY(U,$J,358.3,36131,0)
;;=N11.9^^105^1467^4
;;^UTILITY(U,$J,358.3,36131,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36131,1,3,0)
;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
;;^UTILITY(U,$J,358.3,36131,1,4,0)
;;=4^N11.9
;;^UTILITY(U,$J,358.3,36131,2)
;;=^5015574
;;^UTILITY(U,$J,358.3,36132,0)
;;=N30.91^^105^1467^5
;;^UTILITY(U,$J,358.3,36132,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36132,1,3,0)
;;=3^Cystitis,Unspec w/ Hematuria
;;^UTILITY(U,$J,358.3,36132,1,4,0)
;;=4^N30.91
;;^UTILITY(U,$J,358.3,36132,2)
;;=^5015643
;;^UTILITY(U,$J,358.3,36133,0)
;;=N30.90^^105^1467^6
;;^UTILITY(U,$J,358.3,36133,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36133,1,3,0)
;;=3^Cystitis,Unspec w/o Hematuria
;;^UTILITY(U,$J,358.3,36133,1,4,0)
;;=4^N30.90
;;^UTILITY(U,$J,358.3,36133,2)
;;=^5015642
;;^UTILITY(U,$J,358.3,36134,0)
;;=N28.84^^105^1467^7
;;^UTILITY(U,$J,358.3,36134,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36134,1,3,0)
;;=3^Pyelitis Cystica
;;^UTILITY(U,$J,358.3,36134,1,4,0)
;;=4^N28.84
;;^UTILITY(U,$J,358.3,36134,2)
;;=^5015628
;;^UTILITY(U,$J,358.3,36135,0)
;;=N28.85^^105^1467^8
;;^UTILITY(U,$J,358.3,36135,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36135,1,3,0)
;;=3^Pyeloureteritis Cystica
;;^UTILITY(U,$J,358.3,36135,1,4,0)
;;=4^N28.85
;;^UTILITY(U,$J,358.3,36135,2)
;;=^270372
;;^UTILITY(U,$J,358.3,36136,0)
;;=N15.1^^105^1467^9
;;^UTILITY(U,$J,358.3,36136,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36136,1,3,0)
;;=3^Renal & Perinephric Abscess
;;^UTILITY(U,$J,358.3,36136,1,4,0)
;;=4^N15.1
;;^UTILITY(U,$J,358.3,36136,2)
;;=^270371
;;^UTILITY(U,$J,358.3,36137,0)
;;=N16.^^105^1467^10
;;^UTILITY(U,$J,358.3,36137,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36137,1,3,0)
;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
;;^UTILITY(U,$J,358.3,36137,1,4,0)
;;=4^N16.
;;^UTILITY(U,$J,358.3,36137,2)
;;=^5015597
;;^UTILITY(U,$J,358.3,36138,0)
;;=N15.9^^105^1467^11
;;^UTILITY(U,$J,358.3,36138,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36138,1,3,0)
;;=3^Tubulo-Interstitial Disease,Unspec
;;^UTILITY(U,$J,358.3,36138,1,4,0)
;;=4^N15.9
;;^UTILITY(U,$J,358.3,36138,2)
;;=^5015596
;;^UTILITY(U,$J,358.3,36139,0)
;;=N12.^^105^1467^12
;;^UTILITY(U,$J,358.3,36139,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36139,1,3,0)
;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
;;^UTILITY(U,$J,358.3,36139,1,4,0)
;;=4^N12.
;;^UTILITY(U,$J,358.3,36139,2)
;;=^5015575
;;^UTILITY(U,$J,358.3,36140,0)
;;=N28.86^^105^1467^14
;;^UTILITY(U,$J,358.3,36140,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36140,1,3,0)
;;=3^Ureteritis Cystica
;;^UTILITY(U,$J,358.3,36140,1,4,0)
;;=4^N28.86
;;^UTILITY(U,$J,358.3,36140,2)
;;=^5015629
;;^UTILITY(U,$J,358.3,36141,0)
;;=A08.0^^105^1468^6
;;^UTILITY(U,$J,358.3,36141,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36141,1,3,0)
;;=3^Enteritis,Rotaviral
;;^UTILITY(U,$J,358.3,36141,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,36141,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,36142,0)
;;=A08.11^^105^1468^1
;;^UTILITY(U,$J,358.3,36142,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36142,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,36142,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,36142,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,36143,0)
;;=A08.19^^105^1468^2
;;^UTILITY(U,$J,358.3,36143,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36143,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,36143,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,36143,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,36144,0)
;;=A08.2^^105^1468^3
;;^UTILITY(U,$J,358.3,36144,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36144,1,3,0)
;;=3^Enteritis,Adenoviral
;;^UTILITY(U,$J,358.3,36144,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,36144,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,36145,0)
;;=A08.31^^105^1468^5
;;^UTILITY(U,$J,358.3,36145,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36145,1,3,0)
;;=3^Enteritis,Calicivirus
;;^UTILITY(U,$J,358.3,36145,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,36145,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,36146,0)
;;=A08.32^^105^1468^4
;;^UTILITY(U,$J,358.3,36146,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36146,1,3,0)
;;=3^Enteritis,Astrovirus
;;^UTILITY(U,$J,358.3,36146,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,36146,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,36147,0)
;;=A08.4^^105^1468^8
;;^UTILITY(U,$J,358.3,36147,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36147,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,36147,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,36147,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,36148,0)
;;=A08.8^^105^1468^7
;;^UTILITY(U,$J,358.3,36148,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36148,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,36148,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,36148,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,36149,0)
;;=J68.0^^105^1469^2
;;^UTILITY(U,$J,358.3,36149,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36149,1,3,0)
;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
;;^UTILITY(U,$J,358.3,36149,1,4,0)
;;=4^J68.0
;;^UTILITY(U,$J,358.3,36149,2)
;;=^5008281
;;^UTILITY(U,$J,358.3,36150,0)
;;=J69.1^^105^1469^7
;;^UTILITY(U,$J,358.3,36150,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36150,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Oils/Essences
;;^UTILITY(U,$J,358.3,36150,1,4,0)
;;=4^J69.1
;;^UTILITY(U,$J,358.3,36150,2)
;;=^95664
;;^UTILITY(U,$J,358.3,36151,0)
;;=J68.9^^105^1469^9
;;^UTILITY(U,$J,358.3,36151,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36151,1,3,0)
;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,36151,1,4,0)
;;=4^J68.9
;;^UTILITY(U,$J,358.3,36151,2)
;;=^5008287
;;^UTILITY(U,$J,358.3,36152,0)
;;=J84.114^^105^1469^1
;;^UTILITY(U,$J,358.3,36152,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36152,1,3,0)
;;=3^Acute Interstitial Pneumonitis
;;^UTILITY(U,$J,358.3,36152,1,4,0)
;;=4^J84.114
;;^UTILITY(U,$J,358.3,36152,2)
;;=^340536
;;^UTILITY(U,$J,358.3,36153,0)
;;=J84.89^^105^1469^6
;;^UTILITY(U,$J,358.3,36153,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36153,1,3,0)
;;=3^Interstitial Pulmonary Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,36153,1,4,0)
;;=4^J84.89
;;^UTILITY(U,$J,358.3,36153,2)
;;=^5008303
;;^UTILITY(U,$J,358.3,36154,0)
;;=J82.81^^105^1469^5
;;^UTILITY(U,$J,358.3,36154,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36154,1,3,0)
;;=3^Eosinophilic Pneumonia,Chronic
;;^UTILITY(U,$J,358.3,36154,1,4,0)
;;=4^J82.81
;;^UTILITY(U,$J,358.3,36154,2)
;;=^24374
;;^UTILITY(U,$J,358.3,36155,0)
;;=J82.82^^105^1469^4
;;^UTILITY(U,$J,358.3,36155,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36155,1,3,0)
;;=3^Eosinophilic Pneumonia,Acute
;;^UTILITY(U,$J,358.3,36155,1,4,0)
;;=4^J82.82
;;^UTILITY(U,$J,358.3,36155,2)
;;=^5159205
;;^UTILITY(U,$J,358.3,36156,0)
;;=J82.83^^105^1469^3
;;^UTILITY(U,$J,358.3,36156,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36156,1,3,0)
;;=3^Eosinophilic Asthma
;;^UTILITY(U,$J,358.3,36156,1,4,0)
;;=4^J82.83
;;^UTILITY(U,$J,358.3,36156,2)
;;=^5159206
;;^UTILITY(U,$J,358.3,36157,0)
;;=J82.89^^105^1469^8
;;^UTILITY(U,$J,358.3,36157,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36157,1,3,0)
;;=3^Pulmonary Eosinophilia,Other,NEC
;;^UTILITY(U,$J,358.3,36157,1,4,0)
;;=4^J82.89
;;^UTILITY(U,$J,358.3,36157,2)
;;=^5159207
;;^UTILITY(U,$J,358.3,36158,0)
;;=96160^^106^1470^2^^^^1
;;^UTILITY(U,$J,358.3,36158,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36158,1,2,0)
;;=2^96160
;;^UTILITY(U,$J,358.3,36158,1,3,0)
;;=3^Admin Pt Focused Health Risk Assessmt w/ Scoring
;;^UTILITY(U,$J,358.3,36159,0)
;;=96161^^106^1470^1^^^^1
;;^UTILITY(U,$J,358.3,36159,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36159,1,2,0)
;;=2^96161
;;^UTILITY(U,$J,358.3,36159,1,3,0)
;;=3^Admin Caregiver Focused Hlth Risk Assmt w/ Scoring
;;^UTILITY(U,$J,358.3,36160,0)
;;=96156^^106^1470^3^^^^1
;;^UTILITY(U,$J,358.3,36160,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36160,1,2,0)
;;=2^96156
;;^UTILITY(U,$J,358.3,36160,1,3,0)
;;=3^Health Behavior Assessment/Reassessment
;;^UTILITY(U,$J,358.3,36161,0)
;;=96164^^106^1471^5^^^^1
;;^UTILITY(U,$J,358.3,36161,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36161,1,2,0)
;;=2^96164
;;^UTILITY(U,$J,358.3,36161,1,3,0)
;;=3^Hlth Bhv Intv,Grp,1st 30 min
;;^UTILITY(U,$J,358.3,36162,0)
;;=96165^^106^1471^6^^^^1
;;^UTILITY(U,$J,358.3,36162,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36162,1,2,0)
;;=2^96165
;;^UTILITY(U,$J,358.3,36162,1,3,0)
;;=3^Hlth Bhv Intv,Grp,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,36163,0)
;;=96167^^106^1471^1^^^^1
;;^UTILITY(U,$J,358.3,36163,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36163,1,2,0)
;;=2^96167
;;^UTILITY(U,$J,358.3,36163,1,3,0)
;;=3^Hlth Bhv Intv,Fam w/ Pt,1st 30 min
;;^UTILITY(U,$J,358.3,36164,0)
;;=96168^^106^1471^2^^^^1
;;^UTILITY(U,$J,358.3,36164,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36164,1,2,0)
;;=2^96168
;;^UTILITY(U,$J,358.3,36164,1,3,0)
;;=3^Hlth Bhv Intv,Fam w/ Pt,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,36165,0)
;;=96170^^106^1471^3^^^^1
;;^UTILITY(U,$J,358.3,36165,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36165,1,2,0)
;;=2^96170
;;^UTILITY(U,$J,358.3,36165,1,3,0)
;;=3^Hlth Bhv Intv,Fam w/o Pt,1st 30 min
;;^UTILITY(U,$J,358.3,36166,0)
;;=96171^^106^1471^4^^^^1
;;^UTILITY(U,$J,358.3,36166,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36166,1,2,0)
;;=2^96171
;;^UTILITY(U,$J,358.3,36166,1,3,0)
;;=3^Hlth Bhv Intv,Fam w/o Pt,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,36167,0)
;;=96158^^106^1471^7^^^^1
;;^UTILITY(U,$J,358.3,36167,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36167,1,2,0)
;;=2^96158
;;^UTILITY(U,$J,358.3,36167,1,3,0)
;;=3^Hlth Bhv Intv,Ind,1st 30 min
;;^UTILITY(U,$J,358.3,36168,0)
;;=96159^^106^1471^8^^^^1
;;^UTILITY(U,$J,358.3,36168,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,36168,1,2,0)
;;=2^96159
;;^UTILITY(U,$J,358.3,36168,1,3,0)
;;=3^Hlth Bhv Intv,Ind,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,36169,0)
;;=B18.2^^107^1472^40
;;^UTILITY(U,$J,358.3,36169,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36169,1,3,0)
;;=3^Hepatitis C,Chr
;;^UTILITY(U,$J,358.3,36169,1,4,0)
;;=4^B18.2
;;^UTILITY(U,$J,358.3,36169,2)
;;=^5000548
;;^UTILITY(U,$J,358.3,36170,0)
;;=E11.9^^107^1472^25
;;^UTILITY(U,$J,358.3,36170,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36170,1,3,0)
;;=3^Diabetes Type 2
;;^UTILITY(U,$J,358.3,36170,1,4,0)
;;=4^E11.9
;;^UTILITY(U,$J,358.3,36170,2)
;;=^5002666
;;^UTILITY(U,$J,358.3,36171,0)
;;=E11.40^^107^1472^23
;;^UTILITY(U,$J,358.3,36171,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36171,1,3,0)
;;=3^DM Type 2 w/ Neuropathy
;;^UTILITY(U,$J,358.3,36171,1,4,0)
;;=4^E11.40
;;^UTILITY(U,$J,358.3,36171,2)
;;=^5002644
;;^UTILITY(U,$J,358.3,36172,0)
;;=E78.2^^107^1472^41
;;^UTILITY(U,$J,358.3,36172,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36172,1,3,0)
;;=3^Hyperlipidemia,Mixed
;;^UTILITY(U,$J,358.3,36172,1,4,0)
;;=4^E78.2
;;^UTILITY(U,$J,358.3,36172,2)
;;=^78424
;;^UTILITY(U,$J,358.3,36173,0)
;;=E78.5^^107^1472^42
;;^UTILITY(U,$J,358.3,36173,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36173,1,3,0)
;;=3^Hyperlipidemia,Unspec
;;^UTILITY(U,$J,358.3,36173,1,4,0)
;;=4^E78.5
;;^UTILITY(U,$J,358.3,36173,2)
;;=^5002969
;;^UTILITY(U,$J,358.3,36174,0)
;;=E66.3^^107^1472^59
;;^UTILITY(U,$J,358.3,36174,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36174,1,3,0)
;;=3^Overweight
;;^UTILITY(U,$J,358.3,36174,1,4,0)
;;=4^E66.3
;;^UTILITY(U,$J,358.3,36174,2)
;;=^5002830
;;^UTILITY(U,$J,358.3,36175,0)
;;=F17.200^^107^1472^52
;;^UTILITY(U,$J,358.3,36175,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36175,1,3,0)
;;=3^Nicotine Dependence,Unspec
;;^UTILITY(U,$J,358.3,36175,1,4,0)
;;=4^F17.200
;;^UTILITY(U,$J,358.3,36175,2)
;;=^5003360
;;^UTILITY(U,$J,358.3,36176,0)
;;=G43.909^^107^1472^50
;;^UTILITY(U,$J,358.3,36176,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36176,1,3,0)
;;=3^Migraine,Unspec
;;^UTILITY(U,$J,358.3,36176,1,4,0)
;;=4^G43.909
;;^UTILITY(U,$J,358.3,36176,2)
;;=^5003909
;;^UTILITY(U,$J,358.3,36177,0)
;;=H91.93^^107^1472^36
;;^UTILITY(U,$J,358.3,36177,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36177,1,3,0)
;;=3^Hearing Loss,Bilateral
;;^UTILITY(U,$J,358.3,36177,1,4,0)
;;=4^H91.93
;;^UTILITY(U,$J,358.3,36177,2)
;;=^5006944
;;^UTILITY(U,$J,358.3,36178,0)
;;=I10.^^107^1472^43
;;^UTILITY(U,$J,358.3,36178,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36178,1,3,0)
;;=3^Hypertension
;;^UTILITY(U,$J,358.3,36178,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,36178,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,36179,0)
;;=I50.9^^107^1472^19
;;^UTILITY(U,$J,358.3,36179,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36179,1,3,0)
;;=3^Congestive Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,36179,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,36179,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,36180,0)
;;=I67.89^^107^1472^18
;;^UTILITY(U,$J,358.3,36180,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36180,1,3,0)
;;=3^Cerebrovascular Disease,Oth
;;^UTILITY(U,$J,358.3,36180,1,4,0)
;;=4^I67.89
;;^UTILITY(U,$J,358.3,36180,2)
;;=^5007388
;;^UTILITY(U,$J,358.3,36181,0)
;;=J45.909^^107^1472^4
;;^UTILITY(U,$J,358.3,36181,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36181,1,3,0)
;;=3^Asthma,Unspec,Uncomplicated
;;^UTILITY(U,$J,358.3,36181,1,4,0)
;;=4^J45.909
;;^UTILITY(U,$J,358.3,36181,2)
;;=^5008256
;;^UTILITY(U,$J,358.3,36182,0)
;;=J44.9^^107^1472^16
;;^UTILITY(U,$J,358.3,36182,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36182,1,3,0)
;;=3^COPD,Unspec
;;^UTILITY(U,$J,358.3,36182,1,4,0)
;;=4^J44.9
;;^UTILITY(U,$J,358.3,36182,2)
;;=^5008241
;;^UTILITY(U,$J,358.3,36183,0)
;;=K21.9^^107^1472^31
;;^UTILITY(U,$J,358.3,36183,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36183,1,3,0)
;;=3^GERD w/o Esophagitis
;;^UTILITY(U,$J,358.3,36183,1,4,0)
;;=4^K21.9
;;^UTILITY(U,$J,358.3,36183,2)
;;=^5008505
;;^UTILITY(U,$J,358.3,36184,0)
;;=N40.1^^107^1472^29
;;^UTILITY(U,$J,358.3,36184,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36184,1,3,0)
;;=3^Enlarged Prostate w/ LUTS
;;^UTILITY(U,$J,358.3,36184,1,4,0)
;;=4^N40.1
;;^UTILITY(U,$J,358.3,36184,2)
;;=^5015690
;;^UTILITY(U,$J,358.3,36185,0)
;;=L03.818^^107^1472^17
;;^UTILITY(U,$J,358.3,36185,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36185,1,3,0)
;;=3^Cellulitis,Oth Sites
;;^UTILITY(U,$J,358.3,36185,1,4,0)
;;=4^L03.818
;;^UTILITY(U,$J,358.3,36185,2)
;;=^5009064
;;^UTILITY(U,$J,358.3,36186,0)
;;=G47.33^^107^1472^77
;;^UTILITY(U,$J,358.3,36186,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36186,1,3,0)
;;=3^Sleep Apnea,Obstructive
;;^UTILITY(U,$J,358.3,36186,1,4,0)
;;=4^G47.33
;;^UTILITY(U,$J,358.3,36186,2)
;;=^332763
;;^UTILITY(U,$J,358.3,36187,0)
;;=R73.01^^107^1472^46
;;^UTILITY(U,$J,358.3,36187,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36187,1,3,0)
;;=3^Impaired Fasting Glucose
;;^UTILITY(U,$J,358.3,36187,1,4,0)
;;=4^R73.01
;;^UTILITY(U,$J,358.3,36187,2)
;;=^5019561
;;^UTILITY(U,$J,358.3,36188,0)
;;=R74.8^^107^1472^1
;;^UTILITY(U,$J,358.3,36188,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36188,1,3,0)
;;=3^Abnormal Levels of Serum Enzymes
;;^UTILITY(U,$J,358.3,36188,1,4,0)
;;=4^R74.8
;;^UTILITY(U,$J,358.3,36188,2)
;;=^5019566
;;^UTILITY(U,$J,358.3,36189,0)
;;=R03.0^^107^1472^27
;;^UTILITY(U,$J,358.3,36189,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36189,1,3,0)
;;=3^Elevated BP Reading w/o Diagnosis of HTN
;;^UTILITY(U,$J,358.3,36189,1,4,0)
;;=4^R03.0
;;^UTILITY(U,$J,358.3,36189,2)
;;=^5019171
;;^UTILITY(U,$J,358.3,36190,0)
;;=Z91.19^^107^1472^53
;;^UTILITY(U,$J,358.3,36190,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36190,1,3,0)
;;=3^Noncompliance w/ Medical Treatment/Regimen
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0EF 19801 printed Sep 23, 2025@19:23:03 Page 2
IBDEI0EF ; ; 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,36120,0)
+2 ;;=J16.8^^105^1466^14
+3 ;;^UTILITY(U,$J,358.3,36120,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,36120,1,3,0)
+6 ;;=3^Pneumonia d/t Other Spec Infectious Organisms
+7 ;;^UTILITY(U,$J,358.3,36120,1,4,0)
+8 ;;=4^J16.8
+9 ;;^UTILITY(U,$J,358.3,36120,2)
+10 ;;=^5008180
+11 ;;^UTILITY(U,$J,358.3,36121,0)
+12 ;;=J17.^^105^1466^21
+13 ;;^UTILITY(U,$J,358.3,36121,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,36121,1,3,0)
+16 ;;=3^Pneumonia in Diseases Classified Elsewhere
+17 ;;^UTILITY(U,$J,358.3,36121,1,4,0)
+18 ;;=4^J17.
+19 ;;^UTILITY(U,$J,358.3,36121,2)
+20 ;;=^5008181
+21 ;;^UTILITY(U,$J,358.3,36122,0)
+22 ;;=J18.0^^105^1466^2
+23 ;;^UTILITY(U,$J,358.3,36122,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,36122,1,3,0)
+26 ;;=3^Bronchopneumonia,Unspec Organism
+27 ;;^UTILITY(U,$J,358.3,36122,1,4,0)
+28 ;;=4^J18.0
+29 ;;^UTILITY(U,$J,358.3,36122,2)
+30 ;;=^5008182
+31 ;;^UTILITY(U,$J,358.3,36123,0)
+32 ;;=J18.1^^105^1466^25
+33 ;;^UTILITY(U,$J,358.3,36123,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,36123,1,3,0)
+36 ;;=3^Pneumonia,Lobar,Unspec Organism
+37 ;;^UTILITY(U,$J,358.3,36123,1,4,0)
+38 ;;=4^J18.1
+39 ;;^UTILITY(U,$J,358.3,36123,2)
+40 ;;=^5008183
+41 ;;^UTILITY(U,$J,358.3,36124,0)
+42 ;;=J18.2^^105^1466^24
+43 ;;^UTILITY(U,$J,358.3,36124,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,36124,1,3,0)
+46 ;;=3^Pneumonia,Hypostatic,Unspec Organism
+47 ;;^UTILITY(U,$J,358.3,36124,1,4,0)
+48 ;;=4^J18.2
+49 ;;^UTILITY(U,$J,358.3,36124,2)
+50 ;;=^5008184
+51 ;;^UTILITY(U,$J,358.3,36125,0)
+52 ;;=J18.8^^105^1466^26
+53 ;;^UTILITY(U,$J,358.3,36125,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,36125,1,3,0)
+56 ;;=3^Pneumonia,Oth,Unspec Organism
+57 ;;^UTILITY(U,$J,358.3,36125,1,4,0)
+58 ;;=4^J18.8
+59 ;;^UTILITY(U,$J,358.3,36125,2)
+60 ;;=^5008185
+61 ;;^UTILITY(U,$J,358.3,36126,0)
+62 ;;=J18.9^^105^1466^27
+63 ;;^UTILITY(U,$J,358.3,36126,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,36126,1,3,0)
+66 ;;=3^Pneumonia,Unspec Organism
+67 ;;^UTILITY(U,$J,358.3,36126,1,4,0)
+68 ;;=4^J18.9
+69 ;;^UTILITY(U,$J,358.3,36126,2)
+70 ;;=^95632
+71 ;;^UTILITY(U,$J,358.3,36127,0)
+72 ;;=N39.0^^105^1467^13
+73 ;;^UTILITY(U,$J,358.3,36127,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,36127,1,3,0)
+76 ;;=3^UTI,Site not Spec
+77 ;;^UTILITY(U,$J,358.3,36127,1,4,0)
+78 ;;=4^N39.0
+79 ;;^UTILITY(U,$J,358.3,36127,2)
+80 ;;=^124436
+81 ;;^UTILITY(U,$J,358.3,36128,0)
+82 ;;=N30.01^^105^1467^1
+83 ;;^UTILITY(U,$J,358.3,36128,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,36128,1,3,0)
+86 ;;=3^Acute Cystitis w/ Hematuria
+87 ;;^UTILITY(U,$J,358.3,36128,1,4,0)
+88 ;;=4^N30.01
+89 ;;^UTILITY(U,$J,358.3,36128,2)
+90 ;;=^5015633
+91 ;;^UTILITY(U,$J,358.3,36129,0)
+92 ;;=N30.00^^105^1467^2
+93 ;;^UTILITY(U,$J,358.3,36129,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,36129,1,3,0)
+96 ;;=3^Acute Cystitis w/o Hematuria
+97 ;;^UTILITY(U,$J,358.3,36129,1,4,0)
+98 ;;=4^N30.00
+99 ;;^UTILITY(U,$J,358.3,36129,2)
+100 ;;=^5015632
+101 ;;^UTILITY(U,$J,358.3,36130,0)
+102 ;;=N10.^^105^1467^3
+103 ;;^UTILITY(U,$J,358.3,36130,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,36130,1,3,0)
+106 ;;=3^Acute Tubulo-Interstitial Nephritis
+107 ;;^UTILITY(U,$J,358.3,36130,1,4,0)
+108 ;;=4^N10.
+109 ;;^UTILITY(U,$J,358.3,36130,2)
+110 ;;=^5015570
+111 ;;^UTILITY(U,$J,358.3,36131,0)
+112 ;;=N11.9^^105^1467^4
+113 ;;^UTILITY(U,$J,358.3,36131,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,36131,1,3,0)
+116 ;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
+117 ;;^UTILITY(U,$J,358.3,36131,1,4,0)
+118 ;;=4^N11.9
+119 ;;^UTILITY(U,$J,358.3,36131,2)
+120 ;;=^5015574
+121 ;;^UTILITY(U,$J,358.3,36132,0)
+122 ;;=N30.91^^105^1467^5
+123 ;;^UTILITY(U,$J,358.3,36132,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,36132,1,3,0)
+126 ;;=3^Cystitis,Unspec w/ Hematuria
+127 ;;^UTILITY(U,$J,358.3,36132,1,4,0)
+128 ;;=4^N30.91
+129 ;;^UTILITY(U,$J,358.3,36132,2)
+130 ;;=^5015643
+131 ;;^UTILITY(U,$J,358.3,36133,0)
+132 ;;=N30.90^^105^1467^6
+133 ;;^UTILITY(U,$J,358.3,36133,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,36133,1,3,0)
+136 ;;=3^Cystitis,Unspec w/o Hematuria
+137 ;;^UTILITY(U,$J,358.3,36133,1,4,0)
+138 ;;=4^N30.90
+139 ;;^UTILITY(U,$J,358.3,36133,2)
+140 ;;=^5015642
+141 ;;^UTILITY(U,$J,358.3,36134,0)
+142 ;;=N28.84^^105^1467^7
+143 ;;^UTILITY(U,$J,358.3,36134,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,36134,1,3,0)
+146 ;;=3^Pyelitis Cystica
+147 ;;^UTILITY(U,$J,358.3,36134,1,4,0)
+148 ;;=4^N28.84
+149 ;;^UTILITY(U,$J,358.3,36134,2)
+150 ;;=^5015628
+151 ;;^UTILITY(U,$J,358.3,36135,0)
+152 ;;=N28.85^^105^1467^8
+153 ;;^UTILITY(U,$J,358.3,36135,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,36135,1,3,0)
+156 ;;=3^Pyeloureteritis Cystica
+157 ;;^UTILITY(U,$J,358.3,36135,1,4,0)
+158 ;;=4^N28.85
+159 ;;^UTILITY(U,$J,358.3,36135,2)
+160 ;;=^270372
+161 ;;^UTILITY(U,$J,358.3,36136,0)
+162 ;;=N15.1^^105^1467^9
+163 ;;^UTILITY(U,$J,358.3,36136,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,36136,1,3,0)
+166 ;;=3^Renal & Perinephric Abscess
+167 ;;^UTILITY(U,$J,358.3,36136,1,4,0)
+168 ;;=4^N15.1
+169 ;;^UTILITY(U,$J,358.3,36136,2)
+170 ;;=^270371
+171 ;;^UTILITY(U,$J,358.3,36137,0)
+172 ;;=N16.^^105^1467^10
+173 ;;^UTILITY(U,$J,358.3,36137,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,36137,1,3,0)
+176 ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
+177 ;;^UTILITY(U,$J,358.3,36137,1,4,0)
+178 ;;=4^N16.
+179 ;;^UTILITY(U,$J,358.3,36137,2)
+180 ;;=^5015597
+181 ;;^UTILITY(U,$J,358.3,36138,0)
+182 ;;=N15.9^^105^1467^11
+183 ;;^UTILITY(U,$J,358.3,36138,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,36138,1,3,0)
+186 ;;=3^Tubulo-Interstitial Disease,Unspec
+187 ;;^UTILITY(U,$J,358.3,36138,1,4,0)
+188 ;;=4^N15.9
+189 ;;^UTILITY(U,$J,358.3,36138,2)
+190 ;;=^5015596
+191 ;;^UTILITY(U,$J,358.3,36139,0)
+192 ;;=N12.^^105^1467^12
+193 ;;^UTILITY(U,$J,358.3,36139,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,36139,1,3,0)
+196 ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
+197 ;;^UTILITY(U,$J,358.3,36139,1,4,0)
+198 ;;=4^N12.
+199 ;;^UTILITY(U,$J,358.3,36139,2)
+200 ;;=^5015575
+201 ;;^UTILITY(U,$J,358.3,36140,0)
+202 ;;=N28.86^^105^1467^14
+203 ;;^UTILITY(U,$J,358.3,36140,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,36140,1,3,0)
+206 ;;=3^Ureteritis Cystica
+207 ;;^UTILITY(U,$J,358.3,36140,1,4,0)
+208 ;;=4^N28.86
+209 ;;^UTILITY(U,$J,358.3,36140,2)
+210 ;;=^5015629
+211 ;;^UTILITY(U,$J,358.3,36141,0)
+212 ;;=A08.0^^105^1468^6
+213 ;;^UTILITY(U,$J,358.3,36141,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,36141,1,3,0)
+216 ;;=3^Enteritis,Rotaviral
+217 ;;^UTILITY(U,$J,358.3,36141,1,4,0)
+218 ;;=4^A08.0
+219 ;;^UTILITY(U,$J,358.3,36141,2)
+220 ;;=^5000052
+221 ;;^UTILITY(U,$J,358.3,36142,0)
+222 ;;=A08.11^^105^1468^1
+223 ;;^UTILITY(U,$J,358.3,36142,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,36142,1,3,0)
+226 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+227 ;;^UTILITY(U,$J,358.3,36142,1,4,0)
+228 ;;=4^A08.11
+229 ;;^UTILITY(U,$J,358.3,36142,2)
+230 ;;=^5000053
+231 ;;^UTILITY(U,$J,358.3,36143,0)
+232 ;;=A08.19^^105^1468^2
+233 ;;^UTILITY(U,$J,358.3,36143,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,36143,1,3,0)
+236 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+237 ;;^UTILITY(U,$J,358.3,36143,1,4,0)
+238 ;;=4^A08.19
+239 ;;^UTILITY(U,$J,358.3,36143,2)
+240 ;;=^5000054
+241 ;;^UTILITY(U,$J,358.3,36144,0)
+242 ;;=A08.2^^105^1468^3
+243 ;;^UTILITY(U,$J,358.3,36144,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,36144,1,3,0)
+246 ;;=3^Enteritis,Adenoviral
+247 ;;^UTILITY(U,$J,358.3,36144,1,4,0)
+248 ;;=4^A08.2
+249 ;;^UTILITY(U,$J,358.3,36144,2)
+250 ;;=^5000055
+251 ;;^UTILITY(U,$J,358.3,36145,0)
+252 ;;=A08.31^^105^1468^5
+253 ;;^UTILITY(U,$J,358.3,36145,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,36145,1,3,0)
+256 ;;=3^Enteritis,Calicivirus
+257 ;;^UTILITY(U,$J,358.3,36145,1,4,0)
+258 ;;=4^A08.31
+259 ;;^UTILITY(U,$J,358.3,36145,2)
+260 ;;=^5000056
+261 ;;^UTILITY(U,$J,358.3,36146,0)
+262 ;;=A08.32^^105^1468^4
+263 ;;^UTILITY(U,$J,358.3,36146,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,36146,1,3,0)
+266 ;;=3^Enteritis,Astrovirus
+267 ;;^UTILITY(U,$J,358.3,36146,1,4,0)
+268 ;;=4^A08.32
+269 ;;^UTILITY(U,$J,358.3,36146,2)
+270 ;;=^5000058
+271 ;;^UTILITY(U,$J,358.3,36147,0)
+272 ;;=A08.4^^105^1468^8
+273 ;;^UTILITY(U,$J,358.3,36147,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,36147,1,3,0)
+276 ;;=3^Viral Intestinal Infection,Unspec
+277 ;;^UTILITY(U,$J,358.3,36147,1,4,0)
+278 ;;=4^A08.4
+279 ;;^UTILITY(U,$J,358.3,36147,2)
+280 ;;=^5000059
+281 ;;^UTILITY(U,$J,358.3,36148,0)
+282 ;;=A08.8^^105^1468^7
+283 ;;^UTILITY(U,$J,358.3,36148,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,36148,1,3,0)
+286 ;;=3^Intestinal Infections,Oth Spec
+287 ;;^UTILITY(U,$J,358.3,36148,1,4,0)
+288 ;;=4^A08.8
+289 ;;^UTILITY(U,$J,358.3,36148,2)
+290 ;;=^5000060
+291 ;;^UTILITY(U,$J,358.3,36149,0)
+292 ;;=J68.0^^105^1469^2
+293 ;;^UTILITY(U,$J,358.3,36149,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,36149,1,3,0)
+296 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
+297 ;;^UTILITY(U,$J,358.3,36149,1,4,0)
+298 ;;=4^J68.0
+299 ;;^UTILITY(U,$J,358.3,36149,2)
+300 ;;=^5008281
+301 ;;^UTILITY(U,$J,358.3,36150,0)
+302 ;;=J69.1^^105^1469^7
+303 ;;^UTILITY(U,$J,358.3,36150,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,36150,1,3,0)
+306 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
+307 ;;^UTILITY(U,$J,358.3,36150,1,4,0)
+308 ;;=4^J69.1
+309 ;;^UTILITY(U,$J,358.3,36150,2)
+310 ;;=^95664
+311 ;;^UTILITY(U,$J,358.3,36151,0)
+312 ;;=J68.9^^105^1469^9
+313 ;;^UTILITY(U,$J,358.3,36151,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,36151,1,3,0)
+316 ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
+317 ;;^UTILITY(U,$J,358.3,36151,1,4,0)
+318 ;;=4^J68.9
+319 ;;^UTILITY(U,$J,358.3,36151,2)
+320 ;;=^5008287
+321 ;;^UTILITY(U,$J,358.3,36152,0)
+322 ;;=J84.114^^105^1469^1
+323 ;;^UTILITY(U,$J,358.3,36152,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,36152,1,3,0)
+326 ;;=3^Acute Interstitial Pneumonitis
+327 ;;^UTILITY(U,$J,358.3,36152,1,4,0)
+328 ;;=4^J84.114
+329 ;;^UTILITY(U,$J,358.3,36152,2)
+330 ;;=^340536
+331 ;;^UTILITY(U,$J,358.3,36153,0)
+332 ;;=J84.89^^105^1469^6
+333 ;;^UTILITY(U,$J,358.3,36153,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,36153,1,3,0)
+336 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
+337 ;;^UTILITY(U,$J,358.3,36153,1,4,0)
+338 ;;=4^J84.89
+339 ;;^UTILITY(U,$J,358.3,36153,2)
+340 ;;=^5008303
+341 ;;^UTILITY(U,$J,358.3,36154,0)
+342 ;;=J82.81^^105^1469^5
+343 ;;^UTILITY(U,$J,358.3,36154,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,36154,1,3,0)
+346 ;;=3^Eosinophilic Pneumonia,Chronic
+347 ;;^UTILITY(U,$J,358.3,36154,1,4,0)
+348 ;;=4^J82.81
+349 ;;^UTILITY(U,$J,358.3,36154,2)
+350 ;;=^24374
+351 ;;^UTILITY(U,$J,358.3,36155,0)
+352 ;;=J82.82^^105^1469^4
+353 ;;^UTILITY(U,$J,358.3,36155,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,36155,1,3,0)
+356 ;;=3^Eosinophilic Pneumonia,Acute
+357 ;;^UTILITY(U,$J,358.3,36155,1,4,0)
+358 ;;=4^J82.82
+359 ;;^UTILITY(U,$J,358.3,36155,2)
+360 ;;=^5159205
+361 ;;^UTILITY(U,$J,358.3,36156,0)
+362 ;;=J82.83^^105^1469^3
+363 ;;^UTILITY(U,$J,358.3,36156,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,36156,1,3,0)
+366 ;;=3^Eosinophilic Asthma
+367 ;;^UTILITY(U,$J,358.3,36156,1,4,0)
+368 ;;=4^J82.83
+369 ;;^UTILITY(U,$J,358.3,36156,2)
+370 ;;=^5159206
+371 ;;^UTILITY(U,$J,358.3,36157,0)
+372 ;;=J82.89^^105^1469^8
+373 ;;^UTILITY(U,$J,358.3,36157,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,36157,1,3,0)
+376 ;;=3^Pulmonary Eosinophilia,Other,NEC
+377 ;;^UTILITY(U,$J,358.3,36157,1,4,0)
+378 ;;=4^J82.89
+379 ;;^UTILITY(U,$J,358.3,36157,2)
+380 ;;=^5159207
+381 ;;^UTILITY(U,$J,358.3,36158,0)
+382 ;;=96160^^106^1470^2^^^^1
+383 ;;^UTILITY(U,$J,358.3,36158,1,0)
+384 ;;=^358.31IA^3^2
+385 ;;^UTILITY(U,$J,358.3,36158,1,2,0)
+386 ;;=2^96160
+387 ;;^UTILITY(U,$J,358.3,36158,1,3,0)
+388 ;;=3^Admin Pt Focused Health Risk Assessmt w/ Scoring
+389 ;;^UTILITY(U,$J,358.3,36159,0)
+390 ;;=96161^^106^1470^1^^^^1
+391 ;;^UTILITY(U,$J,358.3,36159,1,0)
+392 ;;=^358.31IA^3^2
+393 ;;^UTILITY(U,$J,358.3,36159,1,2,0)
+394 ;;=2^96161
+395 ;;^UTILITY(U,$J,358.3,36159,1,3,0)
+396 ;;=3^Admin Caregiver Focused Hlth Risk Assmt w/ Scoring
+397 ;;^UTILITY(U,$J,358.3,36160,0)
+398 ;;=96156^^106^1470^3^^^^1
+399 ;;^UTILITY(U,$J,358.3,36160,1,0)
+400 ;;=^358.31IA^3^2
+401 ;;^UTILITY(U,$J,358.3,36160,1,2,0)
+402 ;;=2^96156
+403 ;;^UTILITY(U,$J,358.3,36160,1,3,0)
+404 ;;=3^Health Behavior Assessment/Reassessment
+405 ;;^UTILITY(U,$J,358.3,36161,0)
+406 ;;=96164^^106^1471^5^^^^1
+407 ;;^UTILITY(U,$J,358.3,36161,1,0)
+408 ;;=^358.31IA^3^2
+409 ;;^UTILITY(U,$J,358.3,36161,1,2,0)
+410 ;;=2^96164
+411 ;;^UTILITY(U,$J,358.3,36161,1,3,0)
+412 ;;=3^Hlth Bhv Intv,Grp,1st 30 min
+413 ;;^UTILITY(U,$J,358.3,36162,0)
+414 ;;=96165^^106^1471^6^^^^1
+415 ;;^UTILITY(U,$J,358.3,36162,1,0)
+416 ;;=^358.31IA^3^2
+417 ;;^UTILITY(U,$J,358.3,36162,1,2,0)
+418 ;;=2^96165
+419 ;;^UTILITY(U,$J,358.3,36162,1,3,0)
+420 ;;=3^Hlth Bhv Intv,Grp,Ea Addl 15 min
+421 ;;^UTILITY(U,$J,358.3,36163,0)
+422 ;;=96167^^106^1471^1^^^^1
+423 ;;^UTILITY(U,$J,358.3,36163,1,0)
+424 ;;=^358.31IA^3^2
+425 ;;^UTILITY(U,$J,358.3,36163,1,2,0)
+426 ;;=2^96167
+427 ;;^UTILITY(U,$J,358.3,36163,1,3,0)
+428 ;;=3^Hlth Bhv Intv,Fam w/ Pt,1st 30 min
+429 ;;^UTILITY(U,$J,358.3,36164,0)
+430 ;;=96168^^106^1471^2^^^^1
+431 ;;^UTILITY(U,$J,358.3,36164,1,0)
+432 ;;=^358.31IA^3^2
+433 ;;^UTILITY(U,$J,358.3,36164,1,2,0)
+434 ;;=2^96168
+435 ;;^UTILITY(U,$J,358.3,36164,1,3,0)
+436 ;;=3^Hlth Bhv Intv,Fam w/ Pt,Ea Addl 15 min
+437 ;;^UTILITY(U,$J,358.3,36165,0)
+438 ;;=96170^^106^1471^3^^^^1
+439 ;;^UTILITY(U,$J,358.3,36165,1,0)
+440 ;;=^358.31IA^3^2
+441 ;;^UTILITY(U,$J,358.3,36165,1,2,0)
+442 ;;=2^96170
+443 ;;^UTILITY(U,$J,358.3,36165,1,3,0)
+444 ;;=3^Hlth Bhv Intv,Fam w/o Pt,1st 30 min
+445 ;;^UTILITY(U,$J,358.3,36166,0)
+446 ;;=96171^^106^1471^4^^^^1
+447 ;;^UTILITY(U,$J,358.3,36166,1,0)
+448 ;;=^358.31IA^3^2
+449 ;;^UTILITY(U,$J,358.3,36166,1,2,0)
+450 ;;=2^96171
+451 ;;^UTILITY(U,$J,358.3,36166,1,3,0)
+452 ;;=3^Hlth Bhv Intv,Fam w/o Pt,Ea Addl 15 min
+453 ;;^UTILITY(U,$J,358.3,36167,0)
+454 ;;=96158^^106^1471^7^^^^1
+455 ;;^UTILITY(U,$J,358.3,36167,1,0)
+456 ;;=^358.31IA^3^2
+457 ;;^UTILITY(U,$J,358.3,36167,1,2,0)
+458 ;;=2^96158
+459 ;;^UTILITY(U,$J,358.3,36167,1,3,0)
+460 ;;=3^Hlth Bhv Intv,Ind,1st 30 min
+461 ;;^UTILITY(U,$J,358.3,36168,0)
+462 ;;=96159^^106^1471^8^^^^1
+463 ;;^UTILITY(U,$J,358.3,36168,1,0)
+464 ;;=^358.31IA^3^2
+465 ;;^UTILITY(U,$J,358.3,36168,1,2,0)
+466 ;;=2^96159
+467 ;;^UTILITY(U,$J,358.3,36168,1,3,0)
+468 ;;=3^Hlth Bhv Intv,Ind,Ea Addl 15 min
+469 ;;^UTILITY(U,$J,358.3,36169,0)
+470 ;;=B18.2^^107^1472^40
+471 ;;^UTILITY(U,$J,358.3,36169,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,36169,1,3,0)
+474 ;;=3^Hepatitis C,Chr
+475 ;;^UTILITY(U,$J,358.3,36169,1,4,0)
+476 ;;=4^B18.2
+477 ;;^UTILITY(U,$J,358.3,36169,2)
+478 ;;=^5000548
+479 ;;^UTILITY(U,$J,358.3,36170,0)
+480 ;;=E11.9^^107^1472^25
+481 ;;^UTILITY(U,$J,358.3,36170,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,36170,1,3,0)
+484 ;;=3^Diabetes Type 2
+485 ;;^UTILITY(U,$J,358.3,36170,1,4,0)
+486 ;;=4^E11.9
+487 ;;^UTILITY(U,$J,358.3,36170,2)
+488 ;;=^5002666
+489 ;;^UTILITY(U,$J,358.3,36171,0)
+490 ;;=E11.40^^107^1472^23
+491 ;;^UTILITY(U,$J,358.3,36171,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,36171,1,3,0)
+494 ;;=3^DM Type 2 w/ Neuropathy
+495 ;;^UTILITY(U,$J,358.3,36171,1,4,0)
+496 ;;=4^E11.40
+497 ;;^UTILITY(U,$J,358.3,36171,2)
+498 ;;=^5002644
+499 ;;^UTILITY(U,$J,358.3,36172,0)
+500 ;;=E78.2^^107^1472^41
+501 ;;^UTILITY(U,$J,358.3,36172,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,36172,1,3,0)
+504 ;;=3^Hyperlipidemia,Mixed
+505 ;;^UTILITY(U,$J,358.3,36172,1,4,0)
+506 ;;=4^E78.2
+507 ;;^UTILITY(U,$J,358.3,36172,2)
+508 ;;=^78424
+509 ;;^UTILITY(U,$J,358.3,36173,0)
+510 ;;=E78.5^^107^1472^42
+511 ;;^UTILITY(U,$J,358.3,36173,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,36173,1,3,0)
+514 ;;=3^Hyperlipidemia,Unspec
+515 ;;^UTILITY(U,$J,358.3,36173,1,4,0)
+516 ;;=4^E78.5
+517 ;;^UTILITY(U,$J,358.3,36173,2)
+518 ;;=^5002969
+519 ;;^UTILITY(U,$J,358.3,36174,0)
+520 ;;=E66.3^^107^1472^59
+521 ;;^UTILITY(U,$J,358.3,36174,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,36174,1,3,0)
+524 ;;=3^Overweight
+525 ;;^UTILITY(U,$J,358.3,36174,1,4,0)
+526 ;;=4^E66.3
+527 ;;^UTILITY(U,$J,358.3,36174,2)
+528 ;;=^5002830
+529 ;;^UTILITY(U,$J,358.3,36175,0)
+530 ;;=F17.200^^107^1472^52
+531 ;;^UTILITY(U,$J,358.3,36175,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,36175,1,3,0)
+534 ;;=3^Nicotine Dependence,Unspec
+535 ;;^UTILITY(U,$J,358.3,36175,1,4,0)
+536 ;;=4^F17.200
+537 ;;^UTILITY(U,$J,358.3,36175,2)
+538 ;;=^5003360
+539 ;;^UTILITY(U,$J,358.3,36176,0)
+540 ;;=G43.909^^107^1472^50
+541 ;;^UTILITY(U,$J,358.3,36176,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,36176,1,3,0)
+544 ;;=3^Migraine,Unspec
+545 ;;^UTILITY(U,$J,358.3,36176,1,4,0)
+546 ;;=4^G43.909
+547 ;;^UTILITY(U,$J,358.3,36176,2)
+548 ;;=^5003909
+549 ;;^UTILITY(U,$J,358.3,36177,0)
+550 ;;=H91.93^^107^1472^36
+551 ;;^UTILITY(U,$J,358.3,36177,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,36177,1,3,0)
+554 ;;=3^Hearing Loss,Bilateral
+555 ;;^UTILITY(U,$J,358.3,36177,1,4,0)
+556 ;;=4^H91.93
+557 ;;^UTILITY(U,$J,358.3,36177,2)
+558 ;;=^5006944
+559 ;;^UTILITY(U,$J,358.3,36178,0)
+560 ;;=I10.^^107^1472^43
+561 ;;^UTILITY(U,$J,358.3,36178,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,36178,1,3,0)
+564 ;;=3^Hypertension
+565 ;;^UTILITY(U,$J,358.3,36178,1,4,0)
+566 ;;=4^I10.
+567 ;;^UTILITY(U,$J,358.3,36178,2)
+568 ;;=^5007062
+569 ;;^UTILITY(U,$J,358.3,36179,0)
+570 ;;=I50.9^^107^1472^19
+571 ;;^UTILITY(U,$J,358.3,36179,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,36179,1,3,0)
+574 ;;=3^Congestive Heart Failure,Unspec
+575 ;;^UTILITY(U,$J,358.3,36179,1,4,0)
+576 ;;=4^I50.9
+577 ;;^UTILITY(U,$J,358.3,36179,2)
+578 ;;=^5007251
+579 ;;^UTILITY(U,$J,358.3,36180,0)
+580 ;;=I67.89^^107^1472^18
+581 ;;^UTILITY(U,$J,358.3,36180,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,36180,1,3,0)
+584 ;;=3^Cerebrovascular Disease,Oth
+585 ;;^UTILITY(U,$J,358.3,36180,1,4,0)
+586 ;;=4^I67.89
+587 ;;^UTILITY(U,$J,358.3,36180,2)
+588 ;;=^5007388
+589 ;;^UTILITY(U,$J,358.3,36181,0)
+590 ;;=J45.909^^107^1472^4
+591 ;;^UTILITY(U,$J,358.3,36181,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,36181,1,3,0)
+594 ;;=3^Asthma,Unspec,Uncomplicated
+595 ;;^UTILITY(U,$J,358.3,36181,1,4,0)
+596 ;;=4^J45.909
+597 ;;^UTILITY(U,$J,358.3,36181,2)
+598 ;;=^5008256
+599 ;;^UTILITY(U,$J,358.3,36182,0)
+600 ;;=J44.9^^107^1472^16
+601 ;;^UTILITY(U,$J,358.3,36182,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,36182,1,3,0)
+604 ;;=3^COPD,Unspec
+605 ;;^UTILITY(U,$J,358.3,36182,1,4,0)
+606 ;;=4^J44.9
+607 ;;^UTILITY(U,$J,358.3,36182,2)
+608 ;;=^5008241
+609 ;;^UTILITY(U,$J,358.3,36183,0)
+610 ;;=K21.9^^107^1472^31
+611 ;;^UTILITY(U,$J,358.3,36183,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,36183,1,3,0)
+614 ;;=3^GERD w/o Esophagitis
+615 ;;^UTILITY(U,$J,358.3,36183,1,4,0)
+616 ;;=4^K21.9
+617 ;;^UTILITY(U,$J,358.3,36183,2)
+618 ;;=^5008505
+619 ;;^UTILITY(U,$J,358.3,36184,0)
+620 ;;=N40.1^^107^1472^29
+621 ;;^UTILITY(U,$J,358.3,36184,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,36184,1,3,0)
+624 ;;=3^Enlarged Prostate w/ LUTS
+625 ;;^UTILITY(U,$J,358.3,36184,1,4,0)
+626 ;;=4^N40.1
+627 ;;^UTILITY(U,$J,358.3,36184,2)
+628 ;;=^5015690
+629 ;;^UTILITY(U,$J,358.3,36185,0)
+630 ;;=L03.818^^107^1472^17
+631 ;;^UTILITY(U,$J,358.3,36185,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,36185,1,3,0)
+634 ;;=3^Cellulitis,Oth Sites
+635 ;;^UTILITY(U,$J,358.3,36185,1,4,0)
+636 ;;=4^L03.818
+637 ;;^UTILITY(U,$J,358.3,36185,2)
+638 ;;=^5009064
+639 ;;^UTILITY(U,$J,358.3,36186,0)
+640 ;;=G47.33^^107^1472^77
+641 ;;^UTILITY(U,$J,358.3,36186,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,36186,1,3,0)
+644 ;;=3^Sleep Apnea,Obstructive
+645 ;;^UTILITY(U,$J,358.3,36186,1,4,0)
+646 ;;=4^G47.33
+647 ;;^UTILITY(U,$J,358.3,36186,2)
+648 ;;=^332763
+649 ;;^UTILITY(U,$J,358.3,36187,0)
+650 ;;=R73.01^^107^1472^46
+651 ;;^UTILITY(U,$J,358.3,36187,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,36187,1,3,0)
+654 ;;=3^Impaired Fasting Glucose
+655 ;;^UTILITY(U,$J,358.3,36187,1,4,0)
+656 ;;=4^R73.01
+657 ;;^UTILITY(U,$J,358.3,36187,2)
+658 ;;=^5019561
+659 ;;^UTILITY(U,$J,358.3,36188,0)
+660 ;;=R74.8^^107^1472^1
+661 ;;^UTILITY(U,$J,358.3,36188,1,0)
+662 ;;=^358.31IA^4^2
+663 ;;^UTILITY(U,$J,358.3,36188,1,3,0)
+664 ;;=3^Abnormal Levels of Serum Enzymes
+665 ;;^UTILITY(U,$J,358.3,36188,1,4,0)
+666 ;;=4^R74.8
+667 ;;^UTILITY(U,$J,358.3,36188,2)
+668 ;;=^5019566
+669 ;;^UTILITY(U,$J,358.3,36189,0)
+670 ;;=R03.0^^107^1472^27
+671 ;;^UTILITY(U,$J,358.3,36189,1,0)
+672 ;;=^358.31IA^4^2
+673 ;;^UTILITY(U,$J,358.3,36189,1,3,0)
+674 ;;=3^Elevated BP Reading w/o Diagnosis of HTN
+675 ;;^UTILITY(U,$J,358.3,36189,1,4,0)
+676 ;;=4^R03.0
+677 ;;^UTILITY(U,$J,358.3,36189,2)
+678 ;;=^5019171
+679 ;;^UTILITY(U,$J,358.3,36190,0)
+680 ;;=Z91.19^^107^1472^53
+681 ;;^UTILITY(U,$J,358.3,36190,1,0)
+682 ;;=^358.31IA^4^2
+683 ;;^UTILITY(U,$J,358.3,36190,1,3,0)
+684 ;;=3^Noncompliance w/ Medical Treatment/Regimen
