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

IBDEI08N.m

Go to the documentation of this file.
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