IBDEI026.m

IBDEI026 ; ; 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,4969,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4969,1,3,0)

 ;;=3^Knee Hemarthrosis

 ;;^UTILITY(U,$J,358.3,4969,1,4,0)

 ;;=4^M25.069

 ;;^UTILITY(U,$J,358.3,4969,2)

 ;;=^5011493

 ;;^UTILITY(U,$J,358.3,4970,0)

 ;;=S82.009A^^32^279^29

 ;;^UTILITY(U,$J,358.3,4970,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4970,1,3,0)

 ;;=3^Knee Fracture (Patella)

 ;;^UTILITY(U,$J,358.3,4970,1,4,0)

 ;;=4^S82.009A

 ;;^UTILITY(U,$J,358.3,4970,2)

 ;;=^5136703

 ;;^UTILITY(U,$J,358.3,4971,0)

 ;;=M70.40^^32^279^30

 ;;^UTILITY(U,$J,358.3,4971,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4971,1,3,0)

 ;;=3^Knee Prepatellar Bursitis

 ;;^UTILITY(U,$J,358.3,4971,1,4,0)

 ;;=4^M70.40

 ;;^UTILITY(U,$J,358.3,4971,2)

 ;;=^5013052

 ;;^UTILITY(U,$J,358.3,4972,0)

 ;;=S83.90XA^^32^279^31

 ;;^UTILITY(U,$J,358.3,4972,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4972,1,3,0)

 ;;=3^Knee Sprain

 ;;^UTILITY(U,$J,358.3,4972,1,4,0)

 ;;=4^S83.90XA

 ;;^UTILITY(U,$J,358.3,4972,2)

 ;;=^5043169

 ;;^UTILITY(U,$J,358.3,4973,0)

 ;;=S72.309A^^32^279^32

 ;;^UTILITY(U,$J,358.3,4973,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4973,1,3,0)

 ;;=3^Femur Shaft Fracture

 ;;^UTILITY(U,$J,358.3,4973,1,4,0)

 ;;=4^S72.309A

 ;;^UTILITY(U,$J,358.3,4973,2)

 ;;=^5136303

 ;;^UTILITY(U,$J,358.3,4974,0)

 ;;=S72.409A^^32^279^33

 ;;^UTILITY(U,$J,358.3,4974,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4974,1,3,0)

 ;;=3^Femur Distal Fracture

 ;;^UTILITY(U,$J,358.3,4974,1,4,0)

 ;;=4^S72.409A

 ;;^UTILITY(U,$J,358.3,4974,2)

 ;;=^5136341

 ;;^UTILITY(U,$J,358.3,4975,0)

 ;;=S70.319A^^32^279^34

 ;;^UTILITY(U,$J,358.3,4975,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4975,1,3,0)

 ;;=3^Thigh Abrasion

 ;;^UTILITY(U,$J,358.3,4975,1,4,0)

 ;;=4^S70.319A

 ;;^UTILITY(U,$J,358.3,4975,2)

 ;;=^5036909

 ;;^UTILITY(U,$J,358.3,4976,0)

 ;;=S70.10XA^^32^279^35

 ;;^UTILITY(U,$J,358.3,4976,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4976,1,3,0)

 ;;=3^Thigh Contusion

 ;;^UTILITY(U,$J,358.3,4976,1,4,0)

 ;;=4^S70.10XA

 ;;^UTILITY(U,$J,358.3,4976,2)

 ;;=^5036840

 ;;^UTILITY(U,$J,358.3,4977,0)

 ;;=S70.219A^^32^279^36

 ;;^UTILITY(U,$J,358.3,4977,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4977,1,3,0)

 ;;=3^Hip Abrasion

 ;;^UTILITY(U,$J,358.3,4977,1,4,0)

 ;;=4^S70.219A

 ;;^UTILITY(U,$J,358.3,4977,2)

 ;;=^5036855

 ;;^UTILITY(U,$J,358.3,4978,0)

 ;;=S70.00XA^^32^279^37

 ;;^UTILITY(U,$J,358.3,4978,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4978,1,3,0)

 ;;=3^Hip Contusion

 ;;^UTILITY(U,$J,358.3,4978,1,4,0)

 ;;=4^S70.00XA

 ;;^UTILITY(U,$J,358.3,4978,2)

 ;;=^5036831

 ;;^UTILITY(U,$J,358.3,4979,0)

 ;;=S72.009A^^32^279^38

 ;;^UTILITY(U,$J,358.3,4979,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4979,1,3,0)

 ;;=3^Hip/Femoral Neck Fracture

 ;;^UTILITY(U,$J,358.3,4979,1,4,0)

 ;;=4^S72.009A

 ;;^UTILITY(U,$J,358.3,4979,2)

 ;;=^5136205

 ;;^UTILITY(U,$J,358.3,4980,0)

 ;;=S32.89XA^^32^279^39

 ;;^UTILITY(U,$J,358.3,4980,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4980,1,3,0)

 ;;=3^Pelvic Fracture

 ;;^UTILITY(U,$J,358.3,4980,1,4,0)

 ;;=4^S32.89XA

 ;;^UTILITY(U,$J,358.3,4980,2)

 ;;=^5025115

 ;;^UTILITY(U,$J,358.3,4981,0)

 ;;=M25.50^^32^280^1

 ;;^UTILITY(U,$J,358.3,4981,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4981,1,3,0)

 ;;=3^Pain in Joint

 ;;^UTILITY(U,$J,358.3,4981,1,4,0)

 ;;=4^M25.50

 ;;^UTILITY(U,$J,358.3,4981,2)

 ;;=^5011601

 ;;^UTILITY(U,$J,358.3,4982,0)

 ;;=M10.9^^32^280^2

 ;;^UTILITY(U,$J,358.3,4982,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4982,1,3,0)

 ;;=3^Gout

 ;;^UTILITY(U,$J,358.3,4982,1,4,0)

 ;;=4^M10.9

 ;;^UTILITY(U,$J,358.3,4982,2)

 ;;=^5010404

 ;;^UTILITY(U,$J,358.3,4983,0)

 ;;=S60.419A^^32^280^3

 ;;^UTILITY(U,$J,358.3,4983,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4983,1,3,0)

 ;;=3^Finger Abrasion

 ;;^UTILITY(U,$J,358.3,4983,1,4,0)

 ;;=4^S60.419A

 ;;^UTILITY(U,$J,358.3,4983,2)

 ;;=^5032375

 ;;^UTILITY(U,$J,358.3,4984,0)

 ;;=S60.10XA^^32^280^4

 ;;^UTILITY(U,$J,358.3,4984,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4984,1,3,0)

 ;;=3^Finger Contusion w/ Nail Damage

 ;;^UTILITY(U,$J,358.3,4984,1,4,0)

 ;;=4^S60.10XA

 ;;^UTILITY(U,$J,358.3,4984,2)

 ;;=^5032249

 ;;^UTILITY(U,$J,358.3,4985,0)

 ;;=S60.00XA^^32^280^5

 ;;^UTILITY(U,$J,358.3,4985,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4985,1,3,0)

 ;;=3^Finger Contusion w/o Nail Damage

 ;;^UTILITY(U,$J,358.3,4985,1,4,0)

 ;;=4^S60.00XA

 ;;^UTILITY(U,$J,358.3,4985,2)

 ;;=^5032201

 ;;^UTILITY(U,$J,358.3,4986,0)

 ;;=S67.10XA^^32^280^6

 ;;^UTILITY(U,$J,358.3,4986,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4986,1,3,0)

 ;;=3^Finger Crush Injury

 ;;^UTILITY(U,$J,358.3,4986,1,4,0)

 ;;=4^S67.10XA

 ;;^UTILITY(U,$J,358.3,4986,2)

 ;;=^5036555

 ;;^UTILITY(U,$J,358.3,4987,0)

 ;;=S63.279A^^32^280^7

 ;;^UTILITY(U,$J,358.3,4987,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4987,1,3,0)

 ;;=3^Finger Dislocation

 ;;^UTILITY(U,$J,358.3,4987,1,4,0)

 ;;=4^S63.279A

 ;;^UTILITY(U,$J,358.3,4987,2)

 ;;=^5035352

 ;;^UTILITY(U,$J,358.3,4988,0)

 ;;=S62.609A^^32^280^8

 ;;^UTILITY(U,$J,358.3,4988,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4988,1,3,0)

 ;;=3^Finger Fracture

 ;;^UTILITY(U,$J,358.3,4988,1,4,0)

 ;;=4^S62.609A

 ;;^UTILITY(U,$J,358.3,4988,2)

 ;;=^5034445

 ;;^UTILITY(U,$J,358.3,4989,0)

 ;;=S63.619A^^32^280^9

 ;;^UTILITY(U,$J,358.3,4989,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4989,1,3,0)

 ;;=3^Finger Sprain

 ;;^UTILITY(U,$J,358.3,4989,1,4,0)

 ;;=4^S63.619A

 ;;^UTILITY(U,$J,358.3,4989,2)

 ;;=^5035649

 ;;^UTILITY(U,$J,358.3,4990,0)

 ;;=S60.519A^^32^280^10

 ;;^UTILITY(U,$J,358.3,4990,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4990,1,3,0)

 ;;=3^Hand Abrasion

 ;;^UTILITY(U,$J,358.3,4990,1,4,0)

 ;;=4^S60.519A

 ;;^UTILITY(U,$J,358.3,4990,2)

 ;;=^5032534

 ;;^UTILITY(U,$J,358.3,4991,0)

 ;;=S60.229A^^32^280^11

 ;;^UTILITY(U,$J,358.3,4991,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4991,1,3,0)

 ;;=3^Hand Contusion

 ;;^UTILITY(U,$J,358.3,4991,1,4,0)

 ;;=4^S60.229A

 ;;^UTILITY(U,$J,358.3,4991,2)

 ;;=^5032282

 ;;^UTILITY(U,$J,358.3,4992,0)

 ;;=S62.309A^^32^280^12

 ;;^UTILITY(U,$J,358.3,4992,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4992,1,3,0)

 ;;=3^Hand Fracture,Metacarpal

 ;;^UTILITY(U,$J,358.3,4992,1,4,0)

 ;;=4^S62.309A

 ;;^UTILITY(U,$J,358.3,4992,2)

 ;;=^5033822

 ;;^UTILITY(U,$J,358.3,4993,0)

 ;;=S60.819A^^32^280^13

 ;;^UTILITY(U,$J,358.3,4993,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4993,1,3,0)

 ;;=3^Wrist Abrasion

 ;;^UTILITY(U,$J,358.3,4993,1,4,0)

 ;;=4^S60.819A

 ;;^UTILITY(U,$J,358.3,4993,2)

 ;;=^5032588

 ;;^UTILITY(U,$J,358.3,4994,0)

 ;;=S60.219A^^32^280^14

 ;;^UTILITY(U,$J,358.3,4994,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4994,1,3,0)

 ;;=3^Wrist Contusion

 ;;^UTILITY(U,$J,358.3,4994,1,4,0)

 ;;=4^S60.219A

 ;;^UTILITY(U,$J,358.3,4994,2)

 ;;=^5032273

 ;;^UTILITY(U,$J,358.3,4995,0)

 ;;=S63.509A^^32^280^15

 ;;^UTILITY(U,$J,358.3,4995,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4995,1,3,0)

 ;;=3^Wrist Fracture

 ;;^UTILITY(U,$J,358.3,4995,1,4,0)

 ;;=4^S63.509A

 ;;^UTILITY(U,$J,358.3,4995,2)

 ;;=^5136019

 ;;^UTILITY(U,$J,358.3,4996,0)

 ;;=S50.819A^^32^280^17

 ;;^UTILITY(U,$J,358.3,4996,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4996,1,3,0)

 ;;=3^Forearm Abrasion

 ;;^UTILITY(U,$J,358.3,4996,1,4,0)

 ;;=4^S50.819A

 ;;^UTILITY(U,$J,358.3,4996,2)

 ;;=^5028560

 ;;^UTILITY(U,$J,358.3,4997,0)

 ;;=S50.10XA^^32^280^18

 ;;^UTILITY(U,$J,358.3,4997,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4997,1,3,0)

 ;;=3^Forearm Contusion

 ;;^UTILITY(U,$J,358.3,4997,1,4,0)

 ;;=4^S50.10XA

 ;;^UTILITY(U,$J,358.3,4997,2)

 ;;=^5028491

 ;;^UTILITY(U,$J,358.3,4998,0)

 ;;=S52.126A^^32^280^19

 ;;^UTILITY(U,$J,358.3,4998,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4998,1,3,0)

 ;;=3^Forearm Fracture,Radial Head

 ;;^UTILITY(U,$J,358.3,4998,1,4,0)

 ;;=4^S52.126A

 ;;^UTILITY(U,$J,358.3,4998,2)

 ;;=^5029127

 ;;^UTILITY(U,$J,358.3,4999,0)

 ;;=S52.109A^^32^280^20

 ;;^UTILITY(U,$J,358.3,4999,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,4999,1,3,0)

 ;;=3^Forearm Fracture,Radius-Proximal

 ;;^UTILITY(U,$J,358.3,4999,1,4,0)

 ;;=4^S52.109A

 ;;^UTILITY(U,$J,358.3,4999,2)

 ;;=^5135154

 ;;^UTILITY(U,$J,358.3,5000,0)

 ;;=S52.309A^^32^280^21

 ;;^UTILITY(U,$J,358.3,5000,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5000,1,3,0)

 ;;=3^Forearm Fracture,Radius-Shaft

 ;;^UTILITY(U,$J,358.3,5000,1,4,0)

 ;;=4^S52.309A

 ;;^UTILITY(U,$J,358.3,5000,2)

 ;;=^5135241

 ;;^UTILITY(U,$J,358.3,5001,0)

 ;;=S52.509A^^32^280^22

 ;;^UTILITY(U,$J,358.3,5001,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5001,1,3,0)

 ;;=3^Forearm Fracture,Radius-Distal

 ;;^UTILITY(U,$J,358.3,5001,1,4,0)

 ;;=4^S52.509A

 ;;^UTILITY(U,$J,358.3,5001,2)

 ;;=^5135256

 ;;^UTILITY(U,$J,358.3,5002,0)

 ;;=S52.009A^^32^280^23

 ;;^UTILITY(U,$J,358.3,5002,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5002,1,3,0)

 ;;=3^Forearm Fracture,Ulna-Proximal

 ;;^UTILITY(U,$J,358.3,5002,1,4,0)

 ;;=4^S52.009A

 ;;^UTILITY(U,$J,358.3,5002,2)

 ;;=^5135038

 ;;^UTILITY(U,$J,358.3,5003,0)

 ;;=S52.209A^^32^280^24

 ;;^UTILITY(U,$J,358.3,5003,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5003,1,3,0)

 ;;=3^Forearm Fracture,Ulna-Shaft

 ;;^UTILITY(U,$J,358.3,5003,1,4,0)

 ;;=4^S52.209A

 ;;^UTILITY(U,$J,358.3,5003,2)

 ;;=^5135203

 ;;^UTILITY(U,$J,358.3,5004,0)

 ;;=S52.609A^^32^280^25

 ;;^UTILITY(U,$J,358.3,5004,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5004,1,3,0)

 ;;=3^Forearm Fracture,Ulna-Distal

 ;;^UTILITY(U,$J,358.3,5004,1,4,0)

 ;;=4^S52.609A

 ;;^UTILITY(U,$J,358.3,5004,2)

 ;;=^5135274

 ;;^UTILITY(U,$J,358.3,5005,0)

 ;;=S50.319A^^32^280^26

 ;;^UTILITY(U,$J,358.3,5005,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5005,1,3,0)

 ;;=3^Elbow Abrasion

 ;;^UTILITY(U,$J,358.3,5005,1,4,0)

 ;;=4^S50.319A

 ;;^UTILITY(U,$J,358.3,5005,2)

 ;;=^5028506

 ;;^UTILITY(U,$J,358.3,5006,0)

 ;;=S50.00XA^^32^280^27

 ;;^UTILITY(U,$J,358.3,5006,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5006,1,3,0)

 ;;=3^Elbow Contusion

 ;;^UTILITY(U,$J,358.3,5006,1,4,0)

 ;;=4^S50.00XA

 ;;^UTILITY(U,$J,358.3,5006,2)

 ;;=^5028482

 ;;^UTILITY(U,$J,358.3,5007,0)

 ;;=S53.106A^^32^280^28

 ;;^UTILITY(U,$J,358.3,5007,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5007,1,3,0)

 ;;=3^Elbow Dislocation

 ;;^UTILITY(U,$J,358.3,5007,1,4,0)

 ;;=4^S53.106A

 ;;^UTILITY(U,$J,358.3,5007,2)

 ;;=^5135366

 ;;^UTILITY(U,$J,358.3,5008,0)

 ;;=M70.20^^32^280^29

 ;;^UTILITY(U,$J,358.3,5008,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5008,1,3,0)

 ;;=3^Elbow Olecranon Bursitis

 ;;^UTILITY(U,$J,358.3,5008,1,4,0)

 ;;=4^M70.20

 ;;^UTILITY(U,$J,358.3,5008,2)

 ;;=^5013046

 ;;^UTILITY(U,$J,358.3,5009,0)

 ;;=S53.409A^^32^280^30

 ;;^UTILITY(U,$J,358.3,5009,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5009,1,3,0)

 ;;=3^Elbow Sprain

 ;;^UTILITY(U,$J,358.3,5009,1,4,0)

 ;;=4^S53.409A

 ;;^UTILITY(U,$J,358.3,5009,2)

 ;;=^5135378

 ;;^UTILITY(U,$J,358.3,5010,0)

 ;;=S40.819A^^32^280^31

 ;;^UTILITY(U,$J,358.3,5010,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5010,1,3,0)

 ;;=3^Humerus Abrasion

 ;;^UTILITY(U,$J,358.3,5010,1,4,0)

 ;;=4^S40.819A

 ;;^UTILITY(U,$J,358.3,5010,2)

 ;;=^5026231

 ;;^UTILITY(U,$J,358.3,5011,0)

 ;;=S40.029A^^32^280^32

 ;;^UTILITY(U,$J,358.3,5011,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5011,1,3,0)

 ;;=3^Humerus Contusion

 ;;^UTILITY(U,$J,358.3,5011,1,4,0)

 ;;=4^S40.029A

 ;;^UTILITY(U,$J,358.3,5011,2)

 ;;=^5026168

 ;;^UTILITY(U,$J,358.3,5012,0)

 ;;=S42.209A^^32^280^33

 ;;^UTILITY(U,$J,358.3,5012,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5012,1,3,0)

 ;;=3^Humerus Fracture,Proximal

 ;;^UTILITY(U,$J,358.3,5012,1,4,0)

 ;;=4^S42.209A

 ;;^UTILITY(U,$J,358.3,5012,2)

 ;;=^5134665

 ;;^UTILITY(U,$J,358.3,5013,0)

 ;;=S42.309A^^32^280^34

 ;;^UTILITY(U,$J,358.3,5013,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5013,1,3,0)

 ;;=3^Humerus Fracture,Shaft

 ;;^UTILITY(U,$J,358.3,5013,1,4,0)

 ;;=4^S42.309A

 ;;^UTILITY(U,$J,358.3,5013,2)

 ;;=^5134706

 ;;^UTILITY(U,$J,358.3,5014,0)

 ;;=S42.409A^^32^280^35

 ;;^UTILITY(U,$J,358.3,5014,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5014,1,3,0)

 ;;=3^Humerus Fracture,Distal

 ;;^UTILITY(U,$J,358.3,5014,1,4,0)

 ;;=4^S42.409A

 ;;^UTILITY(U,$J,358.3,5014,2)

 ;;=^5134714

 ;;^UTILITY(U,$J,358.3,5015,0)

 ;;=S40.219A^^32^280^36

 ;;^UTILITY(U,$J,358.3,5015,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5015,1,3,0)

 ;;=3^Shoulder Abrasion

 ;;^UTILITY(U,$J,358.3,5015,1,4,0)

 ;;=4^S40.219A

 ;;^UTILITY(U,$J,358.3,5015,2)

 ;;=^5026177

 ;;^UTILITY(U,$J,358.3,5016,0)

 ;;=S40.019A^^32^280^37

 ;;^UTILITY(U,$J,358.3,5016,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5016,1,3,0)

 ;;=3^Shoulder Contusion

 ;;^UTILITY(U,$J,358.3,5016,1,4,0)

 ;;=4^S40.019A

 ;;^UTILITY(U,$J,358.3,5016,2)

 ;;=^5026159

 ;;^UTILITY(U,$J,358.3,5017,0)

 ;;=S43.016A^^32^280^38

 ;;^UTILITY(U,$J,358.3,5017,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5017,1,3,0)

 ;;=3^Shoulder Dislocation

 ;;^UTILITY(U,$J,358.3,5017,1,4,0)

 ;;=4^S43.016A

 ;;^UTILITY(U,$J,358.3,5017,2)

 ;;=^5027684

 ;;^UTILITY(U,$J,358.3,5018,0)

 ;;=S43.90XA^^32^280^39

 ;;^UTILITY(U,$J,358.3,5018,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5018,1,3,0)

 ;;=3^Shoulder Sprain

 ;;^UTILITY(U,$J,358.3,5018,1,4,0)

 ;;=4^S43.90XA

 ;;^UTILITY(U,$J,358.3,5018,2)

 ;;=^5027927

 ;;^UTILITY(U,$J,358.3,5019,0)

 ;;=S46.919A^^32^280^40

 ;;^UTILITY(U,$J,358.3,5019,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5019,1,3,0)

 ;;=3^Shoulder Strain

 ;;^UTILITY(U,$J,358.3,5019,1,4,0)

 ;;=4^S46.919A

 ;;^UTILITY(U,$J,358.3,5019,2)

 ;;=^5134882

 ;;^UTILITY(U,$J,358.3,5020,0)

 ;;=S63.519A^^32^280^16

 ;;^UTILITY(U,$J,358.3,5020,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5020,1,3,0)

 ;;=3^Wrist Sprain

 ;;^UTILITY(U,$J,358.3,5020,1,4,0)

 ;;=4^S63.519A

 ;;^UTILITY(U,$J,358.3,5020,2)

 ;;=^5035595

 ;;^UTILITY(U,$J,358.3,5021,0)

 ;;=R45.851^^32^281^3

 ;;^UTILITY(U,$J,358.3,5021,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5021,1,3,0)

 ;;=3^Suicidal Ideations

 ;;^UTILITY(U,$J,358.3,5021,1,4,0)

 ;;=4^R45.851

 ;;^UTILITY(U,$J,358.3,5021,2)

 ;;=^5019474

 ;;^UTILITY(U,$J,358.3,5022,0)

 ;;=T14.91XA^^32^281^4

 ;;^UTILITY(U,$J,358.3,5022,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5022,1,3,0)

 ;;=3^Suicide Attempt,Initial Encounter

 ;;^UTILITY(U,$J,358.3,5022,1,4,0)

 ;;=4^T14.91XA

 ;;^UTILITY(U,$J,358.3,5022,2)

 ;;=^5151779

 ;;^UTILITY(U,$J,358.3,5023,0)

 ;;=T14.91XD^^32^281^5

 ;;^UTILITY(U,$J,358.3,5023,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5023,1,3,0)

 ;;=3^Suicide Attempt,Subsequent Encounter

 ;;^UTILITY(U,$J,358.3,5023,1,4,0)

 ;;=4^T14.91XD

 ;;^UTILITY(U,$J,358.3,5023,2)

 ;;=^5151780

 ;;^UTILITY(U,$J,358.3,5024,0)

 ;;=T14.91XS^^32^281^6

 ;;^UTILITY(U,$J,358.3,5024,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5024,1,3,0)

 ;;=3^Suicide Attempt,Sequela

 ;;^UTILITY(U,$J,358.3,5024,1,4,0)

 ;;=4^T14.91XS

 ;;^UTILITY(U,$J,358.3,5024,2)

 ;;=^5151781

 ;;^UTILITY(U,$J,358.3,5025,0)

 ;;=Z91.52^^32^281^2

 ;;^UTILITY(U,$J,358.3,5025,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5025,1,3,0)

 ;;=3^Personal Hx of Non-Suicidal Self-Harm

 ;;^UTILITY(U,$J,358.3,5025,1,4,0)

 ;;=4^Z91.52

 ;;^UTILITY(U,$J,358.3,5025,2)

 ;;=^5161318

 ;;^UTILITY(U,$J,358.3,5026,0)

 ;;=Z91.51^^32^281^1

 ;;^UTILITY(U,$J,358.3,5026,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5026,1,3,0)

 ;;=3^Personal Hx of Suicidal Behavior     

 ;;^UTILITY(U,$J,358.3,5026,1,4,0)

 ;;=4^Z91.51

 ;;^UTILITY(U,$J,358.3,5026,2)

 ;;=^5161317

 ;;^UTILITY(U,$J,358.3,5027,0)

 ;;=J68.0^^32^282^2

 ;;^UTILITY(U,$J,358.3,5027,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5027,1,3,0)

 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapors

 ;;^UTILITY(U,$J,358.3,5027,1,4,0)

 ;;=4^J68.0

 ;;^UTILITY(U,$J,358.3,5027,2)

 ;;=^5008281

 ;;^UTILITY(U,$J,358.3,5028,0)

 ;;=J69.1^^32^282^8

 ;;^UTILITY(U,$J,358.3,5028,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5028,1,3,0)

 ;;=3^Pneumonitis d/t Inhalation Oils/Essences

 ;;^UTILITY(U,$J,358.3,5028,1,4,0)

 ;;=4^J69.1

 ;;^UTILITY(U,$J,358.3,5028,2)

 ;;=^95664

 ;;^UTILITY(U,$J,358.3,5029,0)

 ;;=J68.9^^32^282^11

 ;;^UTILITY(U,$J,358.3,5029,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5029,1,3,0)

 ;;=3^Respiratory Cond d/t Chem/Gases/Vapors,Unspec

 ;;^UTILITY(U,$J,358.3,5029,1,4,0)

 ;;=4^J68.9

 ;;^UTILITY(U,$J,358.3,5029,2)

 ;;=^5008287

 ;;^UTILITY(U,$J,358.3,5030,0)

 ;;=J84.114^^32^282^6

 ;;^UTILITY(U,$J,358.3,5030,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5030,1,3,0)

 ;;=3^Interstitial Pneumonitis,Acute

 ;;^UTILITY(U,$J,358.3,5030,1,4,0)

 ;;=4^J84.114

 ;;^UTILITY(U,$J,358.3,5030,2)

 ;;=^340536

 ;;^UTILITY(U,$J,358.3,5031,0)

 ;;=J84.89^^32^282^7

 ;;^UTILITY(U,$J,358.3,5031,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5031,1,3,0)

 ;;=3^Interstitial Pulmonary Diseease,Oth Spec

 ;;^UTILITY(U,$J,358.3,5031,1,4,0)

 ;;=4^J84.89

 ;;^UTILITY(U,$J,358.3,5031,2)

 ;;=^5008303

 ;;^UTILITY(U,$J,358.3,5032,0)

 ;;=J80.^^32^282^1

 ;;^UTILITY(U,$J,358.3,5032,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5032,1,3,0)

 ;;=3^Acute Respiratory Distress Syndrome

 ;;^UTILITY(U,$J,358.3,5032,1,4,0)

 ;;=4^J80.

 ;;^UTILITY(U,$J,358.3,5032,2)

 ;;=^5008294

 ;;^UTILITY(U,$J,358.3,5033,0)

 ;;=T65.291A^^32^282^12

 ;;^UTILITY(U,$J,358.3,5033,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5033,1,3,0)

 ;;=3^Toxic Effect,Tobacco/Nicotine,Accidental,Init Enctr

 ;;^UTILITY(U,$J,358.3,5033,1,4,0)

 ;;=4^T65.291A

 ;;^UTILITY(U,$J,358.3,5033,2)

 ;;=^5053798

 ;;^UTILITY(U,$J,358.3,5034,0)

 ;;=J82.81^^32^282^5

 ;;^UTILITY(U,$J,358.3,5034,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5034,1,3,0)

 ;;=3^Eosinophilic Pneumonia,Chronic

 ;;^UTILITY(U,$J,358.3,5034,1,4,0)

 ;;=4^J82.81

 ;;^UTILITY(U,$J,358.3,5034,2)

 ;;=^24374

 ;;^UTILITY(U,$J,358.3,5035,0)

 ;;=J82.82^^32^282^4

 ;;^UTILITY(U,$J,358.3,5035,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5035,1,3,0)

 ;;=3^Eosinophilic Pneumonia,Acute

 ;;^UTILITY(U,$J,358.3,5035,1,4,0)

 ;;=4^J82.82

 ;;^UTILITY(U,$J,358.3,5035,2)

 ;;=^5159205

 ;;^UTILITY(U,$J,358.3,5036,0)

 ;;=J82.83^^32^282^3

 ;;^UTILITY(U,$J,358.3,5036,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5036,1,3,0)

 ;;=3^Eosinophilic Asthma

 ;;^UTILITY(U,$J,358.3,5036,1,4,0)

 ;;=4^J82.83

 ;;^UTILITY(U,$J,358.3,5036,2)

 ;;=^5159206

 ;;^UTILITY(U,$J,358.3,5037,0)

 ;;=J82.89^^32^282^10

 ;;^UTILITY(U,$J,358.3,5037,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5037,1,3,0)

 ;;=3^Pulmonary Eosinophilia,Other,NEC

 ;;^UTILITY(U,$J,358.3,5037,1,4,0)

 ;;=4^J82.89

 ;;^UTILITY(U,$J,358.3,5037,2)

 ;;=^5159207

 ;;^UTILITY(U,$J,358.3,5038,0)

 ;;=T40.711A^^32^282^9

 ;;^UTILITY(U,$J,358.3,5038,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5038,1,3,0)

 ;;=3^Poisoning by Cannabis,Accidental (Unintentional),Init Enctr

 ;;^UTILITY(U,$J,358.3,5038,1,4,0)

 ;;=4^T40.711A

 ;;^UTILITY(U,$J,358.3,5038,2)

 ;;=^5161247

 ;;^UTILITY(U,$J,358.3,5039,0)

 ;;=W10.9XXA^^32^283^1

 ;;^UTILITY(U,$J,358.3,5039,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5039,1,3,0)

 ;;=3^Fall Down Stairs

 ;;^UTILITY(U,$J,358.3,5039,1,4,0)

 ;;=4^W10.9XXA

 ;;^UTILITY(U,$J,358.3,5039,2)

 ;;=^5059592

 ;;^UTILITY(U,$J,358.3,5040,0)

 ;;=W07.XXXA^^32^283^2

 ;;^UTILITY(U,$J,358.3,5040,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,5040,1,3,0)

 ;;=3^Fall from Chair

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI026   19789     printed  Feb 18, 2025@23:06:32                                                                                                                                                                                                   Page 2

