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

IBDEI02P.m

Go to the documentation of this file.
IBDEI02P ; ; 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,6324,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6324,1,2,0)
 ;;=2^Inj Treatment of Eye,Medication
 ;;^UTILITY(U,$J,358.3,6324,1,3,0)
 ;;=3^66030
 ;;^UTILITY(U,$J,358.3,6325,0)
 ;;=67028^^39^346^9^^^^1
 ;;^UTILITY(U,$J,358.3,6325,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6325,1,2,0)
 ;;=2^Intravitreal Inj of Eye Drug
 ;;^UTILITY(U,$J,358.3,6325,1,3,0)
 ;;=3^67028
 ;;^UTILITY(U,$J,358.3,6326,0)
 ;;=67500^^39^346^13^^^^1
 ;;^UTILITY(U,$J,358.3,6326,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6326,1,2,0)
 ;;=2^Retrobulbar Inj,Medication
 ;;^UTILITY(U,$J,358.3,6326,1,3,0)
 ;;=3^67500
 ;;^UTILITY(U,$J,358.3,6327,0)
 ;;=67505^^39^346^12^^^^1
 ;;^UTILITY(U,$J,358.3,6327,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6327,1,2,0)
 ;;=2^Retrobulbar Inj,Alcohol
 ;;^UTILITY(U,$J,358.3,6327,1,3,0)
 ;;=3^67505
 ;;^UTILITY(U,$J,358.3,6328,0)
 ;;=68200^^39^346^16^^^^1
 ;;^UTILITY(U,$J,358.3,6328,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6328,1,2,0)
 ;;=2^Subconjunctival Injection
 ;;^UTILITY(U,$J,358.3,6328,1,3,0)
 ;;=3^68200
 ;;^UTILITY(U,$J,358.3,6329,0)
 ;;=96372^^39^346^14^^^^1
 ;;^UTILITY(U,$J,358.3,6329,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6329,1,2,0)
 ;;=2^SC/IM Injection
 ;;^UTILITY(U,$J,358.3,6329,1,3,0)
 ;;=3^96372
 ;;^UTILITY(U,$J,358.3,6330,0)
 ;;=96402^^39^346^15^^^^1
 ;;^UTILITY(U,$J,358.3,6330,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6330,1,2,0)
 ;;=2^SQ/IM Anti-Neplastic Hormone Inj
 ;;^UTILITY(U,$J,358.3,6330,1,3,0)
 ;;=3^96402
 ;;^UTILITY(U,$J,358.3,6331,0)
 ;;=J1094^^39^346^6^^^^1
 ;;^UTILITY(U,$J,358.3,6331,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6331,1,2,0)
 ;;=2^Dexamethasone Acetate per 1mg
 ;;^UTILITY(U,$J,358.3,6331,1,3,0)
 ;;=3^J1094
 ;;^UTILITY(U,$J,358.3,6332,0)
 ;;=J3300^^39^346^18^^^^1
 ;;^UTILITY(U,$J,358.3,6332,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6332,1,2,0)
 ;;=2^Triescence per 1mg (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6332,1,3,0)
 ;;=3^J3300
 ;;^UTILITY(U,$J,358.3,6333,0)
 ;;=J3301^^39^346^10^^^^1
 ;;^UTILITY(U,$J,358.3,6333,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6333,1,2,0)
 ;;=2^Kenalog per 10mg
 ;;^UTILITY(U,$J,358.3,6333,1,3,0)
 ;;=3^J3301
 ;;^UTILITY(U,$J,358.3,6334,0)
 ;;=J3396^^39^346^20^^^^1
 ;;^UTILITY(U,$J,358.3,6334,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6334,1,2,0)
 ;;=2^Verteporfin/Visudyne per 0.1mg
 ;;^UTILITY(U,$J,358.3,6334,1,3,0)
 ;;=3^J3396
 ;;^UTILITY(U,$J,358.3,6335,0)
 ;;=J9035^^39^346^4^^^^1
 ;;^UTILITY(U,$J,358.3,6335,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6335,1,2,0)
 ;;=2^Bevacizumab 10mg (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6335,1,3,0)
 ;;=3^J9035
 ;;^UTILITY(U,$J,358.3,6336,0)
 ;;=J0178^^39^346^1^^^^1
 ;;^UTILITY(U,$J,358.3,6336,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6336,1,2,0)
 ;;=2^Aflibercept 1mg (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6336,1,3,0)
 ;;=3^J0178
 ;;^UTILITY(U,$J,358.3,6337,0)
 ;;=J7312^^39^346^7^^^^1
 ;;^UTILITY(U,$J,358.3,6337,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6337,1,2,0)
 ;;=2^Dexamethasone Intra Implant
 ;;^UTILITY(U,$J,358.3,6337,1,3,0)
 ;;=3^J7312
 ;;^UTILITY(U,$J,358.3,6338,0)
 ;;=J3301^^39^346^17^^^^1
 ;;^UTILITY(U,$J,358.3,6338,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6338,1,2,0)
 ;;=2^Triamcinolone Acetonide per 10mg (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6338,1,3,0)
 ;;=3^J3301
 ;;^UTILITY(U,$J,358.3,6339,0)
 ;;=J2778^^39^346^11^^^^1
 ;;^UTILITY(U,$J,358.3,6339,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6339,1,2,0)
 ;;=2^Ranibizumab per .01mg (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6339,1,3,0)
 ;;=3^J2778
 ;;^UTILITY(U,$J,358.3,6340,0)
 ;;=C9257^^39^346^3^^^^1
 ;;^UTILITY(U,$J,358.3,6340,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6340,1,2,0)
 ;;=2^Bevacizumab 0.25mg (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6340,1,3,0)
 ;;=3^C9257
 ;;^UTILITY(U,$J,358.3,6341,0)
 ;;=J0179^^39^346^2^^^^1
 ;;^UTILITY(U,$J,358.3,6341,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6341,1,2,0)
 ;;=2^Beovu (Brolucizumab-dbll) 1mg
 ;;^UTILITY(U,$J,358.3,6341,1,3,0)
 ;;=3^J0179
 ;;^UTILITY(U,$J,358.3,6342,0)
 ;;=Q5124^^39^346^5^^^^1
 ;;^UTILITY(U,$J,358.3,6342,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6342,1,2,0)
 ;;=2^Byooviz (Ranibizumab-nuna) 0.1mg
 ;;^UTILITY(U,$J,358.3,6342,1,3,0)
 ;;=3^Q5124
 ;;^UTILITY(U,$J,358.3,6343,0)
 ;;=J3590^^39^346^19^^^^1
 ;;^UTILITY(U,$J,358.3,6343,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6343,1,2,0)
 ;;=2^Vabysmo (faricmab-svoa)
 ;;^UTILITY(U,$J,358.3,6343,1,3,0)
 ;;=3^J3590
 ;;^UTILITY(U,$J,358.3,6344,0)
 ;;=J3299^^39^346^21^^^^1
 ;;^UTILITY(U,$J,358.3,6344,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6344,1,2,0)
 ;;=2^Xipere (Triamcinolone Acetonide Inj Suspension) 1mg
 ;;^UTILITY(U,$J,358.3,6344,1,3,0)
 ;;=3^J3299
 ;;^UTILITY(U,$J,358.3,6345,0)
 ;;=67028^^39^347^1^^^^1
 ;;^UTILITY(U,$J,358.3,6345,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6345,1,2,0)
 ;;=2^INTRAVITREAL EYE INJ-1 Eye/Unilateral
 ;;^UTILITY(U,$J,358.3,6345,1,3,0)
 ;;=3^67028
 ;;^UTILITY(U,$J,358.3,6346,0)
 ;;=J3301^^39^347^7^^^^1
 ;;^UTILITY(U,$J,358.3,6346,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6346,1,2,0)
 ;;=2^Triamcinolone/KENALOG (use w/ 68200)
 ;;^UTILITY(U,$J,358.3,6346,1,3,0)
 ;;=3^J3301
 ;;^UTILITY(U,$J,358.3,6347,0)
 ;;=J0178^^39^347^2^^^^1
 ;;^UTILITY(U,$J,358.3,6347,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6347,1,2,0)
 ;;=2^Aflib/EYLEA (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6347,1,3,0)
 ;;=3^J0178
 ;;^UTILITY(U,$J,358.3,6348,0)
 ;;=J7312^^39^347^14^^^^1
 ;;^UTILITY(U,$J,358.3,6348,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6348,1,2,0)
 ;;=2^Dexameth Implant/OZURDEX
 ;;^UTILITY(U,$J,358.3,6348,1,3,0)
 ;;=3^J7312
 ;;^UTILITY(U,$J,358.3,6349,0)
 ;;=J3300^^39^347^8^^^^1
 ;;^UTILITY(U,$J,358.3,6349,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6349,1,2,0)
 ;;=2^Triamcinolone/TRIESENCE (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6349,1,3,0)
 ;;=3^J3300
 ;;^UTILITY(U,$J,358.3,6350,0)
 ;;=64612^^39^347^10^^^^1
 ;;^UTILITY(U,$J,358.3,6350,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6350,1,2,0)
 ;;=2^Chemodenervation of Muscle Inj (eg,Botox),Unilat
 ;;^UTILITY(U,$J,358.3,6350,1,3,0)
 ;;=3^64612
 ;;^UTILITY(U,$J,358.3,6351,0)
 ;;=68200^^39^347^6^^^^1
 ;;^UTILITY(U,$J,358.3,6351,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6351,1,2,0)
 ;;=2^Subtenons Injection
 ;;^UTILITY(U,$J,358.3,6351,1,3,0)
 ;;=3^68200
 ;;^UTILITY(U,$J,358.3,6352,0)
 ;;=67505^^39^347^15^^^^1
 ;;^UTILITY(U,$J,358.3,6352,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6352,1,2,0)
 ;;=2^Retrobulbar Inj,Alcohol
 ;;^UTILITY(U,$J,358.3,6352,1,3,0)
 ;;=3^67505
 ;;^UTILITY(U,$J,358.3,6353,0)
 ;;=67500^^39^347^16^^^^1
 ;;^UTILITY(U,$J,358.3,6353,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6353,1,2,0)
 ;;=2^Retrobulbar Inj,Any Medication
 ;;^UTILITY(U,$J,358.3,6353,1,3,0)
 ;;=3^67500
 ;;^UTILITY(U,$J,358.3,6354,0)
 ;;=68200^^39^347^9^^^^1
 ;;^UTILITY(U,$J,358.3,6354,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6354,1,2,0)
 ;;=2^Subconjunctival Injection
 ;;^UTILITY(U,$J,358.3,6354,1,3,0)
 ;;=3^68200
 ;;^UTILITY(U,$J,358.3,6355,0)
 ;;=J0588^^39^347^13^^^^1
 ;;^UTILITY(U,$J,358.3,6355,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6355,1,2,0)
 ;;=2^Xeomin 1 Unit (use w/ 64612)
 ;;^UTILITY(U,$J,358.3,6355,1,3,0)
 ;;=3^J0588
 ;;^UTILITY(U,$J,358.3,6356,0)
 ;;=J0587^^39^347^11^^^^1
 ;;^UTILITY(U,$J,358.3,6356,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6356,1,2,0)
 ;;=2^Myobloc 100 Units (use with 64612)
 ;;^UTILITY(U,$J,358.3,6356,1,3,0)
 ;;=3^J0587
 ;;^UTILITY(U,$J,358.3,6357,0)
 ;;=J0585^^39^347^12^^^^1
 ;;^UTILITY(U,$J,358.3,6357,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6357,1,2,0)
 ;;=2^Botox 1 Unit (use w/ 64612)
 ;;^UTILITY(U,$J,358.3,6357,1,3,0)
 ;;=3^J0585
 ;;^UTILITY(U,$J,358.3,6358,0)
 ;;=J2778^^39^347^3^^^^1
 ;;^UTILITY(U,$J,358.3,6358,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6358,1,2,0)
 ;;=2^Ranibiz/LUCENTIS (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6358,1,3,0)
 ;;=3^J2778
 ;;^UTILITY(U,$J,358.3,6359,0)
 ;;=C9257^^39^347^4^^^^1
 ;;^UTILITY(U,$J,358.3,6359,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6359,1,2,0)
 ;;=2^Bevaciz/AVASTIN (use w/ 67028)
 ;;^UTILITY(U,$J,358.3,6359,1,3,0)
 ;;=3^C9257
 ;;^UTILITY(U,$J,358.3,6360,0)
 ;;=67028^^39^347^5^^^^1
 ;;^UTILITY(U,$J,358.3,6360,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6360,1,2,0)
 ;;=2^INTRAVITREAL EYE INJ-2 Eye/Bilateral
 ;;^UTILITY(U,$J,358.3,6360,1,3,0)
 ;;=3^67028
 ;;^UTILITY(U,$J,358.3,6360,3,0)
 ;;=^357.33^1^1
 ;;^UTILITY(U,$J,358.3,6360,3,1,0)
 ;;=50
 ;;^UTILITY(U,$J,358.3,6361,0)
 ;;=92134^^39^348^4^^^^1
 ;;^UTILITY(U,$J,358.3,6361,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6361,1,2,0)
 ;;=2^OCT Macula (retina)
 ;;^UTILITY(U,$J,358.3,6361,1,3,0)
 ;;=3^92134
 ;;^UTILITY(U,$J,358.3,6362,0)
 ;;=92133^^39^348^5^^^^1
 ;;^UTILITY(U,$J,358.3,6362,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6362,1,2,0)
 ;;=2^OCT RNFL (optic nerve)
 ;;^UTILITY(U,$J,358.3,6362,1,3,0)
 ;;=3^92133
 ;;^UTILITY(U,$J,358.3,6363,0)
 ;;=92132^^39^348^6^^^^1
 ;;^UTILITY(U,$J,358.3,6363,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6363,1,2,0)
 ;;=2^OCT Anterior Segment (angle)
 ;;^UTILITY(U,$J,358.3,6363,1,3,0)
 ;;=3^92132
 ;;^UTILITY(U,$J,358.3,6364,0)
 ;;=92250^^39^348^2^^^^1
 ;;^UTILITY(U,$J,358.3,6364,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6364,1,2,0)
 ;;=2^Fundus Photos
 ;;^UTILITY(U,$J,358.3,6364,1,3,0)
 ;;=3^92250
 ;;^UTILITY(U,$J,358.3,6365,0)
 ;;=92235^^39^348^3^^^^1
 ;;^UTILITY(U,$J,358.3,6365,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6365,1,2,0)
 ;;=2^Fluorescein Angiography,Unilat or Bilat
 ;;^UTILITY(U,$J,358.3,6365,1,3,0)
 ;;=3^92235
 ;;^UTILITY(U,$J,358.3,6366,0)
 ;;=92240^^39^348^7^^^^1
 ;;^UTILITY(U,$J,358.3,6366,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6366,1,2,0)
 ;;=2^ICG Angiography,Unilat or Bilat
 ;;^UTILITY(U,$J,358.3,6366,1,3,0)
 ;;=3^92240
 ;;^UTILITY(U,$J,358.3,6367,0)
 ;;=92285^^39^348^1^^^^1
 ;;^UTILITY(U,$J,358.3,6367,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6367,1,2,0)
 ;;=2^External or Slit Lamp Photos
 ;;^UTILITY(U,$J,358.3,6367,1,3,0)
 ;;=3^92285
 ;;^UTILITY(U,$J,358.3,6368,0)
 ;;=76514^^39^348^9^^^^1
 ;;^UTILITY(U,$J,358.3,6368,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6368,1,2,0)
 ;;=2^Pachymetry (corneal thickness)
 ;;^UTILITY(U,$J,358.3,6368,1,3,0)
 ;;=3^76514
 ;;^UTILITY(U,$J,358.3,6369,0)
 ;;=92025^^39^348^10^^^^1
 ;;^UTILITY(U,$J,358.3,6369,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6369,1,2,0)
 ;;=2^Topography (cornea),Unilat or Bilat
 ;;^UTILITY(U,$J,358.3,6369,1,3,0)
 ;;=3^92025
 ;;^UTILITY(U,$J,358.3,6370,0)
 ;;=92242^^39^348^8^^^^1
 ;;^UTILITY(U,$J,358.3,6370,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6370,1,2,0)
 ;;=2^Fluorescein & ICG Angiography,Unilat or Bilat
 ;;^UTILITY(U,$J,358.3,6370,1,3,0)
 ;;=3^92242
 ;;^UTILITY(U,$J,358.3,6371,0)
 ;;=92286^^39^348^11^^^^1
 ;;^UTILITY(U,$J,358.3,6371,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6371,1,2,0)
 ;;=2^Specular Microscopy
 ;;^UTILITY(U,$J,358.3,6371,1,3,0)
 ;;=3^92286
 ;;^UTILITY(U,$J,358.3,6372,0)
 ;;=S3000^^39^348^12^^^^1
 ;;^UTILITY(U,$J,358.3,6372,1,0)
 ;;=^358.31IA^3^1
 ;;^UTILITY(U,$J,358.3,6372,1,3,0)
 ;;=3^S3000
 ;;^UTILITY(U,$J,358.3,6373,0)
 ;;=92311^^39^349^11^^^^1
 ;;^UTILITY(U,$J,358.3,6373,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6373,1,2,0)
 ;;=2^Contact Lens-Aphakia OD/OS
 ;;^UTILITY(U,$J,358.3,6373,1,3,0)
 ;;=3^92311
 ;;^UTILITY(U,$J,358.3,6374,0)
 ;;=92312^^39^349^12^^^^1
 ;;^UTILITY(U,$J,358.3,6374,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6374,1,2,0)
 ;;=2^Contact Lens-Aphakia OU
 ;;^UTILITY(U,$J,358.3,6374,1,3,0)
 ;;=3^92312
 ;;^UTILITY(U,$J,358.3,6375,0)
 ;;=92340^^39^349^5^^^^1
 ;;^UTILITY(U,$J,358.3,6375,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6375,1,2,0)
 ;;=2^Glasses Fitting, Monofocal
 ;;^UTILITY(U,$J,358.3,6375,1,3,0)
 ;;=3^92340
 ;;^UTILITY(U,$J,358.3,6376,0)
 ;;=92341^^39^349^4^^^^1
 ;;^UTILITY(U,$J,358.3,6376,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6376,1,2,0)
 ;;=2^Glasses Fitting, Bifocal
 ;;^UTILITY(U,$J,358.3,6376,1,3,0)
 ;;=3^92341
 ;;^UTILITY(U,$J,358.3,6377,0)
 ;;=92342^^39^349^7^^^^1
 ;;^UTILITY(U,$J,358.3,6377,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6377,1,2,0)
 ;;=2^Glasses Fitting, Multifocal
 ;;^UTILITY(U,$J,358.3,6377,1,3,0)
 ;;=3^92342
 ;;^UTILITY(U,$J,358.3,6378,0)
 ;;=92352^^39^349^6^^^^1
 ;;^UTILITY(U,$J,358.3,6378,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6378,1,2,0)
 ;;=2^Glasses Fitting, Monofocal for Aphakia
 ;;^UTILITY(U,$J,358.3,6378,1,3,0)
 ;;=3^92352
 ;;^UTILITY(U,$J,358.3,6379,0)
 ;;=92353^^39^349^8^^^^1
 ;;^UTILITY(U,$J,358.3,6379,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6379,1,2,0)
 ;;=2^Glasses Fitting, Multifocal, for Aphakia
 ;;^UTILITY(U,$J,358.3,6379,1,3,0)
 ;;=3^92353
 ;;^UTILITY(U,$J,358.3,6380,0)
 ;;=92354^^39^349^13^^^^1
 ;;^UTILITY(U,$J,358.3,6380,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6380,1,2,0)
 ;;=2^Low Vision Aid Fitting, Single Element
 ;;^UTILITY(U,$J,358.3,6380,1,3,0)
 ;;=3^92354
 ;;^UTILITY(U,$J,358.3,6381,0)
 ;;=92355^^39^349^14^^^^1
 ;;^UTILITY(U,$J,358.3,6381,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6381,1,2,0)
 ;;=2^Low Vision Aid Fitting, Telescopic/Compound Lens
 ;;^UTILITY(U,$J,358.3,6381,1,3,0)
 ;;=3^92355
 ;;^UTILITY(U,$J,358.3,6382,0)
 ;;=92370^^39^349^3^^^^1
 ;;^UTILITY(U,$J,358.3,6382,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6382,1,2,0)
 ;;=2^Repair/Refit Glasses
 ;;^UTILITY(U,$J,358.3,6382,1,3,0)
 ;;=3^92370
 ;;^UTILITY(U,$J,358.3,6383,0)
 ;;=92371^^39^349^9^^^^1
 ;;^UTILITY(U,$J,358.3,6383,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6383,1,2,0)
 ;;=2^Repair/Refit Glasses for Aphakia
 ;;^UTILITY(U,$J,358.3,6383,1,3,0)
 ;;=3^92371
 ;;^UTILITY(U,$J,358.3,6384,0)
 ;;=92071^^39^349^10^^^^1
 ;;^UTILITY(U,$J,358.3,6384,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6384,1,2,0)
 ;;=2^Contact Lens Tx for Ocular Disease
 ;;^UTILITY(U,$J,358.3,6384,1,3,0)
 ;;=3^92071
 ;;^UTILITY(U,$J,358.3,6385,0)
 ;;=92072^^39^349^15^^^^1
 ;;^UTILITY(U,$J,358.3,6385,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6385,1,2,0)
 ;;=2^Contact Lens Mgmt Keratoconus,Init
 ;;^UTILITY(U,$J,358.3,6385,1,3,0)
 ;;=3^92072
 ;;^UTILITY(U,$J,358.3,6386,0)
 ;;=92015^^39^349^1^^^^1
 ;;^UTILITY(U,$J,358.3,6386,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6386,1,2,0)
 ;;=2^Refraction
 ;;^UTILITY(U,$J,358.3,6386,1,3,0)
 ;;=3^92015
 ;;^UTILITY(U,$J,358.3,6387,0)
 ;;=99174^^39^349^2^^^^1
 ;;^UTILITY(U,$J,358.3,6387,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6387,1,2,0)
 ;;=2^Autorefraction,Bilateral
 ;;^UTILITY(U,$J,358.3,6387,1,3,0)
 ;;=3^99174
 ;;^UTILITY(U,$J,358.3,6388,0)
 ;;=92310^^39^349^16^^^^1
 ;;^UTILITY(U,$J,358.3,6388,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6388,1,2,0)
 ;;=2^Contact Lens Fitting,OD/OS
 ;;^UTILITY(U,$J,358.3,6388,1,3,0)
 ;;=3^92310
 ;;^UTILITY(U,$J,358.3,6389,0)
 ;;=99070^^39^349^17^^^^1
 ;;^UTILITY(U,$J,358.3,6389,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6389,1,2,0)
 ;;=2^Special Supplies by Phys
 ;;^UTILITY(U,$J,358.3,6389,1,3,0)
 ;;=3^99070
 ;;^UTILITY(U,$J,358.3,6390,0)
 ;;=V2513^^39^349^18^^^^1
 ;;^UTILITY(U,$J,358.3,6390,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6390,1,2,0)
 ;;=2^Gas-Permeable Lens,Ext Wear,Per Lens
 ;;^UTILITY(U,$J,358.3,6390,1,3,0)
 ;;=3^V2513
 ;;^UTILITY(U,$J,358.3,6391,0)
 ;;=V2523^^39^349^19^^^^1
 ;;^UTILITY(U,$J,358.3,6391,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6391,1,2,0)
 ;;=2^Hydrophilic Contact Lens,Ext Wear,Per Lens
 ;;^UTILITY(U,$J,358.3,6391,1,3,0)
 ;;=3^V2523
 ;;^UTILITY(U,$J,358.3,6392,0)
 ;;=V2530^^39^349^20^^^^1
 ;;^UTILITY(U,$J,358.3,6392,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6392,1,2,0)
 ;;=2^Hybrid Contact Lens,Per Lens
 ;;^UTILITY(U,$J,358.3,6392,1,3,0)
 ;;=3^V2530
 ;;^UTILITY(U,$J,358.3,6393,0)
 ;;=V2531^^39^349^21^^^^1
 ;;^UTILITY(U,$J,358.3,6393,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6393,1,2,0)
 ;;=2^Gas-Permeable Scleral Lens,Per Lens
 ;;^UTILITY(U,$J,358.3,6393,1,3,0)
 ;;=3^V2531
 ;;^UTILITY(U,$J,358.3,6394,0)
 ;;=V2599^^39^349^22^^^^1
 ;;^UTILITY(U,$J,358.3,6394,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6394,1,2,0)
 ;;=2^Contact Lens,Oth Type,Per Lens
 ;;^UTILITY(U,$J,358.3,6394,1,3,0)
 ;;=3^V2599
 ;;^UTILITY(U,$J,358.3,6395,0)
 ;;=92015^^39^350^2^^^^1
 ;;^UTILITY(U,$J,358.3,6395,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6395,1,2,0)
 ;;=2^Refraction
 ;;^UTILITY(U,$J,358.3,6395,1,3,0)
 ;;=3^92015
 ;;^UTILITY(U,$J,358.3,6396,0)
 ;;=92025^^39^350^3^^^^1
 ;;^UTILITY(U,$J,358.3,6396,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6396,1,2,0)
 ;;=2^Topography (cornea)
 ;;^UTILITY(U,$J,358.3,6396,1,3,0)
 ;;=3^92025
 ;;^UTILITY(U,$J,358.3,6397,0)
 ;;=76511^^39^350^6^^^^1
 ;;^UTILITY(U,$J,358.3,6397,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6397,1,2,0)
 ;;=2^U/S A-Scan Only
 ;;^UTILITY(U,$J,358.3,6397,1,3,0)
 ;;=3^76511
 ;;^UTILITY(U,$J,358.3,6398,0)
 ;;=76512^^39^350^7^^^^1
 ;;^UTILITY(U,$J,358.3,6398,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6398,1,2,0)
 ;;=2^U/S B-Scan Only
 ;;^UTILITY(U,$J,358.3,6398,1,3,0)
 ;;=3^76512
 ;;^UTILITY(U,$J,358.3,6399,0)
 ;;=76513^^39^350^8^^^^1
 ;;^UTILITY(U,$J,358.3,6399,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6399,1,2,0)
 ;;=2^U/S B-Scan,Ant Seg,Water Immersion
 ;;^UTILITY(U,$J,358.3,6399,1,3,0)
 ;;=3^76513
 ;;^UTILITY(U,$J,358.3,6400,0)
 ;;=92020^^39^350^11^^^^1
 ;;^UTILITY(U,$J,358.3,6400,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6400,1,2,0)
 ;;=2^Gonioscopy
 ;;^UTILITY(U,$J,358.3,6400,1,3,0)
 ;;=3^92020
 ;;^UTILITY(U,$J,358.3,6401,0)
 ;;=92499^^39^350^12^^^^1
 ;;^UTILITY(U,$J,358.3,6401,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6401,1,2,0)
 ;;=2^Hertel's Exophthalmometry
 ;;^UTILITY(U,$J,358.3,6401,1,3,0)
 ;;=3^92499
 ;;^UTILITY(U,$J,358.3,6402,0)
 ;;=99174^^39^350^1^^^^1
 ;;^UTILITY(U,$J,358.3,6402,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6402,1,2,0)
 ;;=2^Autorefraction,Bilateral
 ;;^UTILITY(U,$J,358.3,6402,1,3,0)
 ;;=3^99174
 ;;^UTILITY(U,$J,358.3,6403,0)
 ;;=92136^^39^350^4^^^^1
 ;;^UTILITY(U,$J,358.3,6403,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6403,1,2,0)
 ;;=2^IOL Calc Biometry-Optical
 ;;^UTILITY(U,$J,358.3,6403,1,3,0)
 ;;=3^92136
 ;;^UTILITY(U,$J,358.3,6404,0)
 ;;=76519^^39^350^5^^^^1
 ;;^UTILITY(U,$J,358.3,6404,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6404,1,2,0)
 ;;=2^IOL Calc w/ A-Scan U/S
 ;;^UTILITY(U,$J,358.3,6404,1,3,0)
 ;;=3^76519
 ;;^UTILITY(U,$J,358.3,6405,0)
 ;;=92132^^39^350^9^^^^1
 ;;^UTILITY(U,$J,358.3,6405,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6405,1,2,0)
 ;;=2^OCT Anterior Segment (angle or cornea)
 ;;^UTILITY(U,$J,358.3,6405,1,3,0)
 ;;=3^92132
 ;;^UTILITY(U,$J,358.3,6406,0)
 ;;=92286^^39^350^10^^^^1
 ;;^UTILITY(U,$J,358.3,6406,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6406,1,2,0)
 ;;=2^Specular Microscopy
 ;;^UTILITY(U,$J,358.3,6406,1,3,0)
 ;;=3^92286
 ;;^UTILITY(U,$J,358.3,6407,0)
 ;;=92250^^39^351^1^^^^1
 ;;^UTILITY(U,$J,358.3,6407,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,6407,1,2,0)
 ;;=2^Fundus Photos
 ;;^UTILITY(U,$J,358.3,6407,1,3,0)
 ;;=3^92250