IBDEI083 ; ; 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,19705,1,3,0)
;;=3^Alcohol dependence, uncomplicated
;;^UTILITY(U,$J,358.3,19705,1,4,0)
;;=4^F10.20
;;^UTILITY(U,$J,358.3,19705,2)
;;=^5003081
;;^UTILITY(U,$J,358.3,19706,0)
;;=F31.10^^65^802^2
;;^UTILITY(U,$J,358.3,19706,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19706,1,3,0)
;;=3^Bipolar disord, crnt episode manic w/o psych features, unsp
;;^UTILITY(U,$J,358.3,19706,1,4,0)
;;=4^F31.10
;;^UTILITY(U,$J,358.3,19706,2)
;;=^5003495
;;^UTILITY(U,$J,358.3,19707,0)
;;=F32.9^^65^802^14
;;^UTILITY(U,$J,358.3,19707,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19707,1,3,0)
;;=3^MDD,Single Episode,Unspec
;;^UTILITY(U,$J,358.3,19707,1,4,0)
;;=4^F32.9
;;^UTILITY(U,$J,358.3,19707,2)
;;=^5003528
;;^UTILITY(U,$J,358.3,19708,0)
;;=F20.0^^65^802^15
;;^UTILITY(U,$J,358.3,19708,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19708,1,3,0)
;;=3^Paranoid schizophrenia
;;^UTILITY(U,$J,358.3,19708,1,4,0)
;;=4^F20.0
;;^UTILITY(U,$J,358.3,19708,2)
;;=^5003469
;;^UTILITY(U,$J,358.3,19709,0)
;;=F06.0^^65^802^16
;;^UTILITY(U,$J,358.3,19709,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19709,1,3,0)
;;=3^Psychotic disorder w hallucin due to known physiol condition
;;^UTILITY(U,$J,358.3,19709,1,4,0)
;;=4^F06.0
;;^UTILITY(U,$J,358.3,19709,2)
;;=^5003053
;;^UTILITY(U,$J,358.3,19710,0)
;;=F20.9^^65^802^20
;;^UTILITY(U,$J,358.3,19710,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19710,1,3,0)
;;=3^Schizophrenia, unspecified
;;^UTILITY(U,$J,358.3,19710,1,4,0)
;;=4^F20.9
;;^UTILITY(U,$J,358.3,19710,2)
;;=^5003476
;;^UTILITY(U,$J,358.3,19711,0)
;;=F03.91^^65^802^3
;;^UTILITY(U,$J,358.3,19711,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19711,1,3,0)
;;=3^Dementia with behavioral disturbance,Unspec
;;^UTILITY(U,$J,358.3,19711,1,4,0)
;;=4^F03.91
;;^UTILITY(U,$J,358.3,19711,2)
;;=^5133350
;;^UTILITY(U,$J,358.3,19712,0)
;;=F03.90^^65^802^4
;;^UTILITY(U,$J,358.3,19712,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19712,1,3,0)
;;=3^Dementia without behavioral disturbance,Unspec
;;^UTILITY(U,$J,358.3,19712,1,4,0)
;;=4^F03.90
;;^UTILITY(U,$J,358.3,19712,2)
;;=^5003050
;;^UTILITY(U,$J,358.3,19713,0)
;;=F33.0^^65^802^6
;;^UTILITY(U,$J,358.3,19713,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19713,1,3,0)
;;=3^MDD,Recurrent,Mild
;;^UTILITY(U,$J,358.3,19713,1,4,0)
;;=4^F33.0
;;^UTILITY(U,$J,358.3,19713,2)
;;=^5003529
;;^UTILITY(U,$J,358.3,19714,0)
;;=F33.1^^65^802^7
;;^UTILITY(U,$J,358.3,19714,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19714,1,3,0)
;;=3^MDD,Recurrent,Moderate
;;^UTILITY(U,$J,358.3,19714,1,4,0)
;;=4^F33.1
;;^UTILITY(U,$J,358.3,19714,2)
;;=^5003530
;;^UTILITY(U,$J,358.3,19715,0)
;;=F33.2^^65^802^8
;;^UTILITY(U,$J,358.3,19715,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19715,1,3,0)
;;=3^MDD,Recurrent,Severe w/o Psychotic Features
;;^UTILITY(U,$J,358.3,19715,1,4,0)
;;=4^F33.2
;;^UTILITY(U,$J,358.3,19715,2)
;;=^5003531
;;^UTILITY(U,$J,358.3,19716,0)
;;=F33.9^^65^802^9
;;^UTILITY(U,$J,358.3,19716,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19716,1,3,0)
;;=3^MDD,Recurrent,Unspec
;;^UTILITY(U,$J,358.3,19716,1,4,0)
;;=4^F33.9
;;^UTILITY(U,$J,358.3,19716,2)
;;=^5003537
;;^UTILITY(U,$J,358.3,19717,0)
;;=F25.0^^65^802^17
;;^UTILITY(U,$J,358.3,19717,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19717,1,3,0)
;;=3^Schizoaffective Disorder,Bipolar Type
;;^UTILITY(U,$J,358.3,19717,1,4,0)
;;=4^F25.0
;;^UTILITY(U,$J,358.3,19717,2)
;;=^5003480
;;^UTILITY(U,$J,358.3,19718,0)
;;=F25.1^^65^802^18
;;^UTILITY(U,$J,358.3,19718,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19718,1,3,0)
;;=3^Schizoaffective Disorder,Depressive Type
;;^UTILITY(U,$J,358.3,19718,1,4,0)
;;=4^F25.1
;;^UTILITY(U,$J,358.3,19718,2)
;;=^5003481
;;^UTILITY(U,$J,358.3,19719,0)
;;=F25.9^^65^802^19
;;^UTILITY(U,$J,358.3,19719,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19719,1,3,0)
;;=3^Schizoaffective Disorder,Unspec
;;^UTILITY(U,$J,358.3,19719,1,4,0)
;;=4^F25.9
;;^UTILITY(U,$J,358.3,19719,2)
;;=^331857
;;^UTILITY(U,$J,358.3,19720,0)
;;=F32.0^^65^802^10
;;^UTILITY(U,$J,358.3,19720,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19720,1,3,0)
;;=3^MDD,Single Episode,Mild
;;^UTILITY(U,$J,358.3,19720,1,4,0)
;;=4^F32.0
;;^UTILITY(U,$J,358.3,19720,2)
;;=^5003521
;;^UTILITY(U,$J,358.3,19721,0)
;;=F32.1^^65^802^11
;;^UTILITY(U,$J,358.3,19721,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19721,1,3,0)
;;=3^MDD,Single Episode,Moderate
;;^UTILITY(U,$J,358.3,19721,1,4,0)
;;=4^F32.1
;;^UTILITY(U,$J,358.3,19721,2)
;;=^5003522
;;^UTILITY(U,$J,358.3,19722,0)
;;=F32.2^^65^802^13
;;^UTILITY(U,$J,358.3,19722,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19722,1,3,0)
;;=3^MDD,Single Episode,Severe w/o Psychotic Feat
;;^UTILITY(U,$J,358.3,19722,1,4,0)
;;=4^F32.2
;;^UTILITY(U,$J,358.3,19722,2)
;;=^5003523
;;^UTILITY(U,$J,358.3,19723,0)
;;=F32.3^^65^802^12
;;^UTILITY(U,$J,358.3,19723,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19723,1,3,0)
;;=3^MDD,Single Episode,Severe w/ Psychotic Feat
;;^UTILITY(U,$J,358.3,19723,1,4,0)
;;=4^F32.3
;;^UTILITY(U,$J,358.3,19723,2)
;;=^5003524
;;^UTILITY(U,$J,358.3,19724,0)
;;=F32.A^^65^802^5
;;^UTILITY(U,$J,358.3,19724,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19724,1,3,0)
;;=3^Depression,Unspec
;;^UTILITY(U,$J,358.3,19724,1,4,0)
;;=4^F32.A
;;^UTILITY(U,$J,358.3,19724,2)
;;=^5161153
;;^UTILITY(U,$J,358.3,19725,0)
;;=M76.62^^65^803^1
;;^UTILITY(U,$J,358.3,19725,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19725,1,3,0)
;;=3^Achilles Tendinitis,Lt Leg
;;^UTILITY(U,$J,358.3,19725,1,4,0)
;;=4^M76.62
;;^UTILITY(U,$J,358.3,19725,2)
;;=^5013286
;;^UTILITY(U,$J,358.3,19726,0)
;;=M76.61^^65^803^2
;;^UTILITY(U,$J,358.3,19726,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19726,1,3,0)
;;=3^Achilles Tendinitis,Rt Leg
;;^UTILITY(U,$J,358.3,19726,1,4,0)
;;=4^M76.61
;;^UTILITY(U,$J,358.3,19726,2)
;;=^5013285
;;^UTILITY(U,$J,358.3,19727,0)
;;=M75.02^^65^803^3
;;^UTILITY(U,$J,358.3,19727,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19727,1,3,0)
;;=3^Adhesive Capsulitis,Lt Shoulder
;;^UTILITY(U,$J,358.3,19727,1,4,0)
;;=4^M75.02
;;^UTILITY(U,$J,358.3,19727,2)
;;=^5013240
;;^UTILITY(U,$J,358.3,19728,0)
;;=M75.01^^65^803^4
;;^UTILITY(U,$J,358.3,19728,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19728,1,3,0)
;;=3^Adhesive Capsulitis,Rt Shoulder
;;^UTILITY(U,$J,358.3,19728,1,4,0)
;;=4^M75.01
;;^UTILITY(U,$J,358.3,19728,2)
;;=^5013239
;;^UTILITY(U,$J,358.3,19729,0)
;;=M75.22^^65^803^5
;;^UTILITY(U,$J,358.3,19729,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19729,1,3,0)
;;=3^Bicipital Tendinitis,Lt Shoulder
;;^UTILITY(U,$J,358.3,19729,1,4,0)
;;=4^M75.22
;;^UTILITY(U,$J,358.3,19729,2)
;;=^5013252
;;^UTILITY(U,$J,358.3,19730,0)
;;=M75.21^^65^803^6
;;^UTILITY(U,$J,358.3,19730,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19730,1,3,0)
;;=3^Bicipital Tendinitis,Rt Shoulder
;;^UTILITY(U,$J,358.3,19730,1,4,0)
;;=4^M75.21
;;^UTILITY(U,$J,358.3,19730,2)
;;=^5013251
;;^UTILITY(U,$J,358.3,19731,0)
;;=M75.52^^65^803^7
;;^UTILITY(U,$J,358.3,19731,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19731,1,3,0)
;;=3^Bursitis,Lt Shoulder
;;^UTILITY(U,$J,358.3,19731,1,4,0)
;;=4^M75.52
;;^UTILITY(U,$J,358.3,19731,2)
;;=^5133691
;;^UTILITY(U,$J,358.3,19732,0)
;;=M75.51^^65^803^8
;;^UTILITY(U,$J,358.3,19732,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19732,1,3,0)
;;=3^Bursitis,Rt Shoulder
;;^UTILITY(U,$J,358.3,19732,1,4,0)
;;=4^M75.51
;;^UTILITY(U,$J,358.3,19732,2)
;;=^5133690
;;^UTILITY(U,$J,358.3,19733,0)
;;=M75.32^^65^803^9
;;^UTILITY(U,$J,358.3,19733,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19733,1,3,0)
;;=3^Calcific Tendinitis,Lt Shoulder
;;^UTILITY(U,$J,358.3,19733,1,4,0)
;;=4^M75.32
;;^UTILITY(U,$J,358.3,19733,2)
;;=^5013255
;;^UTILITY(U,$J,358.3,19734,0)
;;=M75.31^^65^803^10
;;^UTILITY(U,$J,358.3,19734,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19734,1,3,0)
;;=3^Calcific Tendinitis,Rt Shoulder
;;^UTILITY(U,$J,358.3,19734,1,4,0)
;;=4^M75.31
;;^UTILITY(U,$J,358.3,19734,2)
;;=^5013254
;;^UTILITY(U,$J,358.3,19735,0)
;;=M22.42^^65^803^13
;;^UTILITY(U,$J,358.3,19735,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19735,1,3,0)
;;=3^Chondromalacia Patellae,Lt Knee
;;^UTILITY(U,$J,358.3,19735,1,4,0)
;;=4^M22.42
;;^UTILITY(U,$J,358.3,19735,2)
;;=^5011187
;;^UTILITY(U,$J,358.3,19736,0)
;;=M22.41^^65^803^14
;;^UTILITY(U,$J,358.3,19736,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19736,1,3,0)
;;=3^Chondromalacia Patellae,Rt Knee
;;^UTILITY(U,$J,358.3,19736,1,4,0)
;;=4^M22.41
;;^UTILITY(U,$J,358.3,19736,2)
;;=^5011186
;;^UTILITY(U,$J,358.3,19737,0)
;;=M23.52^^65^803^15
;;^UTILITY(U,$J,358.3,19737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19737,1,3,0)
;;=3^Chr Instability of Lt Knee
;;^UTILITY(U,$J,358.3,19737,1,4,0)
;;=4^M23.52
;;^UTILITY(U,$J,358.3,19737,2)
;;=^5011255
;;^UTILITY(U,$J,358.3,19738,0)
;;=M23.51^^65^803^16
;;^UTILITY(U,$J,358.3,19738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19738,1,3,0)
;;=3^Chr Instability of Rt Knee
;;^UTILITY(U,$J,358.3,19738,1,4,0)
;;=4^M23.51
;;^UTILITY(U,$J,358.3,19738,2)
;;=^5011254
;;^UTILITY(U,$J,358.3,19739,0)
;;=T20.40XS^^65^803^17
;;^UTILITY(U,$J,358.3,19739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19739,1,3,0)
;;=3^Corrosion Head/Face/Neck,Unspec Degree/Site,Sequla
;;^UTILITY(U,$J,358.3,19739,1,4,0)
;;=4^T20.40XS
;;^UTILITY(U,$J,358.3,19739,2)
;;=^5046773
;;^UTILITY(U,$J,358.3,19740,0)
;;=M62.9^^65^803^40
;;^UTILITY(U,$J,358.3,19740,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19740,1,3,0)
;;=3^Muscle Disorder,Unspec
;;^UTILITY(U,$J,358.3,19740,1,4,0)
;;=4^M62.9
;;^UTILITY(U,$J,358.3,19740,2)
;;=^5012684
;;^UTILITY(U,$J,358.3,19741,0)
;;=M25.40^^65^803^20
;;^UTILITY(U,$J,358.3,19741,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19741,1,3,0)
;;=3^Effusion,Joint Unspec
;;^UTILITY(U,$J,358.3,19741,1,4,0)
;;=4^M25.40
;;^UTILITY(U,$J,358.3,19741,2)
;;=^5011575
;;^UTILITY(U,$J,358.3,19742,0)
;;=M21.42^^65^803^21
;;^UTILITY(U,$J,358.3,19742,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19742,1,3,0)
;;=3^Flat Foot,Lt Foot
;;^UTILITY(U,$J,358.3,19742,1,4,0)
;;=4^M21.42
;;^UTILITY(U,$J,358.3,19742,2)
;;=^5011115
;;^UTILITY(U,$J,358.3,19743,0)
;;=M21.41^^65^803^22
;;^UTILITY(U,$J,358.3,19743,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19743,1,3,0)
;;=3^Flat Foot,Rt Foot
;;^UTILITY(U,$J,358.3,19743,1,4,0)
;;=4^M21.41
;;^UTILITY(U,$J,358.3,19743,2)
;;=^5011114
;;^UTILITY(U,$J,358.3,19744,0)
;;=M76.22^^65^803^23
;;^UTILITY(U,$J,358.3,19744,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19744,1,3,0)
;;=3^Iliac Crest Spur,Lt Hip
;;^UTILITY(U,$J,358.3,19744,1,4,0)
;;=4^M76.22
;;^UTILITY(U,$J,358.3,19744,2)
;;=^5013274
;;^UTILITY(U,$J,358.3,19745,0)
;;=M76.21^^65^803^24
;;^UTILITY(U,$J,358.3,19745,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19745,1,3,0)
;;=3^Iliac Crest Spur,Rt Hip
;;^UTILITY(U,$J,358.3,19745,1,4,0)
;;=4^M76.21
;;^UTILITY(U,$J,358.3,19745,2)
;;=^5013273
;;^UTILITY(U,$J,358.3,19746,0)
;;=M77.12^^65^803^31
;;^UTILITY(U,$J,358.3,19746,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19746,1,3,0)
;;=3^Lateral Epicondylitis,Lt Elbow
;;^UTILITY(U,$J,358.3,19746,1,4,0)
;;=4^M77.12
;;^UTILITY(U,$J,358.3,19746,2)
;;=^5013305
;;^UTILITY(U,$J,358.3,19747,0)
;;=M77.11^^65^803^32
;;^UTILITY(U,$J,358.3,19747,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19747,1,3,0)
;;=3^Lateral Epicondylitis,Rt Elbow
;;^UTILITY(U,$J,358.3,19747,1,4,0)
;;=4^M77.11
;;^UTILITY(U,$J,358.3,19747,2)
;;=^5013304
;;^UTILITY(U,$J,358.3,19748,0)
;;=M25.572^^65^803^45
;;^UTILITY(U,$J,358.3,19748,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19748,1,3,0)
;;=3^Pain,Lt Ankle/Foot Joints
;;^UTILITY(U,$J,358.3,19748,1,4,0)
;;=4^M25.572
;;^UTILITY(U,$J,358.3,19748,2)
;;=^5011618
;;^UTILITY(U,$J,358.3,19749,0)
;;=M25.522^^65^803^46
;;^UTILITY(U,$J,358.3,19749,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19749,1,3,0)
;;=3^Pain,Lt Elbow
;;^UTILITY(U,$J,358.3,19749,1,4,0)
;;=4^M25.522
;;^UTILITY(U,$J,358.3,19749,2)
;;=^5011606
;;^UTILITY(U,$J,358.3,19750,0)
;;=M79.642^^65^803^47
;;^UTILITY(U,$J,358.3,19750,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19750,1,3,0)
;;=3^Pain,Lt Hand
;;^UTILITY(U,$J,358.3,19750,1,4,0)
;;=4^M79.642
;;^UTILITY(U,$J,358.3,19750,2)
;;=^5013339
;;^UTILITY(U,$J,358.3,19751,0)
;;=M25.552^^65^803^48
;;^UTILITY(U,$J,358.3,19751,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19751,1,3,0)
;;=3^Pain,Lt Hip
;;^UTILITY(U,$J,358.3,19751,1,4,0)
;;=4^M25.552
;;^UTILITY(U,$J,358.3,19751,2)
;;=^5011612
;;^UTILITY(U,$J,358.3,19752,0)
;;=M25.562^^65^803^49
;;^UTILITY(U,$J,358.3,19752,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19752,1,3,0)
;;=3^Pain,Lt Knee
;;^UTILITY(U,$J,358.3,19752,1,4,0)
;;=4^M25.562
;;^UTILITY(U,$J,358.3,19752,2)
;;=^5011615
;;^UTILITY(U,$J,358.3,19753,0)
;;=M25.512^^65^803^50
;;^UTILITY(U,$J,358.3,19753,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19753,1,3,0)
;;=3^Pain,Lt Shoulder
;;^UTILITY(U,$J,358.3,19753,1,4,0)
;;=4^M25.512
;;^UTILITY(U,$J,358.3,19753,2)
;;=^5011603
;;^UTILITY(U,$J,358.3,19754,0)
;;=M25.532^^65^803^51
;;^UTILITY(U,$J,358.3,19754,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19754,1,3,0)
;;=3^Pain,Lt Wrist
;;^UTILITY(U,$J,358.3,19754,1,4,0)
;;=4^M25.532
;;^UTILITY(U,$J,358.3,19754,2)
;;=^5011609
;;^UTILITY(U,$J,358.3,19755,0)
;;=M25.571^^65^803^52
;;^UTILITY(U,$J,358.3,19755,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19755,1,3,0)
;;=3^Pain,Rt Ankle/Foot Joints
;;^UTILITY(U,$J,358.3,19755,1,4,0)
;;=4^M25.571
;;^UTILITY(U,$J,358.3,19755,2)
;;=^5011617
;;^UTILITY(U,$J,358.3,19756,0)
;;=M25.521^^65^803^55
;;^UTILITY(U,$J,358.3,19756,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19756,1,3,0)
;;=3^Pain,Rt Shoulder
;;^UTILITY(U,$J,358.3,19756,1,4,0)
;;=4^M25.521
;;^UTILITY(U,$J,358.3,19756,2)
;;=^5011605
;;^UTILITY(U,$J,358.3,19757,0)
;;=M79.641^^65^803^53
;;^UTILITY(U,$J,358.3,19757,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19757,1,3,0)
;;=3^Pain,Rt Hand
;;^UTILITY(U,$J,358.3,19757,1,4,0)
;;=4^M79.641
;;^UTILITY(U,$J,358.3,19757,2)
;;=^5013338
;;^UTILITY(U,$J,358.3,19758,0)
;;=M25.551^^65^803^54
;;^UTILITY(U,$J,358.3,19758,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19758,1,3,0)
;;=3^Pain,Rt Hip
;;^UTILITY(U,$J,358.3,19758,1,4,0)
;;=4^M25.551
;;^UTILITY(U,$J,358.3,19758,2)
;;=^5011611
;;^UTILITY(U,$J,358.3,19759,0)
;;=M25.531^^65^803^56
;;^UTILITY(U,$J,358.3,19759,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19759,1,3,0)
;;=3^Pain,Rt Wrist
;;^UTILITY(U,$J,358.3,19759,1,4,0)
;;=4^M25.531
;;^UTILITY(U,$J,358.3,19759,2)
;;=^5011608
;;^UTILITY(U,$J,358.3,19760,0)
;;=S43.422A^^65^803^75
;;^UTILITY(U,$J,358.3,19760,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19760,1,3,0)
;;=3^Sprain,Lt Rotator Cuff Capsule,Init Encntr
;;^UTILITY(U,$J,358.3,19760,1,4,0)
;;=4^S43.422A
;;^UTILITY(U,$J,358.3,19760,2)
;;=^5027882
;;^UTILITY(U,$J,358.3,19761,0)
;;=S43.421A^^65^803^76
;;^UTILITY(U,$J,358.3,19761,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19761,1,3,0)
;;=3^Sprain,Rt Rotator Cuff Capsule,Init Encntr
;;^UTILITY(U,$J,358.3,19761,1,4,0)
;;=4^S43.421A
;;^UTILITY(U,$J,358.3,19761,2)
;;=^5027879
;;^UTILITY(U,$J,358.3,19762,0)
;;=S93.402A^^65^803^77
;;^UTILITY(U,$J,358.3,19762,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19762,1,3,0)
;;=3^Sprain,Unspec Ligament,Lt Ankle,Init Encntr
;;^UTILITY(U,$J,358.3,19762,1,4,0)
;;=4^S93.402A
;;^UTILITY(U,$J,358.3,19762,2)
;;=^5045777
;;^UTILITY(U,$J,358.3,19763,0)
;;=S93.401A^^65^803^78
;;^UTILITY(U,$J,358.3,19763,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19763,1,3,0)
;;=3^Sprain,Unspec Ligament,Rt Ankle,Init Encntr
;;^UTILITY(U,$J,358.3,19763,1,4,0)
;;=4^S93.401A
;;^UTILITY(U,$J,358.3,19763,2)
;;=^5045774
;;^UTILITY(U,$J,358.3,19764,0)
;;=S96.912A^^65^803^81
;;^UTILITY(U,$J,358.3,19764,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19764,1,3,0)
;;=3^Strain,Msl/Tnd,Ankle/Foot Level,Lt Foot,Init Encntr
;;^UTILITY(U,$J,358.3,19764,1,4,0)
;;=4^S96.912A
;;^UTILITY(U,$J,358.3,19764,2)
;;=^5137751
;;^UTILITY(U,$J,358.3,19765,0)
;;=S96.911A^^65^803^82
;;^UTILITY(U,$J,358.3,19765,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19765,1,3,0)
;;=3^Strain,Msl/Tnd,Ankle/Foot Level,Rt Foot,Init Encntr
;;^UTILITY(U,$J,358.3,19765,1,4,0)
;;=4^S96.911A
;;^UTILITY(U,$J,358.3,19765,2)
;;=^5137750
;;^UTILITY(U,$J,358.3,19766,0)
;;=S56.912A^^65^803^79
;;^UTILITY(U,$J,358.3,19766,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19766,1,3,0)
;;=3^Strain,Msl/Fasc/Tnd,Forearm Level,Lt Arm,Init Encntr
;;^UTILITY(U,$J,358.3,19766,1,4,0)
;;=4^S56.912A
;;^UTILITY(U,$J,358.3,19766,2)
;;=^5135514
;;^UTILITY(U,$J,358.3,19767,0)
;;=S56.911A^^65^803^80
;;^UTILITY(U,$J,358.3,19767,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19767,1,3,0)
;;=3^Strain,Msl/Fasc/Tnd,Forearm Level,Rt Arm,Init Encntr
;;^UTILITY(U,$J,358.3,19767,1,4,0)
;;=4^S56.911A
;;^UTILITY(U,$J,358.3,19767,2)
;;=^5135513
;;^UTILITY(U,$J,358.3,19768,0)
;;=M75.112^^65^803^25
;;^UTILITY(U,$J,358.3,19768,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19768,1,3,0)
;;=3^Incomplete Rotator-Cuff Tear/Ruptr,Lt Shoulder
;;^UTILITY(U,$J,358.3,19768,1,4,0)
;;=4^M75.112
;;^UTILITY(U,$J,358.3,19768,2)
;;=^5013246
;;^UTILITY(U,$J,358.3,19769,0)
;;=M75.111^^65^803^26
;;^UTILITY(U,$J,358.3,19769,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19769,1,3,0)
;;=3^Incomplete Rotator-Cuff Tear/Ruptr,Rt Shoulder
;;^UTILITY(U,$J,358.3,19769,1,4,0)
;;=4^M75.111
;;^UTILITY(U,$J,358.3,19769,2)
;;=^5013245
;;^UTILITY(U,$J,358.3,19770,0)
;;=M23.8X2^^65^803^27
;;^UTILITY(U,$J,358.3,19770,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19770,1,3,0)
;;=3^Internal Derangement,Lt Knee NEC
;;^UTILITY(U,$J,358.3,19770,1,4,0)
;;=4^M23.8X2
;;^UTILITY(U,$J,358.3,19770,2)
;;=^5011274
;;^UTILITY(U,$J,358.3,19771,0)
;;=M23.8X1^^65^803^28
;;^UTILITY(U,$J,358.3,19771,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19771,1,3,0)
;;=3^Internal Derangement,Rt Knee NEC
;;^UTILITY(U,$J,358.3,19771,1,4,0)
;;=4^M23.8X1
;;^UTILITY(U,$J,358.3,19771,2)
;;=^5011273
;;^UTILITY(U,$J,358.3,19772,0)
;;=M62.838^^65^803^43
;;^UTILITY(U,$J,358.3,19772,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19772,1,3,0)
;;=3^Muscle spasm NEC
;;^UTILITY(U,$J,358.3,19772,1,4,0)
;;=4^M62.838
;;^UTILITY(U,$J,358.3,19772,2)
;;=^5012682
;;^UTILITY(U,$J,358.3,19773,0)
;;=M76.52^^65^803^57
;;^UTILITY(U,$J,358.3,19773,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,19773,1,3,0)
;;=3^Patellar Tendinitis,Lt Knee
;;^UTILITY(U,$J,358.3,19773,1,4,0)
;;=4^M76.52
;;^UTILITY(U,$J,358.3,19773,2)
;;=^5013283
;;^UTILITY(U,$J,358.3,19774,0)
;;=M76.51^^65^803^58
;;^UTILITY(U,$J,358.3,19774,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI083 19791 printed Sep 23, 2025@19:19:29 Page 2
IBDEI083 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,19705,1,3,0)
+2 ;;=3^Alcohol dependence, uncomplicated
+3 ;;^UTILITY(U,$J,358.3,19705,1,4,0)
+4 ;;=4^F10.20
+5 ;;^UTILITY(U,$J,358.3,19705,2)
+6 ;;=^5003081
+7 ;;^UTILITY(U,$J,358.3,19706,0)
+8 ;;=F31.10^^65^802^2
+9 ;;^UTILITY(U,$J,358.3,19706,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,19706,1,3,0)
+12 ;;=3^Bipolar disord, crnt episode manic w/o psych features, unsp
+13 ;;^UTILITY(U,$J,358.3,19706,1,4,0)
+14 ;;=4^F31.10
+15 ;;^UTILITY(U,$J,358.3,19706,2)
+16 ;;=^5003495
+17 ;;^UTILITY(U,$J,358.3,19707,0)
+18 ;;=F32.9^^65^802^14
+19 ;;^UTILITY(U,$J,358.3,19707,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,19707,1,3,0)
+22 ;;=3^MDD,Single Episode,Unspec
+23 ;;^UTILITY(U,$J,358.3,19707,1,4,0)
+24 ;;=4^F32.9
+25 ;;^UTILITY(U,$J,358.3,19707,2)
+26 ;;=^5003528
+27 ;;^UTILITY(U,$J,358.3,19708,0)
+28 ;;=F20.0^^65^802^15
+29 ;;^UTILITY(U,$J,358.3,19708,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,19708,1,3,0)
+32 ;;=3^Paranoid schizophrenia
+33 ;;^UTILITY(U,$J,358.3,19708,1,4,0)
+34 ;;=4^F20.0
+35 ;;^UTILITY(U,$J,358.3,19708,2)
+36 ;;=^5003469
+37 ;;^UTILITY(U,$J,358.3,19709,0)
+38 ;;=F06.0^^65^802^16
+39 ;;^UTILITY(U,$J,358.3,19709,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,19709,1,3,0)
+42 ;;=3^Psychotic disorder w hallucin due to known physiol condition
+43 ;;^UTILITY(U,$J,358.3,19709,1,4,0)
+44 ;;=4^F06.0
+45 ;;^UTILITY(U,$J,358.3,19709,2)
+46 ;;=^5003053
+47 ;;^UTILITY(U,$J,358.3,19710,0)
+48 ;;=F20.9^^65^802^20
+49 ;;^UTILITY(U,$J,358.3,19710,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,19710,1,3,0)
+52 ;;=3^Schizophrenia, unspecified
+53 ;;^UTILITY(U,$J,358.3,19710,1,4,0)
+54 ;;=4^F20.9
+55 ;;^UTILITY(U,$J,358.3,19710,2)
+56 ;;=^5003476
+57 ;;^UTILITY(U,$J,358.3,19711,0)
+58 ;;=F03.91^^65^802^3
+59 ;;^UTILITY(U,$J,358.3,19711,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,19711,1,3,0)
+62 ;;=3^Dementia with behavioral disturbance,Unspec
+63 ;;^UTILITY(U,$J,358.3,19711,1,4,0)
+64 ;;=4^F03.91
+65 ;;^UTILITY(U,$J,358.3,19711,2)
+66 ;;=^5133350
+67 ;;^UTILITY(U,$J,358.3,19712,0)
+68 ;;=F03.90^^65^802^4
+69 ;;^UTILITY(U,$J,358.3,19712,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,19712,1,3,0)
+72 ;;=3^Dementia without behavioral disturbance,Unspec
+73 ;;^UTILITY(U,$J,358.3,19712,1,4,0)
+74 ;;=4^F03.90
+75 ;;^UTILITY(U,$J,358.3,19712,2)
+76 ;;=^5003050
+77 ;;^UTILITY(U,$J,358.3,19713,0)
+78 ;;=F33.0^^65^802^6
+79 ;;^UTILITY(U,$J,358.3,19713,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,19713,1,3,0)
+82 ;;=3^MDD,Recurrent,Mild
+83 ;;^UTILITY(U,$J,358.3,19713,1,4,0)
+84 ;;=4^F33.0
+85 ;;^UTILITY(U,$J,358.3,19713,2)
+86 ;;=^5003529
+87 ;;^UTILITY(U,$J,358.3,19714,0)
+88 ;;=F33.1^^65^802^7
+89 ;;^UTILITY(U,$J,358.3,19714,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,19714,1,3,0)
+92 ;;=3^MDD,Recurrent,Moderate
+93 ;;^UTILITY(U,$J,358.3,19714,1,4,0)
+94 ;;=4^F33.1
+95 ;;^UTILITY(U,$J,358.3,19714,2)
+96 ;;=^5003530
+97 ;;^UTILITY(U,$J,358.3,19715,0)
+98 ;;=F33.2^^65^802^8
+99 ;;^UTILITY(U,$J,358.3,19715,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,19715,1,3,0)
+102 ;;=3^MDD,Recurrent,Severe w/o Psychotic Features
+103 ;;^UTILITY(U,$J,358.3,19715,1,4,0)
+104 ;;=4^F33.2
+105 ;;^UTILITY(U,$J,358.3,19715,2)
+106 ;;=^5003531
+107 ;;^UTILITY(U,$J,358.3,19716,0)
+108 ;;=F33.9^^65^802^9
+109 ;;^UTILITY(U,$J,358.3,19716,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,19716,1,3,0)
+112 ;;=3^MDD,Recurrent,Unspec
+113 ;;^UTILITY(U,$J,358.3,19716,1,4,0)
+114 ;;=4^F33.9
+115 ;;^UTILITY(U,$J,358.3,19716,2)
+116 ;;=^5003537
+117 ;;^UTILITY(U,$J,358.3,19717,0)
+118 ;;=F25.0^^65^802^17
+119 ;;^UTILITY(U,$J,358.3,19717,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,19717,1,3,0)
+122 ;;=3^Schizoaffective Disorder,Bipolar Type
+123 ;;^UTILITY(U,$J,358.3,19717,1,4,0)
+124 ;;=4^F25.0
+125 ;;^UTILITY(U,$J,358.3,19717,2)
+126 ;;=^5003480
+127 ;;^UTILITY(U,$J,358.3,19718,0)
+128 ;;=F25.1^^65^802^18
+129 ;;^UTILITY(U,$J,358.3,19718,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,19718,1,3,0)
+132 ;;=3^Schizoaffective Disorder,Depressive Type
+133 ;;^UTILITY(U,$J,358.3,19718,1,4,0)
+134 ;;=4^F25.1
+135 ;;^UTILITY(U,$J,358.3,19718,2)
+136 ;;=^5003481
+137 ;;^UTILITY(U,$J,358.3,19719,0)
+138 ;;=F25.9^^65^802^19
+139 ;;^UTILITY(U,$J,358.3,19719,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,19719,1,3,0)
+142 ;;=3^Schizoaffective Disorder,Unspec
+143 ;;^UTILITY(U,$J,358.3,19719,1,4,0)
+144 ;;=4^F25.9
+145 ;;^UTILITY(U,$J,358.3,19719,2)
+146 ;;=^331857
+147 ;;^UTILITY(U,$J,358.3,19720,0)
+148 ;;=F32.0^^65^802^10
+149 ;;^UTILITY(U,$J,358.3,19720,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,19720,1,3,0)
+152 ;;=3^MDD,Single Episode,Mild
+153 ;;^UTILITY(U,$J,358.3,19720,1,4,0)
+154 ;;=4^F32.0
+155 ;;^UTILITY(U,$J,358.3,19720,2)
+156 ;;=^5003521
+157 ;;^UTILITY(U,$J,358.3,19721,0)
+158 ;;=F32.1^^65^802^11
+159 ;;^UTILITY(U,$J,358.3,19721,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,19721,1,3,0)
+162 ;;=3^MDD,Single Episode,Moderate
+163 ;;^UTILITY(U,$J,358.3,19721,1,4,0)
+164 ;;=4^F32.1
+165 ;;^UTILITY(U,$J,358.3,19721,2)
+166 ;;=^5003522
+167 ;;^UTILITY(U,$J,358.3,19722,0)
+168 ;;=F32.2^^65^802^13
+169 ;;^UTILITY(U,$J,358.3,19722,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,19722,1,3,0)
+172 ;;=3^MDD,Single Episode,Severe w/o Psychotic Feat
+173 ;;^UTILITY(U,$J,358.3,19722,1,4,0)
+174 ;;=4^F32.2
+175 ;;^UTILITY(U,$J,358.3,19722,2)
+176 ;;=^5003523
+177 ;;^UTILITY(U,$J,358.3,19723,0)
+178 ;;=F32.3^^65^802^12
+179 ;;^UTILITY(U,$J,358.3,19723,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,19723,1,3,0)
+182 ;;=3^MDD,Single Episode,Severe w/ Psychotic Feat
+183 ;;^UTILITY(U,$J,358.3,19723,1,4,0)
+184 ;;=4^F32.3
+185 ;;^UTILITY(U,$J,358.3,19723,2)
+186 ;;=^5003524
+187 ;;^UTILITY(U,$J,358.3,19724,0)
+188 ;;=F32.A^^65^802^5
+189 ;;^UTILITY(U,$J,358.3,19724,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,19724,1,3,0)
+192 ;;=3^Depression,Unspec
+193 ;;^UTILITY(U,$J,358.3,19724,1,4,0)
+194 ;;=4^F32.A
+195 ;;^UTILITY(U,$J,358.3,19724,2)
+196 ;;=^5161153
+197 ;;^UTILITY(U,$J,358.3,19725,0)
+198 ;;=M76.62^^65^803^1
+199 ;;^UTILITY(U,$J,358.3,19725,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,19725,1,3,0)
+202 ;;=3^Achilles Tendinitis,Lt Leg
+203 ;;^UTILITY(U,$J,358.3,19725,1,4,0)
+204 ;;=4^M76.62
+205 ;;^UTILITY(U,$J,358.3,19725,2)
+206 ;;=^5013286
+207 ;;^UTILITY(U,$J,358.3,19726,0)
+208 ;;=M76.61^^65^803^2
+209 ;;^UTILITY(U,$J,358.3,19726,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,19726,1,3,0)
+212 ;;=3^Achilles Tendinitis,Rt Leg
+213 ;;^UTILITY(U,$J,358.3,19726,1,4,0)
+214 ;;=4^M76.61
+215 ;;^UTILITY(U,$J,358.3,19726,2)
+216 ;;=^5013285
+217 ;;^UTILITY(U,$J,358.3,19727,0)
+218 ;;=M75.02^^65^803^3
+219 ;;^UTILITY(U,$J,358.3,19727,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,19727,1,3,0)
+222 ;;=3^Adhesive Capsulitis,Lt Shoulder
+223 ;;^UTILITY(U,$J,358.3,19727,1,4,0)
+224 ;;=4^M75.02
+225 ;;^UTILITY(U,$J,358.3,19727,2)
+226 ;;=^5013240
+227 ;;^UTILITY(U,$J,358.3,19728,0)
+228 ;;=M75.01^^65^803^4
+229 ;;^UTILITY(U,$J,358.3,19728,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,19728,1,3,0)
+232 ;;=3^Adhesive Capsulitis,Rt Shoulder
+233 ;;^UTILITY(U,$J,358.3,19728,1,4,0)
+234 ;;=4^M75.01
+235 ;;^UTILITY(U,$J,358.3,19728,2)
+236 ;;=^5013239
+237 ;;^UTILITY(U,$J,358.3,19729,0)
+238 ;;=M75.22^^65^803^5
+239 ;;^UTILITY(U,$J,358.3,19729,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,19729,1,3,0)
+242 ;;=3^Bicipital Tendinitis,Lt Shoulder
+243 ;;^UTILITY(U,$J,358.3,19729,1,4,0)
+244 ;;=4^M75.22
+245 ;;^UTILITY(U,$J,358.3,19729,2)
+246 ;;=^5013252
+247 ;;^UTILITY(U,$J,358.3,19730,0)
+248 ;;=M75.21^^65^803^6
+249 ;;^UTILITY(U,$J,358.3,19730,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,19730,1,3,0)
+252 ;;=3^Bicipital Tendinitis,Rt Shoulder
+253 ;;^UTILITY(U,$J,358.3,19730,1,4,0)
+254 ;;=4^M75.21
+255 ;;^UTILITY(U,$J,358.3,19730,2)
+256 ;;=^5013251
+257 ;;^UTILITY(U,$J,358.3,19731,0)
+258 ;;=M75.52^^65^803^7
+259 ;;^UTILITY(U,$J,358.3,19731,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,19731,1,3,0)
+262 ;;=3^Bursitis,Lt Shoulder
+263 ;;^UTILITY(U,$J,358.3,19731,1,4,0)
+264 ;;=4^M75.52
+265 ;;^UTILITY(U,$J,358.3,19731,2)
+266 ;;=^5133691
+267 ;;^UTILITY(U,$J,358.3,19732,0)
+268 ;;=M75.51^^65^803^8
+269 ;;^UTILITY(U,$J,358.3,19732,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,19732,1,3,0)
+272 ;;=3^Bursitis,Rt Shoulder
+273 ;;^UTILITY(U,$J,358.3,19732,1,4,0)
+274 ;;=4^M75.51
+275 ;;^UTILITY(U,$J,358.3,19732,2)
+276 ;;=^5133690
+277 ;;^UTILITY(U,$J,358.3,19733,0)
+278 ;;=M75.32^^65^803^9
+279 ;;^UTILITY(U,$J,358.3,19733,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,19733,1,3,0)
+282 ;;=3^Calcific Tendinitis,Lt Shoulder
+283 ;;^UTILITY(U,$J,358.3,19733,1,4,0)
+284 ;;=4^M75.32
+285 ;;^UTILITY(U,$J,358.3,19733,2)
+286 ;;=^5013255
+287 ;;^UTILITY(U,$J,358.3,19734,0)
+288 ;;=M75.31^^65^803^10
+289 ;;^UTILITY(U,$J,358.3,19734,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,19734,1,3,0)
+292 ;;=3^Calcific Tendinitis,Rt Shoulder
+293 ;;^UTILITY(U,$J,358.3,19734,1,4,0)
+294 ;;=4^M75.31
+295 ;;^UTILITY(U,$J,358.3,19734,2)
+296 ;;=^5013254
+297 ;;^UTILITY(U,$J,358.3,19735,0)
+298 ;;=M22.42^^65^803^13
+299 ;;^UTILITY(U,$J,358.3,19735,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,19735,1,3,0)
+302 ;;=3^Chondromalacia Patellae,Lt Knee
+303 ;;^UTILITY(U,$J,358.3,19735,1,4,0)
+304 ;;=4^M22.42
+305 ;;^UTILITY(U,$J,358.3,19735,2)
+306 ;;=^5011187
+307 ;;^UTILITY(U,$J,358.3,19736,0)
+308 ;;=M22.41^^65^803^14
+309 ;;^UTILITY(U,$J,358.3,19736,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,19736,1,3,0)
+312 ;;=3^Chondromalacia Patellae,Rt Knee
+313 ;;^UTILITY(U,$J,358.3,19736,1,4,0)
+314 ;;=4^M22.41
+315 ;;^UTILITY(U,$J,358.3,19736,2)
+316 ;;=^5011186
+317 ;;^UTILITY(U,$J,358.3,19737,0)
+318 ;;=M23.52^^65^803^15
+319 ;;^UTILITY(U,$J,358.3,19737,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,19737,1,3,0)
+322 ;;=3^Chr Instability of Lt Knee
+323 ;;^UTILITY(U,$J,358.3,19737,1,4,0)
+324 ;;=4^M23.52
+325 ;;^UTILITY(U,$J,358.3,19737,2)
+326 ;;=^5011255
+327 ;;^UTILITY(U,$J,358.3,19738,0)
+328 ;;=M23.51^^65^803^16
+329 ;;^UTILITY(U,$J,358.3,19738,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,19738,1,3,0)
+332 ;;=3^Chr Instability of Rt Knee
+333 ;;^UTILITY(U,$J,358.3,19738,1,4,0)
+334 ;;=4^M23.51
+335 ;;^UTILITY(U,$J,358.3,19738,2)
+336 ;;=^5011254
+337 ;;^UTILITY(U,$J,358.3,19739,0)
+338 ;;=T20.40XS^^65^803^17
+339 ;;^UTILITY(U,$J,358.3,19739,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,19739,1,3,0)
+342 ;;=3^Corrosion Head/Face/Neck,Unspec Degree/Site,Sequla
+343 ;;^UTILITY(U,$J,358.3,19739,1,4,0)
+344 ;;=4^T20.40XS
+345 ;;^UTILITY(U,$J,358.3,19739,2)
+346 ;;=^5046773
+347 ;;^UTILITY(U,$J,358.3,19740,0)
+348 ;;=M62.9^^65^803^40
+349 ;;^UTILITY(U,$J,358.3,19740,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,19740,1,3,0)
+352 ;;=3^Muscle Disorder,Unspec
+353 ;;^UTILITY(U,$J,358.3,19740,1,4,0)
+354 ;;=4^M62.9
+355 ;;^UTILITY(U,$J,358.3,19740,2)
+356 ;;=^5012684
+357 ;;^UTILITY(U,$J,358.3,19741,0)
+358 ;;=M25.40^^65^803^20
+359 ;;^UTILITY(U,$J,358.3,19741,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,19741,1,3,0)
+362 ;;=3^Effusion,Joint Unspec
+363 ;;^UTILITY(U,$J,358.3,19741,1,4,0)
+364 ;;=4^M25.40
+365 ;;^UTILITY(U,$J,358.3,19741,2)
+366 ;;=^5011575
+367 ;;^UTILITY(U,$J,358.3,19742,0)
+368 ;;=M21.42^^65^803^21
+369 ;;^UTILITY(U,$J,358.3,19742,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,19742,1,3,0)
+372 ;;=3^Flat Foot,Lt Foot
+373 ;;^UTILITY(U,$J,358.3,19742,1,4,0)
+374 ;;=4^M21.42
+375 ;;^UTILITY(U,$J,358.3,19742,2)
+376 ;;=^5011115
+377 ;;^UTILITY(U,$J,358.3,19743,0)
+378 ;;=M21.41^^65^803^22
+379 ;;^UTILITY(U,$J,358.3,19743,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,19743,1,3,0)
+382 ;;=3^Flat Foot,Rt Foot
+383 ;;^UTILITY(U,$J,358.3,19743,1,4,0)
+384 ;;=4^M21.41
+385 ;;^UTILITY(U,$J,358.3,19743,2)
+386 ;;=^5011114
+387 ;;^UTILITY(U,$J,358.3,19744,0)
+388 ;;=M76.22^^65^803^23
+389 ;;^UTILITY(U,$J,358.3,19744,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,19744,1,3,0)
+392 ;;=3^Iliac Crest Spur,Lt Hip
+393 ;;^UTILITY(U,$J,358.3,19744,1,4,0)
+394 ;;=4^M76.22
+395 ;;^UTILITY(U,$J,358.3,19744,2)
+396 ;;=^5013274
+397 ;;^UTILITY(U,$J,358.3,19745,0)
+398 ;;=M76.21^^65^803^24
+399 ;;^UTILITY(U,$J,358.3,19745,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,19745,1,3,0)
+402 ;;=3^Iliac Crest Spur,Rt Hip
+403 ;;^UTILITY(U,$J,358.3,19745,1,4,0)
+404 ;;=4^M76.21
+405 ;;^UTILITY(U,$J,358.3,19745,2)
+406 ;;=^5013273
+407 ;;^UTILITY(U,$J,358.3,19746,0)
+408 ;;=M77.12^^65^803^31
+409 ;;^UTILITY(U,$J,358.3,19746,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,19746,1,3,0)
+412 ;;=3^Lateral Epicondylitis,Lt Elbow
+413 ;;^UTILITY(U,$J,358.3,19746,1,4,0)
+414 ;;=4^M77.12
+415 ;;^UTILITY(U,$J,358.3,19746,2)
+416 ;;=^5013305
+417 ;;^UTILITY(U,$J,358.3,19747,0)
+418 ;;=M77.11^^65^803^32
+419 ;;^UTILITY(U,$J,358.3,19747,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,19747,1,3,0)
+422 ;;=3^Lateral Epicondylitis,Rt Elbow
+423 ;;^UTILITY(U,$J,358.3,19747,1,4,0)
+424 ;;=4^M77.11
+425 ;;^UTILITY(U,$J,358.3,19747,2)
+426 ;;=^5013304
+427 ;;^UTILITY(U,$J,358.3,19748,0)
+428 ;;=M25.572^^65^803^45
+429 ;;^UTILITY(U,$J,358.3,19748,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,19748,1,3,0)
+432 ;;=3^Pain,Lt Ankle/Foot Joints
+433 ;;^UTILITY(U,$J,358.3,19748,1,4,0)
+434 ;;=4^M25.572
+435 ;;^UTILITY(U,$J,358.3,19748,2)
+436 ;;=^5011618
+437 ;;^UTILITY(U,$J,358.3,19749,0)
+438 ;;=M25.522^^65^803^46
+439 ;;^UTILITY(U,$J,358.3,19749,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,19749,1,3,0)
+442 ;;=3^Pain,Lt Elbow
+443 ;;^UTILITY(U,$J,358.3,19749,1,4,0)
+444 ;;=4^M25.522
+445 ;;^UTILITY(U,$J,358.3,19749,2)
+446 ;;=^5011606
+447 ;;^UTILITY(U,$J,358.3,19750,0)
+448 ;;=M79.642^^65^803^47
+449 ;;^UTILITY(U,$J,358.3,19750,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,19750,1,3,0)
+452 ;;=3^Pain,Lt Hand
+453 ;;^UTILITY(U,$J,358.3,19750,1,4,0)
+454 ;;=4^M79.642
+455 ;;^UTILITY(U,$J,358.3,19750,2)
+456 ;;=^5013339
+457 ;;^UTILITY(U,$J,358.3,19751,0)
+458 ;;=M25.552^^65^803^48
+459 ;;^UTILITY(U,$J,358.3,19751,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,19751,1,3,0)
+462 ;;=3^Pain,Lt Hip
+463 ;;^UTILITY(U,$J,358.3,19751,1,4,0)
+464 ;;=4^M25.552
+465 ;;^UTILITY(U,$J,358.3,19751,2)
+466 ;;=^5011612
+467 ;;^UTILITY(U,$J,358.3,19752,0)
+468 ;;=M25.562^^65^803^49
+469 ;;^UTILITY(U,$J,358.3,19752,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,19752,1,3,0)
+472 ;;=3^Pain,Lt Knee
+473 ;;^UTILITY(U,$J,358.3,19752,1,4,0)
+474 ;;=4^M25.562
+475 ;;^UTILITY(U,$J,358.3,19752,2)
+476 ;;=^5011615
+477 ;;^UTILITY(U,$J,358.3,19753,0)
+478 ;;=M25.512^^65^803^50
+479 ;;^UTILITY(U,$J,358.3,19753,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,19753,1,3,0)
+482 ;;=3^Pain,Lt Shoulder
+483 ;;^UTILITY(U,$J,358.3,19753,1,4,0)
+484 ;;=4^M25.512
+485 ;;^UTILITY(U,$J,358.3,19753,2)
+486 ;;=^5011603
+487 ;;^UTILITY(U,$J,358.3,19754,0)
+488 ;;=M25.532^^65^803^51
+489 ;;^UTILITY(U,$J,358.3,19754,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,19754,1,3,0)
+492 ;;=3^Pain,Lt Wrist
+493 ;;^UTILITY(U,$J,358.3,19754,1,4,0)
+494 ;;=4^M25.532
+495 ;;^UTILITY(U,$J,358.3,19754,2)
+496 ;;=^5011609
+497 ;;^UTILITY(U,$J,358.3,19755,0)
+498 ;;=M25.571^^65^803^52
+499 ;;^UTILITY(U,$J,358.3,19755,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,19755,1,3,0)
+502 ;;=3^Pain,Rt Ankle/Foot Joints
+503 ;;^UTILITY(U,$J,358.3,19755,1,4,0)
+504 ;;=4^M25.571
+505 ;;^UTILITY(U,$J,358.3,19755,2)
+506 ;;=^5011617
+507 ;;^UTILITY(U,$J,358.3,19756,0)
+508 ;;=M25.521^^65^803^55
+509 ;;^UTILITY(U,$J,358.3,19756,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,19756,1,3,0)
+512 ;;=3^Pain,Rt Shoulder
+513 ;;^UTILITY(U,$J,358.3,19756,1,4,0)
+514 ;;=4^M25.521
+515 ;;^UTILITY(U,$J,358.3,19756,2)
+516 ;;=^5011605
+517 ;;^UTILITY(U,$J,358.3,19757,0)
+518 ;;=M79.641^^65^803^53
+519 ;;^UTILITY(U,$J,358.3,19757,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,19757,1,3,0)
+522 ;;=3^Pain,Rt Hand
+523 ;;^UTILITY(U,$J,358.3,19757,1,4,0)
+524 ;;=4^M79.641
+525 ;;^UTILITY(U,$J,358.3,19757,2)
+526 ;;=^5013338
+527 ;;^UTILITY(U,$J,358.3,19758,0)
+528 ;;=M25.551^^65^803^54
+529 ;;^UTILITY(U,$J,358.3,19758,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,19758,1,3,0)
+532 ;;=3^Pain,Rt Hip
+533 ;;^UTILITY(U,$J,358.3,19758,1,4,0)
+534 ;;=4^M25.551
+535 ;;^UTILITY(U,$J,358.3,19758,2)
+536 ;;=^5011611
+537 ;;^UTILITY(U,$J,358.3,19759,0)
+538 ;;=M25.531^^65^803^56
+539 ;;^UTILITY(U,$J,358.3,19759,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,19759,1,3,0)
+542 ;;=3^Pain,Rt Wrist
+543 ;;^UTILITY(U,$J,358.3,19759,1,4,0)
+544 ;;=4^M25.531
+545 ;;^UTILITY(U,$J,358.3,19759,2)
+546 ;;=^5011608
+547 ;;^UTILITY(U,$J,358.3,19760,0)
+548 ;;=S43.422A^^65^803^75
+549 ;;^UTILITY(U,$J,358.3,19760,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,19760,1,3,0)
+552 ;;=3^Sprain,Lt Rotator Cuff Capsule,Init Encntr
+553 ;;^UTILITY(U,$J,358.3,19760,1,4,0)
+554 ;;=4^S43.422A
+555 ;;^UTILITY(U,$J,358.3,19760,2)
+556 ;;=^5027882
+557 ;;^UTILITY(U,$J,358.3,19761,0)
+558 ;;=S43.421A^^65^803^76
+559 ;;^UTILITY(U,$J,358.3,19761,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,19761,1,3,0)
+562 ;;=3^Sprain,Rt Rotator Cuff Capsule,Init Encntr
+563 ;;^UTILITY(U,$J,358.3,19761,1,4,0)
+564 ;;=4^S43.421A
+565 ;;^UTILITY(U,$J,358.3,19761,2)
+566 ;;=^5027879
+567 ;;^UTILITY(U,$J,358.3,19762,0)
+568 ;;=S93.402A^^65^803^77
+569 ;;^UTILITY(U,$J,358.3,19762,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,19762,1,3,0)
+572 ;;=3^Sprain,Unspec Ligament,Lt Ankle,Init Encntr
+573 ;;^UTILITY(U,$J,358.3,19762,1,4,0)
+574 ;;=4^S93.402A
+575 ;;^UTILITY(U,$J,358.3,19762,2)
+576 ;;=^5045777
+577 ;;^UTILITY(U,$J,358.3,19763,0)
+578 ;;=S93.401A^^65^803^78
+579 ;;^UTILITY(U,$J,358.3,19763,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,19763,1,3,0)
+582 ;;=3^Sprain,Unspec Ligament,Rt Ankle,Init Encntr
+583 ;;^UTILITY(U,$J,358.3,19763,1,4,0)
+584 ;;=4^S93.401A
+585 ;;^UTILITY(U,$J,358.3,19763,2)
+586 ;;=^5045774
+587 ;;^UTILITY(U,$J,358.3,19764,0)
+588 ;;=S96.912A^^65^803^81
+589 ;;^UTILITY(U,$J,358.3,19764,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,19764,1,3,0)
+592 ;;=3^Strain,Msl/Tnd,Ankle/Foot Level,Lt Foot,Init Encntr
+593 ;;^UTILITY(U,$J,358.3,19764,1,4,0)
+594 ;;=4^S96.912A
+595 ;;^UTILITY(U,$J,358.3,19764,2)
+596 ;;=^5137751
+597 ;;^UTILITY(U,$J,358.3,19765,0)
+598 ;;=S96.911A^^65^803^82
+599 ;;^UTILITY(U,$J,358.3,19765,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,19765,1,3,0)
+602 ;;=3^Strain,Msl/Tnd,Ankle/Foot Level,Rt Foot,Init Encntr
+603 ;;^UTILITY(U,$J,358.3,19765,1,4,0)
+604 ;;=4^S96.911A
+605 ;;^UTILITY(U,$J,358.3,19765,2)
+606 ;;=^5137750
+607 ;;^UTILITY(U,$J,358.3,19766,0)
+608 ;;=S56.912A^^65^803^79
+609 ;;^UTILITY(U,$J,358.3,19766,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,19766,1,3,0)
+612 ;;=3^Strain,Msl/Fasc/Tnd,Forearm Level,Lt Arm,Init Encntr
+613 ;;^UTILITY(U,$J,358.3,19766,1,4,0)
+614 ;;=4^S56.912A
+615 ;;^UTILITY(U,$J,358.3,19766,2)
+616 ;;=^5135514
+617 ;;^UTILITY(U,$J,358.3,19767,0)
+618 ;;=S56.911A^^65^803^80
+619 ;;^UTILITY(U,$J,358.3,19767,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,19767,1,3,0)
+622 ;;=3^Strain,Msl/Fasc/Tnd,Forearm Level,Rt Arm,Init Encntr
+623 ;;^UTILITY(U,$J,358.3,19767,1,4,0)
+624 ;;=4^S56.911A
+625 ;;^UTILITY(U,$J,358.3,19767,2)
+626 ;;=^5135513
+627 ;;^UTILITY(U,$J,358.3,19768,0)
+628 ;;=M75.112^^65^803^25
+629 ;;^UTILITY(U,$J,358.3,19768,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,19768,1,3,0)
+632 ;;=3^Incomplete Rotator-Cuff Tear/Ruptr,Lt Shoulder
+633 ;;^UTILITY(U,$J,358.3,19768,1,4,0)
+634 ;;=4^M75.112
+635 ;;^UTILITY(U,$J,358.3,19768,2)
+636 ;;=^5013246
+637 ;;^UTILITY(U,$J,358.3,19769,0)
+638 ;;=M75.111^^65^803^26
+639 ;;^UTILITY(U,$J,358.3,19769,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,19769,1,3,0)
+642 ;;=3^Incomplete Rotator-Cuff Tear/Ruptr,Rt Shoulder
+643 ;;^UTILITY(U,$J,358.3,19769,1,4,0)
+644 ;;=4^M75.111
+645 ;;^UTILITY(U,$J,358.3,19769,2)
+646 ;;=^5013245
+647 ;;^UTILITY(U,$J,358.3,19770,0)
+648 ;;=M23.8X2^^65^803^27
+649 ;;^UTILITY(U,$J,358.3,19770,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,19770,1,3,0)
+652 ;;=3^Internal Derangement,Lt Knee NEC
+653 ;;^UTILITY(U,$J,358.3,19770,1,4,0)
+654 ;;=4^M23.8X2
+655 ;;^UTILITY(U,$J,358.3,19770,2)
+656 ;;=^5011274
+657 ;;^UTILITY(U,$J,358.3,19771,0)
+658 ;;=M23.8X1^^65^803^28
+659 ;;^UTILITY(U,$J,358.3,19771,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,19771,1,3,0)
+662 ;;=3^Internal Derangement,Rt Knee NEC
+663 ;;^UTILITY(U,$J,358.3,19771,1,4,0)
+664 ;;=4^M23.8X1
+665 ;;^UTILITY(U,$J,358.3,19771,2)
+666 ;;=^5011273
+667 ;;^UTILITY(U,$J,358.3,19772,0)
+668 ;;=M62.838^^65^803^43
+669 ;;^UTILITY(U,$J,358.3,19772,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,19772,1,3,0)
+672 ;;=3^Muscle spasm NEC
+673 ;;^UTILITY(U,$J,358.3,19772,1,4,0)
+674 ;;=4^M62.838
+675 ;;^UTILITY(U,$J,358.3,19772,2)
+676 ;;=^5012682
+677 ;;^UTILITY(U,$J,358.3,19773,0)
+678 ;;=M76.52^^65^803^57
+679 ;;^UTILITY(U,$J,358.3,19773,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,19773,1,3,0)
+682 ;;=3^Patellar Tendinitis,Lt Knee
+683 ;;^UTILITY(U,$J,358.3,19773,1,4,0)
+684 ;;=4^M76.52
+685 ;;^UTILITY(U,$J,358.3,19773,2)
+686 ;;=^5013283
+687 ;;^UTILITY(U,$J,358.3,19774,0)
+688 ;;=M76.51^^65^803^58
+689 ;;^UTILITY(U,$J,358.3,19774,1,0)
+690 ;;=^358.31IA^4^2
