IBDEI0FI ; ; 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,38748,1,3,0)
;;=3^DM Type 2 w/ Oth Diab Arthropathy
;;^UTILITY(U,$J,358.3,38748,1,4,0)
;;=4^E11.618
;;^UTILITY(U,$J,358.3,38748,2)
;;=^5002654
;;^UTILITY(U,$J,358.3,38749,0)
;;=E11.621^^107^1517^16
;;^UTILITY(U,$J,358.3,38749,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38749,1,3,0)
;;=3^DM Type 2 w/ Foot Ulcer
;;^UTILITY(U,$J,358.3,38749,1,4,0)
;;=4^E11.621
;;^UTILITY(U,$J,358.3,38749,2)
;;=^5002656
;;^UTILITY(U,$J,358.3,38750,0)
;;=E11.622^^107^1517^31
;;^UTILITY(U,$J,358.3,38750,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38750,1,3,0)
;;=3^DM Type 2 w/ Oth Skin Ulcer
;;^UTILITY(U,$J,358.3,38750,1,4,0)
;;=4^E11.622
;;^UTILITY(U,$J,358.3,38750,2)
;;=^5002657
;;^UTILITY(U,$J,358.3,38751,0)
;;=E11.628^^107^1517^30
;;^UTILITY(U,$J,358.3,38751,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38751,1,3,0)
;;=3^DM Type 2 w/ Oth Skin Compl
;;^UTILITY(U,$J,358.3,38751,1,4,0)
;;=4^E11.628
;;^UTILITY(U,$J,358.3,38751,2)
;;=^5002658
;;^UTILITY(U,$J,358.3,38752,0)
;;=E11.630^^107^1517^33
;;^UTILITY(U,$J,358.3,38752,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38752,1,3,0)
;;=3^DM Type 2 w/ Periodontal Disease
;;^UTILITY(U,$J,358.3,38752,1,4,0)
;;=4^E11.630
;;^UTILITY(U,$J,358.3,38752,2)
;;=^5002659
;;^UTILITY(U,$J,358.3,38753,0)
;;=E11.638^^107^1517^29
;;^UTILITY(U,$J,358.3,38753,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38753,1,3,0)
;;=3^DM Type 2 w/ Oth Oral Compl
;;^UTILITY(U,$J,358.3,38753,1,4,0)
;;=4^E11.638
;;^UTILITY(U,$J,358.3,38753,2)
;;=^5002660
;;^UTILITY(U,$J,358.3,38754,0)
;;=E11.641^^107^1517^20
;;^UTILITY(U,$J,358.3,38754,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38754,1,3,0)
;;=3^DM Type 2 w/ Hypoglycemia w/ Coma
;;^UTILITY(U,$J,358.3,38754,1,4,0)
;;=4^E11.641
;;^UTILITY(U,$J,358.3,38754,2)
;;=^5002661
;;^UTILITY(U,$J,358.3,38755,0)
;;=E11.649^^107^1517^21
;;^UTILITY(U,$J,358.3,38755,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38755,1,3,0)
;;=3^DM Type 2 w/ Hypoglycemia w/o Coma
;;^UTILITY(U,$J,358.3,38755,1,4,0)
;;=4^E11.649
;;^UTILITY(U,$J,358.3,38755,2)
;;=^5002662
;;^UTILITY(U,$J,358.3,38756,0)
;;=E11.65^^107^1517^17
;;^UTILITY(U,$J,358.3,38756,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38756,1,3,0)
;;=3^DM Type 2 w/ Hyperglycemia
;;^UTILITY(U,$J,358.3,38756,1,4,0)
;;=4^E11.65
;;^UTILITY(U,$J,358.3,38756,2)
;;=^5002663
;;^UTILITY(U,$J,358.3,38757,0)
;;=E11.69^^107^1517^32
;;^UTILITY(U,$J,358.3,38757,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38757,1,3,0)
;;=3^DM Type 2 w/ Oth Spec Compl
;;^UTILITY(U,$J,358.3,38757,1,4,0)
;;=4^E11.69
;;^UTILITY(U,$J,358.3,38757,2)
;;=^5002664
;;^UTILITY(U,$J,358.3,38758,0)
;;=E11.8^^107^1517^34
;;^UTILITY(U,$J,358.3,38758,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38758,1,3,0)
;;=3^DM Type 2 w/ Unspec Compl
;;^UTILITY(U,$J,358.3,38758,1,4,0)
;;=4^E11.8
;;^UTILITY(U,$J,358.3,38758,2)
;;=^5002665
;;^UTILITY(U,$J,358.3,38759,0)
;;=E11.9^^107^1517^35
;;^UTILITY(U,$J,358.3,38759,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38759,1,3,0)
;;=3^DM Type 2 w/o Complications
;;^UTILITY(U,$J,358.3,38759,1,4,0)
;;=4^E11.9
;;^UTILITY(U,$J,358.3,38759,2)
;;=^5002666
;;^UTILITY(U,$J,358.3,38760,0)
;;=E11.29^^107^1517^27
;;^UTILITY(U,$J,358.3,38760,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38760,1,3,0)
;;=3^DM Type 2 w/ Oth Diab Kidney Compl
;;^UTILITY(U,$J,358.3,38760,1,4,0)
;;=4^E11.29
;;^UTILITY(U,$J,358.3,38760,2)
;;=^5002631
;;^UTILITY(U,$J,358.3,38761,0)
;;=E11.311^^107^1517^14
;;^UTILITY(U,$J,358.3,38761,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38761,1,3,0)
;;=3^DM Type 2 w/ Diab Rtnop w/ Macular Edema
;;^UTILITY(U,$J,358.3,38761,1,4,0)
;;=4^E11.311
;;^UTILITY(U,$J,358.3,38761,2)
;;=E11.319^5002632
;;^UTILITY(U,$J,358.3,38762,0)
;;=E11.319^^107^1517^15
;;^UTILITY(U,$J,358.3,38762,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38762,1,3,0)
;;=3^DM Type 2 w/ Diab Rtnop w/o Macular Edema
;;^UTILITY(U,$J,358.3,38762,1,4,0)
;;=4^E11.319
;;^UTILITY(U,$J,358.3,38762,2)
;;=^5002633
;;^UTILITY(U,$J,358.3,38763,0)
;;=E11.3211^^107^1517^22
;;^UTILITY(U,$J,358.3,38763,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38763,1,3,0)
;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Rt Eye
;;^UTILITY(U,$J,358.3,38763,1,4,0)
;;=4^E11.3211
;;^UTILITY(U,$J,358.3,38763,2)
;;=^5138331
;;^UTILITY(U,$J,358.3,38764,0)
;;=E11.3212^^107^1517^23
;;^UTILITY(U,$J,358.3,38764,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38764,1,3,0)
;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Lt Eye
;;^UTILITY(U,$J,358.3,38764,1,4,0)
;;=4^E11.3212
;;^UTILITY(U,$J,358.3,38764,2)
;;=^5138332
;;^UTILITY(U,$J,358.3,38765,0)
;;=E11.3213^^107^1517^24
;;^UTILITY(U,$J,358.3,38765,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38765,1,3,0)
;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Bilat
;;^UTILITY(U,$J,358.3,38765,1,4,0)
;;=4^E11.3213
;;^UTILITY(U,$J,358.3,38765,2)
;;=^5138333
;;^UTILITY(U,$J,358.3,38766,0)
;;=E11.40^^107^1517^10
;;^UTILITY(U,$J,358.3,38766,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38766,1,3,0)
;;=3^DM Type 2 w/ Diab Neuropathy,Unspec
;;^UTILITY(U,$J,358.3,38766,1,4,0)
;;=4^E11.40
;;^UTILITY(U,$J,358.3,38766,2)
;;=^5002644
;;^UTILITY(U,$J,358.3,38767,0)
;;=E11.51^^107^1517^12
;;^UTILITY(U,$J,358.3,38767,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38767,1,3,0)
;;=3^DM Type 2 w/ Diab Periph Angiopathy w/o Gangrene
;;^UTILITY(U,$J,358.3,38767,1,4,0)
;;=4^E11.51
;;^UTILITY(U,$J,358.3,38767,2)
;;=^5002650
;;^UTILITY(U,$J,358.3,38768,0)
;;=E11.52^^107^1517^11
;;^UTILITY(U,$J,358.3,38768,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38768,1,3,0)
;;=3^DM Type 2 w/ Diab Periph Angiopathy w/ Gangrene
;;^UTILITY(U,$J,358.3,38768,1,4,0)
;;=4^E11.52
;;^UTILITY(U,$J,358.3,38768,2)
;;=^5002651
;;^UTILITY(U,$J,358.3,38769,0)
;;=E11.620^^107^1517^5
;;^UTILITY(U,$J,358.3,38769,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38769,1,3,0)
;;=3^DM Type 2 w/ Diab Dermatitis
;;^UTILITY(U,$J,358.3,38769,1,4,0)
;;=4^E11.620
;;^UTILITY(U,$J,358.3,38769,2)
;;=^5002655
;;^UTILITY(U,$J,358.3,38770,0)
;;=E11.36^^107^1517^4
;;^UTILITY(U,$J,358.3,38770,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38770,1,3,0)
;;=3^DM Type 2 w/ Diab Cataract
;;^UTILITY(U,$J,358.3,38770,1,4,0)
;;=4^E11.36
;;^UTILITY(U,$J,358.3,38770,2)
;;=^5002642
;;^UTILITY(U,$J,358.3,38771,0)
;;=I10.^^107^1518^1
;;^UTILITY(U,$J,358.3,38771,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38771,1,3,0)
;;=3^Essential/Primary Hypertension
;;^UTILITY(U,$J,358.3,38771,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,38771,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,38772,0)
;;=I11.0^^107^1518^12
;;^UTILITY(U,$J,358.3,38772,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38772,1,3,0)
;;=3^Hypertensive Heart Disease w/ Heart Failure
;;^UTILITY(U,$J,358.3,38772,1,4,0)
;;=4^I11.0
;;^UTILITY(U,$J,358.3,38772,2)
;;=^5007063
;;^UTILITY(U,$J,358.3,38773,0)
;;=I11.9^^107^1518^13
;;^UTILITY(U,$J,358.3,38773,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38773,1,3,0)
;;=3^Hypertensive Heart Disease w/o Heart Failure
;;^UTILITY(U,$J,358.3,38773,1,4,0)
;;=4^I11.9
;;^UTILITY(U,$J,358.3,38773,2)
;;=^5007064
;;^UTILITY(U,$J,358.3,38774,0)
;;=I12.0^^107^1518^5
;;^UTILITY(U,$J,358.3,38774,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38774,1,3,0)
;;=3^Hypertensive CKD w/ Stage 5 CKD or ESRD
;;^UTILITY(U,$J,358.3,38774,1,4,0)
;;=4^I12.0
;;^UTILITY(U,$J,358.3,38774,2)
;;=^5007065
;;^UTILITY(U,$J,358.3,38775,0)
;;=I12.9^^107^1518^4
;;^UTILITY(U,$J,358.3,38775,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38775,1,3,0)
;;=3^Hypertensive CKD w/ Stage 1-4 CKD
;;^UTILITY(U,$J,358.3,38775,1,4,0)
;;=4^I12.9
;;^UTILITY(U,$J,358.3,38775,2)
;;=^5007066
;;^UTILITY(U,$J,358.3,38776,0)
;;=I13.0^^107^1518^8
;;^UTILITY(U,$J,358.3,38776,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38776,1,3,0)
;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 1-4 CKD
;;^UTILITY(U,$J,358.3,38776,1,4,0)
;;=4^I13.0
;;^UTILITY(U,$J,358.3,38776,2)
;;=^5007067
;;^UTILITY(U,$J,358.3,38777,0)
;;=I13.10^^107^1518^10
;;^UTILITY(U,$J,358.3,38777,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38777,1,3,0)
;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 1-4 CKD
;;^UTILITY(U,$J,358.3,38777,1,4,0)
;;=4^I13.10
;;^UTILITY(U,$J,358.3,38777,2)
;;=^5007068
;;^UTILITY(U,$J,358.3,38778,0)
;;=I13.11^^107^1518^11
;;^UTILITY(U,$J,358.3,38778,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38778,1,3,0)
;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 5 CKD/ESRD
;;^UTILITY(U,$J,358.3,38778,1,4,0)
;;=4^I13.11
;;^UTILITY(U,$J,358.3,38778,2)
;;=^5007069
;;^UTILITY(U,$J,358.3,38779,0)
;;=I13.2^^107^1518^9
;;^UTILITY(U,$J,358.3,38779,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38779,1,3,0)
;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 5 CKD/ESRD
;;^UTILITY(U,$J,358.3,38779,1,4,0)
;;=4^I13.2
;;^UTILITY(U,$J,358.3,38779,2)
;;=^5007070
;;^UTILITY(U,$J,358.3,38780,0)
;;=I15.0^^107^1518^15
;;^UTILITY(U,$J,358.3,38780,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38780,1,3,0)
;;=3^Renovascular Hypertension
;;^UTILITY(U,$J,358.3,38780,1,4,0)
;;=4^I15.0
;;^UTILITY(U,$J,358.3,38780,2)
;;=^5007071
;;^UTILITY(U,$J,358.3,38781,0)
;;=I15.1^^107^1518^3
;;^UTILITY(U,$J,358.3,38781,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38781,1,3,0)
;;=3^Hypertension Secondary to Oth Renal Disorders
;;^UTILITY(U,$J,358.3,38781,1,4,0)
;;=4^I15.1
;;^UTILITY(U,$J,358.3,38781,2)
;;=^5007072
;;^UTILITY(U,$J,358.3,38782,0)
;;=I15.2^^107^1518^2
;;^UTILITY(U,$J,358.3,38782,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38782,1,3,0)
;;=3^Hypertension Secondary to Endocrine Disorders
;;^UTILITY(U,$J,358.3,38782,1,4,0)
;;=4^I15.2
;;^UTILITY(U,$J,358.3,38782,2)
;;=^5007073
;;^UTILITY(U,$J,358.3,38783,0)
;;=I15.8^^107^1518^16
;;^UTILITY(U,$J,358.3,38783,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38783,1,3,0)
;;=3^Secondary Hypertension,Oth
;;^UTILITY(U,$J,358.3,38783,1,4,0)
;;=4^I15.8
;;^UTILITY(U,$J,358.3,38783,2)
;;=^5007074
;;^UTILITY(U,$J,358.3,38784,0)
;;=I15.9^^107^1518^17
;;^UTILITY(U,$J,358.3,38784,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38784,1,3,0)
;;=3^Secondary Hypertension,Unspec
;;^UTILITY(U,$J,358.3,38784,1,4,0)
;;=4^I15.9
;;^UTILITY(U,$J,358.3,38784,2)
;;=^5007075
;;^UTILITY(U,$J,358.3,38785,0)
;;=I16.0^^107^1518^14
;;^UTILITY(U,$J,358.3,38785,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38785,1,3,0)
;;=3^Hypertensive Urgency
;;^UTILITY(U,$J,358.3,38785,1,4,0)
;;=4^I16.0
;;^UTILITY(U,$J,358.3,38785,2)
;;=^8133013
;;^UTILITY(U,$J,358.3,38786,0)
;;=I16.1^^107^1518^7
;;^UTILITY(U,$J,358.3,38786,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38786,1,3,0)
;;=3^Hypertensive Emergency
;;^UTILITY(U,$J,358.3,38786,1,4,0)
;;=4^I16.1
;;^UTILITY(U,$J,358.3,38786,2)
;;=^8204721
;;^UTILITY(U,$J,358.3,38787,0)
;;=I16.9^^107^1518^6
;;^UTILITY(U,$J,358.3,38787,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38787,1,3,0)
;;=3^Hypertensive Crisis,Unspec
;;^UTILITY(U,$J,358.3,38787,1,4,0)
;;=4^I16.9
;;^UTILITY(U,$J,358.3,38787,2)
;;=^5138600
;;^UTILITY(U,$J,358.3,38788,0)
;;=A07.0^^107^1519^5
;;^UTILITY(U,$J,358.3,38788,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38788,1,3,0)
;;=3^Balantidiasis
;;^UTILITY(U,$J,358.3,38788,1,4,0)
;;=4^A07.0
;;^UTILITY(U,$J,358.3,38788,2)
;;=^12533
;;^UTILITY(U,$J,358.3,38789,0)
;;=A07.1^^107^1519^9
;;^UTILITY(U,$J,358.3,38789,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38789,1,3,0)
;;=3^Giardiasis [lambliasis]
;;^UTILITY(U,$J,358.3,38789,1,4,0)
;;=4^A07.1
;;^UTILITY(U,$J,358.3,38789,2)
;;=^5000049
;;^UTILITY(U,$J,358.3,38790,0)
;;=A07.2^^107^1519^7
;;^UTILITY(U,$J,358.3,38790,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38790,1,3,0)
;;=3^Cryptosporidiosis
;;^UTILITY(U,$J,358.3,38790,1,4,0)
;;=4^A07.2
;;^UTILITY(U,$J,358.3,38790,2)
;;=^29629
;;^UTILITY(U,$J,358.3,38791,0)
;;=A07.3^^107^1519^12
;;^UTILITY(U,$J,358.3,38791,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38791,1,3,0)
;;=3^Isosporiasis
;;^UTILITY(U,$J,358.3,38791,1,4,0)
;;=4^A07.3
;;^UTILITY(U,$J,358.3,38791,2)
;;=^5000050
;;^UTILITY(U,$J,358.3,38792,0)
;;=A07.4^^107^1519^8
;;^UTILITY(U,$J,358.3,38792,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38792,1,3,0)
;;=3^Cyclosporiasis
;;^UTILITY(U,$J,358.3,38792,1,4,0)
;;=4^A07.4
;;^UTILITY(U,$J,358.3,38792,2)
;;=^321973
;;^UTILITY(U,$J,358.3,38793,0)
;;=A07.8^^107^1519^14
;;^UTILITY(U,$J,358.3,38793,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38793,1,3,0)
;;=3^Protozoal Intestinal Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,38793,1,4,0)
;;=4^A07.8
;;^UTILITY(U,$J,358.3,38793,2)
;;=^265972
;;^UTILITY(U,$J,358.3,38794,0)
;;=A07.9^^107^1519^13
;;^UTILITY(U,$J,358.3,38794,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38794,1,3,0)
;;=3^Protozoal Intestinal Disease,Unspec
;;^UTILITY(U,$J,358.3,38794,1,4,0)
;;=4^A07.9
;;^UTILITY(U,$J,358.3,38794,2)
;;=^5000051
;;^UTILITY(U,$J,358.3,38795,0)
;;=A08.0^^107^1519^15
;;^UTILITY(U,$J,358.3,38795,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38795,1,3,0)
;;=3^Rotaviral Enteritis
;;^UTILITY(U,$J,358.3,38795,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,38795,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,38796,0)
;;=A08.11^^107^1519^1
;;^UTILITY(U,$J,358.3,38796,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38796,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,38796,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,38796,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,38797,0)
;;=A08.19^^107^1519^2
;;^UTILITY(U,$J,358.3,38797,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38797,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,38797,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,38797,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,38798,0)
;;=A08.2^^107^1519^3
;;^UTILITY(U,$J,358.3,38798,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38798,1,3,0)
;;=3^Adenoviral Enteritis
;;^UTILITY(U,$J,358.3,38798,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,38798,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,38799,0)
;;=A08.31^^107^1519^6
;;^UTILITY(U,$J,358.3,38799,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38799,1,3,0)
;;=3^Calicivirus enteritis
;;^UTILITY(U,$J,358.3,38799,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,38799,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,38800,0)
;;=A08.32^^107^1519^4
;;^UTILITY(U,$J,358.3,38800,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38800,1,3,0)
;;=3^Astrovirus enteritis
;;^UTILITY(U,$J,358.3,38800,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,38800,2)
;;=^5000057
;;^UTILITY(U,$J,358.3,38801,0)
;;=A08.39^^107^1519^16
;;^UTILITY(U,$J,358.3,38801,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38801,1,3,0)
;;=3^Viral Enteritis,Oth
;;^UTILITY(U,$J,358.3,38801,1,4,0)
;;=4^A08.39
;;^UTILITY(U,$J,358.3,38801,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,38802,0)
;;=A08.4^^107^1519^17
;;^UTILITY(U,$J,358.3,38802,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38802,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,38802,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,38802,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,38803,0)
;;=A08.8^^107^1519^11
;;^UTILITY(U,$J,358.3,38803,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38803,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,38803,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,38803,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,38804,0)
;;=A09.^^107^1519^10
;;^UTILITY(U,$J,358.3,38804,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38804,1,3,0)
;;=3^Infectious Gastroenteritis & Colitis,Unspec
;;^UTILITY(U,$J,358.3,38804,1,4,0)
;;=4^A09.
;;^UTILITY(U,$J,358.3,38804,2)
;;=^5000061
;;^UTILITY(U,$J,358.3,38805,0)
;;=J12.0^^107^1520^1
;;^UTILITY(U,$J,358.3,38805,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38805,1,3,0)
;;=3^Adenoviral Pneumonia
;;^UTILITY(U,$J,358.3,38805,1,4,0)
;;=4^J12.0
;;^UTILITY(U,$J,358.3,38805,2)
;;=^5008164
;;^UTILITY(U,$J,358.3,38806,0)
;;=J12.1^^107^1520^30
;;^UTILITY(U,$J,358.3,38806,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38806,1,3,0)
;;=3^Respiratory Syncytial Virus Pneumonia
;;^UTILITY(U,$J,358.3,38806,1,4,0)
;;=4^J12.1
;;^UTILITY(U,$J,358.3,38806,2)
;;=^5008165
;;^UTILITY(U,$J,358.3,38807,0)
;;=J12.2^^107^1520^4
;;^UTILITY(U,$J,358.3,38807,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38807,1,3,0)
;;=3^Parainfluenza Virus Pneumonia
;;^UTILITY(U,$J,358.3,38807,1,4,0)
;;=4^J12.2
;;^UTILITY(U,$J,358.3,38807,2)
;;=^5008166
;;^UTILITY(U,$J,358.3,38808,0)
;;=J12.3^^107^1520^3
;;^UTILITY(U,$J,358.3,38808,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38808,1,3,0)
;;=3^Human Metapneumovirus Pneumonia
;;^UTILITY(U,$J,358.3,38808,1,4,0)
;;=4^J12.3
;;^UTILITY(U,$J,358.3,38808,2)
;;=^5008167
;;^UTILITY(U,$J,358.3,38809,0)
;;=J12.81^^107^1520^17
;;^UTILITY(U,$J,358.3,38809,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38809,1,3,0)
;;=3^Pneumonia d/t SARS-Associated Coronavirus
;;^UTILITY(U,$J,358.3,38809,1,4,0)
;;=4^J12.81
;;^UTILITY(U,$J,358.3,38809,2)
;;=^329925
;;^UTILITY(U,$J,358.3,38810,0)
;;=J12.89^^107^1520^28
;;^UTILITY(U,$J,358.3,38810,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38810,1,3,0)
;;=3^Pneumonia,Viral,Other
;;^UTILITY(U,$J,358.3,38810,1,4,0)
;;=4^J12.89
;;^UTILITY(U,$J,358.3,38810,2)
;;=^5008168
;;^UTILITY(U,$J,358.3,38811,0)
;;=J12.9^^107^1520^29
;;^UTILITY(U,$J,358.3,38811,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38811,1,3,0)
;;=3^Pneumonia,Viral,Unspec
;;^UTILITY(U,$J,358.3,38811,1,4,0)
;;=4^J12.9
;;^UTILITY(U,$J,358.3,38811,2)
;;=^5008169
;;^UTILITY(U,$J,358.3,38812,0)
;;=J13.^^107^1520^19
;;^UTILITY(U,$J,358.3,38812,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38812,1,3,0)
;;=3^Pneumonia d/t Streptococcus Pneumoniae
;;^UTILITY(U,$J,358.3,38812,1,4,0)
;;=4^J13.
;;^UTILITY(U,$J,358.3,38812,2)
;;=^5008170
;;^UTILITY(U,$J,358.3,38813,0)
;;=J14.^^107^1520^6
;;^UTILITY(U,$J,358.3,38813,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38813,1,3,0)
;;=3^Pneumonia d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,38813,1,4,0)
;;=4^J14.
;;^UTILITY(U,$J,358.3,38813,2)
;;=^5008171
;;^UTILITY(U,$J,358.3,38814,0)
;;=J15.0^^107^1520^7
;;^UTILITY(U,$J,358.3,38814,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38814,1,3,0)
;;=3^Pneumonia d/t Klebsiella Pneumoniae
;;^UTILITY(U,$J,358.3,38814,1,4,0)
;;=4^J15.0
;;^UTILITY(U,$J,358.3,38814,2)
;;=^269931
;;^UTILITY(U,$J,358.3,38815,0)
;;=J15.1^^107^1520^16
;;^UTILITY(U,$J,358.3,38815,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38815,1,3,0)
;;=3^Pneumonia d/t Pseudomonas
;;^UTILITY(U,$J,358.3,38815,1,4,0)
;;=4^J15.1
;;^UTILITY(U,$J,358.3,38815,2)
;;=^269932
;;^UTILITY(U,$J,358.3,38816,0)
;;=J15.20^^107^1520^18
;;^UTILITY(U,$J,358.3,38816,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38816,1,3,0)
;;=3^Pneumonia d/t Staphylococcus,Unspec
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FI 19803 printed Sep 23, 2025@19:23:39 Page 2
IBDEI0FI ; ; 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,38748,1,3,0)
+2 ;;=3^DM Type 2 w/ Oth Diab Arthropathy
+3 ;;^UTILITY(U,$J,358.3,38748,1,4,0)
+4 ;;=4^E11.618
+5 ;;^UTILITY(U,$J,358.3,38748,2)
+6 ;;=^5002654
+7 ;;^UTILITY(U,$J,358.3,38749,0)
+8 ;;=E11.621^^107^1517^16
+9 ;;^UTILITY(U,$J,358.3,38749,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,38749,1,3,0)
+12 ;;=3^DM Type 2 w/ Foot Ulcer
+13 ;;^UTILITY(U,$J,358.3,38749,1,4,0)
+14 ;;=4^E11.621
+15 ;;^UTILITY(U,$J,358.3,38749,2)
+16 ;;=^5002656
+17 ;;^UTILITY(U,$J,358.3,38750,0)
+18 ;;=E11.622^^107^1517^31
+19 ;;^UTILITY(U,$J,358.3,38750,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,38750,1,3,0)
+22 ;;=3^DM Type 2 w/ Oth Skin Ulcer
+23 ;;^UTILITY(U,$J,358.3,38750,1,4,0)
+24 ;;=4^E11.622
+25 ;;^UTILITY(U,$J,358.3,38750,2)
+26 ;;=^5002657
+27 ;;^UTILITY(U,$J,358.3,38751,0)
+28 ;;=E11.628^^107^1517^30
+29 ;;^UTILITY(U,$J,358.3,38751,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,38751,1,3,0)
+32 ;;=3^DM Type 2 w/ Oth Skin Compl
+33 ;;^UTILITY(U,$J,358.3,38751,1,4,0)
+34 ;;=4^E11.628
+35 ;;^UTILITY(U,$J,358.3,38751,2)
+36 ;;=^5002658
+37 ;;^UTILITY(U,$J,358.3,38752,0)
+38 ;;=E11.630^^107^1517^33
+39 ;;^UTILITY(U,$J,358.3,38752,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,38752,1,3,0)
+42 ;;=3^DM Type 2 w/ Periodontal Disease
+43 ;;^UTILITY(U,$J,358.3,38752,1,4,0)
+44 ;;=4^E11.630
+45 ;;^UTILITY(U,$J,358.3,38752,2)
+46 ;;=^5002659
+47 ;;^UTILITY(U,$J,358.3,38753,0)
+48 ;;=E11.638^^107^1517^29
+49 ;;^UTILITY(U,$J,358.3,38753,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,38753,1,3,0)
+52 ;;=3^DM Type 2 w/ Oth Oral Compl
+53 ;;^UTILITY(U,$J,358.3,38753,1,4,0)
+54 ;;=4^E11.638
+55 ;;^UTILITY(U,$J,358.3,38753,2)
+56 ;;=^5002660
+57 ;;^UTILITY(U,$J,358.3,38754,0)
+58 ;;=E11.641^^107^1517^20
+59 ;;^UTILITY(U,$J,358.3,38754,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,38754,1,3,0)
+62 ;;=3^DM Type 2 w/ Hypoglycemia w/ Coma
+63 ;;^UTILITY(U,$J,358.3,38754,1,4,0)
+64 ;;=4^E11.641
+65 ;;^UTILITY(U,$J,358.3,38754,2)
+66 ;;=^5002661
+67 ;;^UTILITY(U,$J,358.3,38755,0)
+68 ;;=E11.649^^107^1517^21
+69 ;;^UTILITY(U,$J,358.3,38755,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,38755,1,3,0)
+72 ;;=3^DM Type 2 w/ Hypoglycemia w/o Coma
+73 ;;^UTILITY(U,$J,358.3,38755,1,4,0)
+74 ;;=4^E11.649
+75 ;;^UTILITY(U,$J,358.3,38755,2)
+76 ;;=^5002662
+77 ;;^UTILITY(U,$J,358.3,38756,0)
+78 ;;=E11.65^^107^1517^17
+79 ;;^UTILITY(U,$J,358.3,38756,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,38756,1,3,0)
+82 ;;=3^DM Type 2 w/ Hyperglycemia
+83 ;;^UTILITY(U,$J,358.3,38756,1,4,0)
+84 ;;=4^E11.65
+85 ;;^UTILITY(U,$J,358.3,38756,2)
+86 ;;=^5002663
+87 ;;^UTILITY(U,$J,358.3,38757,0)
+88 ;;=E11.69^^107^1517^32
+89 ;;^UTILITY(U,$J,358.3,38757,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,38757,1,3,0)
+92 ;;=3^DM Type 2 w/ Oth Spec Compl
+93 ;;^UTILITY(U,$J,358.3,38757,1,4,0)
+94 ;;=4^E11.69
+95 ;;^UTILITY(U,$J,358.3,38757,2)
+96 ;;=^5002664
+97 ;;^UTILITY(U,$J,358.3,38758,0)
+98 ;;=E11.8^^107^1517^34
+99 ;;^UTILITY(U,$J,358.3,38758,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,38758,1,3,0)
+102 ;;=3^DM Type 2 w/ Unspec Compl
+103 ;;^UTILITY(U,$J,358.3,38758,1,4,0)
+104 ;;=4^E11.8
+105 ;;^UTILITY(U,$J,358.3,38758,2)
+106 ;;=^5002665
+107 ;;^UTILITY(U,$J,358.3,38759,0)
+108 ;;=E11.9^^107^1517^35
+109 ;;^UTILITY(U,$J,358.3,38759,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,38759,1,3,0)
+112 ;;=3^DM Type 2 w/o Complications
+113 ;;^UTILITY(U,$J,358.3,38759,1,4,0)
+114 ;;=4^E11.9
+115 ;;^UTILITY(U,$J,358.3,38759,2)
+116 ;;=^5002666
+117 ;;^UTILITY(U,$J,358.3,38760,0)
+118 ;;=E11.29^^107^1517^27
+119 ;;^UTILITY(U,$J,358.3,38760,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,38760,1,3,0)
+122 ;;=3^DM Type 2 w/ Oth Diab Kidney Compl
+123 ;;^UTILITY(U,$J,358.3,38760,1,4,0)
+124 ;;=4^E11.29
+125 ;;^UTILITY(U,$J,358.3,38760,2)
+126 ;;=^5002631
+127 ;;^UTILITY(U,$J,358.3,38761,0)
+128 ;;=E11.311^^107^1517^14
+129 ;;^UTILITY(U,$J,358.3,38761,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,38761,1,3,0)
+132 ;;=3^DM Type 2 w/ Diab Rtnop w/ Macular Edema
+133 ;;^UTILITY(U,$J,358.3,38761,1,4,0)
+134 ;;=4^E11.311
+135 ;;^UTILITY(U,$J,358.3,38761,2)
+136 ;;=E11.319^5002632
+137 ;;^UTILITY(U,$J,358.3,38762,0)
+138 ;;=E11.319^^107^1517^15
+139 ;;^UTILITY(U,$J,358.3,38762,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,38762,1,3,0)
+142 ;;=3^DM Type 2 w/ Diab Rtnop w/o Macular Edema
+143 ;;^UTILITY(U,$J,358.3,38762,1,4,0)
+144 ;;=4^E11.319
+145 ;;^UTILITY(U,$J,358.3,38762,2)
+146 ;;=^5002633
+147 ;;^UTILITY(U,$J,358.3,38763,0)
+148 ;;=E11.3211^^107^1517^22
+149 ;;^UTILITY(U,$J,358.3,38763,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,38763,1,3,0)
+152 ;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Rt Eye
+153 ;;^UTILITY(U,$J,358.3,38763,1,4,0)
+154 ;;=4^E11.3211
+155 ;;^UTILITY(U,$J,358.3,38763,2)
+156 ;;=^5138331
+157 ;;^UTILITY(U,$J,358.3,38764,0)
+158 ;;=E11.3212^^107^1517^23
+159 ;;^UTILITY(U,$J,358.3,38764,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,38764,1,3,0)
+162 ;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Lt Eye
+163 ;;^UTILITY(U,$J,358.3,38764,1,4,0)
+164 ;;=4^E11.3212
+165 ;;^UTILITY(U,$J,358.3,38764,2)
+166 ;;=^5138332
+167 ;;^UTILITY(U,$J,358.3,38765,0)
+168 ;;=E11.3213^^107^1517^24
+169 ;;^UTILITY(U,$J,358.3,38765,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,38765,1,3,0)
+172 ;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Bilat
+173 ;;^UTILITY(U,$J,358.3,38765,1,4,0)
+174 ;;=4^E11.3213
+175 ;;^UTILITY(U,$J,358.3,38765,2)
+176 ;;=^5138333
+177 ;;^UTILITY(U,$J,358.3,38766,0)
+178 ;;=E11.40^^107^1517^10
+179 ;;^UTILITY(U,$J,358.3,38766,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,38766,1,3,0)
+182 ;;=3^DM Type 2 w/ Diab Neuropathy,Unspec
+183 ;;^UTILITY(U,$J,358.3,38766,1,4,0)
+184 ;;=4^E11.40
+185 ;;^UTILITY(U,$J,358.3,38766,2)
+186 ;;=^5002644
+187 ;;^UTILITY(U,$J,358.3,38767,0)
+188 ;;=E11.51^^107^1517^12
+189 ;;^UTILITY(U,$J,358.3,38767,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,38767,1,3,0)
+192 ;;=3^DM Type 2 w/ Diab Periph Angiopathy w/o Gangrene
+193 ;;^UTILITY(U,$J,358.3,38767,1,4,0)
+194 ;;=4^E11.51
+195 ;;^UTILITY(U,$J,358.3,38767,2)
+196 ;;=^5002650
+197 ;;^UTILITY(U,$J,358.3,38768,0)
+198 ;;=E11.52^^107^1517^11
+199 ;;^UTILITY(U,$J,358.3,38768,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,38768,1,3,0)
+202 ;;=3^DM Type 2 w/ Diab Periph Angiopathy w/ Gangrene
+203 ;;^UTILITY(U,$J,358.3,38768,1,4,0)
+204 ;;=4^E11.52
+205 ;;^UTILITY(U,$J,358.3,38768,2)
+206 ;;=^5002651
+207 ;;^UTILITY(U,$J,358.3,38769,0)
+208 ;;=E11.620^^107^1517^5
+209 ;;^UTILITY(U,$J,358.3,38769,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,38769,1,3,0)
+212 ;;=3^DM Type 2 w/ Diab Dermatitis
+213 ;;^UTILITY(U,$J,358.3,38769,1,4,0)
+214 ;;=4^E11.620
+215 ;;^UTILITY(U,$J,358.3,38769,2)
+216 ;;=^5002655
+217 ;;^UTILITY(U,$J,358.3,38770,0)
+218 ;;=E11.36^^107^1517^4
+219 ;;^UTILITY(U,$J,358.3,38770,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,38770,1,3,0)
+222 ;;=3^DM Type 2 w/ Diab Cataract
+223 ;;^UTILITY(U,$J,358.3,38770,1,4,0)
+224 ;;=4^E11.36
+225 ;;^UTILITY(U,$J,358.3,38770,2)
+226 ;;=^5002642
+227 ;;^UTILITY(U,$J,358.3,38771,0)
+228 ;;=I10.^^107^1518^1
+229 ;;^UTILITY(U,$J,358.3,38771,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,38771,1,3,0)
+232 ;;=3^Essential/Primary Hypertension
+233 ;;^UTILITY(U,$J,358.3,38771,1,4,0)
+234 ;;=4^I10.
+235 ;;^UTILITY(U,$J,358.3,38771,2)
+236 ;;=^5007062
+237 ;;^UTILITY(U,$J,358.3,38772,0)
+238 ;;=I11.0^^107^1518^12
+239 ;;^UTILITY(U,$J,358.3,38772,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,38772,1,3,0)
+242 ;;=3^Hypertensive Heart Disease w/ Heart Failure
+243 ;;^UTILITY(U,$J,358.3,38772,1,4,0)
+244 ;;=4^I11.0
+245 ;;^UTILITY(U,$J,358.3,38772,2)
+246 ;;=^5007063
+247 ;;^UTILITY(U,$J,358.3,38773,0)
+248 ;;=I11.9^^107^1518^13
+249 ;;^UTILITY(U,$J,358.3,38773,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,38773,1,3,0)
+252 ;;=3^Hypertensive Heart Disease w/o Heart Failure
+253 ;;^UTILITY(U,$J,358.3,38773,1,4,0)
+254 ;;=4^I11.9
+255 ;;^UTILITY(U,$J,358.3,38773,2)
+256 ;;=^5007064
+257 ;;^UTILITY(U,$J,358.3,38774,0)
+258 ;;=I12.0^^107^1518^5
+259 ;;^UTILITY(U,$J,358.3,38774,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,38774,1,3,0)
+262 ;;=3^Hypertensive CKD w/ Stage 5 CKD or ESRD
+263 ;;^UTILITY(U,$J,358.3,38774,1,4,0)
+264 ;;=4^I12.0
+265 ;;^UTILITY(U,$J,358.3,38774,2)
+266 ;;=^5007065
+267 ;;^UTILITY(U,$J,358.3,38775,0)
+268 ;;=I12.9^^107^1518^4
+269 ;;^UTILITY(U,$J,358.3,38775,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,38775,1,3,0)
+272 ;;=3^Hypertensive CKD w/ Stage 1-4 CKD
+273 ;;^UTILITY(U,$J,358.3,38775,1,4,0)
+274 ;;=4^I12.9
+275 ;;^UTILITY(U,$J,358.3,38775,2)
+276 ;;=^5007066
+277 ;;^UTILITY(U,$J,358.3,38776,0)
+278 ;;=I13.0^^107^1518^8
+279 ;;^UTILITY(U,$J,358.3,38776,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,38776,1,3,0)
+282 ;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 1-4 CKD
+283 ;;^UTILITY(U,$J,358.3,38776,1,4,0)
+284 ;;=4^I13.0
+285 ;;^UTILITY(U,$J,358.3,38776,2)
+286 ;;=^5007067
+287 ;;^UTILITY(U,$J,358.3,38777,0)
+288 ;;=I13.10^^107^1518^10
+289 ;;^UTILITY(U,$J,358.3,38777,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,38777,1,3,0)
+292 ;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 1-4 CKD
+293 ;;^UTILITY(U,$J,358.3,38777,1,4,0)
+294 ;;=4^I13.10
+295 ;;^UTILITY(U,$J,358.3,38777,2)
+296 ;;=^5007068
+297 ;;^UTILITY(U,$J,358.3,38778,0)
+298 ;;=I13.11^^107^1518^11
+299 ;;^UTILITY(U,$J,358.3,38778,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,38778,1,3,0)
+302 ;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 5 CKD/ESRD
+303 ;;^UTILITY(U,$J,358.3,38778,1,4,0)
+304 ;;=4^I13.11
+305 ;;^UTILITY(U,$J,358.3,38778,2)
+306 ;;=^5007069
+307 ;;^UTILITY(U,$J,358.3,38779,0)
+308 ;;=I13.2^^107^1518^9
+309 ;;^UTILITY(U,$J,358.3,38779,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,38779,1,3,0)
+312 ;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 5 CKD/ESRD
+313 ;;^UTILITY(U,$J,358.3,38779,1,4,0)
+314 ;;=4^I13.2
+315 ;;^UTILITY(U,$J,358.3,38779,2)
+316 ;;=^5007070
+317 ;;^UTILITY(U,$J,358.3,38780,0)
+318 ;;=I15.0^^107^1518^15
+319 ;;^UTILITY(U,$J,358.3,38780,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,38780,1,3,0)
+322 ;;=3^Renovascular Hypertension
+323 ;;^UTILITY(U,$J,358.3,38780,1,4,0)
+324 ;;=4^I15.0
+325 ;;^UTILITY(U,$J,358.3,38780,2)
+326 ;;=^5007071
+327 ;;^UTILITY(U,$J,358.3,38781,0)
+328 ;;=I15.1^^107^1518^3
+329 ;;^UTILITY(U,$J,358.3,38781,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,38781,1,3,0)
+332 ;;=3^Hypertension Secondary to Oth Renal Disorders
+333 ;;^UTILITY(U,$J,358.3,38781,1,4,0)
+334 ;;=4^I15.1
+335 ;;^UTILITY(U,$J,358.3,38781,2)
+336 ;;=^5007072
+337 ;;^UTILITY(U,$J,358.3,38782,0)
+338 ;;=I15.2^^107^1518^2
+339 ;;^UTILITY(U,$J,358.3,38782,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,38782,1,3,0)
+342 ;;=3^Hypertension Secondary to Endocrine Disorders
+343 ;;^UTILITY(U,$J,358.3,38782,1,4,0)
+344 ;;=4^I15.2
+345 ;;^UTILITY(U,$J,358.3,38782,2)
+346 ;;=^5007073
+347 ;;^UTILITY(U,$J,358.3,38783,0)
+348 ;;=I15.8^^107^1518^16
+349 ;;^UTILITY(U,$J,358.3,38783,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,38783,1,3,0)
+352 ;;=3^Secondary Hypertension,Oth
+353 ;;^UTILITY(U,$J,358.3,38783,1,4,0)
+354 ;;=4^I15.8
+355 ;;^UTILITY(U,$J,358.3,38783,2)
+356 ;;=^5007074
+357 ;;^UTILITY(U,$J,358.3,38784,0)
+358 ;;=I15.9^^107^1518^17
+359 ;;^UTILITY(U,$J,358.3,38784,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,38784,1,3,0)
+362 ;;=3^Secondary Hypertension,Unspec
+363 ;;^UTILITY(U,$J,358.3,38784,1,4,0)
+364 ;;=4^I15.9
+365 ;;^UTILITY(U,$J,358.3,38784,2)
+366 ;;=^5007075
+367 ;;^UTILITY(U,$J,358.3,38785,0)
+368 ;;=I16.0^^107^1518^14
+369 ;;^UTILITY(U,$J,358.3,38785,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,38785,1,3,0)
+372 ;;=3^Hypertensive Urgency
+373 ;;^UTILITY(U,$J,358.3,38785,1,4,0)
+374 ;;=4^I16.0
+375 ;;^UTILITY(U,$J,358.3,38785,2)
+376 ;;=^8133013
+377 ;;^UTILITY(U,$J,358.3,38786,0)
+378 ;;=I16.1^^107^1518^7
+379 ;;^UTILITY(U,$J,358.3,38786,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,38786,1,3,0)
+382 ;;=3^Hypertensive Emergency
+383 ;;^UTILITY(U,$J,358.3,38786,1,4,0)
+384 ;;=4^I16.1
+385 ;;^UTILITY(U,$J,358.3,38786,2)
+386 ;;=^8204721
+387 ;;^UTILITY(U,$J,358.3,38787,0)
+388 ;;=I16.9^^107^1518^6
+389 ;;^UTILITY(U,$J,358.3,38787,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,38787,1,3,0)
+392 ;;=3^Hypertensive Crisis,Unspec
+393 ;;^UTILITY(U,$J,358.3,38787,1,4,0)
+394 ;;=4^I16.9
+395 ;;^UTILITY(U,$J,358.3,38787,2)
+396 ;;=^5138600
+397 ;;^UTILITY(U,$J,358.3,38788,0)
+398 ;;=A07.0^^107^1519^5
+399 ;;^UTILITY(U,$J,358.3,38788,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,38788,1,3,0)
+402 ;;=3^Balantidiasis
+403 ;;^UTILITY(U,$J,358.3,38788,1,4,0)
+404 ;;=4^A07.0
+405 ;;^UTILITY(U,$J,358.3,38788,2)
+406 ;;=^12533
+407 ;;^UTILITY(U,$J,358.3,38789,0)
+408 ;;=A07.1^^107^1519^9
+409 ;;^UTILITY(U,$J,358.3,38789,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,38789,1,3,0)
+412 ;;=3^Giardiasis [lambliasis]
+413 ;;^UTILITY(U,$J,358.3,38789,1,4,0)
+414 ;;=4^A07.1
+415 ;;^UTILITY(U,$J,358.3,38789,2)
+416 ;;=^5000049
+417 ;;^UTILITY(U,$J,358.3,38790,0)
+418 ;;=A07.2^^107^1519^7
+419 ;;^UTILITY(U,$J,358.3,38790,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,38790,1,3,0)
+422 ;;=3^Cryptosporidiosis
+423 ;;^UTILITY(U,$J,358.3,38790,1,4,0)
+424 ;;=4^A07.2
+425 ;;^UTILITY(U,$J,358.3,38790,2)
+426 ;;=^29629
+427 ;;^UTILITY(U,$J,358.3,38791,0)
+428 ;;=A07.3^^107^1519^12
+429 ;;^UTILITY(U,$J,358.3,38791,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,38791,1,3,0)
+432 ;;=3^Isosporiasis
+433 ;;^UTILITY(U,$J,358.3,38791,1,4,0)
+434 ;;=4^A07.3
+435 ;;^UTILITY(U,$J,358.3,38791,2)
+436 ;;=^5000050
+437 ;;^UTILITY(U,$J,358.3,38792,0)
+438 ;;=A07.4^^107^1519^8
+439 ;;^UTILITY(U,$J,358.3,38792,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,38792,1,3,0)
+442 ;;=3^Cyclosporiasis
+443 ;;^UTILITY(U,$J,358.3,38792,1,4,0)
+444 ;;=4^A07.4
+445 ;;^UTILITY(U,$J,358.3,38792,2)
+446 ;;=^321973
+447 ;;^UTILITY(U,$J,358.3,38793,0)
+448 ;;=A07.8^^107^1519^14
+449 ;;^UTILITY(U,$J,358.3,38793,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,38793,1,3,0)
+452 ;;=3^Protozoal Intestinal Diseases,Oth Spec
+453 ;;^UTILITY(U,$J,358.3,38793,1,4,0)
+454 ;;=4^A07.8
+455 ;;^UTILITY(U,$J,358.3,38793,2)
+456 ;;=^265972
+457 ;;^UTILITY(U,$J,358.3,38794,0)
+458 ;;=A07.9^^107^1519^13
+459 ;;^UTILITY(U,$J,358.3,38794,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,38794,1,3,0)
+462 ;;=3^Protozoal Intestinal Disease,Unspec
+463 ;;^UTILITY(U,$J,358.3,38794,1,4,0)
+464 ;;=4^A07.9
+465 ;;^UTILITY(U,$J,358.3,38794,2)
+466 ;;=^5000051
+467 ;;^UTILITY(U,$J,358.3,38795,0)
+468 ;;=A08.0^^107^1519^15
+469 ;;^UTILITY(U,$J,358.3,38795,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,38795,1,3,0)
+472 ;;=3^Rotaviral Enteritis
+473 ;;^UTILITY(U,$J,358.3,38795,1,4,0)
+474 ;;=4^A08.0
+475 ;;^UTILITY(U,$J,358.3,38795,2)
+476 ;;=^5000052
+477 ;;^UTILITY(U,$J,358.3,38796,0)
+478 ;;=A08.11^^107^1519^1
+479 ;;^UTILITY(U,$J,358.3,38796,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,38796,1,3,0)
+482 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+483 ;;^UTILITY(U,$J,358.3,38796,1,4,0)
+484 ;;=4^A08.11
+485 ;;^UTILITY(U,$J,358.3,38796,2)
+486 ;;=^5000053
+487 ;;^UTILITY(U,$J,358.3,38797,0)
+488 ;;=A08.19^^107^1519^2
+489 ;;^UTILITY(U,$J,358.3,38797,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,38797,1,3,0)
+492 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+493 ;;^UTILITY(U,$J,358.3,38797,1,4,0)
+494 ;;=4^A08.19
+495 ;;^UTILITY(U,$J,358.3,38797,2)
+496 ;;=^5000054
+497 ;;^UTILITY(U,$J,358.3,38798,0)
+498 ;;=A08.2^^107^1519^3
+499 ;;^UTILITY(U,$J,358.3,38798,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,38798,1,3,0)
+502 ;;=3^Adenoviral Enteritis
+503 ;;^UTILITY(U,$J,358.3,38798,1,4,0)
+504 ;;=4^A08.2
+505 ;;^UTILITY(U,$J,358.3,38798,2)
+506 ;;=^5000055
+507 ;;^UTILITY(U,$J,358.3,38799,0)
+508 ;;=A08.31^^107^1519^6
+509 ;;^UTILITY(U,$J,358.3,38799,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,38799,1,3,0)
+512 ;;=3^Calicivirus enteritis
+513 ;;^UTILITY(U,$J,358.3,38799,1,4,0)
+514 ;;=4^A08.31
+515 ;;^UTILITY(U,$J,358.3,38799,2)
+516 ;;=^5000056
+517 ;;^UTILITY(U,$J,358.3,38800,0)
+518 ;;=A08.32^^107^1519^4
+519 ;;^UTILITY(U,$J,358.3,38800,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,38800,1,3,0)
+522 ;;=3^Astrovirus enteritis
+523 ;;^UTILITY(U,$J,358.3,38800,1,4,0)
+524 ;;=4^A08.32
+525 ;;^UTILITY(U,$J,358.3,38800,2)
+526 ;;=^5000057
+527 ;;^UTILITY(U,$J,358.3,38801,0)
+528 ;;=A08.39^^107^1519^16
+529 ;;^UTILITY(U,$J,358.3,38801,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,38801,1,3,0)
+532 ;;=3^Viral Enteritis,Oth
+533 ;;^UTILITY(U,$J,358.3,38801,1,4,0)
+534 ;;=4^A08.39
+535 ;;^UTILITY(U,$J,358.3,38801,2)
+536 ;;=^5000058
+537 ;;^UTILITY(U,$J,358.3,38802,0)
+538 ;;=A08.4^^107^1519^17
+539 ;;^UTILITY(U,$J,358.3,38802,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,38802,1,3,0)
+542 ;;=3^Viral Intestinal Infection,Unspec
+543 ;;^UTILITY(U,$J,358.3,38802,1,4,0)
+544 ;;=4^A08.4
+545 ;;^UTILITY(U,$J,358.3,38802,2)
+546 ;;=^5000059
+547 ;;^UTILITY(U,$J,358.3,38803,0)
+548 ;;=A08.8^^107^1519^11
+549 ;;^UTILITY(U,$J,358.3,38803,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,38803,1,3,0)
+552 ;;=3^Intestinal Infections,Oth Spec
+553 ;;^UTILITY(U,$J,358.3,38803,1,4,0)
+554 ;;=4^A08.8
+555 ;;^UTILITY(U,$J,358.3,38803,2)
+556 ;;=^5000060
+557 ;;^UTILITY(U,$J,358.3,38804,0)
+558 ;;=A09.^^107^1519^10
+559 ;;^UTILITY(U,$J,358.3,38804,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,38804,1,3,0)
+562 ;;=3^Infectious Gastroenteritis & Colitis,Unspec
+563 ;;^UTILITY(U,$J,358.3,38804,1,4,0)
+564 ;;=4^A09.
+565 ;;^UTILITY(U,$J,358.3,38804,2)
+566 ;;=^5000061
+567 ;;^UTILITY(U,$J,358.3,38805,0)
+568 ;;=J12.0^^107^1520^1
+569 ;;^UTILITY(U,$J,358.3,38805,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,38805,1,3,0)
+572 ;;=3^Adenoviral Pneumonia
+573 ;;^UTILITY(U,$J,358.3,38805,1,4,0)
+574 ;;=4^J12.0
+575 ;;^UTILITY(U,$J,358.3,38805,2)
+576 ;;=^5008164
+577 ;;^UTILITY(U,$J,358.3,38806,0)
+578 ;;=J12.1^^107^1520^30
+579 ;;^UTILITY(U,$J,358.3,38806,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,38806,1,3,0)
+582 ;;=3^Respiratory Syncytial Virus Pneumonia
+583 ;;^UTILITY(U,$J,358.3,38806,1,4,0)
+584 ;;=4^J12.1
+585 ;;^UTILITY(U,$J,358.3,38806,2)
+586 ;;=^5008165
+587 ;;^UTILITY(U,$J,358.3,38807,0)
+588 ;;=J12.2^^107^1520^4
+589 ;;^UTILITY(U,$J,358.3,38807,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,38807,1,3,0)
+592 ;;=3^Parainfluenza Virus Pneumonia
+593 ;;^UTILITY(U,$J,358.3,38807,1,4,0)
+594 ;;=4^J12.2
+595 ;;^UTILITY(U,$J,358.3,38807,2)
+596 ;;=^5008166
+597 ;;^UTILITY(U,$J,358.3,38808,0)
+598 ;;=J12.3^^107^1520^3
+599 ;;^UTILITY(U,$J,358.3,38808,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,38808,1,3,0)
+602 ;;=3^Human Metapneumovirus Pneumonia
+603 ;;^UTILITY(U,$J,358.3,38808,1,4,0)
+604 ;;=4^J12.3
+605 ;;^UTILITY(U,$J,358.3,38808,2)
+606 ;;=^5008167
+607 ;;^UTILITY(U,$J,358.3,38809,0)
+608 ;;=J12.81^^107^1520^17
+609 ;;^UTILITY(U,$J,358.3,38809,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,38809,1,3,0)
+612 ;;=3^Pneumonia d/t SARS-Associated Coronavirus
+613 ;;^UTILITY(U,$J,358.3,38809,1,4,0)
+614 ;;=4^J12.81
+615 ;;^UTILITY(U,$J,358.3,38809,2)
+616 ;;=^329925
+617 ;;^UTILITY(U,$J,358.3,38810,0)
+618 ;;=J12.89^^107^1520^28
+619 ;;^UTILITY(U,$J,358.3,38810,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,38810,1,3,0)
+622 ;;=3^Pneumonia,Viral,Other
+623 ;;^UTILITY(U,$J,358.3,38810,1,4,0)
+624 ;;=4^J12.89
+625 ;;^UTILITY(U,$J,358.3,38810,2)
+626 ;;=^5008168
+627 ;;^UTILITY(U,$J,358.3,38811,0)
+628 ;;=J12.9^^107^1520^29
+629 ;;^UTILITY(U,$J,358.3,38811,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,38811,1,3,0)
+632 ;;=3^Pneumonia,Viral,Unspec
+633 ;;^UTILITY(U,$J,358.3,38811,1,4,0)
+634 ;;=4^J12.9
+635 ;;^UTILITY(U,$J,358.3,38811,2)
+636 ;;=^5008169
+637 ;;^UTILITY(U,$J,358.3,38812,0)
+638 ;;=J13.^^107^1520^19
+639 ;;^UTILITY(U,$J,358.3,38812,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,38812,1,3,0)
+642 ;;=3^Pneumonia d/t Streptococcus Pneumoniae
+643 ;;^UTILITY(U,$J,358.3,38812,1,4,0)
+644 ;;=4^J13.
+645 ;;^UTILITY(U,$J,358.3,38812,2)
+646 ;;=^5008170
+647 ;;^UTILITY(U,$J,358.3,38813,0)
+648 ;;=J14.^^107^1520^6
+649 ;;^UTILITY(U,$J,358.3,38813,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,38813,1,3,0)
+652 ;;=3^Pneumonia d/t Hemophilus Influenzae
+653 ;;^UTILITY(U,$J,358.3,38813,1,4,0)
+654 ;;=4^J14.
+655 ;;^UTILITY(U,$J,358.3,38813,2)
+656 ;;=^5008171
+657 ;;^UTILITY(U,$J,358.3,38814,0)
+658 ;;=J15.0^^107^1520^7
+659 ;;^UTILITY(U,$J,358.3,38814,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,38814,1,3,0)
+662 ;;=3^Pneumonia d/t Klebsiella Pneumoniae
+663 ;;^UTILITY(U,$J,358.3,38814,1,4,0)
+664 ;;=4^J15.0
+665 ;;^UTILITY(U,$J,358.3,38814,2)
+666 ;;=^269931
+667 ;;^UTILITY(U,$J,358.3,38815,0)
+668 ;;=J15.1^^107^1520^16
+669 ;;^UTILITY(U,$J,358.3,38815,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,38815,1,3,0)
+672 ;;=3^Pneumonia d/t Pseudomonas
+673 ;;^UTILITY(U,$J,358.3,38815,1,4,0)
+674 ;;=4^J15.1
+675 ;;^UTILITY(U,$J,358.3,38815,2)
+676 ;;=^269932
+677 ;;^UTILITY(U,$J,358.3,38816,0)
+678 ;;=J15.20^^107^1520^18
+679 ;;^UTILITY(U,$J,358.3,38816,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,38816,1,3,0)
+682 ;;=3^Pneumonia d/t Staphylococcus,Unspec
