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

IBDEI06E.m

Go to the documentation of this file.
IBDEI06E ; ; 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,15503,1,4,0)
 ;;=4^Z77.22
 ;;^UTILITY(U,$J,358.3,15503,2)
 ;;=^5063324
 ;;^UTILITY(U,$J,358.3,15504,0)
 ;;=Z80.0^^56^645^28
 ;;^UTILITY(U,$J,358.3,15504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15504,1,3,0)
 ;;=3^Family Hx of Malig Neop of Digestive Organs
 ;;^UTILITY(U,$J,358.3,15504,1,4,0)
 ;;=4^Z80.0
 ;;^UTILITY(U,$J,358.3,15504,2)
 ;;=^5063344
 ;;^UTILITY(U,$J,358.3,15505,0)
 ;;=Z80.1^^56^645^34
 ;;^UTILITY(U,$J,358.3,15505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15505,1,3,0)
 ;;=3^Family Hx of Malig Neop of Trachea,Bronc & Lung
 ;;^UTILITY(U,$J,358.3,15505,1,4,0)
 ;;=4^Z80.1
 ;;^UTILITY(U,$J,358.3,15505,2)
 ;;=^5063345
 ;;^UTILITY(U,$J,358.3,15506,0)
 ;;=Z80.3^^56^645^27
 ;;^UTILITY(U,$J,358.3,15506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15506,1,3,0)
 ;;=3^Family Hx of Malig Neop of Breast
 ;;^UTILITY(U,$J,358.3,15506,1,4,0)
 ;;=4^Z80.3
 ;;^UTILITY(U,$J,358.3,15506,2)
 ;;=^5063347
 ;;^UTILITY(U,$J,358.3,15507,0)
 ;;=Z80.41^^56^645^31
 ;;^UTILITY(U,$J,358.3,15507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15507,1,3,0)
 ;;=3^Family Hx of Malig Neop of Ovary
 ;;^UTILITY(U,$J,358.3,15507,1,4,0)
 ;;=4^Z80.41
 ;;^UTILITY(U,$J,358.3,15507,2)
 ;;=^5063348
 ;;^UTILITY(U,$J,358.3,15508,0)
 ;;=Z80.42^^56^645^32
 ;;^UTILITY(U,$J,358.3,15508,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15508,1,3,0)
 ;;=3^Family Hx of Malig Neop of Prostate
 ;;^UTILITY(U,$J,358.3,15508,1,4,0)
 ;;=4^Z80.42
 ;;^UTILITY(U,$J,358.3,15508,2)
 ;;=^5063349
 ;;^UTILITY(U,$J,358.3,15509,0)
 ;;=Z80.43^^56^645^33
 ;;^UTILITY(U,$J,358.3,15509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15509,1,3,0)
 ;;=3^Family Hx of Malig Neop of Testis
 ;;^UTILITY(U,$J,358.3,15509,1,4,0)
 ;;=4^Z80.43
 ;;^UTILITY(U,$J,358.3,15509,2)
 ;;=^5063350
 ;;^UTILITY(U,$J,358.3,15510,0)
 ;;=Z80.6^^56^645^25
 ;;^UTILITY(U,$J,358.3,15510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15510,1,3,0)
 ;;=3^Family Hx of Leukemia
 ;;^UTILITY(U,$J,358.3,15510,1,4,0)
 ;;=4^Z80.6
 ;;^UTILITY(U,$J,358.3,15510,2)
 ;;=^5063354
 ;;^UTILITY(U,$J,358.3,15511,0)
 ;;=Z80.8^^56^645^30
 ;;^UTILITY(U,$J,358.3,15511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15511,1,3,0)
 ;;=3^Family Hx of Malig Neop of Organs/Systems
 ;;^UTILITY(U,$J,358.3,15511,1,4,0)
 ;;=4^Z80.8
 ;;^UTILITY(U,$J,358.3,15511,2)
 ;;=^5063356
 ;;^UTILITY(U,$J,358.3,15512,0)
 ;;=Z81.8^^56^645^35
 ;;^UTILITY(U,$J,358.3,15512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15512,1,3,0)
 ;;=3^Family Hx of Mental/Behavioral Disorders
 ;;^UTILITY(U,$J,358.3,15512,1,4,0)
 ;;=4^Z81.8
 ;;^UTILITY(U,$J,358.3,15512,2)
 ;;=^5063363
 ;;^UTILITY(U,$J,358.3,15513,0)
 ;;=Z82.3^^56^645^42
 ;;^UTILITY(U,$J,358.3,15513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15513,1,3,0)
 ;;=3^Family Hx of Stroke
 ;;^UTILITY(U,$J,358.3,15513,1,4,0)
 ;;=4^Z82.3
 ;;^UTILITY(U,$J,358.3,15513,2)
 ;;=^5063367
 ;;^UTILITY(U,$J,358.3,15514,0)
 ;;=Z82.49^^56^645^24
 ;;^UTILITY(U,$J,358.3,15514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15514,1,3,0)
 ;;=3^Family Hx of Ischemic Heart Disease/Circulatory System
 ;;^UTILITY(U,$J,358.3,15514,1,4,0)
 ;;=4^Z82.49
 ;;^UTILITY(U,$J,358.3,15514,2)
 ;;=^5063369
 ;;^UTILITY(U,$J,358.3,15515,0)
 ;;=Z82.5^^56^645^14
 ;;^UTILITY(U,$J,358.3,15515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15515,1,3,0)
 ;;=3^Family Hx of Asthma/Chronic Lower Respiratory Diseases
 ;;^UTILITY(U,$J,358.3,15515,1,4,0)
 ;;=4^Z82.5
 ;;^UTILITY(U,$J,358.3,15515,2)
 ;;=^5063370
 ;;^UTILITY(U,$J,358.3,15516,0)
 ;;=Z82.61^^56^645^13
 ;;^UTILITY(U,$J,358.3,15516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15516,1,3,0)
 ;;=3^Family Hx of Arthritis
 ;;^UTILITY(U,$J,358.3,15516,1,4,0)
 ;;=4^Z82.61
 ;;^UTILITY(U,$J,358.3,15516,2)
 ;;=^5063371
 ;;^UTILITY(U,$J,358.3,15517,0)
 ;;=Z82.69^^56^645^37
 ;;^UTILITY(U,$J,358.3,15517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15517,1,3,0)
 ;;=3^Family Hx of Musculoskeletal System/Connective Tissue
 ;;^UTILITY(U,$J,358.3,15517,1,4,0)
 ;;=4^Z82.69
 ;;^UTILITY(U,$J,358.3,15517,2)
 ;;=^5063373
 ;;^UTILITY(U,$J,358.3,15518,0)
 ;;=Z83.3^^56^645^20
 ;;^UTILITY(U,$J,358.3,15518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15518,1,3,0)
 ;;=3^Family Hx of Diabetes Mellitus
 ;;^UTILITY(U,$J,358.3,15518,1,4,0)
 ;;=4^Z83.3
 ;;^UTILITY(U,$J,358.3,15518,2)
 ;;=^5063379
 ;;^UTILITY(U,$J,358.3,15519,0)
 ;;=Z83.2^^56^645^16
 ;;^UTILITY(U,$J,358.3,15519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15519,1,3,0)
 ;;=3^Family Hx of Blood/Immune Mechanism Diseases
 ;;^UTILITY(U,$J,358.3,15519,1,4,0)
 ;;=4^Z83.2
 ;;^UTILITY(U,$J,358.3,15519,2)
 ;;=^5063378
 ;;^UTILITY(U,$J,358.3,15520,0)
 ;;=Z82.71^^56^645^40
 ;;^UTILITY(U,$J,358.3,15520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15520,1,3,0)
 ;;=3^Family Hx of Polycystic Kidney
 ;;^UTILITY(U,$J,358.3,15520,1,4,0)
 ;;=4^Z82.71
 ;;^UTILITY(U,$J,358.3,15520,2)
 ;;=^321531
 ;;^UTILITY(U,$J,358.3,15521,0)
 ;;=Z82.1^^56^645^15
 ;;^UTILITY(U,$J,358.3,15521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15521,1,3,0)
 ;;=3^Family Hx of Blindness/Visual Loss
 ;;^UTILITY(U,$J,358.3,15521,1,4,0)
 ;;=4^Z82.1
 ;;^UTILITY(U,$J,358.3,15521,2)
 ;;=^5063365
 ;;^UTILITY(U,$J,358.3,15522,0)
 ;;=Z82.2^^56^645^19
 ;;^UTILITY(U,$J,358.3,15522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15522,1,3,0)
 ;;=3^Family Hx of Deafness/Hearing Loss
 ;;^UTILITY(U,$J,358.3,15522,1,4,0)
 ;;=4^Z82.2
 ;;^UTILITY(U,$J,358.3,15522,2)
 ;;=^5063366
 ;;^UTILITY(U,$J,358.3,15523,0)
 ;;=Z84.0^^56^645^41
 ;;^UTILITY(U,$J,358.3,15523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15523,1,3,0)
 ;;=3^Family Hx of Skin Diseases
 ;;^UTILITY(U,$J,358.3,15523,1,4,0)
 ;;=4^Z84.0
 ;;^UTILITY(U,$J,358.3,15523,2)
 ;;=^5063388
 ;;^UTILITY(U,$J,358.3,15524,0)
 ;;=Z82.79^^56^645^18
 ;;^UTILITY(U,$J,358.3,15524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15524,1,3,0)
 ;;=3^Family Hx of Congen Malform,Deformations & Chromsoml Abnlt
 ;;^UTILITY(U,$J,358.3,15524,1,4,0)
 ;;=4^Z82.79
 ;;^UTILITY(U,$J,358.3,15524,2)
 ;;=^5063374
 ;;^UTILITY(U,$J,358.3,15525,0)
 ;;=Z84.89^^56^645^39
 ;;^UTILITY(U,$J,358.3,15525,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15525,1,3,0)
 ;;=3^Family Hx of Other Spec Conditions
 ;;^UTILITY(U,$J,358.3,15525,1,4,0)
 ;;=4^Z84.89
 ;;^UTILITY(U,$J,358.3,15525,2)
 ;;=^5063393
 ;;^UTILITY(U,$J,358.3,15526,0)
 ;;=Z81.1^^56^645^12
 ;;^UTILITY(U,$J,358.3,15526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15526,1,3,0)
 ;;=3^Family Hx of Alcohol Abuse/Dependence
 ;;^UTILITY(U,$J,358.3,15526,1,4,0)
 ;;=4^Z81.1
 ;;^UTILITY(U,$J,358.3,15526,2)
 ;;=^5063359
 ;;^UTILITY(U,$J,358.3,15527,0)
 ;;=Z82.62^^56^645^38
 ;;^UTILITY(U,$J,358.3,15527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15527,1,3,0)
 ;;=3^Family Hx of Osteoporosis
 ;;^UTILITY(U,$J,358.3,15527,1,4,0)
 ;;=4^Z82.62
 ;;^UTILITY(U,$J,358.3,15527,2)
 ;;=^5063372
 ;;^UTILITY(U,$J,358.3,15528,0)
 ;;=Z83.71^^56^645^17
 ;;^UTILITY(U,$J,358.3,15528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15528,1,3,0)
 ;;=3^Family Hx of Colonic Polyps
 ;;^UTILITY(U,$J,358.3,15528,1,4,0)
 ;;=4^Z83.71
 ;;^UTILITY(U,$J,358.3,15528,2)
 ;;=^5063386
 ;;^UTILITY(U,$J,358.3,15529,0)
 ;;=Z84.81^^56^645^22
 ;;^UTILITY(U,$J,358.3,15529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15529,1,3,0)
 ;;=3^Family Hx of Genetic Disease
 ;;^UTILITY(U,$J,358.3,15529,1,4,0)
 ;;=4^Z84.81
 ;;^UTILITY(U,$J,358.3,15529,2)
 ;;=^5063392
 ;;^UTILITY(U,$J,358.3,15530,0)
 ;;=Z86.010^^56^645^70
 ;;^UTILITY(U,$J,358.3,15530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15530,1,3,0)
 ;;=3^Personal Hx of Colonic Polyps
 ;;^UTILITY(U,$J,358.3,15530,1,4,0)
 ;;=4^Z86.010
 ;;^UTILITY(U,$J,358.3,15530,2)
 ;;=^5063456
 ;;^UTILITY(U,$J,358.3,15531,0)
 ;;=Z86.14^^56^645^75
 ;;^UTILITY(U,$J,358.3,15531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15531,1,3,0)
 ;;=3^Personal Hx of MRSA Infection
 ;;^UTILITY(U,$J,358.3,15531,1,4,0)
 ;;=4^Z86.14
 ;;^UTILITY(U,$J,358.3,15531,2)
 ;;=^5063464
 ;;^UTILITY(U,$J,358.3,15532,0)
 ;;=Z86.31^^56^645^71
 ;;^UTILITY(U,$J,358.3,15532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15532,1,3,0)
 ;;=3^Personal Hx of Diabetic Foot Ulcer
 ;;^UTILITY(U,$J,358.3,15532,1,4,0)
 ;;=4^Z86.31
 ;;^UTILITY(U,$J,358.3,15532,2)
 ;;=^5063467
 ;;^UTILITY(U,$J,358.3,15533,0)
 ;;=Z86.711^^56^645^101
 ;;^UTILITY(U,$J,358.3,15533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15533,1,3,0)
 ;;=3^Personal Hx of Pulmonary Embolism
 ;;^UTILITY(U,$J,358.3,15533,1,4,0)
 ;;=4^Z86.711
 ;;^UTILITY(U,$J,358.3,15533,2)
 ;;=^5063474
 ;;^UTILITY(U,$J,358.3,15534,0)
 ;;=Z86.72^^56^645^107
 ;;^UTILITY(U,$J,358.3,15534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15534,1,3,0)
 ;;=3^Personal Hx of Thrombophlebitis
 ;;^UTILITY(U,$J,358.3,15534,1,4,0)
 ;;=4^Z86.72
 ;;^UTILITY(U,$J,358.3,15534,2)
 ;;=^5063476
 ;;^UTILITY(U,$J,358.3,15535,0)
 ;;=Z87.310^^56^645^99
 ;;^UTILITY(U,$J,358.3,15535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15535,1,3,0)
 ;;=3^Personal Hx of Osteoporosis Fx
 ;;^UTILITY(U,$J,358.3,15535,1,4,0)
 ;;=4^Z87.310
 ;;^UTILITY(U,$J,358.3,15535,2)
 ;;=^5063485
 ;;^UTILITY(U,$J,358.3,15536,0)
 ;;=Z87.442^^56^645^110
 ;;^UTILITY(U,$J,358.3,15536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15536,1,3,0)
 ;;=3^Personal Hx of Urinary Calculi
 ;;^UTILITY(U,$J,358.3,15536,1,4,0)
 ;;=4^Z87.442
 ;;^UTILITY(U,$J,358.3,15536,2)
 ;;=^5063497
 ;;^UTILITY(U,$J,358.3,15537,0)
 ;;=Z87.81^^56^645^108
 ;;^UTILITY(U,$J,358.3,15537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15537,1,3,0)
 ;;=3^Personal Hx of Traumatic Fx (Healed)
 ;;^UTILITY(U,$J,358.3,15537,1,4,0)
 ;;=4^Z87.81
 ;;^UTILITY(U,$J,358.3,15537,2)
 ;;=^5063513
 ;;^UTILITY(U,$J,358.3,15538,0)
 ;;=Z87.890^^56^645^102
 ;;^UTILITY(U,$J,358.3,15538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15538,1,3,0)
 ;;=3^Personal Hx of Sex Reassignment
 ;;^UTILITY(U,$J,358.3,15538,1,4,0)
 ;;=4^Z87.890
 ;;^UTILITY(U,$J,358.3,15538,2)
 ;;=^5063517
 ;;^UTILITY(U,$J,358.3,15539,0)
 ;;=Z87.892^^56^645^68
 ;;^UTILITY(U,$J,358.3,15539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15539,1,3,0)
 ;;=3^Personal Hx of Anaphylaxis
 ;;^UTILITY(U,$J,358.3,15539,1,4,0)
 ;;=4^Z87.892
 ;;^UTILITY(U,$J,358.3,15539,2)
 ;;=^5063519
 ;;^UTILITY(U,$J,358.3,15540,0)
 ;;=Z87.39^^56^645^96
 ;;^UTILITY(U,$J,358.3,15540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15540,1,3,0)
 ;;=3^Personal Hx of Musculoskeletal/Connective Tissue Disease
 ;;^UTILITY(U,$J,358.3,15540,1,4,0)
 ;;=4^Z87.39
 ;;^UTILITY(U,$J,358.3,15540,2)
 ;;=^5063488
 ;;^UTILITY(U,$J,358.3,15541,0)
 ;;=Z87.820^^56^645^105
 ;;^UTILITY(U,$J,358.3,15541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15541,1,3,0)
 ;;=3^Personal Hx of TBI
 ;;^UTILITY(U,$J,358.3,15541,1,4,0)
 ;;=4^Z87.820
 ;;^UTILITY(U,$J,358.3,15541,2)
 ;;=^5063514
 ;;^UTILITY(U,$J,358.3,15542,0)
 ;;=Z91.82^^56^645^95
 ;;^UTILITY(U,$J,358.3,15542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15542,1,3,0)
 ;;=3^Personal Hx of Military Deployment
 ;;^UTILITY(U,$J,358.3,15542,1,4,0)
 ;;=4^Z91.82
 ;;^UTILITY(U,$J,358.3,15542,2)
 ;;=^5063626
 ;;^UTILITY(U,$J,358.3,15543,0)
 ;;=Z91.030^^56^645^5
 ;;^UTILITY(U,$J,358.3,15543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15543,1,3,0)
 ;;=3^Bee Allergy
 ;;^UTILITY(U,$J,358.3,15543,1,4,0)
 ;;=4^Z91.030
 ;;^UTILITY(U,$J,358.3,15543,2)
 ;;=^5063605
 ;;^UTILITY(U,$J,358.3,15544,0)
 ;;=Z91.038^^56^645^52
 ;;^UTILITY(U,$J,358.3,15544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15544,1,3,0)
 ;;=3^Insect Allergy NEC
 ;;^UTILITY(U,$J,358.3,15544,1,4,0)
 ;;=4^Z91.038
 ;;^UTILITY(U,$J,358.3,15544,2)
 ;;=^5063606
 ;;^UTILITY(U,$J,358.3,15545,0)
 ;;=Z91.041^^56^645^145
 ;;^UTILITY(U,$J,358.3,15545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15545,1,3,0)
 ;;=3^Radiographic Dye Allergy
 ;;^UTILITY(U,$J,358.3,15545,1,4,0)
 ;;=4^Z91.041
 ;;^UTILITY(U,$J,358.3,15545,2)
 ;;=^5063608
 ;;^UTILITY(U,$J,358.3,15546,0)
 ;;=Z91.130^^56^645^152
 ;;^UTILITY(U,$J,358.3,15546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15546,1,3,0)
 ;;=3^Underdose of Med Regiment d/t Age-Related Debility
 ;;^UTILITY(U,$J,358.3,15546,1,4,0)
 ;;=4^Z91.130
 ;;^UTILITY(U,$J,358.3,15546,2)
 ;;=^5063614
 ;;^UTILITY(U,$J,358.3,15547,0)
 ;;=Z91.138^^56^645^153
 ;;^UTILITY(U,$J,358.3,15547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15547,1,3,0)
 ;;=3^Underdose of Med Regiment for Other Reason
 ;;^UTILITY(U,$J,358.3,15547,1,4,0)
 ;;=4^Z91.138
 ;;^UTILITY(U,$J,358.3,15547,2)
 ;;=^5063615
 ;;^UTILITY(U,$J,358.3,15548,0)
 ;;=Z91.14^^56^645^64
 ;;^UTILITY(U,$J,358.3,15548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15548,1,3,0)
 ;;=3^Noncompliance w/ Medication Regimen
 ;;^UTILITY(U,$J,358.3,15548,1,4,0)
 ;;=4^Z91.14
 ;;^UTILITY(U,$J,358.3,15548,2)
 ;;=^5063616
 ;;^UTILITY(U,$J,358.3,15549,0)
 ;;=Z91.19^^56^645^63
 ;;^UTILITY(U,$J,358.3,15549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15549,1,3,0)
 ;;=3^Noncompliance w/ Medical Treatment & Regimen
 ;;^UTILITY(U,$J,358.3,15549,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,15549,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,15550,0)
 ;;=Z93.1^^56^645^45
 ;;^UTILITY(U,$J,358.3,15550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15550,1,3,0)
 ;;=3^Gastrostomy Status
 ;;^UTILITY(U,$J,358.3,15550,1,4,0)
 ;;=4^Z93.1
 ;;^UTILITY(U,$J,358.3,15550,2)
 ;;=^5063643
 ;;^UTILITY(U,$J,358.3,15551,0)
 ;;=Z93.2^^56^645^51
 ;;^UTILITY(U,$J,358.3,15551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15551,1,3,0)
 ;;=3^Ileostomy Status
 ;;^UTILITY(U,$J,358.3,15551,1,4,0)
 ;;=4^Z93.2
 ;;^UTILITY(U,$J,358.3,15551,2)
 ;;=^5063644
 ;;^UTILITY(U,$J,358.3,15552,0)
 ;;=Z93.3^^56^645^7
 ;;^UTILITY(U,$J,358.3,15552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15552,1,3,0)
 ;;=3^Colostomy Status
 ;;^UTILITY(U,$J,358.3,15552,1,4,0)
 ;;=4^Z93.3
 ;;^UTILITY(U,$J,358.3,15552,2)
 ;;=^5063645
 ;;^UTILITY(U,$J,358.3,15553,0)
 ;;=Z94.0^^56^645^56
 ;;^UTILITY(U,$J,358.3,15553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15553,1,3,0)
 ;;=3^Kidney Transplant Status
 ;;^UTILITY(U,$J,358.3,15553,1,4,0)
 ;;=4^Z94.0
 ;;^UTILITY(U,$J,358.3,15553,2)
 ;;=^5063654
 ;;^UTILITY(U,$J,358.3,15554,0)
 ;;=Z94.1^^56^645^49
 ;;^UTILITY(U,$J,358.3,15554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15554,1,3,0)
 ;;=3^Heart Transplant Status
 ;;^UTILITY(U,$J,358.3,15554,1,4,0)
 ;;=4^Z94.1
 ;;^UTILITY(U,$J,358.3,15554,2)
 ;;=^5063655
 ;;^UTILITY(U,$J,358.3,15555,0)
 ;;=Z94.2^^56^645^59
 ;;^UTILITY(U,$J,358.3,15555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15555,1,3,0)
 ;;=3^Lung Transplant Status
 ;;^UTILITY(U,$J,358.3,15555,1,4,0)
 ;;=4^Z94.2
 ;;^UTILITY(U,$J,358.3,15555,2)
 ;;=^5063656
 ;;^UTILITY(U,$J,358.3,15556,0)
 ;;=Z94.3^^56^645^48
 ;;^UTILITY(U,$J,358.3,15556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15556,1,3,0)
 ;;=3^Heart & Lungs Transplant Status
 ;;^UTILITY(U,$J,358.3,15556,1,4,0)
 ;;=4^Z94.3
 ;;^UTILITY(U,$J,358.3,15556,2)
 ;;=^5063657
 ;;^UTILITY(U,$J,358.3,15557,0)
 ;;=Z94.4^^56^645^58
 ;;^UTILITY(U,$J,358.3,15557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15557,1,3,0)
 ;;=3^Liver Transplant Status
 ;;^UTILITY(U,$J,358.3,15557,1,4,0)
 ;;=4^Z94.4
 ;;^UTILITY(U,$J,358.3,15557,2)
 ;;=^5063658
 ;;^UTILITY(U,$J,358.3,15558,0)
 ;;=Z94.84^^56^645^149
 ;;^UTILITY(U,$J,358.3,15558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15558,1,3,0)
 ;;=3^Stem Cell Transplant Status
 ;;^UTILITY(U,$J,358.3,15558,1,4,0)
 ;;=4^Z94.84
 ;;^UTILITY(U,$J,358.3,15558,2)
 ;;=^5063665
 ;;^UTILITY(U,$J,358.3,15559,0)
 ;;=Z96.21^^56^645^6
 ;;^UTILITY(U,$J,358.3,15559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15559,1,3,0)
 ;;=3^Cochlear Implant Status
 ;;^UTILITY(U,$J,358.3,15559,1,4,0)
 ;;=4^Z96.21
 ;;^UTILITY(U,$J,358.3,15559,2)
 ;;=^5063684
 ;;^UTILITY(U,$J,358.3,15560,0)
 ;;=Z96.41^^56^645^132
 ;;^UTILITY(U,$J,358.3,15560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15560,1,3,0)
 ;;=3^Presence of Insulin Pump
 ;;^UTILITY(U,$J,358.3,15560,1,4,0)
 ;;=4^Z96.41
 ;;^UTILITY(U,$J,358.3,15560,2)
 ;;=^5063688
 ;;^UTILITY(U,$J,358.3,15561,0)
 ;;=Z96.641^^56^645^140
 ;;^UTILITY(U,$J,358.3,15561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15561,1,3,0)
 ;;=3^Presence of Right Artificial Hip Jt
 ;;^UTILITY(U,$J,358.3,15561,1,4,0)
 ;;=4^Z96.641
 ;;^UTILITY(U,$J,358.3,15561,2)
 ;;=^5063701
 ;;^UTILITY(U,$J,358.3,15562,0)
 ;;=Z96.642^^56^645^135
 ;;^UTILITY(U,$J,358.3,15562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15562,1,3,0)
 ;;=3^Presence of Left Artificial Hip Jt
 ;;^UTILITY(U,$J,358.3,15562,1,4,0)
 ;;=4^Z96.642
 ;;^UTILITY(U,$J,358.3,15562,2)
 ;;=^5063702
 ;;^UTILITY(U,$J,358.3,15563,0)
 ;;=Z96.643^^56^645^119
 ;;^UTILITY(U,$J,358.3,15563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15563,1,3,0)
 ;;=3^Presence of Artificial Hip Jt,Bilateral
 ;;^UTILITY(U,$J,358.3,15563,1,4,0)
 ;;=4^Z96.643
 ;;^UTILITY(U,$J,358.3,15563,2)
 ;;=^5063703
 ;;^UTILITY(U,$J,358.3,15564,0)
 ;;=Z96.651^^56^645^141
 ;;^UTILITY(U,$J,358.3,15564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15564,1,3,0)
 ;;=3^Presence of Right Artificial Knee Jt
 ;;^UTILITY(U,$J,358.3,15564,1,4,0)
 ;;=4^Z96.651
 ;;^UTILITY(U,$J,358.3,15564,2)
 ;;=^5063705
 ;;^UTILITY(U,$J,358.3,15565,0)
 ;;=Z96.652^^56^645^136
 ;;^UTILITY(U,$J,358.3,15565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15565,1,3,0)
 ;;=3^Presence of Left Artificial Knee Jt
 ;;^UTILITY(U,$J,358.3,15565,1,4,0)
 ;;=4^Z96.652
 ;;^UTILITY(U,$J,358.3,15565,2)
 ;;=^5063706
 ;;^UTILITY(U,$J,358.3,15566,0)
 ;;=Z96.653^^56^645^120
 ;;^UTILITY(U,$J,358.3,15566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15566,1,3,0)
 ;;=3^Presence of Artificial Knee Jt,Bilateral
 ;;^UTILITY(U,$J,358.3,15566,1,4,0)
 ;;=4^Z96.653
 ;;^UTILITY(U,$J,358.3,15566,2)
 ;;=^5063707
 ;;^UTILITY(U,$J,358.3,15567,0)
 ;;=Z96.7^^56^645^125
 ;;^UTILITY(U,$J,358.3,15567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15567,1,3,0)
 ;;=3^Presence of Bone/Tendon Implants NEC
 ;;^UTILITY(U,$J,358.3,15567,1,4,0)
 ;;=4^Z96.7
 ;;^UTILITY(U,$J,358.3,15567,2)
 ;;=^5063716
 ;;^UTILITY(U,$J,358.3,15568,0)
 ;;=Z97.11^^56^645^139
 ;;^UTILITY(U,$J,358.3,15568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15568,1,3,0)
 ;;=3^Presence of Right Artificial Arm
 ;;^UTILITY(U,$J,358.3,15568,1,4,0)
 ;;=4^Z97.11
 ;;^UTILITY(U,$J,358.3,15568,2)
 ;;=^5063722
 ;;^UTILITY(U,$J,358.3,15569,0)
 ;;=Z97.12^^56^645^134
 ;;^UTILITY(U,$J,358.3,15569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15569,1,3,0)
 ;;=3^Presence of Left Artificial Arm
 ;;^UTILITY(U,$J,358.3,15569,1,4,0)
 ;;=4^Z97.12
 ;;^UTILITY(U,$J,358.3,15569,2)
 ;;=^5063723
 ;;^UTILITY(U,$J,358.3,15570,0)
 ;;=Z97.13^^56^645^142
 ;;^UTILITY(U,$J,358.3,15570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15570,1,3,0)
 ;;=3^Presence of Right Artificial Leg
 ;;^UTILITY(U,$J,358.3,15570,1,4,0)
 ;;=4^Z97.13
 ;;^UTILITY(U,$J,358.3,15570,2)
 ;;=^5063724
 ;;^UTILITY(U,$J,358.3,15571,0)
 ;;=Z97.14^^56^645^137
 ;;^UTILITY(U,$J,358.3,15571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15571,1,3,0)
 ;;=3^Presence of Left Artificial Leg
 ;;^UTILITY(U,$J,358.3,15571,1,4,0)
 ;;=4^Z97.14
 ;;^UTILITY(U,$J,358.3,15571,2)
 ;;=^5063725