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

IBDEI0AT.m

Go to the documentation of this file.
IBDEI0AT ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,26375,0)
 ;;=C62.92^^98^1253^18
 ;;^UTILITY(U,$J,358.3,26375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26375,1,3,0)
 ;;=3^Malig Neop Lt Testis
 ;;^UTILITY(U,$J,358.3,26375,1,4,0)
 ;;=4^C62.92
 ;;^UTILITY(U,$J,358.3,26375,2)
 ;;=^5001238
 ;;^UTILITY(U,$J,358.3,26376,0)
 ;;=C60.0^^98^1253^20
 ;;^UTILITY(U,$J,358.3,26376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26376,1,3,0)
 ;;=3^Malig Neop Prepuce
 ;;^UTILITY(U,$J,358.3,26376,1,4,0)
 ;;=4^C60.0
 ;;^UTILITY(U,$J,358.3,26376,2)
 ;;=^267244
 ;;^UTILITY(U,$J,358.3,26377,0)
 ;;=C60.1^^98^1253^13
 ;;^UTILITY(U,$J,358.3,26377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26377,1,3,0)
 ;;=3^Malig Neop Glans Penis
 ;;^UTILITY(U,$J,358.3,26377,1,4,0)
 ;;=4^C60.1
 ;;^UTILITY(U,$J,358.3,26377,2)
 ;;=^267245
 ;;^UTILITY(U,$J,358.3,26378,0)
 ;;=C60.2^^98^1253^10
 ;;^UTILITY(U,$J,358.3,26378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26378,1,3,0)
 ;;=3^Malig Neop Body of Penis
 ;;^UTILITY(U,$J,358.3,26378,1,4,0)
 ;;=4^C60.2
 ;;^UTILITY(U,$J,358.3,26378,2)
 ;;=^267246
 ;;^UTILITY(U,$J,358.3,26379,0)
 ;;=C63.01^^98^1253^22
 ;;^UTILITY(U,$J,358.3,26379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26379,1,3,0)
 ;;=3^Malig Neop Rt Epididymis
 ;;^UTILITY(U,$J,358.3,26379,1,4,0)
 ;;=4^C63.01
 ;;^UTILITY(U,$J,358.3,26379,2)
 ;;=^5001240
 ;;^UTILITY(U,$J,358.3,26380,0)
 ;;=C63.02^^98^1253^14
 ;;^UTILITY(U,$J,358.3,26380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26380,1,3,0)
 ;;=3^Malig Neop Lt Epididymis
 ;;^UTILITY(U,$J,358.3,26380,1,4,0)
 ;;=4^C63.02
 ;;^UTILITY(U,$J,358.3,26380,2)
 ;;=^5001241
 ;;^UTILITY(U,$J,358.3,26381,0)
 ;;=C63.11^^98^1253^25
 ;;^UTILITY(U,$J,358.3,26381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26381,1,3,0)
 ;;=3^Malig Neop Rt Spermatic Cord
 ;;^UTILITY(U,$J,358.3,26381,1,4,0)
 ;;=4^C63.11
 ;;^UTILITY(U,$J,358.3,26381,2)
 ;;=^5001243
 ;;^UTILITY(U,$J,358.3,26382,0)
 ;;=C63.12^^98^1253^17
 ;;^UTILITY(U,$J,358.3,26382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26382,1,3,0)
 ;;=3^Malig Neop Lt Spermatic Cord
 ;;^UTILITY(U,$J,358.3,26382,1,4,0)
 ;;=4^C63.12
 ;;^UTILITY(U,$J,358.3,26382,2)
 ;;=^5001244
 ;;^UTILITY(U,$J,358.3,26383,0)
 ;;=C63.2^^98^1253^28
 ;;^UTILITY(U,$J,358.3,26383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26383,1,3,0)
 ;;=3^Malig Neop Scrotum
 ;;^UTILITY(U,$J,358.3,26383,1,4,0)
 ;;=4^C63.2
 ;;^UTILITY(U,$J,358.3,26383,2)
 ;;=^267250
 ;;^UTILITY(U,$J,358.3,26384,0)
 ;;=C64.2^^98^1253^15
 ;;^UTILITY(U,$J,358.3,26384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26384,1,3,0)
 ;;=3^Malig Neop Lt Kidney,Except Renal Pelvis
 ;;^UTILITY(U,$J,358.3,26384,1,4,0)
 ;;=4^C64.2
 ;;^UTILITY(U,$J,358.3,26384,2)
 ;;=^5001249
 ;;^UTILITY(U,$J,358.3,26385,0)
 ;;=C64.1^^98^1253^23
 ;;^UTILITY(U,$J,358.3,26385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26385,1,3,0)
 ;;=3^Malig Neop Rt Kidney, Except Renal Pelvis
 ;;^UTILITY(U,$J,358.3,26385,1,4,0)
 ;;=4^C64.1
 ;;^UTILITY(U,$J,358.3,26385,2)
 ;;=^5001248
 ;;^UTILITY(U,$J,358.3,26386,0)
 ;;=C65.1^^98^1253^24
 ;;^UTILITY(U,$J,358.3,26386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26386,1,3,0)
 ;;=3^Malig Neop Rt Renal Pelvis
 ;;^UTILITY(U,$J,358.3,26386,1,4,0)
 ;;=4^C65.1
 ;;^UTILITY(U,$J,358.3,26386,2)
 ;;=^5001251
 ;;^UTILITY(U,$J,358.3,26387,0)
 ;;=C65.2^^98^1253^16
 ;;^UTILITY(U,$J,358.3,26387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26387,1,3,0)
 ;;=3^Malig Neop Lt Renal Pelvis
 ;;^UTILITY(U,$J,358.3,26387,1,4,0)
 ;;=4^C65.2
 ;;^UTILITY(U,$J,358.3,26387,2)
 ;;=^5001252
 ;;^UTILITY(U,$J,358.3,26388,0)
 ;;=C66.1^^98^1253^27
 ;;^UTILITY(U,$J,358.3,26388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26388,1,3,0)
 ;;=3^Malig Neop Rt Ureter
 ;;^UTILITY(U,$J,358.3,26388,1,4,0)
 ;;=4^C66.1
 ;;^UTILITY(U,$J,358.3,26388,2)
 ;;=^5001254
 ;;^UTILITY(U,$J,358.3,26389,0)
 ;;=C66.2^^98^1253^19
 ;;^UTILITY(U,$J,358.3,26389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26389,1,3,0)
 ;;=3^Malig Neop Lt Ureter
 ;;^UTILITY(U,$J,358.3,26389,1,4,0)
 ;;=4^C66.2
 ;;^UTILITY(U,$J,358.3,26389,2)
 ;;=^5001255
 ;;^UTILITY(U,$J,358.3,26390,0)
 ;;=C68.0^^98^1253^31
 ;;^UTILITY(U,$J,358.3,26390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26390,1,3,0)
 ;;=3^Malig Neop Urethra
 ;;^UTILITY(U,$J,358.3,26390,1,4,0)
 ;;=4^C68.0
 ;;^UTILITY(U,$J,358.3,26390,2)
 ;;=^267266
 ;;^UTILITY(U,$J,358.3,26391,0)
 ;;=C79.01^^98^1253^42
 ;;^UTILITY(U,$J,358.3,26391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26391,1,3,0)
 ;;=3^Secondary Malig Neop Rt Kidney/Renal Pelvis
 ;;^UTILITY(U,$J,358.3,26391,1,4,0)
 ;;=4^C79.01
 ;;^UTILITY(U,$J,358.3,26391,2)
 ;;=^5001343
 ;;^UTILITY(U,$J,358.3,26392,0)
 ;;=C79.02^^98^1253^41
 ;;^UTILITY(U,$J,358.3,26392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26392,1,3,0)
 ;;=3^Secondary Malig Neop Lt Kidney/Renal Pelvis
 ;;^UTILITY(U,$J,358.3,26392,1,4,0)
 ;;=4^C79.02
 ;;^UTILITY(U,$J,358.3,26392,2)
 ;;=^5001344
 ;;^UTILITY(U,$J,358.3,26393,0)
 ;;=C79.11^^98^1253^38
 ;;^UTILITY(U,$J,358.3,26393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26393,1,3,0)
 ;;=3^Secondary Malig Neop Bladder
 ;;^UTILITY(U,$J,358.3,26393,1,4,0)
 ;;=4^C79.11
 ;;^UTILITY(U,$J,358.3,26393,2)
 ;;=^5001346
 ;;^UTILITY(U,$J,358.3,26394,0)
 ;;=C79.10^^98^1253^43
 ;;^UTILITY(U,$J,358.3,26394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26394,1,3,0)
 ;;=3^Secondary Malig Neop Unsp Urinary Organs
 ;;^UTILITY(U,$J,358.3,26394,1,4,0)
 ;;=4^C79.10
 ;;^UTILITY(U,$J,358.3,26394,2)
 ;;=^5001345
 ;;^UTILITY(U,$J,358.3,26395,0)
 ;;=C79.82^^98^1253^40
 ;;^UTILITY(U,$J,358.3,26395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26395,1,3,0)
 ;;=3^Secondary Malig Neop Genital Organs
 ;;^UTILITY(U,$J,358.3,26395,1,4,0)
 ;;=4^C79.82
 ;;^UTILITY(U,$J,358.3,26395,2)
 ;;=^267339
 ;;^UTILITY(U,$J,358.3,26396,0)
 ;;=C67.9^^98^1253^8
 ;;^UTILITY(U,$J,358.3,26396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26396,1,3,0)
 ;;=3^Malig Neop Bladder,Site Unspec
 ;;^UTILITY(U,$J,358.3,26396,1,4,0)
 ;;=4^C67.9
 ;;^UTILITY(U,$J,358.3,26396,2)
 ;;=^5001263
 ;;^UTILITY(U,$J,358.3,26397,0)
 ;;=C67.0^^98^1253^9
 ;;^UTILITY(U,$J,358.3,26397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26397,1,3,0)
 ;;=3^Malig Neop Bladder,Trigone
 ;;^UTILITY(U,$J,358.3,26397,1,4,0)
 ;;=4^C67.0
 ;;^UTILITY(U,$J,358.3,26397,2)
 ;;=^5001257
 ;;^UTILITY(U,$J,358.3,26398,0)
 ;;=C67.1^^98^1253^3
 ;;^UTILITY(U,$J,358.3,26398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26398,1,3,0)
 ;;=3^Malig Neop Bladder,Dome
 ;;^UTILITY(U,$J,358.3,26398,1,4,0)
 ;;=4^C67.1
 ;;^UTILITY(U,$J,358.3,26398,2)
 ;;=^5001258
 ;;^UTILITY(U,$J,358.3,26399,0)
 ;;=C67.2^^98^1253^4
 ;;^UTILITY(U,$J,358.3,26399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26399,1,3,0)
 ;;=3^Malig Neop Bladder,Lateral Wall
 ;;^UTILITY(U,$J,358.3,26399,1,4,0)
 ;;=4^C67.2
 ;;^UTILITY(U,$J,358.3,26399,2)
 ;;=^5001259
 ;;^UTILITY(U,$J,358.3,26400,0)
 ;;=C67.3^^98^1253^2
 ;;^UTILITY(U,$J,358.3,26400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26400,1,3,0)
 ;;=3^Malig Neop Bladder,Anterior Wall
 ;;^UTILITY(U,$J,358.3,26400,1,4,0)
 ;;=4^C67.3
 ;;^UTILITY(U,$J,358.3,26400,2)
 ;;=^5001260
 ;;^UTILITY(U,$J,358.3,26401,0)
 ;;=C67.4^^98^1253^7
 ;;^UTILITY(U,$J,358.3,26401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26401,1,3,0)
 ;;=3^Malig Neop Bladder,Posterior Wall
 ;;^UTILITY(U,$J,358.3,26401,1,4,0)
 ;;=4^C67.4
 ;;^UTILITY(U,$J,358.3,26401,2)
 ;;=^5001261
 ;;^UTILITY(U,$J,358.3,26402,0)
 ;;=C67.5^^98^1253^5
 ;;^UTILITY(U,$J,358.3,26402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26402,1,3,0)
 ;;=3^Malig Neop Bladder,Neck
 ;;^UTILITY(U,$J,358.3,26402,1,4,0)
 ;;=4^C67.5
 ;;^UTILITY(U,$J,358.3,26402,2)
 ;;=^267259
 ;;^UTILITY(U,$J,358.3,26403,0)
 ;;=C67.6^^98^1253^30
 ;;^UTILITY(U,$J,358.3,26403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26403,1,3,0)
 ;;=3^Malig Neop Ureteric Orifice
 ;;^UTILITY(U,$J,358.3,26403,1,4,0)
 ;;=4^C67.6
 ;;^UTILITY(U,$J,358.3,26403,2)
 ;;=^267260
 ;;^UTILITY(U,$J,358.3,26404,0)
 ;;=C67.7^^98^1253^29
 ;;^UTILITY(U,$J,358.3,26404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26404,1,3,0)
 ;;=3^Malig Neop Urachus
 ;;^UTILITY(U,$J,358.3,26404,1,4,0)
 ;;=4^C67.7
 ;;^UTILITY(U,$J,358.3,26404,2)
 ;;=^267261
 ;;^UTILITY(U,$J,358.3,26405,0)
 ;;=C67.8^^98^1253^6
 ;;^UTILITY(U,$J,358.3,26405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26405,1,3,0)
 ;;=3^Malig Neop Bladder,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,26405,1,4,0)
 ;;=4^C67.8
 ;;^UTILITY(U,$J,358.3,26405,2)
 ;;=^5001262
 ;;^UTILITY(U,$J,358.3,26406,0)
 ;;=Z85.51^^98^1253^32
 ;;^UTILITY(U,$J,358.3,26406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26406,1,3,0)
 ;;=3^Personal Hx of Malig Neop Bladder
 ;;^UTILITY(U,$J,358.3,26406,1,4,0)
 ;;=4^Z85.51
 ;;^UTILITY(U,$J,358.3,26406,2)
 ;;=^5063428
 ;;^UTILITY(U,$J,358.3,26407,0)
 ;;=R97.21^^98^1253^1
 ;;^UTILITY(U,$J,358.3,26407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26407,1,3,0)
 ;;=3^Elevated PSA
 ;;^UTILITY(U,$J,358.3,26407,1,4,0)
 ;;=4^R97.21
 ;;^UTILITY(U,$J,358.3,26407,2)
 ;;=^5139228
 ;;^UTILITY(U,$J,358.3,26408,0)
 ;;=C79.51^^98^1253^39
 ;;^UTILITY(U,$J,358.3,26408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26408,1,3,0)
 ;;=3^Secondary Malig Neop Bone
 ;;^UTILITY(U,$J,358.3,26408,1,4,0)
 ;;=4^C79.51
 ;;^UTILITY(U,$J,358.3,26408,2)
 ;;=^5001350
 ;;^UTILITY(U,$J,358.3,26409,0)
 ;;=C77.2^^98^1253^33
 ;;^UTILITY(U,$J,358.3,26409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26409,1,3,0)
 ;;=3^Secondary & Unsp Malig Neop Intra-Abd LN
 ;;^UTILITY(U,$J,358.3,26409,1,4,0)
 ;;=4^C77.2
 ;;^UTILITY(U,$J,358.3,26409,2)
 ;;=^267316
 ;;^UTILITY(U,$J,358.3,26410,0)
 ;;=C77.5^^98^1253^34
 ;;^UTILITY(U,$J,358.3,26410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26410,1,3,0)
 ;;=3^Secondary & Unsp Malig Neop Intrapelv LN
 ;;^UTILITY(U,$J,358.3,26410,1,4,0)
 ;;=4^C77.5
 ;;^UTILITY(U,$J,358.3,26410,2)
 ;;=^267319
 ;;^UTILITY(U,$J,358.3,26411,0)
 ;;=C79.70^^98^1253^37
 ;;^UTILITY(U,$J,358.3,26411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26411,1,3,0)
 ;;=3^Secondary Malig Neop Adrenal Gland,Unsp
 ;;^UTILITY(U,$J,358.3,26411,1,4,0)
 ;;=4^C79.70
 ;;^UTILITY(U,$J,358.3,26411,2)
 ;;=^5001355
 ;;^UTILITY(U,$J,358.3,26412,0)
 ;;=C79.71^^98^1253^36
 ;;^UTILITY(U,$J,358.3,26412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26412,1,3,0)
 ;;=3^Secondary Malig Neop Adrenal Gland,Right
 ;;^UTILITY(U,$J,358.3,26412,1,4,0)
 ;;=4^C79.71
 ;;^UTILITY(U,$J,358.3,26412,2)
 ;;=^5001356
 ;;^UTILITY(U,$J,358.3,26413,0)
 ;;=C79.72^^98^1253^35
 ;;^UTILITY(U,$J,358.3,26413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26413,1,3,0)
 ;;=3^Secondary Malig Neop Adrenal Gland,Left
 ;;^UTILITY(U,$J,358.3,26413,1,4,0)
 ;;=4^C79.72
 ;;^UTILITY(U,$J,358.3,26413,2)
 ;;=^5001357
 ;;^UTILITY(U,$J,358.3,26414,0)
 ;;=C78.00^^98^1253^46
 ;;^UTILITY(U,$J,358.3,26414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26414,1,3,0)
 ;;=3^Secondary Malig Neopl Lung,Unsp
 ;;^UTILITY(U,$J,358.3,26414,1,4,0)
 ;;=4^C78.00
 ;;^UTILITY(U,$J,358.3,26414,2)
 ;;=^5001334
 ;;^UTILITY(U,$J,358.3,26415,0)
 ;;=C78.01^^98^1253^45
 ;;^UTILITY(U,$J,358.3,26415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26415,1,3,0)
 ;;=3^Secondary Malig Neopl Lung,Right
 ;;^UTILITY(U,$J,358.3,26415,1,4,0)
 ;;=4^C78.01
 ;;^UTILITY(U,$J,358.3,26415,2)
 ;;=^5001335
 ;;^UTILITY(U,$J,358.3,26416,0)
 ;;=C78.02^^98^1253^44
 ;;^UTILITY(U,$J,358.3,26416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26416,1,3,0)
 ;;=3^Secondary Malig Neopl Lung,Left
 ;;^UTILITY(U,$J,358.3,26416,1,4,0)
 ;;=4^C78.02
 ;;^UTILITY(U,$J,358.3,26416,2)
 ;;=^5001336
 ;;^UTILITY(U,$J,358.3,26417,0)
 ;;=T83.9XXA^^98^1254^1
 ;;^UTILITY(U,$J,358.3,26417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26417,1,3,0)
 ;;=3^Complic GU dvc/implnt/grft,Unsp,Init Encntr
 ;;^UTILITY(U,$J,358.3,26417,1,4,0)
 ;;=4^T83.9XXA
 ;;^UTILITY(U,$J,358.3,26417,2)
 ;;=^5055100
 ;;^UTILITY(U,$J,358.3,26418,0)
 ;;=T83.89XA^^98^1254^2
 ;;^UTILITY(U,$J,358.3,26418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26418,1,3,0)
 ;;=3^Complic GU Dvc/Implnt/Grft,Oth,Init Encntr
 ;;^UTILITY(U,$J,358.3,26418,1,4,0)
 ;;=4^T83.89XA
 ;;^UTILITY(U,$J,358.3,26418,2)
 ;;=^5055097
 ;;^UTILITY(U,$J,358.3,26419,0)
 ;;=T83.86XA^^98^1254^12
 ;;^UTILITY(U,$J,358.3,26419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26419,1,3,0)
 ;;=3^Thrombosis GU dvc/implnt/grft,Init Encntr
 ;;^UTILITY(U,$J,358.3,26419,1,4,0)
 ;;=4^T83.86XA
 ;;^UTILITY(U,$J,358.3,26419,2)
 ;;=^5055094
 ;;^UTILITY(U,$J,358.3,26420,0)
 ;;=T83.85XA^^98^1254^11
 ;;^UTILITY(U,$J,358.3,26420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26420,1,3,0)
 ;;=3^Stenoisis GU dvc/implnt/grft,Init Encntr
 ;;^UTILITY(U,$J,358.3,26420,1,4,0)
 ;;=4^T83.85XA
 ;;^UTILITY(U,$J,358.3,26420,2)
 ;;=^5055091
 ;;^UTILITY(U,$J,358.3,26421,0)
 ;;=T83.84XA^^98^1254^10
 ;;^UTILITY(U,$J,358.3,26421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26421,1,3,0)
 ;;=3^Pain GU dvc/implnt/grft,Init Encntr
 ;;^UTILITY(U,$J,358.3,26421,1,4,0)
 ;;=4^T83.84XA
 ;;^UTILITY(U,$J,358.3,26421,2)
 ;;=^5055088
 ;;^UTILITY(U,$J,358.3,26422,0)
 ;;=T83.83XA^^98^1254^7
 ;;^UTILITY(U,$J,358.3,26422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26422,1,3,0)
 ;;=3^Hemorrhage GU dvc/implnt/grft,Init Encntr
 ;;^UTILITY(U,$J,358.3,26422,1,4,0)
 ;;=4^T83.83XA
 ;;^UTILITY(U,$J,358.3,26422,2)
 ;;=^5055085
 ;;^UTILITY(U,$J,358.3,26423,0)
 ;;=T83.82XA^^98^1254^5
 ;;^UTILITY(U,$J,358.3,26423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26423,1,3,0)
 ;;=3^Fibrosis GU dvc/implnt/grft,Init Encntr
 ;;^UTILITY(U,$J,358.3,26423,1,4,0)
 ;;=4^T83.82XA
 ;;^UTILITY(U,$J,358.3,26423,2)
 ;;=^5055082
 ;;^UTILITY(U,$J,358.3,26424,0)
 ;;=T83.81XA^^98^1254^4
 ;;^UTILITY(U,$J,358.3,26424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26424,1,3,0)
 ;;=3^Embolism GU dvc/implnt/grft,Init Encntr
 ;;^UTILITY(U,$J,358.3,26424,1,4,0)
 ;;=4^T83.81XA
 ;;^UTILITY(U,$J,358.3,26424,2)
 ;;=^5055079
 ;;^UTILITY(U,$J,358.3,26425,0)
 ;;=Z46.6^^98^1254^6
 ;;^UTILITY(U,$J,358.3,26425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26425,1,3,0)
 ;;=3^Fitting/Adjustment of Urinary Device
 ;;^UTILITY(U,$J,358.3,26425,1,4,0)
 ;;=4^Z46.6
 ;;^UTILITY(U,$J,358.3,26425,2)
 ;;=^5063020
 ;;^UTILITY(U,$J,358.3,26426,0)
 ;;=T83.79XA^^98^1254^3
 ;;^UTILITY(U,$J,358.3,26426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26426,1,3,0)
 ;;=3^Complic d/t GU Prosth Material,Init Encntr
 ;;^UTILITY(U,$J,358.3,26426,1,4,0)
 ;;=4^T83.79XA
 ;;^UTILITY(U,$J,358.3,26426,2)
 ;;=^5140207
 ;;^UTILITY(U,$J,358.3,26427,0)
 ;;=T83.590A^^98^1254^9
 ;;^UTILITY(U,$J,358.3,26427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26427,1,3,0)
 ;;=3^Infect/Inflam d/t Impl Urinary Neurostim Dev,Init Encntr
 ;;^UTILITY(U,$J,358.3,26427,1,4,0)
 ;;=4^T83.590A
 ;;^UTILITY(U,$J,358.3,26427,2)
 ;;=^5140147
 ;;^UTILITY(U,$J,358.3,26428,0)
 ;;=T83.510A^^98^1254^8
 ;;^UTILITY(U,$J,358.3,26428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26428,1,3,0)
 ;;=3^Infect/Inflam d/t Cystostomy Cath,Init Encntr
 ;;^UTILITY(U,$J,358.3,26428,1,4,0)
 ;;=4^T83.510A
 ;;^UTILITY(U,$J,358.3,26428,2)
 ;;=^5140135
 ;;^UTILITY(U,$J,358.3,26429,0)
 ;;=G37.3^^98^1255^1
 ;;^UTILITY(U,$J,358.3,26429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26429,1,3,0)
 ;;=3^Acute trnsvrs myelitis in demyelinating dz of CNS
 ;;^UTILITY(U,$J,358.3,26429,1,4,0)
 ;;=4^G37.3
 ;;^UTILITY(U,$J,358.3,26429,2)
 ;;=^5003824
 ;;^UTILITY(U,$J,358.3,26430,0)
 ;;=G82.50^^98^1255^11
 ;;^UTILITY(U,$J,358.3,26430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26430,1,3,0)
 ;;=3^Quadriplegia,Unspec
 ;;^UTILITY(U,$J,358.3,26430,1,4,0)
 ;;=4^G82.50
 ;;^UTILITY(U,$J,358.3,26430,2)
 ;;=^5004128
 ;;^UTILITY(U,$J,358.3,26431,0)
 ;;=G83.4^^98^1255^2
 ;;^UTILITY(U,$J,358.3,26431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26431,1,3,0)
 ;;=3^Cauda Equina Syndrome
 ;;^UTILITY(U,$J,358.3,26431,1,4,0)
 ;;=4^G83.4
 ;;^UTILITY(U,$J,358.3,26431,2)
 ;;=^265172
 ;;^UTILITY(U,$J,358.3,26432,0)
 ;;=G82.20^^98^1255^4
 ;;^UTILITY(U,$J,358.3,26432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26432,1,3,0)
 ;;=3^Paraplegia, Unspec
 ;;^UTILITY(U,$J,358.3,26432,1,4,0)
 ;;=4^G82.20
 ;;^UTILITY(U,$J,358.3,26432,2)
 ;;=^5004125
 ;;^UTILITY(U,$J,358.3,26433,0)
 ;;=G82.21^^98^1255^5
 ;;^UTILITY(U,$J,358.3,26433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26433,1,3,0)
 ;;=3^Paraplegia, complete
 ;;^UTILITY(U,$J,358.3,26433,1,4,0)
 ;;=4^G82.21
 ;;^UTILITY(U,$J,358.3,26433,2)
 ;;=^5004126
 ;;^UTILITY(U,$J,358.3,26434,0)
 ;;=G82.22^^98^1255^6
 ;;^UTILITY(U,$J,358.3,26434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26434,1,3,0)
 ;;=3^Paraplegia, incomplete
 ;;^UTILITY(U,$J,358.3,26434,1,4,0)
 ;;=4^G82.22
 ;;^UTILITY(U,$J,358.3,26434,2)
 ;;=^5004127
 ;;^UTILITY(U,$J,358.3,26435,0)
 ;;=A52.17^^98^1255^3
 ;;^UTILITY(U,$J,358.3,26435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26435,1,3,0)
 ;;=3^General paresis
 ;;^UTILITY(U,$J,358.3,26435,1,4,0)
 ;;=4^A52.17
 ;;^UTILITY(U,$J,358.3,26435,2)
 ;;=^265161
 ;;^UTILITY(U,$J,358.3,26436,0)
 ;;=G82.51^^98^1255^7
 ;;^UTILITY(U,$J,358.3,26436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26436,1,3,0)
 ;;=3^Quadriplegia,C1-C4,Complete
 ;;^UTILITY(U,$J,358.3,26436,1,4,0)
 ;;=4^G82.51
 ;;^UTILITY(U,$J,358.3,26436,2)
 ;;=^5004129
 ;;^UTILITY(U,$J,358.3,26437,0)
 ;;=G82.52^^98^1255^8
 ;;^UTILITY(U,$J,358.3,26437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26437,1,3,0)
 ;;=3^Quadriplegia,C1-C4,Incomplete
 ;;^UTILITY(U,$J,358.3,26437,1,4,0)
 ;;=4^G82.52
 ;;^UTILITY(U,$J,358.3,26437,2)
 ;;=^5004130
 ;;^UTILITY(U,$J,358.3,26438,0)
 ;;=G82.53^^98^1255^9
 ;;^UTILITY(U,$J,358.3,26438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26438,1,3,0)
 ;;=3^Quadriplegia,C5-C7,Complete
 ;;^UTILITY(U,$J,358.3,26438,1,4,0)
 ;;=4^G82.53
 ;;^UTILITY(U,$J,358.3,26438,2)
 ;;=^5004131
 ;;^UTILITY(U,$J,358.3,26439,0)
 ;;=G82.54^^98^1255^10
 ;;^UTILITY(U,$J,358.3,26439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26439,1,3,0)
 ;;=3^Quadriplegia,C5-C7,Incomplete
 ;;^UTILITY(U,$J,358.3,26439,1,4,0)
 ;;=4^G82.54
 ;;^UTILITY(U,$J,358.3,26439,2)
 ;;=^5004132
 ;;^UTILITY(U,$J,358.3,26440,0)
 ;;=D29.0^^98^1256^1
 ;;^UTILITY(U,$J,358.3,26440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26440,1,3,0)
 ;;=3^Benign neoplasm,penis
 ;;^UTILITY(U,$J,358.3,26440,1,4,0)
 ;;=4^D29.0
 ;;^UTILITY(U,$J,358.3,26440,2)
 ;;=^267656
 ;;^UTILITY(U,$J,358.3,26441,0)
 ;;=F52.8^^98^1257^3
 ;;^UTILITY(U,$J,358.3,26441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26441,1,3,0)
 ;;=3^Sex dysfxn not d/t subst/knwn physlg cond,Oth
 ;;^UTILITY(U,$J,358.3,26441,1,4,0)
 ;;=4^F52.8
 ;;^UTILITY(U,$J,358.3,26441,2)
 ;;=^5003624
 ;;^UTILITY(U,$J,358.3,26442,0)
 ;;=F52.22^^98^1257^1
 ;;^UTILITY(U,$J,358.3,26442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26442,1,3,0)
 ;;=3^Female sexual arousal disorder
 ;;^UTILITY(U,$J,358.3,26442,1,4,0)
 ;;=4^F52.22
 ;;^UTILITY(U,$J,358.3,26442,2)
 ;;=^5003621
 ;;^UTILITY(U,$J,358.3,26443,0)
 ;;=F52.21^^98^1257^2
 ;;^UTILITY(U,$J,358.3,26443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26443,1,3,0)
 ;;=3^Male erectile disorder