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

IBDEI0A2.m

Go to the documentation of this file.
IBDEI0A2 ; ; 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,24324,1,3,0)
 ;;=3^Oth Stimulant Induced Obess-Compul & Rel D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24324,1,4,0)
 ;;=4^F15.988
 ;;^UTILITY(U,$J,358.3,24324,2)
 ;;=^5133357
 ;;^UTILITY(U,$J,358.3,24325,0)
 ;;=F15.159^^108^1234^45
 ;;^UTILITY(U,$J,358.3,24325,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24325,1,3,0)
 ;;=3^Oth Stimulant Induced Psychotic D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24325,1,4,0)
 ;;=4^F15.159
 ;;^UTILITY(U,$J,358.3,24325,2)
 ;;=^5003290
 ;;^UTILITY(U,$J,358.3,24326,0)
 ;;=F15.259^^108^1234^46
 ;;^UTILITY(U,$J,358.3,24326,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24326,1,3,0)
 ;;=3^Oth Stimulant Induced Psychotic D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24326,1,4,0)
 ;;=4^F15.259
 ;;^UTILITY(U,$J,358.3,24326,2)
 ;;=^5003305
 ;;^UTILITY(U,$J,358.3,24327,0)
 ;;=F15.959^^108^1234^47
 ;;^UTILITY(U,$J,358.3,24327,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24327,1,3,0)
 ;;=3^Oth Stimulant Induced Psychotic D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24327,1,4,0)
 ;;=4^F15.959
 ;;^UTILITY(U,$J,358.3,24327,2)
 ;;=^5003319
 ;;^UTILITY(U,$J,358.3,24328,0)
 ;;=F15.181^^108^1234^48
 ;;^UTILITY(U,$J,358.3,24328,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24328,1,3,0)
 ;;=3^Oth Stimulant Induced Sexual Dysfunc w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24328,1,4,0)
 ;;=4^F15.181
 ;;^UTILITY(U,$J,358.3,24328,2)
 ;;=^5003292
 ;;^UTILITY(U,$J,358.3,24329,0)
 ;;=F15.281^^108^1234^49
 ;;^UTILITY(U,$J,358.3,24329,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24329,1,3,0)
 ;;=3^Oth Stimulant Induced Sexual Dysfunc w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24329,1,4,0)
 ;;=4^F15.281
 ;;^UTILITY(U,$J,358.3,24329,2)
 ;;=^5003307
 ;;^UTILITY(U,$J,358.3,24330,0)
 ;;=F15.981^^108^1234^50
 ;;^UTILITY(U,$J,358.3,24330,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24330,1,3,0)
 ;;=3^Oth Stimulant Induced Sexual Dysfunc w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24330,1,4,0)
 ;;=4^F15.981
 ;;^UTILITY(U,$J,358.3,24330,2)
 ;;=^5003321
 ;;^UTILITY(U,$J,358.3,24331,0)
 ;;=F15.182^^108^1234^51
 ;;^UTILITY(U,$J,358.3,24331,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24331,1,3,0)
 ;;=3^Oth Stimulant Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24331,1,4,0)
 ;;=4^F15.182
 ;;^UTILITY(U,$J,358.3,24331,2)
 ;;=^5003293
 ;;^UTILITY(U,$J,358.3,24332,0)
 ;;=F15.282^^108^1234^52
 ;;^UTILITY(U,$J,358.3,24332,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24332,1,3,0)
 ;;=3^Oth Stimulant Induced Sleep D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24332,1,4,0)
 ;;=4^F15.282
 ;;^UTILITY(U,$J,358.3,24332,2)
 ;;=^5003308
 ;;^UTILITY(U,$J,358.3,24333,0)
 ;;=F15.982^^108^1234^53
 ;;^UTILITY(U,$J,358.3,24333,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24333,1,3,0)
 ;;=3^Oth Stimulant Induced Sleep D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24333,1,4,0)
 ;;=4^F15.982
 ;;^UTILITY(U,$J,358.3,24333,2)
 ;;=^5003322
 ;;^UTILITY(U,$J,358.3,24334,0)
 ;;=F15.122^^108^1234^57
 ;;^UTILITY(U,$J,358.3,24334,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24334,1,3,0)
 ;;=3^Oth Stimulant Intox w/ Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24334,1,4,0)
 ;;=4^F15.122
 ;;^UTILITY(U,$J,358.3,24334,2)
 ;;=^5003285
 ;;^UTILITY(U,$J,358.3,24335,0)
 ;;=F15.222^^108^1234^58
 ;;^UTILITY(U,$J,358.3,24335,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24335,1,3,0)
 ;;=3^Oth Stimulant Intox w/ Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24335,1,4,0)
 ;;=4^F15.222
 ;;^UTILITY(U,$J,358.3,24335,2)
 ;;=^5003299
 ;;^UTILITY(U,$J,358.3,24336,0)
 ;;=F15.922^^108^1234^59
 ;;^UTILITY(U,$J,358.3,24336,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24336,1,3,0)
 ;;=3^Oth Stimulant Intox w/ Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24336,1,4,0)
 ;;=4^F15.922
 ;;^UTILITY(U,$J,358.3,24336,2)
 ;;=^5003313
 ;;^UTILITY(U,$J,358.3,24337,0)
 ;;=F15.129^^108^1234^60
 ;;^UTILITY(U,$J,358.3,24337,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24337,1,3,0)
 ;;=3^Oth Stimulant Intox w/o Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24337,1,4,0)
 ;;=4^F15.129
 ;;^UTILITY(U,$J,358.3,24337,2)
 ;;=^5003286
 ;;^UTILITY(U,$J,358.3,24338,0)
 ;;=F15.229^^108^1234^61
 ;;^UTILITY(U,$J,358.3,24338,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24338,1,3,0)
 ;;=3^Oth Stimulant Intox w/o Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24338,1,4,0)
 ;;=4^F15.229
 ;;^UTILITY(U,$J,358.3,24338,2)
 ;;=^5003300
 ;;^UTILITY(U,$J,358.3,24339,0)
 ;;=F15.929^^108^1234^62
 ;;^UTILITY(U,$J,358.3,24339,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24339,1,3,0)
 ;;=3^Oth Stimulant Intox w/o Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24339,1,4,0)
 ;;=4^F15.929
 ;;^UTILITY(U,$J,358.3,24339,2)
 ;;=^5003314
 ;;^UTILITY(U,$J,358.3,24340,0)
 ;;=F15.121^^108^1234^54
 ;;^UTILITY(U,$J,358.3,24340,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24340,1,3,0)
 ;;=3^Oth Stimulant Intox Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24340,1,4,0)
 ;;=4^F15.121
 ;;^UTILITY(U,$J,358.3,24340,2)
 ;;=^5003284
 ;;^UTILITY(U,$J,358.3,24341,0)
 ;;=F15.221^^108^1234^55
 ;;^UTILITY(U,$J,358.3,24341,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24341,1,3,0)
 ;;=3^Oth Stimulant Intox Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24341,1,4,0)
 ;;=4^F15.221
 ;;^UTILITY(U,$J,358.3,24341,2)
 ;;=^5003298
 ;;^UTILITY(U,$J,358.3,24342,0)
 ;;=F15.921^^108^1234^56
 ;;^UTILITY(U,$J,358.3,24342,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24342,1,3,0)
 ;;=3^Oth Stimulant Intox Delirium w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24342,1,4,0)
 ;;=4^F15.921
 ;;^UTILITY(U,$J,358.3,24342,2)
 ;;=^5003312
 ;;^UTILITY(U,$J,358.3,24343,0)
 ;;=F15.23^^108^1234^67
 ;;^UTILITY(U,$J,358.3,24343,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24343,1,3,0)
 ;;=3^Oth Stimulant Withdrawal
 ;;^UTILITY(U,$J,358.3,24343,1,4,0)
 ;;=4^F15.23
 ;;^UTILITY(U,$J,358.3,24343,2)
 ;;=^5003301
 ;;^UTILITY(U,$J,358.3,24344,0)
 ;;=F15.10^^108^1234^64
 ;;^UTILITY(U,$J,358.3,24344,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24344,1,3,0)
 ;;=3^Oth Stimulant Mild Use D/O,Uncomplicated
 ;;^UTILITY(U,$J,358.3,24344,1,4,0)
 ;;=4^F15.10
 ;;^UTILITY(U,$J,358.3,24344,2)
 ;;=^5003282
 ;;^UTILITY(U,$J,358.3,24345,0)
 ;;=F15.20^^108^1234^65
 ;;^UTILITY(U,$J,358.3,24345,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24345,1,3,0)
 ;;=3^Oth Stimulant Mod/Sev Use D/O,Uncomplicated
 ;;^UTILITY(U,$J,358.3,24345,1,4,0)
 ;;=4^F15.20
 ;;^UTILITY(U,$J,358.3,24345,2)
 ;;=^5003295
 ;;^UTILITY(U,$J,358.3,24346,0)
 ;;=F14.180^^108^1234^1
 ;;^UTILITY(U,$J,358.3,24346,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24346,1,3,0)
 ;;=3^Cocaine Induced Anxiety D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24346,1,4,0)
 ;;=4^F14.180
 ;;^UTILITY(U,$J,358.3,24346,2)
 ;;=^5003248
 ;;^UTILITY(U,$J,358.3,24347,0)
 ;;=F14.280^^108^1234^2
 ;;^UTILITY(U,$J,358.3,24347,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24347,1,3,0)
 ;;=3^Cocaine Induced Anxiety D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24347,1,4,0)
 ;;=4^F14.280
 ;;^UTILITY(U,$J,358.3,24347,2)
 ;;=^5003264
 ;;^UTILITY(U,$J,358.3,24348,0)
 ;;=F14.980^^108^1234^3
 ;;^UTILITY(U,$J,358.3,24348,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24348,1,3,0)
 ;;=3^Cocaine Induced Anxiety D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24348,1,4,0)
 ;;=4^F14.980
 ;;^UTILITY(U,$J,358.3,24348,2)
 ;;=^5003278
 ;;^UTILITY(U,$J,358.3,24349,0)
 ;;=F14.14^^108^1234^4
 ;;^UTILITY(U,$J,358.3,24349,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24349,1,3,0)
 ;;=3^Cocaine Induced Mood D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24349,1,4,0)
 ;;=4^F14.14
 ;;^UTILITY(U,$J,358.3,24349,2)
 ;;=^5003244
 ;;^UTILITY(U,$J,358.3,24350,0)
 ;;=F14.24^^108^1234^5
 ;;^UTILITY(U,$J,358.3,24350,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24350,1,3,0)
 ;;=3^Cocaine Induced Mood D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24350,1,4,0)
 ;;=4^F14.24
 ;;^UTILITY(U,$J,358.3,24350,2)
 ;;=^5003260
 ;;^UTILITY(U,$J,358.3,24351,0)
 ;;=F14.94^^108^1234^6
 ;;^UTILITY(U,$J,358.3,24351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24351,1,3,0)
 ;;=3^Cocaine Induced Mood D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24351,1,4,0)
 ;;=4^F14.94
 ;;^UTILITY(U,$J,358.3,24351,2)
 ;;=^5003274
 ;;^UTILITY(U,$J,358.3,24352,0)
 ;;=F14.188^^108^1234^7
 ;;^UTILITY(U,$J,358.3,24352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24352,1,3,0)
 ;;=3^Cocaine Induced Obess-Compul & Rel D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24352,1,4,0)
 ;;=4^F14.188
 ;;^UTILITY(U,$J,358.3,24352,2)
 ;;=^5003251
 ;;^UTILITY(U,$J,358.3,24353,0)
 ;;=F14.288^^108^1234^8
 ;;^UTILITY(U,$J,358.3,24353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24353,1,3,0)
 ;;=3^Cocaine Induced Obess-Compul & Rel D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24353,1,4,0)
 ;;=4^F14.288
 ;;^UTILITY(U,$J,358.3,24353,2)
 ;;=^5003267
 ;;^UTILITY(U,$J,358.3,24354,0)
 ;;=F14.988^^108^1234^9
 ;;^UTILITY(U,$J,358.3,24354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24354,1,3,0)
 ;;=3^Cocaine Induced Obess-Compul & Rel D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24354,1,4,0)
 ;;=4^F14.988
 ;;^UTILITY(U,$J,358.3,24354,2)
 ;;=^5003281
 ;;^UTILITY(U,$J,358.3,24355,0)
 ;;=F14.159^^108^1234^10
 ;;^UTILITY(U,$J,358.3,24355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24355,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24355,1,4,0)
 ;;=4^F14.159
 ;;^UTILITY(U,$J,358.3,24355,2)
 ;;=^5003247
 ;;^UTILITY(U,$J,358.3,24356,0)
 ;;=F14.259^^108^1234^11
 ;;^UTILITY(U,$J,358.3,24356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24356,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24356,1,4,0)
 ;;=4^F14.259
 ;;^UTILITY(U,$J,358.3,24356,2)
 ;;=^5003263
 ;;^UTILITY(U,$J,358.3,24357,0)
 ;;=F14.959^^108^1234^12
 ;;^UTILITY(U,$J,358.3,24357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24357,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24357,1,4,0)
 ;;=4^F14.959
 ;;^UTILITY(U,$J,358.3,24357,2)
 ;;=^5003277
 ;;^UTILITY(U,$J,358.3,24358,0)
 ;;=F14.181^^108^1234^13
 ;;^UTILITY(U,$J,358.3,24358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24358,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24358,1,4,0)
 ;;=4^F14.181
 ;;^UTILITY(U,$J,358.3,24358,2)
 ;;=^5003249
 ;;^UTILITY(U,$J,358.3,24359,0)
 ;;=F14.281^^108^1234^14
 ;;^UTILITY(U,$J,358.3,24359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24359,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24359,1,4,0)
 ;;=4^F14.281
 ;;^UTILITY(U,$J,358.3,24359,2)
 ;;=^5003265
 ;;^UTILITY(U,$J,358.3,24360,0)
 ;;=F14.981^^108^1234^15
 ;;^UTILITY(U,$J,358.3,24360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24360,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24360,1,4,0)
 ;;=4^F14.981
 ;;^UTILITY(U,$J,358.3,24360,2)
 ;;=^5003279
 ;;^UTILITY(U,$J,358.3,24361,0)
 ;;=F14.182^^108^1234^16
 ;;^UTILITY(U,$J,358.3,24361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24361,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24361,1,4,0)
 ;;=4^F14.182
 ;;^UTILITY(U,$J,358.3,24361,2)
 ;;=^5003250
 ;;^UTILITY(U,$J,358.3,24362,0)
 ;;=F14.282^^108^1234^17
 ;;^UTILITY(U,$J,358.3,24362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24362,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24362,1,4,0)
 ;;=4^F14.282
 ;;^UTILITY(U,$J,358.3,24362,2)
 ;;=^5003266
 ;;^UTILITY(U,$J,358.3,24363,0)
 ;;=F14.982^^108^1234^18
 ;;^UTILITY(U,$J,358.3,24363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24363,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24363,1,4,0)
 ;;=4^F14.982
 ;;^UTILITY(U,$J,358.3,24363,2)
 ;;=^5003280
 ;;^UTILITY(U,$J,358.3,24364,0)
 ;;=F14.122^^108^1234^22
 ;;^UTILITY(U,$J,358.3,24364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24364,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24364,1,4,0)
 ;;=4^F14.122
 ;;^UTILITY(U,$J,358.3,24364,2)
 ;;=^5003242
 ;;^UTILITY(U,$J,358.3,24365,0)
 ;;=F14.222^^108^1234^23
 ;;^UTILITY(U,$J,358.3,24365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24365,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24365,1,4,0)
 ;;=4^F14.222
 ;;^UTILITY(U,$J,358.3,24365,2)
 ;;=^5003257
 ;;^UTILITY(U,$J,358.3,24366,0)
 ;;=F14.922^^108^1234^24
 ;;^UTILITY(U,$J,358.3,24366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24366,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24366,1,4,0)
 ;;=4^F14.922
 ;;^UTILITY(U,$J,358.3,24366,2)
 ;;=^5003272
 ;;^UTILITY(U,$J,358.3,24367,0)
 ;;=F14.129^^108^1234^25
 ;;^UTILITY(U,$J,358.3,24367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24367,1,3,0)
 ;;=3^Cocaine Intox w/o Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24367,1,4,0)
 ;;=4^F14.129
 ;;^UTILITY(U,$J,358.3,24367,2)
 ;;=^5003243
 ;;^UTILITY(U,$J,358.3,24368,0)
 ;;=F14.229^^108^1234^26
 ;;^UTILITY(U,$J,358.3,24368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24368,1,3,0)
 ;;=3^Cocaine Intox w/o Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24368,1,4,0)
 ;;=4^F14.229
 ;;^UTILITY(U,$J,358.3,24368,2)
 ;;=^5003258
 ;;^UTILITY(U,$J,358.3,24369,0)
 ;;=F14.929^^108^1234^27
 ;;^UTILITY(U,$J,358.3,24369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24369,1,3,0)
 ;;=3^Cocaine Intox w/o Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24369,1,4,0)
 ;;=4^F14.929
 ;;^UTILITY(U,$J,358.3,24369,2)
 ;;=^5003273
 ;;^UTILITY(U,$J,358.3,24370,0)
 ;;=F14.121^^108^1234^19
 ;;^UTILITY(U,$J,358.3,24370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24370,1,3,0)
 ;;=3^Cocaine Intox Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,24370,1,4,0)
 ;;=4^F14.121
 ;;^UTILITY(U,$J,358.3,24370,2)
 ;;=^5003241
 ;;^UTILITY(U,$J,358.3,24371,0)
 ;;=F14.221^^108^1234^20
 ;;^UTILITY(U,$J,358.3,24371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24371,1,3,0)
 ;;=3^Cocaine Intox Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,24371,1,4,0)
 ;;=4^F14.221
 ;;^UTILITY(U,$J,358.3,24371,2)
 ;;=^5003256
 ;;^UTILITY(U,$J,358.3,24372,0)
 ;;=F14.921^^108^1234^21
 ;;^UTILITY(U,$J,358.3,24372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24372,1,3,0)
 ;;=3^Cocaine Intox Delirium w/o Use D/O
 ;;^UTILITY(U,$J,358.3,24372,1,4,0)
 ;;=4^F14.921
 ;;^UTILITY(U,$J,358.3,24372,2)
 ;;=^5003271
 ;;^UTILITY(U,$J,358.3,24373,0)
 ;;=F14.10^^108^1234^30
 ;;^UTILITY(U,$J,358.3,24373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24373,1,3,0)
 ;;=3^Cocaine Use DO,Mild,Uncomp
 ;;^UTILITY(U,$J,358.3,24373,1,4,0)
 ;;=4^F14.10
 ;;^UTILITY(U,$J,358.3,24373,2)
 ;;=^5003239
 ;;^UTILITY(U,$J,358.3,24374,0)
 ;;=F14.20^^108^1234^32
 ;;^UTILITY(U,$J,358.3,24374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24374,1,3,0)
 ;;=3^Cocaine Use DO,Mod/Sev,Uncomp
 ;;^UTILITY(U,$J,358.3,24374,1,4,0)
 ;;=4^F14.20
 ;;^UTILITY(U,$J,358.3,24374,2)
 ;;=^5003253
 ;;^UTILITY(U,$J,358.3,24375,0)
 ;;=F14.23^^108^1234^33
 ;;^UTILITY(U,$J,358.3,24375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24375,1,3,0)
 ;;=3^Cocaine Withdrawal
 ;;^UTILITY(U,$J,358.3,24375,1,4,0)
 ;;=4^F14.23
 ;;^UTILITY(U,$J,358.3,24375,2)
 ;;=^5003259
 ;;^UTILITY(U,$J,358.3,24376,0)
 ;;=F14.21^^108^1234^31
 ;;^UTILITY(U,$J,358.3,24376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24376,1,3,0)
 ;;=3^Cocaine Use DO,Mod/Sev,In Remiss
 ;;^UTILITY(U,$J,358.3,24376,1,4,0)
 ;;=4^F14.21
 ;;^UTILITY(U,$J,358.3,24376,2)
 ;;=^5003254
 ;;^UTILITY(U,$J,358.3,24377,0)
 ;;=F15.11^^108^1234^63
 ;;^UTILITY(U,$J,358.3,24377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24377,1,3,0)
 ;;=3^Oth Stimulant Mild Use D/O,In Remission
 ;;^UTILITY(U,$J,358.3,24377,1,4,0)
 ;;=4^F15.11
 ;;^UTILITY(U,$J,358.3,24377,2)
 ;;=^5151304
 ;;^UTILITY(U,$J,358.3,24378,0)
 ;;=F14.11^^108^1234^29
 ;;^UTILITY(U,$J,358.3,24378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24378,1,3,0)
 ;;=3^Cocaine Use DO,Mild,In Remiss
 ;;^UTILITY(U,$J,358.3,24378,1,4,0)
 ;;=4^F14.11
 ;;^UTILITY(U,$J,358.3,24378,2)
 ;;=^268249
 ;;^UTILITY(U,$J,358.3,24379,0)
 ;;=F15.21^^108^1234^34
 ;;^UTILITY(U,$J,358.3,24379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24379,1,3,0)
 ;;=3^Oth Stimulant Dependence,Mod/Sev,In Remission
 ;;^UTILITY(U,$J,358.3,24379,1,4,0)
 ;;=4^F15.21
 ;;^UTILITY(U,$J,358.3,24379,2)
 ;;=^5003296
 ;;^UTILITY(U,$J,358.3,24380,0)
 ;;=Z91.120^^108^1235^1
 ;;^UTILITY(U,$J,358.3,24380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24380,1,3,0)
 ;;=3^Intentional Underdosing d/t Financial Hardship
 ;;^UTILITY(U,$J,358.3,24380,1,4,0)
 ;;=4^Z91.120
 ;;^UTILITY(U,$J,358.3,24380,2)
 ;;=^5063612
 ;;^UTILITY(U,$J,358.3,24381,0)
 ;;=Z91.128^^108^1235^2
 ;;^UTILITY(U,$J,358.3,24381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24381,1,3,0)
 ;;=3^Intentional Underdosing,Other Reasons
 ;;^UTILITY(U,$J,358.3,24381,1,4,0)
 ;;=4^Z91.128
 ;;^UTILITY(U,$J,358.3,24381,2)
 ;;=^5063613
 ;;^UTILITY(U,$J,358.3,24382,0)
 ;;=Z91.130^^108^1235^15
 ;;^UTILITY(U,$J,358.3,24382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24382,1,3,0)
 ;;=3^Unintented Underdosing d/t Age-Related Disability
 ;;^UTILITY(U,$J,358.3,24382,1,4,0)
 ;;=4^Z91.130
 ;;^UTILITY(U,$J,358.3,24382,2)
 ;;=^5063614
 ;;^UTILITY(U,$J,358.3,24383,0)
 ;;=Z91.138^^108^1235^16
 ;;^UTILITY(U,$J,358.3,24383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24383,1,3,0)
 ;;=3^Unintented Underdosing,Other Reasons
 ;;^UTILITY(U,$J,358.3,24383,1,4,0)
 ;;=4^Z91.138
 ;;^UTILITY(U,$J,358.3,24383,2)
 ;;=^5063615
 ;;^UTILITY(U,$J,358.3,24384,0)
 ;;=T38.3X6A^^108^1235^3
 ;;^UTILITY(U,$J,358.3,24384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24384,1,3,0)
 ;;=3^Underdosing Insulin/Oral Hypoglycemic Drugs,Init Encntr
 ;;^UTILITY(U,$J,358.3,24384,1,4,0)
 ;;=4^T38.3X6A
 ;;^UTILITY(U,$J,358.3,24384,2)
 ;;=^5049649
 ;;^UTILITY(U,$J,358.3,24385,0)
 ;;=T38.3X6S^^108^1235^4
 ;;^UTILITY(U,$J,358.3,24385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24385,1,3,0)
 ;;=3^Underdosing Insulin/Oral Hypoglycemic Drugs,Sequela
 ;;^UTILITY(U,$J,358.3,24385,1,4,0)
 ;;=4^T38.3X6S
 ;;^UTILITY(U,$J,358.3,24385,2)
 ;;=^5049651
 ;;^UTILITY(U,$J,358.3,24386,0)
 ;;=T38.3X6D^^108^1235^5
 ;;^UTILITY(U,$J,358.3,24386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24386,1,3,0)
 ;;=3^Underdosing Insulin/Oral Hypoglycemic Drugs,Sub Encntr
 ;;^UTILITY(U,$J,358.3,24386,1,4,0)
 ;;=4^T38.3X6D
 ;;^UTILITY(U,$J,358.3,24386,2)
 ;;=^5049650
 ;;^UTILITY(U,$J,358.3,24387,0)
 ;;=T46.5X6A^^108^1235^9
 ;;^UTILITY(U,$J,358.3,24387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24387,1,3,0)
 ;;=3^Underdosing of Antihypertensive Drugs,Init Encntr
 ;;^UTILITY(U,$J,358.3,24387,1,4,0)
 ;;=4^T46.5X6A
 ;;^UTILITY(U,$J,358.3,24387,2)
 ;;=^5051353
 ;;^UTILITY(U,$J,358.3,24388,0)
 ;;=T46.5X6D^^108^1235^10
 ;;^UTILITY(U,$J,358.3,24388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24388,1,3,0)
 ;;=3^Underdosing of Antihypertensive Drugs,Subs Encntr
 ;;^UTILITY(U,$J,358.3,24388,1,4,0)
 ;;=4^T46.5X6D
 ;;^UTILITY(U,$J,358.3,24388,2)
 ;;=^5051354
 ;;^UTILITY(U,$J,358.3,24389,0)
 ;;=T46.5X6S^^108^1235^11