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

IBDEI026.m

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