Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI0AI

IBDEI0AI.m

Go to the documentation of this file.
IBDEI0AI ; ; 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,25734,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,25734,1,4,0)
 ;;=4^H54.1131
 ;;^UTILITY(U,$J,358.3,25734,2)
 ;;=^5151347
 ;;^UTILITY(U,$J,358.3,25735,0)
 ;;=H54.1132^^81^1033^31
 ;;^UTILITY(U,$J,358.3,25735,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25735,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,25735,1,4,0)
 ;;=4^H54.1132
 ;;^UTILITY(U,$J,358.3,25735,2)
 ;;=^5151348
 ;;^UTILITY(U,$J,358.3,25736,0)
 ;;=H54.1141^^81^1033^32
 ;;^UTILITY(U,$J,358.3,25736,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25736,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,25736,1,4,0)
 ;;=4^H54.1141
 ;;^UTILITY(U,$J,358.3,25736,2)
 ;;=^5151349
 ;;^UTILITY(U,$J,358.3,25737,0)
 ;;=H54.1142^^81^1033^33
 ;;^UTILITY(U,$J,358.3,25737,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25737,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,25737,1,4,0)
 ;;=4^H54.1142
 ;;^UTILITY(U,$J,358.3,25737,2)
 ;;=^5151350
 ;;^UTILITY(U,$J,358.3,25738,0)
 ;;=H54.1151^^81^1033^34
 ;;^UTILITY(U,$J,358.3,25738,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25738,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,25738,1,4,0)
 ;;=4^H54.1151
 ;;^UTILITY(U,$J,358.3,25738,2)
 ;;=^5151351
 ;;^UTILITY(U,$J,358.3,25739,0)
 ;;=H54.1152^^81^1033^35
 ;;^UTILITY(U,$J,358.3,25739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25739,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,25739,1,4,0)
 ;;=4^H54.1152
 ;;^UTILITY(U,$J,358.3,25739,2)
 ;;=^5151352
 ;;^UTILITY(U,$J,358.3,25740,0)
 ;;=H54.40^^81^1033^36
 ;;^UTILITY(U,$J,358.3,25740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25740,1,3,0)
 ;;=3^Blindness,One Eye,Unspec Eye
 ;;^UTILITY(U,$J,358.3,25740,1,4,0)
 ;;=4^H54.40
 ;;^UTILITY(U,$J,358.3,25740,2)
 ;;=^5006362
 ;;^UTILITY(U,$J,358.3,25741,0)
 ;;=H54.413A^^81^1033^37
 ;;^UTILITY(U,$J,358.3,25741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25741,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,25741,1,4,0)
 ;;=4^H54.413A
 ;;^UTILITY(U,$J,358.3,25741,2)
 ;;=^5151363
 ;;^UTILITY(U,$J,358.3,25742,0)
 ;;=H54.414A^^81^1033^38
 ;;^UTILITY(U,$J,358.3,25742,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25742,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,25742,1,4,0)
 ;;=4^H54.414A
 ;;^UTILITY(U,$J,358.3,25742,2)
 ;;=^5151364
 ;;^UTILITY(U,$J,358.3,25743,0)
 ;;=H54.415A^^81^1033^39
 ;;^UTILITY(U,$J,358.3,25743,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25743,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,25743,1,4,0)
 ;;=4^H54.415A
 ;;^UTILITY(U,$J,358.3,25743,2)
 ;;=^5151365
 ;;^UTILITY(U,$J,358.3,25744,0)
 ;;=H54.42A3^^81^1033^40
 ;;^UTILITY(U,$J,358.3,25744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25744,1,3,0)
 ;;=3^Blindness Lt Eye Category 3,Normal Vision Rt Eye
 ;;^UTILITY(U,$J,358.3,25744,1,4,0)
 ;;=4^H54.42A3
 ;;^UTILITY(U,$J,358.3,25744,2)
 ;;=^5151366
 ;;^UTILITY(U,$J,358.3,25745,0)
 ;;=H54.42A4^^81^1033^41
 ;;^UTILITY(U,$J,358.3,25745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25745,1,3,0)
 ;;=3^Blindness Lt Eye Category 4,Normal Vision Rt Eye
 ;;^UTILITY(U,$J,358.3,25745,1,4,0)
 ;;=4^H54.42A4
 ;;^UTILITY(U,$J,358.3,25745,2)
 ;;=^5151367
 ;;^UTILITY(U,$J,358.3,25746,0)
 ;;=H54.42A5^^81^1033^42
 ;;^UTILITY(U,$J,358.3,25746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25746,1,3,0)
 ;;=3^Blindness Lt Eye Category 5,Normal Vision Rt Eye
 ;;^UTILITY(U,$J,358.3,25746,1,4,0)
 ;;=4^H54.42A5
 ;;^UTILITY(U,$J,358.3,25746,2)
 ;;=^5151368
 ;;^UTILITY(U,$J,358.3,25747,0)
 ;;=H35.81^^81^1034^20
 ;;^UTILITY(U,$J,358.3,25747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25747,1,3,0)
 ;;=3^Retinal Edema/CME Other Etiology
 ;;^UTILITY(U,$J,358.3,25747,1,4,0)
 ;;=4^H35.81
 ;;^UTILITY(U,$J,358.3,25747,2)
 ;;=^5005715
 ;;^UTILITY(U,$J,358.3,25748,0)
 ;;=H34.11^^81^1034^9
 ;;^UTILITY(U,$J,358.3,25748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25748,1,3,0)
 ;;=3^Central Retinal Artery Occlusion,Right Eye
 ;;^UTILITY(U,$J,358.3,25748,1,4,0)
 ;;=4^H34.11
 ;;^UTILITY(U,$J,358.3,25748,2)
 ;;=^5005557
 ;;^UTILITY(U,$J,358.3,25749,0)
 ;;=H34.12^^81^1034^10
 ;;^UTILITY(U,$J,358.3,25749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25749,1,3,0)
 ;;=3^Central Retinal Artery Occlusion,Left Eye
 ;;^UTILITY(U,$J,358.3,25749,1,4,0)
 ;;=4^H34.12
 ;;^UTILITY(U,$J,358.3,25749,2)
 ;;=^5005558
 ;;^UTILITY(U,$J,358.3,25750,0)
 ;;=H34.231^^81^1034^1
 ;;^UTILITY(U,$J,358.3,25750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25750,1,3,0)
 ;;=3^Branch Retinal Artery Occlusion,Right Eye
 ;;^UTILITY(U,$J,358.3,25750,1,4,0)
 ;;=4^H34.231
 ;;^UTILITY(U,$J,358.3,25750,2)
 ;;=^5005564
 ;;^UTILITY(U,$J,358.3,25751,0)
 ;;=H34.232^^81^1034^2
 ;;^UTILITY(U,$J,358.3,25751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25751,1,3,0)
 ;;=3^Branch Retinal Artery Occlusion,Left Eye
 ;;^UTILITY(U,$J,358.3,25751,1,4,0)
 ;;=4^H34.232
 ;;^UTILITY(U,$J,358.3,25751,2)
 ;;=^5005565
 ;;^UTILITY(U,$J,358.3,25752,0)
 ;;=H35.031^^81^1034^17
 ;;^UTILITY(U,$J,358.3,25752,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25752,1,3,0)
 ;;=3^Hypertensive Retinopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,25752,1,4,0)
 ;;=4^H35.031
 ;;^UTILITY(U,$J,358.3,25752,2)
 ;;=^5005590
 ;;^UTILITY(U,$J,358.3,25753,0)
 ;;=H35.032^^81^1034^18
 ;;^UTILITY(U,$J,358.3,25753,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25753,1,3,0)
 ;;=3^Hypertensive Retinopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,25753,1,4,0)
 ;;=4^H35.032
 ;;^UTILITY(U,$J,358.3,25753,2)
 ;;=^5005591
 ;;^UTILITY(U,$J,358.3,25754,0)
 ;;=H35.033^^81^1034^19
 ;;^UTILITY(U,$J,358.3,25754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25754,1,3,0)
 ;;=3^Hypertensive Retinopathy,Bilateral
 ;;^UTILITY(U,$J,358.3,25754,1,4,0)
 ;;=4^H35.033
 ;;^UTILITY(U,$J,358.3,25754,2)
 ;;=^5005592
 ;;^UTILITY(U,$J,358.3,25755,0)
 ;;=H35.82^^81^1034^23
 ;;^UTILITY(U,$J,358.3,25755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25755,1,3,0)
 ;;=3^Retinal Ischemia/Cotton Wool Spot
 ;;^UTILITY(U,$J,358.3,25755,1,4,0)
 ;;=4^H35.82
 ;;^UTILITY(U,$J,358.3,25755,2)
 ;;=^5005716
 ;;^UTILITY(U,$J,358.3,25756,0)
 ;;=H35.61^^81^1034^21
 ;;^UTILITY(U,$J,358.3,25756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25756,1,3,0)
 ;;=3^Retinal Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,25756,1,4,0)
 ;;=4^H35.61
 ;;^UTILITY(U,$J,358.3,25756,2)
 ;;=^5005699
 ;;^UTILITY(U,$J,358.3,25757,0)
 ;;=H35.62^^81^1034^22
 ;;^UTILITY(U,$J,358.3,25757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25757,1,3,0)
 ;;=3^Retinal Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,25757,1,4,0)
 ;;=4^H35.62
 ;;^UTILITY(U,$J,358.3,25757,2)
 ;;=^5005700
 ;;^UTILITY(U,$J,358.3,25758,0)
 ;;=H35.051^^81^1034^24
 ;;^UTILITY(U,$J,358.3,25758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25758,1,3,0)
 ;;=3^Retinal Neovascularization,Right Eye
 ;;^UTILITY(U,$J,358.3,25758,1,4,0)
 ;;=4^H35.051
 ;;^UTILITY(U,$J,358.3,25758,2)
 ;;=^5005598
 ;;^UTILITY(U,$J,358.3,25759,0)
 ;;=H35.052^^81^1034^25
 ;;^UTILITY(U,$J,358.3,25759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25759,1,3,0)
 ;;=3^Retinal Neovascularization,Left Eye
 ;;^UTILITY(U,$J,358.3,25759,1,4,0)
 ;;=4^H35.052
 ;;^UTILITY(U,$J,358.3,25759,2)
 ;;=^5005599
 ;;^UTILITY(U,$J,358.3,25760,0)
 ;;=H35.071^^81^1034^26
 ;;^UTILITY(U,$J,358.3,25760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25760,1,3,0)
 ;;=3^Retinal Telangiectasis,Right Eye
 ;;^UTILITY(U,$J,358.3,25760,1,4,0)
 ;;=4^H35.071
 ;;^UTILITY(U,$J,358.3,25760,2)
 ;;=^5005606
 ;;^UTILITY(U,$J,358.3,25761,0)
 ;;=H35.072^^81^1034^27
 ;;^UTILITY(U,$J,358.3,25761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25761,1,3,0)
 ;;=3^Retinal Telangiectasis,Left Eye
 ;;^UTILITY(U,$J,358.3,25761,1,4,0)
 ;;=4^H35.072
 ;;^UTILITY(U,$J,358.3,25761,2)
 ;;=^5005607
 ;;^UTILITY(U,$J,358.3,25762,0)
 ;;=H35.061^^81^1034^28
 ;;^UTILITY(U,$J,358.3,25762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25762,1,3,0)
 ;;=3^Retinal Vasculitis,Right Eye
 ;;^UTILITY(U,$J,358.3,25762,1,4,0)
 ;;=4^H35.061
 ;;^UTILITY(U,$J,358.3,25762,2)
 ;;=^5005602
 ;;^UTILITY(U,$J,358.3,25763,0)
 ;;=H35.062^^81^1034^29
 ;;^UTILITY(U,$J,358.3,25763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25763,1,3,0)
 ;;=3^Retinal Vasculitis,Left Eye
 ;;^UTILITY(U,$J,358.3,25763,1,4,0)
 ;;=4^H35.062
 ;;^UTILITY(U,$J,358.3,25763,2)
 ;;=^5005603
 ;;^UTILITY(U,$J,358.3,25764,0)
 ;;=H34.8110^^81^1034^11
 ;;^UTILITY(U,$J,358.3,25764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25764,1,3,0)
 ;;=3^Central Retinal Vein Occls,Right Eye w/ Macular Edema
 ;;^UTILITY(U,$J,358.3,25764,1,4,0)
 ;;=4^H34.8110
 ;;^UTILITY(U,$J,358.3,25764,2)
 ;;=^5138476
 ;;^UTILITY(U,$J,358.3,25765,0)
 ;;=H34.8111^^81^1034^12
 ;;^UTILITY(U,$J,358.3,25765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25765,1,3,0)
 ;;=3^Central Retinal Vein Occls,Right Eye w/ NV
 ;;^UTILITY(U,$J,358.3,25765,1,4,0)
 ;;=4^H34.8111
 ;;^UTILITY(U,$J,358.3,25765,2)
 ;;=^5138477
 ;;^UTILITY(U,$J,358.3,25766,0)
 ;;=H34.8112^^81^1034^13
 ;;^UTILITY(U,$J,358.3,25766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25766,1,3,0)
 ;;=3^Central Retinal Vein Occls,Right Eye,Stable
 ;;^UTILITY(U,$J,358.3,25766,1,4,0)
 ;;=4^H34.8112
 ;;^UTILITY(U,$J,358.3,25766,2)
 ;;=^5138478
 ;;^UTILITY(U,$J,358.3,25767,0)
 ;;=H34.8120^^81^1034^14
 ;;^UTILITY(U,$J,358.3,25767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25767,1,3,0)
 ;;=3^Central Retinal Vein Occls,Left Eye w/ Macular Edema
 ;;^UTILITY(U,$J,358.3,25767,1,4,0)
 ;;=4^H34.8120
 ;;^UTILITY(U,$J,358.3,25767,2)
 ;;=^5138479
 ;;^UTILITY(U,$J,358.3,25768,0)
 ;;=H34.8121^^81^1034^15
 ;;^UTILITY(U,$J,358.3,25768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25768,1,3,0)
 ;;=3^Central Retinal Vein Occls,Left Eye w/ NV
 ;;^UTILITY(U,$J,358.3,25768,1,4,0)
 ;;=4^H34.8121
 ;;^UTILITY(U,$J,358.3,25768,2)
 ;;=^5138480
 ;;^UTILITY(U,$J,358.3,25769,0)
 ;;=H34.8122^^81^1034^16
 ;;^UTILITY(U,$J,358.3,25769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25769,1,3,0)
 ;;=3^Central Retinal Vein Occls,Left Eye,Stable
 ;;^UTILITY(U,$J,358.3,25769,1,4,0)
 ;;=4^H34.8122
 ;;^UTILITY(U,$J,358.3,25769,2)
 ;;=^5138481
 ;;^UTILITY(U,$J,358.3,25770,0)
 ;;=H34.8310^^81^1034^3
 ;;^UTILITY(U,$J,358.3,25770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25770,1,3,0)
 ;;=3^Branch Retinal Vein Occls,Right Eye w/ Macular Edema
 ;;^UTILITY(U,$J,358.3,25770,1,4,0)
 ;;=4^H34.8310
 ;;^UTILITY(U,$J,358.3,25770,2)
 ;;=^5138488
 ;;^UTILITY(U,$J,358.3,25771,0)
 ;;=H34.8311^^81^1034^4
 ;;^UTILITY(U,$J,358.3,25771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25771,1,3,0)
 ;;=3^Branch Retinal Vein Occls,Right Eye w/ NV
 ;;^UTILITY(U,$J,358.3,25771,1,4,0)
 ;;=4^H34.8311
 ;;^UTILITY(U,$J,358.3,25771,2)
 ;;=^5138489
 ;;^UTILITY(U,$J,358.3,25772,0)
 ;;=H34.8312^^81^1034^5
 ;;^UTILITY(U,$J,358.3,25772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25772,1,3,0)
 ;;=3^Branch Retinal Vein Occls,Right Eye,Stable
 ;;^UTILITY(U,$J,358.3,25772,1,4,0)
 ;;=4^H34.8312
 ;;^UTILITY(U,$J,358.3,25772,2)
 ;;=^5138490
 ;;^UTILITY(U,$J,358.3,25773,0)
 ;;=H34.8320^^81^1034^6
 ;;^UTILITY(U,$J,358.3,25773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25773,1,3,0)
 ;;=3^Branch Retinal Vein Occls,Left Eye w/ Macular Edema
 ;;^UTILITY(U,$J,358.3,25773,1,4,0)
 ;;=4^H34.8320
 ;;^UTILITY(U,$J,358.3,25773,2)
 ;;=^5138491
 ;;^UTILITY(U,$J,358.3,25774,0)
 ;;=H34.8321^^81^1034^7
 ;;^UTILITY(U,$J,358.3,25774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25774,1,3,0)
 ;;=3^Branch Retinal Vein Occls,Left Eye w/ NV
 ;;^UTILITY(U,$J,358.3,25774,1,4,0)
 ;;=4^H34.8321
 ;;^UTILITY(U,$J,358.3,25774,2)
 ;;=^5138492
 ;;^UTILITY(U,$J,358.3,25775,0)
 ;;=H34.8322^^81^1034^8
 ;;^UTILITY(U,$J,358.3,25775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25775,1,3,0)
 ;;=3^Branch Retinal Vein Occls,Left Eye,Stable
 ;;^UTILITY(U,$J,358.3,25775,1,4,0)
 ;;=4^H34.8322
 ;;^UTILITY(U,$J,358.3,25775,2)
 ;;=^5138493
 ;;^UTILITY(U,$J,358.3,25776,0)
 ;;=H00.11^^81^1035^1
 ;;^UTILITY(U,$J,358.3,25776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25776,1,3,0)
 ;;=3^Chalazion Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25776,1,4,0)
 ;;=4^H00.11
 ;;^UTILITY(U,$J,358.3,25776,2)
 ;;=^5004233
 ;;^UTILITY(U,$J,358.3,25777,0)
 ;;=H00.12^^81^1035^2
 ;;^UTILITY(U,$J,358.3,25777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25777,1,3,0)
 ;;=3^Chalazion Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25777,1,4,0)
 ;;=4^H00.12
 ;;^UTILITY(U,$J,358.3,25777,2)
 ;;=^5004234
 ;;^UTILITY(U,$J,358.3,25778,0)
 ;;=H00.14^^81^1035^3
 ;;^UTILITY(U,$J,358.3,25778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25778,1,3,0)
 ;;=3^Chalazion Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25778,1,4,0)
 ;;=4^H00.14
 ;;^UTILITY(U,$J,358.3,25778,2)
 ;;=^5004236
 ;;^UTILITY(U,$J,358.3,25779,0)
 ;;=H00.15^^81^1035^4
 ;;^UTILITY(U,$J,358.3,25779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25779,1,3,0)
 ;;=3^Chalazion Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25779,1,4,0)
 ;;=4^H00.15
 ;;^UTILITY(U,$J,358.3,25779,2)
 ;;=^5133378
 ;;^UTILITY(U,$J,358.3,25780,0)
 ;;=H00.011^^81^1035^5
 ;;^UTILITY(U,$J,358.3,25780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25780,1,3,0)
 ;;=3^Hordeolum Externum Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25780,1,4,0)
 ;;=4^H00.011
 ;;^UTILITY(U,$J,358.3,25780,2)
 ;;=^5004218
 ;;^UTILITY(U,$J,358.3,25781,0)
 ;;=H00.014^^81^1035^6
 ;;^UTILITY(U,$J,358.3,25781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25781,1,3,0)
 ;;=3^Hordeolum Externum Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25781,1,4,0)
 ;;=4^H00.014
 ;;^UTILITY(U,$J,358.3,25781,2)
 ;;=^5004221
 ;;^UTILITY(U,$J,358.3,25782,0)
 ;;=H02.052^^81^1035^7
 ;;^UTILITY(U,$J,358.3,25782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25782,1,3,0)
 ;;=3^Trichiasis w/o Entropion,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25782,1,4,0)
 ;;=4^H02.052
 ;;^UTILITY(U,$J,358.3,25782,2)
 ;;=^5004299
 ;;^UTILITY(U,$J,358.3,25783,0)
 ;;=H02.055^^81^1035^9
 ;;^UTILITY(U,$J,358.3,25783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25783,1,3,0)
 ;;=3^Trichiasis w/o Entropion,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25783,1,4,0)
 ;;=4^H02.055
 ;;^UTILITY(U,$J,358.3,25783,2)
 ;;=^5133405
 ;;^UTILITY(U,$J,358.3,25784,0)
 ;;=H02.032^^81^1035^11
 ;;^UTILITY(U,$J,358.3,25784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25784,1,3,0)
 ;;=3^Entropion,Senile,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25784,1,4,0)
 ;;=4^H02.032
 ;;^UTILITY(U,$J,358.3,25784,2)
 ;;=^5004289
 ;;^UTILITY(U,$J,358.3,25785,0)
 ;;=H02.035^^81^1035^12
 ;;^UTILITY(U,$J,358.3,25785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25785,1,3,0)
 ;;=3^Entropion,Senile,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25785,1,4,0)
 ;;=4^H02.035
 ;;^UTILITY(U,$J,358.3,25785,2)
 ;;=^5133401
 ;;^UTILITY(U,$J,358.3,25786,0)
 ;;=H02.112^^81^1035^15
 ;;^UTILITY(U,$J,358.3,25786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25786,1,3,0)
 ;;=3^Ectropion,Cicatricial,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25786,1,4,0)
 ;;=4^H02.112
 ;;^UTILITY(U,$J,358.3,25786,2)
 ;;=^5004308
 ;;^UTILITY(U,$J,358.3,25787,0)
 ;;=H02.115^^81^1035^16
 ;;^UTILITY(U,$J,358.3,25787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25787,1,3,0)
 ;;=3^Ectropion,Cicatricial,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,25787,1,4,0)
 ;;=4^H02.115
 ;;^UTILITY(U,$J,358.3,25787,2)
 ;;=^5133410
 ;;^UTILITY(U,$J,358.3,25788,0)
 ;;=H02.201^^81^1035^22
 ;;^UTILITY(U,$J,358.3,25788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25788,1,3,0)
 ;;=3^Lagophthalmos,Right Upper Eyelid,Unspec
 ;;^UTILITY(U,$J,358.3,25788,1,4,0)
 ;;=4^H02.201
 ;;^UTILITY(U,$J,358.3,25788,2)
 ;;=^5004327
 ;;^UTILITY(U,$J,358.3,25789,0)
 ;;=H02.204^^81^1035^23
 ;;^UTILITY(U,$J,358.3,25789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25789,1,3,0)
 ;;=3^Lagophthalmos,Left Upper Eyelid,Unspec
 ;;^UTILITY(U,$J,358.3,25789,1,4,0)
 ;;=4^H02.204
 ;;^UTILITY(U,$J,358.3,25789,2)
 ;;=^5004330
 ;;^UTILITY(U,$J,358.3,25790,0)
 ;;=H02.831^^81^1035^18
 ;;^UTILITY(U,$J,358.3,25790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25790,1,3,0)
 ;;=3^Dermatochalasis,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25790,1,4,0)
 ;;=4^H02.831
 ;;^UTILITY(U,$J,358.3,25790,2)
 ;;=^5004418
 ;;^UTILITY(U,$J,358.3,25791,0)
 ;;=H02.834^^81^1035^20
 ;;^UTILITY(U,$J,358.3,25791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25791,1,3,0)
 ;;=3^Dermatochalasis,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25791,1,4,0)
 ;;=4^H02.834
 ;;^UTILITY(U,$J,358.3,25791,2)
 ;;=^5004421
 ;;^UTILITY(U,$J,358.3,25792,0)
 ;;=H02.829^^81^1035^24
 ;;^UTILITY(U,$J,358.3,25792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25792,1,3,0)
 ;;=3^Cysts,Unspec Eyelid
 ;;^UTILITY(U,$J,358.3,25792,1,4,0)
 ;;=4^H02.829
 ;;^UTILITY(U,$J,358.3,25792,2)
 ;;=^5133442
 ;;^UTILITY(U,$J,358.3,25793,0)
 ;;=H01.119^^81^1035^30
 ;;^UTILITY(U,$J,358.3,25793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25793,1,3,0)
 ;;=3^Allergic Dermatitis,Unspec Eyelid
 ;;^UTILITY(U,$J,358.3,25793,1,4,0)
 ;;=4^H01.119
 ;;^UTILITY(U,$J,358.3,25793,2)
 ;;=^5133387
 ;;^UTILITY(U,$J,358.3,25794,0)
 ;;=H02.421^^81^1035^19
 ;;^UTILITY(U,$J,358.3,25794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25794,1,3,0)
 ;;=3^Ptosis,Myogenic,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25794,1,4,0)
 ;;=4^H02.421
 ;;^UTILITY(U,$J,358.3,25794,2)
 ;;=^5004360
 ;;^UTILITY(U,$J,358.3,25795,0)
 ;;=H02.422^^81^1035^21
 ;;^UTILITY(U,$J,358.3,25795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25795,1,3,0)
 ;;=3^Ptosis,Myogenic,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25795,1,4,0)
 ;;=4^H02.422
 ;;^UTILITY(U,$J,358.3,25795,2)
 ;;=^5004361
 ;;^UTILITY(U,$J,358.3,25796,0)
 ;;=H02.051^^81^1035^8
 ;;^UTILITY(U,$J,358.3,25796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25796,1,3,0)
 ;;=3^Trichiasis w/o Entropion,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25796,1,4,0)
 ;;=4^H02.051
 ;;^UTILITY(U,$J,358.3,25796,2)
 ;;=^5004298
 ;;^UTILITY(U,$J,358.3,25797,0)
 ;;=H02.054^^81^1035^10
 ;;^UTILITY(U,$J,358.3,25797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25797,1,3,0)
 ;;=3^Trichiasis w/o Entropion,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25797,1,4,0)
 ;;=4^H02.054
 ;;^UTILITY(U,$J,358.3,25797,2)
 ;;=^5004301
 ;;^UTILITY(U,$J,358.3,25798,0)
 ;;=H57.813^^81^1035^17
 ;;^UTILITY(U,$J,358.3,25798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25798,1,3,0)
 ;;=3^Brow Ptosis,Bilateral
 ;;^UTILITY(U,$J,358.3,25798,1,4,0)
 ;;=4^H57.813
 ;;^UTILITY(U,$J,358.3,25798,2)
 ;;=^5157366
 ;;^UTILITY(U,$J,358.3,25799,0)
 ;;=D23.111^^81^1035^25
 ;;^UTILITY(U,$J,358.3,25799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25799,1,3,0)
 ;;=3^Benign Eyelid Lesion,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,25799,1,4,0)
 ;;=4^D23.111
 ;;^UTILITY(U,$J,358.3,25799,2)
 ;;=^5157290
 ;;^UTILITY(U,$J,358.3,25800,0)
 ;;=D23.121^^81^1035^26
 ;;^UTILITY(U,$J,358.3,25800,1,0)
 ;;=^358.31IA^4^2