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

IBDEI05Y.m

Go to the documentation of this file.
IBDEI05Y ; ; 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,14421,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,14421,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,14422,0)
 ;;=I50.42^^56^629^38
 ;;^UTILITY(U,$J,358.3,14422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14422,1,3,0)
 ;;=3^Heart Failure,Systolic & Diastolic,Chronic
 ;;^UTILITY(U,$J,358.3,14422,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,14422,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,14423,0)
 ;;=I13.0^^56^629^32
 ;;^UTILITY(U,$J,358.3,14423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14423,1,3,0)
 ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,14423,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,14423,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,14424,0)
 ;;=I13.2^^56^629^33
 ;;^UTILITY(U,$J,358.3,14424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14424,1,3,0)
 ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,14424,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,14424,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,14425,0)
 ;;=I13.10^^56^629^34
 ;;^UTILITY(U,$J,358.3,14425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14425,1,3,0)
 ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,14425,1,4,0)
 ;;=4^I13.10
 ;;^UTILITY(U,$J,358.3,14425,2)
 ;;=^5007068
 ;;^UTILITY(U,$J,358.3,14426,0)
 ;;=I13.11^^56^629^35
 ;;^UTILITY(U,$J,358.3,14426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14426,1,3,0)
 ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,14426,1,4,0)
 ;;=4^I13.11
 ;;^UTILITY(U,$J,358.3,14426,2)
 ;;=^5007069
 ;;^UTILITY(U,$J,358.3,14427,0)
 ;;=E03.9^^56^629^45
 ;;^UTILITY(U,$J,358.3,14427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14427,1,3,0)
 ;;=3^Hypothyroidism,Unspec
 ;;^UTILITY(U,$J,358.3,14427,1,4,0)
 ;;=4^E03.9
 ;;^UTILITY(U,$J,358.3,14427,2)
 ;;=^5002476
 ;;^UTILITY(U,$J,358.3,14428,0)
 ;;=C61.^^56^629^49
 ;;^UTILITY(U,$J,358.3,14428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14428,1,3,0)
 ;;=3^Malig Neopl Prostate
 ;;^UTILITY(U,$J,358.3,14428,1,4,0)
 ;;=4^C61.
 ;;^UTILITY(U,$J,358.3,14428,2)
 ;;=^267239
 ;;^UTILITY(U,$J,358.3,14429,0)
 ;;=F11.20^^56^629^55
 ;;^UTILITY(U,$J,358.3,14429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14429,1,3,0)
 ;;=3^Opioid Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,14429,1,4,0)
 ;;=4^F11.20
 ;;^UTILITY(U,$J,358.3,14429,2)
 ;;=^5003127
 ;;^UTILITY(U,$J,358.3,14430,0)
 ;;=M19.90^^56^629^56
 ;;^UTILITY(U,$J,358.3,14430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14430,1,3,0)
 ;;=3^Osteoarthritis,Unspec
 ;;^UTILITY(U,$J,358.3,14430,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,14430,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,14431,0)
 ;;=M85.80^^56^629^57
 ;;^UTILITY(U,$J,358.3,14431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14431,1,3,0)
 ;;=3^Osteopenia,Unspec Site
 ;;^UTILITY(U,$J,358.3,14431,1,4,0)
 ;;=4^M85.80
 ;;^UTILITY(U,$J,358.3,14431,2)
 ;;=^5014473
 ;;^UTILITY(U,$J,358.3,14432,0)
 ;;=M81.0^^56^629^58
 ;;^UTILITY(U,$J,358.3,14432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14432,1,3,0)
 ;;=3^Osteoporosis,Age-Related w/o Fx
 ;;^UTILITY(U,$J,358.3,14432,1,4,0)
 ;;=4^M81.0
 ;;^UTILITY(U,$J,358.3,14432,2)
 ;;=^5013555
 ;;^UTILITY(U,$J,358.3,14433,0)
 ;;=I73.9^^56^629^65
 ;;^UTILITY(U,$J,358.3,14433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14433,1,3,0)
 ;;=3^Peripheral Vascular Disease,Unspec
 ;;^UTILITY(U,$J,358.3,14433,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,14433,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,14434,0)
 ;;=R21.^^56^629^68
 ;;^UTILITY(U,$J,358.3,14434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14434,1,3,0)
 ;;=3^Rash
 ;;^UTILITY(U,$J,358.3,14434,1,4,0)
 ;;=4^R21.
 ;;^UTILITY(U,$J,358.3,14434,2)
 ;;=^5019283
 ;;^UTILITY(U,$J,358.3,14435,0)
 ;;=Z12.11^^56^629^73
 ;;^UTILITY(U,$J,358.3,14435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14435,1,3,0)
 ;;=3^Screening,Colon CA
 ;;^UTILITY(U,$J,358.3,14435,1,4,0)
 ;;=4^Z12.11
 ;;^UTILITY(U,$J,358.3,14435,2)
 ;;=^5062681
 ;;^UTILITY(U,$J,358.3,14436,0)
 ;;=Z12.39^^56^629^71
 ;;^UTILITY(U,$J,358.3,14436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14436,1,3,0)
 ;;=3^Screening,Breast CA
 ;;^UTILITY(U,$J,358.3,14436,1,4,0)
 ;;=4^Z12.39
 ;;^UTILITY(U,$J,358.3,14436,2)
 ;;=^5062686
 ;;^UTILITY(U,$J,358.3,14437,0)
 ;;=Z12.4^^56^629^72
 ;;^UTILITY(U,$J,358.3,14437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14437,1,3,0)
 ;;=3^Screening,Cervical CA
 ;;^UTILITY(U,$J,358.3,14437,1,4,0)
 ;;=4^Z12.4
 ;;^UTILITY(U,$J,358.3,14437,2)
 ;;=^5062687
 ;;^UTILITY(U,$J,358.3,14438,0)
 ;;=Z13.6^^56^629^70
 ;;^UTILITY(U,$J,358.3,14438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14438,1,3,0)
 ;;=3^Screening,AAA
 ;;^UTILITY(U,$J,358.3,14438,1,4,0)
 ;;=4^Z13.6
 ;;^UTILITY(U,$J,358.3,14438,2)
 ;;=^5062707
 ;;^UTILITY(U,$J,358.3,14439,0)
 ;;=Z11.3^^56^629^75
 ;;^UTILITY(U,$J,358.3,14439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14439,1,3,0)
 ;;=3^Screening,STI
 ;;^UTILITY(U,$J,358.3,14439,1,4,0)
 ;;=4^Z11.3
 ;;^UTILITY(U,$J,358.3,14439,2)
 ;;=^5062672
 ;;^UTILITY(U,$J,358.3,14440,0)
 ;;=Z13.1^^56^629^74
 ;;^UTILITY(U,$J,358.3,14440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14440,1,3,0)
 ;;=3^Screening,Diabetes
 ;;^UTILITY(U,$J,358.3,14440,1,4,0)
 ;;=4^Z13.1
 ;;^UTILITY(U,$J,358.3,14440,2)
 ;;=^5062700
 ;;^UTILITY(U,$J,358.3,14441,0)
 ;;=M48.061^^56^629^80
 ;;^UTILITY(U,$J,358.3,14441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14441,1,3,0)
 ;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Claudication
 ;;^UTILITY(U,$J,358.3,14441,1,4,0)
 ;;=4^M48.061
 ;;^UTILITY(U,$J,358.3,14441,2)
 ;;=^5151513
 ;;^UTILITY(U,$J,358.3,14442,0)
 ;;=M48.062^^56^629^79
 ;;^UTILITY(U,$J,358.3,14442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14442,1,3,0)
 ;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
 ;;^UTILITY(U,$J,358.3,14442,1,4,0)
 ;;=4^M48.062
 ;;^UTILITY(U,$J,358.3,14442,2)
 ;;=^5151514
 ;;^UTILITY(U,$J,358.3,14443,0)
 ;;=Z53.21^^56^629^60
 ;;^UTILITY(U,$J,358.3,14443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14443,1,3,0)
 ;;=3^PT left w/o being seen
 ;;^UTILITY(U,$J,358.3,14443,1,4,0)
 ;;=4^Z53.21
 ;;^UTILITY(U,$J,358.3,14443,2)
 ;;=^5063096
 ;;^UTILITY(U,$J,358.3,14444,0)
 ;;=Z78.9^^56^629^81
 ;;^UTILITY(U,$J,358.3,14444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14444,1,3,0)
 ;;=3^Triaged to Primary Care Clinic
 ;;^UTILITY(U,$J,358.3,14444,1,4,0)
 ;;=4^Z78.9
 ;;^UTILITY(U,$J,358.3,14444,2)
 ;;=^5063329
 ;;^UTILITY(U,$J,358.3,14445,0)
 ;;=I48.20^^56^629^8
 ;;^UTILITY(U,$J,358.3,14445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14445,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,14445,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,14445,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,14446,0)
 ;;=M54.6^^56^629^63
 ;;^UTILITY(U,$J,358.3,14446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14446,1,3,0)
 ;;=3^Pain in Thoracic Spine
 ;;^UTILITY(U,$J,358.3,14446,1,4,0)
 ;;=4^M54.6
 ;;^UTILITY(U,$J,358.3,14446,2)
 ;;=^272507
 ;;^UTILITY(U,$J,358.3,14447,0)
 ;;=M54.12^^56^629^66
 ;;^UTILITY(U,$J,358.3,14447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14447,1,3,0)
 ;;=3^Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,14447,1,4,0)
 ;;=4^M54.12
 ;;^UTILITY(U,$J,358.3,14447,2)
 ;;=^5012297
 ;;^UTILITY(U,$J,358.3,14448,0)
 ;;=M54.17^^56^629^67
 ;;^UTILITY(U,$J,358.3,14448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14448,1,3,0)
 ;;=3^Radiculopathy,Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,14448,1,4,0)
 ;;=4^M54.17
 ;;^UTILITY(U,$J,358.3,14448,2)
 ;;=^5012302
 ;;^UTILITY(U,$J,358.3,14449,0)
 ;;=M54.30^^56^629^69
 ;;^UTILITY(U,$J,358.3,14449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14449,1,3,0)
 ;;=3^Sciatica
 ;;^UTILITY(U,$J,358.3,14449,1,4,0)
 ;;=4^M54.30
 ;;^UTILITY(U,$J,358.3,14449,2)
 ;;=^5012305
 ;;^UTILITY(U,$J,358.3,14450,0)
 ;;=M48.02^^56^629^78
 ;;^UTILITY(U,$J,358.3,14450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14450,1,3,0)
 ;;=3^Spinal Stenosis,Cervical Region
 ;;^UTILITY(U,$J,358.3,14450,1,4,0)
 ;;=4^M48.02
 ;;^UTILITY(U,$J,358.3,14450,2)
 ;;=^5012089
 ;;^UTILITY(U,$J,358.3,14451,0)
 ;;=N18.30^^56^629^11
 ;;^UTILITY(U,$J,358.3,14451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14451,1,3,0)
 ;;=3^CKD,Stage 3 Unspec
 ;;^UTILITY(U,$J,358.3,14451,1,4,0)
 ;;=4^N18.30
 ;;^UTILITY(U,$J,358.3,14451,2)
 ;;=^5159286
 ;;^UTILITY(U,$J,358.3,14452,0)
 ;;=N18.31^^56^629^12
 ;;^UTILITY(U,$J,358.3,14452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14452,1,3,0)
 ;;=3^CKD,Stage 3a
 ;;^UTILITY(U,$J,358.3,14452,1,4,0)
 ;;=4^N18.31
 ;;^UTILITY(U,$J,358.3,14452,2)
 ;;=^5159287
 ;;^UTILITY(U,$J,358.3,14453,0)
 ;;=N18.32^^56^629^13
 ;;^UTILITY(U,$J,358.3,14453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14453,1,3,0)
 ;;=3^CKD,Stage 3b
 ;;^UTILITY(U,$J,358.3,14453,1,4,0)
 ;;=4^N18.32
 ;;^UTILITY(U,$J,358.3,14453,2)
 ;;=^5159288
 ;;^UTILITY(U,$J,358.3,14454,0)
 ;;=M54.50^^56^629^48
 ;;^UTILITY(U,$J,358.3,14454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14454,1,3,0)
 ;;=3^Low Back Pain,Unspec
 ;;^UTILITY(U,$J,358.3,14454,1,4,0)
 ;;=4^M54.50
 ;;^UTILITY(U,$J,358.3,14454,2)
 ;;=^5161215
 ;;^UTILITY(U,$J,358.3,14455,0)
 ;;=Z51.81^^56^630^17
 ;;^UTILITY(U,$J,358.3,14455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14455,1,3,0)
 ;;=3^Therapeutic Drug Level Monitoring
 ;;^UTILITY(U,$J,358.3,14455,1,4,0)
 ;;=4^Z51.81
 ;;^UTILITY(U,$J,358.3,14455,2)
 ;;=^5063064
 ;;^UTILITY(U,$J,358.3,14456,0)
 ;;=Z02.79^^56^630^11
 ;;^UTILITY(U,$J,358.3,14456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14456,1,3,0)
 ;;=3^Issue of Medical Certificate NEC
 ;;^UTILITY(U,$J,358.3,14456,1,4,0)
 ;;=4^Z02.79
 ;;^UTILITY(U,$J,358.3,14456,2)
 ;;=^5062641
 ;;^UTILITY(U,$J,358.3,14457,0)
 ;;=Z76.0^^56^630^12
 ;;^UTILITY(U,$J,358.3,14457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14457,1,3,0)
 ;;=3^Issue of Repeat Prescription
 ;;^UTILITY(U,$J,358.3,14457,1,4,0)
 ;;=4^Z76.0
 ;;^UTILITY(U,$J,358.3,14457,2)
 ;;=^5063297
 ;;^UTILITY(U,$J,358.3,14458,0)
 ;;=Z04.9^^56^630^3
 ;;^UTILITY(U,$J,358.3,14458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14458,1,3,0)
 ;;=3^Exam & Observation for Unsp Reason
 ;;^UTILITY(U,$J,358.3,14458,1,4,0)
 ;;=4^Z04.9
 ;;^UTILITY(U,$J,358.3,14458,2)
 ;;=^5062666
 ;;^UTILITY(U,$J,358.3,14459,0)
 ;;=Z02.2^^56^630^4
 ;;^UTILITY(U,$J,358.3,14459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14459,1,3,0)
 ;;=3^Exam for Admission to Residential Institution
 ;;^UTILITY(U,$J,358.3,14459,1,4,0)
 ;;=4^Z02.2
 ;;^UTILITY(U,$J,358.3,14459,2)
 ;;=^5062635
 ;;^UTILITY(U,$J,358.3,14460,0)
 ;;=Z02.4^^56^630^5
 ;;^UTILITY(U,$J,358.3,14460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14460,1,3,0)
 ;;=3^Exam for Driving License
 ;;^UTILITY(U,$J,358.3,14460,1,4,0)
 ;;=4^Z02.4
 ;;^UTILITY(U,$J,358.3,14460,2)
 ;;=^5062637
 ;;^UTILITY(U,$J,358.3,14461,0)
 ;;=Z00.5^^56^630^7
 ;;^UTILITY(U,$J,358.3,14461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14461,1,3,0)
 ;;=3^Exam of Potential Donor of Organ/Tissue
 ;;^UTILITY(U,$J,358.3,14461,1,4,0)
 ;;=4^Z00.5
 ;;^UTILITY(U,$J,358.3,14461,2)
 ;;=^5062607
 ;;^UTILITY(U,$J,358.3,14462,0)
 ;;=Z02.3^^56^630^6
 ;;^UTILITY(U,$J,358.3,14462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14462,1,3,0)
 ;;=3^Exam for Recruitment to Armed Forces
 ;;^UTILITY(U,$J,358.3,14462,1,4,0)
 ;;=4^Z02.3
 ;;^UTILITY(U,$J,358.3,14462,2)
 ;;=^5062636
 ;;^UTILITY(U,$J,358.3,14463,0)
 ;;=Z02.89^^56^630^1
 ;;^UTILITY(U,$J,358.3,14463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14463,1,3,0)
 ;;=3^Admin Exam NEC
 ;;^UTILITY(U,$J,358.3,14463,1,4,0)
 ;;=4^Z02.89
 ;;^UTILITY(U,$J,358.3,14463,2)
 ;;=^5062645
 ;;^UTILITY(U,$J,358.3,14464,0)
 ;;=Z00.8^^56^630^8
 ;;^UTILITY(U,$J,358.3,14464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14464,1,3,0)
 ;;=3^General Exam NEC
 ;;^UTILITY(U,$J,358.3,14464,1,4,0)
 ;;=4^Z00.8
 ;;^UTILITY(U,$J,358.3,14464,2)
 ;;=^5062611
 ;;^UTILITY(U,$J,358.3,14465,0)
 ;;=Z02.1^^56^630^14
 ;;^UTILITY(U,$J,358.3,14465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14465,1,3,0)
 ;;=3^Pre-Employment Exam
 ;;^UTILITY(U,$J,358.3,14465,1,4,0)
 ;;=4^Z02.1
 ;;^UTILITY(U,$J,358.3,14465,2)
 ;;=^5062634
 ;;^UTILITY(U,$J,358.3,14466,0)
 ;;=Z01.810^^56^630^2
 ;;^UTILITY(U,$J,358.3,14466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14466,1,3,0)
 ;;=3^Cardiovascular Preprocedural Exam
 ;;^UTILITY(U,$J,358.3,14466,1,4,0)
 ;;=4^Z01.810
 ;;^UTILITY(U,$J,358.3,14466,2)
 ;;=^5062625
 ;;^UTILITY(U,$J,358.3,14467,0)
 ;;=Z01.811^^56^630^16
 ;;^UTILITY(U,$J,358.3,14467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14467,1,3,0)
 ;;=3^Respiratory Preprocedural Exam
 ;;^UTILITY(U,$J,358.3,14467,1,4,0)
 ;;=4^Z01.811
 ;;^UTILITY(U,$J,358.3,14467,2)
 ;;=^5062626
 ;;^UTILITY(U,$J,358.3,14468,0)
 ;;=Z01.812^^56^630^13
 ;;^UTILITY(U,$J,358.3,14468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14468,1,3,0)
 ;;=3^Lab Preprocedural Exam
 ;;^UTILITY(U,$J,358.3,14468,1,4,0)
 ;;=4^Z01.812
 ;;^UTILITY(U,$J,358.3,14468,2)
 ;;=^5062627
 ;;^UTILITY(U,$J,358.3,14469,0)
 ;;=Z01.818^^56^630^15
 ;;^UTILITY(U,$J,358.3,14469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14469,1,3,0)
 ;;=3^Preprocedural Exam NEC
 ;;^UTILITY(U,$J,358.3,14469,1,4,0)
 ;;=4^Z01.818
 ;;^UTILITY(U,$J,358.3,14469,2)
 ;;=^5062628
 ;;^UTILITY(U,$J,358.3,14470,0)
 ;;=Z71.0^^56^630^9
 ;;^UTILITY(U,$J,358.3,14470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14470,1,3,0)
 ;;=3^Hlth Service to Consult on Behalf of Another
 ;;^UTILITY(U,$J,358.3,14470,1,4,0)
 ;;=4^Z71.0
 ;;^UTILITY(U,$J,358.3,14470,2)
 ;;=^5063242
 ;;^UTILITY(U,$J,358.3,14471,0)
 ;;=Z59.89^^56^630^10
 ;;^UTILITY(U,$J,358.3,14471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14471,1,3,0)
 ;;=3^Housing/Economic Circumstance Problems,Other
 ;;^UTILITY(U,$J,358.3,14471,1,4,0)
 ;;=4^Z59.89
 ;;^UTILITY(U,$J,358.3,14471,2)
 ;;=^5161312
 ;;^UTILITY(U,$J,358.3,14472,0)
 ;;=I20.0^^56^631^5
 ;;^UTILITY(U,$J,358.3,14472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14472,1,3,0)
 ;;=3^Unstable Angina
 ;;^UTILITY(U,$J,358.3,14472,1,4,0)
 ;;=4^I20.0
 ;;^UTILITY(U,$J,358.3,14472,2)
 ;;=^5007076
 ;;^UTILITY(U,$J,358.3,14473,0)
 ;;=I25.2^^56^631^4
 ;;^UTILITY(U,$J,358.3,14473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14473,1,3,0)
 ;;=3^Old Myocardial Infarction
 ;;^UTILITY(U,$J,358.3,14473,1,4,0)
 ;;=4^I25.2
 ;;^UTILITY(U,$J,358.3,14473,2)
 ;;=^259884
 ;;^UTILITY(U,$J,358.3,14474,0)
 ;;=I20.8^^56^631^2
 ;;^UTILITY(U,$J,358.3,14474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14474,1,3,0)
 ;;=3^Angina Pectoris,Oth Forms
 ;;^UTILITY(U,$J,358.3,14474,1,4,0)
 ;;=4^I20.8
 ;;^UTILITY(U,$J,358.3,14474,2)
 ;;=^5007078
 ;;^UTILITY(U,$J,358.3,14475,0)
 ;;=I20.1^^56^631^1
 ;;^UTILITY(U,$J,358.3,14475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14475,1,3,0)
 ;;=3^Angina Pectoris w/ Documented Spasm
 ;;^UTILITY(U,$J,358.3,14475,1,4,0)
 ;;=4^I20.1
 ;;^UTILITY(U,$J,358.3,14475,2)
 ;;=^5007077
 ;;^UTILITY(U,$J,358.3,14476,0)
 ;;=I20.9^^56^631^3
 ;;^UTILITY(U,$J,358.3,14476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14476,1,3,0)
 ;;=3^Angina Pectoris,Unspec
 ;;^UTILITY(U,$J,358.3,14476,1,4,0)
 ;;=4^I20.9
 ;;^UTILITY(U,$J,358.3,14476,2)
 ;;=^5007079
 ;;^UTILITY(U,$J,358.3,14477,0)
 ;;=I65.29^^56^632^31
 ;;^UTILITY(U,$J,358.3,14477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14477,1,3,0)
 ;;=3^Occlusion & Stenosis Unspec Carotid Artery
 ;;^UTILITY(U,$J,358.3,14477,1,4,0)
 ;;=4^I65.29
 ;;^UTILITY(U,$J,358.3,14477,2)
 ;;=^5007363
 ;;^UTILITY(U,$J,358.3,14478,0)
 ;;=I65.22^^56^632^29
 ;;^UTILITY(U,$J,358.3,14478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14478,1,3,0)
 ;;=3^Occlusion & Stenosis Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,14478,1,4,0)
 ;;=4^I65.22
 ;;^UTILITY(U,$J,358.3,14478,2)
 ;;=^5007361
 ;;^UTILITY(U,$J,358.3,14479,0)
 ;;=I65.23^^56^632^28
 ;;^UTILITY(U,$J,358.3,14479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14479,1,3,0)
 ;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
 ;;^UTILITY(U,$J,358.3,14479,1,4,0)
 ;;=4^I65.23
 ;;^UTILITY(U,$J,358.3,14479,2)
 ;;=^5007362
 ;;^UTILITY(U,$J,358.3,14480,0)
 ;;=I65.21^^56^632^30
 ;;^UTILITY(U,$J,358.3,14480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14480,1,3,0)
 ;;=3^Occlusion & Stenosis Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,14480,1,4,0)
 ;;=4^I65.21
 ;;^UTILITY(U,$J,358.3,14480,2)
 ;;=^5007360
 ;;^UTILITY(U,$J,358.3,14481,0)
 ;;=I70.219^^56^632^7
 ;;^UTILITY(U,$J,358.3,14481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14481,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
 ;;^UTILITY(U,$J,358.3,14481,1,4,0)
 ;;=4^I70.219
 ;;^UTILITY(U,$J,358.3,14481,2)
 ;;=^5007582
 ;;^UTILITY(U,$J,358.3,14482,0)
 ;;=I70.213^^56^632^8
 ;;^UTILITY(U,$J,358.3,14482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14482,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
 ;;^UTILITY(U,$J,358.3,14482,1,4,0)
 ;;=4^I70.213
 ;;^UTILITY(U,$J,358.3,14482,2)
 ;;=^5007580
 ;;^UTILITY(U,$J,358.3,14483,0)
 ;;=I70.212^^56^632^9
 ;;^UTILITY(U,$J,358.3,14483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14483,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
 ;;^UTILITY(U,$J,358.3,14483,1,4,0)
 ;;=4^I70.212
 ;;^UTILITY(U,$J,358.3,14483,2)
 ;;=^5007579
 ;;^UTILITY(U,$J,358.3,14484,0)
 ;;=I70.211^^56^632^10
 ;;^UTILITY(U,$J,358.3,14484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14484,1,3,0)
 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
 ;;^UTILITY(U,$J,358.3,14484,1,4,0)
 ;;=4^I70.211
 ;;^UTILITY(U,$J,358.3,14484,2)
 ;;=^5007578
 ;;^UTILITY(U,$J,358.3,14485,0)
 ;;=I70.25^^56^632^6
 ;;^UTILITY(U,$J,358.3,14485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14485,1,3,0)
 ;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
 ;;^UTILITY(U,$J,358.3,14485,1,4,0)
 ;;=4^I70.25
 ;;^UTILITY(U,$J,358.3,14485,2)
 ;;=^5007602
 ;;^UTILITY(U,$J,358.3,14486,0)
 ;;=I70.249^^56^632^11
 ;;^UTILITY(U,$J,358.3,14486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14486,1,3,0)
 ;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
 ;;^UTILITY(U,$J,358.3,14486,1,4,0)
 ;;=4^I70.249
 ;;^UTILITY(U,$J,358.3,14486,2)
 ;;=^5007601
 ;;^UTILITY(U,$J,358.3,14487,0)
 ;;=I70.239^^56^632^12
 ;;^UTILITY(U,$J,358.3,14487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14487,1,3,0)
 ;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
 ;;^UTILITY(U,$J,358.3,14487,1,4,0)
 ;;=4^I70.239
 ;;^UTILITY(U,$J,358.3,14487,2)
 ;;=^5007594
 ;;^UTILITY(U,$J,358.3,14488,0)
 ;;=I70.269^^56^632^13
 ;;^UTILITY(U,$J,358.3,14488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14488,1,3,0)
 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
 ;;^UTILITY(U,$J,358.3,14488,1,4,0)
 ;;=4^I70.269
 ;;^UTILITY(U,$J,358.3,14488,2)
 ;;=^5007607
 ;;^UTILITY(U,$J,358.3,14489,0)
 ;;=I70.263^^56^632^14
 ;;^UTILITY(U,$J,358.3,14489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14489,1,3,0)
 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
 ;;^UTILITY(U,$J,358.3,14489,1,4,0)
 ;;=4^I70.263
 ;;^UTILITY(U,$J,358.3,14489,2)
 ;;=^5007605
 ;;^UTILITY(U,$J,358.3,14490,0)
 ;;=I70.262^^56^632^15