IBDEI05J ; ; 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,13363,1,4,0)
;;=4^N99.820
;;^UTILITY(U,$J,358.3,13363,2)
;;=^5015968
;;^UTILITY(U,$J,358.3,13364,0)
;;=N99.821^^53^582^195
;;^UTILITY(U,$J,358.3,13364,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13364,1,3,0)
;;=3^Postproc Hemor/Hematom,GU Sys After Oth Proc
;;^UTILITY(U,$J,358.3,13364,1,4,0)
;;=4^N99.821
;;^UTILITY(U,$J,358.3,13364,2)
;;=^5015969
;;^UTILITY(U,$J,358.3,13365,0)
;;=T88.8XXA^^53^582^26
;;^UTILITY(U,$J,358.3,13365,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13365,1,3,0)
;;=3^Complic,Surgical/Medical Care NEC,Init Encntr
;;^UTILITY(U,$J,358.3,13365,1,4,0)
;;=4^T88.8XXA
;;^UTILITY(U,$J,358.3,13365,2)
;;=^5055814
;;^UTILITY(U,$J,358.3,13366,0)
;;=T81.83XA^^53^582^173
;;^UTILITY(U,$J,358.3,13366,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13366,1,3,0)
;;=3^Persistent Postprocedural Fistula,Init Encntr
;;^UTILITY(U,$J,358.3,13366,1,4,0)
;;=4^T81.83XA
;;^UTILITY(U,$J,358.3,13366,2)
;;=^5054659
;;^UTILITY(U,$J,358.3,13367,0)
;;=T81.89XA^^53^582^25
;;^UTILITY(U,$J,358.3,13367,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13367,1,3,0)
;;=3^Complic,Procedures NEC,Init Encntr
;;^UTILITY(U,$J,358.3,13367,1,4,0)
;;=4^T81.89XA
;;^UTILITY(U,$J,358.3,13367,2)
;;=^5054662
;;^UTILITY(U,$J,358.3,13368,0)
;;=T81.9XXA^^53^582^24
;;^UTILITY(U,$J,358.3,13368,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13368,1,3,0)
;;=3^Complic,Procedure Unspec,Init Encntr
;;^UTILITY(U,$J,358.3,13368,1,4,0)
;;=4^T81.9XXA
;;^UTILITY(U,$J,358.3,13368,2)
;;=^5054665
;;^UTILITY(U,$J,358.3,13369,0)
;;=T85.810A^^53^582^48
;;^UTILITY(U,$J,358.3,13369,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13369,1,3,0)
;;=3^Embol d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13369,1,4,0)
;;=4^T85.810A
;;^UTILITY(U,$J,358.3,13369,2)
;;=^5140309
;;^UTILITY(U,$J,358.3,13370,0)
;;=T85.818A^^53^582^49
;;^UTILITY(U,$J,358.3,13370,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13370,1,3,0)
;;=3^Embol d/t Oth Internal Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13370,1,4,0)
;;=4^T85.818A
;;^UTILITY(U,$J,358.3,13370,2)
;;=^5140312
;;^UTILITY(U,$J,358.3,13371,0)
;;=T85.820A^^53^582^55
;;^UTILITY(U,$J,358.3,13371,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13371,1,3,0)
;;=3^Fibrosis d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13371,1,4,0)
;;=4^T85.820A
;;^UTILITY(U,$J,358.3,13371,2)
;;=^5140315
;;^UTILITY(U,$J,358.3,13372,0)
;;=T85.828A^^53^582^56
;;^UTILITY(U,$J,358.3,13372,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13372,1,3,0)
;;=3^Fibrosis d/t Other Internal Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13372,1,4,0)
;;=4^T85.828A
;;^UTILITY(U,$J,358.3,13372,2)
;;=^5140318
;;^UTILITY(U,$J,358.3,13373,0)
;;=T85.830A^^53^582^61
;;^UTILITY(U,$J,358.3,13373,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13373,1,3,0)
;;=3^Hemorrh d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13373,1,4,0)
;;=4^T85.830A
;;^UTILITY(U,$J,358.3,13373,2)
;;=^5140321
;;^UTILITY(U,$J,358.3,13374,0)
;;=T85.838A^^53^582^62
;;^UTILITY(U,$J,358.3,13374,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13374,1,3,0)
;;=3^Hemorrh d/t Other Internal Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13374,1,4,0)
;;=4^T85.838A
;;^UTILITY(U,$J,358.3,13374,2)
;;=^5140324
;;^UTILITY(U,$J,358.3,13375,0)
;;=T83.61XA^^53^582^77
;;^UTILITY(U,$J,358.3,13375,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13375,1,3,0)
;;=3^Infect/Inflm Reaction d/t Implanted Penile Prosthesis,Init Encntr
;;^UTILITY(U,$J,358.3,13375,1,4,0)
;;=4^T83.61XA
;;^UTILITY(U,$J,358.3,13375,2)
;;=^5140162
;;^UTILITY(U,$J,358.3,13376,0)
;;=T83.62XA^^53^582^78
;;^UTILITY(U,$J,358.3,13376,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13376,1,3,0)
;;=3^Infect/Inflm Reaction d/t Implanted Testicular Prosthesis,Init Encntr
;;^UTILITY(U,$J,358.3,13376,1,4,0)
;;=4^T83.62XA
;;^UTILITY(U,$J,358.3,13376,2)
;;=^5140165
;;^UTILITY(U,$J,358.3,13377,0)
;;=T83.69XA^^53^582^100
;;^UTILITY(U,$J,358.3,13377,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13377,1,3,0)
;;=3^Infect/Inflm Reaction d/t Oth Prosthetic Device/Implant/Graft in Genital Tract,Init Encntr
;;^UTILITY(U,$J,358.3,13377,1,4,0)
;;=4^T83.69XA
;;^UTILITY(U,$J,358.3,13377,2)
;;=^5140168
;;^UTILITY(U,$J,358.3,13378,0)
;;=T83.510A^^53^582^67
;;^UTILITY(U,$J,358.3,13378,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13378,1,3,0)
;;=3^Infect d/t Cystostomy Catheter,Init Encntr
;;^UTILITY(U,$J,358.3,13378,1,4,0)
;;=4^T83.510A
;;^UTILITY(U,$J,358.3,13378,2)
;;=^5140135
;;^UTILITY(U,$J,358.3,13379,0)
;;=T83.510S^^53^582^68
;;^UTILITY(U,$J,358.3,13379,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13379,1,3,0)
;;=3^Infect d/t Cystostomy Catheter,Sequela
;;^UTILITY(U,$J,358.3,13379,1,4,0)
;;=4^T83.510S
;;^UTILITY(U,$J,358.3,13379,2)
;;=^5140137
;;^UTILITY(U,$J,358.3,13380,0)
;;=T83.510D^^53^582^66
;;^UTILITY(U,$J,358.3,13380,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13380,1,3,0)
;;=3^Infect d/t Cystostomy Catheter,Healing/Subs
;;^UTILITY(U,$J,358.3,13380,1,4,0)
;;=4^T83.510D
;;^UTILITY(U,$J,358.3,13380,2)
;;=^5140136
;;^UTILITY(U,$J,358.3,13381,0)
;;=T83.511A^^53^582^69
;;^UTILITY(U,$J,358.3,13381,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13381,1,3,0)
;;=3^Infect d/t Indwelling Urethral Catheter,Init Encntr
;;^UTILITY(U,$J,358.3,13381,1,4,0)
;;=4^T83.511A
;;^UTILITY(U,$J,358.3,13381,2)
;;=^5140138
;;^UTILITY(U,$J,358.3,13382,0)
;;=T83.511D^^53^582^70
;;^UTILITY(U,$J,358.3,13382,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13382,1,3,0)
;;=3^Infect d/t Indwelling Urethral Catheter,Healing/Subs
;;^UTILITY(U,$J,358.3,13382,1,4,0)
;;=4^T83.511D
;;^UTILITY(U,$J,358.3,13382,2)
;;=^5140139
;;^UTILITY(U,$J,358.3,13383,0)
;;=T83.511S^^53^582^71
;;^UTILITY(U,$J,358.3,13383,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13383,1,3,0)
;;=3^Infect d/t Indwelling Urethral Catheter,Sequela
;;^UTILITY(U,$J,358.3,13383,1,4,0)
;;=4^T83.511S
;;^UTILITY(U,$J,358.3,13383,2)
;;=^5140140
;;^UTILITY(U,$J,358.3,13384,0)
;;=T83.512A^^53^582^73
;;^UTILITY(U,$J,358.3,13384,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13384,1,3,0)
;;=3^Infect d/t Nephrostomy Catheter,Init Encntr
;;^UTILITY(U,$J,358.3,13384,1,4,0)
;;=4^T83.512A
;;^UTILITY(U,$J,358.3,13384,2)
;;=^5140141
;;^UTILITY(U,$J,358.3,13385,0)
;;=T83.512D^^53^582^72
;;^UTILITY(U,$J,358.3,13385,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13385,1,3,0)
;;=3^Infect d/t Nephrostomy Catheter,Healing/Subs
;;^UTILITY(U,$J,358.3,13385,1,4,0)
;;=4^T83.512D
;;^UTILITY(U,$J,358.3,13385,2)
;;=^5140142
;;^UTILITY(U,$J,358.3,13386,0)
;;=T83.512S^^53^582^74
;;^UTILITY(U,$J,358.3,13386,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13386,1,3,0)
;;=3^Infect d/t Nephrostomy Catheter,Sequela
;;^UTILITY(U,$J,358.3,13386,1,4,0)
;;=4^T83.512S
;;^UTILITY(U,$J,358.3,13386,2)
;;=^5140143
;;^UTILITY(U,$J,358.3,13387,0)
;;=T85.840A^^53^582^168
;;^UTILITY(U,$J,358.3,13387,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13387,1,3,0)
;;=3^Pain d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13387,1,4,0)
;;=4^T85.840A
;;^UTILITY(U,$J,358.3,13387,2)
;;=^5140327
;;^UTILITY(U,$J,358.3,13388,0)
;;=T85.848A^^53^582^169
;;^UTILITY(U,$J,358.3,13388,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13388,1,3,0)
;;=3^Pain d/t Oth Internal Prosthetic Device/Implant/Graft,Init Encntr
;;^UTILITY(U,$J,358.3,13388,1,4,0)
;;=4^T85.848A
;;^UTILITY(U,$J,358.3,13388,2)
;;=^5140330
;;^UTILITY(U,$J,358.3,13389,0)
;;=I97.620^^53^582^210
;;^UTILITY(U,$J,358.3,13389,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13389,1,3,0)
;;=3^Postproc Hemorrhage of Circ Sys Organ
;;^UTILITY(U,$J,358.3,13389,1,4,0)
;;=4^I97.620
;;^UTILITY(U,$J,358.3,13389,2)
;;=^5138677
;;^UTILITY(U,$J,358.3,13390,0)
;;=I97.621^^53^582^184
;;^UTILITY(U,$J,358.3,13390,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13390,1,3,0)
;;=3^Postproc Hematoma of Circ System/Structure
;;^UTILITY(U,$J,358.3,13390,1,4,0)
;;=4^I97.621
;;^UTILITY(U,$J,358.3,13390,2)
;;=^5138678
;;^UTILITY(U,$J,358.3,13391,0)
;;=I97.622^^53^582^219
;;^UTILITY(U,$J,358.3,13391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13391,1,3,0)
;;=3^Postproc Seroma of Circ System/Structure
;;^UTILITY(U,$J,358.3,13391,1,4,0)
;;=4^I97.622
;;^UTILITY(U,$J,358.3,13391,2)
;;=^5138679
;;^UTILITY(U,$J,358.3,13392,0)
;;=T85.850A^^53^582^221
;;^UTILITY(U,$J,358.3,13392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13392,1,3,0)
;;=3^Sten d/t Nerv Sys Prosth Dvc/Implnt/Grft,Init Enc
;;^UTILITY(U,$J,358.3,13392,1,4,0)
;;=4^T85.850A
;;^UTILITY(U,$J,358.3,13392,2)
;;=^5140333
;;^UTILITY(U,$J,358.3,13393,0)
;;=T85.858A^^53^582^222
;;^UTILITY(U,$J,358.3,13393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13393,1,3,0)
;;=3^Sten d/t Oth Int Prosth Dvc/Implnt/Grft,Init Enc
;;^UTILITY(U,$J,358.3,13393,1,4,0)
;;=4^T85.858A
;;^UTILITY(U,$J,358.3,13393,2)
;;=^5140336
;;^UTILITY(U,$J,358.3,13394,0)
;;=T85.868A^^53^582^228
;;^UTILITY(U,$J,358.3,13394,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13394,1,3,0)
;;=3^Thromb d/t Oth Int Prosth Dvc/Implnt/Grft,Init Enc
;;^UTILITY(U,$J,358.3,13394,1,4,0)
;;=4^T85.868A
;;^UTILITY(U,$J,358.3,13394,2)
;;=^5140342
;;^UTILITY(U,$J,358.3,13395,0)
;;=T85.860A^^53^582^227
;;^UTILITY(U,$J,358.3,13395,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13395,1,3,0)
;;=3^Thromb d/t Nerv Sys Prosth Dvc/Implnt/Grft,Init Enc
;;^UTILITY(U,$J,358.3,13395,1,4,0)
;;=4^T85.860A
;;^UTILITY(U,$J,358.3,13395,2)
;;=^5140339
;;^UTILITY(U,$J,358.3,13396,0)
;;=K91.30^^53^582^215
;;^UTILITY(U,$J,358.3,13396,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13396,1,3,0)
;;=3^Postproc Intestinal Obstruction
;;^UTILITY(U,$J,358.3,13396,1,4,0)
;;=4^K91.30
;;^UTILITY(U,$J,358.3,13396,2)
;;=^5151427
;;^UTILITY(U,$J,358.3,13397,0)
;;=K91.31^^53^582^217
;;^UTILITY(U,$J,358.3,13397,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13397,1,3,0)
;;=3^Postproc Intestinal Obstruction,Partial/Incompl
;;^UTILITY(U,$J,358.3,13397,1,4,0)
;;=4^K91.31
;;^UTILITY(U,$J,358.3,13397,2)
;;=^5151428
;;^UTILITY(U,$J,358.3,13398,0)
;;=K91.32^^53^582^216
;;^UTILITY(U,$J,358.3,13398,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13398,1,3,0)
;;=3^Postproc Intestinal Obstruction,Complete
;;^UTILITY(U,$J,358.3,13398,1,4,0)
;;=4^K91.32
;;^UTILITY(U,$J,358.3,13398,2)
;;=^5151429
;;^UTILITY(U,$J,358.3,13399,0)
;;=H59.323^^53^582^185
;;^UTILITY(U,$J,358.3,13399,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13399,1,3,0)
;;=3^Postproc Hemor/Hematom,Bil Eye/Adnexa After Oth Proc
;;^UTILITY(U,$J,358.3,13399,1,4,0)
;;=4^H59.323
;;^UTILITY(U,$J,358.3,13399,2)
;;=^5006423
;;^UTILITY(U,$J,358.3,13400,0)
;;=N99.85^^53^582^174
;;^UTILITY(U,$J,358.3,13400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13400,1,3,0)
;;=3^Post Endometrial Ablation Syndrome
;;^UTILITY(U,$J,358.3,13400,1,4,0)
;;=4^N99.85
;;^UTILITY(U,$J,358.3,13400,2)
;;=^5158110
;;^UTILITY(U,$J,358.3,13401,0)
;;=I05.0^^53^583^49
;;^UTILITY(U,$J,358.3,13401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13401,1,3,0)
;;=3^Rheumatic Mitral Stenosis
;;^UTILITY(U,$J,358.3,13401,1,4,0)
;;=4^I05.0
;;^UTILITY(U,$J,358.3,13401,2)
;;=^5007041
;;^UTILITY(U,$J,358.3,13402,0)
;;=I08.0^^53^583^50
;;^UTILITY(U,$J,358.3,13402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13402,1,3,0)
;;=3^Rheumatic Mitral/Aortic Valve Disorders
;;^UTILITY(U,$J,358.3,13402,1,4,0)
;;=4^I08.0
;;^UTILITY(U,$J,358.3,13402,2)
;;=^5007052
;;^UTILITY(U,$J,358.3,13403,0)
;;=I25.10^^53^583^7
;;^UTILITY(U,$J,358.3,13403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13403,1,3,0)
;;=3^Athscl Hrt Dis,Nat Cor Art w/o Ang Pctrs
;;^UTILITY(U,$J,358.3,13403,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,13403,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,13404,0)
;;=I31.9^^53^583^43
;;^UTILITY(U,$J,358.3,13404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13404,1,3,0)
;;=3^Pericardium Disease,Unspec
;;^UTILITY(U,$J,358.3,13404,1,4,0)
;;=4^I31.9
;;^UTILITY(U,$J,358.3,13404,2)
;;=^5007165
;;^UTILITY(U,$J,358.3,13405,0)
;;=I34.1^^53^583^37
;;^UTILITY(U,$J,358.3,13405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13405,1,3,0)
;;=3^Nonrheumatic Mitral Valve Prolapse
;;^UTILITY(U,$J,358.3,13405,1,4,0)
;;=4^I34.1
;;^UTILITY(U,$J,358.3,13405,2)
;;=^5007170
;;^UTILITY(U,$J,358.3,13406,0)
;;=I35.0^^53^583^36
;;^UTILITY(U,$J,358.3,13406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13406,1,3,0)
;;=3^Nonrheumatic Aortic Valve Stenosis
;;^UTILITY(U,$J,358.3,13406,1,4,0)
;;=4^I35.0
;;^UTILITY(U,$J,358.3,13406,2)
;;=^5007174
;;^UTILITY(U,$J,358.3,13407,0)
;;=I35.1^^53^583^35
;;^UTILITY(U,$J,358.3,13407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13407,1,3,0)
;;=3^Nonrheumatic Aortic Valve Insufficiency
;;^UTILITY(U,$J,358.3,13407,1,4,0)
;;=4^I35.1
;;^UTILITY(U,$J,358.3,13407,2)
;;=^5007175
;;^UTILITY(U,$J,358.3,13408,0)
;;=I42.1^^53^583^38
;;^UTILITY(U,$J,358.3,13408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13408,1,3,0)
;;=3^Obstructive Hypertrophic Cardiomyopathy
;;^UTILITY(U,$J,358.3,13408,1,4,0)
;;=4^I42.1
;;^UTILITY(U,$J,358.3,13408,2)
;;=^340520
;;^UTILITY(U,$J,358.3,13409,0)
;;=I42.5^^53^583^48
;;^UTILITY(U,$J,358.3,13409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13409,1,3,0)
;;=3^Restrictive Cardiomyopathy NEC
;;^UTILITY(U,$J,358.3,13409,1,4,0)
;;=4^I42.5
;;^UTILITY(U,$J,358.3,13409,2)
;;=^5007196
;;^UTILITY(U,$J,358.3,13410,0)
;;=I42.8^^53^583^14
;;^UTILITY(U,$J,358.3,13410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13410,1,3,0)
;;=3^Cardiomyopathies NEC
;;^UTILITY(U,$J,358.3,13410,1,4,0)
;;=4^I42.8
;;^UTILITY(U,$J,358.3,13410,2)
;;=^5007199
;;^UTILITY(U,$J,358.3,13411,0)
;;=I49.5^^53^583^59
;;^UTILITY(U,$J,358.3,13411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13411,1,3,0)
;;=3^Sick Sinus Syndrome
;;^UTILITY(U,$J,358.3,13411,1,4,0)
;;=4^I49.5
;;^UTILITY(U,$J,358.3,13411,2)
;;=^110404
;;^UTILITY(U,$J,358.3,13412,0)
;;=I50.9^^53^583^30
;;^UTILITY(U,$J,358.3,13412,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13412,1,3,0)
;;=3^Heart Failure,Unspec
;;^UTILITY(U,$J,358.3,13412,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,13412,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,13413,0)
;;=I51.7^^53^583^13
;;^UTILITY(U,$J,358.3,13413,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13413,1,3,0)
;;=3^Cardiomegaly
;;^UTILITY(U,$J,358.3,13413,1,4,0)
;;=4^I51.7
;;^UTILITY(U,$J,358.3,13413,2)
;;=^5007257
;;^UTILITY(U,$J,358.3,13414,0)
;;=I65.21^^53^583^41
;;^UTILITY(U,$J,358.3,13414,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13414,1,3,0)
;;=3^Occlusion/Stenosis Right Carotid Artery
;;^UTILITY(U,$J,358.3,13414,1,4,0)
;;=4^I65.21
;;^UTILITY(U,$J,358.3,13414,2)
;;=^5007360
;;^UTILITY(U,$J,358.3,13415,0)
;;=I65.22^^53^583^40
;;^UTILITY(U,$J,358.3,13415,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13415,1,3,0)
;;=3^Occlusion/Stenosis Left Carotid Artery
;;^UTILITY(U,$J,358.3,13415,1,4,0)
;;=4^I65.22
;;^UTILITY(U,$J,358.3,13415,2)
;;=^5007361
;;^UTILITY(U,$J,358.3,13416,0)
;;=I65.23^^53^583^39
;;^UTILITY(U,$J,358.3,13416,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13416,1,3,0)
;;=3^Occlusion/Stenosis Bilateral Carotid Arteries
;;^UTILITY(U,$J,358.3,13416,1,4,0)
;;=4^I65.23
;;^UTILITY(U,$J,358.3,13416,2)
;;=^5007362
;;^UTILITY(U,$J,358.3,13417,0)
;;=I71.2^^53^583^66
;;^UTILITY(U,$J,358.3,13417,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13417,1,3,0)
;;=3^Thoracic Aortic Aneurysm w/o Rupture
;;^UTILITY(U,$J,358.3,13417,1,4,0)
;;=4^I71.2
;;^UTILITY(U,$J,358.3,13417,2)
;;=^5007787
;;^UTILITY(U,$J,358.3,13418,0)
;;=I71.4^^53^583^2
;;^UTILITY(U,$J,358.3,13418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13418,1,3,0)
;;=3^Abdominal Aortic Aneurysm w/o Rupture
;;^UTILITY(U,$J,358.3,13418,1,4,0)
;;=4^I71.4
;;^UTILITY(U,$J,358.3,13418,2)
;;=^5007789
;;^UTILITY(U,$J,358.3,13419,0)
;;=I73.9^^53^583^42
;;^UTILITY(U,$J,358.3,13419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13419,1,3,0)
;;=3^PVD,Unspec
;;^UTILITY(U,$J,358.3,13419,1,4,0)
;;=4^I73.9
;;^UTILITY(U,$J,358.3,13419,2)
;;=^184182
;;^UTILITY(U,$J,358.3,13420,0)
;;=I82.91^^53^583^18
;;^UTILITY(U,$J,358.3,13420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13420,1,3,0)
;;=3^Embolism/Thrombosis,Unspec Vein,Chronic
;;^UTILITY(U,$J,358.3,13420,1,4,0)
;;=4^I82.91
;;^UTILITY(U,$J,358.3,13420,2)
;;=^5007941
;;^UTILITY(U,$J,358.3,13421,0)
;;=I83.019^^53^583^68
;;^UTILITY(U,$J,358.3,13421,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13421,1,3,0)
;;=3^Varicose Veins RLE w/ Ulcer
;;^UTILITY(U,$J,358.3,13421,1,4,0)
;;=4^I83.019
;;^UTILITY(U,$J,358.3,13421,2)
;;=^5007979
;;^UTILITY(U,$J,358.3,13422,0)
;;=I83.029^^53^583^67
;;^UTILITY(U,$J,358.3,13422,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13422,1,3,0)
;;=3^Varicose Veins LLE w/ Ulcer
;;^UTILITY(U,$J,358.3,13422,1,4,0)
;;=4^I83.029
;;^UTILITY(U,$J,358.3,13422,2)
;;=^5007986
;;^UTILITY(U,$J,358.3,13423,0)
;;=I87.2^^53^583^69
;;^UTILITY(U,$J,358.3,13423,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13423,1,3,0)
;;=3^Venous Insufficiency
;;^UTILITY(U,$J,358.3,13423,1,4,0)
;;=4^I87.2
;;^UTILITY(U,$J,358.3,13423,2)
;;=^5008047
;;^UTILITY(U,$J,358.3,13424,0)
;;=R07.9^^53^583^16
;;^UTILITY(U,$J,358.3,13424,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13424,1,3,0)
;;=3^Chest Pain,Unspec
;;^UTILITY(U,$J,358.3,13424,1,4,0)
;;=4^R07.9
;;^UTILITY(U,$J,358.3,13424,2)
;;=^5019201
;;^UTILITY(U,$J,358.3,13425,0)
;;=Z95.2^^53^583^47
;;^UTILITY(U,$J,358.3,13425,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13425,1,3,0)
;;=3^Presence of Prosthetic Heart Valve
;;^UTILITY(U,$J,358.3,13425,1,4,0)
;;=4^Z95.2
;;^UTILITY(U,$J,358.3,13425,2)
;;=^5063670
;;^UTILITY(U,$J,358.3,13426,0)
;;=Z95.0^^53^583^46
;;^UTILITY(U,$J,358.3,13426,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13426,1,3,0)
;;=3^Presence of Cardiac Pacemaker
;;^UTILITY(U,$J,358.3,13426,1,4,0)
;;=4^Z95.0
;;^UTILITY(U,$J,358.3,13426,2)
;;=^5063668
;;^UTILITY(U,$J,358.3,13427,0)
;;=Z95.810^^53^583^45
;;^UTILITY(U,$J,358.3,13427,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13427,1,3,0)
;;=3^Presence of Automatic Cardiac Defibrillator
;;^UTILITY(U,$J,358.3,13427,1,4,0)
;;=4^Z95.810
;;^UTILITY(U,$J,358.3,13427,2)
;;=^5063674
;;^UTILITY(U,$J,358.3,13428,0)
;;=Z95.1^^53^583^44
;;^UTILITY(U,$J,358.3,13428,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,13428,1,3,0)
;;=3^Presence of Aortocoronary Bypass Graft
;;^UTILITY(U,$J,358.3,13428,1,4,0)
;;=4^Z95.1
;;^UTILITY(U,$J,358.3,13428,2)
;;=^5063669
;;^UTILITY(U,$J,358.3,13429,0)
;;=I71.3^^53^583^1
;;^UTILITY(U,$J,358.3,13429,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI05J 19761 printed Sep 23, 2025@19:18:02 Page 2
IBDEI05J ; ; 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,13363,1,4,0)
+2 ;;=4^N99.820
+3 ;;^UTILITY(U,$J,358.3,13363,2)
+4 ;;=^5015968
+5 ;;^UTILITY(U,$J,358.3,13364,0)
+6 ;;=N99.821^^53^582^195
+7 ;;^UTILITY(U,$J,358.3,13364,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,13364,1,3,0)
+10 ;;=3^Postproc Hemor/Hematom,GU Sys After Oth Proc
+11 ;;^UTILITY(U,$J,358.3,13364,1,4,0)
+12 ;;=4^N99.821
+13 ;;^UTILITY(U,$J,358.3,13364,2)
+14 ;;=^5015969
+15 ;;^UTILITY(U,$J,358.3,13365,0)
+16 ;;=T88.8XXA^^53^582^26
+17 ;;^UTILITY(U,$J,358.3,13365,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,13365,1,3,0)
+20 ;;=3^Complic,Surgical/Medical Care NEC,Init Encntr
+21 ;;^UTILITY(U,$J,358.3,13365,1,4,0)
+22 ;;=4^T88.8XXA
+23 ;;^UTILITY(U,$J,358.3,13365,2)
+24 ;;=^5055814
+25 ;;^UTILITY(U,$J,358.3,13366,0)
+26 ;;=T81.83XA^^53^582^173
+27 ;;^UTILITY(U,$J,358.3,13366,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,13366,1,3,0)
+30 ;;=3^Persistent Postprocedural Fistula,Init Encntr
+31 ;;^UTILITY(U,$J,358.3,13366,1,4,0)
+32 ;;=4^T81.83XA
+33 ;;^UTILITY(U,$J,358.3,13366,2)
+34 ;;=^5054659
+35 ;;^UTILITY(U,$J,358.3,13367,0)
+36 ;;=T81.89XA^^53^582^25
+37 ;;^UTILITY(U,$J,358.3,13367,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,13367,1,3,0)
+40 ;;=3^Complic,Procedures NEC,Init Encntr
+41 ;;^UTILITY(U,$J,358.3,13367,1,4,0)
+42 ;;=4^T81.89XA
+43 ;;^UTILITY(U,$J,358.3,13367,2)
+44 ;;=^5054662
+45 ;;^UTILITY(U,$J,358.3,13368,0)
+46 ;;=T81.9XXA^^53^582^24
+47 ;;^UTILITY(U,$J,358.3,13368,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,13368,1,3,0)
+50 ;;=3^Complic,Procedure Unspec,Init Encntr
+51 ;;^UTILITY(U,$J,358.3,13368,1,4,0)
+52 ;;=4^T81.9XXA
+53 ;;^UTILITY(U,$J,358.3,13368,2)
+54 ;;=^5054665
+55 ;;^UTILITY(U,$J,358.3,13369,0)
+56 ;;=T85.810A^^53^582^48
+57 ;;^UTILITY(U,$J,358.3,13369,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,13369,1,3,0)
+60 ;;=3^Embol d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
+61 ;;^UTILITY(U,$J,358.3,13369,1,4,0)
+62 ;;=4^T85.810A
+63 ;;^UTILITY(U,$J,358.3,13369,2)
+64 ;;=^5140309
+65 ;;^UTILITY(U,$J,358.3,13370,0)
+66 ;;=T85.818A^^53^582^49
+67 ;;^UTILITY(U,$J,358.3,13370,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,13370,1,3,0)
+70 ;;=3^Embol d/t Oth Internal Prosthetic Device/Implant/Graft,Init Encntr
+71 ;;^UTILITY(U,$J,358.3,13370,1,4,0)
+72 ;;=4^T85.818A
+73 ;;^UTILITY(U,$J,358.3,13370,2)
+74 ;;=^5140312
+75 ;;^UTILITY(U,$J,358.3,13371,0)
+76 ;;=T85.820A^^53^582^55
+77 ;;^UTILITY(U,$J,358.3,13371,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,13371,1,3,0)
+80 ;;=3^Fibrosis d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
+81 ;;^UTILITY(U,$J,358.3,13371,1,4,0)
+82 ;;=4^T85.820A
+83 ;;^UTILITY(U,$J,358.3,13371,2)
+84 ;;=^5140315
+85 ;;^UTILITY(U,$J,358.3,13372,0)
+86 ;;=T85.828A^^53^582^56
+87 ;;^UTILITY(U,$J,358.3,13372,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,13372,1,3,0)
+90 ;;=3^Fibrosis d/t Other Internal Prosthetic Device/Implant/Graft,Init Encntr
+91 ;;^UTILITY(U,$J,358.3,13372,1,4,0)
+92 ;;=4^T85.828A
+93 ;;^UTILITY(U,$J,358.3,13372,2)
+94 ;;=^5140318
+95 ;;^UTILITY(U,$J,358.3,13373,0)
+96 ;;=T85.830A^^53^582^61
+97 ;;^UTILITY(U,$J,358.3,13373,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,13373,1,3,0)
+100 ;;=3^Hemorrh d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
+101 ;;^UTILITY(U,$J,358.3,13373,1,4,0)
+102 ;;=4^T85.830A
+103 ;;^UTILITY(U,$J,358.3,13373,2)
+104 ;;=^5140321
+105 ;;^UTILITY(U,$J,358.3,13374,0)
+106 ;;=T85.838A^^53^582^62
+107 ;;^UTILITY(U,$J,358.3,13374,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,13374,1,3,0)
+110 ;;=3^Hemorrh d/t Other Internal Prosthetic Device/Implant/Graft,Init Encntr
+111 ;;^UTILITY(U,$J,358.3,13374,1,4,0)
+112 ;;=4^T85.838A
+113 ;;^UTILITY(U,$J,358.3,13374,2)
+114 ;;=^5140324
+115 ;;^UTILITY(U,$J,358.3,13375,0)
+116 ;;=T83.61XA^^53^582^77
+117 ;;^UTILITY(U,$J,358.3,13375,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,13375,1,3,0)
+120 ;;=3^Infect/Inflm Reaction d/t Implanted Penile Prosthesis,Init Encntr
+121 ;;^UTILITY(U,$J,358.3,13375,1,4,0)
+122 ;;=4^T83.61XA
+123 ;;^UTILITY(U,$J,358.3,13375,2)
+124 ;;=^5140162
+125 ;;^UTILITY(U,$J,358.3,13376,0)
+126 ;;=T83.62XA^^53^582^78
+127 ;;^UTILITY(U,$J,358.3,13376,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,13376,1,3,0)
+130 ;;=3^Infect/Inflm Reaction d/t Implanted Testicular Prosthesis,Init Encntr
+131 ;;^UTILITY(U,$J,358.3,13376,1,4,0)
+132 ;;=4^T83.62XA
+133 ;;^UTILITY(U,$J,358.3,13376,2)
+134 ;;=^5140165
+135 ;;^UTILITY(U,$J,358.3,13377,0)
+136 ;;=T83.69XA^^53^582^100
+137 ;;^UTILITY(U,$J,358.3,13377,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,13377,1,3,0)
+140 ;;=3^Infect/Inflm Reaction d/t Oth Prosthetic Device/Implant/Graft in Genital Tract,Init Encntr
+141 ;;^UTILITY(U,$J,358.3,13377,1,4,0)
+142 ;;=4^T83.69XA
+143 ;;^UTILITY(U,$J,358.3,13377,2)
+144 ;;=^5140168
+145 ;;^UTILITY(U,$J,358.3,13378,0)
+146 ;;=T83.510A^^53^582^67
+147 ;;^UTILITY(U,$J,358.3,13378,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,13378,1,3,0)
+150 ;;=3^Infect d/t Cystostomy Catheter,Init Encntr
+151 ;;^UTILITY(U,$J,358.3,13378,1,4,0)
+152 ;;=4^T83.510A
+153 ;;^UTILITY(U,$J,358.3,13378,2)
+154 ;;=^5140135
+155 ;;^UTILITY(U,$J,358.3,13379,0)
+156 ;;=T83.510S^^53^582^68
+157 ;;^UTILITY(U,$J,358.3,13379,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,13379,1,3,0)
+160 ;;=3^Infect d/t Cystostomy Catheter,Sequela
+161 ;;^UTILITY(U,$J,358.3,13379,1,4,0)
+162 ;;=4^T83.510S
+163 ;;^UTILITY(U,$J,358.3,13379,2)
+164 ;;=^5140137
+165 ;;^UTILITY(U,$J,358.3,13380,0)
+166 ;;=T83.510D^^53^582^66
+167 ;;^UTILITY(U,$J,358.3,13380,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,13380,1,3,0)
+170 ;;=3^Infect d/t Cystostomy Catheter,Healing/Subs
+171 ;;^UTILITY(U,$J,358.3,13380,1,4,0)
+172 ;;=4^T83.510D
+173 ;;^UTILITY(U,$J,358.3,13380,2)
+174 ;;=^5140136
+175 ;;^UTILITY(U,$J,358.3,13381,0)
+176 ;;=T83.511A^^53^582^69
+177 ;;^UTILITY(U,$J,358.3,13381,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,13381,1,3,0)
+180 ;;=3^Infect d/t Indwelling Urethral Catheter,Init Encntr
+181 ;;^UTILITY(U,$J,358.3,13381,1,4,0)
+182 ;;=4^T83.511A
+183 ;;^UTILITY(U,$J,358.3,13381,2)
+184 ;;=^5140138
+185 ;;^UTILITY(U,$J,358.3,13382,0)
+186 ;;=T83.511D^^53^582^70
+187 ;;^UTILITY(U,$J,358.3,13382,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,13382,1,3,0)
+190 ;;=3^Infect d/t Indwelling Urethral Catheter,Healing/Subs
+191 ;;^UTILITY(U,$J,358.3,13382,1,4,0)
+192 ;;=4^T83.511D
+193 ;;^UTILITY(U,$J,358.3,13382,2)
+194 ;;=^5140139
+195 ;;^UTILITY(U,$J,358.3,13383,0)
+196 ;;=T83.511S^^53^582^71
+197 ;;^UTILITY(U,$J,358.3,13383,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,13383,1,3,0)
+200 ;;=3^Infect d/t Indwelling Urethral Catheter,Sequela
+201 ;;^UTILITY(U,$J,358.3,13383,1,4,0)
+202 ;;=4^T83.511S
+203 ;;^UTILITY(U,$J,358.3,13383,2)
+204 ;;=^5140140
+205 ;;^UTILITY(U,$J,358.3,13384,0)
+206 ;;=T83.512A^^53^582^73
+207 ;;^UTILITY(U,$J,358.3,13384,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,13384,1,3,0)
+210 ;;=3^Infect d/t Nephrostomy Catheter,Init Encntr
+211 ;;^UTILITY(U,$J,358.3,13384,1,4,0)
+212 ;;=4^T83.512A
+213 ;;^UTILITY(U,$J,358.3,13384,2)
+214 ;;=^5140141
+215 ;;^UTILITY(U,$J,358.3,13385,0)
+216 ;;=T83.512D^^53^582^72
+217 ;;^UTILITY(U,$J,358.3,13385,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,13385,1,3,0)
+220 ;;=3^Infect d/t Nephrostomy Catheter,Healing/Subs
+221 ;;^UTILITY(U,$J,358.3,13385,1,4,0)
+222 ;;=4^T83.512D
+223 ;;^UTILITY(U,$J,358.3,13385,2)
+224 ;;=^5140142
+225 ;;^UTILITY(U,$J,358.3,13386,0)
+226 ;;=T83.512S^^53^582^74
+227 ;;^UTILITY(U,$J,358.3,13386,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,13386,1,3,0)
+230 ;;=3^Infect d/t Nephrostomy Catheter,Sequela
+231 ;;^UTILITY(U,$J,358.3,13386,1,4,0)
+232 ;;=4^T83.512S
+233 ;;^UTILITY(U,$J,358.3,13386,2)
+234 ;;=^5140143
+235 ;;^UTILITY(U,$J,358.3,13387,0)
+236 ;;=T85.840A^^53^582^168
+237 ;;^UTILITY(U,$J,358.3,13387,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,13387,1,3,0)
+240 ;;=3^Pain d/t Nervous System Prosthetic Device/Implant/Graft,Init Encntr
+241 ;;^UTILITY(U,$J,358.3,13387,1,4,0)
+242 ;;=4^T85.840A
+243 ;;^UTILITY(U,$J,358.3,13387,2)
+244 ;;=^5140327
+245 ;;^UTILITY(U,$J,358.3,13388,0)
+246 ;;=T85.848A^^53^582^169
+247 ;;^UTILITY(U,$J,358.3,13388,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,13388,1,3,0)
+250 ;;=3^Pain d/t Oth Internal Prosthetic Device/Implant/Graft,Init Encntr
+251 ;;^UTILITY(U,$J,358.3,13388,1,4,0)
+252 ;;=4^T85.848A
+253 ;;^UTILITY(U,$J,358.3,13388,2)
+254 ;;=^5140330
+255 ;;^UTILITY(U,$J,358.3,13389,0)
+256 ;;=I97.620^^53^582^210
+257 ;;^UTILITY(U,$J,358.3,13389,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,13389,1,3,0)
+260 ;;=3^Postproc Hemorrhage of Circ Sys Organ
+261 ;;^UTILITY(U,$J,358.3,13389,1,4,0)
+262 ;;=4^I97.620
+263 ;;^UTILITY(U,$J,358.3,13389,2)
+264 ;;=^5138677
+265 ;;^UTILITY(U,$J,358.3,13390,0)
+266 ;;=I97.621^^53^582^184
+267 ;;^UTILITY(U,$J,358.3,13390,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,13390,1,3,0)
+270 ;;=3^Postproc Hematoma of Circ System/Structure
+271 ;;^UTILITY(U,$J,358.3,13390,1,4,0)
+272 ;;=4^I97.621
+273 ;;^UTILITY(U,$J,358.3,13390,2)
+274 ;;=^5138678
+275 ;;^UTILITY(U,$J,358.3,13391,0)
+276 ;;=I97.622^^53^582^219
+277 ;;^UTILITY(U,$J,358.3,13391,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,13391,1,3,0)
+280 ;;=3^Postproc Seroma of Circ System/Structure
+281 ;;^UTILITY(U,$J,358.3,13391,1,4,0)
+282 ;;=4^I97.622
+283 ;;^UTILITY(U,$J,358.3,13391,2)
+284 ;;=^5138679
+285 ;;^UTILITY(U,$J,358.3,13392,0)
+286 ;;=T85.850A^^53^582^221
+287 ;;^UTILITY(U,$J,358.3,13392,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,13392,1,3,0)
+290 ;;=3^Sten d/t Nerv Sys Prosth Dvc/Implnt/Grft,Init Enc
+291 ;;^UTILITY(U,$J,358.3,13392,1,4,0)
+292 ;;=4^T85.850A
+293 ;;^UTILITY(U,$J,358.3,13392,2)
+294 ;;=^5140333
+295 ;;^UTILITY(U,$J,358.3,13393,0)
+296 ;;=T85.858A^^53^582^222
+297 ;;^UTILITY(U,$J,358.3,13393,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,13393,1,3,0)
+300 ;;=3^Sten d/t Oth Int Prosth Dvc/Implnt/Grft,Init Enc
+301 ;;^UTILITY(U,$J,358.3,13393,1,4,0)
+302 ;;=4^T85.858A
+303 ;;^UTILITY(U,$J,358.3,13393,2)
+304 ;;=^5140336
+305 ;;^UTILITY(U,$J,358.3,13394,0)
+306 ;;=T85.868A^^53^582^228
+307 ;;^UTILITY(U,$J,358.3,13394,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,13394,1,3,0)
+310 ;;=3^Thromb d/t Oth Int Prosth Dvc/Implnt/Grft,Init Enc
+311 ;;^UTILITY(U,$J,358.3,13394,1,4,0)
+312 ;;=4^T85.868A
+313 ;;^UTILITY(U,$J,358.3,13394,2)
+314 ;;=^5140342
+315 ;;^UTILITY(U,$J,358.3,13395,0)
+316 ;;=T85.860A^^53^582^227
+317 ;;^UTILITY(U,$J,358.3,13395,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,13395,1,3,0)
+320 ;;=3^Thromb d/t Nerv Sys Prosth Dvc/Implnt/Grft,Init Enc
+321 ;;^UTILITY(U,$J,358.3,13395,1,4,0)
+322 ;;=4^T85.860A
+323 ;;^UTILITY(U,$J,358.3,13395,2)
+324 ;;=^5140339
+325 ;;^UTILITY(U,$J,358.3,13396,0)
+326 ;;=K91.30^^53^582^215
+327 ;;^UTILITY(U,$J,358.3,13396,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,13396,1,3,0)
+330 ;;=3^Postproc Intestinal Obstruction
+331 ;;^UTILITY(U,$J,358.3,13396,1,4,0)
+332 ;;=4^K91.30
+333 ;;^UTILITY(U,$J,358.3,13396,2)
+334 ;;=^5151427
+335 ;;^UTILITY(U,$J,358.3,13397,0)
+336 ;;=K91.31^^53^582^217
+337 ;;^UTILITY(U,$J,358.3,13397,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,13397,1,3,0)
+340 ;;=3^Postproc Intestinal Obstruction,Partial/Incompl
+341 ;;^UTILITY(U,$J,358.3,13397,1,4,0)
+342 ;;=4^K91.31
+343 ;;^UTILITY(U,$J,358.3,13397,2)
+344 ;;=^5151428
+345 ;;^UTILITY(U,$J,358.3,13398,0)
+346 ;;=K91.32^^53^582^216
+347 ;;^UTILITY(U,$J,358.3,13398,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,13398,1,3,0)
+350 ;;=3^Postproc Intestinal Obstruction,Complete
+351 ;;^UTILITY(U,$J,358.3,13398,1,4,0)
+352 ;;=4^K91.32
+353 ;;^UTILITY(U,$J,358.3,13398,2)
+354 ;;=^5151429
+355 ;;^UTILITY(U,$J,358.3,13399,0)
+356 ;;=H59.323^^53^582^185
+357 ;;^UTILITY(U,$J,358.3,13399,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,13399,1,3,0)
+360 ;;=3^Postproc Hemor/Hematom,Bil Eye/Adnexa After Oth Proc
+361 ;;^UTILITY(U,$J,358.3,13399,1,4,0)
+362 ;;=4^H59.323
+363 ;;^UTILITY(U,$J,358.3,13399,2)
+364 ;;=^5006423
+365 ;;^UTILITY(U,$J,358.3,13400,0)
+366 ;;=N99.85^^53^582^174
+367 ;;^UTILITY(U,$J,358.3,13400,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,13400,1,3,0)
+370 ;;=3^Post Endometrial Ablation Syndrome
+371 ;;^UTILITY(U,$J,358.3,13400,1,4,0)
+372 ;;=4^N99.85
+373 ;;^UTILITY(U,$J,358.3,13400,2)
+374 ;;=^5158110
+375 ;;^UTILITY(U,$J,358.3,13401,0)
+376 ;;=I05.0^^53^583^49
+377 ;;^UTILITY(U,$J,358.3,13401,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,13401,1,3,0)
+380 ;;=3^Rheumatic Mitral Stenosis
+381 ;;^UTILITY(U,$J,358.3,13401,1,4,0)
+382 ;;=4^I05.0
+383 ;;^UTILITY(U,$J,358.3,13401,2)
+384 ;;=^5007041
+385 ;;^UTILITY(U,$J,358.3,13402,0)
+386 ;;=I08.0^^53^583^50
+387 ;;^UTILITY(U,$J,358.3,13402,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,13402,1,3,0)
+390 ;;=3^Rheumatic Mitral/Aortic Valve Disorders
+391 ;;^UTILITY(U,$J,358.3,13402,1,4,0)
+392 ;;=4^I08.0
+393 ;;^UTILITY(U,$J,358.3,13402,2)
+394 ;;=^5007052
+395 ;;^UTILITY(U,$J,358.3,13403,0)
+396 ;;=I25.10^^53^583^7
+397 ;;^UTILITY(U,$J,358.3,13403,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,13403,1,3,0)
+400 ;;=3^Athscl Hrt Dis,Nat Cor Art w/o Ang Pctrs
+401 ;;^UTILITY(U,$J,358.3,13403,1,4,0)
+402 ;;=4^I25.10
+403 ;;^UTILITY(U,$J,358.3,13403,2)
+404 ;;=^5007107
+405 ;;^UTILITY(U,$J,358.3,13404,0)
+406 ;;=I31.9^^53^583^43
+407 ;;^UTILITY(U,$J,358.3,13404,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,13404,1,3,0)
+410 ;;=3^Pericardium Disease,Unspec
+411 ;;^UTILITY(U,$J,358.3,13404,1,4,0)
+412 ;;=4^I31.9
+413 ;;^UTILITY(U,$J,358.3,13404,2)
+414 ;;=^5007165
+415 ;;^UTILITY(U,$J,358.3,13405,0)
+416 ;;=I34.1^^53^583^37
+417 ;;^UTILITY(U,$J,358.3,13405,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,13405,1,3,0)
+420 ;;=3^Nonrheumatic Mitral Valve Prolapse
+421 ;;^UTILITY(U,$J,358.3,13405,1,4,0)
+422 ;;=4^I34.1
+423 ;;^UTILITY(U,$J,358.3,13405,2)
+424 ;;=^5007170
+425 ;;^UTILITY(U,$J,358.3,13406,0)
+426 ;;=I35.0^^53^583^36
+427 ;;^UTILITY(U,$J,358.3,13406,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,13406,1,3,0)
+430 ;;=3^Nonrheumatic Aortic Valve Stenosis
+431 ;;^UTILITY(U,$J,358.3,13406,1,4,0)
+432 ;;=4^I35.0
+433 ;;^UTILITY(U,$J,358.3,13406,2)
+434 ;;=^5007174
+435 ;;^UTILITY(U,$J,358.3,13407,0)
+436 ;;=I35.1^^53^583^35
+437 ;;^UTILITY(U,$J,358.3,13407,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,13407,1,3,0)
+440 ;;=3^Nonrheumatic Aortic Valve Insufficiency
+441 ;;^UTILITY(U,$J,358.3,13407,1,4,0)
+442 ;;=4^I35.1
+443 ;;^UTILITY(U,$J,358.3,13407,2)
+444 ;;=^5007175
+445 ;;^UTILITY(U,$J,358.3,13408,0)
+446 ;;=I42.1^^53^583^38
+447 ;;^UTILITY(U,$J,358.3,13408,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,13408,1,3,0)
+450 ;;=3^Obstructive Hypertrophic Cardiomyopathy
+451 ;;^UTILITY(U,$J,358.3,13408,1,4,0)
+452 ;;=4^I42.1
+453 ;;^UTILITY(U,$J,358.3,13408,2)
+454 ;;=^340520
+455 ;;^UTILITY(U,$J,358.3,13409,0)
+456 ;;=I42.5^^53^583^48
+457 ;;^UTILITY(U,$J,358.3,13409,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,13409,1,3,0)
+460 ;;=3^Restrictive Cardiomyopathy NEC
+461 ;;^UTILITY(U,$J,358.3,13409,1,4,0)
+462 ;;=4^I42.5
+463 ;;^UTILITY(U,$J,358.3,13409,2)
+464 ;;=^5007196
+465 ;;^UTILITY(U,$J,358.3,13410,0)
+466 ;;=I42.8^^53^583^14
+467 ;;^UTILITY(U,$J,358.3,13410,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,13410,1,3,0)
+470 ;;=3^Cardiomyopathies NEC
+471 ;;^UTILITY(U,$J,358.3,13410,1,4,0)
+472 ;;=4^I42.8
+473 ;;^UTILITY(U,$J,358.3,13410,2)
+474 ;;=^5007199
+475 ;;^UTILITY(U,$J,358.3,13411,0)
+476 ;;=I49.5^^53^583^59
+477 ;;^UTILITY(U,$J,358.3,13411,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,13411,1,3,0)
+480 ;;=3^Sick Sinus Syndrome
+481 ;;^UTILITY(U,$J,358.3,13411,1,4,0)
+482 ;;=4^I49.5
+483 ;;^UTILITY(U,$J,358.3,13411,2)
+484 ;;=^110404
+485 ;;^UTILITY(U,$J,358.3,13412,0)
+486 ;;=I50.9^^53^583^30
+487 ;;^UTILITY(U,$J,358.3,13412,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,13412,1,3,0)
+490 ;;=3^Heart Failure,Unspec
+491 ;;^UTILITY(U,$J,358.3,13412,1,4,0)
+492 ;;=4^I50.9
+493 ;;^UTILITY(U,$J,358.3,13412,2)
+494 ;;=^5007251
+495 ;;^UTILITY(U,$J,358.3,13413,0)
+496 ;;=I51.7^^53^583^13
+497 ;;^UTILITY(U,$J,358.3,13413,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,13413,1,3,0)
+500 ;;=3^Cardiomegaly
+501 ;;^UTILITY(U,$J,358.3,13413,1,4,0)
+502 ;;=4^I51.7
+503 ;;^UTILITY(U,$J,358.3,13413,2)
+504 ;;=^5007257
+505 ;;^UTILITY(U,$J,358.3,13414,0)
+506 ;;=I65.21^^53^583^41
+507 ;;^UTILITY(U,$J,358.3,13414,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,13414,1,3,0)
+510 ;;=3^Occlusion/Stenosis Right Carotid Artery
+511 ;;^UTILITY(U,$J,358.3,13414,1,4,0)
+512 ;;=4^I65.21
+513 ;;^UTILITY(U,$J,358.3,13414,2)
+514 ;;=^5007360
+515 ;;^UTILITY(U,$J,358.3,13415,0)
+516 ;;=I65.22^^53^583^40
+517 ;;^UTILITY(U,$J,358.3,13415,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,13415,1,3,0)
+520 ;;=3^Occlusion/Stenosis Left Carotid Artery
+521 ;;^UTILITY(U,$J,358.3,13415,1,4,0)
+522 ;;=4^I65.22
+523 ;;^UTILITY(U,$J,358.3,13415,2)
+524 ;;=^5007361
+525 ;;^UTILITY(U,$J,358.3,13416,0)
+526 ;;=I65.23^^53^583^39
+527 ;;^UTILITY(U,$J,358.3,13416,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,13416,1,3,0)
+530 ;;=3^Occlusion/Stenosis Bilateral Carotid Arteries
+531 ;;^UTILITY(U,$J,358.3,13416,1,4,0)
+532 ;;=4^I65.23
+533 ;;^UTILITY(U,$J,358.3,13416,2)
+534 ;;=^5007362
+535 ;;^UTILITY(U,$J,358.3,13417,0)
+536 ;;=I71.2^^53^583^66
+537 ;;^UTILITY(U,$J,358.3,13417,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,13417,1,3,0)
+540 ;;=3^Thoracic Aortic Aneurysm w/o Rupture
+541 ;;^UTILITY(U,$J,358.3,13417,1,4,0)
+542 ;;=4^I71.2
+543 ;;^UTILITY(U,$J,358.3,13417,2)
+544 ;;=^5007787
+545 ;;^UTILITY(U,$J,358.3,13418,0)
+546 ;;=I71.4^^53^583^2
+547 ;;^UTILITY(U,$J,358.3,13418,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,13418,1,3,0)
+550 ;;=3^Abdominal Aortic Aneurysm w/o Rupture
+551 ;;^UTILITY(U,$J,358.3,13418,1,4,0)
+552 ;;=4^I71.4
+553 ;;^UTILITY(U,$J,358.3,13418,2)
+554 ;;=^5007789
+555 ;;^UTILITY(U,$J,358.3,13419,0)
+556 ;;=I73.9^^53^583^42
+557 ;;^UTILITY(U,$J,358.3,13419,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,13419,1,3,0)
+560 ;;=3^PVD,Unspec
+561 ;;^UTILITY(U,$J,358.3,13419,1,4,0)
+562 ;;=4^I73.9
+563 ;;^UTILITY(U,$J,358.3,13419,2)
+564 ;;=^184182
+565 ;;^UTILITY(U,$J,358.3,13420,0)
+566 ;;=I82.91^^53^583^18
+567 ;;^UTILITY(U,$J,358.3,13420,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,13420,1,3,0)
+570 ;;=3^Embolism/Thrombosis,Unspec Vein,Chronic
+571 ;;^UTILITY(U,$J,358.3,13420,1,4,0)
+572 ;;=4^I82.91
+573 ;;^UTILITY(U,$J,358.3,13420,2)
+574 ;;=^5007941
+575 ;;^UTILITY(U,$J,358.3,13421,0)
+576 ;;=I83.019^^53^583^68
+577 ;;^UTILITY(U,$J,358.3,13421,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,13421,1,3,0)
+580 ;;=3^Varicose Veins RLE w/ Ulcer
+581 ;;^UTILITY(U,$J,358.3,13421,1,4,0)
+582 ;;=4^I83.019
+583 ;;^UTILITY(U,$J,358.3,13421,2)
+584 ;;=^5007979
+585 ;;^UTILITY(U,$J,358.3,13422,0)
+586 ;;=I83.029^^53^583^67
+587 ;;^UTILITY(U,$J,358.3,13422,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,13422,1,3,0)
+590 ;;=3^Varicose Veins LLE w/ Ulcer
+591 ;;^UTILITY(U,$J,358.3,13422,1,4,0)
+592 ;;=4^I83.029
+593 ;;^UTILITY(U,$J,358.3,13422,2)
+594 ;;=^5007986
+595 ;;^UTILITY(U,$J,358.3,13423,0)
+596 ;;=I87.2^^53^583^69
+597 ;;^UTILITY(U,$J,358.3,13423,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,13423,1,3,0)
+600 ;;=3^Venous Insufficiency
+601 ;;^UTILITY(U,$J,358.3,13423,1,4,0)
+602 ;;=4^I87.2
+603 ;;^UTILITY(U,$J,358.3,13423,2)
+604 ;;=^5008047
+605 ;;^UTILITY(U,$J,358.3,13424,0)
+606 ;;=R07.9^^53^583^16
+607 ;;^UTILITY(U,$J,358.3,13424,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,13424,1,3,0)
+610 ;;=3^Chest Pain,Unspec
+611 ;;^UTILITY(U,$J,358.3,13424,1,4,0)
+612 ;;=4^R07.9
+613 ;;^UTILITY(U,$J,358.3,13424,2)
+614 ;;=^5019201
+615 ;;^UTILITY(U,$J,358.3,13425,0)
+616 ;;=Z95.2^^53^583^47
+617 ;;^UTILITY(U,$J,358.3,13425,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,13425,1,3,0)
+620 ;;=3^Presence of Prosthetic Heart Valve
+621 ;;^UTILITY(U,$J,358.3,13425,1,4,0)
+622 ;;=4^Z95.2
+623 ;;^UTILITY(U,$J,358.3,13425,2)
+624 ;;=^5063670
+625 ;;^UTILITY(U,$J,358.3,13426,0)
+626 ;;=Z95.0^^53^583^46
+627 ;;^UTILITY(U,$J,358.3,13426,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,13426,1,3,0)
+630 ;;=3^Presence of Cardiac Pacemaker
+631 ;;^UTILITY(U,$J,358.3,13426,1,4,0)
+632 ;;=4^Z95.0
+633 ;;^UTILITY(U,$J,358.3,13426,2)
+634 ;;=^5063668
+635 ;;^UTILITY(U,$J,358.3,13427,0)
+636 ;;=Z95.810^^53^583^45
+637 ;;^UTILITY(U,$J,358.3,13427,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,13427,1,3,0)
+640 ;;=3^Presence of Automatic Cardiac Defibrillator
+641 ;;^UTILITY(U,$J,358.3,13427,1,4,0)
+642 ;;=4^Z95.810
+643 ;;^UTILITY(U,$J,358.3,13427,2)
+644 ;;=^5063674
+645 ;;^UTILITY(U,$J,358.3,13428,0)
+646 ;;=Z95.1^^53^583^44
+647 ;;^UTILITY(U,$J,358.3,13428,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,13428,1,3,0)
+650 ;;=3^Presence of Aortocoronary Bypass Graft
+651 ;;^UTILITY(U,$J,358.3,13428,1,4,0)
+652 ;;=4^Z95.1
+653 ;;^UTILITY(U,$J,358.3,13428,2)
+654 ;;=^5063669
+655 ;;^UTILITY(U,$J,358.3,13429,0)
+656 ;;=I71.3^^53^583^1
+657 ;;^UTILITY(U,$J,358.3,13429,1,0)
+658 ;;=^358.31IA^4^2
