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