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

IBDEI05S.m

Go to the documentation of this file. 
  1. IBDEI05S ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,13981,0)
  1.  ;;=F12.10^^53^593^3
  1.  ;;^UTILITY(U,$J,358.3,13981,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13981,1,3,0)
  1.  ;;=3^Cannabis Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,13981,1,4,0)
  1.  ;;=4^F12.10
  1.  ;;^UTILITY(U,$J,358.3,13981,2)
  1.  ;;=^5003155
  1.  ;;^UTILITY(U,$J,358.3,13982,0)
  1.  ;;=F12.180^^53^593^8
  1.  ;;^UTILITY(U,$J,358.3,13982,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13982,1,3,0)
  1.  ;;=3^Cannabis-Induced Anxiety Disorder w/ Mild Use Disorders
  1.  ;;^UTILITY(U,$J,358.3,13982,1,4,0)
  1.  ;;=4^F12.180
  1.  ;;^UTILITY(U,$J,358.3,13982,2)
  1.  ;;=^5003163
  1.  ;;^UTILITY(U,$J,358.3,13983,0)
  1.  ;;=F12.188^^53^593^10
  1.  ;;^UTILITY(U,$J,358.3,13983,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13983,1,3,0)
  1.  ;;=3^Cannabis-Induced Sleep Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13983,1,4,0)
  1.  ;;=4^F12.188
  1.  ;;^UTILITY(U,$J,358.3,13983,2)
  1.  ;;=^5003164
  1.  ;;^UTILITY(U,$J,358.3,13984,0)
  1.  ;;=F12.20^^53^593^4
  1.  ;;^UTILITY(U,$J,358.3,13984,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13984,1,3,0)
  1.  ;;=3^Cannabis Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,13984,1,4,0)
  1.  ;;=4^F12.20
  1.  ;;^UTILITY(U,$J,358.3,13984,2)
  1.  ;;=^5003166
  1.  ;;^UTILITY(U,$J,358.3,13985,0)
  1.  ;;=F12.21^^53^593^5
  1.  ;;^UTILITY(U,$J,358.3,13985,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13985,1,3,0)
  1.  ;;=3^Cannabis Use Disorder,Moderate-Severe,In Remission
  1.  ;;^UTILITY(U,$J,358.3,13985,1,4,0)
  1.  ;;=4^F12.21
  1.  ;;^UTILITY(U,$J,358.3,13985,2)
  1.  ;;=^5003167
  1.  ;;^UTILITY(U,$J,358.3,13986,0)
  1.  ;;=F12.288^^53^593^7
  1.  ;;^UTILITY(U,$J,358.3,13986,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13986,1,3,0)
  1.  ;;=3^Cannabis Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,13986,1,4,0)
  1.  ;;=4^F12.288
  1.  ;;^UTILITY(U,$J,358.3,13986,2)
  1.  ;;=^5003176
  1.  ;;^UTILITY(U,$J,358.3,13987,0)
  1.  ;;=F12.280^^53^593^9
  1.  ;;^UTILITY(U,$J,358.3,13987,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13987,1,3,0)
  1.  ;;=3^Cannabis-Induced Anxiety Disorder w/ Moderate-Severe Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13987,1,4,0)
  1.  ;;=4^F12.280
  1.  ;;^UTILITY(U,$J,358.3,13987,2)
  1.  ;;=^5003175
  1.  ;;^UTILITY(U,$J,358.3,13988,0)
  1.  ;;=F12.11^^53^593^1
  1.  ;;^UTILITY(U,$J,358.3,13988,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13988,1,3,0)
  1.  ;;=3^Cannabis Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,13988,1,4,0)
  1.  ;;=4^F12.11
  1.  ;;^UTILITY(U,$J,358.3,13988,2)
  1.  ;;=^268236
  1.  ;;^UTILITY(U,$J,358.3,13989,0)
  1.  ;;=F12.23^^53^593^2
  1.  ;;^UTILITY(U,$J,358.3,13989,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13989,1,3,0)
  1.  ;;=3^Cannabis Dependence w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,13989,1,4,0)
  1.  ;;=4^F12.23
  1.  ;;^UTILITY(U,$J,358.3,13989,2)
  1.  ;;=^5157301
  1.  ;;^UTILITY(U,$J,358.3,13990,0)
  1.  ;;=F12.93^^53^593^6
  1.  ;;^UTILITY(U,$J,358.3,13990,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13990,1,3,0)
  1.  ;;=3^Cannabis Use,Unspec w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,13990,1,4,0)
  1.  ;;=4^F12.93
  1.  ;;^UTILITY(U,$J,358.3,13990,2)
  1.  ;;=^5157302
  1.  ;;^UTILITY(U,$J,358.3,13991,0)
  1.  ;;=F14.10^^53^594^2
  1.  ;;^UTILITY(U,$J,358.3,13991,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13991,1,3,0)
  1.  ;;=3^Cocaine Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,13991,1,4,0)
  1.  ;;=4^F14.10
  1.  ;;^UTILITY(U,$J,358.3,13991,2)
  1.  ;;=^5003239
  1.  ;;^UTILITY(U,$J,358.3,13992,0)
  1.  ;;=F14.14^^53^594^6
  1.  ;;^UTILITY(U,$J,358.3,13992,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13992,1,3,0)
  1.  ;;=3^Cocaine-Induced Depressive,Bipolar or Related Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13992,1,4,0)
  1.  ;;=4^F14.14
  1.  ;;^UTILITY(U,$J,358.3,13992,2)
  1.  ;;=^5003244
  1.  ;;^UTILITY(U,$J,358.3,13993,0)
  1.  ;;=F14.182^^53^594^7
  1.  ;;^UTILITY(U,$J,358.3,13993,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13993,1,3,0)
  1.  ;;=3^Cocaine-Induced Sleep Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13993,1,4,0)
  1.  ;;=4^F14.182
  1.  ;;^UTILITY(U,$J,358.3,13993,2)
  1.  ;;=^5003250
  1.  ;;^UTILITY(U,$J,358.3,13994,0)
  1.  ;;=F14.20^^53^594^4
  1.  ;;^UTILITY(U,$J,358.3,13994,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13994,1,3,0)
  1.  ;;=3^Cocaine Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,13994,1,4,0)
  1.  ;;=4^F14.20
  1.  ;;^UTILITY(U,$J,358.3,13994,2)
  1.  ;;=^5003253
  1.  ;;^UTILITY(U,$J,358.3,13995,0)
  1.  ;;=F14.21^^53^594^3
  1.  ;;^UTILITY(U,$J,358.3,13995,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13995,1,3,0)
  1.  ;;=3^Cocaine Use Disorder,Mod-Severe,In Remission
  1.  ;;^UTILITY(U,$J,358.3,13995,1,4,0)
  1.  ;;=4^F14.21
  1.  ;;^UTILITY(U,$J,358.3,13995,2)
  1.  ;;=^5003254
  1.  ;;^UTILITY(U,$J,358.3,13996,0)
  1.  ;;=F14.23^^53^594^5
  1.  ;;^UTILITY(U,$J,358.3,13996,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13996,1,3,0)
  1.  ;;=3^Cocaine Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,13996,1,4,0)
  1.  ;;=4^F14.23
  1.  ;;^UTILITY(U,$J,358.3,13996,2)
  1.  ;;=^5003259
  1.  ;;^UTILITY(U,$J,358.3,13997,0)
  1.  ;;=F14.11^^53^594^1
  1.  ;;^UTILITY(U,$J,358.3,13997,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13997,1,3,0)
  1.  ;;=3^Cocaine Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,13997,1,4,0)
  1.  ;;=4^F14.11
  1.  ;;^UTILITY(U,$J,358.3,13997,2)
  1.  ;;=^268249
  1.  ;;^UTILITY(U,$J,358.3,13998,0)
  1.  ;;=F16.10^^53^595^2
  1.  ;;^UTILITY(U,$J,358.3,13998,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13998,1,3,0)
  1.  ;;=3^Phencyclidine Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,13998,1,4,0)
  1.  ;;=4^F16.10
  1.  ;;^UTILITY(U,$J,358.3,13998,2)
  1.  ;;=^5003323
  1.  ;;^UTILITY(U,$J,358.3,13999,0)
  1.  ;;=F16.20^^53^595^3
  1.  ;;^UTILITY(U,$J,358.3,13999,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13999,1,3,0)
  1.  ;;=3^Phencyclidine Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,13999,1,4,0)
  1.  ;;=4^F16.20
  1.  ;;^UTILITY(U,$J,358.3,13999,2)
  1.  ;;=^5003336
  1.  ;;^UTILITY(U,$J,358.3,14000,0)
  1.  ;;=F16.21^^53^595^4
  1.  ;;^UTILITY(U,$J,358.3,14000,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14000,1,3,0)
  1.  ;;=3^Phencyclidine Use Disorder,Moderate-Severe,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14000,1,4,0)
  1.  ;;=4^F16.21
  1.  ;;^UTILITY(U,$J,358.3,14000,2)
  1.  ;;=^5003337
  1.  ;;^UTILITY(U,$J,358.3,14001,0)
  1.  ;;=F16.11^^53^595^1
  1.  ;;^UTILITY(U,$J,358.3,14001,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14001,1,3,0)
  1.  ;;=3^Hallucinogen Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14001,1,4,0)
  1.  ;;=4^F16.11
  1.  ;;^UTILITY(U,$J,358.3,14001,2)
  1.  ;;=^268239
  1.  ;;^UTILITY(U,$J,358.3,14002,0)
  1.  ;;=F18.10^^53^596^2
  1.  ;;^UTILITY(U,$J,358.3,14002,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14002,1,3,0)
  1.  ;;=3^Inhalant Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,14002,1,4,0)
  1.  ;;=4^F18.10
  1.  ;;^UTILITY(U,$J,358.3,14002,2)
  1.  ;;=^5003380
  1.  ;;^UTILITY(U,$J,358.3,14003,0)
  1.  ;;=F18.20^^53^596^3
  1.  ;;^UTILITY(U,$J,358.3,14003,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14003,1,3,0)
  1.  ;;=3^Inhalant Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,14003,1,4,0)
  1.  ;;=4^F18.20
  1.  ;;^UTILITY(U,$J,358.3,14003,2)
  1.  ;;=^5003392
  1.  ;;^UTILITY(U,$J,358.3,14004,0)
  1.  ;;=F18.21^^53^596^4
  1.  ;;^UTILITY(U,$J,358.3,14004,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14004,1,3,0)
  1.  ;;=3^Inhalant Use Disorder,Moderate-Severe,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14004,1,4,0)
  1.  ;;=4^F18.21
  1.  ;;^UTILITY(U,$J,358.3,14004,2)
  1.  ;;=^5003393
  1.  ;;^UTILITY(U,$J,358.3,14005,0)
  1.  ;;=F18.14^^53^596^5
  1.  ;;^UTILITY(U,$J,358.3,14005,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14005,1,3,0)
  1.  ;;=3^Inhalant-Induced Depressive Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14005,1,4,0)
  1.  ;;=4^F18.14
  1.  ;;^UTILITY(U,$J,358.3,14005,2)
  1.  ;;=^5003384
  1.  ;;^UTILITY(U,$J,358.3,14006,0)
  1.  ;;=F18.24^^53^596^6
  1.  ;;^UTILITY(U,$J,358.3,14006,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14006,1,3,0)
  1.  ;;=3^Inhalant-Induced Depressive Disorder w/ Moderate to Severe Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14006,1,4,0)
  1.  ;;=4^F18.24
  1.  ;;^UTILITY(U,$J,358.3,14006,2)
  1.  ;;=^5003397
  1.  ;;^UTILITY(U,$J,358.3,14007,0)
  1.  ;;=F18.11^^53^596^1
  1.  ;;^UTILITY(U,$J,358.3,14007,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14007,1,3,0)
  1.  ;;=3^Inhalant Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14007,1,4,0)
  1.  ;;=4^F18.11
  1.  ;;^UTILITY(U,$J,358.3,14007,2)
  1.  ;;=^5151305
  1.  ;;^UTILITY(U,$J,358.3,14008,0)
  1.  ;;=F11.10^^53^597^7
  1.  ;;^UTILITY(U,$J,358.3,14008,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14008,1,3,0)
  1.  ;;=3^Opioid Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,14008,1,4,0)
  1.  ;;=4^F11.10
  1.  ;;^UTILITY(U,$J,358.3,14008,2)
  1.  ;;=^5003114
  1.  ;;^UTILITY(U,$J,358.3,14009,0)
  1.  ;;=F11.129^^53^597^6
  1.  ;;^UTILITY(U,$J,358.3,14009,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14009,1,3,0)
  1.  ;;=3^Opioid Intoxication w/o Perceptual Disturbances;Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14009,1,4,0)
  1.  ;;=4^F11.129
  1.  ;;^UTILITY(U,$J,358.3,14009,2)
  1.  ;;=^5003118
  1.  ;;^UTILITY(U,$J,358.3,14010,0)
  1.  ;;=F11.14^^53^597^10
  1.  ;;^UTILITY(U,$J,358.3,14010,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14010,1,3,0)
  1.  ;;=3^Opioid-Induced Depressive Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14010,1,4,0)
  1.  ;;=4^F11.14
  1.  ;;^UTILITY(U,$J,358.3,14010,2)
  1.  ;;=^5003119
  1.  ;;^UTILITY(U,$J,358.3,14011,0)
  1.  ;;=F11.182^^53^597^12
  1.  ;;^UTILITY(U,$J,358.3,14011,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14011,1,3,0)
  1.  ;;=3^Opioid-Induced Sleep Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14011,1,4,0)
  1.  ;;=4^F11.182
  1.  ;;^UTILITY(U,$J,358.3,14011,2)
  1.  ;;=^5003124
  1.  ;;^UTILITY(U,$J,358.3,14012,0)
  1.  ;;=F11.20^^53^597^8
  1.  ;;^UTILITY(U,$J,358.3,14012,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14012,1,3,0)
  1.  ;;=3^Opioid Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,14012,1,4,0)
  1.  ;;=4^F11.20
  1.  ;;^UTILITY(U,$J,358.3,14012,2)
  1.  ;;=^5003127
  1.  ;;^UTILITY(U,$J,358.3,14013,0)
  1.  ;;=F11.21^^53^597^9
  1.  ;;^UTILITY(U,$J,358.3,14013,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14013,1,3,0)
  1.  ;;=3^Opioid Use Disorder,Moderate-Severe,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14013,1,4,0)
  1.  ;;=4^F11.21
  1.  ;;^UTILITY(U,$J,358.3,14013,2)
  1.  ;;=^5003128
  1.  ;;^UTILITY(U,$J,358.3,14014,0)
  1.  ;;=F11.23^^53^597^5
  1.  ;;^UTILITY(U,$J,358.3,14014,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14014,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,14014,1,4,0)
  1.  ;;=4^F11.23
  1.  ;;^UTILITY(U,$J,358.3,14014,2)
  1.  ;;=^5003133
  1.  ;;^UTILITY(U,$J,358.3,14015,0)
  1.  ;;=F11.24^^53^597^11
  1.  ;;^UTILITY(U,$J,358.3,14015,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14015,1,3,0)
  1.  ;;=3^Opioid-Induced Depressive Disorder w/ Moderate-Severe Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14015,1,4,0)
  1.  ;;=4^F11.24
  1.  ;;^UTILITY(U,$J,358.3,14015,2)
  1.  ;;=^5003134
  1.  ;;^UTILITY(U,$J,358.3,14016,0)
  1.  ;;=F11.29^^53^597^4
  1.  ;;^UTILITY(U,$J,358.3,14016,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14016,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Unspec Opioid-Induced Disorder
  1.  ;;^UTILITY(U,$J,358.3,14016,1,4,0)
  1.  ;;=4^F11.29
  1.  ;;^UTILITY(U,$J,358.3,14016,2)
  1.  ;;=^5003141
  1.  ;;^UTILITY(U,$J,358.3,14017,0)
  1.  ;;=F11.220^^53^597^3
  1.  ;;^UTILITY(U,$J,358.3,14017,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14017,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,14017,1,4,0)
  1.  ;;=4^F11.220
  1.  ;;^UTILITY(U,$J,358.3,14017,2)
  1.  ;;=^5003129
  1.  ;;^UTILITY(U,$J,358.3,14018,0)
  1.  ;;=F11.11^^53^597^2
  1.  ;;^UTILITY(U,$J,358.3,14018,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14018,1,3,0)
  1.  ;;=3^Opioid Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14018,1,4,0)
  1.  ;;=4^F11.11
  1.  ;;^UTILITY(U,$J,358.3,14018,2)
  1.  ;;=^268246
  1.  ;;^UTILITY(U,$J,358.3,14019,0)
  1.  ;;=F11.13^^53^597^1
  1.  ;;^UTILITY(U,$J,358.3,14019,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14019,1,3,0)
  1.  ;;=3^Opioid Abuse w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,14019,1,4,0)
  1.  ;;=4^F11.13
  1.  ;;^UTILITY(U,$J,358.3,14019,2)
  1.  ;;=^5159138
  1.  ;;^UTILITY(U,$J,358.3,14020,0)
  1.  ;;=F19.10^^53^598^4
  1.  ;;^UTILITY(U,$J,358.3,14020,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14020,1,3,0)
  1.  ;;=3^Psychoactive Substance Abuse NEC,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,14020,1,4,0)
  1.  ;;=4^F19.10
  1.  ;;^UTILITY(U,$J,358.3,14020,2)
  1.  ;;=^5003416
  1.  ;;^UTILITY(U,$J,358.3,14021,0)
  1.  ;;=F19.14^^53^598^1
  1.  ;;^UTILITY(U,$J,358.3,14021,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14021,1,3,0)
  1.  ;;=3^Psychoactive Substance Abuse NEC w/ Induced Mood Disorder
  1.  ;;^UTILITY(U,$J,358.3,14021,1,4,0)
  1.  ;;=4^F19.14
  1.  ;;^UTILITY(U,$J,358.3,14021,2)
  1.  ;;=^5003421
  1.  ;;^UTILITY(U,$J,358.3,14022,0)
  1.  ;;=F19.182^^53^598^2
  1.  ;;^UTILITY(U,$J,358.3,14022,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14022,1,3,0)
  1.  ;;=3^Psychoactive Substance Abuse NEC w/ Induced Sleep Disorder
  1.  ;;^UTILITY(U,$J,358.3,14022,1,4,0)
  1.  ;;=4^F19.182
  1.  ;;^UTILITY(U,$J,358.3,14022,2)
  1.  ;;=^5003429
  1.  ;;^UTILITY(U,$J,358.3,14023,0)
  1.  ;;=F19.20^^53^598^7
  1.  ;;^UTILITY(U,$J,358.3,14023,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14023,1,3,0)
  1.  ;;=3^Psychoactive Substance Dependence NEC,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,14023,1,4,0)
  1.  ;;=4^F19.20
  1.  ;;^UTILITY(U,$J,358.3,14023,2)
  1.  ;;=^5003431
  1.  ;;^UTILITY(U,$J,358.3,14024,0)
  1.  ;;=F19.21^^53^598^6
  1.  ;;^UTILITY(U,$J,358.3,14024,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14024,1,3,0)
  1.  ;;=3^Psychoactive Substance Dependence NEC,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14024,1,4,0)
  1.  ;;=4^F19.21
  1.  ;;^UTILITY(U,$J,358.3,14024,2)
  1.  ;;=^5003432
  1.  ;;^UTILITY(U,$J,358.3,14025,0)
  1.  ;;=F19.24^^53^598^5
  1.  ;;^UTILITY(U,$J,358.3,14025,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14025,1,3,0)
  1.  ;;=3^Psychoactive Substance Dependence NEC w/ Induced Mood Disorder
  1.  ;;^UTILITY(U,$J,358.3,14025,1,4,0)
  1.  ;;=4^F19.24
  1.  ;;^UTILITY(U,$J,358.3,14025,2)
  1.  ;;=^5003441
  1.  ;;^UTILITY(U,$J,358.3,14026,0)
  1.  ;;=F19.11^^53^598^3
  1.  ;;^UTILITY(U,$J,358.3,14026,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14026,1,3,0)
  1.  ;;=3^Psychoactive Substance Abuse NEC,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14026,1,4,0)
  1.  ;;=4^F19.11
  1.  ;;^UTILITY(U,$J,358.3,14026,2)
  1.  ;;=^5151306
  1.  ;;^UTILITY(U,$J,358.3,14027,0)
  1.  ;;=F13.10^^53^599^2
  1.  ;;^UTILITY(U,$J,358.3,14027,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14027,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,14027,1,4,0)
  1.  ;;=4^F13.10
  1.  ;;^UTILITY(U,$J,358.3,14027,2)
  1.  ;;=^5003189
  1.  ;;^UTILITY(U,$J,358.3,14028,0)
  1.  ;;=F13.14^^53^599^8
  1.  ;;^UTILITY(U,$J,358.3,14028,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14028,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic-Induced Depressive,Bipolar or Related Disorder w/ Mild use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14028,1,4,0)
  1.  ;;=4^F13.14
  1.  ;;^UTILITY(U,$J,358.3,14028,2)
  1.  ;;=^5003193
  1.  ;;^UTILITY(U,$J,358.3,14029,0)
  1.  ;;=F13.182^^53^599^9
  1.  ;;^UTILITY(U,$J,358.3,14029,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14029,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic-Induced Sleep Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14029,1,4,0)
  1.  ;;=4^F13.182
  1.  ;;^UTILITY(U,$J,358.3,14029,2)
  1.  ;;=^5003199
  1.  ;;^UTILITY(U,$J,358.3,14030,0)
  1.  ;;=F13.20^^53^599^3
  1.  ;;^UTILITY(U,$J,358.3,14030,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14030,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,14030,1,4,0)
  1.  ;;=4^F13.20
  1.  ;;^UTILITY(U,$J,358.3,14030,2)
  1.  ;;=^5003202
  1.  ;;^UTILITY(U,$J,358.3,14031,0)
  1.  ;;=F13.21^^53^599^4
  1.  ;;^UTILITY(U,$J,358.3,14031,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14031,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Use Disorder,Moderate-Severe In Remission
  1.  ;;^UTILITY(U,$J,358.3,14031,1,4,0)
  1.  ;;=4^F13.21
  1.  ;;^UTILITY(U,$J,358.3,14031,2)
  1.  ;;=^331934
  1.  ;;^UTILITY(U,$J,358.3,14032,0)
  1.  ;;=F13.232^^53^599^5
  1.  ;;^UTILITY(U,$J,358.3,14032,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14032,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Withdrawal w/ Perceptual Disturbances
  1.  ;;^UTILITY(U,$J,358.3,14032,1,4,0)
  1.  ;;=4^F13.232
  1.  ;;^UTILITY(U,$J,358.3,14032,2)
  1.  ;;=^5003208
  1.  ;;^UTILITY(U,$J,358.3,14033,0)
  1.  ;;=F13.239^^53^599^6
  1.  ;;^UTILITY(U,$J,358.3,14033,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14033,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Withdrawal w/o Perceptual Disturbances
  1.  ;;^UTILITY(U,$J,358.3,14033,1,4,0)
  1.  ;;=4^F13.239
  1.  ;;^UTILITY(U,$J,358.3,14033,2)
  1.  ;;=^5003209
  1.  ;;^UTILITY(U,$J,358.3,14034,0)
  1.  ;;=F13.24^^53^599^10
  1.  ;;^UTILITY(U,$J,358.3,14034,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14034,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic-Induced Dep,Bip or Related Disorder w/ Mod-Sev Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,14034,1,4,0)
  1.  ;;=4^F13.24
  1.  ;;^UTILITY(U,$J,358.3,14034,2)
  1.  ;;=^5003210
  1.  ;;^UTILITY(U,$J,358.3,14035,0)
  1.  ;;=F13.231^^53^599^7
  1.  ;;^UTILITY(U,$J,358.3,14035,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14035,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Withdrawal Delirium
  1.  ;;^UTILITY(U,$J,358.3,14035,1,4,0)
  1.  ;;=4^F13.231
  1.  ;;^UTILITY(U,$J,358.3,14035,2)
  1.  ;;=^5003207
  1.  ;;^UTILITY(U,$J,358.3,14036,0)
  1.  ;;=F13.11^^53^599^1
  1.  ;;^UTILITY(U,$J,358.3,14036,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14036,1,3,0)
  1.  ;;=3^Sedative,Hypnotic or Anxiolytic Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14036,1,4,0)
  1.  ;;=4^F13.11
  1.  ;;^UTILITY(U,$J,358.3,14036,2)
  1.  ;;=^331938
  1.  ;;^UTILITY(U,$J,358.3,14037,0)
  1.  ;;=F17.200^^53^600^1
  1.  ;;^UTILITY(U,$J,358.3,14037,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14037,1,3,0)
  1.  ;;=3^Tobacco Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,14037,1,4,0)
  1.  ;;=4^F17.200
  1.  ;;^UTILITY(U,$J,358.3,14037,2)
  1.  ;;=^5003360
  1.  ;;^UTILITY(U,$J,358.3,14038,0)
  1.  ;;=F17.201^^53^600^2
  1.  ;;^UTILITY(U,$J,358.3,14038,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14038,1,3,0)
  1.  ;;=3^Tobacco Use Disorder,Moderate-Severe In Remission
  1.  ;;^UTILITY(U,$J,358.3,14038,1,4,0)
  1.  ;;=4^F17.201
  1.  ;;^UTILITY(U,$J,358.3,14038,2)
  1.  ;;=^5003361
  1.  ;;^UTILITY(U,$J,358.3,14039,0)
  1.  ;;=F17.203^^53^600^3
  1.  ;;^UTILITY(U,$J,358.3,14039,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14039,1,3,0)
  1.  ;;=3^Tobacco Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,14039,1,4,0)
  1.  ;;=4^F17.203
  1.  ;;^UTILITY(U,$J,358.3,14039,2)
  1.  ;;=^5003362
  1.  ;;^UTILITY(U,$J,358.3,14040,0)
  1.  ;;=F17.210^^53^600^4
  1.  ;;^UTILITY(U,$J,358.3,14040,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14040,1,3,0)
  1.  ;;=3^Nicotine Dependence,Cigarettes,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,14040,1,4,0)
  1.  ;;=4^F17.210
  1.  ;;^UTILITY(U,$J,358.3,14040,2)
  1.  ;;=^5003365
  1.  ;;^UTILITY(U,$J,358.3,14041,0)
  1.  ;;=F17.211^^53^600^5
  1.  ;;^UTILITY(U,$J,358.3,14041,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14041,1,3,0)
  1.  ;;=3^Nicotine Dependence,Cigarettes,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14041,1,4,0)
  1.  ;;=4^F17.211
  1.  ;;^UTILITY(U,$J,358.3,14041,2)
  1.  ;;=^5003366
  1.  ;;^UTILITY(U,$J,358.3,14042,0)
  1.  ;;=F17.220^^53^600^6
  1.  ;;^UTILITY(U,$J,358.3,14042,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14042,1,3,0)
  1.  ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,14042,1,4,0)
  1.  ;;=4^F17.220
  1.  ;;^UTILITY(U,$J,358.3,14042,2)
  1.  ;;=^5003370
  1.  ;;^UTILITY(U,$J,358.3,14043,0)
  1.  ;;=F17.221^^53^600^7
  1.  ;;^UTILITY(U,$J,358.3,14043,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14043,1,3,0)
  1.  ;;=3^Nicotine Dependence,Chewing Tobacco,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14043,1,4,0)
  1.  ;;=4^F17.221
  1.  ;;^UTILITY(U,$J,358.3,14043,2)
  1.  ;;=^5003371
  1.  ;;^UTILITY(U,$J,358.3,14044,0)
  1.  ;;=F17.290^^53^600^8
  1.  ;;^UTILITY(U,$J,358.3,14044,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14044,1,3,0)
  1.  ;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,14044,1,4,0)
  1.  ;;=4^F17.290
  1.  ;;^UTILITY(U,$J,358.3,14044,2)
  1.  ;;=^5003375
  1.  ;;^UTILITY(U,$J,358.3,14045,0)
  1.  ;;=F17.291^^53^600^9
  1.  ;;^UTILITY(U,$J,358.3,14045,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14045,1,3,0)
  1.  ;;=3^Nicotine Dependence,Oth Tobacco Product,In Remission
  1.  ;;^UTILITY(U,$J,358.3,14045,1,4,0)
  1.  ;;=4^F17.291
  1.  ;;^UTILITY(U,$J,358.3,14045,2)
  1.  ;;=^5003376