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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CE 19786 printed Sep 23, 2025@19:21:54 Page 2
IBDEI0CE ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,31097,1,4,0)
+2 ;;=4^I48.91
+3 ;;^UTILITY(U,$J,358.3,31097,2)
+4 ;;=^5007229
+5 ;;^UTILITY(U,$J,358.3,31098,0)
+6 ;;=I48.0^^89^1254^7
+7 ;;^UTILITY(U,$J,358.3,31098,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,31098,1,3,0)
+10 ;;=3^Atrial Fibrillation,Paroxysmal
+11 ;;^UTILITY(U,$J,358.3,31098,1,4,0)
+12 ;;=4^I48.0
+13 ;;^UTILITY(U,$J,358.3,31098,2)
+14 ;;=^90473
+15 ;;^UTILITY(U,$J,358.3,31099,0)
+16 ;;=Z95.0^^89^1254^21
+17 ;;^UTILITY(U,$J,358.3,31099,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,31099,1,3,0)
+20 ;;=3^Presence of Cardiac Pacemaker
+21 ;;^UTILITY(U,$J,358.3,31099,1,4,0)
+22 ;;=4^Z95.0
+23 ;;^UTILITY(U,$J,358.3,31099,2)
+24 ;;=^5063668
+25 ;;^UTILITY(U,$J,358.3,31100,0)
+26 ;;=I50.9^^89^1254^18
+27 ;;^UTILITY(U,$J,358.3,31100,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,31100,1,3,0)
+30 ;;=3^Heart Failure,Unspec
+31 ;;^UTILITY(U,$J,358.3,31100,1,4,0)
+32 ;;=4^I50.9
+33 ;;^UTILITY(U,$J,358.3,31100,2)
+34 ;;=^5007251
+35 ;;^UTILITY(U,$J,358.3,31101,0)
+36 ;;=I20.0^^89^1254^22
+37 ;;^UTILITY(U,$J,358.3,31101,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,31101,1,3,0)
+40 ;;=3^Unstable Angina
+41 ;;^UTILITY(U,$J,358.3,31101,1,4,0)
+42 ;;=4^I20.0
+43 ;;^UTILITY(U,$J,358.3,31101,2)
+44 ;;=^5007076
+45 ;;^UTILITY(U,$J,358.3,31102,0)
+46 ;;=I25.110^^89^1254^13
+47 ;;^UTILITY(U,$J,358.3,31102,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,31102,1,3,0)
+50 ;;=3^CAD w/ Unstable Angina
+51 ;;^UTILITY(U,$J,358.3,31102,1,4,0)
+52 ;;=4^I25.110
+53 ;;^UTILITY(U,$J,358.3,31102,2)
+54 ;;=^5007108
+55 ;;^UTILITY(U,$J,358.3,31103,0)
+56 ;;=I25.2^^89^1254^20
+57 ;;^UTILITY(U,$J,358.3,31103,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,31103,1,3,0)
+60 ;;=3^Old Myocardial Infarction
+61 ;;^UTILITY(U,$J,358.3,31103,1,4,0)
+62 ;;=4^I25.2
+63 ;;^UTILITY(U,$J,358.3,31103,2)
+64 ;;=^259884
+65 ;;^UTILITY(U,$J,358.3,31104,0)
+66 ;;=I25.3^^89^1254^2
+67 ;;^UTILITY(U,$J,358.3,31104,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,31104,1,3,0)
+70 ;;=3^Aneurysm of Heart
+71 ;;^UTILITY(U,$J,358.3,31104,1,4,0)
+72 ;;=4^I25.3
+73 ;;^UTILITY(U,$J,358.3,31104,2)
+74 ;;=^5007112
+75 ;;^UTILITY(U,$J,358.3,31105,0)
+76 ;;=I48.3^^89^1254^10
+77 ;;^UTILITY(U,$J,358.3,31105,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,31105,1,3,0)
+80 ;;=3^Atypical Atrial Flutter,Type I
+81 ;;^UTILITY(U,$J,358.3,31105,1,4,0)
+82 ;;=4^I48.3
+83 ;;^UTILITY(U,$J,358.3,31105,2)
+84 ;;=^5007227
+85 ;;^UTILITY(U,$J,358.3,31106,0)
+86 ;;=I48.4^^89^1254^11
+87 ;;^UTILITY(U,$J,358.3,31106,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,31106,1,3,0)
+90 ;;=3^Atypical Atrial Flutter,Type II
+91 ;;^UTILITY(U,$J,358.3,31106,1,4,0)
+92 ;;=4^I48.4
+93 ;;^UTILITY(U,$J,358.3,31106,2)
+94 ;;=^5007228
+95 ;;^UTILITY(U,$J,358.3,31107,0)
+96 ;;=I50.1^^89^1254^19
+97 ;;^UTILITY(U,$J,358.3,31107,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,31107,1,3,0)
+100 ;;=3^Left Heart Failure
+101 ;;^UTILITY(U,$J,358.3,31107,1,4,0)
+102 ;;=4^I50.1
+103 ;;^UTILITY(U,$J,358.3,31107,2)
+104 ;;=^5007238
+105 ;;^UTILITY(U,$J,358.3,31108,0)
+106 ;;=I50.21^^89^1254^1
+107 ;;^UTILITY(U,$J,358.3,31108,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,31108,1,3,0)
+110 ;;=3^Acute Systolic Cong Heart Failure
+111 ;;^UTILITY(U,$J,358.3,31108,1,4,0)
+112 ;;=4^I50.21
+113 ;;^UTILITY(U,$J,358.3,31108,2)
+114 ;;=^5007240
+115 ;;^UTILITY(U,$J,358.3,31109,0)
+116 ;;=I50.22^^89^1254^16
+117 ;;^UTILITY(U,$J,358.3,31109,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,31109,1,3,0)
+120 ;;=3^Chronic Systolic CHF
+121 ;;^UTILITY(U,$J,358.3,31109,1,4,0)
+122 ;;=4^I50.22
+123 ;;^UTILITY(U,$J,358.3,31109,2)
+124 ;;=^5007241
+125 ;;^UTILITY(U,$J,358.3,31110,0)
+126 ;;=I48.20^^89^1254^4
+127 ;;^UTILITY(U,$J,358.3,31110,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,31110,1,3,0)
+130 ;;=3^Atrial Fibrillation,Chronic,Unspec
+131 ;;^UTILITY(U,$J,358.3,31110,1,4,0)
+132 ;;=4^I48.20
+133 ;;^UTILITY(U,$J,358.3,31110,2)
+134 ;;=^5158048
+135 ;;^UTILITY(U,$J,358.3,31111,0)
+136 ;;=I48.21^^89^1254^8
+137 ;;^UTILITY(U,$J,358.3,31111,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,31111,1,3,0)
+140 ;;=3^Atrial Fibrillation,Permanent
+141 ;;^UTILITY(U,$J,358.3,31111,1,4,0)
+142 ;;=4^I48.21
+143 ;;^UTILITY(U,$J,358.3,31111,2)
+144 ;;=^304710
+145 ;;^UTILITY(U,$J,358.3,31112,0)
+146 ;;=I48.11^^89^1254^5
+147 ;;^UTILITY(U,$J,358.3,31112,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,31112,1,3,0)
+150 ;;=3^Atrial Fibrillation,Longstanding Persistent
+151 ;;^UTILITY(U,$J,358.3,31112,1,4,0)
+152 ;;=4^I48.11
+153 ;;^UTILITY(U,$J,358.3,31112,2)
+154 ;;=^5158046
+155 ;;^UTILITY(U,$J,358.3,31113,0)
+156 ;;=I48.19^^89^1254^6
+157 ;;^UTILITY(U,$J,358.3,31113,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,31113,1,3,0)
+160 ;;=3^Atrial Fibrillation,Oth Persistent
+161 ;;^UTILITY(U,$J,358.3,31113,1,4,0)
+162 ;;=4^I48.19
+163 ;;^UTILITY(U,$J,358.3,31113,2)
+164 ;;=^5158047
+165 ;;^UTILITY(U,$J,358.3,31114,0)
+166 ;;=I50.32^^89^1254^15
+167 ;;^UTILITY(U,$J,358.3,31114,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,31114,1,3,0)
+170 ;;=3^Chronic Diastolic CHF
+171 ;;^UTILITY(U,$J,358.3,31114,1,4,0)
+172 ;;=4^I50.32
+173 ;;^UTILITY(U,$J,358.3,31114,2)
+174 ;;=^5007245
+175 ;;^UTILITY(U,$J,358.3,31115,0)
+176 ;;=I50.42^^89^1254^17
+177 ;;^UTILITY(U,$J,358.3,31115,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,31115,1,3,0)
+180 ;;=3^Chronic Systoloic & Diastolic CHF
+181 ;;^UTILITY(U,$J,358.3,31115,1,4,0)
+182 ;;=4^I50.42
+183 ;;^UTILITY(U,$J,358.3,31115,2)
+184 ;;=^5007249
+185 ;;^UTILITY(U,$J,358.3,31116,0)
+186 ;;=I25.118^^89^1254^12
+187 ;;^UTILITY(U,$J,358.3,31116,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,31116,1,3,0)
+190 ;;=3^CAD w/ Oth Angina (Includes Stable)
+191 ;;^UTILITY(U,$J,358.3,31116,1,4,0)
+192 ;;=4^I25.118
+193 ;;^UTILITY(U,$J,358.3,31116,2)
+194 ;;=^5007110
+195 ;;^UTILITY(U,$J,358.3,31117,0)
+196 ;;=V49.9XXA^^89^1255^1
+197 ;;^UTILITY(U,$J,358.3,31117,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,31117,1,3,0)
+200 ;;=3^Car Occupant Traffic Accident Injury,Init Encntr
+201 ;;^UTILITY(U,$J,358.3,31117,1,4,0)
+202 ;;=4^V49.9XXA
+203 ;;^UTILITY(U,$J,358.3,31117,2)
+204 ;;=^5057368
+205 ;;^UTILITY(U,$J,358.3,31118,0)
+206 ;;=V59.9XXA^^89^1255^7
+207 ;;^UTILITY(U,$J,358.3,31118,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,31118,1,3,0)
+210 ;;=3^Truck/Van Occupant Traffic Accident Injury,Init Encntr
+211 ;;^UTILITY(U,$J,358.3,31118,1,4,0)
+212 ;;=4^V59.9XXA
+213 ;;^UTILITY(U,$J,358.3,31118,2)
+214 ;;=^5057659
+215 ;;^UTILITY(U,$J,358.3,31119,0)
+216 ;;=V69.9XXA^^89^1255^5
+217 ;;^UTILITY(U,$J,358.3,31119,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,31119,1,3,0)
+220 ;;=3^Heavy Transport Vehicle Occupant Traffic Accident Injury,Init Encntr
+221 ;;^UTILITY(U,$J,358.3,31119,1,4,0)
+222 ;;=4^V69.9XXA
+223 ;;^UTILITY(U,$J,358.3,31119,2)
+224 ;;=^5057950
+225 ;;^UTILITY(U,$J,358.3,31120,0)
+226 ;;=V89.2XXA^^89^1255^6
+227 ;;^UTILITY(U,$J,358.3,31120,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,31120,1,3,0)
+230 ;;=3^Person injured in Motor-Vehicle Traffic Accident,Init Encntr
+231 ;;^UTILITY(U,$J,358.3,31120,1,4,0)
+232 ;;=4^V89.2XXA
+233 ;;^UTILITY(U,$J,358.3,31120,2)
+234 ;;=^5058688
+235 ;;^UTILITY(U,$J,358.3,31121,0)
+236 ;;=W07.XXXA^^89^1255^3
+237 ;;^UTILITY(U,$J,358.3,31121,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,31121,1,3,0)
+240 ;;=3^Fall from Chair,Init Encntr
+241 ;;^UTILITY(U,$J,358.3,31121,1,4,0)
+242 ;;=4^W07.XXXA
+243 ;;^UTILITY(U,$J,358.3,31121,2)
+244 ;;=^5059562
+245 ;;^UTILITY(U,$J,358.3,31122,0)
+246 ;;=W06.XXXA^^89^1255^2
+247 ;;^UTILITY(U,$J,358.3,31122,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,31122,1,3,0)
+250 ;;=3^Fall from Bed,Init Encntr
+251 ;;^UTILITY(U,$J,358.3,31122,1,4,0)
+252 ;;=4^W06.XXXA
+253 ;;^UTILITY(U,$J,358.3,31122,2)
+254 ;;=^5059559
+255 ;;^UTILITY(U,$J,358.3,31123,0)
+256 ;;=W19.XXXA^^89^1255^4
+257 ;;^UTILITY(U,$J,358.3,31123,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,31123,1,3,0)
+260 ;;=3^Fall,Unspec,Init Encntr
+261 ;;^UTILITY(U,$J,358.3,31123,1,4,0)
+262 ;;=4^W19.XXXA
+263 ;;^UTILITY(U,$J,358.3,31123,2)
+264 ;;=^5059833
+265 ;;^UTILITY(U,$J,358.3,31124,0)
+266 ;;=F32.9^^89^1256^11
+267 ;;^UTILITY(U,$J,358.3,31124,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,31124,1,3,0)
+270 ;;=3^MDD,Single Episode,Unspec
+271 ;;^UTILITY(U,$J,358.3,31124,1,4,0)
+272 ;;=4^F32.9
+273 ;;^UTILITY(U,$J,358.3,31124,2)
+274 ;;=^5003528
+275 ;;^UTILITY(U,$J,358.3,31125,0)
+276 ;;=Z71.89^^89^1256^1
+277 ;;^UTILITY(U,$J,358.3,31125,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,31125,1,3,0)
+280 ;;=3^Counseling NEC
+281 ;;^UTILITY(U,$J,358.3,31125,1,4,0)
+282 ;;=4^Z71.89
+283 ;;^UTILITY(U,$J,358.3,31125,2)
+284 ;;=^5063253
+285 ;;^UTILITY(U,$J,358.3,31126,0)
+286 ;;=F33.0^^89^1256^3
+287 ;;^UTILITY(U,$J,358.3,31126,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,31126,1,3,0)
+290 ;;=3^MDD,Recurrent,Mild
+291 ;;^UTILITY(U,$J,358.3,31126,1,4,0)
+292 ;;=4^F33.0
+293 ;;^UTILITY(U,$J,358.3,31126,2)
+294 ;;=^5003529
+295 ;;^UTILITY(U,$J,358.3,31127,0)
+296 ;;=F33.1^^89^1256^4
+297 ;;^UTILITY(U,$J,358.3,31127,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,31127,1,3,0)
+300 ;;=3^MDD,Recurrent,Moderate
+301 ;;^UTILITY(U,$J,358.3,31127,1,4,0)
+302 ;;=4^F33.1
+303 ;;^UTILITY(U,$J,358.3,31127,2)
+304 ;;=^5003530
+305 ;;^UTILITY(U,$J,358.3,31128,0)
+306 ;;=F33.2^^89^1256^5
+307 ;;^UTILITY(U,$J,358.3,31128,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,31128,1,3,0)
+310 ;;=3^MDD,Recurrent,Severe w/o Psychotic Features
+311 ;;^UTILITY(U,$J,358.3,31128,1,4,0)
+312 ;;=4^F33.2
+313 ;;^UTILITY(U,$J,358.3,31128,2)
+314 ;;=^5003531
+315 ;;^UTILITY(U,$J,358.3,31129,0)
+316 ;;=F33.9^^89^1256^6
+317 ;;^UTILITY(U,$J,358.3,31129,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,31129,1,3,0)
+320 ;;=3^MDD,Recurrent,Unspec
+321 ;;^UTILITY(U,$J,358.3,31129,1,4,0)
+322 ;;=4^F33.9
+323 ;;^UTILITY(U,$J,358.3,31129,2)
+324 ;;=^5003537
+325 ;;^UTILITY(U,$J,358.3,31130,0)
+326 ;;=F32.0^^89^1256^7
+327 ;;^UTILITY(U,$J,358.3,31130,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,31130,1,3,0)
+330 ;;=3^MDD,Single Episode,Mild
+331 ;;^UTILITY(U,$J,358.3,31130,1,4,0)
+332 ;;=4^F32.0
+333 ;;^UTILITY(U,$J,358.3,31130,2)
+334 ;;=^5003521
+335 ;;^UTILITY(U,$J,358.3,31131,0)
+336 ;;=F32.1^^89^1256^8
+337 ;;^UTILITY(U,$J,358.3,31131,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,31131,1,3,0)
+340 ;;=3^MDD,Single Episode,Moderate
+341 ;;^UTILITY(U,$J,358.3,31131,1,4,0)
+342 ;;=4^F32.1
+343 ;;^UTILITY(U,$J,358.3,31131,2)
+344 ;;=^5003522
+345 ;;^UTILITY(U,$J,358.3,31132,0)
+346 ;;=F32.2^^89^1256^10
+347 ;;^UTILITY(U,$J,358.3,31132,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,31132,1,3,0)
+350 ;;=3^MDD,Single Episode,Severe w/o Psychotic Features
+351 ;;^UTILITY(U,$J,358.3,31132,1,4,0)
+352 ;;=4^F32.2
+353 ;;^UTILITY(U,$J,358.3,31132,2)
+354 ;;=^5003523
+355 ;;^UTILITY(U,$J,358.3,31133,0)
+356 ;;=F32.3^^89^1256^9
+357 ;;^UTILITY(U,$J,358.3,31133,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,31133,1,3,0)
+360 ;;=3^MDD,Single Episode,Severe w/ Psychotic Features
+361 ;;^UTILITY(U,$J,358.3,31133,1,4,0)
+362 ;;=4^F32.3
+363 ;;^UTILITY(U,$J,358.3,31133,2)
+364 ;;=^5003524
+365 ;;^UTILITY(U,$J,358.3,31134,0)
+366 ;;=F32.A^^89^1256^2
+367 ;;^UTILITY(U,$J,358.3,31134,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,31134,1,3,0)
+370 ;;=3^Depression,Unspec
+371 ;;^UTILITY(U,$J,358.3,31134,1,4,0)
+372 ;;=4^F32.A
+373 ;;^UTILITY(U,$J,358.3,31134,2)
+374 ;;=^5161153
+375 ;;^UTILITY(U,$J,358.3,31135,0)
+376 ;;=G56.01^^89^1257^6
+377 ;;^UTILITY(U,$J,358.3,31135,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,31135,1,3,0)
+380 ;;=3^Carpal Tunnel Syndrome,Right Upper Limb
+381 ;;^UTILITY(U,$J,358.3,31135,1,4,0)
+382 ;;=4^G56.01
+383 ;;^UTILITY(U,$J,358.3,31135,2)
+384 ;;=^5004018
+385 ;;^UTILITY(U,$J,358.3,31136,0)
+386 ;;=G56.02^^89^1257^5
+387 ;;^UTILITY(U,$J,358.3,31136,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,31136,1,3,0)
+390 ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
+391 ;;^UTILITY(U,$J,358.3,31136,1,4,0)
+392 ;;=4^G56.02
+393 ;;^UTILITY(U,$J,358.3,31136,2)
+394 ;;=^5004019
+395 ;;^UTILITY(U,$J,358.3,31137,0)
+396 ;;=M19.90^^89^1257^15
+397 ;;^UTILITY(U,$J,358.3,31137,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,31137,1,3,0)
+400 ;;=3^Osteoarthritis,Site Unspec
+401 ;;^UTILITY(U,$J,358.3,31137,1,4,0)
+402 ;;=4^M19.90
+403 ;;^UTILITY(U,$J,358.3,31137,2)
+404 ;;=^5010853
+405 ;;^UTILITY(U,$J,358.3,31138,0)
+406 ;;=M47.812^^89^1257^20
+407 ;;^UTILITY(U,$J,358.3,31138,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,31138,1,3,0)
+410 ;;=3^Spondylosis w/o Myelopathy/Radiculopathy,Cervical Region
+411 ;;^UTILITY(U,$J,358.3,31138,1,4,0)
+412 ;;=4^M47.812
+413 ;;^UTILITY(U,$J,358.3,31138,2)
+414 ;;=^5012069
+415 ;;^UTILITY(U,$J,358.3,31139,0)
+416 ;;=M47.12^^89^1257^19
+417 ;;^UTILITY(U,$J,358.3,31139,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,31139,1,3,0)
+420 ;;=3^Spondylosis w/ Myelopathy,Cervical Region NEC
+421 ;;^UTILITY(U,$J,358.3,31139,1,4,0)
+422 ;;=4^M47.12
+423 ;;^UTILITY(U,$J,358.3,31139,2)
+424 ;;=^5012052
+425 ;;^UTILITY(U,$J,358.3,31140,0)
+426 ;;=M50.30^^89^1257^7
+427 ;;^UTILITY(U,$J,358.3,31140,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,31140,1,3,0)
+430 ;;=3^Cervical Disc Degeneration,Unspec Cervical Region NEC
+431 ;;^UTILITY(U,$J,358.3,31140,1,4,0)
+432 ;;=4^M50.30
+433 ;;^UTILITY(U,$J,358.3,31140,2)
+434 ;;=^5012227
+435 ;;^UTILITY(U,$J,358.3,31141,0)
+436 ;;=M48.02^^89^1257^18
+437 ;;^UTILITY(U,$J,358.3,31141,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,31141,1,3,0)
+440 ;;=3^Spinal Stenosis,Cervical Region
+441 ;;^UTILITY(U,$J,358.3,31141,1,4,0)
+442 ;;=4^M48.02
+443 ;;^UTILITY(U,$J,358.3,31141,2)
+444 ;;=^5012089
+445 ;;^UTILITY(U,$J,358.3,31142,0)
+446 ;;=M54.2^^89^1257^8
+447 ;;^UTILITY(U,$J,358.3,31142,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,31142,1,3,0)
+450 ;;=3^Cervicalgia
+451 ;;^UTILITY(U,$J,358.3,31142,1,4,0)
+452 ;;=4^M54.2
+453 ;;^UTILITY(U,$J,358.3,31142,2)
+454 ;;=^5012304
+455 ;;^UTILITY(U,$J,358.3,31143,0)
+456 ;;=R53.81^^89^1257^14
+457 ;;^UTILITY(U,$J,358.3,31143,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,31143,1,3,0)
+460 ;;=3^Malaise NEC
+461 ;;^UTILITY(U,$J,358.3,31143,1,4,0)
+462 ;;=4^R53.81
+463 ;;^UTILITY(U,$J,358.3,31143,2)
+464 ;;=^5019518
+465 ;;^UTILITY(U,$J,358.3,31144,0)
+466 ;;=Z89.511^^89^1257^2
+467 ;;^UTILITY(U,$J,358.3,31144,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,31144,1,3,0)
+470 ;;=3^Acquired Absence of Right Leg Below Knee
+471 ;;^UTILITY(U,$J,358.3,31144,1,4,0)
+472 ;;=4^Z89.511
+473 ;;^UTILITY(U,$J,358.3,31144,2)
+474 ;;=^5063566
+475 ;;^UTILITY(U,$J,358.3,31145,0)
+476 ;;=Z89.512^^89^1257^1
+477 ;;^UTILITY(U,$J,358.3,31145,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,31145,1,3,0)
+480 ;;=3^Acquired Absence of Left Leg Below Knee
+481 ;;^UTILITY(U,$J,358.3,31145,1,4,0)
+482 ;;=4^Z89.512
+483 ;;^UTILITY(U,$J,358.3,31145,2)
+484 ;;=^5063567
+485 ;;^UTILITY(U,$J,358.3,31146,0)
+486 ;;=Z46.89^^89^1257^9
+487 ;;^UTILITY(U,$J,358.3,31146,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,31146,1,3,0)
+490 ;;=3^Fitting/Adjustment of Devices NEC
+491 ;;^UTILITY(U,$J,358.3,31146,1,4,0)
+492 ;;=4^Z46.89
+493 ;;^UTILITY(U,$J,358.3,31146,2)
+494 ;;=^5063023
+495 ;;^UTILITY(U,$J,358.3,31147,0)
+496 ;;=M75.01^^89^1257^4
+497 ;;^UTILITY(U,$J,358.3,31147,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,31147,1,3,0)
+500 ;;=3^Adhesive Capsulitis,Right Shoulder
+501 ;;^UTILITY(U,$J,358.3,31147,1,4,0)
+502 ;;=4^M75.01
+503 ;;^UTILITY(U,$J,358.3,31147,2)
+504 ;;=^5013239
+505 ;;^UTILITY(U,$J,358.3,31148,0)
+506 ;;=M75.02^^89^1257^3
+507 ;;^UTILITY(U,$J,358.3,31148,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,31148,1,3,0)
+510 ;;=3^Adhesive Capsulitis,Left Shoulder
+511 ;;^UTILITY(U,$J,358.3,31148,1,4,0)
+512 ;;=4^M75.02
+513 ;;^UTILITY(U,$J,358.3,31148,2)
+514 ;;=^5013240
+515 ;;^UTILITY(U,$J,358.3,31149,0)
+516 ;;=M54.12^^89^1257^16
+517 ;;^UTILITY(U,$J,358.3,31149,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,31149,1,3,0)
+520 ;;=3^Radiculopathy,Cervical Region
+521 ;;^UTILITY(U,$J,358.3,31149,1,4,0)
+522 ;;=4^M54.12
+523 ;;^UTILITY(U,$J,358.3,31149,2)
+524 ;;=^5012297
+525 ;;^UTILITY(U,$J,358.3,31150,0)
+526 ;;=M54.13^^89^1257^17
+527 ;;^UTILITY(U,$J,358.3,31150,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,31150,1,3,0)
+530 ;;=3^Radiculopathy,Cervicothoracic Region
+531 ;;^UTILITY(U,$J,358.3,31150,1,4,0)
+532 ;;=4^M54.13
+533 ;;^UTILITY(U,$J,358.3,31150,2)
+534 ;;=^5012298
+535 ;;^UTILITY(U,$J,358.3,31151,0)
+536 ;;=G56.21^^89^1257^13
+537 ;;^UTILITY(U,$J,358.3,31151,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,31151,1,3,0)
+540 ;;=3^Lesion of Ulnar Nerve,Right Upper Limb
+541 ;;^UTILITY(U,$J,358.3,31151,1,4,0)
+542 ;;=4^G56.21
+543 ;;^UTILITY(U,$J,358.3,31151,2)
+544 ;;=^5004024
+545 ;;^UTILITY(U,$J,358.3,31152,0)
+546 ;;=G56.22^^89^1257^12
+547 ;;^UTILITY(U,$J,358.3,31152,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,31152,1,3,0)
+550 ;;=3^Lesion of Ulnar Nerve,Left Upper Limb
+551 ;;^UTILITY(U,$J,358.3,31152,1,4,0)
+552 ;;=4^G56.22
+553 ;;^UTILITY(U,$J,358.3,31152,2)
+554 ;;=^5004025
+555 ;;^UTILITY(U,$J,358.3,31153,0)
+556 ;;=G56.31^^89^1257^11
+557 ;;^UTILITY(U,$J,358.3,31153,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,31153,1,3,0)
+560 ;;=3^Lesion of Radial Nerve,Right Upper Limb
+561 ;;^UTILITY(U,$J,358.3,31153,1,4,0)
+562 ;;=4^G56.31
+563 ;;^UTILITY(U,$J,358.3,31153,2)
+564 ;;=^5004027
+565 ;;^UTILITY(U,$J,358.3,31154,0)
+566 ;;=G56.32^^89^1257^10
+567 ;;^UTILITY(U,$J,358.3,31154,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,31154,1,3,0)
+570 ;;=3^Lesion of Radial Nerve,Left Upper Limb
+571 ;;^UTILITY(U,$J,358.3,31154,1,4,0)
+572 ;;=4^G56.32
+573 ;;^UTILITY(U,$J,358.3,31154,2)
+574 ;;=^5004028
+575 ;;^UTILITY(U,$J,358.3,31155,0)
+576 ;;=B18.2^^89^1258^6
+577 ;;^UTILITY(U,$J,358.3,31155,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,31155,1,3,0)
+580 ;;=3^Hepatitis C,Viral,Chronic
+581 ;;^UTILITY(U,$J,358.3,31155,1,4,0)
+582 ;;=4^B18.2
+583 ;;^UTILITY(U,$J,358.3,31155,2)
+584 ;;=^5000548
+585 ;;^UTILITY(U,$J,358.3,31156,0)
+586 ;;=K92.1^^89^1258^8
+587 ;;^UTILITY(U,$J,358.3,31156,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,31156,1,3,0)
+590 ;;=3^Melena
+591 ;;^UTILITY(U,$J,358.3,31156,1,4,0)
+592 ;;=4^K92.1
+593 ;;^UTILITY(U,$J,358.3,31156,2)
+594 ;;=^5008914
+595 ;;^UTILITY(U,$J,358.3,31157,0)
+596 ;;=N39.0^^89^1258^11
+597 ;;^UTILITY(U,$J,358.3,31157,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,31157,1,3,0)
+600 ;;=3^UTI,Site Unspec
+601 ;;^UTILITY(U,$J,358.3,31157,1,4,0)
+602 ;;=4^N39.0
+603 ;;^UTILITY(U,$J,358.3,31157,2)
+604 ;;=^124436
+605 ;;^UTILITY(U,$J,358.3,31158,0)
+606 ;;=K92.0^^89^1258^5
+607 ;;^UTILITY(U,$J,358.3,31158,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,31158,1,3,0)
+610 ;;=3^Hematemesis
+611 ;;^UTILITY(U,$J,358.3,31158,1,4,0)
+612 ;;=4^K92.0
+613 ;;^UTILITY(U,$J,358.3,31158,2)
+614 ;;=^5008913
+615 ;;^UTILITY(U,$J,358.3,31159,0)
+616 ;;=N10.^^89^1258^9
+617 ;;^UTILITY(U,$J,358.3,31159,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,31159,1,3,0)
+620 ;;=3^Pyelonephritis
+621 ;;^UTILITY(U,$J,358.3,31159,1,4,0)
+622 ;;=4^N10.
+623 ;;^UTILITY(U,$J,358.3,31159,2)
+624 ;;=^5015570
+625 ;;^UTILITY(U,$J,358.3,31160,0)
+626 ;;=N13.2^^89^1258^7
+627 ;;^UTILITY(U,$J,358.3,31160,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,31160,1,3,0)
+630 ;;=3^Hydroephrosis w/ Calculous
+631 ;;^UTILITY(U,$J,358.3,31160,1,4,0)
+632 ;;=4^N13.2
+633 ;;^UTILITY(U,$J,358.3,31160,2)
+634 ;;=^5015577
+635 ;;^UTILITY(U,$J,358.3,31161,0)
+636 ;;=N30.00^^89^1258^4
+637 ;;^UTILITY(U,$J,358.3,31161,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,31161,1,3,0)
+640 ;;=3^Cystitis w/o Hematuria
+641 ;;^UTILITY(U,$J,358.3,31161,1,4,0)
+642 ;;=4^N30.00
+643 ;;^UTILITY(U,$J,358.3,31161,2)
+644 ;;=^5015632
+645 ;;^UTILITY(U,$J,358.3,31162,0)
+646 ;;=N30.01^^89^1258^3
+647 ;;^UTILITY(U,$J,358.3,31162,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,31162,1,3,0)
+650 ;;=3^Cystitis w/ Hematuria
+651 ;;^UTILITY(U,$J,358.3,31162,1,4,0)
+652 ;;=4^N30.01
+653 ;;^UTILITY(U,$J,358.3,31162,2)
+654 ;;=^5015633
+655 ;;^UTILITY(U,$J,358.3,31163,0)
+656 ;;=N30.40^^89^1258^2
+657 ;;^UTILITY(U,$J,358.3,31163,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,31163,1,3,0)
+660 ;;=3^Cystitis Irradiation w/o Hematuria
+661 ;;^UTILITY(U,$J,358.3,31163,1,4,0)
+662 ;;=4^N30.40
+663 ;;^UTILITY(U,$J,358.3,31163,2)
+664 ;;=^5015639
+665 ;;^UTILITY(U,$J,358.3,31164,0)
+666 ;;=N30.41^^89^1258^1
+667 ;;^UTILITY(U,$J,358.3,31164,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,31164,1,3,0)
+670 ;;=3^Cystitis Irradiation w/ Hematuria
+671 ;;^UTILITY(U,$J,358.3,31164,1,4,0)
+672 ;;=4^N30.41
+673 ;;^UTILITY(U,$J,358.3,31164,2)
+674 ;;=^5015640
+675 ;;^UTILITY(U,$J,358.3,31165,0)
+676 ;;=N13.6^^89^1258^10
+677 ;;^UTILITY(U,$J,358.3,31165,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,31165,1,3,0)
+680 ;;=3^Pyonephrosis
+681 ;;^UTILITY(U,$J,358.3,31165,1,4,0)
+682 ;;=4^N13.6
+683 ;;^UTILITY(U,$J,358.3,31165,2)
+684 ;;=^101552
+685 ;;^UTILITY(U,$J,358.3,31166,0)
+686 ;;=G82.20^^89^1259^3
+687 ;;^UTILITY(U,$J,358.3,31166,1,0)
+688 ;;=^358.31IA^4^2
+689 ;;^UTILITY(U,$J,358.3,31166,1,3,0)
+690 ;;=3^Paraplegia,Unspec
