IBDEI03E ; ; 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,8117,1,3,0)
;;=3^Screening,STI
;;^UTILITY(U,$J,358.3,8117,1,4,0)
;;=4^Z11.3
;;^UTILITY(U,$J,358.3,8117,2)
;;=^5062672
;;^UTILITY(U,$J,358.3,8118,0)
;;=Z13.1^^45^416^74
;;^UTILITY(U,$J,358.3,8118,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8118,1,3,0)
;;=3^Screening,Diabetes
;;^UTILITY(U,$J,358.3,8118,1,4,0)
;;=4^Z13.1
;;^UTILITY(U,$J,358.3,8118,2)
;;=^5062700
;;^UTILITY(U,$J,358.3,8119,0)
;;=M48.061^^45^416^80
;;^UTILITY(U,$J,358.3,8119,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8119,1,3,0)
;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Claudication
;;^UTILITY(U,$J,358.3,8119,1,4,0)
;;=4^M48.061
;;^UTILITY(U,$J,358.3,8119,2)
;;=^5151513
;;^UTILITY(U,$J,358.3,8120,0)
;;=M48.062^^45^416^79
;;^UTILITY(U,$J,358.3,8120,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8120,1,3,0)
;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
;;^UTILITY(U,$J,358.3,8120,1,4,0)
;;=4^M48.062
;;^UTILITY(U,$J,358.3,8120,2)
;;=^5151514
;;^UTILITY(U,$J,358.3,8121,0)
;;=Z53.21^^45^416^60
;;^UTILITY(U,$J,358.3,8121,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8121,1,3,0)
;;=3^PT left w/o being seen
;;^UTILITY(U,$J,358.3,8121,1,4,0)
;;=4^Z53.21
;;^UTILITY(U,$J,358.3,8121,2)
;;=^5063096
;;^UTILITY(U,$J,358.3,8122,0)
;;=Z78.9^^45^416^81
;;^UTILITY(U,$J,358.3,8122,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8122,1,3,0)
;;=3^Triaged to Primary Care Clinic
;;^UTILITY(U,$J,358.3,8122,1,4,0)
;;=4^Z78.9
;;^UTILITY(U,$J,358.3,8122,2)
;;=^5063329
;;^UTILITY(U,$J,358.3,8123,0)
;;=I48.20^^45^416^8
;;^UTILITY(U,$J,358.3,8123,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8123,1,3,0)
;;=3^Atrial Fibrillation,Chronic,Unspec
;;^UTILITY(U,$J,358.3,8123,1,4,0)
;;=4^I48.20
;;^UTILITY(U,$J,358.3,8123,2)
;;=^5158048
;;^UTILITY(U,$J,358.3,8124,0)
;;=M54.6^^45^416^63
;;^UTILITY(U,$J,358.3,8124,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8124,1,3,0)
;;=3^Pain in Thoracic Spine
;;^UTILITY(U,$J,358.3,8124,1,4,0)
;;=4^M54.6
;;^UTILITY(U,$J,358.3,8124,2)
;;=^272507
;;^UTILITY(U,$J,358.3,8125,0)
;;=M54.12^^45^416^66
;;^UTILITY(U,$J,358.3,8125,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8125,1,3,0)
;;=3^Radiculopathy,Cervical Region
;;^UTILITY(U,$J,358.3,8125,1,4,0)
;;=4^M54.12
;;^UTILITY(U,$J,358.3,8125,2)
;;=^5012297
;;^UTILITY(U,$J,358.3,8126,0)
;;=M54.17^^45^416^67
;;^UTILITY(U,$J,358.3,8126,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8126,1,3,0)
;;=3^Radiculopathy,Lumbosacral Region
;;^UTILITY(U,$J,358.3,8126,1,4,0)
;;=4^M54.17
;;^UTILITY(U,$J,358.3,8126,2)
;;=^5012302
;;^UTILITY(U,$J,358.3,8127,0)
;;=M54.30^^45^416^69
;;^UTILITY(U,$J,358.3,8127,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8127,1,3,0)
;;=3^Sciatica
;;^UTILITY(U,$J,358.3,8127,1,4,0)
;;=4^M54.30
;;^UTILITY(U,$J,358.3,8127,2)
;;=^5012305
;;^UTILITY(U,$J,358.3,8128,0)
;;=M48.02^^45^416^78
;;^UTILITY(U,$J,358.3,8128,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8128,1,3,0)
;;=3^Spinal Stenosis,Cervical Region
;;^UTILITY(U,$J,358.3,8128,1,4,0)
;;=4^M48.02
;;^UTILITY(U,$J,358.3,8128,2)
;;=^5012089
;;^UTILITY(U,$J,358.3,8129,0)
;;=N18.30^^45^416^11
;;^UTILITY(U,$J,358.3,8129,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8129,1,3,0)
;;=3^CKD,Stage 3 Unspec
;;^UTILITY(U,$J,358.3,8129,1,4,0)
;;=4^N18.30
;;^UTILITY(U,$J,358.3,8129,2)
;;=^5159286
;;^UTILITY(U,$J,358.3,8130,0)
;;=N18.31^^45^416^12
;;^UTILITY(U,$J,358.3,8130,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8130,1,3,0)
;;=3^CKD,Stage 3a
;;^UTILITY(U,$J,358.3,8130,1,4,0)
;;=4^N18.31
;;^UTILITY(U,$J,358.3,8130,2)
;;=^5159287
;;^UTILITY(U,$J,358.3,8131,0)
;;=N18.32^^45^416^13
;;^UTILITY(U,$J,358.3,8131,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8131,1,3,0)
;;=3^CKD,Stage 3b
;;^UTILITY(U,$J,358.3,8131,1,4,0)
;;=4^N18.32
;;^UTILITY(U,$J,358.3,8131,2)
;;=^5159288
;;^UTILITY(U,$J,358.3,8132,0)
;;=M54.50^^45^416^48
;;^UTILITY(U,$J,358.3,8132,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8132,1,3,0)
;;=3^Low Back Pain,Unspec
;;^UTILITY(U,$J,358.3,8132,1,4,0)
;;=4^M54.50
;;^UTILITY(U,$J,358.3,8132,2)
;;=^5161215
;;^UTILITY(U,$J,358.3,8133,0)
;;=Z51.81^^45^417^17
;;^UTILITY(U,$J,358.3,8133,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8133,1,3,0)
;;=3^Therapeutic Drug Level Monitoring
;;^UTILITY(U,$J,358.3,8133,1,4,0)
;;=4^Z51.81
;;^UTILITY(U,$J,358.3,8133,2)
;;=^5063064
;;^UTILITY(U,$J,358.3,8134,0)
;;=Z02.79^^45^417^11
;;^UTILITY(U,$J,358.3,8134,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8134,1,3,0)
;;=3^Issue of Medical Certificate NEC
;;^UTILITY(U,$J,358.3,8134,1,4,0)
;;=4^Z02.79
;;^UTILITY(U,$J,358.3,8134,2)
;;=^5062641
;;^UTILITY(U,$J,358.3,8135,0)
;;=Z76.0^^45^417^12
;;^UTILITY(U,$J,358.3,8135,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8135,1,3,0)
;;=3^Issue of Repeat Prescription
;;^UTILITY(U,$J,358.3,8135,1,4,0)
;;=4^Z76.0
;;^UTILITY(U,$J,358.3,8135,2)
;;=^5063297
;;^UTILITY(U,$J,358.3,8136,0)
;;=Z04.9^^45^417^3
;;^UTILITY(U,$J,358.3,8136,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8136,1,3,0)
;;=3^Exam & Observation for Unsp Reason
;;^UTILITY(U,$J,358.3,8136,1,4,0)
;;=4^Z04.9
;;^UTILITY(U,$J,358.3,8136,2)
;;=^5062666
;;^UTILITY(U,$J,358.3,8137,0)
;;=Z02.2^^45^417^4
;;^UTILITY(U,$J,358.3,8137,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8137,1,3,0)
;;=3^Exam for Admission to Residential Institution
;;^UTILITY(U,$J,358.3,8137,1,4,0)
;;=4^Z02.2
;;^UTILITY(U,$J,358.3,8137,2)
;;=^5062635
;;^UTILITY(U,$J,358.3,8138,0)
;;=Z02.4^^45^417^5
;;^UTILITY(U,$J,358.3,8138,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8138,1,3,0)
;;=3^Exam for Driving License
;;^UTILITY(U,$J,358.3,8138,1,4,0)
;;=4^Z02.4
;;^UTILITY(U,$J,358.3,8138,2)
;;=^5062637
;;^UTILITY(U,$J,358.3,8139,0)
;;=Z00.5^^45^417^7
;;^UTILITY(U,$J,358.3,8139,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8139,1,3,0)
;;=3^Exam of Potential Donor of Organ/Tissue
;;^UTILITY(U,$J,358.3,8139,1,4,0)
;;=4^Z00.5
;;^UTILITY(U,$J,358.3,8139,2)
;;=^5062607
;;^UTILITY(U,$J,358.3,8140,0)
;;=Z02.3^^45^417^6
;;^UTILITY(U,$J,358.3,8140,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8140,1,3,0)
;;=3^Exam for Recruitment to Armed Forces
;;^UTILITY(U,$J,358.3,8140,1,4,0)
;;=4^Z02.3
;;^UTILITY(U,$J,358.3,8140,2)
;;=^5062636
;;^UTILITY(U,$J,358.3,8141,0)
;;=Z02.89^^45^417^1
;;^UTILITY(U,$J,358.3,8141,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8141,1,3,0)
;;=3^Admin Exam NEC
;;^UTILITY(U,$J,358.3,8141,1,4,0)
;;=4^Z02.89
;;^UTILITY(U,$J,358.3,8141,2)
;;=^5062645
;;^UTILITY(U,$J,358.3,8142,0)
;;=Z00.8^^45^417^8
;;^UTILITY(U,$J,358.3,8142,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8142,1,3,0)
;;=3^General Exam NEC
;;^UTILITY(U,$J,358.3,8142,1,4,0)
;;=4^Z00.8
;;^UTILITY(U,$J,358.3,8142,2)
;;=^5062611
;;^UTILITY(U,$J,358.3,8143,0)
;;=Z02.1^^45^417^14
;;^UTILITY(U,$J,358.3,8143,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8143,1,3,0)
;;=3^Pre-Employment Exam
;;^UTILITY(U,$J,358.3,8143,1,4,0)
;;=4^Z02.1
;;^UTILITY(U,$J,358.3,8143,2)
;;=^5062634
;;^UTILITY(U,$J,358.3,8144,0)
;;=Z01.810^^45^417^2
;;^UTILITY(U,$J,358.3,8144,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8144,1,3,0)
;;=3^Cardiovascular Preprocedural Exam
;;^UTILITY(U,$J,358.3,8144,1,4,0)
;;=4^Z01.810
;;^UTILITY(U,$J,358.3,8144,2)
;;=^5062625
;;^UTILITY(U,$J,358.3,8145,0)
;;=Z01.811^^45^417^16
;;^UTILITY(U,$J,358.3,8145,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8145,1,3,0)
;;=3^Respiratory Preprocedural Exam
;;^UTILITY(U,$J,358.3,8145,1,4,0)
;;=4^Z01.811
;;^UTILITY(U,$J,358.3,8145,2)
;;=^5062626
;;^UTILITY(U,$J,358.3,8146,0)
;;=Z01.812^^45^417^13
;;^UTILITY(U,$J,358.3,8146,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8146,1,3,0)
;;=3^Lab Preprocedural Exam
;;^UTILITY(U,$J,358.3,8146,1,4,0)
;;=4^Z01.812
;;^UTILITY(U,$J,358.3,8146,2)
;;=^5062627
;;^UTILITY(U,$J,358.3,8147,0)
;;=Z01.818^^45^417^15
;;^UTILITY(U,$J,358.3,8147,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8147,1,3,0)
;;=3^Preprocedural Exam NEC
;;^UTILITY(U,$J,358.3,8147,1,4,0)
;;=4^Z01.818
;;^UTILITY(U,$J,358.3,8147,2)
;;=^5062628
;;^UTILITY(U,$J,358.3,8148,0)
;;=Z71.0^^45^417^9
;;^UTILITY(U,$J,358.3,8148,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8148,1,3,0)
;;=3^Hlth Service to Consult on Behalf of Another
;;^UTILITY(U,$J,358.3,8148,1,4,0)
;;=4^Z71.0
;;^UTILITY(U,$J,358.3,8148,2)
;;=^5063242
;;^UTILITY(U,$J,358.3,8149,0)
;;=Z59.89^^45^417^10
;;^UTILITY(U,$J,358.3,8149,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8149,1,3,0)
;;=3^Housing/Economic Circumstance Problems,Other
;;^UTILITY(U,$J,358.3,8149,1,4,0)
;;=4^Z59.89
;;^UTILITY(U,$J,358.3,8149,2)
;;=^5161312
;;^UTILITY(U,$J,358.3,8150,0)
;;=I20.0^^45^418^5
;;^UTILITY(U,$J,358.3,8150,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8150,1,3,0)
;;=3^Unstable Angina
;;^UTILITY(U,$J,358.3,8150,1,4,0)
;;=4^I20.0
;;^UTILITY(U,$J,358.3,8150,2)
;;=^5007076
;;^UTILITY(U,$J,358.3,8151,0)
;;=I25.2^^45^418^4
;;^UTILITY(U,$J,358.3,8151,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8151,1,3,0)
;;=3^Old Myocardial Infarction
;;^UTILITY(U,$J,358.3,8151,1,4,0)
;;=4^I25.2
;;^UTILITY(U,$J,358.3,8151,2)
;;=^259884
;;^UTILITY(U,$J,358.3,8152,0)
;;=I20.8^^45^418^2
;;^UTILITY(U,$J,358.3,8152,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8152,1,3,0)
;;=3^Angina Pectoris,Oth Forms
;;^UTILITY(U,$J,358.3,8152,1,4,0)
;;=4^I20.8
;;^UTILITY(U,$J,358.3,8152,2)
;;=^5007078
;;^UTILITY(U,$J,358.3,8153,0)
;;=I20.1^^45^418^1
;;^UTILITY(U,$J,358.3,8153,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8153,1,3,0)
;;=3^Angina Pectoris w/ Documented Spasm
;;^UTILITY(U,$J,358.3,8153,1,4,0)
;;=4^I20.1
;;^UTILITY(U,$J,358.3,8153,2)
;;=^5007077
;;^UTILITY(U,$J,358.3,8154,0)
;;=I20.9^^45^418^3
;;^UTILITY(U,$J,358.3,8154,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8154,1,3,0)
;;=3^Angina Pectoris,Unspec
;;^UTILITY(U,$J,358.3,8154,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,8154,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,8155,0)
;;=I65.29^^45^419^31
;;^UTILITY(U,$J,358.3,8155,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8155,1,3,0)
;;=3^Occlusion & Stenosis Unspec Carotid Artery
;;^UTILITY(U,$J,358.3,8155,1,4,0)
;;=4^I65.29
;;^UTILITY(U,$J,358.3,8155,2)
;;=^5007363
;;^UTILITY(U,$J,358.3,8156,0)
;;=I65.22^^45^419^29
;;^UTILITY(U,$J,358.3,8156,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8156,1,3,0)
;;=3^Occlusion & Stenosis Left Carotid Artery
;;^UTILITY(U,$J,358.3,8156,1,4,0)
;;=4^I65.22
;;^UTILITY(U,$J,358.3,8156,2)
;;=^5007361
;;^UTILITY(U,$J,358.3,8157,0)
;;=I65.23^^45^419^28
;;^UTILITY(U,$J,358.3,8157,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8157,1,3,0)
;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
;;^UTILITY(U,$J,358.3,8157,1,4,0)
;;=4^I65.23
;;^UTILITY(U,$J,358.3,8157,2)
;;=^5007362
;;^UTILITY(U,$J,358.3,8158,0)
;;=I65.21^^45^419^30
;;^UTILITY(U,$J,358.3,8158,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8158,1,3,0)
;;=3^Occlusion & Stenosis Right Carotid Artery
;;^UTILITY(U,$J,358.3,8158,1,4,0)
;;=4^I65.21
;;^UTILITY(U,$J,358.3,8158,2)
;;=^5007360
;;^UTILITY(U,$J,358.3,8159,0)
;;=I70.219^^45^419^7
;;^UTILITY(U,$J,358.3,8159,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8159,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
;;^UTILITY(U,$J,358.3,8159,1,4,0)
;;=4^I70.219
;;^UTILITY(U,$J,358.3,8159,2)
;;=^5007582
;;^UTILITY(U,$J,358.3,8160,0)
;;=I70.213^^45^419^8
;;^UTILITY(U,$J,358.3,8160,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8160,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
;;^UTILITY(U,$J,358.3,8160,1,4,0)
;;=4^I70.213
;;^UTILITY(U,$J,358.3,8160,2)
;;=^5007580
;;^UTILITY(U,$J,358.3,8161,0)
;;=I70.212^^45^419^9
;;^UTILITY(U,$J,358.3,8161,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8161,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
;;^UTILITY(U,$J,358.3,8161,1,4,0)
;;=4^I70.212
;;^UTILITY(U,$J,358.3,8161,2)
;;=^5007579
;;^UTILITY(U,$J,358.3,8162,0)
;;=I70.211^^45^419^10
;;^UTILITY(U,$J,358.3,8162,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8162,1,3,0)
;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
;;^UTILITY(U,$J,358.3,8162,1,4,0)
;;=4^I70.211
;;^UTILITY(U,$J,358.3,8162,2)
;;=^5007578
;;^UTILITY(U,$J,358.3,8163,0)
;;=I70.25^^45^419^6
;;^UTILITY(U,$J,358.3,8163,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8163,1,3,0)
;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
;;^UTILITY(U,$J,358.3,8163,1,4,0)
;;=4^I70.25
;;^UTILITY(U,$J,358.3,8163,2)
;;=^5007602
;;^UTILITY(U,$J,358.3,8164,0)
;;=I70.249^^45^419^11
;;^UTILITY(U,$J,358.3,8164,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8164,1,3,0)
;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
;;^UTILITY(U,$J,358.3,8164,1,4,0)
;;=4^I70.249
;;^UTILITY(U,$J,358.3,8164,2)
;;=^5007601
;;^UTILITY(U,$J,358.3,8165,0)
;;=I70.239^^45^419^12
;;^UTILITY(U,$J,358.3,8165,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8165,1,3,0)
;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
;;^UTILITY(U,$J,358.3,8165,1,4,0)
;;=4^I70.239
;;^UTILITY(U,$J,358.3,8165,2)
;;=^5007594
;;^UTILITY(U,$J,358.3,8166,0)
;;=I70.269^^45^419^13
;;^UTILITY(U,$J,358.3,8166,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8166,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
;;^UTILITY(U,$J,358.3,8166,1,4,0)
;;=4^I70.269
;;^UTILITY(U,$J,358.3,8166,2)
;;=^5007607
;;^UTILITY(U,$J,358.3,8167,0)
;;=I70.263^^45^419^14
;;^UTILITY(U,$J,358.3,8167,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8167,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
;;^UTILITY(U,$J,358.3,8167,1,4,0)
;;=4^I70.263
;;^UTILITY(U,$J,358.3,8167,2)
;;=^5007605
;;^UTILITY(U,$J,358.3,8168,0)
;;=I70.262^^45^419^15
;;^UTILITY(U,$J,358.3,8168,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8168,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Left Leg
;;^UTILITY(U,$J,358.3,8168,1,4,0)
;;=4^I70.262
;;^UTILITY(U,$J,358.3,8168,2)
;;=^5007604
;;^UTILITY(U,$J,358.3,8169,0)
;;=I70.261^^45^419^16
;;^UTILITY(U,$J,358.3,8169,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8169,1,3,0)
;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Right Leg
;;^UTILITY(U,$J,358.3,8169,1,4,0)
;;=4^I70.261
;;^UTILITY(U,$J,358.3,8169,2)
;;=^5007603
;;^UTILITY(U,$J,358.3,8170,0)
;;=I71.2^^45^419^34
;;^UTILITY(U,$J,358.3,8170,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8170,1,3,0)
;;=3^Thoracic Aortic Aneurysm w/o Rupture
;;^UTILITY(U,$J,358.3,8170,1,4,0)
;;=4^I71.2
;;^UTILITY(U,$J,358.3,8170,2)
;;=^5007787
;;^UTILITY(U,$J,358.3,8171,0)
;;=I71.4^^45^419^1
;;^UTILITY(U,$J,358.3,8171,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8171,1,3,0)
;;=3^Abdominal Aortic Aneurysm w/o Rupture
;;^UTILITY(U,$J,358.3,8171,1,4,0)
;;=4^I71.4
;;^UTILITY(U,$J,358.3,8171,2)
;;=^5007789
;;^UTILITY(U,$J,358.3,8172,0)
;;=I73.9^^45^419^32
;;^UTILITY(U,$J,358.3,8172,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8172,1,3,0)
;;=3^Peripheral Vascular Disease,Unspec
;;^UTILITY(U,$J,358.3,8172,1,4,0)
;;=4^I73.9
;;^UTILITY(U,$J,358.3,8172,2)
;;=^184182
;;^UTILITY(U,$J,358.3,8173,0)
;;=I82.891^^45^419^23
;;^UTILITY(U,$J,358.3,8173,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8173,1,3,0)
;;=3^Embolism/Thrombosis Oth Spec Veins,Chronic
;;^UTILITY(U,$J,358.3,8173,1,4,0)
;;=4^I82.891
;;^UTILITY(U,$J,358.3,8173,2)
;;=^5007939
;;^UTILITY(U,$J,358.3,8174,0)
;;=I82.890^^45^419^22
;;^UTILITY(U,$J,358.3,8174,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8174,1,3,0)
;;=3^Embolism/Thrombosis Oth Spec Veins,Acute
;;^UTILITY(U,$J,358.3,8174,1,4,0)
;;=4^I82.890
;;^UTILITY(U,$J,358.3,8174,2)
;;=^5007938
;;^UTILITY(U,$J,358.3,8175,0)
;;=I25.729^^45^419^2
;;^UTILITY(U,$J,358.3,8175,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8175,1,3,0)
;;=3^Athscl Autologous Artery CABG w/ Unspec Angina Pectoris
;;^UTILITY(U,$J,358.3,8175,1,4,0)
;;=4^I25.729
;;^UTILITY(U,$J,358.3,8175,2)
;;=^5133561
;;^UTILITY(U,$J,358.3,8176,0)
;;=I25.119^^45^419^3
;;^UTILITY(U,$J,358.3,8176,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8176,1,3,0)
;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
;;^UTILITY(U,$J,358.3,8176,1,4,0)
;;=4^I25.119
;;^UTILITY(U,$J,358.3,8176,2)
;;=^5007111
;;^UTILITY(U,$J,358.3,8177,0)
;;=I25.10^^45^419^4
;;^UTILITY(U,$J,358.3,8177,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8177,1,3,0)
;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
;;^UTILITY(U,$J,358.3,8177,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,8177,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,8178,0)
;;=I25.110^^45^419^5
;;^UTILITY(U,$J,358.3,8178,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8178,1,3,0)
;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
;;^UTILITY(U,$J,358.3,8178,1,4,0)
;;=4^I25.110
;;^UTILITY(U,$J,358.3,8178,2)
;;=^5007108
;;^UTILITY(U,$J,358.3,8179,0)
;;=I25.810^^45^419^17
;;^UTILITY(U,$J,358.3,8179,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8179,1,3,0)
;;=3^Athscl of CABG w/o Angina Pectoris
;;^UTILITY(U,$J,358.3,8179,1,4,0)
;;=4^I25.810
;;^UTILITY(U,$J,358.3,8179,2)
;;=^5007141
;;^UTILITY(U,$J,358.3,8180,0)
;;=I25.701^^45^419^18
;;^UTILITY(U,$J,358.3,8180,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8180,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
;;^UTILITY(U,$J,358.3,8180,1,4,0)
;;=4^I25.701
;;^UTILITY(U,$J,358.3,8180,2)
;;=^5007118
;;^UTILITY(U,$J,358.3,8181,0)
;;=I25.708^^45^419^19
;;^UTILITY(U,$J,358.3,8181,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8181,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
;;^UTILITY(U,$J,358.3,8181,1,4,0)
;;=4^I25.708
;;^UTILITY(U,$J,358.3,8181,2)
;;=^5007119
;;^UTILITY(U,$J,358.3,8182,0)
;;=I25.709^^45^419^20
;;^UTILITY(U,$J,358.3,8182,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8182,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
;;^UTILITY(U,$J,358.3,8182,1,4,0)
;;=4^I25.709
;;^UTILITY(U,$J,358.3,8182,2)
;;=^5007120
;;^UTILITY(U,$J,358.3,8183,0)
;;=I25.700^^45^419^21
;;^UTILITY(U,$J,358.3,8183,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8183,1,3,0)
;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
;;^UTILITY(U,$J,358.3,8183,1,4,0)
;;=4^I25.700
;;^UTILITY(U,$J,358.3,8183,2)
;;=^5007117
;;^UTILITY(U,$J,358.3,8184,0)
;;=I82.469^^45^419^24
;;^UTILITY(U,$J,358.3,8184,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8184,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
;;^UTILITY(U,$J,358.3,8184,1,4,0)
;;=4^I82.469
;;^UTILITY(U,$J,358.3,8184,2)
;;=^5158066
;;^UTILITY(U,$J,358.3,8185,0)
;;=I82.569^^45^419^25
;;^UTILITY(U,$J,358.3,8185,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,8185,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
;;^UTILITY(U,$J,358.3,8185,1,4,0)
;;=4^I82.569
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI03E 19752 printed Dec 13, 2024@01:40:50 Page 2
IBDEI03E ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,8117,1,3,0)
+2 ;;=3^Screening,STI
+3 ;;^UTILITY(U,$J,358.3,8117,1,4,0)
+4 ;;=4^Z11.3
+5 ;;^UTILITY(U,$J,358.3,8117,2)
+6 ;;=^5062672
+7 ;;^UTILITY(U,$J,358.3,8118,0)
+8 ;;=Z13.1^^45^416^74
+9 ;;^UTILITY(U,$J,358.3,8118,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,8118,1,3,0)
+12 ;;=3^Screening,Diabetes
+13 ;;^UTILITY(U,$J,358.3,8118,1,4,0)
+14 ;;=4^Z13.1
+15 ;;^UTILITY(U,$J,358.3,8118,2)
+16 ;;=^5062700
+17 ;;^UTILITY(U,$J,358.3,8119,0)
+18 ;;=M48.061^^45^416^80
+19 ;;^UTILITY(U,$J,358.3,8119,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,8119,1,3,0)
+22 ;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Claudication
+23 ;;^UTILITY(U,$J,358.3,8119,1,4,0)
+24 ;;=4^M48.061
+25 ;;^UTILITY(U,$J,358.3,8119,2)
+26 ;;=^5151513
+27 ;;^UTILITY(U,$J,358.3,8120,0)
+28 ;;=M48.062^^45^416^79
+29 ;;^UTILITY(U,$J,358.3,8120,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,8120,1,3,0)
+32 ;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
+33 ;;^UTILITY(U,$J,358.3,8120,1,4,0)
+34 ;;=4^M48.062
+35 ;;^UTILITY(U,$J,358.3,8120,2)
+36 ;;=^5151514
+37 ;;^UTILITY(U,$J,358.3,8121,0)
+38 ;;=Z53.21^^45^416^60
+39 ;;^UTILITY(U,$J,358.3,8121,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,8121,1,3,0)
+42 ;;=3^PT left w/o being seen
+43 ;;^UTILITY(U,$J,358.3,8121,1,4,0)
+44 ;;=4^Z53.21
+45 ;;^UTILITY(U,$J,358.3,8121,2)
+46 ;;=^5063096
+47 ;;^UTILITY(U,$J,358.3,8122,0)
+48 ;;=Z78.9^^45^416^81
+49 ;;^UTILITY(U,$J,358.3,8122,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,8122,1,3,0)
+52 ;;=3^Triaged to Primary Care Clinic
+53 ;;^UTILITY(U,$J,358.3,8122,1,4,0)
+54 ;;=4^Z78.9
+55 ;;^UTILITY(U,$J,358.3,8122,2)
+56 ;;=^5063329
+57 ;;^UTILITY(U,$J,358.3,8123,0)
+58 ;;=I48.20^^45^416^8
+59 ;;^UTILITY(U,$J,358.3,8123,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,8123,1,3,0)
+62 ;;=3^Atrial Fibrillation,Chronic,Unspec
+63 ;;^UTILITY(U,$J,358.3,8123,1,4,0)
+64 ;;=4^I48.20
+65 ;;^UTILITY(U,$J,358.3,8123,2)
+66 ;;=^5158048
+67 ;;^UTILITY(U,$J,358.3,8124,0)
+68 ;;=M54.6^^45^416^63
+69 ;;^UTILITY(U,$J,358.3,8124,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,8124,1,3,0)
+72 ;;=3^Pain in Thoracic Spine
+73 ;;^UTILITY(U,$J,358.3,8124,1,4,0)
+74 ;;=4^M54.6
+75 ;;^UTILITY(U,$J,358.3,8124,2)
+76 ;;=^272507
+77 ;;^UTILITY(U,$J,358.3,8125,0)
+78 ;;=M54.12^^45^416^66
+79 ;;^UTILITY(U,$J,358.3,8125,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,8125,1,3,0)
+82 ;;=3^Radiculopathy,Cervical Region
+83 ;;^UTILITY(U,$J,358.3,8125,1,4,0)
+84 ;;=4^M54.12
+85 ;;^UTILITY(U,$J,358.3,8125,2)
+86 ;;=^5012297
+87 ;;^UTILITY(U,$J,358.3,8126,0)
+88 ;;=M54.17^^45^416^67
+89 ;;^UTILITY(U,$J,358.3,8126,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,8126,1,3,0)
+92 ;;=3^Radiculopathy,Lumbosacral Region
+93 ;;^UTILITY(U,$J,358.3,8126,1,4,0)
+94 ;;=4^M54.17
+95 ;;^UTILITY(U,$J,358.3,8126,2)
+96 ;;=^5012302
+97 ;;^UTILITY(U,$J,358.3,8127,0)
+98 ;;=M54.30^^45^416^69
+99 ;;^UTILITY(U,$J,358.3,8127,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,8127,1,3,0)
+102 ;;=3^Sciatica
+103 ;;^UTILITY(U,$J,358.3,8127,1,4,0)
+104 ;;=4^M54.30
+105 ;;^UTILITY(U,$J,358.3,8127,2)
+106 ;;=^5012305
+107 ;;^UTILITY(U,$J,358.3,8128,0)
+108 ;;=M48.02^^45^416^78
+109 ;;^UTILITY(U,$J,358.3,8128,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,8128,1,3,0)
+112 ;;=3^Spinal Stenosis,Cervical Region
+113 ;;^UTILITY(U,$J,358.3,8128,1,4,0)
+114 ;;=4^M48.02
+115 ;;^UTILITY(U,$J,358.3,8128,2)
+116 ;;=^5012089
+117 ;;^UTILITY(U,$J,358.3,8129,0)
+118 ;;=N18.30^^45^416^11
+119 ;;^UTILITY(U,$J,358.3,8129,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,8129,1,3,0)
+122 ;;=3^CKD,Stage 3 Unspec
+123 ;;^UTILITY(U,$J,358.3,8129,1,4,0)
+124 ;;=4^N18.30
+125 ;;^UTILITY(U,$J,358.3,8129,2)
+126 ;;=^5159286
+127 ;;^UTILITY(U,$J,358.3,8130,0)
+128 ;;=N18.31^^45^416^12
+129 ;;^UTILITY(U,$J,358.3,8130,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,8130,1,3,0)
+132 ;;=3^CKD,Stage 3a
+133 ;;^UTILITY(U,$J,358.3,8130,1,4,0)
+134 ;;=4^N18.31
+135 ;;^UTILITY(U,$J,358.3,8130,2)
+136 ;;=^5159287
+137 ;;^UTILITY(U,$J,358.3,8131,0)
+138 ;;=N18.32^^45^416^13
+139 ;;^UTILITY(U,$J,358.3,8131,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,8131,1,3,0)
+142 ;;=3^CKD,Stage 3b
+143 ;;^UTILITY(U,$J,358.3,8131,1,4,0)
+144 ;;=4^N18.32
+145 ;;^UTILITY(U,$J,358.3,8131,2)
+146 ;;=^5159288
+147 ;;^UTILITY(U,$J,358.3,8132,0)
+148 ;;=M54.50^^45^416^48
+149 ;;^UTILITY(U,$J,358.3,8132,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,8132,1,3,0)
+152 ;;=3^Low Back Pain,Unspec
+153 ;;^UTILITY(U,$J,358.3,8132,1,4,0)
+154 ;;=4^M54.50
+155 ;;^UTILITY(U,$J,358.3,8132,2)
+156 ;;=^5161215
+157 ;;^UTILITY(U,$J,358.3,8133,0)
+158 ;;=Z51.81^^45^417^17
+159 ;;^UTILITY(U,$J,358.3,8133,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,8133,1,3,0)
+162 ;;=3^Therapeutic Drug Level Monitoring
+163 ;;^UTILITY(U,$J,358.3,8133,1,4,0)
+164 ;;=4^Z51.81
+165 ;;^UTILITY(U,$J,358.3,8133,2)
+166 ;;=^5063064
+167 ;;^UTILITY(U,$J,358.3,8134,0)
+168 ;;=Z02.79^^45^417^11
+169 ;;^UTILITY(U,$J,358.3,8134,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,8134,1,3,0)
+172 ;;=3^Issue of Medical Certificate NEC
+173 ;;^UTILITY(U,$J,358.3,8134,1,4,0)
+174 ;;=4^Z02.79
+175 ;;^UTILITY(U,$J,358.3,8134,2)
+176 ;;=^5062641
+177 ;;^UTILITY(U,$J,358.3,8135,0)
+178 ;;=Z76.0^^45^417^12
+179 ;;^UTILITY(U,$J,358.3,8135,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,8135,1,3,0)
+182 ;;=3^Issue of Repeat Prescription
+183 ;;^UTILITY(U,$J,358.3,8135,1,4,0)
+184 ;;=4^Z76.0
+185 ;;^UTILITY(U,$J,358.3,8135,2)
+186 ;;=^5063297
+187 ;;^UTILITY(U,$J,358.3,8136,0)
+188 ;;=Z04.9^^45^417^3
+189 ;;^UTILITY(U,$J,358.3,8136,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,8136,1,3,0)
+192 ;;=3^Exam & Observation for Unsp Reason
+193 ;;^UTILITY(U,$J,358.3,8136,1,4,0)
+194 ;;=4^Z04.9
+195 ;;^UTILITY(U,$J,358.3,8136,2)
+196 ;;=^5062666
+197 ;;^UTILITY(U,$J,358.3,8137,0)
+198 ;;=Z02.2^^45^417^4
+199 ;;^UTILITY(U,$J,358.3,8137,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,8137,1,3,0)
+202 ;;=3^Exam for Admission to Residential Institution
+203 ;;^UTILITY(U,$J,358.3,8137,1,4,0)
+204 ;;=4^Z02.2
+205 ;;^UTILITY(U,$J,358.3,8137,2)
+206 ;;=^5062635
+207 ;;^UTILITY(U,$J,358.3,8138,0)
+208 ;;=Z02.4^^45^417^5
+209 ;;^UTILITY(U,$J,358.3,8138,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,8138,1,3,0)
+212 ;;=3^Exam for Driving License
+213 ;;^UTILITY(U,$J,358.3,8138,1,4,0)
+214 ;;=4^Z02.4
+215 ;;^UTILITY(U,$J,358.3,8138,2)
+216 ;;=^5062637
+217 ;;^UTILITY(U,$J,358.3,8139,0)
+218 ;;=Z00.5^^45^417^7
+219 ;;^UTILITY(U,$J,358.3,8139,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,8139,1,3,0)
+222 ;;=3^Exam of Potential Donor of Organ/Tissue
+223 ;;^UTILITY(U,$J,358.3,8139,1,4,0)
+224 ;;=4^Z00.5
+225 ;;^UTILITY(U,$J,358.3,8139,2)
+226 ;;=^5062607
+227 ;;^UTILITY(U,$J,358.3,8140,0)
+228 ;;=Z02.3^^45^417^6
+229 ;;^UTILITY(U,$J,358.3,8140,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,8140,1,3,0)
+232 ;;=3^Exam for Recruitment to Armed Forces
+233 ;;^UTILITY(U,$J,358.3,8140,1,4,0)
+234 ;;=4^Z02.3
+235 ;;^UTILITY(U,$J,358.3,8140,2)
+236 ;;=^5062636
+237 ;;^UTILITY(U,$J,358.3,8141,0)
+238 ;;=Z02.89^^45^417^1
+239 ;;^UTILITY(U,$J,358.3,8141,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,8141,1,3,0)
+242 ;;=3^Admin Exam NEC
+243 ;;^UTILITY(U,$J,358.3,8141,1,4,0)
+244 ;;=4^Z02.89
+245 ;;^UTILITY(U,$J,358.3,8141,2)
+246 ;;=^5062645
+247 ;;^UTILITY(U,$J,358.3,8142,0)
+248 ;;=Z00.8^^45^417^8
+249 ;;^UTILITY(U,$J,358.3,8142,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,8142,1,3,0)
+252 ;;=3^General Exam NEC
+253 ;;^UTILITY(U,$J,358.3,8142,1,4,0)
+254 ;;=4^Z00.8
+255 ;;^UTILITY(U,$J,358.3,8142,2)
+256 ;;=^5062611
+257 ;;^UTILITY(U,$J,358.3,8143,0)
+258 ;;=Z02.1^^45^417^14
+259 ;;^UTILITY(U,$J,358.3,8143,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,8143,1,3,0)
+262 ;;=3^Pre-Employment Exam
+263 ;;^UTILITY(U,$J,358.3,8143,1,4,0)
+264 ;;=4^Z02.1
+265 ;;^UTILITY(U,$J,358.3,8143,2)
+266 ;;=^5062634
+267 ;;^UTILITY(U,$J,358.3,8144,0)
+268 ;;=Z01.810^^45^417^2
+269 ;;^UTILITY(U,$J,358.3,8144,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,8144,1,3,0)
+272 ;;=3^Cardiovascular Preprocedural Exam
+273 ;;^UTILITY(U,$J,358.3,8144,1,4,0)
+274 ;;=4^Z01.810
+275 ;;^UTILITY(U,$J,358.3,8144,2)
+276 ;;=^5062625
+277 ;;^UTILITY(U,$J,358.3,8145,0)
+278 ;;=Z01.811^^45^417^16
+279 ;;^UTILITY(U,$J,358.3,8145,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,8145,1,3,0)
+282 ;;=3^Respiratory Preprocedural Exam
+283 ;;^UTILITY(U,$J,358.3,8145,1,4,0)
+284 ;;=4^Z01.811
+285 ;;^UTILITY(U,$J,358.3,8145,2)
+286 ;;=^5062626
+287 ;;^UTILITY(U,$J,358.3,8146,0)
+288 ;;=Z01.812^^45^417^13
+289 ;;^UTILITY(U,$J,358.3,8146,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,8146,1,3,0)
+292 ;;=3^Lab Preprocedural Exam
+293 ;;^UTILITY(U,$J,358.3,8146,1,4,0)
+294 ;;=4^Z01.812
+295 ;;^UTILITY(U,$J,358.3,8146,2)
+296 ;;=^5062627
+297 ;;^UTILITY(U,$J,358.3,8147,0)
+298 ;;=Z01.818^^45^417^15
+299 ;;^UTILITY(U,$J,358.3,8147,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,8147,1,3,0)
+302 ;;=3^Preprocedural Exam NEC
+303 ;;^UTILITY(U,$J,358.3,8147,1,4,0)
+304 ;;=4^Z01.818
+305 ;;^UTILITY(U,$J,358.3,8147,2)
+306 ;;=^5062628
+307 ;;^UTILITY(U,$J,358.3,8148,0)
+308 ;;=Z71.0^^45^417^9
+309 ;;^UTILITY(U,$J,358.3,8148,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,8148,1,3,0)
+312 ;;=3^Hlth Service to Consult on Behalf of Another
+313 ;;^UTILITY(U,$J,358.3,8148,1,4,0)
+314 ;;=4^Z71.0
+315 ;;^UTILITY(U,$J,358.3,8148,2)
+316 ;;=^5063242
+317 ;;^UTILITY(U,$J,358.3,8149,0)
+318 ;;=Z59.89^^45^417^10
+319 ;;^UTILITY(U,$J,358.3,8149,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,8149,1,3,0)
+322 ;;=3^Housing/Economic Circumstance Problems,Other
+323 ;;^UTILITY(U,$J,358.3,8149,1,4,0)
+324 ;;=4^Z59.89
+325 ;;^UTILITY(U,$J,358.3,8149,2)
+326 ;;=^5161312
+327 ;;^UTILITY(U,$J,358.3,8150,0)
+328 ;;=I20.0^^45^418^5
+329 ;;^UTILITY(U,$J,358.3,8150,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,8150,1,3,0)
+332 ;;=3^Unstable Angina
+333 ;;^UTILITY(U,$J,358.3,8150,1,4,0)
+334 ;;=4^I20.0
+335 ;;^UTILITY(U,$J,358.3,8150,2)
+336 ;;=^5007076
+337 ;;^UTILITY(U,$J,358.3,8151,0)
+338 ;;=I25.2^^45^418^4
+339 ;;^UTILITY(U,$J,358.3,8151,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,8151,1,3,0)
+342 ;;=3^Old Myocardial Infarction
+343 ;;^UTILITY(U,$J,358.3,8151,1,4,0)
+344 ;;=4^I25.2
+345 ;;^UTILITY(U,$J,358.3,8151,2)
+346 ;;=^259884
+347 ;;^UTILITY(U,$J,358.3,8152,0)
+348 ;;=I20.8^^45^418^2
+349 ;;^UTILITY(U,$J,358.3,8152,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,8152,1,3,0)
+352 ;;=3^Angina Pectoris,Oth Forms
+353 ;;^UTILITY(U,$J,358.3,8152,1,4,0)
+354 ;;=4^I20.8
+355 ;;^UTILITY(U,$J,358.3,8152,2)
+356 ;;=^5007078
+357 ;;^UTILITY(U,$J,358.3,8153,0)
+358 ;;=I20.1^^45^418^1
+359 ;;^UTILITY(U,$J,358.3,8153,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,8153,1,3,0)
+362 ;;=3^Angina Pectoris w/ Documented Spasm
+363 ;;^UTILITY(U,$J,358.3,8153,1,4,0)
+364 ;;=4^I20.1
+365 ;;^UTILITY(U,$J,358.3,8153,2)
+366 ;;=^5007077
+367 ;;^UTILITY(U,$J,358.3,8154,0)
+368 ;;=I20.9^^45^418^3
+369 ;;^UTILITY(U,$J,358.3,8154,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,8154,1,3,0)
+372 ;;=3^Angina Pectoris,Unspec
+373 ;;^UTILITY(U,$J,358.3,8154,1,4,0)
+374 ;;=4^I20.9
+375 ;;^UTILITY(U,$J,358.3,8154,2)
+376 ;;=^5007079
+377 ;;^UTILITY(U,$J,358.3,8155,0)
+378 ;;=I65.29^^45^419^31
+379 ;;^UTILITY(U,$J,358.3,8155,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,8155,1,3,0)
+382 ;;=3^Occlusion & Stenosis Unspec Carotid Artery
+383 ;;^UTILITY(U,$J,358.3,8155,1,4,0)
+384 ;;=4^I65.29
+385 ;;^UTILITY(U,$J,358.3,8155,2)
+386 ;;=^5007363
+387 ;;^UTILITY(U,$J,358.3,8156,0)
+388 ;;=I65.22^^45^419^29
+389 ;;^UTILITY(U,$J,358.3,8156,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,8156,1,3,0)
+392 ;;=3^Occlusion & Stenosis Left Carotid Artery
+393 ;;^UTILITY(U,$J,358.3,8156,1,4,0)
+394 ;;=4^I65.22
+395 ;;^UTILITY(U,$J,358.3,8156,2)
+396 ;;=^5007361
+397 ;;^UTILITY(U,$J,358.3,8157,0)
+398 ;;=I65.23^^45^419^28
+399 ;;^UTILITY(U,$J,358.3,8157,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,8157,1,3,0)
+402 ;;=3^Occlusion & Stenosis Bilateral Carotid Arteries
+403 ;;^UTILITY(U,$J,358.3,8157,1,4,0)
+404 ;;=4^I65.23
+405 ;;^UTILITY(U,$J,358.3,8157,2)
+406 ;;=^5007362
+407 ;;^UTILITY(U,$J,358.3,8158,0)
+408 ;;=I65.21^^45^419^30
+409 ;;^UTILITY(U,$J,358.3,8158,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,8158,1,3,0)
+412 ;;=3^Occlusion & Stenosis Right Carotid Artery
+413 ;;^UTILITY(U,$J,358.3,8158,1,4,0)
+414 ;;=4^I65.21
+415 ;;^UTILITY(U,$J,358.3,8158,2)
+416 ;;=^5007360
+417 ;;^UTILITY(U,$J,358.3,8159,0)
+418 ;;=I70.219^^45^419^7
+419 ;;^UTILITY(U,$J,358.3,8159,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,8159,1,3,0)
+422 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Unspec Extrm
+423 ;;^UTILITY(U,$J,358.3,8159,1,4,0)
+424 ;;=4^I70.219
+425 ;;^UTILITY(U,$J,358.3,8159,2)
+426 ;;=^5007582
+427 ;;^UTILITY(U,$J,358.3,8160,0)
+428 ;;=I70.213^^45^419^8
+429 ;;^UTILITY(U,$J,358.3,8160,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,8160,1,3,0)
+432 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Bilat Legs
+433 ;;^UTILITY(U,$J,358.3,8160,1,4,0)
+434 ;;=4^I70.213
+435 ;;^UTILITY(U,$J,358.3,8160,2)
+436 ;;=^5007580
+437 ;;^UTILITY(U,$J,358.3,8161,0)
+438 ;;=I70.212^^45^419^9
+439 ;;^UTILITY(U,$J,358.3,8161,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,8161,1,3,0)
+442 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Left Leg
+443 ;;^UTILITY(U,$J,358.3,8161,1,4,0)
+444 ;;=4^I70.212
+445 ;;^UTILITY(U,$J,358.3,8161,2)
+446 ;;=^5007579
+447 ;;^UTILITY(U,$J,358.3,8162,0)
+448 ;;=I70.211^^45^419^10
+449 ;;^UTILITY(U,$J,358.3,8162,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,8162,1,3,0)
+452 ;;=3^Athscl Native Arteries of Extrm w/ Intrmt Claud,Right Leg
+453 ;;^UTILITY(U,$J,358.3,8162,1,4,0)
+454 ;;=4^I70.211
+455 ;;^UTILITY(U,$J,358.3,8162,2)
+456 ;;=^5007578
+457 ;;^UTILITY(U,$J,358.3,8163,0)
+458 ;;=I70.25^^45^419^6
+459 ;;^UTILITY(U,$J,358.3,8163,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,8163,1,3,0)
+462 ;;=3^Athscl Native Arteries of Extremitis w/ Ulceration
+463 ;;^UTILITY(U,$J,358.3,8163,1,4,0)
+464 ;;=4^I70.25
+465 ;;^UTILITY(U,$J,358.3,8163,2)
+466 ;;=^5007602
+467 ;;^UTILITY(U,$J,358.3,8164,0)
+468 ;;=I70.249^^45^419^11
+469 ;;^UTILITY(U,$J,358.3,8164,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,8164,1,3,0)
+472 ;;=3^Athscl Natv Art of Lt Leg w/ Ulceration of Unspec Site
+473 ;;^UTILITY(U,$J,358.3,8164,1,4,0)
+474 ;;=4^I70.249
+475 ;;^UTILITY(U,$J,358.3,8164,2)
+476 ;;=^5007601
+477 ;;^UTILITY(U,$J,358.3,8165,0)
+478 ;;=I70.239^^45^419^12
+479 ;;^UTILITY(U,$J,358.3,8165,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,8165,1,3,0)
+482 ;;=3^Athscl Natv Art of Rt Leg w/ Ulcer of Unspec Site
+483 ;;^UTILITY(U,$J,358.3,8165,1,4,0)
+484 ;;=4^I70.239
+485 ;;^UTILITY(U,$J,358.3,8165,2)
+486 ;;=^5007594
+487 ;;^UTILITY(U,$J,358.3,8166,0)
+488 ;;=I70.269^^45^419^13
+489 ;;^UTILITY(U,$J,358.3,8166,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,8166,1,3,0)
+492 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Unspec Extremity
+493 ;;^UTILITY(U,$J,358.3,8166,1,4,0)
+494 ;;=4^I70.269
+495 ;;^UTILITY(U,$J,358.3,8166,2)
+496 ;;=^5007607
+497 ;;^UTILITY(U,$J,358.3,8167,0)
+498 ;;=I70.263^^45^419^14
+499 ;;^UTILITY(U,$J,358.3,8167,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,8167,1,3,0)
+502 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Bilateral Legs
+503 ;;^UTILITY(U,$J,358.3,8167,1,4,0)
+504 ;;=4^I70.263
+505 ;;^UTILITY(U,$J,358.3,8167,2)
+506 ;;=^5007605
+507 ;;^UTILITY(U,$J,358.3,8168,0)
+508 ;;=I70.262^^45^419^15
+509 ;;^UTILITY(U,$J,358.3,8168,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,8168,1,3,0)
+512 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Left Leg
+513 ;;^UTILITY(U,$J,358.3,8168,1,4,0)
+514 ;;=4^I70.262
+515 ;;^UTILITY(U,$J,358.3,8168,2)
+516 ;;=^5007604
+517 ;;^UTILITY(U,$J,358.3,8169,0)
+518 ;;=I70.261^^45^419^16
+519 ;;^UTILITY(U,$J,358.3,8169,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,8169,1,3,0)
+522 ;;=3^Athscl Natv Arteries of Extrm w/ Gangrene,Right Leg
+523 ;;^UTILITY(U,$J,358.3,8169,1,4,0)
+524 ;;=4^I70.261
+525 ;;^UTILITY(U,$J,358.3,8169,2)
+526 ;;=^5007603
+527 ;;^UTILITY(U,$J,358.3,8170,0)
+528 ;;=I71.2^^45^419^34
+529 ;;^UTILITY(U,$J,358.3,8170,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,8170,1,3,0)
+532 ;;=3^Thoracic Aortic Aneurysm w/o Rupture
+533 ;;^UTILITY(U,$J,358.3,8170,1,4,0)
+534 ;;=4^I71.2
+535 ;;^UTILITY(U,$J,358.3,8170,2)
+536 ;;=^5007787
+537 ;;^UTILITY(U,$J,358.3,8171,0)
+538 ;;=I71.4^^45^419^1
+539 ;;^UTILITY(U,$J,358.3,8171,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,8171,1,3,0)
+542 ;;=3^Abdominal Aortic Aneurysm w/o Rupture
+543 ;;^UTILITY(U,$J,358.3,8171,1,4,0)
+544 ;;=4^I71.4
+545 ;;^UTILITY(U,$J,358.3,8171,2)
+546 ;;=^5007789
+547 ;;^UTILITY(U,$J,358.3,8172,0)
+548 ;;=I73.9^^45^419^32
+549 ;;^UTILITY(U,$J,358.3,8172,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,8172,1,3,0)
+552 ;;=3^Peripheral Vascular Disease,Unspec
+553 ;;^UTILITY(U,$J,358.3,8172,1,4,0)
+554 ;;=4^I73.9
+555 ;;^UTILITY(U,$J,358.3,8172,2)
+556 ;;=^184182
+557 ;;^UTILITY(U,$J,358.3,8173,0)
+558 ;;=I82.891^^45^419^23
+559 ;;^UTILITY(U,$J,358.3,8173,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,8173,1,3,0)
+562 ;;=3^Embolism/Thrombosis Oth Spec Veins,Chronic
+563 ;;^UTILITY(U,$J,358.3,8173,1,4,0)
+564 ;;=4^I82.891
+565 ;;^UTILITY(U,$J,358.3,8173,2)
+566 ;;=^5007939
+567 ;;^UTILITY(U,$J,358.3,8174,0)
+568 ;;=I82.890^^45^419^22
+569 ;;^UTILITY(U,$J,358.3,8174,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,8174,1,3,0)
+572 ;;=3^Embolism/Thrombosis Oth Spec Veins,Acute
+573 ;;^UTILITY(U,$J,358.3,8174,1,4,0)
+574 ;;=4^I82.890
+575 ;;^UTILITY(U,$J,358.3,8174,2)
+576 ;;=^5007938
+577 ;;^UTILITY(U,$J,358.3,8175,0)
+578 ;;=I25.729^^45^419^2
+579 ;;^UTILITY(U,$J,358.3,8175,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,8175,1,3,0)
+582 ;;=3^Athscl Autologous Artery CABG w/ Unspec Angina Pectoris
+583 ;;^UTILITY(U,$J,358.3,8175,1,4,0)
+584 ;;=4^I25.729
+585 ;;^UTILITY(U,$J,358.3,8175,2)
+586 ;;=^5133561
+587 ;;^UTILITY(U,$J,358.3,8176,0)
+588 ;;=I25.119^^45^419^3
+589 ;;^UTILITY(U,$J,358.3,8176,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,8176,1,3,0)
+592 ;;=3^Athscl HRT Dis of Native Cor Art w/ Ang Pctrs,Unspec
+593 ;;^UTILITY(U,$J,358.3,8176,1,4,0)
+594 ;;=4^I25.119
+595 ;;^UTILITY(U,$J,358.3,8176,2)
+596 ;;=^5007111
+597 ;;^UTILITY(U,$J,358.3,8177,0)
+598 ;;=I25.10^^45^419^4
+599 ;;^UTILITY(U,$J,358.3,8177,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,8177,1,3,0)
+602 ;;=3^Athscl HRT Dis of Native Cor Art w/o Ang Pctrs
+603 ;;^UTILITY(U,$J,358.3,8177,1,4,0)
+604 ;;=4^I25.10
+605 ;;^UTILITY(U,$J,358.3,8177,2)
+606 ;;=^5007107
+607 ;;^UTILITY(U,$J,358.3,8178,0)
+608 ;;=I25.110^^45^419^5
+609 ;;^UTILITY(U,$J,358.3,8178,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,8178,1,3,0)
+612 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
+613 ;;^UTILITY(U,$J,358.3,8178,1,4,0)
+614 ;;=4^I25.110
+615 ;;^UTILITY(U,$J,358.3,8178,2)
+616 ;;=^5007108
+617 ;;^UTILITY(U,$J,358.3,8179,0)
+618 ;;=I25.810^^45^419^17
+619 ;;^UTILITY(U,$J,358.3,8179,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,8179,1,3,0)
+622 ;;=3^Athscl of CABG w/o Angina Pectoris
+623 ;;^UTILITY(U,$J,358.3,8179,1,4,0)
+624 ;;=4^I25.810
+625 ;;^UTILITY(U,$J,358.3,8179,2)
+626 ;;=^5007141
+627 ;;^UTILITY(U,$J,358.3,8180,0)
+628 ;;=I25.701^^45^419^18
+629 ;;^UTILITY(U,$J,358.3,8180,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,8180,1,3,0)
+632 ;;=3^Athscl of CABG,Unspec w/ Angina Pectoris w/ Documented Spasm
+633 ;;^UTILITY(U,$J,358.3,8180,1,4,0)
+634 ;;=4^I25.701
+635 ;;^UTILITY(U,$J,358.3,8180,2)
+636 ;;=^5007118
+637 ;;^UTILITY(U,$J,358.3,8181,0)
+638 ;;=I25.708^^45^419^19
+639 ;;^UTILITY(U,$J,358.3,8181,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,8181,1,3,0)
+642 ;;=3^Athscl of CABG,Unspec w/ Oth Angina Pectoris
+643 ;;^UTILITY(U,$J,358.3,8181,1,4,0)
+644 ;;=4^I25.708
+645 ;;^UTILITY(U,$J,358.3,8181,2)
+646 ;;=^5007119
+647 ;;^UTILITY(U,$J,358.3,8182,0)
+648 ;;=I25.709^^45^419^20
+649 ;;^UTILITY(U,$J,358.3,8182,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,8182,1,3,0)
+652 ;;=3^Athscl of CABG,Unspec w/ Unspec Angina Pectoris
+653 ;;^UTILITY(U,$J,358.3,8182,1,4,0)
+654 ;;=4^I25.709
+655 ;;^UTILITY(U,$J,358.3,8182,2)
+656 ;;=^5007120
+657 ;;^UTILITY(U,$J,358.3,8183,0)
+658 ;;=I25.700^^45^419^21
+659 ;;^UTILITY(U,$J,358.3,8183,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,8183,1,3,0)
+662 ;;=3^Athscl of CABG,Unspec w/ Unstable Angina Pectoris
+663 ;;^UTILITY(U,$J,358.3,8183,1,4,0)
+664 ;;=4^I25.700
+665 ;;^UTILITY(U,$J,358.3,8183,2)
+666 ;;=^5007117
+667 ;;^UTILITY(U,$J,358.3,8184,0)
+668 ;;=I82.469^^45^419^24
+669 ;;^UTILITY(U,$J,358.3,8184,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,8184,1,3,0)
+672 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Acute
+673 ;;^UTILITY(U,$J,358.3,8184,1,4,0)
+674 ;;=4^I82.469
+675 ;;^UTILITY(U,$J,358.3,8184,2)
+676 ;;=^5158066
+677 ;;^UTILITY(U,$J,358.3,8185,0)
+678 ;;=I82.569^^45^419^25
+679 ;;^UTILITY(U,$J,358.3,8185,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,8185,1,3,0)
+682 ;;=3^Embolism/Thrombosis,Unspec Calf Muscle Vein,Chronic
+683 ;;^UTILITY(U,$J,358.3,8185,1,4,0)
+684 ;;=4^I82.569