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

IBDEI054.m

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