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