IBDEI0CP ; ; 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,31875,1,4,0)
;;=4^T81.31XA
;;^UTILITY(U,$J,358.3,31875,2)
;;=^5054470
;;^UTILITY(U,$J,358.3,31876,0)
;;=L26.^^97^1312^8
;;^UTILITY(U,$J,358.3,31876,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31876,1,3,0)
;;=3^Dermatitis,Exfoliative
;;^UTILITY(U,$J,358.3,31876,1,4,0)
;;=4^L26.
;;^UTILITY(U,$J,358.3,31876,2)
;;=^263886
;;^UTILITY(U,$J,358.3,31877,0)
;;=L98.1^^97^1312^9
;;^UTILITY(U,$J,358.3,31877,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31877,1,3,0)
;;=3^Dermatitis,Factitial
;;^UTILITY(U,$J,358.3,31877,1,4,0)
;;=4^L98.1
;;^UTILITY(U,$J,358.3,31877,2)
;;=^186781
;;^UTILITY(U,$J,358.3,31878,0)
;;=L30.3^^97^1312^11
;;^UTILITY(U,$J,358.3,31878,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31878,1,3,0)
;;=3^Dermatitis,Infective
;;^UTILITY(U,$J,358.3,31878,1,4,0)
;;=4^L30.3
;;^UTILITY(U,$J,358.3,31878,2)
;;=^5009156
;;^UTILITY(U,$J,358.3,31879,0)
;;=L56.2^^97^1312^27
;;^UTILITY(U,$J,358.3,31879,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31879,1,3,0)
;;=3^Dermatitis,Photocontact
;;^UTILITY(U,$J,358.3,31879,1,4,0)
;;=4^L56.2
;;^UTILITY(U,$J,358.3,31879,2)
;;=^5009216
;;^UTILITY(U,$J,358.3,31880,0)
;;=L71.0^^97^1312^26
;;^UTILITY(U,$J,358.3,31880,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31880,1,3,0)
;;=3^Dermatitis,Perioral
;;^UTILITY(U,$J,358.3,31880,1,4,0)
;;=4^L71.0
;;^UTILITY(U,$J,358.3,31880,2)
;;=^5009274
;;^UTILITY(U,$J,358.3,31881,0)
;;=L23.1^^97^1312^2
;;^UTILITY(U,$J,358.3,31881,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31881,1,3,0)
;;=3^Dermatitis,Allergic Contact d/t Adhesives
;;^UTILITY(U,$J,358.3,31881,1,4,0)
;;=4^L23.1
;;^UTILITY(U,$J,358.3,31881,2)
;;=^5009116
;;^UTILITY(U,$J,358.3,31882,0)
;;=L23.81^^97^1312^3
;;^UTILITY(U,$J,358.3,31882,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31882,1,3,0)
;;=3^Dermatitis,Allergic Contact d/t Animal Dander
;;^UTILITY(U,$J,358.3,31882,1,4,0)
;;=4^L23.81
;;^UTILITY(U,$J,358.3,31882,2)
;;=^5009123
;;^UTILITY(U,$J,358.3,31883,0)
;;=L23.0^^97^1312^5
;;^UTILITY(U,$J,358.3,31883,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31883,1,3,0)
;;=3^Dermatitis,Allergic Contact d/t Metals
;;^UTILITY(U,$J,358.3,31883,1,4,0)
;;=4^L23.0
;;^UTILITY(U,$J,358.3,31883,2)
;;=^5009115
;;^UTILITY(U,$J,358.3,31884,0)
;;=B00.1^^97^1312^10
;;^UTILITY(U,$J,358.3,31884,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31884,1,3,0)
;;=3^Dermatitis,Herpes Simplex
;;^UTILITY(U,$J,358.3,31884,1,4,0)
;;=4^B00.1
;;^UTILITY(U,$J,358.3,31884,2)
;;=^5000468
;;^UTILITY(U,$J,358.3,31885,0)
;;=L24.0^^97^1312^13
;;^UTILITY(U,$J,358.3,31885,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31885,1,3,0)
;;=3^Dermatitis,Irritant Contact d/t Detergents
;;^UTILITY(U,$J,358.3,31885,1,4,0)
;;=4^L24.0
;;^UTILITY(U,$J,358.3,31885,2)
;;=^5009126
;;^UTILITY(U,$J,358.3,31886,0)
;;=L24.81^^97^1312^14
;;^UTILITY(U,$J,358.3,31886,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31886,1,3,0)
;;=3^Dermatitis,Irritant Contact d/t Metals
;;^UTILITY(U,$J,358.3,31886,1,4,0)
;;=4^L24.81
;;^UTILITY(U,$J,358.3,31886,2)
;;=^5009134
;;^UTILITY(U,$J,358.3,31887,0)
;;=L24.2^^97^1312^15
;;^UTILITY(U,$J,358.3,31887,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31887,1,3,0)
;;=3^Dermatitis,Irritant Contact d/t Solvents
;;^UTILITY(U,$J,358.3,31887,1,4,0)
;;=4^L24.2
;;^UTILITY(U,$J,358.3,31887,2)
;;=^5009128
;;^UTILITY(U,$J,358.3,31888,0)
;;=E08.620^^97^1312^30
;;^UTILITY(U,$J,358.3,31888,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31888,1,3,0)
;;=3^Diabetes d/t Underlying Condition w/ DM Dermatitis
;;^UTILITY(U,$J,358.3,31888,1,4,0)
;;=4^E08.620
;;^UTILITY(U,$J,358.3,31888,2)
;;=^5002533
;;^UTILITY(U,$J,358.3,31889,0)
;;=E08.621^^97^1312^32
;;^UTILITY(U,$J,358.3,31889,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31889,1,3,0)
;;=3^Diabetes d/t Underlying Conditions w/ Foot Ulcer
;;^UTILITY(U,$J,358.3,31889,1,4,0)
;;=4^E08.621
;;^UTILITY(U,$J,358.3,31889,2)
;;=^5002534
;;^UTILITY(U,$J,358.3,31890,0)
;;=T81.33XA^^97^1312^36
;;^UTILITY(U,$J,358.3,31890,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31890,1,3,0)
;;=3^Disruption Traumatic Inj/Wound Repair,Init Encntr
;;^UTILITY(U,$J,358.3,31890,1,4,0)
;;=4^T81.33XA
;;^UTILITY(U,$J,358.3,31890,2)
;;=^5054476
;;^UTILITY(U,$J,358.3,31891,0)
;;=L60.3^^97^1312^40
;;^UTILITY(U,$J,358.3,31891,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31891,1,3,0)
;;=3^Dystrophic Nails
;;^UTILITY(U,$J,358.3,31891,1,4,0)
;;=4^L60.3
;;^UTILITY(U,$J,358.3,31891,2)
;;=^5009236
;;^UTILITY(U,$J,358.3,31892,0)
;;=M71.30^^97^1312^33
;;^UTILITY(U,$J,358.3,31892,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31892,1,3,0)
;;=3^Digital Mucous Cyst
;;^UTILITY(U,$J,358.3,31892,1,4,0)
;;=4^M71.30
;;^UTILITY(U,$J,358.3,31892,2)
;;=^5013149
;;^UTILITY(U,$J,358.3,31893,0)
;;=T81.33XD^^97^1312^37
;;^UTILITY(U,$J,358.3,31893,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31893,1,3,0)
;;=3^Disruption Traumatic Inj/Wound Repair,Subsq Encntr
;;^UTILITY(U,$J,358.3,31893,1,4,0)
;;=4^T81.33XD
;;^UTILITY(U,$J,358.3,31893,2)
;;=^5054477
;;^UTILITY(U,$J,358.3,31894,0)
;;=T81.31XD^^97^1312^35
;;^UTILITY(U,$J,358.3,31894,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31894,1,3,0)
;;=3^Disruption External Surgical Wound NEC,Subsq Encntr
;;^UTILITY(U,$J,358.3,31894,1,4,0)
;;=4^T81.31XD
;;^UTILITY(U,$J,358.3,31894,2)
;;=^5054471
;;^UTILITY(U,$J,358.3,31895,0)
;;=L24.A0^^97^1312^18
;;^UTILITY(U,$J,358.3,31895,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31895,1,3,0)
;;=3^Dermatitis,Irritant d/t Frxn/Contact w/ Body Fluids,Unspec
;;^UTILITY(U,$J,358.3,31895,1,4,0)
;;=4^L24.A0
;;^UTILITY(U,$J,358.3,31895,2)
;;=^5161181
;;^UTILITY(U,$J,358.3,31896,0)
;;=L24.A1^^97^1312^20
;;^UTILITY(U,$J,358.3,31896,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31896,1,3,0)
;;=3^Dermatitis,Irritant d/t Saliva
;;^UTILITY(U,$J,358.3,31896,1,4,0)
;;=4^L24.A1
;;^UTILITY(U,$J,358.3,31896,2)
;;=^5161182
;;^UTILITY(U,$J,358.3,31897,0)
;;=L24.A2^^97^1312^17
;;^UTILITY(U,$J,358.3,31897,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31897,1,3,0)
;;=3^Dermatitis,Irritant d/t Fecal/Urine or Dual Incontinence
;;^UTILITY(U,$J,358.3,31897,1,4,0)
;;=4^L24.A2
;;^UTILITY(U,$J,358.3,31897,2)
;;=^5161183
;;^UTILITY(U,$J,358.3,31898,0)
;;=L24.A9^^97^1312^19
;;^UTILITY(U,$J,358.3,31898,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31898,1,3,0)
;;=3^Dermatitis,Irritant d/t Frxn/Contact w/ Oth Body Fluids
;;^UTILITY(U,$J,358.3,31898,1,4,0)
;;=4^L24.A9
;;^UTILITY(U,$J,358.3,31898,2)
;;=^5161184
;;^UTILITY(U,$J,358.3,31899,0)
;;=L24.B0^^97^1312^24
;;^UTILITY(U,$J,358.3,31899,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31899,1,3,0)
;;=3^Dermatitis,Irritant related to Stoma/Fistula,Unspec
;;^UTILITY(U,$J,358.3,31899,1,4,0)
;;=4^L24.B0
;;^UTILITY(U,$J,358.3,31899,2)
;;=^5161185
;;^UTILITY(U,$J,358.3,31900,0)
;;=L24.B1^^97^1312^21
;;^UTILITY(U,$J,358.3,31900,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31900,1,3,0)
;;=3^Dermatitis,Irritant related to Digestive Stoma/Fistula
;;^UTILITY(U,$J,358.3,31900,1,4,0)
;;=4^L24.B1
;;^UTILITY(U,$J,358.3,31900,2)
;;=^5161186
;;^UTILITY(U,$J,358.3,31901,0)
;;=L24.B2^^97^1312^23
;;^UTILITY(U,$J,358.3,31901,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31901,1,3,0)
;;=3^Dermatitis,Irritant related to Respiratory Stoma/Fistula
;;^UTILITY(U,$J,358.3,31901,1,4,0)
;;=4^L24.B2
;;^UTILITY(U,$J,358.3,31901,2)
;;=^5161187
;;^UTILITY(U,$J,358.3,31902,0)
;;=L24.B3^^97^1312^22
;;^UTILITY(U,$J,358.3,31902,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31902,1,3,0)
;;=3^Dermatitis,Irritant related to Fecal/Urinary Stoma/Fistula
;;^UTILITY(U,$J,358.3,31902,1,4,0)
;;=4^L24.B3
;;^UTILITY(U,$J,358.3,31902,2)
;;=^5161188
;;^UTILITY(U,$J,358.3,31903,0)
;;=L30.4^^97^1313^10
;;^UTILITY(U,$J,358.3,31903,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31903,1,3,0)
;;=3^Erythema Intertrigo
;;^UTILITY(U,$J,358.3,31903,1,4,0)
;;=4^L30.4
;;^UTILITY(U,$J,358.3,31903,2)
;;=^5009157
;;^UTILITY(U,$J,358.3,31904,0)
;;=R60.0^^97^1313^6
;;^UTILITY(U,$J,358.3,31904,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31904,1,3,0)
;;=3^Edema,Localized
;;^UTILITY(U,$J,358.3,31904,1,4,0)
;;=4^R60.0
;;^UTILITY(U,$J,358.3,31904,2)
;;=^5019532
;;^UTILITY(U,$J,358.3,31905,0)
;;=L53.0^^97^1313^14
;;^UTILITY(U,$J,358.3,31905,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31905,1,3,0)
;;=3^Erythema Toxic
;;^UTILITY(U,$J,358.3,31905,1,4,0)
;;=4^L53.0
;;^UTILITY(U,$J,358.3,31905,2)
;;=^5009207
;;^UTILITY(U,$J,358.3,31906,0)
;;=L53.1^^97^1313^9
;;^UTILITY(U,$J,358.3,31906,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31906,1,3,0)
;;=3^Erythema Annulare Centrifugum
;;^UTILITY(U,$J,358.3,31906,1,4,0)
;;=4^L53.1
;;^UTILITY(U,$J,358.3,31906,2)
;;=^5009208
;;^UTILITY(U,$J,358.3,31907,0)
;;=L51.9^^97^1313^12
;;^UTILITY(U,$J,358.3,31907,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31907,1,3,0)
;;=3^Erythema Multiforme,Unspec
;;^UTILITY(U,$J,358.3,31907,1,4,0)
;;=4^L51.9
;;^UTILITY(U,$J,358.3,31907,2)
;;=^336759
;;^UTILITY(U,$J,358.3,31908,0)
;;=L12.35^^97^1313^8
;;^UTILITY(U,$J,358.3,31908,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31908,1,3,0)
;;=3^Epidermolysis Bullosa,Acquired
;;^UTILITY(U,$J,358.3,31908,1,4,0)
;;=4^L12.35
;;^UTILITY(U,$J,358.3,31908,2)
;;=^5009100
;;^UTILITY(U,$J,358.3,31909,0)
;;=L52.^^97^1313^13
;;^UTILITY(U,$J,358.3,31909,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31909,1,3,0)
;;=3^Erythema Nodosum
;;^UTILITY(U,$J,358.3,31909,1,4,0)
;;=4^L52.
;;^UTILITY(U,$J,358.3,31909,2)
;;=^42065
;;^UTILITY(U,$J,358.3,31910,0)
;;=L49.0^^97^1313^26
;;^UTILITY(U,$J,358.3,31910,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31910,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ < 10% Body Surface
;;^UTILITY(U,$J,358.3,31910,1,4,0)
;;=4^L49.0
;;^UTILITY(U,$J,358.3,31910,2)
;;=^5009190
;;^UTILITY(U,$J,358.3,31911,0)
;;=L49.1^^97^1313^17
;;^UTILITY(U,$J,358.3,31911,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31911,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 10-19% Body Surface
;;^UTILITY(U,$J,358.3,31911,1,4,0)
;;=4^L49.1
;;^UTILITY(U,$J,358.3,31911,2)
;;=^5009191
;;^UTILITY(U,$J,358.3,31912,0)
;;=L49.2^^97^1313^18
;;^UTILITY(U,$J,358.3,31912,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31912,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 20-29% Body Surface
;;^UTILITY(U,$J,358.3,31912,1,4,0)
;;=4^L49.2
;;^UTILITY(U,$J,358.3,31912,2)
;;=^5009192
;;^UTILITY(U,$J,358.3,31913,0)
;;=L49.3^^97^1313^19
;;^UTILITY(U,$J,358.3,31913,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31913,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 30-39% Body Surface
;;^UTILITY(U,$J,358.3,31913,1,4,0)
;;=4^L49.3
;;^UTILITY(U,$J,358.3,31913,2)
;;=^5009193
;;^UTILITY(U,$J,358.3,31914,0)
;;=L49.4^^97^1313^20
;;^UTILITY(U,$J,358.3,31914,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31914,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 40-49% Body Surface
;;^UTILITY(U,$J,358.3,31914,1,4,0)
;;=4^L49.4
;;^UTILITY(U,$J,358.3,31914,2)
;;=^5009194
;;^UTILITY(U,$J,358.3,31915,0)
;;=L49.5^^97^1313^21
;;^UTILITY(U,$J,358.3,31915,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31915,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 50-59% Body Surface
;;^UTILITY(U,$J,358.3,31915,1,4,0)
;;=4^L49.5
;;^UTILITY(U,$J,358.3,31915,2)
;;=^5009195
;;^UTILITY(U,$J,358.3,31916,0)
;;=L49.6^^97^1313^22
;;^UTILITY(U,$J,358.3,31916,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31916,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 60-69% Body Surface
;;^UTILITY(U,$J,358.3,31916,1,4,0)
;;=4^L49.6
;;^UTILITY(U,$J,358.3,31916,2)
;;=^5009196
;;^UTILITY(U,$J,358.3,31917,0)
;;=L49.7^^97^1313^23
;;^UTILITY(U,$J,358.3,31917,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31917,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 70-79% Body Surface
;;^UTILITY(U,$J,358.3,31917,1,4,0)
;;=4^L49.7
;;^UTILITY(U,$J,358.3,31917,2)
;;=^5009197
;;^UTILITY(U,$J,358.3,31918,0)
;;=L49.8^^97^1313^24
;;^UTILITY(U,$J,358.3,31918,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31918,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 80-89% Body Surface
;;^UTILITY(U,$J,358.3,31918,1,4,0)
;;=4^L49.8
;;^UTILITY(U,$J,358.3,31918,2)
;;=^5009198
;;^UTILITY(U,$J,358.3,31919,0)
;;=L49.9^^97^1313^27
;;^UTILITY(U,$J,358.3,31919,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31919,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ > 89% Body Surface
;;^UTILITY(U,$J,358.3,31919,1,4,0)
;;=4^L49.9
;;^UTILITY(U,$J,358.3,31919,2)
;;=^5009199
;;^UTILITY(U,$J,358.3,31920,0)
;;=Z65.5^^97^1313^28
;;^UTILITY(U,$J,358.3,31920,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31920,1,3,0)
;;=3^Exposure to Disaster/War/Hostilities
;;^UTILITY(U,$J,358.3,31920,1,4,0)
;;=4^Z65.5
;;^UTILITY(U,$J,358.3,31920,2)
;;=^5063184
;;^UTILITY(U,$J,358.3,31921,0)
;;=Z77.22^^97^1313^29
;;^UTILITY(U,$J,358.3,31921,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31921,1,3,0)
;;=3^Exposure to/Contact w/ Environmental Tobacco Smoke
;;^UTILITY(U,$J,358.3,31921,1,4,0)
;;=4^Z77.22
;;^UTILITY(U,$J,358.3,31921,2)
;;=^5063324
;;^UTILITY(U,$J,358.3,31922,0)
;;=L30.9^^97^1313^5
;;^UTILITY(U,$J,358.3,31922,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31922,1,3,0)
;;=3^Eczema,Unspec
;;^UTILITY(U,$J,358.3,31922,1,4,0)
;;=4^L30.9
;;^UTILITY(U,$J,358.3,31922,2)
;;=^5009159
;;^UTILITY(U,$J,358.3,31923,0)
;;=L23.9^^97^1313^2
;;^UTILITY(U,$J,358.3,31923,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31923,1,3,0)
;;=3^Eczema,Allergic Contact,Unspec
;;^UTILITY(U,$J,358.3,31923,1,4,0)
;;=4^L23.9
;;^UTILITY(U,$J,358.3,31923,2)
;;=^5009125
;;^UTILITY(U,$J,358.3,31924,0)
;;=L20.82^^97^1313^3
;;^UTILITY(U,$J,358.3,31924,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31924,1,3,0)
;;=3^Eczema,Flexural
;;^UTILITY(U,$J,358.3,31924,1,4,0)
;;=4^L20.82
;;^UTILITY(U,$J,358.3,31924,2)
;;=^5009109
;;^UTILITY(U,$J,358.3,31925,0)
;;=L20.84^^97^1313^4
;;^UTILITY(U,$J,358.3,31925,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31925,1,3,0)
;;=3^Eczema,Intrinsic
;;^UTILITY(U,$J,358.3,31925,1,4,0)
;;=4^L20.84
;;^UTILITY(U,$J,358.3,31925,2)
;;=^5009111
;;^UTILITY(U,$J,358.3,31926,0)
;;=L51.8^^97^1313^11
;;^UTILITY(U,$J,358.3,31926,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31926,1,3,0)
;;=3^Erythema Multiforme,Other
;;^UTILITY(U,$J,358.3,31926,1,4,0)
;;=4^L51.8
;;^UTILITY(U,$J,358.3,31926,2)
;;=^336639
;;^UTILITY(U,$J,358.3,31927,0)
;;=R23.4^^97^1313^15
;;^UTILITY(U,$J,358.3,31927,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31927,1,3,0)
;;=3^Eschar/Desquamination of Skin
;;^UTILITY(U,$J,358.3,31927,1,4,0)
;;=4^R23.4
;;^UTILITY(U,$J,358.3,31927,2)
;;=^5019296
;;^UTILITY(U,$J,358.3,31928,0)
;;=L49.9^^97^1313^25
;;^UTILITY(U,$J,358.3,31928,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31928,1,3,0)
;;=3^Exfoliation d/t Erythematous Cond w/ 90% or More Body Surface
;;^UTILITY(U,$J,358.3,31928,1,4,0)
;;=4^L49.9
;;^UTILITY(U,$J,358.3,31928,2)
;;=^5009199
;;^UTILITY(U,$J,358.3,31929,0)
;;=L74.9^^97^1313^1
;;^UTILITY(U,$J,358.3,31929,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31929,1,3,0)
;;=3^Eccrine Sweat Disorder,Unspec
;;^UTILITY(U,$J,358.3,31929,1,4,0)
;;=4^L74.9
;;^UTILITY(U,$J,358.3,31929,2)
;;=^5009296
;;^UTILITY(U,$J,358.3,31930,0)
;;=L98.7^^97^1313^16
;;^UTILITY(U,$J,358.3,31930,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31930,1,3,0)
;;=3^Excessive/Redundant Skin/Subq Tissue
;;^UTILITY(U,$J,358.3,31930,1,4,0)
;;=4^L98.7
;;^UTILITY(U,$J,358.3,31930,2)
;;=^5138778
;;^UTILITY(U,$J,358.3,31931,0)
;;=L72.0^^97^1313^7
;;^UTILITY(U,$J,358.3,31931,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31931,1,3,0)
;;=3^Epidermal/Epidermoid Cyst
;;^UTILITY(U,$J,358.3,31931,1,4,0)
;;=4^L72.0
;;^UTILITY(U,$J,358.3,31931,2)
;;=^5009277
;;^UTILITY(U,$J,358.3,31932,0)
;;=L92.3^^97^1314^1
;;^UTILITY(U,$J,358.3,31932,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31932,1,3,0)
;;=3^FB Granuloma Skin/Subcutaneous Tissue
;;^UTILITY(U,$J,358.3,31932,1,4,0)
;;=4^L92.3
;;^UTILITY(U,$J,358.3,31932,2)
;;=^5009464
;;^UTILITY(U,$J,358.3,31933,0)
;;=L66.2^^97^1314^5
;;^UTILITY(U,$J,358.3,31933,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31933,1,3,0)
;;=3^Folliculitis Decalvans
;;^UTILITY(U,$J,358.3,31933,1,4,0)
;;=4^L66.2
;;^UTILITY(U,$J,358.3,31933,2)
;;=^5009254
;;^UTILITY(U,$J,358.3,31934,0)
;;=L02.221^^97^1314^6
;;^UTILITY(U,$J,358.3,31934,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31934,1,3,0)
;;=3^Furuncle,Abdominal Wall
;;^UTILITY(U,$J,358.3,31934,1,4,0)
;;=4^L02.221
;;^UTILITY(U,$J,358.3,31934,2)
;;=^5008957
;;^UTILITY(U,$J,358.3,31935,0)
;;=L02.222^^97^1314^7
;;^UTILITY(U,$J,358.3,31935,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31935,1,3,0)
;;=3^Furuncle,Back
;;^UTILITY(U,$J,358.3,31935,1,4,0)
;;=4^L02.222
;;^UTILITY(U,$J,358.3,31935,2)
;;=^5008958
;;^UTILITY(U,$J,358.3,31936,0)
;;=L02.223^^97^1314^8
;;^UTILITY(U,$J,358.3,31936,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31936,1,3,0)
;;=3^Furuncle,Chest Wall
;;^UTILITY(U,$J,358.3,31936,1,4,0)
;;=4^L02.223
;;^UTILITY(U,$J,358.3,31936,2)
;;=^5008959
;;^UTILITY(U,$J,358.3,31937,0)
;;=L02.224^^97^1314^9
;;^UTILITY(U,$J,358.3,31937,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31937,1,3,0)
;;=3^Furuncle,Groin
;;^UTILITY(U,$J,358.3,31937,1,4,0)
;;=4^L02.224
;;^UTILITY(U,$J,358.3,31937,2)
;;=^5008960
;;^UTILITY(U,$J,358.3,31938,0)
;;=L02.422^^97^1314^10
;;^UTILITY(U,$J,358.3,31938,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31938,1,3,0)
;;=3^Furuncle,Left Axilla
;;^UTILITY(U,$J,358.3,31938,1,4,0)
;;=4^L02.422
;;^UTILITY(U,$J,358.3,31938,2)
;;=^5008981
;;^UTILITY(U,$J,358.3,31939,0)
;;=L02.421^^97^1314^13
;;^UTILITY(U,$J,358.3,31939,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31939,1,3,0)
;;=3^Furuncle,Right Axilla
;;^UTILITY(U,$J,358.3,31939,1,4,0)
;;=4^L02.421
;;^UTILITY(U,$J,358.3,31939,2)
;;=^5008980
;;^UTILITY(U,$J,358.3,31940,0)
;;=L02.426^^97^1314^11
;;^UTILITY(U,$J,358.3,31940,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31940,1,3,0)
;;=3^Furuncle,Left Lower Limb
;;^UTILITY(U,$J,358.3,31940,1,4,0)
;;=4^L02.426
;;^UTILITY(U,$J,358.3,31940,2)
;;=^5133643
;;^UTILITY(U,$J,358.3,31941,0)
;;=L02.425^^97^1314^14
;;^UTILITY(U,$J,358.3,31941,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31941,1,3,0)
;;=3^Furuncle,Right Lower Limb
;;^UTILITY(U,$J,358.3,31941,1,4,0)
;;=4^L02.425
;;^UTILITY(U,$J,358.3,31941,2)
;;=^5008984
;;^UTILITY(U,$J,358.3,31942,0)
;;=L02.424^^97^1314^12
;;^UTILITY(U,$J,358.3,31942,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31942,1,3,0)
;;=3^Furuncle,Left Upper Limb
;;^UTILITY(U,$J,358.3,31942,1,4,0)
;;=4^L02.424
;;^UTILITY(U,$J,358.3,31942,2)
;;=^5008983
;;^UTILITY(U,$J,358.3,31943,0)
;;=L02.423^^97^1314^15
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CP 19748 printed Sep 23, 2025@19:22:04 Page 2
IBDEI0CP ; ; 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,31875,1,4,0)
+2 ;;=4^T81.31XA
+3 ;;^UTILITY(U,$J,358.3,31875,2)
+4 ;;=^5054470
+5 ;;^UTILITY(U,$J,358.3,31876,0)
+6 ;;=L26.^^97^1312^8
+7 ;;^UTILITY(U,$J,358.3,31876,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,31876,1,3,0)
+10 ;;=3^Dermatitis,Exfoliative
+11 ;;^UTILITY(U,$J,358.3,31876,1,4,0)
+12 ;;=4^L26.
+13 ;;^UTILITY(U,$J,358.3,31876,2)
+14 ;;=^263886
+15 ;;^UTILITY(U,$J,358.3,31877,0)
+16 ;;=L98.1^^97^1312^9
+17 ;;^UTILITY(U,$J,358.3,31877,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,31877,1,3,0)
+20 ;;=3^Dermatitis,Factitial
+21 ;;^UTILITY(U,$J,358.3,31877,1,4,0)
+22 ;;=4^L98.1
+23 ;;^UTILITY(U,$J,358.3,31877,2)
+24 ;;=^186781
+25 ;;^UTILITY(U,$J,358.3,31878,0)
+26 ;;=L30.3^^97^1312^11
+27 ;;^UTILITY(U,$J,358.3,31878,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,31878,1,3,0)
+30 ;;=3^Dermatitis,Infective
+31 ;;^UTILITY(U,$J,358.3,31878,1,4,0)
+32 ;;=4^L30.3
+33 ;;^UTILITY(U,$J,358.3,31878,2)
+34 ;;=^5009156
+35 ;;^UTILITY(U,$J,358.3,31879,0)
+36 ;;=L56.2^^97^1312^27
+37 ;;^UTILITY(U,$J,358.3,31879,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,31879,1,3,0)
+40 ;;=3^Dermatitis,Photocontact
+41 ;;^UTILITY(U,$J,358.3,31879,1,4,0)
+42 ;;=4^L56.2
+43 ;;^UTILITY(U,$J,358.3,31879,2)
+44 ;;=^5009216
+45 ;;^UTILITY(U,$J,358.3,31880,0)
+46 ;;=L71.0^^97^1312^26
+47 ;;^UTILITY(U,$J,358.3,31880,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,31880,1,3,0)
+50 ;;=3^Dermatitis,Perioral
+51 ;;^UTILITY(U,$J,358.3,31880,1,4,0)
+52 ;;=4^L71.0
+53 ;;^UTILITY(U,$J,358.3,31880,2)
+54 ;;=^5009274
+55 ;;^UTILITY(U,$J,358.3,31881,0)
+56 ;;=L23.1^^97^1312^2
+57 ;;^UTILITY(U,$J,358.3,31881,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,31881,1,3,0)
+60 ;;=3^Dermatitis,Allergic Contact d/t Adhesives
+61 ;;^UTILITY(U,$J,358.3,31881,1,4,0)
+62 ;;=4^L23.1
+63 ;;^UTILITY(U,$J,358.3,31881,2)
+64 ;;=^5009116
+65 ;;^UTILITY(U,$J,358.3,31882,0)
+66 ;;=L23.81^^97^1312^3
+67 ;;^UTILITY(U,$J,358.3,31882,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,31882,1,3,0)
+70 ;;=3^Dermatitis,Allergic Contact d/t Animal Dander
+71 ;;^UTILITY(U,$J,358.3,31882,1,4,0)
+72 ;;=4^L23.81
+73 ;;^UTILITY(U,$J,358.3,31882,2)
+74 ;;=^5009123
+75 ;;^UTILITY(U,$J,358.3,31883,0)
+76 ;;=L23.0^^97^1312^5
+77 ;;^UTILITY(U,$J,358.3,31883,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,31883,1,3,0)
+80 ;;=3^Dermatitis,Allergic Contact d/t Metals
+81 ;;^UTILITY(U,$J,358.3,31883,1,4,0)
+82 ;;=4^L23.0
+83 ;;^UTILITY(U,$J,358.3,31883,2)
+84 ;;=^5009115
+85 ;;^UTILITY(U,$J,358.3,31884,0)
+86 ;;=B00.1^^97^1312^10
+87 ;;^UTILITY(U,$J,358.3,31884,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,31884,1,3,0)
+90 ;;=3^Dermatitis,Herpes Simplex
+91 ;;^UTILITY(U,$J,358.3,31884,1,4,0)
+92 ;;=4^B00.1
+93 ;;^UTILITY(U,$J,358.3,31884,2)
+94 ;;=^5000468
+95 ;;^UTILITY(U,$J,358.3,31885,0)
+96 ;;=L24.0^^97^1312^13
+97 ;;^UTILITY(U,$J,358.3,31885,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,31885,1,3,0)
+100 ;;=3^Dermatitis,Irritant Contact d/t Detergents
+101 ;;^UTILITY(U,$J,358.3,31885,1,4,0)
+102 ;;=4^L24.0
+103 ;;^UTILITY(U,$J,358.3,31885,2)
+104 ;;=^5009126
+105 ;;^UTILITY(U,$J,358.3,31886,0)
+106 ;;=L24.81^^97^1312^14
+107 ;;^UTILITY(U,$J,358.3,31886,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,31886,1,3,0)
+110 ;;=3^Dermatitis,Irritant Contact d/t Metals
+111 ;;^UTILITY(U,$J,358.3,31886,1,4,0)
+112 ;;=4^L24.81
+113 ;;^UTILITY(U,$J,358.3,31886,2)
+114 ;;=^5009134
+115 ;;^UTILITY(U,$J,358.3,31887,0)
+116 ;;=L24.2^^97^1312^15
+117 ;;^UTILITY(U,$J,358.3,31887,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,31887,1,3,0)
+120 ;;=3^Dermatitis,Irritant Contact d/t Solvents
+121 ;;^UTILITY(U,$J,358.3,31887,1,4,0)
+122 ;;=4^L24.2
+123 ;;^UTILITY(U,$J,358.3,31887,2)
+124 ;;=^5009128
+125 ;;^UTILITY(U,$J,358.3,31888,0)
+126 ;;=E08.620^^97^1312^30
+127 ;;^UTILITY(U,$J,358.3,31888,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,31888,1,3,0)
+130 ;;=3^Diabetes d/t Underlying Condition w/ DM Dermatitis
+131 ;;^UTILITY(U,$J,358.3,31888,1,4,0)
+132 ;;=4^E08.620
+133 ;;^UTILITY(U,$J,358.3,31888,2)
+134 ;;=^5002533
+135 ;;^UTILITY(U,$J,358.3,31889,0)
+136 ;;=E08.621^^97^1312^32
+137 ;;^UTILITY(U,$J,358.3,31889,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,31889,1,3,0)
+140 ;;=3^Diabetes d/t Underlying Conditions w/ Foot Ulcer
+141 ;;^UTILITY(U,$J,358.3,31889,1,4,0)
+142 ;;=4^E08.621
+143 ;;^UTILITY(U,$J,358.3,31889,2)
+144 ;;=^5002534
+145 ;;^UTILITY(U,$J,358.3,31890,0)
+146 ;;=T81.33XA^^97^1312^36
+147 ;;^UTILITY(U,$J,358.3,31890,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,31890,1,3,0)
+150 ;;=3^Disruption Traumatic Inj/Wound Repair,Init Encntr
+151 ;;^UTILITY(U,$J,358.3,31890,1,4,0)
+152 ;;=4^T81.33XA
+153 ;;^UTILITY(U,$J,358.3,31890,2)
+154 ;;=^5054476
+155 ;;^UTILITY(U,$J,358.3,31891,0)
+156 ;;=L60.3^^97^1312^40
+157 ;;^UTILITY(U,$J,358.3,31891,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,31891,1,3,0)
+160 ;;=3^Dystrophic Nails
+161 ;;^UTILITY(U,$J,358.3,31891,1,4,0)
+162 ;;=4^L60.3
+163 ;;^UTILITY(U,$J,358.3,31891,2)
+164 ;;=^5009236
+165 ;;^UTILITY(U,$J,358.3,31892,0)
+166 ;;=M71.30^^97^1312^33
+167 ;;^UTILITY(U,$J,358.3,31892,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,31892,1,3,0)
+170 ;;=3^Digital Mucous Cyst
+171 ;;^UTILITY(U,$J,358.3,31892,1,4,0)
+172 ;;=4^M71.30
+173 ;;^UTILITY(U,$J,358.3,31892,2)
+174 ;;=^5013149
+175 ;;^UTILITY(U,$J,358.3,31893,0)
+176 ;;=T81.33XD^^97^1312^37
+177 ;;^UTILITY(U,$J,358.3,31893,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,31893,1,3,0)
+180 ;;=3^Disruption Traumatic Inj/Wound Repair,Subsq Encntr
+181 ;;^UTILITY(U,$J,358.3,31893,1,4,0)
+182 ;;=4^T81.33XD
+183 ;;^UTILITY(U,$J,358.3,31893,2)
+184 ;;=^5054477
+185 ;;^UTILITY(U,$J,358.3,31894,0)
+186 ;;=T81.31XD^^97^1312^35
+187 ;;^UTILITY(U,$J,358.3,31894,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,31894,1,3,0)
+190 ;;=3^Disruption External Surgical Wound NEC,Subsq Encntr
+191 ;;^UTILITY(U,$J,358.3,31894,1,4,0)
+192 ;;=4^T81.31XD
+193 ;;^UTILITY(U,$J,358.3,31894,2)
+194 ;;=^5054471
+195 ;;^UTILITY(U,$J,358.3,31895,0)
+196 ;;=L24.A0^^97^1312^18
+197 ;;^UTILITY(U,$J,358.3,31895,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,31895,1,3,0)
+200 ;;=3^Dermatitis,Irritant d/t Frxn/Contact w/ Body Fluids,Unspec
+201 ;;^UTILITY(U,$J,358.3,31895,1,4,0)
+202 ;;=4^L24.A0
+203 ;;^UTILITY(U,$J,358.3,31895,2)
+204 ;;=^5161181
+205 ;;^UTILITY(U,$J,358.3,31896,0)
+206 ;;=L24.A1^^97^1312^20
+207 ;;^UTILITY(U,$J,358.3,31896,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,31896,1,3,0)
+210 ;;=3^Dermatitis,Irritant d/t Saliva
+211 ;;^UTILITY(U,$J,358.3,31896,1,4,0)
+212 ;;=4^L24.A1
+213 ;;^UTILITY(U,$J,358.3,31896,2)
+214 ;;=^5161182
+215 ;;^UTILITY(U,$J,358.3,31897,0)
+216 ;;=L24.A2^^97^1312^17
+217 ;;^UTILITY(U,$J,358.3,31897,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,31897,1,3,0)
+220 ;;=3^Dermatitis,Irritant d/t Fecal/Urine or Dual Incontinence
+221 ;;^UTILITY(U,$J,358.3,31897,1,4,0)
+222 ;;=4^L24.A2
+223 ;;^UTILITY(U,$J,358.3,31897,2)
+224 ;;=^5161183
+225 ;;^UTILITY(U,$J,358.3,31898,0)
+226 ;;=L24.A9^^97^1312^19
+227 ;;^UTILITY(U,$J,358.3,31898,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,31898,1,3,0)
+230 ;;=3^Dermatitis,Irritant d/t Frxn/Contact w/ Oth Body Fluids
+231 ;;^UTILITY(U,$J,358.3,31898,1,4,0)
+232 ;;=4^L24.A9
+233 ;;^UTILITY(U,$J,358.3,31898,2)
+234 ;;=^5161184
+235 ;;^UTILITY(U,$J,358.3,31899,0)
+236 ;;=L24.B0^^97^1312^24
+237 ;;^UTILITY(U,$J,358.3,31899,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,31899,1,3,0)
+240 ;;=3^Dermatitis,Irritant related to Stoma/Fistula,Unspec
+241 ;;^UTILITY(U,$J,358.3,31899,1,4,0)
+242 ;;=4^L24.B0
+243 ;;^UTILITY(U,$J,358.3,31899,2)
+244 ;;=^5161185
+245 ;;^UTILITY(U,$J,358.3,31900,0)
+246 ;;=L24.B1^^97^1312^21
+247 ;;^UTILITY(U,$J,358.3,31900,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,31900,1,3,0)
+250 ;;=3^Dermatitis,Irritant related to Digestive Stoma/Fistula
+251 ;;^UTILITY(U,$J,358.3,31900,1,4,0)
+252 ;;=4^L24.B1
+253 ;;^UTILITY(U,$J,358.3,31900,2)
+254 ;;=^5161186
+255 ;;^UTILITY(U,$J,358.3,31901,0)
+256 ;;=L24.B2^^97^1312^23
+257 ;;^UTILITY(U,$J,358.3,31901,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,31901,1,3,0)
+260 ;;=3^Dermatitis,Irritant related to Respiratory Stoma/Fistula
+261 ;;^UTILITY(U,$J,358.3,31901,1,4,0)
+262 ;;=4^L24.B2
+263 ;;^UTILITY(U,$J,358.3,31901,2)
+264 ;;=^5161187
+265 ;;^UTILITY(U,$J,358.3,31902,0)
+266 ;;=L24.B3^^97^1312^22
+267 ;;^UTILITY(U,$J,358.3,31902,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,31902,1,3,0)
+270 ;;=3^Dermatitis,Irritant related to Fecal/Urinary Stoma/Fistula
+271 ;;^UTILITY(U,$J,358.3,31902,1,4,0)
+272 ;;=4^L24.B3
+273 ;;^UTILITY(U,$J,358.3,31902,2)
+274 ;;=^5161188
+275 ;;^UTILITY(U,$J,358.3,31903,0)
+276 ;;=L30.4^^97^1313^10
+277 ;;^UTILITY(U,$J,358.3,31903,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,31903,1,3,0)
+280 ;;=3^Erythema Intertrigo
+281 ;;^UTILITY(U,$J,358.3,31903,1,4,0)
+282 ;;=4^L30.4
+283 ;;^UTILITY(U,$J,358.3,31903,2)
+284 ;;=^5009157
+285 ;;^UTILITY(U,$J,358.3,31904,0)
+286 ;;=R60.0^^97^1313^6
+287 ;;^UTILITY(U,$J,358.3,31904,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,31904,1,3,0)
+290 ;;=3^Edema,Localized
+291 ;;^UTILITY(U,$J,358.3,31904,1,4,0)
+292 ;;=4^R60.0
+293 ;;^UTILITY(U,$J,358.3,31904,2)
+294 ;;=^5019532
+295 ;;^UTILITY(U,$J,358.3,31905,0)
+296 ;;=L53.0^^97^1313^14
+297 ;;^UTILITY(U,$J,358.3,31905,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,31905,1,3,0)
+300 ;;=3^Erythema Toxic
+301 ;;^UTILITY(U,$J,358.3,31905,1,4,0)
+302 ;;=4^L53.0
+303 ;;^UTILITY(U,$J,358.3,31905,2)
+304 ;;=^5009207
+305 ;;^UTILITY(U,$J,358.3,31906,0)
+306 ;;=L53.1^^97^1313^9
+307 ;;^UTILITY(U,$J,358.3,31906,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,31906,1,3,0)
+310 ;;=3^Erythema Annulare Centrifugum
+311 ;;^UTILITY(U,$J,358.3,31906,1,4,0)
+312 ;;=4^L53.1
+313 ;;^UTILITY(U,$J,358.3,31906,2)
+314 ;;=^5009208
+315 ;;^UTILITY(U,$J,358.3,31907,0)
+316 ;;=L51.9^^97^1313^12
+317 ;;^UTILITY(U,$J,358.3,31907,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,31907,1,3,0)
+320 ;;=3^Erythema Multiforme,Unspec
+321 ;;^UTILITY(U,$J,358.3,31907,1,4,0)
+322 ;;=4^L51.9
+323 ;;^UTILITY(U,$J,358.3,31907,2)
+324 ;;=^336759
+325 ;;^UTILITY(U,$J,358.3,31908,0)
+326 ;;=L12.35^^97^1313^8
+327 ;;^UTILITY(U,$J,358.3,31908,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,31908,1,3,0)
+330 ;;=3^Epidermolysis Bullosa,Acquired
+331 ;;^UTILITY(U,$J,358.3,31908,1,4,0)
+332 ;;=4^L12.35
+333 ;;^UTILITY(U,$J,358.3,31908,2)
+334 ;;=^5009100
+335 ;;^UTILITY(U,$J,358.3,31909,0)
+336 ;;=L52.^^97^1313^13
+337 ;;^UTILITY(U,$J,358.3,31909,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,31909,1,3,0)
+340 ;;=3^Erythema Nodosum
+341 ;;^UTILITY(U,$J,358.3,31909,1,4,0)
+342 ;;=4^L52.
+343 ;;^UTILITY(U,$J,358.3,31909,2)
+344 ;;=^42065
+345 ;;^UTILITY(U,$J,358.3,31910,0)
+346 ;;=L49.0^^97^1313^26
+347 ;;^UTILITY(U,$J,358.3,31910,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,31910,1,3,0)
+350 ;;=3^Exfoliation d/t Erythematous Cond w/ < 10% Body Surface
+351 ;;^UTILITY(U,$J,358.3,31910,1,4,0)
+352 ;;=4^L49.0
+353 ;;^UTILITY(U,$J,358.3,31910,2)
+354 ;;=^5009190
+355 ;;^UTILITY(U,$J,358.3,31911,0)
+356 ;;=L49.1^^97^1313^17
+357 ;;^UTILITY(U,$J,358.3,31911,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,31911,1,3,0)
+360 ;;=3^Exfoliation d/t Erythematous Cond w/ 10-19% Body Surface
+361 ;;^UTILITY(U,$J,358.3,31911,1,4,0)
+362 ;;=4^L49.1
+363 ;;^UTILITY(U,$J,358.3,31911,2)
+364 ;;=^5009191
+365 ;;^UTILITY(U,$J,358.3,31912,0)
+366 ;;=L49.2^^97^1313^18
+367 ;;^UTILITY(U,$J,358.3,31912,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,31912,1,3,0)
+370 ;;=3^Exfoliation d/t Erythematous Cond w/ 20-29% Body Surface
+371 ;;^UTILITY(U,$J,358.3,31912,1,4,0)
+372 ;;=4^L49.2
+373 ;;^UTILITY(U,$J,358.3,31912,2)
+374 ;;=^5009192
+375 ;;^UTILITY(U,$J,358.3,31913,0)
+376 ;;=L49.3^^97^1313^19
+377 ;;^UTILITY(U,$J,358.3,31913,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,31913,1,3,0)
+380 ;;=3^Exfoliation d/t Erythematous Cond w/ 30-39% Body Surface
+381 ;;^UTILITY(U,$J,358.3,31913,1,4,0)
+382 ;;=4^L49.3
+383 ;;^UTILITY(U,$J,358.3,31913,2)
+384 ;;=^5009193
+385 ;;^UTILITY(U,$J,358.3,31914,0)
+386 ;;=L49.4^^97^1313^20
+387 ;;^UTILITY(U,$J,358.3,31914,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,31914,1,3,0)
+390 ;;=3^Exfoliation d/t Erythematous Cond w/ 40-49% Body Surface
+391 ;;^UTILITY(U,$J,358.3,31914,1,4,0)
+392 ;;=4^L49.4
+393 ;;^UTILITY(U,$J,358.3,31914,2)
+394 ;;=^5009194
+395 ;;^UTILITY(U,$J,358.3,31915,0)
+396 ;;=L49.5^^97^1313^21
+397 ;;^UTILITY(U,$J,358.3,31915,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,31915,1,3,0)
+400 ;;=3^Exfoliation d/t Erythematous Cond w/ 50-59% Body Surface
+401 ;;^UTILITY(U,$J,358.3,31915,1,4,0)
+402 ;;=4^L49.5
+403 ;;^UTILITY(U,$J,358.3,31915,2)
+404 ;;=^5009195
+405 ;;^UTILITY(U,$J,358.3,31916,0)
+406 ;;=L49.6^^97^1313^22
+407 ;;^UTILITY(U,$J,358.3,31916,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,31916,1,3,0)
+410 ;;=3^Exfoliation d/t Erythematous Cond w/ 60-69% Body Surface
+411 ;;^UTILITY(U,$J,358.3,31916,1,4,0)
+412 ;;=4^L49.6
+413 ;;^UTILITY(U,$J,358.3,31916,2)
+414 ;;=^5009196
+415 ;;^UTILITY(U,$J,358.3,31917,0)
+416 ;;=L49.7^^97^1313^23
+417 ;;^UTILITY(U,$J,358.3,31917,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,31917,1,3,0)
+420 ;;=3^Exfoliation d/t Erythematous Cond w/ 70-79% Body Surface
+421 ;;^UTILITY(U,$J,358.3,31917,1,4,0)
+422 ;;=4^L49.7
+423 ;;^UTILITY(U,$J,358.3,31917,2)
+424 ;;=^5009197
+425 ;;^UTILITY(U,$J,358.3,31918,0)
+426 ;;=L49.8^^97^1313^24
+427 ;;^UTILITY(U,$J,358.3,31918,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,31918,1,3,0)
+430 ;;=3^Exfoliation d/t Erythematous Cond w/ 80-89% Body Surface
+431 ;;^UTILITY(U,$J,358.3,31918,1,4,0)
+432 ;;=4^L49.8
+433 ;;^UTILITY(U,$J,358.3,31918,2)
+434 ;;=^5009198
+435 ;;^UTILITY(U,$J,358.3,31919,0)
+436 ;;=L49.9^^97^1313^27
+437 ;;^UTILITY(U,$J,358.3,31919,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,31919,1,3,0)
+440 ;;=3^Exfoliation d/t Erythematous Cond w/ > 89% Body Surface
+441 ;;^UTILITY(U,$J,358.3,31919,1,4,0)
+442 ;;=4^L49.9
+443 ;;^UTILITY(U,$J,358.3,31919,2)
+444 ;;=^5009199
+445 ;;^UTILITY(U,$J,358.3,31920,0)
+446 ;;=Z65.5^^97^1313^28
+447 ;;^UTILITY(U,$J,358.3,31920,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,31920,1,3,0)
+450 ;;=3^Exposure to Disaster/War/Hostilities
+451 ;;^UTILITY(U,$J,358.3,31920,1,4,0)
+452 ;;=4^Z65.5
+453 ;;^UTILITY(U,$J,358.3,31920,2)
+454 ;;=^5063184
+455 ;;^UTILITY(U,$J,358.3,31921,0)
+456 ;;=Z77.22^^97^1313^29
+457 ;;^UTILITY(U,$J,358.3,31921,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,31921,1,3,0)
+460 ;;=3^Exposure to/Contact w/ Environmental Tobacco Smoke
+461 ;;^UTILITY(U,$J,358.3,31921,1,4,0)
+462 ;;=4^Z77.22
+463 ;;^UTILITY(U,$J,358.3,31921,2)
+464 ;;=^5063324
+465 ;;^UTILITY(U,$J,358.3,31922,0)
+466 ;;=L30.9^^97^1313^5
+467 ;;^UTILITY(U,$J,358.3,31922,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,31922,1,3,0)
+470 ;;=3^Eczema,Unspec
+471 ;;^UTILITY(U,$J,358.3,31922,1,4,0)
+472 ;;=4^L30.9
+473 ;;^UTILITY(U,$J,358.3,31922,2)
+474 ;;=^5009159
+475 ;;^UTILITY(U,$J,358.3,31923,0)
+476 ;;=L23.9^^97^1313^2
+477 ;;^UTILITY(U,$J,358.3,31923,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,31923,1,3,0)
+480 ;;=3^Eczema,Allergic Contact,Unspec
+481 ;;^UTILITY(U,$J,358.3,31923,1,4,0)
+482 ;;=4^L23.9
+483 ;;^UTILITY(U,$J,358.3,31923,2)
+484 ;;=^5009125
+485 ;;^UTILITY(U,$J,358.3,31924,0)
+486 ;;=L20.82^^97^1313^3
+487 ;;^UTILITY(U,$J,358.3,31924,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,31924,1,3,0)
+490 ;;=3^Eczema,Flexural
+491 ;;^UTILITY(U,$J,358.3,31924,1,4,0)
+492 ;;=4^L20.82
+493 ;;^UTILITY(U,$J,358.3,31924,2)
+494 ;;=^5009109
+495 ;;^UTILITY(U,$J,358.3,31925,0)
+496 ;;=L20.84^^97^1313^4
+497 ;;^UTILITY(U,$J,358.3,31925,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,31925,1,3,0)
+500 ;;=3^Eczema,Intrinsic
+501 ;;^UTILITY(U,$J,358.3,31925,1,4,0)
+502 ;;=4^L20.84
+503 ;;^UTILITY(U,$J,358.3,31925,2)
+504 ;;=^5009111
+505 ;;^UTILITY(U,$J,358.3,31926,0)
+506 ;;=L51.8^^97^1313^11
+507 ;;^UTILITY(U,$J,358.3,31926,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,31926,1,3,0)
+510 ;;=3^Erythema Multiforme,Other
+511 ;;^UTILITY(U,$J,358.3,31926,1,4,0)
+512 ;;=4^L51.8
+513 ;;^UTILITY(U,$J,358.3,31926,2)
+514 ;;=^336639
+515 ;;^UTILITY(U,$J,358.3,31927,0)
+516 ;;=R23.4^^97^1313^15
+517 ;;^UTILITY(U,$J,358.3,31927,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,31927,1,3,0)
+520 ;;=3^Eschar/Desquamination of Skin
+521 ;;^UTILITY(U,$J,358.3,31927,1,4,0)
+522 ;;=4^R23.4
+523 ;;^UTILITY(U,$J,358.3,31927,2)
+524 ;;=^5019296
+525 ;;^UTILITY(U,$J,358.3,31928,0)
+526 ;;=L49.9^^97^1313^25
+527 ;;^UTILITY(U,$J,358.3,31928,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,31928,1,3,0)
+530 ;;=3^Exfoliation d/t Erythematous Cond w/ 90% or More Body Surface
+531 ;;^UTILITY(U,$J,358.3,31928,1,4,0)
+532 ;;=4^L49.9
+533 ;;^UTILITY(U,$J,358.3,31928,2)
+534 ;;=^5009199
+535 ;;^UTILITY(U,$J,358.3,31929,0)
+536 ;;=L74.9^^97^1313^1
+537 ;;^UTILITY(U,$J,358.3,31929,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,31929,1,3,0)
+540 ;;=3^Eccrine Sweat Disorder,Unspec
+541 ;;^UTILITY(U,$J,358.3,31929,1,4,0)
+542 ;;=4^L74.9
+543 ;;^UTILITY(U,$J,358.3,31929,2)
+544 ;;=^5009296
+545 ;;^UTILITY(U,$J,358.3,31930,0)
+546 ;;=L98.7^^97^1313^16
+547 ;;^UTILITY(U,$J,358.3,31930,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,31930,1,3,0)
+550 ;;=3^Excessive/Redundant Skin/Subq Tissue
+551 ;;^UTILITY(U,$J,358.3,31930,1,4,0)
+552 ;;=4^L98.7
+553 ;;^UTILITY(U,$J,358.3,31930,2)
+554 ;;=^5138778
+555 ;;^UTILITY(U,$J,358.3,31931,0)
+556 ;;=L72.0^^97^1313^7
+557 ;;^UTILITY(U,$J,358.3,31931,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,31931,1,3,0)
+560 ;;=3^Epidermal/Epidermoid Cyst
+561 ;;^UTILITY(U,$J,358.3,31931,1,4,0)
+562 ;;=4^L72.0
+563 ;;^UTILITY(U,$J,358.3,31931,2)
+564 ;;=^5009277
+565 ;;^UTILITY(U,$J,358.3,31932,0)
+566 ;;=L92.3^^97^1314^1
+567 ;;^UTILITY(U,$J,358.3,31932,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,31932,1,3,0)
+570 ;;=3^FB Granuloma Skin/Subcutaneous Tissue
+571 ;;^UTILITY(U,$J,358.3,31932,1,4,0)
+572 ;;=4^L92.3
+573 ;;^UTILITY(U,$J,358.3,31932,2)
+574 ;;=^5009464
+575 ;;^UTILITY(U,$J,358.3,31933,0)
+576 ;;=L66.2^^97^1314^5
+577 ;;^UTILITY(U,$J,358.3,31933,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,31933,1,3,0)
+580 ;;=3^Folliculitis Decalvans
+581 ;;^UTILITY(U,$J,358.3,31933,1,4,0)
+582 ;;=4^L66.2
+583 ;;^UTILITY(U,$J,358.3,31933,2)
+584 ;;=^5009254
+585 ;;^UTILITY(U,$J,358.3,31934,0)
+586 ;;=L02.221^^97^1314^6
+587 ;;^UTILITY(U,$J,358.3,31934,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,31934,1,3,0)
+590 ;;=3^Furuncle,Abdominal Wall
+591 ;;^UTILITY(U,$J,358.3,31934,1,4,0)
+592 ;;=4^L02.221
+593 ;;^UTILITY(U,$J,358.3,31934,2)
+594 ;;=^5008957
+595 ;;^UTILITY(U,$J,358.3,31935,0)
+596 ;;=L02.222^^97^1314^7
+597 ;;^UTILITY(U,$J,358.3,31935,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,31935,1,3,0)
+600 ;;=3^Furuncle,Back
+601 ;;^UTILITY(U,$J,358.3,31935,1,4,0)
+602 ;;=4^L02.222
+603 ;;^UTILITY(U,$J,358.3,31935,2)
+604 ;;=^5008958
+605 ;;^UTILITY(U,$J,358.3,31936,0)
+606 ;;=L02.223^^97^1314^8
+607 ;;^UTILITY(U,$J,358.3,31936,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,31936,1,3,0)
+610 ;;=3^Furuncle,Chest Wall
+611 ;;^UTILITY(U,$J,358.3,31936,1,4,0)
+612 ;;=4^L02.223
+613 ;;^UTILITY(U,$J,358.3,31936,2)
+614 ;;=^5008959
+615 ;;^UTILITY(U,$J,358.3,31937,0)
+616 ;;=L02.224^^97^1314^9
+617 ;;^UTILITY(U,$J,358.3,31937,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,31937,1,3,0)
+620 ;;=3^Furuncle,Groin
+621 ;;^UTILITY(U,$J,358.3,31937,1,4,0)
+622 ;;=4^L02.224
+623 ;;^UTILITY(U,$J,358.3,31937,2)
+624 ;;=^5008960
+625 ;;^UTILITY(U,$J,358.3,31938,0)
+626 ;;=L02.422^^97^1314^10
+627 ;;^UTILITY(U,$J,358.3,31938,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,31938,1,3,0)
+630 ;;=3^Furuncle,Left Axilla
+631 ;;^UTILITY(U,$J,358.3,31938,1,4,0)
+632 ;;=4^L02.422
+633 ;;^UTILITY(U,$J,358.3,31938,2)
+634 ;;=^5008981
+635 ;;^UTILITY(U,$J,358.3,31939,0)
+636 ;;=L02.421^^97^1314^13
+637 ;;^UTILITY(U,$J,358.3,31939,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,31939,1,3,0)
+640 ;;=3^Furuncle,Right Axilla
+641 ;;^UTILITY(U,$J,358.3,31939,1,4,0)
+642 ;;=4^L02.421
+643 ;;^UTILITY(U,$J,358.3,31939,2)
+644 ;;=^5008980
+645 ;;^UTILITY(U,$J,358.3,31940,0)
+646 ;;=L02.426^^97^1314^11
+647 ;;^UTILITY(U,$J,358.3,31940,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,31940,1,3,0)
+650 ;;=3^Furuncle,Left Lower Limb
+651 ;;^UTILITY(U,$J,358.3,31940,1,4,0)
+652 ;;=4^L02.426
+653 ;;^UTILITY(U,$J,358.3,31940,2)
+654 ;;=^5133643
+655 ;;^UTILITY(U,$J,358.3,31941,0)
+656 ;;=L02.425^^97^1314^14
+657 ;;^UTILITY(U,$J,358.3,31941,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,31941,1,3,0)
+660 ;;=3^Furuncle,Right Lower Limb
+661 ;;^UTILITY(U,$J,358.3,31941,1,4,0)
+662 ;;=4^L02.425
+663 ;;^UTILITY(U,$J,358.3,31941,2)
+664 ;;=^5008984
+665 ;;^UTILITY(U,$J,358.3,31942,0)
+666 ;;=L02.424^^97^1314^12
+667 ;;^UTILITY(U,$J,358.3,31942,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,31942,1,3,0)
+670 ;;=3^Furuncle,Left Upper Limb
+671 ;;^UTILITY(U,$J,358.3,31942,1,4,0)
+672 ;;=4^L02.424
+673 ;;^UTILITY(U,$J,358.3,31942,2)
+674 ;;=^5008983
+675 ;;^UTILITY(U,$J,358.3,31943,0)
+676 ;;=L02.423^^97^1314^15
