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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI06E 19769 printed Nov 22, 2024@16:52:44 Page 2
IBDEI06E ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,15503,1,4,0)
+2 ;;=4^Z77.22
+3 ;;^UTILITY(U,$J,358.3,15503,2)
+4 ;;=^5063324
+5 ;;^UTILITY(U,$J,358.3,15504,0)
+6 ;;=Z80.0^^56^645^28
+7 ;;^UTILITY(U,$J,358.3,15504,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,15504,1,3,0)
+10 ;;=3^Family Hx of Malig Neop of Digestive Organs
+11 ;;^UTILITY(U,$J,358.3,15504,1,4,0)
+12 ;;=4^Z80.0
+13 ;;^UTILITY(U,$J,358.3,15504,2)
+14 ;;=^5063344
+15 ;;^UTILITY(U,$J,358.3,15505,0)
+16 ;;=Z80.1^^56^645^34
+17 ;;^UTILITY(U,$J,358.3,15505,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,15505,1,3,0)
+20 ;;=3^Family Hx of Malig Neop of Trachea,Bronc & Lung
+21 ;;^UTILITY(U,$J,358.3,15505,1,4,0)
+22 ;;=4^Z80.1
+23 ;;^UTILITY(U,$J,358.3,15505,2)
+24 ;;=^5063345
+25 ;;^UTILITY(U,$J,358.3,15506,0)
+26 ;;=Z80.3^^56^645^27
+27 ;;^UTILITY(U,$J,358.3,15506,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,15506,1,3,0)
+30 ;;=3^Family Hx of Malig Neop of Breast
+31 ;;^UTILITY(U,$J,358.3,15506,1,4,0)
+32 ;;=4^Z80.3
+33 ;;^UTILITY(U,$J,358.3,15506,2)
+34 ;;=^5063347
+35 ;;^UTILITY(U,$J,358.3,15507,0)
+36 ;;=Z80.41^^56^645^31
+37 ;;^UTILITY(U,$J,358.3,15507,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,15507,1,3,0)
+40 ;;=3^Family Hx of Malig Neop of Ovary
+41 ;;^UTILITY(U,$J,358.3,15507,1,4,0)
+42 ;;=4^Z80.41
+43 ;;^UTILITY(U,$J,358.3,15507,2)
+44 ;;=^5063348
+45 ;;^UTILITY(U,$J,358.3,15508,0)
+46 ;;=Z80.42^^56^645^32
+47 ;;^UTILITY(U,$J,358.3,15508,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,15508,1,3,0)
+50 ;;=3^Family Hx of Malig Neop of Prostate
+51 ;;^UTILITY(U,$J,358.3,15508,1,4,0)
+52 ;;=4^Z80.42
+53 ;;^UTILITY(U,$J,358.3,15508,2)
+54 ;;=^5063349
+55 ;;^UTILITY(U,$J,358.3,15509,0)
+56 ;;=Z80.43^^56^645^33
+57 ;;^UTILITY(U,$J,358.3,15509,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,15509,1,3,0)
+60 ;;=3^Family Hx of Malig Neop of Testis
+61 ;;^UTILITY(U,$J,358.3,15509,1,4,0)
+62 ;;=4^Z80.43
+63 ;;^UTILITY(U,$J,358.3,15509,2)
+64 ;;=^5063350
+65 ;;^UTILITY(U,$J,358.3,15510,0)
+66 ;;=Z80.6^^56^645^25
+67 ;;^UTILITY(U,$J,358.3,15510,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,15510,1,3,0)
+70 ;;=3^Family Hx of Leukemia
+71 ;;^UTILITY(U,$J,358.3,15510,1,4,0)
+72 ;;=4^Z80.6
+73 ;;^UTILITY(U,$J,358.3,15510,2)
+74 ;;=^5063354
+75 ;;^UTILITY(U,$J,358.3,15511,0)
+76 ;;=Z80.8^^56^645^30
+77 ;;^UTILITY(U,$J,358.3,15511,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,15511,1,3,0)
+80 ;;=3^Family Hx of Malig Neop of Organs/Systems
+81 ;;^UTILITY(U,$J,358.3,15511,1,4,0)
+82 ;;=4^Z80.8
+83 ;;^UTILITY(U,$J,358.3,15511,2)
+84 ;;=^5063356
+85 ;;^UTILITY(U,$J,358.3,15512,0)
+86 ;;=Z81.8^^56^645^35
+87 ;;^UTILITY(U,$J,358.3,15512,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,15512,1,3,0)
+90 ;;=3^Family Hx of Mental/Behavioral Disorders
+91 ;;^UTILITY(U,$J,358.3,15512,1,4,0)
+92 ;;=4^Z81.8
+93 ;;^UTILITY(U,$J,358.3,15512,2)
+94 ;;=^5063363
+95 ;;^UTILITY(U,$J,358.3,15513,0)
+96 ;;=Z82.3^^56^645^42
+97 ;;^UTILITY(U,$J,358.3,15513,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,15513,1,3,0)
+100 ;;=3^Family Hx of Stroke
+101 ;;^UTILITY(U,$J,358.3,15513,1,4,0)
+102 ;;=4^Z82.3
+103 ;;^UTILITY(U,$J,358.3,15513,2)
+104 ;;=^5063367
+105 ;;^UTILITY(U,$J,358.3,15514,0)
+106 ;;=Z82.49^^56^645^24
+107 ;;^UTILITY(U,$J,358.3,15514,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,15514,1,3,0)
+110 ;;=3^Family Hx of Ischemic Heart Disease/Circulatory System
+111 ;;^UTILITY(U,$J,358.3,15514,1,4,0)
+112 ;;=4^Z82.49
+113 ;;^UTILITY(U,$J,358.3,15514,2)
+114 ;;=^5063369
+115 ;;^UTILITY(U,$J,358.3,15515,0)
+116 ;;=Z82.5^^56^645^14
+117 ;;^UTILITY(U,$J,358.3,15515,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,15515,1,3,0)
+120 ;;=3^Family Hx of Asthma/Chronic Lower Respiratory Diseases
+121 ;;^UTILITY(U,$J,358.3,15515,1,4,0)
+122 ;;=4^Z82.5
+123 ;;^UTILITY(U,$J,358.3,15515,2)
+124 ;;=^5063370
+125 ;;^UTILITY(U,$J,358.3,15516,0)
+126 ;;=Z82.61^^56^645^13
+127 ;;^UTILITY(U,$J,358.3,15516,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,15516,1,3,0)
+130 ;;=3^Family Hx of Arthritis
+131 ;;^UTILITY(U,$J,358.3,15516,1,4,0)
+132 ;;=4^Z82.61
+133 ;;^UTILITY(U,$J,358.3,15516,2)
+134 ;;=^5063371
+135 ;;^UTILITY(U,$J,358.3,15517,0)
+136 ;;=Z82.69^^56^645^37
+137 ;;^UTILITY(U,$J,358.3,15517,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,15517,1,3,0)
+140 ;;=3^Family Hx of Musculoskeletal System/Connective Tissue
+141 ;;^UTILITY(U,$J,358.3,15517,1,4,0)
+142 ;;=4^Z82.69
+143 ;;^UTILITY(U,$J,358.3,15517,2)
+144 ;;=^5063373
+145 ;;^UTILITY(U,$J,358.3,15518,0)
+146 ;;=Z83.3^^56^645^20
+147 ;;^UTILITY(U,$J,358.3,15518,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,15518,1,3,0)
+150 ;;=3^Family Hx of Diabetes Mellitus
+151 ;;^UTILITY(U,$J,358.3,15518,1,4,0)
+152 ;;=4^Z83.3
+153 ;;^UTILITY(U,$J,358.3,15518,2)
+154 ;;=^5063379
+155 ;;^UTILITY(U,$J,358.3,15519,0)
+156 ;;=Z83.2^^56^645^16
+157 ;;^UTILITY(U,$J,358.3,15519,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,15519,1,3,0)
+160 ;;=3^Family Hx of Blood/Immune Mechanism Diseases
+161 ;;^UTILITY(U,$J,358.3,15519,1,4,0)
+162 ;;=4^Z83.2
+163 ;;^UTILITY(U,$J,358.3,15519,2)
+164 ;;=^5063378
+165 ;;^UTILITY(U,$J,358.3,15520,0)
+166 ;;=Z82.71^^56^645^40
+167 ;;^UTILITY(U,$J,358.3,15520,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,15520,1,3,0)
+170 ;;=3^Family Hx of Polycystic Kidney
+171 ;;^UTILITY(U,$J,358.3,15520,1,4,0)
+172 ;;=4^Z82.71
+173 ;;^UTILITY(U,$J,358.3,15520,2)
+174 ;;=^321531
+175 ;;^UTILITY(U,$J,358.3,15521,0)
+176 ;;=Z82.1^^56^645^15
+177 ;;^UTILITY(U,$J,358.3,15521,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,15521,1,3,0)
+180 ;;=3^Family Hx of Blindness/Visual Loss
+181 ;;^UTILITY(U,$J,358.3,15521,1,4,0)
+182 ;;=4^Z82.1
+183 ;;^UTILITY(U,$J,358.3,15521,2)
+184 ;;=^5063365
+185 ;;^UTILITY(U,$J,358.3,15522,0)
+186 ;;=Z82.2^^56^645^19
+187 ;;^UTILITY(U,$J,358.3,15522,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,15522,1,3,0)
+190 ;;=3^Family Hx of Deafness/Hearing Loss
+191 ;;^UTILITY(U,$J,358.3,15522,1,4,0)
+192 ;;=4^Z82.2
+193 ;;^UTILITY(U,$J,358.3,15522,2)
+194 ;;=^5063366
+195 ;;^UTILITY(U,$J,358.3,15523,0)
+196 ;;=Z84.0^^56^645^41
+197 ;;^UTILITY(U,$J,358.3,15523,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,15523,1,3,0)
+200 ;;=3^Family Hx of Skin Diseases
+201 ;;^UTILITY(U,$J,358.3,15523,1,4,0)
+202 ;;=4^Z84.0
+203 ;;^UTILITY(U,$J,358.3,15523,2)
+204 ;;=^5063388
+205 ;;^UTILITY(U,$J,358.3,15524,0)
+206 ;;=Z82.79^^56^645^18
+207 ;;^UTILITY(U,$J,358.3,15524,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,15524,1,3,0)
+210 ;;=3^Family Hx of Congen Malform,Deformations & Chromsoml Abnlt
+211 ;;^UTILITY(U,$J,358.3,15524,1,4,0)
+212 ;;=4^Z82.79
+213 ;;^UTILITY(U,$J,358.3,15524,2)
+214 ;;=^5063374
+215 ;;^UTILITY(U,$J,358.3,15525,0)
+216 ;;=Z84.89^^56^645^39
+217 ;;^UTILITY(U,$J,358.3,15525,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,15525,1,3,0)
+220 ;;=3^Family Hx of Other Spec Conditions
+221 ;;^UTILITY(U,$J,358.3,15525,1,4,0)
+222 ;;=4^Z84.89
+223 ;;^UTILITY(U,$J,358.3,15525,2)
+224 ;;=^5063393
+225 ;;^UTILITY(U,$J,358.3,15526,0)
+226 ;;=Z81.1^^56^645^12
+227 ;;^UTILITY(U,$J,358.3,15526,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,15526,1,3,0)
+230 ;;=3^Family Hx of Alcohol Abuse/Dependence
+231 ;;^UTILITY(U,$J,358.3,15526,1,4,0)
+232 ;;=4^Z81.1
+233 ;;^UTILITY(U,$J,358.3,15526,2)
+234 ;;=^5063359
+235 ;;^UTILITY(U,$J,358.3,15527,0)
+236 ;;=Z82.62^^56^645^38
+237 ;;^UTILITY(U,$J,358.3,15527,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,15527,1,3,0)
+240 ;;=3^Family Hx of Osteoporosis
+241 ;;^UTILITY(U,$J,358.3,15527,1,4,0)
+242 ;;=4^Z82.62
+243 ;;^UTILITY(U,$J,358.3,15527,2)
+244 ;;=^5063372
+245 ;;^UTILITY(U,$J,358.3,15528,0)
+246 ;;=Z83.71^^56^645^17
+247 ;;^UTILITY(U,$J,358.3,15528,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,15528,1,3,0)
+250 ;;=3^Family Hx of Colonic Polyps
+251 ;;^UTILITY(U,$J,358.3,15528,1,4,0)
+252 ;;=4^Z83.71
+253 ;;^UTILITY(U,$J,358.3,15528,2)
+254 ;;=^5063386
+255 ;;^UTILITY(U,$J,358.3,15529,0)
+256 ;;=Z84.81^^56^645^22
+257 ;;^UTILITY(U,$J,358.3,15529,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,15529,1,3,0)
+260 ;;=3^Family Hx of Genetic Disease
+261 ;;^UTILITY(U,$J,358.3,15529,1,4,0)
+262 ;;=4^Z84.81
+263 ;;^UTILITY(U,$J,358.3,15529,2)
+264 ;;=^5063392
+265 ;;^UTILITY(U,$J,358.3,15530,0)
+266 ;;=Z86.010^^56^645^70
+267 ;;^UTILITY(U,$J,358.3,15530,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,15530,1,3,0)
+270 ;;=3^Personal Hx of Colonic Polyps
+271 ;;^UTILITY(U,$J,358.3,15530,1,4,0)
+272 ;;=4^Z86.010
+273 ;;^UTILITY(U,$J,358.3,15530,2)
+274 ;;=^5063456
+275 ;;^UTILITY(U,$J,358.3,15531,0)
+276 ;;=Z86.14^^56^645^75
+277 ;;^UTILITY(U,$J,358.3,15531,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,15531,1,3,0)
+280 ;;=3^Personal Hx of MRSA Infection
+281 ;;^UTILITY(U,$J,358.3,15531,1,4,0)
+282 ;;=4^Z86.14
+283 ;;^UTILITY(U,$J,358.3,15531,2)
+284 ;;=^5063464
+285 ;;^UTILITY(U,$J,358.3,15532,0)
+286 ;;=Z86.31^^56^645^71
+287 ;;^UTILITY(U,$J,358.3,15532,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,15532,1,3,0)
+290 ;;=3^Personal Hx of Diabetic Foot Ulcer
+291 ;;^UTILITY(U,$J,358.3,15532,1,4,0)
+292 ;;=4^Z86.31
+293 ;;^UTILITY(U,$J,358.3,15532,2)
+294 ;;=^5063467
+295 ;;^UTILITY(U,$J,358.3,15533,0)
+296 ;;=Z86.711^^56^645^101
+297 ;;^UTILITY(U,$J,358.3,15533,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,15533,1,3,0)
+300 ;;=3^Personal Hx of Pulmonary Embolism
+301 ;;^UTILITY(U,$J,358.3,15533,1,4,0)
+302 ;;=4^Z86.711
+303 ;;^UTILITY(U,$J,358.3,15533,2)
+304 ;;=^5063474
+305 ;;^UTILITY(U,$J,358.3,15534,0)
+306 ;;=Z86.72^^56^645^107
+307 ;;^UTILITY(U,$J,358.3,15534,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,15534,1,3,0)
+310 ;;=3^Personal Hx of Thrombophlebitis
+311 ;;^UTILITY(U,$J,358.3,15534,1,4,0)
+312 ;;=4^Z86.72
+313 ;;^UTILITY(U,$J,358.3,15534,2)
+314 ;;=^5063476
+315 ;;^UTILITY(U,$J,358.3,15535,0)
+316 ;;=Z87.310^^56^645^99
+317 ;;^UTILITY(U,$J,358.3,15535,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,15535,1,3,0)
+320 ;;=3^Personal Hx of Osteoporosis Fx
+321 ;;^UTILITY(U,$J,358.3,15535,1,4,0)
+322 ;;=4^Z87.310
+323 ;;^UTILITY(U,$J,358.3,15535,2)
+324 ;;=^5063485
+325 ;;^UTILITY(U,$J,358.3,15536,0)
+326 ;;=Z87.442^^56^645^110
+327 ;;^UTILITY(U,$J,358.3,15536,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,15536,1,3,0)
+330 ;;=3^Personal Hx of Urinary Calculi
+331 ;;^UTILITY(U,$J,358.3,15536,1,4,0)
+332 ;;=4^Z87.442
+333 ;;^UTILITY(U,$J,358.3,15536,2)
+334 ;;=^5063497
+335 ;;^UTILITY(U,$J,358.3,15537,0)
+336 ;;=Z87.81^^56^645^108
+337 ;;^UTILITY(U,$J,358.3,15537,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,15537,1,3,0)
+340 ;;=3^Personal Hx of Traumatic Fx (Healed)
+341 ;;^UTILITY(U,$J,358.3,15537,1,4,0)
+342 ;;=4^Z87.81
+343 ;;^UTILITY(U,$J,358.3,15537,2)
+344 ;;=^5063513
+345 ;;^UTILITY(U,$J,358.3,15538,0)
+346 ;;=Z87.890^^56^645^102
+347 ;;^UTILITY(U,$J,358.3,15538,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,15538,1,3,0)
+350 ;;=3^Personal Hx of Sex Reassignment
+351 ;;^UTILITY(U,$J,358.3,15538,1,4,0)
+352 ;;=4^Z87.890
+353 ;;^UTILITY(U,$J,358.3,15538,2)
+354 ;;=^5063517
+355 ;;^UTILITY(U,$J,358.3,15539,0)
+356 ;;=Z87.892^^56^645^68
+357 ;;^UTILITY(U,$J,358.3,15539,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,15539,1,3,0)
+360 ;;=3^Personal Hx of Anaphylaxis
+361 ;;^UTILITY(U,$J,358.3,15539,1,4,0)
+362 ;;=4^Z87.892
+363 ;;^UTILITY(U,$J,358.3,15539,2)
+364 ;;=^5063519
+365 ;;^UTILITY(U,$J,358.3,15540,0)
+366 ;;=Z87.39^^56^645^96
+367 ;;^UTILITY(U,$J,358.3,15540,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,15540,1,3,0)
+370 ;;=3^Personal Hx of Musculoskeletal/Connective Tissue Disease
+371 ;;^UTILITY(U,$J,358.3,15540,1,4,0)
+372 ;;=4^Z87.39
+373 ;;^UTILITY(U,$J,358.3,15540,2)
+374 ;;=^5063488
+375 ;;^UTILITY(U,$J,358.3,15541,0)
+376 ;;=Z87.820^^56^645^105
+377 ;;^UTILITY(U,$J,358.3,15541,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,15541,1,3,0)
+380 ;;=3^Personal Hx of TBI
+381 ;;^UTILITY(U,$J,358.3,15541,1,4,0)
+382 ;;=4^Z87.820
+383 ;;^UTILITY(U,$J,358.3,15541,2)
+384 ;;=^5063514
+385 ;;^UTILITY(U,$J,358.3,15542,0)
+386 ;;=Z91.82^^56^645^95
+387 ;;^UTILITY(U,$J,358.3,15542,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,15542,1,3,0)
+390 ;;=3^Personal Hx of Military Deployment
+391 ;;^UTILITY(U,$J,358.3,15542,1,4,0)
+392 ;;=4^Z91.82
+393 ;;^UTILITY(U,$J,358.3,15542,2)
+394 ;;=^5063626
+395 ;;^UTILITY(U,$J,358.3,15543,0)
+396 ;;=Z91.030^^56^645^5
+397 ;;^UTILITY(U,$J,358.3,15543,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,15543,1,3,0)
+400 ;;=3^Bee Allergy
+401 ;;^UTILITY(U,$J,358.3,15543,1,4,0)
+402 ;;=4^Z91.030
+403 ;;^UTILITY(U,$J,358.3,15543,2)
+404 ;;=^5063605
+405 ;;^UTILITY(U,$J,358.3,15544,0)
+406 ;;=Z91.038^^56^645^52
+407 ;;^UTILITY(U,$J,358.3,15544,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,15544,1,3,0)
+410 ;;=3^Insect Allergy NEC
+411 ;;^UTILITY(U,$J,358.3,15544,1,4,0)
+412 ;;=4^Z91.038
+413 ;;^UTILITY(U,$J,358.3,15544,2)
+414 ;;=^5063606
+415 ;;^UTILITY(U,$J,358.3,15545,0)
+416 ;;=Z91.041^^56^645^145
+417 ;;^UTILITY(U,$J,358.3,15545,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,15545,1,3,0)
+420 ;;=3^Radiographic Dye Allergy
+421 ;;^UTILITY(U,$J,358.3,15545,1,4,0)
+422 ;;=4^Z91.041
+423 ;;^UTILITY(U,$J,358.3,15545,2)
+424 ;;=^5063608
+425 ;;^UTILITY(U,$J,358.3,15546,0)
+426 ;;=Z91.130^^56^645^152
+427 ;;^UTILITY(U,$J,358.3,15546,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,15546,1,3,0)
+430 ;;=3^Underdose of Med Regiment d/t Age-Related Debility
+431 ;;^UTILITY(U,$J,358.3,15546,1,4,0)
+432 ;;=4^Z91.130
+433 ;;^UTILITY(U,$J,358.3,15546,2)
+434 ;;=^5063614
+435 ;;^UTILITY(U,$J,358.3,15547,0)
+436 ;;=Z91.138^^56^645^153
+437 ;;^UTILITY(U,$J,358.3,15547,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,15547,1,3,0)
+440 ;;=3^Underdose of Med Regiment for Other Reason
+441 ;;^UTILITY(U,$J,358.3,15547,1,4,0)
+442 ;;=4^Z91.138
+443 ;;^UTILITY(U,$J,358.3,15547,2)
+444 ;;=^5063615
+445 ;;^UTILITY(U,$J,358.3,15548,0)
+446 ;;=Z91.14^^56^645^64
+447 ;;^UTILITY(U,$J,358.3,15548,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,15548,1,3,0)
+450 ;;=3^Noncompliance w/ Medication Regimen
+451 ;;^UTILITY(U,$J,358.3,15548,1,4,0)
+452 ;;=4^Z91.14
+453 ;;^UTILITY(U,$J,358.3,15548,2)
+454 ;;=^5063616
+455 ;;^UTILITY(U,$J,358.3,15549,0)
+456 ;;=Z91.19^^56^645^63
+457 ;;^UTILITY(U,$J,358.3,15549,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,15549,1,3,0)
+460 ;;=3^Noncompliance w/ Medical Treatment & Regimen
+461 ;;^UTILITY(U,$J,358.3,15549,1,4,0)
+462 ;;=4^Z91.19
+463 ;;^UTILITY(U,$J,358.3,15549,2)
+464 ;;=^5063618
+465 ;;^UTILITY(U,$J,358.3,15550,0)
+466 ;;=Z93.1^^56^645^45
+467 ;;^UTILITY(U,$J,358.3,15550,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,15550,1,3,0)
+470 ;;=3^Gastrostomy Status
+471 ;;^UTILITY(U,$J,358.3,15550,1,4,0)
+472 ;;=4^Z93.1
+473 ;;^UTILITY(U,$J,358.3,15550,2)
+474 ;;=^5063643
+475 ;;^UTILITY(U,$J,358.3,15551,0)
+476 ;;=Z93.2^^56^645^51
+477 ;;^UTILITY(U,$J,358.3,15551,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,15551,1,3,0)
+480 ;;=3^Ileostomy Status
+481 ;;^UTILITY(U,$J,358.3,15551,1,4,0)
+482 ;;=4^Z93.2
+483 ;;^UTILITY(U,$J,358.3,15551,2)
+484 ;;=^5063644
+485 ;;^UTILITY(U,$J,358.3,15552,0)
+486 ;;=Z93.3^^56^645^7
+487 ;;^UTILITY(U,$J,358.3,15552,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,15552,1,3,0)
+490 ;;=3^Colostomy Status
+491 ;;^UTILITY(U,$J,358.3,15552,1,4,0)
+492 ;;=4^Z93.3
+493 ;;^UTILITY(U,$J,358.3,15552,2)
+494 ;;=^5063645
+495 ;;^UTILITY(U,$J,358.3,15553,0)
+496 ;;=Z94.0^^56^645^56
+497 ;;^UTILITY(U,$J,358.3,15553,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,15553,1,3,0)
+500 ;;=3^Kidney Transplant Status
+501 ;;^UTILITY(U,$J,358.3,15553,1,4,0)
+502 ;;=4^Z94.0
+503 ;;^UTILITY(U,$J,358.3,15553,2)
+504 ;;=^5063654
+505 ;;^UTILITY(U,$J,358.3,15554,0)
+506 ;;=Z94.1^^56^645^49
+507 ;;^UTILITY(U,$J,358.3,15554,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,15554,1,3,0)
+510 ;;=3^Heart Transplant Status
+511 ;;^UTILITY(U,$J,358.3,15554,1,4,0)
+512 ;;=4^Z94.1
+513 ;;^UTILITY(U,$J,358.3,15554,2)
+514 ;;=^5063655
+515 ;;^UTILITY(U,$J,358.3,15555,0)
+516 ;;=Z94.2^^56^645^59
+517 ;;^UTILITY(U,$J,358.3,15555,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,15555,1,3,0)
+520 ;;=3^Lung Transplant Status
+521 ;;^UTILITY(U,$J,358.3,15555,1,4,0)
+522 ;;=4^Z94.2
+523 ;;^UTILITY(U,$J,358.3,15555,2)
+524 ;;=^5063656
+525 ;;^UTILITY(U,$J,358.3,15556,0)
+526 ;;=Z94.3^^56^645^48
+527 ;;^UTILITY(U,$J,358.3,15556,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,15556,1,3,0)
+530 ;;=3^Heart & Lungs Transplant Status
+531 ;;^UTILITY(U,$J,358.3,15556,1,4,0)
+532 ;;=4^Z94.3
+533 ;;^UTILITY(U,$J,358.3,15556,2)
+534 ;;=^5063657
+535 ;;^UTILITY(U,$J,358.3,15557,0)
+536 ;;=Z94.4^^56^645^58
+537 ;;^UTILITY(U,$J,358.3,15557,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,15557,1,3,0)
+540 ;;=3^Liver Transplant Status
+541 ;;^UTILITY(U,$J,358.3,15557,1,4,0)
+542 ;;=4^Z94.4
+543 ;;^UTILITY(U,$J,358.3,15557,2)
+544 ;;=^5063658
+545 ;;^UTILITY(U,$J,358.3,15558,0)
+546 ;;=Z94.84^^56^645^149
+547 ;;^UTILITY(U,$J,358.3,15558,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,15558,1,3,0)
+550 ;;=3^Stem Cell Transplant Status
+551 ;;^UTILITY(U,$J,358.3,15558,1,4,0)
+552 ;;=4^Z94.84
+553 ;;^UTILITY(U,$J,358.3,15558,2)
+554 ;;=^5063665
+555 ;;^UTILITY(U,$J,358.3,15559,0)
+556 ;;=Z96.21^^56^645^6
+557 ;;^UTILITY(U,$J,358.3,15559,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,15559,1,3,0)
+560 ;;=3^Cochlear Implant Status
+561 ;;^UTILITY(U,$J,358.3,15559,1,4,0)
+562 ;;=4^Z96.21
+563 ;;^UTILITY(U,$J,358.3,15559,2)
+564 ;;=^5063684
+565 ;;^UTILITY(U,$J,358.3,15560,0)
+566 ;;=Z96.41^^56^645^132
+567 ;;^UTILITY(U,$J,358.3,15560,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,15560,1,3,0)
+570 ;;=3^Presence of Insulin Pump
+571 ;;^UTILITY(U,$J,358.3,15560,1,4,0)
+572 ;;=4^Z96.41
+573 ;;^UTILITY(U,$J,358.3,15560,2)
+574 ;;=^5063688
+575 ;;^UTILITY(U,$J,358.3,15561,0)
+576 ;;=Z96.641^^56^645^140
+577 ;;^UTILITY(U,$J,358.3,15561,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,15561,1,3,0)
+580 ;;=3^Presence of Right Artificial Hip Jt
+581 ;;^UTILITY(U,$J,358.3,15561,1,4,0)
+582 ;;=4^Z96.641
+583 ;;^UTILITY(U,$J,358.3,15561,2)
+584 ;;=^5063701
+585 ;;^UTILITY(U,$J,358.3,15562,0)
+586 ;;=Z96.642^^56^645^135
+587 ;;^UTILITY(U,$J,358.3,15562,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,15562,1,3,0)
+590 ;;=3^Presence of Left Artificial Hip Jt
+591 ;;^UTILITY(U,$J,358.3,15562,1,4,0)
+592 ;;=4^Z96.642
+593 ;;^UTILITY(U,$J,358.3,15562,2)
+594 ;;=^5063702
+595 ;;^UTILITY(U,$J,358.3,15563,0)
+596 ;;=Z96.643^^56^645^119
+597 ;;^UTILITY(U,$J,358.3,15563,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,15563,1,3,0)
+600 ;;=3^Presence of Artificial Hip Jt,Bilateral
+601 ;;^UTILITY(U,$J,358.3,15563,1,4,0)
+602 ;;=4^Z96.643
+603 ;;^UTILITY(U,$J,358.3,15563,2)
+604 ;;=^5063703
+605 ;;^UTILITY(U,$J,358.3,15564,0)
+606 ;;=Z96.651^^56^645^141
+607 ;;^UTILITY(U,$J,358.3,15564,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,15564,1,3,0)
+610 ;;=3^Presence of Right Artificial Knee Jt
+611 ;;^UTILITY(U,$J,358.3,15564,1,4,0)
+612 ;;=4^Z96.651
+613 ;;^UTILITY(U,$J,358.3,15564,2)
+614 ;;=^5063705
+615 ;;^UTILITY(U,$J,358.3,15565,0)
+616 ;;=Z96.652^^56^645^136
+617 ;;^UTILITY(U,$J,358.3,15565,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,15565,1,3,0)
+620 ;;=3^Presence of Left Artificial Knee Jt
+621 ;;^UTILITY(U,$J,358.3,15565,1,4,0)
+622 ;;=4^Z96.652
+623 ;;^UTILITY(U,$J,358.3,15565,2)
+624 ;;=^5063706
+625 ;;^UTILITY(U,$J,358.3,15566,0)
+626 ;;=Z96.653^^56^645^120
+627 ;;^UTILITY(U,$J,358.3,15566,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,15566,1,3,0)
+630 ;;=3^Presence of Artificial Knee Jt,Bilateral
+631 ;;^UTILITY(U,$J,358.3,15566,1,4,0)
+632 ;;=4^Z96.653
+633 ;;^UTILITY(U,$J,358.3,15566,2)
+634 ;;=^5063707
+635 ;;^UTILITY(U,$J,358.3,15567,0)
+636 ;;=Z96.7^^56^645^125
+637 ;;^UTILITY(U,$J,358.3,15567,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,15567,1,3,0)
+640 ;;=3^Presence of Bone/Tendon Implants NEC
+641 ;;^UTILITY(U,$J,358.3,15567,1,4,0)
+642 ;;=4^Z96.7
+643 ;;^UTILITY(U,$J,358.3,15567,2)
+644 ;;=^5063716
+645 ;;^UTILITY(U,$J,358.3,15568,0)
+646 ;;=Z97.11^^56^645^139
+647 ;;^UTILITY(U,$J,358.3,15568,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,15568,1,3,0)
+650 ;;=3^Presence of Right Artificial Arm
+651 ;;^UTILITY(U,$J,358.3,15568,1,4,0)
+652 ;;=4^Z97.11
+653 ;;^UTILITY(U,$J,358.3,15568,2)
+654 ;;=^5063722
+655 ;;^UTILITY(U,$J,358.3,15569,0)
+656 ;;=Z97.12^^56^645^134
+657 ;;^UTILITY(U,$J,358.3,15569,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,15569,1,3,0)
+660 ;;=3^Presence of Left Artificial Arm
+661 ;;^UTILITY(U,$J,358.3,15569,1,4,0)
+662 ;;=4^Z97.12
+663 ;;^UTILITY(U,$J,358.3,15569,2)
+664 ;;=^5063723
+665 ;;^UTILITY(U,$J,358.3,15570,0)
+666 ;;=Z97.13^^56^645^142
+667 ;;^UTILITY(U,$J,358.3,15570,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,15570,1,3,0)
+670 ;;=3^Presence of Right Artificial Leg
+671 ;;^UTILITY(U,$J,358.3,15570,1,4,0)
+672 ;;=4^Z97.13
+673 ;;^UTILITY(U,$J,358.3,15570,2)
+674 ;;=^5063724
+675 ;;^UTILITY(U,$J,358.3,15571,0)
+676 ;;=Z97.14^^56^645^137
+677 ;;^UTILITY(U,$J,358.3,15571,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,15571,1,3,0)
+680 ;;=3^Presence of Left Artificial Leg
+681 ;;^UTILITY(U,$J,358.3,15571,1,4,0)
+682 ;;=4^Z97.14
+683 ;;^UTILITY(U,$J,358.3,15571,2)
+684 ;;=^5063725
