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

IBDEI08M.m

Go to the documentation of this file.
IBDEI08M ; ; 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,21017,2)
 ;;=^5012245
 ;;^UTILITY(U,$J,358.3,21018,0)
 ;;=M51.36^^68^860^5
 ;;^UTILITY(U,$J,358.3,21018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21018,1,3,0)
 ;;=3^Lumbar DDD w/o Radiculopathy
 ;;^UTILITY(U,$J,358.3,21018,1,4,0)
 ;;=4^M51.36
 ;;^UTILITY(U,$J,358.3,21018,2)
 ;;=^5012253
 ;;^UTILITY(U,$J,358.3,21019,0)
 ;;=M51.17^^68^860^1
 ;;^UTILITY(U,$J,358.3,21019,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21019,1,3,0)
 ;;=3^L-S DDD w/ Radiculopathy
 ;;^UTILITY(U,$J,358.3,21019,1,4,0)
 ;;=4^M51.17
 ;;^UTILITY(U,$J,358.3,21019,2)
 ;;=^5012246
 ;;^UTILITY(U,$J,358.3,21020,0)
 ;;=M51.06^^68^860^3
 ;;^UTILITY(U,$J,358.3,21020,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21020,1,3,0)
 ;;=3^Lumbar DDD w/ Myelopathy
 ;;^UTILITY(U,$J,358.3,21020,1,4,0)
 ;;=4^M51.06
 ;;^UTILITY(U,$J,358.3,21020,2)
 ;;=^5012241
 ;;^UTILITY(U,$J,358.3,21021,0)
 ;;=M47.812^^68^861^21
 ;;^UTILITY(U,$J,358.3,21021,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21021,1,3,0)
 ;;=3^OA w/o Radiculopathy,Cervical Spine
 ;;^UTILITY(U,$J,358.3,21021,1,4,0)
 ;;=4^M47.812
 ;;^UTILITY(U,$J,358.3,21021,2)
 ;;=^5012069
 ;;^UTILITY(U,$J,358.3,21022,0)
 ;;=M47.814^^68^861^24
 ;;^UTILITY(U,$J,358.3,21022,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21022,1,3,0)
 ;;=3^OA w/o Radiculopathy,Thoracic Spine
 ;;^UTILITY(U,$J,358.3,21022,1,4,0)
 ;;=4^M47.814
 ;;^UTILITY(U,$J,358.3,21022,2)
 ;;=^5012071
 ;;^UTILITY(U,$J,358.3,21023,0)
 ;;=M47.816^^68^861^22
 ;;^UTILITY(U,$J,358.3,21023,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21023,1,3,0)
 ;;=3^OA w/o Radiculopathy,Lumbar Spine
 ;;^UTILITY(U,$J,358.3,21023,1,4,0)
 ;;=4^M47.816
 ;;^UTILITY(U,$J,358.3,21023,2)
 ;;=^5012073
 ;;^UTILITY(U,$J,358.3,21024,0)
 ;;=M47.817^^68^861^23
 ;;^UTILITY(U,$J,358.3,21024,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21024,1,3,0)
 ;;=3^OA w/o Radiculopathy,Lumbosacral 
 ;;^UTILITY(U,$J,358.3,21024,1,4,0)
 ;;=4^M47.817
 ;;^UTILITY(U,$J,358.3,21024,2)
 ;;=^5012074
 ;;^UTILITY(U,$J,358.3,21025,0)
 ;;=M16.11^^68^861^4
 ;;^UTILITY(U,$J,358.3,21025,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21025,1,3,0)
 ;;=3^OA Primary Unilateral,Hip,Right
 ;;^UTILITY(U,$J,358.3,21025,1,4,0)
 ;;=4^M16.11
 ;;^UTILITY(U,$J,358.3,21025,2)
 ;;=^5010771
 ;;^UTILITY(U,$J,358.3,21026,0)
 ;;=M16.12^^68^861^3
 ;;^UTILITY(U,$J,358.3,21026,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21026,1,3,0)
 ;;=3^OA Primary Unilateral,Hip,Left
 ;;^UTILITY(U,$J,358.3,21026,1,4,0)
 ;;=4^M16.12
 ;;^UTILITY(U,$J,358.3,21026,2)
 ;;=^5010772
 ;;^UTILITY(U,$J,358.3,21027,0)
 ;;=M17.11^^68^861^6
 ;;^UTILITY(U,$J,358.3,21027,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21027,1,3,0)
 ;;=3^OA Primary Unilateral,Knee,Right
 ;;^UTILITY(U,$J,358.3,21027,1,4,0)
 ;;=4^M17.11
 ;;^UTILITY(U,$J,358.3,21027,2)
 ;;=^5010786
 ;;^UTILITY(U,$J,358.3,21028,0)
 ;;=M17.12^^68^861^5
 ;;^UTILITY(U,$J,358.3,21028,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21028,1,3,0)
 ;;=3^OA Primary Unilateral,Knee,Left
 ;;^UTILITY(U,$J,358.3,21028,1,4,0)
 ;;=4^M17.12
 ;;^UTILITY(U,$J,358.3,21028,2)
 ;;=^5010787
 ;;^UTILITY(U,$J,358.3,21029,0)
 ;;=M19.071^^68^861^9
 ;;^UTILITY(U,$J,358.3,21029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21029,1,3,0)
 ;;=3^OA Primary,Ankle/Foot,Right
 ;;^UTILITY(U,$J,358.3,21029,1,4,0)
 ;;=4^M19.071
 ;;^UTILITY(U,$J,358.3,21029,2)
 ;;=^5010820
 ;;^UTILITY(U,$J,358.3,21030,0)
 ;;=M19.072^^68^861^8
 ;;^UTILITY(U,$J,358.3,21030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21030,1,3,0)
 ;;=3^OA Primary,Ankle/Foot,Left
 ;;^UTILITY(U,$J,358.3,21030,1,4,0)
 ;;=4^M19.072
 ;;^UTILITY(U,$J,358.3,21030,2)
 ;;=^5010821
 ;;^UTILITY(U,$J,358.3,21031,0)
 ;;=M19.011^^68^861^17
 ;;^UTILITY(U,$J,358.3,21031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21031,1,3,0)
 ;;=3^OA Primary,Shoulder,Right
 ;;^UTILITY(U,$J,358.3,21031,1,4,0)
 ;;=4^M19.011
 ;;^UTILITY(U,$J,358.3,21031,2)
 ;;=^5010808
 ;;^UTILITY(U,$J,358.3,21032,0)
 ;;=M19.012^^68^861^16
 ;;^UTILITY(U,$J,358.3,21032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21032,1,3,0)
 ;;=3^OA Primary,Shoulder,Left
 ;;^UTILITY(U,$J,358.3,21032,1,4,0)
 ;;=4^M19.012
 ;;^UTILITY(U,$J,358.3,21032,2)
 ;;=^5010809
 ;;^UTILITY(U,$J,358.3,21033,0)
 ;;=M19.021^^68^861^11
 ;;^UTILITY(U,$J,358.3,21033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21033,1,3,0)
 ;;=3^OA Primary,Elbow,Right
 ;;^UTILITY(U,$J,358.3,21033,1,4,0)
 ;;=4^M19.021
 ;;^UTILITY(U,$J,358.3,21033,2)
 ;;=^5010811
 ;;^UTILITY(U,$J,358.3,21034,0)
 ;;=M19.022^^68^861^10
 ;;^UTILITY(U,$J,358.3,21034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21034,1,3,0)
 ;;=3^OA Primary,Elbow,Left
 ;;^UTILITY(U,$J,358.3,21034,1,4,0)
 ;;=4^M19.022
 ;;^UTILITY(U,$J,358.3,21034,2)
 ;;=^5010812
 ;;^UTILITY(U,$J,358.3,21035,0)
 ;;=M19.031^^68^861^20
 ;;^UTILITY(U,$J,358.3,21035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21035,1,3,0)
 ;;=3^OA Primary,Wrist,Right
 ;;^UTILITY(U,$J,358.3,21035,1,4,0)
 ;;=4^M19.031
 ;;^UTILITY(U,$J,358.3,21035,2)
 ;;=^5010814
 ;;^UTILITY(U,$J,358.3,21036,0)
 ;;=M19.032^^68^861^19
 ;;^UTILITY(U,$J,358.3,21036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21036,1,3,0)
 ;;=3^OA Primary,Wrist,Left
 ;;^UTILITY(U,$J,358.3,21036,1,4,0)
 ;;=4^M19.032
 ;;^UTILITY(U,$J,358.3,21036,2)
 ;;=^5010815
 ;;^UTILITY(U,$J,358.3,21037,0)
 ;;=M19.041^^68^861^13
 ;;^UTILITY(U,$J,358.3,21037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21037,1,3,0)
 ;;=3^OA Primary,Hand,Right
 ;;^UTILITY(U,$J,358.3,21037,1,4,0)
 ;;=4^M19.041
 ;;^UTILITY(U,$J,358.3,21037,2)
 ;;=^5010817
 ;;^UTILITY(U,$J,358.3,21038,0)
 ;;=M19.042^^68^861^12
 ;;^UTILITY(U,$J,358.3,21038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21038,1,3,0)
 ;;=3^OA Primary,Hand,Left
 ;;^UTILITY(U,$J,358.3,21038,1,4,0)
 ;;=4^M19.042
 ;;^UTILITY(U,$J,358.3,21038,2)
 ;;=^5010818
 ;;^UTILITY(U,$J,358.3,21039,0)
 ;;=M18.11^^68^861^2
 ;;^UTILITY(U,$J,358.3,21039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21039,1,3,0)
 ;;=3^OA Primary Unilateral,1st CMC,Right
 ;;^UTILITY(U,$J,358.3,21039,1,4,0)
 ;;=4^M18.11
 ;;^UTILITY(U,$J,358.3,21039,2)
 ;;=^5010797
 ;;^UTILITY(U,$J,358.3,21040,0)
 ;;=M18.12^^68^861^1
 ;;^UTILITY(U,$J,358.3,21040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21040,1,3,0)
 ;;=3^OA Primary Unilateral,1st CMC,Left
 ;;^UTILITY(U,$J,358.3,21040,1,4,0)
 ;;=4^M18.12
 ;;^UTILITY(U,$J,358.3,21040,2)
 ;;=^5010798
 ;;^UTILITY(U,$J,358.3,21041,0)
 ;;=M18.0^^68^861^7
 ;;^UTILITY(U,$J,358.3,21041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21041,1,3,0)
 ;;=3^OA Primary,1st CMC,Bilateral
 ;;^UTILITY(U,$J,358.3,21041,1,4,0)
 ;;=4^M18.0
 ;;^UTILITY(U,$J,358.3,21041,2)
 ;;=^5010795
 ;;^UTILITY(U,$J,358.3,21042,0)
 ;;=M18.9^^68^861^25
 ;;^UTILITY(U,$J,358.3,21042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21042,1,3,0)
 ;;=3^OA,1st CMC,Unspec
 ;;^UTILITY(U,$J,358.3,21042,1,4,0)
 ;;=4^M18.9
 ;;^UTILITY(U,$J,358.3,21042,2)
 ;;=^5010807
 ;;^UTILITY(U,$J,358.3,21043,0)
 ;;=M16.0^^68^861^14
 ;;^UTILITY(U,$J,358.3,21043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21043,1,3,0)
 ;;=3^OA Primary,Hip,Bilateral
 ;;^UTILITY(U,$J,358.3,21043,1,4,0)
 ;;=4^M16.0
 ;;^UTILITY(U,$J,358.3,21043,2)
 ;;=^5010769
 ;;^UTILITY(U,$J,358.3,21044,0)
 ;;=M16.9^^68^861^26
 ;;^UTILITY(U,$J,358.3,21044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21044,1,3,0)
 ;;=3^OA,Hip,Unspec
 ;;^UTILITY(U,$J,358.3,21044,1,4,0)
 ;;=4^M16.9
 ;;^UTILITY(U,$J,358.3,21044,2)
 ;;=^5010783
 ;;^UTILITY(U,$J,358.3,21045,0)
 ;;=M17.0^^68^861^15
 ;;^UTILITY(U,$J,358.3,21045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21045,1,3,0)
 ;;=3^OA Primary,Knee,Bilateral
 ;;^UTILITY(U,$J,358.3,21045,1,4,0)
 ;;=4^M17.0
 ;;^UTILITY(U,$J,358.3,21045,2)
 ;;=^5010784
 ;;^UTILITY(U,$J,358.3,21046,0)
 ;;=M17.9^^68^861^27
 ;;^UTILITY(U,$J,358.3,21046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21046,1,3,0)
 ;;=3^OA,Knee,Unspec
 ;;^UTILITY(U,$J,358.3,21046,1,4,0)
 ;;=4^M17.9
 ;;^UTILITY(U,$J,358.3,21046,2)
 ;;=^5010794
 ;;^UTILITY(U,$J,358.3,21047,0)
 ;;=M19.91^^68^861^18
 ;;^UTILITY(U,$J,358.3,21047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21047,1,3,0)
 ;;=3^OA Primary,Unspec Site
 ;;^UTILITY(U,$J,358.3,21047,1,4,0)
 ;;=4^M19.91
 ;;^UTILITY(U,$J,358.3,21047,2)
 ;;=^5010854
 ;;^UTILITY(U,$J,358.3,21048,0)
 ;;=M99.00^^68^862^3
 ;;^UTILITY(U,$J,358.3,21048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21048,1,3,0)
 ;;=3^Somatic Dysfunction,Cranium
 ;;^UTILITY(U,$J,358.3,21048,1,4,0)
 ;;=4^M99.00
 ;;^UTILITY(U,$J,358.3,21048,2)
 ;;=^5015400
 ;;^UTILITY(U,$J,358.3,21049,0)
 ;;=M99.01^^68^862^2
 ;;^UTILITY(U,$J,358.3,21049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21049,1,3,0)
 ;;=3^Somatic Dysfunction,Cervical
 ;;^UTILITY(U,$J,358.3,21049,1,4,0)
 ;;=4^M99.01
 ;;^UTILITY(U,$J,358.3,21049,2)
 ;;=^5015401
 ;;^UTILITY(U,$J,358.3,21050,0)
 ;;=M99.02^^68^862^9
 ;;^UTILITY(U,$J,358.3,21050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21050,1,3,0)
 ;;=3^Somatic Dysfunction,Thoracic
 ;;^UTILITY(U,$J,358.3,21050,1,4,0)
 ;;=4^M99.02
 ;;^UTILITY(U,$J,358.3,21050,2)
 ;;=^5015402
 ;;^UTILITY(U,$J,358.3,21051,0)
 ;;=M99.03^^68^862^5
 ;;^UTILITY(U,$J,358.3,21051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21051,1,3,0)
 ;;=3^Somatic Dysfunction,Lumbar
 ;;^UTILITY(U,$J,358.3,21051,1,4,0)
 ;;=4^M99.03
 ;;^UTILITY(U,$J,358.3,21051,2)
 ;;=^5015403
 ;;^UTILITY(U,$J,358.3,21052,0)
 ;;=M99.04^^68^862^8
 ;;^UTILITY(U,$J,358.3,21052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21052,1,3,0)
 ;;=3^Somatic Dysfunction,Sacral
 ;;^UTILITY(U,$J,358.3,21052,1,4,0)
 ;;=4^M99.04
 ;;^UTILITY(U,$J,358.3,21052,2)
 ;;=^5015404
 ;;^UTILITY(U,$J,358.3,21053,0)
 ;;=M99.05^^68^862^6
 ;;^UTILITY(U,$J,358.3,21053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21053,1,3,0)
 ;;=3^Somatic Dysfunction,Pelvis
 ;;^UTILITY(U,$J,358.3,21053,1,4,0)
 ;;=4^M99.05
 ;;^UTILITY(U,$J,358.3,21053,2)
 ;;=^5015405
 ;;^UTILITY(U,$J,358.3,21054,0)
 ;;=M99.06^^68^862^4
 ;;^UTILITY(U,$J,358.3,21054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21054,1,3,0)
 ;;=3^Somatic Dysfunction,Lower Extremity
 ;;^UTILITY(U,$J,358.3,21054,1,4,0)
 ;;=4^M99.06
 ;;^UTILITY(U,$J,358.3,21054,2)
 ;;=^5015406
 ;;^UTILITY(U,$J,358.3,21055,0)
 ;;=M99.07^^68^862^10
 ;;^UTILITY(U,$J,358.3,21055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21055,1,3,0)
 ;;=3^Somatic Dysfunction,Upper Extremity
 ;;^UTILITY(U,$J,358.3,21055,1,4,0)
 ;;=4^M99.07
 ;;^UTILITY(U,$J,358.3,21055,2)
 ;;=^5015407
 ;;^UTILITY(U,$J,358.3,21056,0)
 ;;=M99.08^^68^862^7
 ;;^UTILITY(U,$J,358.3,21056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21056,1,3,0)
 ;;=3^Somatic Dysfunction,Rib Cage
 ;;^UTILITY(U,$J,358.3,21056,1,4,0)
 ;;=4^M99.08
 ;;^UTILITY(U,$J,358.3,21056,2)
 ;;=^5015408
 ;;^UTILITY(U,$J,358.3,21057,0)
 ;;=M99.09^^68^862^1
 ;;^UTILITY(U,$J,358.3,21057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21057,1,3,0)
 ;;=3^Somatic Dysfunction,Abdomen/Other
 ;;^UTILITY(U,$J,358.3,21057,1,4,0)
 ;;=4^M99.09
 ;;^UTILITY(U,$J,358.3,21057,2)
 ;;=^5015409
 ;;^UTILITY(U,$J,358.3,21058,0)
 ;;=M51.14^^68^863^4
 ;;^UTILITY(U,$J,358.3,21058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21058,1,3,0)
 ;;=3^Thoracic DDD w/ Radiculopathy
 ;;^UTILITY(U,$J,358.3,21058,1,4,0)
 ;;=4^M51.14
 ;;^UTILITY(U,$J,358.3,21058,2)
 ;;=^5012243
 ;;^UTILITY(U,$J,358.3,21059,0)
 ;;=M51.24^^68^863^5
 ;;^UTILITY(U,$J,358.3,21059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21059,1,3,0)
 ;;=3^Thoracic DDD w/o Radiculopathy
 ;;^UTILITY(U,$J,358.3,21059,1,4,0)
 ;;=4^M51.24
 ;;^UTILITY(U,$J,358.3,21059,2)
 ;;=^5012247
 ;;^UTILITY(U,$J,358.3,21060,0)
 ;;=M51.15^^68^863^2
 ;;^UTILITY(U,$J,358.3,21060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21060,1,3,0)
 ;;=3^T-L DDD w/ Radiculopathy
 ;;^UTILITY(U,$J,358.3,21060,1,4,0)
 ;;=4^M51.15
 ;;^UTILITY(U,$J,358.3,21060,2)
 ;;=^5012244
 ;;^UTILITY(U,$J,358.3,21061,0)
 ;;=M51.04^^68^863^3
 ;;^UTILITY(U,$J,358.3,21061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21061,1,3,0)
 ;;=3^Thoracic DDD w/ Myelopathy
 ;;^UTILITY(U,$J,358.3,21061,1,4,0)
 ;;=4^M51.04
 ;;^UTILITY(U,$J,358.3,21061,2)
 ;;=^5012239
 ;;^UTILITY(U,$J,358.3,21062,0)
 ;;=M51.05^^68^863^1
 ;;^UTILITY(U,$J,358.3,21062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21062,1,3,0)
 ;;=3^T-L DDD w/ Myelopathy
 ;;^UTILITY(U,$J,358.3,21062,1,4,0)
 ;;=4^M51.05
 ;;^UTILITY(U,$J,358.3,21062,2)
 ;;=^5012240
 ;;^UTILITY(U,$J,358.3,21063,0)
 ;;=Z02.5^^68^864^1
 ;;^UTILITY(U,$J,358.3,21063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21063,1,3,0)
 ;;=3^Exam for Sports Participation (Primary)
 ;;^UTILITY(U,$J,358.3,21063,1,4,0)
 ;;=4^Z02.5
 ;;^UTILITY(U,$J,358.3,21063,2)
 ;;=^5062638
 ;;^UTILITY(U,$J,358.3,21064,0)
 ;;=D50.9^^68^865^4
 ;;^UTILITY(U,$J,358.3,21064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21064,1,3,0)
 ;;=3^Anemia,Iron Deficiency,Unspec
 ;;^UTILITY(U,$J,358.3,21064,1,4,0)
 ;;=4^D50.9
 ;;^UTILITY(U,$J,358.3,21064,2)
 ;;=^5002283
 ;;^UTILITY(U,$J,358.3,21065,0)
 ;;=D51.9^^68^865^6
 ;;^UTILITY(U,$J,358.3,21065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21065,1,3,0)
 ;;=3^Anemia,Vitamin B12 Deficiency,Unspec
 ;;^UTILITY(U,$J,358.3,21065,1,4,0)
 ;;=4^D51.9
 ;;^UTILITY(U,$J,358.3,21065,2)
 ;;=^5002289
 ;;^UTILITY(U,$J,358.3,21066,0)
 ;;=E55.9^^68^865^38
 ;;^UTILITY(U,$J,358.3,21066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21066,1,3,0)
 ;;=3^Vitamin D Deficiency,Unspec
 ;;^UTILITY(U,$J,358.3,21066,1,4,0)
 ;;=4^E55.9
 ;;^UTILITY(U,$J,358.3,21066,2)
 ;;=^5002799
 ;;^UTILITY(U,$J,358.3,21067,0)
 ;;=D57.3^^68^865^37
 ;;^UTILITY(U,$J,358.3,21067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21067,1,3,0)
 ;;=3^Sickle-Cell Trait
 ;;^UTILITY(U,$J,358.3,21067,1,4,0)
 ;;=4^D57.3
 ;;^UTILITY(U,$J,358.3,21067,2)
 ;;=^5002313
 ;;^UTILITY(U,$J,358.3,21068,0)
 ;;=D63.1^^68^865^1
 ;;^UTILITY(U,$J,358.3,21068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21068,1,3,0)
 ;;=3^Anemia in Chronic Kidney Disease
 ;;^UTILITY(U,$J,358.3,21068,1,4,0)
 ;;=4^D63.1
 ;;^UTILITY(U,$J,358.3,21068,2)
 ;;=^332908
 ;;^UTILITY(U,$J,358.3,21069,0)
 ;;=D63.0^^68^865^2
 ;;^UTILITY(U,$J,358.3,21069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21069,1,3,0)
 ;;=3^Anemia in Neoplastic Disease
 ;;^UTILITY(U,$J,358.3,21069,1,4,0)
 ;;=4^D63.0
 ;;^UTILITY(U,$J,358.3,21069,2)
 ;;=^321978
 ;;^UTILITY(U,$J,358.3,21070,0)
 ;;=D63.8^^68^865^3
 ;;^UTILITY(U,$J,358.3,21070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21070,1,3,0)
 ;;=3^Anemia in Other Chronic Diseases
 ;;^UTILITY(U,$J,358.3,21070,1,4,0)
 ;;=4^D63.8
 ;;^UTILITY(U,$J,358.3,21070,2)
 ;;=^5002343
 ;;^UTILITY(U,$J,358.3,21071,0)
 ;;=D64.9^^68^865^5
 ;;^UTILITY(U,$J,358.3,21071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21071,1,3,0)
 ;;=3^Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,21071,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,21071,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,21072,0)
 ;;=D75.A^^68^865^24
 ;;^UTILITY(U,$J,358.3,21072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21072,1,3,0)
 ;;=3^G6PD Deficiency w/o Anemia
 ;;^UTILITY(U,$J,358.3,21072,1,4,0)
 ;;=4^D75.A
 ;;^UTILITY(U,$J,358.3,21072,2)
 ;;=^5158037
 ;;^UTILITY(U,$J,358.3,21073,0)
 ;;=E03.9^^68^865^29
 ;;^UTILITY(U,$J,358.3,21073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21073,1,3,0)
 ;;=3^Hypothyroidism,Unspec
 ;;^UTILITY(U,$J,358.3,21073,1,4,0)
 ;;=4^E03.9
 ;;^UTILITY(U,$J,358.3,21073,2)
 ;;=^5002476
 ;;^UTILITY(U,$J,358.3,21074,0)
 ;;=E04.0^^68^865^25
 ;;^UTILITY(U,$J,358.3,21074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21074,1,3,0)
 ;;=3^Goiter,Nontoxic Diffuse
 ;;^UTILITY(U,$J,358.3,21074,1,4,0)
 ;;=4^E04.0
 ;;^UTILITY(U,$J,358.3,21074,2)
 ;;=^5002477
 ;;^UTILITY(U,$J,358.3,21075,0)
 ;;=E04.1^^68^865^27
 ;;^UTILITY(U,$J,358.3,21075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21075,1,3,0)
 ;;=3^Goiter,Nontoxic Single
 ;;^UTILITY(U,$J,358.3,21075,1,4,0)
 ;;=4^E04.1
 ;;^UTILITY(U,$J,358.3,21075,2)
 ;;=^5002478
 ;;^UTILITY(U,$J,358.3,21076,0)
 ;;=E04.2^^68^865^26
 ;;^UTILITY(U,$J,358.3,21076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21076,1,3,0)
 ;;=3^Goiter,Nontoxic Multinodular
 ;;^UTILITY(U,$J,358.3,21076,1,4,0)
 ;;=4^E04.2
 ;;^UTILITY(U,$J,358.3,21076,2)
 ;;=^267790
 ;;^UTILITY(U,$J,358.3,21077,0)
 ;;=E04.9^^68^865^28
 ;;^UTILITY(U,$J,358.3,21077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21077,1,3,0)
 ;;=3^Goiter,Nontoxic,Unspec
 ;;^UTILITY(U,$J,358.3,21077,1,4,0)
 ;;=4^E04.9
 ;;^UTILITY(U,$J,358.3,21077,2)
 ;;=^5002480
 ;;^UTILITY(U,$J,358.3,21078,0)
 ;;=E11.9^^68^865^23
 ;;^UTILITY(U,$J,358.3,21078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21078,1,3,0)
 ;;=3^DM2 w/o Complications
 ;;^UTILITY(U,$J,358.3,21078,1,4,0)
 ;;=4^E11.9
 ;;^UTILITY(U,$J,358.3,21078,2)
 ;;=^5002666
 ;;^UTILITY(U,$J,358.3,21079,0)
 ;;=E11.42^^68^865^22
 ;;^UTILITY(U,$J,358.3,21079,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21079,1,3,0)
 ;;=3^DM2 w/ Peripheral Neuropathy
 ;;^UTILITY(U,$J,358.3,21079,1,4,0)
 ;;=4^E11.42
 ;;^UTILITY(U,$J,358.3,21079,2)
 ;;=^5002646
 ;;^UTILITY(U,$J,358.3,21080,0)
 ;;=E11.51^^68^865^21
 ;;^UTILITY(U,$J,358.3,21080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21080,1,3,0)
 ;;=3^DM2 w/ PAD/PVDS w/o Gangrene
 ;;^UTILITY(U,$J,358.3,21080,1,4,0)
 ;;=4^E11.51
 ;;^UTILITY(U,$J,358.3,21080,2)
 ;;=^5002650
 ;;^UTILITY(U,$J,358.3,21081,0)
 ;;=E11.52^^68^865^20
 ;;^UTILITY(U,$J,358.3,21081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21081,1,3,0)
 ;;=3^DM2 w/ PAD/PVDS w/ Gangrene
 ;;^UTILITY(U,$J,358.3,21081,1,4,0)
 ;;=4^E11.52
 ;;^UTILITY(U,$J,358.3,21081,2)
 ;;=^5002651
 ;;^UTILITY(U,$J,358.3,21082,0)
 ;;=E11.22^^68^865^13
 ;;^UTILITY(U,$J,358.3,21082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21082,1,3,0)
 ;;=3^DM2 w/ CKD
 ;;^UTILITY(U,$J,358.3,21082,1,4,0)
 ;;=4^E11.22
 ;;^UTILITY(U,$J,358.3,21082,2)
 ;;=^5002630
 ;;^UTILITY(U,$J,358.3,21083,0)
 ;;=E11.69^^68^865^17
 ;;^UTILITY(U,$J,358.3,21083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21083,1,3,0)
 ;;=3^DM2 w/ Osteomyelitis
 ;;^UTILITY(U,$J,358.3,21083,1,4,0)
 ;;=4^E11.69
 ;;^UTILITY(U,$J,358.3,21083,2)
 ;;=^5002664
 ;;^UTILITY(U,$J,358.3,21084,0)
 ;;=E11.610^^68^865^16
 ;;^UTILITY(U,$J,358.3,21084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21084,1,3,0)
 ;;=3^DM2 w/ Neuropathic Arthropathy
 ;;^UTILITY(U,$J,358.3,21084,1,4,0)
 ;;=4^E11.610
 ;;^UTILITY(U,$J,358.3,21084,2)
 ;;=^5002653
 ;;^UTILITY(U,$J,358.3,21085,0)
 ;;=E11.618^^68^865^18
 ;;^UTILITY(U,$J,358.3,21085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21085,1,3,0)
 ;;=3^DM2 w/ Oth Diabetic Arthropathy
 ;;^UTILITY(U,$J,358.3,21085,1,4,0)
 ;;=4^E11.618
 ;;^UTILITY(U,$J,358.3,21085,2)
 ;;=^5002654
 ;;^UTILITY(U,$J,358.3,21086,0)
 ;;=E11.621^^68^865^14
 ;;^UTILITY(U,$J,358.3,21086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21086,1,3,0)
 ;;=3^DM2 w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,21086,1,4,0)
 ;;=4^E11.621
 ;;^UTILITY(U,$J,358.3,21086,2)
 ;;=^5002656
 ;;^UTILITY(U,$J,358.3,21087,0)
 ;;=E11.620^^68^865^11
 ;;^UTILITY(U,$J,358.3,21087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21087,1,3,0)
 ;;=3^DM2 Dermatitis
 ;;^UTILITY(U,$J,358.3,21087,1,4,0)
 ;;=4^E11.620
 ;;^UTILITY(U,$J,358.3,21087,2)
 ;;=^5002655