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

IBDEI0AN.m

Go to the documentation of this file.
IBDEI0AN ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,25743,1,4,0)
 ;;=4^Z11.1
 ;;^UTILITY(U,$J,358.3,25743,2)
 ;;=^5062670
 ;;^UTILITY(U,$J,358.3,25744,0)
 ;;=Z13.89^^114^1348^2
 ;;^UTILITY(U,$J,358.3,25744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25744,1,3,0)
 ;;=3^Screening for Other Disorders
 ;;^UTILITY(U,$J,358.3,25744,1,4,0)
 ;;=4^Z13.89
 ;;^UTILITY(U,$J,358.3,25744,2)
 ;;=^5062720
 ;;^UTILITY(U,$J,358.3,25745,0)
 ;;=Z12.9^^114^1348^1
 ;;^UTILITY(U,$J,358.3,25745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25745,1,3,0)
 ;;=3^Screening for Malig Neop,Site Unspec
 ;;^UTILITY(U,$J,358.3,25745,1,4,0)
 ;;=4^Z12.9
 ;;^UTILITY(U,$J,358.3,25745,2)
 ;;=^5062698
 ;;^UTILITY(U,$J,358.3,25746,0)
 ;;=F10.10^^114^1349^6
 ;;^UTILITY(U,$J,358.3,25746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25746,1,3,0)
 ;;=3^Alcohol Abuse,Uncomp
 ;;^UTILITY(U,$J,358.3,25746,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,25746,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,25747,0)
 ;;=F10.20^^114^1349^8
 ;;^UTILITY(U,$J,358.3,25747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25747,1,3,0)
 ;;=3^Alcohol Dependence,Uncomp
 ;;^UTILITY(U,$J,358.3,25747,1,4,0)
 ;;=4^F10.20
 ;;^UTILITY(U,$J,358.3,25747,2)
 ;;=^5003081
 ;;^UTILITY(U,$J,358.3,25748,0)
 ;;=F10.229^^114^1349^7
 ;;^UTILITY(U,$J,358.3,25748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25748,1,3,0)
 ;;=3^Alcohol Dependence w/ Intoxication,Unspec
 ;;^UTILITY(U,$J,358.3,25748,1,4,0)
 ;;=4^F10.229
 ;;^UTILITY(U,$J,358.3,25748,2)
 ;;=^5003085
 ;;^UTILITY(U,$J,358.3,25749,0)
 ;;=F12.10^^114^1349^13
 ;;^UTILITY(U,$J,358.3,25749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25749,1,3,0)
 ;;=3^Cannabis Abuse,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25749,1,4,0)
 ;;=4^F12.10
 ;;^UTILITY(U,$J,358.3,25749,2)
 ;;=^5003155
 ;;^UTILITY(U,$J,358.3,25750,0)
 ;;=F12.20^^114^1349^14
 ;;^UTILITY(U,$J,358.3,25750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25750,1,3,0)
 ;;=3^Cannabis Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25750,1,4,0)
 ;;=4^F12.20
 ;;^UTILITY(U,$J,358.3,25750,2)
 ;;=^5003166
 ;;^UTILITY(U,$J,358.3,25751,0)
 ;;=F14.10^^114^1349^17
 ;;^UTILITY(U,$J,358.3,25751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25751,1,3,0)
 ;;=3^Cocaine Abuse,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25751,1,4,0)
 ;;=4^F14.10
 ;;^UTILITY(U,$J,358.3,25751,2)
 ;;=^5003239
 ;;^UTILITY(U,$J,358.3,25752,0)
 ;;=F14.20^^114^1349^18
 ;;^UTILITY(U,$J,358.3,25752,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25752,1,3,0)
 ;;=3^Cocaine Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25752,1,4,0)
 ;;=4^F14.20
 ;;^UTILITY(U,$J,358.3,25752,2)
 ;;=^5003253
 ;;^UTILITY(U,$J,358.3,25753,0)
 ;;=F16.10^^114^1349^20
 ;;^UTILITY(U,$J,358.3,25753,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25753,1,3,0)
 ;;=3^Hallucinogen Abuse,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25753,1,4,0)
 ;;=4^F16.10
 ;;^UTILITY(U,$J,358.3,25753,2)
 ;;=^5003323
 ;;^UTILITY(U,$J,358.3,25754,0)
 ;;=F16.20^^114^1349^21
 ;;^UTILITY(U,$J,358.3,25754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25754,1,3,0)
 ;;=3^Hallucinogen Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25754,1,4,0)
 ;;=4^F16.20
 ;;^UTILITY(U,$J,358.3,25754,2)
 ;;=^5003336
 ;;^UTILITY(U,$J,358.3,25755,0)
 ;;=F18.10^^114^1349^23
 ;;^UTILITY(U,$J,358.3,25755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25755,1,3,0)
 ;;=3^Inhalant Abuse,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25755,1,4,0)
 ;;=4^F18.10
 ;;^UTILITY(U,$J,358.3,25755,2)
 ;;=^5003380
 ;;^UTILITY(U,$J,358.3,25756,0)
 ;;=F17.200^^114^1349^26
 ;;^UTILITY(U,$J,358.3,25756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25756,1,3,0)
 ;;=3^Nicotine Dependence,Unspec,Uncomp
 ;;^UTILITY(U,$J,358.3,25756,1,4,0)
 ;;=4^F17.200
 ;;^UTILITY(U,$J,358.3,25756,2)
 ;;=^5003360
 ;;^UTILITY(U,$J,358.3,25757,0)
 ;;=F11.10^^114^1349^28
 ;;^UTILITY(U,$J,358.3,25757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25757,1,3,0)
 ;;=3^Opioid Abuse,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25757,1,4,0)
 ;;=4^F11.10
 ;;^UTILITY(U,$J,358.3,25757,2)
 ;;=^5003114
 ;;^UTILITY(U,$J,358.3,25758,0)
 ;;=F11.20^^114^1349^29
 ;;^UTILITY(U,$J,358.3,25758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25758,1,3,0)
 ;;=3^Opioid Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,25758,1,4,0)
 ;;=4^F11.20
 ;;^UTILITY(U,$J,358.3,25758,2)
 ;;=^5003127
 ;;^UTILITY(U,$J,358.3,25759,0)
 ;;=F13.10^^114^1349^34
 ;;^UTILITY(U,$J,358.3,25759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25759,1,3,0)
 ;;=3^Sedative,Hypnotic or Anxiolytic Abuse,Uncomp
 ;;^UTILITY(U,$J,358.3,25759,1,4,0)
 ;;=4^F13.10
 ;;^UTILITY(U,$J,358.3,25759,2)
 ;;=^5003189
 ;;^UTILITY(U,$J,358.3,25760,0)
 ;;=F13.20^^114^1349^35
 ;;^UTILITY(U,$J,358.3,25760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25760,1,3,0)
 ;;=3^Sedative,Hypnotic or Anxiolytic Dependence,Uncomp
 ;;^UTILITY(U,$J,358.3,25760,1,4,0)
 ;;=4^F13.20
 ;;^UTILITY(U,$J,358.3,25760,2)
 ;;=^5003202
 ;;^UTILITY(U,$J,358.3,25761,0)
 ;;=F19.20^^114^1349^32
 ;;^UTILITY(U,$J,358.3,25761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25761,1,3,0)
 ;;=3^Psychoactive Substance Dependence,Uncomp
 ;;^UTILITY(U,$J,358.3,25761,1,4,0)
 ;;=4^F19.20
 ;;^UTILITY(U,$J,358.3,25761,2)
 ;;=^5003431
 ;;^UTILITY(U,$J,358.3,25762,0)
 ;;=F15.10^^114^1349^37
 ;;^UTILITY(U,$J,358.3,25762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25762,1,3,0)
 ;;=3^Stimulant Abuse,Uncomp
 ;;^UTILITY(U,$J,358.3,25762,1,4,0)
 ;;=4^F15.10
 ;;^UTILITY(U,$J,358.3,25762,2)
 ;;=^5003282
 ;;^UTILITY(U,$J,358.3,25763,0)
 ;;=F15.20^^114^1349^38
 ;;^UTILITY(U,$J,358.3,25763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25763,1,3,0)
 ;;=3^Stimulant Dependence,Uncomp
 ;;^UTILITY(U,$J,358.3,25763,1,4,0)
 ;;=4^F15.20
 ;;^UTILITY(U,$J,358.3,25763,2)
 ;;=^5003295
 ;;^UTILITY(U,$J,358.3,25764,0)
 ;;=F19.10^^114^1349^31
 ;;^UTILITY(U,$J,358.3,25764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25764,1,3,0)
 ;;=3^Psychoactive Substance Abuse,Uncomp
 ;;^UTILITY(U,$J,358.3,25764,1,4,0)
 ;;=4^F19.10
 ;;^UTILITY(U,$J,358.3,25764,2)
 ;;=^5003416
 ;;^UTILITY(U,$J,358.3,25765,0)
 ;;=F17.220^^114^1349^24
 ;;^UTILITY(U,$J,358.3,25765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25765,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomp
 ;;^UTILITY(U,$J,358.3,25765,1,4,0)
 ;;=4^F17.220
 ;;^UTILITY(U,$J,358.3,25765,2)
 ;;=^5003370
 ;;^UTILITY(U,$J,358.3,25766,0)
 ;;=F17.210^^114^1349^25
 ;;^UTILITY(U,$J,358.3,25766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25766,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes,Uncomp
 ;;^UTILITY(U,$J,358.3,25766,1,4,0)
 ;;=4^F17.210
 ;;^UTILITY(U,$J,358.3,25766,2)
 ;;=^5003365
 ;;^UTILITY(U,$J,358.3,25767,0)
 ;;=F10.11^^114^1349^5
 ;;^UTILITY(U,$J,358.3,25767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25767,1,3,0)
 ;;=3^Alcohol Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25767,1,4,0)
 ;;=4^F10.11
 ;;^UTILITY(U,$J,358.3,25767,2)
 ;;=^268230
 ;;^UTILITY(U,$J,358.3,25768,0)
 ;;=F12.11^^114^1349^15
 ;;^UTILITY(U,$J,358.3,25768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25768,1,3,0)
 ;;=3^Cannabis,In Remission
 ;;^UTILITY(U,$J,358.3,25768,1,4,0)
 ;;=4^F12.11
 ;;^UTILITY(U,$J,358.3,25768,2)
 ;;=^268236
 ;;^UTILITY(U,$J,358.3,25769,0)
 ;;=F14.11^^114^1349^16
 ;;^UTILITY(U,$J,358.3,25769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25769,1,3,0)
 ;;=3^Cocaine Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25769,1,4,0)
 ;;=4^F14.11
 ;;^UTILITY(U,$J,358.3,25769,2)
 ;;=^268249
 ;;^UTILITY(U,$J,358.3,25770,0)
 ;;=F16.11^^114^1349^19
 ;;^UTILITY(U,$J,358.3,25770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25770,1,3,0)
 ;;=3^Hallucinogen Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25770,1,4,0)
 ;;=4^F16.11
 ;;^UTILITY(U,$J,358.3,25770,2)
 ;;=^268239
 ;;^UTILITY(U,$J,358.3,25771,0)
 ;;=F18.11^^114^1349^22
 ;;^UTILITY(U,$J,358.3,25771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25771,1,3,0)
 ;;=3^Inhalant Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25771,1,4,0)
 ;;=4^F18.11
 ;;^UTILITY(U,$J,358.3,25771,2)
 ;;=^5151305
 ;;^UTILITY(U,$J,358.3,25772,0)
 ;;=F11.11^^114^1349^27
 ;;^UTILITY(U,$J,358.3,25772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25772,1,3,0)
 ;;=3^Opioid Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25772,1,4,0)
 ;;=4^F11.11
 ;;^UTILITY(U,$J,358.3,25772,2)
 ;;=^268246
 ;;^UTILITY(U,$J,358.3,25773,0)
 ;;=F19.11^^114^1349^30
 ;;^UTILITY(U,$J,358.3,25773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25773,1,3,0)
 ;;=3^Psychoactive Substance Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25773,1,4,0)
 ;;=4^F19.11
 ;;^UTILITY(U,$J,358.3,25773,2)
 ;;=^5151306
 ;;^UTILITY(U,$J,358.3,25774,0)
 ;;=F13.11^^114^1349^33
 ;;^UTILITY(U,$J,358.3,25774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25774,1,3,0)
 ;;=3^Sedative,Hypnotic or Anxiolytic Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25774,1,4,0)
 ;;=4^F13.11
 ;;^UTILITY(U,$J,358.3,25774,2)
 ;;=^331938
 ;;^UTILITY(U,$J,358.3,25775,0)
 ;;=F15.11^^114^1349^36
 ;;^UTILITY(U,$J,358.3,25775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25775,1,3,0)
 ;;=3^Stimulant Abuse,In Remission
 ;;^UTILITY(U,$J,358.3,25775,1,4,0)
 ;;=4^F15.11
 ;;^UTILITY(U,$J,358.3,25775,2)
 ;;=^5151304
 ;;^UTILITY(U,$J,358.3,25776,0)
 ;;=F10.130^^114^1349^3
 ;;^UTILITY(U,$J,358.3,25776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25776,1,3,0)
 ;;=3^Alcohol Abuse w/ Withdrawal,Uncomp
 ;;^UTILITY(U,$J,358.3,25776,1,4,0)
 ;;=4^F10.130
 ;;^UTILITY(U,$J,358.3,25776,2)
 ;;=^5159130
 ;;^UTILITY(U,$J,358.3,25777,0)
 ;;=F10.131^^114^1349^1
 ;;^UTILITY(U,$J,358.3,25777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25777,1,3,0)
 ;;=3^Alcohol Abuse w/ Withdrawal Delirium
 ;;^UTILITY(U,$J,358.3,25777,1,4,0)
 ;;=4^F10.131
 ;;^UTILITY(U,$J,358.3,25777,2)
 ;;=^5159131
 ;;^UTILITY(U,$J,358.3,25778,0)
 ;;=F10.132^^114^1349^2
 ;;^UTILITY(U,$J,358.3,25778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25778,1,3,0)
 ;;=3^Alcohol Abuse w/ Withdrawal w/ Perceptual Disturbance
 ;;^UTILITY(U,$J,358.3,25778,1,4,0)
 ;;=4^F10.132
 ;;^UTILITY(U,$J,358.3,25778,2)
 ;;=^5159132
 ;;^UTILITY(U,$J,358.3,25779,0)
 ;;=F10.139^^114^1349^4
 ;;^UTILITY(U,$J,358.3,25779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25779,1,3,0)
 ;;=3^Alcohol Abuse w/ Withdrawal,Unspec
 ;;^UTILITY(U,$J,358.3,25779,1,4,0)
 ;;=4^F10.139
 ;;^UTILITY(U,$J,358.3,25779,2)
 ;;=^5159133
 ;;^UTILITY(U,$J,358.3,25780,0)
 ;;=F10.930^^114^1349^11
 ;;^UTILITY(U,$J,358.3,25780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25780,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal,Uncomp
 ;;^UTILITY(U,$J,358.3,25780,1,4,0)
 ;;=4^F10.930
 ;;^UTILITY(U,$J,358.3,25780,2)
 ;;=^5159134
 ;;^UTILITY(U,$J,358.3,25781,0)
 ;;=F10.931^^114^1349^9
 ;;^UTILITY(U,$J,358.3,25781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25781,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal Delirium
 ;;^UTILITY(U,$J,358.3,25781,1,4,0)
 ;;=4^F10.931
 ;;^UTILITY(U,$J,358.3,25781,2)
 ;;=^5159135
 ;;^UTILITY(U,$J,358.3,25782,0)
 ;;=F10.932^^114^1349^10
 ;;^UTILITY(U,$J,358.3,25782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25782,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal w/ Perceptual Disturbance
 ;;^UTILITY(U,$J,358.3,25782,1,4,0)
 ;;=4^F10.932
 ;;^UTILITY(U,$J,358.3,25782,2)
 ;;=^5159136
 ;;^UTILITY(U,$J,358.3,25783,0)
 ;;=F10.939^^114^1349^12
 ;;^UTILITY(U,$J,358.3,25783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25783,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal,Unspec
 ;;^UTILITY(U,$J,358.3,25783,1,4,0)
 ;;=4^F10.939
 ;;^UTILITY(U,$J,358.3,25783,2)
 ;;=^5159137
 ;;^UTILITY(U,$J,358.3,25784,0)
 ;;=R63.4^^114^1350^12
 ;;^UTILITY(U,$J,358.3,25784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25784,1,3,0)
 ;;=3^Weight Loss,Abnormal
 ;;^UTILITY(U,$J,358.3,25784,1,4,0)
 ;;=4^R63.4
 ;;^UTILITY(U,$J,358.3,25784,2)
 ;;=^5019542
 ;;^UTILITY(U,$J,358.3,25785,0)
 ;;=R63.0^^114^1350^2
 ;;^UTILITY(U,$J,358.3,25785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25785,1,3,0)
 ;;=3^Anorexia
 ;;^UTILITY(U,$J,358.3,25785,1,4,0)
 ;;=4^R63.0
 ;;^UTILITY(U,$J,358.3,25785,2)
 ;;=^7939
 ;;^UTILITY(U,$J,358.3,25786,0)
 ;;=F23.^^114^1350^10
 ;;^UTILITY(U,$J,358.3,25786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25786,1,3,0)
 ;;=3^Psychotic Disorder,Brief
 ;;^UTILITY(U,$J,358.3,25786,1,4,0)
 ;;=4^F23.
 ;;^UTILITY(U,$J,358.3,25786,2)
 ;;=^5003479
 ;;^UTILITY(U,$J,358.3,25787,0)
 ;;=F22.^^114^1350^3
 ;;^UTILITY(U,$J,358.3,25787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25787,1,3,0)
 ;;=3^Delusional Disorders
 ;;^UTILITY(U,$J,358.3,25787,1,4,0)
 ;;=4^F22.
 ;;^UTILITY(U,$J,358.3,25787,2)
 ;;=^5003478
 ;;^UTILITY(U,$J,358.3,25788,0)
 ;;=R44.3^^114^1350^5
 ;;^UTILITY(U,$J,358.3,25788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25788,1,3,0)
 ;;=3^Hallucinations,Unspec
 ;;^UTILITY(U,$J,358.3,25788,1,4,0)
 ;;=4^R44.3
 ;;^UTILITY(U,$J,358.3,25788,2)
 ;;=^5019458
 ;;^UTILITY(U,$J,358.3,25789,0)
 ;;=F52.0^^114^1350^7
 ;;^UTILITY(U,$J,358.3,25789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25789,1,3,0)
 ;;=3^Hypoactive Sexual Desire Disorder
 ;;^UTILITY(U,$J,358.3,25789,1,4,0)
 ;;=4^F52.0
 ;;^UTILITY(U,$J,358.3,25789,2)
 ;;=^5003618
 ;;^UTILITY(U,$J,358.3,25790,0)
 ;;=G47.00^^114^1350^8
 ;;^UTILITY(U,$J,358.3,25790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25790,1,3,0)
 ;;=3^Insomnia,Unspec
 ;;^UTILITY(U,$J,358.3,25790,1,4,0)
 ;;=4^G47.00
 ;;^UTILITY(U,$J,358.3,25790,2)
 ;;=^332924
 ;;^UTILITY(U,$J,358.3,25791,0)
 ;;=R45.4^^114^1350^9
 ;;^UTILITY(U,$J,358.3,25791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25791,1,3,0)
 ;;=3^Irritability & Anger
 ;;^UTILITY(U,$J,358.3,25791,1,4,0)
 ;;=4^R45.4
 ;;^UTILITY(U,$J,358.3,25791,2)
 ;;=^5019465
 ;;^UTILITY(U,$J,358.3,25792,0)
 ;;=R53.83^^114^1350^4
 ;;^UTILITY(U,$J,358.3,25792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25792,1,3,0)
 ;;=3^Fatigue
 ;;^UTILITY(U,$J,358.3,25792,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,25792,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,25793,0)
 ;;=R63.5^^114^1350^11
 ;;^UTILITY(U,$J,358.3,25793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25793,1,3,0)
 ;;=3^Weight Gain,Abnormal
 ;;^UTILITY(U,$J,358.3,25793,1,4,0)
 ;;=4^R63.5
 ;;^UTILITY(U,$J,358.3,25793,2)
 ;;=^5019543
 ;;^UTILITY(U,$J,358.3,25794,0)
 ;;=R41.82^^114^1350^1
 ;;^UTILITY(U,$J,358.3,25794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25794,1,3,0)
 ;;=3^Altered Mental Status
 ;;^UTILITY(U,$J,358.3,25794,1,4,0)
 ;;=4^R41.82
 ;;^UTILITY(U,$J,358.3,25794,2)
 ;;=^5019441
 ;;^UTILITY(U,$J,358.3,25795,0)
 ;;=R45.850^^114^1350^6
 ;;^UTILITY(U,$J,358.3,25795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25795,1,3,0)
 ;;=3^Homicidal Ideations
 ;;^UTILITY(U,$J,358.3,25795,1,4,0)
 ;;=4^R45.850
 ;;^UTILITY(U,$J,358.3,25795,2)
 ;;=^5019473
 ;;^UTILITY(U,$J,358.3,25796,0)
 ;;=I80.201^^114^1351^5
 ;;^UTILITY(U,$J,358.3,25796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25796,1,3,0)
 ;;=3^Thombophlb & Phlbts Deep Vessels Rt Lower Extrem
 ;;^UTILITY(U,$J,358.3,25796,1,4,0)
 ;;=4^I80.201
 ;;^UTILITY(U,$J,358.3,25796,2)
 ;;=^5007828
 ;;^UTILITY(U,$J,358.3,25797,0)
 ;;=I80.202^^114^1351^4
 ;;^UTILITY(U,$J,358.3,25797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25797,1,3,0)
 ;;=3^Thombophlb & Phlbts Deep Vessels Lt Lower Extrem
 ;;^UTILITY(U,$J,358.3,25797,1,4,0)
 ;;=4^I80.202
 ;;^UTILITY(U,$J,358.3,25797,2)
 ;;=^5007829
 ;;^UTILITY(U,$J,358.3,25798,0)
 ;;=I80.203^^114^1351^3
 ;;^UTILITY(U,$J,358.3,25798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25798,1,3,0)
 ;;=3^Thombophlb & Phlbts Deep Vessels Bil Lower Extrem
 ;;^UTILITY(U,$J,358.3,25798,1,4,0)
 ;;=4^I80.203
 ;;^UTILITY(U,$J,358.3,25798,2)
 ;;=^5007830
 ;;^UTILITY(U,$J,358.3,25799,0)
 ;;=J06.9^^114^1351^15
 ;;^UTILITY(U,$J,358.3,25799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25799,1,3,0)
 ;;=3^Upper Resp Infect,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,25799,1,4,0)
 ;;=4^J06.9
 ;;^UTILITY(U,$J,358.3,25799,2)
 ;;=^5008143
 ;;^UTILITY(U,$J,358.3,25800,0)
 ;;=B35.3^^114^1351^7
 ;;^UTILITY(U,$J,358.3,25800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25800,1,3,0)
 ;;=3^Tinea Pedis
 ;;^UTILITY(U,$J,358.3,25800,1,4,0)
 ;;=4^B35.3
 ;;^UTILITY(U,$J,358.3,25800,2)
 ;;=^119732
 ;;^UTILITY(U,$J,358.3,25801,0)
 ;;=H93.11^^114^1351^10
 ;;^UTILITY(U,$J,358.3,25801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25801,1,3,0)
 ;;=3^Tinnitus,Rt Ear
 ;;^UTILITY(U,$J,358.3,25801,1,4,0)
 ;;=4^H93.11
 ;;^UTILITY(U,$J,358.3,25801,2)
 ;;=^5006964
 ;;^UTILITY(U,$J,358.3,25802,0)
 ;;=H93.12^^114^1351^9
 ;;^UTILITY(U,$J,358.3,25802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25802,1,3,0)
 ;;=3^Tinnitus,Lt Ear
 ;;^UTILITY(U,$J,358.3,25802,1,4,0)
 ;;=4^H93.12
 ;;^UTILITY(U,$J,358.3,25802,2)
 ;;=^5006965
 ;;^UTILITY(U,$J,358.3,25803,0)
 ;;=H93.13^^114^1351^8
 ;;^UTILITY(U,$J,358.3,25803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25803,1,3,0)
 ;;=3^Tinnitus,Bilateral
 ;;^UTILITY(U,$J,358.3,25803,1,4,0)
 ;;=4^H93.13
 ;;^UTILITY(U,$J,358.3,25803,2)
 ;;=^5006966
 ;;^UTILITY(U,$J,358.3,25804,0)
 ;;=K26.9^^114^1351^12
 ;;^UTILITY(U,$J,358.3,25804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25804,1,3,0)
 ;;=3^Ulcer,Duodenal w/o Hemorrhage/Perforation
 ;;^UTILITY(U,$J,358.3,25804,1,4,0)
 ;;=4^K26.9
 ;;^UTILITY(U,$J,358.3,25804,2)
 ;;=^5008527
 ;;^UTILITY(U,$J,358.3,25805,0)
 ;;=K25.9^^114^1351^13
 ;;^UTILITY(U,$J,358.3,25805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25805,1,3,0)
 ;;=3^Ulcer,Gastric w/o Hemorrhage/Perforation
 ;;^UTILITY(U,$J,358.3,25805,1,4,0)
 ;;=4^K25.9
 ;;^UTILITY(U,$J,358.3,25805,2)
 ;;=^5008522
 ;;^UTILITY(U,$J,358.3,25806,0)
 ;;=K27.9^^114^1351^14
 ;;^UTILITY(U,$J,358.3,25806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25806,1,3,0)
 ;;=3^Ulcer,Peptic w/o Hemorrhage/Perforation
 ;;^UTILITY(U,$J,358.3,25806,1,4,0)
 ;;=4^K27.9
 ;;^UTILITY(U,$J,358.3,25806,2)
 ;;=^5008536
 ;;^UTILITY(U,$J,358.3,25807,0)
 ;;=N34.1^^114^1351^17
 ;;^UTILITY(U,$J,358.3,25807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25807,1,3,0)
 ;;=3^Urethritis,Unspec
 ;;^UTILITY(U,$J,358.3,25807,1,4,0)
 ;;=4^N34.1
 ;;^UTILITY(U,$J,358.3,25807,2)
 ;;=^5015655
 ;;^UTILITY(U,$J,358.3,25808,0)
 ;;=R33.9^^114^1351^19
 ;;^UTILITY(U,$J,358.3,25808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25808,1,3,0)
 ;;=3^Urinary Retention,Unspec
 ;;^UTILITY(U,$J,358.3,25808,1,4,0)
 ;;=4^R33.9
 ;;^UTILITY(U,$J,358.3,25808,2)
 ;;=^5019332
 ;;^UTILITY(U,$J,358.3,25809,0)
 ;;=N34.2^^114^1351^16
 ;;^UTILITY(U,$J,358.3,25809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25809,1,3,0)
 ;;=3^Urethritis,Oth
 ;;^UTILITY(U,$J,358.3,25809,1,4,0)
 ;;=4^N34.2
 ;;^UTILITY(U,$J,358.3,25809,2)
 ;;=^88231
 ;;^UTILITY(U,$J,358.3,25810,0)
 ;;=R32.^^114^1351^18
 ;;^UTILITY(U,$J,358.3,25810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25810,1,3,0)
 ;;=3^Urinary Incontinence,Unspec
 ;;^UTILITY(U,$J,358.3,25810,1,4,0)
 ;;=4^R32.
 ;;^UTILITY(U,$J,358.3,25810,2)
 ;;=^5019329
 ;;^UTILITY(U,$J,358.3,25811,0)
 ;;=N39.0^^114^1351^11
 ;;^UTILITY(U,$J,358.3,25811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25811,1,3,0)
 ;;=3^UTI,Site Unspec
 ;;^UTILITY(U,$J,358.3,25811,1,4,0)
 ;;=4^N39.0
 ;;^UTILITY(U,$J,358.3,25811,2)
 ;;=^124436
 ;;^UTILITY(U,$J,358.3,25812,0)
 ;;=B35.6^^114^1351^6
 ;;^UTILITY(U,$J,358.3,25812,1,0)
 ;;=^358.31IA^4^2