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

IBDEI0DC.m

Go to the documentation of this file.
  1. IBDEI0DC ; ; 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,33493,2)
  1. ;;=^5003369
  1. ;;^UTILITY(U,$J,358.3,33494,0)
  1. ;;=Z51.5^^105^1418^64
  1. ;;^UTILITY(U,$J,358.3,33494,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33494,1,3,0)
  1. ;;=3^Palliative Care Encounter
  1. ;;^UTILITY(U,$J,358.3,33494,1,4,0)
  1. ;;=4^Z51.5
  1. ;;^UTILITY(U,$J,358.3,33494,2)
  1. ;;=^5063063
  1. ;;^UTILITY(U,$J,358.3,33495,0)
  1. ;;=Z23.^^105^1418^28
  1. ;;^UTILITY(U,$J,358.3,33495,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33495,1,3,0)
  1. ;;=3^Encounter for Immunization(s)
  1. ;;^UTILITY(U,$J,358.3,33495,1,4,0)
  1. ;;=4^Z23.
  1. ;;^UTILITY(U,$J,358.3,33495,2)
  1. ;;=^5062795
  1. ;;^UTILITY(U,$J,358.3,33496,0)
  1. ;;=E11.65^^105^1418^20
  1. ;;^UTILITY(U,$J,358.3,33496,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33496,1,3,0)
  1. ;;=3^DM Type 2 Uncontrolled w/ Hyperglycemia
  1. ;;^UTILITY(U,$J,358.3,33496,1,4,0)
  1. ;;=4^E11.65
  1. ;;^UTILITY(U,$J,358.3,33496,2)
  1. ;;=^5002663
  1. ;;^UTILITY(U,$J,358.3,33497,0)
  1. ;;=E11.649^^105^1418^21
  1. ;;^UTILITY(U,$J,358.3,33497,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33497,1,3,0)
  1. ;;=3^DM Type 2 Uncontrolled w/ Hypoglycemia w/o Coma
  1. ;;^UTILITY(U,$J,358.3,33497,1,4,0)
  1. ;;=4^E11.649
  1. ;;^UTILITY(U,$J,358.3,33497,2)
  1. ;;=^5002662
  1. ;;^UTILITY(U,$J,358.3,33498,0)
  1. ;;=I16.0^^105^1418^44
  1. ;;^UTILITY(U,$J,358.3,33498,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33498,1,3,0)
  1. ;;=3^Hypertensive Urgency
  1. ;;^UTILITY(U,$J,358.3,33498,1,4,0)
  1. ;;=4^I16.0
  1. ;;^UTILITY(U,$J,358.3,33498,2)
  1. ;;=^8133013
  1. ;;^UTILITY(U,$J,358.3,33499,0)
  1. ;;=H54.8^^105^1418^47
  1. ;;^UTILITY(U,$J,358.3,33499,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33499,1,3,0)
  1. ;;=3^Legal Blindness,USA Definition
  1. ;;^UTILITY(U,$J,358.3,33499,1,4,0)
  1. ;;=4^H54.8
  1. ;;^UTILITY(U,$J,358.3,33499,2)
  1. ;;=^5006369
  1. ;;^UTILITY(U,$J,358.3,33500,0)
  1. ;;=F10.10^^105^1418^2
  1. ;;^UTILITY(U,$J,358.3,33500,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33500,1,3,0)
  1. ;;=3^Alcohol Abuse,Uncomplicated
  1. ;;^UTILITY(U,$J,358.3,33500,1,4,0)
  1. ;;=4^F10.10
  1. ;;^UTILITY(U,$J,358.3,33500,2)
  1. ;;=^5003068
  1. ;;^UTILITY(U,$J,358.3,33501,0)
  1. ;;=J30.9^^105^1418^3
  1. ;;^UTILITY(U,$J,358.3,33501,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33501,1,3,0)
  1. ;;=3^Allergic Rhinitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33501,1,4,0)
  1. ;;=4^J30.9
  1. ;;^UTILITY(U,$J,358.3,33501,2)
  1. ;;=^5008205
  1. ;;^UTILITY(U,$J,358.3,33502,0)
  1. ;;=I48.0^^105^1418^7
  1. ;;^UTILITY(U,$J,358.3,33502,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33502,1,3,0)
  1. ;;=3^Atrial Fibrillation Paroxysmal (PAF)
  1. ;;^UTILITY(U,$J,358.3,33502,1,4,0)
  1. ;;=4^I48.0
  1. ;;^UTILITY(U,$J,358.3,33502,2)
  1. ;;=^90473
  1. ;;^UTILITY(U,$J,358.3,33503,0)
  1. ;;=N18.1^^105^1418^9
  1. ;;^UTILITY(U,$J,358.3,33503,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33503,1,3,0)
  1. ;;=3^CKD,Stage 1
  1. ;;^UTILITY(U,$J,358.3,33503,1,4,0)
  1. ;;=4^N18.1
  1. ;;^UTILITY(U,$J,358.3,33503,2)
  1. ;;=^5015602
  1. ;;^UTILITY(U,$J,358.3,33504,0)
  1. ;;=N18.2^^105^1418^10
  1. ;;^UTILITY(U,$J,358.3,33504,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33504,1,3,0)
  1. ;;=3^CKD,Stage 2
  1. ;;^UTILITY(U,$J,358.3,33504,1,4,0)
  1. ;;=4^N18.2
  1. ;;^UTILITY(U,$J,358.3,33504,2)
  1. ;;=^5015603
  1. ;;^UTILITY(U,$J,358.3,33505,0)
  1. ;;=N18.4^^105^1418^14
  1. ;;^UTILITY(U,$J,358.3,33505,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33505,1,3,0)
  1. ;;=3^CKD,Stage 4
  1. ;;^UTILITY(U,$J,358.3,33505,1,4,0)
  1. ;;=4^N18.4
  1. ;;^UTILITY(U,$J,358.3,33505,2)
  1. ;;=^5015605
  1. ;;^UTILITY(U,$J,358.3,33506,0)
  1. ;;=N18.5^^105^1418^15
  1. ;;^UTILITY(U,$J,358.3,33506,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33506,1,3,0)
  1. ;;=3^CKD,Stage 5
  1. ;;^UTILITY(U,$J,358.3,33506,1,4,0)
  1. ;;=4^N18.5
  1. ;;^UTILITY(U,$J,358.3,33506,2)
  1. ;;=^5015606
  1. ;;^UTILITY(U,$J,358.3,33507,0)
  1. ;;=N18.6^^105^1418^26
  1. ;;^UTILITY(U,$J,358.3,33507,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33507,1,3,0)
  1. ;;=3^ESRD
  1. ;;^UTILITY(U,$J,358.3,33507,1,4,0)
  1. ;;=4^N18.6
  1. ;;^UTILITY(U,$J,358.3,33507,2)
  1. ;;=^303986
  1. ;;^UTILITY(U,$J,358.3,33508,0)
  1. ;;=E11.22^^105^1418^22
  1. ;;^UTILITY(U,$J,358.3,33508,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33508,1,3,0)
  1. ;;=3^DM Type 2 w/ CKD
  1. ;;^UTILITY(U,$J,358.3,33508,1,4,0)
  1. ;;=4^E11.22
  1. ;;^UTILITY(U,$J,358.3,33508,2)
  1. ;;=^5002630
  1. ;;^UTILITY(U,$J,358.3,33509,0)
  1. ;;=E11.319^^105^1418^24
  1. ;;^UTILITY(U,$J,358.3,33509,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33509,1,3,0)
  1. ;;=3^DM Type 2 w/ Retinopathy Unspec w/o Macular Edema
  1. ;;^UTILITY(U,$J,358.3,33509,1,4,0)
  1. ;;=4^E11.319
  1. ;;^UTILITY(U,$J,358.3,33509,2)
  1. ;;=^5002633
  1. ;;^UTILITY(U,$J,358.3,33510,0)
  1. ;;=G40.909^^105^1418^76
  1. ;;^UTILITY(U,$J,358.3,33510,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33510,1,3,0)
  1. ;;=3^Seizure Disorder NOS
  1. ;;^UTILITY(U,$J,358.3,33510,1,4,0)
  1. ;;=4^G40.909
  1. ;;^UTILITY(U,$J,358.3,33510,2)
  1. ;;=^5003865
  1. ;;^UTILITY(U,$J,358.3,33511,0)
  1. ;;=N52.9^^105^1418^30
  1. ;;^UTILITY(U,$J,358.3,33511,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33511,1,3,0)
  1. ;;=3^Erectile Dysfuntion,Unspec
  1. ;;^UTILITY(U,$J,358.3,33511,1,4,0)
  1. ;;=4^N52.9
  1. ;;^UTILITY(U,$J,358.3,33511,2)
  1. ;;=^5015763
  1. ;;^UTILITY(U,$J,358.3,33512,0)
  1. ;;=I50.22^^105^1418^39
  1. ;;^UTILITY(U,$J,358.3,33512,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33512,1,3,0)
  1. ;;=3^Heart Failure,Systolic,Chronic
  1. ;;^UTILITY(U,$J,358.3,33512,1,4,0)
  1. ;;=4^I50.22
  1. ;;^UTILITY(U,$J,358.3,33512,2)
  1. ;;=^5007241
  1. ;;^UTILITY(U,$J,358.3,33513,0)
  1. ;;=I50.32^^105^1418^37
  1. ;;^UTILITY(U,$J,358.3,33513,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33513,1,3,0)
  1. ;;=3^Heart Failure,Diastolic,Chronic
  1. ;;^UTILITY(U,$J,358.3,33513,1,4,0)
  1. ;;=4^I50.32
  1. ;;^UTILITY(U,$J,358.3,33513,2)
  1. ;;=^5007245
  1. ;;^UTILITY(U,$J,358.3,33514,0)
  1. ;;=I50.42^^105^1418^38
  1. ;;^UTILITY(U,$J,358.3,33514,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33514,1,3,0)
  1. ;;=3^Heart Failure,Systolic & Diastolic,Chronic
  1. ;;^UTILITY(U,$J,358.3,33514,1,4,0)
  1. ;;=4^I50.42
  1. ;;^UTILITY(U,$J,358.3,33514,2)
  1. ;;=^5007249
  1. ;;^UTILITY(U,$J,358.3,33515,0)
  1. ;;=I13.0^^105^1418^32
  1. ;;^UTILITY(U,$J,358.3,33515,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33515,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 1-4 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,33515,1,4,0)
  1. ;;=4^I13.0
  1. ;;^UTILITY(U,$J,358.3,33515,2)
  1. ;;=^5007067
  1. ;;^UTILITY(U,$J,358.3,33516,0)
  1. ;;=I13.2^^105^1418^33
  1. ;;^UTILITY(U,$J,358.3,33516,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33516,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 5 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,33516,1,4,0)
  1. ;;=4^I13.2
  1. ;;^UTILITY(U,$J,358.3,33516,2)
  1. ;;=^5007070
  1. ;;^UTILITY(U,$J,358.3,33517,0)
  1. ;;=I13.10^^105^1418^34
  1. ;;^UTILITY(U,$J,358.3,33517,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33517,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 1-4 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,33517,1,4,0)
  1. ;;=4^I13.10
  1. ;;^UTILITY(U,$J,358.3,33517,2)
  1. ;;=^5007068
  1. ;;^UTILITY(U,$J,358.3,33518,0)
  1. ;;=I13.11^^105^1418^35
  1. ;;^UTILITY(U,$J,358.3,33518,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33518,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 5 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,33518,1,4,0)
  1. ;;=4^I13.11
  1. ;;^UTILITY(U,$J,358.3,33518,2)
  1. ;;=^5007069
  1. ;;^UTILITY(U,$J,358.3,33519,0)
  1. ;;=E03.9^^105^1418^45
  1. ;;^UTILITY(U,$J,358.3,33519,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33519,1,3,0)
  1. ;;=3^Hypothyroidism,Unspec
  1. ;;^UTILITY(U,$J,358.3,33519,1,4,0)
  1. ;;=4^E03.9
  1. ;;^UTILITY(U,$J,358.3,33519,2)
  1. ;;=^5002476
  1. ;;^UTILITY(U,$J,358.3,33520,0)
  1. ;;=C61.^^105^1418^49
  1. ;;^UTILITY(U,$J,358.3,33520,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33520,1,3,0)
  1. ;;=3^Malig Neopl Prostate
  1. ;;^UTILITY(U,$J,358.3,33520,1,4,0)
  1. ;;=4^C61.
  1. ;;^UTILITY(U,$J,358.3,33520,2)
  1. ;;=^267239
  1. ;;^UTILITY(U,$J,358.3,33521,0)
  1. ;;=F11.20^^105^1418^55
  1. ;;^UTILITY(U,$J,358.3,33521,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33521,1,3,0)
  1. ;;=3^Opioid Dependence,Uncomplicated
  1. ;;^UTILITY(U,$J,358.3,33521,1,4,0)
  1. ;;=4^F11.20
  1. ;;^UTILITY(U,$J,358.3,33521,2)
  1. ;;=^5003127
  1. ;;^UTILITY(U,$J,358.3,33522,0)
  1. ;;=M19.90^^105^1418^56
  1. ;;^UTILITY(U,$J,358.3,33522,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33522,1,3,0)
  1. ;;=3^Osteoarthritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33522,1,4,0)
  1. ;;=4^M19.90
  1. ;;^UTILITY(U,$J,358.3,33522,2)
  1. ;;=^5010853
  1. ;;^UTILITY(U,$J,358.3,33523,0)
  1. ;;=M85.80^^105^1418^57
  1. ;;^UTILITY(U,$J,358.3,33523,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33523,1,3,0)
  1. ;;=3^Osteopenia,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,33523,1,4,0)
  1. ;;=4^M85.80
  1. ;;^UTILITY(U,$J,358.3,33523,2)
  1. ;;=^5014473
  1. ;;^UTILITY(U,$J,358.3,33524,0)
  1. ;;=M81.0^^105^1418^58
  1. ;;^UTILITY(U,$J,358.3,33524,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33524,1,3,0)
  1. ;;=3^Osteoporosis,Age-Related w/o Fx
  1. ;;^UTILITY(U,$J,358.3,33524,1,4,0)
  1. ;;=4^M81.0
  1. ;;^UTILITY(U,$J,358.3,33524,2)
  1. ;;=^5013555
  1. ;;^UTILITY(U,$J,358.3,33525,0)
  1. ;;=I73.9^^105^1418^65
  1. ;;^UTILITY(U,$J,358.3,33525,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33525,1,3,0)
  1. ;;=3^Peripheral Vascular Disease,Unspec
  1. ;;^UTILITY(U,$J,358.3,33525,1,4,0)
  1. ;;=4^I73.9
  1. ;;^UTILITY(U,$J,358.3,33525,2)
  1. ;;=^184182
  1. ;;^UTILITY(U,$J,358.3,33526,0)
  1. ;;=R21.^^105^1418^68
  1. ;;^UTILITY(U,$J,358.3,33526,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33526,1,3,0)
  1. ;;=3^Rash
  1. ;;^UTILITY(U,$J,358.3,33526,1,4,0)
  1. ;;=4^R21.
  1. ;;^UTILITY(U,$J,358.3,33526,2)
  1. ;;=^5019283
  1. ;;^UTILITY(U,$J,358.3,33527,0)
  1. ;;=Z12.11^^105^1418^73
  1. ;;^UTILITY(U,$J,358.3,33527,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33527,1,3,0)
  1. ;;=3^Screening,Colon CA
  1. ;;^UTILITY(U,$J,358.3,33527,1,4,0)
  1. ;;=4^Z12.11
  1. ;;^UTILITY(U,$J,358.3,33527,2)
  1. ;;=^5062681
  1. ;;^UTILITY(U,$J,358.3,33528,0)
  1. ;;=Z12.39^^105^1418^71
  1. ;;^UTILITY(U,$J,358.3,33528,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33528,1,3,0)
  1. ;;=3^Screening,Breast CA
  1. ;;^UTILITY(U,$J,358.3,33528,1,4,0)
  1. ;;=4^Z12.39
  1. ;;^UTILITY(U,$J,358.3,33528,2)
  1. ;;=^5062686
  1. ;;^UTILITY(U,$J,358.3,33529,0)
  1. ;;=Z12.4^^105^1418^72
  1. ;;^UTILITY(U,$J,358.3,33529,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33529,1,3,0)
  1. ;;=3^Screening,Cervical CA
  1. ;;^UTILITY(U,$J,358.3,33529,1,4,0)
  1. ;;=4^Z12.4
  1. ;;^UTILITY(U,$J,358.3,33529,2)
  1. ;;=^5062687
  1. ;;^UTILITY(U,$J,358.3,33530,0)
  1. ;;=Z13.6^^105^1418^70
  1. ;;^UTILITY(U,$J,358.3,33530,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33530,1,3,0)
  1. ;;=3^Screening,AAA
  1. ;;^UTILITY(U,$J,358.3,33530,1,4,0)
  1. ;;=4^Z13.6
  1. ;;^UTILITY(U,$J,358.3,33530,2)
  1. ;;=^5062707
  1. ;;^UTILITY(U,$J,358.3,33531,0)
  1. ;;=Z11.3^^105^1418^75
  1. ;;^UTILITY(U,$J,358.3,33531,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33531,1,3,0)
  1. ;;=3^Screening,STI
  1. ;;^UTILITY(U,$J,358.3,33531,1,4,0)
  1. ;;=4^Z11.3
  1. ;;^UTILITY(U,$J,358.3,33531,2)
  1. ;;=^5062672
  1. ;;^UTILITY(U,$J,358.3,33532,0)
  1. ;;=Z13.1^^105^1418^74
  1. ;;^UTILITY(U,$J,358.3,33532,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33532,1,3,0)
  1. ;;=3^Screening,Diabetes
  1. ;;^UTILITY(U,$J,358.3,33532,1,4,0)
  1. ;;=4^Z13.1
  1. ;;^UTILITY(U,$J,358.3,33532,2)
  1. ;;=^5062700
  1. ;;^UTILITY(U,$J,358.3,33533,0)
  1. ;;=M48.061^^105^1418^80
  1. ;;^UTILITY(U,$J,358.3,33533,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33533,1,3,0)
  1. ;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Claudication
  1. ;;^UTILITY(U,$J,358.3,33533,1,4,0)
  1. ;;=4^M48.061
  1. ;;^UTILITY(U,$J,358.3,33533,2)
  1. ;;=^5151513
  1. ;;^UTILITY(U,$J,358.3,33534,0)
  1. ;;=M48.062^^105^1418^79
  1. ;;^UTILITY(U,$J,358.3,33534,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33534,1,3,0)
  1. ;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
  1. ;;^UTILITY(U,$J,358.3,33534,1,4,0)
  1. ;;=4^M48.062
  1. ;;^UTILITY(U,$J,358.3,33534,2)
  1. ;;=^5151514
  1. ;;^UTILITY(U,$J,358.3,33535,0)
  1. ;;=Z53.21^^105^1418^60
  1. ;;^UTILITY(U,$J,358.3,33535,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33535,1,3,0)
  1. ;;=3^PT left w/o being seen
  1. ;;^UTILITY(U,$J,358.3,33535,1,4,0)
  1. ;;=4^Z53.21
  1. ;;^UTILITY(U,$J,358.3,33535,2)
  1. ;;=^5063096
  1. ;;^UTILITY(U,$J,358.3,33536,0)
  1. ;;=Z78.9^^105^1418^81
  1. ;;^UTILITY(U,$J,358.3,33536,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33536,1,3,0)
  1. ;;=3^Triaged to Primary Care Clinic
  1. ;;^UTILITY(U,$J,358.3,33536,1,4,0)
  1. ;;=4^Z78.9
  1. ;;^UTILITY(U,$J,358.3,33536,2)
  1. ;;=^5063329
  1. ;;^UTILITY(U,$J,358.3,33537,0)
  1. ;;=I48.20^^105^1418^8
  1. ;;^UTILITY(U,$J,358.3,33537,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33537,1,3,0)
  1. ;;=3^Atrial Fibrillation,Chronic,Unspec
  1. ;;^UTILITY(U,$J,358.3,33537,1,4,0)
  1. ;;=4^I48.20
  1. ;;^UTILITY(U,$J,358.3,33537,2)
  1. ;;=^5158048
  1. ;;^UTILITY(U,$J,358.3,33538,0)
  1. ;;=M54.6^^105^1418^63
  1. ;;^UTILITY(U,$J,358.3,33538,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33538,1,3,0)
  1. ;;=3^Pain in Thoracic Spine
  1. ;;^UTILITY(U,$J,358.3,33538,1,4,0)
  1. ;;=4^M54.6
  1. ;;^UTILITY(U,$J,358.3,33538,2)
  1. ;;=^272507
  1. ;;^UTILITY(U,$J,358.3,33539,0)
  1. ;;=M54.12^^105^1418^66
  1. ;;^UTILITY(U,$J,358.3,33539,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33539,1,3,0)
  1. ;;=3^Radiculopathy,Cervical Region
  1. ;;^UTILITY(U,$J,358.3,33539,1,4,0)
  1. ;;=4^M54.12
  1. ;;^UTILITY(U,$J,358.3,33539,2)
  1. ;;=^5012297
  1. ;;^UTILITY(U,$J,358.3,33540,0)
  1. ;;=M54.17^^105^1418^67
  1. ;;^UTILITY(U,$J,358.3,33540,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33540,1,3,0)
  1. ;;=3^Radiculopathy,Lumbosacral Region
  1. ;;^UTILITY(U,$J,358.3,33540,1,4,0)
  1. ;;=4^M54.17
  1. ;;^UTILITY(U,$J,358.3,33540,2)
  1. ;;=^5012302
  1. ;;^UTILITY(U,$J,358.3,33541,0)
  1. ;;=M54.30^^105^1418^69
  1. ;;^UTILITY(U,$J,358.3,33541,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33541,1,3,0)
  1. ;;=3^Sciatica
  1. ;;^UTILITY(U,$J,358.3,33541,1,4,0)
  1. ;;=4^M54.30
  1. ;;^UTILITY(U,$J,358.3,33541,2)
  1. ;;=^5012305
  1. ;;^UTILITY(U,$J,358.3,33542,0)
  1. ;;=M48.02^^105^1418^78
  1. ;;^UTILITY(U,$J,358.3,33542,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33542,1,3,0)
  1. ;;=3^Spinal Stenosis,Cervical Region
  1. ;;^UTILITY(U,$J,358.3,33542,1,4,0)
  1. ;;=4^M48.02
  1. ;;^UTILITY(U,$J,358.3,33542,2)
  1. ;;=^5012089
  1. ;;^UTILITY(U,$J,358.3,33543,0)
  1. ;;=N18.30^^105^1418^11
  1. ;;^UTILITY(U,$J,358.3,33543,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33543,1,3,0)
  1. ;;=3^CKD,Stage 3 Unspec
  1. ;;^UTILITY(U,$J,358.3,33543,1,4,0)
  1. ;;=4^N18.30
  1. ;;^UTILITY(U,$J,358.3,33543,2)
  1. ;;=^5159286
  1. ;;^UTILITY(U,$J,358.3,33544,0)
  1. ;;=N18.31^^105^1418^12
  1. ;;^UTILITY(U,$J,358.3,33544,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33544,1,3,0)
  1. ;;=3^CKD,Stage 3a
  1. ;;^UTILITY(U,$J,358.3,33544,1,4,0)
  1. ;;=4^N18.31
  1. ;;^UTILITY(U,$J,358.3,33544,2)
  1. ;;=^5159287
  1. ;;^UTILITY(U,$J,358.3,33545,0)
  1. ;;=N18.32^^105^1418^13
  1. ;;^UTILITY(U,$J,358.3,33545,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33545,1,3,0)
  1. ;;=3^CKD,Stage 3b
  1. ;;^UTILITY(U,$J,358.3,33545,1,4,0)
  1. ;;=4^N18.32
  1. ;;^UTILITY(U,$J,358.3,33545,2)
  1. ;;=^5159288
  1. ;;^UTILITY(U,$J,358.3,33546,0)
  1. ;;=M54.50^^105^1418^48
  1. ;;^UTILITY(U,$J,358.3,33546,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33546,1,3,0)
  1. ;;=3^Low Back Pain,Unspec
  1. ;;^UTILITY(U,$J,358.3,33546,1,4,0)
  1. ;;=4^M54.50
  1. ;;^UTILITY(U,$J,358.3,33546,2)
  1. ;;=^5161215
  1. ;;^UTILITY(U,$J,358.3,33547,0)
  1. ;;=Z51.81^^105^1419^17
  1. ;;^UTILITY(U,$J,358.3,33547,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33547,1,3,0)
  1. ;;=3^Therapeutic Drug Level Monitoring
  1. ;;^UTILITY(U,$J,358.3,33547,1,4,0)
  1. ;;=4^Z51.81
  1. ;;^UTILITY(U,$J,358.3,33547,2)
  1. ;;=^5063064
  1. ;;^UTILITY(U,$J,358.3,33548,0)
  1. ;;=Z02.79^^105^1419^11
  1. ;;^UTILITY(U,$J,358.3,33548,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33548,1,3,0)
  1. ;;=3^Issue of Medical Certificate NEC
  1. ;;^UTILITY(U,$J,358.3,33548,1,4,0)
  1. ;;=4^Z02.79
  1. ;;^UTILITY(U,$J,358.3,33548,2)
  1. ;;=^5062641
  1. ;;^UTILITY(U,$J,358.3,33549,0)
  1. ;;=Z76.0^^105^1419^12
  1. ;;^UTILITY(U,$J,358.3,33549,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33549,1,3,0)
  1. ;;=3^Issue of Repeat Prescription
  1. ;;^UTILITY(U,$J,358.3,33549,1,4,0)
  1. ;;=4^Z76.0
  1. ;;^UTILITY(U,$J,358.3,33549,2)
  1. ;;=^5063297
  1. ;;^UTILITY(U,$J,358.3,33550,0)
  1. ;;=Z04.9^^105^1419^3
  1. ;;^UTILITY(U,$J,358.3,33550,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33550,1,3,0)
  1. ;;=3^Exam & Observation for Unsp Reason
  1. ;;^UTILITY(U,$J,358.3,33550,1,4,0)
  1. ;;=4^Z04.9
  1. ;;^UTILITY(U,$J,358.3,33550,2)
  1. ;;=^5062666
  1. ;;^UTILITY(U,$J,358.3,33551,0)
  1. ;;=Z02.2^^105^1419^4
  1. ;;^UTILITY(U,$J,358.3,33551,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33551,1,3,0)
  1. ;;=3^Exam for Admission to Residential Institution
  1. ;;^UTILITY(U,$J,358.3,33551,1,4,0)
  1. ;;=4^Z02.2
  1. ;;^UTILITY(U,$J,358.3,33551,2)
  1. ;;=^5062635
  1. ;;^UTILITY(U,$J,358.3,33552,0)
  1. ;;=Z02.4^^105^1419^5
  1. ;;^UTILITY(U,$J,358.3,33552,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33552,1,3,0)
  1. ;;=3^Exam for Driving License
  1. ;;^UTILITY(U,$J,358.3,33552,1,4,0)
  1. ;;=4^Z02.4
  1. ;;^UTILITY(U,$J,358.3,33552,2)
  1. ;;=^5062637
  1. ;;^UTILITY(U,$J,358.3,33553,0)
  1. ;;=Z00.5^^105^1419^7
  1. ;;^UTILITY(U,$J,358.3,33553,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33553,1,3,0)
  1. ;;=3^Exam of Potential Donor of Organ/Tissue
  1. ;;^UTILITY(U,$J,358.3,33553,1,4,0)
  1. ;;=4^Z00.5
  1. ;;^UTILITY(U,$J,358.3,33553,2)
  1. ;;=^5062607
  1. ;;^UTILITY(U,$J,358.3,33554,0)
  1. ;;=Z02.3^^105^1419^6
  1. ;;^UTILITY(U,$J,358.3,33554,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33554,1,3,0)
  1. ;;=3^Exam for Recruitment to Armed Forces
  1. ;;^UTILITY(U,$J,358.3,33554,1,4,0)
  1. ;;=4^Z02.3
  1. ;;^UTILITY(U,$J,358.3,33554,2)
  1. ;;=^5062636
  1. ;;^UTILITY(U,$J,358.3,33555,0)
  1. ;;=Z02.89^^105^1419^1
  1. ;;^UTILITY(U,$J,358.3,33555,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33555,1,3,0)
  1. ;;=3^Admin Exam NEC
  1. ;;^UTILITY(U,$J,358.3,33555,1,4,0)
  1. ;;=4^Z02.89
  1. ;;^UTILITY(U,$J,358.3,33555,2)
  1. ;;=^5062645
  1. ;;^UTILITY(U,$J,358.3,33556,0)
  1. ;;=Z00.8^^105^1419^8
  1. ;;^UTILITY(U,$J,358.3,33556,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33556,1,3,0)
  1. ;;=3^General Exam NEC
  1. ;;^UTILITY(U,$J,358.3,33556,1,4,0)
  1. ;;=4^Z00.8
  1. ;;^UTILITY(U,$J,358.3,33556,2)
  1. ;;=^5062611
  1. ;;^UTILITY(U,$J,358.3,33557,0)
  1. ;;=Z02.1^^105^1419^14
  1. ;;^UTILITY(U,$J,358.3,33557,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33557,1,3,0)
  1. ;;=3^Pre-Employment Exam
  1. ;;^UTILITY(U,$J,358.3,33557,1,4,0)
  1. ;;=4^Z02.1
  1. ;;^UTILITY(U,$J,358.3,33557,2)
  1. ;;=^5062634
  1. ;;^UTILITY(U,$J,358.3,33558,0)
  1. ;;=Z01.810^^105^1419^2
  1. ;;^UTILITY(U,$J,358.3,33558,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33558,1,3,0)
  1. ;;=3^Cardiovascular Preprocedural Exam
  1. ;;^UTILITY(U,$J,358.3,33558,1,4,0)
  1. ;;=4^Z01.810
  1. ;;^UTILITY(U,$J,358.3,33558,2)
  1. ;;=^5062625
  1. ;;^UTILITY(U,$J,358.3,33559,0)
  1. ;;=Z01.811^^105^1419^16
  1. ;;^UTILITY(U,$J,358.3,33559,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33559,1,3,0)
  1. ;;=3^Respiratory Preprocedural Exam
  1. ;;^UTILITY(U,$J,358.3,33559,1,4,0)
  1. ;;=4^Z01.811
  1. ;;^UTILITY(U,$J,358.3,33559,2)
  1. ;;=^5062626
  1. ;;^UTILITY(U,$J,358.3,33560,0)
  1. ;;=Z01.812^^105^1419^13
  1. ;;^UTILITY(U,$J,358.3,33560,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33560,1,3,0)
  1. ;;=3^Lab Preprocedural Exam
  1. ;;^UTILITY(U,$J,358.3,33560,1,4,0)
  1. ;;=4^Z01.812
  1. ;;^UTILITY(U,$J,358.3,33560,2)
  1. ;;=^5062627
  1. ;;^UTILITY(U,$J,358.3,33561,0)
  1. ;;=Z01.818^^105^1419^15
  1. ;;^UTILITY(U,$J,358.3,33561,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33561,1,3,0)
  1. ;;=3^Preprocedural Exam NEC
  1. ;;^UTILITY(U,$J,358.3,33561,1,4,0)
  1. ;;=4^Z01.818
  1. ;;^UTILITY(U,$J,358.3,33561,2)
  1. ;;=^5062628
  1. ;;^UTILITY(U,$J,358.3,33562,0)
  1. ;;=Z71.0^^105^1419^9
  1. ;;^UTILITY(U,$J,358.3,33562,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33562,1,3,0)
  1. ;;=3^Hlth Service to Consult on Behalf of Another
  1. ;;^UTILITY(U,$J,358.3,33562,1,4,0)
  1. ;;=4^Z71.0
  1. ;;^UTILITY(U,$J,358.3,33562,2)
  1. ;;=^5063242
  1. ;;^UTILITY(U,$J,358.3,33563,0)
  1. ;;=Z59.89^^105^1419^10