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

IBDEI078.m

Go to the documentation of this file.
IBDEI078 ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,17353,1,4,0)
 ;;=4^R31.0
 ;;^UTILITY(U,$J,358.3,17353,2)
 ;;=^5019325
 ;;^UTILITY(U,$J,358.3,17354,0)
 ;;=R31.1^^95^1003^1
 ;;^UTILITY(U,$J,358.3,17354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17354,1,3,0)
 ;;=3^Benign Essential Microscopic Hematuria
 ;;^UTILITY(U,$J,358.3,17354,1,4,0)
 ;;=4^R31.1
 ;;^UTILITY(U,$J,358.3,17354,2)
 ;;=^5019326
 ;;^UTILITY(U,$J,358.3,17355,0)
 ;;=N40.0^^95^1003^6
 ;;^UTILITY(U,$J,358.3,17355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17355,1,3,0)
 ;;=3^Enlarged Prostate w/o Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,17355,1,4,0)
 ;;=4^N40.0
 ;;^UTILITY(U,$J,358.3,17355,2)
 ;;=^5015689
 ;;^UTILITY(U,$J,358.3,17356,0)
 ;;=N42.89^^95^1003^33
 ;;^UTILITY(U,$J,358.3,17356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17356,1,3,0)
 ;;=3^Prostate Disorders NEC
 ;;^UTILITY(U,$J,358.3,17356,1,4,0)
 ;;=4^N42.89
 ;;^UTILITY(U,$J,358.3,17356,2)
 ;;=^270425
 ;;^UTILITY(U,$J,358.3,17357,0)
 ;;=N41.9^^95^1003^23
 ;;^UTILITY(U,$J,358.3,17357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17357,1,3,0)
 ;;=3^Inflammatory Disease of Prostate,Unspec
 ;;^UTILITY(U,$J,358.3,17357,1,4,0)
 ;;=4^N41.9
 ;;^UTILITY(U,$J,358.3,17357,2)
 ;;=^5015694
 ;;^UTILITY(U,$J,358.3,17358,0)
 ;;=N43.3^^95^1003^22
 ;;^UTILITY(U,$J,358.3,17358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17358,1,3,0)
 ;;=3^Hydrocele,Unspec
 ;;^UTILITY(U,$J,358.3,17358,1,4,0)
 ;;=4^N43.3
 ;;^UTILITY(U,$J,358.3,17358,2)
 ;;=^5015700
 ;;^UTILITY(U,$J,358.3,17359,0)
 ;;=N47.1^^95^1003^32
 ;;^UTILITY(U,$J,358.3,17359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17359,1,3,0)
 ;;=3^Phimosis
 ;;^UTILITY(U,$J,358.3,17359,1,4,0)
 ;;=4^N47.1
 ;;^UTILITY(U,$J,358.3,17359,2)
 ;;=^93340
 ;;^UTILITY(U,$J,358.3,17360,0)
 ;;=N47.2^^95^1003^31
 ;;^UTILITY(U,$J,358.3,17360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17360,1,3,0)
 ;;=3^Paraphimosis
 ;;^UTILITY(U,$J,358.3,17360,1,4,0)
 ;;=4^N47.2
 ;;^UTILITY(U,$J,358.3,17360,2)
 ;;=^90023
 ;;^UTILITY(U,$J,358.3,17361,0)
 ;;=N52.9^^95^1003^16
 ;;^UTILITY(U,$J,358.3,17361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17361,1,3,0)
 ;;=3^Erectile Dysfunction,Unspec
 ;;^UTILITY(U,$J,358.3,17361,1,4,0)
 ;;=4^N52.9
 ;;^UTILITY(U,$J,358.3,17361,2)
 ;;=^5015763
 ;;^UTILITY(U,$J,358.3,17362,0)
 ;;=N52.8^^95^1003^11
 ;;^UTILITY(U,$J,358.3,17362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17362,1,3,0)
 ;;=3^Erectile Dysfunction NEC
 ;;^UTILITY(U,$J,358.3,17362,1,4,0)
 ;;=4^N52.8
 ;;^UTILITY(U,$J,358.3,17362,2)
 ;;=^5015762
 ;;^UTILITY(U,$J,358.3,17363,0)
 ;;=N52.39^^95^1003^15
 ;;^UTILITY(U,$J,358.3,17363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17363,1,3,0)
 ;;=3^Erectile Dysfunction,Post-Surgical NEC
 ;;^UTILITY(U,$J,358.3,17363,1,4,0)
 ;;=4^N52.39
 ;;^UTILITY(U,$J,358.3,17363,2)
 ;;=^5015761
 ;;^UTILITY(U,$J,358.3,17364,0)
 ;;=N52.34^^95^1003^9
 ;;^UTILITY(U,$J,358.3,17364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17364,1,3,0)
 ;;=3^Erectile Dysfunction Following Simple Prostatectomy
 ;;^UTILITY(U,$J,358.3,17364,1,4,0)
 ;;=4^N52.34
 ;;^UTILITY(U,$J,358.3,17364,2)
 ;;=^5015760
 ;;^UTILITY(U,$J,358.3,17365,0)
 ;;=N52.33^^95^1003^10
 ;;^UTILITY(U,$J,358.3,17365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17365,1,3,0)
 ;;=3^Erectile Dysfunction Following Urethral Surgery
 ;;^UTILITY(U,$J,358.3,17365,1,4,0)
 ;;=4^N52.33
 ;;^UTILITY(U,$J,358.3,17365,2)
 ;;=^5015759
 ;;^UTILITY(U,$J,358.3,17366,0)
 ;;=N52.32^^95^1003^7
 ;;^UTILITY(U,$J,358.3,17366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17366,1,3,0)
 ;;=3^Erectile Dysfunction Following Radical Cystectomy
 ;;^UTILITY(U,$J,358.3,17366,1,4,0)
 ;;=4^N52.32
 ;;^UTILITY(U,$J,358.3,17366,2)
 ;;=^5015758
 ;;^UTILITY(U,$J,358.3,17367,0)
 ;;=N52.31^^95^1003^8
 ;;^UTILITY(U,$J,358.3,17367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17367,1,3,0)
 ;;=3^Erectile Dysfunction Following Radical Prostatectomy
 ;;^UTILITY(U,$J,358.3,17367,1,4,0)
 ;;=4^N52.31
 ;;^UTILITY(U,$J,358.3,17367,2)
 ;;=^5015757
 ;;^UTILITY(U,$J,358.3,17368,0)
 ;;=N52.2^^95^1003^14
 ;;^UTILITY(U,$J,358.3,17368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17368,1,3,0)
 ;;=3^Erectile Dysfunction,Drug-Induced
 ;;^UTILITY(U,$J,358.3,17368,1,4,0)
 ;;=4^N52.2
 ;;^UTILITY(U,$J,358.3,17368,2)
 ;;=^5015756
 ;;^UTILITY(U,$J,358.3,17369,0)
 ;;=N52.02^^95^1003^13
 ;;^UTILITY(U,$J,358.3,17369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17369,1,3,0)
 ;;=3^Erectile Dysfunction,Corporo-Venous Occlusive
 ;;^UTILITY(U,$J,358.3,17369,1,4,0)
 ;;=4^N52.02
 ;;^UTILITY(U,$J,358.3,17369,2)
 ;;=^5015753
 ;;^UTILITY(U,$J,358.3,17370,0)
 ;;=N52.03^^95^1003^12
 ;;^UTILITY(U,$J,358.3,17370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17370,1,3,0)
 ;;=3^Erectile Dysfunction,Artrl Insuff/Corporo-Venous Occlusive
 ;;^UTILITY(U,$J,358.3,17370,1,4,0)
 ;;=4^N52.03
 ;;^UTILITY(U,$J,358.3,17370,2)
 ;;=^5015754
 ;;^UTILITY(U,$J,358.3,17371,0)
 ;;=N52.1^^95^1003^18
 ;;^UTILITY(U,$J,358.3,17371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17371,1,3,0)
 ;;=3^Eriectile Dysfunction d/t Oth Diseases
 ;;^UTILITY(U,$J,358.3,17371,1,4,0)
 ;;=4^N52.1
 ;;^UTILITY(U,$J,358.3,17371,2)
 ;;=^5015755
 ;;^UTILITY(U,$J,358.3,17372,0)
 ;;=N52.01^^95^1003^17
 ;;^UTILITY(U,$J,358.3,17372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17372,1,3,0)
 ;;=3^Eriectile Dysfunction d/t Arterial Insufficiency
 ;;^UTILITY(U,$J,358.3,17372,1,4,0)
 ;;=4^N52.01
 ;;^UTILITY(U,$J,358.3,17372,2)
 ;;=^5015752
 ;;^UTILITY(U,$J,358.3,17373,0)
 ;;=R33.9^^95^1003^35
 ;;^UTILITY(U,$J,358.3,17373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17373,1,3,0)
 ;;=3^Retention of Urine,Unspec
 ;;^UTILITY(U,$J,358.3,17373,1,4,0)
 ;;=4^R33.9
 ;;^UTILITY(U,$J,358.3,17373,2)
 ;;=^5019332
 ;;^UTILITY(U,$J,358.3,17374,0)
 ;;=R32.^^95^1003^40
 ;;^UTILITY(U,$J,358.3,17374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17374,1,3,0)
 ;;=3^Urinary Incontinence,Unspec
 ;;^UTILITY(U,$J,358.3,17374,1,4,0)
 ;;=4^R32.
 ;;^UTILITY(U,$J,358.3,17374,2)
 ;;=^5019329
 ;;^UTILITY(U,$J,358.3,17375,0)
 ;;=R35.0^^95^1003^19
 ;;^UTILITY(U,$J,358.3,17375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17375,1,3,0)
 ;;=3^Frequency of Micturition
 ;;^UTILITY(U,$J,358.3,17375,1,4,0)
 ;;=4^R35.0
 ;;^UTILITY(U,$J,358.3,17375,2)
 ;;=^5019334
 ;;^UTILITY(U,$J,358.3,17376,0)
 ;;=R31.21^^95^1003^28
 ;;^UTILITY(U,$J,358.3,17376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17376,1,3,0)
 ;;=3^Microscopic Hematuria,Asymptomatic
 ;;^UTILITY(U,$J,358.3,17376,1,4,0)
 ;;=4^R31.21
 ;;^UTILITY(U,$J,358.3,17376,2)
 ;;=^5139198
 ;;^UTILITY(U,$J,358.3,17377,0)
 ;;=R31.29^^95^1003^29
 ;;^UTILITY(U,$J,358.3,17377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17377,1,3,0)
 ;;=3^Microscopic Hematuria,Other
 ;;^UTILITY(U,$J,358.3,17377,1,4,0)
 ;;=4^R31.29
 ;;^UTILITY(U,$J,358.3,17377,2)
 ;;=^5019327
 ;;^UTILITY(U,$J,358.3,17378,0)
 ;;=N35.919^^95^1003^39
 ;;^UTILITY(U,$J,358.3,17378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17378,1,3,0)
 ;;=3^Urethral Stricture,Male,Unspec
 ;;^UTILITY(U,$J,358.3,17378,1,4,0)
 ;;=4^N35.919
 ;;^UTILITY(U,$J,358.3,17378,2)
 ;;=^5157412
 ;;^UTILITY(U,$J,358.3,17379,0)
 ;;=N35.92^^95^1003^38
 ;;^UTILITY(U,$J,358.3,17379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17379,1,3,0)
 ;;=3^Urethral Stricture,Female,Unspec
 ;;^UTILITY(U,$J,358.3,17379,1,4,0)
 ;;=4^N35.92
 ;;^UTILITY(U,$J,358.3,17379,2)
 ;;=^5157413
 ;;^UTILITY(U,$J,358.3,17380,0)
 ;;=I83.019^^95^1004^21
 ;;^UTILITY(U,$J,358.3,17380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17380,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extremity w/ Ulcer
 ;;^UTILITY(U,$J,358.3,17380,1,4,0)
 ;;=4^I83.019
 ;;^UTILITY(U,$J,358.3,17380,2)
 ;;=^5007979
 ;;^UTILITY(U,$J,358.3,17381,0)
 ;;=I83.029^^95^1004^12
 ;;^UTILITY(U,$J,358.3,17381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17381,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extremity w/ Ulcer
 ;;^UTILITY(U,$J,358.3,17381,1,4,0)
 ;;=4^I83.029
 ;;^UTILITY(U,$J,358.3,17381,2)
 ;;=^5007986
 ;;^UTILITY(U,$J,358.3,17382,0)
 ;;=I83.014^^95^1004^13
 ;;^UTILITY(U,$J,358.3,17382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17382,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,17382,1,4,0)
 ;;=4^I83.014
 ;;^UTILITY(U,$J,358.3,17382,2)
 ;;=^5007976
 ;;^UTILITY(U,$J,358.3,17383,0)
 ;;=I83.013^^95^1004^14
 ;;^UTILITY(U,$J,358.3,17383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17383,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,17383,1,4,0)
 ;;=4^I83.013
 ;;^UTILITY(U,$J,358.3,17383,2)
 ;;=^5007975
 ;;^UTILITY(U,$J,358.3,17384,0)
 ;;=I83.012^^95^1004^15
 ;;^UTILITY(U,$J,358.3,17384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17384,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,17384,1,4,0)
 ;;=4^I83.012
 ;;^UTILITY(U,$J,358.3,17384,2)
 ;;=^5007974
 ;;^UTILITY(U,$J,358.3,17385,0)
 ;;=I83.011^^95^1004^16
 ;;^UTILITY(U,$J,358.3,17385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17385,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,17385,1,4,0)
 ;;=4^I83.011
 ;;^UTILITY(U,$J,358.3,17385,2)
 ;;=^5007973
 ;;^UTILITY(U,$J,358.3,17386,0)
 ;;=I83.018^^95^1004^17
 ;;^UTILITY(U,$J,358.3,17386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17386,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Lower Leg Ulcer
 ;;^UTILITY(U,$J,358.3,17386,1,4,0)
 ;;=4^I83.018
 ;;^UTILITY(U,$J,358.3,17386,2)
 ;;=^5007978
 ;;^UTILITY(U,$J,358.3,17387,0)
 ;;=I83.015^^95^1004^18
 ;;^UTILITY(U,$J,358.3,17387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17387,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,17387,1,4,0)
 ;;=4^I83.015
 ;;^UTILITY(U,$J,358.3,17387,2)
 ;;=^5007977
 ;;^UTILITY(U,$J,358.3,17388,0)
 ;;=I83.019^^95^1004^19
 ;;^UTILITY(U,$J,358.3,17388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17388,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Ulcer,Unspec Site
 ;;^UTILITY(U,$J,358.3,17388,1,4,0)
 ;;=4^I83.019
 ;;^UTILITY(U,$J,358.3,17388,2)
 ;;=^5007979
 ;;^UTILITY(U,$J,358.3,17389,0)
 ;;=I83.11^^95^1004^20
 ;;^UTILITY(U,$J,358.3,17389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17389,1,3,0)
 ;;=3^Varicose Veins of Right Lower Extrem w/ Inflammation
 ;;^UTILITY(U,$J,358.3,17389,1,4,0)
 ;;=4^I83.11
 ;;^UTILITY(U,$J,358.3,17389,2)
 ;;=^5007988
 ;;^UTILITY(U,$J,358.3,17390,0)
 ;;=I83.91^^95^1004^3
 ;;^UTILITY(U,$J,358.3,17390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17390,1,3,0)
 ;;=3^Asymptomatic Varicose Veins of Right Lower Extrem 
 ;;^UTILITY(U,$J,358.3,17390,1,4,0)
 ;;=4^I83.91
 ;;^UTILITY(U,$J,358.3,17390,2)
 ;;=^5008020
 ;;^UTILITY(U,$J,358.3,17391,0)
 ;;=I83.029^^95^1004^4
 ;;^UTILITY(U,$J,358.3,17391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17391,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Ulcer,Unspec Site
 ;;^UTILITY(U,$J,358.3,17391,1,4,0)
 ;;=4^I83.029
 ;;^UTILITY(U,$J,358.3,17391,2)
 ;;=^5007986
 ;;^UTILITY(U,$J,358.3,17392,0)
 ;;=I83.025^^95^1004^5
 ;;^UTILITY(U,$J,358.3,17392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17392,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,17392,1,4,0)
 ;;=4^I83.025
 ;;^UTILITY(U,$J,358.3,17392,2)
 ;;=^5007984
 ;;^UTILITY(U,$J,358.3,17393,0)
 ;;=I83.024^^95^1004^6
 ;;^UTILITY(U,$J,358.3,17393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17393,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,17393,1,4,0)
 ;;=4^I83.024
 ;;^UTILITY(U,$J,358.3,17393,2)
 ;;=^5007983
 ;;^UTILITY(U,$J,358.3,17394,0)
 ;;=I83.028^^95^1004^7
 ;;^UTILITY(U,$J,358.3,17394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17394,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Lower Leg Ulcer
 ;;^UTILITY(U,$J,358.3,17394,1,4,0)
 ;;=4^I83.028
 ;;^UTILITY(U,$J,358.3,17394,2)
 ;;=^5007985
 ;;^UTILITY(U,$J,358.3,17395,0)
 ;;=I83.023^^95^1004^8
 ;;^UTILITY(U,$J,358.3,17395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17395,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,17395,1,4,0)
 ;;=4^I83.023
 ;;^UTILITY(U,$J,358.3,17395,2)
 ;;=^5007982
 ;;^UTILITY(U,$J,358.3,17396,0)
 ;;=I83.022^^95^1004^9
 ;;^UTILITY(U,$J,358.3,17396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17396,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,17396,1,4,0)
 ;;=4^I83.022
 ;;^UTILITY(U,$J,358.3,17396,2)
 ;;=^5007981
 ;;^UTILITY(U,$J,358.3,17397,0)
 ;;=I83.021^^95^1004^10
 ;;^UTILITY(U,$J,358.3,17397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17397,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,17397,1,4,0)
 ;;=4^I83.021
 ;;^UTILITY(U,$J,358.3,17397,2)
 ;;=^5007980
 ;;^UTILITY(U,$J,358.3,17398,0)
 ;;=I83.12^^95^1004^11
 ;;^UTILITY(U,$J,358.3,17398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17398,1,3,0)
 ;;=3^Varicose Veins of Left Lower Extrem w/ Inflammation
 ;;^UTILITY(U,$J,358.3,17398,1,4,0)
 ;;=4^I83.12
 ;;^UTILITY(U,$J,358.3,17398,2)
 ;;=^5007989
 ;;^UTILITY(U,$J,358.3,17399,0)
 ;;=I83.93^^95^1004^1
 ;;^UTILITY(U,$J,358.3,17399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17399,1,3,0)
 ;;=3^Asymptomatic Varicose Veins of Bilateral Lower Extrem
 ;;^UTILITY(U,$J,358.3,17399,1,4,0)
 ;;=4^I83.93
 ;;^UTILITY(U,$J,358.3,17399,2)
 ;;=^5008022
 ;;^UTILITY(U,$J,358.3,17400,0)
 ;;=I83.92^^95^1004^2
 ;;^UTILITY(U,$J,358.3,17400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17400,1,3,0)
 ;;=3^Asymptomatic Varicose Veins of Left Lower Extrem
 ;;^UTILITY(U,$J,358.3,17400,1,4,0)
 ;;=4^I83.92
 ;;^UTILITY(U,$J,358.3,17400,2)
 ;;=^5008021
 ;;^UTILITY(U,$J,358.3,17401,0)
 ;;=G97.32^^95^1005^35
 ;;^UTILITY(U,$J,358.3,17401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17401,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Nervous System Organ/Sturcture
 ;;^UTILITY(U,$J,358.3,17401,1,4,0)
 ;;=4^G97.32
 ;;^UTILITY(U,$J,358.3,17401,2)
 ;;=^5004205
 ;;^UTILITY(U,$J,358.3,17402,0)
 ;;=D78.02^^95^1005^38
 ;;^UTILITY(U,$J,358.3,17402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17402,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Spleen
 ;;^UTILITY(U,$J,358.3,17402,1,4,0)
 ;;=4^D78.02
 ;;^UTILITY(U,$J,358.3,17402,2)
 ;;=^5002398
 ;;^UTILITY(U,$J,358.3,17403,0)
 ;;=E36.01^^95^1005^29
 ;;^UTILITY(U,$J,358.3,17403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17403,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Endocrine System Organ/Structure
 ;;^UTILITY(U,$J,358.3,17403,1,4,0)
 ;;=4^E36.01
 ;;^UTILITY(U,$J,358.3,17403,2)
 ;;=^5002779
 ;;^UTILITY(U,$J,358.3,17404,0)
 ;;=I97.711^^95^1005^12
 ;;^UTILITY(U,$J,358.3,17404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17404,1,3,0)
 ;;=3^Intraoperative Cardiac Arrest During Surgery
 ;;^UTILITY(U,$J,358.3,17404,1,4,0)
 ;;=4^I97.711
 ;;^UTILITY(U,$J,358.3,17404,2)
 ;;=^5008104
 ;;^UTILITY(U,$J,358.3,17405,0)
 ;;=I97.791^^95^1005^13
 ;;^UTILITY(U,$J,358.3,17405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17405,1,3,0)
 ;;=3^Intraoperative Cardiac Functional Disturbance During Surgery
 ;;^UTILITY(U,$J,358.3,17405,1,4,0)
 ;;=4^I97.791
 ;;^UTILITY(U,$J,358.3,17405,2)
 ;;=^5008106
 ;;^UTILITY(U,$J,358.3,17406,0)
 ;;=I97.411^^95^1005^25
 ;;^UTILITY(U,$J,358.3,17406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17406,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Circ System During Cardiac Bypass
 ;;^UTILITY(U,$J,358.3,17406,1,4,0)
 ;;=4^I97.411
 ;;^UTILITY(U,$J,358.3,17406,2)
 ;;=^5008094
 ;;^UTILITY(U,$J,358.3,17407,0)
 ;;=I97.410^^95^1005^26
 ;;^UTILITY(U,$J,358.3,17407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17407,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Circ System During Cardiac Cath
 ;;^UTILITY(U,$J,358.3,17407,1,4,0)
 ;;=4^I97.410
 ;;^UTILITY(U,$J,358.3,17407,2)
 ;;=^5008093
 ;;^UTILITY(U,$J,358.3,17408,0)
 ;;=I97.42^^95^1005^27
 ;;^UTILITY(U,$J,358.3,17408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17408,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Circ System
 ;;^UTILITY(U,$J,358.3,17408,1,4,0)
 ;;=4^I97.42
 ;;^UTILITY(U,$J,358.3,17408,2)
 ;;=^5008096
 ;;^UTILITY(U,$J,358.3,17409,0)
 ;;=K91.62^^95^1005^28
 ;;^UTILITY(U,$J,358.3,17409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17409,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Digestive System
 ;;^UTILITY(U,$J,358.3,17409,1,4,0)
 ;;=4^K91.62
 ;;^UTILITY(U,$J,358.3,17409,2)
 ;;=^5008904
 ;;^UTILITY(U,$J,358.3,17410,0)
 ;;=H95.22^^95^1005^30
 ;;^UTILITY(U,$J,358.3,17410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17410,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Ear/Mastoid
 ;;^UTILITY(U,$J,358.3,17410,1,4,0)
 ;;=4^H95.22
 ;;^UTILITY(U,$J,358.3,17410,2)
 ;;=^5007027
 ;;^UTILITY(U,$J,358.3,17411,0)
 ;;=E36.02^^95^1005^31
 ;;^UTILITY(U,$J,358.3,17411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17411,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Endocrine System
 ;;^UTILITY(U,$J,358.3,17411,1,4,0)
 ;;=4^E36.02
 ;;^UTILITY(U,$J,358.3,17411,2)
 ;;=^5002780
 ;;^UTILITY(U,$J,358.3,17412,0)
 ;;=H59.121^^95^1005^36
 ;;^UTILITY(U,$J,358.3,17412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17412,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Right Eye/Adnexa
 ;;^UTILITY(U,$J,358.3,17412,1,4,0)
 ;;=4^H59.121
 ;;^UTILITY(U,$J,358.3,17412,2)
 ;;=^5006405
 ;;^UTILITY(U,$J,358.3,17413,0)
 ;;=H59.122^^95^1005^33
 ;;^UTILITY(U,$J,358.3,17413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17413,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Left Eye/Adnexa
 ;;^UTILITY(U,$J,358.3,17413,1,4,0)
 ;;=4^H59.122
 ;;^UTILITY(U,$J,358.3,17413,2)
 ;;=^5006406
 ;;^UTILITY(U,$J,358.3,17414,0)
 ;;=H59.123^^95^1005^24
 ;;^UTILITY(U,$J,358.3,17414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17414,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Bilateral Eyes/Adnexa
 ;;^UTILITY(U,$J,358.3,17414,1,4,0)
 ;;=4^H59.123
 ;;^UTILITY(U,$J,358.3,17414,2)
 ;;=^5006407
 ;;^UTILITY(U,$J,358.3,17415,0)
 ;;=N99.62^^95^1005^32
 ;;^UTILITY(U,$J,358.3,17415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17415,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of GU System
 ;;^UTILITY(U,$J,358.3,17415,1,4,0)
 ;;=4^N99.62
 ;;^UTILITY(U,$J,358.3,17415,2)
 ;;=^5015964
 ;;^UTILITY(U,$J,358.3,17416,0)
 ;;=M96.811^^95^1005^34
 ;;^UTILITY(U,$J,358.3,17416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17416,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Musculoskeletal System
 ;;^UTILITY(U,$J,358.3,17416,1,4,0)
 ;;=4^M96.811
 ;;^UTILITY(U,$J,358.3,17416,2)
 ;;=^5015394
 ;;^UTILITY(U,$J,358.3,17417,0)
 ;;=J95.62^^95^1005^37
 ;;^UTILITY(U,$J,358.3,17417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17417,1,3,0)
 ;;=3^Intraoperative Hemorrhage/Hematoma of Respiratory System
 ;;^UTILITY(U,$J,358.3,17417,1,4,0)
 ;;=4^J95.62
 ;;^UTILITY(U,$J,358.3,17417,2)
 ;;=^5008333
 ;;^UTILITY(U,$J,358.3,17418,0)
 ;;=K91.72^^95^1005^1
 ;;^UTILITY(U,$J,358.3,17418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17418,1,3,0)
 ;;=3^Accidental Puncture/Laceration of Digestive System During Surgery