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

IBDEI0F9.m

Go to the documentation of this file. 
  1. IBDEI0F9 ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,38149,1,3,0)
  1.  ;;=3^Sprain of Neck Joints/Ligaments,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,38149,1,4,0)
  1.  ;;=4^S13.8XXA
  1.  ;;^UTILITY(U,$J,358.3,38149,2)
  1.  ;;=^5022034
  1.  ;;^UTILITY(U,$J,358.3,38150,0)
  1.  ;;=S16.1XXA^^107^1500^39
  1.  ;;^UTILITY(U,$J,358.3,38150,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38150,1,3,0)
  1.  ;;=3^Strain of Neck Muscle/Fasc/Tendon,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,38150,1,4,0)
  1.  ;;=4^S16.1XXA
  1.  ;;^UTILITY(U,$J,358.3,38150,2)
  1.  ;;=^5022358
  1.  ;;^UTILITY(U,$J,358.3,38151,0)
  1.  ;;=S33.5XXA^^107^1500^12
  1.  ;;^UTILITY(U,$J,358.3,38151,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38151,1,3,0)
  1.  ;;=3^Sprain of Lumbar Spine Ligaments,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,38151,1,4,0)
  1.  ;;=4^S33.5XXA
  1.  ;;^UTILITY(U,$J,358.3,38151,2)
  1.  ;;=^5025172
  1.  ;;^UTILITY(U,$J,358.3,38152,0)
  1.  ;;=S20.221A^^107^1500^4
  1.  ;;^UTILITY(U,$J,358.3,38152,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38152,1,3,0)
  1.  ;;=3^Contusion,Rt Back Wall of Thorax
  1.  ;;^UTILITY(U,$J,358.3,38152,1,4,0)
  1.  ;;=4^S20.221A
  1.  ;;^UTILITY(U,$J,358.3,38152,2)
  1.  ;;=^5022484
  1.  ;;^UTILITY(U,$J,358.3,38153,0)
  1.  ;;=S20.222A^^107^1500^2
  1.  ;;^UTILITY(U,$J,358.3,38153,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38153,1,3,0)
  1.  ;;=3^Contusion,Lt Back Wall of Thorax
  1.  ;;^UTILITY(U,$J,358.3,38153,1,4,0)
  1.  ;;=4^S20.222A
  1.  ;;^UTILITY(U,$J,358.3,38153,2)
  1.  ;;=^5022487
  1.  ;;^UTILITY(U,$J,358.3,38154,0)
  1.  ;;=S20.223A^^107^1500^1
  1.  ;;^UTILITY(U,$J,358.3,38154,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38154,1,3,0)
  1.  ;;=3^Contusion,Bilateral Back Wall of Thorax
  1.  ;;^UTILITY(U,$J,358.3,38154,1,4,0)
  1.  ;;=4^S20.223A
  1.  ;;^UTILITY(U,$J,358.3,38154,2)
  1.  ;;=^5159315
  1.  ;;^UTILITY(U,$J,358.3,38155,0)
  1.  ;;=S20.224A^^107^1500^3
  1.  ;;^UTILITY(U,$J,358.3,38155,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38155,1,3,0)
  1.  ;;=3^Contusion,Middle Back Wall of Thorax
  1.  ;;^UTILITY(U,$J,358.3,38155,1,4,0)
  1.  ;;=4^S20.224A
  1.  ;;^UTILITY(U,$J,358.3,38155,2)
  1.  ;;=^5159318
  1.  ;;^UTILITY(U,$J,358.3,38156,0)
  1.  ;;=F10.20^^107^1501^9
  1.  ;;^UTILITY(U,$J,358.3,38156,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38156,1,3,0)
  1.  ;;=3^Alcohol Dependence,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38156,1,4,0)
  1.  ;;=4^F10.20
  1.  ;;^UTILITY(U,$J,358.3,38156,2)
  1.  ;;=^5003081
  1.  ;;^UTILITY(U,$J,358.3,38157,0)
  1.  ;;=F11.29^^107^1501^61
  1.  ;;^UTILITY(U,$J,358.3,38157,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38157,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Unspec Opioid-Induced Disorder
  1.  ;;^UTILITY(U,$J,358.3,38157,1,4,0)
  1.  ;;=4^F11.29
  1.  ;;^UTILITY(U,$J,358.3,38157,2)
  1.  ;;=^5003141
  1.  ;;^UTILITY(U,$J,358.3,38158,0)
  1.  ;;=F11.288^^107^1501^60
  1.  ;;^UTILITY(U,$J,358.3,38158,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38158,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Other Opioid-Induced Disorder
  1.  ;;^UTILITY(U,$J,358.3,38158,1,4,0)
  1.  ;;=4^F11.288
  1.  ;;^UTILITY(U,$J,358.3,38158,2)
  1.  ;;=^5003140
  1.  ;;^UTILITY(U,$J,358.3,38159,0)
  1.  ;;=F11.282^^107^1501^59
  1.  ;;^UTILITY(U,$J,358.3,38159,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38159,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Opioid-Induced Sleep Disorder
  1.  ;;^UTILITY(U,$J,358.3,38159,1,4,0)
  1.  ;;=4^F11.282
  1.  ;;^UTILITY(U,$J,358.3,38159,2)
  1.  ;;=^5003139
  1.  ;;^UTILITY(U,$J,358.3,38160,0)
  1.  ;;=F11.281^^107^1501^58
  1.  ;;^UTILITY(U,$J,358.3,38160,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38160,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Opioid-Induced Sexual Dysfunction
  1.  ;;^UTILITY(U,$J,358.3,38160,1,4,0)
  1.  ;;=4^F11.281
  1.  ;;^UTILITY(U,$J,358.3,38160,2)
  1.  ;;=^5003138
  1.  ;;^UTILITY(U,$J,358.3,38161,0)
  1.  ;;=F11.259^^107^1501^57
  1.  ;;^UTILITY(U,$J,358.3,38161,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38161,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Opioid-Induced Psychotic Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38161,1,4,0)
  1.  ;;=4^F11.259
  1.  ;;^UTILITY(U,$J,358.3,38161,2)
  1.  ;;=^5003137
  1.  ;;^UTILITY(U,$J,358.3,38162,0)
  1.  ;;=F11.251^^107^1501^50
  1.  ;;^UTILITY(U,$J,358.3,38162,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38162,1,3,0)
  1.  ;;=3^Opioid Depend w/ Opioid-Induc Psychotic Disorder w/ Hallucin
  1.  ;;^UTILITY(U,$J,358.3,38162,1,4,0)
  1.  ;;=4^F11.251
  1.  ;;^UTILITY(U,$J,358.3,38162,2)
  1.  ;;=^5003136
  1.  ;;^UTILITY(U,$J,358.3,38163,0)
  1.  ;;=F11.250^^107^1501^51
  1.  ;;^UTILITY(U,$J,358.3,38163,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38163,1,3,0)
  1.  ;;=3^Opioid Depend w/ Opioid-Induc Psychotic Disorder w/ Delusions
  1.  ;;^UTILITY(U,$J,358.3,38163,1,4,0)
  1.  ;;=4^F11.250
  1.  ;;^UTILITY(U,$J,358.3,38163,2)
  1.  ;;=^5003135
  1.  ;;^UTILITY(U,$J,358.3,38164,0)
  1.  ;;=F11.24^^107^1501^56
  1.  ;;^UTILITY(U,$J,358.3,38164,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38164,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Opioid-Induced Mood Disorder
  1.  ;;^UTILITY(U,$J,358.3,38164,1,4,0)
  1.  ;;=4^F11.24
  1.  ;;^UTILITY(U,$J,358.3,38164,2)
  1.  ;;=^5003134
  1.  ;;^UTILITY(U,$J,358.3,38165,0)
  1.  ;;=F11.23^^107^1501^62
  1.  ;;^UTILITY(U,$J,358.3,38165,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38165,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,38165,1,4,0)
  1.  ;;=4^F11.23
  1.  ;;^UTILITY(U,$J,358.3,38165,2)
  1.  ;;=^5003133
  1.  ;;^UTILITY(U,$J,358.3,38166,0)
  1.  ;;=F11.20^^107^1501^63
  1.  ;;^UTILITY(U,$J,358.3,38166,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38166,1,3,0)
  1.  ;;=3^Opioid Dependence,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38166,1,4,0)
  1.  ;;=4^F11.20
  1.  ;;^UTILITY(U,$J,358.3,38166,2)
  1.  ;;=^5003127
  1.  ;;^UTILITY(U,$J,358.3,38167,0)
  1.  ;;=F11.229^^107^1501^55
  1.  ;;^UTILITY(U,$J,358.3,38167,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38167,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Intoxication,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38167,1,4,0)
  1.  ;;=4^F11.229
  1.  ;;^UTILITY(U,$J,358.3,38167,2)
  1.  ;;=^5003132
  1.  ;;^UTILITY(U,$J,358.3,38168,0)
  1.  ;;=F11.222^^107^1501^53
  1.  ;;^UTILITY(U,$J,358.3,38168,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38168,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Intoxication w/ Perceptual Disturbance
  1.  ;;^UTILITY(U,$J,358.3,38168,1,4,0)
  1.  ;;=4^F11.222
  1.  ;;^UTILITY(U,$J,358.3,38168,2)
  1.  ;;=^5003131
  1.  ;;^UTILITY(U,$J,358.3,38169,0)
  1.  ;;=F11.221^^107^1501^52
  1.  ;;^UTILITY(U,$J,358.3,38169,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38169,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Intoxication Delirium
  1.  ;;^UTILITY(U,$J,358.3,38169,1,4,0)
  1.  ;;=4^F11.221
  1.  ;;^UTILITY(U,$J,358.3,38169,2)
  1.  ;;=^5003130
  1.  ;;^UTILITY(U,$J,358.3,38170,0)
  1.  ;;=F11.220^^107^1501^54
  1.  ;;^UTILITY(U,$J,358.3,38170,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38170,1,3,0)
  1.  ;;=3^Opioid Dependence w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38170,1,4,0)
  1.  ;;=4^F11.220
  1.  ;;^UTILITY(U,$J,358.3,38170,2)
  1.  ;;=^5003129
  1.  ;;^UTILITY(U,$J,358.3,38171,0)
  1.  ;;=F14.29^^107^1501^34
  1.  ;;^UTILITY(U,$J,358.3,38171,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38171,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Unspec Cocaine-Induced Disorder
  1.  ;;^UTILITY(U,$J,358.3,38171,1,4,0)
  1.  ;;=4^F14.29
  1.  ;;^UTILITY(U,$J,358.3,38171,2)
  1.  ;;=^5003268
  1.  ;;^UTILITY(U,$J,358.3,38172,0)
  1.  ;;=F14.288^^107^1501^33
  1.  ;;^UTILITY(U,$J,358.3,38172,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38172,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Other Cocaine-Induced Disorder
  1.  ;;^UTILITY(U,$J,358.3,38172,1,4,0)
  1.  ;;=4^F14.288
  1.  ;;^UTILITY(U,$J,358.3,38172,2)
  1.  ;;=^5003267
  1.  ;;^UTILITY(U,$J,358.3,38173,0)
  1.  ;;=F14.282^^107^1501^27
  1.  ;;^UTILITY(U,$J,358.3,38173,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38173,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Cocaine-Induced Sleep Disorder
  1.  ;;^UTILITY(U,$J,358.3,38173,1,4,0)
  1.  ;;=4^F14.282
  1.  ;;^UTILITY(U,$J,358.3,38173,2)
  1.  ;;=^5003266
  1.  ;;^UTILITY(U,$J,358.3,38174,0)
  1.  ;;=F14.281^^107^1501^28
  1.  ;;^UTILITY(U,$J,358.3,38174,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38174,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Cocaine-Induced Sexual Dysfunction
  1.  ;;^UTILITY(U,$J,358.3,38174,1,4,0)
  1.  ;;=4^F14.281
  1.  ;;^UTILITY(U,$J,358.3,38174,2)
  1.  ;;=^5003265
  1.  ;;^UTILITY(U,$J,358.3,38175,0)
  1.  ;;=F14.280^^107^1501^25
  1.  ;;^UTILITY(U,$J,358.3,38175,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38175,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Cocaine-Induced Anxiety Disorder
  1.  ;;^UTILITY(U,$J,358.3,38175,1,4,0)
  1.  ;;=4^F14.280
  1.  ;;^UTILITY(U,$J,358.3,38175,2)
  1.  ;;=^5003264
  1.  ;;^UTILITY(U,$J,358.3,38176,0)
  1.  ;;=F14.259^^107^1501^24
  1.  ;;^UTILITY(U,$J,358.3,38176,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38176,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Cocaine-Induc Psychotic Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38176,1,4,0)
  1.  ;;=4^F14.259
  1.  ;;^UTILITY(U,$J,358.3,38176,2)
  1.  ;;=^5003263
  1.  ;;^UTILITY(U,$J,358.3,38177,0)
  1.  ;;=F14.251^^107^1501^23
  1.  ;;^UTILITY(U,$J,358.3,38177,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38177,1,3,0)
  1.  ;;=3^Cocaine Depend w/ Cocaine-Induc Psychotic Disorder w/ Hallucin
  1.  ;;^UTILITY(U,$J,358.3,38177,1,4,0)
  1.  ;;=4^F14.251
  1.  ;;^UTILITY(U,$J,358.3,38177,2)
  1.  ;;=^5003262
  1.  ;;^UTILITY(U,$J,358.3,38178,0)
  1.  ;;=F14.250^^107^1501^22
  1.  ;;^UTILITY(U,$J,358.3,38178,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38178,1,3,0)
  1.  ;;=3^Cocaine Depend w/ Cocaine-Induc Psych Disorder w/ Delusions
  1.  ;;^UTILITY(U,$J,358.3,38178,1,4,0)
  1.  ;;=4^F14.250
  1.  ;;^UTILITY(U,$J,358.3,38178,2)
  1.  ;;=^5003261
  1.  ;;^UTILITY(U,$J,358.3,38179,0)
  1.  ;;=F14.24^^107^1501^26
  1.  ;;^UTILITY(U,$J,358.3,38179,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38179,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Cocaine-Induced Mood Disorder
  1.  ;;^UTILITY(U,$J,358.3,38179,1,4,0)
  1.  ;;=4^F14.24
  1.  ;;^UTILITY(U,$J,358.3,38179,2)
  1.  ;;=^5003260
  1.  ;;^UTILITY(U,$J,358.3,38180,0)
  1.  ;;=F14.23^^107^1501^35
  1.  ;;^UTILITY(U,$J,358.3,38180,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38180,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,38180,1,4,0)
  1.  ;;=4^F14.23
  1.  ;;^UTILITY(U,$J,358.3,38180,2)
  1.  ;;=^5003259
  1.  ;;^UTILITY(U,$J,358.3,38181,0)
  1.  ;;=F14.229^^107^1501^32
  1.  ;;^UTILITY(U,$J,358.3,38181,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38181,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Intoxication,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38181,1,4,0)
  1.  ;;=4^F14.229
  1.  ;;^UTILITY(U,$J,358.3,38181,2)
  1.  ;;=^5003258
  1.  ;;^UTILITY(U,$J,358.3,38182,0)
  1.  ;;=F14.222^^107^1501^30
  1.  ;;^UTILITY(U,$J,358.3,38182,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38182,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Intoxication w/ Perceptual Disturbance
  1.  ;;^UTILITY(U,$J,358.3,38182,1,4,0)
  1.  ;;=4^F14.222
  1.  ;;^UTILITY(U,$J,358.3,38182,2)
  1.  ;;=^5003257
  1.  ;;^UTILITY(U,$J,358.3,38183,0)
  1.  ;;=F14.221^^107^1501^29
  1.  ;;^UTILITY(U,$J,358.3,38183,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38183,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Intoxication Delirium
  1.  ;;^UTILITY(U,$J,358.3,38183,1,4,0)
  1.  ;;=4^F14.221
  1.  ;;^UTILITY(U,$J,358.3,38183,2)
  1.  ;;=^5003256
  1.  ;;^UTILITY(U,$J,358.3,38184,0)
  1.  ;;=F14.220^^107^1501^31
  1.  ;;^UTILITY(U,$J,358.3,38184,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38184,1,3,0)
  1.  ;;=3^Cocaine Dependence w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38184,1,4,0)
  1.  ;;=4^F14.220
  1.  ;;^UTILITY(U,$J,358.3,38184,2)
  1.  ;;=^5003255
  1.  ;;^UTILITY(U,$J,358.3,38185,0)
  1.  ;;=F14.20^^107^1501^36
  1.  ;;^UTILITY(U,$J,358.3,38185,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38185,1,3,0)
  1.  ;;=3^Cocaine Dependence,Uncompicated
  1.  ;;^UTILITY(U,$J,358.3,38185,1,4,0)
  1.  ;;=4^F14.20
  1.  ;;^UTILITY(U,$J,358.3,38185,2)
  1.  ;;=^5003253
  1.  ;;^UTILITY(U,$J,358.3,38186,0)
  1.  ;;=F10.120^^107^1501^1
  1.  ;;^UTILITY(U,$J,358.3,38186,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38186,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38186,1,4,0)
  1.  ;;=4^F10.120
  1.  ;;^UTILITY(U,$J,358.3,38186,2)
  1.  ;;=^5003069
  1.  ;;^UTILITY(U,$J,358.3,38187,0)
  1.  ;;=F10.10^^107^1501^7
  1.  ;;^UTILITY(U,$J,358.3,38187,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38187,1,3,0)
  1.  ;;=3^Alcohol Abuse,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38187,1,4,0)
  1.  ;;=4^F10.10
  1.  ;;^UTILITY(U,$J,358.3,38187,2)
  1.  ;;=^5003068
  1.  ;;^UTILITY(U,$J,358.3,38188,0)
  1.  ;;=F17.201^^107^1501^41
  1.  ;;^UTILITY(U,$J,358.3,38188,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38188,1,3,0)
  1.  ;;=3^Nicotine Dependence In Remission,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38188,1,4,0)
  1.  ;;=4^F17.201
  1.  ;;^UTILITY(U,$J,358.3,38188,2)
  1.  ;;=^5003361
  1.  ;;^UTILITY(U,$J,358.3,38189,0)
  1.  ;;=F17.210^^107^1501^40
  1.  ;;^UTILITY(U,$J,358.3,38189,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38189,1,3,0)
  1.  ;;=3^Nicotine Dependence Cigarettes,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38189,1,4,0)
  1.  ;;=4^F17.210
  1.  ;;^UTILITY(U,$J,358.3,38189,2)
  1.  ;;=^5003365
  1.  ;;^UTILITY(U,$J,358.3,38190,0)
  1.  ;;=F17.291^^107^1501^42
  1.  ;;^UTILITY(U,$J,358.3,38190,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38190,1,3,0)
  1.  ;;=3^Nicotine Dependence Oth Tobacco Product,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38190,1,4,0)
  1.  ;;=4^F17.291
  1.  ;;^UTILITY(U,$J,358.3,38190,2)
  1.  ;;=^5003376
  1.  ;;^UTILITY(U,$J,358.3,38191,0)
  1.  ;;=F17.290^^107^1501^43
  1.  ;;^UTILITY(U,$J,358.3,38191,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38191,1,3,0)
  1.  ;;=3^Nicotine Dependence Oth Tobacco Product,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38191,1,4,0)
  1.  ;;=4^F17.290
  1.  ;;^UTILITY(U,$J,358.3,38191,2)
  1.  ;;=^5003375
  1.  ;;^UTILITY(U,$J,358.3,38192,0)
  1.  ;;=F17.221^^107^1501^37
  1.  ;;^UTILITY(U,$J,358.3,38192,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38192,1,3,0)
  1.  ;;=3^Nicotine Dependence Chewing Tobacco,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38192,1,4,0)
  1.  ;;=4^F17.221
  1.  ;;^UTILITY(U,$J,358.3,38192,2)
  1.  ;;=^5003371
  1.  ;;^UTILITY(U,$J,358.3,38193,0)
  1.  ;;=F17.220^^107^1501^38
  1.  ;;^UTILITY(U,$J,358.3,38193,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38193,1,3,0)
  1.  ;;=3^Nicotine Dependence Chewing Tobacco,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38193,1,4,0)
  1.  ;;=4^F17.220
  1.  ;;^UTILITY(U,$J,358.3,38193,2)
  1.  ;;=^5003370
  1.  ;;^UTILITY(U,$J,358.3,38194,0)
  1.  ;;=F17.211^^107^1501^39
  1.  ;;^UTILITY(U,$J,358.3,38194,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38194,1,3,0)
  1.  ;;=3^Nicotine Dependence Cigarettes,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38194,1,4,0)
  1.  ;;=4^F17.211
  1.  ;;^UTILITY(U,$J,358.3,38194,2)
  1.  ;;=^5003366
  1.  ;;^UTILITY(U,$J,358.3,38195,0)
  1.  ;;=F17.200^^107^1501^44
  1.  ;;^UTILITY(U,$J,358.3,38195,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38195,1,3,0)
  1.  ;;=3^Nicotine Dependence,Unspec,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38195,1,4,0)
  1.  ;;=4^F17.200
  1.  ;;^UTILITY(U,$J,358.3,38195,2)
  1.  ;;=^5003360
  1.  ;;^UTILITY(U,$J,358.3,38196,0)
  1.  ;;=F11.120^^107^1501^45
  1.  ;;^UTILITY(U,$J,358.3,38196,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38196,1,3,0)
  1.  ;;=3^Opioid Abuse w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38196,1,4,0)
  1.  ;;=4^F11.120
  1.  ;;^UTILITY(U,$J,358.3,38196,2)
  1.  ;;=^5003115
  1.  ;;^UTILITY(U,$J,358.3,38197,0)
  1.  ;;=F11.10^^107^1501^49
  1.  ;;^UTILITY(U,$J,358.3,38197,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38197,1,3,0)
  1.  ;;=3^Opioid Abuse,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38197,1,4,0)
  1.  ;;=4^F11.10
  1.  ;;^UTILITY(U,$J,358.3,38197,2)
  1.  ;;=^5003114
  1.  ;;^UTILITY(U,$J,358.3,38198,0)
  1.  ;;=F11.129^^107^1501^46
  1.  ;;^UTILITY(U,$J,358.3,38198,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38198,1,3,0)
  1.  ;;=3^Opioid Abuse w/ Intoxication,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38198,1,4,0)
  1.  ;;=4^F11.129
  1.  ;;^UTILITY(U,$J,358.3,38198,2)
  1.  ;;=^5003118
  1.  ;;^UTILITY(U,$J,358.3,38199,0)
  1.  ;;=F10.21^^107^1501^8
  1.  ;;^UTILITY(U,$J,358.3,38199,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38199,1,3,0)
  1.  ;;=3^Alcohol Dependence,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38199,1,4,0)
  1.  ;;=4^F10.21
  1.  ;;^UTILITY(U,$J,358.3,38199,2)
  1.  ;;=^5003082
  1.  ;;^UTILITY(U,$J,358.3,38200,0)
  1.  ;;=F12.10^^107^1501^16
  1.  ;;^UTILITY(U,$J,358.3,38200,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38200,1,3,0)
  1.  ;;=3^Cannabis Abuse,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38200,1,4,0)
  1.  ;;=4^F12.10
  1.  ;;^UTILITY(U,$J,358.3,38200,2)
  1.  ;;=^5003155
  1.  ;;^UTILITY(U,$J,358.3,38201,0)
  1.  ;;=F12.20^^107^1501^18
  1.  ;;^UTILITY(U,$J,358.3,38201,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38201,1,3,0)
  1.  ;;=3^Cannabis Dependence,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38201,1,4,0)
  1.  ;;=4^F12.20
  1.  ;;^UTILITY(U,$J,358.3,38201,2)
  1.  ;;=^5003166
  1.  ;;^UTILITY(U,$J,358.3,38202,0)
  1.  ;;=F12.21^^107^1501^17
  1.  ;;^UTILITY(U,$J,358.3,38202,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38202,1,3,0)
  1.  ;;=3^Cannabis Dependence,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38202,1,4,0)
  1.  ;;=4^F12.21
  1.  ;;^UTILITY(U,$J,358.3,38202,2)
  1.  ;;=^5003167
  1.  ;;^UTILITY(U,$J,358.3,38203,0)
  1.  ;;=F12.90^^107^1501^20
  1.  ;;^UTILITY(U,$J,358.3,38203,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38203,1,3,0)
  1.  ;;=3^Cannabis Use,Unspec,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,38203,1,4,0)
  1.  ;;=4^F12.90
  1.  ;;^UTILITY(U,$J,358.3,38203,2)
  1.  ;;=^5003178
  1.  ;;^UTILITY(U,$J,358.3,38204,0)
  1.  ;;=F10.11^^107^1501^6
  1.  ;;^UTILITY(U,$J,358.3,38204,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38204,1,3,0)
  1.  ;;=3^Alcohol Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38204,1,4,0)
  1.  ;;=4^F10.11
  1.  ;;^UTILITY(U,$J,358.3,38204,2)
  1.  ;;=^268230
  1.  ;;^UTILITY(U,$J,358.3,38205,0)
  1.  ;;=F12.11^^107^1501^15
  1.  ;;^UTILITY(U,$J,358.3,38205,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38205,1,3,0)
  1.  ;;=3^Cannabis Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38205,1,4,0)
  1.  ;;=4^F12.11
  1.  ;;^UTILITY(U,$J,358.3,38205,2)
  1.  ;;=^268236
  1.  ;;^UTILITY(U,$J,358.3,38206,0)
  1.  ;;=F14.11^^107^1501^21
  1.  ;;^UTILITY(U,$J,358.3,38206,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38206,1,3,0)
  1.  ;;=3^Cocaine Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38206,1,4,0)
  1.  ;;=4^F14.11
  1.  ;;^UTILITY(U,$J,358.3,38206,2)
  1.  ;;=^268249
  1.  ;;^UTILITY(U,$J,358.3,38207,0)
  1.  ;;=F11.11^^107^1501^48
  1.  ;;^UTILITY(U,$J,358.3,38207,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38207,1,3,0)
  1.  ;;=3^Opioid Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,38207,1,4,0)
  1.  ;;=4^F11.11
  1.  ;;^UTILITY(U,$J,358.3,38207,2)
  1.  ;;=^268246
  1.  ;;^UTILITY(U,$J,358.3,38208,0)
  1.  ;;=F12.93^^107^1501^19
  1.  ;;^UTILITY(U,$J,358.3,38208,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38208,1,3,0)
  1.  ;;=3^Cannabis Use,Unspec w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,38208,1,4,0)
  1.  ;;=4^F12.93
  1.  ;;^UTILITY(U,$J,358.3,38208,2)
  1.  ;;=^5157302
  1.  ;;^UTILITY(U,$J,358.3,38209,0)
  1.  ;;=F10.130^^107^1501^4
  1.  ;;^UTILITY(U,$J,358.3,38209,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38209,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal,Uncomp
  1.  ;;^UTILITY(U,$J,358.3,38209,1,4,0)
  1.  ;;=4^F10.130
  1.  ;;^UTILITY(U,$J,358.3,38209,2)
  1.  ;;=^5159130
  1.  ;;^UTILITY(U,$J,358.3,38210,0)
  1.  ;;=F10.131^^107^1501^2
  1.  ;;^UTILITY(U,$J,358.3,38210,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38210,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal Delirium
  1.  ;;^UTILITY(U,$J,358.3,38210,1,4,0)
  1.  ;;=4^F10.131
  1.  ;;^UTILITY(U,$J,358.3,38210,2)
  1.  ;;=^5159131
  1.  ;;^UTILITY(U,$J,358.3,38211,0)
  1.  ;;=F10.132^^107^1501^3
  1.  ;;^UTILITY(U,$J,358.3,38211,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38211,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal w/ Perceptual Disturbance
  1.  ;;^UTILITY(U,$J,358.3,38211,1,4,0)
  1.  ;;=4^F10.132
  1.  ;;^UTILITY(U,$J,358.3,38211,2)
  1.  ;;=^5159132
  1.  ;;^UTILITY(U,$J,358.3,38212,0)
  1.  ;;=F10.139^^107^1501^5
  1.  ;;^UTILITY(U,$J,358.3,38212,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38212,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal,Unspec
  1.  ;;^UTILITY(U,$J,358.3,38212,1,4,0)
  1.  ;;=4^F10.139
  1.  ;;^UTILITY(U,$J,358.3,38212,2)
  1.  ;;=^5159133
  1.  ;;^UTILITY(U,$J,358.3,38213,0)
  1.  ;;=F10.930^^107^1501^12
  1.  ;;^UTILITY(U,$J,358.3,38213,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38213,1,3,0)
  1.  ;;=3^Alcohol Use,Unspec w/ Withdrawal,Uncomp
  1.  ;;^UTILITY(U,$J,358.3,38213,1,4,0)
  1.  ;;=4^F10.930
  1.  ;;^UTILITY(U,$J,358.3,38213,2)
  1.  ;;=^5159134
  1.  ;;^UTILITY(U,$J,358.3,38214,0)
  1.  ;;=F10.931^^107^1501^10
  1.  ;;^UTILITY(U,$J,358.3,38214,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38214,1,3,0)
  1.  ;;=3^Alcohol Use,Unspec w/ Withdrawal Delirium