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

IBDEI081.m

Go to the documentation of this file.
IBDEI081 ; ; 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,19569,0)
 ;;=Z95.0^^65^797^30
 ;;^UTILITY(U,$J,358.3,19569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19569,1,3,0)
 ;;=3^Presence of cardiac pacemaker
 ;;^UTILITY(U,$J,358.3,19569,1,4,0)
 ;;=4^Z95.0
 ;;^UTILITY(U,$J,358.3,19569,2)
 ;;=^5063668
 ;;^UTILITY(U,$J,358.3,19570,0)
 ;;=J98.9^^65^797^31
 ;;^UTILITY(U,$J,358.3,19570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19570,1,3,0)
 ;;=3^Respiratory disorder, unspecified
 ;;^UTILITY(U,$J,358.3,19570,1,4,0)
 ;;=4^J98.9
 ;;^UTILITY(U,$J,358.3,19570,2)
 ;;=^5008366
 ;;^UTILITY(U,$J,358.3,19571,0)
 ;;=I22.9^^65^797^33
 ;;^UTILITY(U,$J,358.3,19571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19571,1,3,0)
 ;;=3^Subsequent STEMI of unsp site
 ;;^UTILITY(U,$J,358.3,19571,1,4,0)
 ;;=4^I22.9
 ;;^UTILITY(U,$J,358.3,19571,2)
 ;;=^5007093
 ;;^UTILITY(U,$J,358.3,19572,0)
 ;;=I48.91^^65^797^6
 ;;^UTILITY(U,$J,358.3,19572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19572,1,3,0)
 ;;=3^AFIB-Unspec
 ;;^UTILITY(U,$J,358.3,19572,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,19572,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,19573,0)
 ;;=I25.110^^65^797^11
 ;;^UTILITY(U,$J,358.3,19573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19573,1,3,0)
 ;;=3^CAD w/ Unstable Agngia
 ;;^UTILITY(U,$J,358.3,19573,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,19573,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,19574,0)
 ;;=I25.111^^65^797^12
 ;;^UTILITY(U,$J,358.3,19574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19574,1,3,0)
 ;;=3^CAD w/ Unstable Angia w/ Documented Spasm
 ;;^UTILITY(U,$J,358.3,19574,1,4,0)
 ;;=4^I25.111
 ;;^UTILITY(U,$J,358.3,19574,2)
 ;;=^5007109
 ;;^UTILITY(U,$J,358.3,19575,0)
 ;;=I25.118^^65^797^10
 ;;^UTILITY(U,$J,358.3,19575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19575,1,3,0)
 ;;=3^CAD w/ Oth Forms of Angina (Includes Stable)
 ;;^UTILITY(U,$J,358.3,19575,1,4,0)
 ;;=4^I25.118
 ;;^UTILITY(U,$J,358.3,19575,2)
 ;;=^5007110
 ;;^UTILITY(U,$J,358.3,19576,0)
 ;;=I48.0^^65^797^4
 ;;^UTILITY(U,$J,358.3,19576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19576,1,3,0)
 ;;=3^AFIB-Paroxysmal
 ;;^UTILITY(U,$J,358.3,19576,1,4,0)
 ;;=4^I48.0
 ;;^UTILITY(U,$J,358.3,19576,2)
 ;;=^90473
 ;;^UTILITY(U,$J,358.3,19577,0)
 ;;=I48.11^^65^797^2
 ;;^UTILITY(U,$J,358.3,19577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19577,1,3,0)
 ;;=3^AFIB-Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,19577,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,19577,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,19578,0)
 ;;=I48.19^^65^797^3
 ;;^UTILITY(U,$J,358.3,19578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19578,1,3,0)
 ;;=3^AFIB-Oth Persistent
 ;;^UTILITY(U,$J,358.3,19578,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,19578,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,19579,0)
 ;;=I48.20^^65^797^1
 ;;^UTILITY(U,$J,358.3,19579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19579,1,3,0)
 ;;=3^AFIB-Chronic Unspec
 ;;^UTILITY(U,$J,358.3,19579,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,19579,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,19580,0)
 ;;=I48.21^^65^797^5
 ;;^UTILITY(U,$J,358.3,19580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19580,1,3,0)
 ;;=3^AFIB-Permanent
 ;;^UTILITY(U,$J,358.3,19580,1,4,0)
 ;;=4^I48.21
 ;;^UTILITY(U,$J,358.3,19580,2)
 ;;=^304710
 ;;^UTILITY(U,$J,358.3,19581,0)
 ;;=I48.3^^65^797^9
 ;;^UTILITY(U,$J,358.3,19581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19581,1,3,0)
 ;;=3^Atrial Flutter-Typical
 ;;^UTILITY(U,$J,358.3,19581,1,4,0)
 ;;=4^I48.3
 ;;^UTILITY(U,$J,358.3,19581,2)
 ;;=^5007227
 ;;^UTILITY(U,$J,358.3,19582,0)
 ;;=I48.4^^65^797^8
 ;;^UTILITY(U,$J,358.3,19582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19582,1,3,0)
 ;;=3^Atrial Flutter-Atypical
 ;;^UTILITY(U,$J,358.3,19582,1,4,0)
 ;;=4^I48.4
 ;;^UTILITY(U,$J,358.3,19582,2)
 ;;=^5007228
 ;;^UTILITY(U,$J,358.3,19583,0)
 ;;=J44.0^^65^797^20
 ;;^UTILITY(U,$J,358.3,19583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19583,1,3,0)
 ;;=3^COPD w/ Lower Resp Infection
 ;;^UTILITY(U,$J,358.3,19583,1,4,0)
 ;;=4^J44.0
 ;;^UTILITY(U,$J,358.3,19583,2)
 ;;=^5008239
 ;;^UTILITY(U,$J,358.3,19584,0)
 ;;=I50.22^^65^797^18
 ;;^UTILITY(U,$J,358.3,19584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19584,1,3,0)
 ;;=3^CHF,Systolic (Chr HFrEF)
 ;;^UTILITY(U,$J,358.3,19584,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,19584,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,19585,0)
 ;;=I50.32^^65^797^14
 ;;^UTILITY(U,$J,358.3,19585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19585,1,3,0)
 ;;=3^CHF,Diastolic (Chr HFpEF)
 ;;^UTILITY(U,$J,358.3,19585,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,19585,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,19586,0)
 ;;=I50.42^^65^797^13
 ;;^UTILITY(U,$J,358.3,19586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19586,1,3,0)
 ;;=3^CHF,Combined Systolic & Diastolic
 ;;^UTILITY(U,$J,358.3,19586,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,19586,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,19587,0)
 ;;=I50.84^^65^797^25
 ;;^UTILITY(U,$J,358.3,19587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19587,1,3,0)
 ;;=3^End Stage Heart Failure
 ;;^UTILITY(U,$J,358.3,19587,1,4,0)
 ;;=4^I50.84
 ;;^UTILITY(U,$J,358.3,19587,2)
 ;;=^5151391
 ;;^UTILITY(U,$J,358.3,19588,0)
 ;;=I50.43^^65^797^15
 ;;^UTILITY(U,$J,358.3,19588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19588,1,3,0)
 ;;=3^CHF,Exacerbated Combined Systolic & Diastolic
 ;;^UTILITY(U,$J,358.3,19588,1,4,0)
 ;;=4^I50.43
 ;;^UTILITY(U,$J,358.3,19588,2)
 ;;=^5007250
 ;;^UTILITY(U,$J,358.3,19589,0)
 ;;=I50.33^^65^797^16
 ;;^UTILITY(U,$J,358.3,19589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19589,1,3,0)
 ;;=3^CHF,Exacerbated Diastolic (HFpEF)
 ;;^UTILITY(U,$J,358.3,19589,1,4,0)
 ;;=4^I50.33
 ;;^UTILITY(U,$J,358.3,19589,2)
 ;;=^5007246
 ;;^UTILITY(U,$J,358.3,19590,0)
 ;;=I50.23^^65^797^17
 ;;^UTILITY(U,$J,358.3,19590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19590,1,3,0)
 ;;=3^CHF,Exacerbated Systolic (HFrEF)
 ;;^UTILITY(U,$J,358.3,19590,1,4,0)
 ;;=4^I50.23
 ;;^UTILITY(U,$J,358.3,19590,2)
 ;;=^5007242
 ;;^UTILITY(U,$J,358.3,19591,0)
 ;;=F81.81^^65^798^4
 ;;^UTILITY(U,$J,358.3,19591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19591,1,3,0)
 ;;=3^Disorder of written expression
 ;;^UTILITY(U,$J,358.3,19591,1,4,0)
 ;;=4^F81.81
 ;;^UTILITY(U,$J,358.3,19591,2)
 ;;=^5003680
 ;;^UTILITY(U,$J,358.3,19592,0)
 ;;=R41.3^^65^798^1
 ;;^UTILITY(U,$J,358.3,19592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19592,1,3,0)
 ;;=3^Amnesia NEC
 ;;^UTILITY(U,$J,358.3,19592,1,4,0)
 ;;=4^R41.3
 ;;^UTILITY(U,$J,358.3,19592,2)
 ;;=^5019439
 ;;^UTILITY(U,$J,358.3,19593,0)
 ;;=F81.89^^65^798^3
 ;;^UTILITY(U,$J,358.3,19593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19593,1,3,0)
 ;;=3^Developmental disorders of scholastic skills NEC
 ;;^UTILITY(U,$J,358.3,19593,1,4,0)
 ;;=4^F81.89
 ;;^UTILITY(U,$J,358.3,19593,2)
 ;;=^5003681
 ;;^UTILITY(U,$J,358.3,19594,0)
 ;;=F07.81^^65^798^6
 ;;^UTILITY(U,$J,358.3,19594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19594,1,3,0)
 ;;=3^Postconcussional syndrome
 ;;^UTILITY(U,$J,358.3,19594,1,4,0)
 ;;=4^F07.81
 ;;^UTILITY(U,$J,358.3,19594,2)
 ;;=^5003064
 ;;^UTILITY(U,$J,358.3,19595,0)
 ;;=R41.2^^65^798^7
 ;;^UTILITY(U,$J,358.3,19595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19595,1,3,0)
 ;;=3^Retrograde amnesia
 ;;^UTILITY(U,$J,358.3,19595,1,4,0)
 ;;=4^R41.2
 ;;^UTILITY(U,$J,358.3,19595,2)
 ;;=^5019438
 ;;^UTILITY(U,$J,358.3,19596,0)
 ;;=I69.314^^65^798^5
 ;;^UTILITY(U,$J,358.3,19596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19596,1,3,0)
 ;;=3^Frontal Lobe & Executive Function Deficit-CVA Sequela
 ;;^UTILITY(U,$J,358.3,19596,1,4,0)
 ;;=4^I69.314
 ;;^UTILITY(U,$J,358.3,19596,2)
 ;;=^5138648
 ;;^UTILITY(U,$J,358.3,19597,0)
 ;;=I69.315^^65^798^2
 ;;^UTILITY(U,$J,358.3,19597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19597,1,3,0)
 ;;=3^Cognitive Social or Emotional Deficit-CVA Sequela
 ;;^UTILITY(U,$J,358.3,19597,1,4,0)
 ;;=4^I69.315
 ;;^UTILITY(U,$J,358.3,19597,2)
 ;;=^5138649
 ;;^UTILITY(U,$J,358.3,19598,0)
 ;;=T84.81XA^^65^799^2
 ;;^UTILITY(U,$J,358.3,19598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19598,1,3,0)
 ;;=3^Embolism d/t internal orthopedic prosth dev/grft, init
 ;;^UTILITY(U,$J,358.3,19598,1,4,0)
 ;;=4^T84.81XA
 ;;^UTILITY(U,$J,358.3,19598,2)
 ;;=^5055454
 ;;^UTILITY(U,$J,358.3,19599,0)
 ;;=T84.82XA^^65^799^3
 ;;^UTILITY(U,$J,358.3,19599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19599,1,3,0)
 ;;=3^Fibrosis d/t internal orthopedic prosth dev/grft, init
 ;;^UTILITY(U,$J,358.3,19599,1,4,0)
 ;;=4^T84.82XA
 ;;^UTILITY(U,$J,358.3,19599,2)
 ;;=^5055457
 ;;^UTILITY(U,$J,358.3,19600,0)
 ;;=T84.83XA^^65^799^4
 ;;^UTILITY(U,$J,358.3,19600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19600,1,3,0)
 ;;=3^Hemorrhage d/t internal orthopedic prosth dev/grft, init
 ;;^UTILITY(U,$J,358.3,19600,1,4,0)
 ;;=4^T84.83XA
 ;;^UTILITY(U,$J,358.3,19600,2)
 ;;=^5055460
 ;;^UTILITY(U,$J,358.3,19601,0)
 ;;=T84.84XA^^65^799^5
 ;;^UTILITY(U,$J,358.3,19601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19601,1,3,0)
 ;;=3^Pain d/t internal orthopedic prosth dev/grft, init
 ;;^UTILITY(U,$J,358.3,19601,1,4,0)
 ;;=4^T84.84XA
 ;;^UTILITY(U,$J,358.3,19601,2)
 ;;=^5055463
 ;;^UTILITY(U,$J,358.3,19602,0)
 ;;=T84.85XA^^65^799^6
 ;;^UTILITY(U,$J,358.3,19602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19602,1,3,0)
 ;;=3^Stenosis d/t internal orthopedic prosth dev/grft, init
 ;;^UTILITY(U,$J,358.3,19602,1,4,0)
 ;;=4^T84.85XA
 ;;^UTILITY(U,$J,358.3,19602,2)
 ;;=^5055466
 ;;^UTILITY(U,$J,358.3,19603,0)
 ;;=T84.86XA^^65^799^7
 ;;^UTILITY(U,$J,358.3,19603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19603,1,3,0)
 ;;=3^Thrombosis d/t internal orthopedic prosth dev/grft, init
 ;;^UTILITY(U,$J,358.3,19603,1,4,0)
 ;;=4^T84.86XA
 ;;^UTILITY(U,$J,358.3,19603,2)
 ;;=^5055469
 ;;^UTILITY(U,$J,358.3,19604,0)
 ;;=T88.9XXS^^65^799^1
 ;;^UTILITY(U,$J,358.3,19604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19604,1,3,0)
 ;;=3^Complication of surgical and medical care, unsp, sequela
 ;;^UTILITY(U,$J,358.3,19604,1,4,0)
 ;;=4^T88.9XXS
 ;;^UTILITY(U,$J,358.3,19604,2)
 ;;=^5055819
 ;;^UTILITY(U,$J,358.3,19605,0)
 ;;=M86.672^^65^800^2
 ;;^UTILITY(U,$J,358.3,19605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19605,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Ankle/Foot NEC
 ;;^UTILITY(U,$J,358.3,19605,1,4,0)
 ;;=4^M86.672
 ;;^UTILITY(U,$J,358.3,19605,2)
 ;;=^5014642
 ;;^UTILITY(U,$J,358.3,19606,0)
 ;;=M86.642^^65^800^3
 ;;^UTILITY(U,$J,358.3,19606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19606,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Hand NEC
 ;;^UTILITY(U,$J,358.3,19606,1,4,0)
 ;;=4^M86.642
 ;;^UTILITY(U,$J,358.3,19606,2)
 ;;=^5134074
 ;;^UTILITY(U,$J,358.3,19607,0)
 ;;=M86.622^^65^800^4
 ;;^UTILITY(U,$J,358.3,19607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19607,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Humerus NEC
 ;;^UTILITY(U,$J,358.3,19607,1,4,0)
 ;;=4^M86.622
 ;;^UTILITY(U,$J,358.3,19607,2)
 ;;=^5134070
 ;;^UTILITY(U,$J,358.3,19608,0)
 ;;=M86.632^^65^800^5
 ;;^UTILITY(U,$J,358.3,19608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19608,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Radius/Ulna NEC
 ;;^UTILITY(U,$J,358.3,19608,1,4,0)
 ;;=4^M86.632
 ;;^UTILITY(U,$J,358.3,19608,2)
 ;;=^5134072
 ;;^UTILITY(U,$J,358.3,19609,0)
 ;;=M86.612^^65^800^6
 ;;^UTILITY(U,$J,358.3,19609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19609,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Shoulder NEC
 ;;^UTILITY(U,$J,358.3,19609,1,4,0)
 ;;=4^M86.612
 ;;^UTILITY(U,$J,358.3,19609,2)
 ;;=^5014632
 ;;^UTILITY(U,$J,358.3,19610,0)
 ;;=M86.652^^65^800^7
 ;;^UTILITY(U,$J,358.3,19610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19610,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Thigh NEC
 ;;^UTILITY(U,$J,358.3,19610,1,4,0)
 ;;=4^M86.652
 ;;^UTILITY(U,$J,358.3,19610,2)
 ;;=^5014638
 ;;^UTILITY(U,$J,358.3,19611,0)
 ;;=M86.662^^65^800^8
 ;;^UTILITY(U,$J,358.3,19611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19611,1,3,0)
 ;;=3^Chr Osteomyelitis,Lt Tibia/Fibula NEC
 ;;^UTILITY(U,$J,358.3,19611,1,4,0)
 ;;=4^M86.662
 ;;^UTILITY(U,$J,358.3,19611,2)
 ;;=^5134076
 ;;^UTILITY(U,$J,358.3,19612,0)
 ;;=M86.671^^65^800^9
 ;;^UTILITY(U,$J,358.3,19612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19612,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Ankle/Foot NEC
 ;;^UTILITY(U,$J,358.3,19612,1,4,0)
 ;;=4^M86.671
 ;;^UTILITY(U,$J,358.3,19612,2)
 ;;=^5014641
 ;;^UTILITY(U,$J,358.3,19613,0)
 ;;=M86.641^^65^800^10
 ;;^UTILITY(U,$J,358.3,19613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19613,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Hand
 ;;^UTILITY(U,$J,358.3,19613,1,4,0)
 ;;=4^M86.641
 ;;^UTILITY(U,$J,358.3,19613,2)
 ;;=^5014636
 ;;^UTILITY(U,$J,358.3,19614,0)
 ;;=M86.621^^65^800^11
 ;;^UTILITY(U,$J,358.3,19614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19614,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Humerus NEC
 ;;^UTILITY(U,$J,358.3,19614,1,4,0)
 ;;=4^M86.621
 ;;^UTILITY(U,$J,358.3,19614,2)
 ;;=^5014634
 ;;^UTILITY(U,$J,358.3,19615,0)
 ;;=M86.631^^65^800^12
 ;;^UTILITY(U,$J,358.3,19615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19615,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Radius/Ulna NEC
 ;;^UTILITY(U,$J,358.3,19615,1,4,0)
 ;;=4^M86.631
 ;;^UTILITY(U,$J,358.3,19615,2)
 ;;=^5014635
 ;;^UTILITY(U,$J,358.3,19616,0)
 ;;=M86.611^^65^800^13
 ;;^UTILITY(U,$J,358.3,19616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19616,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Shoulder NEC
 ;;^UTILITY(U,$J,358.3,19616,1,4,0)
 ;;=4^M86.611
 ;;^UTILITY(U,$J,358.3,19616,2)
 ;;=^5014631
 ;;^UTILITY(U,$J,358.3,19617,0)
 ;;=M86.651^^65^800^14
 ;;^UTILITY(U,$J,358.3,19617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19617,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Thigh NEC
 ;;^UTILITY(U,$J,358.3,19617,1,4,0)
 ;;=4^M86.651
 ;;^UTILITY(U,$J,358.3,19617,2)
 ;;=^5014637
 ;;^UTILITY(U,$J,358.3,19618,0)
 ;;=M86.661^^65^800^15
 ;;^UTILITY(U,$J,358.3,19618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19618,1,3,0)
 ;;=3^Chr Osteomyelitis,Rt Tibia/Fibula NEC
 ;;^UTILITY(U,$J,358.3,19618,1,4,0)
 ;;=4^M86.661
 ;;^UTILITY(U,$J,358.3,19618,2)
 ;;=^5014640
 ;;^UTILITY(U,$J,358.3,19619,0)
 ;;=M25.672^^65^800^23
 ;;^UTILITY(U,$J,358.3,19619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19619,1,3,0)
 ;;=3^Stiffness,Lt Ankle NEC
 ;;^UTILITY(U,$J,358.3,19619,1,4,0)
 ;;=4^M25.672
 ;;^UTILITY(U,$J,358.3,19619,2)
 ;;=^5011640
 ;;^UTILITY(U,$J,358.3,19620,0)
 ;;=M25.622^^65^800^24
 ;;^UTILITY(U,$J,358.3,19620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19620,1,3,0)
 ;;=3^Stiffness,Lt Elbow NEC
 ;;^UTILITY(U,$J,358.3,19620,1,4,0)
 ;;=4^M25.622
 ;;^UTILITY(U,$J,358.3,19620,2)
 ;;=^5011625
 ;;^UTILITY(U,$J,358.3,19621,0)
 ;;=M25.675^^65^800^25
 ;;^UTILITY(U,$J,358.3,19621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19621,1,3,0)
 ;;=3^Stiffness,Lt Foot NEC
 ;;^UTILITY(U,$J,358.3,19621,1,4,0)
 ;;=4^M25.675
 ;;^UTILITY(U,$J,358.3,19621,2)
 ;;=^5011643
 ;;^UTILITY(U,$J,358.3,19622,0)
 ;;=M25.642^^65^800^26
 ;;^UTILITY(U,$J,358.3,19622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19622,1,3,0)
 ;;=3^Stiffness,Lt Hand NEC
 ;;^UTILITY(U,$J,358.3,19622,1,4,0)
 ;;=4^M25.642
 ;;^UTILITY(U,$J,358.3,19622,2)
 ;;=^5011631
 ;;^UTILITY(U,$J,358.3,19623,0)
 ;;=M25.652^^65^800^27
 ;;^UTILITY(U,$J,358.3,19623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19623,1,3,0)
 ;;=3^Stiffness,Lt Hip NEC
 ;;^UTILITY(U,$J,358.3,19623,1,4,0)
 ;;=4^M25.652
 ;;^UTILITY(U,$J,358.3,19623,2)
 ;;=^5011634
 ;;^UTILITY(U,$J,358.3,19624,0)
 ;;=M25.662^^65^800^28
 ;;^UTILITY(U,$J,358.3,19624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19624,1,3,0)
 ;;=3^Stiffness,Lt Knee NEC
 ;;^UTILITY(U,$J,358.3,19624,1,4,0)
 ;;=4^M25.662
 ;;^UTILITY(U,$J,358.3,19624,2)
 ;;=^5011637
 ;;^UTILITY(U,$J,358.3,19625,0)
 ;;=M25.612^^65^800^29
 ;;^UTILITY(U,$J,358.3,19625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19625,1,3,0)
 ;;=3^Stiffness,Lt Shoulder NEC
 ;;^UTILITY(U,$J,358.3,19625,1,4,0)
 ;;=4^M25.612
 ;;^UTILITY(U,$J,358.3,19625,2)
 ;;=^5011622
 ;;^UTILITY(U,$J,358.3,19626,0)
 ;;=M25.632^^65^800^30
 ;;^UTILITY(U,$J,358.3,19626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19626,1,3,0)
 ;;=3^Stiffness,Lt Wrist NEC
 ;;^UTILITY(U,$J,358.3,19626,1,4,0)
 ;;=4^M25.632
 ;;^UTILITY(U,$J,358.3,19626,2)
 ;;=^5011628
 ;;^UTILITY(U,$J,358.3,19627,0)
 ;;=M25.671^^65^800^32
 ;;^UTILITY(U,$J,358.3,19627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19627,1,3,0)
 ;;=3^Stiffness,Rt Ankle NEC
 ;;^UTILITY(U,$J,358.3,19627,1,4,0)
 ;;=4^M25.671
 ;;^UTILITY(U,$J,358.3,19627,2)
 ;;=^5011639
 ;;^UTILITY(U,$J,358.3,19628,0)
 ;;=M25.621^^65^800^33
 ;;^UTILITY(U,$J,358.3,19628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19628,1,3,0)
 ;;=3^Stiffness,Rt Elbow NEC
 ;;^UTILITY(U,$J,358.3,19628,1,4,0)
 ;;=4^M25.621
 ;;^UTILITY(U,$J,358.3,19628,2)
 ;;=^5011624
 ;;^UTILITY(U,$J,358.3,19629,0)
 ;;=M25.674^^65^800^34
 ;;^UTILITY(U,$J,358.3,19629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19629,1,3,0)
 ;;=3^Stiffness,Rt Foot NEC
 ;;^UTILITY(U,$J,358.3,19629,1,4,0)
 ;;=4^M25.674
 ;;^UTILITY(U,$J,358.3,19629,2)
 ;;=^5011642
 ;;^UTILITY(U,$J,358.3,19630,0)
 ;;=M25.641^^65^800^35
 ;;^UTILITY(U,$J,358.3,19630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19630,1,3,0)
 ;;=3^Stiffness,Rt Hand NEC
 ;;^UTILITY(U,$J,358.3,19630,1,4,0)
 ;;=4^M25.641
 ;;^UTILITY(U,$J,358.3,19630,2)
 ;;=^5011630
 ;;^UTILITY(U,$J,358.3,19631,0)
 ;;=M25.651^^65^800^36
 ;;^UTILITY(U,$J,358.3,19631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19631,1,3,0)
 ;;=3^Stiffness,Rt Hip NEC
 ;;^UTILITY(U,$J,358.3,19631,1,4,0)
 ;;=4^M25.651
 ;;^UTILITY(U,$J,358.3,19631,2)
 ;;=^5011633
 ;;^UTILITY(U,$J,358.3,19632,0)
 ;;=M25.661^^65^800^37
 ;;^UTILITY(U,$J,358.3,19632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19632,1,3,0)
 ;;=3^Stiffness,Rt Knee NEC
 ;;^UTILITY(U,$J,358.3,19632,1,4,0)
 ;;=4^M25.661
 ;;^UTILITY(U,$J,358.3,19632,2)
 ;;=^5011636
 ;;^UTILITY(U,$J,358.3,19633,0)
 ;;=M25.611^^65^800^38
 ;;^UTILITY(U,$J,358.3,19633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19633,1,3,0)
 ;;=3^Stiffness,Rt Shoulder NEC
 ;;^UTILITY(U,$J,358.3,19633,1,4,0)
 ;;=4^M25.611
 ;;^UTILITY(U,$J,358.3,19633,2)
 ;;=^5011621
 ;;^UTILITY(U,$J,358.3,19634,0)
 ;;=M25.631^^65^800^39
 ;;^UTILITY(U,$J,358.3,19634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19634,1,3,0)
 ;;=3^Stiffness,Rt Wrist NEC
 ;;^UTILITY(U,$J,358.3,19634,1,4,0)
 ;;=4^M25.631
 ;;^UTILITY(U,$J,358.3,19634,2)
 ;;=^5011627
 ;;^UTILITY(U,$J,358.3,19635,0)
 ;;=M12.572^^65^800^40
 ;;^UTILITY(U,$J,358.3,19635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19635,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,19635,1,4,0)
 ;;=4^M12.572
 ;;^UTILITY(U,$J,358.3,19635,2)
 ;;=^5010638
 ;;^UTILITY(U,$J,358.3,19636,0)
 ;;=M12.522^^65^800^41
 ;;^UTILITY(U,$J,358.3,19636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19636,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Elbow
 ;;^UTILITY(U,$J,358.3,19636,1,4,0)
 ;;=4^M12.522
 ;;^UTILITY(U,$J,358.3,19636,2)
 ;;=^5010623
 ;;^UTILITY(U,$J,358.3,19637,0)
 ;;=M12.542^^65^800^42
 ;;^UTILITY(U,$J,358.3,19637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19637,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Hand