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

IBDEI02O.m

Go to the documentation of this file. 
  1. IBDEI02O ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,6240,1,2,0)
  1.  ;;=2^99245
  1.  ;;^UTILITY(U,$J,358.3,6241,0)
  1.  ;;=92012^^38^333^1
  1.  ;;^UTILITY(U,$J,358.3,6241,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6241,1,1,0)
  1.  ;;=1^Intermediate Eye Exam, Established
  1.  ;;^UTILITY(U,$J,358.3,6241,1,2,0)
  1.  ;;=2^92012
  1.  ;;^UTILITY(U,$J,358.3,6241,3,0)
  1.  ;;=^357.33
  1.  ;;^UTILITY(U,$J,358.3,6242,0)
  1.  ;;=92014^^38^333^3
  1.  ;;^UTILITY(U,$J,358.3,6242,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6242,1,1,0)
  1.  ;;=1^Comprehensive Exam, Estab
  1.  ;;^UTILITY(U,$J,358.3,6242,1,2,0)
  1.  ;;=2^92014
  1.  ;;^UTILITY(U,$J,358.3,6243,0)
  1.  ;;=92002^^38^333^2
  1.  ;;^UTILITY(U,$J,358.3,6243,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6243,1,1,0)
  1.  ;;=1^Intermediate Eye Exam, New Pt
  1.  ;;^UTILITY(U,$J,358.3,6243,1,2,0)
  1.  ;;=2^92002
  1.  ;;^UTILITY(U,$J,358.3,6244,0)
  1.  ;;=92004^^38^333^4
  1.  ;;^UTILITY(U,$J,358.3,6244,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6244,1,1,0)
  1.  ;;=1^Comprehensive Exam, New Pt
  1.  ;;^UTILITY(U,$J,358.3,6244,1,2,0)
  1.  ;;=2^92004
  1.  ;;^UTILITY(U,$J,358.3,6245,0)
  1.  ;;=99024^^38^333^5
  1.  ;;^UTILITY(U,$J,358.3,6245,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6245,1,1,0)
  1.  ;;=1^Post-Op Follow-Up Visit (90d)
  1.  ;;^UTILITY(U,$J,358.3,6245,1,2,0)
  1.  ;;=2^99024
  1.  ;;^UTILITY(U,$J,358.3,6246,0)
  1.  ;;=99251^^38^334^1
  1.  ;;^UTILITY(U,$J,358.3,6246,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6246,1,1,0)
  1.  ;;=1^PROBLEM FOCUSED HX & EXAM;SF MDM
  1.  ;;^UTILITY(U,$J,358.3,6246,1,2,0)
  1.  ;;=2^99251
  1.  ;;^UTILITY(U,$J,358.3,6247,0)
  1.  ;;=99252^^38^334^2
  1.  ;;^UTILITY(U,$J,358.3,6247,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6247,1,1,0)
  1.  ;;=1^EXPAN PROB FOCUS HX & EXAM;SF MDM
  1.  ;;^UTILITY(U,$J,358.3,6247,1,2,0)
  1.  ;;=2^99252
  1.  ;;^UTILITY(U,$J,358.3,6248,0)
  1.  ;;=99253^^38^334^3
  1.  ;;^UTILITY(U,$J,358.3,6248,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6248,1,1,0)
  1.  ;;=1^DETAILED HX & EXAM;LOW COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6248,1,2,0)
  1.  ;;=2^99253
  1.  ;;^UTILITY(U,$J,358.3,6249,0)
  1.  ;;=99254^^38^334^4
  1.  ;;^UTILITY(U,$J,358.3,6249,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6249,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6249,1,2,0)
  1.  ;;=2^99254
  1.  ;;^UTILITY(U,$J,358.3,6250,0)
  1.  ;;=99255^^38^334^5
  1.  ;;^UTILITY(U,$J,358.3,6250,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6250,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6250,1,2,0)
  1.  ;;=2^99255
  1.  ;;^UTILITY(U,$J,358.3,6251,0)
  1.  ;;=99221^^38^335^1
  1.  ;;^UTILITY(U,$J,358.3,6251,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6251,1,1,0)
  1.  ;;=1^DETAILED OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6251,1,2,0)
  1.  ;;=2^99221
  1.  ;;^UTILITY(U,$J,358.3,6252,0)
  1.  ;;=99222^^38^335^2
  1.  ;;^UTILITY(U,$J,358.3,6252,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6252,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6252,1,2,0)
  1.  ;;=2^99222
  1.  ;;^UTILITY(U,$J,358.3,6253,0)
  1.  ;;=99223^^38^335^3
  1.  ;;^UTILITY(U,$J,358.3,6253,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6253,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6253,1,2,0)
  1.  ;;=2^99223
  1.  ;;^UTILITY(U,$J,358.3,6254,0)
  1.  ;;=99231^^38^336^1
  1.  ;;^UTILITY(U,$J,358.3,6254,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6254,1,1,0)
  1.  ;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6254,1,2,0)
  1.  ;;=2^99231
  1.  ;;^UTILITY(U,$J,358.3,6255,0)
  1.  ;;=99232^^38^336^2
  1.  ;;^UTILITY(U,$J,358.3,6255,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6255,1,1,0)
  1.  ;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6255,1,2,0)
  1.  ;;=2^99232
  1.  ;;^UTILITY(U,$J,358.3,6256,0)
  1.  ;;=99233^^38^336^3
  1.  ;;^UTILITY(U,$J,358.3,6256,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6256,1,1,0)
  1.  ;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6256,1,2,0)
  1.  ;;=2^99233
  1.  ;;^UTILITY(U,$J,358.3,6257,0)
  1.  ;;=99238^^38^337^1
  1.  ;;^UTILITY(U,$J,358.3,6257,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6257,1,1,0)
  1.  ;;=1^DISCHARGE DAY MGMT 30 MIN OR <
  1.  ;;^UTILITY(U,$J,358.3,6257,1,2,0)
  1.  ;;=2^99238
  1.  ;;^UTILITY(U,$J,358.3,6258,0)
  1.  ;;=99239^^38^337^2
  1.  ;;^UTILITY(U,$J,358.3,6258,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6258,1,1,0)
  1.  ;;=1^DISCHARGE DAY MGMT > 30MIN
  1.  ;;^UTILITY(U,$J,358.3,6258,1,2,0)
  1.  ;;=2^99239
  1.  ;;^UTILITY(U,$J,358.3,6259,0)
  1.  ;;=99218^^38^338^1
  1.  ;;^UTILITY(U,$J,358.3,6259,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6259,1,1,0)
  1.  ;;=1^DETAILED OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6259,1,2,0)
  1.  ;;=2^99218
  1.  ;;^UTILITY(U,$J,358.3,6260,0)
  1.  ;;=99219^^38^338^2
  1.  ;;^UTILITY(U,$J,358.3,6260,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6260,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6260,1,2,0)
  1.  ;;=2^99219
  1.  ;;^UTILITY(U,$J,358.3,6261,0)
  1.  ;;=99220^^38^338^3
  1.  ;;^UTILITY(U,$J,358.3,6261,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6261,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6261,1,2,0)
  1.  ;;=2^99220
  1.  ;;^UTILITY(U,$J,358.3,6262,0)
  1.  ;;=99224^^38^339^1
  1.  ;;^UTILITY(U,$J,358.3,6262,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6262,1,1,0)
  1.  ;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6262,1,2,0)
  1.  ;;=2^99224
  1.  ;;^UTILITY(U,$J,358.3,6263,0)
  1.  ;;=99225^^38^339^2
  1.  ;;^UTILITY(U,$J,358.3,6263,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6263,1,1,0)
  1.  ;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6263,1,2,0)
  1.  ;;=2^99225
  1.  ;;^UTILITY(U,$J,358.3,6264,0)
  1.  ;;=99226^^38^339^3
  1.  ;;^UTILITY(U,$J,358.3,6264,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6264,1,1,0)
  1.  ;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6264,1,2,0)
  1.  ;;=2^99226
  1.  ;;^UTILITY(U,$J,358.3,6265,0)
  1.  ;;=99217^^38^340^1
  1.  ;;^UTILITY(U,$J,358.3,6265,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6265,1,1,0)
  1.  ;;=1^DISCHARGE DAY MGMT
  1.  ;;^UTILITY(U,$J,358.3,6265,1,2,0)
  1.  ;;=2^99217
  1.  ;;^UTILITY(U,$J,358.3,6266,0)
  1.  ;;=99234^^38^341^1
  1.  ;;^UTILITY(U,$J,358.3,6266,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6266,1,1,0)
  1.  ;;=1^DETAIL OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6266,1,2,0)
  1.  ;;=2^99234
  1.  ;;^UTILITY(U,$J,358.3,6267,0)
  1.  ;;=99235^^38^341^2
  1.  ;;^UTILITY(U,$J,358.3,6267,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6267,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6267,1,2,0)
  1.  ;;=2^99235
  1.  ;;^UTILITY(U,$J,358.3,6268,0)
  1.  ;;=99236^^38^341^3
  1.  ;;^UTILITY(U,$J,358.3,6268,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6268,1,1,0)
  1.  ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
  1.  ;;^UTILITY(U,$J,358.3,6268,1,2,0)
  1.  ;;=2^99236
  1.  ;;^UTILITY(U,$J,358.3,6269,0)
  1.  ;;=67800^^39^343^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6269,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6269,1,2,0)
  1.  ;;=2^Chalazion Excision,Single,Single Lid
  1.  ;;^UTILITY(U,$J,358.3,6269,1,3,0)
  1.  ;;=3^67800
  1.  ;;^UTILITY(U,$J,358.3,6270,0)
  1.  ;;=67700^^39^343^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6270,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6270,1,2,0)
  1.  ;;=2^Cyst,Eyelid,Drainage
  1.  ;;^UTILITY(U,$J,358.3,6270,1,3,0)
  1.  ;;=3^67700
  1.  ;;^UTILITY(U,$J,358.3,6271,0)
  1.  ;;=67825^^39^343^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6271,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6271,1,2,0)
  1.  ;;=2^Epilation - Electrosurgical,Cryotherapy
  1.  ;;^UTILITY(U,$J,358.3,6271,1,3,0)
  1.  ;;=3^67825
  1.  ;;^UTILITY(U,$J,358.3,6272,0)
  1.  ;;=67820^^39^343^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6272,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6272,1,2,0)
  1.  ;;=2^Epilation - Forceps
  1.  ;;^UTILITY(U,$J,358.3,6272,1,3,0)
  1.  ;;=3^67820
  1.  ;;^UTILITY(U,$J,358.3,6273,0)
  1.  ;;=67810^^39^343^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6273,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6273,1,2,0)
  1.  ;;=2^Eyelid Lesion,Biopsy
  1.  ;;^UTILITY(U,$J,358.3,6273,1,3,0)
  1.  ;;=3^67810
  1.  ;;^UTILITY(U,$J,358.3,6274,0)
  1.  ;;=67850^^39^343^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6274,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6274,1,2,0)
  1.  ;;=2^Eyelid Lesion,Destruction,<1cm
  1.  ;;^UTILITY(U,$J,358.3,6274,1,3,0)
  1.  ;;=3^67850
  1.  ;;^UTILITY(U,$J,358.3,6275,0)
  1.  ;;=67840^^39^343^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6275,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6275,1,2,0)
  1.  ;;=2^Eyelid Lesion,Excision,Simple
  1.  ;;^UTILITY(U,$J,358.3,6275,1,3,0)
  1.  ;;=3^67840
  1.  ;;^UTILITY(U,$J,358.3,6276,0)
  1.  ;;=67930^^39^343^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6276,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6276,1,2,0)
  1.  ;;=2^Eyelid Wound Repair,Partial Thickness
  1.  ;;^UTILITY(U,$J,358.3,6276,1,3,0)
  1.  ;;=3^67930
  1.  ;;^UTILITY(U,$J,358.3,6277,0)
  1.  ;;=68020^^39^343^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6277,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6277,1,2,0)
  1.  ;;=2^Cyst,Conjunctival,I&D
  1.  ;;^UTILITY(U,$J,358.3,6277,1,3,0)
  1.  ;;=3^68020
  1.  ;;^UTILITY(U,$J,358.3,6278,0)
  1.  ;;=67710^^39^343^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6278,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6278,1,2,0)
  1.  ;;=2^Severing of Tarsorrhaphy
  1.  ;;^UTILITY(U,$J,358.3,6278,1,3,0)
  1.  ;;=3^67710
  1.  ;;^UTILITY(U,$J,358.3,6279,0)
  1.  ;;=67715^^39^343^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6279,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6279,1,2,0)
  1.  ;;=2^Canthotomy
  1.  ;;^UTILITY(U,$J,358.3,6279,1,3,0)
  1.  ;;=3^67715
  1.  ;;^UTILITY(U,$J,358.3,6280,0)
  1.  ;;=68760^^39^343^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6280,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6280,1,2,0)
  1.  ;;=2^Lacrimal Punctum,Closure
  1.  ;;^UTILITY(U,$J,358.3,6280,1,3,0)
  1.  ;;=3^68760
  1.  ;;^UTILITY(U,$J,358.3,6281,0)
  1.  ;;=68761^^39^343^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6281,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6281,1,2,0)
  1.  ;;=2^Punctal Plug,Lacrimal Insert,Each
  1.  ;;^UTILITY(U,$J,358.3,6281,1,3,0)
  1.  ;;=3^68761
  1.  ;;^UTILITY(U,$J,358.3,6282,0)
  1.  ;;=68801^^39^343^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6282,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6282,1,2,0)
  1.  ;;=2^Lacrimal Punctum,Dilate +/- Irrigation
  1.  ;;^UTILITY(U,$J,358.3,6282,1,3,0)
  1.  ;;=3^68801
  1.  ;;^UTILITY(U,$J,358.3,6283,0)
  1.  ;;=37609^^39^343^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6283,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6283,1,2,0)
  1.  ;;=2^Temporal Artery Biopsy
  1.  ;;^UTILITY(U,$J,358.3,6283,1,3,0)
  1.  ;;=3^37609
  1.  ;;^UTILITY(U,$J,358.3,6284,0)
  1.  ;;=67805^^39^343^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6284,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6284,1,2,0)
  1.  ;;=2^Chalazion Excision,Multiple,Different Lids
  1.  ;;^UTILITY(U,$J,358.3,6284,1,3,0)
  1.  ;;=3^67805
  1.  ;;^UTILITY(U,$J,358.3,6285,0)
  1.  ;;=67801^^39^343^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6285,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6285,1,2,0)
  1.  ;;=2^Chalazion Excision,Multiple,Same Lid
  1.  ;;^UTILITY(U,$J,358.3,6285,1,3,0)
  1.  ;;=3^67801
  1.  ;;^UTILITY(U,$J,358.3,6286,0)
  1.  ;;=67900^^39^343^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6286,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6286,1,2,0)
  1.  ;;=2^Brow Ptosis Repair
  1.  ;;^UTILITY(U,$J,358.3,6286,1,3,0)
  1.  ;;=3^67900
  1.  ;;^UTILITY(U,$J,358.3,6287,0)
  1.  ;;=68110^^39^343^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6287,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6287,1,2,0)
  1.  ;;=2^Conjunctival Lesion,Exc,Palp/Blubar Conjunctiva
  1.  ;;^UTILITY(U,$J,358.3,6287,1,3,0)
  1.  ;;=3^68110
  1.  ;;^UTILITY(U,$J,358.3,6288,0)
  1.  ;;=67935^^39^343^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6288,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6288,1,2,0)
  1.  ;;=2^Eyelid Wound Repair,Full Thickness
  1.  ;;^UTILITY(U,$J,358.3,6288,1,3,0)
  1.  ;;=3^67935
  1.  ;;^UTILITY(U,$J,358.3,6289,0)
  1.  ;;=65855^^39^344^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6289,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6289,1,2,0)
  1.  ;;=2^Trabeculoplasty (ALT/SLT),1/more session
  1.  ;;^UTILITY(U,$J,358.3,6289,1,3,0)
  1.  ;;=3^65855
  1.  ;;^UTILITY(U,$J,358.3,6290,0)
  1.  ;;=65860^^39^344^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6290,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6290,1,2,0)
  1.  ;;=2^YAG Lysis of Adhesions in AC
  1.  ;;^UTILITY(U,$J,358.3,6290,1,3,0)
  1.  ;;=3^65860
  1.  ;;^UTILITY(U,$J,358.3,6291,0)
  1.  ;;=66761^^39^344^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6291,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6291,1,2,0)
  1.  ;;=2^Iridotomy/Iridectomy,1/more session
  1.  ;;^UTILITY(U,$J,358.3,6291,1,3,0)
  1.  ;;=3^66761
  1.  ;;^UTILITY(U,$J,358.3,6292,0)
  1.  ;;=66762^^39^344^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6292,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6292,1,2,0)
  1.  ;;=2^Iridoplasty,1/more sessions
  1.  ;;^UTILITY(U,$J,358.3,6292,1,3,0)
  1.  ;;=3^66762
  1.  ;;^UTILITY(U,$J,358.3,6293,0)
  1.  ;;=67105^^39^344^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6293,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6293,1,2,0)
  1.  ;;=2^Retinal Detach Photocoagulation
  1.  ;;^UTILITY(U,$J,358.3,6293,1,3,0)
  1.  ;;=3^67105
  1.  ;;^UTILITY(U,$J,358.3,6294,0)
  1.  ;;=67145^^39^344^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6294,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6294,1,2,0)
  1.  ;;=2^Retinal Tear-Laser
  1.  ;;^UTILITY(U,$J,358.3,6294,1,3,0)
  1.  ;;=3^67145
  1.  ;;^UTILITY(U,$J,358.3,6295,0)
  1.  ;;=67210^^39^344^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6295,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6295,1,2,0)
  1.  ;;=2^Focal Laser (Macula),1/more session
  1.  ;;^UTILITY(U,$J,358.3,6295,1,3,0)
  1.  ;;=3^67210
  1.  ;;^UTILITY(U,$J,358.3,6296,0)
  1.  ;;=67228^^39^344^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6296,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6296,1,2,0)
  1.  ;;=2^PRP Laser (Retinopathy),1/more session
  1.  ;;^UTILITY(U,$J,358.3,6296,1,3,0)
  1.  ;;=3^67228
  1.  ;;^UTILITY(U,$J,358.3,6297,0)
  1.  ;;=67220^^39^344^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6297,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6297,1,2,0)
  1.  ;;=2^Choroidal Lesion-Laser
  1.  ;;^UTILITY(U,$J,358.3,6297,1,3,0)
  1.  ;;=3^67220
  1.  ;;^UTILITY(U,$J,358.3,6298,0)
  1.  ;;=67221^^39^344^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6298,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6298,1,2,0)
  1.  ;;=2^Photodynamic Therapy,1/more session
  1.  ;;^UTILITY(U,$J,358.3,6298,1,3,0)
  1.  ;;=3^67221
  1.  ;;^UTILITY(U,$J,358.3,6299,0)
  1.  ;;=67225^^39^344^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6299,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6299,1,2,0)
  1.  ;;=2^Photodynamic Therapy,2nd eye/1 session
  1.  ;;^UTILITY(U,$J,358.3,6299,1,3,0)
  1.  ;;=3^67225
  1.  ;;^UTILITY(U,$J,358.3,6300,0)
  1.  ;;=66821^^39^344^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6300,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6300,1,2,0)
  1.  ;;=2^YAG Capsulotomy
  1.  ;;^UTILITY(U,$J,358.3,6300,1,3,0)
  1.  ;;=3^66821
  1.  ;;^UTILITY(U,$J,358.3,6301,0)
  1.  ;;=66999^^39^344^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6301,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6301,1,2,0)
  1.  ;;=2^YAG Suture Lysis
  1.  ;;^UTILITY(U,$J,358.3,6301,1,3,0)
  1.  ;;=3^66999
  1.  ;;^UTILITY(U,$J,358.3,6302,0)
  1.  ;;=67110^^39^344^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6302,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6302,1,2,0)
  1.  ;;=2^Retinal Detach-Pneumatic Retinopexy
  1.  ;;^UTILITY(U,$J,358.3,6302,1,3,0)
  1.  ;;=3^67110
  1.  ;;^UTILITY(U,$J,358.3,6303,0)
  1.  ;;=67141^^39^344^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6303,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6303,1,2,0)
  1.  ;;=2^Retinal Tear-Cryotherapy
  1.  ;;^UTILITY(U,$J,358.3,6303,1,3,0)
  1.  ;;=3^67141
  1.  ;;^UTILITY(U,$J,358.3,6304,0)
  1.  ;;=67101^^39^344^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6304,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6304,1,2,0)
  1.  ;;=2^Retinal Detach-Cryotherapy
  1.  ;;^UTILITY(U,$J,358.3,6304,1,3,0)
  1.  ;;=3^67101
  1.  ;;^UTILITY(U,$J,358.3,6305,0)
  1.  ;;=67208^^39^344^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6305,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6305,1,2,0)
  1.  ;;=2^Retinal Lesion-Cryotherapy
  1.  ;;^UTILITY(U,$J,358.3,6305,1,3,0)
  1.  ;;=3^67208
  1.  ;;^UTILITY(U,$J,358.3,6306,0)
  1.  ;;=66710^^39^344^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6306,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6306,1,2,0)
  1.  ;;=2^CPC-Diode Laser,Transcleral
  1.  ;;^UTILITY(U,$J,358.3,6306,1,3,0)
  1.  ;;=3^66710
  1.  ;;^UTILITY(U,$J,358.3,6307,0)
  1.  ;;=76512^^39^344^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6307,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6307,1,2,0)
  1.  ;;=2^U/S B-Scan Only
  1.  ;;^UTILITY(U,$J,358.3,6307,1,3,0)
  1.  ;;=3^76512
  1.  ;;^UTILITY(U,$J,358.3,6308,0)
  1.  ;;=76513^^39^344^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6308,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6308,1,2,0)
  1.  ;;=2^U/S B-Scan,Ant Seg,Water Immersion
  1.  ;;^UTILITY(U,$J,358.3,6308,1,3,0)
  1.  ;;=3^76513
  1.  ;;^UTILITY(U,$J,358.3,6309,0)
  1.  ;;=66711^^39^344^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6309,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6309,1,2,0)
  1.  ;;=2^Ciliary Body Destruction CPC,Endoscopic
  1.  ;;^UTILITY(U,$J,358.3,6309,1,3,0)
  1.  ;;=3^66711
  1.  ;;^UTILITY(U,$J,358.3,6310,0)
  1.  ;;=66720^^39^344^22^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6310,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6310,1,2,0)
  1.  ;;=2^Ciliary Body Destruction,Cryotherapy
  1.  ;;^UTILITY(U,$J,358.3,6310,1,3,0)
  1.  ;;=3^66720
  1.  ;;^UTILITY(U,$J,358.3,6311,0)
  1.  ;;=65205^^39^345^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6311,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6311,1,2,0)
  1.  ;;=2^FB Removal Conj Superficial
  1.  ;;^UTILITY(U,$J,358.3,6311,1,3,0)
  1.  ;;=3^65205
  1.  ;;^UTILITY(U,$J,358.3,6312,0)
  1.  ;;=65210^^39^345^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6312,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6312,1,2,0)
  1.  ;;=2^FB Removal Conj Embedded*(incl Concrtns)
  1.  ;;^UTILITY(U,$J,358.3,6312,1,3,0)
  1.  ;;=3^65210
  1.  ;;^UTILITY(U,$J,358.3,6313,0)
  1.  ;;=65222^^39^345^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6313,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6313,1,2,0)
  1.  ;;=2^FB Removal,Cornea w/ Slit Lamp
  1.  ;;^UTILITY(U,$J,358.3,6313,1,3,0)
  1.  ;;=3^65222
  1.  ;;^UTILITY(U,$J,358.3,6314,0)
  1.  ;;=65220^^39^345^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6314,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6314,1,2,0)
  1.  ;;=2^FB Removal,Cornea w/o Slit Lamp
  1.  ;;^UTILITY(U,$J,358.3,6314,1,3,0)
  1.  ;;=3^65220
  1.  ;;^UTILITY(U,$J,358.3,6315,0)
  1.  ;;=65410^^39^345^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6315,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6315,1,2,0)
  1.  ;;=2^Biopsy of Cornea
  1.  ;;^UTILITY(U,$J,358.3,6315,1,3,0)
  1.  ;;=3^65410
  1.  ;;^UTILITY(U,$J,358.3,6316,0)
  1.  ;;=65435^^39^345^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6316,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6316,1,2,0)
  1.  ;;=2^Corneal Debridement*(tx)
  1.  ;;^UTILITY(U,$J,358.3,6316,1,3,0)
  1.  ;;=3^65435
  1.  ;;^UTILITY(U,$J,358.3,6317,0)
  1.  ;;=65436^^39^345^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6317,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6317,1,2,0)
  1.  ;;=2^Remove Corneal Epith,EDTA
  1.  ;;^UTILITY(U,$J,358.3,6317,1,3,0)
  1.  ;;=3^65436
  1.  ;;^UTILITY(U,$J,358.3,6318,0)
  1.  ;;=65400^^39^345^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6318,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6318,1,2,0)
  1.  ;;=2^Superficial Keratectomy
  1.  ;;^UTILITY(U,$J,358.3,6318,1,3,0)
  1.  ;;=3^65400
  1.  ;;^UTILITY(U,$J,358.3,6319,0)
  1.  ;;=65772^^39^345^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6319,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6319,1,2,0)
  1.  ;;=2^Incision,Cornea,Relaxation
  1.  ;;^UTILITY(U,$J,358.3,6319,1,3,0)
  1.  ;;=3^65772
  1.  ;;^UTILITY(U,$J,358.3,6320,0)
  1.  ;;=68135^^39^345^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6320,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6320,1,2,0)
  1.  ;;=2^Destruction,Conj Lesion
  1.  ;;^UTILITY(U,$J,358.3,6320,1,3,0)
  1.  ;;=3^68135
  1.  ;;^UTILITY(U,$J,358.3,6321,0)
  1.  ;;=65800^^39^345^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6321,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6321,1,2,0)
  1.  ;;=2^Paracentesis of AC
  1.  ;;^UTILITY(U,$J,358.3,6321,1,3,0)
  1.  ;;=3^65800
  1.  ;;^UTILITY(U,$J,358.3,6322,0)
  1.  ;;=66170^^39^345^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6322,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6322,1,2,0)
  1.  ;;=2^Fistulization Sclera for Glauc Trabecul
  1.  ;;^UTILITY(U,$J,358.3,6322,1,3,0)
  1.  ;;=3^66170
  1.  ;;^UTILITY(U,$J,358.3,6323,0)
  1.  ;;=67515^^39^345^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,6323,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,6323,1,2,0)
  1.  ;;=2^Inject Tenon's Capsule
  1.  ;;^UTILITY(U,$J,358.3,6323,1,3,0)
  1.  ;;=3^67515
  1.  ;;^UTILITY(U,$J,358.3,6324,0)
  1.  ;;=66030^^39^346^8^^^^1