IBDEI08N ; ; 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,21088,0)
;;=E11.65^^68^865^15
;;^UTILITY(U,$J,358.3,21088,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21088,1,3,0)
;;=3^DM2 w/ Hyperglycemia
;;^UTILITY(U,$J,358.3,21088,1,4,0)
;;=4^E11.65
;;^UTILITY(U,$J,358.3,21088,2)
;;=^5002663
;;^UTILITY(U,$J,358.3,21089,0)
;;=E43.^^68^865^32
;;^UTILITY(U,$J,358.3,21089,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21089,1,3,0)
;;=3^Malnutrition,Severe Protein-Calorie
;;^UTILITY(U,$J,358.3,21089,1,4,0)
;;=4^E43.
;;^UTILITY(U,$J,358.3,21089,2)
;;=^5002786
;;^UTILITY(U,$J,358.3,21090,0)
;;=E44.0^^68^865^31
;;^UTILITY(U,$J,358.3,21090,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21090,1,3,0)
;;=3^Malnutrition,Moderate Protein-Calorie
;;^UTILITY(U,$J,358.3,21090,1,4,0)
;;=4^E44.0
;;^UTILITY(U,$J,358.3,21090,2)
;;=^5002787
;;^UTILITY(U,$J,358.3,21091,0)
;;=E44.1^^68^865^30
;;^UTILITY(U,$J,358.3,21091,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21091,1,3,0)
;;=3^Malnutrition,Mild Protein-Calorie
;;^UTILITY(U,$J,358.3,21091,1,4,0)
;;=4^E44.1
;;^UTILITY(U,$J,358.3,21091,2)
;;=^5002788
;;^UTILITY(U,$J,358.3,21092,0)
;;=E66.01^^68^865^34
;;^UTILITY(U,$J,358.3,21092,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21092,1,3,0)
;;=3^Obesity,Morbid
;;^UTILITY(U,$J,358.3,21092,1,4,0)
;;=4^E66.01
;;^UTILITY(U,$J,358.3,21092,2)
;;=^5002826
;;^UTILITY(U,$J,358.3,21093,0)
;;=E66.2^^68^865^35
;;^UTILITY(U,$J,358.3,21093,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21093,1,3,0)
;;=3^Obesity,Morbid w/ Alveolar Hypoventilation (OHS)
;;^UTILITY(U,$J,358.3,21093,1,4,0)
;;=4^E66.2
;;^UTILITY(U,$J,358.3,21093,2)
;;=^5002829
;;^UTILITY(U,$J,358.3,21094,0)
;;=E66.9^^68^865^36
;;^UTILITY(U,$J,358.3,21094,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21094,1,3,0)
;;=3^Obesity,Unspec
;;^UTILITY(U,$J,358.3,21094,1,4,0)
;;=4^E66.9
;;^UTILITY(U,$J,358.3,21094,2)
;;=^5002832
;;^UTILITY(U,$J,358.3,21095,0)
;;=Z68.1^^68^865^7
;;^UTILITY(U,$J,358.3,21095,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21095,1,3,0)
;;=3^BMI 19.9 or less
;;^UTILITY(U,$J,358.3,21095,1,4,0)
;;=4^Z68.1
;;^UTILITY(U,$J,358.3,21095,2)
;;=^5063198
;;^UTILITY(U,$J,358.3,21096,0)
;;=Z68.41^^68^865^8
;;^UTILITY(U,$J,358.3,21096,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21096,1,3,0)
;;=3^BMI 40.0-44.9
;;^UTILITY(U,$J,358.3,21096,1,4,0)
;;=4^Z68.41
;;^UTILITY(U,$J,358.3,21096,2)
;;=^5063219
;;^UTILITY(U,$J,358.3,21097,0)
;;=Z68.42^^68^865^9
;;^UTILITY(U,$J,358.3,21097,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21097,1,3,0)
;;=3^BMI 45.0-49.9
;;^UTILITY(U,$J,358.3,21097,1,4,0)
;;=4^Z68.42
;;^UTILITY(U,$J,358.3,21097,2)
;;=^5063220
;;^UTILITY(U,$J,358.3,21098,0)
;;=Z68.43^^68^865^10
;;^UTILITY(U,$J,358.3,21098,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21098,1,3,0)
;;=3^BMI 50.0-59.9
;;^UTILITY(U,$J,358.3,21098,1,4,0)
;;=4^Z68.43
;;^UTILITY(U,$J,358.3,21098,2)
;;=^5063221
;;^UTILITY(U,$J,358.3,21099,0)
;;=E11.622^^68^865^19
;;^UTILITY(U,$J,358.3,21099,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21099,1,3,0)
;;=3^DM2 w/ Other Skin Ulcer
;;^UTILITY(U,$J,358.3,21099,1,4,0)
;;=4^E11.622
;;^UTILITY(U,$J,358.3,21099,2)
;;=^5002657
;;^UTILITY(U,$J,358.3,21100,0)
;;=E11.43^^68^865^12
;;^UTILITY(U,$J,358.3,21100,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21100,1,3,0)
;;=3^DM2 w/ Autonomic Neuropathy
;;^UTILITY(U,$J,358.3,21100,1,4,0)
;;=4^E11.43
;;^UTILITY(U,$J,358.3,21100,2)
;;=^5002647
;;^UTILITY(U,$J,358.3,21101,0)
;;=E46.^^68^865^33
;;^UTILITY(U,$J,358.3,21101,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21101,1,3,0)
;;=3^Malnutrition,Unspec Severity
;;^UTILITY(U,$J,358.3,21101,1,4,0)
;;=4^E46.
;;^UTILITY(U,$J,358.3,21101,2)
;;=^5002790
;;^UTILITY(U,$J,358.3,21102,0)
;;=Z56.0^^68^866^24
;;^UTILITY(U,$J,358.3,21102,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21102,1,3,0)
;;=3^Unemployment,Unspec
;;^UTILITY(U,$J,358.3,21102,1,4,0)
;;=4^Z56.0
;;^UTILITY(U,$J,358.3,21102,2)
;;=^5063107
;;^UTILITY(U,$J,358.3,21103,0)
;;=Z56.3^^68^866^23
;;^UTILITY(U,$J,358.3,21103,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21103,1,3,0)
;;=3^Stressful Work Schedule
;;^UTILITY(U,$J,358.3,21103,1,4,0)
;;=4^Z56.3
;;^UTILITY(U,$J,358.3,21103,2)
;;=^5063110
;;^UTILITY(U,$J,358.3,21104,0)
;;=Z56.5^^68^866^3
;;^UTILITY(U,$J,358.3,21104,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21104,1,3,0)
;;=3^Difficult Work Conditions
;;^UTILITY(U,$J,358.3,21104,1,4,0)
;;=4^Z56.5
;;^UTILITY(U,$J,358.3,21104,2)
;;=^5063112
;;^UTILITY(U,$J,358.3,21105,0)
;;=Z56.89^^68^866^20
;;^UTILITY(U,$J,358.3,21105,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21105,1,3,0)
;;=3^Problems Related to Employment,Other
;;^UTILITY(U,$J,358.3,21105,1,4,0)
;;=4^Z56.89
;;^UTILITY(U,$J,358.3,21105,2)
;;=^5063116
;;^UTILITY(U,$J,358.3,21106,0)
;;=Z56.6^^68^866^19
;;^UTILITY(U,$J,358.3,21106,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21106,1,3,0)
;;=3^Physical & Mental Strain Related to Work,Other
;;^UTILITY(U,$J,358.3,21106,1,4,0)
;;=4^Z56.6
;;^UTILITY(U,$J,358.3,21106,2)
;;=^5063113
;;^UTILITY(U,$J,358.3,21107,0)
;;=Z57.0^^68^866^16
;;^UTILITY(U,$J,358.3,21107,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21107,1,3,0)
;;=3^Occupational Exposure to Noise
;;^UTILITY(U,$J,358.3,21107,1,4,0)
;;=4^Z57.0
;;^UTILITY(U,$J,358.3,21107,2)
;;=^5063118
;;^UTILITY(U,$J,358.3,21108,0)
;;=Z57.6^^68^866^15
;;^UTILITY(U,$J,358.3,21108,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21108,1,3,0)
;;=3^Occupational Exposure to Extreme Temperature
;;^UTILITY(U,$J,358.3,21108,1,4,0)
;;=4^Z57.6
;;^UTILITY(U,$J,358.3,21108,2)
;;=^5063125
;;^UTILITY(U,$J,358.3,21109,0)
;;=Z57.7^^68^866^18
;;^UTILITY(U,$J,358.3,21109,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21109,1,3,0)
;;=3^Occupational Exposure to Vibration
;;^UTILITY(U,$J,358.3,21109,1,4,0)
;;=4^Z57.7
;;^UTILITY(U,$J,358.3,21109,2)
;;=^5063126
;;^UTILITY(U,$J,358.3,21110,0)
;;=Z57.8^^68^866^17
;;^UTILITY(U,$J,358.3,21110,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21110,1,3,0)
;;=3^Occupational Exposure to Oth Risk Factors
;;^UTILITY(U,$J,358.3,21110,1,4,0)
;;=4^Z57.8
;;^UTILITY(U,$J,358.3,21110,2)
;;=^5063127
;;^UTILITY(U,$J,358.3,21111,0)
;;=Z59.01^^68^866^8
;;^UTILITY(U,$J,358.3,21111,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21111,1,3,0)
;;=3^Homelessness,Sheltered (Shelter/Motel/Transitional)
;;^UTILITY(U,$J,358.3,21111,1,4,0)
;;=4^Z59.01
;;^UTILITY(U,$J,358.3,21111,2)
;;=^5161305
;;^UTILITY(U,$J,358.3,21112,0)
;;=Z59.02^^68^866^9
;;^UTILITY(U,$J,358.3,21112,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21112,1,3,0)
;;=3^Homelessness,Unsheltered (Car/Park/Street)
;;^UTILITY(U,$J,358.3,21112,1,4,0)
;;=4^Z59.02
;;^UTILITY(U,$J,358.3,21112,2)
;;=^5161306
;;^UTILITY(U,$J,358.3,21113,0)
;;=Z59.00^^68^866^10
;;^UTILITY(U,$J,358.3,21113,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21113,1,3,0)
;;=3^Homelessness,Unspec
;;^UTILITY(U,$J,358.3,21113,1,4,0)
;;=4^Z59.00
;;^UTILITY(U,$J,358.3,21113,2)
;;=^5161304
;;^UTILITY(U,$J,358.3,21114,0)
;;=Z59.1^^68^866^13
;;^UTILITY(U,$J,358.3,21114,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21114,1,3,0)
;;=3^Inadequate Housing (Heating/Defects,etc.)
;;^UTILITY(U,$J,358.3,21114,1,4,0)
;;=4^Z59.1
;;^UTILITY(U,$J,358.3,21114,2)
;;=^5063130
;;^UTILITY(U,$J,358.3,21115,0)
;;=Z59.41^^68^866^7
;;^UTILITY(U,$J,358.3,21115,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21115,1,3,0)
;;=3^Food Insecurity
;;^UTILITY(U,$J,358.3,21115,1,4,0)
;;=4^Z59.41
;;^UTILITY(U,$J,358.3,21115,2)
;;=^5161307
;;^UTILITY(U,$J,358.3,21116,0)
;;=Z59.6^^68^866^14
;;^UTILITY(U,$J,358.3,21116,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21116,1,3,0)
;;=3^Low Income
;;^UTILITY(U,$J,358.3,21116,1,4,0)
;;=4^Z59.6
;;^UTILITY(U,$J,358.3,21116,2)
;;=^5063135
;;^UTILITY(U,$J,358.3,21117,0)
;;=Z59.811^^68^866^12
;;^UTILITY(U,$J,358.3,21117,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21117,1,3,0)
;;=3^Housing Instability,Imminent Risk of Homelessness
;;^UTILITY(U,$J,358.3,21117,1,4,0)
;;=4^Z59.811
;;^UTILITY(U,$J,358.3,21117,2)
;;=^5161309
;;^UTILITY(U,$J,358.3,21118,0)
;;=Z59.812^^68^866^11
;;^UTILITY(U,$J,358.3,21118,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21118,1,3,0)
;;=3^Housing Instability,Homelessness in Past 12 Months
;;^UTILITY(U,$J,358.3,21118,1,4,0)
;;=4^Z59.812
;;^UTILITY(U,$J,358.3,21118,2)
;;=^5161310
;;^UTILITY(U,$J,358.3,21119,0)
;;=Z63.0^^68^866^22
;;^UTILITY(U,$J,358.3,21119,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21119,1,3,0)
;;=3^Problems w/ Spouse or Partner
;;^UTILITY(U,$J,358.3,21119,1,4,0)
;;=4^Z63.0
;;^UTILITY(U,$J,358.3,21119,2)
;;=^5063164
;;^UTILITY(U,$J,358.3,21120,0)
;;=Z63.4^^68^866^2
;;^UTILITY(U,$J,358.3,21120,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21120,1,3,0)
;;=3^Bereavement
;;^UTILITY(U,$J,358.3,21120,1,4,0)
;;=4^Z63.4
;;^UTILITY(U,$J,358.3,21120,2)
;;=^5063168
;;^UTILITY(U,$J,358.3,21121,0)
;;=Z63.5^^68^866^4
;;^UTILITY(U,$J,358.3,21121,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21121,1,3,0)
;;=3^Disruption of Family by Separation/Divorce
;;^UTILITY(U,$J,358.3,21121,1,4,0)
;;=4^Z63.5
;;^UTILITY(U,$J,358.3,21121,2)
;;=^5063169
;;^UTILITY(U,$J,358.3,21122,0)
;;=Z63.72^^68^866^1
;;^UTILITY(U,$J,358.3,21122,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21122,1,3,0)
;;=3^Alcoholism/Drug Addiction in Family
;;^UTILITY(U,$J,358.3,21122,1,4,0)
;;=4^Z63.72
;;^UTILITY(U,$J,358.3,21122,2)
;;=^5063172
;;^UTILITY(U,$J,358.3,21123,0)
;;=Z63.8^^68^866^6
;;^UTILITY(U,$J,358.3,21123,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21123,1,3,0)
;;=3^Family Discord
;;^UTILITY(U,$J,358.3,21123,1,4,0)
;;=4^Z63.8
;;^UTILITY(U,$J,358.3,21123,2)
;;=^5063174
;;^UTILITY(U,$J,358.3,21124,0)
;;=Z65.3^^68^866^21
;;^UTILITY(U,$J,358.3,21124,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21124,1,3,0)
;;=3^Problems Related to Legal Circumstances
;;^UTILITY(U,$J,358.3,21124,1,4,0)
;;=4^Z65.3
;;^UTILITY(U,$J,358.3,21124,2)
;;=^5063182
;;^UTILITY(U,$J,358.3,21125,0)
;;=Z65.4^^68^866^25
;;^UTILITY(U,$J,358.3,21125,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21125,1,3,0)
;;=3^Victim of Crime/Terrorism
;;^UTILITY(U,$J,358.3,21125,1,4,0)
;;=4^Z65.4
;;^UTILITY(U,$J,358.3,21125,2)
;;=^5063183
;;^UTILITY(U,$J,358.3,21126,0)
;;=Z65.5^^68^866^5
;;^UTILITY(U,$J,358.3,21126,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21126,1,3,0)
;;=3^Exposure to Disaster/War/Oth Hostilities
;;^UTILITY(U,$J,358.3,21126,1,4,0)
;;=4^Z65.5
;;^UTILITY(U,$J,358.3,21126,2)
;;=^5063184
;;^UTILITY(U,$J,358.3,21127,0)
;;=J3301^^69^867^15^^^^1
;;^UTILITY(U,$J,358.3,21127,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21127,1,2,0)
;;=2^J3301
;;^UTILITY(U,$J,358.3,21127,1,3,0)
;;=3^KENALOG, PER 10 MG
;;^UTILITY(U,$J,358.3,21128,0)
;;=J9217^^69^867^17^^^^1
;;^UTILITY(U,$J,358.3,21128,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21128,1,2,0)
;;=2^J9217
;;^UTILITY(U,$J,358.3,21128,1,3,0)
;;=3^LUPRON DEPOT,PER 7.5MG
;;^UTILITY(U,$J,358.3,21129,0)
;;=J1885^^69^867^24^^^^1
;;^UTILITY(U,$J,358.3,21129,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21129,1,2,0)
;;=2^J1885
;;^UTILITY(U,$J,358.3,21129,1,3,0)
;;=3^TORADOL, PER 15MG
;;^UTILITY(U,$J,358.3,21130,0)
;;=J3420^^69^867^25^^^^1
;;^UTILITY(U,$J,358.3,21130,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21130,1,2,0)
;;=2^J3420
;;^UTILITY(U,$J,358.3,21130,1,3,0)
;;=3^VITAMIN B12, PER 1000MCG
;;^UTILITY(U,$J,358.3,21131,0)
;;=J2270^^69^867^19^^^^1
;;^UTILITY(U,$J,358.3,21131,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21131,1,2,0)
;;=2^J2270
;;^UTILITY(U,$J,358.3,21131,1,3,0)
;;=3^MORPHINE, PER 10MG
;;^UTILITY(U,$J,358.3,21132,0)
;;=J2060^^69^867^4^^^^1
;;^UTILITY(U,$J,358.3,21132,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21132,1,2,0)
;;=2^J2060
;;^UTILITY(U,$J,358.3,21132,1,3,0)
;;=3^ATIVAN/LORAZEPAM, 2 MG
;;^UTILITY(U,$J,358.3,21133,0)
;;=J1940^^69^867^16^^^^1
;;^UTILITY(U,$J,358.3,21133,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21133,1,2,0)
;;=2^J1940
;;^UTILITY(U,$J,358.3,21133,1,3,0)
;;=3^LASIX, PER 20 MG
;;^UTILITY(U,$J,358.3,21134,0)
;;=J0515^^69^867^9^^^^1
;;^UTILITY(U,$J,358.3,21134,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21134,1,2,0)
;;=2^J0515
;;^UTILITY(U,$J,358.3,21134,1,3,0)
;;=3^BENZOTROPINE, PER 1MG
;;^UTILITY(U,$J,358.3,21135,0)
;;=J1630^^69^867^13^^^^1
;;^UTILITY(U,$J,358.3,21135,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21135,1,2,0)
;;=2^J1630
;;^UTILITY(U,$J,358.3,21135,1,3,0)
;;=3^HALDOL,UP TO 5MG
;;^UTILITY(U,$J,358.3,21136,0)
;;=J1720^^69^867^14^^^^1
;;^UTILITY(U,$J,358.3,21136,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21136,1,2,0)
;;=2^J1720
;;^UTILITY(U,$J,358.3,21136,1,3,0)
;;=3^HYDROCORTISONE SOD SUCC,UP TO 100MG
;;^UTILITY(U,$J,358.3,21137,0)
;;=J0780^^69^867^11^^^^1
;;^UTILITY(U,$J,358.3,21137,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21137,1,2,0)
;;=2^J0780
;;^UTILITY(U,$J,358.3,21137,1,3,0)
;;=3^COMPAZINE,UP TO 10MG
;;^UTILITY(U,$J,358.3,21138,0)
;;=J2930^^69^867^21^^^^1
;;^UTILITY(U,$J,358.3,21138,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21138,1,2,0)
;;=2^J2930
;;^UTILITY(U,$J,358.3,21138,1,3,0)
;;=3^SOLU-MEDROL,UP TO 125MG
;;^UTILITY(U,$J,358.3,21139,0)
;;=96402^^69^867^3^^^^1
;;^UTILITY(U,$J,358.3,21139,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21139,1,2,0)
;;=2^96402
;;^UTILITY(U,$J,358.3,21139,1,3,0)
;;=3^ANTI-NEOPLASTIC HORMONE INJ IM
;;^UTILITY(U,$J,358.3,21140,0)
;;=96372^^69^867^2^^^^1
;;^UTILITY(U,$J,358.3,21140,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21140,1,2,0)
;;=2^96372
;;^UTILITY(U,$J,358.3,21140,1,3,0)
;;=3^ADMINISTRATION OF INJ, SC/IM
;;^UTILITY(U,$J,358.3,21141,0)
;;=J0461^^69^867^5^^^^1
;;^UTILITY(U,$J,358.3,21141,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21141,1,2,0)
;;=2^J0461
;;^UTILITY(U,$J,358.3,21141,1,3,0)
;;=3^ATROPINE SULFATE,0.01 MG
;;^UTILITY(U,$J,358.3,21142,0)
;;=J2794^^69^867^20^^^^1
;;^UTILITY(U,$J,358.3,21142,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21142,1,2,0)
;;=2^J2794
;;^UTILITY(U,$J,358.3,21142,1,3,0)
;;=3^RISPERIDONE PER 0.5MG
;;^UTILITY(U,$J,358.3,21143,0)
;;=J1040^^69^867^12^^^^1
;;^UTILITY(U,$J,358.3,21143,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21143,1,2,0)
;;=2^J1040
;;^UTILITY(U,$J,358.3,21143,1,3,0)
;;=3^DEPOMEDROL PER 80MG
;;^UTILITY(U,$J,358.3,21144,0)
;;=J1050^^69^867^18^^^^1
;;^UTILITY(U,$J,358.3,21144,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21144,1,2,0)
;;=2^J1050
;;^UTILITY(U,$J,358.3,21144,1,3,0)
;;=3^MEDROXYPROGESTERONE 1MG
;;^UTILITY(U,$J,358.3,21145,0)
;;=J0153^^69^867^1^^^^1
;;^UTILITY(U,$J,358.3,21145,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21145,1,2,0)
;;=2^J0153
;;^UTILITY(U,$J,358.3,21145,1,3,0)
;;=3^ADENOSINE 1MG
;;^UTILITY(U,$J,358.3,21146,0)
;;=J1071^^69^867^22^^^^1
;;^UTILITY(U,$J,358.3,21146,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21146,1,2,0)
;;=2^J1071
;;^UTILITY(U,$J,358.3,21146,1,3,0)
;;=3^TESTOSTERONE CYPIONATE 1MG
;;^UTILITY(U,$J,358.3,21147,0)
;;=J3121^^69^867^23^^^^1
;;^UTILITY(U,$J,358.3,21147,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21147,1,2,0)
;;=2^J3121
;;^UTILITY(U,$J,358.3,21147,1,3,0)
;;=3^TESTOSTERONE ENANTHATE UP TO 1MG
;;^UTILITY(U,$J,358.3,21148,0)
;;=90586^^69^867^7^^^^1
;;^UTILITY(U,$J,358.3,21148,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21148,1,2,0)
;;=2^90586
;;^UTILITY(U,$J,358.3,21148,1,3,0)
;;=3^BCG FOR BLADDER CA INTRAVESICAL
;;^UTILITY(U,$J,358.3,21149,0)
;;=90585^^69^867^8^^^^1
;;^UTILITY(U,$J,358.3,21149,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21149,1,2,0)
;;=2^90585
;;^UTILITY(U,$J,358.3,21149,1,3,0)
;;=3^BCG FOR TB,PERCUTANEOUS
;;^UTILITY(U,$J,358.3,21150,0)
;;=J9030^^69^867^6^^^^1
;;^UTILITY(U,$J,358.3,21150,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21150,1,2,0)
;;=2^J9030
;;^UTILITY(U,$J,358.3,21150,1,3,0)
;;=3^BCG LIVE,INTRAVESICAL 1MG (81MG W/ SALINE)
;;^UTILITY(U,$J,358.3,21151,0)
;;=51720^^69^867^10^^^^1
;;^UTILITY(U,$J,358.3,21151,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21151,1,2,0)
;;=2^51720
;;^UTILITY(U,$J,358.3,21151,1,3,0)
;;=3^BLADDER INSTILLATION OF ANTI-CA MED
;;^UTILITY(U,$J,358.3,21152,0)
;;=86485^^69^868^1^^^^1
;;^UTILITY(U,$J,358.3,21152,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21152,1,2,0)
;;=2^86485
;;^UTILITY(U,$J,358.3,21152,1,3,0)
;;=3^CANDIDA
;;^UTILITY(U,$J,358.3,21153,0)
;;=86580^^69^868^5^^^^1
;;^UTILITY(U,$J,358.3,21153,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21153,1,2,0)
;;=2^86580
;;^UTILITY(U,$J,358.3,21153,1,3,0)
;;=3^TB
;;^UTILITY(U,$J,358.3,21154,0)
;;=95024^^69^868^3^^^^1
;;^UTILITY(U,$J,358.3,21154,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21154,1,2,0)
;;=2^95024
;;^UTILITY(U,$J,358.3,21154,1,3,0)
;;=3^INTRADERMALS (EACH)
;;^UTILITY(U,$J,358.3,21155,0)
;;=86510^^69^868^2^^^^1
;;^UTILITY(U,$J,358.3,21155,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21155,1,2,0)
;;=2^86510
;;^UTILITY(U,$J,358.3,21155,1,3,0)
;;=3^HISTOPLASMOSIS
;;^UTILITY(U,$J,358.3,21156,0)
;;=86486^^69^868^4^^^^1
;;^UTILITY(U,$J,358.3,21156,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21156,1,2,0)
;;=2^86486
;;^UTILITY(U,$J,358.3,21156,1,3,0)
;;=3^MUMPS
;;^UTILITY(U,$J,358.3,21157,0)
;;=94640^^69^869^13^^^^1
;;^UTILITY(U,$J,358.3,21157,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21157,1,2,0)
;;=2^94640
;;^UTILITY(U,$J,358.3,21157,1,3,0)
;;=3^NEBULIZER TREATMENT
;;^UTILITY(U,$J,358.3,21158,0)
;;=82948^^69^869^4^^^^1
;;^UTILITY(U,$J,358.3,21158,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21158,1,2,0)
;;=2^82948
;;^UTILITY(U,$J,358.3,21158,1,3,0)
;;=3^GLUCOSE FINGER STICK
;;^UTILITY(U,$J,358.3,21159,0)
;;=11719^^69^869^15^^^^1
;;^UTILITY(U,$J,358.3,21159,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21159,1,2,0)
;;=2^11719
;;^UTILITY(U,$J,358.3,21159,1,3,0)
;;=3^TRIM NAILS (NONDYSTROPHIC)
;;^UTILITY(U,$J,358.3,21160,0)
;;=81002^^69^869^16^^^^1
;;^UTILITY(U,$J,358.3,21160,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21160,1,2,0)
;;=2^81002
;;^UTILITY(U,$J,358.3,21160,1,3,0)
;;=3^UA DIPSTICK
;;^UTILITY(U,$J,358.3,21161,0)
;;=93005^^69^869^3^^^^1
;;^UTILITY(U,$J,358.3,21161,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21161,1,2,0)
;;=2^93005
;;^UTILITY(U,$J,358.3,21161,1,3,0)
;;=3^EKG
;;^UTILITY(U,$J,358.3,21162,0)
;;=36600^^69^869^1^^^^1
;;^UTILITY(U,$J,358.3,21162,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21162,1,2,0)
;;=2^36600
;;^UTILITY(U,$J,358.3,21162,1,3,0)
;;=3^ABG
;;^UTILITY(U,$J,358.3,21163,0)
;;=29580^^69^869^14^^^^1
;;^UTILITY(U,$J,358.3,21163,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21163,1,2,0)
;;=2^29580
;;^UTILITY(U,$J,358.3,21163,1,3,0)
;;=3^STRAPPING, UNNA BOOT
;;^UTILITY(U,$J,358.3,21164,0)
;;=97602^^69^869^19^^^^1
;;^UTILITY(U,$J,358.3,21164,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI08N 19788 printed Sep 23, 2025@19:19:47 Page 2
IBDEI08N ; ; 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,21088,0)
+2 ;;=E11.65^^68^865^15
+3 ;;^UTILITY(U,$J,358.3,21088,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,21088,1,3,0)
+6 ;;=3^DM2 w/ Hyperglycemia
+7 ;;^UTILITY(U,$J,358.3,21088,1,4,0)
+8 ;;=4^E11.65
+9 ;;^UTILITY(U,$J,358.3,21088,2)
+10 ;;=^5002663
+11 ;;^UTILITY(U,$J,358.3,21089,0)
+12 ;;=E43.^^68^865^32
+13 ;;^UTILITY(U,$J,358.3,21089,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,21089,1,3,0)
+16 ;;=3^Malnutrition,Severe Protein-Calorie
+17 ;;^UTILITY(U,$J,358.3,21089,1,4,0)
+18 ;;=4^E43.
+19 ;;^UTILITY(U,$J,358.3,21089,2)
+20 ;;=^5002786
+21 ;;^UTILITY(U,$J,358.3,21090,0)
+22 ;;=E44.0^^68^865^31
+23 ;;^UTILITY(U,$J,358.3,21090,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,21090,1,3,0)
+26 ;;=3^Malnutrition,Moderate Protein-Calorie
+27 ;;^UTILITY(U,$J,358.3,21090,1,4,0)
+28 ;;=4^E44.0
+29 ;;^UTILITY(U,$J,358.3,21090,2)
+30 ;;=^5002787
+31 ;;^UTILITY(U,$J,358.3,21091,0)
+32 ;;=E44.1^^68^865^30
+33 ;;^UTILITY(U,$J,358.3,21091,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,21091,1,3,0)
+36 ;;=3^Malnutrition,Mild Protein-Calorie
+37 ;;^UTILITY(U,$J,358.3,21091,1,4,0)
+38 ;;=4^E44.1
+39 ;;^UTILITY(U,$J,358.3,21091,2)
+40 ;;=^5002788
+41 ;;^UTILITY(U,$J,358.3,21092,0)
+42 ;;=E66.01^^68^865^34
+43 ;;^UTILITY(U,$J,358.3,21092,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,21092,1,3,0)
+46 ;;=3^Obesity,Morbid
+47 ;;^UTILITY(U,$J,358.3,21092,1,4,0)
+48 ;;=4^E66.01
+49 ;;^UTILITY(U,$J,358.3,21092,2)
+50 ;;=^5002826
+51 ;;^UTILITY(U,$J,358.3,21093,0)
+52 ;;=E66.2^^68^865^35
+53 ;;^UTILITY(U,$J,358.3,21093,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,21093,1,3,0)
+56 ;;=3^Obesity,Morbid w/ Alveolar Hypoventilation (OHS)
+57 ;;^UTILITY(U,$J,358.3,21093,1,4,0)
+58 ;;=4^E66.2
+59 ;;^UTILITY(U,$J,358.3,21093,2)
+60 ;;=^5002829
+61 ;;^UTILITY(U,$J,358.3,21094,0)
+62 ;;=E66.9^^68^865^36
+63 ;;^UTILITY(U,$J,358.3,21094,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,21094,1,3,0)
+66 ;;=3^Obesity,Unspec
+67 ;;^UTILITY(U,$J,358.3,21094,1,4,0)
+68 ;;=4^E66.9
+69 ;;^UTILITY(U,$J,358.3,21094,2)
+70 ;;=^5002832
+71 ;;^UTILITY(U,$J,358.3,21095,0)
+72 ;;=Z68.1^^68^865^7
+73 ;;^UTILITY(U,$J,358.3,21095,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,21095,1,3,0)
+76 ;;=3^BMI 19.9 or less
+77 ;;^UTILITY(U,$J,358.3,21095,1,4,0)
+78 ;;=4^Z68.1
+79 ;;^UTILITY(U,$J,358.3,21095,2)
+80 ;;=^5063198
+81 ;;^UTILITY(U,$J,358.3,21096,0)
+82 ;;=Z68.41^^68^865^8
+83 ;;^UTILITY(U,$J,358.3,21096,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,21096,1,3,0)
+86 ;;=3^BMI 40.0-44.9
+87 ;;^UTILITY(U,$J,358.3,21096,1,4,0)
+88 ;;=4^Z68.41
+89 ;;^UTILITY(U,$J,358.3,21096,2)
+90 ;;=^5063219
+91 ;;^UTILITY(U,$J,358.3,21097,0)
+92 ;;=Z68.42^^68^865^9
+93 ;;^UTILITY(U,$J,358.3,21097,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,21097,1,3,0)
+96 ;;=3^BMI 45.0-49.9
+97 ;;^UTILITY(U,$J,358.3,21097,1,4,0)
+98 ;;=4^Z68.42
+99 ;;^UTILITY(U,$J,358.3,21097,2)
+100 ;;=^5063220
+101 ;;^UTILITY(U,$J,358.3,21098,0)
+102 ;;=Z68.43^^68^865^10
+103 ;;^UTILITY(U,$J,358.3,21098,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,21098,1,3,0)
+106 ;;=3^BMI 50.0-59.9
+107 ;;^UTILITY(U,$J,358.3,21098,1,4,0)
+108 ;;=4^Z68.43
+109 ;;^UTILITY(U,$J,358.3,21098,2)
+110 ;;=^5063221
+111 ;;^UTILITY(U,$J,358.3,21099,0)
+112 ;;=E11.622^^68^865^19
+113 ;;^UTILITY(U,$J,358.3,21099,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,21099,1,3,0)
+116 ;;=3^DM2 w/ Other Skin Ulcer
+117 ;;^UTILITY(U,$J,358.3,21099,1,4,0)
+118 ;;=4^E11.622
+119 ;;^UTILITY(U,$J,358.3,21099,2)
+120 ;;=^5002657
+121 ;;^UTILITY(U,$J,358.3,21100,0)
+122 ;;=E11.43^^68^865^12
+123 ;;^UTILITY(U,$J,358.3,21100,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,21100,1,3,0)
+126 ;;=3^DM2 w/ Autonomic Neuropathy
+127 ;;^UTILITY(U,$J,358.3,21100,1,4,0)
+128 ;;=4^E11.43
+129 ;;^UTILITY(U,$J,358.3,21100,2)
+130 ;;=^5002647
+131 ;;^UTILITY(U,$J,358.3,21101,0)
+132 ;;=E46.^^68^865^33
+133 ;;^UTILITY(U,$J,358.3,21101,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,21101,1,3,0)
+136 ;;=3^Malnutrition,Unspec Severity
+137 ;;^UTILITY(U,$J,358.3,21101,1,4,0)
+138 ;;=4^E46.
+139 ;;^UTILITY(U,$J,358.3,21101,2)
+140 ;;=^5002790
+141 ;;^UTILITY(U,$J,358.3,21102,0)
+142 ;;=Z56.0^^68^866^24
+143 ;;^UTILITY(U,$J,358.3,21102,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,21102,1,3,0)
+146 ;;=3^Unemployment,Unspec
+147 ;;^UTILITY(U,$J,358.3,21102,1,4,0)
+148 ;;=4^Z56.0
+149 ;;^UTILITY(U,$J,358.3,21102,2)
+150 ;;=^5063107
+151 ;;^UTILITY(U,$J,358.3,21103,0)
+152 ;;=Z56.3^^68^866^23
+153 ;;^UTILITY(U,$J,358.3,21103,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,21103,1,3,0)
+156 ;;=3^Stressful Work Schedule
+157 ;;^UTILITY(U,$J,358.3,21103,1,4,0)
+158 ;;=4^Z56.3
+159 ;;^UTILITY(U,$J,358.3,21103,2)
+160 ;;=^5063110
+161 ;;^UTILITY(U,$J,358.3,21104,0)
+162 ;;=Z56.5^^68^866^3
+163 ;;^UTILITY(U,$J,358.3,21104,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,21104,1,3,0)
+166 ;;=3^Difficult Work Conditions
+167 ;;^UTILITY(U,$J,358.3,21104,1,4,0)
+168 ;;=4^Z56.5
+169 ;;^UTILITY(U,$J,358.3,21104,2)
+170 ;;=^5063112
+171 ;;^UTILITY(U,$J,358.3,21105,0)
+172 ;;=Z56.89^^68^866^20
+173 ;;^UTILITY(U,$J,358.3,21105,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,21105,1,3,0)
+176 ;;=3^Problems Related to Employment,Other
+177 ;;^UTILITY(U,$J,358.3,21105,1,4,0)
+178 ;;=4^Z56.89
+179 ;;^UTILITY(U,$J,358.3,21105,2)
+180 ;;=^5063116
+181 ;;^UTILITY(U,$J,358.3,21106,0)
+182 ;;=Z56.6^^68^866^19
+183 ;;^UTILITY(U,$J,358.3,21106,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,21106,1,3,0)
+186 ;;=3^Physical & Mental Strain Related to Work,Other
+187 ;;^UTILITY(U,$J,358.3,21106,1,4,0)
+188 ;;=4^Z56.6
+189 ;;^UTILITY(U,$J,358.3,21106,2)
+190 ;;=^5063113
+191 ;;^UTILITY(U,$J,358.3,21107,0)
+192 ;;=Z57.0^^68^866^16
+193 ;;^UTILITY(U,$J,358.3,21107,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,21107,1,3,0)
+196 ;;=3^Occupational Exposure to Noise
+197 ;;^UTILITY(U,$J,358.3,21107,1,4,0)
+198 ;;=4^Z57.0
+199 ;;^UTILITY(U,$J,358.3,21107,2)
+200 ;;=^5063118
+201 ;;^UTILITY(U,$J,358.3,21108,0)
+202 ;;=Z57.6^^68^866^15
+203 ;;^UTILITY(U,$J,358.3,21108,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,21108,1,3,0)
+206 ;;=3^Occupational Exposure to Extreme Temperature
+207 ;;^UTILITY(U,$J,358.3,21108,1,4,0)
+208 ;;=4^Z57.6
+209 ;;^UTILITY(U,$J,358.3,21108,2)
+210 ;;=^5063125
+211 ;;^UTILITY(U,$J,358.3,21109,0)
+212 ;;=Z57.7^^68^866^18
+213 ;;^UTILITY(U,$J,358.3,21109,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,21109,1,3,0)
+216 ;;=3^Occupational Exposure to Vibration
+217 ;;^UTILITY(U,$J,358.3,21109,1,4,0)
+218 ;;=4^Z57.7
+219 ;;^UTILITY(U,$J,358.3,21109,2)
+220 ;;=^5063126
+221 ;;^UTILITY(U,$J,358.3,21110,0)
+222 ;;=Z57.8^^68^866^17
+223 ;;^UTILITY(U,$J,358.3,21110,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,21110,1,3,0)
+226 ;;=3^Occupational Exposure to Oth Risk Factors
+227 ;;^UTILITY(U,$J,358.3,21110,1,4,0)
+228 ;;=4^Z57.8
+229 ;;^UTILITY(U,$J,358.3,21110,2)
+230 ;;=^5063127
+231 ;;^UTILITY(U,$J,358.3,21111,0)
+232 ;;=Z59.01^^68^866^8
+233 ;;^UTILITY(U,$J,358.3,21111,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,21111,1,3,0)
+236 ;;=3^Homelessness,Sheltered (Shelter/Motel/Transitional)
+237 ;;^UTILITY(U,$J,358.3,21111,1,4,0)
+238 ;;=4^Z59.01
+239 ;;^UTILITY(U,$J,358.3,21111,2)
+240 ;;=^5161305
+241 ;;^UTILITY(U,$J,358.3,21112,0)
+242 ;;=Z59.02^^68^866^9
+243 ;;^UTILITY(U,$J,358.3,21112,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,21112,1,3,0)
+246 ;;=3^Homelessness,Unsheltered (Car/Park/Street)
+247 ;;^UTILITY(U,$J,358.3,21112,1,4,0)
+248 ;;=4^Z59.02
+249 ;;^UTILITY(U,$J,358.3,21112,2)
+250 ;;=^5161306
+251 ;;^UTILITY(U,$J,358.3,21113,0)
+252 ;;=Z59.00^^68^866^10
+253 ;;^UTILITY(U,$J,358.3,21113,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,21113,1,3,0)
+256 ;;=3^Homelessness,Unspec
+257 ;;^UTILITY(U,$J,358.3,21113,1,4,0)
+258 ;;=4^Z59.00
+259 ;;^UTILITY(U,$J,358.3,21113,2)
+260 ;;=^5161304
+261 ;;^UTILITY(U,$J,358.3,21114,0)
+262 ;;=Z59.1^^68^866^13
+263 ;;^UTILITY(U,$J,358.3,21114,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,21114,1,3,0)
+266 ;;=3^Inadequate Housing (Heating/Defects,etc.)
+267 ;;^UTILITY(U,$J,358.3,21114,1,4,0)
+268 ;;=4^Z59.1
+269 ;;^UTILITY(U,$J,358.3,21114,2)
+270 ;;=^5063130
+271 ;;^UTILITY(U,$J,358.3,21115,0)
+272 ;;=Z59.41^^68^866^7
+273 ;;^UTILITY(U,$J,358.3,21115,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,21115,1,3,0)
+276 ;;=3^Food Insecurity
+277 ;;^UTILITY(U,$J,358.3,21115,1,4,0)
+278 ;;=4^Z59.41
+279 ;;^UTILITY(U,$J,358.3,21115,2)
+280 ;;=^5161307
+281 ;;^UTILITY(U,$J,358.3,21116,0)
+282 ;;=Z59.6^^68^866^14
+283 ;;^UTILITY(U,$J,358.3,21116,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,21116,1,3,0)
+286 ;;=3^Low Income
+287 ;;^UTILITY(U,$J,358.3,21116,1,4,0)
+288 ;;=4^Z59.6
+289 ;;^UTILITY(U,$J,358.3,21116,2)
+290 ;;=^5063135
+291 ;;^UTILITY(U,$J,358.3,21117,0)
+292 ;;=Z59.811^^68^866^12
+293 ;;^UTILITY(U,$J,358.3,21117,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,21117,1,3,0)
+296 ;;=3^Housing Instability,Imminent Risk of Homelessness
+297 ;;^UTILITY(U,$J,358.3,21117,1,4,0)
+298 ;;=4^Z59.811
+299 ;;^UTILITY(U,$J,358.3,21117,2)
+300 ;;=^5161309
+301 ;;^UTILITY(U,$J,358.3,21118,0)
+302 ;;=Z59.812^^68^866^11
+303 ;;^UTILITY(U,$J,358.3,21118,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,21118,1,3,0)
+306 ;;=3^Housing Instability,Homelessness in Past 12 Months
+307 ;;^UTILITY(U,$J,358.3,21118,1,4,0)
+308 ;;=4^Z59.812
+309 ;;^UTILITY(U,$J,358.3,21118,2)
+310 ;;=^5161310
+311 ;;^UTILITY(U,$J,358.3,21119,0)
+312 ;;=Z63.0^^68^866^22
+313 ;;^UTILITY(U,$J,358.3,21119,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,21119,1,3,0)
+316 ;;=3^Problems w/ Spouse or Partner
+317 ;;^UTILITY(U,$J,358.3,21119,1,4,0)
+318 ;;=4^Z63.0
+319 ;;^UTILITY(U,$J,358.3,21119,2)
+320 ;;=^5063164
+321 ;;^UTILITY(U,$J,358.3,21120,0)
+322 ;;=Z63.4^^68^866^2
+323 ;;^UTILITY(U,$J,358.3,21120,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,21120,1,3,0)
+326 ;;=3^Bereavement
+327 ;;^UTILITY(U,$J,358.3,21120,1,4,0)
+328 ;;=4^Z63.4
+329 ;;^UTILITY(U,$J,358.3,21120,2)
+330 ;;=^5063168
+331 ;;^UTILITY(U,$J,358.3,21121,0)
+332 ;;=Z63.5^^68^866^4
+333 ;;^UTILITY(U,$J,358.3,21121,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,21121,1,3,0)
+336 ;;=3^Disruption of Family by Separation/Divorce
+337 ;;^UTILITY(U,$J,358.3,21121,1,4,0)
+338 ;;=4^Z63.5
+339 ;;^UTILITY(U,$J,358.3,21121,2)
+340 ;;=^5063169
+341 ;;^UTILITY(U,$J,358.3,21122,0)
+342 ;;=Z63.72^^68^866^1
+343 ;;^UTILITY(U,$J,358.3,21122,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,21122,1,3,0)
+346 ;;=3^Alcoholism/Drug Addiction in Family
+347 ;;^UTILITY(U,$J,358.3,21122,1,4,0)
+348 ;;=4^Z63.72
+349 ;;^UTILITY(U,$J,358.3,21122,2)
+350 ;;=^5063172
+351 ;;^UTILITY(U,$J,358.3,21123,0)
+352 ;;=Z63.8^^68^866^6
+353 ;;^UTILITY(U,$J,358.3,21123,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,21123,1,3,0)
+356 ;;=3^Family Discord
+357 ;;^UTILITY(U,$J,358.3,21123,1,4,0)
+358 ;;=4^Z63.8
+359 ;;^UTILITY(U,$J,358.3,21123,2)
+360 ;;=^5063174
+361 ;;^UTILITY(U,$J,358.3,21124,0)
+362 ;;=Z65.3^^68^866^21
+363 ;;^UTILITY(U,$J,358.3,21124,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,21124,1,3,0)
+366 ;;=3^Problems Related to Legal Circumstances
+367 ;;^UTILITY(U,$J,358.3,21124,1,4,0)
+368 ;;=4^Z65.3
+369 ;;^UTILITY(U,$J,358.3,21124,2)
+370 ;;=^5063182
+371 ;;^UTILITY(U,$J,358.3,21125,0)
+372 ;;=Z65.4^^68^866^25
+373 ;;^UTILITY(U,$J,358.3,21125,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,21125,1,3,0)
+376 ;;=3^Victim of Crime/Terrorism
+377 ;;^UTILITY(U,$J,358.3,21125,1,4,0)
+378 ;;=4^Z65.4
+379 ;;^UTILITY(U,$J,358.3,21125,2)
+380 ;;=^5063183
+381 ;;^UTILITY(U,$J,358.3,21126,0)
+382 ;;=Z65.5^^68^866^5
+383 ;;^UTILITY(U,$J,358.3,21126,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,21126,1,3,0)
+386 ;;=3^Exposure to Disaster/War/Oth Hostilities
+387 ;;^UTILITY(U,$J,358.3,21126,1,4,0)
+388 ;;=4^Z65.5
+389 ;;^UTILITY(U,$J,358.3,21126,2)
+390 ;;=^5063184
+391 ;;^UTILITY(U,$J,358.3,21127,0)
+392 ;;=J3301^^69^867^15^^^^1
+393 ;;^UTILITY(U,$J,358.3,21127,1,0)
+394 ;;=^358.31IA^3^2
+395 ;;^UTILITY(U,$J,358.3,21127,1,2,0)
+396 ;;=2^J3301
+397 ;;^UTILITY(U,$J,358.3,21127,1,3,0)
+398 ;;=3^KENALOG, PER 10 MG
+399 ;;^UTILITY(U,$J,358.3,21128,0)
+400 ;;=J9217^^69^867^17^^^^1
+401 ;;^UTILITY(U,$J,358.3,21128,1,0)
+402 ;;=^358.31IA^3^2
+403 ;;^UTILITY(U,$J,358.3,21128,1,2,0)
+404 ;;=2^J9217
+405 ;;^UTILITY(U,$J,358.3,21128,1,3,0)
+406 ;;=3^LUPRON DEPOT,PER 7.5MG
+407 ;;^UTILITY(U,$J,358.3,21129,0)
+408 ;;=J1885^^69^867^24^^^^1
+409 ;;^UTILITY(U,$J,358.3,21129,1,0)
+410 ;;=^358.31IA^3^2
+411 ;;^UTILITY(U,$J,358.3,21129,1,2,0)
+412 ;;=2^J1885
+413 ;;^UTILITY(U,$J,358.3,21129,1,3,0)
+414 ;;=3^TORADOL, PER 15MG
+415 ;;^UTILITY(U,$J,358.3,21130,0)
+416 ;;=J3420^^69^867^25^^^^1
+417 ;;^UTILITY(U,$J,358.3,21130,1,0)
+418 ;;=^358.31IA^3^2
+419 ;;^UTILITY(U,$J,358.3,21130,1,2,0)
+420 ;;=2^J3420
+421 ;;^UTILITY(U,$J,358.3,21130,1,3,0)
+422 ;;=3^VITAMIN B12, PER 1000MCG
+423 ;;^UTILITY(U,$J,358.3,21131,0)
+424 ;;=J2270^^69^867^19^^^^1
+425 ;;^UTILITY(U,$J,358.3,21131,1,0)
+426 ;;=^358.31IA^3^2
+427 ;;^UTILITY(U,$J,358.3,21131,1,2,0)
+428 ;;=2^J2270
+429 ;;^UTILITY(U,$J,358.3,21131,1,3,0)
+430 ;;=3^MORPHINE, PER 10MG
+431 ;;^UTILITY(U,$J,358.3,21132,0)
+432 ;;=J2060^^69^867^4^^^^1
+433 ;;^UTILITY(U,$J,358.3,21132,1,0)
+434 ;;=^358.31IA^3^2
+435 ;;^UTILITY(U,$J,358.3,21132,1,2,0)
+436 ;;=2^J2060
+437 ;;^UTILITY(U,$J,358.3,21132,1,3,0)
+438 ;;=3^ATIVAN/LORAZEPAM, 2 MG
+439 ;;^UTILITY(U,$J,358.3,21133,0)
+440 ;;=J1940^^69^867^16^^^^1
+441 ;;^UTILITY(U,$J,358.3,21133,1,0)
+442 ;;=^358.31IA^3^2
+443 ;;^UTILITY(U,$J,358.3,21133,1,2,0)
+444 ;;=2^J1940
+445 ;;^UTILITY(U,$J,358.3,21133,1,3,0)
+446 ;;=3^LASIX, PER 20 MG
+447 ;;^UTILITY(U,$J,358.3,21134,0)
+448 ;;=J0515^^69^867^9^^^^1
+449 ;;^UTILITY(U,$J,358.3,21134,1,0)
+450 ;;=^358.31IA^3^2
+451 ;;^UTILITY(U,$J,358.3,21134,1,2,0)
+452 ;;=2^J0515
+453 ;;^UTILITY(U,$J,358.3,21134,1,3,0)
+454 ;;=3^BENZOTROPINE, PER 1MG
+455 ;;^UTILITY(U,$J,358.3,21135,0)
+456 ;;=J1630^^69^867^13^^^^1
+457 ;;^UTILITY(U,$J,358.3,21135,1,0)
+458 ;;=^358.31IA^3^2
+459 ;;^UTILITY(U,$J,358.3,21135,1,2,0)
+460 ;;=2^J1630
+461 ;;^UTILITY(U,$J,358.3,21135,1,3,0)
+462 ;;=3^HALDOL,UP TO 5MG
+463 ;;^UTILITY(U,$J,358.3,21136,0)
+464 ;;=J1720^^69^867^14^^^^1
+465 ;;^UTILITY(U,$J,358.3,21136,1,0)
+466 ;;=^358.31IA^3^2
+467 ;;^UTILITY(U,$J,358.3,21136,1,2,0)
+468 ;;=2^J1720
+469 ;;^UTILITY(U,$J,358.3,21136,1,3,0)
+470 ;;=3^HYDROCORTISONE SOD SUCC,UP TO 100MG
+471 ;;^UTILITY(U,$J,358.3,21137,0)
+472 ;;=J0780^^69^867^11^^^^1
+473 ;;^UTILITY(U,$J,358.3,21137,1,0)
+474 ;;=^358.31IA^3^2
+475 ;;^UTILITY(U,$J,358.3,21137,1,2,0)
+476 ;;=2^J0780
+477 ;;^UTILITY(U,$J,358.3,21137,1,3,0)
+478 ;;=3^COMPAZINE,UP TO 10MG
+479 ;;^UTILITY(U,$J,358.3,21138,0)
+480 ;;=J2930^^69^867^21^^^^1
+481 ;;^UTILITY(U,$J,358.3,21138,1,0)
+482 ;;=^358.31IA^3^2
+483 ;;^UTILITY(U,$J,358.3,21138,1,2,0)
+484 ;;=2^J2930
+485 ;;^UTILITY(U,$J,358.3,21138,1,3,0)
+486 ;;=3^SOLU-MEDROL,UP TO 125MG
+487 ;;^UTILITY(U,$J,358.3,21139,0)
+488 ;;=96402^^69^867^3^^^^1
+489 ;;^UTILITY(U,$J,358.3,21139,1,0)
+490 ;;=^358.31IA^3^2
+491 ;;^UTILITY(U,$J,358.3,21139,1,2,0)
+492 ;;=2^96402
+493 ;;^UTILITY(U,$J,358.3,21139,1,3,0)
+494 ;;=3^ANTI-NEOPLASTIC HORMONE INJ IM
+495 ;;^UTILITY(U,$J,358.3,21140,0)
+496 ;;=96372^^69^867^2^^^^1
+497 ;;^UTILITY(U,$J,358.3,21140,1,0)
+498 ;;=^358.31IA^3^2
+499 ;;^UTILITY(U,$J,358.3,21140,1,2,0)
+500 ;;=2^96372
+501 ;;^UTILITY(U,$J,358.3,21140,1,3,0)
+502 ;;=3^ADMINISTRATION OF INJ, SC/IM
+503 ;;^UTILITY(U,$J,358.3,21141,0)
+504 ;;=J0461^^69^867^5^^^^1
+505 ;;^UTILITY(U,$J,358.3,21141,1,0)
+506 ;;=^358.31IA^3^2
+507 ;;^UTILITY(U,$J,358.3,21141,1,2,0)
+508 ;;=2^J0461
+509 ;;^UTILITY(U,$J,358.3,21141,1,3,0)
+510 ;;=3^ATROPINE SULFATE,0.01 MG
+511 ;;^UTILITY(U,$J,358.3,21142,0)
+512 ;;=J2794^^69^867^20^^^^1
+513 ;;^UTILITY(U,$J,358.3,21142,1,0)
+514 ;;=^358.31IA^3^2
+515 ;;^UTILITY(U,$J,358.3,21142,1,2,0)
+516 ;;=2^J2794
+517 ;;^UTILITY(U,$J,358.3,21142,1,3,0)
+518 ;;=3^RISPERIDONE PER 0.5MG
+519 ;;^UTILITY(U,$J,358.3,21143,0)
+520 ;;=J1040^^69^867^12^^^^1
+521 ;;^UTILITY(U,$J,358.3,21143,1,0)
+522 ;;=^358.31IA^3^2
+523 ;;^UTILITY(U,$J,358.3,21143,1,2,0)
+524 ;;=2^J1040
+525 ;;^UTILITY(U,$J,358.3,21143,1,3,0)
+526 ;;=3^DEPOMEDROL PER 80MG
+527 ;;^UTILITY(U,$J,358.3,21144,0)
+528 ;;=J1050^^69^867^18^^^^1
+529 ;;^UTILITY(U,$J,358.3,21144,1,0)
+530 ;;=^358.31IA^3^2
+531 ;;^UTILITY(U,$J,358.3,21144,1,2,0)
+532 ;;=2^J1050
+533 ;;^UTILITY(U,$J,358.3,21144,1,3,0)
+534 ;;=3^MEDROXYPROGESTERONE 1MG
+535 ;;^UTILITY(U,$J,358.3,21145,0)
+536 ;;=J0153^^69^867^1^^^^1
+537 ;;^UTILITY(U,$J,358.3,21145,1,0)
+538 ;;=^358.31IA^3^2
+539 ;;^UTILITY(U,$J,358.3,21145,1,2,0)
+540 ;;=2^J0153
+541 ;;^UTILITY(U,$J,358.3,21145,1,3,0)
+542 ;;=3^ADENOSINE 1MG
+543 ;;^UTILITY(U,$J,358.3,21146,0)
+544 ;;=J1071^^69^867^22^^^^1
+545 ;;^UTILITY(U,$J,358.3,21146,1,0)
+546 ;;=^358.31IA^3^2
+547 ;;^UTILITY(U,$J,358.3,21146,1,2,0)
+548 ;;=2^J1071
+549 ;;^UTILITY(U,$J,358.3,21146,1,3,0)
+550 ;;=3^TESTOSTERONE CYPIONATE 1MG
+551 ;;^UTILITY(U,$J,358.3,21147,0)
+552 ;;=J3121^^69^867^23^^^^1
+553 ;;^UTILITY(U,$J,358.3,21147,1,0)
+554 ;;=^358.31IA^3^2
+555 ;;^UTILITY(U,$J,358.3,21147,1,2,0)
+556 ;;=2^J3121
+557 ;;^UTILITY(U,$J,358.3,21147,1,3,0)
+558 ;;=3^TESTOSTERONE ENANTHATE UP TO 1MG
+559 ;;^UTILITY(U,$J,358.3,21148,0)
+560 ;;=90586^^69^867^7^^^^1
+561 ;;^UTILITY(U,$J,358.3,21148,1,0)
+562 ;;=^358.31IA^3^2
+563 ;;^UTILITY(U,$J,358.3,21148,1,2,0)
+564 ;;=2^90586
+565 ;;^UTILITY(U,$J,358.3,21148,1,3,0)
+566 ;;=3^BCG FOR BLADDER CA INTRAVESICAL
+567 ;;^UTILITY(U,$J,358.3,21149,0)
+568 ;;=90585^^69^867^8^^^^1
+569 ;;^UTILITY(U,$J,358.3,21149,1,0)
+570 ;;=^358.31IA^3^2
+571 ;;^UTILITY(U,$J,358.3,21149,1,2,0)
+572 ;;=2^90585
+573 ;;^UTILITY(U,$J,358.3,21149,1,3,0)
+574 ;;=3^BCG FOR TB,PERCUTANEOUS
+575 ;;^UTILITY(U,$J,358.3,21150,0)
+576 ;;=J9030^^69^867^6^^^^1
+577 ;;^UTILITY(U,$J,358.3,21150,1,0)
+578 ;;=^358.31IA^3^2
+579 ;;^UTILITY(U,$J,358.3,21150,1,2,0)
+580 ;;=2^J9030
+581 ;;^UTILITY(U,$J,358.3,21150,1,3,0)
+582 ;;=3^BCG LIVE,INTRAVESICAL 1MG (81MG W/ SALINE)
+583 ;;^UTILITY(U,$J,358.3,21151,0)
+584 ;;=51720^^69^867^10^^^^1
+585 ;;^UTILITY(U,$J,358.3,21151,1,0)
+586 ;;=^358.31IA^3^2
+587 ;;^UTILITY(U,$J,358.3,21151,1,2,0)
+588 ;;=2^51720
+589 ;;^UTILITY(U,$J,358.3,21151,1,3,0)
+590 ;;=3^BLADDER INSTILLATION OF ANTI-CA MED
+591 ;;^UTILITY(U,$J,358.3,21152,0)
+592 ;;=86485^^69^868^1^^^^1
+593 ;;^UTILITY(U,$J,358.3,21152,1,0)
+594 ;;=^358.31IA^3^2
+595 ;;^UTILITY(U,$J,358.3,21152,1,2,0)
+596 ;;=2^86485
+597 ;;^UTILITY(U,$J,358.3,21152,1,3,0)
+598 ;;=3^CANDIDA
+599 ;;^UTILITY(U,$J,358.3,21153,0)
+600 ;;=86580^^69^868^5^^^^1
+601 ;;^UTILITY(U,$J,358.3,21153,1,0)
+602 ;;=^358.31IA^3^2
+603 ;;^UTILITY(U,$J,358.3,21153,1,2,0)
+604 ;;=2^86580
+605 ;;^UTILITY(U,$J,358.3,21153,1,3,0)
+606 ;;=3^TB
+607 ;;^UTILITY(U,$J,358.3,21154,0)
+608 ;;=95024^^69^868^3^^^^1
+609 ;;^UTILITY(U,$J,358.3,21154,1,0)
+610 ;;=^358.31IA^3^2
+611 ;;^UTILITY(U,$J,358.3,21154,1,2,0)
+612 ;;=2^95024
+613 ;;^UTILITY(U,$J,358.3,21154,1,3,0)
+614 ;;=3^INTRADERMALS (EACH)
+615 ;;^UTILITY(U,$J,358.3,21155,0)
+616 ;;=86510^^69^868^2^^^^1
+617 ;;^UTILITY(U,$J,358.3,21155,1,0)
+618 ;;=^358.31IA^3^2
+619 ;;^UTILITY(U,$J,358.3,21155,1,2,0)
+620 ;;=2^86510
+621 ;;^UTILITY(U,$J,358.3,21155,1,3,0)
+622 ;;=3^HISTOPLASMOSIS
+623 ;;^UTILITY(U,$J,358.3,21156,0)
+624 ;;=86486^^69^868^4^^^^1
+625 ;;^UTILITY(U,$J,358.3,21156,1,0)
+626 ;;=^358.31IA^3^2
+627 ;;^UTILITY(U,$J,358.3,21156,1,2,0)
+628 ;;=2^86486
+629 ;;^UTILITY(U,$J,358.3,21156,1,3,0)
+630 ;;=3^MUMPS
+631 ;;^UTILITY(U,$J,358.3,21157,0)
+632 ;;=94640^^69^869^13^^^^1
+633 ;;^UTILITY(U,$J,358.3,21157,1,0)
+634 ;;=^358.31IA^3^2
+635 ;;^UTILITY(U,$J,358.3,21157,1,2,0)
+636 ;;=2^94640
+637 ;;^UTILITY(U,$J,358.3,21157,1,3,0)
+638 ;;=3^NEBULIZER TREATMENT
+639 ;;^UTILITY(U,$J,358.3,21158,0)
+640 ;;=82948^^69^869^4^^^^1
+641 ;;^UTILITY(U,$J,358.3,21158,1,0)
+642 ;;=^358.31IA^3^2
+643 ;;^UTILITY(U,$J,358.3,21158,1,2,0)
+644 ;;=2^82948
+645 ;;^UTILITY(U,$J,358.3,21158,1,3,0)
+646 ;;=3^GLUCOSE FINGER STICK
+647 ;;^UTILITY(U,$J,358.3,21159,0)
+648 ;;=11719^^69^869^15^^^^1
+649 ;;^UTILITY(U,$J,358.3,21159,1,0)
+650 ;;=^358.31IA^3^2
+651 ;;^UTILITY(U,$J,358.3,21159,1,2,0)
+652 ;;=2^11719
+653 ;;^UTILITY(U,$J,358.3,21159,1,3,0)
+654 ;;=3^TRIM NAILS (NONDYSTROPHIC)
+655 ;;^UTILITY(U,$J,358.3,21160,0)
+656 ;;=81002^^69^869^16^^^^1
+657 ;;^UTILITY(U,$J,358.3,21160,1,0)
+658 ;;=^358.31IA^3^2
+659 ;;^UTILITY(U,$J,358.3,21160,1,2,0)
+660 ;;=2^81002
+661 ;;^UTILITY(U,$J,358.3,21160,1,3,0)
+662 ;;=3^UA DIPSTICK
+663 ;;^UTILITY(U,$J,358.3,21161,0)
+664 ;;=93005^^69^869^3^^^^1
+665 ;;^UTILITY(U,$J,358.3,21161,1,0)
+666 ;;=^358.31IA^3^2
+667 ;;^UTILITY(U,$J,358.3,21161,1,2,0)
+668 ;;=2^93005
+669 ;;^UTILITY(U,$J,358.3,21161,1,3,0)
+670 ;;=3^EKG
+671 ;;^UTILITY(U,$J,358.3,21162,0)
+672 ;;=36600^^69^869^1^^^^1
+673 ;;^UTILITY(U,$J,358.3,21162,1,0)
+674 ;;=^358.31IA^3^2
+675 ;;^UTILITY(U,$J,358.3,21162,1,2,0)
+676 ;;=2^36600
+677 ;;^UTILITY(U,$J,358.3,21162,1,3,0)
+678 ;;=3^ABG
+679 ;;^UTILITY(U,$J,358.3,21163,0)
+680 ;;=29580^^69^869^14^^^^1
+681 ;;^UTILITY(U,$J,358.3,21163,1,0)
+682 ;;=^358.31IA^3^2
+683 ;;^UTILITY(U,$J,358.3,21163,1,2,0)
+684 ;;=2^29580
+685 ;;^UTILITY(U,$J,358.3,21163,1,3,0)
+686 ;;=3^STRAPPING, UNNA BOOT
+687 ;;^UTILITY(U,$J,358.3,21164,0)
+688 ;;=97602^^69^869^19^^^^1
+689 ;;^UTILITY(U,$J,358.3,21164,1,0)
+690 ;;=^358.31IA^3^2
