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

IBDEI06J.m

Go to the documentation of this file.
IBDEI06J ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,15659,1,3,0)
 ;;=3^Vitreous Degeneration (PVD),Bilateral
 ;;^UTILITY(U,$J,358.3,15659,1,4,0)
 ;;=4^H43.813
 ;;^UTILITY(U,$J,358.3,15659,2)
 ;;=^5005955
 ;;^UTILITY(U,$J,358.3,15660,0)
 ;;=H43.812^^92^940^2
 ;;^UTILITY(U,$J,358.3,15660,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15660,1,3,0)
 ;;=3^Vitreous Degeneration (PVD),Left Eye
 ;;^UTILITY(U,$J,358.3,15660,1,4,0)
 ;;=4^H43.812
 ;;^UTILITY(U,$J,358.3,15660,2)
 ;;=^5005954
 ;;^UTILITY(U,$J,358.3,15661,0)
 ;;=H43.811^^92^940^1
 ;;^UTILITY(U,$J,358.3,15661,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15661,1,3,0)
 ;;=3^Vitreous Degeneration (PVD),Right Eye
 ;;^UTILITY(U,$J,358.3,15661,1,4,0)
 ;;=4^H43.811
 ;;^UTILITY(U,$J,358.3,15661,2)
 ;;=^5005953
 ;;^UTILITY(U,$J,358.3,15662,0)
 ;;=H43.13^^92^940^9
 ;;^UTILITY(U,$J,358.3,15662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15662,1,3,0)
 ;;=3^Vitreous Hemorrhage,Bilateral
 ;;^UTILITY(U,$J,358.3,15662,1,4,0)
 ;;=4^H43.13
 ;;^UTILITY(U,$J,358.3,15662,2)
 ;;=^5005940
 ;;^UTILITY(U,$J,358.3,15663,0)
 ;;=H43.821^^92^940^10
 ;;^UTILITY(U,$J,358.3,15663,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15663,1,3,0)
 ;;=3^Vitreomacular Adhesion,Right Eye
 ;;^UTILITY(U,$J,358.3,15663,1,4,0)
 ;;=4^H43.821
 ;;^UTILITY(U,$J,358.3,15663,2)
 ;;=^5005957
 ;;^UTILITY(U,$J,358.3,15664,0)
 ;;=H43.822^^92^940^11
 ;;^UTILITY(U,$J,358.3,15664,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15664,1,3,0)
 ;;=3^Vitreomacular Adhesion,Left Eye
 ;;^UTILITY(U,$J,358.3,15664,1,4,0)
 ;;=4^H43.822
 ;;^UTILITY(U,$J,358.3,15664,2)
 ;;=^5005958
 ;;^UTILITY(U,$J,358.3,15665,0)
 ;;=H43.823^^92^940^12
 ;;^UTILITY(U,$J,358.3,15665,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15665,1,3,0)
 ;;=3^Vitreomacular Adhesion,Bilateral
 ;;^UTILITY(U,$J,358.3,15665,1,4,0)
 ;;=4^H43.823
 ;;^UTILITY(U,$J,358.3,15665,2)
 ;;=^5005959
 ;;^UTILITY(U,$J,358.3,15666,0)
 ;;=H43.391^^92^940^15
 ;;^UTILITY(U,$J,358.3,15666,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15666,1,3,0)
 ;;=3^Vitreous Opacities,Right Eye NEC
 ;;^UTILITY(U,$J,358.3,15666,1,4,0)
 ;;=4^H43.391
 ;;^UTILITY(U,$J,358.3,15666,2)
 ;;=^5005949
 ;;^UTILITY(U,$J,358.3,15667,0)
 ;;=H43.392^^92^940^16
 ;;^UTILITY(U,$J,358.3,15667,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15667,1,3,0)
 ;;=3^Vitreous Opacities,Left Eye NEC
 ;;^UTILITY(U,$J,358.3,15667,1,4,0)
 ;;=4^H43.392
 ;;^UTILITY(U,$J,358.3,15667,2)
 ;;=^5005950
 ;;^UTILITY(U,$J,358.3,15668,0)
 ;;=S05.31XA^^92^941^1
 ;;^UTILITY(U,$J,358.3,15668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15668,1,3,0)
 ;;=3^Ocular Laceration w/o Loss of Intraoc Tissue,Right Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,15668,1,4,0)
 ;;=4^S05.31XA
 ;;^UTILITY(U,$J,358.3,15668,2)
 ;;=^5020606
 ;;^UTILITY(U,$J,358.3,15669,0)
 ;;=S05.32XA^^92^941^2
 ;;^UTILITY(U,$J,358.3,15669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15669,1,3,0)
 ;;=3^Ocular Laceration w/o Loss of Intraoc Tissue,Left Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,15669,1,4,0)
 ;;=4^S05.32XA
 ;;^UTILITY(U,$J,358.3,15669,2)
 ;;=^5020609
 ;;^UTILITY(U,$J,358.3,15670,0)
 ;;=S01.121A^^92^941^3
 ;;^UTILITY(U,$J,358.3,15670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15670,1,3,0)
 ;;=3^Laceration w/ FB,Right Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15670,1,4,0)
 ;;=4^S01.121A
 ;;^UTILITY(U,$J,358.3,15670,2)
 ;;=^5020066
 ;;^UTILITY(U,$J,358.3,15671,0)
 ;;=S01.122A^^92^941^4
 ;;^UTILITY(U,$J,358.3,15671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15671,1,3,0)
 ;;=3^Laceration w/ FB,Left Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15671,1,4,0)
 ;;=4^S01.122A
 ;;^UTILITY(U,$J,358.3,15671,2)
 ;;=^5134190
 ;;^UTILITY(U,$J,358.3,15672,0)
 ;;=S01.111A^^92^941^5
 ;;^UTILITY(U,$J,358.3,15672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15672,1,3,0)
 ;;=3^Laceration w/o FB,Right Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15672,1,4,0)
 ;;=4^S01.111A
 ;;^UTILITY(U,$J,358.3,15672,2)
 ;;=^5020057
 ;;^UTILITY(U,$J,358.3,15673,0)
 ;;=S01.112A^^92^941^6
 ;;^UTILITY(U,$J,358.3,15673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15673,1,3,0)
 ;;=3^Laceration w/o FB,Left Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15673,1,4,0)
 ;;=4^S01.112A
 ;;^UTILITY(U,$J,358.3,15673,2)
 ;;=^5020060
 ;;^UTILITY(U,$J,358.3,15674,0)
 ;;=S01.141A^^92^941^7
 ;;^UTILITY(U,$J,358.3,15674,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15674,1,3,0)
 ;;=3^Puncture Wound w/ FB,Right Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15674,1,4,0)
 ;;=4^S01.141A
 ;;^UTILITY(U,$J,358.3,15674,2)
 ;;=^5020078
 ;;^UTILITY(U,$J,358.3,15675,0)
 ;;=S01.142A^^92^941^8
 ;;^UTILITY(U,$J,358.3,15675,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15675,1,3,0)
 ;;=3^Puncture Wound w/ FB,Left Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15675,1,4,0)
 ;;=4^S01.142A
 ;;^UTILITY(U,$J,358.3,15675,2)
 ;;=^5134196
 ;;^UTILITY(U,$J,358.3,15676,0)
 ;;=S01.131A^^92^941^9
 ;;^UTILITY(U,$J,358.3,15676,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15676,1,3,0)
 ;;=3^Puncture Wound w/o FB,Right Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15676,1,4,0)
 ;;=4^S01.131A
 ;;^UTILITY(U,$J,358.3,15676,2)
 ;;=^5020069
 ;;^UTILITY(U,$J,358.3,15677,0)
 ;;=S01.132A^^92^941^10
 ;;^UTILITY(U,$J,358.3,15677,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15677,1,3,0)
 ;;=3^Puncture Wound w/o FB,Left Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15677,1,4,0)
 ;;=4^S01.132A
 ;;^UTILITY(U,$J,358.3,15677,2)
 ;;=^5020072
 ;;^UTILITY(U,$J,358.3,15678,0)
 ;;=S05.41XA^^92^941^11
 ;;^UTILITY(U,$J,358.3,15678,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15678,1,3,0)
 ;;=3^Penetrating Orbital Wound,Right Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,15678,1,4,0)
 ;;=4^S05.41XA
 ;;^UTILITY(U,$J,358.3,15678,2)
 ;;=^5020615
 ;;^UTILITY(U,$J,358.3,15679,0)
 ;;=S05.42XA^^92^941^12
 ;;^UTILITY(U,$J,358.3,15679,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15679,1,3,0)
 ;;=3^Penetrating Orbital Wound,Left Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,15679,1,4,0)
 ;;=4^S05.42XA
 ;;^UTILITY(U,$J,358.3,15679,2)
 ;;=^5020618
 ;;^UTILITY(U,$J,358.3,15680,0)
 ;;=S02.42XA^^92^941^17
 ;;^UTILITY(U,$J,358.3,15680,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15680,1,3,0)
 ;;=3^Fx of Alveoulus of Maxilla,Init Encntr for Closed Fx
 ;;^UTILITY(U,$J,358.3,15680,1,4,0)
 ;;=4^S02.42XA
 ;;^UTILITY(U,$J,358.3,15680,2)
 ;;=^5020354
 ;;^UTILITY(U,$J,358.3,15681,0)
 ;;=S00.11XA^^92^941^18
 ;;^UTILITY(U,$J,358.3,15681,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15681,1,3,0)
 ;;=3^Contusion,Right Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15681,1,4,0)
 ;;=4^S00.11XA
 ;;^UTILITY(U,$J,358.3,15681,2)
 ;;=^5019778
 ;;^UTILITY(U,$J,358.3,15682,0)
 ;;=S00.12XA^^92^941^19
 ;;^UTILITY(U,$J,358.3,15682,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15682,1,3,0)
 ;;=3^Contusion,Left Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15682,1,4,0)
 ;;=4^S00.12XA
 ;;^UTILITY(U,$J,358.3,15682,2)
 ;;=^5019781
 ;;^UTILITY(U,$J,358.3,15683,0)
 ;;=S01.151A^^92^941^20
 ;;^UTILITY(U,$J,358.3,15683,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15683,1,3,0)
 ;;=3^Open Bite,Right Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15683,1,4,0)
 ;;=4^S01.151A
 ;;^UTILITY(U,$J,358.3,15683,2)
 ;;=^5020081
 ;;^UTILITY(U,$J,358.3,15684,0)
 ;;=S01.152A^^92^941^21
 ;;^UTILITY(U,$J,358.3,15684,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15684,1,3,0)
 ;;=3^Open Bite,Left Eyelid,Init Encntr
 ;;^UTILITY(U,$J,358.3,15684,1,4,0)
 ;;=4^S01.152A
 ;;^UTILITY(U,$J,358.3,15684,2)
 ;;=^5020084
 ;;^UTILITY(U,$J,358.3,15685,0)
 ;;=S02.81XA^^92^941^13
 ;;^UTILITY(U,$J,358.3,15685,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15685,1,3,0)
 ;;=3^Fx of Skull/Facial Bones,Right Side,Init Encntr for Closed Fx
 ;;^UTILITY(U,$J,358.3,15685,1,4,0)
 ;;=4^S02.81XA
 ;;^UTILITY(U,$J,358.3,15685,2)
 ;;=^5139523
 ;;^UTILITY(U,$J,358.3,15686,0)
 ;;=S02.82XA^^92^941^14
 ;;^UTILITY(U,$J,358.3,15686,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15686,1,3,0)
 ;;=3^Fx of Skull/Facial Bones,Left Side,Init Encntr for Closed Fx
 ;;^UTILITY(U,$J,358.3,15686,1,4,0)
 ;;=4^S02.82XA
 ;;^UTILITY(U,$J,358.3,15686,2)
 ;;=^5139529
 ;;^UTILITY(U,$J,358.3,15687,0)
 ;;=S02.31XA^^92^941^15
 ;;^UTILITY(U,$J,358.3,15687,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15687,1,3,0)
 ;;=3^Fx of Orbital Floor,Right Side,Init Encntr for Closed Fx
 ;;^UTILITY(U,$J,358.3,15687,1,4,0)
 ;;=4^S02.31XA
 ;;^UTILITY(U,$J,358.3,15687,2)
 ;;=^5139325
 ;;^UTILITY(U,$J,358.3,15688,0)
 ;;=S02.32XA^^92^941^16
 ;;^UTILITY(U,$J,358.3,15688,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15688,1,3,0)
 ;;=3^Fx of Orbital Floor,Left Side,Init Encntr for Closed Fx
 ;;^UTILITY(U,$J,358.3,15688,1,4,0)
 ;;=4^S02.32XA
 ;;^UTILITY(U,$J,358.3,15688,2)
 ;;=^5139331
 ;;^UTILITY(U,$J,358.3,15689,0)
 ;;=H04.123^^92^942^1
 ;;^UTILITY(U,$J,358.3,15689,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15689,1,3,0)
 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
 ;;^UTILITY(U,$J,358.3,15689,1,4,0)
 ;;=4^H04.123
 ;;^UTILITY(U,$J,358.3,15689,2)
 ;;=^5004465
 ;;^UTILITY(U,$J,358.3,15690,0)
 ;;=M35.01^^92^942^2
 ;;^UTILITY(U,$J,358.3,15690,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15690,1,3,0)
 ;;=3^Sicca Syndrome w/ Keratoconjunctivitis
 ;;^UTILITY(U,$J,358.3,15690,1,4,0)
 ;;=4^M35.01
 ;;^UTILITY(U,$J,358.3,15690,2)
 ;;=^5011787
 ;;^UTILITY(U,$J,358.3,15691,0)
 ;;=H10.503^^92^942^3
 ;;^UTILITY(U,$J,358.3,15691,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15691,1,3,0)
 ;;=3^Blepharoconjunctivitis,Bilateral
 ;;^UTILITY(U,$J,358.3,15691,1,4,0)
 ;;=4^H10.503
 ;;^UTILITY(U,$J,358.3,15691,2)
 ;;=^5004699
 ;;^UTILITY(U,$J,358.3,15692,0)
 ;;=H01.001^^92^942^4
 ;;^UTILITY(U,$J,358.3,15692,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15692,1,3,0)
 ;;=3^Blepharitis,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15692,1,4,0)
 ;;=4^H01.001
 ;;^UTILITY(U,$J,358.3,15692,2)
 ;;=^5004238
 ;;^UTILITY(U,$J,358.3,15693,0)
 ;;=H01.004^^92^942^5
 ;;^UTILITY(U,$J,358.3,15693,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15693,1,3,0)
 ;;=3^Blepharitis,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15693,1,4,0)
 ;;=4^H01.004
 ;;^UTILITY(U,$J,358.3,15693,2)
 ;;=^5004241
 ;;^UTILITY(U,$J,358.3,15694,0)
 ;;=L71.9^^92^942^6
 ;;^UTILITY(U,$J,358.3,15694,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15694,1,3,0)
 ;;=3^Rosacea,Unspec
 ;;^UTILITY(U,$J,358.3,15694,1,4,0)
 ;;=4^L71.9
 ;;^UTILITY(U,$J,358.3,15694,2)
 ;;=^5009276
 ;;^UTILITY(U,$J,358.3,15695,0)
 ;;=H04.221^^92^942^10
 ;;^UTILITY(U,$J,358.3,15695,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15695,1,3,0)
 ;;=3^Epiphora d/t Insuff Drainage,Right 
 ;;^UTILITY(U,$J,358.3,15695,1,4,0)
 ;;=4^H04.221
 ;;^UTILITY(U,$J,358.3,15695,2)
 ;;=^5004491
 ;;^UTILITY(U,$J,358.3,15696,0)
 ;;=H04.222^^92^942^11
 ;;^UTILITY(U,$J,358.3,15696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15696,1,3,0)
 ;;=3^Epiphora d/t Insuff Drainage,Left 
 ;;^UTILITY(U,$J,358.3,15696,1,4,0)
 ;;=4^H04.222
 ;;^UTILITY(U,$J,358.3,15696,2)
 ;;=^5004492
 ;;^UTILITY(U,$J,358.3,15697,0)
 ;;=H04.551^^92^942^12
 ;;^UTILITY(U,$J,358.3,15697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15697,1,3,0)
 ;;=3^Acquired Stenosis,Right Nasolacrimal Duct
 ;;^UTILITY(U,$J,358.3,15697,1,4,0)
 ;;=4^H04.551
 ;;^UTILITY(U,$J,358.3,15697,2)
 ;;=^5004538
 ;;^UTILITY(U,$J,358.3,15698,0)
 ;;=H04.552^^92^942^13
 ;;^UTILITY(U,$J,358.3,15698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15698,1,3,0)
 ;;=3^Acquired Stenosis,Left Nasolacrimal Duct
 ;;^UTILITY(U,$J,358.3,15698,1,4,0)
 ;;=4^H04.552
 ;;^UTILITY(U,$J,358.3,15698,2)
 ;;=^5004539
 ;;^UTILITY(U,$J,358.3,15699,0)
 ;;=H04.211^^92^942^7
 ;;^UTILITY(U,$J,358.3,15699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15699,1,3,0)
 ;;=3^Epiphora d/t Excessive Lacrimation,Right
 ;;^UTILITY(U,$J,358.3,15699,1,4,0)
 ;;=4^H04.211
 ;;^UTILITY(U,$J,358.3,15699,2)
 ;;=^5004487
 ;;^UTILITY(U,$J,358.3,15700,0)
 ;;=H04.212^^92^942^8
 ;;^UTILITY(U,$J,358.3,15700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15700,1,3,0)
 ;;=3^Epiphora d/t Excessive Lacrimation,Left
 ;;^UTILITY(U,$J,358.3,15700,1,4,0)
 ;;=4^H04.212
 ;;^UTILITY(U,$J,358.3,15700,2)
 ;;=^5004488
 ;;^UTILITY(U,$J,358.3,15701,0)
 ;;=H04.213^^92^942^9
 ;;^UTILITY(U,$J,358.3,15701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15701,1,3,0)
 ;;=3^Epiphora d/t Excessive Lacrimation,Bilateral
 ;;^UTILITY(U,$J,358.3,15701,1,4,0)
 ;;=4^H04.213
 ;;^UTILITY(U,$J,358.3,15701,2)
 ;;=^5004489
 ;;^UTILITY(U,$J,358.3,15702,0)
 ;;=D23.111^^92^942^14
 ;;^UTILITY(U,$J,358.3,15702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15702,1,3,0)
 ;;=3^Benign Neop Skin,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15702,1,4,0)
 ;;=4^D23.111
 ;;^UTILITY(U,$J,358.3,15702,2)
 ;;=^5157290
 ;;^UTILITY(U,$J,358.3,15703,0)
 ;;=D23.112^^92^942^15
 ;;^UTILITY(U,$J,358.3,15703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15703,1,3,0)
 ;;=3^Benign Neop Skin,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15703,1,4,0)
 ;;=4^D23.112
 ;;^UTILITY(U,$J,358.3,15703,2)
 ;;=^5157291
 ;;^UTILITY(U,$J,358.3,15704,0)
 ;;=D23.121^^92^942^16
 ;;^UTILITY(U,$J,358.3,15704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15704,1,3,0)
 ;;=3^Benign Neop Skin,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15704,1,4,0)
 ;;=4^D23.121
 ;;^UTILITY(U,$J,358.3,15704,2)
 ;;=^5157292
 ;;^UTILITY(U,$J,358.3,15705,0)
 ;;=D23.122^^92^942^17
 ;;^UTILITY(U,$J,358.3,15705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15705,1,3,0)
 ;;=3^BEnign Neop Skin,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15705,1,4,0)
 ;;=4^D23.122
 ;;^UTILITY(U,$J,358.3,15705,2)
 ;;=^5157293
 ;;^UTILITY(U,$J,358.3,15706,0)
 ;;=C44.1021^^92^942^18
 ;;^UTILITY(U,$J,358.3,15706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15706,1,3,0)
 ;;=3^Malig Neop Skin,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15706,1,4,0)
 ;;=4^C44.1021
 ;;^UTILITY(U,$J,358.3,15706,2)
 ;;=^5157253
 ;;^UTILITY(U,$J,358.3,15707,0)
 ;;=C44.1022^^92^942^19
 ;;^UTILITY(U,$J,358.3,15707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15707,1,3,0)
 ;;=3^Malig Neop Skin,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15707,1,4,0)
 ;;=4^C44.1022
 ;;^UTILITY(U,$J,358.3,15707,2)
 ;;=^5157254
 ;;^UTILITY(U,$J,358.3,15708,0)
 ;;=C44.1091^^92^942^20
 ;;^UTILITY(U,$J,358.3,15708,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15708,1,3,0)
 ;;=3^Malig Neop Skin,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15708,1,4,0)
 ;;=4^C44.1091
 ;;^UTILITY(U,$J,358.3,15708,2)
 ;;=^5157255
 ;;^UTILITY(U,$J,358.3,15709,0)
 ;;=C44.1092^^92^942^21
 ;;^UTILITY(U,$J,358.3,15709,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15709,1,3,0)
 ;;=3^Malig Neop Skin,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15709,1,4,0)
 ;;=4^C44.1092
 ;;^UTILITY(U,$J,358.3,15709,2)
 ;;=^5157256
 ;;^UTILITY(U,$J,358.3,15710,0)
 ;;=C44.1121^^92^942^22
 ;;^UTILITY(U,$J,358.3,15710,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15710,1,3,0)
 ;;=3^BCC Neop Skin,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15710,1,4,0)
 ;;=4^C44.1121
 ;;^UTILITY(U,$J,358.3,15710,2)
 ;;=^5157257
 ;;^UTILITY(U,$J,358.3,15711,0)
 ;;=C44.1122^^92^942^23
 ;;^UTILITY(U,$J,358.3,15711,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15711,1,3,0)
 ;;=3^BCC Neop Skin,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15711,1,4,0)
 ;;=4^C44.1122
 ;;^UTILITY(U,$J,358.3,15711,2)
 ;;=^5157258
 ;;^UTILITY(U,$J,358.3,15712,0)
 ;;=C44.1191^^92^942^24
 ;;^UTILITY(U,$J,358.3,15712,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15712,1,3,0)
 ;;=3^BCC Neop Skin,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15712,1,4,0)
 ;;=4^C44.1191
 ;;^UTILITY(U,$J,358.3,15712,2)
 ;;=^5157259
 ;;^UTILITY(U,$J,358.3,15713,0)
 ;;=C44.1192^^92^942^25
 ;;^UTILITY(U,$J,358.3,15713,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15713,1,3,0)
 ;;=3^BCC Neop Skin,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15713,1,4,0)
 ;;=4^C44.1192
 ;;^UTILITY(U,$J,358.3,15713,2)
 ;;=^5157260
 ;;^UTILITY(U,$J,358.3,15714,0)
 ;;=C44.1221^^92^942^26
 ;;^UTILITY(U,$J,358.3,15714,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15714,1,3,0)
 ;;=3^SCC Neop Skin,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15714,1,4,0)
 ;;=4^C44.1221
 ;;^UTILITY(U,$J,358.3,15714,2)
 ;;=^5157261
 ;;^UTILITY(U,$J,358.3,15715,0)
 ;;=C44.1222^^92^942^27
 ;;^UTILITY(U,$J,358.3,15715,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15715,1,3,0)
 ;;=3^SCC Neop Skin,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15715,1,4,0)
 ;;=4^C44.1222
 ;;^UTILITY(U,$J,358.3,15715,2)
 ;;=^5157262
 ;;^UTILITY(U,$J,358.3,15716,0)
 ;;=C44.1291^^92^942^28
 ;;^UTILITY(U,$J,358.3,15716,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15716,1,3,0)
 ;;=3^SCC Neop Skin,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,15716,1,4,0)
 ;;=4^C44.1291
 ;;^UTILITY(U,$J,358.3,15716,2)
 ;;=^5157263
 ;;^UTILITY(U,$J,358.3,15717,0)
 ;;=C44.1292^^92^942^29
 ;;^UTILITY(U,$J,358.3,15717,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15717,1,3,0)
 ;;=3^SCC Neop Skin,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,15717,1,4,0)
 ;;=4^C44.1292
 ;;^UTILITY(U,$J,358.3,15717,2)
 ;;=^5157264
 ;;^UTILITY(U,$J,358.3,15718,0)
 ;;=H52.13^^92^943^36
 ;;^UTILITY(U,$J,358.3,15718,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15718,1,3,0)
 ;;=3^Myopia,Bilateral
 ;;^UTILITY(U,$J,358.3,15718,1,4,0)
 ;;=4^H52.13
 ;;^UTILITY(U,$J,358.3,15718,2)
 ;;=^5006266
 ;;^UTILITY(U,$J,358.3,15719,0)
 ;;=H52.03^^92^943^33
 ;;^UTILITY(U,$J,358.3,15719,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15719,1,3,0)
 ;;=3^Hypermetropia,Bilateral
 ;;^UTILITY(U,$J,358.3,15719,1,4,0)
 ;;=4^H52.03
 ;;^UTILITY(U,$J,358.3,15719,2)
 ;;=^5006262
 ;;^UTILITY(U,$J,358.3,15720,0)
 ;;=H52.4^^92^943^46
 ;;^UTILITY(U,$J,358.3,15720,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15720,1,3,0)
 ;;=3^Presbyopia
 ;;^UTILITY(U,$J,358.3,15720,1,4,0)
 ;;=4^H52.4
 ;;^UTILITY(U,$J,358.3,15720,2)
 ;;=^98095
 ;;^UTILITY(U,$J,358.3,15721,0)
 ;;=H25.11^^92^943^10
 ;;^UTILITY(U,$J,358.3,15721,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15721,1,3,0)
 ;;=3^Cataract,Nuclear Age-Rel,Right Eye
 ;;^UTILITY(U,$J,358.3,15721,1,4,0)
 ;;=4^H25.11
 ;;^UTILITY(U,$J,358.3,15721,2)
 ;;=^5005284
 ;;^UTILITY(U,$J,358.3,15722,0)
 ;;=H25.12^^92^943^9
 ;;^UTILITY(U,$J,358.3,15722,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15722,1,3,0)
 ;;=3^Cataract,Nuclear Age-Rel,Left Eye
 ;;^UTILITY(U,$J,358.3,15722,1,4,0)
 ;;=4^H25.12
 ;;^UTILITY(U,$J,358.3,15722,2)
 ;;=^5005285
 ;;^UTILITY(U,$J,358.3,15723,0)
 ;;=Z98.49^^92^943^8
 ;;^UTILITY(U,$J,358.3,15723,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15723,1,3,0)
 ;;=3^Cataract Extraction Status,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15723,1,4,0)
 ;;=4^Z98.49
 ;;^UTILITY(U,$J,358.3,15723,2)
 ;;=^5063739
 ;;^UTILITY(U,$J,358.3,15724,0)
 ;;=H04.123^^92^943^23
 ;;^UTILITY(U,$J,358.3,15724,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15724,1,3,0)
 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
 ;;^UTILITY(U,$J,358.3,15724,1,4,0)
 ;;=4^H04.123
 ;;^UTILITY(U,$J,358.3,15724,2)
 ;;=^5004465
 ;;^UTILITY(U,$J,358.3,15725,0)
 ;;=H01.009^^92^943^6
 ;;^UTILITY(U,$J,358.3,15725,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15725,1,3,0)
 ;;=3^Blepharitis,Unspec
 ;;^UTILITY(U,$J,358.3,15725,1,4,0)
 ;;=4^H01.009
 ;;^UTILITY(U,$J,358.3,15725,2)
 ;;=^5133381
 ;;^UTILITY(U,$J,358.3,15726,0)
 ;;=H40.023^^92^943^31