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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI06J 19783 printed Apr 07, 2021@15:33:10 Page 2
IBDEI06J ; ; 01-FEB-2021
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
+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,15659,1,3,0)
+2 ;;=3^Vitreous Degeneration (PVD),Bilateral
+3 ;;^UTILITY(U,$J,358.3,15659,1,4,0)
+4 ;;=4^H43.813
+5 ;;^UTILITY(U,$J,358.3,15659,2)
+6 ;;=^5005955
+7 ;;^UTILITY(U,$J,358.3,15660,0)
+8 ;;=H43.812^^92^940^2
+9 ;;^UTILITY(U,$J,358.3,15660,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,15660,1,3,0)
+12 ;;=3^Vitreous Degeneration (PVD),Left Eye
+13 ;;^UTILITY(U,$J,358.3,15660,1,4,0)
+14 ;;=4^H43.812
+15 ;;^UTILITY(U,$J,358.3,15660,2)
+16 ;;=^5005954
+17 ;;^UTILITY(U,$J,358.3,15661,0)
+18 ;;=H43.811^^92^940^1
+19 ;;^UTILITY(U,$J,358.3,15661,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,15661,1,3,0)
+22 ;;=3^Vitreous Degeneration (PVD),Right Eye
+23 ;;^UTILITY(U,$J,358.3,15661,1,4,0)
+24 ;;=4^H43.811
+25 ;;^UTILITY(U,$J,358.3,15661,2)
+26 ;;=^5005953
+27 ;;^UTILITY(U,$J,358.3,15662,0)
+28 ;;=H43.13^^92^940^9
+29 ;;^UTILITY(U,$J,358.3,15662,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,15662,1,3,0)
+32 ;;=3^Vitreous Hemorrhage,Bilateral
+33 ;;^UTILITY(U,$J,358.3,15662,1,4,0)
+34 ;;=4^H43.13
+35 ;;^UTILITY(U,$J,358.3,15662,2)
+36 ;;=^5005940
+37 ;;^UTILITY(U,$J,358.3,15663,0)
+38 ;;=H43.821^^92^940^10
+39 ;;^UTILITY(U,$J,358.3,15663,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,15663,1,3,0)
+42 ;;=3^Vitreomacular Adhesion,Right Eye
+43 ;;^UTILITY(U,$J,358.3,15663,1,4,0)
+44 ;;=4^H43.821
+45 ;;^UTILITY(U,$J,358.3,15663,2)
+46 ;;=^5005957
+47 ;;^UTILITY(U,$J,358.3,15664,0)
+48 ;;=H43.822^^92^940^11
+49 ;;^UTILITY(U,$J,358.3,15664,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,15664,1,3,0)
+52 ;;=3^Vitreomacular Adhesion,Left Eye
+53 ;;^UTILITY(U,$J,358.3,15664,1,4,0)
+54 ;;=4^H43.822
+55 ;;^UTILITY(U,$J,358.3,15664,2)
+56 ;;=^5005958
+57 ;;^UTILITY(U,$J,358.3,15665,0)
+58 ;;=H43.823^^92^940^12
+59 ;;^UTILITY(U,$J,358.3,15665,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,15665,1,3,0)
+62 ;;=3^Vitreomacular Adhesion,Bilateral
+63 ;;^UTILITY(U,$J,358.3,15665,1,4,0)
+64 ;;=4^H43.823
+65 ;;^UTILITY(U,$J,358.3,15665,2)
+66 ;;=^5005959
+67 ;;^UTILITY(U,$J,358.3,15666,0)
+68 ;;=H43.391^^92^940^15
+69 ;;^UTILITY(U,$J,358.3,15666,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,15666,1,3,0)
+72 ;;=3^Vitreous Opacities,Right Eye NEC
+73 ;;^UTILITY(U,$J,358.3,15666,1,4,0)
+74 ;;=4^H43.391
+75 ;;^UTILITY(U,$J,358.3,15666,2)
+76 ;;=^5005949
+77 ;;^UTILITY(U,$J,358.3,15667,0)
+78 ;;=H43.392^^92^940^16
+79 ;;^UTILITY(U,$J,358.3,15667,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,15667,1,3,0)
+82 ;;=3^Vitreous Opacities,Left Eye NEC
+83 ;;^UTILITY(U,$J,358.3,15667,1,4,0)
+84 ;;=4^H43.392
+85 ;;^UTILITY(U,$J,358.3,15667,2)
+86 ;;=^5005950
+87 ;;^UTILITY(U,$J,358.3,15668,0)
+88 ;;=S05.31XA^^92^941^1
+89 ;;^UTILITY(U,$J,358.3,15668,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,15668,1,3,0)
+92 ;;=3^Ocular Laceration w/o Loss of Intraoc Tissue,Right Eye,Init Encntr
+93 ;;^UTILITY(U,$J,358.3,15668,1,4,0)
+94 ;;=4^S05.31XA
+95 ;;^UTILITY(U,$J,358.3,15668,2)
+96 ;;=^5020606
+97 ;;^UTILITY(U,$J,358.3,15669,0)
+98 ;;=S05.32XA^^92^941^2
+99 ;;^UTILITY(U,$J,358.3,15669,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,15669,1,3,0)
+102 ;;=3^Ocular Laceration w/o Loss of Intraoc Tissue,Left Eye,Init Encntr
+103 ;;^UTILITY(U,$J,358.3,15669,1,4,0)
+104 ;;=4^S05.32XA
+105 ;;^UTILITY(U,$J,358.3,15669,2)
+106 ;;=^5020609
+107 ;;^UTILITY(U,$J,358.3,15670,0)
+108 ;;=S01.121A^^92^941^3
+109 ;;^UTILITY(U,$J,358.3,15670,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,15670,1,3,0)
+112 ;;=3^Laceration w/ FB,Right Eyelid,Init Encntr
+113 ;;^UTILITY(U,$J,358.3,15670,1,4,0)
+114 ;;=4^S01.121A
+115 ;;^UTILITY(U,$J,358.3,15670,2)
+116 ;;=^5020066
+117 ;;^UTILITY(U,$J,358.3,15671,0)
+118 ;;=S01.122A^^92^941^4
+119 ;;^UTILITY(U,$J,358.3,15671,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,15671,1,3,0)
+122 ;;=3^Laceration w/ FB,Left Eyelid,Init Encntr
+123 ;;^UTILITY(U,$J,358.3,15671,1,4,0)
+124 ;;=4^S01.122A
+125 ;;^UTILITY(U,$J,358.3,15671,2)
+126 ;;=^5134190
+127 ;;^UTILITY(U,$J,358.3,15672,0)
+128 ;;=S01.111A^^92^941^5
+129 ;;^UTILITY(U,$J,358.3,15672,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,15672,1,3,0)
+132 ;;=3^Laceration w/o FB,Right Eyelid,Init Encntr
+133 ;;^UTILITY(U,$J,358.3,15672,1,4,0)
+134 ;;=4^S01.111A
+135 ;;^UTILITY(U,$J,358.3,15672,2)
+136 ;;=^5020057
+137 ;;^UTILITY(U,$J,358.3,15673,0)
+138 ;;=S01.112A^^92^941^6
+139 ;;^UTILITY(U,$J,358.3,15673,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,15673,1,3,0)
+142 ;;=3^Laceration w/o FB,Left Eyelid,Init Encntr
+143 ;;^UTILITY(U,$J,358.3,15673,1,4,0)
+144 ;;=4^S01.112A
+145 ;;^UTILITY(U,$J,358.3,15673,2)
+146 ;;=^5020060
+147 ;;^UTILITY(U,$J,358.3,15674,0)
+148 ;;=S01.141A^^92^941^7
+149 ;;^UTILITY(U,$J,358.3,15674,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,15674,1,3,0)
+152 ;;=3^Puncture Wound w/ FB,Right Eyelid,Init Encntr
+153 ;;^UTILITY(U,$J,358.3,15674,1,4,0)
+154 ;;=4^S01.141A
+155 ;;^UTILITY(U,$J,358.3,15674,2)
+156 ;;=^5020078
+157 ;;^UTILITY(U,$J,358.3,15675,0)
+158 ;;=S01.142A^^92^941^8
+159 ;;^UTILITY(U,$J,358.3,15675,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,15675,1,3,0)
+162 ;;=3^Puncture Wound w/ FB,Left Eyelid,Init Encntr
+163 ;;^UTILITY(U,$J,358.3,15675,1,4,0)
+164 ;;=4^S01.142A
+165 ;;^UTILITY(U,$J,358.3,15675,2)
+166 ;;=^5134196
+167 ;;^UTILITY(U,$J,358.3,15676,0)
+168 ;;=S01.131A^^92^941^9
+169 ;;^UTILITY(U,$J,358.3,15676,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,15676,1,3,0)
+172 ;;=3^Puncture Wound w/o FB,Right Eyelid,Init Encntr
+173 ;;^UTILITY(U,$J,358.3,15676,1,4,0)
+174 ;;=4^S01.131A
+175 ;;^UTILITY(U,$J,358.3,15676,2)
+176 ;;=^5020069
+177 ;;^UTILITY(U,$J,358.3,15677,0)
+178 ;;=S01.132A^^92^941^10
+179 ;;^UTILITY(U,$J,358.3,15677,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,15677,1,3,0)
+182 ;;=3^Puncture Wound w/o FB,Left Eyelid,Init Encntr
+183 ;;^UTILITY(U,$J,358.3,15677,1,4,0)
+184 ;;=4^S01.132A
+185 ;;^UTILITY(U,$J,358.3,15677,2)
+186 ;;=^5020072
+187 ;;^UTILITY(U,$J,358.3,15678,0)
+188 ;;=S05.41XA^^92^941^11
+189 ;;^UTILITY(U,$J,358.3,15678,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,15678,1,3,0)
+192 ;;=3^Penetrating Orbital Wound,Right Eye,Init Encntr
+193 ;;^UTILITY(U,$J,358.3,15678,1,4,0)
+194 ;;=4^S05.41XA
+195 ;;^UTILITY(U,$J,358.3,15678,2)
+196 ;;=^5020615
+197 ;;^UTILITY(U,$J,358.3,15679,0)
+198 ;;=S05.42XA^^92^941^12
+199 ;;^UTILITY(U,$J,358.3,15679,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,15679,1,3,0)
+202 ;;=3^Penetrating Orbital Wound,Left Eye,Init Encntr
+203 ;;^UTILITY(U,$J,358.3,15679,1,4,0)
+204 ;;=4^S05.42XA
+205 ;;^UTILITY(U,$J,358.3,15679,2)
+206 ;;=^5020618
+207 ;;^UTILITY(U,$J,358.3,15680,0)
+208 ;;=S02.42XA^^92^941^17
+209 ;;^UTILITY(U,$J,358.3,15680,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,15680,1,3,0)
+212 ;;=3^Fx of Alveoulus of Maxilla,Init Encntr for Closed Fx
+213 ;;^UTILITY(U,$J,358.3,15680,1,4,0)
+214 ;;=4^S02.42XA
+215 ;;^UTILITY(U,$J,358.3,15680,2)
+216 ;;=^5020354
+217 ;;^UTILITY(U,$J,358.3,15681,0)
+218 ;;=S00.11XA^^92^941^18
+219 ;;^UTILITY(U,$J,358.3,15681,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,15681,1,3,0)
+222 ;;=3^Contusion,Right Eyelid,Init Encntr
+223 ;;^UTILITY(U,$J,358.3,15681,1,4,0)
+224 ;;=4^S00.11XA
+225 ;;^UTILITY(U,$J,358.3,15681,2)
+226 ;;=^5019778
+227 ;;^UTILITY(U,$J,358.3,15682,0)
+228 ;;=S00.12XA^^92^941^19
+229 ;;^UTILITY(U,$J,358.3,15682,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,15682,1,3,0)
+232 ;;=3^Contusion,Left Eyelid,Init Encntr
+233 ;;^UTILITY(U,$J,358.3,15682,1,4,0)
+234 ;;=4^S00.12XA
+235 ;;^UTILITY(U,$J,358.3,15682,2)
+236 ;;=^5019781
+237 ;;^UTILITY(U,$J,358.3,15683,0)
+238 ;;=S01.151A^^92^941^20
+239 ;;^UTILITY(U,$J,358.3,15683,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,15683,1,3,0)
+242 ;;=3^Open Bite,Right Eyelid,Init Encntr
+243 ;;^UTILITY(U,$J,358.3,15683,1,4,0)
+244 ;;=4^S01.151A
+245 ;;^UTILITY(U,$J,358.3,15683,2)
+246 ;;=^5020081
+247 ;;^UTILITY(U,$J,358.3,15684,0)
+248 ;;=S01.152A^^92^941^21
+249 ;;^UTILITY(U,$J,358.3,15684,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,15684,1,3,0)
+252 ;;=3^Open Bite,Left Eyelid,Init Encntr
+253 ;;^UTILITY(U,$J,358.3,15684,1,4,0)
+254 ;;=4^S01.152A
+255 ;;^UTILITY(U,$J,358.3,15684,2)
+256 ;;=^5020084
+257 ;;^UTILITY(U,$J,358.3,15685,0)
+258 ;;=S02.81XA^^92^941^13
+259 ;;^UTILITY(U,$J,358.3,15685,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,15685,1,3,0)
+262 ;;=3^Fx of Skull/Facial Bones,Right Side,Init Encntr for Closed Fx
+263 ;;^UTILITY(U,$J,358.3,15685,1,4,0)
+264 ;;=4^S02.81XA
+265 ;;^UTILITY(U,$J,358.3,15685,2)
+266 ;;=^5139523
+267 ;;^UTILITY(U,$J,358.3,15686,0)
+268 ;;=S02.82XA^^92^941^14
+269 ;;^UTILITY(U,$J,358.3,15686,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,15686,1,3,0)
+272 ;;=3^Fx of Skull/Facial Bones,Left Side,Init Encntr for Closed Fx
+273 ;;^UTILITY(U,$J,358.3,15686,1,4,0)
+274 ;;=4^S02.82XA
+275 ;;^UTILITY(U,$J,358.3,15686,2)
+276 ;;=^5139529
+277 ;;^UTILITY(U,$J,358.3,15687,0)
+278 ;;=S02.31XA^^92^941^15
+279 ;;^UTILITY(U,$J,358.3,15687,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,15687,1,3,0)
+282 ;;=3^Fx of Orbital Floor,Right Side,Init Encntr for Closed Fx
+283 ;;^UTILITY(U,$J,358.3,15687,1,4,0)
+284 ;;=4^S02.31XA
+285 ;;^UTILITY(U,$J,358.3,15687,2)
+286 ;;=^5139325
+287 ;;^UTILITY(U,$J,358.3,15688,0)
+288 ;;=S02.32XA^^92^941^16
+289 ;;^UTILITY(U,$J,358.3,15688,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,15688,1,3,0)
+292 ;;=3^Fx of Orbital Floor,Left Side,Init Encntr for Closed Fx
+293 ;;^UTILITY(U,$J,358.3,15688,1,4,0)
+294 ;;=4^S02.32XA
+295 ;;^UTILITY(U,$J,358.3,15688,2)
+296 ;;=^5139331
+297 ;;^UTILITY(U,$J,358.3,15689,0)
+298 ;;=H04.123^^92^942^1
+299 ;;^UTILITY(U,$J,358.3,15689,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,15689,1,3,0)
+302 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
+303 ;;^UTILITY(U,$J,358.3,15689,1,4,0)
+304 ;;=4^H04.123
+305 ;;^UTILITY(U,$J,358.3,15689,2)
+306 ;;=^5004465
+307 ;;^UTILITY(U,$J,358.3,15690,0)
+308 ;;=M35.01^^92^942^2
+309 ;;^UTILITY(U,$J,358.3,15690,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,15690,1,3,0)
+312 ;;=3^Sicca Syndrome w/ Keratoconjunctivitis
+313 ;;^UTILITY(U,$J,358.3,15690,1,4,0)
+314 ;;=4^M35.01
+315 ;;^UTILITY(U,$J,358.3,15690,2)
+316 ;;=^5011787
+317 ;;^UTILITY(U,$J,358.3,15691,0)
+318 ;;=H10.503^^92^942^3
+319 ;;^UTILITY(U,$J,358.3,15691,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,15691,1,3,0)
+322 ;;=3^Blepharoconjunctivitis,Bilateral
+323 ;;^UTILITY(U,$J,358.3,15691,1,4,0)
+324 ;;=4^H10.503
+325 ;;^UTILITY(U,$J,358.3,15691,2)
+326 ;;=^5004699
+327 ;;^UTILITY(U,$J,358.3,15692,0)
+328 ;;=H01.001^^92^942^4
+329 ;;^UTILITY(U,$J,358.3,15692,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,15692,1,3,0)
+332 ;;=3^Blepharitis,Right Upper Eyelid
+333 ;;^UTILITY(U,$J,358.3,15692,1,4,0)
+334 ;;=4^H01.001
+335 ;;^UTILITY(U,$J,358.3,15692,2)
+336 ;;=^5004238
+337 ;;^UTILITY(U,$J,358.3,15693,0)
+338 ;;=H01.004^^92^942^5
+339 ;;^UTILITY(U,$J,358.3,15693,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,15693,1,3,0)
+342 ;;=3^Blepharitis,Left Upper Eyelid
+343 ;;^UTILITY(U,$J,358.3,15693,1,4,0)
+344 ;;=4^H01.004
+345 ;;^UTILITY(U,$J,358.3,15693,2)
+346 ;;=^5004241
+347 ;;^UTILITY(U,$J,358.3,15694,0)
+348 ;;=L71.9^^92^942^6
+349 ;;^UTILITY(U,$J,358.3,15694,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,15694,1,3,0)
+352 ;;=3^Rosacea,Unspec
+353 ;;^UTILITY(U,$J,358.3,15694,1,4,0)
+354 ;;=4^L71.9
+355 ;;^UTILITY(U,$J,358.3,15694,2)
+356 ;;=^5009276
+357 ;;^UTILITY(U,$J,358.3,15695,0)
+358 ;;=H04.221^^92^942^10
+359 ;;^UTILITY(U,$J,358.3,15695,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,15695,1,3,0)
+362 ;;=3^Epiphora d/t Insuff Drainage,Right
+363 ;;^UTILITY(U,$J,358.3,15695,1,4,0)
+364 ;;=4^H04.221
+365 ;;^UTILITY(U,$J,358.3,15695,2)
+366 ;;=^5004491
+367 ;;^UTILITY(U,$J,358.3,15696,0)
+368 ;;=H04.222^^92^942^11
+369 ;;^UTILITY(U,$J,358.3,15696,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,15696,1,3,0)
+372 ;;=3^Epiphora d/t Insuff Drainage,Left
+373 ;;^UTILITY(U,$J,358.3,15696,1,4,0)
+374 ;;=4^H04.222
+375 ;;^UTILITY(U,$J,358.3,15696,2)
+376 ;;=^5004492
+377 ;;^UTILITY(U,$J,358.3,15697,0)
+378 ;;=H04.551^^92^942^12
+379 ;;^UTILITY(U,$J,358.3,15697,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,15697,1,3,0)
+382 ;;=3^Acquired Stenosis,Right Nasolacrimal Duct
+383 ;;^UTILITY(U,$J,358.3,15697,1,4,0)
+384 ;;=4^H04.551
+385 ;;^UTILITY(U,$J,358.3,15697,2)
+386 ;;=^5004538
+387 ;;^UTILITY(U,$J,358.3,15698,0)
+388 ;;=H04.552^^92^942^13
+389 ;;^UTILITY(U,$J,358.3,15698,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,15698,1,3,0)
+392 ;;=3^Acquired Stenosis,Left Nasolacrimal Duct
+393 ;;^UTILITY(U,$J,358.3,15698,1,4,0)
+394 ;;=4^H04.552
+395 ;;^UTILITY(U,$J,358.3,15698,2)
+396 ;;=^5004539
+397 ;;^UTILITY(U,$J,358.3,15699,0)
+398 ;;=H04.211^^92^942^7
+399 ;;^UTILITY(U,$J,358.3,15699,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,15699,1,3,0)
+402 ;;=3^Epiphora d/t Excessive Lacrimation,Right
+403 ;;^UTILITY(U,$J,358.3,15699,1,4,0)
+404 ;;=4^H04.211
+405 ;;^UTILITY(U,$J,358.3,15699,2)
+406 ;;=^5004487
+407 ;;^UTILITY(U,$J,358.3,15700,0)
+408 ;;=H04.212^^92^942^8
+409 ;;^UTILITY(U,$J,358.3,15700,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,15700,1,3,0)
+412 ;;=3^Epiphora d/t Excessive Lacrimation,Left
+413 ;;^UTILITY(U,$J,358.3,15700,1,4,0)
+414 ;;=4^H04.212
+415 ;;^UTILITY(U,$J,358.3,15700,2)
+416 ;;=^5004488
+417 ;;^UTILITY(U,$J,358.3,15701,0)
+418 ;;=H04.213^^92^942^9
+419 ;;^UTILITY(U,$J,358.3,15701,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,15701,1,3,0)
+422 ;;=3^Epiphora d/t Excessive Lacrimation,Bilateral
+423 ;;^UTILITY(U,$J,358.3,15701,1,4,0)
+424 ;;=4^H04.213
+425 ;;^UTILITY(U,$J,358.3,15701,2)
+426 ;;=^5004489
+427 ;;^UTILITY(U,$J,358.3,15702,0)
+428 ;;=D23.111^^92^942^14
+429 ;;^UTILITY(U,$J,358.3,15702,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,15702,1,3,0)
+432 ;;=3^Benign Neop Skin,Right Upper Eyelid
+433 ;;^UTILITY(U,$J,358.3,15702,1,4,0)
+434 ;;=4^D23.111
+435 ;;^UTILITY(U,$J,358.3,15702,2)
+436 ;;=^5157290
+437 ;;^UTILITY(U,$J,358.3,15703,0)
+438 ;;=D23.112^^92^942^15
+439 ;;^UTILITY(U,$J,358.3,15703,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,15703,1,3,0)
+442 ;;=3^Benign Neop Skin,Right Lower Eyelid
+443 ;;^UTILITY(U,$J,358.3,15703,1,4,0)
+444 ;;=4^D23.112
+445 ;;^UTILITY(U,$J,358.3,15703,2)
+446 ;;=^5157291
+447 ;;^UTILITY(U,$J,358.3,15704,0)
+448 ;;=D23.121^^92^942^16
+449 ;;^UTILITY(U,$J,358.3,15704,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,15704,1,3,0)
+452 ;;=3^Benign Neop Skin,Left Upper Eyelid
+453 ;;^UTILITY(U,$J,358.3,15704,1,4,0)
+454 ;;=4^D23.121
+455 ;;^UTILITY(U,$J,358.3,15704,2)
+456 ;;=^5157292
+457 ;;^UTILITY(U,$J,358.3,15705,0)
+458 ;;=D23.122^^92^942^17
+459 ;;^UTILITY(U,$J,358.3,15705,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,15705,1,3,0)
+462 ;;=3^BEnign Neop Skin,Left Lower Eyelid
+463 ;;^UTILITY(U,$J,358.3,15705,1,4,0)
+464 ;;=4^D23.122
+465 ;;^UTILITY(U,$J,358.3,15705,2)
+466 ;;=^5157293
+467 ;;^UTILITY(U,$J,358.3,15706,0)
+468 ;;=C44.1021^^92^942^18
+469 ;;^UTILITY(U,$J,358.3,15706,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,15706,1,3,0)
+472 ;;=3^Malig Neop Skin,Right Upper Eyelid
+473 ;;^UTILITY(U,$J,358.3,15706,1,4,0)
+474 ;;=4^C44.1021
+475 ;;^UTILITY(U,$J,358.3,15706,2)
+476 ;;=^5157253
+477 ;;^UTILITY(U,$J,358.3,15707,0)
+478 ;;=C44.1022^^92^942^19
+479 ;;^UTILITY(U,$J,358.3,15707,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,15707,1,3,0)
+482 ;;=3^Malig Neop Skin,Right Lower Eyelid
+483 ;;^UTILITY(U,$J,358.3,15707,1,4,0)
+484 ;;=4^C44.1022
+485 ;;^UTILITY(U,$J,358.3,15707,2)
+486 ;;=^5157254
+487 ;;^UTILITY(U,$J,358.3,15708,0)
+488 ;;=C44.1091^^92^942^20
+489 ;;^UTILITY(U,$J,358.3,15708,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,15708,1,3,0)
+492 ;;=3^Malig Neop Skin,Left Upper Eyelid
+493 ;;^UTILITY(U,$J,358.3,15708,1,4,0)
+494 ;;=4^C44.1091
+495 ;;^UTILITY(U,$J,358.3,15708,2)
+496 ;;=^5157255
+497 ;;^UTILITY(U,$J,358.3,15709,0)
+498 ;;=C44.1092^^92^942^21
+499 ;;^UTILITY(U,$J,358.3,15709,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,15709,1,3,0)
+502 ;;=3^Malig Neop Skin,Left Lower Eyelid
+503 ;;^UTILITY(U,$J,358.3,15709,1,4,0)
+504 ;;=4^C44.1092
+505 ;;^UTILITY(U,$J,358.3,15709,2)
+506 ;;=^5157256
+507 ;;^UTILITY(U,$J,358.3,15710,0)
+508 ;;=C44.1121^^92^942^22
+509 ;;^UTILITY(U,$J,358.3,15710,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,15710,1,3,0)
+512 ;;=3^BCC Neop Skin,Right Upper Eyelid
+513 ;;^UTILITY(U,$J,358.3,15710,1,4,0)
+514 ;;=4^C44.1121
+515 ;;^UTILITY(U,$J,358.3,15710,2)
+516 ;;=^5157257
+517 ;;^UTILITY(U,$J,358.3,15711,0)
+518 ;;=C44.1122^^92^942^23
+519 ;;^UTILITY(U,$J,358.3,15711,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,15711,1,3,0)
+522 ;;=3^BCC Neop Skin,Right Lower Eyelid
+523 ;;^UTILITY(U,$J,358.3,15711,1,4,0)
+524 ;;=4^C44.1122
+525 ;;^UTILITY(U,$J,358.3,15711,2)
+526 ;;=^5157258
+527 ;;^UTILITY(U,$J,358.3,15712,0)
+528 ;;=C44.1191^^92^942^24
+529 ;;^UTILITY(U,$J,358.3,15712,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,15712,1,3,0)
+532 ;;=3^BCC Neop Skin,Left Upper Eyelid
+533 ;;^UTILITY(U,$J,358.3,15712,1,4,0)
+534 ;;=4^C44.1191
+535 ;;^UTILITY(U,$J,358.3,15712,2)
+536 ;;=^5157259
+537 ;;^UTILITY(U,$J,358.3,15713,0)
+538 ;;=C44.1192^^92^942^25
+539 ;;^UTILITY(U,$J,358.3,15713,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,15713,1,3,0)
+542 ;;=3^BCC Neop Skin,Left Lower Eyelid
+543 ;;^UTILITY(U,$J,358.3,15713,1,4,0)
+544 ;;=4^C44.1192
+545 ;;^UTILITY(U,$J,358.3,15713,2)
+546 ;;=^5157260
+547 ;;^UTILITY(U,$J,358.3,15714,0)
+548 ;;=C44.1221^^92^942^26
+549 ;;^UTILITY(U,$J,358.3,15714,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,15714,1,3,0)
+552 ;;=3^SCC Neop Skin,Right Upper Eyelid
+553 ;;^UTILITY(U,$J,358.3,15714,1,4,0)
+554 ;;=4^C44.1221
+555 ;;^UTILITY(U,$J,358.3,15714,2)
+556 ;;=^5157261
+557 ;;^UTILITY(U,$J,358.3,15715,0)
+558 ;;=C44.1222^^92^942^27
+559 ;;^UTILITY(U,$J,358.3,15715,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,15715,1,3,0)
+562 ;;=3^SCC Neop Skin,Right Lower Eyelid
+563 ;;^UTILITY(U,$J,358.3,15715,1,4,0)
+564 ;;=4^C44.1222
+565 ;;^UTILITY(U,$J,358.3,15715,2)
+566 ;;=^5157262
+567 ;;^UTILITY(U,$J,358.3,15716,0)
+568 ;;=C44.1291^^92^942^28
+569 ;;^UTILITY(U,$J,358.3,15716,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,15716,1,3,0)
+572 ;;=3^SCC Neop Skin,Left Upper Eyelid
+573 ;;^UTILITY(U,$J,358.3,15716,1,4,0)
+574 ;;=4^C44.1291
+575 ;;^UTILITY(U,$J,358.3,15716,2)
+576 ;;=^5157263
+577 ;;^UTILITY(U,$J,358.3,15717,0)
+578 ;;=C44.1292^^92^942^29
+579 ;;^UTILITY(U,$J,358.3,15717,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,15717,1,3,0)
+582 ;;=3^SCC Neop Skin,Left Lower Eyelid
+583 ;;^UTILITY(U,$J,358.3,15717,1,4,0)
+584 ;;=4^C44.1292
+585 ;;^UTILITY(U,$J,358.3,15717,2)
+586 ;;=^5157264
+587 ;;^UTILITY(U,$J,358.3,15718,0)
+588 ;;=H52.13^^92^943^36
+589 ;;^UTILITY(U,$J,358.3,15718,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,15718,1,3,0)
+592 ;;=3^Myopia,Bilateral
+593 ;;^UTILITY(U,$J,358.3,15718,1,4,0)
+594 ;;=4^H52.13
+595 ;;^UTILITY(U,$J,358.3,15718,2)
+596 ;;=^5006266
+597 ;;^UTILITY(U,$J,358.3,15719,0)
+598 ;;=H52.03^^92^943^33
+599 ;;^UTILITY(U,$J,358.3,15719,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,15719,1,3,0)
+602 ;;=3^Hypermetropia,Bilateral
+603 ;;^UTILITY(U,$J,358.3,15719,1,4,0)
+604 ;;=4^H52.03
+605 ;;^UTILITY(U,$J,358.3,15719,2)
+606 ;;=^5006262
+607 ;;^UTILITY(U,$J,358.3,15720,0)
+608 ;;=H52.4^^92^943^46
+609 ;;^UTILITY(U,$J,358.3,15720,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,15720,1,3,0)
+612 ;;=3^Presbyopia
+613 ;;^UTILITY(U,$J,358.3,15720,1,4,0)
+614 ;;=4^H52.4
+615 ;;^UTILITY(U,$J,358.3,15720,2)
+616 ;;=^98095
+617 ;;^UTILITY(U,$J,358.3,15721,0)
+618 ;;=H25.11^^92^943^10
+619 ;;^UTILITY(U,$J,358.3,15721,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,15721,1,3,0)
+622 ;;=3^Cataract,Nuclear Age-Rel,Right Eye
+623 ;;^UTILITY(U,$J,358.3,15721,1,4,0)
+624 ;;=4^H25.11
+625 ;;^UTILITY(U,$J,358.3,15721,2)
+626 ;;=^5005284
+627 ;;^UTILITY(U,$J,358.3,15722,0)
+628 ;;=H25.12^^92^943^9
+629 ;;^UTILITY(U,$J,358.3,15722,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,15722,1,3,0)
+632 ;;=3^Cataract,Nuclear Age-Rel,Left Eye
+633 ;;^UTILITY(U,$J,358.3,15722,1,4,0)
+634 ;;=4^H25.12
+635 ;;^UTILITY(U,$J,358.3,15722,2)
+636 ;;=^5005285
+637 ;;^UTILITY(U,$J,358.3,15723,0)
+638 ;;=Z98.49^^92^943^8
+639 ;;^UTILITY(U,$J,358.3,15723,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,15723,1,3,0)
+642 ;;=3^Cataract Extraction Status,Unspec Eye
+643 ;;^UTILITY(U,$J,358.3,15723,1,4,0)
+644 ;;=4^Z98.49
+645 ;;^UTILITY(U,$J,358.3,15723,2)
+646 ;;=^5063739
+647 ;;^UTILITY(U,$J,358.3,15724,0)
+648 ;;=H04.123^^92^943^23
+649 ;;^UTILITY(U,$J,358.3,15724,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,15724,1,3,0)
+652 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
+653 ;;^UTILITY(U,$J,358.3,15724,1,4,0)
+654 ;;=4^H04.123
+655 ;;^UTILITY(U,$J,358.3,15724,2)
+656 ;;=^5004465
+657 ;;^UTILITY(U,$J,358.3,15725,0)
+658 ;;=H01.009^^92^943^6
+659 ;;^UTILITY(U,$J,358.3,15725,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,15725,1,3,0)
+662 ;;=3^Blepharitis,Unspec
+663 ;;^UTILITY(U,$J,358.3,15725,1,4,0)
+664 ;;=4^H01.009
+665 ;;^UTILITY(U,$J,358.3,15725,2)
+666 ;;=^5133381
+667 ;;^UTILITY(U,$J,358.3,15726,0)
+668 ;;=H40.023^^92^943^31
