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

IBDEI25S.m

Go to the documentation of this file.
IBDEI25S ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,34473,2)
 ;;=^5003234
 ;;^UTILITY(U,$J,358.3,34474,0)
 ;;=F13.288^^134^1748^10
 ;;^UTILITY(U,$J,358.3,34474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34474,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Mild Neurocog D/O w/ Mod-Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34474,1,4,0)
 ;;=4^F13.288
 ;;^UTILITY(U,$J,358.3,34474,2)
 ;;=^5003219
 ;;^UTILITY(U,$J,358.3,34475,0)
 ;;=F13.988^^134^1748^11
 ;;^UTILITY(U,$J,358.3,34475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34475,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Mild Neurocog D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34475,1,4,0)
 ;;=4^F13.988
 ;;^UTILITY(U,$J,358.3,34475,2)
 ;;=^5003238
 ;;^UTILITY(U,$J,358.3,34476,0)
 ;;=F13.159^^134^1748^12
 ;;^UTILITY(U,$J,358.3,34476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34476,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Psychotic D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34476,1,4,0)
 ;;=4^F13.159
 ;;^UTILITY(U,$J,358.3,34476,2)
 ;;=^5003196
 ;;^UTILITY(U,$J,358.3,34477,0)
 ;;=F13.259^^134^1748^13
 ;;^UTILITY(U,$J,358.3,34477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34477,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Psychotic D/O w/ Mod-Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34477,1,4,0)
 ;;=4^F13.259
 ;;^UTILITY(U,$J,358.3,34477,2)
 ;;=^5003213
 ;;^UTILITY(U,$J,358.3,34478,0)
 ;;=F13.959^^134^1748^14
 ;;^UTILITY(U,$J,358.3,34478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34478,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Psychotic D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34478,1,4,0)
 ;;=4^F13.959
 ;;^UTILITY(U,$J,358.3,34478,2)
 ;;=^5003232
 ;;^UTILITY(U,$J,358.3,34479,0)
 ;;=F13.181^^134^1748^15
 ;;^UTILITY(U,$J,358.3,34479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34479,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Sexual Dysfunc w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34479,1,4,0)
 ;;=4^F13.181
 ;;^UTILITY(U,$J,358.3,34479,2)
 ;;=^5003198
 ;;^UTILITY(U,$J,358.3,34480,0)
 ;;=F13.281^^134^1748^16
 ;;^UTILITY(U,$J,358.3,34480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34480,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Sexual Dysfunc w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34480,1,4,0)
 ;;=4^F13.281
 ;;^UTILITY(U,$J,358.3,34480,2)
 ;;=^5003217
 ;;^UTILITY(U,$J,358.3,34481,0)
 ;;=F13.981^^134^1748^17
 ;;^UTILITY(U,$J,358.3,34481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34481,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Sexual Dysfunc w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34481,1,4,0)
 ;;=4^F13.981
 ;;^UTILITY(U,$J,358.3,34481,2)
 ;;=^5003236
 ;;^UTILITY(U,$J,358.3,34482,0)
 ;;=F13.182^^134^1748^18
 ;;^UTILITY(U,$J,358.3,34482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34482,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34482,1,4,0)
 ;;=4^F13.182
 ;;^UTILITY(U,$J,358.3,34482,2)
 ;;=^5003199
 ;;^UTILITY(U,$J,358.3,34483,0)
 ;;=F13.282^^134^1748^19
 ;;^UTILITY(U,$J,358.3,34483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34483,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Sleep D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34483,1,4,0)
 ;;=4^F13.282
 ;;^UTILITY(U,$J,358.3,34483,2)
 ;;=^5003218
 ;;^UTILITY(U,$J,358.3,34484,0)
 ;;=F13.982^^134^1748^20
 ;;^UTILITY(U,$J,358.3,34484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34484,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Induced Sleep D/O w/o Use D/O