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

IBDEI0DX.m

Go to the documentation of this file.
IBDEI0DX ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,34909,1,4,0)
 ;;=4^M06.4
 ;;^UTILITY(U,$J,358.3,34909,2)
 ;;=^5010120
 ;;^UTILITY(U,$J,358.3,34910,0)
 ;;=M06.39^^105^1439^163
 ;;^UTILITY(U,$J,358.3,34910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34910,1,3,0)
 ;;=3^Rheumatoid Nodule,Mult Sites
 ;;^UTILITY(U,$J,358.3,34910,1,4,0)
 ;;=4^M06.39
 ;;^UTILITY(U,$J,358.3,34910,2)
 ;;=^5010119
 ;;^UTILITY(U,$J,358.3,34911,0)
 ;;=M15.0^^105^1439^127
 ;;^UTILITY(U,$J,358.3,34911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34911,1,3,0)
 ;;=3^Primary Generalized Osteoarthritis
 ;;^UTILITY(U,$J,358.3,34911,1,4,0)
 ;;=4^M15.0
 ;;^UTILITY(U,$J,358.3,34911,2)
 ;;=^5010762
 ;;^UTILITY(U,$J,358.3,34912,0)
 ;;=M06.9^^105^1439^162
 ;;^UTILITY(U,$J,358.3,34912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34912,1,3,0)
 ;;=3^Rheumatoid Arthritis,Unspec
 ;;^UTILITY(U,$J,358.3,34912,1,4,0)
 ;;=4^M06.9
 ;;^UTILITY(U,$J,358.3,34912,2)
 ;;=^5010145
 ;;^UTILITY(U,$J,358.3,34913,0)
 ;;=M16.0^^105^1439^130
 ;;^UTILITY(U,$J,358.3,34913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34913,1,3,0)
 ;;=3^Primary Osteoarthritis of Hip,Bilateral
 ;;^UTILITY(U,$J,358.3,34913,1,4,0)
 ;;=4^M16.0
 ;;^UTILITY(U,$J,358.3,34913,2)
 ;;=^5010769
 ;;^UTILITY(U,$J,358.3,34914,0)
 ;;=M16.11^^105^1439^139
 ;;^UTILITY(U,$J,358.3,34914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34914,1,3,0)
 ;;=3^Primary Osteoarthritis of Right Hip
 ;;^UTILITY(U,$J,358.3,34914,1,4,0)
 ;;=4^M16.11
 ;;^UTILITY(U,$J,358.3,34914,2)
 ;;=^5010771
 ;;^UTILITY(U,$J,358.3,34915,0)
 ;;=M16.12^^105^1439^133
 ;;^UTILITY(U,$J,358.3,34915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34915,1,3,0)
 ;;=3^Primary Osteoarthritis of Left Hip
 ;;^UTILITY(U,$J,358.3,34915,1,4,0)
 ;;=4^M16.12
 ;;^UTILITY(U,$J,358.3,34915,2)
 ;;=^5010772
 ;;^UTILITY(U,$J,358.3,34916,0)
 ;;=M17.0^^105^1439^129
 ;;^UTILITY(U,$J,358.3,34916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34916,1,3,0)
 ;;=3^Primary Osteoarthritis of Bilateral Knees
 ;;^UTILITY(U,$J,358.3,34916,1,4,0)
 ;;=4^M17.0
 ;;^UTILITY(U,$J,358.3,34916,2)
 ;;=^5010784
 ;;^UTILITY(U,$J,358.3,34917,0)
 ;;=M17.11^^105^1439^140
 ;;^UTILITY(U,$J,358.3,34917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34917,1,3,0)
 ;;=3^Primary Osteoarthritis of Right Knee
 ;;^UTILITY(U,$J,358.3,34917,1,4,0)
 ;;=4^M17.11
 ;;^UTILITY(U,$J,358.3,34917,2)
 ;;=^5010786
 ;;^UTILITY(U,$J,358.3,34918,0)
 ;;=M17.12^^105^1439^134
 ;;^UTILITY(U,$J,358.3,34918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34918,1,3,0)
 ;;=3^Primary Osteoarthritis of Left Knee
 ;;^UTILITY(U,$J,358.3,34918,1,4,0)
 ;;=4^M17.12
 ;;^UTILITY(U,$J,358.3,34918,2)
 ;;=^5010787
 ;;^UTILITY(U,$J,358.3,34919,0)
 ;;=M18.0^^105^1439^128
 ;;^UTILITY(U,$J,358.3,34919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34919,1,3,0)
 ;;=3^Primary Osteoarthritis of Bilateral 1st Carpometacarp Jts
 ;;^UTILITY(U,$J,358.3,34919,1,4,0)
 ;;=4^M18.0
 ;;^UTILITY(U,$J,358.3,34919,2)
 ;;=^5010795
 ;;^UTILITY(U,$J,358.3,34920,0)
 ;;=M18.11^^105^1439^138
 ;;^UTILITY(U,$J,358.3,34920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34920,1,3,0)
 ;;=3^Primary Osteoarthritis of Right Hand 1st Carpometacarp Jt
 ;;^UTILITY(U,$J,358.3,34920,1,4,0)
 ;;=4^M18.11
 ;;^UTILITY(U,$J,358.3,34920,2)
 ;;=^5010797
 ;;^UTILITY(U,$J,358.3,34921,0)
 ;;=M18.12^^105^1439^132
 ;;^UTILITY(U,$J,358.3,34921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34921,1,3,0)
 ;;=3^Primary Osteoarthritis of Left Hand 1st Carpometacarp Jt
 ;;^UTILITY(U,$J,358.3,34921,1,4,0)
 ;;=4^M18.12
 ;;^UTILITY(U,$J,358.3,34921,2)
 ;;=^5010798
 ;;^UTILITY(U,$J,358.3,34922,0)
 ;;=M19.011^^105^1439^141
 ;;^UTILITY(U,$J,358.3,34922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34922,1,3,0)
 ;;=3^Primary Osteoarthritis of Right Shoulder
 ;;^UTILITY(U,$J,358.3,34922,1,4,0)
 ;;=4^M19.011
 ;;^UTILITY(U,$J,358.3,34922,2)
 ;;=^5010808
 ;;^UTILITY(U,$J,358.3,34923,0)
 ;;=M19.012^^105^1439^135
 ;;^UTILITY(U,$J,358.3,34923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34923,1,3,0)
 ;;=3^Primary Osteoarthritis of Left Shoulder
 ;;^UTILITY(U,$J,358.3,34923,1,4,0)
 ;;=4^M19.012
 ;;^UTILITY(U,$J,358.3,34923,2)
 ;;=^5010809
 ;;^UTILITY(U,$J,358.3,34924,0)
 ;;=M19.031^^105^1439^142
 ;;^UTILITY(U,$J,358.3,34924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34924,1,3,0)
 ;;=3^Primary Osteoarthritis of Right Wrist
 ;;^UTILITY(U,$J,358.3,34924,1,4,0)
 ;;=4^M19.031
 ;;^UTILITY(U,$J,358.3,34924,2)
 ;;=^5010814
 ;;^UTILITY(U,$J,358.3,34925,0)
 ;;=M19.032^^105^1439^136
 ;;^UTILITY(U,$J,358.3,34925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34925,1,3,0)
 ;;=3^Primary Osteoarthritis of Left Wrist
 ;;^UTILITY(U,$J,358.3,34925,1,4,0)
 ;;=4^M19.032
 ;;^UTILITY(U,$J,358.3,34925,2)
 ;;=^5010815
 ;;^UTILITY(U,$J,358.3,34926,0)
 ;;=M19.041^^105^1439^137
 ;;^UTILITY(U,$J,358.3,34926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34926,1,3,0)
 ;;=3^Primary Osteoarthritis of Right Hand
 ;;^UTILITY(U,$J,358.3,34926,1,4,0)
 ;;=4^M19.041
 ;;^UTILITY(U,$J,358.3,34926,2)
 ;;=^5010817
 ;;^UTILITY(U,$J,358.3,34927,0)
 ;;=M19.042^^105^1439^131
 ;;^UTILITY(U,$J,358.3,34927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34927,1,3,0)
 ;;=3^Primary Osteoarthritis of Left Hand
 ;;^UTILITY(U,$J,358.3,34927,1,4,0)
 ;;=4^M19.042
 ;;^UTILITY(U,$J,358.3,34927,2)
 ;;=^5010818
 ;;^UTILITY(U,$J,358.3,34928,0)
 ;;=M19.90^^105^1439^72
 ;;^UTILITY(U,$J,358.3,34928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34928,1,3,0)
 ;;=3^Osteoarthritis,Unspec
 ;;^UTILITY(U,$J,358.3,34928,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,34928,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,34929,0)
 ;;=M25.40^^105^1439^38
 ;;^UTILITY(U,$J,358.3,34929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34929,1,3,0)
 ;;=3^Effusion,Unspec
 ;;^UTILITY(U,$J,358.3,34929,1,4,0)
 ;;=4^M25.40
 ;;^UTILITY(U,$J,358.3,34929,2)
 ;;=^5011575
 ;;^UTILITY(U,$J,358.3,34930,0)
 ;;=M45.0^^105^1439^6
 ;;^UTILITY(U,$J,358.3,34930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34930,1,3,0)
 ;;=3^Ankylosing Spondylitis of Spine,Mult Sites
 ;;^UTILITY(U,$J,358.3,34930,1,4,0)
 ;;=4^M45.0
 ;;^UTILITY(U,$J,358.3,34930,2)
 ;;=^5011960
 ;;^UTILITY(U,$J,358.3,34931,0)
 ;;=M45.2^^105^1439^3
 ;;^UTILITY(U,$J,358.3,34931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34931,1,3,0)
 ;;=3^Ankylosing Spondylitis of Cervical Region
 ;;^UTILITY(U,$J,358.3,34931,1,4,0)
 ;;=4^M45.2
 ;;^UTILITY(U,$J,358.3,34931,2)
 ;;=^5011962
 ;;^UTILITY(U,$J,358.3,34932,0)
 ;;=M45.4^^105^1439^7
 ;;^UTILITY(U,$J,358.3,34932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34932,1,3,0)
 ;;=3^Ankylosing Spondylitis of Thoracic Region
 ;;^UTILITY(U,$J,358.3,34932,1,4,0)
 ;;=4^M45.4
 ;;^UTILITY(U,$J,358.3,34932,2)
 ;;=^5011964
 ;;^UTILITY(U,$J,358.3,34933,0)
 ;;=M45.7^^105^1439^4
 ;;^UTILITY(U,$J,358.3,34933,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34933,1,3,0)
 ;;=3^Ankylosing Spondylitis of Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,34933,1,4,0)
 ;;=4^M45.7
 ;;^UTILITY(U,$J,358.3,34933,2)
 ;;=^5011967
 ;;^UTILITY(U,$J,358.3,34934,0)
 ;;=M45.8^^105^1439^5
 ;;^UTILITY(U,$J,358.3,34934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34934,1,3,0)
 ;;=3^Ankylosing Spondylitis of Sacral/Sacrococcygeal Region
 ;;^UTILITY(U,$J,358.3,34934,1,4,0)
 ;;=4^M45.8
 ;;^UTILITY(U,$J,358.3,34934,2)
 ;;=^5011968
 ;;^UTILITY(U,$J,358.3,34935,0)
 ;;=M47.22^^105^1439^180
 ;;^UTILITY(U,$J,358.3,34935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34935,1,3,0)
 ;;=3^Sponylosis w/ Radiculopathy,Cervical Region NEC
 ;;^UTILITY(U,$J,358.3,34935,1,4,0)
 ;;=4^M47.22
 ;;^UTILITY(U,$J,358.3,34935,2)
 ;;=^5012061
 ;;^UTILITY(U,$J,358.3,34936,0)
 ;;=M47.24^^105^1439^182
 ;;^UTILITY(U,$J,358.3,34936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34936,1,3,0)
 ;;=3^Sponylosis w/ Radiculopathy,Thoracic Region NEC
 ;;^UTILITY(U,$J,358.3,34936,1,4,0)
 ;;=4^M47.24
 ;;^UTILITY(U,$J,358.3,34936,2)
 ;;=^5012063
 ;;^UTILITY(U,$J,358.3,34937,0)
 ;;=M47.27^^105^1439^181
 ;;^UTILITY(U,$J,358.3,34937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34937,1,3,0)
 ;;=3^Sponylosis w/ Radiculopathy,Lumbosacral Region NEC
 ;;^UTILITY(U,$J,358.3,34937,1,4,0)
 ;;=4^M47.27
 ;;^UTILITY(U,$J,358.3,34937,2)
 ;;=^5012066
 ;;^UTILITY(U,$J,358.3,34938,0)
 ;;=M47.812^^105^1439^177
 ;;^UTILITY(U,$J,358.3,34938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34938,1,3,0)
 ;;=3^Spondylosis w/o Myelopathy/Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,34938,1,4,0)
 ;;=4^M47.812
 ;;^UTILITY(U,$J,358.3,34938,2)
 ;;=^5012069
 ;;^UTILITY(U,$J,358.3,34939,0)
 ;;=M47.814^^105^1439^178
 ;;^UTILITY(U,$J,358.3,34939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34939,1,3,0)
 ;;=3^Spondylosis w/o Myelopathy/Radiculopathy,Thoracic Region
 ;;^UTILITY(U,$J,358.3,34939,1,4,0)
 ;;=4^M47.814
 ;;^UTILITY(U,$J,358.3,34939,2)
 ;;=^5012071
 ;;^UTILITY(U,$J,358.3,34940,0)
 ;;=M47.817^^105^1439^179
 ;;^UTILITY(U,$J,358.3,34940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34940,1,3,0)
 ;;=3^Spondylosis w/o Myelopathy/Radiculopathy,Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,34940,1,4,0)
 ;;=4^M47.817
 ;;^UTILITY(U,$J,358.3,34940,2)
 ;;=^5012074
 ;;^UTILITY(U,$J,358.3,34941,0)
 ;;=M48.50XA^^105^1439^22
 ;;^UTILITY(U,$J,358.3,34941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34941,1,3,0)
 ;;=3^Collapsed Vertebra NEC,Site Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,34941,1,4,0)
 ;;=4^M48.50XA
 ;;^UTILITY(U,$J,358.3,34941,2)
 ;;=^5012159
 ;;^UTILITY(U,$J,358.3,34942,0)
 ;;=M48.50XD^^105^1439^23
 ;;^UTILITY(U,$J,358.3,34942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34942,1,3,0)
 ;;=3^Collapsed Vertebra NEC,Site Unspec,Subs Encntr
 ;;^UTILITY(U,$J,358.3,34942,1,4,0)
 ;;=4^M48.50XD
 ;;^UTILITY(U,$J,358.3,34942,2)
 ;;=^5012160
 ;;^UTILITY(U,$J,358.3,34943,0)
 ;;=M48.52XA^^105^1439^24
 ;;^UTILITY(U,$J,358.3,34943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34943,1,3,0)
 ;;=3^Collapsed Vertebra,Cervical Region,Init Encntr
 ;;^UTILITY(U,$J,358.3,34943,1,4,0)
 ;;=4^M48.52XA
 ;;^UTILITY(U,$J,358.3,34943,2)
 ;;=^5012167
 ;;^UTILITY(U,$J,358.3,34944,0)
 ;;=M48.52XD^^105^1439^25
 ;;^UTILITY(U,$J,358.3,34944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34944,1,3,0)
 ;;=3^Collapsed Vertebra,Cervical Region,Subs Encntr,Rt Healing
 ;;^UTILITY(U,$J,358.3,34944,1,4,0)
 ;;=4^M48.52XD
 ;;^UTILITY(U,$J,358.3,34944,2)
 ;;=^5012168
 ;;^UTILITY(U,$J,358.3,34945,0)
 ;;=M48.54XA^^105^1439^33
 ;;^UTILITY(U,$J,358.3,34945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34945,1,3,0)
 ;;=3^Collapsed Vertebra,Throacic Region,Init Encntr
 ;;^UTILITY(U,$J,358.3,34945,1,4,0)
 ;;=4^M48.54XA
 ;;^UTILITY(U,$J,358.3,34945,2)
 ;;=^5012175
 ;;^UTILITY(U,$J,358.3,34946,0)
 ;;=M48.54XD^^105^1439^34
 ;;^UTILITY(U,$J,358.3,34946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34946,1,3,0)
 ;;=3^Collapsed Vertebra,Throacic Region,Subs Encntr
 ;;^UTILITY(U,$J,358.3,34946,1,4,0)
 ;;=4^M48.54XD
 ;;^UTILITY(U,$J,358.3,34946,2)
 ;;=^5012176
 ;;^UTILITY(U,$J,358.3,34947,0)
 ;;=M48.57XA^^105^1439^26
 ;;^UTILITY(U,$J,358.3,34947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34947,1,3,0)
 ;;=3^Collapsed Vertebra,Lumbosacral Region,Init Encntr
 ;;^UTILITY(U,$J,358.3,34947,1,4,0)
 ;;=4^M48.57XA
 ;;^UTILITY(U,$J,358.3,34947,2)
 ;;=^5012187
 ;;^UTILITY(U,$J,358.3,34948,0)
 ;;=M48.57XD^^105^1439^27
 ;;^UTILITY(U,$J,358.3,34948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34948,1,3,0)
 ;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Rt Healing
 ;;^UTILITY(U,$J,358.3,34948,1,4,0)
 ;;=4^M48.57XD
 ;;^UTILITY(U,$J,358.3,34948,2)
 ;;=^5012188
 ;;^UTILITY(U,$J,358.3,34949,0)
 ;;=M50.30^^105^1439^14
 ;;^UTILITY(U,$J,358.3,34949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34949,1,3,0)
 ;;=3^Cervical Disc Degeneration,Unspec Region
 ;;^UTILITY(U,$J,358.3,34949,1,4,0)
 ;;=4^M50.30
 ;;^UTILITY(U,$J,358.3,34949,2)
 ;;=^5012227
 ;;^UTILITY(U,$J,358.3,34950,0)
 ;;=M51.14^^105^1439^55
 ;;^UTILITY(U,$J,358.3,34950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34950,1,3,0)
 ;;=3^Intvrt Disc Disorder w/ Radiculopathy,Thoracic Region
 ;;^UTILITY(U,$J,358.3,34950,1,4,0)
 ;;=4^M51.14
 ;;^UTILITY(U,$J,358.3,34950,2)
 ;;=^5012243
 ;;^UTILITY(U,$J,358.3,34951,0)
 ;;=M51.17^^105^1439^54
 ;;^UTILITY(U,$J,358.3,34951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34951,1,3,0)
 ;;=3^Intvrt Disc Disorder w/ Radiculopathy,Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,34951,1,4,0)
 ;;=4^M51.17
 ;;^UTILITY(U,$J,358.3,34951,2)
 ;;=^5012246
 ;;^UTILITY(U,$J,358.3,34952,0)
 ;;=M51.34^^105^1439^53
 ;;^UTILITY(U,$J,358.3,34952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34952,1,3,0)
 ;;=3^Intvrt Disc Degeneration,Thoracic Region
 ;;^UTILITY(U,$J,358.3,34952,1,4,0)
 ;;=4^M51.34
 ;;^UTILITY(U,$J,358.3,34952,2)
 ;;=^5012251
 ;;^UTILITY(U,$J,358.3,34953,0)
 ;;=M51.37^^105^1439^52
 ;;^UTILITY(U,$J,358.3,34953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34953,1,3,0)
 ;;=3^Intvrt Disc Degeneration,Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,34953,1,4,0)
 ;;=4^M51.37
 ;;^UTILITY(U,$J,358.3,34953,2)
 ;;=^5012254
 ;;^UTILITY(U,$J,358.3,34954,0)
 ;;=M54.14^^105^1439^146
 ;;^UTILITY(U,$J,358.3,34954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34954,1,3,0)
 ;;=3^Radiculopathy,Thoracic Region
 ;;^UTILITY(U,$J,358.3,34954,1,4,0)
 ;;=4^M54.14
 ;;^UTILITY(U,$J,358.3,34954,2)
 ;;=^5012299
 ;;^UTILITY(U,$J,358.3,34955,0)
 ;;=M54.17^^105^1439^145
 ;;^UTILITY(U,$J,358.3,34955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34955,1,3,0)
 ;;=3^Radiculopathy,Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,34955,1,4,0)
 ;;=4^M54.17
 ;;^UTILITY(U,$J,358.3,34955,2)
 ;;=^5012302
 ;;^UTILITY(U,$J,358.3,34956,0)
 ;;=M54.2^^105^1439^15
 ;;^UTILITY(U,$J,358.3,34956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34956,1,3,0)
 ;;=3^Cervicalgia
 ;;^UTILITY(U,$J,358.3,34956,1,4,0)
 ;;=4^M54.2
 ;;^UTILITY(U,$J,358.3,34956,2)
 ;;=^5012304
 ;;^UTILITY(U,$J,358.3,34957,0)
 ;;=M54.31^^105^1439^169
 ;;^UTILITY(U,$J,358.3,34957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34957,1,3,0)
 ;;=3^Sciatica,Right Side
 ;;^UTILITY(U,$J,358.3,34957,1,4,0)
 ;;=4^M54.31
 ;;^UTILITY(U,$J,358.3,34957,2)
 ;;=^5012306
 ;;^UTILITY(U,$J,358.3,34958,0)
 ;;=M54.32^^105^1439^168
 ;;^UTILITY(U,$J,358.3,34958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34958,1,3,0)
 ;;=3^Sciatica,Left Side
 ;;^UTILITY(U,$J,358.3,34958,1,4,0)
 ;;=4^M54.32
 ;;^UTILITY(U,$J,358.3,34958,2)
 ;;=^5012307
 ;;^UTILITY(U,$J,358.3,34959,0)
 ;;=M60.9^^105^1439^66
 ;;^UTILITY(U,$J,358.3,34959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34959,1,3,0)
 ;;=3^Myositis,Unspec
 ;;^UTILITY(U,$J,358.3,34959,1,4,0)
 ;;=4^M60.9
 ;;^UTILITY(U,$J,358.3,34959,2)
 ;;=^5012409
 ;;^UTILITY(U,$J,358.3,34960,0)
 ;;=M62.40^^105^1439^36
 ;;^UTILITY(U,$J,358.3,34960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34960,1,3,0)
 ;;=3^Contracture of Muscle,Unspec
 ;;^UTILITY(U,$J,358.3,34960,1,4,0)
 ;;=4^M62.40
 ;;^UTILITY(U,$J,358.3,34960,2)
 ;;=^5012631
 ;;^UTILITY(U,$J,358.3,34961,0)
 ;;=M62.831^^105^1439^64
 ;;^UTILITY(U,$J,358.3,34961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34961,1,3,0)
 ;;=3^Muscle Spasm of Calf
 ;;^UTILITY(U,$J,358.3,34961,1,4,0)
 ;;=4^M62.831
 ;;^UTILITY(U,$J,358.3,34961,2)
 ;;=^5012681
 ;;^UTILITY(U,$J,358.3,34962,0)
 ;;=M62.838^^105^1439^62
 ;;^UTILITY(U,$J,358.3,34962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34962,1,3,0)
 ;;=3^Muscle Spasm NEC
 ;;^UTILITY(U,$J,358.3,34962,1,4,0)
 ;;=4^M62.838
 ;;^UTILITY(U,$J,358.3,34962,2)
 ;;=^5012682
 ;;^UTILITY(U,$J,358.3,34963,0)
 ;;=M70.21^^105^1439^68
 ;;^UTILITY(U,$J,358.3,34963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34963,1,3,0)
 ;;=3^Olecranon Bursitis,Right Elbow
 ;;^UTILITY(U,$J,358.3,34963,1,4,0)
 ;;=4^M70.21
 ;;^UTILITY(U,$J,358.3,34963,2)
 ;;=^5013047
 ;;^UTILITY(U,$J,358.3,34964,0)
 ;;=M70.22^^105^1439^67
 ;;^UTILITY(U,$J,358.3,34964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34964,1,3,0)
 ;;=3^Olecranon Bursitis,Left Elbow
 ;;^UTILITY(U,$J,358.3,34964,1,4,0)
 ;;=4^M70.22
 ;;^UTILITY(U,$J,358.3,34964,2)
 ;;=^5013048
 ;;^UTILITY(U,$J,358.3,34965,0)
 ;;=M71.161^^105^1439^50
 ;;^UTILITY(U,$J,358.3,34965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34965,1,3,0)
 ;;=3^Infective Bursitis,Right Knee
 ;;^UTILITY(U,$J,358.3,34965,1,4,0)
 ;;=4^M71.161
 ;;^UTILITY(U,$J,358.3,34965,2)
 ;;=^5013139
 ;;^UTILITY(U,$J,358.3,34966,0)
 ;;=M71.162^^105^1439^49
 ;;^UTILITY(U,$J,358.3,34966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34966,1,3,0)
 ;;=3^Infective Bursitis,Left Knee
 ;;^UTILITY(U,$J,358.3,34966,1,4,0)
 ;;=4^M71.162
 ;;^UTILITY(U,$J,358.3,34966,2)
 ;;=^5013140
 ;;^UTILITY(U,$J,358.3,34967,0)
 ;;=M72.0^^105^1439^122
 ;;^UTILITY(U,$J,358.3,34967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34967,1,3,0)
 ;;=3^Palmar Fascial Fibromatosis
 ;;^UTILITY(U,$J,358.3,34967,1,4,0)
 ;;=4^M72.0
 ;;^UTILITY(U,$J,358.3,34967,2)
 ;;=^5013233
 ;;^UTILITY(U,$J,358.3,34968,0)
 ;;=M75.111^^105^1439^167
 ;;^UTILITY(U,$J,358.3,34968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34968,1,3,0)
 ;;=3^Rotator Cuff Syndrome,Right Shoulder
 ;;^UTILITY(U,$J,358.3,34968,1,4,0)
 ;;=4^M75.111
 ;;^UTILITY(U,$J,358.3,34968,2)
 ;;=^5013245
 ;;^UTILITY(U,$J,358.3,34969,0)
 ;;=M75.112^^105^1439^166
 ;;^UTILITY(U,$J,358.3,34969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34969,1,3,0)
 ;;=3^Rotator Cuff Syndrome,Left Shoulder
 ;;^UTILITY(U,$J,358.3,34969,1,4,0)
 ;;=4^M75.112
 ;;^UTILITY(U,$J,358.3,34969,2)
 ;;=^5013246
 ;;^UTILITY(U,$J,358.3,34970,0)
 ;;=M75.51^^105^1439^10
 ;;^UTILITY(U,$J,358.3,34970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34970,1,3,0)
 ;;=3^Bursitis of Right Shoulder
 ;;^UTILITY(U,$J,358.3,34970,1,4,0)
 ;;=4^M75.51
 ;;^UTILITY(U,$J,358.3,34970,2)
 ;;=^5133690
 ;;^UTILITY(U,$J,358.3,34971,0)
 ;;=M75.52^^105^1439^9
 ;;^UTILITY(U,$J,358.3,34971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34971,1,3,0)
 ;;=3^Bursitis of Left Shoulder
 ;;^UTILITY(U,$J,358.3,34971,1,4,0)
 ;;=4^M75.52
 ;;^UTILITY(U,$J,358.3,34971,2)
 ;;=^5133691
 ;;^UTILITY(U,$J,358.3,34972,0)
 ;;=M77.11^^105^1439^58
 ;;^UTILITY(U,$J,358.3,34972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34972,1,3,0)
 ;;=3^Lateral Epicondylitis,Right Elbow
 ;;^UTILITY(U,$J,358.3,34972,1,4,0)
 ;;=4^M77.11
 ;;^UTILITY(U,$J,358.3,34972,2)
 ;;=^5013304
 ;;^UTILITY(U,$J,358.3,34973,0)
 ;;=M77.12^^105^1439^57
 ;;^UTILITY(U,$J,358.3,34973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34973,1,3,0)
 ;;=3^Lateral Epicondylitis,Left Elbow
 ;;^UTILITY(U,$J,358.3,34973,1,4,0)
 ;;=4^M77.12
 ;;^UTILITY(U,$J,358.3,34973,2)
 ;;=^5013305
 ;;^UTILITY(U,$J,358.3,34974,0)
 ;;=M79.7^^105^1439^40
 ;;^UTILITY(U,$J,358.3,34974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34974,1,3,0)
 ;;=3^Fibromyalgia
 ;;^UTILITY(U,$J,358.3,34974,1,4,0)
 ;;=4^M79.7
 ;;^UTILITY(U,$J,358.3,34974,2)
 ;;=^46261
 ;;^UTILITY(U,$J,358.3,34975,0)
 ;;=M80.08XA^^105^1439^1
 ;;^UTILITY(U,$J,358.3,34975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34975,1,3,0)
 ;;=3^Age-Related Osteoporosis w/ Vertebra Fx,Init Encntr
 ;;^UTILITY(U,$J,358.3,34975,1,4,0)
 ;;=4^M80.08XA
 ;;^UTILITY(U,$J,358.3,34975,2)
 ;;=^5013495
 ;;^UTILITY(U,$J,358.3,34976,0)
 ;;=M80.08XD^^105^1439^2