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

IBDEI0AB.m

Go to the documentation of this file.
IBDEI0AB ; ; 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,25256,1,4,0)
 ;;=4^I25.2
 ;;^UTILITY(U,$J,358.3,25256,2)
 ;;=^259884
 ;;^UTILITY(U,$J,358.3,25257,0)
 ;;=I25.3^^77^1011^2
 ;;^UTILITY(U,$J,358.3,25257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25257,1,3,0)
 ;;=3^Aneurysm of Heart
 ;;^UTILITY(U,$J,358.3,25257,1,4,0)
 ;;=4^I25.3
 ;;^UTILITY(U,$J,358.3,25257,2)
 ;;=^5007112
 ;;^UTILITY(U,$J,358.3,25258,0)
 ;;=I48.3^^77^1011^10
 ;;^UTILITY(U,$J,358.3,25258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25258,1,3,0)
 ;;=3^Atypical Atrial Flutter,Type I
 ;;^UTILITY(U,$J,358.3,25258,1,4,0)
 ;;=4^I48.3
 ;;^UTILITY(U,$J,358.3,25258,2)
 ;;=^5007227
 ;;^UTILITY(U,$J,358.3,25259,0)
 ;;=I48.4^^77^1011^11
 ;;^UTILITY(U,$J,358.3,25259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25259,1,3,0)
 ;;=3^Atypical Atrial Flutter,Type II
 ;;^UTILITY(U,$J,358.3,25259,1,4,0)
 ;;=4^I48.4
 ;;^UTILITY(U,$J,358.3,25259,2)
 ;;=^5007228
 ;;^UTILITY(U,$J,358.3,25260,0)
 ;;=I50.1^^77^1011^19
 ;;^UTILITY(U,$J,358.3,25260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25260,1,3,0)
 ;;=3^Left Heart Failure
 ;;^UTILITY(U,$J,358.3,25260,1,4,0)
 ;;=4^I50.1
 ;;^UTILITY(U,$J,358.3,25260,2)
 ;;=^5007238
 ;;^UTILITY(U,$J,358.3,25261,0)
 ;;=I50.21^^77^1011^1
 ;;^UTILITY(U,$J,358.3,25261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25261,1,3,0)
 ;;=3^Acute Systolic Cong Heart Failure
 ;;^UTILITY(U,$J,358.3,25261,1,4,0)
 ;;=4^I50.21
 ;;^UTILITY(U,$J,358.3,25261,2)
 ;;=^5007240
 ;;^UTILITY(U,$J,358.3,25262,0)
 ;;=I50.22^^77^1011^16
 ;;^UTILITY(U,$J,358.3,25262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25262,1,3,0)
 ;;=3^Chronic Systolic CHF
 ;;^UTILITY(U,$J,358.3,25262,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,25262,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,25263,0)
 ;;=I48.20^^77^1011^4
 ;;^UTILITY(U,$J,358.3,25263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25263,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,25263,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,25263,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,25264,0)
 ;;=I48.21^^77^1011^8
 ;;^UTILITY(U,$J,358.3,25264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25264,1,3,0)
 ;;=3^Atrial Fibrillation,Permanent
 ;;^UTILITY(U,$J,358.3,25264,1,4,0)
 ;;=4^I48.21
 ;;^UTILITY(U,$J,358.3,25264,2)
 ;;=^304710
 ;;^UTILITY(U,$J,358.3,25265,0)
 ;;=I48.11^^77^1011^5
 ;;^UTILITY(U,$J,358.3,25265,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25265,1,3,0)
 ;;=3^Atrial Fibrillation,Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,25265,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,25265,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,25266,0)
 ;;=I48.19^^77^1011^6
 ;;^UTILITY(U,$J,358.3,25266,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25266,1,3,0)
 ;;=3^Atrial Fibrillation,Oth Persistent
 ;;^UTILITY(U,$J,358.3,25266,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,25266,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,25267,0)
 ;;=I50.32^^77^1011^15
 ;;^UTILITY(U,$J,358.3,25267,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25267,1,3,0)
 ;;=3^Chronic Diastolic CHF
 ;;^UTILITY(U,$J,358.3,25267,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,25267,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,25268,0)
 ;;=I50.42^^77^1011^17
 ;;^UTILITY(U,$J,358.3,25268,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25268,1,3,0)
 ;;=3^Chronic Systoloic & Diastolic CHF
 ;;^UTILITY(U,$J,358.3,25268,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,25268,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,25269,0)
 ;;=I25.118^^77^1011^12
 ;;^UTILITY(U,$J,358.3,25269,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25269,1,3,0)
 ;;=3^CAD w/ Oth Angina (Includes Stable)
 ;;^UTILITY(U,$J,358.3,25269,1,4,0)
 ;;=4^I25.118
 ;;^UTILITY(U,$J,358.3,25269,2)
 ;;=^5007110
 ;;^UTILITY(U,$J,358.3,25270,0)
 ;;=V49.9XXA^^77^1012^1
 ;;^UTILITY(U,$J,358.3,25270,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25270,1,3,0)
 ;;=3^Car Occupant Traffic Accident Injury,Init Encntr
 ;;^UTILITY(U,$J,358.3,25270,1,4,0)
 ;;=4^V49.9XXA
 ;;^UTILITY(U,$J,358.3,25270,2)
 ;;=^5057368
 ;;^UTILITY(U,$J,358.3,25271,0)
 ;;=V59.9XXA^^77^1012^7
 ;;^UTILITY(U,$J,358.3,25271,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25271,1,3,0)
 ;;=3^Truck/Van Occupant Traffic Accident Injury,Init Encntr
 ;;^UTILITY(U,$J,358.3,25271,1,4,0)
 ;;=4^V59.9XXA
 ;;^UTILITY(U,$J,358.3,25271,2)
 ;;=^5057659
 ;;^UTILITY(U,$J,358.3,25272,0)
 ;;=V69.9XXA^^77^1012^5
 ;;^UTILITY(U,$J,358.3,25272,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25272,1,3,0)
 ;;=3^Heavy Transport Vehicle Occupant Traffic Accident Injury,Init Encntr
 ;;^UTILITY(U,$J,358.3,25272,1,4,0)
 ;;=4^V69.9XXA
 ;;^UTILITY(U,$J,358.3,25272,2)
 ;;=^5057950
 ;;^UTILITY(U,$J,358.3,25273,0)
 ;;=V89.2XXA^^77^1012^6
 ;;^UTILITY(U,$J,358.3,25273,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25273,1,3,0)
 ;;=3^Person injured in Motor-Vehicle Traffic Accident,Init Encntr
 ;;^UTILITY(U,$J,358.3,25273,1,4,0)
 ;;=4^V89.2XXA
 ;;^UTILITY(U,$J,358.3,25273,2)
 ;;=^5058688
 ;;^UTILITY(U,$J,358.3,25274,0)
 ;;=W07.XXXA^^77^1012^3
 ;;^UTILITY(U,$J,358.3,25274,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25274,1,3,0)
 ;;=3^Fall from Chair,Init Encntr
 ;;^UTILITY(U,$J,358.3,25274,1,4,0)
 ;;=4^W07.XXXA
 ;;^UTILITY(U,$J,358.3,25274,2)
 ;;=^5059562
 ;;^UTILITY(U,$J,358.3,25275,0)
 ;;=W06.XXXA^^77^1012^2
 ;;^UTILITY(U,$J,358.3,25275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25275,1,3,0)
 ;;=3^Fall from Bed,Init Encntr
 ;;^UTILITY(U,$J,358.3,25275,1,4,0)
 ;;=4^W06.XXXA
 ;;^UTILITY(U,$J,358.3,25275,2)
 ;;=^5059559
 ;;^UTILITY(U,$J,358.3,25276,0)
 ;;=W19.XXXA^^77^1012^4
 ;;^UTILITY(U,$J,358.3,25276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25276,1,3,0)
 ;;=3^Fall,Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,25276,1,4,0)
 ;;=4^W19.XXXA
 ;;^UTILITY(U,$J,358.3,25276,2)
 ;;=^5059833
 ;;^UTILITY(U,$J,358.3,25277,0)
 ;;=F32.9^^77^1013^11
 ;;^UTILITY(U,$J,358.3,25277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25277,1,3,0)
 ;;=3^MDD,Single Episode,Unspec
 ;;^UTILITY(U,$J,358.3,25277,1,4,0)
 ;;=4^F32.9
 ;;^UTILITY(U,$J,358.3,25277,2)
 ;;=^5003528
 ;;^UTILITY(U,$J,358.3,25278,0)
 ;;=Z71.89^^77^1013^1
 ;;^UTILITY(U,$J,358.3,25278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25278,1,3,0)
 ;;=3^Counseling NEC
 ;;^UTILITY(U,$J,358.3,25278,1,4,0)
 ;;=4^Z71.89
 ;;^UTILITY(U,$J,358.3,25278,2)
 ;;=^5063253
 ;;^UTILITY(U,$J,358.3,25279,0)
 ;;=F33.0^^77^1013^3
 ;;^UTILITY(U,$J,358.3,25279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25279,1,3,0)
 ;;=3^MDD,Recurrent,Mild
 ;;^UTILITY(U,$J,358.3,25279,1,4,0)
 ;;=4^F33.0
 ;;^UTILITY(U,$J,358.3,25279,2)
 ;;=^5003529
 ;;^UTILITY(U,$J,358.3,25280,0)
 ;;=F33.1^^77^1013^4
 ;;^UTILITY(U,$J,358.3,25280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25280,1,3,0)
 ;;=3^MDD,Recurrent,Moderate
 ;;^UTILITY(U,$J,358.3,25280,1,4,0)
 ;;=4^F33.1
 ;;^UTILITY(U,$J,358.3,25280,2)
 ;;=^5003530
 ;;^UTILITY(U,$J,358.3,25281,0)
 ;;=F33.2^^77^1013^5
 ;;^UTILITY(U,$J,358.3,25281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25281,1,3,0)
 ;;=3^MDD,Recurrent,Severe w/o Psychotic Features
 ;;^UTILITY(U,$J,358.3,25281,1,4,0)
 ;;=4^F33.2
 ;;^UTILITY(U,$J,358.3,25281,2)
 ;;=^5003531
 ;;^UTILITY(U,$J,358.3,25282,0)
 ;;=F33.9^^77^1013^6
 ;;^UTILITY(U,$J,358.3,25282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25282,1,3,0)
 ;;=3^MDD,Recurrent,Unspec
 ;;^UTILITY(U,$J,358.3,25282,1,4,0)
 ;;=4^F33.9
 ;;^UTILITY(U,$J,358.3,25282,2)
 ;;=^5003537
 ;;^UTILITY(U,$J,358.3,25283,0)
 ;;=F32.0^^77^1013^7
 ;;^UTILITY(U,$J,358.3,25283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25283,1,3,0)
 ;;=3^MDD,Single Episode,Mild
 ;;^UTILITY(U,$J,358.3,25283,1,4,0)
 ;;=4^F32.0
 ;;^UTILITY(U,$J,358.3,25283,2)
 ;;=^5003521
 ;;^UTILITY(U,$J,358.3,25284,0)
 ;;=F32.1^^77^1013^8
 ;;^UTILITY(U,$J,358.3,25284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25284,1,3,0)
 ;;=3^MDD,Single Episode,Moderate
 ;;^UTILITY(U,$J,358.3,25284,1,4,0)
 ;;=4^F32.1
 ;;^UTILITY(U,$J,358.3,25284,2)
 ;;=^5003522
 ;;^UTILITY(U,$J,358.3,25285,0)
 ;;=F32.2^^77^1013^10
 ;;^UTILITY(U,$J,358.3,25285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25285,1,3,0)
 ;;=3^MDD,Single Episode,Severe w/o Psychotic Features
 ;;^UTILITY(U,$J,358.3,25285,1,4,0)
 ;;=4^F32.2
 ;;^UTILITY(U,$J,358.3,25285,2)
 ;;=^5003523
 ;;^UTILITY(U,$J,358.3,25286,0)
 ;;=F32.3^^77^1013^9
 ;;^UTILITY(U,$J,358.3,25286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25286,1,3,0)
 ;;=3^MDD,Single Episode,Severe w/ Psychotic Features
 ;;^UTILITY(U,$J,358.3,25286,1,4,0)
 ;;=4^F32.3
 ;;^UTILITY(U,$J,358.3,25286,2)
 ;;=^5003524
 ;;^UTILITY(U,$J,358.3,25287,0)
 ;;=F32.A^^77^1013^2
 ;;^UTILITY(U,$J,358.3,25287,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25287,1,3,0)
 ;;=3^Depression,Unspec
 ;;^UTILITY(U,$J,358.3,25287,1,4,0)
 ;;=4^F32.A
 ;;^UTILITY(U,$J,358.3,25287,2)
 ;;=^5161153
 ;;^UTILITY(U,$J,358.3,25288,0)
 ;;=G56.01^^77^1014^6
 ;;^UTILITY(U,$J,358.3,25288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25288,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,25288,1,4,0)
 ;;=4^G56.01
 ;;^UTILITY(U,$J,358.3,25288,2)
 ;;=^5004018
 ;;^UTILITY(U,$J,358.3,25289,0)
 ;;=G56.02^^77^1014^5
 ;;^UTILITY(U,$J,358.3,25289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25289,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,25289,1,4,0)
 ;;=4^G56.02
 ;;^UTILITY(U,$J,358.3,25289,2)
 ;;=^5004019
 ;;^UTILITY(U,$J,358.3,25290,0)
 ;;=M19.90^^77^1014^15
 ;;^UTILITY(U,$J,358.3,25290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25290,1,3,0)
 ;;=3^Osteoarthritis,Site Unspec
 ;;^UTILITY(U,$J,358.3,25290,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,25290,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,25291,0)
 ;;=M47.812^^77^1014^20
 ;;^UTILITY(U,$J,358.3,25291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25291,1,3,0)
 ;;=3^Spondylosis w/o Myelopathy/Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,25291,1,4,0)
 ;;=4^M47.812
 ;;^UTILITY(U,$J,358.3,25291,2)
 ;;=^5012069
 ;;^UTILITY(U,$J,358.3,25292,0)
 ;;=M47.12^^77^1014^19
 ;;^UTILITY(U,$J,358.3,25292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25292,1,3,0)
 ;;=3^Spondylosis w/ Myelopathy,Cervical Region NEC
 ;;^UTILITY(U,$J,358.3,25292,1,4,0)
 ;;=4^M47.12
 ;;^UTILITY(U,$J,358.3,25292,2)
 ;;=^5012052
 ;;^UTILITY(U,$J,358.3,25293,0)
 ;;=M50.30^^77^1014^7
 ;;^UTILITY(U,$J,358.3,25293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25293,1,3,0)
 ;;=3^Cervical Disc Degeneration,Unspec Cervical Region NEC
 ;;^UTILITY(U,$J,358.3,25293,1,4,0)
 ;;=4^M50.30
 ;;^UTILITY(U,$J,358.3,25293,2)
 ;;=^5012227
 ;;^UTILITY(U,$J,358.3,25294,0)
 ;;=M48.02^^77^1014^18
 ;;^UTILITY(U,$J,358.3,25294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25294,1,3,0)
 ;;=3^Spinal Stenosis,Cervical Region
 ;;^UTILITY(U,$J,358.3,25294,1,4,0)
 ;;=4^M48.02
 ;;^UTILITY(U,$J,358.3,25294,2)
 ;;=^5012089
 ;;^UTILITY(U,$J,358.3,25295,0)
 ;;=M54.2^^77^1014^8
 ;;^UTILITY(U,$J,358.3,25295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25295,1,3,0)
 ;;=3^Cervicalgia
 ;;^UTILITY(U,$J,358.3,25295,1,4,0)
 ;;=4^M54.2
 ;;^UTILITY(U,$J,358.3,25295,2)
 ;;=^5012304
 ;;^UTILITY(U,$J,358.3,25296,0)
 ;;=R53.81^^77^1014^14
 ;;^UTILITY(U,$J,358.3,25296,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25296,1,3,0)
 ;;=3^Malaise NEC
 ;;^UTILITY(U,$J,358.3,25296,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,25296,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,25297,0)
 ;;=Z89.511^^77^1014^2
 ;;^UTILITY(U,$J,358.3,25297,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25297,1,3,0)
 ;;=3^Acquired Absence of Right Leg Below Knee
 ;;^UTILITY(U,$J,358.3,25297,1,4,0)
 ;;=4^Z89.511
 ;;^UTILITY(U,$J,358.3,25297,2)
 ;;=^5063566
 ;;^UTILITY(U,$J,358.3,25298,0)
 ;;=Z89.512^^77^1014^1
 ;;^UTILITY(U,$J,358.3,25298,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25298,1,3,0)
 ;;=3^Acquired Absence of Left Leg Below Knee
 ;;^UTILITY(U,$J,358.3,25298,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,25298,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,25299,0)
 ;;=Z46.89^^77^1014^9
 ;;^UTILITY(U,$J,358.3,25299,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25299,1,3,0)
 ;;=3^Fitting/Adjustment of Devices NEC
 ;;^UTILITY(U,$J,358.3,25299,1,4,0)
 ;;=4^Z46.89
 ;;^UTILITY(U,$J,358.3,25299,2)
 ;;=^5063023
 ;;^UTILITY(U,$J,358.3,25300,0)
 ;;=M75.01^^77^1014^4
 ;;^UTILITY(U,$J,358.3,25300,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25300,1,3,0)
 ;;=3^Adhesive Capsulitis,Right Shoulder
 ;;^UTILITY(U,$J,358.3,25300,1,4,0)
 ;;=4^M75.01
 ;;^UTILITY(U,$J,358.3,25300,2)
 ;;=^5013239
 ;;^UTILITY(U,$J,358.3,25301,0)
 ;;=M75.02^^77^1014^3
 ;;^UTILITY(U,$J,358.3,25301,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25301,1,3,0)
 ;;=3^Adhesive Capsulitis,Left Shoulder
 ;;^UTILITY(U,$J,358.3,25301,1,4,0)
 ;;=4^M75.02
 ;;^UTILITY(U,$J,358.3,25301,2)
 ;;=^5013240
 ;;^UTILITY(U,$J,358.3,25302,0)
 ;;=M54.12^^77^1014^16
 ;;^UTILITY(U,$J,358.3,25302,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25302,1,3,0)
 ;;=3^Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,25302,1,4,0)
 ;;=4^M54.12
 ;;^UTILITY(U,$J,358.3,25302,2)
 ;;=^5012297
 ;;^UTILITY(U,$J,358.3,25303,0)
 ;;=M54.13^^77^1014^17
 ;;^UTILITY(U,$J,358.3,25303,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25303,1,3,0)
 ;;=3^Radiculopathy,Cervicothoracic Region
 ;;^UTILITY(U,$J,358.3,25303,1,4,0)
 ;;=4^M54.13
 ;;^UTILITY(U,$J,358.3,25303,2)
 ;;=^5012298
 ;;^UTILITY(U,$J,358.3,25304,0)
 ;;=G56.21^^77^1014^13
 ;;^UTILITY(U,$J,358.3,25304,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25304,1,3,0)
 ;;=3^Lesion of Ulnar Nerve,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,25304,1,4,0)
 ;;=4^G56.21
 ;;^UTILITY(U,$J,358.3,25304,2)
 ;;=^5004024
 ;;^UTILITY(U,$J,358.3,25305,0)
 ;;=G56.22^^77^1014^12
 ;;^UTILITY(U,$J,358.3,25305,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25305,1,3,0)
 ;;=3^Lesion of Ulnar Nerve,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,25305,1,4,0)
 ;;=4^G56.22
 ;;^UTILITY(U,$J,358.3,25305,2)
 ;;=^5004025
 ;;^UTILITY(U,$J,358.3,25306,0)
 ;;=G56.31^^77^1014^11
 ;;^UTILITY(U,$J,358.3,25306,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25306,1,3,0)
 ;;=3^Lesion of Radial Nerve,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,25306,1,4,0)
 ;;=4^G56.31
 ;;^UTILITY(U,$J,358.3,25306,2)
 ;;=^5004027
 ;;^UTILITY(U,$J,358.3,25307,0)
 ;;=G56.32^^77^1014^10
 ;;^UTILITY(U,$J,358.3,25307,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25307,1,3,0)
 ;;=3^Lesion of Radial Nerve,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,25307,1,4,0)
 ;;=4^G56.32
 ;;^UTILITY(U,$J,358.3,25307,2)
 ;;=^5004028
 ;;^UTILITY(U,$J,358.3,25308,0)
 ;;=B18.2^^77^1015^7
 ;;^UTILITY(U,$J,358.3,25308,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25308,1,3,0)
 ;;=3^Hepatitis C,Viral,Chronic
 ;;^UTILITY(U,$J,358.3,25308,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,25308,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,25309,0)
 ;;=K92.1^^77^1015^9
 ;;^UTILITY(U,$J,358.3,25309,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25309,1,3,0)
 ;;=3^Melena
 ;;^UTILITY(U,$J,358.3,25309,1,4,0)
 ;;=4^K92.1
 ;;^UTILITY(U,$J,358.3,25309,2)
 ;;=^5008914
 ;;^UTILITY(U,$J,358.3,25310,0)
 ;;=N39.0^^77^1015^12
 ;;^UTILITY(U,$J,358.3,25310,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25310,1,3,0)
 ;;=3^UTI,Site Unspec
 ;;^UTILITY(U,$J,358.3,25310,1,4,0)
 ;;=4^N39.0
 ;;^UTILITY(U,$J,358.3,25310,2)
 ;;=^124436
 ;;^UTILITY(U,$J,358.3,25311,0)
 ;;=K92.0^^77^1015^6
 ;;^UTILITY(U,$J,358.3,25311,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25311,1,3,0)
 ;;=3^Hematemesis
 ;;^UTILITY(U,$J,358.3,25311,1,4,0)
 ;;=4^K92.0
 ;;^UTILITY(U,$J,358.3,25311,2)
 ;;=^5008913
 ;;^UTILITY(U,$J,358.3,25312,0)
 ;;=N10.^^77^1015^10
 ;;^UTILITY(U,$J,358.3,25312,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25312,1,3,0)
 ;;=3^Pyelonephritis
 ;;^UTILITY(U,$J,358.3,25312,1,4,0)
 ;;=4^N10.
 ;;^UTILITY(U,$J,358.3,25312,2)
 ;;=^5015570
 ;;^UTILITY(U,$J,358.3,25313,0)
 ;;=N13.2^^77^1015^8
 ;;^UTILITY(U,$J,358.3,25313,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25313,1,3,0)
 ;;=3^Hydroephrosis w/ Calculous
 ;;^UTILITY(U,$J,358.3,25313,1,4,0)
 ;;=4^N13.2
 ;;^UTILITY(U,$J,358.3,25313,2)
 ;;=^5015577
 ;;^UTILITY(U,$J,358.3,25314,0)
 ;;=N30.00^^77^1015^5
 ;;^UTILITY(U,$J,358.3,25314,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25314,1,3,0)
 ;;=3^Cystitis w/o Hematuria
 ;;^UTILITY(U,$J,358.3,25314,1,4,0)
 ;;=4^N30.00
 ;;^UTILITY(U,$J,358.3,25314,2)
 ;;=^5015632
 ;;^UTILITY(U,$J,358.3,25315,0)
 ;;=N30.01^^77^1015^4
 ;;^UTILITY(U,$J,358.3,25315,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25315,1,3,0)
 ;;=3^Cystitis w/ Hematuria
 ;;^UTILITY(U,$J,358.3,25315,1,4,0)
 ;;=4^N30.01
 ;;^UTILITY(U,$J,358.3,25315,2)
 ;;=^5015633
 ;;^UTILITY(U,$J,358.3,25316,0)
 ;;=N30.40^^77^1015^3
 ;;^UTILITY(U,$J,358.3,25316,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25316,1,3,0)
 ;;=3^Cystitis Irradiation w/o Hematuria
 ;;^UTILITY(U,$J,358.3,25316,1,4,0)
 ;;=4^N30.40
 ;;^UTILITY(U,$J,358.3,25316,2)
 ;;=^5015639
 ;;^UTILITY(U,$J,358.3,25317,0)
 ;;=N30.41^^77^1015^2
 ;;^UTILITY(U,$J,358.3,25317,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25317,1,3,0)
 ;;=3^Cystitis Irradiation w/ Hematuria
 ;;^UTILITY(U,$J,358.3,25317,1,4,0)
 ;;=4^N30.41
 ;;^UTILITY(U,$J,358.3,25317,2)
 ;;=^5015640
 ;;^UTILITY(U,$J,358.3,25318,0)
 ;;=N13.6^^77^1015^11
 ;;^UTILITY(U,$J,358.3,25318,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25318,1,3,0)
 ;;=3^Pyonephrosis
 ;;^UTILITY(U,$J,358.3,25318,1,4,0)
 ;;=4^N13.6
 ;;^UTILITY(U,$J,358.3,25318,2)
 ;;=^101552
 ;;^UTILITY(U,$J,358.3,25319,0)
 ;;=N20.0^^77^1015^1
 ;;^UTILITY(U,$J,358.3,25319,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25319,1,3,0)
 ;;=3^Calculus of Kidney
 ;;^UTILITY(U,$J,358.3,25319,1,4,0)
 ;;=4^N20.0
 ;;^UTILITY(U,$J,358.3,25319,2)
 ;;=^67056
 ;;^UTILITY(U,$J,358.3,25320,0)
 ;;=G82.20^^77^1016^3
 ;;^UTILITY(U,$J,358.3,25320,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25320,1,3,0)
 ;;=3^Paraplegia,Unspec
 ;;^UTILITY(U,$J,358.3,25320,1,4,0)
 ;;=4^G82.20
 ;;^UTILITY(U,$J,358.3,25320,2)
 ;;=^5004125
 ;;^UTILITY(U,$J,358.3,25321,0)
 ;;=S24.111S^^77^1016^20
 ;;^UTILITY(U,$J,358.3,25321,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25321,1,3,0)
 ;;=3^SCI T1 Complete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,25321,1,4,0)
 ;;=4^S24.111S
 ;;^UTILITY(U,$J,358.3,25321,2)
 ;;=^5023287
 ;;^UTILITY(U,$J,358.3,25322,0)
 ;;=S24.112S^^77^1016^28
 ;;^UTILITY(U,$J,358.3,25322,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25322,1,3,0)
 ;;=3^SCI T2-T6 Complete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,25322,1,4,0)
 ;;=4^S24.112S
 ;;^UTILITY(U,$J,358.3,25322,2)
 ;;=^5023290
 ;;^UTILITY(U,$J,358.3,25323,0)
 ;;=S24.113S^^77^1016^32
 ;;^UTILITY(U,$J,358.3,25323,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25323,1,3,0)
 ;;=3^SCI T7-T10 Complete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,25323,1,4,0)
 ;;=4^S24.113S
 ;;^UTILITY(U,$J,358.3,25323,2)
 ;;=^5023293
 ;;^UTILITY(U,$J,358.3,25324,0)
 ;;=S24.114S^^77^1016^24
 ;;^UTILITY(U,$J,358.3,25324,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25324,1,3,0)
 ;;=3^SCI T11-T12 Complete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,25324,1,4,0)
 ;;=4^S24.114S
 ;;^UTILITY(U,$J,358.3,25324,2)
 ;;=^5023296
 ;;^UTILITY(U,$J,358.3,25325,0)
 ;;=S24.131S^^77^1016^19
 ;;^UTILITY(U,$J,358.3,25325,1,0)
 ;;=^358.31IA^4^2