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

IBDEI01T.m

Go to the documentation of this file.
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