IBDEI054 ; ; 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,12366,1,3,0)
 ;;=3^Disp fx,avulsion,left ischium, subsq
 ;;^UTILITY(U,$J,358.3,12366,1,4,0)
 ;;=4^S32.612D
 ;;^UTILITY(U,$J,358.3,12366,2)
 ;;=^5025063
 ;;^UTILITY(U,$J,358.3,12367,0)
 ;;=S32.611D^^50^547^10
 ;;^UTILITY(U,$J,358.3,12367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12367,1,3,0)
 ;;=3^Disp fx,avulsion,right ischium, subsq
 ;;^UTILITY(U,$J,358.3,12367,1,4,0)
 ;;=4^S32.611D
 ;;^UTILITY(U,$J,358.3,12367,2)
 ;;=^5025057
 ;;^UTILITY(U,$J,358.3,12368,0)
 ;;=S32.482D^^50^547^11
 ;;^UTILITY(U,$J,358.3,12368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12368,1,3,0)
 ;;=3^Disp fx,dome,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12368,1,4,0)
 ;;=4^S32.482D
 ;;^UTILITY(U,$J,358.3,12368,2)
 ;;=^5024961
 ;;^UTILITY(U,$J,358.3,12369,0)
 ;;=S32.481D^^50^547^12
 ;;^UTILITY(U,$J,358.3,12369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12369,1,3,0)
 ;;=3^Disp fx,dome,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12369,1,4,0)
 ;;=4^S32.481D
 ;;^UTILITY(U,$J,358.3,12369,2)
 ;;=^5024955
 ;;^UTILITY(U,$J,358.3,12370,0)
 ;;=S32.472D^^50^547^13
 ;;^UTILITY(U,$J,358.3,12370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12370,1,3,0)
 ;;=3^Disp fx,medial wall,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12370,1,4,0)
 ;;=4^S32.472D
 ;;^UTILITY(U,$J,358.3,12370,2)
 ;;=^5024925
 ;;^UTILITY(U,$J,358.3,12371,0)
 ;;=S32.471D^^50^547^14
 ;;^UTILITY(U,$J,358.3,12371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12371,1,3,0)
 ;;=3^Disp fx,medial wall,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12371,1,4,0)
 ;;=4^S32.471D
 ;;^UTILITY(U,$J,358.3,12371,2)
 ;;=^5024919
 ;;^UTILITY(U,$J,358.3,12372,0)
 ;;=S32.442D^^50^547^15
 ;;^UTILITY(U,$J,358.3,12372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12372,1,3,0)
 ;;=3^Disp fx,posterior column,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12372,1,4,0)
 ;;=4^S32.442D
 ;;^UTILITY(U,$J,358.3,12372,2)
 ;;=^5024817
 ;;^UTILITY(U,$J,358.3,12373,0)
 ;;=S32.441D^^50^547^16
 ;;^UTILITY(U,$J,358.3,12373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12373,1,3,0)
 ;;=3^Disp fx,posterior column,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12373,1,4,0)
 ;;=4^S32.441D
 ;;^UTILITY(U,$J,358.3,12373,2)
 ;;=^5024811
 ;;^UTILITY(U,$J,358.3,12374,0)
 ;;=S32.442D^^50^547^17
 ;;^UTILITY(U,$J,358.3,12374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12374,1,3,0)
 ;;=3^Disp fx,posterior wall,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12374,1,4,0)
 ;;=4^S32.442D
 ;;^UTILITY(U,$J,358.3,12374,2)
 ;;=^5024817
 ;;^UTILITY(U,$J,358.3,12375,0)
 ;;=S32.441D^^50^547^18
 ;;^UTILITY(U,$J,358.3,12375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12375,1,3,0)
 ;;=3^Disp fx,posterior wall,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12375,1,4,0)
 ;;=4^S32.441D
 ;;^UTILITY(U,$J,358.3,12375,2)
 ;;=^5024811
 ;;^UTILITY(U,$J,358.3,12376,0)
 ;;=S32.452D^^50^547^19
 ;;^UTILITY(U,$J,358.3,12376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12376,1,3,0)
 ;;=3^Disp fx,transverse,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12376,1,4,0)
 ;;=4^S32.452D
 ;;^UTILITY(U,$J,358.3,12376,2)
 ;;=^5024853
 ;;^UTILITY(U,$J,358.3,12377,0)
 ;;=S32.421D^^50^547^21
 ;;^UTILITY(U,$J,358.3,12377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12377,1,3,0)
 ;;=3^Disp fx,transverse,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12377,1,4,0)
 ;;=4^S32.421D
 ;;^UTILITY(U,$J,358.3,12377,2)
 ;;=^5024739
 ;;^UTILITY(U,$J,358.3,12378,0)
 ;;=S32.452D^^50^547^20
 ;;^UTILITY(U,$J,358.3,12378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12378,1,3,0)
 ;;=3^Disp fx,transverse,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12378,1,4,0)
 ;;=4^S32.452D
 ;;^UTILITY(U,$J,358.3,12378,2)
 ;;=^5024853
 ;;^UTILITY(U,$J,358.3,12379,0)
 ;;=S32.451D^^50^547^22
 ;;^UTILITY(U,$J,358.3,12379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12379,1,3,0)
 ;;=3^Disp fx,transverse,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12379,1,4,0)
 ;;=4^S32.451D
 ;;^UTILITY(U,$J,358.3,12379,2)
 ;;=^5024847
 ;;^UTILITY(U,$J,358.3,12380,0)
 ;;=S32.512D^^50^547^25
 ;;^UTILITY(U,$J,358.3,12380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12380,1,3,0)
 ;;=3^Fx,Pubis,Superior Rim,Left,Subsq
 ;;^UTILITY(U,$J,358.3,12380,1,4,0)
 ;;=4^S32.512D
 ;;^UTILITY(U,$J,358.3,12380,2)
 ;;=^5025015
 ;;^UTILITY(U,$J,358.3,12381,0)
 ;;=S32.511D^^50^547^26
 ;;^UTILITY(U,$J,358.3,12381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12381,1,3,0)
 ;;=3^Fx,Pubis,Superior Rim,Right,Subsq
 ;;^UTILITY(U,$J,358.3,12381,1,4,0)
 ;;=4^S32.511D
 ;;^UTILITY(U,$J,358.3,12381,2)
 ;;=^5025009
 ;;^UTILITY(U,$J,358.3,12382,0)
 ;;=S32.810D^^50^547^23
 ;;^UTILITY(U,$J,358.3,12382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12382,1,3,0)
 ;;=3^Fx,Pelvis,Multiple w/ Stable Disrupt,Pelvice Ring,Subsq
 ;;^UTILITY(U,$J,358.3,12382,1,4,0)
 ;;=4^S32.810D
 ;;^UTILITY(U,$J,358.3,12382,2)
 ;;=^5025099
 ;;^UTILITY(U,$J,358.3,12383,0)
 ;;=S32.811D^^50^547^24
 ;;^UTILITY(U,$J,358.3,12383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12383,1,3,0)
 ;;=3^Fx,Pelvis,Multiple w/ Unstable Disrupt,Pelvice Ring,Subsq
 ;;^UTILITY(U,$J,358.3,12383,1,4,0)
 ;;=4^S32.811D
 ;;^UTILITY(U,$J,358.3,12383,2)
 ;;=^5025105
 ;;^UTILITY(U,$J,358.3,12384,0)
 ;;=S32.465D^^50^547^27
 ;;^UTILITY(U,$J,358.3,12384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12384,1,3,0)
 ;;=3^Nondisp associated transv/post fx left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12384,1,4,0)
 ;;=4^S32.465D
 ;;^UTILITY(U,$J,358.3,12384,2)
 ;;=^5024907
 ;;^UTILITY(U,$J,358.3,12385,0)
 ;;=S32.464D^^50^547^28
 ;;^UTILITY(U,$J,358.3,12385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12385,1,3,0)
 ;;=3^Nondisp associated transv/post fx right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12385,1,4,0)
 ;;=4^S32.464D
 ;;^UTILITY(U,$J,358.3,12385,2)
 ;;=^5024901
 ;;^UTILITY(U,$J,358.3,12386,0)
 ;;=S32.484D^^50^547^30
 ;;^UTILITY(U,$J,358.3,12386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12386,1,3,0)
 ;;=3^Nondisp fx dome,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12386,1,4,0)
 ;;=4^S32.484D
 ;;^UTILITY(U,$J,358.3,12386,2)
 ;;=^5024973
 ;;^UTILITY(U,$J,358.3,12387,0)
 ;;=S32.485D^^50^547^29
 ;;^UTILITY(U,$J,358.3,12387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12387,1,3,0)
 ;;=3^Nondisp fx dome,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12387,1,4,0)
 ;;=4^S32.485D
 ;;^UTILITY(U,$J,358.3,12387,2)
 ;;=^5024979
 ;;^UTILITY(U,$J,358.3,12388,0)
 ;;=S32.435D^^50^547^31
 ;;^UTILITY(U,$J,358.3,12388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12388,1,3,0)
 ;;=3^Nondisp fx,anterior column,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12388,1,4,0)
 ;;=4^S32.435D
 ;;^UTILITY(U,$J,358.3,12388,2)
 ;;=^5024799
 ;;^UTILITY(U,$J,358.3,12389,0)
 ;;=S32.434D^^50^547^32
 ;;^UTILITY(U,$J,358.3,12389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12389,1,3,0)
 ;;=3^Nondisp fx,anterior column,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12389,1,4,0)
 ;;=4^S32.434D
 ;;^UTILITY(U,$J,358.3,12389,2)
 ;;=^5024793
 ;;^UTILITY(U,$J,358.3,12390,0)
 ;;=S32.415D^^50^547^33
 ;;^UTILITY(U,$J,358.3,12390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12390,1,3,0)
 ;;=3^Nondisp fx,anterior wall,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12390,1,4,0)
 ;;=4^S32.415D
 ;;^UTILITY(U,$J,358.3,12390,2)
 ;;=^5024727
 ;;^UTILITY(U,$J,358.3,12391,0)
 ;;=S32.414D^^50^547^34
 ;;^UTILITY(U,$J,358.3,12391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12391,1,3,0)
 ;;=3^Nondisp fx,anterior wall,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12391,1,4,0)
 ;;=4^S32.414D
 ;;^UTILITY(U,$J,358.3,12391,2)
 ;;=^5024721
 ;;^UTILITY(U,$J,358.3,12392,0)
 ;;=S32.315D^^50^547^35
 ;;^UTILITY(U,$J,358.3,12392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12392,1,3,0)
 ;;=3^Nondisp fx,avulsion,left ilium, subsq
 ;;^UTILITY(U,$J,358.3,12392,1,4,0)
 ;;=4^S32.315D
 ;;^UTILITY(U,$J,358.3,12392,2)
 ;;=^5024673
 ;;^UTILITY(U,$J,358.3,12393,0)
 ;;=S32.314D^^50^547^38
 ;;^UTILITY(U,$J,358.3,12393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12393,1,3,0)
 ;;=3^Nondisp fx,avulsion,right ilium, subsq
 ;;^UTILITY(U,$J,358.3,12393,1,4,0)
 ;;=4^S32.314D
 ;;^UTILITY(U,$J,358.3,12393,2)
 ;;=^5024667
 ;;^UTILITY(U,$J,358.3,12394,0)
 ;;=S32.315D^^50^547^36
 ;;^UTILITY(U,$J,358.3,12394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12394,1,3,0)
 ;;=3^Nondisp fx,avulsion,left ilium, subsq
 ;;^UTILITY(U,$J,358.3,12394,1,4,0)
 ;;=4^S32.315D
 ;;^UTILITY(U,$J,358.3,12394,2)
 ;;=^5024673
 ;;^UTILITY(U,$J,358.3,12395,0)
 ;;=S32.314D^^50^547^39
 ;;^UTILITY(U,$J,358.3,12395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12395,1,3,0)
 ;;=3^Nondisp fx,avulsion,right ilium, subsq
 ;;^UTILITY(U,$J,358.3,12395,1,4,0)
 ;;=4^S32.314D
 ;;^UTILITY(U,$J,358.3,12395,2)
 ;;=^5024667
 ;;^UTILITY(U,$J,358.3,12396,0)
 ;;=S32.615D^^50^547^37
 ;;^UTILITY(U,$J,358.3,12396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12396,1,3,0)
 ;;=3^Nondisp fx,avulsion,left ischium, subsq
 ;;^UTILITY(U,$J,358.3,12396,1,4,0)
 ;;=4^S32.615D
 ;;^UTILITY(U,$J,358.3,12396,2)
 ;;=^5025081
 ;;^UTILITY(U,$J,358.3,12397,0)
 ;;=S32.614D^^50^547^40
 ;;^UTILITY(U,$J,358.3,12397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12397,1,3,0)
 ;;=3^Nondisp fx,avulsion,right ischium, subsq
 ;;^UTILITY(U,$J,358.3,12397,1,4,0)
 ;;=4^S32.614D
 ;;^UTILITY(U,$J,358.3,12397,2)
 ;;=^5025075
 ;;^UTILITY(U,$J,358.3,12398,0)
 ;;=S32.475D^^50^547^41
 ;;^UTILITY(U,$J,358.3,12398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12398,1,3,0)
 ;;=3^Nondisp fx,medial wall,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12398,1,4,0)
 ;;=4^S32.475D
 ;;^UTILITY(U,$J,358.3,12398,2)
 ;;=^5024943
 ;;^UTILITY(U,$J,358.3,12399,0)
 ;;=S32.474D^^50^547^42
 ;;^UTILITY(U,$J,358.3,12399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12399,1,3,0)
 ;;=3^Nondisp fx,medial wall,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12399,1,4,0)
 ;;=4^S32.474D
 ;;^UTILITY(U,$J,358.3,12399,2)
 ;;=^5024937
 ;;^UTILITY(U,$J,358.3,12400,0)
 ;;=S32.445D^^50^547^43
 ;;^UTILITY(U,$J,358.3,12400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12400,1,3,0)
 ;;=3^Nondisp fx,posterior column,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12400,1,4,0)
 ;;=4^S32.445D
 ;;^UTILITY(U,$J,358.3,12400,2)
 ;;=^5024835
 ;;^UTILITY(U,$J,358.3,12401,0)
 ;;=S32.444D^^50^547^44
 ;;^UTILITY(U,$J,358.3,12401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12401,1,3,0)
 ;;=3^Nondisp fx,posterior column,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12401,1,4,0)
 ;;=4^S32.444D
 ;;^UTILITY(U,$J,358.3,12401,2)
 ;;=^5024829
 ;;^UTILITY(U,$J,358.3,12402,0)
 ;;=S32.425D^^50^547^45
 ;;^UTILITY(U,$J,358.3,12402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12402,1,3,0)
 ;;=3^Nondisp fx,posterior wall,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12402,1,4,0)
 ;;=4^S32.425D
 ;;^UTILITY(U,$J,358.3,12402,2)
 ;;=^5024763
 ;;^UTILITY(U,$J,358.3,12403,0)
 ;;=S32.424D^^50^547^46
 ;;^UTILITY(U,$J,358.3,12403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12403,1,3,0)
 ;;=3^Nondisp fx,posterior wall,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12403,1,4,0)
 ;;=4^S32.424D
 ;;^UTILITY(U,$J,358.3,12403,2)
 ;;=^5024757
 ;;^UTILITY(U,$J,358.3,12404,0)
 ;;=S32.455D^^50^547^47
 ;;^UTILITY(U,$J,358.3,12404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12404,1,3,0)
 ;;=3^Nondisp fx,transverse,left acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12404,1,4,0)
 ;;=4^S32.455D
 ;;^UTILITY(U,$J,358.3,12404,2)
 ;;=^5024871
 ;;^UTILITY(U,$J,358.3,12405,0)
 ;;=S32.454D^^50^547^48
 ;;^UTILITY(U,$J,358.3,12405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12405,1,3,0)
 ;;=3^Nondisp fx,transverse,right acetabulum, subsq
 ;;^UTILITY(U,$J,358.3,12405,1,4,0)
 ;;=4^S32.454D
 ;;^UTILITY(U,$J,358.3,12405,2)
 ;;=^5024865
 ;;^UTILITY(U,$J,358.3,12406,0)
 ;;=M84.350D^^50^547^49
 ;;^UTILITY(U,$J,358.3,12406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12406,1,3,0)
 ;;=3^Stress Fx, pelvis, subsq
 ;;^UTILITY(U,$J,358.3,12406,1,4,0)
 ;;=4^M84.350D
 ;;^UTILITY(U,$J,358.3,12406,2)
 ;;=^5013675
 ;;^UTILITY(U,$J,358.3,12407,0)
 ;;=S42.112D^^50^548^13
 ;;^UTILITY(U,$J,358.3,12407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12407,1,3,0)
 ;;=3^Disp fx,body of scapula, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12407,1,4,0)
 ;;=4^S42.112D
 ;;^UTILITY(U,$J,358.3,12407,2)
 ;;=^5026553
 ;;^UTILITY(U,$J,358.3,12408,0)
 ;;=S42.111D^^50^548^14
 ;;^UTILITY(U,$J,358.3,12408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12408,1,3,0)
 ;;=3^Disp fx,body of scapula, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12408,1,4,0)
 ;;=4^S42.111D
 ;;^UTILITY(U,$J,358.3,12408,2)
 ;;=^5026546
 ;;^UTILITY(U,$J,358.3,12409,0)
 ;;=S42.252D^^50^548^23
 ;;^UTILITY(U,$J,358.3,12409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12409,1,3,0)
 ;;=3^Disp fx,greater tuberosity,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12409,1,4,0)
 ;;=4^S42.252D
 ;;^UTILITY(U,$J,358.3,12409,2)
 ;;=^5026896
 ;;^UTILITY(U,$J,358.3,12410,0)
 ;;=S42.251D^^50^548^24
 ;;^UTILITY(U,$J,358.3,12410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12410,1,3,0)
 ;;=3^Disp fx,greater tuberosity,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12410,1,4,0)
 ;;=4^S42.251D
 ;;^UTILITY(U,$J,358.3,12410,2)
 ;;=^5026889
 ;;^UTILITY(U,$J,358.3,12411,0)
 ;;=S42.262D^^50^548^31
 ;;^UTILITY(U,$J,358.3,12411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12411,1,3,0)
 ;;=3^Disp fx,lesser tuberosity,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12411,1,4,0)
 ;;=4^S42.262D
 ;;^UTILITY(U,$J,358.3,12411,2)
 ;;=^5026938
 ;;^UTILITY(U,$J,358.3,12412,0)
 ;;=S42.261D^^50^548^32
 ;;^UTILITY(U,$J,358.3,12412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12412,1,3,0)
 ;;=3^Disp fx,lesser tuberosity,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12412,1,4,0)
 ;;=4^S42.261D
 ;;^UTILITY(U,$J,358.3,12412,2)
 ;;=^5026931
 ;;^UTILITY(U,$J,358.3,12413,0)
 ;;=S42.152D^^50^548^37
 ;;^UTILITY(U,$J,358.3,12413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12413,1,3,0)
 ;;=3^Disp fx,neck of scapula, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12413,1,4,0)
 ;;=4^S42.152D
 ;;^UTILITY(U,$J,358.3,12413,2)
 ;;=^5026721
 ;;^UTILITY(U,$J,358.3,12414,0)
 ;;=S42.151D^^50^548^38
 ;;^UTILITY(U,$J,358.3,12414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12414,1,3,0)
 ;;=3^Disp fx,neck of scapula, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12414,1,4,0)
 ;;=4^S42.151D
 ;;^UTILITY(U,$J,358.3,12414,2)
 ;;=^5026714
 ;;^UTILITY(U,$J,358.3,12415,0)
 ;;=S42.332D^^50^548^39
 ;;^UTILITY(U,$J,358.3,12415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12415,1,3,0)
 ;;=3^Disp fx,oblique shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12415,1,4,0)
 ;;=4^S42.332D
 ;;^UTILITY(U,$J,358.3,12415,2)
 ;;=^5027114
 ;;^UTILITY(U,$J,358.3,12416,0)
 ;;=S42.331D^^50^548^40
 ;;^UTILITY(U,$J,358.3,12416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12416,1,3,0)
 ;;=3^Disp fx,oblique shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12416,1,4,0)
 ;;=4^S42.331D
 ;;^UTILITY(U,$J,358.3,12416,2)
 ;;=^5027107
 ;;^UTILITY(U,$J,358.3,12417,0)
 ;;=S42.312D^^50^548^53
 ;;^UTILITY(U,$J,358.3,12417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12417,1,3,0)
 ;;=3^Greenstick fx of shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12417,1,4,0)
 ;;=4^S42.312D
 ;;^UTILITY(U,$J,358.3,12417,2)
 ;;=^5027052
 ;;^UTILITY(U,$J,358.3,12418,0)
 ;;=S42.311D^^50^548^54
 ;;^UTILITY(U,$J,358.3,12418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12418,1,3,0)
 ;;=3^Greenstick fx of shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12418,1,4,0)
 ;;=4^S42.311D
 ;;^UTILITY(U,$J,358.3,12418,2)
 ;;=^5027046
 ;;^UTILITY(U,$J,358.3,12419,0)
 ;;=S42.448D^^50^548^55
 ;;^UTILITY(U,$J,358.3,12419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12419,1,3,0)
 ;;=3^Incarcerated fx,medial epicondyl of lt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12419,1,4,0)
 ;;=4^S42.448D
 ;;^UTILITY(U,$J,358.3,12419,2)
 ;;=^5027478
 ;;^UTILITY(U,$J,358.3,12420,0)
 ;;=S42.447D^^50^548^56
 ;;^UTILITY(U,$J,358.3,12420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12420,1,3,0)
 ;;=3^Incarcerated fx,medial epicondyl of rt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12420,1,4,0)
 ;;=4^S42.447D
 ;;^UTILITY(U,$J,358.3,12420,2)
 ;;=^5027471
 ;;^UTILITY(U,$J,358.3,12421,0)
 ;;=S42.125D^^50^548^57
 ;;^UTILITY(U,$J,358.3,12421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12421,1,3,0)
 ;;=3^Nondisp fx,acromial process, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12421,1,4,0)
 ;;=4^S42.125D
 ;;^UTILITY(U,$J,358.3,12421,2)
 ;;=^5026616
 ;;^UTILITY(U,$J,358.3,12422,0)
 ;;=S42.124D^^50^548^58
 ;;^UTILITY(U,$J,358.3,12422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12422,1,3,0)
 ;;=3^Nondisp fx,acromial process, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12422,1,4,0)
 ;;=4^S42.124D
 ;;^UTILITY(U,$J,358.3,12422,2)
 ;;=^5026609
 ;;^UTILITY(U,$J,358.3,12423,0)
 ;;=S42.115D^^50^548^59
 ;;^UTILITY(U,$J,358.3,12423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12423,1,3,0)
 ;;=3^Nondisp fx,body of scapula, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12423,1,4,0)
 ;;=4^S42.115D
 ;;^UTILITY(U,$J,358.3,12423,2)
 ;;=^5026574
 ;;^UTILITY(U,$J,358.3,12424,0)
 ;;=S42.114D^^50^548^60
 ;;^UTILITY(U,$J,358.3,12424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12424,1,3,0)
 ;;=3^Nondisp fx,body of scapula, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12424,1,4,0)
 ;;=4^S42.114D
 ;;^UTILITY(U,$J,358.3,12424,2)
 ;;=^5026567
 ;;^UTILITY(U,$J,358.3,12425,0)
 ;;=S42.155D^^50^548^83
 ;;^UTILITY(U,$J,358.3,12425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12425,1,3,0)
 ;;=3^Nondisp fx,neck of scapula, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12425,1,4,0)
 ;;=4^S42.155D
 ;;^UTILITY(U,$J,358.3,12425,2)
 ;;=^5026742
 ;;^UTILITY(U,$J,358.3,12426,0)
 ;;=S42.154D^^50^548^84
 ;;^UTILITY(U,$J,358.3,12426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12426,1,3,0)
 ;;=3^Nondisp fx,neck of scapula, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12426,1,4,0)
 ;;=4^S42.154D
 ;;^UTILITY(U,$J,358.3,12426,2)
 ;;=^5026735
 ;;^UTILITY(U,$J,358.3,12427,0)
 ;;=S42.335D^^50^548^85
 ;;^UTILITY(U,$J,358.3,12427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12427,1,3,0)
 ;;=3^Nondisp fx,oblique shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12427,1,4,0)
 ;;=4^S42.335D
 ;;^UTILITY(U,$J,358.3,12427,2)
 ;;=^5027135
 ;;^UTILITY(U,$J,358.3,12428,0)
 ;;=S42.334D^^50^548^86
 ;;^UTILITY(U,$J,358.3,12428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12428,1,3,0)
 ;;=3^Nondisp fx,oblique shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12428,1,4,0)
 ;;=4^S42.334D
 ;;^UTILITY(U,$J,358.3,12428,2)
 ;;=^5027128
 ;;^UTILITY(U,$J,358.3,12429,0)
 ;;=M84.322D^^50^548^123
 ;;^UTILITY(U,$J,358.3,12429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12429,1,3,0)
 ;;=3^Stress fx, left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12429,1,4,0)
 ;;=4^M84.322D
 ;;^UTILITY(U,$J,358.3,12429,2)
 ;;=^5013597
 ;;^UTILITY(U,$J,358.3,12430,0)
 ;;=M84.321D^^50^548^125
 ;;^UTILITY(U,$J,358.3,12430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12430,1,3,0)
 ;;=3^Stress fx, right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12430,1,4,0)
 ;;=4^M84.321D
 ;;^UTILITY(U,$J,358.3,12430,2)
 ;;=^5013591
 ;;^UTILITY(U,$J,358.3,12431,0)
 ;;=M84.312D^^50^548^124
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI054   19772     printed  Sep 23, 2025@19:17:48                                                                                                                                                                                                   Page 2
IBDEI054  ; ; 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,12366,1,3,0)
 +2       ;;=3^Disp fx,avulsion,left ischium, subsq
 +3       ;;^UTILITY(U,$J,358.3,12366,1,4,0)
 +4       ;;=4^S32.612D
 +5       ;;^UTILITY(U,$J,358.3,12366,2)
 +6       ;;=^5025063
 +7       ;;^UTILITY(U,$J,358.3,12367,0)
 +8       ;;=S32.611D^^50^547^10
 +9       ;;^UTILITY(U,$J,358.3,12367,1,0)
 +10      ;;=^358.31IA^4^2
 +11      ;;^UTILITY(U,$J,358.3,12367,1,3,0)
 +12      ;;=3^Disp fx,avulsion,right ischium, subsq
 +13      ;;^UTILITY(U,$J,358.3,12367,1,4,0)
 +14      ;;=4^S32.611D
 +15      ;;^UTILITY(U,$J,358.3,12367,2)
 +16      ;;=^5025057
 +17      ;;^UTILITY(U,$J,358.3,12368,0)
 +18      ;;=S32.482D^^50^547^11
 +19      ;;^UTILITY(U,$J,358.3,12368,1,0)
 +20      ;;=^358.31IA^4^2
 +21      ;;^UTILITY(U,$J,358.3,12368,1,3,0)
 +22      ;;=3^Disp fx,dome,left acetabulum, subsq
 +23      ;;^UTILITY(U,$J,358.3,12368,1,4,0)
 +24      ;;=4^S32.482D
 +25      ;;^UTILITY(U,$J,358.3,12368,2)
 +26      ;;=^5024961
 +27      ;;^UTILITY(U,$J,358.3,12369,0)
 +28      ;;=S32.481D^^50^547^12
 +29      ;;^UTILITY(U,$J,358.3,12369,1,0)
 +30      ;;=^358.31IA^4^2
 +31      ;;^UTILITY(U,$J,358.3,12369,1,3,0)
 +32      ;;=3^Disp fx,dome,right acetabulum, subsq
 +33      ;;^UTILITY(U,$J,358.3,12369,1,4,0)
 +34      ;;=4^S32.481D
 +35      ;;^UTILITY(U,$J,358.3,12369,2)
 +36      ;;=^5024955
 +37      ;;^UTILITY(U,$J,358.3,12370,0)
 +38      ;;=S32.472D^^50^547^13
 +39      ;;^UTILITY(U,$J,358.3,12370,1,0)
 +40      ;;=^358.31IA^4^2
 +41      ;;^UTILITY(U,$J,358.3,12370,1,3,0)
 +42      ;;=3^Disp fx,medial wall,left acetabulum, subsq
 +43      ;;^UTILITY(U,$J,358.3,12370,1,4,0)
 +44      ;;=4^S32.472D
 +45      ;;^UTILITY(U,$J,358.3,12370,2)
 +46      ;;=^5024925
 +47      ;;^UTILITY(U,$J,358.3,12371,0)
 +48      ;;=S32.471D^^50^547^14
 +49      ;;^UTILITY(U,$J,358.3,12371,1,0)
 +50      ;;=^358.31IA^4^2
 +51      ;;^UTILITY(U,$J,358.3,12371,1,3,0)
 +52      ;;=3^Disp fx,medial wall,right acetabulum, subsq
 +53      ;;^UTILITY(U,$J,358.3,12371,1,4,0)
 +54      ;;=4^S32.471D
 +55      ;;^UTILITY(U,$J,358.3,12371,2)
 +56      ;;=^5024919
 +57      ;;^UTILITY(U,$J,358.3,12372,0)
 +58      ;;=S32.442D^^50^547^15
 +59      ;;^UTILITY(U,$J,358.3,12372,1,0)
 +60      ;;=^358.31IA^4^2
 +61      ;;^UTILITY(U,$J,358.3,12372,1,3,0)
 +62      ;;=3^Disp fx,posterior column,left acetabulum, subsq
 +63      ;;^UTILITY(U,$J,358.3,12372,1,4,0)
 +64      ;;=4^S32.442D
 +65      ;;^UTILITY(U,$J,358.3,12372,2)
 +66      ;;=^5024817
 +67      ;;^UTILITY(U,$J,358.3,12373,0)
 +68      ;;=S32.441D^^50^547^16
 +69      ;;^UTILITY(U,$J,358.3,12373,1,0)
 +70      ;;=^358.31IA^4^2
 +71      ;;^UTILITY(U,$J,358.3,12373,1,3,0)
 +72      ;;=3^Disp fx,posterior column,right acetabulum, subsq
 +73      ;;^UTILITY(U,$J,358.3,12373,1,4,0)
 +74      ;;=4^S32.441D
 +75      ;;^UTILITY(U,$J,358.3,12373,2)
 +76      ;;=^5024811
 +77      ;;^UTILITY(U,$J,358.3,12374,0)
 +78      ;;=S32.442D^^50^547^17
 +79      ;;^UTILITY(U,$J,358.3,12374,1,0)
 +80      ;;=^358.31IA^4^2
 +81      ;;^UTILITY(U,$J,358.3,12374,1,3,0)
 +82      ;;=3^Disp fx,posterior wall,left acetabulum, subsq
 +83      ;;^UTILITY(U,$J,358.3,12374,1,4,0)
 +84      ;;=4^S32.442D
 +85      ;;^UTILITY(U,$J,358.3,12374,2)
 +86      ;;=^5024817
 +87      ;;^UTILITY(U,$J,358.3,12375,0)
 +88      ;;=S32.441D^^50^547^18
 +89      ;;^UTILITY(U,$J,358.3,12375,1,0)
 +90      ;;=^358.31IA^4^2
 +91      ;;^UTILITY(U,$J,358.3,12375,1,3,0)
 +92      ;;=3^Disp fx,posterior wall,right acetabulum, subsq
 +93      ;;^UTILITY(U,$J,358.3,12375,1,4,0)
 +94      ;;=4^S32.441D
 +95      ;;^UTILITY(U,$J,358.3,12375,2)
 +96      ;;=^5024811
 +97      ;;^UTILITY(U,$J,358.3,12376,0)
 +98      ;;=S32.452D^^50^547^19
 +99      ;;^UTILITY(U,$J,358.3,12376,1,0)
 +100     ;;=^358.31IA^4^2
 +101     ;;^UTILITY(U,$J,358.3,12376,1,3,0)
 +102     ;;=3^Disp fx,transverse,left acetabulum, subsq
 +103     ;;^UTILITY(U,$J,358.3,12376,1,4,0)
 +104     ;;=4^S32.452D
 +105     ;;^UTILITY(U,$J,358.3,12376,2)
 +106     ;;=^5024853
 +107     ;;^UTILITY(U,$J,358.3,12377,0)
 +108     ;;=S32.421D^^50^547^21
 +109     ;;^UTILITY(U,$J,358.3,12377,1,0)
 +110     ;;=^358.31IA^4^2
 +111     ;;^UTILITY(U,$J,358.3,12377,1,3,0)
 +112     ;;=3^Disp fx,transverse,right acetabulum, subsq
 +113     ;;^UTILITY(U,$J,358.3,12377,1,4,0)
 +114     ;;=4^S32.421D
 +115     ;;^UTILITY(U,$J,358.3,12377,2)
 +116     ;;=^5024739
 +117     ;;^UTILITY(U,$J,358.3,12378,0)
 +118     ;;=S32.452D^^50^547^20
 +119     ;;^UTILITY(U,$J,358.3,12378,1,0)
 +120     ;;=^358.31IA^4^2
 +121     ;;^UTILITY(U,$J,358.3,12378,1,3,0)
 +122     ;;=3^Disp fx,transverse,left acetabulum, subsq
 +123     ;;^UTILITY(U,$J,358.3,12378,1,4,0)
 +124     ;;=4^S32.452D
 +125     ;;^UTILITY(U,$J,358.3,12378,2)
 +126     ;;=^5024853
 +127     ;;^UTILITY(U,$J,358.3,12379,0)
 +128     ;;=S32.451D^^50^547^22
 +129     ;;^UTILITY(U,$J,358.3,12379,1,0)
 +130     ;;=^358.31IA^4^2
 +131     ;;^UTILITY(U,$J,358.3,12379,1,3,0)
 +132     ;;=3^Disp fx,transverse,right acetabulum, subsq
 +133     ;;^UTILITY(U,$J,358.3,12379,1,4,0)
 +134     ;;=4^S32.451D
 +135     ;;^UTILITY(U,$J,358.3,12379,2)
 +136     ;;=^5024847
 +137     ;;^UTILITY(U,$J,358.3,12380,0)
 +138     ;;=S32.512D^^50^547^25
 +139     ;;^UTILITY(U,$J,358.3,12380,1,0)
 +140     ;;=^358.31IA^4^2
 +141     ;;^UTILITY(U,$J,358.3,12380,1,3,0)
 +142     ;;=3^Fx,Pubis,Superior Rim,Left,Subsq
 +143     ;;^UTILITY(U,$J,358.3,12380,1,4,0)
 +144     ;;=4^S32.512D
 +145     ;;^UTILITY(U,$J,358.3,12380,2)
 +146     ;;=^5025015
 +147     ;;^UTILITY(U,$J,358.3,12381,0)
 +148     ;;=S32.511D^^50^547^26
 +149     ;;^UTILITY(U,$J,358.3,12381,1,0)
 +150     ;;=^358.31IA^4^2
 +151     ;;^UTILITY(U,$J,358.3,12381,1,3,0)
 +152     ;;=3^Fx,Pubis,Superior Rim,Right,Subsq
 +153     ;;^UTILITY(U,$J,358.3,12381,1,4,0)
 +154     ;;=4^S32.511D
 +155     ;;^UTILITY(U,$J,358.3,12381,2)
 +156     ;;=^5025009
 +157     ;;^UTILITY(U,$J,358.3,12382,0)
 +158     ;;=S32.810D^^50^547^23
 +159     ;;^UTILITY(U,$J,358.3,12382,1,0)
 +160     ;;=^358.31IA^4^2
 +161     ;;^UTILITY(U,$J,358.3,12382,1,3,0)
 +162     ;;=3^Fx,Pelvis,Multiple w/ Stable Disrupt,Pelvice Ring,Subsq
 +163     ;;^UTILITY(U,$J,358.3,12382,1,4,0)
 +164     ;;=4^S32.810D
 +165     ;;^UTILITY(U,$J,358.3,12382,2)
 +166     ;;=^5025099
 +167     ;;^UTILITY(U,$J,358.3,12383,0)
 +168     ;;=S32.811D^^50^547^24
 +169     ;;^UTILITY(U,$J,358.3,12383,1,0)
 +170     ;;=^358.31IA^4^2
 +171     ;;^UTILITY(U,$J,358.3,12383,1,3,0)
 +172     ;;=3^Fx,Pelvis,Multiple w/ Unstable Disrupt,Pelvice Ring,Subsq
 +173     ;;^UTILITY(U,$J,358.3,12383,1,4,0)
 +174     ;;=4^S32.811D
 +175     ;;^UTILITY(U,$J,358.3,12383,2)
 +176     ;;=^5025105
 +177     ;;^UTILITY(U,$J,358.3,12384,0)
 +178     ;;=S32.465D^^50^547^27
 +179     ;;^UTILITY(U,$J,358.3,12384,1,0)
 +180     ;;=^358.31IA^4^2
 +181     ;;^UTILITY(U,$J,358.3,12384,1,3,0)
 +182     ;;=3^Nondisp associated transv/post fx left acetabulum, subsq
 +183     ;;^UTILITY(U,$J,358.3,12384,1,4,0)
 +184     ;;=4^S32.465D
 +185     ;;^UTILITY(U,$J,358.3,12384,2)
 +186     ;;=^5024907
 +187     ;;^UTILITY(U,$J,358.3,12385,0)
 +188     ;;=S32.464D^^50^547^28
 +189     ;;^UTILITY(U,$J,358.3,12385,1,0)
 +190     ;;=^358.31IA^4^2
 +191     ;;^UTILITY(U,$J,358.3,12385,1,3,0)
 +192     ;;=3^Nondisp associated transv/post fx right acetabulum, subsq
 +193     ;;^UTILITY(U,$J,358.3,12385,1,4,0)
 +194     ;;=4^S32.464D
 +195     ;;^UTILITY(U,$J,358.3,12385,2)
 +196     ;;=^5024901
 +197     ;;^UTILITY(U,$J,358.3,12386,0)
 +198     ;;=S32.484D^^50^547^30
 +199     ;;^UTILITY(U,$J,358.3,12386,1,0)
 +200     ;;=^358.31IA^4^2
 +201     ;;^UTILITY(U,$J,358.3,12386,1,3,0)
 +202     ;;=3^Nondisp fx dome,right acetabulum, subsq
 +203     ;;^UTILITY(U,$J,358.3,12386,1,4,0)
 +204     ;;=4^S32.484D
 +205     ;;^UTILITY(U,$J,358.3,12386,2)
 +206     ;;=^5024973
 +207     ;;^UTILITY(U,$J,358.3,12387,0)
 +208     ;;=S32.485D^^50^547^29
 +209     ;;^UTILITY(U,$J,358.3,12387,1,0)
 +210     ;;=^358.31IA^4^2
 +211     ;;^UTILITY(U,$J,358.3,12387,1,3,0)
 +212     ;;=3^Nondisp fx dome,left acetabulum, subsq
 +213     ;;^UTILITY(U,$J,358.3,12387,1,4,0)
 +214     ;;=4^S32.485D
 +215     ;;^UTILITY(U,$J,358.3,12387,2)
 +216     ;;=^5024979
 +217     ;;^UTILITY(U,$J,358.3,12388,0)
 +218     ;;=S32.435D^^50^547^31
 +219     ;;^UTILITY(U,$J,358.3,12388,1,0)
 +220     ;;=^358.31IA^4^2
 +221     ;;^UTILITY(U,$J,358.3,12388,1,3,0)
 +222     ;;=3^Nondisp fx,anterior column,left acetabulum, subsq
 +223     ;;^UTILITY(U,$J,358.3,12388,1,4,0)
 +224     ;;=4^S32.435D
 +225     ;;^UTILITY(U,$J,358.3,12388,2)
 +226     ;;=^5024799
 +227     ;;^UTILITY(U,$J,358.3,12389,0)
 +228     ;;=S32.434D^^50^547^32
 +229     ;;^UTILITY(U,$J,358.3,12389,1,0)
 +230     ;;=^358.31IA^4^2
 +231     ;;^UTILITY(U,$J,358.3,12389,1,3,0)
 +232     ;;=3^Nondisp fx,anterior column,right acetabulum, subsq
 +233     ;;^UTILITY(U,$J,358.3,12389,1,4,0)
 +234     ;;=4^S32.434D
 +235     ;;^UTILITY(U,$J,358.3,12389,2)
 +236     ;;=^5024793
 +237     ;;^UTILITY(U,$J,358.3,12390,0)
 +238     ;;=S32.415D^^50^547^33
 +239     ;;^UTILITY(U,$J,358.3,12390,1,0)
 +240     ;;=^358.31IA^4^2
 +241     ;;^UTILITY(U,$J,358.3,12390,1,3,0)
 +242     ;;=3^Nondisp fx,anterior wall,left acetabulum, subsq
 +243     ;;^UTILITY(U,$J,358.3,12390,1,4,0)
 +244     ;;=4^S32.415D
 +245     ;;^UTILITY(U,$J,358.3,12390,2)
 +246     ;;=^5024727
 +247     ;;^UTILITY(U,$J,358.3,12391,0)
 +248     ;;=S32.414D^^50^547^34
 +249     ;;^UTILITY(U,$J,358.3,12391,1,0)
 +250     ;;=^358.31IA^4^2
 +251     ;;^UTILITY(U,$J,358.3,12391,1,3,0)
 +252     ;;=3^Nondisp fx,anterior wall,right acetabulum, subsq
 +253     ;;^UTILITY(U,$J,358.3,12391,1,4,0)
 +254     ;;=4^S32.414D
 +255     ;;^UTILITY(U,$J,358.3,12391,2)
 +256     ;;=^5024721
 +257     ;;^UTILITY(U,$J,358.3,12392,0)
 +258     ;;=S32.315D^^50^547^35
 +259     ;;^UTILITY(U,$J,358.3,12392,1,0)
 +260     ;;=^358.31IA^4^2
 +261     ;;^UTILITY(U,$J,358.3,12392,1,3,0)
 +262     ;;=3^Nondisp fx,avulsion,left ilium, subsq
 +263     ;;^UTILITY(U,$J,358.3,12392,1,4,0)
 +264     ;;=4^S32.315D
 +265     ;;^UTILITY(U,$J,358.3,12392,2)
 +266     ;;=^5024673
 +267     ;;^UTILITY(U,$J,358.3,12393,0)
 +268     ;;=S32.314D^^50^547^38
 +269     ;;^UTILITY(U,$J,358.3,12393,1,0)
 +270     ;;=^358.31IA^4^2
 +271     ;;^UTILITY(U,$J,358.3,12393,1,3,0)
 +272     ;;=3^Nondisp fx,avulsion,right ilium, subsq
 +273     ;;^UTILITY(U,$J,358.3,12393,1,4,0)
 +274     ;;=4^S32.314D
 +275     ;;^UTILITY(U,$J,358.3,12393,2)
 +276     ;;=^5024667
 +277     ;;^UTILITY(U,$J,358.3,12394,0)
 +278     ;;=S32.315D^^50^547^36
 +279     ;;^UTILITY(U,$J,358.3,12394,1,0)
 +280     ;;=^358.31IA^4^2
 +281     ;;^UTILITY(U,$J,358.3,12394,1,3,0)
 +282     ;;=3^Nondisp fx,avulsion,left ilium, subsq
 +283     ;;^UTILITY(U,$J,358.3,12394,1,4,0)
 +284     ;;=4^S32.315D
 +285     ;;^UTILITY(U,$J,358.3,12394,2)
 +286     ;;=^5024673
 +287     ;;^UTILITY(U,$J,358.3,12395,0)
 +288     ;;=S32.314D^^50^547^39
 +289     ;;^UTILITY(U,$J,358.3,12395,1,0)
 +290     ;;=^358.31IA^4^2
 +291     ;;^UTILITY(U,$J,358.3,12395,1,3,0)
 +292     ;;=3^Nondisp fx,avulsion,right ilium, subsq
 +293     ;;^UTILITY(U,$J,358.3,12395,1,4,0)
 +294     ;;=4^S32.314D
 +295     ;;^UTILITY(U,$J,358.3,12395,2)
 +296     ;;=^5024667
 +297     ;;^UTILITY(U,$J,358.3,12396,0)
 +298     ;;=S32.615D^^50^547^37
 +299     ;;^UTILITY(U,$J,358.3,12396,1,0)
 +300     ;;=^358.31IA^4^2
 +301     ;;^UTILITY(U,$J,358.3,12396,1,3,0)
 +302     ;;=3^Nondisp fx,avulsion,left ischium, subsq
 +303     ;;^UTILITY(U,$J,358.3,12396,1,4,0)
 +304     ;;=4^S32.615D
 +305     ;;^UTILITY(U,$J,358.3,12396,2)
 +306     ;;=^5025081
 +307     ;;^UTILITY(U,$J,358.3,12397,0)
 +308     ;;=S32.614D^^50^547^40
 +309     ;;^UTILITY(U,$J,358.3,12397,1,0)
 +310     ;;=^358.31IA^4^2
 +311     ;;^UTILITY(U,$J,358.3,12397,1,3,0)
 +312     ;;=3^Nondisp fx,avulsion,right ischium, subsq
 +313     ;;^UTILITY(U,$J,358.3,12397,1,4,0)
 +314     ;;=4^S32.614D
 +315     ;;^UTILITY(U,$J,358.3,12397,2)
 +316     ;;=^5025075
 +317     ;;^UTILITY(U,$J,358.3,12398,0)
 +318     ;;=S32.475D^^50^547^41
 +319     ;;^UTILITY(U,$J,358.3,12398,1,0)
 +320     ;;=^358.31IA^4^2
 +321     ;;^UTILITY(U,$J,358.3,12398,1,3,0)
 +322     ;;=3^Nondisp fx,medial wall,left acetabulum, subsq
 +323     ;;^UTILITY(U,$J,358.3,12398,1,4,0)
 +324     ;;=4^S32.475D
 +325     ;;^UTILITY(U,$J,358.3,12398,2)
 +326     ;;=^5024943
 +327     ;;^UTILITY(U,$J,358.3,12399,0)
 +328     ;;=S32.474D^^50^547^42
 +329     ;;^UTILITY(U,$J,358.3,12399,1,0)
 +330     ;;=^358.31IA^4^2
 +331     ;;^UTILITY(U,$J,358.3,12399,1,3,0)
 +332     ;;=3^Nondisp fx,medial wall,right acetabulum, subsq
 +333     ;;^UTILITY(U,$J,358.3,12399,1,4,0)
 +334     ;;=4^S32.474D
 +335     ;;^UTILITY(U,$J,358.3,12399,2)
 +336     ;;=^5024937
 +337     ;;^UTILITY(U,$J,358.3,12400,0)
 +338     ;;=S32.445D^^50^547^43
 +339     ;;^UTILITY(U,$J,358.3,12400,1,0)
 +340     ;;=^358.31IA^4^2
 +341     ;;^UTILITY(U,$J,358.3,12400,1,3,0)
 +342     ;;=3^Nondisp fx,posterior column,left acetabulum, subsq
 +343     ;;^UTILITY(U,$J,358.3,12400,1,4,0)
 +344     ;;=4^S32.445D
 +345     ;;^UTILITY(U,$J,358.3,12400,2)
 +346     ;;=^5024835
 +347     ;;^UTILITY(U,$J,358.3,12401,0)
 +348     ;;=S32.444D^^50^547^44
 +349     ;;^UTILITY(U,$J,358.3,12401,1,0)
 +350     ;;=^358.31IA^4^2
 +351     ;;^UTILITY(U,$J,358.3,12401,1,3,0)
 +352     ;;=3^Nondisp fx,posterior column,right acetabulum, subsq
 +353     ;;^UTILITY(U,$J,358.3,12401,1,4,0)
 +354     ;;=4^S32.444D
 +355     ;;^UTILITY(U,$J,358.3,12401,2)
 +356     ;;=^5024829
 +357     ;;^UTILITY(U,$J,358.3,12402,0)
 +358     ;;=S32.425D^^50^547^45
 +359     ;;^UTILITY(U,$J,358.3,12402,1,0)
 +360     ;;=^358.31IA^4^2
 +361     ;;^UTILITY(U,$J,358.3,12402,1,3,0)
 +362     ;;=3^Nondisp fx,posterior wall,left acetabulum, subsq
 +363     ;;^UTILITY(U,$J,358.3,12402,1,4,0)
 +364     ;;=4^S32.425D
 +365     ;;^UTILITY(U,$J,358.3,12402,2)
 +366     ;;=^5024763
 +367     ;;^UTILITY(U,$J,358.3,12403,0)
 +368     ;;=S32.424D^^50^547^46
 +369     ;;^UTILITY(U,$J,358.3,12403,1,0)
 +370     ;;=^358.31IA^4^2
 +371     ;;^UTILITY(U,$J,358.3,12403,1,3,0)
 +372     ;;=3^Nondisp fx,posterior wall,right acetabulum, subsq
 +373     ;;^UTILITY(U,$J,358.3,12403,1,4,0)
 +374     ;;=4^S32.424D
 +375     ;;^UTILITY(U,$J,358.3,12403,2)
 +376     ;;=^5024757
 +377     ;;^UTILITY(U,$J,358.3,12404,0)
 +378     ;;=S32.455D^^50^547^47
 +379     ;;^UTILITY(U,$J,358.3,12404,1,0)
 +380     ;;=^358.31IA^4^2
 +381     ;;^UTILITY(U,$J,358.3,12404,1,3,0)
 +382     ;;=3^Nondisp fx,transverse,left acetabulum, subsq
 +383     ;;^UTILITY(U,$J,358.3,12404,1,4,0)
 +384     ;;=4^S32.455D
 +385     ;;^UTILITY(U,$J,358.3,12404,2)
 +386     ;;=^5024871
 +387     ;;^UTILITY(U,$J,358.3,12405,0)
 +388     ;;=S32.454D^^50^547^48
 +389     ;;^UTILITY(U,$J,358.3,12405,1,0)
 +390     ;;=^358.31IA^4^2
 +391     ;;^UTILITY(U,$J,358.3,12405,1,3,0)
 +392     ;;=3^Nondisp fx,transverse,right acetabulum, subsq
 +393     ;;^UTILITY(U,$J,358.3,12405,1,4,0)
 +394     ;;=4^S32.454D
 +395     ;;^UTILITY(U,$J,358.3,12405,2)
 +396     ;;=^5024865
 +397     ;;^UTILITY(U,$J,358.3,12406,0)
 +398     ;;=M84.350D^^50^547^49
 +399     ;;^UTILITY(U,$J,358.3,12406,1,0)
 +400     ;;=^358.31IA^4^2
 +401     ;;^UTILITY(U,$J,358.3,12406,1,3,0)
 +402     ;;=3^Stress Fx, pelvis, subsq
 +403     ;;^UTILITY(U,$J,358.3,12406,1,4,0)
 +404     ;;=4^M84.350D
 +405     ;;^UTILITY(U,$J,358.3,12406,2)
 +406     ;;=^5013675
 +407     ;;^UTILITY(U,$J,358.3,12407,0)
 +408     ;;=S42.112D^^50^548^13
 +409     ;;^UTILITY(U,$J,358.3,12407,1,0)
 +410     ;;=^358.31IA^4^2
 +411     ;;^UTILITY(U,$J,358.3,12407,1,3,0)
 +412     ;;=3^Disp fx,body of scapula, left shoulder,Subsq
 +413     ;;^UTILITY(U,$J,358.3,12407,1,4,0)
 +414     ;;=4^S42.112D
 +415     ;;^UTILITY(U,$J,358.3,12407,2)
 +416     ;;=^5026553
 +417     ;;^UTILITY(U,$J,358.3,12408,0)
 +418     ;;=S42.111D^^50^548^14
 +419     ;;^UTILITY(U,$J,358.3,12408,1,0)
 +420     ;;=^358.31IA^4^2
 +421     ;;^UTILITY(U,$J,358.3,12408,1,3,0)
 +422     ;;=3^Disp fx,body of scapula, right shoulder,Subsq
 +423     ;;^UTILITY(U,$J,358.3,12408,1,4,0)
 +424     ;;=4^S42.111D
 +425     ;;^UTILITY(U,$J,358.3,12408,2)
 +426     ;;=^5026546
 +427     ;;^UTILITY(U,$J,358.3,12409,0)
 +428     ;;=S42.252D^^50^548^23
 +429     ;;^UTILITY(U,$J,358.3,12409,1,0)
 +430     ;;=^358.31IA^4^2
 +431     ;;^UTILITY(U,$J,358.3,12409,1,3,0)
 +432     ;;=3^Disp fx,greater tuberosity,left humerus,Subsq
 +433     ;;^UTILITY(U,$J,358.3,12409,1,4,0)
 +434     ;;=4^S42.252D
 +435     ;;^UTILITY(U,$J,358.3,12409,2)
 +436     ;;=^5026896
 +437     ;;^UTILITY(U,$J,358.3,12410,0)
 +438     ;;=S42.251D^^50^548^24
 +439     ;;^UTILITY(U,$J,358.3,12410,1,0)
 +440     ;;=^358.31IA^4^2
 +441     ;;^UTILITY(U,$J,358.3,12410,1,3,0)
 +442     ;;=3^Disp fx,greater tuberosity,right humerus,Subsq
 +443     ;;^UTILITY(U,$J,358.3,12410,1,4,0)
 +444     ;;=4^S42.251D
 +445     ;;^UTILITY(U,$J,358.3,12410,2)
 +446     ;;=^5026889
 +447     ;;^UTILITY(U,$J,358.3,12411,0)
 +448     ;;=S42.262D^^50^548^31
 +449     ;;^UTILITY(U,$J,358.3,12411,1,0)
 +450     ;;=^358.31IA^4^2
 +451     ;;^UTILITY(U,$J,358.3,12411,1,3,0)
 +452     ;;=3^Disp fx,lesser tuberosity,left humerus,Subsq
 +453     ;;^UTILITY(U,$J,358.3,12411,1,4,0)
 +454     ;;=4^S42.262D
 +455     ;;^UTILITY(U,$J,358.3,12411,2)
 +456     ;;=^5026938
 +457     ;;^UTILITY(U,$J,358.3,12412,0)
 +458     ;;=S42.261D^^50^548^32
 +459     ;;^UTILITY(U,$J,358.3,12412,1,0)
 +460     ;;=^358.31IA^4^2
 +461     ;;^UTILITY(U,$J,358.3,12412,1,3,0)
 +462     ;;=3^Disp fx,lesser tuberosity,right humerus,Subsq
 +463     ;;^UTILITY(U,$J,358.3,12412,1,4,0)
 +464     ;;=4^S42.261D
 +465     ;;^UTILITY(U,$J,358.3,12412,2)
 +466     ;;=^5026931
 +467     ;;^UTILITY(U,$J,358.3,12413,0)
 +468     ;;=S42.152D^^50^548^37
 +469     ;;^UTILITY(U,$J,358.3,12413,1,0)
 +470     ;;=^358.31IA^4^2
 +471     ;;^UTILITY(U,$J,358.3,12413,1,3,0)
 +472     ;;=3^Disp fx,neck of scapula, left shoulder,Subsq
 +473     ;;^UTILITY(U,$J,358.3,12413,1,4,0)
 +474     ;;=4^S42.152D
 +475     ;;^UTILITY(U,$J,358.3,12413,2)
 +476     ;;=^5026721
 +477     ;;^UTILITY(U,$J,358.3,12414,0)
 +478     ;;=S42.151D^^50^548^38
 +479     ;;^UTILITY(U,$J,358.3,12414,1,0)
 +480     ;;=^358.31IA^4^2
 +481     ;;^UTILITY(U,$J,358.3,12414,1,3,0)
 +482     ;;=3^Disp fx,neck of scapula, right shoulder,Subsq
 +483     ;;^UTILITY(U,$J,358.3,12414,1,4,0)
 +484     ;;=4^S42.151D
 +485     ;;^UTILITY(U,$J,358.3,12414,2)
 +486     ;;=^5026714
 +487     ;;^UTILITY(U,$J,358.3,12415,0)
 +488     ;;=S42.332D^^50^548^39
 +489     ;;^UTILITY(U,$J,358.3,12415,1,0)
 +490     ;;=^358.31IA^4^2
 +491     ;;^UTILITY(U,$J,358.3,12415,1,3,0)
 +492     ;;=3^Disp fx,oblique shaft,humerus, left arm,Subsq
 +493     ;;^UTILITY(U,$J,358.3,12415,1,4,0)
 +494     ;;=4^S42.332D
 +495     ;;^UTILITY(U,$J,358.3,12415,2)
 +496     ;;=^5027114
 +497     ;;^UTILITY(U,$J,358.3,12416,0)
 +498     ;;=S42.331D^^50^548^40
 +499     ;;^UTILITY(U,$J,358.3,12416,1,0)
 +500     ;;=^358.31IA^4^2
 +501     ;;^UTILITY(U,$J,358.3,12416,1,3,0)
 +502     ;;=3^Disp fx,oblique shaft,humerus, right arm,Subsq
 +503     ;;^UTILITY(U,$J,358.3,12416,1,4,0)
 +504     ;;=4^S42.331D
 +505     ;;^UTILITY(U,$J,358.3,12416,2)
 +506     ;;=^5027107
 +507     ;;^UTILITY(U,$J,358.3,12417,0)
 +508     ;;=S42.312D^^50^548^53
 +509     ;;^UTILITY(U,$J,358.3,12417,1,0)
 +510     ;;=^358.31IA^4^2
 +511     ;;^UTILITY(U,$J,358.3,12417,1,3,0)
 +512     ;;=3^Greenstick fx of shaft,humerus, left arm,Subsq
 +513     ;;^UTILITY(U,$J,358.3,12417,1,4,0)
 +514     ;;=4^S42.312D
 +515     ;;^UTILITY(U,$J,358.3,12417,2)
 +516     ;;=^5027052
 +517     ;;^UTILITY(U,$J,358.3,12418,0)
 +518     ;;=S42.311D^^50^548^54
 +519     ;;^UTILITY(U,$J,358.3,12418,1,0)
 +520     ;;=^358.31IA^4^2
 +521     ;;^UTILITY(U,$J,358.3,12418,1,3,0)
 +522     ;;=3^Greenstick fx of shaft,humerus, right arm,Subsq
 +523     ;;^UTILITY(U,$J,358.3,12418,1,4,0)
 +524     ;;=4^S42.311D
 +525     ;;^UTILITY(U,$J,358.3,12418,2)
 +526     ;;=^5027046
 +527     ;;^UTILITY(U,$J,358.3,12419,0)
 +528     ;;=S42.448D^^50^548^55
 +529     ;;^UTILITY(U,$J,358.3,12419,1,0)
 +530     ;;=^358.31IA^4^2
 +531     ;;^UTILITY(U,$J,358.3,12419,1,3,0)
 +532     ;;=3^Incarcerated fx,medial epicondyl of lt humerus,Subsq
 +533     ;;^UTILITY(U,$J,358.3,12419,1,4,0)
 +534     ;;=4^S42.448D
 +535     ;;^UTILITY(U,$J,358.3,12419,2)
 +536     ;;=^5027478
 +537     ;;^UTILITY(U,$J,358.3,12420,0)
 +538     ;;=S42.447D^^50^548^56
 +539     ;;^UTILITY(U,$J,358.3,12420,1,0)
 +540     ;;=^358.31IA^4^2
 +541     ;;^UTILITY(U,$J,358.3,12420,1,3,0)
 +542     ;;=3^Incarcerated fx,medial epicondyl of rt humerus,Subsq
 +543     ;;^UTILITY(U,$J,358.3,12420,1,4,0)
 +544     ;;=4^S42.447D
 +545     ;;^UTILITY(U,$J,358.3,12420,2)
 +546     ;;=^5027471
 +547     ;;^UTILITY(U,$J,358.3,12421,0)
 +548     ;;=S42.125D^^50^548^57
 +549     ;;^UTILITY(U,$J,358.3,12421,1,0)
 +550     ;;=^358.31IA^4^2
 +551     ;;^UTILITY(U,$J,358.3,12421,1,3,0)
 +552     ;;=3^Nondisp fx,acromial process, left shoulder,Subsq
 +553     ;;^UTILITY(U,$J,358.3,12421,1,4,0)
 +554     ;;=4^S42.125D
 +555     ;;^UTILITY(U,$J,358.3,12421,2)
 +556     ;;=^5026616
 +557     ;;^UTILITY(U,$J,358.3,12422,0)
 +558     ;;=S42.124D^^50^548^58
 +559     ;;^UTILITY(U,$J,358.3,12422,1,0)
 +560     ;;=^358.31IA^4^2
 +561     ;;^UTILITY(U,$J,358.3,12422,1,3,0)
 +562     ;;=3^Nondisp fx,acromial process, right shoulder,Subsq
 +563     ;;^UTILITY(U,$J,358.3,12422,1,4,0)
 +564     ;;=4^S42.124D
 +565     ;;^UTILITY(U,$J,358.3,12422,2)
 +566     ;;=^5026609
 +567     ;;^UTILITY(U,$J,358.3,12423,0)
 +568     ;;=S42.115D^^50^548^59
 +569     ;;^UTILITY(U,$J,358.3,12423,1,0)
 +570     ;;=^358.31IA^4^2
 +571     ;;^UTILITY(U,$J,358.3,12423,1,3,0)
 +572     ;;=3^Nondisp fx,body of scapula, left shoulder,Subsq
 +573     ;;^UTILITY(U,$J,358.3,12423,1,4,0)
 +574     ;;=4^S42.115D
 +575     ;;^UTILITY(U,$J,358.3,12423,2)
 +576     ;;=^5026574
 +577     ;;^UTILITY(U,$J,358.3,12424,0)
 +578     ;;=S42.114D^^50^548^60
 +579     ;;^UTILITY(U,$J,358.3,12424,1,0)
 +580     ;;=^358.31IA^4^2
 +581     ;;^UTILITY(U,$J,358.3,12424,1,3,0)
 +582     ;;=3^Nondisp fx,body of scapula, right shoulder,Subsq
 +583     ;;^UTILITY(U,$J,358.3,12424,1,4,0)
 +584     ;;=4^S42.114D
 +585     ;;^UTILITY(U,$J,358.3,12424,2)
 +586     ;;=^5026567
 +587     ;;^UTILITY(U,$J,358.3,12425,0)
 +588     ;;=S42.155D^^50^548^83
 +589     ;;^UTILITY(U,$J,358.3,12425,1,0)
 +590     ;;=^358.31IA^4^2
 +591     ;;^UTILITY(U,$J,358.3,12425,1,3,0)
 +592     ;;=3^Nondisp fx,neck of scapula, left shoulder,Subsq
 +593     ;;^UTILITY(U,$J,358.3,12425,1,4,0)
 +594     ;;=4^S42.155D
 +595     ;;^UTILITY(U,$J,358.3,12425,2)
 +596     ;;=^5026742
 +597     ;;^UTILITY(U,$J,358.3,12426,0)
 +598     ;;=S42.154D^^50^548^84
 +599     ;;^UTILITY(U,$J,358.3,12426,1,0)
 +600     ;;=^358.31IA^4^2
 +601     ;;^UTILITY(U,$J,358.3,12426,1,3,0)
 +602     ;;=3^Nondisp fx,neck of scapula, right shoulder,Subsq
 +603     ;;^UTILITY(U,$J,358.3,12426,1,4,0)
 +604     ;;=4^S42.154D
 +605     ;;^UTILITY(U,$J,358.3,12426,2)
 +606     ;;=^5026735
 +607     ;;^UTILITY(U,$J,358.3,12427,0)
 +608     ;;=S42.335D^^50^548^85
 +609     ;;^UTILITY(U,$J,358.3,12427,1,0)
 +610     ;;=^358.31IA^4^2
 +611     ;;^UTILITY(U,$J,358.3,12427,1,3,0)
 +612     ;;=3^Nondisp fx,oblique shaft,humerus, left arm,Subsq
 +613     ;;^UTILITY(U,$J,358.3,12427,1,4,0)
 +614     ;;=4^S42.335D
 +615     ;;^UTILITY(U,$J,358.3,12427,2)
 +616     ;;=^5027135
 +617     ;;^UTILITY(U,$J,358.3,12428,0)
 +618     ;;=S42.334D^^50^548^86
 +619     ;;^UTILITY(U,$J,358.3,12428,1,0)
 +620     ;;=^358.31IA^4^2
 +621     ;;^UTILITY(U,$J,358.3,12428,1,3,0)
 +622     ;;=3^Nondisp fx,oblique shaft,humerus, right arm,Subsq
 +623     ;;^UTILITY(U,$J,358.3,12428,1,4,0)
 +624     ;;=4^S42.334D
 +625     ;;^UTILITY(U,$J,358.3,12428,2)
 +626     ;;=^5027128
 +627     ;;^UTILITY(U,$J,358.3,12429,0)
 +628     ;;=M84.322D^^50^548^123
 +629     ;;^UTILITY(U,$J,358.3,12429,1,0)
 +630     ;;=^358.31IA^4^2
 +631     ;;^UTILITY(U,$J,358.3,12429,1,3,0)
 +632     ;;=3^Stress fx, left humerus,Subsq
 +633     ;;^UTILITY(U,$J,358.3,12429,1,4,0)
 +634     ;;=4^M84.322D
 +635     ;;^UTILITY(U,$J,358.3,12429,2)
 +636     ;;=^5013597
 +637     ;;^UTILITY(U,$J,358.3,12430,0)
 +638     ;;=M84.321D^^50^548^125
 +639     ;;^UTILITY(U,$J,358.3,12430,1,0)
 +640     ;;=^358.31IA^4^2
 +641     ;;^UTILITY(U,$J,358.3,12430,1,3,0)
 +642     ;;=3^Stress fx, right humerus,Subsq
 +643     ;;^UTILITY(U,$J,358.3,12430,1,4,0)
 +644     ;;=4^M84.321D
 +645     ;;^UTILITY(U,$J,358.3,12430,2)
 +646     ;;=^5013591
 +647     ;;^UTILITY(U,$J,358.3,12431,0)
 +648     ;;=M84.312D^^50^548^124