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

IBDEI04X.m

Go to the documentation of this file. 
  1. IBDEI04X ; ; 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,11909,1,3,0)
  1.  ;;=3^Spontaneous rupture of flexor tendons, left hand
  1.  ;;^UTILITY(U,$J,358.3,11909,1,4,0)
  1.  ;;=4^M66.342
  1.  ;;^UTILITY(U,$J,358.3,11909,2)
  1.  ;;=^5012882
  1.  ;;^UTILITY(U,$J,358.3,11910,0)
  1.  ;;=M66.331^^50^541^192
  1.  ;;^UTILITY(U,$J,358.3,11910,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11910,1,3,0)
  1.  ;;=3^Spontaneous rupture of flexor tendons, right forearm
  1.  ;;^UTILITY(U,$J,358.3,11910,1,4,0)
  1.  ;;=4^M66.331
  1.  ;;^UTILITY(U,$J,358.3,11910,2)
  1.  ;;=^5012878
  1.  ;;^UTILITY(U,$J,358.3,11911,0)
  1.  ;;=M66.341^^50^541^193
  1.  ;;^UTILITY(U,$J,358.3,11911,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11911,1,3,0)
  1.  ;;=3^Spontaneous rupture of flexor tendons, right hand
  1.  ;;^UTILITY(U,$J,358.3,11911,1,4,0)
  1.  ;;=4^M66.341
  1.  ;;^UTILITY(U,$J,358.3,11911,2)
  1.  ;;=^5012881
  1.  ;;^UTILITY(U,$J,358.3,11912,0)
  1.  ;;=M66.342^^50^541^194
  1.  ;;^UTILITY(U,$J,358.3,11912,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11912,1,3,0)
  1.  ;;=3^Spontaneous rupture of flexor tendons, left hand
  1.  ;;^UTILITY(U,$J,358.3,11912,1,4,0)
  1.  ;;=4^M66.342
  1.  ;;^UTILITY(U,$J,358.3,11912,2)
  1.  ;;=^5012882
  1.  ;;^UTILITY(U,$J,358.3,11913,0)
  1.  ;;=M66.841^^50^541^195
  1.  ;;^UTILITY(U,$J,358.3,11913,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11913,1,3,0)
  1.  ;;=3^Spontaneous rupture of other tendons, right hand
  1.  ;;^UTILITY(U,$J,358.3,11913,1,4,0)
  1.  ;;=4^M66.841
  1.  ;;^UTILITY(U,$J,358.3,11913,2)
  1.  ;;=^5012898
  1.  ;;^UTILITY(U,$J,358.3,11914,0)
  1.  ;;=M70.62^^50^541^198
  1.  ;;^UTILITY(U,$J,358.3,11914,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11914,1,3,0)
  1.  ;;=3^Trochanteric bursitis, left hip
  1.  ;;^UTILITY(U,$J,358.3,11914,1,4,0)
  1.  ;;=4^M70.62
  1.  ;;^UTILITY(U,$J,358.3,11914,2)
  1.  ;;=^5013060
  1.  ;;^UTILITY(U,$J,358.3,11915,0)
  1.  ;;=M70.61^^50^541^199
  1.  ;;^UTILITY(U,$J,358.3,11915,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11915,1,3,0)
  1.  ;;=3^Trochanteric bursitis, right hip
  1.  ;;^UTILITY(U,$J,358.3,11915,1,4,0)
  1.  ;;=4^M70.61
  1.  ;;^UTILITY(U,$J,358.3,11915,2)
  1.  ;;=^5013059
  1.  ;;^UTILITY(U,$J,358.3,11916,0)
  1.  ;;=M21.752^^50^541^200
  1.  ;;^UTILITY(U,$J,358.3,11916,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11916,1,3,0)
  1.  ;;=3^Unequal limb length (acquired), left femur
  1.  ;;^UTILITY(U,$J,358.3,11916,1,4,0)
  1.  ;;=4^M21.752
  1.  ;;^UTILITY(U,$J,358.3,11916,2)
  1.  ;;=^5011141
  1.  ;;^UTILITY(U,$J,358.3,11917,0)
  1.  ;;=M21.764^^50^541^201
  1.  ;;^UTILITY(U,$J,358.3,11917,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11917,1,3,0)
  1.  ;;=3^Unequal limb length (acquired), left fibula
  1.  ;;^UTILITY(U,$J,358.3,11917,1,4,0)
  1.  ;;=4^M21.764
  1.  ;;^UTILITY(U,$J,358.3,11917,2)
  1.  ;;=^5011146
  1.  ;;^UTILITY(U,$J,358.3,11918,0)
  1.  ;;=M21.762^^50^541^202
  1.  ;;^UTILITY(U,$J,358.3,11918,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11918,1,3,0)
  1.  ;;=3^Unequal limb length (acquired), left tibia
  1.  ;;^UTILITY(U,$J,358.3,11918,1,4,0)
  1.  ;;=4^M21.762
  1.  ;;^UTILITY(U,$J,358.3,11918,2)
  1.  ;;=^5011144
  1.  ;;^UTILITY(U,$J,358.3,11919,0)
  1.  ;;=M21.751^^50^541^203
  1.  ;;^UTILITY(U,$J,358.3,11919,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11919,1,3,0)
  1.  ;;=3^Unequal limb length (acquired), right femur
  1.  ;;^UTILITY(U,$J,358.3,11919,1,4,0)
  1.  ;;=4^M21.751
  1.  ;;^UTILITY(U,$J,358.3,11919,2)
  1.  ;;=^5011140
  1.  ;;^UTILITY(U,$J,358.3,11920,0)
  1.  ;;=M21.763^^50^541^204
  1.  ;;^UTILITY(U,$J,358.3,11920,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11920,1,3,0)
  1.  ;;=3^Unequal limb length (acquired), right fibula
  1.  ;;^UTILITY(U,$J,358.3,11920,1,4,0)
  1.  ;;=4^M21.763
  1.  ;;^UTILITY(U,$J,358.3,11920,2)
  1.  ;;=^5011145
  1.  ;;^UTILITY(U,$J,358.3,11921,0)
  1.  ;;=M21.761^^50^541^205
  1.  ;;^UTILITY(U,$J,358.3,11921,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11921,1,3,0)
  1.  ;;=3^Unequal limb length (acquired), right tibia
  1.  ;;^UTILITY(U,$J,358.3,11921,1,4,0)
  1.  ;;=4^M21.761
  1.  ;;^UTILITY(U,$J,358.3,11921,2)
  1.  ;;=^5011143
  1.  ;;^UTILITY(U,$J,358.3,11922,0)
  1.  ;;=M17.12^^50^541^206
  1.  ;;^UTILITY(U,$J,358.3,11922,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11922,1,3,0)
  1.  ;;=3^Prim Osteoarth,Left Knee,Unilat
  1.  ;;^UTILITY(U,$J,358.3,11922,1,4,0)
  1.  ;;=4^M17.12
  1.  ;;^UTILITY(U,$J,358.3,11922,2)
  1.  ;;=^5010787
  1.  ;;^UTILITY(U,$J,358.3,11923,0)
  1.  ;;=M17.11^^50^541^207
  1.  ;;^UTILITY(U,$J,358.3,11923,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11923,1,3,0)
  1.  ;;=3^Prim Osteoarth,Right Knee,Unilat
  1.  ;;^UTILITY(U,$J,358.3,11923,1,4,0)
  1.  ;;=4^M17.11
  1.  ;;^UTILITY(U,$J,358.3,11923,2)
  1.  ;;=^5010786
  1.  ;;^UTILITY(U,$J,358.3,11924,0)
  1.  ;;=M76.51^^50^541^68
  1.  ;;^UTILITY(U,$J,358.3,11924,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11924,1,3,0)
  1.  ;;=3^Patellar tendinitis, right knee
  1.  ;;^UTILITY(U,$J,358.3,11924,1,4,0)
  1.  ;;=4^M76.51
  1.  ;;^UTILITY(U,$J,358.3,11924,2)
  1.  ;;=^5013282
  1.  ;;^UTILITY(U,$J,358.3,11925,0)
  1.  ;;=M24.311^^50^541^72
  1.  ;;^UTILITY(U,$J,358.3,11925,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11925,1,3,0)
  1.  ;;=3^Path Dislocation,Right Shoulder NEC
  1.  ;;^UTILITY(U,$J,358.3,11925,1,4,0)
  1.  ;;=4^M24.311
  1.  ;;^UTILITY(U,$J,358.3,11925,2)
  1.  ;;=^5011346
  1.  ;;^UTILITY(U,$J,358.3,11926,0)
  1.  ;;=M24.312^^50^541^70
  1.  ;;^UTILITY(U,$J,358.3,11926,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11926,1,3,0)
  1.  ;;=3^Path Dislocation,Left Shoulder NEC
  1.  ;;^UTILITY(U,$J,358.3,11926,1,4,0)
  1.  ;;=4^M24.312
  1.  ;;^UTILITY(U,$J,358.3,11926,2)
  1.  ;;=^5011347
  1.  ;;^UTILITY(U,$J,358.3,11927,0)
  1.  ;;=M24.231^^50^541^57
  1.  ;;^UTILITY(U,$J,358.3,11927,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11927,1,3,0)
  1.  ;;=3^Ligament D/O,Right Wrist
  1.  ;;^UTILITY(U,$J,358.3,11927,1,4,0)
  1.  ;;=4^M24.231
  1.  ;;^UTILITY(U,$J,358.3,11927,2)
  1.  ;;=^5011329
  1.  ;;^UTILITY(U,$J,358.3,11928,0)
  1.  ;;=M24.232^^50^541^55
  1.  ;;^UTILITY(U,$J,358.3,11928,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11928,1,3,0)
  1.  ;;=3^Ligament D/O,Left Wrist
  1.  ;;^UTILITY(U,$J,358.3,11928,1,4,0)
  1.  ;;=4^M24.232
  1.  ;;^UTILITY(U,$J,358.3,11928,2)
  1.  ;;=^5011330
  1.  ;;^UTILITY(U,$J,358.3,11929,0)
  1.  ;;=M24.241^^50^541^56
  1.  ;;^UTILITY(U,$J,358.3,11929,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11929,1,3,0)
  1.  ;;=3^Ligament D/O,Right Hand
  1.  ;;^UTILITY(U,$J,358.3,11929,1,4,0)
  1.  ;;=4^M24.241
  1.  ;;^UTILITY(U,$J,358.3,11929,2)
  1.  ;;=^5011332
  1.  ;;^UTILITY(U,$J,358.3,11930,0)
  1.  ;;=M24.242^^50^541^54
  1.  ;;^UTILITY(U,$J,358.3,11930,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11930,1,3,0)
  1.  ;;=3^Ligament D/O,Left Hand
  1.  ;;^UTILITY(U,$J,358.3,11930,1,4,0)
  1.  ;;=4^M24.242
  1.  ;;^UTILITY(U,$J,358.3,11930,2)
  1.  ;;=^5011333
  1.  ;;^UTILITY(U,$J,358.3,11931,0)
  1.  ;;=M24.411^^50^541^92
  1.  ;;^UTILITY(U,$J,358.3,11931,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11931,1,3,0)
  1.  ;;=3^Recurrent Dislocation,Right Shoulder
  1.  ;;^UTILITY(U,$J,358.3,11931,1,4,0)
  1.  ;;=4^M24.411
  1.  ;;^UTILITY(U,$J,358.3,11931,2)
  1.  ;;=^5011371
  1.  ;;^UTILITY(U,$J,358.3,11932,0)
  1.  ;;=M24.412^^50^541^91
  1.  ;;^UTILITY(U,$J,358.3,11932,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11932,1,3,0)
  1.  ;;=3^Recurrent Dislocation,Left Shoulder
  1.  ;;^UTILITY(U,$J,358.3,11932,1,4,0)
  1.  ;;=4^M24.412
  1.  ;;^UTILITY(U,$J,358.3,11932,2)
  1.  ;;=^5011372
  1.  ;;^UTILITY(U,$J,358.3,11933,0)
  1.  ;;=M24.511^^50^541^35
  1.  ;;^UTILITY(U,$J,358.3,11933,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11933,1,3,0)
  1.  ;;=3^Contracture,Right Shoulder
  1.  ;;^UTILITY(U,$J,358.3,11933,1,4,0)
  1.  ;;=4^M24.511
  1.  ;;^UTILITY(U,$J,358.3,11933,2)
  1.  ;;=^5011402
  1.  ;;^UTILITY(U,$J,358.3,11934,0)
  1.  ;;=M24.512^^50^541^33
  1.  ;;^UTILITY(U,$J,358.3,11934,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11934,1,3,0)
  1.  ;;=3^Contracture,Left Shoulder
  1.  ;;^UTILITY(U,$J,358.3,11934,1,4,0)
  1.  ;;=4^M24.512
  1.  ;;^UTILITY(U,$J,358.3,11934,2)
  1.  ;;=^5011403
  1.  ;;^UTILITY(U,$J,358.3,11935,0)
  1.  ;;=M24.541^^50^541^34
  1.  ;;^UTILITY(U,$J,358.3,11935,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11935,1,3,0)
  1.  ;;=3^Contracture,Right Hand
  1.  ;;^UTILITY(U,$J,358.3,11935,1,4,0)
  1.  ;;=4^M24.541
  1.  ;;^UTILITY(U,$J,358.3,11935,2)
  1.  ;;=^5011411
  1.  ;;^UTILITY(U,$J,358.3,11936,0)
  1.  ;;=M24.542^^50^541^32
  1.  ;;^UTILITY(U,$J,358.3,11936,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11936,1,3,0)
  1.  ;;=3^Contracture,Left Hand
  1.  ;;^UTILITY(U,$J,358.3,11936,1,4,0)
  1.  ;;=4^M24.542
  1.  ;;^UTILITY(U,$J,358.3,11936,2)
  1.  ;;=^5011412
  1.  ;;^UTILITY(U,$J,358.3,11937,0)
  1.  ;;=M24.321^^50^541^71
  1.  ;;^UTILITY(U,$J,358.3,11937,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11937,1,3,0)
  1.  ;;=3^Path Dislocation,Right Elbow NEC
  1.  ;;^UTILITY(U,$J,358.3,11937,1,4,0)
  1.  ;;=4^M24.321
  1.  ;;^UTILITY(U,$J,358.3,11937,2)
  1.  ;;=^5011349
  1.  ;;^UTILITY(U,$J,358.3,11938,0)
  1.  ;;=M24.322^^50^541^69
  1.  ;;^UTILITY(U,$J,358.3,11938,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11938,1,3,0)
  1.  ;;=3^Path Dislocation,Left Elbow NEC
  1.  ;;^UTILITY(U,$J,358.3,11938,1,4,0)
  1.  ;;=4^M24.322
  1.  ;;^UTILITY(U,$J,358.3,11938,2)
  1.  ;;=^5011350
  1.  ;;^UTILITY(U,$J,358.3,11939,0)
  1.  ;;=M20.001^^50^541^37
  1.  ;;^UTILITY(U,$J,358.3,11939,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11939,1,3,0)
  1.  ;;=3^Deformity,Right Finger(s),Unspec
  1.  ;;^UTILITY(U,$J,358.3,11939,1,4,0)
  1.  ;;=4^M20.001
  1.  ;;^UTILITY(U,$J,358.3,11939,2)
  1.  ;;=^5011028
  1.  ;;^UTILITY(U,$J,358.3,11940,0)
  1.  ;;=M20.002^^50^541^36
  1.  ;;^UTILITY(U,$J,358.3,11940,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11940,1,3,0)
  1.  ;;=3^Deformity,Left Finger(s),Unspec
  1.  ;;^UTILITY(U,$J,358.3,11940,1,4,0)
  1.  ;;=4^M20.002
  1.  ;;^UTILITY(U,$J,358.3,11940,2)
  1.  ;;=^5011029
  1.  ;;^UTILITY(U,$J,358.3,11941,0)
  1.  ;;=M20.011^^50^541^59
  1.  ;;^UTILITY(U,$J,358.3,11941,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11941,1,3,0)
  1.  ;;=3^Mallet Finger,Right Finger(s)
  1.  ;;^UTILITY(U,$J,358.3,11941,1,4,0)
  1.  ;;=4^M20.011
  1.  ;;^UTILITY(U,$J,358.3,11941,2)
  1.  ;;=^5011030
  1.  ;;^UTILITY(U,$J,358.3,11942,0)
  1.  ;;=M20.012^^50^541^58
  1.  ;;^UTILITY(U,$J,358.3,11942,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11942,1,3,0)
  1.  ;;=3^Mallet Finger,Left Finger(s)
  1.  ;;^UTILITY(U,$J,358.3,11942,1,4,0)
  1.  ;;=4^M20.012
  1.  ;;^UTILITY(U,$J,358.3,11942,2)
  1.  ;;=^5011031
  1.  ;;^UTILITY(U,$J,358.3,11943,0)
  1.  ;;=M20.021^^50^541^9
  1.  ;;^UTILITY(U,$J,358.3,11943,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11943,1,3,0)
  1.  ;;=3^Boutonniere Deformity,Right Finger(s)
  1.  ;;^UTILITY(U,$J,358.3,11943,1,4,0)
  1.  ;;=4^M20.021
  1.  ;;^UTILITY(U,$J,358.3,11943,2)
  1.  ;;=^5011033
  1.  ;;^UTILITY(U,$J,358.3,11944,0)
  1.  ;;=M20.022^^50^541^8
  1.  ;;^UTILITY(U,$J,358.3,11944,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11944,1,3,0)
  1.  ;;=3^Boutonniere Deformity,Left Finger(s)
  1.  ;;^UTILITY(U,$J,358.3,11944,1,4,0)
  1.  ;;=4^M20.022
  1.  ;;^UTILITY(U,$J,358.3,11944,2)
  1.  ;;=^5011034
  1.  ;;^UTILITY(U,$J,358.3,11945,0)
  1.  ;;=M20.031^^50^541^197
  1.  ;;^UTILITY(U,$J,358.3,11945,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11945,1,3,0)
  1.  ;;=3^Swan-Neck Deformity,Right Finger(s)
  1.  ;;^UTILITY(U,$J,358.3,11945,1,4,0)
  1.  ;;=4^M20.031
  1.  ;;^UTILITY(U,$J,358.3,11945,2)
  1.  ;;=^5011036
  1.  ;;^UTILITY(U,$J,358.3,11946,0)
  1.  ;;=M20.032^^50^541^196
  1.  ;;^UTILITY(U,$J,358.3,11946,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11946,1,3,0)
  1.  ;;=3^Swan-Neck Deformity,Left Finger(s)
  1.  ;;^UTILITY(U,$J,358.3,11946,1,4,0)
  1.  ;;=4^M20.032
  1.  ;;^UTILITY(U,$J,358.3,11946,2)
  1.  ;;=^5011037
  1.  ;;^UTILITY(U,$J,358.3,11947,0)
  1.  ;;=M21.331^^50^541^209
  1.  ;;^UTILITY(U,$J,358.3,11947,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11947,1,3,0)
  1.  ;;=3^Wrist Drop,Right Wrist
  1.  ;;^UTILITY(U,$J,358.3,11947,1,4,0)
  1.  ;;=4^M21.331
  1.  ;;^UTILITY(U,$J,358.3,11947,2)
  1.  ;;=^5011107
  1.  ;;^UTILITY(U,$J,358.3,11948,0)
  1.  ;;=M21.332^^50^541^208
  1.  ;;^UTILITY(U,$J,358.3,11948,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11948,1,3,0)
  1.  ;;=3^Wrist Drop,Left Wrist
  1.  ;;^UTILITY(U,$J,358.3,11948,1,4,0)
  1.  ;;=4^M21.332
  1.  ;;^UTILITY(U,$J,358.3,11948,2)
  1.  ;;=^5011108
  1.  ;;^UTILITY(U,$J,358.3,11949,0)
  1.  ;;=M18.0^^50^541^74
  1.  ;;^UTILITY(U,$J,358.3,11949,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11949,1,3,0)
  1.  ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Bilateral
  1.  ;;^UTILITY(U,$J,358.3,11949,1,4,0)
  1.  ;;=4^M18.0
  1.  ;;^UTILITY(U,$J,358.3,11949,2)
  1.  ;;=^5010795
  1.  ;;^UTILITY(U,$J,358.3,11950,0)
  1.  ;;=M18.11^^50^541^75
  1.  ;;^UTILITY(U,$J,358.3,11950,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11950,1,3,0)
  1.  ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Right Hand,Unilat
  1.  ;;^UTILITY(U,$J,358.3,11950,1,4,0)
  1.  ;;=4^M18.11
  1.  ;;^UTILITY(U,$J,358.3,11950,2)
  1.  ;;=^5010797
  1.  ;;^UTILITY(U,$J,358.3,11951,0)
  1.  ;;=M18.12^^50^541^76
  1.  ;;^UTILITY(U,$J,358.3,11951,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11951,1,3,0)
  1.  ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Left Hand,Unilat
  1.  ;;^UTILITY(U,$J,358.3,11951,1,4,0)
  1.  ;;=4^M18.12
  1.  ;;^UTILITY(U,$J,358.3,11951,2)
  1.  ;;=^5010798
  1.  ;;^UTILITY(U,$J,358.3,11952,0)
  1.  ;;=M19.031^^50^541^85
  1.  ;;^UTILITY(U,$J,358.3,11952,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11952,1,3,0)
  1.  ;;=3^Prim Osteoarth,Right Wrist
  1.  ;;^UTILITY(U,$J,358.3,11952,1,4,0)
  1.  ;;=4^M19.031
  1.  ;;^UTILITY(U,$J,358.3,11952,2)
  1.  ;;=^5010814
  1.  ;;^UTILITY(U,$J,358.3,11953,0)
  1.  ;;=M19.032^^50^541^81
  1.  ;;^UTILITY(U,$J,358.3,11953,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11953,1,3,0)
  1.  ;;=3^Prim Osteoarth,Left Wrist
  1.  ;;^UTILITY(U,$J,358.3,11953,1,4,0)
  1.  ;;=4^M19.032
  1.  ;;^UTILITY(U,$J,358.3,11953,2)
  1.  ;;=^5010815
  1.  ;;^UTILITY(U,$J,358.3,11954,0)
  1.  ;;=M19.041^^50^541^83
  1.  ;;^UTILITY(U,$J,358.3,11954,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11954,1,3,0)
  1.  ;;=3^Prim Osteoarth,Right Hand
  1.  ;;^UTILITY(U,$J,358.3,11954,1,4,0)
  1.  ;;=4^M19.041
  1.  ;;^UTILITY(U,$J,358.3,11954,2)
  1.  ;;=^5010817
  1.  ;;^UTILITY(U,$J,358.3,11955,0)
  1.  ;;=Z44.012^^50^542^4
  1.  ;;^UTILITY(U,$J,358.3,11955,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11955,1,3,0)
  1.  ;;=3^Fit/adjst of complete left artificial arm
  1.  ;;^UTILITY(U,$J,358.3,11955,1,4,0)
  1.  ;;=4^Z44.012
  1.  ;;^UTILITY(U,$J,358.3,11955,2)
  1.  ;;=^5062972
  1.  ;;^UTILITY(U,$J,358.3,11956,0)
  1.  ;;=Z44.011^^50^542^6
  1.  ;;^UTILITY(U,$J,358.3,11956,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11956,1,3,0)
  1.  ;;=3^Fit/adjst of complete right artificial arm
  1.  ;;^UTILITY(U,$J,358.3,11956,1,4,0)
  1.  ;;=4^Z44.011
  1.  ;;^UTILITY(U,$J,358.3,11956,2)
  1.  ;;=^5062971
  1.  ;;^UTILITY(U,$J,358.3,11957,0)
  1.  ;;=Z44.022^^50^542^10
  1.  ;;^UTILITY(U,$J,358.3,11957,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11957,1,3,0)
  1.  ;;=3^Fit/adjst of partial artificial left arm
  1.  ;;^UTILITY(U,$J,358.3,11957,1,4,0)
  1.  ;;=4^Z44.022
  1.  ;;^UTILITY(U,$J,358.3,11957,2)
  1.  ;;=^5062975
  1.  ;;^UTILITY(U,$J,358.3,11958,0)
  1.  ;;=Z44.021^^50^542^12
  1.  ;;^UTILITY(U,$J,358.3,11958,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11958,1,3,0)
  1.  ;;=3^Fit/adjst of partial artificial right arm
  1.  ;;^UTILITY(U,$J,358.3,11958,1,4,0)
  1.  ;;=4^Z44.021
  1.  ;;^UTILITY(U,$J,358.3,11958,2)
  1.  ;;=^5062974
  1.  ;;^UTILITY(U,$J,358.3,11959,0)
  1.  ;;=Z44.112^^50^542^5
  1.  ;;^UTILITY(U,$J,358.3,11959,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11959,1,3,0)
  1.  ;;=3^Fit/adjst of complete left artificial leg
  1.  ;;^UTILITY(U,$J,358.3,11959,1,4,0)
  1.  ;;=4^Z44.112
  1.  ;;^UTILITY(U,$J,358.3,11959,2)
  1.  ;;=^5062981
  1.  ;;^UTILITY(U,$J,358.3,11960,0)
  1.  ;;=Z44.111^^50^542^7
  1.  ;;^UTILITY(U,$J,358.3,11960,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11960,1,3,0)
  1.  ;;=3^Fit/adjst of complete right artificial leg
  1.  ;;^UTILITY(U,$J,358.3,11960,1,4,0)
  1.  ;;=4^Z44.111
  1.  ;;^UTILITY(U,$J,358.3,11960,2)
  1.  ;;=^5062980
  1.  ;;^UTILITY(U,$J,358.3,11961,0)
  1.  ;;=Z44.122^^50^542^11
  1.  ;;^UTILITY(U,$J,358.3,11961,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11961,1,3,0)
  1.  ;;=3^Fit/adjst of partial artificial left leg
  1.  ;;^UTILITY(U,$J,358.3,11961,1,4,0)
  1.  ;;=4^Z44.122
  1.  ;;^UTILITY(U,$J,358.3,11961,2)
  1.  ;;=^5062984
  1.  ;;^UTILITY(U,$J,358.3,11962,0)
  1.  ;;=Z44.121^^50^542^13
  1.  ;;^UTILITY(U,$J,358.3,11962,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11962,1,3,0)
  1.  ;;=3^Fit/adjst of partial artificial right leg
  1.  ;;^UTILITY(U,$J,358.3,11962,1,4,0)
  1.  ;;=4^Z44.121
  1.  ;;^UTILITY(U,$J,358.3,11962,2)
  1.  ;;=^5062983
  1.  ;;^UTILITY(U,$J,358.3,11963,0)
  1.  ;;=Z44.8^^50^542^8
  1.  ;;^UTILITY(U,$J,358.3,11963,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11963,1,3,0)
  1.  ;;=3^Fit/adjst of external prosthetic devices
  1.  ;;^UTILITY(U,$J,358.3,11963,1,4,0)
  1.  ;;=4^Z44.8
  1.  ;;^UTILITY(U,$J,358.3,11963,2)
  1.  ;;=^5062992
  1.  ;;^UTILITY(U,$J,358.3,11964,0)
  1.  ;;=Z46.89^^50^542^9
  1.  ;;^UTILITY(U,$J,358.3,11964,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11964,1,3,0)
  1.  ;;=3^Fit/adjst of oth devices
  1.  ;;^UTILITY(U,$J,358.3,11964,1,4,0)
  1.  ;;=4^Z46.89
  1.  ;;^UTILITY(U,$J,358.3,11964,2)
  1.  ;;=^5063023
  1.  ;;^UTILITY(U,$J,358.3,11965,0)
  1.  ;;=Z47.81^^50^542^16
  1.  ;;^UTILITY(U,$J,358.3,11965,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11965,1,3,0)
  1.  ;;=3^Ortho aftercare following surgical amp
  1.  ;;^UTILITY(U,$J,358.3,11965,1,4,0)
  1.  ;;=4^Z47.81
  1.  ;;^UTILITY(U,$J,358.3,11965,2)
  1.  ;;=^5063030
  1.  ;;^UTILITY(U,$J,358.3,11966,0)
  1.  ;;=Z47.82^^50^542^15
  1.  ;;^UTILITY(U,$J,358.3,11966,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11966,1,3,0)
  1.  ;;=3^Ortho aftercare following scoliosis surgery
  1.  ;;^UTILITY(U,$J,358.3,11966,1,4,0)
  1.  ;;=4^Z47.82
  1.  ;;^UTILITY(U,$J,358.3,11966,2)
  1.  ;;=^5063031
  1.  ;;^UTILITY(U,$J,358.3,11967,0)
  1.  ;;=Z47.89^^50^542^14
  1.  ;;^UTILITY(U,$J,358.3,11967,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11967,1,3,0)
  1.  ;;=3^Ortho Aftercare NEC
  1.  ;;^UTILITY(U,$J,358.3,11967,1,4,0)
  1.  ;;=4^Z47.89
  1.  ;;^UTILITY(U,$J,358.3,11967,2)
  1.  ;;=^5063032
  1.  ;;^UTILITY(U,$J,358.3,11968,0)
  1.  ;;=Z51.89^^50^542^2
  1.  ;;^UTILITY(U,$J,358.3,11968,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11968,1,3,0)
  1.  ;;=3^Encounter for Other Specified Aftercare
  1.  ;;^UTILITY(U,$J,358.3,11968,1,4,0)
  1.  ;;=4^Z51.89
  1.  ;;^UTILITY(U,$J,358.3,11968,2)
  1.  ;;=^5063065
  1.  ;;^UTILITY(U,$J,358.3,11969,0)
  1.  ;;=Z02.89^^50^542^1
  1.  ;;^UTILITY(U,$J,358.3,11969,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11969,1,3,0)
  1.  ;;=3^Administrative Exams
  1.  ;;^UTILITY(U,$J,358.3,11969,1,4,0)
  1.  ;;=4^Z02.89
  1.  ;;^UTILITY(U,$J,358.3,11969,2)
  1.  ;;=^5062645
  1.  ;;^UTILITY(U,$J,358.3,11970,0)
  1.  ;;=Z02.5^^50^542^3
  1.  ;;^UTILITY(U,$J,358.3,11970,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11970,1,3,0)
  1.  ;;=3^Exam for Sport Participation
  1.  ;;^UTILITY(U,$J,358.3,11970,1,4,0)
  1.  ;;=4^Z02.5
  1.  ;;^UTILITY(U,$J,358.3,11970,2)
  1.  ;;=^5062638
  1.  ;;^UTILITY(U,$J,358.3,11971,0)
  1.  ;;=S06.0X9D^^50^543^1
  1.  ;;^UTILITY(U,$J,358.3,11971,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11971,1,3,0)
  1.  ;;=3^Concussion w LOC,unsp duration,subsq
  1.  ;;^UTILITY(U,$J,358.3,11971,1,4,0)
  1.  ;;=4^S06.0X9D
  1.  ;;^UTILITY(U,$J,358.3,11971,2)
  1.  ;;=^5020694
  1.  ;;^UTILITY(U,$J,358.3,11972,0)
  1.  ;;=S06.0X0D^^50^543^2
  1.  ;;^UTILITY(U,$J,358.3,11972,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11972,1,3,0)
  1.  ;;=3^Concussion w/o LOC,subsq
  1.  ;;^UTILITY(U,$J,358.3,11972,1,4,0)
  1.  ;;=4^S06.0X0D
  1.  ;;^UTILITY(U,$J,358.3,11972,2)
  1.  ;;=^5020667
  1.  ;;^UTILITY(U,$J,358.3,11973,0)
  1.  ;;=S06.329D^^50^543^3
  1.  ;;^UTILITY(U,$J,358.3,11973,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11973,1,3,0)
  1.  ;;=3^Contus/lac left cerebrum w LOC,unsp duration,subsq
  1.  ;;^UTILITY(U,$J,358.3,11973,1,4,0)
  1.  ;;=4^S06.329D
  1.  ;;^UTILITY(U,$J,358.3,11973,2)
  1.  ;;=^5020844
  1.  ;;^UTILITY(U,$J,358.3,11974,0)
  1.  ;;=S06.320D^^50^543^4
  1.  ;;^UTILITY(U,$J,358.3,11974,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11974,1,3,0)
  1.  ;;=3^Contus/lac left cerebrum w/o LOC,subsq
  1.  ;;^UTILITY(U,$J,358.3,11974,1,4,0)
  1.  ;;=4^S06.320D
  1.  ;;^UTILITY(U,$J,358.3,11974,2)
  1.  ;;=^5020817
  1.  ;;^UTILITY(U,$J,358.3,11975,0)
  1.  ;;=S06.319D^^50^543^5
  1.  ;;^UTILITY(U,$J,358.3,11975,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11975,1,3,0)
  1.  ;;=3^Contus/lac right cerebrum w LOC,unsp duration,subsq
  1.  ;;^UTILITY(U,$J,358.3,11975,1,4,0)
  1.  ;;=4^S06.319D
  1.  ;;^UTILITY(U,$J,358.3,11975,2)
  1.  ;;=^5020814
  1.  ;;^UTILITY(U,$J,358.3,11976,0)
  1.  ;;=S06.310D^^50^543^6
  1.  ;;^UTILITY(U,$J,358.3,11976,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,11976,1,3,0)
  1.  ;;=3^Contus/lac right cerebrum w/o LOC,subsq