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

IBDEI03Z.m

Go to the documentation of this file.
IBDEI03Z ; ; 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,9565,1,3,0)
 ;;=3^Pathological Fx,Oth Site,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9565,1,4,0)
 ;;=4^M84.48XD
 ;;^UTILITY(U,$J,358.3,9565,2)
 ;;=^5014017
 ;;^UTILITY(U,$J,358.3,9566,0)
 ;;=M87.011^^45^437^48
 ;;^UTILITY(U,$J,358.3,9566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9566,1,3,0)
 ;;=3^Idiopathic Aseptic Necrosis of Right Shoulder
 ;;^UTILITY(U,$J,358.3,9566,1,4,0)
 ;;=4^M87.011
 ;;^UTILITY(U,$J,358.3,9566,2)
 ;;=^5014658
 ;;^UTILITY(U,$J,358.3,9567,0)
 ;;=M87.012^^45^437^45
 ;;^UTILITY(U,$J,358.3,9567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9567,1,3,0)
 ;;=3^Idiopathic Aseptic Necrosis of Left Shoulder
 ;;^UTILITY(U,$J,358.3,9567,1,4,0)
 ;;=4^M87.012
 ;;^UTILITY(U,$J,358.3,9567,2)
 ;;=^5014659
 ;;^UTILITY(U,$J,358.3,9568,0)
 ;;=M87.050^^45^437^46
 ;;^UTILITY(U,$J,358.3,9568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9568,1,3,0)
 ;;=3^Idiopathic Aseptic Necrosis of Pelvis
 ;;^UTILITY(U,$J,358.3,9568,1,4,0)
 ;;=4^M87.050
 ;;^UTILITY(U,$J,358.3,9568,2)
 ;;=^5014679
 ;;^UTILITY(U,$J,358.3,9569,0)
 ;;=M87.051^^45^437^47
 ;;^UTILITY(U,$J,358.3,9569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9569,1,3,0)
 ;;=3^Idiopathic Aseptic Necrosis of Right Femur
 ;;^UTILITY(U,$J,358.3,9569,1,4,0)
 ;;=4^M87.051
 ;;^UTILITY(U,$J,358.3,9569,2)
 ;;=^5014680
 ;;^UTILITY(U,$J,358.3,9570,0)
 ;;=M87.052^^45^437^44
 ;;^UTILITY(U,$J,358.3,9570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9570,1,3,0)
 ;;=3^Idiopathic Aseptic Necrosis of Left Femur
 ;;^UTILITY(U,$J,358.3,9570,1,4,0)
 ;;=4^M87.052
 ;;^UTILITY(U,$J,358.3,9570,2)
 ;;=^5014681
 ;;^UTILITY(U,$J,358.3,9571,0)
 ;;=M87.111^^45^437^78
 ;;^UTILITY(U,$J,358.3,9571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9571,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Right Shoulder
 ;;^UTILITY(U,$J,358.3,9571,1,4,0)
 ;;=4^M87.111
 ;;^UTILITY(U,$J,358.3,9571,2)
 ;;=^5014701
 ;;^UTILITY(U,$J,358.3,9572,0)
 ;;=M87.112^^45^437^75
 ;;^UTILITY(U,$J,358.3,9572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9572,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Left Shoulder
 ;;^UTILITY(U,$J,358.3,9572,1,4,0)
 ;;=4^M87.112
 ;;^UTILITY(U,$J,358.3,9572,2)
 ;;=^5014702
 ;;^UTILITY(U,$J,358.3,9573,0)
 ;;=M87.150^^45^437^76
 ;;^UTILITY(U,$J,358.3,9573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9573,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Pelvis
 ;;^UTILITY(U,$J,358.3,9573,1,4,0)
 ;;=4^M87.150
 ;;^UTILITY(U,$J,358.3,9573,2)
 ;;=^5014722
 ;;^UTILITY(U,$J,358.3,9574,0)
 ;;=M87.151^^45^437^77
 ;;^UTILITY(U,$J,358.3,9574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9574,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Right Femur
 ;;^UTILITY(U,$J,358.3,9574,1,4,0)
 ;;=4^M87.151
 ;;^UTILITY(U,$J,358.3,9574,2)
 ;;=^5014723
 ;;^UTILITY(U,$J,358.3,9575,0)
 ;;=M87.152^^45^437^74
 ;;^UTILITY(U,$J,358.3,9575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9575,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Left Femur
 ;;^UTILITY(U,$J,358.3,9575,1,4,0)
 ;;=4^M87.152
 ;;^UTILITY(U,$J,358.3,9575,2)
 ;;=^5014724
 ;;^UTILITY(U,$J,358.3,9576,0)
 ;;=M87.180^^45^437^73
 ;;^UTILITY(U,$J,358.3,9576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9576,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Jaw
 ;;^UTILITY(U,$J,358.3,9576,1,4,0)
 ;;=4^M87.180
 ;;^UTILITY(U,$J,358.3,9576,2)
 ;;=^5014741
 ;;^UTILITY(U,$J,358.3,9577,0)
 ;;=M87.311^^45^437^174
 ;;^UTILITY(U,$J,358.3,9577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9577,1,3,0)
 ;;=3^Secondary Osteonecrosis,Right Shoulder
 ;;^UTILITY(U,$J,358.3,9577,1,4,0)
 ;;=4^M87.311
 ;;^UTILITY(U,$J,358.3,9577,2)
 ;;=^5014788
 ;;^UTILITY(U,$J,358.3,9578,0)
 ;;=M87.312^^45^437^171
 ;;^UTILITY(U,$J,358.3,9578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9578,1,3,0)
 ;;=3^Secondary Osteonecrosis,Left Shoulder
 ;;^UTILITY(U,$J,358.3,9578,1,4,0)
 ;;=4^M87.312
 ;;^UTILITY(U,$J,358.3,9578,2)
 ;;=^5014789
 ;;^UTILITY(U,$J,358.3,9579,0)
 ;;=M87.350^^45^437^172
 ;;^UTILITY(U,$J,358.3,9579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9579,1,3,0)
 ;;=3^Secondary Osteonecrosis,Pelvis
 ;;^UTILITY(U,$J,358.3,9579,1,4,0)
 ;;=4^M87.350
 ;;^UTILITY(U,$J,358.3,9579,2)
 ;;=^5014809
 ;;^UTILITY(U,$J,358.3,9580,0)
 ;;=M87.351^^45^437^173
 ;;^UTILITY(U,$J,358.3,9580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9580,1,3,0)
 ;;=3^Secondary Osteonecrosis,Right Femur
 ;;^UTILITY(U,$J,358.3,9580,1,4,0)
 ;;=4^M87.351
 ;;^UTILITY(U,$J,358.3,9580,2)
 ;;=^5014810
 ;;^UTILITY(U,$J,358.3,9581,0)
 ;;=M87.352^^45^437^170
 ;;^UTILITY(U,$J,358.3,9581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9581,1,3,0)
 ;;=3^Secondary Osteonecrosis,Left Femur
 ;;^UTILITY(U,$J,358.3,9581,1,4,0)
 ;;=4^M87.352
 ;;^UTILITY(U,$J,358.3,9581,2)
 ;;=^5014811
 ;;^UTILITY(U,$J,358.3,9582,0)
 ;;=M87.811^^45^437^83
 ;;^UTILITY(U,$J,358.3,9582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9582,1,3,0)
 ;;=3^Osteonecrosis,Right Shoulder
 ;;^UTILITY(U,$J,358.3,9582,1,4,0)
 ;;=4^M87.811
 ;;^UTILITY(U,$J,358.3,9582,2)
 ;;=^5014831
 ;;^UTILITY(U,$J,358.3,9583,0)
 ;;=M87.812^^45^437^80
 ;;^UTILITY(U,$J,358.3,9583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9583,1,3,0)
 ;;=3^Osteonecrosis,Left Shoulder
 ;;^UTILITY(U,$J,358.3,9583,1,4,0)
 ;;=4^M87.812
 ;;^UTILITY(U,$J,358.3,9583,2)
 ;;=^5014832
 ;;^UTILITY(U,$J,358.3,9584,0)
 ;;=M87.850^^45^437^81
 ;;^UTILITY(U,$J,358.3,9584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9584,1,3,0)
 ;;=3^Osteonecrosis,Pelvis
 ;;^UTILITY(U,$J,358.3,9584,1,4,0)
 ;;=4^M87.850
 ;;^UTILITY(U,$J,358.3,9584,2)
 ;;=^5014852
 ;;^UTILITY(U,$J,358.3,9585,0)
 ;;=M87.851^^45^437^82
 ;;^UTILITY(U,$J,358.3,9585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9585,1,3,0)
 ;;=3^Osteonecrosis,Right Femur
 ;;^UTILITY(U,$J,358.3,9585,1,4,0)
 ;;=4^M87.851
 ;;^UTILITY(U,$J,358.3,9585,2)
 ;;=^5014853
 ;;^UTILITY(U,$J,358.3,9586,0)
 ;;=M87.852^^45^437^79
 ;;^UTILITY(U,$J,358.3,9586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9586,1,3,0)
 ;;=3^Osteonecrosis,Left Femur
 ;;^UTILITY(U,$J,358.3,9586,1,4,0)
 ;;=4^M87.852
 ;;^UTILITY(U,$J,358.3,9586,2)
 ;;=^5014854
 ;;^UTILITY(U,$J,358.3,9587,0)
 ;;=M88.0^^45^437^70
 ;;^UTILITY(U,$J,358.3,9587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9587,1,3,0)
 ;;=3^Osteitis Deformans of Skull
 ;;^UTILITY(U,$J,358.3,9587,1,4,0)
 ;;=4^M88.0
 ;;^UTILITY(U,$J,358.3,9587,2)
 ;;=^5014874
 ;;^UTILITY(U,$J,358.3,9588,0)
 ;;=M88.1^^45^437^71
 ;;^UTILITY(U,$J,358.3,9588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9588,1,3,0)
 ;;=3^Osteitis Deformans of Vertebrae
 ;;^UTILITY(U,$J,358.3,9588,1,4,0)
 ;;=4^M88.1
 ;;^UTILITY(U,$J,358.3,9588,2)
 ;;=^5014875
 ;;^UTILITY(U,$J,358.3,9589,0)
 ;;=M88.89^^45^437^69
 ;;^UTILITY(U,$J,358.3,9589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9589,1,3,0)
 ;;=3^Osteitis Deformans of Mult Sites
 ;;^UTILITY(U,$J,358.3,9589,1,4,0)
 ;;=4^M88.89
 ;;^UTILITY(U,$J,358.3,9589,2)
 ;;=^5014898
 ;;^UTILITY(U,$J,358.3,9590,0)
 ;;=M94.0^^45^437^16
 ;;^UTILITY(U,$J,358.3,9590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9590,1,3,0)
 ;;=3^Chondrocostal Junction Syndrome/Costochondritis
 ;;^UTILITY(U,$J,358.3,9590,1,4,0)
 ;;=4^M94.0
 ;;^UTILITY(U,$J,358.3,9590,2)
 ;;=^5015327
 ;;^UTILITY(U,$J,358.3,9591,0)
 ;;=M94.20^^45^437^19
 ;;^UTILITY(U,$J,358.3,9591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9591,1,3,0)
 ;;=3^Chondromalacia,Unspec Site
 ;;^UTILITY(U,$J,358.3,9591,1,4,0)
 ;;=4^M94.20
 ;;^UTILITY(U,$J,358.3,9591,2)
 ;;=^5015329
 ;;^UTILITY(U,$J,358.3,9592,0)
 ;;=M94.261^^45^437^18
 ;;^UTILITY(U,$J,358.3,9592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9592,1,3,0)
 ;;=3^Chondromalacia,Right Knee
 ;;^UTILITY(U,$J,358.3,9592,1,4,0)
 ;;=4^M94.261
 ;;^UTILITY(U,$J,358.3,9592,2)
 ;;=^5015345
 ;;^UTILITY(U,$J,358.3,9593,0)
 ;;=M94.262^^45^437^17
 ;;^UTILITY(U,$J,358.3,9593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9593,1,3,0)
 ;;=3^Chondromalacia,Left Knee
 ;;^UTILITY(U,$J,358.3,9593,1,4,0)
 ;;=4^M94.262
 ;;^UTILITY(U,$J,358.3,9593,2)
 ;;=^5015346
 ;;^UTILITY(U,$J,358.3,9594,0)
 ;;=R25.2^^45^437^37
 ;;^UTILITY(U,$J,358.3,9594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9594,1,3,0)
 ;;=3^Cramp and Spasm
 ;;^UTILITY(U,$J,358.3,9594,1,4,0)
 ;;=4^R25.2
 ;;^UTILITY(U,$J,358.3,9594,2)
 ;;=^5019301
 ;;^UTILITY(U,$J,358.3,9595,0)
 ;;=R70.0^^45^437^39
 ;;^UTILITY(U,$J,358.3,9595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9595,1,3,0)
 ;;=3^Elevated Erythrocyte Sedimentation Rate
 ;;^UTILITY(U,$J,358.3,9595,1,4,0)
 ;;=4^R70.0
 ;;^UTILITY(U,$J,358.3,9595,2)
 ;;=^5019559
 ;;^UTILITY(U,$J,358.3,9596,0)
 ;;=M25.511^^45^437^119
 ;;^UTILITY(U,$J,358.3,9596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9596,1,3,0)
 ;;=3^Pain in Right Shoulder
 ;;^UTILITY(U,$J,358.3,9596,1,4,0)
 ;;=4^M25.511
 ;;^UTILITY(U,$J,358.3,9596,2)
 ;;=^5011602
 ;;^UTILITY(U,$J,358.3,9597,0)
 ;;=M25.512^^45^437^109
 ;;^UTILITY(U,$J,358.3,9597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9597,1,3,0)
 ;;=3^Pain in Left Shoulder
 ;;^UTILITY(U,$J,358.3,9597,1,4,0)
 ;;=4^M25.512
 ;;^UTILITY(U,$J,358.3,9597,2)
 ;;=^5011603
 ;;^UTILITY(U,$J,358.3,9598,0)
 ;;=M25.521^^45^437^113
 ;;^UTILITY(U,$J,358.3,9598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9598,1,3,0)
 ;;=3^Pain in Right Elbow
 ;;^UTILITY(U,$J,358.3,9598,1,4,0)
 ;;=4^M25.521
 ;;^UTILITY(U,$J,358.3,9598,2)
 ;;=^5011605
 ;;^UTILITY(U,$J,358.3,9599,0)
 ;;=M25.522^^45^437^103
 ;;^UTILITY(U,$J,358.3,9599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9599,1,3,0)
 ;;=3^Pain in Left Elbow
 ;;^UTILITY(U,$J,358.3,9599,1,4,0)
 ;;=4^M25.522
 ;;^UTILITY(U,$J,358.3,9599,2)
 ;;=^5011606
 ;;^UTILITY(U,$J,358.3,9600,0)
 ;;=M25.531^^45^437^120
 ;;^UTILITY(U,$J,358.3,9600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9600,1,3,0)
 ;;=3^Pain in Right Wrist
 ;;^UTILITY(U,$J,358.3,9600,1,4,0)
 ;;=4^M25.531
 ;;^UTILITY(U,$J,358.3,9600,2)
 ;;=^5011608
 ;;^UTILITY(U,$J,358.3,9601,0)
 ;;=M25.532^^45^437^110
 ;;^UTILITY(U,$J,358.3,9601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9601,1,3,0)
 ;;=3^Pain in Left Wrist
 ;;^UTILITY(U,$J,358.3,9601,1,4,0)
 ;;=4^M25.532
 ;;^UTILITY(U,$J,358.3,9601,2)
 ;;=^5011609
 ;;^UTILITY(U,$J,358.3,9602,0)
 ;;=M25.551^^45^437^116
 ;;^UTILITY(U,$J,358.3,9602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9602,1,3,0)
 ;;=3^Pain in Right Hip
 ;;^UTILITY(U,$J,358.3,9602,1,4,0)
 ;;=4^M25.551
 ;;^UTILITY(U,$J,358.3,9602,2)
 ;;=^5011611
 ;;^UTILITY(U,$J,358.3,9603,0)
 ;;=M25.552^^45^437^106
 ;;^UTILITY(U,$J,358.3,9603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9603,1,3,0)
 ;;=3^Pain in Left Hip
 ;;^UTILITY(U,$J,358.3,9603,1,4,0)
 ;;=4^M25.552
 ;;^UTILITY(U,$J,358.3,9603,2)
 ;;=^5011612
 ;;^UTILITY(U,$J,358.3,9604,0)
 ;;=M25.561^^45^437^117
 ;;^UTILITY(U,$J,358.3,9604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9604,1,3,0)
 ;;=3^Pain in Right Knee
 ;;^UTILITY(U,$J,358.3,9604,1,4,0)
 ;;=4^M25.561
 ;;^UTILITY(U,$J,358.3,9604,2)
 ;;=^5011614
 ;;^UTILITY(U,$J,358.3,9605,0)
 ;;=M25.562^^45^437^107
 ;;^UTILITY(U,$J,358.3,9605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9605,1,3,0)
 ;;=3^Pain in Left Knee
 ;;^UTILITY(U,$J,358.3,9605,1,4,0)
 ;;=4^M25.562
 ;;^UTILITY(U,$J,358.3,9605,2)
 ;;=^5011615
 ;;^UTILITY(U,$J,358.3,9606,0)
 ;;=M25.571^^45^437^111
 ;;^UTILITY(U,$J,358.3,9606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9606,1,3,0)
 ;;=3^Pain in Right Ankle
 ;;^UTILITY(U,$J,358.3,9606,1,4,0)
 ;;=4^M25.571
 ;;^UTILITY(U,$J,358.3,9606,2)
 ;;=^5011617
 ;;^UTILITY(U,$J,358.3,9607,0)
 ;;=M25.572^^45^437^101
 ;;^UTILITY(U,$J,358.3,9607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9607,1,3,0)
 ;;=3^Pain in Left Ankle
 ;;^UTILITY(U,$J,358.3,9607,1,4,0)
 ;;=4^M25.572
 ;;^UTILITY(U,$J,358.3,9607,2)
 ;;=^5011618
 ;;^UTILITY(U,$J,358.3,9608,0)
 ;;=M79.601^^45^437^112
 ;;^UTILITY(U,$J,358.3,9608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9608,1,3,0)
 ;;=3^Pain in Right Arm
 ;;^UTILITY(U,$J,358.3,9608,1,4,0)
 ;;=4^M79.601
 ;;^UTILITY(U,$J,358.3,9608,2)
 ;;=^5013325
 ;;^UTILITY(U,$J,358.3,9609,0)
 ;;=M79.602^^45^437^102
 ;;^UTILITY(U,$J,358.3,9609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9609,1,3,0)
 ;;=3^Pain in Left Arm
 ;;^UTILITY(U,$J,358.3,9609,1,4,0)
 ;;=4^M79.602
 ;;^UTILITY(U,$J,358.3,9609,2)
 ;;=^5013326
 ;;^UTILITY(U,$J,358.3,9610,0)
 ;;=M79.604^^45^437^118
 ;;^UTILITY(U,$J,358.3,9610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9610,1,3,0)
 ;;=3^Pain in Right Leg
 ;;^UTILITY(U,$J,358.3,9610,1,4,0)
 ;;=4^M79.604
 ;;^UTILITY(U,$J,358.3,9610,2)
 ;;=^5013328
 ;;^UTILITY(U,$J,358.3,9611,0)
 ;;=M79.605^^45^437^108
 ;;^UTILITY(U,$J,358.3,9611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9611,1,3,0)
 ;;=3^Pain in Left Leg
 ;;^UTILITY(U,$J,358.3,9611,1,4,0)
 ;;=4^M79.605
 ;;^UTILITY(U,$J,358.3,9611,2)
 ;;=^5013329
 ;;^UTILITY(U,$J,358.3,9612,0)
 ;;=M79.641^^45^437^115
 ;;^UTILITY(U,$J,358.3,9612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9612,1,3,0)
 ;;=3^Pain in Right Hand
 ;;^UTILITY(U,$J,358.3,9612,1,4,0)
 ;;=4^M79.641
 ;;^UTILITY(U,$J,358.3,9612,2)
 ;;=^5013338
 ;;^UTILITY(U,$J,358.3,9613,0)
 ;;=M79.642^^45^437^105
 ;;^UTILITY(U,$J,358.3,9613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9613,1,3,0)
 ;;=3^Pain in Left Hand
 ;;^UTILITY(U,$J,358.3,9613,1,4,0)
 ;;=4^M79.642
 ;;^UTILITY(U,$J,358.3,9613,2)
 ;;=^5013339
 ;;^UTILITY(U,$J,358.3,9614,0)
 ;;=M79.671^^45^437^114
 ;;^UTILITY(U,$J,358.3,9614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9614,1,3,0)
 ;;=3^Pain in Right Foot
 ;;^UTILITY(U,$J,358.3,9614,1,4,0)
 ;;=4^M79.671
 ;;^UTILITY(U,$J,358.3,9614,2)
 ;;=^5013350
 ;;^UTILITY(U,$J,358.3,9615,0)
 ;;=M79.672^^45^437^104
 ;;^UTILITY(U,$J,358.3,9615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9615,1,3,0)
 ;;=3^Pain in Left Foot
 ;;^UTILITY(U,$J,358.3,9615,1,4,0)
 ;;=4^M79.672
 ;;^UTILITY(U,$J,358.3,9615,2)
 ;;=^5013351
 ;;^UTILITY(U,$J,358.3,9616,0)
 ;;=M54.9^^45^437^8
 ;;^UTILITY(U,$J,358.3,9616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9616,1,3,0)
 ;;=3^Backache/Dorsalgia
 ;;^UTILITY(U,$J,358.3,9616,1,4,0)
 ;;=4^M54.9
 ;;^UTILITY(U,$J,358.3,9616,2)
 ;;=^5012314
 ;;^UTILITY(U,$J,358.3,9617,0)
 ;;=M48.52XG^^45^437^20
 ;;^UTILITY(U,$J,358.3,9617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9617,1,3,0)
 ;;=3^Collapsed Vertabra,Cervical Region,Subs Encntr,Del Healing
 ;;^UTILITY(U,$J,358.3,9617,1,4,0)
 ;;=4^M48.52XG
 ;;^UTILITY(U,$J,358.3,9617,2)
 ;;=^5012169
 ;;^UTILITY(U,$J,358.3,9618,0)
 ;;=M48.52XS^^45^437^21
 ;;^UTILITY(U,$J,358.3,9618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9618,1,3,0)
 ;;=3^Collapsed Vertabra,Cervical Region,Subs Encntr,Sequela
 ;;^UTILITY(U,$J,358.3,9618,1,4,0)
 ;;=4^M48.52XS
 ;;^UTILITY(U,$J,358.3,9618,2)
 ;;=^5012170
 ;;^UTILITY(U,$J,358.3,9619,0)
 ;;=M48.57XG^^45^437^28
 ;;^UTILITY(U,$J,358.3,9619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9619,1,3,0)
 ;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Del Healing
 ;;^UTILITY(U,$J,358.3,9619,1,4,0)
 ;;=4^M48.57XG
 ;;^UTILITY(U,$J,358.3,9619,2)
 ;;=^5012189
 ;;^UTILITY(U,$J,358.3,9620,0)
 ;;=M48.57XS^^45^437^29
 ;;^UTILITY(U,$J,358.3,9620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9620,1,3,0)
 ;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Sequela
 ;;^UTILITY(U,$J,358.3,9620,1,4,0)
 ;;=4^M48.57XS
 ;;^UTILITY(U,$J,358.3,9620,2)
 ;;=^5012190
 ;;^UTILITY(U,$J,358.3,9621,0)
 ;;=M48.54XD^^45^437^30
 ;;^UTILITY(U,$J,358.3,9621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9621,1,3,0)
 ;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Rt Healing
 ;;^UTILITY(U,$J,358.3,9621,1,4,0)
 ;;=4^M48.54XD
 ;;^UTILITY(U,$J,358.3,9621,2)
 ;;=^5012176
 ;;^UTILITY(U,$J,358.3,9622,0)
 ;;=M48.57XG^^45^437^31
 ;;^UTILITY(U,$J,358.3,9622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9622,1,3,0)
 ;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Del Healing
 ;;^UTILITY(U,$J,358.3,9622,1,4,0)
 ;;=4^M48.57XG
 ;;^UTILITY(U,$J,358.3,9622,2)
 ;;=^5012189
 ;;^UTILITY(U,$J,358.3,9623,0)
 ;;=M48.54XS^^45^437^32
 ;;^UTILITY(U,$J,358.3,9623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9623,1,3,0)
 ;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Sequela
 ;;^UTILITY(U,$J,358.3,9623,1,4,0)
 ;;=4^M48.54XS
 ;;^UTILITY(U,$J,358.3,9623,2)
 ;;=^5012178
 ;;^UTILITY(U,$J,358.3,9624,0)
 ;;=M62.830^^45^437^63
 ;;^UTILITY(U,$J,358.3,9624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9624,1,3,0)
 ;;=3^Muscle Spasm of Back
 ;;^UTILITY(U,$J,358.3,9624,1,4,0)
 ;;=4^M62.830
 ;;^UTILITY(U,$J,358.3,9624,2)
 ;;=^5012680
 ;;^UTILITY(U,$J,358.3,9625,0)
 ;;=M19.92^^45^437^126
 ;;^UTILITY(U,$J,358.3,9625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9625,1,3,0)
 ;;=3^Post-Traumatic Osteoarthritis,Unspec Site
 ;;^UTILITY(U,$J,358.3,9625,1,4,0)
 ;;=4^M19.92
 ;;^UTILITY(U,$J,358.3,9625,2)
 ;;=^5010855
 ;;^UTILITY(U,$J,358.3,9626,0)
 ;;=M85.872^^45^437^84
 ;;^UTILITY(U,$J,358.3,9626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9626,1,3,0)
 ;;=3^Osteopenia,Left Ankle & Foot
 ;;^UTILITY(U,$J,358.3,9626,1,4,0)
 ;;=4^M85.872
 ;;^UTILITY(U,$J,358.3,9626,2)
 ;;=^5014493
 ;;^UTILITY(U,$J,358.3,9627,0)
 ;;=M85.832^^45^437^85
 ;;^UTILITY(U,$J,358.3,9627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9627,1,3,0)
 ;;=3^Osteopenia,Left Forearm
 ;;^UTILITY(U,$J,358.3,9627,1,4,0)
 ;;=4^M85.832
 ;;^UTILITY(U,$J,358.3,9627,2)
 ;;=^5014481
 ;;^UTILITY(U,$J,358.3,9628,0)
 ;;=M85.842^^45^437^86
 ;;^UTILITY(U,$J,358.3,9628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9628,1,3,0)
 ;;=3^Osteopenia,Left Hand
 ;;^UTILITY(U,$J,358.3,9628,1,4,0)
 ;;=4^M85.842
 ;;^UTILITY(U,$J,358.3,9628,2)
 ;;=^5014484
 ;;^UTILITY(U,$J,358.3,9629,0)
 ;;=M85.862^^45^437^87
 ;;^UTILITY(U,$J,358.3,9629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9629,1,3,0)
 ;;=3^Osteopenia,Left Lower Leg
 ;;^UTILITY(U,$J,358.3,9629,1,4,0)
 ;;=4^M85.862
 ;;^UTILITY(U,$J,358.3,9629,2)
 ;;=^5014490
 ;;^UTILITY(U,$J,358.3,9630,0)
 ;;=M85.812^^45^437^88
 ;;^UTILITY(U,$J,358.3,9630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9630,1,3,0)
 ;;=3^Osteopenia,Left Shoulder
 ;;^UTILITY(U,$J,358.3,9630,1,4,0)
 ;;=4^M85.812
 ;;^UTILITY(U,$J,358.3,9630,2)
 ;;=^5014475
 ;;^UTILITY(U,$J,358.3,9631,0)
 ;;=M85.852^^45^437^89
 ;;^UTILITY(U,$J,358.3,9631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9631,1,3,0)
 ;;=3^Osteopenia,Left Thigh
 ;;^UTILITY(U,$J,358.3,9631,1,4,0)
 ;;=4^M85.852
 ;;^UTILITY(U,$J,358.3,9631,2)
 ;;=^5014487
 ;;^UTILITY(U,$J,358.3,9632,0)
 ;;=M85.822^^45^437^90
 ;;^UTILITY(U,$J,358.3,9632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9632,1,3,0)
 ;;=3^Osteopenia,Left Upper Arm
 ;;^UTILITY(U,$J,358.3,9632,1,4,0)
 ;;=4^M85.822
 ;;^UTILITY(U,$J,358.3,9632,2)
 ;;=^5014478
 ;;^UTILITY(U,$J,358.3,9633,0)
 ;;=M85.89^^45^437^91
 ;;^UTILITY(U,$J,358.3,9633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9633,1,3,0)
 ;;=3^Osteopenia,Multiple Sites
 ;;^UTILITY(U,$J,358.3,9633,1,4,0)
 ;;=4^M85.89
 ;;^UTILITY(U,$J,358.3,9633,2)
 ;;=^5014495
 ;;^UTILITY(U,$J,358.3,9634,0)
 ;;=M85.88^^45^437^92
 ;;^UTILITY(U,$J,358.3,9634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9634,1,3,0)
 ;;=3^Osteopenia,Other Site
 ;;^UTILITY(U,$J,358.3,9634,1,4,0)
 ;;=4^M85.88
 ;;^UTILITY(U,$J,358.3,9634,2)
 ;;=^5134059
 ;;^UTILITY(U,$J,358.3,9635,0)
 ;;=M85.871^^45^437^93