IBDEI01T ; ; 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,3559,1,3,0)
;;=3^Remove FB,SQ Tissue,Compl
;;^UTILITY(U,$J,358.3,3560,0)
;;=65205^^34^266^3^^^^1
;;^UTILITY(U,$J,358.3,3560,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3560,1,2,0)
;;=2^65205
;;^UTILITY(U,$J,358.3,3560,1,3,0)
;;=3^Remove FB,Conjunc,External Eye
;;^UTILITY(U,$J,358.3,3561,0)
;;=65210^^34^266^4^^^^1
;;^UTILITY(U,$J,358.3,3561,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3561,1,2,0)
;;=2^65210
;;^UTILITY(U,$J,358.3,3561,1,3,0)
;;=3^Remove FB,Conjunc,Embed,External Eye
;;^UTILITY(U,$J,358.3,3562,0)
;;=65220^^34^266^5^^^^1
;;^UTILITY(U,$J,358.3,3562,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3562,1,2,0)
;;=2^65220
;;^UTILITY(U,$J,358.3,3562,1,3,0)
;;=3^Remove FB,Cornea w/o Slit Lamp
;;^UTILITY(U,$J,358.3,3563,0)
;;=65222^^34^266^6^^^^1
;;^UTILITY(U,$J,358.3,3563,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3563,1,2,0)
;;=2^65222
;;^UTILITY(U,$J,358.3,3563,1,3,0)
;;=3^Remove FB,Cornea,w/Slit Lamp
;;^UTILITY(U,$J,358.3,3564,0)
;;=99395^^34^267^1^^^^1
;;^UTILITY(U,$J,358.3,3564,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3564,1,2,0)
;;=2^99395
;;^UTILITY(U,$J,358.3,3564,1,3,0)
;;=3^Preventive Med-Est Pt 18-39
;;^UTILITY(U,$J,358.3,3565,0)
;;=99396^^34^267^2^^^^1
;;^UTILITY(U,$J,358.3,3565,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3565,1,2,0)
;;=2^99396
;;^UTILITY(U,$J,358.3,3565,1,3,0)
;;=3^Preventive Med-Est Pt 40-64
;;^UTILITY(U,$J,358.3,3566,0)
;;=99397^^34^267^3^^^^1
;;^UTILITY(U,$J,358.3,3566,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3566,1,2,0)
;;=2^99397
;;^UTILITY(U,$J,358.3,3566,1,3,0)
;;=3^Preventive Med-Est Pt > 64
;;^UTILITY(U,$J,358.3,3567,0)
;;=99385^^34^268^1^^^^1
;;^UTILITY(U,$J,358.3,3567,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3567,1,2,0)
;;=2^99385
;;^UTILITY(U,$J,358.3,3567,1,3,0)
;;=3^Preventive Med-New Pt 18-39
;;^UTILITY(U,$J,358.3,3568,0)
;;=99386^^34^268^2^^^^1
;;^UTILITY(U,$J,358.3,3568,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3568,1,2,0)
;;=2^99386
;;^UTILITY(U,$J,358.3,3568,1,3,0)
;;=3^Preventive Med-New Pt 40-64
;;^UTILITY(U,$J,358.3,3569,0)
;;=99387^^34^268^3^^^^1
;;^UTILITY(U,$J,358.3,3569,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3569,1,2,0)
;;=2^99387
;;^UTILITY(U,$J,358.3,3569,1,3,0)
;;=3^Preventive Med-New Pt > 64
;;^UTILITY(U,$J,358.3,3570,0)
;;=3510F^^34^269^10^^^^1
;;^UTILITY(U,$J,358.3,3570,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3570,1,2,0)
;;=2^3510F
;;^UTILITY(U,$J,358.3,3570,1,3,0)
;;=3^TB Screening/Results Interpd
;;^UTILITY(U,$J,358.3,3571,0)
;;=92283^^34^269^4^^^^1
;;^UTILITY(U,$J,358.3,3571,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3571,1,2,0)
;;=2^92283
;;^UTILITY(U,$J,358.3,3571,1,3,0)
;;=3^Color Vision Exam
;;^UTILITY(U,$J,358.3,3572,0)
;;=93000^^34^269^5^^^^1
;;^UTILITY(U,$J,358.3,3572,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3572,1,2,0)
;;=2^93000
;;^UTILITY(U,$J,358.3,3572,1,3,0)
;;=3^EKG,Complete
;;^UTILITY(U,$J,358.3,3573,0)
;;=93005^^34^269^6^^^^1
;;^UTILITY(U,$J,358.3,3573,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3573,1,2,0)
;;=2^93005
;;^UTILITY(U,$J,358.3,3573,1,3,0)
;;=3^EKG,Tracing Only
;;^UTILITY(U,$J,358.3,3574,0)
;;=82948^^34^269^7^^^^1
;;^UTILITY(U,$J,358.3,3574,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3574,1,2,0)
;;=2^82948
;;^UTILITY(U,$J,358.3,3574,1,3,0)
;;=3^Fingerstick,Glucose
;;^UTILITY(U,$J,358.3,3575,0)
;;=82075^^34^269^1^^^^1
;;^UTILITY(U,$J,358.3,3575,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3575,1,2,0)
;;=2^82075
;;^UTILITY(U,$J,358.3,3575,1,3,0)
;;=3^Alcohol,Breathalyzer
;;^UTILITY(U,$J,358.3,3576,0)
;;=94150^^34^269^8^^^^1
;;^UTILITY(U,$J,358.3,3576,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3576,1,2,0)
;;=2^94150
;;^UTILITY(U,$J,358.3,3576,1,3,0)
;;=3^PFT Test
;;^UTILITY(U,$J,358.3,3577,0)
;;=94760^^34^269^9^^^^1
;;^UTILITY(U,$J,358.3,3577,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3577,1,2,0)
;;=2^94760
;;^UTILITY(U,$J,358.3,3577,1,3,0)
;;=3^Pulse Oximetry
;;^UTILITY(U,$J,358.3,3578,0)
;;=36600^^34^269^2^^^^1
;;^UTILITY(U,$J,358.3,3578,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3578,1,2,0)
;;=2^36600
;;^UTILITY(U,$J,358.3,3578,1,3,0)
;;=3^Arterial Puncture
;;^UTILITY(U,$J,358.3,3579,0)
;;=36415^^34^269^11^^^^1
;;^UTILITY(U,$J,358.3,3579,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3579,1,2,0)
;;=2^36415
;;^UTILITY(U,$J,358.3,3579,1,3,0)
;;=3^Venipuncture
;;^UTILITY(U,$J,358.3,3580,0)
;;=93770^^34^269^3^^^^1
;;^UTILITY(U,$J,358.3,3580,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3580,1,2,0)
;;=2^93770
;;^UTILITY(U,$J,358.3,3580,1,3,0)
;;=3^BP/Venous Pressure
;;^UTILITY(U,$J,358.3,3581,0)
;;=99415^^34^270^1^^^^1
;;^UTILITY(U,$J,358.3,3581,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3581,1,2,0)
;;=2^99415
;;^UTILITY(U,$J,358.3,3581,1,3,0)
;;=3^Prolong Clin Staff Svc,1st hr
;;^UTILITY(U,$J,358.3,3582,0)
;;=99416^^34^270^2^^^^1
;;^UTILITY(U,$J,358.3,3582,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3582,1,2,0)
;;=2^99416
;;^UTILITY(U,$J,358.3,3582,1,3,0)
;;=3^Prolong Clin Staff Svc,Ea Addl 30min
;;^UTILITY(U,$J,358.3,3583,0)
;;=90471^^34^271^1^^^^1
;;^UTILITY(U,$J,358.3,3583,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3583,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,3583,1,3,0)
;;=3^Immunization Admin
;;^UTILITY(U,$J,358.3,3584,0)
;;=90472^^34^271^2^^^^1
;;^UTILITY(U,$J,358.3,3584,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,3584,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,3584,1,3,0)
;;=3^Immunization Admin,Ea Addl
;;^UTILITY(U,$J,358.3,3585,0)
;;=S90.511A^^35^272^16
;;^UTILITY(U,$J,358.3,3585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3585,1,3,0)
;;=3^Abrasion,Right ankle, initial encounter
;;^UTILITY(U,$J,358.3,3585,1,4,0)
;;=4^S90.511A
;;^UTILITY(U,$J,358.3,3585,2)
;;=^5043997
;;^UTILITY(U,$J,358.3,3586,0)
;;=S90.512A^^35^272^1
;;^UTILITY(U,$J,358.3,3586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3586,1,3,0)
;;=3^Abrasion,Left ankle, initial encounter
;;^UTILITY(U,$J,358.3,3586,1,4,0)
;;=4^S90.512A
;;^UTILITY(U,$J,358.3,3586,2)
;;=^5044000
;;^UTILITY(U,$J,358.3,3587,0)
;;=S40.811A^^35^272^28
;;^UTILITY(U,$J,358.3,3587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3587,1,3,0)
;;=3^Abrasion,Right upper arm, initial encounter
;;^UTILITY(U,$J,358.3,3587,1,4,0)
;;=4^S40.811A
;;^UTILITY(U,$J,358.3,3587,2)
;;=^5026225
;;^UTILITY(U,$J,358.3,3588,0)
;;=S40.812A^^35^272^13
;;^UTILITY(U,$J,358.3,3588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3588,1,3,0)
;;=3^Abrasion,Left upper arm, initial encounter
;;^UTILITY(U,$J,358.3,3588,1,4,0)
;;=4^S40.812A
;;^UTILITY(U,$J,358.3,3588,2)
;;=^5026228
;;^UTILITY(U,$J,358.3,3589,0)
;;=S05.01XA^^35^272^46
;;^UTILITY(U,$J,358.3,3589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3589,1,3,0)
;;=3^Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init Enctr
;;^UTILITY(U,$J,358.3,3589,1,4,0)
;;=4^S05.01XA
;;^UTILITY(U,$J,358.3,3589,2)
;;=^5020579
;;^UTILITY(U,$J,358.3,3590,0)
;;=S05.02XA^^35^272^45
;;^UTILITY(U,$J,358.3,3590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3590,1,3,0)
;;=3^Conjuctiva/Corneal Abrasion w/o FB,Left Eye,Init Encntr
;;^UTILITY(U,$J,358.3,3590,1,4,0)
;;=4^S05.02XA
;;^UTILITY(U,$J,358.3,3590,2)
;;=^5020582
;;^UTILITY(U,$J,358.3,3591,0)
;;=S50.311A^^35^272^17
;;^UTILITY(U,$J,358.3,3591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3591,1,3,0)
;;=3^Abrasion,Right elbow, initial encounter
;;^UTILITY(U,$J,358.3,3591,1,4,0)
;;=4^S50.311A
;;^UTILITY(U,$J,358.3,3591,2)
;;=^5028500
;;^UTILITY(U,$J,358.3,3592,0)
;;=S50.312A^^35^272^2
;;^UTILITY(U,$J,358.3,3592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3592,1,3,0)
;;=3^Abrasion,Left elbow, initial encounter
;;^UTILITY(U,$J,358.3,3592,1,4,0)
;;=4^S50.312A
;;^UTILITY(U,$J,358.3,3592,2)
;;=^5028503
;;^UTILITY(U,$J,358.3,3593,0)
;;=S00.81XA^^35^272^15
;;^UTILITY(U,$J,358.3,3593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3593,1,3,0)
;;=3^Abrasion,Other part of head, initial encounter
;;^UTILITY(U,$J,358.3,3593,1,4,0)
;;=4^S00.81XA
;;^UTILITY(U,$J,358.3,3593,2)
;;=^5019988
;;^UTILITY(U,$J,358.3,3594,0)
;;=S90.811A^^35^272^18
;;^UTILITY(U,$J,358.3,3594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3594,1,3,0)
;;=3^Abrasion,Right foot, initial encounter
;;^UTILITY(U,$J,358.3,3594,1,4,0)
;;=4^S90.811A
;;^UTILITY(U,$J,358.3,3594,2)
;;=^5044051
;;^UTILITY(U,$J,358.3,3595,0)
;;=S90.812A^^35^272^3
;;^UTILITY(U,$J,358.3,3595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3595,1,3,0)
;;=3^Abrasion,Left foot, initial encounter
;;^UTILITY(U,$J,358.3,3595,1,4,0)
;;=4^S90.812A
;;^UTILITY(U,$J,358.3,3595,2)
;;=^5044054
;;^UTILITY(U,$J,358.3,3596,0)
;;=S90.411A^^35^272^20
;;^UTILITY(U,$J,358.3,3596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3596,1,3,0)
;;=3^Abrasion,Right great toe, initial encounter
;;^UTILITY(U,$J,358.3,3596,1,4,0)
;;=4^S90.411A
;;^UTILITY(U,$J,358.3,3596,2)
;;=^5043889
;;^UTILITY(U,$J,358.3,3597,0)
;;=S90.412A^^35^272^5
;;^UTILITY(U,$J,358.3,3597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3597,1,3,0)
;;=3^Abrasion,Left great toe, initial encounter
;;^UTILITY(U,$J,358.3,3597,1,4,0)
;;=4^S90.412A
;;^UTILITY(U,$J,358.3,3597,2)
;;=^5043892
;;^UTILITY(U,$J,358.3,3598,0)
;;=S90.414A^^35^272^23
;;^UTILITY(U,$J,358.3,3598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3598,1,3,0)
;;=3^Abrasion,Right lesser toe(s), initial encounter
;;^UTILITY(U,$J,358.3,3598,1,4,0)
;;=4^S90.414A
;;^UTILITY(U,$J,358.3,3598,2)
;;=^5043898
;;^UTILITY(U,$J,358.3,3599,0)
;;=S90.415A^^35^272^8
;;^UTILITY(U,$J,358.3,3599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3599,1,3,0)
;;=3^Abrasion,Left lesser toe(s), initial encounter
;;^UTILITY(U,$J,358.3,3599,1,4,0)
;;=4^S90.415A
;;^UTILITY(U,$J,358.3,3599,2)
;;=^5043901
;;^UTILITY(U,$J,358.3,3600,0)
;;=S50.811A^^35^272^19
;;^UTILITY(U,$J,358.3,3600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3600,1,3,0)
;;=3^Abrasion,Right forearm, initial encounter
;;^UTILITY(U,$J,358.3,3600,1,4,0)
;;=4^S50.811A
;;^UTILITY(U,$J,358.3,3600,2)
;;=^5028554
;;^UTILITY(U,$J,358.3,3601,0)
;;=S50.812A^^35^272^4
;;^UTILITY(U,$J,358.3,3601,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3601,1,3,0)
;;=3^Abrasion,Left forearm, initial encounter
;;^UTILITY(U,$J,358.3,3601,1,4,0)
;;=4^S50.812A
;;^UTILITY(U,$J,358.3,3601,2)
;;=^5028557
;;^UTILITY(U,$J,358.3,3602,0)
;;=S60.511A^^35^272^21
;;^UTILITY(U,$J,358.3,3602,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3602,1,3,0)
;;=3^Abrasion,Right hand, initial encounter
;;^UTILITY(U,$J,358.3,3602,1,4,0)
;;=4^S60.511A
;;^UTILITY(U,$J,358.3,3602,2)
;;=^5032528
;;^UTILITY(U,$J,358.3,3603,0)
;;=S60.512A^^35^272^6
;;^UTILITY(U,$J,358.3,3603,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3603,1,3,0)
;;=3^Abrasion,Left hand, initial encounter
;;^UTILITY(U,$J,358.3,3603,1,4,0)
;;=4^S60.512A
;;^UTILITY(U,$J,358.3,3603,2)
;;=^5032531
;;^UTILITY(U,$J,358.3,3604,0)
;;=S80.211A^^35^272^22
;;^UTILITY(U,$J,358.3,3604,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3604,1,3,0)
;;=3^Abrasion,Right knee, initial encounter
;;^UTILITY(U,$J,358.3,3604,1,4,0)
;;=4^S80.211A
;;^UTILITY(U,$J,358.3,3604,2)
;;=^5039906
;;^UTILITY(U,$J,358.3,3605,0)
;;=S80.212A^^35^272^7
;;^UTILITY(U,$J,358.3,3605,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3605,1,3,0)
;;=3^Abrasion,Left knee, initial encounter
;;^UTILITY(U,$J,358.3,3605,1,4,0)
;;=4^S80.212A
;;^UTILITY(U,$J,358.3,3605,2)
;;=^5039909
;;^UTILITY(U,$J,358.3,3606,0)
;;=S80.811A^^35^272^24
;;^UTILITY(U,$J,358.3,3606,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3606,1,3,0)
;;=3^Abrasion,Right lower leg, initial encounter
;;^UTILITY(U,$J,358.3,3606,1,4,0)
;;=4^S80.811A
;;^UTILITY(U,$J,358.3,3606,2)
;;=^5039960
;;^UTILITY(U,$J,358.3,3607,0)
;;=S80.812A^^35^272^9
;;^UTILITY(U,$J,358.3,3607,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3607,1,3,0)
;;=3^Abrasion,Left lower leg, initial encounter
;;^UTILITY(U,$J,358.3,3607,1,4,0)
;;=4^S80.812A
;;^UTILITY(U,$J,358.3,3607,2)
;;=^5039963
;;^UTILITY(U,$J,358.3,3608,0)
;;=S40.211A^^35^272^25
;;^UTILITY(U,$J,358.3,3608,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3608,1,3,0)
;;=3^Abrasion,Right shoulder, initial encounter
;;^UTILITY(U,$J,358.3,3608,1,4,0)
;;=4^S40.211A
;;^UTILITY(U,$J,358.3,3608,2)
;;=^5026171
;;^UTILITY(U,$J,358.3,3609,0)
;;=S40.212A^^35^272^10
;;^UTILITY(U,$J,358.3,3609,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3609,1,3,0)
;;=3^Abrasion,Left shoulder, initial encounter
;;^UTILITY(U,$J,358.3,3609,1,4,0)
;;=4^S40.212A
;;^UTILITY(U,$J,358.3,3609,2)
;;=^5026174
;;^UTILITY(U,$J,358.3,3610,0)
;;=S70.311A^^35^272^26
;;^UTILITY(U,$J,358.3,3610,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3610,1,3,0)
;;=3^Abrasion,Right thigh, initial encounter
;;^UTILITY(U,$J,358.3,3610,1,4,0)
;;=4^S70.311A
;;^UTILITY(U,$J,358.3,3610,2)
;;=^5036903
;;^UTILITY(U,$J,358.3,3611,0)
;;=S70.312A^^35^272^11
;;^UTILITY(U,$J,358.3,3611,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3611,1,3,0)
;;=3^Abrasion,Left thigh, initial encounter
;;^UTILITY(U,$J,358.3,3611,1,4,0)
;;=4^S70.312A
;;^UTILITY(U,$J,358.3,3611,2)
;;=^5036906
;;^UTILITY(U,$J,358.3,3612,0)
;;=S60.311A^^35^272^27
;;^UTILITY(U,$J,358.3,3612,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3612,1,3,0)
;;=3^Abrasion,Right thumb, initial encounter
;;^UTILITY(U,$J,358.3,3612,1,4,0)
;;=4^S60.311A
;;^UTILITY(U,$J,358.3,3612,2)
;;=^5032285
;;^UTILITY(U,$J,358.3,3613,0)
;;=S60.312A^^35^272^12
;;^UTILITY(U,$J,358.3,3613,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3613,1,3,0)
;;=3^Abrasion,Left thumb, initial encounter
;;^UTILITY(U,$J,358.3,3613,1,4,0)
;;=4^S60.312A
;;^UTILITY(U,$J,358.3,3613,2)
;;=^5032288
;;^UTILITY(U,$J,358.3,3614,0)
;;=S60.811A^^35^272^29
;;^UTILITY(U,$J,358.3,3614,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3614,1,3,0)
;;=3^Abrasion,Right wrist, initial encounter
;;^UTILITY(U,$J,358.3,3614,1,4,0)
;;=4^S60.811A
;;^UTILITY(U,$J,358.3,3614,2)
;;=^5032582
;;^UTILITY(U,$J,358.3,3615,0)
;;=S60.812A^^35^272^14
;;^UTILITY(U,$J,358.3,3615,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3615,1,3,0)
;;=3^Abrasion,Left wrist, initial encounter
;;^UTILITY(U,$J,358.3,3615,1,4,0)
;;=4^S60.812A
;;^UTILITY(U,$J,358.3,3615,2)
;;=^5032585
;;^UTILITY(U,$J,358.3,3616,0)
;;=T78.3XXA^^35^272^30
;;^UTILITY(U,$J,358.3,3616,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3616,1,3,0)
;;=3^Angioneurotic edema, initial encounter
;;^UTILITY(U,$J,358.3,3616,1,4,0)
;;=4^T78.3XXA
;;^UTILITY(U,$J,358.3,3616,2)
;;=^5054281
;;^UTILITY(U,$J,358.3,3617,0)
;;=T63.441A^^35^272^246
;;^UTILITY(U,$J,358.3,3617,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3617,1,3,0)
;;=3^Toxic effect of venom of bees, accidental, init
;;^UTILITY(U,$J,358.3,3617,1,4,0)
;;=4^T63.441A
;;^UTILITY(U,$J,358.3,3617,2)
;;=^5053522
;;^UTILITY(U,$J,358.3,3618,0)
;;=S91.051A^^35^272^147
;;^UTILITY(U,$J,358.3,3618,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3618,1,3,0)
;;=3^Open bite, right ankle, initial encounter
;;^UTILITY(U,$J,358.3,3618,1,4,0)
;;=4^S91.051A
;;^UTILITY(U,$J,358.3,3618,2)
;;=^5044159
;;^UTILITY(U,$J,358.3,3619,0)
;;=S91.052A^^35^272^139
;;^UTILITY(U,$J,358.3,3619,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3619,1,3,0)
;;=3^Open bite, left ankle, initial encounter
;;^UTILITY(U,$J,358.3,3619,1,4,0)
;;=4^S91.052A
;;^UTILITY(U,$J,358.3,3619,2)
;;=^5044162
;;^UTILITY(U,$J,358.3,3620,0)
;;=S41.151A^^35^272^154
;;^UTILITY(U,$J,358.3,3620,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3620,1,3,0)
;;=3^Open bite, right upper arm, initial encounter
;;^UTILITY(U,$J,358.3,3620,1,4,0)
;;=4^S41.151A
;;^UTILITY(U,$J,358.3,3620,2)
;;=^5026360
;;^UTILITY(U,$J,358.3,3621,0)
;;=S41.152A^^35^272^146
;;^UTILITY(U,$J,358.3,3621,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3621,1,3,0)
;;=3^Open bite, left upper arm, initial encounter
;;^UTILITY(U,$J,358.3,3621,1,4,0)
;;=4^S41.152A
;;^UTILITY(U,$J,358.3,3621,2)
;;=^5026363
;;^UTILITY(U,$J,358.3,3622,0)
;;=S51.851A^^35^272^149
;;^UTILITY(U,$J,358.3,3622,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3622,1,3,0)
;;=3^Open bite, right forearm, initial encounter
;;^UTILITY(U,$J,358.3,3622,1,4,0)
;;=4^S51.851A
;;^UTILITY(U,$J,358.3,3622,2)
;;=^5028689
;;^UTILITY(U,$J,358.3,3623,0)
;;=S51.852A^^35^272^141
;;^UTILITY(U,$J,358.3,3623,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3623,1,3,0)
;;=3^Open bite, left forearm, initial encounter
;;^UTILITY(U,$J,358.3,3623,1,4,0)
;;=4^S51.852A
;;^UTILITY(U,$J,358.3,3623,2)
;;=^5028692
;;^UTILITY(U,$J,358.3,3624,0)
;;=S40.861A^^35^272^111
;;^UTILITY(U,$J,358.3,3624,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3624,1,3,0)
;;=3^Insect bite (nonvenomous) of right upper arm, init encntr
;;^UTILITY(U,$J,358.3,3624,1,4,0)
;;=4^S40.861A
;;^UTILITY(U,$J,358.3,3624,2)
;;=^5026261
;;^UTILITY(U,$J,358.3,3625,0)
;;=S40.862A^^35^272^109
;;^UTILITY(U,$J,358.3,3625,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3625,1,3,0)
;;=3^Insect bite (nonvenomous) of left upper arm, init encntr
;;^UTILITY(U,$J,358.3,3625,1,4,0)
;;=4^S40.862A
;;^UTILITY(U,$J,358.3,3625,2)
;;=^5026264
;;^UTILITY(U,$J,358.3,3626,0)
;;=S50.861A^^35^272^110
;;^UTILITY(U,$J,358.3,3626,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3626,1,3,0)
;;=3^Insect bite (nonvenomous) of right forearm, init encntr
;;^UTILITY(U,$J,358.3,3626,1,4,0)
;;=4^S50.861A
;;^UTILITY(U,$J,358.3,3626,2)
;;=^5028590
;;^UTILITY(U,$J,358.3,3627,0)
;;=S50.862A^^35^272^108
;;^UTILITY(U,$J,358.3,3627,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3627,1,3,0)
;;=3^Insect bite (nonvenomous) of left forearm, initial encounter
;;^UTILITY(U,$J,358.3,3627,1,4,0)
;;=4^S50.862A
;;^UTILITY(U,$J,358.3,3627,2)
;;=^5028593
;;^UTILITY(U,$J,358.3,3628,0)
;;=S91.351A^^35^272^148
;;^UTILITY(U,$J,358.3,3628,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3628,1,3,0)
;;=3^Open bite, right foot, initial encounter
;;^UTILITY(U,$J,358.3,3628,1,4,0)
;;=4^S91.351A
;;^UTILITY(U,$J,358.3,3628,2)
;;=^5044344
;;^UTILITY(U,$J,358.3,3629,0)
;;=S91.352A^^35^272^140
;;^UTILITY(U,$J,358.3,3629,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3629,1,3,0)
;;=3^Open bite, left foot, initial encounter
;;^UTILITY(U,$J,358.3,3629,1,4,0)
;;=4^S91.352A
;;^UTILITY(U,$J,358.3,3629,2)
;;=^5044347
;;^UTILITY(U,$J,358.3,3630,0)
;;=S61.451A^^35^272^151
;;^UTILITY(U,$J,358.3,3630,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3630,1,3,0)
;;=3^Open bite, right hand, initial encounter
;;^UTILITY(U,$J,358.3,3630,1,4,0)
;;=4^S61.451A
;;^UTILITY(U,$J,358.3,3630,2)
;;=^5033011
;;^UTILITY(U,$J,358.3,3631,0)
;;=S61.452A^^35^272^143
;;^UTILITY(U,$J,358.3,3631,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,3631,1,3,0)
;;=3^Open bite, left hand, initial encounter
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI01T 19758 printed Feb 10, 2021@21:00:23 Page 2
IBDEI01T ; ; 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,3559,1,3,0)
+2 ;;=3^Remove FB,SQ Tissue,Compl
+3 ;;^UTILITY(U,$J,358.3,3560,0)
+4 ;;=65205^^34^266^3^^^^1
+5 ;;^UTILITY(U,$J,358.3,3560,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,3560,1,2,0)
+8 ;;=2^65205
+9 ;;^UTILITY(U,$J,358.3,3560,1,3,0)
+10 ;;=3^Remove FB,Conjunc,External Eye
+11 ;;^UTILITY(U,$J,358.3,3561,0)
+12 ;;=65210^^34^266^4^^^^1
+13 ;;^UTILITY(U,$J,358.3,3561,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,3561,1,2,0)
+16 ;;=2^65210
+17 ;;^UTILITY(U,$J,358.3,3561,1,3,0)
+18 ;;=3^Remove FB,Conjunc,Embed,External Eye
+19 ;;^UTILITY(U,$J,358.3,3562,0)
+20 ;;=65220^^34^266^5^^^^1
+21 ;;^UTILITY(U,$J,358.3,3562,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,3562,1,2,0)
+24 ;;=2^65220
+25 ;;^UTILITY(U,$J,358.3,3562,1,3,0)
+26 ;;=3^Remove FB,Cornea w/o Slit Lamp
+27 ;;^UTILITY(U,$J,358.3,3563,0)
+28 ;;=65222^^34^266^6^^^^1
+29 ;;^UTILITY(U,$J,358.3,3563,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,3563,1,2,0)
+32 ;;=2^65222
+33 ;;^UTILITY(U,$J,358.3,3563,1,3,0)
+34 ;;=3^Remove FB,Cornea,w/Slit Lamp
+35 ;;^UTILITY(U,$J,358.3,3564,0)
+36 ;;=99395^^34^267^1^^^^1
+37 ;;^UTILITY(U,$J,358.3,3564,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,3564,1,2,0)
+40 ;;=2^99395
+41 ;;^UTILITY(U,$J,358.3,3564,1,3,0)
+42 ;;=3^Preventive Med-Est Pt 18-39
+43 ;;^UTILITY(U,$J,358.3,3565,0)
+44 ;;=99396^^34^267^2^^^^1
+45 ;;^UTILITY(U,$J,358.3,3565,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,3565,1,2,0)
+48 ;;=2^99396
+49 ;;^UTILITY(U,$J,358.3,3565,1,3,0)
+50 ;;=3^Preventive Med-Est Pt 40-64
+51 ;;^UTILITY(U,$J,358.3,3566,0)
+52 ;;=99397^^34^267^3^^^^1
+53 ;;^UTILITY(U,$J,358.3,3566,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,3566,1,2,0)
+56 ;;=2^99397
+57 ;;^UTILITY(U,$J,358.3,3566,1,3,0)
+58 ;;=3^Preventive Med-Est Pt > 64
+59 ;;^UTILITY(U,$J,358.3,3567,0)
+60 ;;=99385^^34^268^1^^^^1
+61 ;;^UTILITY(U,$J,358.3,3567,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,3567,1,2,0)
+64 ;;=2^99385
+65 ;;^UTILITY(U,$J,358.3,3567,1,3,0)
+66 ;;=3^Preventive Med-New Pt 18-39
+67 ;;^UTILITY(U,$J,358.3,3568,0)
+68 ;;=99386^^34^268^2^^^^1
+69 ;;^UTILITY(U,$J,358.3,3568,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,3568,1,2,0)
+72 ;;=2^99386
+73 ;;^UTILITY(U,$J,358.3,3568,1,3,0)
+74 ;;=3^Preventive Med-New Pt 40-64
+75 ;;^UTILITY(U,$J,358.3,3569,0)
+76 ;;=99387^^34^268^3^^^^1
+77 ;;^UTILITY(U,$J,358.3,3569,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,3569,1,2,0)
+80 ;;=2^99387
+81 ;;^UTILITY(U,$J,358.3,3569,1,3,0)
+82 ;;=3^Preventive Med-New Pt > 64
+83 ;;^UTILITY(U,$J,358.3,3570,0)
+84 ;;=3510F^^34^269^10^^^^1
+85 ;;^UTILITY(U,$J,358.3,3570,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,3570,1,2,0)
+88 ;;=2^3510F
+89 ;;^UTILITY(U,$J,358.3,3570,1,3,0)
+90 ;;=3^TB Screening/Results Interpd
+91 ;;^UTILITY(U,$J,358.3,3571,0)
+92 ;;=92283^^34^269^4^^^^1
+93 ;;^UTILITY(U,$J,358.3,3571,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,3571,1,2,0)
+96 ;;=2^92283
+97 ;;^UTILITY(U,$J,358.3,3571,1,3,0)
+98 ;;=3^Color Vision Exam
+99 ;;^UTILITY(U,$J,358.3,3572,0)
+100 ;;=93000^^34^269^5^^^^1
+101 ;;^UTILITY(U,$J,358.3,3572,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,3572,1,2,0)
+104 ;;=2^93000
+105 ;;^UTILITY(U,$J,358.3,3572,1,3,0)
+106 ;;=3^EKG,Complete
+107 ;;^UTILITY(U,$J,358.3,3573,0)
+108 ;;=93005^^34^269^6^^^^1
+109 ;;^UTILITY(U,$J,358.3,3573,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,3573,1,2,0)
+112 ;;=2^93005
+113 ;;^UTILITY(U,$J,358.3,3573,1,3,0)
+114 ;;=3^EKG,Tracing Only
+115 ;;^UTILITY(U,$J,358.3,3574,0)
+116 ;;=82948^^34^269^7^^^^1
+117 ;;^UTILITY(U,$J,358.3,3574,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,3574,1,2,0)
+120 ;;=2^82948
+121 ;;^UTILITY(U,$J,358.3,3574,1,3,0)
+122 ;;=3^Fingerstick,Glucose
+123 ;;^UTILITY(U,$J,358.3,3575,0)
+124 ;;=82075^^34^269^1^^^^1
+125 ;;^UTILITY(U,$J,358.3,3575,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,3575,1,2,0)
+128 ;;=2^82075
+129 ;;^UTILITY(U,$J,358.3,3575,1,3,0)
+130 ;;=3^Alcohol,Breathalyzer
+131 ;;^UTILITY(U,$J,358.3,3576,0)
+132 ;;=94150^^34^269^8^^^^1
+133 ;;^UTILITY(U,$J,358.3,3576,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,3576,1,2,0)
+136 ;;=2^94150
+137 ;;^UTILITY(U,$J,358.3,3576,1,3,0)
+138 ;;=3^PFT Test
+139 ;;^UTILITY(U,$J,358.3,3577,0)
+140 ;;=94760^^34^269^9^^^^1
+141 ;;^UTILITY(U,$J,358.3,3577,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,3577,1,2,0)
+144 ;;=2^94760
+145 ;;^UTILITY(U,$J,358.3,3577,1,3,0)
+146 ;;=3^Pulse Oximetry
+147 ;;^UTILITY(U,$J,358.3,3578,0)
+148 ;;=36600^^34^269^2^^^^1
+149 ;;^UTILITY(U,$J,358.3,3578,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,3578,1,2,0)
+152 ;;=2^36600
+153 ;;^UTILITY(U,$J,358.3,3578,1,3,0)
+154 ;;=3^Arterial Puncture
+155 ;;^UTILITY(U,$J,358.3,3579,0)
+156 ;;=36415^^34^269^11^^^^1
+157 ;;^UTILITY(U,$J,358.3,3579,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,3579,1,2,0)
+160 ;;=2^36415
+161 ;;^UTILITY(U,$J,358.3,3579,1,3,0)
+162 ;;=3^Venipuncture
+163 ;;^UTILITY(U,$J,358.3,3580,0)
+164 ;;=93770^^34^269^3^^^^1
+165 ;;^UTILITY(U,$J,358.3,3580,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,3580,1,2,0)
+168 ;;=2^93770
+169 ;;^UTILITY(U,$J,358.3,3580,1,3,0)
+170 ;;=3^BP/Venous Pressure
+171 ;;^UTILITY(U,$J,358.3,3581,0)
+172 ;;=99415^^34^270^1^^^^1
+173 ;;^UTILITY(U,$J,358.3,3581,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,3581,1,2,0)
+176 ;;=2^99415
+177 ;;^UTILITY(U,$J,358.3,3581,1,3,0)
+178 ;;=3^Prolong Clin Staff Svc,1st hr
+179 ;;^UTILITY(U,$J,358.3,3582,0)
+180 ;;=99416^^34^270^2^^^^1
+181 ;;^UTILITY(U,$J,358.3,3582,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,3582,1,2,0)
+184 ;;=2^99416
+185 ;;^UTILITY(U,$J,358.3,3582,1,3,0)
+186 ;;=3^Prolong Clin Staff Svc,Ea Addl 30min
+187 ;;^UTILITY(U,$J,358.3,3583,0)
+188 ;;=90471^^34^271^1^^^^1
+189 ;;^UTILITY(U,$J,358.3,3583,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,3583,1,2,0)
+192 ;;=2^90471
+193 ;;^UTILITY(U,$J,358.3,3583,1,3,0)
+194 ;;=3^Immunization Admin
+195 ;;^UTILITY(U,$J,358.3,3584,0)
+196 ;;=90472^^34^271^2^^^^1
+197 ;;^UTILITY(U,$J,358.3,3584,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,3584,1,2,0)
+200 ;;=2^90472
+201 ;;^UTILITY(U,$J,358.3,3584,1,3,0)
+202 ;;=3^Immunization Admin,Ea Addl
+203 ;;^UTILITY(U,$J,358.3,3585,0)
+204 ;;=S90.511A^^35^272^16
+205 ;;^UTILITY(U,$J,358.3,3585,1,0)
+206 ;;=^358.31IA^4^2
+207 ;;^UTILITY(U,$J,358.3,3585,1,3,0)
+208 ;;=3^Abrasion,Right ankle, initial encounter
+209 ;;^UTILITY(U,$J,358.3,3585,1,4,0)
+210 ;;=4^S90.511A
+211 ;;^UTILITY(U,$J,358.3,3585,2)
+212 ;;=^5043997
+213 ;;^UTILITY(U,$J,358.3,3586,0)
+214 ;;=S90.512A^^35^272^1
+215 ;;^UTILITY(U,$J,358.3,3586,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,3586,1,3,0)
+218 ;;=3^Abrasion,Left ankle, initial encounter
+219 ;;^UTILITY(U,$J,358.3,3586,1,4,0)
+220 ;;=4^S90.512A
+221 ;;^UTILITY(U,$J,358.3,3586,2)
+222 ;;=^5044000
+223 ;;^UTILITY(U,$J,358.3,3587,0)
+224 ;;=S40.811A^^35^272^28
+225 ;;^UTILITY(U,$J,358.3,3587,1,0)
+226 ;;=^358.31IA^4^2
+227 ;;^UTILITY(U,$J,358.3,3587,1,3,0)
+228 ;;=3^Abrasion,Right upper arm, initial encounter
+229 ;;^UTILITY(U,$J,358.3,3587,1,4,0)
+230 ;;=4^S40.811A
+231 ;;^UTILITY(U,$J,358.3,3587,2)
+232 ;;=^5026225
+233 ;;^UTILITY(U,$J,358.3,3588,0)
+234 ;;=S40.812A^^35^272^13
+235 ;;^UTILITY(U,$J,358.3,3588,1,0)
+236 ;;=^358.31IA^4^2
+237 ;;^UTILITY(U,$J,358.3,3588,1,3,0)
+238 ;;=3^Abrasion,Left upper arm, initial encounter
+239 ;;^UTILITY(U,$J,358.3,3588,1,4,0)
+240 ;;=4^S40.812A
+241 ;;^UTILITY(U,$J,358.3,3588,2)
+242 ;;=^5026228
+243 ;;^UTILITY(U,$J,358.3,3589,0)
+244 ;;=S05.01XA^^35^272^46
+245 ;;^UTILITY(U,$J,358.3,3589,1,0)
+246 ;;=^358.31IA^4^2
+247 ;;^UTILITY(U,$J,358.3,3589,1,3,0)
+248 ;;=3^Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init Enctr
+249 ;;^UTILITY(U,$J,358.3,3589,1,4,0)
+250 ;;=4^S05.01XA
+251 ;;^UTILITY(U,$J,358.3,3589,2)
+252 ;;=^5020579
+253 ;;^UTILITY(U,$J,358.3,3590,0)
+254 ;;=S05.02XA^^35^272^45
+255 ;;^UTILITY(U,$J,358.3,3590,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,3590,1,3,0)
+258 ;;=3^Conjuctiva/Corneal Abrasion w/o FB,Left Eye,Init Encntr
+259 ;;^UTILITY(U,$J,358.3,3590,1,4,0)
+260 ;;=4^S05.02XA
+261 ;;^UTILITY(U,$J,358.3,3590,2)
+262 ;;=^5020582
+263 ;;^UTILITY(U,$J,358.3,3591,0)
+264 ;;=S50.311A^^35^272^17
+265 ;;^UTILITY(U,$J,358.3,3591,1,0)
+266 ;;=^358.31IA^4^2
+267 ;;^UTILITY(U,$J,358.3,3591,1,3,0)
+268 ;;=3^Abrasion,Right elbow, initial encounter
+269 ;;^UTILITY(U,$J,358.3,3591,1,4,0)
+270 ;;=4^S50.311A
+271 ;;^UTILITY(U,$J,358.3,3591,2)
+272 ;;=^5028500
+273 ;;^UTILITY(U,$J,358.3,3592,0)
+274 ;;=S50.312A^^35^272^2
+275 ;;^UTILITY(U,$J,358.3,3592,1,0)
+276 ;;=^358.31IA^4^2
+277 ;;^UTILITY(U,$J,358.3,3592,1,3,0)
+278 ;;=3^Abrasion,Left elbow, initial encounter
+279 ;;^UTILITY(U,$J,358.3,3592,1,4,0)
+280 ;;=4^S50.312A
+281 ;;^UTILITY(U,$J,358.3,3592,2)
+282 ;;=^5028503
+283 ;;^UTILITY(U,$J,358.3,3593,0)
+284 ;;=S00.81XA^^35^272^15
+285 ;;^UTILITY(U,$J,358.3,3593,1,0)
+286 ;;=^358.31IA^4^2
+287 ;;^UTILITY(U,$J,358.3,3593,1,3,0)
+288 ;;=3^Abrasion,Other part of head, initial encounter
+289 ;;^UTILITY(U,$J,358.3,3593,1,4,0)
+290 ;;=4^S00.81XA
+291 ;;^UTILITY(U,$J,358.3,3593,2)
+292 ;;=^5019988
+293 ;;^UTILITY(U,$J,358.3,3594,0)
+294 ;;=S90.811A^^35^272^18
+295 ;;^UTILITY(U,$J,358.3,3594,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,3594,1,3,0)
+298 ;;=3^Abrasion,Right foot, initial encounter
+299 ;;^UTILITY(U,$J,358.3,3594,1,4,0)
+300 ;;=4^S90.811A
+301 ;;^UTILITY(U,$J,358.3,3594,2)
+302 ;;=^5044051
+303 ;;^UTILITY(U,$J,358.3,3595,0)
+304 ;;=S90.812A^^35^272^3
+305 ;;^UTILITY(U,$J,358.3,3595,1,0)
+306 ;;=^358.31IA^4^2
+307 ;;^UTILITY(U,$J,358.3,3595,1,3,0)
+308 ;;=3^Abrasion,Left foot, initial encounter
+309 ;;^UTILITY(U,$J,358.3,3595,1,4,0)
+310 ;;=4^S90.812A
+311 ;;^UTILITY(U,$J,358.3,3595,2)
+312 ;;=^5044054
+313 ;;^UTILITY(U,$J,358.3,3596,0)
+314 ;;=S90.411A^^35^272^20
+315 ;;^UTILITY(U,$J,358.3,3596,1,0)
+316 ;;=^358.31IA^4^2
+317 ;;^UTILITY(U,$J,358.3,3596,1,3,0)
+318 ;;=3^Abrasion,Right great toe, initial encounter
+319 ;;^UTILITY(U,$J,358.3,3596,1,4,0)
+320 ;;=4^S90.411A
+321 ;;^UTILITY(U,$J,358.3,3596,2)
+322 ;;=^5043889
+323 ;;^UTILITY(U,$J,358.3,3597,0)
+324 ;;=S90.412A^^35^272^5
+325 ;;^UTILITY(U,$J,358.3,3597,1,0)
+326 ;;=^358.31IA^4^2
+327 ;;^UTILITY(U,$J,358.3,3597,1,3,0)
+328 ;;=3^Abrasion,Left great toe, initial encounter
+329 ;;^UTILITY(U,$J,358.3,3597,1,4,0)
+330 ;;=4^S90.412A
+331 ;;^UTILITY(U,$J,358.3,3597,2)
+332 ;;=^5043892
+333 ;;^UTILITY(U,$J,358.3,3598,0)
+334 ;;=S90.414A^^35^272^23
+335 ;;^UTILITY(U,$J,358.3,3598,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,3598,1,3,0)
+338 ;;=3^Abrasion,Right lesser toe(s), initial encounter
+339 ;;^UTILITY(U,$J,358.3,3598,1,4,0)
+340 ;;=4^S90.414A
+341 ;;^UTILITY(U,$J,358.3,3598,2)
+342 ;;=^5043898
+343 ;;^UTILITY(U,$J,358.3,3599,0)
+344 ;;=S90.415A^^35^272^8
+345 ;;^UTILITY(U,$J,358.3,3599,1,0)
+346 ;;=^358.31IA^4^2
+347 ;;^UTILITY(U,$J,358.3,3599,1,3,0)
+348 ;;=3^Abrasion,Left lesser toe(s), initial encounter
+349 ;;^UTILITY(U,$J,358.3,3599,1,4,0)
+350 ;;=4^S90.415A
+351 ;;^UTILITY(U,$J,358.3,3599,2)
+352 ;;=^5043901
+353 ;;^UTILITY(U,$J,358.3,3600,0)
+354 ;;=S50.811A^^35^272^19
+355 ;;^UTILITY(U,$J,358.3,3600,1,0)
+356 ;;=^358.31IA^4^2
+357 ;;^UTILITY(U,$J,358.3,3600,1,3,0)
+358 ;;=3^Abrasion,Right forearm, initial encounter
+359 ;;^UTILITY(U,$J,358.3,3600,1,4,0)
+360 ;;=4^S50.811A
+361 ;;^UTILITY(U,$J,358.3,3600,2)
+362 ;;=^5028554
+363 ;;^UTILITY(U,$J,358.3,3601,0)
+364 ;;=S50.812A^^35^272^4
+365 ;;^UTILITY(U,$J,358.3,3601,1,0)
+366 ;;=^358.31IA^4^2
+367 ;;^UTILITY(U,$J,358.3,3601,1,3,0)
+368 ;;=3^Abrasion,Left forearm, initial encounter
+369 ;;^UTILITY(U,$J,358.3,3601,1,4,0)
+370 ;;=4^S50.812A
+371 ;;^UTILITY(U,$J,358.3,3601,2)
+372 ;;=^5028557
+373 ;;^UTILITY(U,$J,358.3,3602,0)
+374 ;;=S60.511A^^35^272^21
+375 ;;^UTILITY(U,$J,358.3,3602,1,0)
+376 ;;=^358.31IA^4^2
+377 ;;^UTILITY(U,$J,358.3,3602,1,3,0)
+378 ;;=3^Abrasion,Right hand, initial encounter
+379 ;;^UTILITY(U,$J,358.3,3602,1,4,0)
+380 ;;=4^S60.511A
+381 ;;^UTILITY(U,$J,358.3,3602,2)
+382 ;;=^5032528
+383 ;;^UTILITY(U,$J,358.3,3603,0)
+384 ;;=S60.512A^^35^272^6
+385 ;;^UTILITY(U,$J,358.3,3603,1,0)
+386 ;;=^358.31IA^4^2
+387 ;;^UTILITY(U,$J,358.3,3603,1,3,0)
+388 ;;=3^Abrasion,Left hand, initial encounter
+389 ;;^UTILITY(U,$J,358.3,3603,1,4,0)
+390 ;;=4^S60.512A
+391 ;;^UTILITY(U,$J,358.3,3603,2)
+392 ;;=^5032531
+393 ;;^UTILITY(U,$J,358.3,3604,0)
+394 ;;=S80.211A^^35^272^22
+395 ;;^UTILITY(U,$J,358.3,3604,1,0)
+396 ;;=^358.31IA^4^2
+397 ;;^UTILITY(U,$J,358.3,3604,1,3,0)
+398 ;;=3^Abrasion,Right knee, initial encounter
+399 ;;^UTILITY(U,$J,358.3,3604,1,4,0)
+400 ;;=4^S80.211A
+401 ;;^UTILITY(U,$J,358.3,3604,2)
+402 ;;=^5039906
+403 ;;^UTILITY(U,$J,358.3,3605,0)
+404 ;;=S80.212A^^35^272^7
+405 ;;^UTILITY(U,$J,358.3,3605,1,0)
+406 ;;=^358.31IA^4^2
+407 ;;^UTILITY(U,$J,358.3,3605,1,3,0)
+408 ;;=3^Abrasion,Left knee, initial encounter
+409 ;;^UTILITY(U,$J,358.3,3605,1,4,0)
+410 ;;=4^S80.212A
+411 ;;^UTILITY(U,$J,358.3,3605,2)
+412 ;;=^5039909
+413 ;;^UTILITY(U,$J,358.3,3606,0)
+414 ;;=S80.811A^^35^272^24
+415 ;;^UTILITY(U,$J,358.3,3606,1,0)
+416 ;;=^358.31IA^4^2
+417 ;;^UTILITY(U,$J,358.3,3606,1,3,0)
+418 ;;=3^Abrasion,Right lower leg, initial encounter
+419 ;;^UTILITY(U,$J,358.3,3606,1,4,0)
+420 ;;=4^S80.811A
+421 ;;^UTILITY(U,$J,358.3,3606,2)
+422 ;;=^5039960
+423 ;;^UTILITY(U,$J,358.3,3607,0)
+424 ;;=S80.812A^^35^272^9
+425 ;;^UTILITY(U,$J,358.3,3607,1,0)
+426 ;;=^358.31IA^4^2
+427 ;;^UTILITY(U,$J,358.3,3607,1,3,0)
+428 ;;=3^Abrasion,Left lower leg, initial encounter
+429 ;;^UTILITY(U,$J,358.3,3607,1,4,0)
+430 ;;=4^S80.812A
+431 ;;^UTILITY(U,$J,358.3,3607,2)
+432 ;;=^5039963
+433 ;;^UTILITY(U,$J,358.3,3608,0)
+434 ;;=S40.211A^^35^272^25
+435 ;;^UTILITY(U,$J,358.3,3608,1,0)
+436 ;;=^358.31IA^4^2
+437 ;;^UTILITY(U,$J,358.3,3608,1,3,0)
+438 ;;=3^Abrasion,Right shoulder, initial encounter
+439 ;;^UTILITY(U,$J,358.3,3608,1,4,0)
+440 ;;=4^S40.211A
+441 ;;^UTILITY(U,$J,358.3,3608,2)
+442 ;;=^5026171
+443 ;;^UTILITY(U,$J,358.3,3609,0)
+444 ;;=S40.212A^^35^272^10
+445 ;;^UTILITY(U,$J,358.3,3609,1,0)
+446 ;;=^358.31IA^4^2
+447 ;;^UTILITY(U,$J,358.3,3609,1,3,0)
+448 ;;=3^Abrasion,Left shoulder, initial encounter
+449 ;;^UTILITY(U,$J,358.3,3609,1,4,0)
+450 ;;=4^S40.212A
+451 ;;^UTILITY(U,$J,358.3,3609,2)
+452 ;;=^5026174
+453 ;;^UTILITY(U,$J,358.3,3610,0)
+454 ;;=S70.311A^^35^272^26
+455 ;;^UTILITY(U,$J,358.3,3610,1,0)
+456 ;;=^358.31IA^4^2
+457 ;;^UTILITY(U,$J,358.3,3610,1,3,0)
+458 ;;=3^Abrasion,Right thigh, initial encounter
+459 ;;^UTILITY(U,$J,358.3,3610,1,4,0)
+460 ;;=4^S70.311A
+461 ;;^UTILITY(U,$J,358.3,3610,2)
+462 ;;=^5036903
+463 ;;^UTILITY(U,$J,358.3,3611,0)
+464 ;;=S70.312A^^35^272^11
+465 ;;^UTILITY(U,$J,358.3,3611,1,0)
+466 ;;=^358.31IA^4^2
+467 ;;^UTILITY(U,$J,358.3,3611,1,3,0)
+468 ;;=3^Abrasion,Left thigh, initial encounter
+469 ;;^UTILITY(U,$J,358.3,3611,1,4,0)
+470 ;;=4^S70.312A
+471 ;;^UTILITY(U,$J,358.3,3611,2)
+472 ;;=^5036906
+473 ;;^UTILITY(U,$J,358.3,3612,0)
+474 ;;=S60.311A^^35^272^27
+475 ;;^UTILITY(U,$J,358.3,3612,1,0)
+476 ;;=^358.31IA^4^2
+477 ;;^UTILITY(U,$J,358.3,3612,1,3,0)
+478 ;;=3^Abrasion,Right thumb, initial encounter
+479 ;;^UTILITY(U,$J,358.3,3612,1,4,0)
+480 ;;=4^S60.311A
+481 ;;^UTILITY(U,$J,358.3,3612,2)
+482 ;;=^5032285
+483 ;;^UTILITY(U,$J,358.3,3613,0)
+484 ;;=S60.312A^^35^272^12
+485 ;;^UTILITY(U,$J,358.3,3613,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,3613,1,3,0)
+488 ;;=3^Abrasion,Left thumb, initial encounter
+489 ;;^UTILITY(U,$J,358.3,3613,1,4,0)
+490 ;;=4^S60.312A
+491 ;;^UTILITY(U,$J,358.3,3613,2)
+492 ;;=^5032288
+493 ;;^UTILITY(U,$J,358.3,3614,0)
+494 ;;=S60.811A^^35^272^29
+495 ;;^UTILITY(U,$J,358.3,3614,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,3614,1,3,0)
+498 ;;=3^Abrasion,Right wrist, initial encounter
+499 ;;^UTILITY(U,$J,358.3,3614,1,4,0)
+500 ;;=4^S60.811A
+501 ;;^UTILITY(U,$J,358.3,3614,2)
+502 ;;=^5032582
+503 ;;^UTILITY(U,$J,358.3,3615,0)
+504 ;;=S60.812A^^35^272^14
+505 ;;^UTILITY(U,$J,358.3,3615,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,3615,1,3,0)
+508 ;;=3^Abrasion,Left wrist, initial encounter
+509 ;;^UTILITY(U,$J,358.3,3615,1,4,0)
+510 ;;=4^S60.812A
+511 ;;^UTILITY(U,$J,358.3,3615,2)
+512 ;;=^5032585
+513 ;;^UTILITY(U,$J,358.3,3616,0)
+514 ;;=T78.3XXA^^35^272^30
+515 ;;^UTILITY(U,$J,358.3,3616,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,3616,1,3,0)
+518 ;;=3^Angioneurotic edema, initial encounter
+519 ;;^UTILITY(U,$J,358.3,3616,1,4,0)
+520 ;;=4^T78.3XXA
+521 ;;^UTILITY(U,$J,358.3,3616,2)
+522 ;;=^5054281
+523 ;;^UTILITY(U,$J,358.3,3617,0)
+524 ;;=T63.441A^^35^272^246
+525 ;;^UTILITY(U,$J,358.3,3617,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,3617,1,3,0)
+528 ;;=3^Toxic effect of venom of bees, accidental, init
+529 ;;^UTILITY(U,$J,358.3,3617,1,4,0)
+530 ;;=4^T63.441A
+531 ;;^UTILITY(U,$J,358.3,3617,2)
+532 ;;=^5053522
+533 ;;^UTILITY(U,$J,358.3,3618,0)
+534 ;;=S91.051A^^35^272^147
+535 ;;^UTILITY(U,$J,358.3,3618,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,3618,1,3,0)
+538 ;;=3^Open bite, right ankle, initial encounter
+539 ;;^UTILITY(U,$J,358.3,3618,1,4,0)
+540 ;;=4^S91.051A
+541 ;;^UTILITY(U,$J,358.3,3618,2)
+542 ;;=^5044159
+543 ;;^UTILITY(U,$J,358.3,3619,0)
+544 ;;=S91.052A^^35^272^139
+545 ;;^UTILITY(U,$J,358.3,3619,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,3619,1,3,0)
+548 ;;=3^Open bite, left ankle, initial encounter
+549 ;;^UTILITY(U,$J,358.3,3619,1,4,0)
+550 ;;=4^S91.052A
+551 ;;^UTILITY(U,$J,358.3,3619,2)
+552 ;;=^5044162
+553 ;;^UTILITY(U,$J,358.3,3620,0)
+554 ;;=S41.151A^^35^272^154
+555 ;;^UTILITY(U,$J,358.3,3620,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,3620,1,3,0)
+558 ;;=3^Open bite, right upper arm, initial encounter
+559 ;;^UTILITY(U,$J,358.3,3620,1,4,0)
+560 ;;=4^S41.151A
+561 ;;^UTILITY(U,$J,358.3,3620,2)
+562 ;;=^5026360
+563 ;;^UTILITY(U,$J,358.3,3621,0)
+564 ;;=S41.152A^^35^272^146
+565 ;;^UTILITY(U,$J,358.3,3621,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,3621,1,3,0)
+568 ;;=3^Open bite, left upper arm, initial encounter
+569 ;;^UTILITY(U,$J,358.3,3621,1,4,0)
+570 ;;=4^S41.152A
+571 ;;^UTILITY(U,$J,358.3,3621,2)
+572 ;;=^5026363
+573 ;;^UTILITY(U,$J,358.3,3622,0)
+574 ;;=S51.851A^^35^272^149
+575 ;;^UTILITY(U,$J,358.3,3622,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,3622,1,3,0)
+578 ;;=3^Open bite, right forearm, initial encounter
+579 ;;^UTILITY(U,$J,358.3,3622,1,4,0)
+580 ;;=4^S51.851A
+581 ;;^UTILITY(U,$J,358.3,3622,2)
+582 ;;=^5028689
+583 ;;^UTILITY(U,$J,358.3,3623,0)
+584 ;;=S51.852A^^35^272^141
+585 ;;^UTILITY(U,$J,358.3,3623,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,3623,1,3,0)
+588 ;;=3^Open bite, left forearm, initial encounter
+589 ;;^UTILITY(U,$J,358.3,3623,1,4,0)
+590 ;;=4^S51.852A
+591 ;;^UTILITY(U,$J,358.3,3623,2)
+592 ;;=^5028692
+593 ;;^UTILITY(U,$J,358.3,3624,0)
+594 ;;=S40.861A^^35^272^111
+595 ;;^UTILITY(U,$J,358.3,3624,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,3624,1,3,0)
+598 ;;=3^Insect bite (nonvenomous) of right upper arm, init encntr
+599 ;;^UTILITY(U,$J,358.3,3624,1,4,0)
+600 ;;=4^S40.861A
+601 ;;^UTILITY(U,$J,358.3,3624,2)
+602 ;;=^5026261
+603 ;;^UTILITY(U,$J,358.3,3625,0)
+604 ;;=S40.862A^^35^272^109
+605 ;;^UTILITY(U,$J,358.3,3625,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,3625,1,3,0)
+608 ;;=3^Insect bite (nonvenomous) of left upper arm, init encntr
+609 ;;^UTILITY(U,$J,358.3,3625,1,4,0)
+610 ;;=4^S40.862A
+611 ;;^UTILITY(U,$J,358.3,3625,2)
+612 ;;=^5026264
+613 ;;^UTILITY(U,$J,358.3,3626,0)
+614 ;;=S50.861A^^35^272^110
+615 ;;^UTILITY(U,$J,358.3,3626,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,3626,1,3,0)
+618 ;;=3^Insect bite (nonvenomous) of right forearm, init encntr
+619 ;;^UTILITY(U,$J,358.3,3626,1,4,0)
+620 ;;=4^S50.861A
+621 ;;^UTILITY(U,$J,358.3,3626,2)
+622 ;;=^5028590
+623 ;;^UTILITY(U,$J,358.3,3627,0)
+624 ;;=S50.862A^^35^272^108
+625 ;;^UTILITY(U,$J,358.3,3627,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,3627,1,3,0)
+628 ;;=3^Insect bite (nonvenomous) of left forearm, initial encounter
+629 ;;^UTILITY(U,$J,358.3,3627,1,4,0)
+630 ;;=4^S50.862A
+631 ;;^UTILITY(U,$J,358.3,3627,2)
+632 ;;=^5028593
+633 ;;^UTILITY(U,$J,358.3,3628,0)
+634 ;;=S91.351A^^35^272^148
+635 ;;^UTILITY(U,$J,358.3,3628,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,3628,1,3,0)
+638 ;;=3^Open bite, right foot, initial encounter
+639 ;;^UTILITY(U,$J,358.3,3628,1,4,0)
+640 ;;=4^S91.351A
+641 ;;^UTILITY(U,$J,358.3,3628,2)
+642 ;;=^5044344
+643 ;;^UTILITY(U,$J,358.3,3629,0)
+644 ;;=S91.352A^^35^272^140
+645 ;;^UTILITY(U,$J,358.3,3629,1,0)
+646 ;;=^358.31IA^4^2
+647 ;;^UTILITY(U,$J,358.3,3629,1,3,0)
+648 ;;=3^Open bite, left foot, initial encounter
+649 ;;^UTILITY(U,$J,358.3,3629,1,4,0)
+650 ;;=4^S91.352A
+651 ;;^UTILITY(U,$J,358.3,3629,2)
+652 ;;=^5044347
+653 ;;^UTILITY(U,$J,358.3,3630,0)
+654 ;;=S61.451A^^35^272^151
+655 ;;^UTILITY(U,$J,358.3,3630,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,3630,1,3,0)
+658 ;;=3^Open bite, right hand, initial encounter
+659 ;;^UTILITY(U,$J,358.3,3630,1,4,0)
+660 ;;=4^S61.451A
+661 ;;^UTILITY(U,$J,358.3,3630,2)
+662 ;;=^5033011
+663 ;;^UTILITY(U,$J,358.3,3631,0)
+664 ;;=S61.452A^^35^272^143
+665 ;;^UTILITY(U,$J,358.3,3631,1,0)
+666 ;;=^358.31IA^4^2
+667 ;;^UTILITY(U,$J,358.3,3631,1,3,0)
+668 ;;=3^Open bite, left hand, initial encounter