IBDEI026  ; ; 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,4969,1,0)

 +2       ;;=^358.31IA^4^2

 +3       ;;^UTILITY(U,$J,358.3,4969,1,3,0)

 +4       ;;=3^Knee Hemarthrosis

 +5       ;;^UTILITY(U,$J,358.3,4969,1,4,0)

 +6       ;;=4^M25.069

 +7       ;;^UTILITY(U,$J,358.3,4969,2)

 +8       ;;=^5011493

 +9       ;;^UTILITY(U,$J,358.3,4970,0)

 +10      ;;=S82.009A^^32^279^29

 +11      ;;^UTILITY(U,$J,358.3,4970,1,0)

 +12      ;;=^358.31IA^4^2

 +13      ;;^UTILITY(U,$J,358.3,4970,1,3,0)

 +14      ;;=3^Knee Fracture (Patella)

 +15      ;;^UTILITY(U,$J,358.3,4970,1,4,0)

 +16      ;;=4^S82.009A

 +17      ;;^UTILITY(U,$J,358.3,4970,2)

 +18      ;;=^5136703

 +19      ;;^UTILITY(U,$J,358.3,4971,0)

 +20      ;;=M70.40^^32^279^30

 +21      ;;^UTILITY(U,$J,358.3,4971,1,0)

 +22      ;;=^358.31IA^4^2

 +23      ;;^UTILITY(U,$J,358.3,4971,1,3,0)

 +24      ;;=3^Knee Prepatellar Bursitis

 +25      ;;^UTILITY(U,$J,358.3,4971,1,4,0)

 +26      ;;=4^M70.40

 +27      ;;^UTILITY(U,$J,358.3,4971,2)

 +28      ;;=^5013052

 +29      ;;^UTILITY(U,$J,358.3,4972,0)

 +30      ;;=S83.90XA^^32^279^31

 +31      ;;^UTILITY(U,$J,358.3,4972,1,0)

 +32      ;;=^358.31IA^4^2

 +33      ;;^UTILITY(U,$J,358.3,4972,1,3,0)

 +34      ;;=3^Knee Sprain

 +35      ;;^UTILITY(U,$J,358.3,4972,1,4,0)

 +36      ;;=4^S83.90XA

 +37      ;;^UTILITY(U,$J,358.3,4972,2)

 +38      ;;=^5043169

 +39      ;;^UTILITY(U,$J,358.3,4973,0)

 +40      ;;=S72.309A^^32^279^32

 +41      ;;^UTILITY(U,$J,358.3,4973,1,0)

 +42      ;;=^358.31IA^4^2

 +43      ;;^UTILITY(U,$J,358.3,4973,1,3,0)

 +44      ;;=3^Femur Shaft Fracture

 +45      ;;^UTILITY(U,$J,358.3,4973,1,4,0)

 +46      ;;=4^S72.309A

 +47      ;;^UTILITY(U,$J,358.3,4973,2)

 +48      ;;=^5136303

 +49      ;;^UTILITY(U,$J,358.3,4974,0)

 +50      ;;=S72.409A^^32^279^33

 +51      ;;^UTILITY(U,$J,358.3,4974,1,0)

 +52      ;;=^358.31IA^4^2

 +53      ;;^UTILITY(U,$J,358.3,4974,1,3,0)

 +54      ;;=3^Femur Distal Fracture

 +55      ;;^UTILITY(U,$J,358.3,4974,1,4,0)

 +56      ;;=4^S72.409A

 +57      ;;^UTILITY(U,$J,358.3,4974,2)

 +58      ;;=^5136341

 +59      ;;^UTILITY(U,$J,358.3,4975,0)

 +60      ;;=S70.319A^^32^279^34

 +61      ;;^UTILITY(U,$J,358.3,4975,1,0)

 +62      ;;=^358.31IA^4^2

 +63      ;;^UTILITY(U,$J,358.3,4975,1,3,0)

 +64      ;;=3^Thigh Abrasion

 +65      ;;^UTILITY(U,$J,358.3,4975,1,4,0)

 +66      ;;=4^S70.319A

 +67      ;;^UTILITY(U,$J,358.3,4975,2)

 +68      ;;=^5036909

 +69      ;;^UTILITY(U,$J,358.3,4976,0)

 +70      ;;=S70.10XA^^32^279^35

 +71      ;;^UTILITY(U,$J,358.3,4976,1,0)

 +72      ;;=^358.31IA^4^2

 +73      ;;^UTILITY(U,$J,358.3,4976,1,3,0)

 +74      ;;=3^Thigh Contusion

 +75      ;;^UTILITY(U,$J,358.3,4976,1,4,0)

 +76      ;;=4^S70.10XA

 +77      ;;^UTILITY(U,$J,358.3,4976,2)

 +78      ;;=^5036840

 +79      ;;^UTILITY(U,$J,358.3,4977,0)

 +80      ;;=S70.219A^^32^279^36

 +81      ;;^UTILITY(U,$J,358.3,4977,1,0)

 +82      ;;=^358.31IA^4^2

 +83      ;;^UTILITY(U,$J,358.3,4977,1,3,0)

 +84      ;;=3^Hip Abrasion

 +85      ;;^UTILITY(U,$J,358.3,4977,1,4,0)

 +86      ;;=4^S70.219A

 +87      ;;^UTILITY(U,$J,358.3,4977,2)

 +88      ;;=^5036855

 +89      ;;^UTILITY(U,$J,358.3,4978,0)

 +90      ;;=S70.00XA^^32^279^37

 +91      ;;^UTILITY(U,$J,358.3,4978,1,0)

 +92      ;;=^358.31IA^4^2

 +93      ;;^UTILITY(U,$J,358.3,4978,1,3,0)

 +94      ;;=3^Hip Contusion

 +95      ;;^UTILITY(U,$J,358.3,4978,1,4,0)

 +96      ;;=4^S70.00XA

 +97      ;;^UTILITY(U,$J,358.3,4978,2)

 +98      ;;=^5036831

 +99      ;;^UTILITY(U,$J,358.3,4979,0)

 +100     ;;=S72.009A^^32^279^38

 +101     ;;^UTILITY(U,$J,358.3,4979,1,0)

 +102     ;;=^358.31IA^4^2

 +103     ;;^UTILITY(U,$J,358.3,4979,1,3,0)

 +104     ;;=3^Hip/Femoral Neck Fracture

 +105     ;;^UTILITY(U,$J,358.3,4979,1,4,0)

 +106     ;;=4^S72.009A

 +107     ;;^UTILITY(U,$J,358.3,4979,2)

 +108     ;;=^5136205

 +109     ;;^UTILITY(U,$J,358.3,4980,0)

 +110     ;;=S32.89XA^^32^279^39

 +111     ;;^UTILITY(U,$J,358.3,4980,1,0)

 +112     ;;=^358.31IA^4^2

 +113     ;;^UTILITY(U,$J,358.3,4980,1,3,0)

 +114     ;;=3^Pelvic Fracture

 +115     ;;^UTILITY(U,$J,358.3,4980,1,4,0)

 +116     ;;=4^S32.89XA

 +117     ;;^UTILITY(U,$J,358.3,4980,2)

 +118     ;;=^5025115

 +119     ;;^UTILITY(U,$J,358.3,4981,0)

 +120     ;;=M25.50^^32^280^1

 +121     ;;^UTILITY(U,$J,358.3,4981,1,0)

 +122     ;;=^358.31IA^4^2

 +123     ;;^UTILITY(U,$J,358.3,4981,1,3,0)

 +124     ;;=3^Pain in Joint

 +125     ;;^UTILITY(U,$J,358.3,4981,1,4,0)

 +126     ;;=4^M25.50

 +127     ;;^UTILITY(U,$J,358.3,4981,2)

 +128     ;;=^5011601

 +129     ;;^UTILITY(U,$J,358.3,4982,0)

 +130     ;;=M10.9^^32^280^2

 +131     ;;^UTILITY(U,$J,358.3,4982,1,0)

 +132     ;;=^358.31IA^4^2

 +133     ;;^UTILITY(U,$J,358.3,4982,1,3,0)

 +134     ;;=3^Gout

 +135     ;;^UTILITY(U,$J,358.3,4982,1,4,0)

 +136     ;;=4^M10.9

 +137     ;;^UTILITY(U,$J,358.3,4982,2)

 +138     ;;=^5010404

 +139     ;;^UTILITY(U,$J,358.3,4983,0)

 +140     ;;=S60.419A^^32^280^3

 +141     ;;^UTILITY(U,$J,358.3,4983,1,0)

 +142     ;;=^358.31IA^4^2

 +143     ;;^UTILITY(U,$J,358.3,4983,1,3,0)

 +144     ;;=3^Finger Abrasion

 +145     ;;^UTILITY(U,$J,358.3,4983,1,4,0)

 +146     ;;=4^S60.419A

 +147     ;;^UTILITY(U,$J,358.3,4983,2)

 +148     ;;=^5032375

 +149     ;;^UTILITY(U,$J,358.3,4984,0)

 +150     ;;=S60.10XA^^32^280^4

 +151     ;;^UTILITY(U,$J,358.3,4984,1,0)

 +152     ;;=^358.31IA^4^2

 +153     ;;^UTILITY(U,$J,358.3,4984,1,3,0)

 +154     ;;=3^Finger Contusion w/ Nail Damage

 +155     ;;^UTILITY(U,$J,358.3,4984,1,4,0)

 +156     ;;=4^S60.10XA

 +157     ;;^UTILITY(U,$J,358.3,4984,2)

 +158     ;;=^5032249

 +159     ;;^UTILITY(U,$J,358.3,4985,0)

 +160     ;;=S60.00XA^^32^280^5

 +161     ;;^UTILITY(U,$J,358.3,4985,1,0)

 +162     ;;=^358.31IA^4^2

 +163     ;;^UTILITY(U,$J,358.3,4985,1,3,0)

 +164     ;;=3^Finger Contusion w/o Nail Damage

 +165     ;;^UTILITY(U,$J,358.3,4985,1,4,0)

 +166     ;;=4^S60.00XA

 +167     ;;^UTILITY(U,$J,358.3,4985,2)

 +168     ;;=^5032201

 +169     ;;^UTILITY(U,$J,358.3,4986,0)

 +170     ;;=S67.10XA^^32^280^6

 +171     ;;^UTILITY(U,$J,358.3,4986,1,0)

 +172     ;;=^358.31IA^4^2

 +173     ;;^UTILITY(U,$J,358.3,4986,1,3,0)

 +174     ;;=3^Finger Crush Injury

 +175     ;;^UTILITY(U,$J,358.3,4986,1,4,0)

 +176     ;;=4^S67.10XA

 +177     ;;^UTILITY(U,$J,358.3,4986,2)

 +178     ;;=^5036555

 +179     ;;^UTILITY(U,$J,358.3,4987,0)

 +180     ;;=S63.279A^^32^280^7

 +181     ;;^UTILITY(U,$J,358.3,4987,1,0)

 +182     ;;=^358.31IA^4^2

 +183     ;;^UTILITY(U,$J,358.3,4987,1,3,0)

 +184     ;;=3^Finger Dislocation

 +185     ;;^UTILITY(U,$J,358.3,4987,1,4,0)

 +186     ;;=4^S63.279A

 +187     ;;^UTILITY(U,$J,358.3,4987,2)

 +188     ;;=^5035352

 +189     ;;^UTILITY(U,$J,358.3,4988,0)

 +190     ;;=S62.609A^^32^280^8

 +191     ;;^UTILITY(U,$J,358.3,4988,1,0)

 +192     ;;=^358.31IA^4^2

 +193     ;;^UTILITY(U,$J,358.3,4988,1,3,0)

 +194     ;;=3^Finger Fracture

 +195     ;;^UTILITY(U,$J,358.3,4988,1,4,0)

 +196     ;;=4^S62.609A

 +197     ;;^UTILITY(U,$J,358.3,4988,2)

 +198     ;;=^5034445

 +199     ;;^UTILITY(U,$J,358.3,4989,0)

 +200     ;;=S63.619A^^32^280^9

 +201     ;;^UTILITY(U,$J,358.3,4989,1,0)

 +202     ;;=^358.31IA^4^2

 +203     ;;^UTILITY(U,$J,358.3,4989,1,3,0)

 +204     ;;=3^Finger Sprain

 +205     ;;^UTILITY(U,$J,358.3,4989,1,4,0)

 +206     ;;=4^S63.619A

 +207     ;;^UTILITY(U,$J,358.3,4989,2)

 +208     ;;=^5035649

 +209     ;;^UTILITY(U,$J,358.3,4990,0)

 +210     ;;=S60.519A^^32^280^10

 +211     ;;^UTILITY(U,$J,358.3,4990,1,0)

 +212     ;;=^358.31IA^4^2

 +213     ;;^UTILITY(U,$J,358.3,4990,1,3,0)

 +214     ;;=3^Hand Abrasion

 +215     ;;^UTILITY(U,$J,358.3,4990,1,4,0)

 +216     ;;=4^S60.519A

 +217     ;;^UTILITY(U,$J,358.3,4990,2)

 +218     ;;=^5032534

 +219     ;;^UTILITY(U,$J,358.3,4991,0)

 +220     ;;=S60.229A^^32^280^11

 +221     ;;^UTILITY(U,$J,358.3,4991,1,0)

 +222     ;;=^358.31IA^4^2

 +223     ;;^UTILITY(U,$J,358.3,4991,1,3,0)

 +224     ;;=3^Hand Contusion

 +225     ;;^UTILITY(U,$J,358.3,4991,1,4,0)

 +226     ;;=4^S60.229A

 +227     ;;^UTILITY(U,$J,358.3,4991,2)

 +228     ;;=^5032282

 +229     ;;^UTILITY(U,$J,358.3,4992,0)

 +230     ;;=S62.309A^^32^280^12

 +231     ;;^UTILITY(U,$J,358.3,4992,1,0)

 +232     ;;=^358.31IA^4^2

 +233     ;;^UTILITY(U,$J,358.3,4992,1,3,0)

 +234     ;;=3^Hand Fracture,Metacarpal

 +235     ;;^UTILITY(U,$J,358.3,4992,1,4,0)

 +236     ;;=4^S62.309A

 +237     ;;^UTILITY(U,$J,358.3,4992,2)

 +238     ;;=^5033822

 +239     ;;^UTILITY(U,$J,358.3,4993,0)

 +240     ;;=S60.819A^^32^280^13

 +241     ;;^UTILITY(U,$J,358.3,4993,1,0)

 +242     ;;=^358.31IA^4^2

 +243     ;;^UTILITY(U,$J,358.3,4993,1,3,0)

 +244     ;;=3^Wrist Abrasion

 +245     ;;^UTILITY(U,$J,358.3,4993,1,4,0)

 +246     ;;=4^S60.819A

 +247     ;;^UTILITY(U,$J,358.3,4993,2)

 +248     ;;=^5032588

 +249     ;;^UTILITY(U,$J,358.3,4994,0)

 +250     ;;=S60.219A^^32^280^14

 +251     ;;^UTILITY(U,$J,358.3,4994,1,0)

 +252     ;;=^358.31IA^4^2

 +253     ;;^UTILITY(U,$J,358.3,4994,1,3,0)

 +254     ;;=3^Wrist Contusion

 +255     ;;^UTILITY(U,$J,358.3,4994,1,4,0)

 +256     ;;=4^S60.219A

 +257     ;;^UTILITY(U,$J,358.3,4994,2)

 +258     ;;=^5032273

 +259     ;;^UTILITY(U,$J,358.3,4995,0)

 +260     ;;=S63.509A^^32^280^15

 +261     ;;^UTILITY(U,$J,358.3,4995,1,0)

 +262     ;;=^358.31IA^4^2

 +263     ;;^UTILITY(U,$J,358.3,4995,1,3,0)

 +264     ;;=3^Wrist Fracture

 +265     ;;^UTILITY(U,$J,358.3,4995,1,4,0)

 +266     ;;=4^S63.509A

 +267     ;;^UTILITY(U,$J,358.3,4995,2)

 +268     ;;=^5136019

 +269     ;;^UTILITY(U,$J,358.3,4996,0)

 +270     ;;=S50.819A^^32^280^17

 +271     ;;^UTILITY(U,$J,358.3,4996,1,0)

 +272     ;;=^358.31IA^4^2

 +273     ;;^UTILITY(U,$J,358.3,4996,1,3,0)

 +274     ;;=3^Forearm Abrasion

 +275     ;;^UTILITY(U,$J,358.3,4996,1,4,0)

 +276     ;;=4^S50.819A

 +277     ;;^UTILITY(U,$J,358.3,4996,2)

 +278     ;;=^5028560

 +279     ;;^UTILITY(U,$J,358.3,4997,0)

 +280     ;;=S50.10XA^^32^280^18

 +281     ;;^UTILITY(U,$J,358.3,4997,1,0)

 +282     ;;=^358.31IA^4^2

 +283     ;;^UTILITY(U,$J,358.3,4997,1,3,0)

 +284     ;;=3^Forearm Contusion

 +285     ;;^UTILITY(U,$J,358.3,4997,1,4,0)

 +286     ;;=4^S50.10XA

 +287     ;;^UTILITY(U,$J,358.3,4997,2)

 +288     ;;=^5028491

 +289     ;;^UTILITY(U,$J,358.3,4998,0)

 +290     ;;=S52.126A^^32^280^19

 +291     ;;^UTILITY(U,$J,358.3,4998,1,0)

 +292     ;;=^358.31IA^4^2

 +293     ;;^UTILITY(U,$J,358.3,4998,1,3,0)

 +294     ;;=3^Forearm Fracture,Radial Head

 +295     ;;^UTILITY(U,$J,358.3,4998,1,4,0)

 +296     ;;=4^S52.126A

 +297     ;;^UTILITY(U,$J,358.3,4998,2)

 +298     ;;=^5029127

 +299     ;;^UTILITY(U,$J,358.3,4999,0)

 +300     ;;=S52.109A^^32^280^20

 +301     ;;^UTILITY(U,$J,358.3,4999,1,0)

 +302     ;;=^358.31IA^4^2

 +303     ;;^UTILITY(U,$J,358.3,4999,1,3,0)

 +304     ;;=3^Forearm Fracture,Radius-Proximal

 +305     ;;^UTILITY(U,$J,358.3,4999,1,4,0)

 +306     ;;=4^S52.109A

 +307     ;;^UTILITY(U,$J,358.3,4999,2)

 +308     ;;=^5135154

 +309     ;;^UTILITY(U,$J,358.3,5000,0)

 +310     ;;=S52.309A^^32^280^21

 +311     ;;^UTILITY(U,$J,358.3,5000,1,0)

 +312     ;;=^358.31IA^4^2

 +313     ;;^UTILITY(U,$J,358.3,5000,1,3,0)

 +314     ;;=3^Forearm Fracture,Radius-Shaft

 +315     ;;^UTILITY(U,$J,358.3,5000,1,4,0)

 +316     ;;=4^S52.309A

 +317     ;;^UTILITY(U,$J,358.3,5000,2)

 +318     ;;=^5135241

 +319     ;;^UTILITY(U,$J,358.3,5001,0)

 +320     ;;=S52.509A^^32^280^22

 +321     ;;^UTILITY(U,$J,358.3,5001,1,0)

 +322     ;;=^358.31IA^4^2

 +323     ;;^UTILITY(U,$J,358.3,5001,1,3,0)

 +324     ;;=3^Forearm Fracture,Radius-Distal

 +325     ;;^UTILITY(U,$J,358.3,5001,1,4,0)

 +326     ;;=4^S52.509A

 +327     ;;^UTILITY(U,$J,358.3,5001,2)

 +328     ;;=^5135256

 +329     ;;^UTILITY(U,$J,358.3,5002,0)

 +330     ;;=S52.009A^^32^280^23

 +331     ;;^UTILITY(U,$J,358.3,5002,1,0)

 +332     ;;=^358.31IA^4^2

 +333     ;;^UTILITY(U,$J,358.3,5002,1,3,0)

 +334     ;;=3^Forearm Fracture,Ulna-Proximal

 +335     ;;^UTILITY(U,$J,358.3,5002,1,4,0)

 +336     ;;=4^S52.009A

 +337     ;;^UTILITY(U,$J,358.3,5002,2)

 +338     ;;=^5135038

 +339     ;;^UTILITY(U,$J,358.3,5003,0)

 +340     ;;=S52.209A^^32^280^24

 +341     ;;^UTILITY(U,$J,358.3,5003,1,0)

 +342     ;;=^358.31IA^4^2

 +343     ;;^UTILITY(U,$J,358.3,5003,1,3,0)

 +344     ;;=3^Forearm Fracture,Ulna-Shaft

 +345     ;;^UTILITY(U,$J,358.3,5003,1,4,0)

 +346     ;;=4^S52.209A

 +347     ;;^UTILITY(U,$J,358.3,5003,2)

 +348     ;;=^5135203

 +349     ;;^UTILITY(U,$J,358.3,5004,0)

 +350     ;;=S52.609A^^32^280^25

 +351     ;;^UTILITY(U,$J,358.3,5004,1,0)

 +352     ;;=^358.31IA^4^2

 +353     ;;^UTILITY(U,$J,358.3,5004,1,3,0)

 +354     ;;=3^Forearm Fracture,Ulna-Distal

 +355     ;;^UTILITY(U,$J,358.3,5004,1,4,0)

 +356     ;;=4^S52.609A

 +357     ;;^UTILITY(U,$J,358.3,5004,2)

 +358     ;;=^5135274

 +359     ;;^UTILITY(U,$J,358.3,5005,0)

 +360     ;;=S50.319A^^32^280^26

 +361     ;;^UTILITY(U,$J,358.3,5005,1,0)

 +362     ;;=^358.31IA^4^2

 +363     ;;^UTILITY(U,$J,358.3,5005,1,3,0)

 +364     ;;=3^Elbow Abrasion

 +365     ;;^UTILITY(U,$J,358.3,5005,1,4,0)

 +366     ;;=4^S50.319A

 +367     ;;^UTILITY(U,$J,358.3,5005,2)

 +368     ;;=^5028506

 +369     ;;^UTILITY(U,$J,358.3,5006,0)

 +370     ;;=S50.00XA^^32^280^27

 +371     ;;^UTILITY(U,$J,358.3,5006,1,0)

 +372     ;;=^358.31IA^4^2

 +373     ;;^UTILITY(U,$J,358.3,5006,1,3,0)

 +374     ;;=3^Elbow Contusion

 +375     ;;^UTILITY(U,$J,358.3,5006,1,4,0)

 +376     ;;=4^S50.00XA

 +377     ;;^UTILITY(U,$J,358.3,5006,2)

 +378     ;;=^5028482

 +379     ;;^UTILITY(U,$J,358.3,5007,0)

 +380     ;;=S53.106A^^32^280^28

 +381     ;;^UTILITY(U,$J,358.3,5007,1,0)

 +382     ;;=^358.31IA^4^2

 +383     ;;^UTILITY(U,$J,358.3,5007,1,3,0)

 +384     ;;=3^Elbow Dislocation

 +385     ;;^UTILITY(U,$J,358.3,5007,1,4,0)

 +386     ;;=4^S53.106A

 +387     ;;^UTILITY(U,$J,358.3,5007,2)

 +388     ;;=^5135366

 +389     ;;^UTILITY(U,$J,358.3,5008,0)

 +390     ;;=M70.20^^32^280^29

 +391     ;;^UTILITY(U,$J,358.3,5008,1,0)

 +392     ;;=^358.31IA^4^2

 +393     ;;^UTILITY(U,$J,358.3,5008,1,3,0)

 +394     ;;=3^Elbow Olecranon Bursitis

 +395     ;;^UTILITY(U,$J,358.3,5008,1,4,0)

 +396     ;;=4^M70.20

 +397     ;;^UTILITY(U,$J,358.3,5008,2)

 +398     ;;=^5013046

 +399     ;;^UTILITY(U,$J,358.3,5009,0)

 +400     ;;=S53.409A^^32^280^30

 +401     ;;^UTILITY(U,$J,358.3,5009,1,0)

 +402     ;;=^358.31IA^4^2

 +403     ;;^UTILITY(U,$J,358.3,5009,1,3,0)

 +404     ;;=3^Elbow Sprain

 +405     ;;^UTILITY(U,$J,358.3,5009,1,4,0)

 +406     ;;=4^S53.409A

 +407     ;;^UTILITY(U,$J,358.3,5009,2)

 +408     ;;=^5135378

 +409     ;;^UTILITY(U,$J,358.3,5010,0)

 +410     ;;=S40.819A^^32^280^31

 +411     ;;^UTILITY(U,$J,358.3,5010,1,0)

 +412     ;;=^358.31IA^4^2

 +413     ;;^UTILITY(U,$J,358.3,5010,1,3,0)

 +414     ;;=3^Humerus Abrasion

 +415     ;;^UTILITY(U,$J,358.3,5010,1,4,0)

 +416     ;;=4^S40.819A

 +417     ;;^UTILITY(U,$J,358.3,5010,2)

 +418     ;;=^5026231

 +419     ;;^UTILITY(U,$J,358.3,5011,0)

 +420     ;;=S40.029A^^32^280^32

 +421     ;;^UTILITY(U,$J,358.3,5011,1,0)

 +422     ;;=^358.31IA^4^2

 +423     ;;^UTILITY(U,$J,358.3,5011,1,3,0)

 +424     ;;=3^Humerus Contusion

 +425     ;;^UTILITY(U,$J,358.3,5011,1,4,0)

 +426     ;;=4^S40.029A

 +427     ;;^UTILITY(U,$J,358.3,5011,2)

 +428     ;;=^5026168

 +429     ;;^UTILITY(U,$J,358.3,5012,0)

 +430     ;;=S42.209A^^32^280^33

 +431     ;;^UTILITY(U,$J,358.3,5012,1,0)

 +432     ;;=^358.31IA^4^2

 +433     ;;^UTILITY(U,$J,358.3,5012,1,3,0)

 +434     ;;=3^Humerus Fracture,Proximal

 +435     ;;^UTILITY(U,$J,358.3,5012,1,4,0)

 +436     ;;=4^S42.209A

 +437     ;;^UTILITY(U,$J,358.3,5012,2)

 +438     ;;=^5134665

 +439     ;;^UTILITY(U,$J,358.3,5013,0)

 +440     ;;=S42.309A^^32^280^34

 +441     ;;^UTILITY(U,$J,358.3,5013,1,0)

 +442     ;;=^358.31IA^4^2

 +443     ;;^UTILITY(U,$J,358.3,5013,1,3,0)

 +444     ;;=3^Humerus Fracture,Shaft

 +445     ;;^UTILITY(U,$J,358.3,5013,1,4,0)

 +446     ;;=4^S42.309A

 +447     ;;^UTILITY(U,$J,358.3,5013,2)

 +448     ;;=^5134706

 +449     ;;^UTILITY(U,$J,358.3,5014,0)

 +450     ;;=S42.409A^^32^280^35

 +451     ;;^UTILITY(U,$J,358.3,5014,1,0)

 +452     ;;=^358.31IA^4^2

 +453     ;;^UTILITY(U,$J,358.3,5014,1,3,0)

 +454     ;;=3^Humerus Fracture,Distal

 +455     ;;^UTILITY(U,$J,358.3,5014,1,4,0)

 +456     ;;=4^S42.409A

 +457     ;;^UTILITY(U,$J,358.3,5014,2)

 +458     ;;=^5134714

 +459     ;;^UTILITY(U,$J,358.3,5015,0)

 +460     ;;=S40.219A^^32^280^36

 +461     ;;^UTILITY(U,$J,358.3,5015,1,0)

 +462     ;;=^358.31IA^4^2

 +463     ;;^UTILITY(U,$J,358.3,5015,1,3,0)

 +464     ;;=3^Shoulder Abrasion

 +465     ;;^UTILITY(U,$J,358.3,5015,1,4,0)

 +466     ;;=4^S40.219A

 +467     ;;^UTILITY(U,$J,358.3,5015,2)

 +468     ;;=^5026177

 +469     ;;^UTILITY(U,$J,358.3,5016,0)

 +470     ;;=S40.019A^^32^280^37

 +471     ;;^UTILITY(U,$J,358.3,5016,1,0)

 +472     ;;=^358.31IA^4^2

 +473     ;;^UTILITY(U,$J,358.3,5016,1,3,0)

 +474     ;;=3^Shoulder Contusion

 +475     ;;^UTILITY(U,$J,358.3,5016,1,4,0)

 +476     ;;=4^S40.019A

 +477     ;;^UTILITY(U,$J,358.3,5016,2)

 +478     ;;=^5026159

 +479     ;;^UTILITY(U,$J,358.3,5017,0)

 +480     ;;=S43.016A^^32^280^38

 +481     ;;^UTILITY(U,$J,358.3,5017,1,0)

 +482     ;;=^358.31IA^4^2

 +483     ;;^UTILITY(U,$J,358.3,5017,1,3,0)

 +484     ;;=3^Shoulder Dislocation

 +485     ;;^UTILITY(U,$J,358.3,5017,1,4,0)

 +486     ;;=4^S43.016A

 +487     ;;^UTILITY(U,$J,358.3,5017,2)

 +488     ;;=^5027684

 +489     ;;^UTILITY(U,$J,358.3,5018,0)

 +490     ;;=S43.90XA^^32^280^39

 +491     ;;^UTILITY(U,$J,358.3,5018,1,0)

 +492     ;;=^358.31IA^4^2

 +493     ;;^UTILITY(U,$J,358.3,5018,1,3,0)

 +494     ;;=3^Shoulder Sprain

 +495     ;;^UTILITY(U,$J,358.3,5018,1,4,0)

 +496     ;;=4^S43.90XA

 +497     ;;^UTILITY(U,$J,358.3,5018,2)

 +498     ;;=^5027927

 +499     ;;^UTILITY(U,$J,358.3,5019,0)

 +500     ;;=S46.919A^^32^280^40

 +501     ;;^UTILITY(U,$J,358.3,5019,1,0)

 +502     ;;=^358.31IA^4^2

 +503     ;;^UTILITY(U,$J,358.3,5019,1,3,0)

 +504     ;;=3^Shoulder Strain

 +505     ;;^UTILITY(U,$J,358.3,5019,1,4,0)

 +506     ;;=4^S46.919A

 +507     ;;^UTILITY(U,$J,358.3,5019,2)

 +508     ;;=^5134882

 +509     ;;^UTILITY(U,$J,358.3,5020,0)

 +510     ;;=S63.519A^^32^280^16

 +511     ;;^UTILITY(U,$J,358.3,5020,1,0)

 +512     ;;=^358.31IA^4^2

 +513     ;;^UTILITY(U,$J,358.3,5020,1,3,0)

 +514     ;;=3^Wrist Sprain

 +515     ;;^UTILITY(U,$J,358.3,5020,1,4,0)

 +516     ;;=4^S63.519A

 +517     ;;^UTILITY(U,$J,358.3,5020,2)

 +518     ;;=^5035595

 +519     ;;^UTILITY(U,$J,358.3,5021,0)

 +520     ;;=R45.851^^32^281^3

 +521     ;;^UTILITY(U,$J,358.3,5021,1,0)

 +522     ;;=^358.31IA^4^2

 +523     ;;^UTILITY(U,$J,358.3,5021,1,3,0)

 +524     ;;=3^Suicidal Ideations

 +525     ;;^UTILITY(U,$J,358.3,5021,1,4,0)

 +526     ;;=4^R45.851

 +527     ;;^UTILITY(U,$J,358.3,5021,2)

 +528     ;;=^5019474

 +529     ;;^UTILITY(U,$J,358.3,5022,0)

 +530     ;;=T14.91XA^^32^281^4

 +531     ;;^UTILITY(U,$J,358.3,5022,1,0)

 +532     ;;=^358.31IA^4^2

 +533     ;;^UTILITY(U,$J,358.3,5022,1,3,0)

 +534     ;;=3^Suicide Attempt,Initial Encounter

 +535     ;;^UTILITY(U,$J,358.3,5022,1,4,0)

 +536     ;;=4^T14.91XA

 +537     ;;^UTILITY(U,$J,358.3,5022,2)

 +538     ;;=^5151779

 +539     ;;^UTILITY(U,$J,358.3,5023,0)

 +540     ;;=T14.91XD^^32^281^5

 +541     ;;^UTILITY(U,$J,358.3,5023,1,0)

 +542     ;;=^358.31IA^4^2

 +543     ;;^UTILITY(U,$J,358.3,5023,1,3,0)

 +544     ;;=3^Suicide Attempt,Subsequent Encounter

 +545     ;;^UTILITY(U,$J,358.3,5023,1,4,0)

 +546     ;;=4^T14.91XD

 +547     ;;^UTILITY(U,$J,358.3,5023,2)

 +548     ;;=^5151780

 +549     ;;^UTILITY(U,$J,358.3,5024,0)

 +550     ;;=T14.91XS^^32^281^6

 +551     ;;^UTILITY(U,$J,358.3,5024,1,0)

 +552     ;;=^358.31IA^4^2

 +553     ;;^UTILITY(U,$J,358.3,5024,1,3,0)

 +554     ;;=3^Suicide Attempt,Sequela

 +555     ;;^UTILITY(U,$J,358.3,5024,1,4,0)

 +556     ;;=4^T14.91XS

 +557     ;;^UTILITY(U,$J,358.3,5024,2)

 +558     ;;=^5151781

 +559     ;;^UTILITY(U,$J,358.3,5025,0)

 +560     ;;=Z91.52^^32^281^2

 +561     ;;^UTILITY(U,$J,358.3,5025,1,0)

 +562     ;;=^358.31IA^4^2

 +563     ;;^UTILITY(U,$J,358.3,5025,1,3,0)

 +564     ;;=3^Personal Hx of Non-Suicidal Self-Harm

 +565     ;;^UTILITY(U,$J,358.3,5025,1,4,0)

 +566     ;;=4^Z91.52

 +567     ;;^UTILITY(U,$J,358.3,5025,2)

 +568     ;;=^5161318

 +569     ;;^UTILITY(U,$J,358.3,5026,0)

 +570     ;;=Z91.51^^32^281^1

 +571     ;;^UTILITY(U,$J,358.3,5026,1,0)

 +572     ;;=^358.31IA^4^2

 +573     ;;^UTILITY(U,$J,358.3,5026,1,3,0)

 +574     ;;=3^Personal Hx of Suicidal Behavior     

 +575     ;;^UTILITY(U,$J,358.3,5026,1,4,0)