IBDEI0DS ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,34569,1,3,0)
;;=3^Personal Hx of Hodgkin Lymphoma
;;^UTILITY(U,$J,358.3,34569,1,4,0)
;;=4^Z85.71
;;^UTILITY(U,$J,358.3,34569,2)
;;=^5063435
;;^UTILITY(U,$J,358.3,34570,0)
;;=Z65.8^^105^1434^144
;;^UTILITY(U,$J,358.3,34570,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34570,1,3,0)
;;=3^Psychosocial Circumstance Related Problems
;;^UTILITY(U,$J,358.3,34570,1,4,0)
;;=4^Z65.8
;;^UTILITY(U,$J,358.3,34570,2)
;;=^5063185
;;^UTILITY(U,$J,358.3,34571,0)
;;=Z86.11^^105^1434^109
;;^UTILITY(U,$J,358.3,34571,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34571,1,3,0)
;;=3^Personal Hx of Tuberculosis
;;^UTILITY(U,$J,358.3,34571,1,4,0)
;;=4^Z86.11
;;^UTILITY(U,$J,358.3,34571,2)
;;=^5063461
;;^UTILITY(U,$J,358.3,34572,0)
;;=Z86.13^^105^1434^76
;;^UTILITY(U,$J,358.3,34572,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34572,1,3,0)
;;=3^Personal Hx of Malaria
;;^UTILITY(U,$J,358.3,34572,1,4,0)
;;=4^Z86.13
;;^UTILITY(U,$J,358.3,34572,2)
;;=^5063463
;;^UTILITY(U,$J,358.3,34573,0)
;;=Z86.73^^105^1434^106
;;^UTILITY(U,$J,358.3,34573,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34573,1,3,0)
;;=3^Personal Hx of TIA & Cereb Infrc w/o Residual Deficits
;;^UTILITY(U,$J,358.3,34573,1,4,0)
;;=4^Z86.73
;;^UTILITY(U,$J,358.3,34573,2)
;;=^5063477
;;^UTILITY(U,$J,358.3,34574,0)
;;=Z86.79^^105^1434^69
;;^UTILITY(U,$J,358.3,34574,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34574,1,3,0)
;;=3^Personal Hx of Circulatory System Diseases
;;^UTILITY(U,$J,358.3,34574,1,4,0)
;;=4^Z86.79
;;^UTILITY(U,$J,358.3,34574,2)
;;=^5063479
;;^UTILITY(U,$J,358.3,34575,0)
;;=Z91.040^^105^1434^57
;;^UTILITY(U,$J,358.3,34575,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34575,1,3,0)
;;=3^Latex Allergy Status
;;^UTILITY(U,$J,358.3,34575,1,4,0)
;;=4^Z91.040
;;^UTILITY(U,$J,358.3,34575,2)
;;=^5063607
;;^UTILITY(U,$J,358.3,34576,0)
;;=Z92.3^^105^1434^73
;;^UTILITY(U,$J,358.3,34576,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34576,1,3,0)
;;=3^Personal Hx of Irradiation
;;^UTILITY(U,$J,358.3,34576,1,4,0)
;;=4^Z92.3
;;^UTILITY(U,$J,358.3,34576,2)
;;=^5063637
;;^UTILITY(U,$J,358.3,34577,0)
;;=Z91.120^^105^1434^53
;;^UTILITY(U,$J,358.3,34577,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34577,1,3,0)
;;=3^Intentional Underdose of Meds d/t Financial Hardship
;;^UTILITY(U,$J,358.3,34577,1,4,0)
;;=4^Z91.120
;;^UTILITY(U,$J,358.3,34577,2)
;;=^5063612
;;^UTILITY(U,$J,358.3,34578,0)
;;=Z91.11^^105^1434^62
;;^UTILITY(U,$J,358.3,34578,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34578,1,3,0)
;;=3^Noncompliance w/ Dietary Regimen
;;^UTILITY(U,$J,358.3,34578,1,4,0)
;;=4^Z91.11
;;^UTILITY(U,$J,358.3,34578,2)
;;=^5063611
;;^UTILITY(U,$J,358.3,34579,0)
;;=Z87.891^^105^1434^97
;;^UTILITY(U,$J,358.3,34579,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34579,1,3,0)
;;=3^Personal Hx of Nicotine Dependence
;;^UTILITY(U,$J,358.3,34579,1,4,0)
;;=4^Z87.891
;;^UTILITY(U,$J,358.3,34579,2)
;;=^5063518
;;^UTILITY(U,$J,358.3,34580,0)
;;=Z77.090^^105^1434^3
;;^UTILITY(U,$J,358.3,34580,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34580,1,3,0)
;;=3^Asbestos Contact/Exposure
;;^UTILITY(U,$J,358.3,34580,1,4,0)
;;=4^Z77.090
;;^UTILITY(U,$J,358.3,34580,2)
;;=^5063312
;;^UTILITY(U,$J,358.3,34581,0)
;;=Z57.8^^105^1434^65
;;^UTILITY(U,$J,358.3,34581,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34581,1,3,0)
;;=3^Occupational Exposure to Other Risk Factors
;;^UTILITY(U,$J,358.3,34581,1,4,0)
;;=4^Z57.8
;;^UTILITY(U,$J,358.3,34581,2)
;;=^5063127
;;^UTILITY(U,$J,358.3,34582,0)
;;=Z77.21^^105^1434^46
;;^UTILITY(U,$J,358.3,34582,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34582,1,3,0)
;;=3^Hazardous Body Fluid Contact/Exposure
;;^UTILITY(U,$J,358.3,34582,1,4,0)
;;=4^Z77.21
;;^UTILITY(U,$J,358.3,34582,2)
;;=^5063323
;;^UTILITY(U,$J,358.3,34583,0)
;;=Z91.81^^105^1434^50
;;^UTILITY(U,$J,358.3,34583,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34583,1,3,0)
;;=3^History of Falling
;;^UTILITY(U,$J,358.3,34583,1,4,0)
;;=4^Z91.81
;;^UTILITY(U,$J,358.3,34583,2)
;;=^5063625
;;^UTILITY(U,$J,358.3,34584,0)
;;=Z91.89^^105^1434^112
;;^UTILITY(U,$J,358.3,34584,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34584,1,3,0)
;;=3^Personal Risk Factors NEC
;;^UTILITY(U,$J,358.3,34584,1,4,0)
;;=4^Z91.89
;;^UTILITY(U,$J,358.3,34584,2)
;;=^5063628
;;^UTILITY(U,$J,358.3,34585,0)
;;=Z92.89^^105^1434^100
;;^UTILITY(U,$J,358.3,34585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34585,1,3,0)
;;=3^Personal Hx of Other Medical Treatment
;;^UTILITY(U,$J,358.3,34585,1,4,0)
;;=4^Z92.89
;;^UTILITY(U,$J,358.3,34585,2)
;;=^5063641
;;^UTILITY(U,$J,358.3,34586,0)
;;=Z77.110^^105^1434^1
;;^UTILITY(U,$J,358.3,34586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34586,1,3,0)
;;=3^Air Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,34586,1,4,0)
;;=4^Z77.110
;;^UTILITY(U,$J,358.3,34586,2)
;;=^5063314
;;^UTILITY(U,$J,358.3,34587,0)
;;=Z77.112^^105^1434^148
;;^UTILITY(U,$J,358.3,34587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34587,1,3,0)
;;=3^Soil Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,34587,1,4,0)
;;=4^Z77.112
;;^UTILITY(U,$J,358.3,34587,2)
;;=^5063316
;;^UTILITY(U,$J,358.3,34588,0)
;;=Z77.111^^105^1434^155
;;^UTILITY(U,$J,358.3,34588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34588,1,3,0)
;;=3^Water Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,34588,1,4,0)
;;=4^Z77.111
;;^UTILITY(U,$J,358.3,34588,2)
;;=^5063315
;;^UTILITY(U,$J,358.3,34589,0)
;;=Z77.128^^105^1434^113
;;^UTILITY(U,$J,358.3,34589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34589,1,3,0)
;;=3^Physical Environment Hazards Contact/Exposure
;;^UTILITY(U,$J,358.3,34589,1,4,0)
;;=4^Z77.128
;;^UTILITY(U,$J,358.3,34589,2)
;;=^5063322
;;^UTILITY(U,$J,358.3,34590,0)
;;=Z77.123^^105^1434^146
;;^UTILITY(U,$J,358.3,34590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34590,1,3,0)
;;=3^Radon/Radiation Contact/Exposure
;;^UTILITY(U,$J,358.3,34590,1,4,0)
;;=4^Z77.123
;;^UTILITY(U,$J,358.3,34590,2)
;;=^5063321
;;^UTILITY(U,$J,358.3,34591,0)
;;=Z77.122^^105^1434^61
;;^UTILITY(U,$J,358.3,34591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34591,1,3,0)
;;=3^Noise Contact/Exposure
;;^UTILITY(U,$J,358.3,34591,1,4,0)
;;=4^Z77.122
;;^UTILITY(U,$J,358.3,34591,2)
;;=^5063320
;;^UTILITY(U,$J,358.3,34592,0)
;;=Z77.118^^105^1434^11
;;^UTILITY(U,$J,358.3,34592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34592,1,3,0)
;;=3^Environmental Pollution Contact/Exposure
;;^UTILITY(U,$J,358.3,34592,1,4,0)
;;=4^Z77.118
;;^UTILITY(U,$J,358.3,34592,2)
;;=^5063317
;;^UTILITY(U,$J,358.3,34593,0)
;;=Z77.9^^105^1434^47
;;^UTILITY(U,$J,358.3,34593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34593,1,3,0)
;;=3^Health Hazard Contact/Exposure
;;^UTILITY(U,$J,358.3,34593,1,4,0)
;;=4^Z77.9
;;^UTILITY(U,$J,358.3,34593,2)
;;=^5063326
;;^UTILITY(U,$J,358.3,34594,0)
;;=Z77.22^^105^1434^10
;;^UTILITY(U,$J,358.3,34594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34594,1,3,0)
;;=3^Environmental Exposure Tobacco Smoke/Second-Hand Smoke
;;^UTILITY(U,$J,358.3,34594,1,4,0)
;;=4^Z77.22
;;^UTILITY(U,$J,358.3,34594,2)
;;=^5063324
;;^UTILITY(U,$J,358.3,34595,0)
;;=Z80.0^^105^1434^28
;;^UTILITY(U,$J,358.3,34595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34595,1,3,0)
;;=3^Family Hx of Malig Neop of Digestive Organs
;;^UTILITY(U,$J,358.3,34595,1,4,0)
;;=4^Z80.0
;;^UTILITY(U,$J,358.3,34595,2)
;;=^5063344
;;^UTILITY(U,$J,358.3,34596,0)
;;=Z80.1^^105^1434^34
;;^UTILITY(U,$J,358.3,34596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34596,1,3,0)
;;=3^Family Hx of Malig Neop of Trachea,Bronc & Lung
;;^UTILITY(U,$J,358.3,34596,1,4,0)
;;=4^Z80.1
;;^UTILITY(U,$J,358.3,34596,2)
;;=^5063345
;;^UTILITY(U,$J,358.3,34597,0)
;;=Z80.3^^105^1434^27
;;^UTILITY(U,$J,358.3,34597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34597,1,3,0)
;;=3^Family Hx of Malig Neop of Breast
;;^UTILITY(U,$J,358.3,34597,1,4,0)
;;=4^Z80.3
;;^UTILITY(U,$J,358.3,34597,2)
;;=^5063347
;;^UTILITY(U,$J,358.3,34598,0)
;;=Z80.41^^105^1434^31
;;^UTILITY(U,$J,358.3,34598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34598,1,3,0)
;;=3^Family Hx of Malig Neop of Ovary
;;^UTILITY(U,$J,358.3,34598,1,4,0)
;;=4^Z80.41
;;^UTILITY(U,$J,358.3,34598,2)
;;=^5063348
;;^UTILITY(U,$J,358.3,34599,0)
;;=Z80.42^^105^1434^32
;;^UTILITY(U,$J,358.3,34599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34599,1,3,0)
;;=3^Family Hx of Malig Neop of Prostate
;;^UTILITY(U,$J,358.3,34599,1,4,0)
;;=4^Z80.42
;;^UTILITY(U,$J,358.3,34599,2)
;;=^5063349
;;^UTILITY(U,$J,358.3,34600,0)
;;=Z80.43^^105^1434^33
;;^UTILITY(U,$J,358.3,34600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34600,1,3,0)
;;=3^Family Hx of Malig Neop of Testis
;;^UTILITY(U,$J,358.3,34600,1,4,0)
;;=4^Z80.43
;;^UTILITY(U,$J,358.3,34600,2)
;;=^5063350
;;^UTILITY(U,$J,358.3,34601,0)
;;=Z80.6^^105^1434^25
;;^UTILITY(U,$J,358.3,34601,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34601,1,3,0)
;;=3^Family Hx of Leukemia
;;^UTILITY(U,$J,358.3,34601,1,4,0)
;;=4^Z80.6
;;^UTILITY(U,$J,358.3,34601,2)
;;=^5063354
;;^UTILITY(U,$J,358.3,34602,0)
;;=Z80.8^^105^1434^30
;;^UTILITY(U,$J,358.3,34602,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34602,1,3,0)
;;=3^Family Hx of Malig Neop of Organs/Systems
;;^UTILITY(U,$J,358.3,34602,1,4,0)
;;=4^Z80.8
;;^UTILITY(U,$J,358.3,34602,2)
;;=^5063356
;;^UTILITY(U,$J,358.3,34603,0)
;;=Z81.8^^105^1434^35
;;^UTILITY(U,$J,358.3,34603,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34603,1,3,0)
;;=3^Family Hx of Mental/Behavioral Disorders
;;^UTILITY(U,$J,358.3,34603,1,4,0)
;;=4^Z81.8
;;^UTILITY(U,$J,358.3,34603,2)
;;=^5063363
;;^UTILITY(U,$J,358.3,34604,0)
;;=Z82.3^^105^1434^42
;;^UTILITY(U,$J,358.3,34604,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34604,1,3,0)
;;=3^Family Hx of Stroke
;;^UTILITY(U,$J,358.3,34604,1,4,0)
;;=4^Z82.3
;;^UTILITY(U,$J,358.3,34604,2)
;;=^5063367
;;^UTILITY(U,$J,358.3,34605,0)
;;=Z82.49^^105^1434^24
;;^UTILITY(U,$J,358.3,34605,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34605,1,3,0)
;;=3^Family Hx of Ischemic Heart Disease/Circulatory System
;;^UTILITY(U,$J,358.3,34605,1,4,0)
;;=4^Z82.49
;;^UTILITY(U,$J,358.3,34605,2)
;;=^5063369
;;^UTILITY(U,$J,358.3,34606,0)
;;=Z82.5^^105^1434^14
;;^UTILITY(U,$J,358.3,34606,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34606,1,3,0)
;;=3^Family Hx of Asthma/Chronic Lower Respiratory Diseases
;;^UTILITY(U,$J,358.3,34606,1,4,0)
;;=4^Z82.5
;;^UTILITY(U,$J,358.3,34606,2)
;;=^5063370
;;^UTILITY(U,$J,358.3,34607,0)
;;=Z82.61^^105^1434^13
;;^UTILITY(U,$J,358.3,34607,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34607,1,3,0)
;;=3^Family Hx of Arthritis
;;^UTILITY(U,$J,358.3,34607,1,4,0)
;;=4^Z82.61
;;^UTILITY(U,$J,358.3,34607,2)
;;=^5063371
;;^UTILITY(U,$J,358.3,34608,0)
;;=Z82.69^^105^1434^37
;;^UTILITY(U,$J,358.3,34608,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34608,1,3,0)
;;=3^Family Hx of Musculoskeletal System/Connective Tissue
;;^UTILITY(U,$J,358.3,34608,1,4,0)
;;=4^Z82.69
;;^UTILITY(U,$J,358.3,34608,2)
;;=^5063373
;;^UTILITY(U,$J,358.3,34609,0)
;;=Z83.3^^105^1434^20
;;^UTILITY(U,$J,358.3,34609,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34609,1,3,0)
;;=3^Family Hx of Diabetes Mellitus
;;^UTILITY(U,$J,358.3,34609,1,4,0)
;;=4^Z83.3
;;^UTILITY(U,$J,358.3,34609,2)
;;=^5063379
;;^UTILITY(U,$J,358.3,34610,0)
;;=Z83.2^^105^1434^16
;;^UTILITY(U,$J,358.3,34610,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34610,1,3,0)
;;=3^Family Hx of Blood/Immune Mechanism Diseases
;;^UTILITY(U,$J,358.3,34610,1,4,0)
;;=4^Z83.2
;;^UTILITY(U,$J,358.3,34610,2)
;;=^5063378
;;^UTILITY(U,$J,358.3,34611,0)
;;=Z82.71^^105^1434^40
;;^UTILITY(U,$J,358.3,34611,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34611,1,3,0)
;;=3^Family Hx of Polycystic Kidney
;;^UTILITY(U,$J,358.3,34611,1,4,0)
;;=4^Z82.71
;;^UTILITY(U,$J,358.3,34611,2)
;;=^321531
;;^UTILITY(U,$J,358.3,34612,0)
;;=Z82.1^^105^1434^15
;;^UTILITY(U,$J,358.3,34612,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34612,1,3,0)
;;=3^Family Hx of Blindness/Visual Loss
;;^UTILITY(U,$J,358.3,34612,1,4,0)
;;=4^Z82.1
;;^UTILITY(U,$J,358.3,34612,2)
;;=^5063365
;;^UTILITY(U,$J,358.3,34613,0)
;;=Z82.2^^105^1434^19
;;^UTILITY(U,$J,358.3,34613,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34613,1,3,0)
;;=3^Family Hx of Deafness/Hearing Loss
;;^UTILITY(U,$J,358.3,34613,1,4,0)
;;=4^Z82.2
;;^UTILITY(U,$J,358.3,34613,2)
;;=^5063366
;;^UTILITY(U,$J,358.3,34614,0)
;;=Z84.0^^105^1434^41
;;^UTILITY(U,$J,358.3,34614,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34614,1,3,0)
;;=3^Family Hx of Skin Diseases
;;^UTILITY(U,$J,358.3,34614,1,4,0)
;;=4^Z84.0
;;^UTILITY(U,$J,358.3,34614,2)
;;=^5063388
;;^UTILITY(U,$J,358.3,34615,0)
;;=Z82.79^^105^1434^18
;;^UTILITY(U,$J,358.3,34615,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34615,1,3,0)
;;=3^Family Hx of Congen Malform,Deformations & Chromsoml Abnlt
;;^UTILITY(U,$J,358.3,34615,1,4,0)
;;=4^Z82.79
;;^UTILITY(U,$J,358.3,34615,2)
;;=^5063374
;;^UTILITY(U,$J,358.3,34616,0)
;;=Z84.89^^105^1434^39
;;^UTILITY(U,$J,358.3,34616,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34616,1,3,0)
;;=3^Family Hx of Other Spec Conditions
;;^UTILITY(U,$J,358.3,34616,1,4,0)
;;=4^Z84.89
;;^UTILITY(U,$J,358.3,34616,2)
;;=^5063393
;;^UTILITY(U,$J,358.3,34617,0)
;;=Z81.1^^105^1434^12
;;^UTILITY(U,$J,358.3,34617,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34617,1,3,0)
;;=3^Family Hx of Alcohol Abuse/Dependence
;;^UTILITY(U,$J,358.3,34617,1,4,0)
;;=4^Z81.1
;;^UTILITY(U,$J,358.3,34617,2)
;;=^5063359
;;^UTILITY(U,$J,358.3,34618,0)
;;=Z82.62^^105^1434^38
;;^UTILITY(U,$J,358.3,34618,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34618,1,3,0)
;;=3^Family Hx of Osteoporosis
;;^UTILITY(U,$J,358.3,34618,1,4,0)
;;=4^Z82.62
;;^UTILITY(U,$J,358.3,34618,2)
;;=^5063372
;;^UTILITY(U,$J,358.3,34619,0)
;;=Z83.71^^105^1434^17
;;^UTILITY(U,$J,358.3,34619,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34619,1,3,0)
;;=3^Family Hx of Colonic Polyps
;;^UTILITY(U,$J,358.3,34619,1,4,0)
;;=4^Z83.71
;;^UTILITY(U,$J,358.3,34619,2)
;;=^5063386
;;^UTILITY(U,$J,358.3,34620,0)
;;=Z84.81^^105^1434^22
;;^UTILITY(U,$J,358.3,34620,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34620,1,3,0)
;;=3^Family Hx of Genetic Disease
;;^UTILITY(U,$J,358.3,34620,1,4,0)
;;=4^Z84.81
;;^UTILITY(U,$J,358.3,34620,2)
;;=^5063392
;;^UTILITY(U,$J,358.3,34621,0)
;;=Z86.010^^105^1434^70
;;^UTILITY(U,$J,358.3,34621,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34621,1,3,0)
;;=3^Personal Hx of Colonic Polyps
;;^UTILITY(U,$J,358.3,34621,1,4,0)
;;=4^Z86.010
;;^UTILITY(U,$J,358.3,34621,2)
;;=^5063456
;;^UTILITY(U,$J,358.3,34622,0)
;;=Z86.14^^105^1434^75
;;^UTILITY(U,$J,358.3,34622,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34622,1,3,0)
;;=3^Personal Hx of MRSA Infection
;;^UTILITY(U,$J,358.3,34622,1,4,0)
;;=4^Z86.14
;;^UTILITY(U,$J,358.3,34622,2)
;;=^5063464
;;^UTILITY(U,$J,358.3,34623,0)
;;=Z86.31^^105^1434^71
;;^UTILITY(U,$J,358.3,34623,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34623,1,3,0)
;;=3^Personal Hx of Diabetic Foot Ulcer
;;^UTILITY(U,$J,358.3,34623,1,4,0)
;;=4^Z86.31
;;^UTILITY(U,$J,358.3,34623,2)
;;=^5063467
;;^UTILITY(U,$J,358.3,34624,0)
;;=Z86.711^^105^1434^101
;;^UTILITY(U,$J,358.3,34624,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34624,1,3,0)
;;=3^Personal Hx of Pulmonary Embolism
;;^UTILITY(U,$J,358.3,34624,1,4,0)
;;=4^Z86.711
;;^UTILITY(U,$J,358.3,34624,2)
;;=^5063474
;;^UTILITY(U,$J,358.3,34625,0)
;;=Z86.72^^105^1434^107
;;^UTILITY(U,$J,358.3,34625,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34625,1,3,0)
;;=3^Personal Hx of Thrombophlebitis
;;^UTILITY(U,$J,358.3,34625,1,4,0)
;;=4^Z86.72
;;^UTILITY(U,$J,358.3,34625,2)
;;=^5063476
;;^UTILITY(U,$J,358.3,34626,0)
;;=Z87.310^^105^1434^99
;;^UTILITY(U,$J,358.3,34626,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34626,1,3,0)
;;=3^Personal Hx of Osteoporosis Fx
;;^UTILITY(U,$J,358.3,34626,1,4,0)
;;=4^Z87.310
;;^UTILITY(U,$J,358.3,34626,2)
;;=^5063485
;;^UTILITY(U,$J,358.3,34627,0)
;;=Z87.442^^105^1434^110
;;^UTILITY(U,$J,358.3,34627,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34627,1,3,0)
;;=3^Personal Hx of Urinary Calculi
;;^UTILITY(U,$J,358.3,34627,1,4,0)
;;=4^Z87.442
;;^UTILITY(U,$J,358.3,34627,2)
;;=^5063497
;;^UTILITY(U,$J,358.3,34628,0)
;;=Z87.81^^105^1434^108
;;^UTILITY(U,$J,358.3,34628,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34628,1,3,0)
;;=3^Personal Hx of Traumatic Fx (Healed)
;;^UTILITY(U,$J,358.3,34628,1,4,0)
;;=4^Z87.81
;;^UTILITY(U,$J,358.3,34628,2)
;;=^5063513
;;^UTILITY(U,$J,358.3,34629,0)
;;=Z87.890^^105^1434^102
;;^UTILITY(U,$J,358.3,34629,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34629,1,3,0)
;;=3^Personal Hx of Sex Reassignment
;;^UTILITY(U,$J,358.3,34629,1,4,0)
;;=4^Z87.890
;;^UTILITY(U,$J,358.3,34629,2)
;;=^5063517
;;^UTILITY(U,$J,358.3,34630,0)
;;=Z87.892^^105^1434^68
;;^UTILITY(U,$J,358.3,34630,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34630,1,3,0)
;;=3^Personal Hx of Anaphylaxis
;;^UTILITY(U,$J,358.3,34630,1,4,0)
;;=4^Z87.892
;;^UTILITY(U,$J,358.3,34630,2)
;;=^5063519
;;^UTILITY(U,$J,358.3,34631,0)
;;=Z87.39^^105^1434^96
;;^UTILITY(U,$J,358.3,34631,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34631,1,3,0)
;;=3^Personal Hx of Musculoskeletal/Connective Tissue Disease
;;^UTILITY(U,$J,358.3,34631,1,4,0)
;;=4^Z87.39
;;^UTILITY(U,$J,358.3,34631,2)
;;=^5063488
;;^UTILITY(U,$J,358.3,34632,0)
;;=Z87.820^^105^1434^105
;;^UTILITY(U,$J,358.3,34632,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34632,1,3,0)
;;=3^Personal Hx of TBI
;;^UTILITY(U,$J,358.3,34632,1,4,0)
;;=4^Z87.820
;;^UTILITY(U,$J,358.3,34632,2)
;;=^5063514
;;^UTILITY(U,$J,358.3,34633,0)
;;=Z91.82^^105^1434^95
;;^UTILITY(U,$J,358.3,34633,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34633,1,3,0)
;;=3^Personal Hx of Military Deployment
;;^UTILITY(U,$J,358.3,34633,1,4,0)
;;=4^Z91.82
;;^UTILITY(U,$J,358.3,34633,2)
;;=^5063626
;;^UTILITY(U,$J,358.3,34634,0)
;;=Z91.030^^105^1434^5
;;^UTILITY(U,$J,358.3,34634,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34634,1,3,0)
;;=3^Bee Allergy
;;^UTILITY(U,$J,358.3,34634,1,4,0)
;;=4^Z91.030
;;^UTILITY(U,$J,358.3,34634,2)
;;=^5063605
;;^UTILITY(U,$J,358.3,34635,0)
;;=Z91.038^^105^1434^52
;;^UTILITY(U,$J,358.3,34635,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34635,1,3,0)
;;=3^Insect Allergy NEC
;;^UTILITY(U,$J,358.3,34635,1,4,0)
;;=4^Z91.038
;;^UTILITY(U,$J,358.3,34635,2)
;;=^5063606
;;^UTILITY(U,$J,358.3,34636,0)
;;=Z91.041^^105^1434^145
;;^UTILITY(U,$J,358.3,34636,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34636,1,3,0)
;;=3^Radiographic Dye Allergy
;;^UTILITY(U,$J,358.3,34636,1,4,0)
;;=4^Z91.041
;;^UTILITY(U,$J,358.3,34636,2)
;;=^5063608
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0DS 19790 printed Sep 23, 2025@19:22:41 Page 2
IBDEI0DS ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,34569,1,3,0)
+2 ;;=3^Personal Hx of Hodgkin Lymphoma
+3 ;;^UTILITY(U,$J,358.3,34569,1,4,0)
+4 ;;=4^Z85.71
+5 ;;^UTILITY(U,$J,358.3,34569,2)
+6 ;;=^5063435
+7 ;;^UTILITY(U,$J,358.3,34570,0)
+8 ;;=Z65.8^^105^1434^144
+9 ;;^UTILITY(U,$J,358.3,34570,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,34570,1,3,0)
+12 ;;=3^Psychosocial Circumstance Related Problems
+13 ;;^UTILITY(U,$J,358.3,34570,1,4,0)
+14 ;;=4^Z65.8
+15 ;;^UTILITY(U,$J,358.3,34570,2)
+16 ;;=^5063185
+17 ;;^UTILITY(U,$J,358.3,34571,0)
+18 ;;=Z86.11^^105^1434^109
+19 ;;^UTILITY(U,$J,358.3,34571,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,34571,1,3,0)
+22 ;;=3^Personal Hx of Tuberculosis
+23 ;;^UTILITY(U,$J,358.3,34571,1,4,0)
+24 ;;=4^Z86.11
+25 ;;^UTILITY(U,$J,358.3,34571,2)
+26 ;;=^5063461
+27 ;;^UTILITY(U,$J,358.3,34572,0)
+28 ;;=Z86.13^^105^1434^76
+29 ;;^UTILITY(U,$J,358.3,34572,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,34572,1,3,0)
+32 ;;=3^Personal Hx of Malaria
+33 ;;^UTILITY(U,$J,358.3,34572,1,4,0)
+34 ;;=4^Z86.13
+35 ;;^UTILITY(U,$J,358.3,34572,2)
+36 ;;=^5063463
+37 ;;^UTILITY(U,$J,358.3,34573,0)
+38 ;;=Z86.73^^105^1434^106
+39 ;;^UTILITY(U,$J,358.3,34573,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,34573,1,3,0)
+42 ;;=3^Personal Hx of TIA & Cereb Infrc w/o Residual Deficits
+43 ;;^UTILITY(U,$J,358.3,34573,1,4,0)
+44 ;;=4^Z86.73
+45 ;;^UTILITY(U,$J,358.3,34573,2)
+46 ;;=^5063477
+47 ;;^UTILITY(U,$J,358.3,34574,0)
+48 ;;=Z86.79^^105^1434^69
+49 ;;^UTILITY(U,$J,358.3,34574,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,34574,1,3,0)
+52 ;;=3^Personal Hx of Circulatory System Diseases
+53 ;;^UTILITY(U,$J,358.3,34574,1,4,0)
+54 ;;=4^Z86.79
+55 ;;^UTILITY(U,$J,358.3,34574,2)
+56 ;;=^5063479
+57 ;;^UTILITY(U,$J,358.3,34575,0)
+58 ;;=Z91.040^^105^1434^57
+59 ;;^UTILITY(U,$J,358.3,34575,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,34575,1,3,0)
+62 ;;=3^Latex Allergy Status
+63 ;;^UTILITY(U,$J,358.3,34575,1,4,0)
+64 ;;=4^Z91.040
+65 ;;^UTILITY(U,$J,358.3,34575,2)
+66 ;;=^5063607
+67 ;;^UTILITY(U,$J,358.3,34576,0)
+68 ;;=Z92.3^^105^1434^73
+69 ;;^UTILITY(U,$J,358.3,34576,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,34576,1,3,0)
+72 ;;=3^Personal Hx of Irradiation
+73 ;;^UTILITY(U,$J,358.3,34576,1,4,0)
+74 ;;=4^Z92.3
+75 ;;^UTILITY(U,$J,358.3,34576,2)
+76 ;;=^5063637
+77 ;;^UTILITY(U,$J,358.3,34577,0)
+78 ;;=Z91.120^^105^1434^53
+79 ;;^UTILITY(U,$J,358.3,34577,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,34577,1,3,0)
+82 ;;=3^Intentional Underdose of Meds d/t Financial Hardship
+83 ;;^UTILITY(U,$J,358.3,34577,1,4,0)
+84 ;;=4^Z91.120
+85 ;;^UTILITY(U,$J,358.3,34577,2)
+86 ;;=^5063612
+87 ;;^UTILITY(U,$J,358.3,34578,0)
+88 ;;=Z91.11^^105^1434^62
+89 ;;^UTILITY(U,$J,358.3,34578,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,34578,1,3,0)
+92 ;;=3^Noncompliance w/ Dietary Regimen
+93 ;;^UTILITY(U,$J,358.3,34578,1,4,0)
+94 ;;=4^Z91.11
+95 ;;^UTILITY(U,$J,358.3,34578,2)
+96 ;;=^5063611
+97 ;;^UTILITY(U,$J,358.3,34579,0)
+98 ;;=Z87.891^^105^1434^97
+99 ;;^UTILITY(U,$J,358.3,34579,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,34579,1,3,0)
+102 ;;=3^Personal Hx of Nicotine Dependence
+103 ;;^UTILITY(U,$J,358.3,34579,1,4,0)
+104 ;;=4^Z87.891
+105 ;;^UTILITY(U,$J,358.3,34579,2)
+106 ;;=^5063518
+107 ;;^UTILITY(U,$J,358.3,34580,0)
+108 ;;=Z77.090^^105^1434^3
+109 ;;^UTILITY(U,$J,358.3,34580,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,34580,1,3,0)
+112 ;;=3^Asbestos Contact/Exposure
+113 ;;^UTILITY(U,$J,358.3,34580,1,4,0)
+114 ;;=4^Z77.090
+115 ;;^UTILITY(U,$J,358.3,34580,2)
+116 ;;=^5063312
+117 ;;^UTILITY(U,$J,358.3,34581,0)
+118 ;;=Z57.8^^105^1434^65
+119 ;;^UTILITY(U,$J,358.3,34581,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,34581,1,3,0)
+122 ;;=3^Occupational Exposure to Other Risk Factors
+123 ;;^UTILITY(U,$J,358.3,34581,1,4,0)
+124 ;;=4^Z57.8
+125 ;;^UTILITY(U,$J,358.3,34581,2)
+126 ;;=^5063127
+127 ;;^UTILITY(U,$J,358.3,34582,0)
+128 ;;=Z77.21^^105^1434^46
+129 ;;^UTILITY(U,$J,358.3,34582,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,34582,1,3,0)
+132 ;;=3^Hazardous Body Fluid Contact/Exposure
+133 ;;^UTILITY(U,$J,358.3,34582,1,4,0)
+134 ;;=4^Z77.21
+135 ;;^UTILITY(U,$J,358.3,34582,2)
+136 ;;=^5063323
+137 ;;^UTILITY(U,$J,358.3,34583,0)
+138 ;;=Z91.81^^105^1434^50
+139 ;;^UTILITY(U,$J,358.3,34583,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,34583,1,3,0)
+142 ;;=3^History of Falling
+143 ;;^UTILITY(U,$J,358.3,34583,1,4,0)
+144 ;;=4^Z91.81
+145 ;;^UTILITY(U,$J,358.3,34583,2)
+146 ;;=^5063625
+147 ;;^UTILITY(U,$J,358.3,34584,0)
+148 ;;=Z91.89^^105^1434^112
+149 ;;^UTILITY(U,$J,358.3,34584,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,34584,1,3,0)
+152 ;;=3^Personal Risk Factors NEC
+153 ;;^UTILITY(U,$J,358.3,34584,1,4,0)
+154 ;;=4^Z91.89
+155 ;;^UTILITY(U,$J,358.3,34584,2)
+156 ;;=^5063628
+157 ;;^UTILITY(U,$J,358.3,34585,0)
+158 ;;=Z92.89^^105^1434^100
+159 ;;^UTILITY(U,$J,358.3,34585,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,34585,1,3,0)
+162 ;;=3^Personal Hx of Other Medical Treatment
+163 ;;^UTILITY(U,$J,358.3,34585,1,4,0)
+164 ;;=4^Z92.89
+165 ;;^UTILITY(U,$J,358.3,34585,2)
+166 ;;=^5063641
+167 ;;^UTILITY(U,$J,358.3,34586,0)
+168 ;;=Z77.110^^105^1434^1
+169 ;;^UTILITY(U,$J,358.3,34586,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,34586,1,3,0)
+172 ;;=3^Air Pollution Contact/Exposure
+173 ;;^UTILITY(U,$J,358.3,34586,1,4,0)
+174 ;;=4^Z77.110
+175 ;;^UTILITY(U,$J,358.3,34586,2)
+176 ;;=^5063314
+177 ;;^UTILITY(U,$J,358.3,34587,0)
+178 ;;=Z77.112^^105^1434^148
+179 ;;^UTILITY(U,$J,358.3,34587,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,34587,1,3,0)
+182 ;;=3^Soil Pollution Contact/Exposure
+183 ;;^UTILITY(U,$J,358.3,34587,1,4,0)
+184 ;;=4^Z77.112
+185 ;;^UTILITY(U,$J,358.3,34587,2)
+186 ;;=^5063316
+187 ;;^UTILITY(U,$J,358.3,34588,0)
+188 ;;=Z77.111^^105^1434^155
+189 ;;^UTILITY(U,$J,358.3,34588,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,34588,1,3,0)
+192 ;;=3^Water Pollution Contact/Exposure
+193 ;;^UTILITY(U,$J,358.3,34588,1,4,0)
+194 ;;=4^Z77.111
+195 ;;^UTILITY(U,$J,358.3,34588,2)
+196 ;;=^5063315
+197 ;;^UTILITY(U,$J,358.3,34589,0)
+198 ;;=Z77.128^^105^1434^113
+199 ;;^UTILITY(U,$J,358.3,34589,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,34589,1,3,0)
+202 ;;=3^Physical Environment Hazards Contact/Exposure
+203 ;;^UTILITY(U,$J,358.3,34589,1,4,0)
+204 ;;=4^Z77.128
+205 ;;^UTILITY(U,$J,358.3,34589,2)
+206 ;;=^5063322
+207 ;;^UTILITY(U,$J,358.3,34590,0)
+208 ;;=Z77.123^^105^1434^146
+209 ;;^UTILITY(U,$J,358.3,34590,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,34590,1,3,0)
+212 ;;=3^Radon/Radiation Contact/Exposure
+213 ;;^UTILITY(U,$J,358.3,34590,1,4,0)
+214 ;;=4^Z77.123
+215 ;;^UTILITY(U,$J,358.3,34590,2)
+216 ;;=^5063321
+217 ;;^UTILITY(U,$J,358.3,34591,0)
+218 ;;=Z77.122^^105^1434^61
+219 ;;^UTILITY(U,$J,358.3,34591,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,34591,1,3,0)
+222 ;;=3^Noise Contact/Exposure
+223 ;;^UTILITY(U,$J,358.3,34591,1,4,0)
+224 ;;=4^Z77.122
+225 ;;^UTILITY(U,$J,358.3,34591,2)
+226 ;;=^5063320
+227 ;;^UTILITY(U,$J,358.3,34592,0)
+228 ;;=Z77.118^^105^1434^11
+229 ;;^UTILITY(U,$J,358.3,34592,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,34592,1,3,0)
+232 ;;=3^Environmental Pollution Contact/Exposure
+233 ;;^UTILITY(U,$J,358.3,34592,1,4,0)
+234 ;;=4^Z77.118
+235 ;;^UTILITY(U,$J,358.3,34592,2)
+236 ;;=^5063317
+237 ;;^UTILITY(U,$J,358.3,34593,0)
+238 ;;=Z77.9^^105^1434^47
+239 ;;^UTILITY(U,$J,358.3,34593,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,34593,1,3,0)
+242 ;;=3^Health Hazard Contact/Exposure
+243 ;;^UTILITY(U,$J,358.3,34593,1,4,0)
+244 ;;=4^Z77.9
+245 ;;^UTILITY(U,$J,358.3,34593,2)
+246 ;;=^5063326
+247 ;;^UTILITY(U,$J,358.3,34594,0)
+248 ;;=Z77.22^^105^1434^10
+249 ;;^UTILITY(U,$J,358.3,34594,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,34594,1,3,0)
+252 ;;=3^Environmental Exposure Tobacco Smoke/Second-Hand Smoke
+253 ;;^UTILITY(U,$J,358.3,34594,1,4,0)
+254 ;;=4^Z77.22
+255 ;;^UTILITY(U,$J,358.3,34594,2)
+256 ;;=^5063324
+257 ;;^UTILITY(U,$J,358.3,34595,0)
+258 ;;=Z80.0^^105^1434^28
+259 ;;^UTILITY(U,$J,358.3,34595,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,34595,1,3,0)
+262 ;;=3^Family Hx of Malig Neop of Digestive Organs
+263 ;;^UTILITY(U,$J,358.3,34595,1,4,0)
+264 ;;=4^Z80.0
+265 ;;^UTILITY(U,$J,358.3,34595,2)
+266 ;;=^5063344
+267 ;;^UTILITY(U,$J,358.3,34596,0)
+268 ;;=Z80.1^^105^1434^34
+269 ;;^UTILITY(U,$J,358.3,34596,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,34596,1,3,0)
+272 ;;=3^Family Hx of Malig Neop of Trachea,Bronc & Lung
+273 ;;^UTILITY(U,$J,358.3,34596,1,4,0)
+274 ;;=4^Z80.1
+275 ;;^UTILITY(U,$J,358.3,34596,2)
+276 ;;=^5063345
+277 ;;^UTILITY(U,$J,358.3,34597,0)
+278 ;;=Z80.3^^105^1434^27
+279 ;;^UTILITY(U,$J,358.3,34597,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,34597,1,3,0)
+282 ;;=3^Family Hx of Malig Neop of Breast
+283 ;;^UTILITY(U,$J,358.3,34597,1,4,0)
+284 ;;=4^Z80.3
+285 ;;^UTILITY(U,$J,358.3,34597,2)
+286 ;;=^5063347
+287 ;;^UTILITY(U,$J,358.3,34598,0)
+288 ;;=Z80.41^^105^1434^31
+289 ;;^UTILITY(U,$J,358.3,34598,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,34598,1,3,0)
+292 ;;=3^Family Hx of Malig Neop of Ovary
+293 ;;^UTILITY(U,$J,358.3,34598,1,4,0)
+294 ;;=4^Z80.41
+295 ;;^UTILITY(U,$J,358.3,34598,2)
+296 ;;=^5063348
+297 ;;^UTILITY(U,$J,358.3,34599,0)
+298 ;;=Z80.42^^105^1434^32
+299 ;;^UTILITY(U,$J,358.3,34599,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,34599,1,3,0)
+302 ;;=3^Family Hx of Malig Neop of Prostate
+303 ;;^UTILITY(U,$J,358.3,34599,1,4,0)
+304 ;;=4^Z80.42
+305 ;;^UTILITY(U,$J,358.3,34599,2)
+306 ;;=^5063349
+307 ;;^UTILITY(U,$J,358.3,34600,0)
+308 ;;=Z80.43^^105^1434^33
+309 ;;^UTILITY(U,$J,358.3,34600,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,34600,1,3,0)
+312 ;;=3^Family Hx of Malig Neop of Testis
+313 ;;^UTILITY(U,$J,358.3,34600,1,4,0)
+314 ;;=4^Z80.43
+315 ;;^UTILITY(U,$J,358.3,34600,2)
+316 ;;=^5063350
+317 ;;^UTILITY(U,$J,358.3,34601,0)
+318 ;;=Z80.6^^105^1434^25
+319 ;;^UTILITY(U,$J,358.3,34601,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,34601,1,3,0)
+322 ;;=3^Family Hx of Leukemia
+323 ;;^UTILITY(U,$J,358.3,34601,1,4,0)
+324 ;;=4^Z80.6
+325 ;;^UTILITY(U,$J,358.3,34601,2)
+326 ;;=^5063354
+327 ;;^UTILITY(U,$J,358.3,34602,0)
+328 ;;=Z80.8^^105^1434^30
+329 ;;^UTILITY(U,$J,358.3,34602,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,34602,1,3,0)
+332 ;;=3^Family Hx of Malig Neop of Organs/Systems
+333 ;;^UTILITY(U,$J,358.3,34602,1,4,0)
+334 ;;=4^Z80.8
+335 ;;^UTILITY(U,$J,358.3,34602,2)
+336 ;;=^5063356
+337 ;;^UTILITY(U,$J,358.3,34603,0)
+338 ;;=Z81.8^^105^1434^35
+339 ;;^UTILITY(U,$J,358.3,34603,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,34603,1,3,0)
+342 ;;=3^Family Hx of Mental/Behavioral Disorders
+343 ;;^UTILITY(U,$J,358.3,34603,1,4,0)
+344 ;;=4^Z81.8
+345 ;;^UTILITY(U,$J,358.3,34603,2)
+346 ;;=^5063363
+347 ;;^UTILITY(U,$J,358.3,34604,0)
+348 ;;=Z82.3^^105^1434^42
+349 ;;^UTILITY(U,$J,358.3,34604,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,34604,1,3,0)
+352 ;;=3^Family Hx of Stroke
+353 ;;^UTILITY(U,$J,358.3,34604,1,4,0)
+354 ;;=4^Z82.3
+355 ;;^UTILITY(U,$J,358.3,34604,2)
+356 ;;=^5063367
+357 ;;^UTILITY(U,$J,358.3,34605,0)
+358 ;;=Z82.49^^105^1434^24
+359 ;;^UTILITY(U,$J,358.3,34605,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,34605,1,3,0)
+362 ;;=3^Family Hx of Ischemic Heart Disease/Circulatory System
+363 ;;^UTILITY(U,$J,358.3,34605,1,4,0)
+364 ;;=4^Z82.49
+365 ;;^UTILITY(U,$J,358.3,34605,2)
+366 ;;=^5063369
+367 ;;^UTILITY(U,$J,358.3,34606,0)
+368 ;;=Z82.5^^105^1434^14
+369 ;;^UTILITY(U,$J,358.3,34606,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,34606,1,3,0)
+372 ;;=3^Family Hx of Asthma/Chronic Lower Respiratory Diseases
+373 ;;^UTILITY(U,$J,358.3,34606,1,4,0)
+374 ;;=4^Z82.5
+375 ;;^UTILITY(U,$J,358.3,34606,2)
+376 ;;=^5063370
+377 ;;^UTILITY(U,$J,358.3,34607,0)
+378 ;;=Z82.61^^105^1434^13
+379 ;;^UTILITY(U,$J,358.3,34607,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,34607,1,3,0)
+382 ;;=3^Family Hx of Arthritis
+383 ;;^UTILITY(U,$J,358.3,34607,1,4,0)
+384 ;;=4^Z82.61
+385 ;;^UTILITY(U,$J,358.3,34607,2)
+386 ;;=^5063371
+387 ;;^UTILITY(U,$J,358.3,34608,0)
+388 ;;=Z82.69^^105^1434^37
+389 ;;^UTILITY(U,$J,358.3,34608,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,34608,1,3,0)
+392 ;;=3^Family Hx of Musculoskeletal System/Connective Tissue
+393 ;;^UTILITY(U,$J,358.3,34608,1,4,0)
+394 ;;=4^Z82.69
+395 ;;^UTILITY(U,$J,358.3,34608,2)
+396 ;;=^5063373
+397 ;;^UTILITY(U,$J,358.3,34609,0)
+398 ;;=Z83.3^^105^1434^20
+399 ;;^UTILITY(U,$J,358.3,34609,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,34609,1,3,0)
+402 ;;=3^Family Hx of Diabetes Mellitus
+403 ;;^UTILITY(U,$J,358.3,34609,1,4,0)
+404 ;;=4^Z83.3
+405 ;;^UTILITY(U,$J,358.3,34609,2)
+406 ;;=^5063379
+407 ;;^UTILITY(U,$J,358.3,34610,0)
+408 ;;=Z83.2^^105^1434^16
+409 ;;^UTILITY(U,$J,358.3,34610,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,34610,1,3,0)
+412 ;;=3^Family Hx of Blood/Immune Mechanism Diseases
+413 ;;^UTILITY(U,$J,358.3,34610,1,4,0)
+414 ;;=4^Z83.2
+415 ;;^UTILITY(U,$J,358.3,34610,2)
+416 ;;=^5063378
+417 ;;^UTILITY(U,$J,358.3,34611,0)
+418 ;;=Z82.71^^105^1434^40
+419 ;;^UTILITY(U,$J,358.3,34611,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,34611,1,3,0)
+422 ;;=3^Family Hx of Polycystic Kidney
+423 ;;^UTILITY(U,$J,358.3,34611,1,4,0)
+424 ;;=4^Z82.71
+425 ;;^UTILITY(U,$J,358.3,34611,2)
+426 ;;=^321531
+427 ;;^UTILITY(U,$J,358.3,34612,0)
+428 ;;=Z82.1^^105^1434^15
+429 ;;^UTILITY(U,$J,358.3,34612,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,34612,1,3,0)
+432 ;;=3^Family Hx of Blindness/Visual Loss
+433 ;;^UTILITY(U,$J,358.3,34612,1,4,0)
+434 ;;=4^Z82.1
+435 ;;^UTILITY(U,$J,358.3,34612,2)
+436 ;;=^5063365
+437 ;;^UTILITY(U,$J,358.3,34613,0)
+438 ;;=Z82.2^^105^1434^19
+439 ;;^UTILITY(U,$J,358.3,34613,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,34613,1,3,0)
+442 ;;=3^Family Hx of Deafness/Hearing Loss
+443 ;;^UTILITY(U,$J,358.3,34613,1,4,0)
+444 ;;=4^Z82.2
+445 ;;^UTILITY(U,$J,358.3,34613,2)
+446 ;;=^5063366
+447 ;;^UTILITY(U,$J,358.3,34614,0)
+448 ;;=Z84.0^^105^1434^41
+449 ;;^UTILITY(U,$J,358.3,34614,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,34614,1,3,0)
+452 ;;=3^Family Hx of Skin Diseases
+453 ;;^UTILITY(U,$J,358.3,34614,1,4,0)
+454 ;;=4^Z84.0
+455 ;;^UTILITY(U,$J,358.3,34614,2)
+456 ;;=^5063388
+457 ;;^UTILITY(U,$J,358.3,34615,0)
+458 ;;=Z82.79^^105^1434^18
+459 ;;^UTILITY(U,$J,358.3,34615,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,34615,1,3,0)
+462 ;;=3^Family Hx of Congen Malform,Deformations & Chromsoml Abnlt
+463 ;;^UTILITY(U,$J,358.3,34615,1,4,0)
+464 ;;=4^Z82.79
+465 ;;^UTILITY(U,$J,358.3,34615,2)
+466 ;;=^5063374
+467 ;;^UTILITY(U,$J,358.3,34616,0)
+468 ;;=Z84.89^^105^1434^39
+469 ;;^UTILITY(U,$J,358.3,34616,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,34616,1,3,0)
+472 ;;=3^Family Hx of Other Spec Conditions
+473 ;;^UTILITY(U,$J,358.3,34616,1,4,0)
+474 ;;=4^Z84.89
+475 ;;^UTILITY(U,$J,358.3,34616,2)
+476 ;;=^5063393
+477 ;;^UTILITY(U,$J,358.3,34617,0)
+478 ;;=Z81.1^^105^1434^12
+479 ;;^UTILITY(U,$J,358.3,34617,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,34617,1,3,0)
+482 ;;=3^Family Hx of Alcohol Abuse/Dependence
+483 ;;^UTILITY(U,$J,358.3,34617,1,4,0)
+484 ;;=4^Z81.1
+485 ;;^UTILITY(U,$J,358.3,34617,2)
+486 ;;=^5063359
+487 ;;^UTILITY(U,$J,358.3,34618,0)
+488 ;;=Z82.62^^105^1434^38
+489 ;;^UTILITY(U,$J,358.3,34618,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,34618,1,3,0)
+492 ;;=3^Family Hx of Osteoporosis
+493 ;;^UTILITY(U,$J,358.3,34618,1,4,0)
+494 ;;=4^Z82.62
+495 ;;^UTILITY(U,$J,358.3,34618,2)
+496 ;;=^5063372
+497 ;;^UTILITY(U,$J,358.3,34619,0)
+498 ;;=Z83.71^^105^1434^17
+499 ;;^UTILITY(U,$J,358.3,34619,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,34619,1,3,0)
+502 ;;=3^Family Hx of Colonic Polyps
+503 ;;^UTILITY(U,$J,358.3,34619,1,4,0)
+504 ;;=4^Z83.71
+505 ;;^UTILITY(U,$J,358.3,34619,2)
+506 ;;=^5063386
+507 ;;^UTILITY(U,$J,358.3,34620,0)
+508 ;;=Z84.81^^105^1434^22
+509 ;;^UTILITY(U,$J,358.3,34620,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,34620,1,3,0)
+512 ;;=3^Family Hx of Genetic Disease
+513 ;;^UTILITY(U,$J,358.3,34620,1,4,0)
+514 ;;=4^Z84.81
+515 ;;^UTILITY(U,$J,358.3,34620,2)
+516 ;;=^5063392
+517 ;;^UTILITY(U,$J,358.3,34621,0)
+518 ;;=Z86.010^^105^1434^70
+519 ;;^UTILITY(U,$J,358.3,34621,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,34621,1,3,0)
+522 ;;=3^Personal Hx of Colonic Polyps
+523 ;;^UTILITY(U,$J,358.3,34621,1,4,0)
+524 ;;=4^Z86.010
+525 ;;^UTILITY(U,$J,358.3,34621,2)
+526 ;;=^5063456
+527 ;;^UTILITY(U,$J,358.3,34622,0)
+528 ;;=Z86.14^^105^1434^75
+529 ;;^UTILITY(U,$J,358.3,34622,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,34622,1,3,0)
+532 ;;=3^Personal Hx of MRSA Infection
+533 ;;^UTILITY(U,$J,358.3,34622,1,4,0)
+534 ;;=4^Z86.14
+535 ;;^UTILITY(U,$J,358.3,34622,2)
+536 ;;=^5063464
+537 ;;^UTILITY(U,$J,358.3,34623,0)
+538 ;;=Z86.31^^105^1434^71
+539 ;;^UTILITY(U,$J,358.3,34623,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,34623,1,3,0)
+542 ;;=3^Personal Hx of Diabetic Foot Ulcer
+543 ;;^UTILITY(U,$J,358.3,34623,1,4,0)
+544 ;;=4^Z86.31
+545 ;;^UTILITY(U,$J,358.3,34623,2)
+546 ;;=^5063467
+547 ;;^UTILITY(U,$J,358.3,34624,0)
+548 ;;=Z86.711^^105^1434^101
+549 ;;^UTILITY(U,$J,358.3,34624,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,34624,1,3,0)
+552 ;;=3^Personal Hx of Pulmonary Embolism
+553 ;;^UTILITY(U,$J,358.3,34624,1,4,0)
+554 ;;=4^Z86.711
+555 ;;^UTILITY(U,$J,358.3,34624,2)
+556 ;;=^5063474
+557 ;;^UTILITY(U,$J,358.3,34625,0)
+558 ;;=Z86.72^^105^1434^107
+559 ;;^UTILITY(U,$J,358.3,34625,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,34625,1,3,0)
+562 ;;=3^Personal Hx of Thrombophlebitis
+563 ;;^UTILITY(U,$J,358.3,34625,1,4,0)
+564 ;;=4^Z86.72
+565 ;;^UTILITY(U,$J,358.3,34625,2)
+566 ;;=^5063476
+567 ;;^UTILITY(U,$J,358.3,34626,0)
+568 ;;=Z87.310^^105^1434^99
+569 ;;^UTILITY(U,$J,358.3,34626,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,34626,1,3,0)
+572 ;;=3^Personal Hx of Osteoporosis Fx
+573 ;;^UTILITY(U,$J,358.3,34626,1,4,0)
+574 ;;=4^Z87.310
+575 ;;^UTILITY(U,$J,358.3,34626,2)
+576 ;;=^5063485
+577 ;;^UTILITY(U,$J,358.3,34627,0)
+578 ;;=Z87.442^^105^1434^110
+579 ;;^UTILITY(U,$J,358.3,34627,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,34627,1,3,0)
+582 ;;=3^Personal Hx of Urinary Calculi
+583 ;;^UTILITY(U,$J,358.3,34627,1,4,0)
+584 ;;=4^Z87.442
+585 ;;^UTILITY(U,$J,358.3,34627,2)
+586 ;;=^5063497
+587 ;;^UTILITY(U,$J,358.3,34628,0)
+588 ;;=Z87.81^^105^1434^108
+589 ;;^UTILITY(U,$J,358.3,34628,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,34628,1,3,0)
+592 ;;=3^Personal Hx of Traumatic Fx (Healed)
+593 ;;^UTILITY(U,$J,358.3,34628,1,4,0)
+594 ;;=4^Z87.81
+595 ;;^UTILITY(U,$J,358.3,34628,2)
+596 ;;=^5063513
+597 ;;^UTILITY(U,$J,358.3,34629,0)
+598 ;;=Z87.890^^105^1434^102
+599 ;;^UTILITY(U,$J,358.3,34629,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,34629,1,3,0)
+602 ;;=3^Personal Hx of Sex Reassignment
+603 ;;^UTILITY(U,$J,358.3,34629,1,4,0)
+604 ;;=4^Z87.890
+605 ;;^UTILITY(U,$J,358.3,34629,2)
+606 ;;=^5063517
+607 ;;^UTILITY(U,$J,358.3,34630,0)
+608 ;;=Z87.892^^105^1434^68
+609 ;;^UTILITY(U,$J,358.3,34630,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,34630,1,3,0)
+612 ;;=3^Personal Hx of Anaphylaxis
+613 ;;^UTILITY(U,$J,358.3,34630,1,4,0)
+614 ;;=4^Z87.892
+615 ;;^UTILITY(U,$J,358.3,34630,2)
+616 ;;=^5063519
+617 ;;^UTILITY(U,$J,358.3,34631,0)
+618 ;;=Z87.39^^105^1434^96
+619 ;;^UTILITY(U,$J,358.3,34631,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,34631,1,3,0)
+622 ;;=3^Personal Hx of Musculoskeletal/Connective Tissue Disease
+623 ;;^UTILITY(U,$J,358.3,34631,1,4,0)
+624 ;;=4^Z87.39
+625 ;;^UTILITY(U,$J,358.3,34631,2)
+626 ;;=^5063488
+627 ;;^UTILITY(U,$J,358.3,34632,0)
+628 ;;=Z87.820^^105^1434^105
+629 ;;^UTILITY(U,$J,358.3,34632,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,34632,1,3,0)
+632 ;;=3^Personal Hx of TBI
+633 ;;^UTILITY(U,$J,358.3,34632,1,4,0)
+634 ;;=4^Z87.820
+635 ;;^UTILITY(U,$J,358.3,34632,2)
+636 ;;=^5063514
+637 ;;^UTILITY(U,$J,358.3,34633,0)
+638 ;;=Z91.82^^105^1434^95
+639 ;;^UTILITY(U,$J,358.3,34633,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,34633,1,3,0)
+642 ;;=3^Personal Hx of Military Deployment
+643 ;;^UTILITY(U,$J,358.3,34633,1,4,0)
+644 ;;=4^Z91.82
+645 ;;^UTILITY(U,$J,358.3,34633,2)
+646 ;;=^5063626
+647 ;;^UTILITY(U,$J,358.3,34634,0)
+648 ;;=Z91.030^^105^1434^5
+649 ;;^UTILITY(U,$J,358.3,34634,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,34634,1,3,0)
+652 ;;=3^Bee Allergy
+653 ;;^UTILITY(U,$J,358.3,34634,1,4,0)
+654 ;;=4^Z91.030
+655 ;;^UTILITY(U,$J,358.3,34634,2)
+656 ;;=^5063605
+657 ;;^UTILITY(U,$J,358.3,34635,0)
+658 ;;=Z91.038^^105^1434^52
+659 ;;^UTILITY(U,$J,358.3,34635,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,34635,1,3,0)
+662 ;;=3^Insect Allergy NEC
+663 ;;^UTILITY(U,$J,358.3,34635,1,4,0)
+664 ;;=4^Z91.038
+665 ;;^UTILITY(U,$J,358.3,34635,2)
+666 ;;=^5063606
+667 ;;^UTILITY(U,$J,358.3,34636,0)
+668 ;;=Z91.041^^105^1434^145
+669 ;;^UTILITY(U,$J,358.3,34636,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,34636,1,3,0)
+672 ;;=3^Radiographic Dye Allergy
+673 ;;^UTILITY(U,$J,358.3,34636,1,4,0)
+674 ;;=4^Z91.041
+675 ;;^UTILITY(U,$J,358.3,34636,2)
+676 ;;=^5063608
