IBDEI02O ; ; 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,6240,1,2,0)
;;=2^99245
;;^UTILITY(U,$J,358.3,6241,0)
;;=92012^^38^333^1
;;^UTILITY(U,$J,358.3,6241,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6241,1,1,0)
;;=1^Intermediate Eye Exam, Established
;;^UTILITY(U,$J,358.3,6241,1,2,0)
;;=2^92012
;;^UTILITY(U,$J,358.3,6241,3,0)
;;=^357.33
;;^UTILITY(U,$J,358.3,6242,0)
;;=92014^^38^333^3
;;^UTILITY(U,$J,358.3,6242,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6242,1,1,0)
;;=1^Comprehensive Exam, Estab
;;^UTILITY(U,$J,358.3,6242,1,2,0)
;;=2^92014
;;^UTILITY(U,$J,358.3,6243,0)
;;=92002^^38^333^2
;;^UTILITY(U,$J,358.3,6243,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6243,1,1,0)
;;=1^Intermediate Eye Exam, New Pt
;;^UTILITY(U,$J,358.3,6243,1,2,0)
;;=2^92002
;;^UTILITY(U,$J,358.3,6244,0)
;;=92004^^38^333^4
;;^UTILITY(U,$J,358.3,6244,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6244,1,1,0)
;;=1^Comprehensive Exam, New Pt
;;^UTILITY(U,$J,358.3,6244,1,2,0)
;;=2^92004
;;^UTILITY(U,$J,358.3,6245,0)
;;=99024^^38^333^5
;;^UTILITY(U,$J,358.3,6245,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6245,1,1,0)
;;=1^Post-Op Follow-Up Visit (90d)
;;^UTILITY(U,$J,358.3,6245,1,2,0)
;;=2^99024
;;^UTILITY(U,$J,358.3,6246,0)
;;=99251^^38^334^1
;;^UTILITY(U,$J,358.3,6246,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6246,1,1,0)
;;=1^PROBLEM FOCUSED HX & EXAM;SF MDM
;;^UTILITY(U,$J,358.3,6246,1,2,0)
;;=2^99251
;;^UTILITY(U,$J,358.3,6247,0)
;;=99252^^38^334^2
;;^UTILITY(U,$J,358.3,6247,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6247,1,1,0)
;;=1^EXPAN PROB FOCUS HX & EXAM;SF MDM
;;^UTILITY(U,$J,358.3,6247,1,2,0)
;;=2^99252
;;^UTILITY(U,$J,358.3,6248,0)
;;=99253^^38^334^3
;;^UTILITY(U,$J,358.3,6248,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6248,1,1,0)
;;=1^DETAILED HX & EXAM;LOW COMPLEX MDM
;;^UTILITY(U,$J,358.3,6248,1,2,0)
;;=2^99253
;;^UTILITY(U,$J,358.3,6249,0)
;;=99254^^38^334^4
;;^UTILITY(U,$J,358.3,6249,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6249,1,1,0)
;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
;;^UTILITY(U,$J,358.3,6249,1,2,0)
;;=2^99254
;;^UTILITY(U,$J,358.3,6250,0)
;;=99255^^38^334^5
;;^UTILITY(U,$J,358.3,6250,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6250,1,1,0)
;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
;;^UTILITY(U,$J,358.3,6250,1,2,0)
;;=2^99255
;;^UTILITY(U,$J,358.3,6251,0)
;;=99221^^38^335^1
;;^UTILITY(U,$J,358.3,6251,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6251,1,1,0)
;;=1^DETAILED OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
;;^UTILITY(U,$J,358.3,6251,1,2,0)
;;=2^99221
;;^UTILITY(U,$J,358.3,6252,0)
;;=99222^^38^335^2
;;^UTILITY(U,$J,358.3,6252,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6252,1,1,0)
;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
;;^UTILITY(U,$J,358.3,6252,1,2,0)
;;=2^99222
;;^UTILITY(U,$J,358.3,6253,0)
;;=99223^^38^335^3
;;^UTILITY(U,$J,358.3,6253,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6253,1,1,0)
;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
;;^UTILITY(U,$J,358.3,6253,1,2,0)
;;=2^99223
;;^UTILITY(U,$J,358.3,6254,0)
;;=99231^^38^336^1
;;^UTILITY(U,$J,358.3,6254,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6254,1,1,0)
;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
;;^UTILITY(U,$J,358.3,6254,1,2,0)
;;=2^99231
;;^UTILITY(U,$J,358.3,6255,0)
;;=99232^^38^336^2
;;^UTILITY(U,$J,358.3,6255,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6255,1,1,0)
;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
;;^UTILITY(U,$J,358.3,6255,1,2,0)
;;=2^99232
;;^UTILITY(U,$J,358.3,6256,0)
;;=99233^^38^336^3
;;^UTILITY(U,$J,358.3,6256,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6256,1,1,0)
;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
;;^UTILITY(U,$J,358.3,6256,1,2,0)
;;=2^99233
;;^UTILITY(U,$J,358.3,6257,0)
;;=99238^^38^337^1
;;^UTILITY(U,$J,358.3,6257,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6257,1,1,0)
;;=1^DISCHARGE DAY MGMT 30 MIN OR <
;;^UTILITY(U,$J,358.3,6257,1,2,0)
;;=2^99238
;;^UTILITY(U,$J,358.3,6258,0)
;;=99239^^38^337^2
;;^UTILITY(U,$J,358.3,6258,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6258,1,1,0)
;;=1^DISCHARGE DAY MGMT > 30MIN
;;^UTILITY(U,$J,358.3,6258,1,2,0)
;;=2^99239
;;^UTILITY(U,$J,358.3,6259,0)
;;=99218^^38^338^1
;;^UTILITY(U,$J,358.3,6259,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6259,1,1,0)
;;=1^DETAILED OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
;;^UTILITY(U,$J,358.3,6259,1,2,0)
;;=2^99218
;;^UTILITY(U,$J,358.3,6260,0)
;;=99219^^38^338^2
;;^UTILITY(U,$J,358.3,6260,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6260,1,1,0)
;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
;;^UTILITY(U,$J,358.3,6260,1,2,0)
;;=2^99219
;;^UTILITY(U,$J,358.3,6261,0)
;;=99220^^38^338^3
;;^UTILITY(U,$J,358.3,6261,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6261,1,1,0)
;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
;;^UTILITY(U,$J,358.3,6261,1,2,0)
;;=2^99220
;;^UTILITY(U,$J,358.3,6262,0)
;;=99224^^38^339^1
;;^UTILITY(U,$J,358.3,6262,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6262,1,1,0)
;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
;;^UTILITY(U,$J,358.3,6262,1,2,0)
;;=2^99224
;;^UTILITY(U,$J,358.3,6263,0)
;;=99225^^38^339^2
;;^UTILITY(U,$J,358.3,6263,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6263,1,1,0)
;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
;;^UTILITY(U,$J,358.3,6263,1,2,0)
;;=2^99225
;;^UTILITY(U,$J,358.3,6264,0)
;;=99226^^38^339^3
;;^UTILITY(U,$J,358.3,6264,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6264,1,1,0)
;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
;;^UTILITY(U,$J,358.3,6264,1,2,0)
;;=2^99226
;;^UTILITY(U,$J,358.3,6265,0)
;;=99217^^38^340^1
;;^UTILITY(U,$J,358.3,6265,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6265,1,1,0)
;;=1^DISCHARGE DAY MGMT
;;^UTILITY(U,$J,358.3,6265,1,2,0)
;;=2^99217
;;^UTILITY(U,$J,358.3,6266,0)
;;=99234^^38^341^1
;;^UTILITY(U,$J,358.3,6266,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6266,1,1,0)
;;=1^DETAIL OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
;;^UTILITY(U,$J,358.3,6266,1,2,0)
;;=2^99234
;;^UTILITY(U,$J,358.3,6267,0)
;;=99235^^38^341^2
;;^UTILITY(U,$J,358.3,6267,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6267,1,1,0)
;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
;;^UTILITY(U,$J,358.3,6267,1,2,0)
;;=2^99235
;;^UTILITY(U,$J,358.3,6268,0)
;;=99236^^38^341^3
;;^UTILITY(U,$J,358.3,6268,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,6268,1,1,0)
;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
;;^UTILITY(U,$J,358.3,6268,1,2,0)
;;=2^99236
;;^UTILITY(U,$J,358.3,6269,0)
;;=67800^^39^343^1^^^^1
;;^UTILITY(U,$J,358.3,6269,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6269,1,2,0)
;;=2^Chalazion Excision,Single,Single Lid
;;^UTILITY(U,$J,358.3,6269,1,3,0)
;;=3^67800
;;^UTILITY(U,$J,358.3,6270,0)
;;=67700^^39^343^6^^^^1
;;^UTILITY(U,$J,358.3,6270,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6270,1,2,0)
;;=2^Cyst,Eyelid,Drainage
;;^UTILITY(U,$J,358.3,6270,1,3,0)
;;=3^67700
;;^UTILITY(U,$J,358.3,6271,0)
;;=67825^^39^343^11^^^^1
;;^UTILITY(U,$J,358.3,6271,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6271,1,2,0)
;;=2^Epilation - Electrosurgical,Cryotherapy
;;^UTILITY(U,$J,358.3,6271,1,3,0)
;;=3^67825
;;^UTILITY(U,$J,358.3,6272,0)
;;=67820^^39^343^10^^^^1
;;^UTILITY(U,$J,358.3,6272,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6272,1,2,0)
;;=2^Epilation - Forceps
;;^UTILITY(U,$J,358.3,6272,1,3,0)
;;=3^67820
;;^UTILITY(U,$J,358.3,6273,0)
;;=67810^^39^343^12^^^^1
;;^UTILITY(U,$J,358.3,6273,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6273,1,2,0)
;;=2^Eyelid Lesion,Biopsy
;;^UTILITY(U,$J,358.3,6273,1,3,0)
;;=3^67810
;;^UTILITY(U,$J,358.3,6274,0)
;;=67850^^39^343^14^^^^1
;;^UTILITY(U,$J,358.3,6274,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6274,1,2,0)
;;=2^Eyelid Lesion,Destruction,<1cm
;;^UTILITY(U,$J,358.3,6274,1,3,0)
;;=3^67850
;;^UTILITY(U,$J,358.3,6275,0)
;;=67840^^39^343^13^^^^1
;;^UTILITY(U,$J,358.3,6275,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6275,1,2,0)
;;=2^Eyelid Lesion,Excision,Simple
;;^UTILITY(U,$J,358.3,6275,1,3,0)
;;=3^67840
;;^UTILITY(U,$J,358.3,6276,0)
;;=67930^^39^343^15^^^^1
;;^UTILITY(U,$J,358.3,6276,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6276,1,2,0)
;;=2^Eyelid Wound Repair,Partial Thickness
;;^UTILITY(U,$J,358.3,6276,1,3,0)
;;=3^67930
;;^UTILITY(U,$J,358.3,6277,0)
;;=68020^^39^343^5^^^^1
;;^UTILITY(U,$J,358.3,6277,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6277,1,2,0)
;;=2^Cyst,Conjunctival,I&D
;;^UTILITY(U,$J,358.3,6277,1,3,0)
;;=3^68020
;;^UTILITY(U,$J,358.3,6278,0)
;;=67710^^39^343^18^^^^1
;;^UTILITY(U,$J,358.3,6278,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6278,1,2,0)
;;=2^Severing of Tarsorrhaphy
;;^UTILITY(U,$J,358.3,6278,1,3,0)
;;=3^67710
;;^UTILITY(U,$J,358.3,6279,0)
;;=67715^^39^343^19^^^^1
;;^UTILITY(U,$J,358.3,6279,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6279,1,2,0)
;;=2^Canthotomy
;;^UTILITY(U,$J,358.3,6279,1,3,0)
;;=3^67715
;;^UTILITY(U,$J,358.3,6280,0)
;;=68760^^39^343^9^^^^1
;;^UTILITY(U,$J,358.3,6280,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6280,1,2,0)
;;=2^Lacrimal Punctum,Closure
;;^UTILITY(U,$J,358.3,6280,1,3,0)
;;=3^68760
;;^UTILITY(U,$J,358.3,6281,0)
;;=68761^^39^343^7^^^^1
;;^UTILITY(U,$J,358.3,6281,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6281,1,2,0)
;;=2^Punctal Plug,Lacrimal Insert,Each
;;^UTILITY(U,$J,358.3,6281,1,3,0)
;;=3^68761
;;^UTILITY(U,$J,358.3,6282,0)
;;=68801^^39^343^8^^^^1
;;^UTILITY(U,$J,358.3,6282,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6282,1,2,0)
;;=2^Lacrimal Punctum,Dilate +/- Irrigation
;;^UTILITY(U,$J,358.3,6282,1,3,0)
;;=3^68801
;;^UTILITY(U,$J,358.3,6283,0)
;;=37609^^39^343^20^^^^1
;;^UTILITY(U,$J,358.3,6283,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6283,1,2,0)
;;=2^Temporal Artery Biopsy
;;^UTILITY(U,$J,358.3,6283,1,3,0)
;;=3^37609
;;^UTILITY(U,$J,358.3,6284,0)
;;=67805^^39^343^3^^^^1
;;^UTILITY(U,$J,358.3,6284,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6284,1,2,0)
;;=2^Chalazion Excision,Multiple,Different Lids
;;^UTILITY(U,$J,358.3,6284,1,3,0)
;;=3^67805
;;^UTILITY(U,$J,358.3,6285,0)
;;=67801^^39^343^2^^^^1
;;^UTILITY(U,$J,358.3,6285,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6285,1,2,0)
;;=2^Chalazion Excision,Multiple,Same Lid
;;^UTILITY(U,$J,358.3,6285,1,3,0)
;;=3^67801
;;^UTILITY(U,$J,358.3,6286,0)
;;=67900^^39^343^17^^^^1
;;^UTILITY(U,$J,358.3,6286,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6286,1,2,0)
;;=2^Brow Ptosis Repair
;;^UTILITY(U,$J,358.3,6286,1,3,0)
;;=3^67900
;;^UTILITY(U,$J,358.3,6287,0)
;;=68110^^39^343^4^^^^1
;;^UTILITY(U,$J,358.3,6287,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6287,1,2,0)
;;=2^Conjunctival Lesion,Exc,Palp/Blubar Conjunctiva
;;^UTILITY(U,$J,358.3,6287,1,3,0)
;;=3^68110
;;^UTILITY(U,$J,358.3,6288,0)
;;=67935^^39^343^16^^^^1
;;^UTILITY(U,$J,358.3,6288,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6288,1,2,0)
;;=2^Eyelid Wound Repair,Full Thickness
;;^UTILITY(U,$J,358.3,6288,1,3,0)
;;=3^67935
;;^UTILITY(U,$J,358.3,6289,0)
;;=65855^^39^344^6^^^^1
;;^UTILITY(U,$J,358.3,6289,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6289,1,2,0)
;;=2^Trabeculoplasty (ALT/SLT),1/more session
;;^UTILITY(U,$J,358.3,6289,1,3,0)
;;=3^65855
;;^UTILITY(U,$J,358.3,6290,0)
;;=65860^^39^344^4^^^^1
;;^UTILITY(U,$J,358.3,6290,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6290,1,2,0)
;;=2^YAG Lysis of Adhesions in AC
;;^UTILITY(U,$J,358.3,6290,1,3,0)
;;=3^65860
;;^UTILITY(U,$J,358.3,6291,0)
;;=66761^^39^344^1^^^^1
;;^UTILITY(U,$J,358.3,6291,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6291,1,2,0)
;;=2^Iridotomy/Iridectomy,1/more session
;;^UTILITY(U,$J,358.3,6291,1,3,0)
;;=3^66761
;;^UTILITY(U,$J,358.3,6292,0)
;;=66762^^39^344^2^^^^1
;;^UTILITY(U,$J,358.3,6292,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6292,1,2,0)
;;=2^Iridoplasty,1/more sessions
;;^UTILITY(U,$J,358.3,6292,1,3,0)
;;=3^66762
;;^UTILITY(U,$J,358.3,6293,0)
;;=67105^^39^344^8^^^^1
;;^UTILITY(U,$J,358.3,6293,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6293,1,2,0)
;;=2^Retinal Detach Photocoagulation
;;^UTILITY(U,$J,358.3,6293,1,3,0)
;;=3^67105
;;^UTILITY(U,$J,358.3,6294,0)
;;=67145^^39^344^7^^^^1
;;^UTILITY(U,$J,358.3,6294,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6294,1,2,0)
;;=2^Retinal Tear-Laser
;;^UTILITY(U,$J,358.3,6294,1,3,0)
;;=3^67145
;;^UTILITY(U,$J,358.3,6295,0)
;;=67210^^39^344^10^^^^1
;;^UTILITY(U,$J,358.3,6295,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6295,1,2,0)
;;=2^Focal Laser (Macula),1/more session
;;^UTILITY(U,$J,358.3,6295,1,3,0)
;;=3^67210
;;^UTILITY(U,$J,358.3,6296,0)
;;=67228^^39^344^11^^^^1
;;^UTILITY(U,$J,358.3,6296,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6296,1,2,0)
;;=2^PRP Laser (Retinopathy),1/more session
;;^UTILITY(U,$J,358.3,6296,1,3,0)
;;=3^67228
;;^UTILITY(U,$J,358.3,6297,0)
;;=67220^^39^344^15^^^^1
;;^UTILITY(U,$J,358.3,6297,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6297,1,2,0)
;;=2^Choroidal Lesion-Laser
;;^UTILITY(U,$J,358.3,6297,1,3,0)
;;=3^67220
;;^UTILITY(U,$J,358.3,6298,0)
;;=67221^^39^344^16^^^^1
;;^UTILITY(U,$J,358.3,6298,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6298,1,2,0)
;;=2^Photodynamic Therapy,1/more session
;;^UTILITY(U,$J,358.3,6298,1,3,0)
;;=3^67221
;;^UTILITY(U,$J,358.3,6299,0)
;;=67225^^39^344^17^^^^1
;;^UTILITY(U,$J,358.3,6299,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6299,1,2,0)
;;=2^Photodynamic Therapy,2nd eye/1 session
;;^UTILITY(U,$J,358.3,6299,1,3,0)
;;=3^67225
;;^UTILITY(U,$J,358.3,6300,0)
;;=66821^^39^344^3^^^^1
;;^UTILITY(U,$J,358.3,6300,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6300,1,2,0)
;;=2^YAG Capsulotomy
;;^UTILITY(U,$J,358.3,6300,1,3,0)
;;=3^66821
;;^UTILITY(U,$J,358.3,6301,0)
;;=66999^^39^344^5^^^^1
;;^UTILITY(U,$J,358.3,6301,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6301,1,2,0)
;;=2^YAG Suture Lysis
;;^UTILITY(U,$J,358.3,6301,1,3,0)
;;=3^66999
;;^UTILITY(U,$J,358.3,6302,0)
;;=67110^^39^344^9^^^^1
;;^UTILITY(U,$J,358.3,6302,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6302,1,2,0)
;;=2^Retinal Detach-Pneumatic Retinopexy
;;^UTILITY(U,$J,358.3,6302,1,3,0)
;;=3^67110
;;^UTILITY(U,$J,358.3,6303,0)
;;=67141^^39^344^12^^^^1
;;^UTILITY(U,$J,358.3,6303,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6303,1,2,0)
;;=2^Retinal Tear-Cryotherapy
;;^UTILITY(U,$J,358.3,6303,1,3,0)
;;=3^67141
;;^UTILITY(U,$J,358.3,6304,0)
;;=67101^^39^344^13^^^^1
;;^UTILITY(U,$J,358.3,6304,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6304,1,2,0)
;;=2^Retinal Detach-Cryotherapy
;;^UTILITY(U,$J,358.3,6304,1,3,0)
;;=3^67101
;;^UTILITY(U,$J,358.3,6305,0)
;;=67208^^39^344^14^^^^1
;;^UTILITY(U,$J,358.3,6305,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6305,1,2,0)
;;=2^Retinal Lesion-Cryotherapy
;;^UTILITY(U,$J,358.3,6305,1,3,0)
;;=3^67208
;;^UTILITY(U,$J,358.3,6306,0)
;;=66710^^39^344^18^^^^1
;;^UTILITY(U,$J,358.3,6306,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6306,1,2,0)
;;=2^CPC-Diode Laser,Transcleral
;;^UTILITY(U,$J,358.3,6306,1,3,0)
;;=3^66710
;;^UTILITY(U,$J,358.3,6307,0)
;;=76512^^39^344^19^^^^1
;;^UTILITY(U,$J,358.3,6307,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6307,1,2,0)
;;=2^U/S B-Scan Only
;;^UTILITY(U,$J,358.3,6307,1,3,0)
;;=3^76512
;;^UTILITY(U,$J,358.3,6308,0)
;;=76513^^39^344^20^^^^1
;;^UTILITY(U,$J,358.3,6308,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6308,1,2,0)
;;=2^U/S B-Scan,Ant Seg,Water Immersion
;;^UTILITY(U,$J,358.3,6308,1,3,0)
;;=3^76513
;;^UTILITY(U,$J,358.3,6309,0)
;;=66711^^39^344^21^^^^1
;;^UTILITY(U,$J,358.3,6309,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6309,1,2,0)
;;=2^Ciliary Body Destruction CPC,Endoscopic
;;^UTILITY(U,$J,358.3,6309,1,3,0)
;;=3^66711
;;^UTILITY(U,$J,358.3,6310,0)
;;=66720^^39^344^22^^^^1
;;^UTILITY(U,$J,358.3,6310,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6310,1,2,0)
;;=2^Ciliary Body Destruction,Cryotherapy
;;^UTILITY(U,$J,358.3,6310,1,3,0)
;;=3^66720
;;^UTILITY(U,$J,358.3,6311,0)
;;=65205^^39^345^1^^^^1
;;^UTILITY(U,$J,358.3,6311,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6311,1,2,0)
;;=2^FB Removal Conj Superficial
;;^UTILITY(U,$J,358.3,6311,1,3,0)
;;=3^65205
;;^UTILITY(U,$J,358.3,6312,0)
;;=65210^^39^345^2^^^^1
;;^UTILITY(U,$J,358.3,6312,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6312,1,2,0)
;;=2^FB Removal Conj Embedded*(incl Concrtns)
;;^UTILITY(U,$J,358.3,6312,1,3,0)
;;=3^65210
;;^UTILITY(U,$J,358.3,6313,0)
;;=65222^^39^345^3^^^^1
;;^UTILITY(U,$J,358.3,6313,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6313,1,2,0)
;;=2^FB Removal,Cornea w/ Slit Lamp
;;^UTILITY(U,$J,358.3,6313,1,3,0)
;;=3^65222
;;^UTILITY(U,$J,358.3,6314,0)
;;=65220^^39^345^4^^^^1
;;^UTILITY(U,$J,358.3,6314,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6314,1,2,0)
;;=2^FB Removal,Cornea w/o Slit Lamp
;;^UTILITY(U,$J,358.3,6314,1,3,0)
;;=3^65220
;;^UTILITY(U,$J,358.3,6315,0)
;;=65410^^39^345^5^^^^1
;;^UTILITY(U,$J,358.3,6315,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6315,1,2,0)
;;=2^Biopsy of Cornea
;;^UTILITY(U,$J,358.3,6315,1,3,0)
;;=3^65410
;;^UTILITY(U,$J,358.3,6316,0)
;;=65435^^39^345^6^^^^1
;;^UTILITY(U,$J,358.3,6316,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6316,1,2,0)
;;=2^Corneal Debridement*(tx)
;;^UTILITY(U,$J,358.3,6316,1,3,0)
;;=3^65435
;;^UTILITY(U,$J,358.3,6317,0)
;;=65436^^39^345^7^^^^1
;;^UTILITY(U,$J,358.3,6317,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6317,1,2,0)
;;=2^Remove Corneal Epith,EDTA
;;^UTILITY(U,$J,358.3,6317,1,3,0)
;;=3^65436
;;^UTILITY(U,$J,358.3,6318,0)
;;=65400^^39^345^8^^^^1
;;^UTILITY(U,$J,358.3,6318,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6318,1,2,0)
;;=2^Superficial Keratectomy
;;^UTILITY(U,$J,358.3,6318,1,3,0)
;;=3^65400
;;^UTILITY(U,$J,358.3,6319,0)
;;=65772^^39^345^9^^^^1
;;^UTILITY(U,$J,358.3,6319,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6319,1,2,0)
;;=2^Incision,Cornea,Relaxation
;;^UTILITY(U,$J,358.3,6319,1,3,0)
;;=3^65772
;;^UTILITY(U,$J,358.3,6320,0)
;;=68135^^39^345^10^^^^1
;;^UTILITY(U,$J,358.3,6320,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6320,1,2,0)
;;=2^Destruction,Conj Lesion
;;^UTILITY(U,$J,358.3,6320,1,3,0)
;;=3^68135
;;^UTILITY(U,$J,358.3,6321,0)
;;=65800^^39^345^11^^^^1
;;^UTILITY(U,$J,358.3,6321,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6321,1,2,0)
;;=2^Paracentesis of AC
;;^UTILITY(U,$J,358.3,6321,1,3,0)
;;=3^65800
;;^UTILITY(U,$J,358.3,6322,0)
;;=66170^^39^345^12^^^^1
;;^UTILITY(U,$J,358.3,6322,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6322,1,2,0)
;;=2^Fistulization Sclera for Glauc Trabecul
;;^UTILITY(U,$J,358.3,6322,1,3,0)
;;=3^66170
;;^UTILITY(U,$J,358.3,6323,0)
;;=67515^^39^345^13^^^^1
;;^UTILITY(U,$J,358.3,6323,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,6323,1,2,0)
;;=2^Inject Tenon's Capsule
;;^UTILITY(U,$J,358.3,6323,1,3,0)
;;=3^67515
;;^UTILITY(U,$J,358.3,6324,0)
;;=66030^^39^346^8^^^^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI02O 19772 printed Sep 23, 2025@19:16:25 Page 2
IBDEI02O ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,6240,1,2,0)
+2 ;;=2^99245
+3 ;;^UTILITY(U,$J,358.3,6241,0)
+4 ;;=92012^^38^333^1
+5 ;;^UTILITY(U,$J,358.3,6241,1,0)
+6 ;;=^358.31IA^2^2
+7 ;;^UTILITY(U,$J,358.3,6241,1,1,0)
+8 ;;=1^Intermediate Eye Exam, Established
+9 ;;^UTILITY(U,$J,358.3,6241,1,2,0)
+10 ;;=2^92012
+11 ;;^UTILITY(U,$J,358.3,6241,3,0)
+12 ;;=^357.33
+13 ;;^UTILITY(U,$J,358.3,6242,0)
+14 ;;=92014^^38^333^3
+15 ;;^UTILITY(U,$J,358.3,6242,1,0)
+16 ;;=^358.31IA^2^2
+17 ;;^UTILITY(U,$J,358.3,6242,1,1,0)
+18 ;;=1^Comprehensive Exam, Estab
+19 ;;^UTILITY(U,$J,358.3,6242,1,2,0)
+20 ;;=2^92014
+21 ;;^UTILITY(U,$J,358.3,6243,0)
+22 ;;=92002^^38^333^2
+23 ;;^UTILITY(U,$J,358.3,6243,1,0)
+24 ;;=^358.31IA^2^2
+25 ;;^UTILITY(U,$J,358.3,6243,1,1,0)
+26 ;;=1^Intermediate Eye Exam, New Pt
+27 ;;^UTILITY(U,$J,358.3,6243,1,2,0)
+28 ;;=2^92002
+29 ;;^UTILITY(U,$J,358.3,6244,0)
+30 ;;=92004^^38^333^4
+31 ;;^UTILITY(U,$J,358.3,6244,1,0)
+32 ;;=^358.31IA^2^2
+33 ;;^UTILITY(U,$J,358.3,6244,1,1,0)
+34 ;;=1^Comprehensive Exam, New Pt
+35 ;;^UTILITY(U,$J,358.3,6244,1,2,0)
+36 ;;=2^92004
+37 ;;^UTILITY(U,$J,358.3,6245,0)
+38 ;;=99024^^38^333^5
+39 ;;^UTILITY(U,$J,358.3,6245,1,0)
+40 ;;=^358.31IA^2^2
+41 ;;^UTILITY(U,$J,358.3,6245,1,1,0)
+42 ;;=1^Post-Op Follow-Up Visit (90d)
+43 ;;^UTILITY(U,$J,358.3,6245,1,2,0)
+44 ;;=2^99024
+45 ;;^UTILITY(U,$J,358.3,6246,0)
+46 ;;=99251^^38^334^1
+47 ;;^UTILITY(U,$J,358.3,6246,1,0)
+48 ;;=^358.31IA^2^2
+49 ;;^UTILITY(U,$J,358.3,6246,1,1,0)
+50 ;;=1^PROBLEM FOCUSED HX & EXAM;SF MDM
+51 ;;^UTILITY(U,$J,358.3,6246,1,2,0)
+52 ;;=2^99251
+53 ;;^UTILITY(U,$J,358.3,6247,0)
+54 ;;=99252^^38^334^2
+55 ;;^UTILITY(U,$J,358.3,6247,1,0)
+56 ;;=^358.31IA^2^2
+57 ;;^UTILITY(U,$J,358.3,6247,1,1,0)
+58 ;;=1^EXPAN PROB FOCUS HX & EXAM;SF MDM
+59 ;;^UTILITY(U,$J,358.3,6247,1,2,0)
+60 ;;=2^99252
+61 ;;^UTILITY(U,$J,358.3,6248,0)
+62 ;;=99253^^38^334^3
+63 ;;^UTILITY(U,$J,358.3,6248,1,0)
+64 ;;=^358.31IA^2^2
+65 ;;^UTILITY(U,$J,358.3,6248,1,1,0)
+66 ;;=1^DETAILED HX & EXAM;LOW COMPLEX MDM
+67 ;;^UTILITY(U,$J,358.3,6248,1,2,0)
+68 ;;=2^99253
+69 ;;^UTILITY(U,$J,358.3,6249,0)
+70 ;;=99254^^38^334^4
+71 ;;^UTILITY(U,$J,358.3,6249,1,0)
+72 ;;=^358.31IA^2^2
+73 ;;^UTILITY(U,$J,358.3,6249,1,1,0)
+74 ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
+75 ;;^UTILITY(U,$J,358.3,6249,1,2,0)
+76 ;;=2^99254
+77 ;;^UTILITY(U,$J,358.3,6250,0)
+78 ;;=99255^^38^334^5
+79 ;;^UTILITY(U,$J,358.3,6250,1,0)
+80 ;;=^358.31IA^2^2
+81 ;;^UTILITY(U,$J,358.3,6250,1,1,0)
+82 ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
+83 ;;^UTILITY(U,$J,358.3,6250,1,2,0)
+84 ;;=2^99255
+85 ;;^UTILITY(U,$J,358.3,6251,0)
+86 ;;=99221^^38^335^1
+87 ;;^UTILITY(U,$J,358.3,6251,1,0)
+88 ;;=^358.31IA^2^2
+89 ;;^UTILITY(U,$J,358.3,6251,1,1,0)
+90 ;;=1^DETAILED OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
+91 ;;^UTILITY(U,$J,358.3,6251,1,2,0)
+92 ;;=2^99221
+93 ;;^UTILITY(U,$J,358.3,6252,0)
+94 ;;=99222^^38^335^2
+95 ;;^UTILITY(U,$J,358.3,6252,1,0)
+96 ;;=^358.31IA^2^2
+97 ;;^UTILITY(U,$J,358.3,6252,1,1,0)
+98 ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
+99 ;;^UTILITY(U,$J,358.3,6252,1,2,0)
+100 ;;=2^99222
+101 ;;^UTILITY(U,$J,358.3,6253,0)
+102 ;;=99223^^38^335^3
+103 ;;^UTILITY(U,$J,358.3,6253,1,0)
+104 ;;=^358.31IA^2^2
+105 ;;^UTILITY(U,$J,358.3,6253,1,1,0)
+106 ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
+107 ;;^UTILITY(U,$J,358.3,6253,1,2,0)
+108 ;;=2^99223
+109 ;;^UTILITY(U,$J,358.3,6254,0)
+110 ;;=99231^^38^336^1
+111 ;;^UTILITY(U,$J,358.3,6254,1,0)
+112 ;;=^358.31IA^2^2
+113 ;;^UTILITY(U,$J,358.3,6254,1,1,0)
+114 ;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
+115 ;;^UTILITY(U,$J,358.3,6254,1,2,0)
+116 ;;=2^99231
+117 ;;^UTILITY(U,$J,358.3,6255,0)
+118 ;;=99232^^38^336^2
+119 ;;^UTILITY(U,$J,358.3,6255,1,0)
+120 ;;=^358.31IA^2^2
+121 ;;^UTILITY(U,$J,358.3,6255,1,1,0)
+122 ;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
+123 ;;^UTILITY(U,$J,358.3,6255,1,2,0)
+124 ;;=2^99232
+125 ;;^UTILITY(U,$J,358.3,6256,0)
+126 ;;=99233^^38^336^3
+127 ;;^UTILITY(U,$J,358.3,6256,1,0)
+128 ;;=^358.31IA^2^2
+129 ;;^UTILITY(U,$J,358.3,6256,1,1,0)
+130 ;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
+131 ;;^UTILITY(U,$J,358.3,6256,1,2,0)
+132 ;;=2^99233
+133 ;;^UTILITY(U,$J,358.3,6257,0)
+134 ;;=99238^^38^337^1
+135 ;;^UTILITY(U,$J,358.3,6257,1,0)
+136 ;;=^358.31IA^2^2
+137 ;;^UTILITY(U,$J,358.3,6257,1,1,0)
+138 ;;=1^DISCHARGE DAY MGMT 30 MIN OR <
+139 ;;^UTILITY(U,$J,358.3,6257,1,2,0)
+140 ;;=2^99238
+141 ;;^UTILITY(U,$J,358.3,6258,0)
+142 ;;=99239^^38^337^2
+143 ;;^UTILITY(U,$J,358.3,6258,1,0)
+144 ;;=^358.31IA^2^2
+145 ;;^UTILITY(U,$J,358.3,6258,1,1,0)
+146 ;;=1^DISCHARGE DAY MGMT > 30MIN
+147 ;;^UTILITY(U,$J,358.3,6258,1,2,0)
+148 ;;=2^99239
+149 ;;^UTILITY(U,$J,358.3,6259,0)
+150 ;;=99218^^38^338^1
+151 ;;^UTILITY(U,$J,358.3,6259,1,0)
+152 ;;=^358.31IA^2^2
+153 ;;^UTILITY(U,$J,358.3,6259,1,1,0)
+154 ;;=1^DETAILED OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
+155 ;;^UTILITY(U,$J,358.3,6259,1,2,0)
+156 ;;=2^99218
+157 ;;^UTILITY(U,$J,358.3,6260,0)
+158 ;;=99219^^38^338^2
+159 ;;^UTILITY(U,$J,358.3,6260,1,0)
+160 ;;=^358.31IA^2^2
+161 ;;^UTILITY(U,$J,358.3,6260,1,1,0)
+162 ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
+163 ;;^UTILITY(U,$J,358.3,6260,1,2,0)
+164 ;;=2^99219
+165 ;;^UTILITY(U,$J,358.3,6261,0)
+166 ;;=99220^^38^338^3
+167 ;;^UTILITY(U,$J,358.3,6261,1,0)
+168 ;;=^358.31IA^2^2
+169 ;;^UTILITY(U,$J,358.3,6261,1,1,0)
+170 ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
+171 ;;^UTILITY(U,$J,358.3,6261,1,2,0)
+172 ;;=2^99220
+173 ;;^UTILITY(U,$J,358.3,6262,0)
+174 ;;=99224^^38^339^1
+175 ;;^UTILITY(U,$J,358.3,6262,1,0)
+176 ;;=^358.31IA^2^2
+177 ;;^UTILITY(U,$J,358.3,6262,1,1,0)
+178 ;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
+179 ;;^UTILITY(U,$J,358.3,6262,1,2,0)
+180 ;;=2^99224
+181 ;;^UTILITY(U,$J,358.3,6263,0)
+182 ;;=99225^^38^339^2
+183 ;;^UTILITY(U,$J,358.3,6263,1,0)
+184 ;;=^358.31IA^2^2
+185 ;;^UTILITY(U,$J,358.3,6263,1,1,0)
+186 ;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
+187 ;;^UTILITY(U,$J,358.3,6263,1,2,0)
+188 ;;=2^99225
+189 ;;^UTILITY(U,$J,358.3,6264,0)
+190 ;;=99226^^38^339^3
+191 ;;^UTILITY(U,$J,358.3,6264,1,0)
+192 ;;=^358.31IA^2^2
+193 ;;^UTILITY(U,$J,358.3,6264,1,1,0)
+194 ;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
+195 ;;^UTILITY(U,$J,358.3,6264,1,2,0)
+196 ;;=2^99226
+197 ;;^UTILITY(U,$J,358.3,6265,0)
+198 ;;=99217^^38^340^1
+199 ;;^UTILITY(U,$J,358.3,6265,1,0)
+200 ;;=^358.31IA^2^2
+201 ;;^UTILITY(U,$J,358.3,6265,1,1,0)
+202 ;;=1^DISCHARGE DAY MGMT
+203 ;;^UTILITY(U,$J,358.3,6265,1,2,0)
+204 ;;=2^99217
+205 ;;^UTILITY(U,$J,358.3,6266,0)
+206 ;;=99234^^38^341^1
+207 ;;^UTILITY(U,$J,358.3,6266,1,0)
+208 ;;=^358.31IA^2^2
+209 ;;^UTILITY(U,$J,358.3,6266,1,1,0)
+210 ;;=1^DETAIL OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
+211 ;;^UTILITY(U,$J,358.3,6266,1,2,0)
+212 ;;=2^99234
+213 ;;^UTILITY(U,$J,358.3,6267,0)
+214 ;;=99235^^38^341^2
+215 ;;^UTILITY(U,$J,358.3,6267,1,0)
+216 ;;=^358.31IA^2^2
+217 ;;^UTILITY(U,$J,358.3,6267,1,1,0)
+218 ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
+219 ;;^UTILITY(U,$J,358.3,6267,1,2,0)
+220 ;;=2^99235
+221 ;;^UTILITY(U,$J,358.3,6268,0)
+222 ;;=99236^^38^341^3
+223 ;;^UTILITY(U,$J,358.3,6268,1,0)
+224 ;;=^358.31IA^2^2
+225 ;;^UTILITY(U,$J,358.3,6268,1,1,0)
+226 ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
+227 ;;^UTILITY(U,$J,358.3,6268,1,2,0)
+228 ;;=2^99236
+229 ;;^UTILITY(U,$J,358.3,6269,0)
+230 ;;=67800^^39^343^1^^^^1
+231 ;;^UTILITY(U,$J,358.3,6269,1,0)
+232 ;;=^358.31IA^3^2
+233 ;;^UTILITY(U,$J,358.3,6269,1,2,0)
+234 ;;=2^Chalazion Excision,Single,Single Lid
+235 ;;^UTILITY(U,$J,358.3,6269,1,3,0)
+236 ;;=3^67800
+237 ;;^UTILITY(U,$J,358.3,6270,0)
+238 ;;=67700^^39^343^6^^^^1
+239 ;;^UTILITY(U,$J,358.3,6270,1,0)
+240 ;;=^358.31IA^3^2
+241 ;;^UTILITY(U,$J,358.3,6270,1,2,0)
+242 ;;=2^Cyst,Eyelid,Drainage
+243 ;;^UTILITY(U,$J,358.3,6270,1,3,0)
+244 ;;=3^67700
+245 ;;^UTILITY(U,$J,358.3,6271,0)
+246 ;;=67825^^39^343^11^^^^1
+247 ;;^UTILITY(U,$J,358.3,6271,1,0)
+248 ;;=^358.31IA^3^2
+249 ;;^UTILITY(U,$J,358.3,6271,1,2,0)
+250 ;;=2^Epilation - Electrosurgical,Cryotherapy
+251 ;;^UTILITY(U,$J,358.3,6271,1,3,0)
+252 ;;=3^67825
+253 ;;^UTILITY(U,$J,358.3,6272,0)
+254 ;;=67820^^39^343^10^^^^1
+255 ;;^UTILITY(U,$J,358.3,6272,1,0)
+256 ;;=^358.31IA^3^2
+257 ;;^UTILITY(U,$J,358.3,6272,1,2,0)
+258 ;;=2^Epilation - Forceps
+259 ;;^UTILITY(U,$J,358.3,6272,1,3,0)
+260 ;;=3^67820
+261 ;;^UTILITY(U,$J,358.3,6273,0)
+262 ;;=67810^^39^343^12^^^^1
+263 ;;^UTILITY(U,$J,358.3,6273,1,0)
+264 ;;=^358.31IA^3^2
+265 ;;^UTILITY(U,$J,358.3,6273,1,2,0)
+266 ;;=2^Eyelid Lesion,Biopsy
+267 ;;^UTILITY(U,$J,358.3,6273,1,3,0)
+268 ;;=3^67810
+269 ;;^UTILITY(U,$J,358.3,6274,0)
+270 ;;=67850^^39^343^14^^^^1
+271 ;;^UTILITY(U,$J,358.3,6274,1,0)
+272 ;;=^358.31IA^3^2
+273 ;;^UTILITY(U,$J,358.3,6274,1,2,0)
+274 ;;=2^Eyelid Lesion,Destruction,<1cm
+275 ;;^UTILITY(U,$J,358.3,6274,1,3,0)
+276 ;;=3^67850
+277 ;;^UTILITY(U,$J,358.3,6275,0)
+278 ;;=67840^^39^343^13^^^^1
+279 ;;^UTILITY(U,$J,358.3,6275,1,0)
+280 ;;=^358.31IA^3^2
+281 ;;^UTILITY(U,$J,358.3,6275,1,2,0)
+282 ;;=2^Eyelid Lesion,Excision,Simple
+283 ;;^UTILITY(U,$J,358.3,6275,1,3,0)
+284 ;;=3^67840
+285 ;;^UTILITY(U,$J,358.3,6276,0)
+286 ;;=67930^^39^343^15^^^^1
+287 ;;^UTILITY(U,$J,358.3,6276,1,0)
+288 ;;=^358.31IA^3^2
+289 ;;^UTILITY(U,$J,358.3,6276,1,2,0)
+290 ;;=2^Eyelid Wound Repair,Partial Thickness
+291 ;;^UTILITY(U,$J,358.3,6276,1,3,0)
+292 ;;=3^67930
+293 ;;^UTILITY(U,$J,358.3,6277,0)
+294 ;;=68020^^39^343^5^^^^1
+295 ;;^UTILITY(U,$J,358.3,6277,1,0)
+296 ;;=^358.31IA^3^2
+297 ;;^UTILITY(U,$J,358.3,6277,1,2,0)
+298 ;;=2^Cyst,Conjunctival,I&D
+299 ;;^UTILITY(U,$J,358.3,6277,1,3,0)
+300 ;;=3^68020
+301 ;;^UTILITY(U,$J,358.3,6278,0)
+302 ;;=67710^^39^343^18^^^^1
+303 ;;^UTILITY(U,$J,358.3,6278,1,0)
+304 ;;=^358.31IA^3^2
+305 ;;^UTILITY(U,$J,358.3,6278,1,2,0)
+306 ;;=2^Severing of Tarsorrhaphy
+307 ;;^UTILITY(U,$J,358.3,6278,1,3,0)
+308 ;;=3^67710
+309 ;;^UTILITY(U,$J,358.3,6279,0)
+310 ;;=67715^^39^343^19^^^^1
+311 ;;^UTILITY(U,$J,358.3,6279,1,0)
+312 ;;=^358.31IA^3^2
+313 ;;^UTILITY(U,$J,358.3,6279,1,2,0)
+314 ;;=2^Canthotomy
+315 ;;^UTILITY(U,$J,358.3,6279,1,3,0)
+316 ;;=3^67715
+317 ;;^UTILITY(U,$J,358.3,6280,0)
+318 ;;=68760^^39^343^9^^^^1
+319 ;;^UTILITY(U,$J,358.3,6280,1,0)
+320 ;;=^358.31IA^3^2
+321 ;;^UTILITY(U,$J,358.3,6280,1,2,0)
+322 ;;=2^Lacrimal Punctum,Closure
+323 ;;^UTILITY(U,$J,358.3,6280,1,3,0)
+324 ;;=3^68760
+325 ;;^UTILITY(U,$J,358.3,6281,0)
+326 ;;=68761^^39^343^7^^^^1
+327 ;;^UTILITY(U,$J,358.3,6281,1,0)
+328 ;;=^358.31IA^3^2
+329 ;;^UTILITY(U,$J,358.3,6281,1,2,0)
+330 ;;=2^Punctal Plug,Lacrimal Insert,Each
+331 ;;^UTILITY(U,$J,358.3,6281,1,3,0)
+332 ;;=3^68761
+333 ;;^UTILITY(U,$J,358.3,6282,0)
+334 ;;=68801^^39^343^8^^^^1
+335 ;;^UTILITY(U,$J,358.3,6282,1,0)
+336 ;;=^358.31IA^3^2
+337 ;;^UTILITY(U,$J,358.3,6282,1,2,0)
+338 ;;=2^Lacrimal Punctum,Dilate +/- Irrigation
+339 ;;^UTILITY(U,$J,358.3,6282,1,3,0)
+340 ;;=3^68801
+341 ;;^UTILITY(U,$J,358.3,6283,0)
+342 ;;=37609^^39^343^20^^^^1
+343 ;;^UTILITY(U,$J,358.3,6283,1,0)
+344 ;;=^358.31IA^3^2
+345 ;;^UTILITY(U,$J,358.3,6283,1,2,0)
+346 ;;=2^Temporal Artery Biopsy
+347 ;;^UTILITY(U,$J,358.3,6283,1,3,0)
+348 ;;=3^37609
+349 ;;^UTILITY(U,$J,358.3,6284,0)
+350 ;;=67805^^39^343^3^^^^1
+351 ;;^UTILITY(U,$J,358.3,6284,1,0)
+352 ;;=^358.31IA^3^2
+353 ;;^UTILITY(U,$J,358.3,6284,1,2,0)
+354 ;;=2^Chalazion Excision,Multiple,Different Lids
+355 ;;^UTILITY(U,$J,358.3,6284,1,3,0)
+356 ;;=3^67805
+357 ;;^UTILITY(U,$J,358.3,6285,0)
+358 ;;=67801^^39^343^2^^^^1
+359 ;;^UTILITY(U,$J,358.3,6285,1,0)
+360 ;;=^358.31IA^3^2
+361 ;;^UTILITY(U,$J,358.3,6285,1,2,0)
+362 ;;=2^Chalazion Excision,Multiple,Same Lid
+363 ;;^UTILITY(U,$J,358.3,6285,1,3,0)
+364 ;;=3^67801
+365 ;;^UTILITY(U,$J,358.3,6286,0)
+366 ;;=67900^^39^343^17^^^^1
+367 ;;^UTILITY(U,$J,358.3,6286,1,0)
+368 ;;=^358.31IA^3^2
+369 ;;^UTILITY(U,$J,358.3,6286,1,2,0)
+370 ;;=2^Brow Ptosis Repair
+371 ;;^UTILITY(U,$J,358.3,6286,1,3,0)
+372 ;;=3^67900
+373 ;;^UTILITY(U,$J,358.3,6287,0)
+374 ;;=68110^^39^343^4^^^^1
+375 ;;^UTILITY(U,$J,358.3,6287,1,0)
+376 ;;=^358.31IA^3^2
+377 ;;^UTILITY(U,$J,358.3,6287,1,2,0)
+378 ;;=2^Conjunctival Lesion,Exc,Palp/Blubar Conjunctiva
+379 ;;^UTILITY(U,$J,358.3,6287,1,3,0)
+380 ;;=3^68110
+381 ;;^UTILITY(U,$J,358.3,6288,0)
+382 ;;=67935^^39^343^16^^^^1
+383 ;;^UTILITY(U,$J,358.3,6288,1,0)
+384 ;;=^358.31IA^3^2
+385 ;;^UTILITY(U,$J,358.3,6288,1,2,0)
+386 ;;=2^Eyelid Wound Repair,Full Thickness
+387 ;;^UTILITY(U,$J,358.3,6288,1,3,0)
+388 ;;=3^67935
+389 ;;^UTILITY(U,$J,358.3,6289,0)
+390 ;;=65855^^39^344^6^^^^1
+391 ;;^UTILITY(U,$J,358.3,6289,1,0)
+392 ;;=^358.31IA^3^2
+393 ;;^UTILITY(U,$J,358.3,6289,1,2,0)
+394 ;;=2^Trabeculoplasty (ALT/SLT),1/more session
+395 ;;^UTILITY(U,$J,358.3,6289,1,3,0)
+396 ;;=3^65855
+397 ;;^UTILITY(U,$J,358.3,6290,0)
+398 ;;=65860^^39^344^4^^^^1
+399 ;;^UTILITY(U,$J,358.3,6290,1,0)
+400 ;;=^358.31IA^3^2
+401 ;;^UTILITY(U,$J,358.3,6290,1,2,0)
+402 ;;=2^YAG Lysis of Adhesions in AC
+403 ;;^UTILITY(U,$J,358.3,6290,1,3,0)
+404 ;;=3^65860
+405 ;;^UTILITY(U,$J,358.3,6291,0)
+406 ;;=66761^^39^344^1^^^^1
+407 ;;^UTILITY(U,$J,358.3,6291,1,0)
+408 ;;=^358.31IA^3^2
+409 ;;^UTILITY(U,$J,358.3,6291,1,2,0)
+410 ;;=2^Iridotomy/Iridectomy,1/more session
+411 ;;^UTILITY(U,$J,358.3,6291,1,3,0)
+412 ;;=3^66761
+413 ;;^UTILITY(U,$J,358.3,6292,0)
+414 ;;=66762^^39^344^2^^^^1
+415 ;;^UTILITY(U,$J,358.3,6292,1,0)
+416 ;;=^358.31IA^3^2
+417 ;;^UTILITY(U,$J,358.3,6292,1,2,0)
+418 ;;=2^Iridoplasty,1/more sessions
+419 ;;^UTILITY(U,$J,358.3,6292,1,3,0)
+420 ;;=3^66762
+421 ;;^UTILITY(U,$J,358.3,6293,0)
+422 ;;=67105^^39^344^8^^^^1
+423 ;;^UTILITY(U,$J,358.3,6293,1,0)
+424 ;;=^358.31IA^3^2
+425 ;;^UTILITY(U,$J,358.3,6293,1,2,0)
+426 ;;=2^Retinal Detach Photocoagulation
+427 ;;^UTILITY(U,$J,358.3,6293,1,3,0)
+428 ;;=3^67105
+429 ;;^UTILITY(U,$J,358.3,6294,0)
+430 ;;=67145^^39^344^7^^^^1
+431 ;;^UTILITY(U,$J,358.3,6294,1,0)
+432 ;;=^358.31IA^3^2
+433 ;;^UTILITY(U,$J,358.3,6294,1,2,0)
+434 ;;=2^Retinal Tear-Laser
+435 ;;^UTILITY(U,$J,358.3,6294,1,3,0)
+436 ;;=3^67145
+437 ;;^UTILITY(U,$J,358.3,6295,0)
+438 ;;=67210^^39^344^10^^^^1
+439 ;;^UTILITY(U,$J,358.3,6295,1,0)
+440 ;;=^358.31IA^3^2
+441 ;;^UTILITY(U,$J,358.3,6295,1,2,0)
+442 ;;=2^Focal Laser (Macula),1/more session
+443 ;;^UTILITY(U,$J,358.3,6295,1,3,0)
+444 ;;=3^67210
+445 ;;^UTILITY(U,$J,358.3,6296,0)
+446 ;;=67228^^39^344^11^^^^1
+447 ;;^UTILITY(U,$J,358.3,6296,1,0)
+448 ;;=^358.31IA^3^2
+449 ;;^UTILITY(U,$J,358.3,6296,1,2,0)
+450 ;;=2^PRP Laser (Retinopathy),1/more session
+451 ;;^UTILITY(U,$J,358.3,6296,1,3,0)
+452 ;;=3^67228
+453 ;;^UTILITY(U,$J,358.3,6297,0)
+454 ;;=67220^^39^344^15^^^^1
+455 ;;^UTILITY(U,$J,358.3,6297,1,0)
+456 ;;=^358.31IA^3^2
+457 ;;^UTILITY(U,$J,358.3,6297,1,2,0)
+458 ;;=2^Choroidal Lesion-Laser
+459 ;;^UTILITY(U,$J,358.3,6297,1,3,0)
+460 ;;=3^67220
+461 ;;^UTILITY(U,$J,358.3,6298,0)
+462 ;;=67221^^39^344^16^^^^1
+463 ;;^UTILITY(U,$J,358.3,6298,1,0)
+464 ;;=^358.31IA^3^2
+465 ;;^UTILITY(U,$J,358.3,6298,1,2,0)
+466 ;;=2^Photodynamic Therapy,1/more session
+467 ;;^UTILITY(U,$J,358.3,6298,1,3,0)
+468 ;;=3^67221
+469 ;;^UTILITY(U,$J,358.3,6299,0)
+470 ;;=67225^^39^344^17^^^^1
+471 ;;^UTILITY(U,$J,358.3,6299,1,0)
+472 ;;=^358.31IA^3^2
+473 ;;^UTILITY(U,$J,358.3,6299,1,2,0)
+474 ;;=2^Photodynamic Therapy,2nd eye/1 session
+475 ;;^UTILITY(U,$J,358.3,6299,1,3,0)
+476 ;;=3^67225
+477 ;;^UTILITY(U,$J,358.3,6300,0)
+478 ;;=66821^^39^344^3^^^^1
+479 ;;^UTILITY(U,$J,358.3,6300,1,0)
+480 ;;=^358.31IA^3^2
+481 ;;^UTILITY(U,$J,358.3,6300,1,2,0)
+482 ;;=2^YAG Capsulotomy
+483 ;;^UTILITY(U,$J,358.3,6300,1,3,0)
+484 ;;=3^66821
+485 ;;^UTILITY(U,$J,358.3,6301,0)
+486 ;;=66999^^39^344^5^^^^1
+487 ;;^UTILITY(U,$J,358.3,6301,1,0)
+488 ;;=^358.31IA^3^2
+489 ;;^UTILITY(U,$J,358.3,6301,1,2,0)
+490 ;;=2^YAG Suture Lysis
+491 ;;^UTILITY(U,$J,358.3,6301,1,3,0)
+492 ;;=3^66999
+493 ;;^UTILITY(U,$J,358.3,6302,0)
+494 ;;=67110^^39^344^9^^^^1
+495 ;;^UTILITY(U,$J,358.3,6302,1,0)
+496 ;;=^358.31IA^3^2
+497 ;;^UTILITY(U,$J,358.3,6302,1,2,0)
+498 ;;=2^Retinal Detach-Pneumatic Retinopexy
+499 ;;^UTILITY(U,$J,358.3,6302,1,3,0)
+500 ;;=3^67110
+501 ;;^UTILITY(U,$J,358.3,6303,0)
+502 ;;=67141^^39^344^12^^^^1
+503 ;;^UTILITY(U,$J,358.3,6303,1,0)
+504 ;;=^358.31IA^3^2
+505 ;;^UTILITY(U,$J,358.3,6303,1,2,0)
+506 ;;=2^Retinal Tear-Cryotherapy
+507 ;;^UTILITY(U,$J,358.3,6303,1,3,0)
+508 ;;=3^67141
+509 ;;^UTILITY(U,$J,358.3,6304,0)
+510 ;;=67101^^39^344^13^^^^1
+511 ;;^UTILITY(U,$J,358.3,6304,1,0)
+512 ;;=^358.31IA^3^2
+513 ;;^UTILITY(U,$J,358.3,6304,1,2,0)
+514 ;;=2^Retinal Detach-Cryotherapy
+515 ;;^UTILITY(U,$J,358.3,6304,1,3,0)
+516 ;;=3^67101
+517 ;;^UTILITY(U,$J,358.3,6305,0)
+518 ;;=67208^^39^344^14^^^^1
+519 ;;^UTILITY(U,$J,358.3,6305,1,0)
+520 ;;=^358.31IA^3^2
+521 ;;^UTILITY(U,$J,358.3,6305,1,2,0)
+522 ;;=2^Retinal Lesion-Cryotherapy
+523 ;;^UTILITY(U,$J,358.3,6305,1,3,0)
+524 ;;=3^67208
+525 ;;^UTILITY(U,$J,358.3,6306,0)
+526 ;;=66710^^39^344^18^^^^1
+527 ;;^UTILITY(U,$J,358.3,6306,1,0)
+528 ;;=^358.31IA^3^2
+529 ;;^UTILITY(U,$J,358.3,6306,1,2,0)
+530 ;;=2^CPC-Diode Laser,Transcleral
+531 ;;^UTILITY(U,$J,358.3,6306,1,3,0)
+532 ;;=3^66710
+533 ;;^UTILITY(U,$J,358.3,6307,0)
+534 ;;=76512^^39^344^19^^^^1
+535 ;;^UTILITY(U,$J,358.3,6307,1,0)
+536 ;;=^358.31IA^3^2
+537 ;;^UTILITY(U,$J,358.3,6307,1,2,0)
+538 ;;=2^U/S B-Scan Only
+539 ;;^UTILITY(U,$J,358.3,6307,1,3,0)
+540 ;;=3^76512
+541 ;;^UTILITY(U,$J,358.3,6308,0)
+542 ;;=76513^^39^344^20^^^^1
+543 ;;^UTILITY(U,$J,358.3,6308,1,0)
+544 ;;=^358.31IA^3^2
+545 ;;^UTILITY(U,$J,358.3,6308,1,2,0)
+546 ;;=2^U/S B-Scan,Ant Seg,Water Immersion
+547 ;;^UTILITY(U,$J,358.3,6308,1,3,0)
+548 ;;=3^76513
+549 ;;^UTILITY(U,$J,358.3,6309,0)
+550 ;;=66711^^39^344^21^^^^1
+551 ;;^UTILITY(U,$J,358.3,6309,1,0)
+552 ;;=^358.31IA^3^2
+553 ;;^UTILITY(U,$J,358.3,6309,1,2,0)
+554 ;;=2^Ciliary Body Destruction CPC,Endoscopic
+555 ;;^UTILITY(U,$J,358.3,6309,1,3,0)
+556 ;;=3^66711
+557 ;;^UTILITY(U,$J,358.3,6310,0)
+558 ;;=66720^^39^344^22^^^^1
+559 ;;^UTILITY(U,$J,358.3,6310,1,0)
+560 ;;=^358.31IA^3^2
+561 ;;^UTILITY(U,$J,358.3,6310,1,2,0)
+562 ;;=2^Ciliary Body Destruction,Cryotherapy
+563 ;;^UTILITY(U,$J,358.3,6310,1,3,0)
+564 ;;=3^66720
+565 ;;^UTILITY(U,$J,358.3,6311,0)
+566 ;;=65205^^39^345^1^^^^1
+567 ;;^UTILITY(U,$J,358.3,6311,1,0)
+568 ;;=^358.31IA^3^2
+569 ;;^UTILITY(U,$J,358.3,6311,1,2,0)
+570 ;;=2^FB Removal Conj Superficial
+571 ;;^UTILITY(U,$J,358.3,6311,1,3,0)
+572 ;;=3^65205
+573 ;;^UTILITY(U,$J,358.3,6312,0)
+574 ;;=65210^^39^345^2^^^^1
+575 ;;^UTILITY(U,$J,358.3,6312,1,0)
+576 ;;=^358.31IA^3^2
+577 ;;^UTILITY(U,$J,358.3,6312,1,2,0)
+578 ;;=2^FB Removal Conj Embedded*(incl Concrtns)
+579 ;;^UTILITY(U,$J,358.3,6312,1,3,0)
+580 ;;=3^65210
+581 ;;^UTILITY(U,$J,358.3,6313,0)
+582 ;;=65222^^39^345^3^^^^1
+583 ;;^UTILITY(U,$J,358.3,6313,1,0)
+584 ;;=^358.31IA^3^2
+585 ;;^UTILITY(U,$J,358.3,6313,1,2,0)
+586 ;;=2^FB Removal,Cornea w/ Slit Lamp
+587 ;;^UTILITY(U,$J,358.3,6313,1,3,0)
+588 ;;=3^65222
+589 ;;^UTILITY(U,$J,358.3,6314,0)
+590 ;;=65220^^39^345^4^^^^1
+591 ;;^UTILITY(U,$J,358.3,6314,1,0)
+592 ;;=^358.31IA^3^2
+593 ;;^UTILITY(U,$J,358.3,6314,1,2,0)
+594 ;;=2^FB Removal,Cornea w/o Slit Lamp
+595 ;;^UTILITY(U,$J,358.3,6314,1,3,0)
+596 ;;=3^65220
+597 ;;^UTILITY(U,$J,358.3,6315,0)
+598 ;;=65410^^39^345^5^^^^1
+599 ;;^UTILITY(U,$J,358.3,6315,1,0)
+600 ;;=^358.31IA^3^2
+601 ;;^UTILITY(U,$J,358.3,6315,1,2,0)
+602 ;;=2^Biopsy of Cornea
+603 ;;^UTILITY(U,$J,358.3,6315,1,3,0)
+604 ;;=3^65410
+605 ;;^UTILITY(U,$J,358.3,6316,0)
+606 ;;=65435^^39^345^6^^^^1
+607 ;;^UTILITY(U,$J,358.3,6316,1,0)
+608 ;;=^358.31IA^3^2
+609 ;;^UTILITY(U,$J,358.3,6316,1,2,0)
+610 ;;=2^Corneal Debridement*(tx)
+611 ;;^UTILITY(U,$J,358.3,6316,1,3,0)
+612 ;;=3^65435
+613 ;;^UTILITY(U,$J,358.3,6317,0)
+614 ;;=65436^^39^345^7^^^^1
+615 ;;^UTILITY(U,$J,358.3,6317,1,0)
+616 ;;=^358.31IA^3^2
+617 ;;^UTILITY(U,$J,358.3,6317,1,2,0)
+618 ;;=2^Remove Corneal Epith,EDTA
+619 ;;^UTILITY(U,$J,358.3,6317,1,3,0)
+620 ;;=3^65436
+621 ;;^UTILITY(U,$J,358.3,6318,0)
+622 ;;=65400^^39^345^8^^^^1
+623 ;;^UTILITY(U,$J,358.3,6318,1,0)
+624 ;;=^358.31IA^3^2
+625 ;;^UTILITY(U,$J,358.3,6318,1,2,0)
+626 ;;=2^Superficial Keratectomy
+627 ;;^UTILITY(U,$J,358.3,6318,1,3,0)
+628 ;;=3^65400
+629 ;;^UTILITY(U,$J,358.3,6319,0)
+630 ;;=65772^^39^345^9^^^^1
+631 ;;^UTILITY(U,$J,358.3,6319,1,0)
+632 ;;=^358.31IA^3^2
+633 ;;^UTILITY(U,$J,358.3,6319,1,2,0)
+634 ;;=2^Incision,Cornea,Relaxation
+635 ;;^UTILITY(U,$J,358.3,6319,1,3,0)
+636 ;;=3^65772
+637 ;;^UTILITY(U,$J,358.3,6320,0)
+638 ;;=68135^^39^345^10^^^^1
+639 ;;^UTILITY(U,$J,358.3,6320,1,0)
+640 ;;=^358.31IA^3^2
+641 ;;^UTILITY(U,$J,358.3,6320,1,2,0)
+642 ;;=2^Destruction,Conj Lesion
+643 ;;^UTILITY(U,$J,358.3,6320,1,3,0)
+644 ;;=3^68135
+645 ;;^UTILITY(U,$J,358.3,6321,0)
+646 ;;=65800^^39^345^11^^^^1
+647 ;;^UTILITY(U,$J,358.3,6321,1,0)
+648 ;;=^358.31IA^3^2
+649 ;;^UTILITY(U,$J,358.3,6321,1,2,0)
+650 ;;=2^Paracentesis of AC
+651 ;;^UTILITY(U,$J,358.3,6321,1,3,0)
+652 ;;=3^65800
+653 ;;^UTILITY(U,$J,358.3,6322,0)
+654 ;;=66170^^39^345^12^^^^1
+655 ;;^UTILITY(U,$J,358.3,6322,1,0)
+656 ;;=^358.31IA^3^2
+657 ;;^UTILITY(U,$J,358.3,6322,1,2,0)
+658 ;;=2^Fistulization Sclera for Glauc Trabecul
+659 ;;^UTILITY(U,$J,358.3,6322,1,3,0)
+660 ;;=3^66170
+661 ;;^UTILITY(U,$J,358.3,6323,0)
+662 ;;=67515^^39^345^13^^^^1
+663 ;;^UTILITY(U,$J,358.3,6323,1,0)
+664 ;;=^358.31IA^3^2
+665 ;;^UTILITY(U,$J,358.3,6323,1,2,0)
+666 ;;=2^Inject Tenon's Capsule
+667 ;;^UTILITY(U,$J,358.3,6323,1,3,0)
+668 ;;=3^67515
+669 ;;^UTILITY(U,$J,358.3,6324,0)
+670 ;;=66030^^39^346^8^^^^1
