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

IBDEI25T.m

Go to the documentation of this file.
IBDEI25T ; ; 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,34484,1,4,0)
 ;;=4^F13.982
 ;;^UTILITY(U,$J,358.3,34484,2)
 ;;=^5003237
 ;;^UTILITY(U,$J,358.3,34485,0)
 ;;=F13.129^^134^1748^23
 ;;^UTILITY(U,$J,358.3,34485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34485,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Intox w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34485,1,4,0)
 ;;=4^F13.129
 ;;^UTILITY(U,$J,358.3,34485,2)
 ;;=^5003192
 ;;^UTILITY(U,$J,358.3,34486,0)
 ;;=F13.229^^134^1748^24
 ;;^UTILITY(U,$J,358.3,34486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34486,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Intox w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34486,1,4,0)
 ;;=4^F13.229
 ;;^UTILITY(U,$J,358.3,34486,2)
 ;;=^5003205
 ;;^UTILITY(U,$J,358.3,34487,0)
 ;;=F13.929^^134^1748^25
 ;;^UTILITY(U,$J,358.3,34487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34487,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Intox w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34487,1,4,0)
 ;;=4^F13.929
 ;;^UTILITY(U,$J,358.3,34487,2)
 ;;=^5003224
 ;;^UTILITY(U,$J,358.3,34488,0)
 ;;=F13.121^^134^1748^21
 ;;^UTILITY(U,$J,358.3,34488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34488,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Intox Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34488,1,4,0)
 ;;=4^F13.121
 ;;^UTILITY(U,$J,358.3,34488,2)
 ;;=^5003191
 ;;^UTILITY(U,$J,358.3,34489,0)
 ;;=F13.221^^134^1748^22
 ;;^UTILITY(U,$J,358.3,34489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34489,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Intox Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34489,1,4,0)
 ;;=4^F13.221
 ;;^UTILITY(U,$J,358.3,34489,2)
 ;;=^5003204
 ;;^UTILITY(U,$J,358.3,34490,0)
 ;;=F13.10^^134^1748^27
 ;;^UTILITY(U,$J,358.3,34490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34490,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Use DO,Mild,Uncomp
 ;;^UTILITY(U,$J,358.3,34490,1,4,0)
 ;;=4^F13.10
 ;;^UTILITY(U,$J,358.3,34490,2)
 ;;=^5003189
 ;;^UTILITY(U,$J,358.3,34491,0)
 ;;=F13.20^^134^1748^29
 ;;^UTILITY(U,$J,358.3,34491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34491,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Use DO,Mod/Sev,Uncomp
 ;;^UTILITY(U,$J,358.3,34491,1,4,0)
 ;;=4^F13.20
 ;;^UTILITY(U,$J,358.3,34491,2)
 ;;=^5003202
 ;;^UTILITY(U,$J,358.3,34492,0)
 ;;=F13.232^^134^1748^33
 ;;^UTILITY(U,$J,358.3,34492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34492,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic WD w/ Percep Disturb Use DO (Mod/Sev)
 ;;^UTILITY(U,$J,358.3,34492,1,4,0)
 ;;=4^F13.232
 ;;^UTILITY(U,$J,358.3,34492,2)
 ;;=^5003208
 ;;^UTILITY(U,$J,358.3,34493,0)
 ;;=F13.239^^134^1748^35
 ;;^UTILITY(U,$J,358.3,34493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34493,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic WD w/o Percep Disturb Use DO (Mod/Sev)
 ;;^UTILITY(U,$J,358.3,34493,1,4,0)
 ;;=4^F13.239
 ;;^UTILITY(U,$J,358.3,34493,2)
 ;;=^5003209
 ;;^UTILITY(U,$J,358.3,34494,0)
 ;;=F13.231^^134^1748^31
 ;;^UTILITY(U,$J,358.3,34494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34494,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic WD Delirium w/Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34494,1,4,0)
 ;;=4^F13.231
 ;;^UTILITY(U,$J,358.3,34494,2)
 ;;=^5003207
 ;;^UTILITY(U,$J,358.3,34495,0)
 ;;=F13.99^^134^1748^26
 ;;^UTILITY(U,$J,358.3,34495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34495,1,3,0)
 ;;=3^Sedative/Hypnotic/Anxiolytic Related D/O,Unspec
 ;;^UTILITY(U,$J,358.3,34495,1,4,0)
 ;;=4^F13.99
 ;;^UTILITY(U,$J,358.3,34495,2)
 ;;=^5133353