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

IBDEI26B.m

Go to the documentation of this file.
IBDEI26B ; ; 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,34700,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34700,1,4,0)
 ;;=4^F14.159
 ;;^UTILITY(U,$J,358.3,34700,2)
 ;;=^5003247
 ;;^UTILITY(U,$J,358.3,34701,0)
 ;;=F14.259^^134^1762^11
 ;;^UTILITY(U,$J,358.3,34701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34701,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34701,1,4,0)
 ;;=4^F14.259
 ;;^UTILITY(U,$J,358.3,34701,2)
 ;;=^5003263
 ;;^UTILITY(U,$J,358.3,34702,0)
 ;;=F14.959^^134^1762^12
 ;;^UTILITY(U,$J,358.3,34702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34702,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34702,1,4,0)
 ;;=4^F14.959
 ;;^UTILITY(U,$J,358.3,34702,2)
 ;;=^5003277
 ;;^UTILITY(U,$J,358.3,34703,0)
 ;;=F14.181^^134^1762^13
 ;;^UTILITY(U,$J,358.3,34703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34703,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34703,1,4,0)
 ;;=4^F14.181
 ;;^UTILITY(U,$J,358.3,34703,2)
 ;;=^5003249
 ;;^UTILITY(U,$J,358.3,34704,0)
 ;;=F14.281^^134^1762^14
 ;;^UTILITY(U,$J,358.3,34704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34704,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34704,1,4,0)
 ;;=4^F14.281
 ;;^UTILITY(U,$J,358.3,34704,2)
 ;;=^5003265
 ;;^UTILITY(U,$J,358.3,34705,0)
 ;;=F14.981^^134^1762^15
 ;;^UTILITY(U,$J,358.3,34705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34705,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34705,1,4,0)
 ;;=4^F14.981
 ;;^UTILITY(U,$J,358.3,34705,2)
 ;;=^5003279
 ;;^UTILITY(U,$J,358.3,34706,0)
 ;;=F14.182^^134^1762^16
 ;;^UTILITY(U,$J,358.3,34706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34706,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34706,1,4,0)
 ;;=4^F14.182
 ;;^UTILITY(U,$J,358.3,34706,2)
 ;;=^5003250
 ;;^UTILITY(U,$J,358.3,34707,0)
 ;;=F14.282^^134^1762^17
 ;;^UTILITY(U,$J,358.3,34707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34707,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34707,1,4,0)
 ;;=4^F14.282
 ;;^UTILITY(U,$J,358.3,34707,2)
 ;;=^5003266
 ;;^UTILITY(U,$J,358.3,34708,0)
 ;;=F14.982^^134^1762^18
 ;;^UTILITY(U,$J,358.3,34708,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34708,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34708,1,4,0)
 ;;=4^F14.982
 ;;^UTILITY(U,$J,358.3,34708,2)
 ;;=^5003280
 ;;^UTILITY(U,$J,358.3,34709,0)
 ;;=F14.122^^134^1762^22
 ;;^UTILITY(U,$J,358.3,34709,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34709,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,34709,1,4,0)
 ;;=4^F14.122
 ;;^UTILITY(U,$J,358.3,34709,2)
 ;;=^5003242
 ;;^UTILITY(U,$J,358.3,34710,0)
 ;;=F14.222^^134^1762^23
 ;;^UTILITY(U,$J,358.3,34710,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34710,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,34710,1,4,0)
 ;;=4^F14.222
 ;;^UTILITY(U,$J,358.3,34710,2)
 ;;=^5003257
 ;;^UTILITY(U,$J,358.3,34711,0)
 ;;=F14.922^^134^1762^24
 ;;^UTILITY(U,$J,358.3,34711,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34711,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,34711,1,4,0)
 ;;=4^F14.922
 ;;^UTILITY(U,$J,358.3,34711,2)
 ;;=^5003272