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

IBDEI03E.m

Go to the documentation of this file. 
  1. IBDEI03E ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,8117,1,3,0)
  1.  ;;=3^Screening,STI
  1.  ;;^UTILITY(U,$J,358.3,8117,1,4,0)
  1.  ;;=4^Z11.3
  1.  ;;^UTILITY(U,$J,358.3,8117,2)
  1.  ;;=^5062672
  1.  ;;^UTILITY(U,$J,358.3,8118,0)
  1.  ;;=Z13.1^^45^416^74
  1.  ;;^UTILITY(U,$J,358.3,8118,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8118,1,3,0)
  1.  ;;=3^Screening,Diabetes
  1.  ;;^UTILITY(U,$J,358.3,8118,1,4,0)
  1.  ;;=4^Z13.1
  1.  ;;^UTILITY(U,$J,358.3,8118,2)
  1.  ;;=^5062700
  1.  ;;^UTILITY(U,$J,358.3,8119,0)
  1.  ;;=M48.061^^45^416^80
  1.  ;;^UTILITY(U,$J,358.3,8119,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8119,1,3,0)
  1.  ;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Claudication
  1.  ;;^UTILITY(U,$J,358.3,8119,1,4,0)
  1.  ;;=4^M48.061
  1.  ;;^UTILITY(U,$J,358.3,8119,2)
  1.  ;;=^5151513
  1.  ;;^UTILITY(U,$J,358.3,8120,0)
  1.  ;;=M48.062^^45^416^79
  1.  ;;^UTILITY(U,$J,358.3,8120,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8120,1,3,0)
  1.  ;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
  1.  ;;^UTILITY(U,$J,358.3,8120,1,4,0)
  1.  ;;=4^M48.062
  1.  ;;^UTILITY(U,$J,358.3,8120,2)
  1.  ;;=^5151514
  1.  ;;^UTILITY(U,$J,358.3,8121,0)
  1.  ;;=Z53.21^^45^416^60
  1.  ;;^UTILITY(U,$J,358.3,8121,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8121,1,3,0)
  1.  ;;=3^PT left w/o being seen
  1.  ;;^UTILITY(U,$J,358.3,8121,1,4,0)
  1.  ;;=4^Z53.21
  1.  ;;^UTILITY(U,$J,358.3,8121,2)
  1.  ;;=^5063096
  1.  ;;^UTILITY(U,$J,358.3,8122,0)
  1.  ;;=Z78.9^^45^416^81
  1.  ;;^UTILITY(U,$J,358.3,8122,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8122,1,3,0)
  1.  ;;=3^Triaged to Primary Care Clinic
  1.  ;;^UTILITY(U,$J,358.3,8122,1,4,0)
  1.  ;;=4^Z78.9
  1.  ;;^UTILITY(U,$J,358.3,8122,2)
  1.  ;;=^5063329
  1.  ;;^UTILITY(U,$J,358.3,8123,0)
  1.  ;;=I48.20^^45^416^8
  1.  ;;^UTILITY(U,$J,358.3,8123,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8123,1,3,0)
  1.  ;;=3^Atrial Fibrillation,Chronic,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8123,1,4,0)
  1.  ;;=4^I48.20
  1.  ;;^UTILITY(U,$J,358.3,8123,2)
  1.  ;;=^5158048
  1.  ;;^UTILITY(U,$J,358.3,8124,0)
  1.  ;;=M54.6^^45^416^63
  1.  ;;^UTILITY(U,$J,358.3,8124,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8124,1,3,0)
  1.  ;;=3^Pain in Thoracic Spine
  1.  ;;^UTILITY(U,$J,358.3,8124,1,4,0)
  1.  ;;=4^M54.6
  1.  ;;^UTILITY(U,$J,358.3,8124,2)
  1.  ;;=^272507
  1.  ;;^UTILITY(U,$J,358.3,8125,0)
  1.  ;;=M54.12^^45^416^66
  1.  ;;^UTILITY(U,$J,358.3,8125,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8125,1,3,0)
  1.  ;;=3^Radiculopathy,Cervical Region
  1.  ;;^UTILITY(U,$J,358.3,8125,1,4,0)
  1.  ;;=4^M54.12
  1.  ;;^UTILITY(U,$J,358.3,8125,2)
  1.  ;;=^5012297
  1.  ;;^UTILITY(U,$J,358.3,8126,0)
  1.  ;;=M54.17^^45^416^67
  1.  ;;^UTILITY(U,$J,358.3,8126,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8126,1,3,0)
  1.  ;;=3^Radiculopathy,Lumbosacral Region
  1.  ;;^UTILITY(U,$J,358.3,8126,1,4,0)
  1.  ;;=4^M54.17
  1.  ;;^UTILITY(U,$J,358.3,8126,2)
  1.  ;;=^5012302
  1.  ;;^UTILITY(U,$J,358.3,8127,0)
  1.  ;;=M54.30^^45^416^69
  1.  ;;^UTILITY(U,$J,358.3,8127,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8127,1,3,0)
  1.  ;;=3^Sciatica
  1.  ;;^UTILITY(U,$J,358.3,8127,1,4,0)
  1.  ;;=4^M54.30
  1.  ;;^UTILITY(U,$J,358.3,8127,2)
  1.  ;;=^5012305
  1.  ;;^UTILITY(U,$J,358.3,8128,0)
  1.  ;;=M48.02^^45^416^78
  1.  ;;^UTILITY(U,$J,358.3,8128,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8128,1,3,0)
  1.  ;;=3^Spinal Stenosis,Cervical Region
  1.  ;;^UTILITY(U,$J,358.3,8128,1,4,0)
  1.  ;;=4^M48.02
  1.  ;;^UTILITY(U,$J,358.3,8128,2)
  1.  ;;=^5012089
  1.  ;;^UTILITY(U,$J,358.3,8129,0)
  1.  ;;=N18.30^^45^416^11
  1.  ;;^UTILITY(U,$J,358.3,8129,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8129,1,3,0)
  1.  ;;=3^CKD,Stage 3 Unspec
  1.  ;;^UTILITY(U,$J,358.3,8129,1,4,0)
  1.  ;;=4^N18.30
  1.  ;;^UTILITY(U,$J,358.3,8129,2)
  1.  ;;=^5159286
  1.  ;;^UTILITY(U,$J,358.3,8130,0)
  1.  ;;=N18.31^^45^416^12
  1.  ;;^UTILITY(U,$J,358.3,8130,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8130,1,3,0)
  1.  ;;=3^CKD,Stage 3a
  1.  ;;^UTILITY(U,$J,358.3,8130,1,4,0)
  1.  ;;=4^N18.31
  1.  ;;^UTILITY(U,$J,358.3,8130,2)
  1.  ;;=^5159287
  1.  ;;^UTILITY(U,$J,358.3,8131,0)
  1.  ;;=N18.32^^45^416^13
  1.  ;;^UTILITY(U,$J,358.3,8131,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8131,1,3,0)
  1.  ;;=3^CKD,Stage 3b
  1.  ;;^UTILITY(U,$J,358.3,8131,1,4,0)
  1.  ;;=4^N18.32
  1.  ;;^UTILITY(U,$J,358.3,8131,2)
  1.  ;;=^5159288
  1.  ;;^UTILITY(U,$J,358.3,8132,0)
  1.  ;;=M54.50^^45^416^48
  1.  ;;^UTILITY(U,$J,358.3,8132,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8132,1,3,0)
  1.  ;;=3^Low Back Pain,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8132,1,4,0)
  1.  ;;=4^M54.50
  1.  ;;^UTILITY(U,$J,358.3,8132,2)
  1.  ;;=^5161215
  1.  ;;^UTILITY(U,$J,358.3,8133,0)
  1.  ;;=Z51.81^^45^417^17
  1.  ;;^UTILITY(U,$J,358.3,8133,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8133,1,3,0)
  1.  ;;=3^Therapeutic Drug Level Monitoring
  1.  ;;^UTILITY(U,$J,358.3,8133,1,4,0)
  1.  ;;=4^Z51.81
  1.  ;;^UTILITY(U,$J,358.3,8133,2)
  1.  ;;=^5063064
  1.  ;;^UTILITY(U,$J,358.3,8134,0)
  1.  ;;=Z02.79^^45^417^11
  1.  ;;^UTILITY(U,$J,358.3,8134,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8134,1,3,0)
  1.  ;;=3^Issue of Medical Certificate NEC
  1.  ;;^UTILITY(U,$J,358.3,8134,1,4,0)
  1.  ;;=4^Z02.79
  1.  ;;^UTILITY(U,$J,358.3,8134,2)
  1.  ;;=^5062641
  1.  ;;^UTILITY(U,$J,358.3,8135,0)
  1.  ;;=Z76.0^^45^417^12
  1.  ;;^UTILITY(U,$J,358.3,8135,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8135,1,3,0)
  1.  ;;=3^Issue of Repeat Prescription
  1.  ;;^UTILITY(U,$J,358.3,8135,1,4,0)
  1.  ;;=4^Z76.0
  1.  ;;^UTILITY(U,$J,358.3,8135,2)
  1.  ;;=^5063297
  1.  ;;^UTILITY(U,$J,358.3,8136,0)
  1.  ;;=Z04.9^^45^417^3
  1.  ;;^UTILITY(U,$J,358.3,8136,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8136,1,3,0)
  1.  ;;=3^Exam & Observation for Unsp Reason
  1.  ;;^UTILITY(U,$J,358.3,8136,1,4,0)
  1.  ;;=4^Z04.9
  1.  ;;^UTILITY(U,$J,358.3,8136,2)
  1.  ;;=^5062666
  1.  ;;^UTILITY(U,$J,358.3,8137,0)
  1.  ;;=Z02.2^^45^417^4
  1.  ;;^UTILITY(U,$J,358.3,8137,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8137,1,3,0)
  1.  ;;=3^Exam for Admission to Residential Institution
  1.  ;;^UTILITY(U,$J,358.3,8137,1,4,0)
  1.  ;;=4^Z02.2
  1.  ;;^UTILITY(U,$J,358.3,8137,2)
  1.  ;;=^5062635
  1.  ;;^UTILITY(U,$J,358.3,8138,0)
  1.  ;;=Z02.4^^45^417^5
  1.  ;;^UTILITY(U,$J,358.3,8138,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8138,1,3,0)
  1.  ;;=3^Exam for Driving License
  1.  ;;^UTILITY(U,$J,358.3,8138,1,4,0)
  1.  ;;=4^Z02.4
  1.  ;;^UTILITY(U,$J,358.3,8138,2)
  1.  ;;=^5062637
  1.  ;;^UTILITY(U,$J,358.3,8139,0)
  1.  ;;=Z00.5^^45^417^7
  1.  ;;^UTILITY(U,$J,358.3,8139,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8139,1,3,0)
  1.  ;;=3^Exam of Potential Donor of Organ/Tissue
  1.  ;;^UTILITY(U,$J,358.3,8139,1,4,0)
  1.  ;;=4^Z00.5
  1.  ;;^UTILITY(U,$J,358.3,8139,2)
  1.  ;;=^5062607
  1.  ;;^UTILITY(U,$J,358.3,8140,0)
  1.  ;;=Z02.3^^45^417^6
  1.  ;;^UTILITY(U,$J,358.3,8140,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8140,1,3,0)
  1.  ;;=3^Exam for Recruitment to Armed Forces
  1.  ;;^UTILITY(U,$J,358.3,8140,1,4,0)
  1.  ;;=4^Z02.3
  1.  ;;^UTILITY(U,$J,358.3,8140,2)
  1.  ;;=^5062636
  1.  ;;^UTILITY(U,$J,358.3,8141,0)
  1.  ;;=Z02.89^^45^417^1
  1.  ;;^UTILITY(U,$J,358.3,8141,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8141,1,3,0)
  1.  ;;=3^Admin Exam NEC
  1.  ;;^UTILITY(U,$J,358.3,8141,1,4,0)
  1.  ;;=4^Z02.89
  1.  ;;^UTILITY(U,$J,358.3,8141,2)
  1.  ;;=^5062645
  1.  ;;^UTILITY(U,$J,358.3,8142,0)
  1.  ;;=Z00.8^^45^417^8
  1.  ;;^UTILITY(U,$J,358.3,8142,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8142,1,3,0)
  1.  ;;=3^General Exam NEC
  1.  ;;^UTILITY(U,$J,358.3,8142,1,4,0)
  1.  ;;=4^Z00.8
  1.  ;;^UTILITY(U,$J,358.3,8142,2)
  1.  ;;=^5062611
  1.  ;;^UTILITY(U,$J,358.3,8143,0)
  1.  ;;=Z02.1^^45^417^14
  1.  ;;^UTILITY(U,$J,358.3,8143,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8143,1,3,0)
  1.  ;;=3^Pre-Employment Exam
  1.  ;;^UTILITY(U,$J,358.3,8143,1,4,0)
  1.  ;;=4^Z02.1
  1.  ;;^UTILITY(U,$J,358.3,8143,2)
  1.  ;;=^5062634
  1.  ;;^UTILITY(U,$J,358.3,8144,0)
  1.  ;;=Z01.810^^45^417^2
  1.  ;;^UTILITY(U,$J,358.3,8144,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8144,1,3,0)
  1.  ;;=3^Cardiovascular Preprocedural Exam
  1.  ;;^UTILITY(U,$J,358.3,8144,1,4,0)
  1.  ;;=4^Z01.810
  1.  ;;^UTILITY(U,$J,358.3,8144,2)
  1.  ;;=^5062625
  1.  ;;^UTILITY(U,$J,358.3,8145,0)
  1.  ;;=Z01.811^^45^417^16
  1.  ;;^UTILITY(U,$J,358.3,8145,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8145,1,3,0)
  1.  ;;=3^Respiratory Preprocedural Exam
  1.  ;;^UTILITY(U,$J,358.3,8145,1,4,0)
  1.  ;;=4^Z01.811
  1.  ;;^UTILITY(U,$J,358.3,8145,2)
  1.  ;;=^5062626
  1.  ;;^UTILITY(U,$J,358.3,8146,0)
  1.  ;;=Z01.812^^45^417^13
  1.  ;;^UTILITY(U,$J,358.3,8146,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8146,1,3,0)
  1.  ;;=3^Lab Preprocedural Exam
  1.  ;;^UTILITY(U,$J,358.3,8146,1,4,0)
  1.  ;;=4^Z01.812
  1.  ;;^UTILITY(U,$J,358.3,8146,2)
  1.  ;;=^5062627
  1.  ;;^UTILITY(U,$J,358.3,8147,0)
  1.  ;;=Z01.818^^45^417^15
  1.  ;;^UTILITY(U,$J,358.3,8147,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8147,1,3,0)
  1.  ;;=3^Preprocedural Exam NEC
  1.  ;;^UTILITY(U,$J,358.3,8147,1,4,0)
  1.  ;;=4^Z01.818
  1.  ;;^UTILITY(U,$J,358.3,8147,2)
  1.  ;;=^5062628
  1.  ;;^UTILITY(U,$J,358.3,8148,0)
  1.  ;;=Z71.0^^45^417^9
  1.  ;;^UTILITY(U,$J,358.3,8148,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8148,1,3,0)
  1.  ;;=3^Hlth Service to Consult on Behalf of Another
  1.  ;;^UTILITY(U,$J,358.3,8148,1,4,0)
  1.  ;;=4^Z71.0
  1.  ;;^UTILITY(U,$J,358.3,8148,2)
  1.  ;;=^5063242
  1.  ;;^UTILITY(U,$J,358.3,8149,0)
  1.  ;;=Z59.89^^45^417^10
  1.  ;;^UTILITY(U,$J,358.3,8149,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8149,1,3,0)
  1.  ;;=3^Housing/Economic Circumstance Problems,Other
  1.  ;;^UTILITY(U,$J,358.3,8149,1,4,0)
  1.  ;;=4^Z59.89
  1.  ;;^UTILITY(U,$J,358.3,8149,2)
  1.  ;;=^5161312
  1.  ;;^UTILITY(U,$J,358.3,8150,0)
  1.  ;;=I20.0^^45^418^5
  1.  ;;^UTILITY(U,$J,358.3,8150,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8150,1,3,0)
  1.  ;;=3^Unstable Angina
  1.  ;;^UTILITY(U,$J,358.3,8150,1,4,0)
  1.  ;;=4^I20.0
  1.  ;;^UTILITY(U,$J,358.3,8150,2)
  1.  ;;=^5007076
  1.  ;;^UTILITY(U,$J,358.3,8151,0)
  1.  ;;=I25.2^^45^418^4
  1.  ;;^UTILITY(U,$J,358.3,8151,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8151,1,3,0)
  1.  ;;=3^Old Myocardial Infarction
  1.  ;;^UTILITY(U,$J,358.3,8151,1,4,0)
  1.  ;;=4^I25.2
  1.  ;;^UTILITY(U,$J,358.3,8151,2)
  1.  ;;=^259884
  1.  ;;^UTILITY(U,$J,358.3,8152,0)
  1.  ;;=I20.8^^45^418^2
  1.  ;;^UTILITY(U,$J,358.3,8152,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8152,1,3,0)
  1.  ;;=3^Angina Pectoris,Oth Forms
  1.  ;;^UTILITY(U,$J,358.3,8152,1,4,0)
  1.  ;;=4^I20.8
  1.  ;;^UTILITY(U,$J,358.3,8152,2)
  1.  ;;=^5007078
  1.  ;;^UTILITY(U,$J,358.3,8153,0)
  1.  ;;=I20.1^^45^418^1
  1.  ;;^UTILITY(U,$J,358.3,8153,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8153,1,3,0)
  1.  ;;=3^Angina Pectoris w/ Documented Spasm
  1.  ;;^UTILITY(U,$J,358.3,8153,1,4,0)
  1.  ;;=4^I20.1
  1.  ;;^UTILITY(U,$J,358.3,8153,2)
  1.  ;;=^5007077
  1.  ;;^UTILITY(U,$J,358.3,8154,0)
  1.  ;;=I20.9^^45^418^3
  1.  ;;^UTILITY(U,$J,358.3,8154,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8154,1,3,0)
  1.  ;;=3^Angina Pectoris,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8154,1,4,0)
  1.  ;;=4^I20.9
  1.  ;;^UTILITY(U,$J,358.3,8154,2)
  1.  ;;=^5007079
  1.  ;;^UTILITY(U,$J,358.3,8155,0)
  1.  ;;=I65.29^^45^419^31
  1.  ;;^UTILITY(U,$J,358.3,8155,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8155,1,3,0)
  1.  ;;=3^Occlusion & Stenosis Unspec Carotid Artery
  1.  ;;^UTILITY(U,$J,358.3,8155,1,4,0)
  1.  ;;=4^I65.29
  1.  ;;^UTILITY(U,$J,358.3,8155,2)
  1.  ;;=^5007363
  1.  ;;^UTILITY(U,$J,358.3,8156,0)
  1.  ;;=I65.22^^45^419^29
  1.  ;;^UTILITY(U,$J,358.3,8156,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8156,1,3,0)
  1.  ;;=3^Occlusion & Stenosis Left Carotid Artery
  1.  ;;^UTILITY(U,$J,358.3,8156,1,4,0)
  1.  ;;=4^I65.22
  1.  ;;^UTILITY(U,$J,358.3,8156,2)
  1.  ;;=^5007361
  1.  ;;^UTILITY(U,$J,358.3,8157,0)
  1.  ;;=I65.23^^45^419^28
  1.  ;;^UTILITY(U,$J,358.3,8157,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8157,1,3,0)
  1.  ;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
  1.  ;;^UTILITY(U,$J,358.3,8157,1,4,0)
  1.  ;;=4^I65.23
  1.  ;;^UTILITY(U,$J,358.3,8157,2)
  1.  ;;=^5007362
  1.  ;;^UTILITY(U,$J,358.3,8158,0)
  1.  ;;=I65.21^^45^419^30
  1.  ;;^UTILITY(U,$J,358.3,8158,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8158,1,3,0)
  1.  ;;=3^Occlusion & Stenosis Right Carotid Artery
  1.  ;;^UTILITY(U,$J,358.3,8158,1,4,0)
  1.  ;;=4^I65.21
  1.  ;;^UTILITY(U,$J,358.3,8158,2)
  1.  ;;=^5007360
  1.  ;;^UTILITY(U,$J,358.3,8159,0)
  1.  ;;=I70.219^^45^419^7
  1.  ;;^UTILITY(U,$J,358.3,8159,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8159,1,3,0)
  1.  ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
  1.  ;;^UTILITY(U,$J,358.3,8159,1,4,0)
  1.  ;;=4^I70.219
  1.  ;;^UTILITY(U,$J,358.3,8159,2)
  1.  ;;=^5007582
  1.  ;;^UTILITY(U,$J,358.3,8160,0)
  1.  ;;=I70.213^^45^419^8
  1.  ;;^UTILITY(U,$J,358.3,8160,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8160,1,3,0)
  1.  ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
  1.  ;;^UTILITY(U,$J,358.3,8160,1,4,0)
  1.  ;;=4^I70.213
  1.  ;;^UTILITY(U,$J,358.3,8160,2)
  1.  ;;=^5007580
  1.  ;;^UTILITY(U,$J,358.3,8161,0)
  1.  ;;=I70.212^^45^419^9
  1.  ;;^UTILITY(U,$J,358.3,8161,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8161,1,3,0)
  1.  ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
  1.  ;;^UTILITY(U,$J,358.3,8161,1,4,0)
  1.  ;;=4^I70.212
  1.  ;;^UTILITY(U,$J,358.3,8161,2)
  1.  ;;=^5007579
  1.  ;;^UTILITY(U,$J,358.3,8162,0)
  1.  ;;=I70.211^^45^419^10
  1.  ;;^UTILITY(U,$J,358.3,8162,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8162,1,3,0)
  1.  ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
  1.  ;;^UTILITY(U,$J,358.3,8162,1,4,0)
  1.  ;;=4^I70.211
  1.  ;;^UTILITY(U,$J,358.3,8162,2)
  1.  ;;=^5007578
  1.  ;;^UTILITY(U,$J,358.3,8163,0)
  1.  ;;=I70.25^^45^419^6
  1.  ;;^UTILITY(U,$J,358.3,8163,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8163,1,3,0)
  1.  ;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
  1.  ;;^UTILITY(U,$J,358.3,8163,1,4,0)
  1.  ;;=4^I70.25
  1.  ;;^UTILITY(U,$J,358.3,8163,2)
  1.  ;;=^5007602
  1.  ;;^UTILITY(U,$J,358.3,8164,0)
  1.  ;;=I70.249^^45^419^11
  1.  ;;^UTILITY(U,$J,358.3,8164,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8164,1,3,0)
  1.  ;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8164,1,4,0)
  1.  ;;=4^I70.249
  1.  ;;^UTILITY(U,$J,358.3,8164,2)
  1.  ;;=^5007601
  1.  ;;^UTILITY(U,$J,358.3,8165,0)
  1.  ;;=I70.239^^45^419^12
  1.  ;;^UTILITY(U,$J,358.3,8165,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8165,1,3,0)
  1.  ;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8165,1,4,0)
  1.  ;;=4^I70.239
  1.  ;;^UTILITY(U,$J,358.3,8165,2)
  1.  ;;=^5007594
  1.  ;;^UTILITY(U,$J,358.3,8166,0)
  1.  ;;=I70.269^^45^419^13
  1.  ;;^UTILITY(U,$J,358.3,8166,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8166,1,3,0)
  1.  ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
  1.  ;;^UTILITY(U,$J,358.3,8166,1,4,0)
  1.  ;;=4^I70.269
  1.  ;;^UTILITY(U,$J,358.3,8166,2)
  1.  ;;=^5007607
  1.  ;;^UTILITY(U,$J,358.3,8167,0)
  1.  ;;=I70.263^^45^419^14
  1.  ;;^UTILITY(U,$J,358.3,8167,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8167,1,3,0)
  1.  ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
  1.  ;;^UTILITY(U,$J,358.3,8167,1,4,0)
  1.  ;;=4^I70.263
  1.  ;;^UTILITY(U,$J,358.3,8167,2)
  1.  ;;=^5007605
  1.  ;;^UTILITY(U,$J,358.3,8168,0)
  1.  ;;=I70.262^^45^419^15
  1.  ;;^UTILITY(U,$J,358.3,8168,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8168,1,3,0)
  1.  ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Left Leg
  1.  ;;^UTILITY(U,$J,358.3,8168,1,4,0)
  1.  ;;=4^I70.262
  1.  ;;^UTILITY(U,$J,358.3,8168,2)
  1.  ;;=^5007604
  1.  ;;^UTILITY(U,$J,358.3,8169,0)
  1.  ;;=I70.261^^45^419^16
  1.  ;;^UTILITY(U,$J,358.3,8169,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8169,1,3,0)
  1.  ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Right Leg
  1.  ;;^UTILITY(U,$J,358.3,8169,1,4,0)
  1.  ;;=4^I70.261
  1.  ;;^UTILITY(U,$J,358.3,8169,2)
  1.  ;;=^5007603
  1.  ;;^UTILITY(U,$J,358.3,8170,0)
  1.  ;;=I71.2^^45^419^34
  1.  ;;^UTILITY(U,$J,358.3,8170,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8170,1,3,0)
  1.  ;;=3^Thoracic Aortic Aneurysm w/o Rupture
  1.  ;;^UTILITY(U,$J,358.3,8170,1,4,0)
  1.  ;;=4^I71.2
  1.  ;;^UTILITY(U,$J,358.3,8170,2)
  1.  ;;=^5007787
  1.  ;;^UTILITY(U,$J,358.3,8171,0)
  1.  ;;=I71.4^^45^419^1
  1.  ;;^UTILITY(U,$J,358.3,8171,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8171,1,3,0)
  1.  ;;=3^Abdominal Aortic Aneurysm w/o Rupture
  1.  ;;^UTILITY(U,$J,358.3,8171,1,4,0)
  1.  ;;=4^I71.4
  1.  ;;^UTILITY(U,$J,358.3,8171,2)
  1.  ;;=^5007789
  1.  ;;^UTILITY(U,$J,358.3,8172,0)
  1.  ;;=I73.9^^45^419^32
  1.  ;;^UTILITY(U,$J,358.3,8172,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8172,1,3,0)
  1.  ;;=3^Peripheral Vascular Disease,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8172,1,4,0)
  1.  ;;=4^I73.9
  1.  ;;^UTILITY(U,$J,358.3,8172,2)
  1.  ;;=^184182
  1.  ;;^UTILITY(U,$J,358.3,8173,0)
  1.  ;;=I82.891^^45^419^23
  1.  ;;^UTILITY(U,$J,358.3,8173,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8173,1,3,0)
  1.  ;;=3^Embolism/Thrombosis Oth Spec Veins,Chronic
  1.  ;;^UTILITY(U,$J,358.3,8173,1,4,0)
  1.  ;;=4^I82.891
  1.  ;;^UTILITY(U,$J,358.3,8173,2)
  1.  ;;=^5007939
  1.  ;;^UTILITY(U,$J,358.3,8174,0)
  1.  ;;=I82.890^^45^419^22
  1.  ;;^UTILITY(U,$J,358.3,8174,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8174,1,3,0)
  1.  ;;=3^Embolism/Thrombosis Oth Spec Veins,Acute
  1.  ;;^UTILITY(U,$J,358.3,8174,1,4,0)
  1.  ;;=4^I82.890
  1.  ;;^UTILITY(U,$J,358.3,8174,2)
  1.  ;;=^5007938
  1.  ;;^UTILITY(U,$J,358.3,8175,0)
  1.  ;;=I25.729^^45^419^2
  1.  ;;^UTILITY(U,$J,358.3,8175,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8175,1,3,0)
  1.  ;;=3^Athscl Autologous Artery CABG w/ Unspec Angina Pectoris
  1.  ;;^UTILITY(U,$J,358.3,8175,1,4,0)
  1.  ;;=4^I25.729
  1.  ;;^UTILITY(U,$J,358.3,8175,2)
  1.  ;;=^5133561
  1.  ;;^UTILITY(U,$J,358.3,8176,0)
  1.  ;;=I25.119^^45^419^3
  1.  ;;^UTILITY(U,$J,358.3,8176,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8176,1,3,0)
  1.  ;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8176,1,4,0)
  1.  ;;=4^I25.119
  1.  ;;^UTILITY(U,$J,358.3,8176,2)
  1.  ;;=^5007111
  1.  ;;^UTILITY(U,$J,358.3,8177,0)
  1.  ;;=I25.10^^45^419^4
  1.  ;;^UTILITY(U,$J,358.3,8177,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8177,1,3,0)
  1.  ;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
  1.  ;;^UTILITY(U,$J,358.3,8177,1,4,0)
  1.  ;;=4^I25.10
  1.  ;;^UTILITY(U,$J,358.3,8177,2)
  1.  ;;=^5007107
  1.  ;;^UTILITY(U,$J,358.3,8178,0)
  1.  ;;=I25.110^^45^419^5
  1.  ;;^UTILITY(U,$J,358.3,8178,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8178,1,3,0)
  1.  ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
  1.  ;;^UTILITY(U,$J,358.3,8178,1,4,0)
  1.  ;;=4^I25.110
  1.  ;;^UTILITY(U,$J,358.3,8178,2)
  1.  ;;=^5007108
  1.  ;;^UTILITY(U,$J,358.3,8179,0)
  1.  ;;=I25.810^^45^419^17
  1.  ;;^UTILITY(U,$J,358.3,8179,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8179,1,3,0)
  1.  ;;=3^Athscl of CABG w/o Angina Pectoris
  1.  ;;^UTILITY(U,$J,358.3,8179,1,4,0)
  1.  ;;=4^I25.810
  1.  ;;^UTILITY(U,$J,358.3,8179,2)
  1.  ;;=^5007141
  1.  ;;^UTILITY(U,$J,358.3,8180,0)
  1.  ;;=I25.701^^45^419^18
  1.  ;;^UTILITY(U,$J,358.3,8180,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8180,1,3,0)
  1.  ;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
  1.  ;;^UTILITY(U,$J,358.3,8180,1,4,0)
  1.  ;;=4^I25.701
  1.  ;;^UTILITY(U,$J,358.3,8180,2)
  1.  ;;=^5007118
  1.  ;;^UTILITY(U,$J,358.3,8181,0)
  1.  ;;=I25.708^^45^419^19
  1.  ;;^UTILITY(U,$J,358.3,8181,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8181,1,3,0)
  1.  ;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
  1.  ;;^UTILITY(U,$J,358.3,8181,1,4,0)
  1.  ;;=4^I25.708
  1.  ;;^UTILITY(U,$J,358.3,8181,2)
  1.  ;;=^5007119
  1.  ;;^UTILITY(U,$J,358.3,8182,0)
  1.  ;;=I25.709^^45^419^20
  1.  ;;^UTILITY(U,$J,358.3,8182,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8182,1,3,0)
  1.  ;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
  1.  ;;^UTILITY(U,$J,358.3,8182,1,4,0)
  1.  ;;=4^I25.709
  1.  ;;^UTILITY(U,$J,358.3,8182,2)
  1.  ;;=^5007120
  1.  ;;^UTILITY(U,$J,358.3,8183,0)
  1.  ;;=I25.700^^45^419^21
  1.  ;;^UTILITY(U,$J,358.3,8183,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8183,1,3,0)
  1.  ;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
  1.  ;;^UTILITY(U,$J,358.3,8183,1,4,0)
  1.  ;;=4^I25.700
  1.  ;;^UTILITY(U,$J,358.3,8183,2)
  1.  ;;=^5007117
  1.  ;;^UTILITY(U,$J,358.3,8184,0)
  1.  ;;=I82.469^^45^419^24
  1.  ;;^UTILITY(U,$J,358.3,8184,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8184,1,3,0)
  1.  ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
  1.  ;;^UTILITY(U,$J,358.3,8184,1,4,0)
  1.  ;;=4^I82.469
  1.  ;;^UTILITY(U,$J,358.3,8184,2)
  1.  ;;=^5158066
  1.  ;;^UTILITY(U,$J,358.3,8185,0)
  1.  ;;=I82.569^^45^419^25
  1.  ;;^UTILITY(U,$J,358.3,8185,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8185,1,3,0)
  1.  ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
  1.  ;;^UTILITY(U,$J,358.3,8185,1,4,0)
  1.  ;;=4^I82.569