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

IBDEI055.m

Go to the documentation of this file.
IBDEI055 ; ; 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,12431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12431,1,3,0)
 ;;=3^Stress fx, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12431,1,4,0)
 ;;=4^M84.312D
 ;;^UTILITY(U,$J,358.3,12431,2)
 ;;=^5013579
 ;;^UTILITY(U,$J,358.3,12432,0)
 ;;=M84.311D^^50^548^126
 ;;^UTILITY(U,$J,358.3,12432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12432,1,3,0)
 ;;=3^Stress fx, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12432,1,4,0)
 ;;=4^M84.311D
 ;;^UTILITY(U,$J,358.3,12432,2)
 ;;=^5013573
 ;;^UTILITY(U,$J,358.3,12433,0)
 ;;=S42.482D^^50^548^127
 ;;^UTILITY(U,$J,358.3,12433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12433,1,3,0)
 ;;=3^Torus fx of lower end,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12433,1,4,0)
 ;;=4^S42.482D
 ;;^UTILITY(U,$J,358.3,12433,2)
 ;;=^5134728
 ;;^UTILITY(U,$J,358.3,12434,0)
 ;;=S42.481D^^50^548^128
 ;;^UTILITY(U,$J,358.3,12434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12434,1,3,0)
 ;;=3^Torus fx of lower end,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12434,1,4,0)
 ;;=4^S42.481D
 ;;^UTILITY(U,$J,358.3,12434,2)
 ;;=^5027617
 ;;^UTILITY(U,$J,358.3,12435,0)
 ;;=S42.272D^^50^548^129
 ;;^UTILITY(U,$J,358.3,12435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12435,1,3,0)
 ;;=3^Torus fx of upper end,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12435,1,4,0)
 ;;=4^S42.272D
 ;;^UTILITY(U,$J,358.3,12435,2)
 ;;=^5026978
 ;;^UTILITY(U,$J,358.3,12436,0)
 ;;=S42.271D^^50^548^130
 ;;^UTILITY(U,$J,358.3,12436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12436,1,3,0)
 ;;=3^Torus fx of upper end,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12436,1,4,0)
 ;;=4^S42.271D
 ;;^UTILITY(U,$J,358.3,12436,2)
 ;;=^5026972
 ;;^UTILITY(U,$J,358.3,12437,0)
 ;;=S42.015D^^50^548^105
 ;;^UTILITY(U,$J,358.3,12437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12437,1,3,0)
 ;;=3^Posterior disp fx,sternal end,left clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12437,1,4,0)
 ;;=4^S42.015D
 ;;^UTILITY(U,$J,358.3,12437,2)
 ;;=^5026413
 ;;^UTILITY(U,$J,358.3,12438,0)
 ;;=S42.014D^^50^548^106
 ;;^UTILITY(U,$J,358.3,12438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12438,1,3,0)
 ;;=3^Posterior disp fx,sternal end,right clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12438,1,4,0)
 ;;=4^S42.014D
 ;;^UTILITY(U,$J,358.3,12438,2)
 ;;=^5026406
 ;;^UTILITY(U,$J,358.3,12439,0)
 ;;=M84.422D^^50^548^101
 ;;^UTILITY(U,$J,358.3,12439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12439,1,3,0)
 ;;=3^Pathological fx, left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12439,1,4,0)
 ;;=4^M84.422D
 ;;^UTILITY(U,$J,358.3,12439,2)
 ;;=^5013825
 ;;^UTILITY(U,$J,358.3,12440,0)
 ;;=M84.421D^^50^548^103
 ;;^UTILITY(U,$J,358.3,12440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12440,1,3,0)
 ;;=3^Pathological fx, right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12440,1,4,0)
 ;;=4^M84.421D
 ;;^UTILITY(U,$J,358.3,12440,2)
 ;;=^5013819
 ;;^UTILITY(U,$J,358.3,12441,0)
 ;;=M84.412D^^50^548^102
 ;;^UTILITY(U,$J,358.3,12441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12441,1,3,0)
 ;;=3^Pathological fx, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12441,1,4,0)
 ;;=4^M84.412D
 ;;^UTILITY(U,$J,358.3,12441,2)
 ;;=^5013807
 ;;^UTILITY(U,$J,358.3,12442,0)
 ;;=M84.411D^^50^548^104
 ;;^UTILITY(U,$J,358.3,12442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12442,1,3,0)
 ;;=3^Pathological fx, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12442,1,4,0)
 ;;=4^M84.411D
 ;;^UTILITY(U,$J,358.3,12442,2)
 ;;=^5013801
 ;;^UTILITY(U,$J,358.3,12443,0)
 ;;=S42.222D^^50^548^1
 ;;^UTILITY(U,$J,358.3,12443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12443,1,3,0)
 ;;=3^2-part disp fx,surgical neck,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12443,1,4,0)
 ;;=4^S42.222D
 ;;^UTILITY(U,$J,358.3,12443,2)
 ;;=^5026812
 ;;^UTILITY(U,$J,358.3,12444,0)
 ;;=S42.221D^^50^548^2
 ;;^UTILITY(U,$J,358.3,12444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12444,1,3,0)
 ;;=3^2-part disp fx,surgical neck,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12444,1,4,0)
 ;;=4^S42.221D
 ;;^UTILITY(U,$J,358.3,12444,2)
 ;;=^5026805
 ;;^UTILITY(U,$J,358.3,12445,0)
 ;;=S42.225D^^50^548^3
 ;;^UTILITY(U,$J,358.3,12445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12445,1,3,0)
 ;;=3^2-part nondisp fx,surgical neck,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12445,1,4,0)
 ;;=4^S42.225D
 ;;^UTILITY(U,$J,358.3,12445,2)
 ;;=^5026833
 ;;^UTILITY(U,$J,358.3,12446,0)
 ;;=S42.224D^^50^548^4
 ;;^UTILITY(U,$J,358.3,12446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12446,1,3,0)
 ;;=3^2-part nondisp fx,surgical neck,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12446,1,4,0)
 ;;=4^S42.224D
 ;;^UTILITY(U,$J,358.3,12446,2)
 ;;=^5026826
 ;;^UTILITY(U,$J,358.3,12447,0)
 ;;=S42.232D^^50^548^5
 ;;^UTILITY(U,$J,358.3,12447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12447,1,3,0)
 ;;=3^3-part fx,surgical neck,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12447,1,4,0)
 ;;=4^S42.232D
 ;;^UTILITY(U,$J,358.3,12447,2)
 ;;=^5026854
 ;;^UTILITY(U,$J,358.3,12448,0)
 ;;=S42.231D^^50^548^6
 ;;^UTILITY(U,$J,358.3,12448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12448,1,3,0)
 ;;=3^3-part fx,surgical neck,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12448,1,4,0)
 ;;=4^S42.231D
 ;;^UTILITY(U,$J,358.3,12448,2)
 ;;=^5026847
 ;;^UTILITY(U,$J,358.3,12449,0)
 ;;=S42.242D^^50^548^7
 ;;^UTILITY(U,$J,358.3,12449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12449,1,3,0)
 ;;=3^4-part fx,surgical neck,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12449,1,4,0)
 ;;=4^S42.242D
 ;;^UTILITY(U,$J,358.3,12449,2)
 ;;=^5026875
 ;;^UTILITY(U,$J,358.3,12450,0)
 ;;=S42.241D^^50^548^8
 ;;^UTILITY(U,$J,358.3,12450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12450,1,3,0)
 ;;=3^4-part fx,surgical neck,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12450,1,4,0)
 ;;=4^S42.241D
 ;;^UTILITY(U,$J,358.3,12450,2)
 ;;=^5026868
 ;;^UTILITY(U,$J,358.3,12451,0)
 ;;=S42.122D^^50^548^9
 ;;^UTILITY(U,$J,358.3,12451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12451,1,3,0)
 ;;=3^Disp fx,acromial process, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12451,1,4,0)
 ;;=4^S42.122D
 ;;^UTILITY(U,$J,358.3,12451,2)
 ;;=^5026595
 ;;^UTILITY(U,$J,358.3,12452,0)
 ;;=S42.121D^^50^548^10
 ;;^UTILITY(U,$J,358.3,12452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12452,1,3,0)
 ;;=3^Disp fx,acromial process, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12452,1,4,0)
 ;;=4^S42.121D
 ;;^UTILITY(U,$J,358.3,12452,2)
 ;;=^5026588
 ;;^UTILITY(U,$J,358.3,12453,0)
 ;;=S42.012D^^50^548^11
 ;;^UTILITY(U,$J,358.3,12453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12453,1,3,0)
 ;;=3^Disp fx,anterior sternal end,left clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12453,1,4,0)
 ;;=4^S42.012D
 ;;^UTILITY(U,$J,358.3,12453,2)
 ;;=^5026392
 ;;^UTILITY(U,$J,358.3,12454,0)
 ;;=S42.011D^^50^548^12
 ;;^UTILITY(U,$J,358.3,12454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12454,1,3,0)
 ;;=3^Disp fx,anterior sternal end,right clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12454,1,4,0)
 ;;=4^S42.011D
 ;;^UTILITY(U,$J,358.3,12454,2)
 ;;=^5026385
 ;;^UTILITY(U,$J,358.3,12455,0)
 ;;=S42.352D^^50^548^15
 ;;^UTILITY(U,$J,358.3,12455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12455,1,3,0)
 ;;=3^Disp fx,comminuted shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12455,1,4,0)
 ;;=4^S42.352D
 ;;^UTILITY(U,$J,358.3,12455,2)
 ;;=^5027198
 ;;^UTILITY(U,$J,358.3,12456,0)
 ;;=S42.351D^^50^548^16
 ;;^UTILITY(U,$J,358.3,12456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12456,1,3,0)
 ;;=3^Disp fx,comminuted shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12456,1,4,0)
 ;;=4^S42.351D
 ;;^UTILITY(U,$J,358.3,12456,2)
 ;;=^5027191
 ;;^UTILITY(U,$J,358.3,12457,0)
 ;;=S42.422D^^50^548^17
 ;;^UTILITY(U,$J,358.3,12457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12457,1,3,0)
 ;;=3^Disp fx,commnt suprcndl w/o intrcndl fx lt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12457,1,4,0)
 ;;=4^S42.422D
 ;;^UTILITY(U,$J,358.3,12457,2)
 ;;=^5027352
 ;;^UTILITY(U,$J,358.3,12458,0)
 ;;=S42.421D^^50^548^18
 ;;^UTILITY(U,$J,358.3,12458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12458,1,3,0)
 ;;=3^Disp fx,commnt suprcndl w/o intrcndl fx rt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12458,1,4,0)
 ;;=4^S42.421D
 ;;^UTILITY(U,$J,358.3,12458,2)
 ;;=^5027345
 ;;^UTILITY(U,$J,358.3,12459,0)
 ;;=S42.132D^^50^548^19
 ;;^UTILITY(U,$J,358.3,12459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12459,1,3,0)
 ;;=3^Disp fx,coracoid process, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12459,1,4,0)
 ;;=4^S42.132D
 ;;^UTILITY(U,$J,358.3,12459,2)
 ;;=^5026637
 ;;^UTILITY(U,$J,358.3,12460,0)
 ;;=S42.131D^^50^548^20
 ;;^UTILITY(U,$J,358.3,12460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12460,1,3,0)
 ;;=3^Disp fx,coracoid process, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12460,1,4,0)
 ;;=4^S42.131D
 ;;^UTILITY(U,$J,358.3,12460,2)
 ;;=^5026630
 ;;^UTILITY(U,$J,358.3,12461,0)
 ;;=S42.142D^^50^548^21
 ;;^UTILITY(U,$J,358.3,12461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12461,1,3,0)
 ;;=3^Disp fx,glenoid cavity of scapula, left shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12461,1,4,0)
 ;;=4^S42.142D
 ;;^UTILITY(U,$J,358.3,12461,2)
 ;;=^5026679
 ;;^UTILITY(U,$J,358.3,12462,0)
 ;;=S42.141D^^50^548^22
 ;;^UTILITY(U,$J,358.3,12462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12462,1,3,0)
 ;;=3^Disp fx,glenoid cavity of scapula, right shoulder,Subsq
 ;;^UTILITY(U,$J,358.3,12462,1,4,0)
 ;;=4^S42.141D
 ;;^UTILITY(U,$J,358.3,12462,2)
 ;;=^5026672
 ;;^UTILITY(U,$J,358.3,12463,0)
 ;;=S42.452D^^50^548^25
 ;;^UTILITY(U,$J,358.3,12463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12463,1,3,0)
 ;;=3^Disp fx,lateral condyle,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12463,1,4,0)
 ;;=4^S42.452D
 ;;^UTILITY(U,$J,358.3,12463,2)
 ;;=^5027499
 ;;^UTILITY(U,$J,358.3,12464,0)
 ;;=S42.451D^^50^548^26
 ;;^UTILITY(U,$J,358.3,12464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12464,1,3,0)
 ;;=3^Disp fx,lateral condyle,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12464,1,4,0)
 ;;=4^S42.451D
 ;;^UTILITY(U,$J,358.3,12464,2)
 ;;=^5027492
 ;;^UTILITY(U,$J,358.3,12465,0)
 ;;=S42.032D^^50^548^27
 ;;^UTILITY(U,$J,358.3,12465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12465,1,3,0)
 ;;=3^Disp fx,lateral end,left clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12465,1,4,0)
 ;;=4^S42.032D
 ;;^UTILITY(U,$J,358.3,12465,2)
 ;;=^5026497
 ;;^UTILITY(U,$J,358.3,12466,0)
 ;;=S42.031D^^50^548^28
 ;;^UTILITY(U,$J,358.3,12466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12466,1,3,0)
 ;;=3^Disp fx,lateral end,right clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12466,1,4,0)
 ;;=4^S42.031D
 ;;^UTILITY(U,$J,358.3,12466,2)
 ;;=^5026490
 ;;^UTILITY(U,$J,358.3,12467,0)
 ;;=S42.432D^^50^548^29
 ;;^UTILITY(U,$J,358.3,12467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12467,1,3,0)
 ;;=3^Disp fx,lateral epicondyle,lt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12467,1,4,0)
 ;;=4^S42.432D
 ;;^UTILITY(U,$J,358.3,12467,2)
 ;;=^5027394
 ;;^UTILITY(U,$J,358.3,12468,0)
 ;;=S42.431D^^50^548^30
 ;;^UTILITY(U,$J,358.3,12468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12468,1,3,0)
 ;;=3^Disp fx,lateral epicondyle,rt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12468,1,4,0)
 ;;=4^S42.431D
 ;;^UTILITY(U,$J,358.3,12468,2)
 ;;=^5027387
 ;;^UTILITY(U,$J,358.3,12469,0)
 ;;=S42.462D^^50^548^33
 ;;^UTILITY(U,$J,358.3,12469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12469,1,3,0)
 ;;=3^Disp fx,medial condyle,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12469,1,4,0)
 ;;=4^S42.462D
 ;;^UTILITY(U,$J,358.3,12469,2)
 ;;=^5027541
 ;;^UTILITY(U,$J,358.3,12470,0)
 ;;=S42.461D^^50^548^34
 ;;^UTILITY(U,$J,358.3,12470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12470,1,3,0)
 ;;=3^Disp fx,medial condyle,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12470,1,4,0)
 ;;=4^S42.461D
 ;;^UTILITY(U,$J,358.3,12470,2)
 ;;=^5027534
 ;;^UTILITY(U,$J,358.3,12471,0)
 ;;=S42.442D^^50^548^35
 ;;^UTILITY(U,$J,358.3,12471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12471,1,3,0)
 ;;=3^Disp fx,medial epicondyle,lt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12471,1,4,0)
 ;;=4^S42.442D
 ;;^UTILITY(U,$J,358.3,12471,2)
 ;;=^5027436
 ;;^UTILITY(U,$J,358.3,12472,0)
 ;;=S42.441D^^50^548^36
 ;;^UTILITY(U,$J,358.3,12472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12472,1,3,0)
 ;;=3^Disp fx,medial epicondyle,rt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12472,1,4,0)
 ;;=4^S42.441D
 ;;^UTILITY(U,$J,358.3,12472,2)
 ;;=^5027429
 ;;^UTILITY(U,$J,358.3,12473,0)
 ;;=S42.362D^^50^548^41
 ;;^UTILITY(U,$J,358.3,12473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12473,1,3,0)
 ;;=3^Disp fx,segmental shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12473,1,4,0)
 ;;=4^S42.362D
 ;;^UTILITY(U,$J,358.3,12473,2)
 ;;=^5027240
 ;;^UTILITY(U,$J,358.3,12474,0)
 ;;=S42.361D^^50^548^42
 ;;^UTILITY(U,$J,358.3,12474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12474,1,3,0)
 ;;=3^Disp fx,segmental shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12474,1,4,0)
 ;;=4^S42.361D
 ;;^UTILITY(U,$J,358.3,12474,2)
 ;;=^5027233
 ;;^UTILITY(U,$J,358.3,12475,0)
 ;;=S42.022D^^50^548^43
 ;;^UTILITY(U,$J,358.3,12475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12475,1,3,0)
 ;;=3^Disp fx,shaft,left clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12475,1,4,0)
 ;;=4^S42.022D
 ;;^UTILITY(U,$J,358.3,12475,2)
 ;;=^5026455
 ;;^UTILITY(U,$J,358.3,12476,0)
 ;;=S42.021D^^50^548^44
 ;;^UTILITY(U,$J,358.3,12476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12476,1,3,0)
 ;;=3^Disp fx,shaft,right clavicle,Subsq
 ;;^UTILITY(U,$J,358.3,12476,1,4,0)
 ;;=4^S42.021D
 ;;^UTILITY(U,$J,358.3,12476,2)
 ;;=^5026448
 ;;^UTILITY(U,$J,358.3,12477,0)
 ;;=S42.412D^^50^548^45
 ;;^UTILITY(U,$J,358.3,12477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12477,1,3,0)
 ;;=3^Disp fx,simple suprcndl w/o intrcndl fx lt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12477,1,4,0)
 ;;=4^S42.412D
 ;;^UTILITY(U,$J,358.3,12477,2)
 ;;=^5027310
 ;;^UTILITY(U,$J,358.3,12478,0)
 ;;=S42.411D^^50^548^46
 ;;^UTILITY(U,$J,358.3,12478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12478,1,3,0)
 ;;=3^Disp fx,simple suprcndl w/o intrcndl fx rt humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12478,1,4,0)
 ;;=4^S42.411D
 ;;^UTILITY(U,$J,358.3,12478,2)
 ;;=^5027303
 ;;^UTILITY(U,$J,358.3,12479,0)
 ;;=S42.342D^^50^548^47
 ;;^UTILITY(U,$J,358.3,12479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12479,1,3,0)
 ;;=3^Disp fx,spiral shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12479,1,4,0)
 ;;=4^S42.342D
 ;;^UTILITY(U,$J,358.3,12479,2)
 ;;=^5027156
 ;;^UTILITY(U,$J,358.3,12480,0)
 ;;=S42.341D^^50^548^48
 ;;^UTILITY(U,$J,358.3,12480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12480,1,3,0)
 ;;=3^Disp fx,spiral shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12480,1,4,0)
 ;;=4^S42.341D
 ;;^UTILITY(U,$J,358.3,12480,2)
 ;;=^5027149
 ;;^UTILITY(U,$J,358.3,12481,0)
 ;;=S42.472D^^50^548^49
 ;;^UTILITY(U,$J,358.3,12481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12481,1,3,0)
 ;;=3^Disp fx,transcondylar,left humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12481,1,4,0)
 ;;=4^S42.472D
 ;;^UTILITY(U,$J,358.3,12481,2)
 ;;=^5027583
 ;;^UTILITY(U,$J,358.3,12482,0)
 ;;=S42.471D^^50^548^50
 ;;^UTILITY(U,$J,358.3,12482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12482,1,3,0)
 ;;=3^Disp fx,transcondylar,right humerus,Subsq
 ;;^UTILITY(U,$J,358.3,12482,1,4,0)
 ;;=4^S42.471D
 ;;^UTILITY(U,$J,358.3,12482,2)
 ;;=^5027576
 ;;^UTILITY(U,$J,358.3,12483,0)
 ;;=S42.322D^^50^548^51
 ;;^UTILITY(U,$J,358.3,12483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12483,1,3,0)
 ;;=3^Disp fx,transverse shaft,humerus, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12483,1,4,0)
 ;;=4^S42.322D
 ;;^UTILITY(U,$J,358.3,12483,2)
 ;;=^5027072
 ;;^UTILITY(U,$J,358.3,12484,0)
 ;;=S42.321D^^50^548^52
 ;;^UTILITY(U,$J,358.3,12484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12484,1,3,0)
 ;;=3^Disp fx,transverse shaft,humerus, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12484,1,4,0)
 ;;=4^S42.321D
 ;;^UTILITY(U,$J,358.3,12484,2)
 ;;=^5027065
 ;;^UTILITY(U,$J,358.3,12485,0)
 ;;=S49.112D^^50^548^107
 ;;^UTILITY(U,$J,358.3,12485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12485,1,3,0)
 ;;=3^Sltr-haris Type I physl fx lower end humer, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12485,1,4,0)
 ;;=4^S49.112D
 ;;^UTILITY(U,$J,358.3,12485,2)
 ;;=^5134976
 ;;^UTILITY(U,$J,358.3,12486,0)
 ;;=S49.111D^^50^548^108
 ;;^UTILITY(U,$J,358.3,12486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12486,1,3,0)
 ;;=3^Sltr-haris Type I physl fx lower end humer, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12486,1,4,0)
 ;;=4^S49.111D
 ;;^UTILITY(U,$J,358.3,12486,2)
 ;;=^5028438
 ;;^UTILITY(U,$J,358.3,12487,0)
 ;;=S49.012D^^50^548^109
 ;;^UTILITY(U,$J,358.3,12487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12487,1,3,0)
 ;;=3^Sltr-haris Type I physl fx upper end humer, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12487,1,4,0)
 ;;=4^S49.012D
 ;;^UTILITY(U,$J,358.3,12487,2)
 ;;=^5028360
 ;;^UTILITY(U,$J,358.3,12488,0)
 ;;=S49.011D^^50^548^110
 ;;^UTILITY(U,$J,358.3,12488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12488,1,3,0)
 ;;=3^Sltr-haris Type I physl fx upper end humer, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12488,1,4,0)
 ;;=4^S49.011D
 ;;^UTILITY(U,$J,358.3,12488,2)
 ;;=^5028354
 ;;^UTILITY(U,$J,358.3,12489,0)
 ;;=S49.122D^^50^548^111
 ;;^UTILITY(U,$J,358.3,12489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12489,1,3,0)
 ;;=3^Sltr-haris Type II physl fx lower end humer, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12489,1,4,0)
 ;;=4^S49.122D
 ;;^UTILITY(U,$J,358.3,12489,2)
 ;;=^5134982
 ;;^UTILITY(U,$J,358.3,12490,0)
 ;;=S49.121D^^50^548^112
 ;;^UTILITY(U,$J,358.3,12490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12490,1,3,0)
 ;;=3^Sltr-haris Type II physl fx lower end humer, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12490,1,4,0)
 ;;=4^S49.121D
 ;;^UTILITY(U,$J,358.3,12490,2)
 ;;=^5028450
 ;;^UTILITY(U,$J,358.3,12491,0)
 ;;=S49.022D^^50^548^113
 ;;^UTILITY(U,$J,358.3,12491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12491,1,3,0)
 ;;=3^Sltr-haris Type II physl fx upper end humer, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12491,1,4,0)
 ;;=4^S49.022D
 ;;^UTILITY(U,$J,358.3,12491,2)
 ;;=^5028378
 ;;^UTILITY(U,$J,358.3,12492,0)
 ;;=S49.021D^^50^548^114
 ;;^UTILITY(U,$J,358.3,12492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12492,1,3,0)
 ;;=3^Sltr-haris Type II physl fx upper end humer, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12492,1,4,0)
 ;;=4^S49.021D
 ;;^UTILITY(U,$J,358.3,12492,2)
 ;;=^5028372
 ;;^UTILITY(U,$J,358.3,12493,0)
 ;;=S49.132D^^50^548^115
 ;;^UTILITY(U,$J,358.3,12493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12493,1,3,0)
 ;;=3^Sltr-haris Type III physl fx lower end humer, left arm,Subsq
 ;;^UTILITY(U,$J,358.3,12493,1,4,0)
 ;;=4^S49.132D
 ;;^UTILITY(U,$J,358.3,12493,2)
 ;;=^5134988
 ;;^UTILITY(U,$J,358.3,12494,0)
 ;;=S49.131D^^50^548^116
 ;;^UTILITY(U,$J,358.3,12494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12494,1,3,0)
 ;;=3^Sltr-haris Type III physl fx lower end humer, right arm,Subsq
 ;;^UTILITY(U,$J,358.3,12494,1,4,0)
 ;;=4^S49.131D
 ;;^UTILITY(U,$J,358.3,12494,2)
 ;;=^5028456
 ;;^UTILITY(U,$J,358.3,12495,0)
 ;;=S49.032D^^50^548^117
 ;;^UTILITY(U,$J,358.3,12495,1,0)
 ;;=^358.31IA^4^2