IBDEI05A ; ; 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,12754,1,4,0)
;;=4^S62.032D
;;^UTILITY(U,$J,358.3,12754,2)
;;=^5033166
;;^UTILITY(U,$J,358.3,12755,0)
;;=S62.031D^^50^551^23
;;^UTILITY(U,$J,358.3,12755,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12755,1,3,0)
;;=3^Disp Fx, proximal 3rd, navic bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12755,1,4,0)
;;=4^S62.031D
;;^UTILITY(U,$J,358.3,12755,2)
;;=^5033159
;;^UTILITY(U,$J,358.3,12756,0)
;;=S52.511D^^50^551^24
;;^UTILITY(U,$J,358.3,12756,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12756,1,3,0)
;;=3^Disp Fx, radial styloid process,Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12756,1,4,0)
;;=4^S52.511D
;;^UTILITY(U,$J,358.3,12756,2)
;;=^5030622
;;^UTILITY(U,$J,358.3,12757,0)
;;=S52.611D^^50^551^43
;;^UTILITY(U,$J,358.3,12757,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12757,1,3,0)
;;=3^Disp Fx, ulna styloid process,Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12757,1,4,0)
;;=4^S52.611D
;;^UTILITY(U,$J,358.3,12757,2)
;;=^5031038
;;^UTILITY(U,$J,358.3,12758,0)
;;=S52.362D^^50^551^25
;;^UTILITY(U,$J,358.3,12758,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12758,1,3,0)
;;=3^Disp Fx, segmental shaft, radius, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12758,1,4,0)
;;=4^S52.362D
;;^UTILITY(U,$J,358.3,12758,2)
;;=^5030370
;;^UTILITY(U,$J,358.3,12759,0)
;;=S52.361D^^50^551^26
;;^UTILITY(U,$J,358.3,12759,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12759,1,3,0)
;;=3^Disp Fx, segmental shaft, radius, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12759,1,4,0)
;;=4^S52.361D
;;^UTILITY(U,$J,358.3,12759,2)
;;=^5030354
;;^UTILITY(U,$J,358.3,12760,0)
;;=S52.262D^^50^551^27
;;^UTILITY(U,$J,358.3,12760,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12760,1,3,0)
;;=3^Disp Fx, segmental shaft, ulna, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12760,1,4,0)
;;=4^S52.262D
;;^UTILITY(U,$J,358.3,12760,2)
;;=^5029718
;;^UTILITY(U,$J,358.3,12761,0)
;;=S52.261D^^50^551^28
;;^UTILITY(U,$J,358.3,12761,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12761,1,3,0)
;;=3^Disp Fx, segmental shaft, ulna, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12761,1,4,0)
;;=4^S52.261D
;;^UTILITY(U,$J,358.3,12761,2)
;;=^5029702
;;^UTILITY(U,$J,358.3,12762,0)
;;=S52.342D^^50^551^29
;;^UTILITY(U,$J,358.3,12762,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12762,1,3,0)
;;=3^Disp Fx, spiral shaft, radius, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12762,1,4,0)
;;=4^S52.342D
;;^UTILITY(U,$J,358.3,12762,2)
;;=^5030178
;;^UTILITY(U,$J,358.3,12763,0)
;;=S52.341D^^50^551^30
;;^UTILITY(U,$J,358.3,12763,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12763,1,3,0)
;;=3^Disp Fx, spiral shaft, radius, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12763,1,4,0)
;;=4^S52.341D
;;^UTILITY(U,$J,358.3,12763,2)
;;=^5030162
;;^UTILITY(U,$J,358.3,12764,0)
;;=S52.242D^^50^551^31
;;^UTILITY(U,$J,358.3,12764,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12764,1,3,0)
;;=3^Disp Fx, spiral shaft, ulna, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12764,1,4,0)
;;=4^S52.242D
;;^UTILITY(U,$J,358.3,12764,2)
;;=^5029526
;;^UTILITY(U,$J,358.3,12765,0)
;;=S52.241D^^50^551^32
;;^UTILITY(U,$J,358.3,12765,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12765,1,3,0)
;;=3^Disp Fx, spiral shaft, ulna, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12765,1,4,0)
;;=4^S52.241D
;;^UTILITY(U,$J,358.3,12765,2)
;;=^5029510
;;^UTILITY(U,$J,358.3,12766,0)
;;=S52.322D^^50^551^33
;;^UTILITY(U,$J,358.3,12766,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12766,1,3,0)
;;=3^Disp Fx, transverse shaft, Lt radius, Subsq
;;^UTILITY(U,$J,358.3,12766,1,4,0)
;;=4^S52.322D
;;^UTILITY(U,$J,358.3,12766,2)
;;=^5029986
;;^UTILITY(U,$J,358.3,12767,0)
;;=S52.222D^^50^551^34
;;^UTILITY(U,$J,358.3,12767,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12767,1,3,0)
;;=3^Disp Fx, transverse shaft, Lt ulna, Subsq
;;^UTILITY(U,$J,358.3,12767,1,4,0)
;;=4^S52.222D
;;^UTILITY(U,$J,358.3,12767,2)
;;=^5029334
;;^UTILITY(U,$J,358.3,12768,0)
;;=S52.321D^^50^551^35
;;^UTILITY(U,$J,358.3,12768,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12768,1,3,0)
;;=3^Disp Fx, transverse shaft, Rt radius, Subsq
;;^UTILITY(U,$J,358.3,12768,1,4,0)
;;=4^S52.321D
;;^UTILITY(U,$J,358.3,12768,2)
;;=^5029970
;;^UTILITY(U,$J,358.3,12769,0)
;;=S52.221D^^50^551^36
;;^UTILITY(U,$J,358.3,12769,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12769,1,3,0)
;;=3^Disp Fx, transverse shaft, Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12769,1,4,0)
;;=4^S52.221D
;;^UTILITY(U,$J,358.3,12769,2)
;;=^5029318
;;^UTILITY(U,$J,358.3,12770,0)
;;=S62.172D^^50^551^37
;;^UTILITY(U,$J,358.3,12770,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12770,1,3,0)
;;=3^Disp Fx, trapezium, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12770,1,4,0)
;;=4^S62.172D
;;^UTILITY(U,$J,358.3,12770,2)
;;=^5033474
;;^UTILITY(U,$J,358.3,12771,0)
;;=S62.171D^^50^551^38
;;^UTILITY(U,$J,358.3,12771,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12771,1,3,0)
;;=3^Disp Fx, trapezium, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12771,1,4,0)
;;=4^S62.171D
;;^UTILITY(U,$J,358.3,12771,2)
;;=^5033467
;;^UTILITY(U,$J,358.3,12772,0)
;;=S62.182D^^50^551^39
;;^UTILITY(U,$J,358.3,12772,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12772,1,3,0)
;;=3^Disp Fx, trapezoid, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12772,1,4,0)
;;=4^S62.182D
;;^UTILITY(U,$J,358.3,12772,2)
;;=^5033516
;;^UTILITY(U,$J,358.3,12773,0)
;;=S62.181D^^50^551^40
;;^UTILITY(U,$J,358.3,12773,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12773,1,3,0)
;;=3^Disp Fx, trapezoid, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12773,1,4,0)
;;=4^S62.181D
;;^UTILITY(U,$J,358.3,12773,2)
;;=^5033509
;;^UTILITY(U,$J,358.3,12774,0)
;;=S62.112D^^50^551^41
;;^UTILITY(U,$J,358.3,12774,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12774,1,3,0)
;;=3^Disp Fx, triquetrum bone, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12774,1,4,0)
;;=4^S62.112D
;;^UTILITY(U,$J,358.3,12774,2)
;;=^5033222
;;^UTILITY(U,$J,358.3,12775,0)
;;=S62.111D^^50^551^42
;;^UTILITY(U,$J,358.3,12775,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12775,1,3,0)
;;=3^Disp Fx, triquetrum bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12775,1,4,0)
;;=4^S62.111D
;;^UTILITY(U,$J,358.3,12775,2)
;;=^5033215
;;^UTILITY(U,$J,358.3,12776,0)
;;=S52.372D^^50^551^44
;;^UTILITY(U,$J,358.3,12776,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12776,1,3,0)
;;=3^Galeazzi's Fx, Lt radius, Subsq
;;^UTILITY(U,$J,358.3,12776,1,4,0)
;;=4^S52.372D
;;^UTILITY(U,$J,358.3,12776,2)
;;=^5030466
;;^UTILITY(U,$J,358.3,12777,0)
;;=S52.371D^^50^551^45
;;^UTILITY(U,$J,358.3,12777,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12777,1,3,0)
;;=3^Galeazzi's Fx, Rt radius, Subsq
;;^UTILITY(U,$J,358.3,12777,1,4,0)
;;=4^S52.371D
;;^UTILITY(U,$J,358.3,12777,2)
;;=^5030450
;;^UTILITY(U,$J,358.3,12778,0)
;;=S52.312D^^50^551^46
;;^UTILITY(U,$J,358.3,12778,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12778,1,3,0)
;;=3^Greenstick Fx, shaft, Lt radius, Subsq
;;^UTILITY(U,$J,358.3,12778,1,4,0)
;;=4^S52.312D
;;^UTILITY(U,$J,358.3,12778,2)
;;=^5029956
;;^UTILITY(U,$J,358.3,12779,0)
;;=S52.311D^^50^551^48
;;^UTILITY(U,$J,358.3,12779,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12779,1,3,0)
;;=3^Greenstick Fx, shaft, Rt radius, Subsq
;;^UTILITY(U,$J,358.3,12779,1,4,0)
;;=4^S52.311D
;;^UTILITY(U,$J,358.3,12779,2)
;;=^5029950
;;^UTILITY(U,$J,358.3,12780,0)
;;=S52.212D^^50^551^47
;;^UTILITY(U,$J,358.3,12780,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12780,1,3,0)
;;=3^Greenstick Fx, shaft, Lt ulna, Subsq
;;^UTILITY(U,$J,358.3,12780,1,4,0)
;;=4^S52.212D
;;^UTILITY(U,$J,358.3,12780,2)
;;=^5029304
;;^UTILITY(U,$J,358.3,12781,0)
;;=S52.211D^^50^551^49
;;^UTILITY(U,$J,358.3,12781,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12781,1,3,0)
;;=3^Greenstick Fx, shaft, Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12781,1,4,0)
;;=4^S52.211D
;;^UTILITY(U,$J,358.3,12781,2)
;;=^5029298
;;^UTILITY(U,$J,358.3,12782,0)
;;=S52.272D^^50^551^50
;;^UTILITY(U,$J,358.3,12782,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12782,1,3,0)
;;=3^Monteggia's Fx, Lt ulna, Subsq
;;^UTILITY(U,$J,358.3,12782,1,4,0)
;;=4^S52.272D
;;^UTILITY(U,$J,358.3,12782,2)
;;=^5029814
;;^UTILITY(U,$J,358.3,12783,0)
;;=S52.271D^^50^551^51
;;^UTILITY(U,$J,358.3,12783,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12783,1,3,0)
;;=3^Monteggia's Fx, Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12783,1,4,0)
;;=4^S52.271D
;;^UTILITY(U,$J,358.3,12783,2)
;;=^5029798
;;^UTILITY(U,$J,358.3,12784,0)
;;=S62.145D^^50^551^52
;;^UTILITY(U,$J,358.3,12784,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12784,1,3,0)
;;=3^Nondisp Fx, body, hamate bone, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12784,1,4,0)
;;=4^S62.145D
;;^UTILITY(U,$J,358.3,12784,2)
;;=^5033369
;;^UTILITY(U,$J,358.3,12785,0)
;;=S62.144D^^50^551^53
;;^UTILITY(U,$J,358.3,12785,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12785,1,3,0)
;;=3^Nondisp Fx, body, hamate bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12785,1,4,0)
;;=4^S62.144D
;;^UTILITY(U,$J,358.3,12785,2)
;;=^5033362
;;^UTILITY(U,$J,358.3,12786,0)
;;=S62.135D^^50^551^54
;;^UTILITY(U,$J,358.3,12786,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12786,1,3,0)
;;=3^Nondisp Fx, capitate bone, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12786,1,4,0)
;;=4^S62.135D
;;^UTILITY(U,$J,358.3,12786,2)
;;=^5033327
;;^UTILITY(U,$J,358.3,12787,0)
;;=S62.134D^^50^551^55
;;^UTILITY(U,$J,358.3,12787,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12787,1,3,0)
;;=3^Nondisp Fx, capitate bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12787,1,4,0)
;;=4^S62.134D
;;^UTILITY(U,$J,358.3,12787,2)
;;=^5033320
;;^UTILITY(U,$J,358.3,12788,0)
;;=S52.355D^^50^551^56
;;^UTILITY(U,$J,358.3,12788,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12788,1,3,0)
;;=3^Nondisp Fx, comminuted shaft, radius, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12788,1,4,0)
;;=4^S52.355D
;;^UTILITY(U,$J,358.3,12788,2)
;;=^5030322
;;^UTILITY(U,$J,358.3,12789,0)
;;=S52.354D^^50^551^57
;;^UTILITY(U,$J,358.3,12789,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12789,1,3,0)
;;=3^Nondisp Fx, comminuted shaft, radius, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12789,1,4,0)
;;=4^S52.354D
;;^UTILITY(U,$J,358.3,12789,2)
;;=^5030306
;;^UTILITY(U,$J,358.3,12790,0)
;;=S52.255D^^50^551^58
;;^UTILITY(U,$J,358.3,12790,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12790,1,3,0)
;;=3^Nondisp Fx, comminuted shaft, ulna, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12790,1,4,0)
;;=4^S52.255D
;;^UTILITY(U,$J,358.3,12790,2)
;;=^5029670
;;^UTILITY(U,$J,358.3,12791,0)
;;=S52.254D^^50^551^59
;;^UTILITY(U,$J,358.3,12791,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12791,1,3,0)
;;=3^Nondisp Fx, comminuted shaft, ulna, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12791,1,4,0)
;;=4^S52.254D
;;^UTILITY(U,$J,358.3,12791,2)
;;=^5029654
;;^UTILITY(U,$J,358.3,12792,0)
;;=S52.045D^^50^551^60
;;^UTILITY(U,$J,358.3,12792,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12792,1,3,0)
;;=3^Nondisp Fx, coronoid process, Lt ulna, Subsq
;;^UTILITY(U,$J,358.3,12792,1,4,0)
;;=4^S52.045D
;;^UTILITY(U,$J,358.3,12792,2)
;;=^5028942
;;^UTILITY(U,$J,358.3,12793,0)
;;=S52.044D^^50^551^61
;;^UTILITY(U,$J,358.3,12793,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12793,1,3,0)
;;=3^Nondisp Fx, coronoid process, Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12793,1,4,0)
;;=4^S52.044D
;;^UTILITY(U,$J,358.3,12793,2)
;;=^5028926
;;^UTILITY(U,$J,358.3,12794,0)
;;=S62.015D^^50^551^62
;;^UTILITY(U,$J,358.3,12794,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12794,1,3,0)
;;=3^Nondisp Fx, distal pole, navic bone, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12794,1,4,0)
;;=4^S62.015D
;;^UTILITY(U,$J,358.3,12794,2)
;;=^5033103
;;^UTILITY(U,$J,358.3,12795,0)
;;=S62.014D^^50^551^63
;;^UTILITY(U,$J,358.3,12795,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12795,1,3,0)
;;=3^Nondisp Fx, distal pole, navic bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12795,1,4,0)
;;=4^S62.014D
;;^UTILITY(U,$J,358.3,12795,2)
;;=^5033096
;;^UTILITY(U,$J,358.3,12796,0)
;;=S52.125D^^50^551^64
;;^UTILITY(U,$J,358.3,12796,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12796,1,3,0)
;;=3^Nondisp Fx, head, radius, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12796,1,4,0)
;;=4^S52.125D
;;^UTILITY(U,$J,358.3,12796,2)
;;=^5029114
;;^UTILITY(U,$J,358.3,12797,0)
;;=S52.124D^^50^551^65
;;^UTILITY(U,$J,358.3,12797,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12797,1,3,0)
;;=3^Nondisp Fx, head, radius, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12797,1,4,0)
;;=4^S52.124D
;;^UTILITY(U,$J,358.3,12797,2)
;;=^5029098
;;^UTILITY(U,$J,358.3,12798,0)
;;=S62.155D^^50^551^66
;;^UTILITY(U,$J,358.3,12798,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12798,1,3,0)
;;=3^Nondisp Fx, hook process, hamate bone, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12798,1,4,0)
;;=4^S62.155D
;;^UTILITY(U,$J,358.3,12798,2)
;;=^5033411
;;^UTILITY(U,$J,358.3,12799,0)
;;=S62.154D^^50^551^67
;;^UTILITY(U,$J,358.3,12799,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12799,1,3,0)
;;=3^Nondisp Fx, hook process, hamate bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12799,1,4,0)
;;=4^S62.154D
;;^UTILITY(U,$J,358.3,12799,2)
;;=^5033404
;;^UTILITY(U,$J,358.3,12800,0)
;;=S52.515D^^50^551^86
;;^UTILITY(U,$J,358.3,12800,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12800,1,3,0)
;;=3^Nondisp Fx, radial styloid process, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12800,1,4,0)
;;=4^S52.515D
;;^UTILITY(U,$J,358.3,12800,2)
;;=^5030686
;;^UTILITY(U,$J,358.3,12801,0)
;;=S52.514D^^50^551^87
;;^UTILITY(U,$J,358.3,12801,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12801,1,3,0)
;;=3^Nondisp Fx, radial styloid process, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12801,1,4,0)
;;=4^S52.514D
;;^UTILITY(U,$J,358.3,12801,2)
;;=^5030670
;;^UTILITY(U,$J,358.3,12802,0)
;;=S52.615D^^50^551^106
;;^UTILITY(U,$J,358.3,12802,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12802,1,3,0)
;;=3^Nondisp Fx, ulna styloid process, Lt arm, Subsq
;;^UTILITY(U,$J,358.3,12802,1,4,0)
;;=4^S52.615D
;;^UTILITY(U,$J,358.3,12802,2)
;;=^5031102
;;^UTILITY(U,$J,358.3,12803,0)
;;=S52.614D^^50^551^107
;;^UTILITY(U,$J,358.3,12803,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12803,1,3,0)
;;=3^Nondisp Fx, ulna styloid process, Rt arm, Subsq
;;^UTILITY(U,$J,358.3,12803,1,4,0)
;;=4^S52.614D
;;^UTILITY(U,$J,358.3,12803,2)
;;=^5031086
;;^UTILITY(U,$J,358.3,12804,0)
;;=S62.125D^^50^551^68
;;^UTILITY(U,$J,358.3,12804,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12804,1,3,0)
;;=3^Nondisp Fx, lunate, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12804,1,4,0)
;;=4^S62.125D
;;^UTILITY(U,$J,358.3,12804,2)
;;=^5033285
;;^UTILITY(U,$J,358.3,12805,0)
;;=S62.124D^^50^551^69
;;^UTILITY(U,$J,358.3,12805,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12805,1,3,0)
;;=3^Nondisp Fx, lunate, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12805,1,4,0)
;;=4^S62.124D
;;^UTILITY(U,$J,358.3,12805,2)
;;=^5033278
;;^UTILITY(U,$J,358.3,12806,0)
;;=S62.025D^^50^551^70
;;^UTILITY(U,$J,358.3,12806,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12806,1,3,0)
;;=3^Nondisp Fx, middle 3rd, navic bone, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12806,1,4,0)
;;=4^S62.025D
;;^UTILITY(U,$J,358.3,12806,2)
;;=^5033145
;;^UTILITY(U,$J,358.3,12807,0)
;;=S62.024D^^50^551^71
;;^UTILITY(U,$J,358.3,12807,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12807,1,3,0)
;;=3^Nondisp Fx, middle 3rd, navic bone, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12807,1,4,0)
;;=4^S62.024D
;;^UTILITY(U,$J,358.3,12807,2)
;;=^5033138
;;^UTILITY(U,$J,358.3,12808,0)
;;=S52.135D^^50^551^72
;;^UTILITY(U,$J,358.3,12808,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12808,1,3,0)
;;=3^Nondisp Fx, neck, Lt radius, Subsq
;;^UTILITY(U,$J,358.3,12808,1,4,0)
;;=4^S52.135D
;;^UTILITY(U,$J,358.3,12808,2)
;;=^5029210
;;^UTILITY(U,$J,358.3,12809,0)
;;=S52.134D^^50^551^73
;;^UTILITY(U,$J,358.3,12809,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12809,1,3,0)
;;=3^Nondisp Fx, neck, Rt radius, Subsq
;;^UTILITY(U,$J,358.3,12809,1,4,0)
;;=4^S52.134D
;;^UTILITY(U,$J,358.3,12809,2)
;;=^5029194
;;^UTILITY(U,$J,358.3,12810,0)
;;=S52.335D^^50^551^74
;;^UTILITY(U,$J,358.3,12810,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12810,1,3,0)
;;=3^Nondisp Fx, oblique shaft, Lt radius, Subsq
;;^UTILITY(U,$J,358.3,12810,1,4,0)
;;=4^S52.335D
;;^UTILITY(U,$J,358.3,12810,2)
;;=^5030130
;;^UTILITY(U,$J,358.3,12811,0)
;;=S52.334D^^50^551^76
;;^UTILITY(U,$J,358.3,12811,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12811,1,3,0)
;;=3^Nondisp Fx, oblique shaft, Rt radius, Subsq
;;^UTILITY(U,$J,358.3,12811,1,4,0)
;;=4^S52.334D
;;^UTILITY(U,$J,358.3,12811,2)
;;=^5030114
;;^UTILITY(U,$J,358.3,12812,0)
;;=S52.234D^^50^551^77
;;^UTILITY(U,$J,358.3,12812,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12812,1,3,0)
;;=3^Nondisp Fx, oblique shaft, Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12812,1,4,0)
;;=4^S52.234D
;;^UTILITY(U,$J,358.3,12812,2)
;;=^5029462
;;^UTILITY(U,$J,358.3,12813,0)
;;=S52.035D^^50^551^78
;;^UTILITY(U,$J,358.3,12813,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12813,1,3,0)
;;=3^Nondisp Fx, olecran pro w intartic extn Lt ulna, Subsq
;;^UTILITY(U,$J,358.3,12813,1,4,0)
;;=4^S52.035D
;;^UTILITY(U,$J,358.3,12813,2)
;;=^5135118
;;^UTILITY(U,$J,358.3,12814,0)
;;=S52.034D^^50^551^79
;;^UTILITY(U,$J,358.3,12814,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12814,1,3,0)
;;=3^Nondisp Fx, olecran pro w intartic extn Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12814,1,4,0)
;;=4^S52.034D
;;^UTILITY(U,$J,358.3,12814,2)
;;=^5135117
;;^UTILITY(U,$J,358.3,12815,0)
;;=S52.025D^^50^551^80
;;^UTILITY(U,$J,358.3,12815,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12815,1,3,0)
;;=3^Nondisp Fx, olecran pro w/o intartic extn Lt ulna, Subsq
;;^UTILITY(U,$J,358.3,12815,1,4,0)
;;=4^S52.025D
;;^UTILITY(U,$J,358.3,12815,2)
;;=^5028820
;;^UTILITY(U,$J,358.3,12816,0)
;;=S52.024D^^50^551^81
;;^UTILITY(U,$J,358.3,12816,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12816,1,3,0)
;;=3^Nondisp Fx, olecran pro w/o intartic extn Rt ulna, Subsq
;;^UTILITY(U,$J,358.3,12816,1,4,0)
;;=4^S52.024D
;;^UTILITY(U,$J,358.3,12816,2)
;;=^5028804
;;^UTILITY(U,$J,358.3,12817,0)
;;=S62.165D^^50^551^82
;;^UTILITY(U,$J,358.3,12817,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12817,1,3,0)
;;=3^Nondisp Fx, pisiform, Lt wrist, Subsq
;;^UTILITY(U,$J,358.3,12817,1,4,0)
;;=4^S62.165D
;;^UTILITY(U,$J,358.3,12817,2)
;;=^5033453
;;^UTILITY(U,$J,358.3,12818,0)
;;=S62.164D^^50^551^83
;;^UTILITY(U,$J,358.3,12818,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12818,1,3,0)
;;=3^Nondisp Fx, pisiform, Rt wrist, Subsq
;;^UTILITY(U,$J,358.3,12818,1,4,0)
;;=4^S62.164D
;;^UTILITY(U,$J,358.3,12818,2)
;;=^5033446
;;^UTILITY(U,$J,358.3,12819,0)
;;=S62.035D^^50^551^84
;;^UTILITY(U,$J,358.3,12819,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12819,1,3,0)
;;=3^Nondisp Fx, prox 3rd, navic bone, Lt wrist, Subsq
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI05A 19773 printed Apr 09, 2024@21:14:50 Page 2
IBDEI05A ; ; 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,12754,1,4,0)
+2 ;;=4^S62.032D
+3 ;;^UTILITY(U,$J,358.3,12754,2)
+4 ;;=^5033166
+5 ;;^UTILITY(U,$J,358.3,12755,0)
+6 ;;=S62.031D^^50^551^23
+7 ;;^UTILITY(U,$J,358.3,12755,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,12755,1,3,0)
+10 ;;=3^Disp Fx, proximal 3rd, navic bone, Rt wrist, Subsq
+11 ;;^UTILITY(U,$J,358.3,12755,1,4,0)
+12 ;;=4^S62.031D
+13 ;;^UTILITY(U,$J,358.3,12755,2)
+14 ;;=^5033159
+15 ;;^UTILITY(U,$J,358.3,12756,0)
+16 ;;=S52.511D^^50^551^24
+17 ;;^UTILITY(U,$J,358.3,12756,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,12756,1,3,0)
+20 ;;=3^Disp Fx, radial styloid process,Rt arm, Subsq
+21 ;;^UTILITY(U,$J,358.3,12756,1,4,0)
+22 ;;=4^S52.511D
+23 ;;^UTILITY(U,$J,358.3,12756,2)
+24 ;;=^5030622
+25 ;;^UTILITY(U,$J,358.3,12757,0)
+26 ;;=S52.611D^^50^551^43
+27 ;;^UTILITY(U,$J,358.3,12757,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,12757,1,3,0)
+30 ;;=3^Disp Fx, ulna styloid process,Rt arm, Subsq
+31 ;;^UTILITY(U,$J,358.3,12757,1,4,0)
+32 ;;=4^S52.611D
+33 ;;^UTILITY(U,$J,358.3,12757,2)
+34 ;;=^5031038
+35 ;;^UTILITY(U,$J,358.3,12758,0)
+36 ;;=S52.362D^^50^551^25
+37 ;;^UTILITY(U,$J,358.3,12758,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,12758,1,3,0)
+40 ;;=3^Disp Fx, segmental shaft, radius, Lt arm, Subsq
+41 ;;^UTILITY(U,$J,358.3,12758,1,4,0)
+42 ;;=4^S52.362D
+43 ;;^UTILITY(U,$J,358.3,12758,2)
+44 ;;=^5030370
+45 ;;^UTILITY(U,$J,358.3,12759,0)
+46 ;;=S52.361D^^50^551^26
+47 ;;^UTILITY(U,$J,358.3,12759,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,12759,1,3,0)
+50 ;;=3^Disp Fx, segmental shaft, radius, Rt arm, Subsq
+51 ;;^UTILITY(U,$J,358.3,12759,1,4,0)
+52 ;;=4^S52.361D
+53 ;;^UTILITY(U,$J,358.3,12759,2)
+54 ;;=^5030354
+55 ;;^UTILITY(U,$J,358.3,12760,0)
+56 ;;=S52.262D^^50^551^27
+57 ;;^UTILITY(U,$J,358.3,12760,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,12760,1,3,0)
+60 ;;=3^Disp Fx, segmental shaft, ulna, Lt arm, Subsq
+61 ;;^UTILITY(U,$J,358.3,12760,1,4,0)
+62 ;;=4^S52.262D
+63 ;;^UTILITY(U,$J,358.3,12760,2)
+64 ;;=^5029718
+65 ;;^UTILITY(U,$J,358.3,12761,0)
+66 ;;=S52.261D^^50^551^28
+67 ;;^UTILITY(U,$J,358.3,12761,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,12761,1,3,0)
+70 ;;=3^Disp Fx, segmental shaft, ulna, Rt arm, Subsq
+71 ;;^UTILITY(U,$J,358.3,12761,1,4,0)
+72 ;;=4^S52.261D
+73 ;;^UTILITY(U,$J,358.3,12761,2)
+74 ;;=^5029702
+75 ;;^UTILITY(U,$J,358.3,12762,0)
+76 ;;=S52.342D^^50^551^29
+77 ;;^UTILITY(U,$J,358.3,12762,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,12762,1,3,0)
+80 ;;=3^Disp Fx, spiral shaft, radius, Lt arm, Subsq
+81 ;;^UTILITY(U,$J,358.3,12762,1,4,0)
+82 ;;=4^S52.342D
+83 ;;^UTILITY(U,$J,358.3,12762,2)
+84 ;;=^5030178
+85 ;;^UTILITY(U,$J,358.3,12763,0)
+86 ;;=S52.341D^^50^551^30
+87 ;;^UTILITY(U,$J,358.3,12763,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,12763,1,3,0)
+90 ;;=3^Disp Fx, spiral shaft, radius, Rt arm, Subsq
+91 ;;^UTILITY(U,$J,358.3,12763,1,4,0)
+92 ;;=4^S52.341D
+93 ;;^UTILITY(U,$J,358.3,12763,2)
+94 ;;=^5030162
+95 ;;^UTILITY(U,$J,358.3,12764,0)
+96 ;;=S52.242D^^50^551^31
+97 ;;^UTILITY(U,$J,358.3,12764,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,12764,1,3,0)
+100 ;;=3^Disp Fx, spiral shaft, ulna, Lt arm, Subsq
+101 ;;^UTILITY(U,$J,358.3,12764,1,4,0)
+102 ;;=4^S52.242D
+103 ;;^UTILITY(U,$J,358.3,12764,2)
+104 ;;=^5029526
+105 ;;^UTILITY(U,$J,358.3,12765,0)
+106 ;;=S52.241D^^50^551^32
+107 ;;^UTILITY(U,$J,358.3,12765,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,12765,1,3,0)
+110 ;;=3^Disp Fx, spiral shaft, ulna, Rt arm, Subsq
+111 ;;^UTILITY(U,$J,358.3,12765,1,4,0)
+112 ;;=4^S52.241D
+113 ;;^UTILITY(U,$J,358.3,12765,2)
+114 ;;=^5029510
+115 ;;^UTILITY(U,$J,358.3,12766,0)
+116 ;;=S52.322D^^50^551^33
+117 ;;^UTILITY(U,$J,358.3,12766,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,12766,1,3,0)
+120 ;;=3^Disp Fx, transverse shaft, Lt radius, Subsq
+121 ;;^UTILITY(U,$J,358.3,12766,1,4,0)
+122 ;;=4^S52.322D
+123 ;;^UTILITY(U,$J,358.3,12766,2)
+124 ;;=^5029986
+125 ;;^UTILITY(U,$J,358.3,12767,0)
+126 ;;=S52.222D^^50^551^34
+127 ;;^UTILITY(U,$J,358.3,12767,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,12767,1,3,0)
+130 ;;=3^Disp Fx, transverse shaft, Lt ulna, Subsq
+131 ;;^UTILITY(U,$J,358.3,12767,1,4,0)
+132 ;;=4^S52.222D
+133 ;;^UTILITY(U,$J,358.3,12767,2)
+134 ;;=^5029334
+135 ;;^UTILITY(U,$J,358.3,12768,0)
+136 ;;=S52.321D^^50^551^35
+137 ;;^UTILITY(U,$J,358.3,12768,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,12768,1,3,0)
+140 ;;=3^Disp Fx, transverse shaft, Rt radius, Subsq
+141 ;;^UTILITY(U,$J,358.3,12768,1,4,0)
+142 ;;=4^S52.321D
+143 ;;^UTILITY(U,$J,358.3,12768,2)
+144 ;;=^5029970
+145 ;;^UTILITY(U,$J,358.3,12769,0)
+146 ;;=S52.221D^^50^551^36
+147 ;;^UTILITY(U,$J,358.3,12769,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,12769,1,3,0)
+150 ;;=3^Disp Fx, transverse shaft, Rt ulna, Subsq
+151 ;;^UTILITY(U,$J,358.3,12769,1,4,0)
+152 ;;=4^S52.221D
+153 ;;^UTILITY(U,$J,358.3,12769,2)
+154 ;;=^5029318
+155 ;;^UTILITY(U,$J,358.3,12770,0)
+156 ;;=S62.172D^^50^551^37
+157 ;;^UTILITY(U,$J,358.3,12770,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,12770,1,3,0)
+160 ;;=3^Disp Fx, trapezium, Lt wrist, Subsq
+161 ;;^UTILITY(U,$J,358.3,12770,1,4,0)
+162 ;;=4^S62.172D
+163 ;;^UTILITY(U,$J,358.3,12770,2)
+164 ;;=^5033474
+165 ;;^UTILITY(U,$J,358.3,12771,0)
+166 ;;=S62.171D^^50^551^38
+167 ;;^UTILITY(U,$J,358.3,12771,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,12771,1,3,0)
+170 ;;=3^Disp Fx, trapezium, Rt wrist, Subsq
+171 ;;^UTILITY(U,$J,358.3,12771,1,4,0)
+172 ;;=4^S62.171D
+173 ;;^UTILITY(U,$J,358.3,12771,2)
+174 ;;=^5033467
+175 ;;^UTILITY(U,$J,358.3,12772,0)
+176 ;;=S62.182D^^50^551^39
+177 ;;^UTILITY(U,$J,358.3,12772,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,12772,1,3,0)
+180 ;;=3^Disp Fx, trapezoid, Lt wrist, Subsq
+181 ;;^UTILITY(U,$J,358.3,12772,1,4,0)
+182 ;;=4^S62.182D
+183 ;;^UTILITY(U,$J,358.3,12772,2)
+184 ;;=^5033516
+185 ;;^UTILITY(U,$J,358.3,12773,0)
+186 ;;=S62.181D^^50^551^40
+187 ;;^UTILITY(U,$J,358.3,12773,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,12773,1,3,0)
+190 ;;=3^Disp Fx, trapezoid, Rt wrist, Subsq
+191 ;;^UTILITY(U,$J,358.3,12773,1,4,0)
+192 ;;=4^S62.181D
+193 ;;^UTILITY(U,$J,358.3,12773,2)
+194 ;;=^5033509
+195 ;;^UTILITY(U,$J,358.3,12774,0)
+196 ;;=S62.112D^^50^551^41
+197 ;;^UTILITY(U,$J,358.3,12774,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,12774,1,3,0)
+200 ;;=3^Disp Fx, triquetrum bone, Lt wrist, Subsq
+201 ;;^UTILITY(U,$J,358.3,12774,1,4,0)
+202 ;;=4^S62.112D
+203 ;;^UTILITY(U,$J,358.3,12774,2)
+204 ;;=^5033222
+205 ;;^UTILITY(U,$J,358.3,12775,0)
+206 ;;=S62.111D^^50^551^42
+207 ;;^UTILITY(U,$J,358.3,12775,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,12775,1,3,0)
+210 ;;=3^Disp Fx, triquetrum bone, Rt wrist, Subsq
+211 ;;^UTILITY(U,$J,358.3,12775,1,4,0)
+212 ;;=4^S62.111D
+213 ;;^UTILITY(U,$J,358.3,12775,2)
+214 ;;=^5033215
+215 ;;^UTILITY(U,$J,358.3,12776,0)
+216 ;;=S52.372D^^50^551^44
+217 ;;^UTILITY(U,$J,358.3,12776,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,12776,1,3,0)
+220 ;;=3^Galeazzi's Fx, Lt radius, Subsq
+221 ;;^UTILITY(U,$J,358.3,12776,1,4,0)
+222 ;;=4^S52.372D
+223 ;;^UTILITY(U,$J,358.3,12776,2)
+224 ;;=^5030466
+225 ;;^UTILITY(U,$J,358.3,12777,0)
+226 ;;=S52.371D^^50^551^45
+227 ;;^UTILITY(U,$J,358.3,12777,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,12777,1,3,0)
+230 ;;=3^Galeazzi's Fx, Rt radius, Subsq
+231 ;;^UTILITY(U,$J,358.3,12777,1,4,0)
+232 ;;=4^S52.371D
+233 ;;^UTILITY(U,$J,358.3,12777,2)
+234 ;;=^5030450
+235 ;;^UTILITY(U,$J,358.3,12778,0)
+236 ;;=S52.312D^^50^551^46
+237 ;;^UTILITY(U,$J,358.3,12778,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,12778,1,3,0)
+240 ;;=3^Greenstick Fx, shaft, Lt radius, Subsq
+241 ;;^UTILITY(U,$J,358.3,12778,1,4,0)
+242 ;;=4^S52.312D
+243 ;;^UTILITY(U,$J,358.3,12778,2)
+244 ;;=^5029956
+245 ;;^UTILITY(U,$J,358.3,12779,0)
+246 ;;=S52.311D^^50^551^48
+247 ;;^UTILITY(U,$J,358.3,12779,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,12779,1,3,0)
+250 ;;=3^Greenstick Fx, shaft, Rt radius, Subsq
+251 ;;^UTILITY(U,$J,358.3,12779,1,4,0)
+252 ;;=4^S52.311D
+253 ;;^UTILITY(U,$J,358.3,12779,2)
+254 ;;=^5029950
+255 ;;^UTILITY(U,$J,358.3,12780,0)
+256 ;;=S52.212D^^50^551^47
+257 ;;^UTILITY(U,$J,358.3,12780,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,12780,1,3,0)
+260 ;;=3^Greenstick Fx, shaft, Lt ulna, Subsq
+261 ;;^UTILITY(U,$J,358.3,12780,1,4,0)
+262 ;;=4^S52.212D
+263 ;;^UTILITY(U,$J,358.3,12780,2)
+264 ;;=^5029304
+265 ;;^UTILITY(U,$J,358.3,12781,0)
+266 ;;=S52.211D^^50^551^49
+267 ;;^UTILITY(U,$J,358.3,12781,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,12781,1,3,0)
+270 ;;=3^Greenstick Fx, shaft, Rt ulna, Subsq
+271 ;;^UTILITY(U,$J,358.3,12781,1,4,0)
+272 ;;=4^S52.211D
+273 ;;^UTILITY(U,$J,358.3,12781,2)
+274 ;;=^5029298
+275 ;;^UTILITY(U,$J,358.3,12782,0)
+276 ;;=S52.272D^^50^551^50
+277 ;;^UTILITY(U,$J,358.3,12782,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,12782,1,3,0)
+280 ;;=3^Monteggia's Fx, Lt ulna, Subsq
+281 ;;^UTILITY(U,$J,358.3,12782,1,4,0)
+282 ;;=4^S52.272D
+283 ;;^UTILITY(U,$J,358.3,12782,2)
+284 ;;=^5029814
+285 ;;^UTILITY(U,$J,358.3,12783,0)
+286 ;;=S52.271D^^50^551^51
+287 ;;^UTILITY(U,$J,358.3,12783,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,12783,1,3,0)
+290 ;;=3^Monteggia's Fx, Rt ulna, Subsq
+291 ;;^UTILITY(U,$J,358.3,12783,1,4,0)
+292 ;;=4^S52.271D
+293 ;;^UTILITY(U,$J,358.3,12783,2)
+294 ;;=^5029798
+295 ;;^UTILITY(U,$J,358.3,12784,0)
+296 ;;=S62.145D^^50^551^52
+297 ;;^UTILITY(U,$J,358.3,12784,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,12784,1,3,0)
+300 ;;=3^Nondisp Fx, body, hamate bone, Lt wrist, Subsq
+301 ;;^UTILITY(U,$J,358.3,12784,1,4,0)
+302 ;;=4^S62.145D
+303 ;;^UTILITY(U,$J,358.3,12784,2)
+304 ;;=^5033369
+305 ;;^UTILITY(U,$J,358.3,12785,0)
+306 ;;=S62.144D^^50^551^53
+307 ;;^UTILITY(U,$J,358.3,12785,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,12785,1,3,0)
+310 ;;=3^Nondisp Fx, body, hamate bone, Rt wrist, Subsq
+311 ;;^UTILITY(U,$J,358.3,12785,1,4,0)
+312 ;;=4^S62.144D
+313 ;;^UTILITY(U,$J,358.3,12785,2)
+314 ;;=^5033362
+315 ;;^UTILITY(U,$J,358.3,12786,0)
+316 ;;=S62.135D^^50^551^54
+317 ;;^UTILITY(U,$J,358.3,12786,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,12786,1,3,0)
+320 ;;=3^Nondisp Fx, capitate bone, Lt wrist, Subsq
+321 ;;^UTILITY(U,$J,358.3,12786,1,4,0)
+322 ;;=4^S62.135D
+323 ;;^UTILITY(U,$J,358.3,12786,2)
+324 ;;=^5033327
+325 ;;^UTILITY(U,$J,358.3,12787,0)
+326 ;;=S62.134D^^50^551^55
+327 ;;^UTILITY(U,$J,358.3,12787,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,12787,1,3,0)
+330 ;;=3^Nondisp Fx, capitate bone, Rt wrist, Subsq
+331 ;;^UTILITY(U,$J,358.3,12787,1,4,0)
+332 ;;=4^S62.134D
+333 ;;^UTILITY(U,$J,358.3,12787,2)
+334 ;;=^5033320
+335 ;;^UTILITY(U,$J,358.3,12788,0)
+336 ;;=S52.355D^^50^551^56
+337 ;;^UTILITY(U,$J,358.3,12788,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,12788,1,3,0)
+340 ;;=3^Nondisp Fx, comminuted shaft, radius, Lt arm, Subsq
+341 ;;^UTILITY(U,$J,358.3,12788,1,4,0)
+342 ;;=4^S52.355D
+343 ;;^UTILITY(U,$J,358.3,12788,2)
+344 ;;=^5030322
+345 ;;^UTILITY(U,$J,358.3,12789,0)
+346 ;;=S52.354D^^50^551^57
+347 ;;^UTILITY(U,$J,358.3,12789,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,12789,1,3,0)
+350 ;;=3^Nondisp Fx, comminuted shaft, radius, Rt arm, Subsq
+351 ;;^UTILITY(U,$J,358.3,12789,1,4,0)
+352 ;;=4^S52.354D
+353 ;;^UTILITY(U,$J,358.3,12789,2)
+354 ;;=^5030306
+355 ;;^UTILITY(U,$J,358.3,12790,0)
+356 ;;=S52.255D^^50^551^58
+357 ;;^UTILITY(U,$J,358.3,12790,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,12790,1,3,0)
+360 ;;=3^Nondisp Fx, comminuted shaft, ulna, Lt arm, Subsq
+361 ;;^UTILITY(U,$J,358.3,12790,1,4,0)
+362 ;;=4^S52.255D
+363 ;;^UTILITY(U,$J,358.3,12790,2)
+364 ;;=^5029670
+365 ;;^UTILITY(U,$J,358.3,12791,0)
+366 ;;=S52.254D^^50^551^59
+367 ;;^UTILITY(U,$J,358.3,12791,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,12791,1,3,0)
+370 ;;=3^Nondisp Fx, comminuted shaft, ulna, Rt arm, Subsq
+371 ;;^UTILITY(U,$J,358.3,12791,1,4,0)
+372 ;;=4^S52.254D
+373 ;;^UTILITY(U,$J,358.3,12791,2)
+374 ;;=^5029654
+375 ;;^UTILITY(U,$J,358.3,12792,0)
+376 ;;=S52.045D^^50^551^60
+377 ;;^UTILITY(U,$J,358.3,12792,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,12792,1,3,0)
+380 ;;=3^Nondisp Fx, coronoid process, Lt ulna, Subsq
+381 ;;^UTILITY(U,$J,358.3,12792,1,4,0)
+382 ;;=4^S52.045D
+383 ;;^UTILITY(U,$J,358.3,12792,2)
+384 ;;=^5028942
+385 ;;^UTILITY(U,$J,358.3,12793,0)
+386 ;;=S52.044D^^50^551^61
+387 ;;^UTILITY(U,$J,358.3,12793,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,12793,1,3,0)
+390 ;;=3^Nondisp Fx, coronoid process, Rt ulna, Subsq
+391 ;;^UTILITY(U,$J,358.3,12793,1,4,0)
+392 ;;=4^S52.044D
+393 ;;^UTILITY(U,$J,358.3,12793,2)
+394 ;;=^5028926
+395 ;;^UTILITY(U,$J,358.3,12794,0)
+396 ;;=S62.015D^^50^551^62
+397 ;;^UTILITY(U,$J,358.3,12794,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,12794,1,3,0)
+400 ;;=3^Nondisp Fx, distal pole, navic bone, Lt wrist, Subsq
+401 ;;^UTILITY(U,$J,358.3,12794,1,4,0)
+402 ;;=4^S62.015D
+403 ;;^UTILITY(U,$J,358.3,12794,2)
+404 ;;=^5033103
+405 ;;^UTILITY(U,$J,358.3,12795,0)
+406 ;;=S62.014D^^50^551^63
+407 ;;^UTILITY(U,$J,358.3,12795,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,12795,1,3,0)
+410 ;;=3^Nondisp Fx, distal pole, navic bone, Rt wrist, Subsq
+411 ;;^UTILITY(U,$J,358.3,12795,1,4,0)
+412 ;;=4^S62.014D
+413 ;;^UTILITY(U,$J,358.3,12795,2)
+414 ;;=^5033096
+415 ;;^UTILITY(U,$J,358.3,12796,0)
+416 ;;=S52.125D^^50^551^64
+417 ;;^UTILITY(U,$J,358.3,12796,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,12796,1,3,0)
+420 ;;=3^Nondisp Fx, head, radius, Lt arm, Subsq
+421 ;;^UTILITY(U,$J,358.3,12796,1,4,0)
+422 ;;=4^S52.125D
+423 ;;^UTILITY(U,$J,358.3,12796,2)
+424 ;;=^5029114
+425 ;;^UTILITY(U,$J,358.3,12797,0)
+426 ;;=S52.124D^^50^551^65
+427 ;;^UTILITY(U,$J,358.3,12797,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,12797,1,3,0)
+430 ;;=3^Nondisp Fx, head, radius, Rt arm, Subsq
+431 ;;^UTILITY(U,$J,358.3,12797,1,4,0)
+432 ;;=4^S52.124D
+433 ;;^UTILITY(U,$J,358.3,12797,2)
+434 ;;=^5029098
+435 ;;^UTILITY(U,$J,358.3,12798,0)
+436 ;;=S62.155D^^50^551^66
+437 ;;^UTILITY(U,$J,358.3,12798,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,12798,1,3,0)
+440 ;;=3^Nondisp Fx, hook process, hamate bone, Lt wrist, Subsq
+441 ;;^UTILITY(U,$J,358.3,12798,1,4,0)
+442 ;;=4^S62.155D
+443 ;;^UTILITY(U,$J,358.3,12798,2)
+444 ;;=^5033411
+445 ;;^UTILITY(U,$J,358.3,12799,0)
+446 ;;=S62.154D^^50^551^67
+447 ;;^UTILITY(U,$J,358.3,12799,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,12799,1,3,0)
+450 ;;=3^Nondisp Fx, hook process, hamate bone, Rt wrist, Subsq
+451 ;;^UTILITY(U,$J,358.3,12799,1,4,0)
+452 ;;=4^S62.154D
+453 ;;^UTILITY(U,$J,358.3,12799,2)
+454 ;;=^5033404
+455 ;;^UTILITY(U,$J,358.3,12800,0)
+456 ;;=S52.515D^^50^551^86
+457 ;;^UTILITY(U,$J,358.3,12800,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,12800,1,3,0)
+460 ;;=3^Nondisp Fx, radial styloid process, Lt arm, Subsq
+461 ;;^UTILITY(U,$J,358.3,12800,1,4,0)
+462 ;;=4^S52.515D
+463 ;;^UTILITY(U,$J,358.3,12800,2)
+464 ;;=^5030686
+465 ;;^UTILITY(U,$J,358.3,12801,0)
+466 ;;=S52.514D^^50^551^87
+467 ;;^UTILITY(U,$J,358.3,12801,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,12801,1,3,0)
+470 ;;=3^Nondisp Fx, radial styloid process, Rt arm, Subsq
+471 ;;^UTILITY(U,$J,358.3,12801,1,4,0)
+472 ;;=4^S52.514D
+473 ;;^UTILITY(U,$J,358.3,12801,2)
+474 ;;=^5030670
+475 ;;^UTILITY(U,$J,358.3,12802,0)
+476 ;;=S52.615D^^50^551^106
+477 ;;^UTILITY(U,$J,358.3,12802,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,12802,1,3,0)
+480 ;;=3^Nondisp Fx, ulna styloid process, Lt arm, Subsq
+481 ;;^UTILITY(U,$J,358.3,12802,1,4,0)
+482 ;;=4^S52.615D
+483 ;;^UTILITY(U,$J,358.3,12802,2)
+484 ;;=^5031102
+485 ;;^UTILITY(U,$J,358.3,12803,0)
+486 ;;=S52.614D^^50^551^107
+487 ;;^UTILITY(U,$J,358.3,12803,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,12803,1,3,0)
+490 ;;=3^Nondisp Fx, ulna styloid process, Rt arm, Subsq
+491 ;;^UTILITY(U,$J,358.3,12803,1,4,0)
+492 ;;=4^S52.614D
+493 ;;^UTILITY(U,$J,358.3,12803,2)
+494 ;;=^5031086
+495 ;;^UTILITY(U,$J,358.3,12804,0)
+496 ;;=S62.125D^^50^551^68
+497 ;;^UTILITY(U,$J,358.3,12804,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,12804,1,3,0)
+500 ;;=3^Nondisp Fx, lunate, Lt wrist, Subsq
+501 ;;^UTILITY(U,$J,358.3,12804,1,4,0)
+502 ;;=4^S62.125D
+503 ;;^UTILITY(U,$J,358.3,12804,2)
+504 ;;=^5033285
+505 ;;^UTILITY(U,$J,358.3,12805,0)
+506 ;;=S62.124D^^50^551^69
+507 ;;^UTILITY(U,$J,358.3,12805,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,12805,1,3,0)
+510 ;;=3^Nondisp Fx, lunate, Rt wrist, Subsq
+511 ;;^UTILITY(U,$J,358.3,12805,1,4,0)
+512 ;;=4^S62.124D
+513 ;;^UTILITY(U,$J,358.3,12805,2)
+514 ;;=^5033278
+515 ;;^UTILITY(U,$J,358.3,12806,0)
+516 ;;=S62.025D^^50^551^70
+517 ;;^UTILITY(U,$J,358.3,12806,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,12806,1,3,0)
+520 ;;=3^Nondisp Fx, middle 3rd, navic bone, Lt wrist, Subsq
+521 ;;^UTILITY(U,$J,358.3,12806,1,4,0)
+522 ;;=4^S62.025D
+523 ;;^UTILITY(U,$J,358.3,12806,2)
+524 ;;=^5033145
+525 ;;^UTILITY(U,$J,358.3,12807,0)
+526 ;;=S62.024D^^50^551^71
+527 ;;^UTILITY(U,$J,358.3,12807,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,12807,1,3,0)
+530 ;;=3^Nondisp Fx, middle 3rd, navic bone, Rt wrist, Subsq
+531 ;;^UTILITY(U,$J,358.3,12807,1,4,0)
+532 ;;=4^S62.024D
+533 ;;^UTILITY(U,$J,358.3,12807,2)
+534 ;;=^5033138
+535 ;;^UTILITY(U,$J,358.3,12808,0)
+536 ;;=S52.135D^^50^551^72
+537 ;;^UTILITY(U,$J,358.3,12808,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,12808,1,3,0)
+540 ;;=3^Nondisp Fx, neck, Lt radius, Subsq
+541 ;;^UTILITY(U,$J,358.3,12808,1,4,0)
+542 ;;=4^S52.135D
+543 ;;^UTILITY(U,$J,358.3,12808,2)
+544 ;;=^5029210
+545 ;;^UTILITY(U,$J,358.3,12809,0)
+546 ;;=S52.134D^^50^551^73
+547 ;;^UTILITY(U,$J,358.3,12809,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,12809,1,3,0)
+550 ;;=3^Nondisp Fx, neck, Rt radius, Subsq
+551 ;;^UTILITY(U,$J,358.3,12809,1,4,0)
+552 ;;=4^S52.134D
+553 ;;^UTILITY(U,$J,358.3,12809,2)
+554 ;;=^5029194
+555 ;;^UTILITY(U,$J,358.3,12810,0)
+556 ;;=S52.335D^^50^551^74
+557 ;;^UTILITY(U,$J,358.3,12810,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,12810,1,3,0)
+560 ;;=3^Nondisp Fx, oblique shaft, Lt radius, Subsq
+561 ;;^UTILITY(U,$J,358.3,12810,1,4,0)
+562 ;;=4^S52.335D
+563 ;;^UTILITY(U,$J,358.3,12810,2)
+564 ;;=^5030130
+565 ;;^UTILITY(U,$J,358.3,12811,0)
+566 ;;=S52.334D^^50^551^76
+567 ;;^UTILITY(U,$J,358.3,12811,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,12811,1,3,0)
+570 ;;=3^Nondisp Fx, oblique shaft, Rt radius, Subsq
+571 ;;^UTILITY(U,$J,358.3,12811,1,4,0)
+572 ;;=4^S52.334D
+573 ;;^UTILITY(U,$J,358.3,12811,2)
+574 ;;=^5030114
+575 ;;^UTILITY(U,$J,358.3,12812,0)
+576 ;;=S52.234D^^50^551^77
+577 ;;^UTILITY(U,$J,358.3,12812,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,12812,1,3,0)
+580 ;;=3^Nondisp Fx, oblique shaft, Rt ulna, Subsq
+581 ;;^UTILITY(U,$J,358.3,12812,1,4,0)
+582 ;;=4^S52.234D
+583 ;;^UTILITY(U,$J,358.3,12812,2)
+584 ;;=^5029462
+585 ;;^UTILITY(U,$J,358.3,12813,0)
+586 ;;=S52.035D^^50^551^78
+587 ;;^UTILITY(U,$J,358.3,12813,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,12813,1,3,0)
+590 ;;=3^Nondisp Fx, olecran pro w intartic extn Lt ulna, Subsq
+591 ;;^UTILITY(U,$J,358.3,12813,1,4,0)
+592 ;;=4^S52.035D
+593 ;;^UTILITY(U,$J,358.3,12813,2)
+594 ;;=^5135118
+595 ;;^UTILITY(U,$J,358.3,12814,0)
+596 ;;=S52.034D^^50^551^79
+597 ;;^UTILITY(U,$J,358.3,12814,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,12814,1,3,0)
+600 ;;=3^Nondisp Fx, olecran pro w intartic extn Rt ulna, Subsq
+601 ;;^UTILITY(U,$J,358.3,12814,1,4,0)
+602 ;;=4^S52.034D
+603 ;;^UTILITY(U,$J,358.3,12814,2)
+604 ;;=^5135117
+605 ;;^UTILITY(U,$J,358.3,12815,0)
+606 ;;=S52.025D^^50^551^80
+607 ;;^UTILITY(U,$J,358.3,12815,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,12815,1,3,0)
+610 ;;=3^Nondisp Fx, olecran pro w/o intartic extn Lt ulna, Subsq
+611 ;;^UTILITY(U,$J,358.3,12815,1,4,0)
+612 ;;=4^S52.025D
+613 ;;^UTILITY(U,$J,358.3,12815,2)
+614 ;;=^5028820
+615 ;;^UTILITY(U,$J,358.3,12816,0)
+616 ;;=S52.024D^^50^551^81
+617 ;;^UTILITY(U,$J,358.3,12816,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,12816,1,3,0)
+620 ;;=3^Nondisp Fx, olecran pro w/o intartic extn Rt ulna, Subsq
+621 ;;^UTILITY(U,$J,358.3,12816,1,4,0)
+622 ;;=4^S52.024D
+623 ;;^UTILITY(U,$J,358.3,12816,2)
+624 ;;=^5028804
+625 ;;^UTILITY(U,$J,358.3,12817,0)
+626 ;;=S62.165D^^50^551^82
+627 ;;^UTILITY(U,$J,358.3,12817,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,12817,1,3,0)
+630 ;;=3^Nondisp Fx, pisiform, Lt wrist, Subsq
+631 ;;^UTILITY(U,$J,358.3,12817,1,4,0)
+632 ;;=4^S62.165D
+633 ;;^UTILITY(U,$J,358.3,12817,2)
+634 ;;=^5033453
+635 ;;^UTILITY(U,$J,358.3,12818,0)
+636 ;;=S62.164D^^50^551^83
+637 ;;^UTILITY(U,$J,358.3,12818,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,12818,1,3,0)
+640 ;;=3^Nondisp Fx, pisiform, Rt wrist, Subsq
+641 ;;^UTILITY(U,$J,358.3,12818,1,4,0)
+642 ;;=4^S62.164D
+643 ;;^UTILITY(U,$J,358.3,12818,2)
+644 ;;=^5033446
+645 ;;^UTILITY(U,$J,358.3,12819,0)
+646 ;;=S62.035D^^50^551^84
+647 ;;^UTILITY(U,$J,358.3,12819,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,12819,1,3,0)
+650 ;;=3^Nondisp Fx, prox 3rd, navic bone, Lt wrist, Subsq
