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

IBDEI05B.m

Go to the documentation of this file. 
  1. IBDEI05B ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,12819,1,4,0)
  1.  ;;=4^S62.035D
  1.  ;;^UTILITY(U,$J,358.3,12819,2)
  1.  ;;=^5033187
  1.  ;;^UTILITY(U,$J,358.3,12820,0)
  1.  ;;=S62.034D^^50^551^85
  1.  ;;^UTILITY(U,$J,358.3,12820,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12820,1,3,0)
  1.  ;;=3^Nondisp Fx, prox 3rd, navic bone, Rt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12820,1,4,0)
  1.  ;;=4^S62.034D
  1.  ;;^UTILITY(U,$J,358.3,12820,2)
  1.  ;;=^5033180
  1.  ;;^UTILITY(U,$J,358.3,12821,0)
  1.  ;;=S52.365D^^50^551^88
  1.  ;;^UTILITY(U,$J,358.3,12821,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12821,1,3,0)
  1.  ;;=3^Nondisp Fx, segmental shaft, radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12821,1,4,0)
  1.  ;;=4^S52.365D
  1.  ;;^UTILITY(U,$J,358.3,12821,2)
  1.  ;;=^5030418
  1.  ;;^UTILITY(U,$J,358.3,12822,0)
  1.  ;;=S52.364D^^50^551^89
  1.  ;;^UTILITY(U,$J,358.3,12822,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12822,1,3,0)
  1.  ;;=3^Nondisp Fx, segmental shaft, radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12822,1,4,0)
  1.  ;;=4^S52.364D
  1.  ;;^UTILITY(U,$J,358.3,12822,2)
  1.  ;;=^5030402
  1.  ;;^UTILITY(U,$J,358.3,12823,0)
  1.  ;;=S52.265D^^50^551^90
  1.  ;;^UTILITY(U,$J,358.3,12823,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12823,1,3,0)
  1.  ;;=3^Nondisp Fx, segmental shaft, ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12823,1,4,0)
  1.  ;;=4^S52.265D
  1.  ;;^UTILITY(U,$J,358.3,12823,2)
  1.  ;;=^5029766
  1.  ;;^UTILITY(U,$J,358.3,12824,0)
  1.  ;;=S52.264D^^50^551^91
  1.  ;;^UTILITY(U,$J,358.3,12824,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12824,1,3,0)
  1.  ;;=3^Nondisp Fx, segmental shaft, ulna, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12824,1,4,0)
  1.  ;;=4^S52.264D
  1.  ;;^UTILITY(U,$J,358.3,12824,2)
  1.  ;;=^5029750
  1.  ;;^UTILITY(U,$J,358.3,12825,0)
  1.  ;;=S52.345D^^50^551^92
  1.  ;;^UTILITY(U,$J,358.3,12825,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12825,1,3,0)
  1.  ;;=3^Nondisp Fx, spiral shaft, radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12825,1,4,0)
  1.  ;;=4^S52.345D
  1.  ;;^UTILITY(U,$J,358.3,12825,2)
  1.  ;;=^5030226
  1.  ;;^UTILITY(U,$J,358.3,12826,0)
  1.  ;;=S52.344D^^50^551^93
  1.  ;;^UTILITY(U,$J,358.3,12826,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12826,1,3,0)
  1.  ;;=3^Nondisp Fx, spiral shaft, radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12826,1,4,0)
  1.  ;;=4^S52.344D
  1.  ;;^UTILITY(U,$J,358.3,12826,2)
  1.  ;;=^5030210
  1.  ;;^UTILITY(U,$J,358.3,12827,0)
  1.  ;;=S52.245D^^50^551^94
  1.  ;;^UTILITY(U,$J,358.3,12827,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12827,1,3,0)
  1.  ;;=3^Nondisp Fx, spiral shaft, ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12827,1,4,0)
  1.  ;;=4^S52.245D
  1.  ;;^UTILITY(U,$J,358.3,12827,2)
  1.  ;;=^5029574
  1.  ;;^UTILITY(U,$J,358.3,12828,0)
  1.  ;;=S52.244D^^50^551^95
  1.  ;;^UTILITY(U,$J,358.3,12828,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12828,1,3,0)
  1.  ;;=3^Nondisp Fx, spiral shaft, ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12828,1,4,0)
  1.  ;;=4^S52.244D
  1.  ;;^UTILITY(U,$J,358.3,12828,2)
  1.  ;;=^5029558
  1.  ;;^UTILITY(U,$J,358.3,12829,0)
  1.  ;;=S52.325D^^50^551^96
  1.  ;;^UTILITY(U,$J,358.3,12829,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12829,1,3,0)
  1.  ;;=3^Nondisp Fx, transverse shaft, Lt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12829,1,4,0)
  1.  ;;=4^S52.325D
  1.  ;;^UTILITY(U,$J,358.3,12829,2)
  1.  ;;=^5030034
  1.  ;;^UTILITY(U,$J,358.3,12830,0)
  1.  ;;=S52.324D^^50^551^98
  1.  ;;^UTILITY(U,$J,358.3,12830,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12830,1,3,0)
  1.  ;;=3^Nondisp Fx, transverse shaft, Rt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12830,1,4,0)
  1.  ;;=4^S52.324D
  1.  ;;^UTILITY(U,$J,358.3,12830,2)
  1.  ;;=^5030018
  1.  ;;^UTILITY(U,$J,358.3,12831,0)
  1.  ;;=S52.225D^^50^551^97
  1.  ;;^UTILITY(U,$J,358.3,12831,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12831,1,3,0)
  1.  ;;=3^Nondisp Fx, transverse shaft, Lt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12831,1,4,0)
  1.  ;;=4^S52.225D
  1.  ;;^UTILITY(U,$J,358.3,12831,2)
  1.  ;;=^5029382
  1.  ;;^UTILITY(U,$J,358.3,12832,0)
  1.  ;;=S52.224D^^50^551^99
  1.  ;;^UTILITY(U,$J,358.3,12832,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12832,1,3,0)
  1.  ;;=3^Nondisp Fx, transverse shaft, Rt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12832,1,4,0)
  1.  ;;=4^S52.224D
  1.  ;;^UTILITY(U,$J,358.3,12832,2)
  1.  ;;=^5029366
  1.  ;;^UTILITY(U,$J,358.3,12833,0)
  1.  ;;=S62.175D^^50^551^100
  1.  ;;^UTILITY(U,$J,358.3,12833,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12833,1,3,0)
  1.  ;;=3^Nondisp Fx, trapezium, Lt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12833,1,4,0)
  1.  ;;=4^S62.175D
  1.  ;;^UTILITY(U,$J,358.3,12833,2)
  1.  ;;=^5033495
  1.  ;;^UTILITY(U,$J,358.3,12834,0)
  1.  ;;=S62.174D^^50^551^101
  1.  ;;^UTILITY(U,$J,358.3,12834,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12834,1,3,0)
  1.  ;;=3^Nondisp Fx, trapezium, Rt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12834,1,4,0)
  1.  ;;=4^S62.174D
  1.  ;;^UTILITY(U,$J,358.3,12834,2)
  1.  ;;=^5033488
  1.  ;;^UTILITY(U,$J,358.3,12835,0)
  1.  ;;=S62.185D^^50^551^102
  1.  ;;^UTILITY(U,$J,358.3,12835,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12835,1,3,0)
  1.  ;;=3^Nondisp Fx, trapezoid, Lt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12835,1,4,0)
  1.  ;;=4^S62.185D
  1.  ;;^UTILITY(U,$J,358.3,12835,2)
  1.  ;;=^5033537
  1.  ;;^UTILITY(U,$J,358.3,12836,0)
  1.  ;;=S62.184D^^50^551^103
  1.  ;;^UTILITY(U,$J,358.3,12836,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12836,1,3,0)
  1.  ;;=3^Nondisp Fx, trapezoid, Rt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12836,1,4,0)
  1.  ;;=4^S62.184D
  1.  ;;^UTILITY(U,$J,358.3,12836,2)
  1.  ;;=^5033530
  1.  ;;^UTILITY(U,$J,358.3,12837,0)
  1.  ;;=S62.115D^^50^551^104
  1.  ;;^UTILITY(U,$J,358.3,12837,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12837,1,3,0)
  1.  ;;=3^Nondisp Fx, triquetrum bone, Lt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12837,1,4,0)
  1.  ;;=4^S62.115D
  1.  ;;^UTILITY(U,$J,358.3,12837,2)
  1.  ;;=^5033243
  1.  ;;^UTILITY(U,$J,358.3,12838,0)
  1.  ;;=S62.114D^^50^551^105
  1.  ;;^UTILITY(U,$J,358.3,12838,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12838,1,3,0)
  1.  ;;=3^Nondisp Fx, triquetrum bone, Rt wrist, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12838,1,4,0)
  1.  ;;=4^S62.114D
  1.  ;;^UTILITY(U,$J,358.3,12838,2)
  1.  ;;=^5033236
  1.  ;;^UTILITY(U,$J,358.3,12839,0)
  1.  ;;=M84.434D^^50^551^108
  1.  ;;^UTILITY(U,$J,358.3,12839,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12839,1,3,0)
  1.  ;;=3^Pathological Fx, Lt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12839,1,4,0)
  1.  ;;=4^M84.434D
  1.  ;;^UTILITY(U,$J,358.3,12839,2)
  1.  ;;=^5013855
  1.  ;;^UTILITY(U,$J,358.3,12840,0)
  1.  ;;=M84.433D^^50^551^110
  1.  ;;^UTILITY(U,$J,358.3,12840,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12840,1,3,0)
  1.  ;;=3^Pathological Fx, Rt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12840,1,4,0)
  1.  ;;=4^M84.433D
  1.  ;;^UTILITY(U,$J,358.3,12840,2)
  1.  ;;=^5013849
  1.  ;;^UTILITY(U,$J,358.3,12841,0)
  1.  ;;=M84.432D^^50^551^109
  1.  ;;^UTILITY(U,$J,358.3,12841,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12841,1,3,0)
  1.  ;;=3^Pathological Fx, Lt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12841,1,4,0)
  1.  ;;=4^M84.432D
  1.  ;;^UTILITY(U,$J,358.3,12841,2)
  1.  ;;=^5013843
  1.  ;;^UTILITY(U,$J,358.3,12842,0)
  1.  ;;=M84.431D^^50^551^111
  1.  ;;^UTILITY(U,$J,358.3,12842,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12842,1,3,0)
  1.  ;;=3^Pathological Fx, Rt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12842,1,4,0)
  1.  ;;=4^M84.431D
  1.  ;;^UTILITY(U,$J,358.3,12842,2)
  1.  ;;=^5013837
  1.  ;;^UTILITY(U,$J,358.3,12843,0)
  1.  ;;=S59.012D^^50^551^114
  1.  ;;^UTILITY(U,$J,358.3,12843,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12843,1,3,0)
  1.  ;;=3^Sltr-haris Type I physl Fx lower end, ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12843,1,4,0)
  1.  ;;=4^S59.012D
  1.  ;;^UTILITY(U,$J,358.3,12843,2)
  1.  ;;=^5031980
  1.  ;;^UTILITY(U,$J,358.3,12844,0)
  1.  ;;=S59.011D^^50^551^115
  1.  ;;^UTILITY(U,$J,358.3,12844,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12844,1,3,0)
  1.  ;;=3^Sltr-haris Type I physl Fx lower end, ulna, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12844,1,4,0)
  1.  ;;=4^S59.011D
  1.  ;;^UTILITY(U,$J,358.3,12844,2)
  1.  ;;=^5031974
  1.  ;;^UTILITY(U,$J,358.3,12845,0)
  1.  ;;=S59.212D^^50^551^112
  1.  ;;^UTILITY(U,$J,358.3,12845,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12845,1,3,0)
  1.  ;;=3^Sltr-haris Type I physl Fx lower end radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12845,1,4,0)
  1.  ;;=4^S59.212D
  1.  ;;^UTILITY(U,$J,358.3,12845,2)
  1.  ;;=^5135622
  1.  ;;^UTILITY(U,$J,358.3,12846,0)
  1.  ;;=S59.211D^^50^551^113
  1.  ;;^UTILITY(U,$J,358.3,12846,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12846,1,3,0)
  1.  ;;=3^Sltr-haris Type I physl Fx lower end radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12846,1,4,0)
  1.  ;;=4^S59.211D
  1.  ;;^UTILITY(U,$J,358.3,12846,2)
  1.  ;;=^5032148
  1.  ;;^UTILITY(U,$J,358.3,12847,0)
  1.  ;;=S59.112D^^50^551^116
  1.  ;;^UTILITY(U,$J,358.3,12847,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12847,1,3,0)
  1.  ;;=3^Sltr-haris Type I physl Fx upper end radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12847,1,4,0)
  1.  ;;=4^S59.112D
  1.  ;;^UTILITY(U,$J,358.3,12847,2)
  1.  ;;=^5032070
  1.  ;;^UTILITY(U,$J,358.3,12848,0)
  1.  ;;=S59.111D^^50^551^117
  1.  ;;^UTILITY(U,$J,358.3,12848,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12848,1,3,0)
  1.  ;;=3^Sltr-haris Type I physl Fx upper end radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12848,1,4,0)
  1.  ;;=4^S59.111D
  1.  ;;^UTILITY(U,$J,358.3,12848,2)
  1.  ;;=^5032064
  1.  ;;^UTILITY(U,$J,358.3,12849,0)
  1.  ;;=S59.222D^^50^551^118
  1.  ;;^UTILITY(U,$J,358.3,12849,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12849,1,3,0)
  1.  ;;=3^Sltr-haris Type II physl Fx lower end radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12849,1,4,0)
  1.  ;;=4^S59.222D
  1.  ;;^UTILITY(U,$J,358.3,12849,2)
  1.  ;;=^5135628
  1.  ;;^UTILITY(U,$J,358.3,12850,0)
  1.  ;;=S59.221D^^50^551^119
  1.  ;;^UTILITY(U,$J,358.3,12850,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12850,1,3,0)
  1.  ;;=3^Sltr-haris Type II physl Fx lower end radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12850,1,4,0)
  1.  ;;=4^S59.221D
  1.  ;;^UTILITY(U,$J,358.3,12850,2)
  1.  ;;=^5032160
  1.  ;;^UTILITY(U,$J,358.3,12851,0)
  1.  ;;=S59.022D^^50^551^120
  1.  ;;^UTILITY(U,$J,358.3,12851,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12851,1,3,0)
  1.  ;;=3^Sltr-haris Type II physl Fx lower end ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12851,1,4,0)
  1.  ;;=4^S59.022D
  1.  ;;^UTILITY(U,$J,358.3,12851,2)
  1.  ;;=^5031998
  1.  ;;^UTILITY(U,$J,358.3,12852,0)
  1.  ;;=S59.021D^^50^551^121
  1.  ;;^UTILITY(U,$J,358.3,12852,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12852,1,3,0)
  1.  ;;=3^Sltr-haris Type II physl Fx lower end ulna, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12852,1,4,0)
  1.  ;;=4^S59.021D
  1.  ;;^UTILITY(U,$J,358.3,12852,2)
  1.  ;;=^5031992
  1.  ;;^UTILITY(U,$J,358.3,12853,0)
  1.  ;;=S59.121D^^50^551^122
  1.  ;;^UTILITY(U,$J,358.3,12853,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12853,1,3,0)
  1.  ;;=3^Sltr-haris Type II physl Fx upper end radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12853,1,4,0)
  1.  ;;=4^S59.121D
  1.  ;;^UTILITY(U,$J,358.3,12853,2)
  1.  ;;=^5032082
  1.  ;;^UTILITY(U,$J,358.3,12854,0)
  1.  ;;=S59.122D^^50^551^123
  1.  ;;^UTILITY(U,$J,358.3,12854,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12854,1,3,0)
  1.  ;;=3^Sltr-haris Type II physl Fx upper end radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12854,1,4,0)
  1.  ;;=4^S59.122D
  1.  ;;^UTILITY(U,$J,358.3,12854,2)
  1.  ;;=^5032088
  1.  ;;^UTILITY(U,$J,358.3,12855,0)
  1.  ;;=S59.232D^^50^551^124
  1.  ;;^UTILITY(U,$J,358.3,12855,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12855,1,3,0)
  1.  ;;=3^Sltr-haris Type III physl Fx lower end rad, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12855,1,4,0)
  1.  ;;=4^S59.232D
  1.  ;;^UTILITY(U,$J,358.3,12855,2)
  1.  ;;=^5135634
  1.  ;;^UTILITY(U,$J,358.3,12856,0)
  1.  ;;=S59.231D^^50^551^125
  1.  ;;^UTILITY(U,$J,358.3,12856,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12856,1,3,0)
  1.  ;;=3^Sltr-haris Type III physl Fx lower end rad, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12856,1,4,0)
  1.  ;;=4^S59.231D
  1.  ;;^UTILITY(U,$J,358.3,12856,2)
  1.  ;;=^5032166
  1.  ;;^UTILITY(U,$J,358.3,12857,0)
  1.  ;;=S59.032D^^50^551^126
  1.  ;;^UTILITY(U,$J,358.3,12857,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12857,1,3,0)
  1.  ;;=3^Sltr-haris Type III physl Fx lower end ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12857,1,4,0)
  1.  ;;=4^S59.032D
  1.  ;;^UTILITY(U,$J,358.3,12857,2)
  1.  ;;=^5032016
  1.  ;;^UTILITY(U,$J,358.3,12858,0)
  1.  ;;=S59.031D^^50^551^127
  1.  ;;^UTILITY(U,$J,358.3,12858,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12858,1,3,0)
  1.  ;;=3^Sltr-haris Type III physl Fx lower end ulna, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12858,1,4,0)
  1.  ;;=4^S59.031D
  1.  ;;^UTILITY(U,$J,358.3,12858,2)
  1.  ;;=^5032010
  1.  ;;^UTILITY(U,$J,358.3,12859,0)
  1.  ;;=S59.132D^^50^551^128
  1.  ;;^UTILITY(U,$J,358.3,12859,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12859,1,3,0)
  1.  ;;=3^Sltr-haris Type III physl Fx upper end rad, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12859,1,4,0)
  1.  ;;=4^S59.132D
  1.  ;;^UTILITY(U,$J,358.3,12859,2)
  1.  ;;=^5032106
  1.  ;;^UTILITY(U,$J,358.3,12860,0)
  1.  ;;=S59.131D^^50^551^129
  1.  ;;^UTILITY(U,$J,358.3,12860,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12860,1,3,0)
  1.  ;;=3^Sltr-haris Type III physl Fx upper end rad, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12860,1,4,0)
  1.  ;;=4^S59.131D
  1.  ;;^UTILITY(U,$J,358.3,12860,2)
  1.  ;;=^5032100
  1.  ;;^UTILITY(U,$J,358.3,12861,0)
  1.  ;;=S59.242D^^50^551^130
  1.  ;;^UTILITY(U,$J,358.3,12861,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12861,1,3,0)
  1.  ;;=3^Sltr-haris Type IV physl Fx lower end radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12861,1,4,0)
  1.  ;;=4^S59.242D
  1.  ;;^UTILITY(U,$J,358.3,12861,2)
  1.  ;;=^5135640
  1.  ;;^UTILITY(U,$J,358.3,12862,0)
  1.  ;;=S59.241D^^50^551^131
  1.  ;;^UTILITY(U,$J,358.3,12862,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12862,1,3,0)
  1.  ;;=3^Sltr-haris Type IV physl Fx lower end radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12862,1,4,0)
  1.  ;;=4^S59.241D
  1.  ;;^UTILITY(U,$J,358.3,12862,2)
  1.  ;;=^5032172
  1.  ;;^UTILITY(U,$J,358.3,12863,0)
  1.  ;;=S59.042D^^50^551^132
  1.  ;;^UTILITY(U,$J,358.3,12863,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12863,1,3,0)
  1.  ;;=3^Sltr-haris Type IV physl Fx lower end ulna, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12863,1,4,0)
  1.  ;;=4^S59.042D
  1.  ;;^UTILITY(U,$J,358.3,12863,2)
  1.  ;;=^5032034
  1.  ;;^UTILITY(U,$J,358.3,12864,0)
  1.  ;;=S59.041D^^50^551^133
  1.  ;;^UTILITY(U,$J,358.3,12864,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12864,1,3,0)
  1.  ;;=3^Sltr-haris Type IV physl Fx lower end ulna, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12864,1,4,0)
  1.  ;;=4^S59.041D
  1.  ;;^UTILITY(U,$J,358.3,12864,2)
  1.  ;;=^5032028
  1.  ;;^UTILITY(U,$J,358.3,12865,0)
  1.  ;;=S59.142D^^50^551^134
  1.  ;;^UTILITY(U,$J,358.3,12865,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12865,1,3,0)
  1.  ;;=3^Sltr-haris Type IV physl Fx upper end radius, Lt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12865,1,4,0)
  1.  ;;=4^S59.142D
  1.  ;;^UTILITY(U,$J,358.3,12865,2)
  1.  ;;=^5032124
  1.  ;;^UTILITY(U,$J,358.3,12866,0)
  1.  ;;=S59.141D^^50^551^135
  1.  ;;^UTILITY(U,$J,358.3,12866,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12866,1,3,0)
  1.  ;;=3^Sltr-haris Type IV physl Fx upper end radius, Rt arm, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12866,1,4,0)
  1.  ;;=4^S59.141D
  1.  ;;^UTILITY(U,$J,358.3,12866,2)
  1.  ;;=^5032118
  1.  ;;^UTILITY(U,$J,358.3,12867,0)
  1.  ;;=S52.542D^^50^551^136
  1.  ;;^UTILITY(U,$J,358.3,12867,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12867,1,3,0)
  1.  ;;=3^Smith's Fx, Lt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12867,1,4,0)
  1.  ;;=4^S52.542D
  1.  ;;^UTILITY(U,$J,358.3,12867,2)
  1.  ;;=^5030788
  1.  ;;^UTILITY(U,$J,358.3,12868,0)
  1.  ;;=S52.541D^^50^551^137
  1.  ;;^UTILITY(U,$J,358.3,12868,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12868,1,3,0)
  1.  ;;=3^Smith's Fx, Rt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12868,1,4,0)
  1.  ;;=4^S52.541D
  1.  ;;^UTILITY(U,$J,358.3,12868,2)
  1.  ;;=^5030772
  1.  ;;^UTILITY(U,$J,358.3,12869,0)
  1.  ;;=M84.334D^^50^551^138
  1.  ;;^UTILITY(U,$J,358.3,12869,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12869,1,3,0)
  1.  ;;=3^Stress Fx, Lt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12869,1,4,0)
  1.  ;;=4^M84.334D
  1.  ;;^UTILITY(U,$J,358.3,12869,2)
  1.  ;;=^5013627
  1.  ;;^UTILITY(U,$J,358.3,12870,0)
  1.  ;;=M84.333D^^50^551^140
  1.  ;;^UTILITY(U,$J,358.3,12870,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12870,1,3,0)
  1.  ;;=3^Stress Fx, Rt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12870,1,4,0)
  1.  ;;=4^M84.333D
  1.  ;;^UTILITY(U,$J,358.3,12870,2)
  1.  ;;=^5013621
  1.  ;;^UTILITY(U,$J,358.3,12871,0)
  1.  ;;=M84.332D^^50^551^139
  1.  ;;^UTILITY(U,$J,358.3,12871,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12871,1,3,0)
  1.  ;;=3^Stress Fx, Lt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12871,1,4,0)
  1.  ;;=4^M84.332D
  1.  ;;^UTILITY(U,$J,358.3,12871,2)
  1.  ;;=^5013615
  1.  ;;^UTILITY(U,$J,358.3,12872,0)
  1.  ;;=M84.331D^^50^551^141
  1.  ;;^UTILITY(U,$J,358.3,12872,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12872,1,3,0)
  1.  ;;=3^Stress Fx, Rt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12872,1,4,0)
  1.  ;;=4^M84.331D
  1.  ;;^UTILITY(U,$J,358.3,12872,2)
  1.  ;;=^5013609
  1.  ;;^UTILITY(U,$J,358.3,12873,0)
  1.  ;;=S52.522D^^50^551^142
  1.  ;;^UTILITY(U,$J,358.3,12873,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12873,1,3,0)
  1.  ;;=3^Torus Fx, lower end, Lt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12873,1,4,0)
  1.  ;;=4^S52.522D
  1.  ;;^UTILITY(U,$J,358.3,12873,2)
  1.  ;;=^5135268
  1.  ;;^UTILITY(U,$J,358.3,12874,0)
  1.  ;;=S52.521D^^50^551^144
  1.  ;;^UTILITY(U,$J,358.3,12874,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12874,1,3,0)
  1.  ;;=3^Torus Fx, lower end, Rt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12874,1,4,0)
  1.  ;;=4^S52.521D
  1.  ;;^UTILITY(U,$J,358.3,12874,2)
  1.  ;;=^5030716
  1.  ;;^UTILITY(U,$J,358.3,12875,0)
  1.  ;;=S52.622D^^50^551^143
  1.  ;;^UTILITY(U,$J,358.3,12875,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12875,1,3,0)
  1.  ;;=3^Torus Fx, lower end, Lt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12875,1,4,0)
  1.  ;;=4^S52.622D
  1.  ;;^UTILITY(U,$J,358.3,12875,2)
  1.  ;;=^5135335
  1.  ;;^UTILITY(U,$J,358.3,12876,0)
  1.  ;;=S52.621D^^50^551^145
  1.  ;;^UTILITY(U,$J,358.3,12876,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12876,1,3,0)
  1.  ;;=3^Torus Fx, lower end, Rt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12876,1,4,0)
  1.  ;;=4^S52.621D
  1.  ;;^UTILITY(U,$J,358.3,12876,2)
  1.  ;;=^5031132
  1.  ;;^UTILITY(U,$J,358.3,12877,0)
  1.  ;;=S52.112D^^50^551^146
  1.  ;;^UTILITY(U,$J,358.3,12877,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12877,1,3,0)
  1.  ;;=3^Torus Fx, upper end, Lt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12877,1,4,0)
  1.  ;;=4^S52.112D
  1.  ;;^UTILITY(U,$J,358.3,12877,2)
  1.  ;;=^5029036
  1.  ;;^UTILITY(U,$J,358.3,12878,0)
  1.  ;;=S52.111D^^50^551^148
  1.  ;;^UTILITY(U,$J,358.3,12878,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12878,1,3,0)
  1.  ;;=3^Torus Fx, upper end, Rt radius, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12878,1,4,0)
  1.  ;;=4^S52.111D
  1.  ;;^UTILITY(U,$J,358.3,12878,2)
  1.  ;;=^5029030
  1.  ;;^UTILITY(U,$J,358.3,12879,0)
  1.  ;;=S52.012D^^50^551^147
  1.  ;;^UTILITY(U,$J,358.3,12879,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12879,1,3,0)
  1.  ;;=3^Torus Fx, upper end, Lt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12879,1,4,0)
  1.  ;;=4^S52.012D
  1.  ;;^UTILITY(U,$J,358.3,12879,2)
  1.  ;;=^5028742
  1.  ;;^UTILITY(U,$J,358.3,12880,0)
  1.  ;;=S52.011D^^50^551^149
  1.  ;;^UTILITY(U,$J,358.3,12880,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12880,1,3,0)
  1.  ;;=3^Torus Fx, upper end, Rt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12880,1,4,0)
  1.  ;;=4^S52.011D
  1.  ;;^UTILITY(U,$J,358.3,12880,2)
  1.  ;;=^5028736
  1.  ;;^UTILITY(U,$J,358.3,12881,0)
  1.  ;;=S52.235D^^50^551^75
  1.  ;;^UTILITY(U,$J,358.3,12881,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12881,1,3,0)
  1.  ;;=3^Nondisp Fx, oblique shaft, Lt ulna, Subsq
  1.  ;;^UTILITY(U,$J,358.3,12881,1,4,0)
  1.  ;;=4^S52.235D
  1.  ;;^UTILITY(U,$J,358.3,12881,2)
  1.  ;;=^5029478
  1.  ;;^UTILITY(U,$J,358.3,12882,0)
  1.  ;;=S02.42XD^^50^552^2
  1.  ;;^UTILITY(U,$J,358.3,12882,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12882,1,3,0)
  1.  ;;=3^Fx,Alveolus of Maxilla,Subsq
  1.  ;;^UTILITY(U,$J,358.3,12882,1,4,0)
  1.  ;;=4^S02.42XD
  1.  ;;^UTILITY(U,$J,358.3,12882,2)
  1.  ;;=^5020356
  1.  ;;^UTILITY(U,$J,358.3,12883,0)
  1.  ;;=S22.22XD^^50^552^3
  1.  ;;^UTILITY(U,$J,358.3,12883,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,12883,1,3,0)
  1.  ;;=3^Fx,Body of Sternum,Subsq
  1.  ;;^UTILITY(U,$J,358.3,12883,1,4,0)
  1.  ;;=4^S22.22XD
  1.  ;;^UTILITY(U,$J,358.3,12883,2)
  1.  ;;=^5023089