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

IBDEI0CE.m

Go to the documentation of this file.
IBDEI0CE ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
 Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,31097,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,31097,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,31098,0)
 ;;=I48.0^^89^1254^7
 ;;^UTILITY(U,$J,358.3,31098,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31098,1,3,0)
 ;;=3^Atrial Fibrillation,Paroxysmal
 ;;^UTILITY(U,$J,358.3,31098,1,4,0)
 ;;=4^I48.0
 ;;^UTILITY(U,$J,358.3,31098,2)
 ;;=^90473
 ;;^UTILITY(U,$J,358.3,31099,0)
 ;;=Z95.0^^89^1254^21
 ;;^UTILITY(U,$J,358.3,31099,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31099,1,3,0)
 ;;=3^Presence of Cardiac Pacemaker
 ;;^UTILITY(U,$J,358.3,31099,1,4,0)
 ;;=4^Z95.0
 ;;^UTILITY(U,$J,358.3,31099,2)
 ;;=^5063668
 ;;^UTILITY(U,$J,358.3,31100,0)
 ;;=I50.9^^89^1254^18
 ;;^UTILITY(U,$J,358.3,31100,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31100,1,3,0)
 ;;=3^Heart Failure,Unspec
 ;;^UTILITY(U,$J,358.3,31100,1,4,0)
 ;;=4^I50.9
 ;;^UTILITY(U,$J,358.3,31100,2)
 ;;=^5007251
 ;;^UTILITY(U,$J,358.3,31101,0)
 ;;=I20.0^^89^1254^22
 ;;^UTILITY(U,$J,358.3,31101,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31101,1,3,0)
 ;;=3^Unstable Angina
 ;;^UTILITY(U,$J,358.3,31101,1,4,0)
 ;;=4^I20.0
 ;;^UTILITY(U,$J,358.3,31101,2)
 ;;=^5007076
 ;;^UTILITY(U,$J,358.3,31102,0)
 ;;=I25.110^^89^1254^13
 ;;^UTILITY(U,$J,358.3,31102,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31102,1,3,0)
 ;;=3^CAD w/ Unstable Angina
 ;;^UTILITY(U,$J,358.3,31102,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,31102,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,31103,0)
 ;;=I25.2^^89^1254^20
 ;;^UTILITY(U,$J,358.3,31103,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31103,1,3,0)
 ;;=3^Old Myocardial Infarction
 ;;^UTILITY(U,$J,358.3,31103,1,4,0)
 ;;=4^I25.2
 ;;^UTILITY(U,$J,358.3,31103,2)
 ;;=^259884
 ;;^UTILITY(U,$J,358.3,31104,0)
 ;;=I25.3^^89^1254^2
 ;;^UTILITY(U,$J,358.3,31104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31104,1,3,0)
 ;;=3^Aneurysm of Heart
 ;;^UTILITY(U,$J,358.3,31104,1,4,0)
 ;;=4^I25.3
 ;;^UTILITY(U,$J,358.3,31104,2)
 ;;=^5007112
 ;;^UTILITY(U,$J,358.3,31105,0)
 ;;=I48.3^^89^1254^10
 ;;^UTILITY(U,$J,358.3,31105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31105,1,3,0)
 ;;=3^Atypical Atrial Flutter,Type I
 ;;^UTILITY(U,$J,358.3,31105,1,4,0)
 ;;=4^I48.3
 ;;^UTILITY(U,$J,358.3,31105,2)
 ;;=^5007227
 ;;^UTILITY(U,$J,358.3,31106,0)
 ;;=I48.4^^89^1254^11
 ;;^UTILITY(U,$J,358.3,31106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31106,1,3,0)
 ;;=3^Atypical Atrial Flutter,Type II
 ;;^UTILITY(U,$J,358.3,31106,1,4,0)
 ;;=4^I48.4
 ;;^UTILITY(U,$J,358.3,31106,2)
 ;;=^5007228
 ;;^UTILITY(U,$J,358.3,31107,0)
 ;;=I50.1^^89^1254^19
 ;;^UTILITY(U,$J,358.3,31107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31107,1,3,0)
 ;;=3^Left Heart Failure
 ;;^UTILITY(U,$J,358.3,31107,1,4,0)
 ;;=4^I50.1
 ;;^UTILITY(U,$J,358.3,31107,2)
 ;;=^5007238
 ;;^UTILITY(U,$J,358.3,31108,0)
 ;;=I50.21^^89^1254^1
 ;;^UTILITY(U,$J,358.3,31108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31108,1,3,0)
 ;;=3^Acute Systolic Cong Heart Failure
 ;;^UTILITY(U,$J,358.3,31108,1,4,0)
 ;;=4^I50.21
 ;;^UTILITY(U,$J,358.3,31108,2)
 ;;=^5007240
 ;;^UTILITY(U,$J,358.3,31109,0)
 ;;=I50.22^^89^1254^16
 ;;^UTILITY(U,$J,358.3,31109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31109,1,3,0)
 ;;=3^Chronic Systolic CHF
 ;;^UTILITY(U,$J,358.3,31109,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,31109,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,31110,0)
 ;;=I48.20^^89^1254^4
 ;;^UTILITY(U,$J,358.3,31110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31110,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,31110,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,31110,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,31111,0)
 ;;=I48.21^^89^1254^8
 ;;^UTILITY(U,$J,358.3,31111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31111,1,3,0)
 ;;=3^Atrial Fibrillation,Permanent
 ;;^UTILITY(U,$J,358.3,31111,1,4,0)
 ;;=4^I48.21
 ;;^UTILITY(U,$J,358.3,31111,2)
 ;;=^304710
 ;;^UTILITY(U,$J,358.3,31112,0)
 ;;=I48.11^^89^1254^5
 ;;^UTILITY(U,$J,358.3,31112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31112,1,3,0)
 ;;=3^Atrial Fibrillation,Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,31112,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,31112,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,31113,0)
 ;;=I48.19^^89^1254^6
 ;;^UTILITY(U,$J,358.3,31113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31113,1,3,0)
 ;;=3^Atrial Fibrillation,Oth Persistent
 ;;^UTILITY(U,$J,358.3,31113,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,31113,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,31114,0)
 ;;=I50.32^^89^1254^15
 ;;^UTILITY(U,$J,358.3,31114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31114,1,3,0)
 ;;=3^Chronic Diastolic CHF
 ;;^UTILITY(U,$J,358.3,31114,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,31114,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,31115,0)
 ;;=I50.42^^89^1254^17
 ;;^UTILITY(U,$J,358.3,31115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31115,1,3,0)
 ;;=3^Chronic Systoloic & Diastolic CHF
 ;;^UTILITY(U,$J,358.3,31115,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,31115,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,31116,0)
 ;;=I25.118^^89^1254^12
 ;;^UTILITY(U,$J,358.3,31116,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31116,1,3,0)
 ;;=3^CAD w/ Oth Angina (Includes Stable)
 ;;^UTILITY(U,$J,358.3,31116,1,4,0)
 ;;=4^I25.118
 ;;^UTILITY(U,$J,358.3,31116,2)
 ;;=^5007110
 ;;^UTILITY(U,$J,358.3,31117,0)
 ;;=V49.9XXA^^89^1255^1
 ;;^UTILITY(U,$J,358.3,31117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31117,1,3,0)
 ;;=3^Car Occupant Traffic Accident Injury,Init Encntr
 ;;^UTILITY(U,$J,358.3,31117,1,4,0)
 ;;=4^V49.9XXA
 ;;^UTILITY(U,$J,358.3,31117,2)
 ;;=^5057368
 ;;^UTILITY(U,$J,358.3,31118,0)
 ;;=V59.9XXA^^89^1255^7
 ;;^UTILITY(U,$J,358.3,31118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31118,1,3,0)
 ;;=3^Truck/Van Occupant Traffic Accident Injury,Init Encntr
 ;;^UTILITY(U,$J,358.3,31118,1,4,0)
 ;;=4^V59.9XXA
 ;;^UTILITY(U,$J,358.3,31118,2)
 ;;=^5057659
 ;;^UTILITY(U,$J,358.3,31119,0)
 ;;=V69.9XXA^^89^1255^5
 ;;^UTILITY(U,$J,358.3,31119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31119,1,3,0)
 ;;=3^Heavy Transport Vehicle Occupant Traffic Accident Injury,Init Encntr
 ;;^UTILITY(U,$J,358.3,31119,1,4,0)
 ;;=4^V69.9XXA
 ;;^UTILITY(U,$J,358.3,31119,2)
 ;;=^5057950
 ;;^UTILITY(U,$J,358.3,31120,0)
 ;;=V89.2XXA^^89^1255^6
 ;;^UTILITY(U,$J,358.3,31120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31120,1,3,0)
 ;;=3^Person injured in Motor-Vehicle Traffic Accident,Init Encntr
 ;;^UTILITY(U,$J,358.3,31120,1,4,0)
 ;;=4^V89.2XXA
 ;;^UTILITY(U,$J,358.3,31120,2)
 ;;=^5058688
 ;;^UTILITY(U,$J,358.3,31121,0)
 ;;=W07.XXXA^^89^1255^3
 ;;^UTILITY(U,$J,358.3,31121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31121,1,3,0)
 ;;=3^Fall from Chair,Init Encntr
 ;;^UTILITY(U,$J,358.3,31121,1,4,0)
 ;;=4^W07.XXXA
 ;;^UTILITY(U,$J,358.3,31121,2)
 ;;=^5059562
 ;;^UTILITY(U,$J,358.3,31122,0)
 ;;=W06.XXXA^^89^1255^2
 ;;^UTILITY(U,$J,358.3,31122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31122,1,3,0)
 ;;=3^Fall from Bed,Init Encntr
 ;;^UTILITY(U,$J,358.3,31122,1,4,0)
 ;;=4^W06.XXXA
 ;;^UTILITY(U,$J,358.3,31122,2)
 ;;=^5059559
 ;;^UTILITY(U,$J,358.3,31123,0)
 ;;=W19.XXXA^^89^1255^4
 ;;^UTILITY(U,$J,358.3,31123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31123,1,3,0)
 ;;=3^Fall,Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,31123,1,4,0)
 ;;=4^W19.XXXA
 ;;^UTILITY(U,$J,358.3,31123,2)
 ;;=^5059833
 ;;^UTILITY(U,$J,358.3,31124,0)
 ;;=F32.9^^89^1256^11
 ;;^UTILITY(U,$J,358.3,31124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31124,1,3,0)
 ;;=3^MDD,Single Episode,Unspec
 ;;^UTILITY(U,$J,358.3,31124,1,4,0)
 ;;=4^F32.9
 ;;^UTILITY(U,$J,358.3,31124,2)
 ;;=^5003528
 ;;^UTILITY(U,$J,358.3,31125,0)
 ;;=Z71.89^^89^1256^1
 ;;^UTILITY(U,$J,358.3,31125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31125,1,3,0)
 ;;=3^Counseling NEC
 ;;^UTILITY(U,$J,358.3,31125,1,4,0)
 ;;=4^Z71.89
 ;;^UTILITY(U,$J,358.3,31125,2)
 ;;=^5063253
 ;;^UTILITY(U,$J,358.3,31126,0)
 ;;=F33.0^^89^1256^3
 ;;^UTILITY(U,$J,358.3,31126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31126,1,3,0)
 ;;=3^MDD,Recurrent,Mild
 ;;^UTILITY(U,$J,358.3,31126,1,4,0)
 ;;=4^F33.0
 ;;^UTILITY(U,$J,358.3,31126,2)
 ;;=^5003529
 ;;^UTILITY(U,$J,358.3,31127,0)
 ;;=F33.1^^89^1256^4
 ;;^UTILITY(U,$J,358.3,31127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31127,1,3,0)
 ;;=3^MDD,Recurrent,Moderate
 ;;^UTILITY(U,$J,358.3,31127,1,4,0)
 ;;=4^F33.1
 ;;^UTILITY(U,$J,358.3,31127,2)
 ;;=^5003530
 ;;^UTILITY(U,$J,358.3,31128,0)
 ;;=F33.2^^89^1256^5
 ;;^UTILITY(U,$J,358.3,31128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31128,1,3,0)
 ;;=3^MDD,Recurrent,Severe w/o Psychotic Features
 ;;^UTILITY(U,$J,358.3,31128,1,4,0)
 ;;=4^F33.2
 ;;^UTILITY(U,$J,358.3,31128,2)
 ;;=^5003531
 ;;^UTILITY(U,$J,358.3,31129,0)
 ;;=F33.9^^89^1256^6
 ;;^UTILITY(U,$J,358.3,31129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31129,1,3,0)
 ;;=3^MDD,Recurrent,Unspec
 ;;^UTILITY(U,$J,358.3,31129,1,4,0)
 ;;=4^F33.9
 ;;^UTILITY(U,$J,358.3,31129,2)
 ;;=^5003537
 ;;^UTILITY(U,$J,358.3,31130,0)
 ;;=F32.0^^89^1256^7
 ;;^UTILITY(U,$J,358.3,31130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31130,1,3,0)
 ;;=3^MDD,Single Episode,Mild
 ;;^UTILITY(U,$J,358.3,31130,1,4,0)
 ;;=4^F32.0
 ;;^UTILITY(U,$J,358.3,31130,2)
 ;;=^5003521
 ;;^UTILITY(U,$J,358.3,31131,0)
 ;;=F32.1^^89^1256^8
 ;;^UTILITY(U,$J,358.3,31131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31131,1,3,0)
 ;;=3^MDD,Single Episode,Moderate
 ;;^UTILITY(U,$J,358.3,31131,1,4,0)
 ;;=4^F32.1
 ;;^UTILITY(U,$J,358.3,31131,2)
 ;;=^5003522
 ;;^UTILITY(U,$J,358.3,31132,0)
 ;;=F32.2^^89^1256^10
 ;;^UTILITY(U,$J,358.3,31132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31132,1,3,0)
 ;;=3^MDD,Single Episode,Severe w/o Psychotic Features
 ;;^UTILITY(U,$J,358.3,31132,1,4,0)
 ;;=4^F32.2
 ;;^UTILITY(U,$J,358.3,31132,2)
 ;;=^5003523
 ;;^UTILITY(U,$J,358.3,31133,0)
 ;;=F32.3^^89^1256^9
 ;;^UTILITY(U,$J,358.3,31133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31133,1,3,0)
 ;;=3^MDD,Single Episode,Severe w/ Psychotic Features
 ;;^UTILITY(U,$J,358.3,31133,1,4,0)
 ;;=4^F32.3
 ;;^UTILITY(U,$J,358.3,31133,2)
 ;;=^5003524
 ;;^UTILITY(U,$J,358.3,31134,0)
 ;;=F32.A^^89^1256^2
 ;;^UTILITY(U,$J,358.3,31134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31134,1,3,0)
 ;;=3^Depression,Unspec
 ;;^UTILITY(U,$J,358.3,31134,1,4,0)
 ;;=4^F32.A
 ;;^UTILITY(U,$J,358.3,31134,2)
 ;;=^5161153
 ;;^UTILITY(U,$J,358.3,31135,0)
 ;;=G56.01^^89^1257^6
 ;;^UTILITY(U,$J,358.3,31135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31135,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31135,1,4,0)
 ;;=4^G56.01
 ;;^UTILITY(U,$J,358.3,31135,2)
 ;;=^5004018
 ;;^UTILITY(U,$J,358.3,31136,0)
 ;;=G56.02^^89^1257^5
 ;;^UTILITY(U,$J,358.3,31136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31136,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,31136,1,4,0)
 ;;=4^G56.02
 ;;^UTILITY(U,$J,358.3,31136,2)
 ;;=^5004019
 ;;^UTILITY(U,$J,358.3,31137,0)
 ;;=M19.90^^89^1257^15
 ;;^UTILITY(U,$J,358.3,31137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31137,1,3,0)
 ;;=3^Osteoarthritis,Site Unspec
 ;;^UTILITY(U,$J,358.3,31137,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,31137,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,31138,0)
 ;;=M47.812^^89^1257^20
 ;;^UTILITY(U,$J,358.3,31138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31138,1,3,0)
 ;;=3^Spondylosis w/o Myelopathy/Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,31138,1,4,0)
 ;;=4^M47.812
 ;;^UTILITY(U,$J,358.3,31138,2)
 ;;=^5012069
 ;;^UTILITY(U,$J,358.3,31139,0)
 ;;=M47.12^^89^1257^19
 ;;^UTILITY(U,$J,358.3,31139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31139,1,3,0)
 ;;=3^Spondylosis w/ Myelopathy,Cervical Region NEC
 ;;^UTILITY(U,$J,358.3,31139,1,4,0)
 ;;=4^M47.12
 ;;^UTILITY(U,$J,358.3,31139,2)
 ;;=^5012052
 ;;^UTILITY(U,$J,358.3,31140,0)
 ;;=M50.30^^89^1257^7
 ;;^UTILITY(U,$J,358.3,31140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31140,1,3,0)
 ;;=3^Cervical Disc Degeneration,Unspec Cervical Region NEC
 ;;^UTILITY(U,$J,358.3,31140,1,4,0)
 ;;=4^M50.30
 ;;^UTILITY(U,$J,358.3,31140,2)
 ;;=^5012227
 ;;^UTILITY(U,$J,358.3,31141,0)
 ;;=M48.02^^89^1257^18
 ;;^UTILITY(U,$J,358.3,31141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31141,1,3,0)
 ;;=3^Spinal Stenosis,Cervical Region
 ;;^UTILITY(U,$J,358.3,31141,1,4,0)
 ;;=4^M48.02
 ;;^UTILITY(U,$J,358.3,31141,2)
 ;;=^5012089
 ;;^UTILITY(U,$J,358.3,31142,0)
 ;;=M54.2^^89^1257^8
 ;;^UTILITY(U,$J,358.3,31142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31142,1,3,0)
 ;;=3^Cervicalgia
 ;;^UTILITY(U,$J,358.3,31142,1,4,0)
 ;;=4^M54.2
 ;;^UTILITY(U,$J,358.3,31142,2)
 ;;=^5012304
 ;;^UTILITY(U,$J,358.3,31143,0)
 ;;=R53.81^^89^1257^14
 ;;^UTILITY(U,$J,358.3,31143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31143,1,3,0)
 ;;=3^Malaise NEC
 ;;^UTILITY(U,$J,358.3,31143,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,31143,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,31144,0)
 ;;=Z89.511^^89^1257^2
 ;;^UTILITY(U,$J,358.3,31144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31144,1,3,0)
 ;;=3^Acquired Absence of Right Leg Below Knee
 ;;^UTILITY(U,$J,358.3,31144,1,4,0)
 ;;=4^Z89.511
 ;;^UTILITY(U,$J,358.3,31144,2)
 ;;=^5063566
 ;;^UTILITY(U,$J,358.3,31145,0)
 ;;=Z89.512^^89^1257^1
 ;;^UTILITY(U,$J,358.3,31145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31145,1,3,0)
 ;;=3^Acquired Absence of Left Leg Below Knee
 ;;^UTILITY(U,$J,358.3,31145,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,31145,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,31146,0)
 ;;=Z46.89^^89^1257^9
 ;;^UTILITY(U,$J,358.3,31146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31146,1,3,0)
 ;;=3^Fitting/Adjustment of Devices NEC
 ;;^UTILITY(U,$J,358.3,31146,1,4,0)
 ;;=4^Z46.89
 ;;^UTILITY(U,$J,358.3,31146,2)
 ;;=^5063023
 ;;^UTILITY(U,$J,358.3,31147,0)
 ;;=M75.01^^89^1257^4
 ;;^UTILITY(U,$J,358.3,31147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31147,1,3,0)
 ;;=3^Adhesive Capsulitis,Right Shoulder
 ;;^UTILITY(U,$J,358.3,31147,1,4,0)
 ;;=4^M75.01
 ;;^UTILITY(U,$J,358.3,31147,2)
 ;;=^5013239
 ;;^UTILITY(U,$J,358.3,31148,0)
 ;;=M75.02^^89^1257^3
 ;;^UTILITY(U,$J,358.3,31148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31148,1,3,0)
 ;;=3^Adhesive Capsulitis,Left Shoulder
 ;;^UTILITY(U,$J,358.3,31148,1,4,0)
 ;;=4^M75.02
 ;;^UTILITY(U,$J,358.3,31148,2)
 ;;=^5013240
 ;;^UTILITY(U,$J,358.3,31149,0)
 ;;=M54.12^^89^1257^16
 ;;^UTILITY(U,$J,358.3,31149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31149,1,3,0)
 ;;=3^Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,31149,1,4,0)
 ;;=4^M54.12
 ;;^UTILITY(U,$J,358.3,31149,2)
 ;;=^5012297
 ;;^UTILITY(U,$J,358.3,31150,0)
 ;;=M54.13^^89^1257^17
 ;;^UTILITY(U,$J,358.3,31150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31150,1,3,0)
 ;;=3^Radiculopathy,Cervicothoracic Region
 ;;^UTILITY(U,$J,358.3,31150,1,4,0)
 ;;=4^M54.13
 ;;^UTILITY(U,$J,358.3,31150,2)
 ;;=^5012298
 ;;^UTILITY(U,$J,358.3,31151,0)
 ;;=G56.21^^89^1257^13
 ;;^UTILITY(U,$J,358.3,31151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31151,1,3,0)
 ;;=3^Lesion of Ulnar Nerve,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31151,1,4,0)
 ;;=4^G56.21
 ;;^UTILITY(U,$J,358.3,31151,2)
 ;;=^5004024
 ;;^UTILITY(U,$J,358.3,31152,0)
 ;;=G56.22^^89^1257^12
 ;;^UTILITY(U,$J,358.3,31152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31152,1,3,0)
 ;;=3^Lesion of Ulnar Nerve,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,31152,1,4,0)
 ;;=4^G56.22
 ;;^UTILITY(U,$J,358.3,31152,2)
 ;;=^5004025
 ;;^UTILITY(U,$J,358.3,31153,0)
 ;;=G56.31^^89^1257^11
 ;;^UTILITY(U,$J,358.3,31153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31153,1,3,0)
 ;;=3^Lesion of Radial Nerve,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31153,1,4,0)
 ;;=4^G56.31
 ;;^UTILITY(U,$J,358.3,31153,2)
 ;;=^5004027
 ;;^UTILITY(U,$J,358.3,31154,0)
 ;;=G56.32^^89^1257^10
 ;;^UTILITY(U,$J,358.3,31154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31154,1,3,0)
 ;;=3^Lesion of Radial Nerve,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,31154,1,4,0)
 ;;=4^G56.32
 ;;^UTILITY(U,$J,358.3,31154,2)
 ;;=^5004028
 ;;^UTILITY(U,$J,358.3,31155,0)
 ;;=B18.2^^89^1258^6
 ;;^UTILITY(U,$J,358.3,31155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31155,1,3,0)
 ;;=3^Hepatitis C,Viral,Chronic
 ;;^UTILITY(U,$J,358.3,31155,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,31155,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,31156,0)
 ;;=K92.1^^89^1258^8
 ;;^UTILITY(U,$J,358.3,31156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31156,1,3,0)
 ;;=3^Melena
 ;;^UTILITY(U,$J,358.3,31156,1,4,0)
 ;;=4^K92.1
 ;;^UTILITY(U,$J,358.3,31156,2)
 ;;=^5008914
 ;;^UTILITY(U,$J,358.3,31157,0)
 ;;=N39.0^^89^1258^11
 ;;^UTILITY(U,$J,358.3,31157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31157,1,3,0)
 ;;=3^UTI,Site Unspec
 ;;^UTILITY(U,$J,358.3,31157,1,4,0)
 ;;=4^N39.0
 ;;^UTILITY(U,$J,358.3,31157,2)
 ;;=^124436
 ;;^UTILITY(U,$J,358.3,31158,0)
 ;;=K92.0^^89^1258^5
 ;;^UTILITY(U,$J,358.3,31158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31158,1,3,0)
 ;;=3^Hematemesis
 ;;^UTILITY(U,$J,358.3,31158,1,4,0)
 ;;=4^K92.0
 ;;^UTILITY(U,$J,358.3,31158,2)
 ;;=^5008913
 ;;^UTILITY(U,$J,358.3,31159,0)
 ;;=N10.^^89^1258^9
 ;;^UTILITY(U,$J,358.3,31159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31159,1,3,0)
 ;;=3^Pyelonephritis
 ;;^UTILITY(U,$J,358.3,31159,1,4,0)
 ;;=4^N10.
 ;;^UTILITY(U,$J,358.3,31159,2)
 ;;=^5015570
 ;;^UTILITY(U,$J,358.3,31160,0)
 ;;=N13.2^^89^1258^7
 ;;^UTILITY(U,$J,358.3,31160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31160,1,3,0)
 ;;=3^Hydroephrosis w/ Calculous
 ;;^UTILITY(U,$J,358.3,31160,1,4,0)
 ;;=4^N13.2
 ;;^UTILITY(U,$J,358.3,31160,2)
 ;;=^5015577
 ;;^UTILITY(U,$J,358.3,31161,0)
 ;;=N30.00^^89^1258^4
 ;;^UTILITY(U,$J,358.3,31161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31161,1,3,0)
 ;;=3^Cystitis w/o Hematuria
 ;;^UTILITY(U,$J,358.3,31161,1,4,0)
 ;;=4^N30.00
 ;;^UTILITY(U,$J,358.3,31161,2)
 ;;=^5015632
 ;;^UTILITY(U,$J,358.3,31162,0)
 ;;=N30.01^^89^1258^3
 ;;^UTILITY(U,$J,358.3,31162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31162,1,3,0)
 ;;=3^Cystitis w/ Hematuria
 ;;^UTILITY(U,$J,358.3,31162,1,4,0)
 ;;=4^N30.01
 ;;^UTILITY(U,$J,358.3,31162,2)
 ;;=^5015633
 ;;^UTILITY(U,$J,358.3,31163,0)
 ;;=N30.40^^89^1258^2
 ;;^UTILITY(U,$J,358.3,31163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31163,1,3,0)
 ;;=3^Cystitis Irradiation w/o Hematuria
 ;;^UTILITY(U,$J,358.3,31163,1,4,0)
 ;;=4^N30.40
 ;;^UTILITY(U,$J,358.3,31163,2)
 ;;=^5015639
 ;;^UTILITY(U,$J,358.3,31164,0)
 ;;=N30.41^^89^1258^1
 ;;^UTILITY(U,$J,358.3,31164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31164,1,3,0)
 ;;=3^Cystitis Irradiation w/ Hematuria
 ;;^UTILITY(U,$J,358.3,31164,1,4,0)
 ;;=4^N30.41
 ;;^UTILITY(U,$J,358.3,31164,2)
 ;;=^5015640
 ;;^UTILITY(U,$J,358.3,31165,0)
 ;;=N13.6^^89^1258^10
 ;;^UTILITY(U,$J,358.3,31165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31165,1,3,0)
 ;;=3^Pyonephrosis
 ;;^UTILITY(U,$J,358.3,31165,1,4,0)
 ;;=4^N13.6
 ;;^UTILITY(U,$J,358.3,31165,2)
 ;;=^101552
 ;;^UTILITY(U,$J,358.3,31166,0)
 ;;=G82.20^^89^1259^3
 ;;^UTILITY(U,$J,358.3,31166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31166,1,3,0)
 ;;=3^Paraplegia,Unspec