IBDEI02U ; ; 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,6691,1,4,0)
;;=4^S05.42XA
;;^UTILITY(U,$J,358.3,6691,2)
;;=^5020618
;;^UTILITY(U,$J,358.3,6692,0)
;;=S02.42XA^^40^363^17
;;^UTILITY(U,$J,358.3,6692,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6692,1,3,0)
;;=3^Fx of Alveoulus of Maxilla,Init Encntr for Closed Fx
;;^UTILITY(U,$J,358.3,6692,1,4,0)
;;=4^S02.42XA
;;^UTILITY(U,$J,358.3,6692,2)
;;=^5020354
;;^UTILITY(U,$J,358.3,6693,0)
;;=S00.11XA^^40^363^18
;;^UTILITY(U,$J,358.3,6693,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6693,1,3,0)
;;=3^Contusion,Right Eyelid,Init Encntr
;;^UTILITY(U,$J,358.3,6693,1,4,0)
;;=4^S00.11XA
;;^UTILITY(U,$J,358.3,6693,2)
;;=^5019778
;;^UTILITY(U,$J,358.3,6694,0)
;;=S00.12XA^^40^363^19
;;^UTILITY(U,$J,358.3,6694,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6694,1,3,0)
;;=3^Contusion,Left Eyelid,Init Encntr
;;^UTILITY(U,$J,358.3,6694,1,4,0)
;;=4^S00.12XA
;;^UTILITY(U,$J,358.3,6694,2)
;;=^5019781
;;^UTILITY(U,$J,358.3,6695,0)
;;=S01.151A^^40^363^20
;;^UTILITY(U,$J,358.3,6695,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6695,1,3,0)
;;=3^Open Bite,Right Eyelid,Init Encntr
;;^UTILITY(U,$J,358.3,6695,1,4,0)
;;=4^S01.151A
;;^UTILITY(U,$J,358.3,6695,2)
;;=^5020081
;;^UTILITY(U,$J,358.3,6696,0)
;;=S01.152A^^40^363^21
;;^UTILITY(U,$J,358.3,6696,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6696,1,3,0)
;;=3^Open Bite,Left Eyelid,Init Encntr
;;^UTILITY(U,$J,358.3,6696,1,4,0)
;;=4^S01.152A
;;^UTILITY(U,$J,358.3,6696,2)
;;=^5020084
;;^UTILITY(U,$J,358.3,6697,0)
;;=S02.81XA^^40^363^13
;;^UTILITY(U,$J,358.3,6697,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6697,1,3,0)
;;=3^Fx of Skull/Facial Bones,Right Side,Init Encntr for Closed Fx
;;^UTILITY(U,$J,358.3,6697,1,4,0)
;;=4^S02.81XA
;;^UTILITY(U,$J,358.3,6697,2)
;;=^5139523
;;^UTILITY(U,$J,358.3,6698,0)
;;=S02.82XA^^40^363^14
;;^UTILITY(U,$J,358.3,6698,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6698,1,3,0)
;;=3^Fx of Skull/Facial Bones,Left Side,Init Encntr for Closed Fx
;;^UTILITY(U,$J,358.3,6698,1,4,0)
;;=4^S02.82XA
;;^UTILITY(U,$J,358.3,6698,2)
;;=^5139529
;;^UTILITY(U,$J,358.3,6699,0)
;;=S02.31XA^^40^363^15
;;^UTILITY(U,$J,358.3,6699,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6699,1,3,0)
;;=3^Fx of Orbital Floor,Right Side,Init Encntr for Closed Fx
;;^UTILITY(U,$J,358.3,6699,1,4,0)
;;=4^S02.31XA
;;^UTILITY(U,$J,358.3,6699,2)
;;=^5139325
;;^UTILITY(U,$J,358.3,6700,0)
;;=S02.32XA^^40^363^16
;;^UTILITY(U,$J,358.3,6700,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6700,1,3,0)
;;=3^Fx of Orbital Floor,Left Side,Init Encntr for Closed Fx
;;^UTILITY(U,$J,358.3,6700,1,4,0)
;;=4^S02.32XA
;;^UTILITY(U,$J,358.3,6700,2)
;;=^5139331
;;^UTILITY(U,$J,358.3,6701,0)
;;=H04.123^^40^364^1
;;^UTILITY(U,$J,358.3,6701,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6701,1,3,0)
;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
;;^UTILITY(U,$J,358.3,6701,1,4,0)
;;=4^H04.123
;;^UTILITY(U,$J,358.3,6701,2)
;;=^5004465
;;^UTILITY(U,$J,358.3,6702,0)
;;=M35.01^^40^364^2
;;^UTILITY(U,$J,358.3,6702,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6702,1,3,0)
;;=3^Sicca Syndrome w/ Keratoconjunctivitis
;;^UTILITY(U,$J,358.3,6702,1,4,0)
;;=4^M35.01
;;^UTILITY(U,$J,358.3,6702,2)
;;=^5011787
;;^UTILITY(U,$J,358.3,6703,0)
;;=H10.503^^40^364^3
;;^UTILITY(U,$J,358.3,6703,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6703,1,3,0)
;;=3^Blepharoconjunctivitis,Bilateral
;;^UTILITY(U,$J,358.3,6703,1,4,0)
;;=4^H10.503
;;^UTILITY(U,$J,358.3,6703,2)
;;=^5004699
;;^UTILITY(U,$J,358.3,6704,0)
;;=H01.001^^40^364^4
;;^UTILITY(U,$J,358.3,6704,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6704,1,3,0)
;;=3^Blepharitis,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6704,1,4,0)
;;=4^H01.001
;;^UTILITY(U,$J,358.3,6704,2)
;;=^5004238
;;^UTILITY(U,$J,358.3,6705,0)
;;=H01.004^^40^364^5
;;^UTILITY(U,$J,358.3,6705,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6705,1,3,0)
;;=3^Blepharitis,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6705,1,4,0)
;;=4^H01.004
;;^UTILITY(U,$J,358.3,6705,2)
;;=^5004241
;;^UTILITY(U,$J,358.3,6706,0)
;;=L71.9^^40^364^6
;;^UTILITY(U,$J,358.3,6706,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6706,1,3,0)
;;=3^Rosacea,Unspec
;;^UTILITY(U,$J,358.3,6706,1,4,0)
;;=4^L71.9
;;^UTILITY(U,$J,358.3,6706,2)
;;=^5009276
;;^UTILITY(U,$J,358.3,6707,0)
;;=H04.221^^40^364^10
;;^UTILITY(U,$J,358.3,6707,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6707,1,3,0)
;;=3^Epiphora d/t Insuff Drainage,Right
;;^UTILITY(U,$J,358.3,6707,1,4,0)
;;=4^H04.221
;;^UTILITY(U,$J,358.3,6707,2)
;;=^5004491
;;^UTILITY(U,$J,358.3,6708,0)
;;=H04.222^^40^364^11
;;^UTILITY(U,$J,358.3,6708,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6708,1,3,0)
;;=3^Epiphora d/t Insuff Drainage,Left
;;^UTILITY(U,$J,358.3,6708,1,4,0)
;;=4^H04.222
;;^UTILITY(U,$J,358.3,6708,2)
;;=^5004492
;;^UTILITY(U,$J,358.3,6709,0)
;;=H04.551^^40^364^12
;;^UTILITY(U,$J,358.3,6709,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6709,1,3,0)
;;=3^Acquired Stenosis,Right Nasolacrimal Duct
;;^UTILITY(U,$J,358.3,6709,1,4,0)
;;=4^H04.551
;;^UTILITY(U,$J,358.3,6709,2)
;;=^5004538
;;^UTILITY(U,$J,358.3,6710,0)
;;=H04.552^^40^364^13
;;^UTILITY(U,$J,358.3,6710,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6710,1,3,0)
;;=3^Acquired Stenosis,Left Nasolacrimal Duct
;;^UTILITY(U,$J,358.3,6710,1,4,0)
;;=4^H04.552
;;^UTILITY(U,$J,358.3,6710,2)
;;=^5004539
;;^UTILITY(U,$J,358.3,6711,0)
;;=H04.211^^40^364^7
;;^UTILITY(U,$J,358.3,6711,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6711,1,3,0)
;;=3^Epiphora d/t Excessive Lacrimation,Right
;;^UTILITY(U,$J,358.3,6711,1,4,0)
;;=4^H04.211
;;^UTILITY(U,$J,358.3,6711,2)
;;=^5004487
;;^UTILITY(U,$J,358.3,6712,0)
;;=H04.212^^40^364^8
;;^UTILITY(U,$J,358.3,6712,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6712,1,3,0)
;;=3^Epiphora d/t Excessive Lacrimation,Left
;;^UTILITY(U,$J,358.3,6712,1,4,0)
;;=4^H04.212
;;^UTILITY(U,$J,358.3,6712,2)
;;=^5004488
;;^UTILITY(U,$J,358.3,6713,0)
;;=H04.213^^40^364^9
;;^UTILITY(U,$J,358.3,6713,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6713,1,3,0)
;;=3^Epiphora d/t Excessive Lacrimation,Bilateral
;;^UTILITY(U,$J,358.3,6713,1,4,0)
;;=4^H04.213
;;^UTILITY(U,$J,358.3,6713,2)
;;=^5004489
;;^UTILITY(U,$J,358.3,6714,0)
;;=D23.111^^40^364^14
;;^UTILITY(U,$J,358.3,6714,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6714,1,3,0)
;;=3^Benign Neop Skin,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6714,1,4,0)
;;=4^D23.111
;;^UTILITY(U,$J,358.3,6714,2)
;;=^5157290
;;^UTILITY(U,$J,358.3,6715,0)
;;=D23.112^^40^364^15
;;^UTILITY(U,$J,358.3,6715,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6715,1,3,0)
;;=3^Benign Neop Skin,Right Lower Eyelid
;;^UTILITY(U,$J,358.3,6715,1,4,0)
;;=4^D23.112
;;^UTILITY(U,$J,358.3,6715,2)
;;=^5157291
;;^UTILITY(U,$J,358.3,6716,0)
;;=D23.121^^40^364^16
;;^UTILITY(U,$J,358.3,6716,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6716,1,3,0)
;;=3^Benign Neop Skin,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6716,1,4,0)
;;=4^D23.121
;;^UTILITY(U,$J,358.3,6716,2)
;;=^5157292
;;^UTILITY(U,$J,358.3,6717,0)
;;=D23.122^^40^364^17
;;^UTILITY(U,$J,358.3,6717,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6717,1,3,0)
;;=3^BEnign Neop Skin,Left Lower Eyelid
;;^UTILITY(U,$J,358.3,6717,1,4,0)
;;=4^D23.122
;;^UTILITY(U,$J,358.3,6717,2)
;;=^5157293
;;^UTILITY(U,$J,358.3,6718,0)
;;=C44.1021^^40^364^18
;;^UTILITY(U,$J,358.3,6718,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6718,1,3,0)
;;=3^Malig Neop Skin,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6718,1,4,0)
;;=4^C44.1021
;;^UTILITY(U,$J,358.3,6718,2)
;;=^5157253
;;^UTILITY(U,$J,358.3,6719,0)
;;=C44.1022^^40^364^19
;;^UTILITY(U,$J,358.3,6719,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6719,1,3,0)
;;=3^Malig Neop Skin,Right Lower Eyelid
;;^UTILITY(U,$J,358.3,6719,1,4,0)
;;=4^C44.1022
;;^UTILITY(U,$J,358.3,6719,2)
;;=^5157254
;;^UTILITY(U,$J,358.3,6720,0)
;;=C44.1091^^40^364^20
;;^UTILITY(U,$J,358.3,6720,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6720,1,3,0)
;;=3^Malig Neop Skin,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6720,1,4,0)
;;=4^C44.1091
;;^UTILITY(U,$J,358.3,6720,2)
;;=^5157255
;;^UTILITY(U,$J,358.3,6721,0)
;;=C44.1092^^40^364^21
;;^UTILITY(U,$J,358.3,6721,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6721,1,3,0)
;;=3^Malig Neop Skin,Left Lower Eyelid
;;^UTILITY(U,$J,358.3,6721,1,4,0)
;;=4^C44.1092
;;^UTILITY(U,$J,358.3,6721,2)
;;=^5157256
;;^UTILITY(U,$J,358.3,6722,0)
;;=C44.1121^^40^364^22
;;^UTILITY(U,$J,358.3,6722,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6722,1,3,0)
;;=3^BCC Neop Skin,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6722,1,4,0)
;;=4^C44.1121
;;^UTILITY(U,$J,358.3,6722,2)
;;=^5157257
;;^UTILITY(U,$J,358.3,6723,0)
;;=C44.1122^^40^364^23
;;^UTILITY(U,$J,358.3,6723,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6723,1,3,0)
;;=3^BCC Neop Skin,Right Lower Eyelid
;;^UTILITY(U,$J,358.3,6723,1,4,0)
;;=4^C44.1122
;;^UTILITY(U,$J,358.3,6723,2)
;;=^5157258
;;^UTILITY(U,$J,358.3,6724,0)
;;=C44.1191^^40^364^24
;;^UTILITY(U,$J,358.3,6724,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6724,1,3,0)
;;=3^BCC Neop Skin,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6724,1,4,0)
;;=4^C44.1191
;;^UTILITY(U,$J,358.3,6724,2)
;;=^5157259
;;^UTILITY(U,$J,358.3,6725,0)
;;=C44.1192^^40^364^25
;;^UTILITY(U,$J,358.3,6725,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6725,1,3,0)
;;=3^BCC Neop Skin,Left Lower Eyelid
;;^UTILITY(U,$J,358.3,6725,1,4,0)
;;=4^C44.1192
;;^UTILITY(U,$J,358.3,6725,2)
;;=^5157260
;;^UTILITY(U,$J,358.3,6726,0)
;;=C44.1221^^40^364^26
;;^UTILITY(U,$J,358.3,6726,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6726,1,3,0)
;;=3^SCC Neop Skin,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6726,1,4,0)
;;=4^C44.1221
;;^UTILITY(U,$J,358.3,6726,2)
;;=^5157261
;;^UTILITY(U,$J,358.3,6727,0)
;;=C44.1222^^40^364^27
;;^UTILITY(U,$J,358.3,6727,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6727,1,3,0)
;;=3^SCC Neop Skin,Right Lower Eyelid
;;^UTILITY(U,$J,358.3,6727,1,4,0)
;;=4^C44.1222
;;^UTILITY(U,$J,358.3,6727,2)
;;=^5157262
;;^UTILITY(U,$J,358.3,6728,0)
;;=C44.1291^^40^364^28
;;^UTILITY(U,$J,358.3,6728,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6728,1,3,0)
;;=3^SCC Neop Skin,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6728,1,4,0)
;;=4^C44.1291
;;^UTILITY(U,$J,358.3,6728,2)
;;=^5157263
;;^UTILITY(U,$J,358.3,6729,0)
;;=C44.1292^^40^364^29
;;^UTILITY(U,$J,358.3,6729,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6729,1,3,0)
;;=3^SCC Neop Skin,Left Lower Eyelid
;;^UTILITY(U,$J,358.3,6729,1,4,0)
;;=4^C44.1292
;;^UTILITY(U,$J,358.3,6729,2)
;;=^5157264
;;^UTILITY(U,$J,358.3,6730,0)
;;=H52.13^^40^365^34
;;^UTILITY(U,$J,358.3,6730,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6730,1,3,0)
;;=3^Myopia,Bilateral
;;^UTILITY(U,$J,358.3,6730,1,4,0)
;;=4^H52.13
;;^UTILITY(U,$J,358.3,6730,2)
;;=^5006266
;;^UTILITY(U,$J,358.3,6731,0)
;;=H52.03^^40^365^31
;;^UTILITY(U,$J,358.3,6731,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6731,1,3,0)
;;=3^Hypermetropia,Bilateral
;;^UTILITY(U,$J,358.3,6731,1,4,0)
;;=4^H52.03
;;^UTILITY(U,$J,358.3,6731,2)
;;=^5006262
;;^UTILITY(U,$J,358.3,6732,0)
;;=H52.4^^40^365^41
;;^UTILITY(U,$J,358.3,6732,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6732,1,3,0)
;;=3^Presbyopia
;;^UTILITY(U,$J,358.3,6732,1,4,0)
;;=4^H52.4
;;^UTILITY(U,$J,358.3,6732,2)
;;=^98095
;;^UTILITY(U,$J,358.3,6733,0)
;;=H25.11^^40^365^9
;;^UTILITY(U,$J,358.3,6733,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6733,1,3,0)
;;=3^Cataract,Nuclear Age-Rel,Right Eye
;;^UTILITY(U,$J,358.3,6733,1,4,0)
;;=4^H25.11
;;^UTILITY(U,$J,358.3,6733,2)
;;=^5005284
;;^UTILITY(U,$J,358.3,6734,0)
;;=H25.12^^40^365^8
;;^UTILITY(U,$J,358.3,6734,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6734,1,3,0)
;;=3^Cataract,Nuclear Age-Rel,Left Eye
;;^UTILITY(U,$J,358.3,6734,1,4,0)
;;=4^H25.12
;;^UTILITY(U,$J,358.3,6734,2)
;;=^5005285
;;^UTILITY(U,$J,358.3,6735,0)
;;=Z98.49^^40^365^7
;;^UTILITY(U,$J,358.3,6735,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6735,1,3,0)
;;=3^Cataract Extraction Status,Unspec Eye
;;^UTILITY(U,$J,358.3,6735,1,4,0)
;;=4^Z98.49
;;^UTILITY(U,$J,358.3,6735,2)
;;=^5063739
;;^UTILITY(U,$J,358.3,6736,0)
;;=H04.123^^40^365^22
;;^UTILITY(U,$J,358.3,6736,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6736,1,3,0)
;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
;;^UTILITY(U,$J,358.3,6736,1,4,0)
;;=4^H04.123
;;^UTILITY(U,$J,358.3,6736,2)
;;=^5004465
;;^UTILITY(U,$J,358.3,6737,0)
;;=H01.009^^40^365^5
;;^UTILITY(U,$J,358.3,6737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6737,1,3,0)
;;=3^Blepharitis,Unspec
;;^UTILITY(U,$J,358.3,6737,1,4,0)
;;=4^H01.009
;;^UTILITY(U,$J,358.3,6737,2)
;;=^5133381
;;^UTILITY(U,$J,358.3,6738,0)
;;=H40.023^^40^365^29
;;^UTILITY(U,$J,358.3,6738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6738,1,3,0)
;;=3^Glaucoma Suspect,High Risk,Bilateral,Open Angle
;;^UTILITY(U,$J,358.3,6738,1,4,0)
;;=4^H40.023
;;^UTILITY(U,$J,358.3,6738,2)
;;=^5005730
;;^UTILITY(U,$J,358.3,6739,0)
;;=H40.053^^40^365^38
;;^UTILITY(U,$J,358.3,6739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6739,1,3,0)
;;=3^Ocular Hypertension,Bilateral
;;^UTILITY(U,$J,358.3,6739,1,4,0)
;;=4^H40.053
;;^UTILITY(U,$J,358.3,6739,2)
;;=^5005742
;;^UTILITY(U,$J,358.3,6740,0)
;;=E11.9^^40^365^19
;;^UTILITY(U,$J,358.3,6740,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6740,1,3,0)
;;=3^DM Type 2 w/o Complications
;;^UTILITY(U,$J,358.3,6740,1,4,0)
;;=4^E11.9
;;^UTILITY(U,$J,358.3,6740,2)
;;=^5002666
;;^UTILITY(U,$J,358.3,6741,0)
;;=E11.39^^40^365^18
;;^UTILITY(U,$J,358.3,6741,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6741,1,3,0)
;;=3^DM Type 2 w/ Ophthalmic Complications
;;^UTILITY(U,$J,358.3,6741,1,4,0)
;;=4^E11.39
;;^UTILITY(U,$J,358.3,6741,2)
;;=^5002643
;;^UTILITY(U,$J,358.3,6742,0)
;;=H59.039^^40^365^6
;;^UTILITY(U,$J,358.3,6742,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6742,1,3,0)
;;=3^CME Mac Edema,Unspec Eye
;;^UTILITY(U,$J,358.3,6742,1,4,0)
;;=4^H59.039
;;^UTILITY(U,$J,358.3,6742,2)
;;=^5006396
;;^UTILITY(U,$J,358.3,6743,0)
;;=H02.831^^40^365^21
;;^UTILITY(U,$J,358.3,6743,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6743,1,3,0)
;;=3^Dermatochalasis,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6743,1,4,0)
;;=4^H02.831
;;^UTILITY(U,$J,358.3,6743,2)
;;=^5004418
;;^UTILITY(U,$J,358.3,6744,0)
;;=H02.834^^40^365^20
;;^UTILITY(U,$J,358.3,6744,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6744,1,3,0)
;;=3^Dermatochalasis,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6744,1,4,0)
;;=4^H02.834
;;^UTILITY(U,$J,358.3,6744,2)
;;=^5004421
;;^UTILITY(U,$J,358.3,6745,0)
;;=H10.31^^40^365^13
;;^UTILITY(U,$J,358.3,6745,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6745,1,3,0)
;;=3^Conjunctivitis,Acute,Right Eye
;;^UTILITY(U,$J,358.3,6745,1,4,0)
;;=4^H10.31
;;^UTILITY(U,$J,358.3,6745,2)
;;=^5133458
;;^UTILITY(U,$J,358.3,6746,0)
;;=H10.32^^40^365^12
;;^UTILITY(U,$J,358.3,6746,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6746,1,3,0)
;;=3^Conjunctivitis,Acute,Left Eye
;;^UTILITY(U,$J,358.3,6746,1,4,0)
;;=4^H10.32
;;^UTILITY(U,$J,358.3,6746,2)
;;=^5133459
;;^UTILITY(U,$J,358.3,6747,0)
;;=H00.11^^40^365^11
;;^UTILITY(U,$J,358.3,6747,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6747,1,3,0)
;;=3^Chalazion,Right Upper Eyelid
;;^UTILITY(U,$J,358.3,6747,1,4,0)
;;=4^H00.11
;;^UTILITY(U,$J,358.3,6747,2)
;;=^5004233
;;^UTILITY(U,$J,358.3,6748,0)
;;=H00.14^^40^365^10
;;^UTILITY(U,$J,358.3,6748,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6748,1,3,0)
;;=3^Chalazion,Left Upper Eyelid
;;^UTILITY(U,$J,358.3,6748,1,4,0)
;;=4^H00.14
;;^UTILITY(U,$J,358.3,6748,2)
;;=^5004236
;;^UTILITY(U,$J,358.3,6749,0)
;;=H20.00^^40^365^32
;;^UTILITY(U,$J,358.3,6749,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6749,1,3,0)
;;=3^Iridocyclitis,Acute/Subacute,Unspec
;;^UTILITY(U,$J,358.3,6749,1,4,0)
;;=4^H20.00
;;^UTILITY(U,$J,358.3,6749,2)
;;=^5005133
;;^UTILITY(U,$J,358.3,6750,0)
;;=B00.59^^40^365^30
;;^UTILITY(U,$J,358.3,6750,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6750,1,3,0)
;;=3^Herpes Viral Eye Disease NEC
;;^UTILITY(U,$J,358.3,6750,1,4,0)
;;=4^B00.59
;;^UTILITY(U,$J,358.3,6750,2)
;;=^5000476
;;^UTILITY(U,$J,358.3,6751,0)
;;=Z01.00^^40^365^27
;;^UTILITY(U,$J,358.3,6751,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6751,1,3,0)
;;=3^Eye/Vision Exam w/o Abnormal Findings
;;^UTILITY(U,$J,358.3,6751,1,4,0)
;;=4^Z01.00
;;^UTILITY(U,$J,358.3,6751,2)
;;=^5062612
;;^UTILITY(U,$J,358.3,6752,0)
;;=Z01.01^^40^365^26
;;^UTILITY(U,$J,358.3,6752,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6752,1,3,0)
;;=3^Eye/Vision Exam w/ Abnormal Findings
;;^UTILITY(U,$J,358.3,6752,1,4,0)
;;=4^Z01.01
;;^UTILITY(U,$J,358.3,6752,2)
;;=^5062613
;;^UTILITY(U,$J,358.3,6753,0)
;;=H52.223^^40^365^2
;;^UTILITY(U,$J,358.3,6753,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6753,1,3,0)
;;=3^Astigmatism,Regular,Bilateral
;;^UTILITY(U,$J,358.3,6753,1,4,0)
;;=4^H52.223
;;^UTILITY(U,$J,358.3,6753,2)
;;=^5006276
;;^UTILITY(U,$J,358.3,6754,0)
;;=H35.3110^^40^365^37
;;^UTILITY(U,$J,358.3,6754,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6754,1,3,0)
;;=3^Nonexudative ARMD,Right Eye
;;^UTILITY(U,$J,358.3,6754,1,4,0)
;;=4^H35.3110
;;^UTILITY(U,$J,358.3,6754,2)
;;=^5138500
;;^UTILITY(U,$J,358.3,6755,0)
;;=H35.3120^^40^365^36
;;^UTILITY(U,$J,358.3,6755,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6755,1,3,0)
;;=3^Nonexudative ARMD,Left Eye
;;^UTILITY(U,$J,358.3,6755,1,4,0)
;;=4^H35.3120
;;^UTILITY(U,$J,358.3,6755,2)
;;=^5138505
;;^UTILITY(U,$J,358.3,6756,0)
;;=H35.3210^^40^365^25
;;^UTILITY(U,$J,358.3,6756,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6756,1,3,0)
;;=3^Exudative ARMD,Right Eye
;;^UTILITY(U,$J,358.3,6756,1,4,0)
;;=4^H35.3210
;;^UTILITY(U,$J,358.3,6756,2)
;;=^5138520
;;^UTILITY(U,$J,358.3,6757,0)
;;=H35.3220^^40^365^24
;;^UTILITY(U,$J,358.3,6757,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6757,1,3,0)
;;=3^Exudative ARMD,Left Eye
;;^UTILITY(U,$J,358.3,6757,1,4,0)
;;=4^H35.3220
;;^UTILITY(U,$J,358.3,6757,2)
;;=^5138524
;;^UTILITY(U,$J,358.3,6758,0)
;;=E11.3291^^40^365^14
;;^UTILITY(U,$J,358.3,6758,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6758,1,3,0)
;;=3^DM Type 2 w/ Mild NPDR w/o Macular Edema,Right Eye
;;^UTILITY(U,$J,358.3,6758,1,4,0)
;;=4^E11.3291
;;^UTILITY(U,$J,358.3,6758,2)
;;=^5138335
;;^UTILITY(U,$J,358.3,6759,0)
;;=E11.3292^^40^365^15
;;^UTILITY(U,$J,358.3,6759,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,6759,1,3,0)
;;=3^DM Type 2 w/ Mild NPDR w/o Macular Edema,Left Eye
;;^UTILITY(U,$J,358.3,6759,1,4,0)
;;=4^E11.3292
;;^UTILITY(U,$J,358.3,6759,2)
;;=^5138336
;;^UTILITY(U,$J,358.3,6760,0)
;;=E11.3391^^40^365^16
;;^UTILITY(U,$J,358.3,6760,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI02U 19781 printed Sep 23, 2025@19:16:30 Page 2
IBDEI02U ; ; 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,6691,1,4,0)
+2 ;;=4^S05.42XA
+3 ;;^UTILITY(U,$J,358.3,6691,2)
+4 ;;=^5020618
+5 ;;^UTILITY(U,$J,358.3,6692,0)
+6 ;;=S02.42XA^^40^363^17
+7 ;;^UTILITY(U,$J,358.3,6692,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,6692,1,3,0)
+10 ;;=3^Fx of Alveoulus of Maxilla,Init Encntr for Closed Fx
+11 ;;^UTILITY(U,$J,358.3,6692,1,4,0)
+12 ;;=4^S02.42XA
+13 ;;^UTILITY(U,$J,358.3,6692,2)
+14 ;;=^5020354
+15 ;;^UTILITY(U,$J,358.3,6693,0)
+16 ;;=S00.11XA^^40^363^18
+17 ;;^UTILITY(U,$J,358.3,6693,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,6693,1,3,0)
+20 ;;=3^Contusion,Right Eyelid,Init Encntr
+21 ;;^UTILITY(U,$J,358.3,6693,1,4,0)
+22 ;;=4^S00.11XA
+23 ;;^UTILITY(U,$J,358.3,6693,2)
+24 ;;=^5019778
+25 ;;^UTILITY(U,$J,358.3,6694,0)
+26 ;;=S00.12XA^^40^363^19
+27 ;;^UTILITY(U,$J,358.3,6694,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,6694,1,3,0)
+30 ;;=3^Contusion,Left Eyelid,Init Encntr
+31 ;;^UTILITY(U,$J,358.3,6694,1,4,0)
+32 ;;=4^S00.12XA
+33 ;;^UTILITY(U,$J,358.3,6694,2)
+34 ;;=^5019781
+35 ;;^UTILITY(U,$J,358.3,6695,0)
+36 ;;=S01.151A^^40^363^20
+37 ;;^UTILITY(U,$J,358.3,6695,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,6695,1,3,0)
+40 ;;=3^Open Bite,Right Eyelid,Init Encntr
+41 ;;^UTILITY(U,$J,358.3,6695,1,4,0)
+42 ;;=4^S01.151A
+43 ;;^UTILITY(U,$J,358.3,6695,2)
+44 ;;=^5020081
+45 ;;^UTILITY(U,$J,358.3,6696,0)
+46 ;;=S01.152A^^40^363^21
+47 ;;^UTILITY(U,$J,358.3,6696,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,6696,1,3,0)
+50 ;;=3^Open Bite,Left Eyelid,Init Encntr
+51 ;;^UTILITY(U,$J,358.3,6696,1,4,0)
+52 ;;=4^S01.152A
+53 ;;^UTILITY(U,$J,358.3,6696,2)
+54 ;;=^5020084
+55 ;;^UTILITY(U,$J,358.3,6697,0)
+56 ;;=S02.81XA^^40^363^13
+57 ;;^UTILITY(U,$J,358.3,6697,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,6697,1,3,0)
+60 ;;=3^Fx of Skull/Facial Bones,Right Side,Init Encntr for Closed Fx
+61 ;;^UTILITY(U,$J,358.3,6697,1,4,0)
+62 ;;=4^S02.81XA
+63 ;;^UTILITY(U,$J,358.3,6697,2)
+64 ;;=^5139523
+65 ;;^UTILITY(U,$J,358.3,6698,0)
+66 ;;=S02.82XA^^40^363^14
+67 ;;^UTILITY(U,$J,358.3,6698,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,6698,1,3,0)
+70 ;;=3^Fx of Skull/Facial Bones,Left Side,Init Encntr for Closed Fx
+71 ;;^UTILITY(U,$J,358.3,6698,1,4,0)
+72 ;;=4^S02.82XA
+73 ;;^UTILITY(U,$J,358.3,6698,2)
+74 ;;=^5139529
+75 ;;^UTILITY(U,$J,358.3,6699,0)
+76 ;;=S02.31XA^^40^363^15
+77 ;;^UTILITY(U,$J,358.3,6699,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,6699,1,3,0)
+80 ;;=3^Fx of Orbital Floor,Right Side,Init Encntr for Closed Fx
+81 ;;^UTILITY(U,$J,358.3,6699,1,4,0)
+82 ;;=4^S02.31XA
+83 ;;^UTILITY(U,$J,358.3,6699,2)
+84 ;;=^5139325
+85 ;;^UTILITY(U,$J,358.3,6700,0)
+86 ;;=S02.32XA^^40^363^16
+87 ;;^UTILITY(U,$J,358.3,6700,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,6700,1,3,0)
+90 ;;=3^Fx of Orbital Floor,Left Side,Init Encntr for Closed Fx
+91 ;;^UTILITY(U,$J,358.3,6700,1,4,0)
+92 ;;=4^S02.32XA
+93 ;;^UTILITY(U,$J,358.3,6700,2)
+94 ;;=^5139331
+95 ;;^UTILITY(U,$J,358.3,6701,0)
+96 ;;=H04.123^^40^364^1
+97 ;;^UTILITY(U,$J,358.3,6701,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,6701,1,3,0)
+100 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
+101 ;;^UTILITY(U,$J,358.3,6701,1,4,0)
+102 ;;=4^H04.123
+103 ;;^UTILITY(U,$J,358.3,6701,2)
+104 ;;=^5004465
+105 ;;^UTILITY(U,$J,358.3,6702,0)
+106 ;;=M35.01^^40^364^2
+107 ;;^UTILITY(U,$J,358.3,6702,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,6702,1,3,0)
+110 ;;=3^Sicca Syndrome w/ Keratoconjunctivitis
+111 ;;^UTILITY(U,$J,358.3,6702,1,4,0)
+112 ;;=4^M35.01
+113 ;;^UTILITY(U,$J,358.3,6702,2)
+114 ;;=^5011787
+115 ;;^UTILITY(U,$J,358.3,6703,0)
+116 ;;=H10.503^^40^364^3
+117 ;;^UTILITY(U,$J,358.3,6703,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,6703,1,3,0)
+120 ;;=3^Blepharoconjunctivitis,Bilateral
+121 ;;^UTILITY(U,$J,358.3,6703,1,4,0)
+122 ;;=4^H10.503
+123 ;;^UTILITY(U,$J,358.3,6703,2)
+124 ;;=^5004699
+125 ;;^UTILITY(U,$J,358.3,6704,0)
+126 ;;=H01.001^^40^364^4
+127 ;;^UTILITY(U,$J,358.3,6704,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,6704,1,3,0)
+130 ;;=3^Blepharitis,Right Upper Eyelid
+131 ;;^UTILITY(U,$J,358.3,6704,1,4,0)
+132 ;;=4^H01.001
+133 ;;^UTILITY(U,$J,358.3,6704,2)
+134 ;;=^5004238
+135 ;;^UTILITY(U,$J,358.3,6705,0)
+136 ;;=H01.004^^40^364^5
+137 ;;^UTILITY(U,$J,358.3,6705,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,6705,1,3,0)
+140 ;;=3^Blepharitis,Left Upper Eyelid
+141 ;;^UTILITY(U,$J,358.3,6705,1,4,0)
+142 ;;=4^H01.004
+143 ;;^UTILITY(U,$J,358.3,6705,2)
+144 ;;=^5004241
+145 ;;^UTILITY(U,$J,358.3,6706,0)
+146 ;;=L71.9^^40^364^6
+147 ;;^UTILITY(U,$J,358.3,6706,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,6706,1,3,0)
+150 ;;=3^Rosacea,Unspec
+151 ;;^UTILITY(U,$J,358.3,6706,1,4,0)
+152 ;;=4^L71.9
+153 ;;^UTILITY(U,$J,358.3,6706,2)
+154 ;;=^5009276
+155 ;;^UTILITY(U,$J,358.3,6707,0)
+156 ;;=H04.221^^40^364^10
+157 ;;^UTILITY(U,$J,358.3,6707,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,6707,1,3,0)
+160 ;;=3^Epiphora d/t Insuff Drainage,Right
+161 ;;^UTILITY(U,$J,358.3,6707,1,4,0)
+162 ;;=4^H04.221
+163 ;;^UTILITY(U,$J,358.3,6707,2)
+164 ;;=^5004491
+165 ;;^UTILITY(U,$J,358.3,6708,0)
+166 ;;=H04.222^^40^364^11
+167 ;;^UTILITY(U,$J,358.3,6708,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,6708,1,3,0)
+170 ;;=3^Epiphora d/t Insuff Drainage,Left
+171 ;;^UTILITY(U,$J,358.3,6708,1,4,0)
+172 ;;=4^H04.222
+173 ;;^UTILITY(U,$J,358.3,6708,2)
+174 ;;=^5004492
+175 ;;^UTILITY(U,$J,358.3,6709,0)
+176 ;;=H04.551^^40^364^12
+177 ;;^UTILITY(U,$J,358.3,6709,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,6709,1,3,0)
+180 ;;=3^Acquired Stenosis,Right Nasolacrimal Duct
+181 ;;^UTILITY(U,$J,358.3,6709,1,4,0)
+182 ;;=4^H04.551
+183 ;;^UTILITY(U,$J,358.3,6709,2)
+184 ;;=^5004538
+185 ;;^UTILITY(U,$J,358.3,6710,0)
+186 ;;=H04.552^^40^364^13
+187 ;;^UTILITY(U,$J,358.3,6710,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,6710,1,3,0)
+190 ;;=3^Acquired Stenosis,Left Nasolacrimal Duct
+191 ;;^UTILITY(U,$J,358.3,6710,1,4,0)
+192 ;;=4^H04.552
+193 ;;^UTILITY(U,$J,358.3,6710,2)
+194 ;;=^5004539
+195 ;;^UTILITY(U,$J,358.3,6711,0)
+196 ;;=H04.211^^40^364^7
+197 ;;^UTILITY(U,$J,358.3,6711,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,6711,1,3,0)
+200 ;;=3^Epiphora d/t Excessive Lacrimation,Right
+201 ;;^UTILITY(U,$J,358.3,6711,1,4,0)
+202 ;;=4^H04.211
+203 ;;^UTILITY(U,$J,358.3,6711,2)
+204 ;;=^5004487
+205 ;;^UTILITY(U,$J,358.3,6712,0)
+206 ;;=H04.212^^40^364^8
+207 ;;^UTILITY(U,$J,358.3,6712,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,6712,1,3,0)
+210 ;;=3^Epiphora d/t Excessive Lacrimation,Left
+211 ;;^UTILITY(U,$J,358.3,6712,1,4,0)
+212 ;;=4^H04.212
+213 ;;^UTILITY(U,$J,358.3,6712,2)
+214 ;;=^5004488
+215 ;;^UTILITY(U,$J,358.3,6713,0)
+216 ;;=H04.213^^40^364^9
+217 ;;^UTILITY(U,$J,358.3,6713,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,6713,1,3,0)
+220 ;;=3^Epiphora d/t Excessive Lacrimation,Bilateral
+221 ;;^UTILITY(U,$J,358.3,6713,1,4,0)
+222 ;;=4^H04.213
+223 ;;^UTILITY(U,$J,358.3,6713,2)
+224 ;;=^5004489
+225 ;;^UTILITY(U,$J,358.3,6714,0)
+226 ;;=D23.111^^40^364^14
+227 ;;^UTILITY(U,$J,358.3,6714,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,6714,1,3,0)
+230 ;;=3^Benign Neop Skin,Right Upper Eyelid
+231 ;;^UTILITY(U,$J,358.3,6714,1,4,0)
+232 ;;=4^D23.111
+233 ;;^UTILITY(U,$J,358.3,6714,2)
+234 ;;=^5157290
+235 ;;^UTILITY(U,$J,358.3,6715,0)
+236 ;;=D23.112^^40^364^15
+237 ;;^UTILITY(U,$J,358.3,6715,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,6715,1,3,0)
+240 ;;=3^Benign Neop Skin,Right Lower Eyelid
+241 ;;^UTILITY(U,$J,358.3,6715,1,4,0)
+242 ;;=4^D23.112
+243 ;;^UTILITY(U,$J,358.3,6715,2)
+244 ;;=^5157291
+245 ;;^UTILITY(U,$J,358.3,6716,0)
+246 ;;=D23.121^^40^364^16
+247 ;;^UTILITY(U,$J,358.3,6716,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,6716,1,3,0)
+250 ;;=3^Benign Neop Skin,Left Upper Eyelid
+251 ;;^UTILITY(U,$J,358.3,6716,1,4,0)
+252 ;;=4^D23.121
+253 ;;^UTILITY(U,$J,358.3,6716,2)
+254 ;;=^5157292
+255 ;;^UTILITY(U,$J,358.3,6717,0)
+256 ;;=D23.122^^40^364^17
+257 ;;^UTILITY(U,$J,358.3,6717,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,6717,1,3,0)
+260 ;;=3^BEnign Neop Skin,Left Lower Eyelid
+261 ;;^UTILITY(U,$J,358.3,6717,1,4,0)
+262 ;;=4^D23.122
+263 ;;^UTILITY(U,$J,358.3,6717,2)
+264 ;;=^5157293
+265 ;;^UTILITY(U,$J,358.3,6718,0)
+266 ;;=C44.1021^^40^364^18
+267 ;;^UTILITY(U,$J,358.3,6718,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,6718,1,3,0)
+270 ;;=3^Malig Neop Skin,Right Upper Eyelid
+271 ;;^UTILITY(U,$J,358.3,6718,1,4,0)
+272 ;;=4^C44.1021
+273 ;;^UTILITY(U,$J,358.3,6718,2)
+274 ;;=^5157253
+275 ;;^UTILITY(U,$J,358.3,6719,0)
+276 ;;=C44.1022^^40^364^19
+277 ;;^UTILITY(U,$J,358.3,6719,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,6719,1,3,0)
+280 ;;=3^Malig Neop Skin,Right Lower Eyelid
+281 ;;^UTILITY(U,$J,358.3,6719,1,4,0)
+282 ;;=4^C44.1022
+283 ;;^UTILITY(U,$J,358.3,6719,2)
+284 ;;=^5157254
+285 ;;^UTILITY(U,$J,358.3,6720,0)
+286 ;;=C44.1091^^40^364^20
+287 ;;^UTILITY(U,$J,358.3,6720,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,6720,1,3,0)
+290 ;;=3^Malig Neop Skin,Left Upper Eyelid
+291 ;;^UTILITY(U,$J,358.3,6720,1,4,0)
+292 ;;=4^C44.1091
+293 ;;^UTILITY(U,$J,358.3,6720,2)
+294 ;;=^5157255
+295 ;;^UTILITY(U,$J,358.3,6721,0)
+296 ;;=C44.1092^^40^364^21
+297 ;;^UTILITY(U,$J,358.3,6721,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,6721,1,3,0)
+300 ;;=3^Malig Neop Skin,Left Lower Eyelid
+301 ;;^UTILITY(U,$J,358.3,6721,1,4,0)
+302 ;;=4^C44.1092
+303 ;;^UTILITY(U,$J,358.3,6721,2)
+304 ;;=^5157256
+305 ;;^UTILITY(U,$J,358.3,6722,0)
+306 ;;=C44.1121^^40^364^22
+307 ;;^UTILITY(U,$J,358.3,6722,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,6722,1,3,0)
+310 ;;=3^BCC Neop Skin,Right Upper Eyelid
+311 ;;^UTILITY(U,$J,358.3,6722,1,4,0)
+312 ;;=4^C44.1121
+313 ;;^UTILITY(U,$J,358.3,6722,2)
+314 ;;=^5157257
+315 ;;^UTILITY(U,$J,358.3,6723,0)
+316 ;;=C44.1122^^40^364^23
+317 ;;^UTILITY(U,$J,358.3,6723,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,6723,1,3,0)
+320 ;;=3^BCC Neop Skin,Right Lower Eyelid
+321 ;;^UTILITY(U,$J,358.3,6723,1,4,0)
+322 ;;=4^C44.1122
+323 ;;^UTILITY(U,$J,358.3,6723,2)
+324 ;;=^5157258
+325 ;;^UTILITY(U,$J,358.3,6724,0)
+326 ;;=C44.1191^^40^364^24
+327 ;;^UTILITY(U,$J,358.3,6724,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,6724,1,3,0)
+330 ;;=3^BCC Neop Skin,Left Upper Eyelid
+331 ;;^UTILITY(U,$J,358.3,6724,1,4,0)
+332 ;;=4^C44.1191
+333 ;;^UTILITY(U,$J,358.3,6724,2)
+334 ;;=^5157259
+335 ;;^UTILITY(U,$J,358.3,6725,0)
+336 ;;=C44.1192^^40^364^25
+337 ;;^UTILITY(U,$J,358.3,6725,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,6725,1,3,0)
+340 ;;=3^BCC Neop Skin,Left Lower Eyelid
+341 ;;^UTILITY(U,$J,358.3,6725,1,4,0)
+342 ;;=4^C44.1192
+343 ;;^UTILITY(U,$J,358.3,6725,2)
+344 ;;=^5157260
+345 ;;^UTILITY(U,$J,358.3,6726,0)
+346 ;;=C44.1221^^40^364^26
+347 ;;^UTILITY(U,$J,358.3,6726,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,6726,1,3,0)
+350 ;;=3^SCC Neop Skin,Right Upper Eyelid
+351 ;;^UTILITY(U,$J,358.3,6726,1,4,0)
+352 ;;=4^C44.1221
+353 ;;^UTILITY(U,$J,358.3,6726,2)
+354 ;;=^5157261
+355 ;;^UTILITY(U,$J,358.3,6727,0)
+356 ;;=C44.1222^^40^364^27
+357 ;;^UTILITY(U,$J,358.3,6727,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,6727,1,3,0)
+360 ;;=3^SCC Neop Skin,Right Lower Eyelid
+361 ;;^UTILITY(U,$J,358.3,6727,1,4,0)
+362 ;;=4^C44.1222
+363 ;;^UTILITY(U,$J,358.3,6727,2)
+364 ;;=^5157262
+365 ;;^UTILITY(U,$J,358.3,6728,0)
+366 ;;=C44.1291^^40^364^28
+367 ;;^UTILITY(U,$J,358.3,6728,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,6728,1,3,0)
+370 ;;=3^SCC Neop Skin,Left Upper Eyelid
+371 ;;^UTILITY(U,$J,358.3,6728,1,4,0)
+372 ;;=4^C44.1291
+373 ;;^UTILITY(U,$J,358.3,6728,2)
+374 ;;=^5157263
+375 ;;^UTILITY(U,$J,358.3,6729,0)
+376 ;;=C44.1292^^40^364^29
+377 ;;^UTILITY(U,$J,358.3,6729,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,6729,1,3,0)
+380 ;;=3^SCC Neop Skin,Left Lower Eyelid
+381 ;;^UTILITY(U,$J,358.3,6729,1,4,0)
+382 ;;=4^C44.1292
+383 ;;^UTILITY(U,$J,358.3,6729,2)
+384 ;;=^5157264
+385 ;;^UTILITY(U,$J,358.3,6730,0)
+386 ;;=H52.13^^40^365^34
+387 ;;^UTILITY(U,$J,358.3,6730,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,6730,1,3,0)
+390 ;;=3^Myopia,Bilateral
+391 ;;^UTILITY(U,$J,358.3,6730,1,4,0)
+392 ;;=4^H52.13
+393 ;;^UTILITY(U,$J,358.3,6730,2)
+394 ;;=^5006266
+395 ;;^UTILITY(U,$J,358.3,6731,0)
+396 ;;=H52.03^^40^365^31
+397 ;;^UTILITY(U,$J,358.3,6731,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,6731,1,3,0)
+400 ;;=3^Hypermetropia,Bilateral
+401 ;;^UTILITY(U,$J,358.3,6731,1,4,0)
+402 ;;=4^H52.03
+403 ;;^UTILITY(U,$J,358.3,6731,2)
+404 ;;=^5006262
+405 ;;^UTILITY(U,$J,358.3,6732,0)
+406 ;;=H52.4^^40^365^41
+407 ;;^UTILITY(U,$J,358.3,6732,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,6732,1,3,0)
+410 ;;=3^Presbyopia
+411 ;;^UTILITY(U,$J,358.3,6732,1,4,0)
+412 ;;=4^H52.4
+413 ;;^UTILITY(U,$J,358.3,6732,2)
+414 ;;=^98095
+415 ;;^UTILITY(U,$J,358.3,6733,0)
+416 ;;=H25.11^^40^365^9
+417 ;;^UTILITY(U,$J,358.3,6733,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,6733,1,3,0)
+420 ;;=3^Cataract,Nuclear Age-Rel,Right Eye
+421 ;;^UTILITY(U,$J,358.3,6733,1,4,0)
+422 ;;=4^H25.11
+423 ;;^UTILITY(U,$J,358.3,6733,2)
+424 ;;=^5005284
+425 ;;^UTILITY(U,$J,358.3,6734,0)
+426 ;;=H25.12^^40^365^8
+427 ;;^UTILITY(U,$J,358.3,6734,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,6734,1,3,0)
+430 ;;=3^Cataract,Nuclear Age-Rel,Left Eye
+431 ;;^UTILITY(U,$J,358.3,6734,1,4,0)
+432 ;;=4^H25.12
+433 ;;^UTILITY(U,$J,358.3,6734,2)
+434 ;;=^5005285
+435 ;;^UTILITY(U,$J,358.3,6735,0)
+436 ;;=Z98.49^^40^365^7
+437 ;;^UTILITY(U,$J,358.3,6735,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,6735,1,3,0)
+440 ;;=3^Cataract Extraction Status,Unspec Eye
+441 ;;^UTILITY(U,$J,358.3,6735,1,4,0)
+442 ;;=4^Z98.49
+443 ;;^UTILITY(U,$J,358.3,6735,2)
+444 ;;=^5063739
+445 ;;^UTILITY(U,$J,358.3,6736,0)
+446 ;;=H04.123^^40^365^22
+447 ;;^UTILITY(U,$J,358.3,6736,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,6736,1,3,0)
+450 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
+451 ;;^UTILITY(U,$J,358.3,6736,1,4,0)
+452 ;;=4^H04.123
+453 ;;^UTILITY(U,$J,358.3,6736,2)
+454 ;;=^5004465
+455 ;;^UTILITY(U,$J,358.3,6737,0)
+456 ;;=H01.009^^40^365^5
+457 ;;^UTILITY(U,$J,358.3,6737,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,6737,1,3,0)
+460 ;;=3^Blepharitis,Unspec
+461 ;;^UTILITY(U,$J,358.3,6737,1,4,0)
+462 ;;=4^H01.009
+463 ;;^UTILITY(U,$J,358.3,6737,2)
+464 ;;=^5133381
+465 ;;^UTILITY(U,$J,358.3,6738,0)
+466 ;;=H40.023^^40^365^29
+467 ;;^UTILITY(U,$J,358.3,6738,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,6738,1,3,0)
+470 ;;=3^Glaucoma Suspect,High Risk,Bilateral,Open Angle
+471 ;;^UTILITY(U,$J,358.3,6738,1,4,0)
+472 ;;=4^H40.023
+473 ;;^UTILITY(U,$J,358.3,6738,2)
+474 ;;=^5005730
+475 ;;^UTILITY(U,$J,358.3,6739,0)
+476 ;;=H40.053^^40^365^38
+477 ;;^UTILITY(U,$J,358.3,6739,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,6739,1,3,0)
+480 ;;=3^Ocular Hypertension,Bilateral
+481 ;;^UTILITY(U,$J,358.3,6739,1,4,0)
+482 ;;=4^H40.053
+483 ;;^UTILITY(U,$J,358.3,6739,2)
+484 ;;=^5005742
+485 ;;^UTILITY(U,$J,358.3,6740,0)
+486 ;;=E11.9^^40^365^19
+487 ;;^UTILITY(U,$J,358.3,6740,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,6740,1,3,0)
+490 ;;=3^DM Type 2 w/o Complications
+491 ;;^UTILITY(U,$J,358.3,6740,1,4,0)
+492 ;;=4^E11.9
+493 ;;^UTILITY(U,$J,358.3,6740,2)
+494 ;;=^5002666
+495 ;;^UTILITY(U,$J,358.3,6741,0)
+496 ;;=E11.39^^40^365^18
+497 ;;^UTILITY(U,$J,358.3,6741,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,6741,1,3,0)
+500 ;;=3^DM Type 2 w/ Ophthalmic Complications
+501 ;;^UTILITY(U,$J,358.3,6741,1,4,0)
+502 ;;=4^E11.39
+503 ;;^UTILITY(U,$J,358.3,6741,2)
+504 ;;=^5002643
+505 ;;^UTILITY(U,$J,358.3,6742,0)
+506 ;;=H59.039^^40^365^6
+507 ;;^UTILITY(U,$J,358.3,6742,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,6742,1,3,0)
+510 ;;=3^CME Mac Edema,Unspec Eye
+511 ;;^UTILITY(U,$J,358.3,6742,1,4,0)
+512 ;;=4^H59.039
+513 ;;^UTILITY(U,$J,358.3,6742,2)
+514 ;;=^5006396
+515 ;;^UTILITY(U,$J,358.3,6743,0)
+516 ;;=H02.831^^40^365^21
+517 ;;^UTILITY(U,$J,358.3,6743,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,6743,1,3,0)
+520 ;;=3^Dermatochalasis,Right Upper Eyelid
+521 ;;^UTILITY(U,$J,358.3,6743,1,4,0)
+522 ;;=4^H02.831
+523 ;;^UTILITY(U,$J,358.3,6743,2)
+524 ;;=^5004418
+525 ;;^UTILITY(U,$J,358.3,6744,0)
+526 ;;=H02.834^^40^365^20
+527 ;;^UTILITY(U,$J,358.3,6744,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,6744,1,3,0)
+530 ;;=3^Dermatochalasis,Left Upper Eyelid
+531 ;;^UTILITY(U,$J,358.3,6744,1,4,0)
+532 ;;=4^H02.834
+533 ;;^UTILITY(U,$J,358.3,6744,2)
+534 ;;=^5004421
+535 ;;^UTILITY(U,$J,358.3,6745,0)
+536 ;;=H10.31^^40^365^13
+537 ;;^UTILITY(U,$J,358.3,6745,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,6745,1,3,0)
+540 ;;=3^Conjunctivitis,Acute,Right Eye
+541 ;;^UTILITY(U,$J,358.3,6745,1,4,0)
+542 ;;=4^H10.31
+543 ;;^UTILITY(U,$J,358.3,6745,2)
+544 ;;=^5133458
+545 ;;^UTILITY(U,$J,358.3,6746,0)
+546 ;;=H10.32^^40^365^12
+547 ;;^UTILITY(U,$J,358.3,6746,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,6746,1,3,0)
+550 ;;=3^Conjunctivitis,Acute,Left Eye
+551 ;;^UTILITY(U,$J,358.3,6746,1,4,0)
+552 ;;=4^H10.32
+553 ;;^UTILITY(U,$J,358.3,6746,2)
+554 ;;=^5133459
+555 ;;^UTILITY(U,$J,358.3,6747,0)
+556 ;;=H00.11^^40^365^11
+557 ;;^UTILITY(U,$J,358.3,6747,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,6747,1,3,0)
+560 ;;=3^Chalazion,Right Upper Eyelid
+561 ;;^UTILITY(U,$J,358.3,6747,1,4,0)
+562 ;;=4^H00.11
+563 ;;^UTILITY(U,$J,358.3,6747,2)
+564 ;;=^5004233
+565 ;;^UTILITY(U,$J,358.3,6748,0)
+566 ;;=H00.14^^40^365^10
+567 ;;^UTILITY(U,$J,358.3,6748,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,6748,1,3,0)
+570 ;;=3^Chalazion,Left Upper Eyelid
+571 ;;^UTILITY(U,$J,358.3,6748,1,4,0)
+572 ;;=4^H00.14
+573 ;;^UTILITY(U,$J,358.3,6748,2)
+574 ;;=^5004236
+575 ;;^UTILITY(U,$J,358.3,6749,0)
+576 ;;=H20.00^^40^365^32
+577 ;;^UTILITY(U,$J,358.3,6749,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,6749,1,3,0)
+580 ;;=3^Iridocyclitis,Acute/Subacute,Unspec
+581 ;;^UTILITY(U,$J,358.3,6749,1,4,0)
+582 ;;=4^H20.00
+583 ;;^UTILITY(U,$J,358.3,6749,2)
+584 ;;=^5005133
+585 ;;^UTILITY(U,$J,358.3,6750,0)
+586 ;;=B00.59^^40^365^30
+587 ;;^UTILITY(U,$J,358.3,6750,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,6750,1,3,0)
+590 ;;=3^Herpes Viral Eye Disease NEC
+591 ;;^UTILITY(U,$J,358.3,6750,1,4,0)
+592 ;;=4^B00.59
+593 ;;^UTILITY(U,$J,358.3,6750,2)
+594 ;;=^5000476
+595 ;;^UTILITY(U,$J,358.3,6751,0)
+596 ;;=Z01.00^^40^365^27
+597 ;;^UTILITY(U,$J,358.3,6751,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,6751,1,3,0)
+600 ;;=3^Eye/Vision Exam w/o Abnormal Findings
+601 ;;^UTILITY(U,$J,358.3,6751,1,4,0)
+602 ;;=4^Z01.00
+603 ;;^UTILITY(U,$J,358.3,6751,2)
+604 ;;=^5062612
+605 ;;^UTILITY(U,$J,358.3,6752,0)
+606 ;;=Z01.01^^40^365^26
+607 ;;^UTILITY(U,$J,358.3,6752,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,6752,1,3,0)
+610 ;;=3^Eye/Vision Exam w/ Abnormal Findings
+611 ;;^UTILITY(U,$J,358.3,6752,1,4,0)
+612 ;;=4^Z01.01
+613 ;;^UTILITY(U,$J,358.3,6752,2)
+614 ;;=^5062613
+615 ;;^UTILITY(U,$J,358.3,6753,0)
+616 ;;=H52.223^^40^365^2
+617 ;;^UTILITY(U,$J,358.3,6753,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,6753,1,3,0)
+620 ;;=3^Astigmatism,Regular,Bilateral
+621 ;;^UTILITY(U,$J,358.3,6753,1,4,0)
+622 ;;=4^H52.223
+623 ;;^UTILITY(U,$J,358.3,6753,2)
+624 ;;=^5006276
+625 ;;^UTILITY(U,$J,358.3,6754,0)
+626 ;;=H35.3110^^40^365^37
+627 ;;^UTILITY(U,$J,358.3,6754,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,6754,1,3,0)
+630 ;;=3^Nonexudative ARMD,Right Eye
+631 ;;^UTILITY(U,$J,358.3,6754,1,4,0)
+632 ;;=4^H35.3110
+633 ;;^UTILITY(U,$J,358.3,6754,2)
+634 ;;=^5138500
+635 ;;^UTILITY(U,$J,358.3,6755,0)
+636 ;;=H35.3120^^40^365^36
+637 ;;^UTILITY(U,$J,358.3,6755,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,6755,1,3,0)
+640 ;;=3^Nonexudative ARMD,Left Eye
+641 ;;^UTILITY(U,$J,358.3,6755,1,4,0)
+642 ;;=4^H35.3120
+643 ;;^UTILITY(U,$J,358.3,6755,2)
+644 ;;=^5138505
+645 ;;^UTILITY(U,$J,358.3,6756,0)
+646 ;;=H35.3210^^40^365^25
+647 ;;^UTILITY(U,$J,358.3,6756,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,6756,1,3,0)
+650 ;;=3^Exudative ARMD,Right Eye
+651 ;;^UTILITY(U,$J,358.3,6756,1,4,0)
+652 ;;=4^H35.3210
+653 ;;^UTILITY(U,$J,358.3,6756,2)
+654 ;;=^5138520
+655 ;;^UTILITY(U,$J,358.3,6757,0)
+656 ;;=H35.3220^^40^365^24
+657 ;;^UTILITY(U,$J,358.3,6757,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,6757,1,3,0)
+660 ;;=3^Exudative ARMD,Left Eye
+661 ;;^UTILITY(U,$J,358.3,6757,1,4,0)
+662 ;;=4^H35.3220
+663 ;;^UTILITY(U,$J,358.3,6757,2)
+664 ;;=^5138524
+665 ;;^UTILITY(U,$J,358.3,6758,0)
+666 ;;=E11.3291^^40^365^14
+667 ;;^UTILITY(U,$J,358.3,6758,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,6758,1,3,0)
+670 ;;=3^DM Type 2 w/ Mild NPDR w/o Macular Edema,Right Eye
+671 ;;^UTILITY(U,$J,358.3,6758,1,4,0)
+672 ;;=4^E11.3291
+673 ;;^UTILITY(U,$J,358.3,6758,2)
+674 ;;=^5138335
+675 ;;^UTILITY(U,$J,358.3,6759,0)
+676 ;;=E11.3292^^40^365^15
+677 ;;^UTILITY(U,$J,358.3,6759,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,6759,1,3,0)
+680 ;;=3^DM Type 2 w/ Mild NPDR w/o Macular Edema,Left Eye
+681 ;;^UTILITY(U,$J,358.3,6759,1,4,0)
+682 ;;=4^E11.3292
+683 ;;^UTILITY(U,$J,358.3,6759,2)
+684 ;;=^5138336
+685 ;;^UTILITY(U,$J,358.3,6760,0)
+686 ;;=E11.3391^^40^365^16
+687 ;;^UTILITY(U,$J,358.3,6760,1,0)
+688 ;;=^358.31IA^4^2
