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

IBDEI1WR.m

Go to the documentation of this file.
IBDEI1WR ; ; 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,30466,2)
 ;;=^5003316
 ;;^UTILITY(U,$J,358.3,30467,0)
 ;;=F15.921^^120^1556^38
 ;;^UTILITY(U,$J,358.3,30467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30467,1,3,0)
 ;;=3^Oth Stimulant Induced Delirium
 ;;^UTILITY(U,$J,358.3,30467,1,4,0)
 ;;=4^F15.921
 ;;^UTILITY(U,$J,358.3,30467,2)
 ;;=^5003312
 ;;^UTILITY(U,$J,358.3,30468,0)
 ;;=F15.188^^120^1556^42
 ;;^UTILITY(U,$J,358.3,30468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30468,1,3,0)
 ;;=3^Oth Stimulant Induced Obess-Compul & Rel D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,30468,1,4,0)
 ;;=4^F15.188
 ;;^UTILITY(U,$J,358.3,30468,2)
 ;;=^5133355
 ;;^UTILITY(U,$J,358.3,30469,0)
 ;;=F15.288^^120^1556^44
 ;;^UTILITY(U,$J,358.3,30469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30469,1,3,0)
 ;;=3^Oth Stimulant Induced Obess/Compul & Rel D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30469,1,4,0)
 ;;=4^F15.288
 ;;^UTILITY(U,$J,358.3,30469,2)
 ;;=^5133356
 ;;^UTILITY(U,$J,358.3,30470,0)
 ;;=F15.988^^120^1556^43
 ;;^UTILITY(U,$J,358.3,30470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30470,1,3,0)
 ;;=3^Oth Stimulant Induced Obess-Compul & Rel D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30470,1,4,0)
 ;;=4^F15.988
 ;;^UTILITY(U,$J,358.3,30470,2)
 ;;=^5133357
 ;;^UTILITY(U,$J,358.3,30471,0)
 ;;=F15.159^^120^1556^45
 ;;^UTILITY(U,$J,358.3,30471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30471,1,3,0)
 ;;=3^Oth Stimulant Induced Psychotic D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,30471,1,4,0)
 ;;=4^F15.159
 ;;^UTILITY(U,$J,358.3,30471,2)
 ;;=^5003290
 ;;^UTILITY(U,$J,358.3,30472,0)
 ;;=F15.259^^120^1556^46
 ;;^UTILITY(U,$J,358.3,30472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30472,1,3,0)
 ;;=3^Oth Stimulant Induced Psychotic D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30472,1,4,0)
 ;;=4^F15.259
 ;;^UTILITY(U,$J,358.3,30472,2)
 ;;=^5003305
 ;;^UTILITY(U,$J,358.3,30473,0)
 ;;=F15.959^^120^1556^47
 ;;^UTILITY(U,$J,358.3,30473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30473,1,3,0)
 ;;=3^Oth Stimulant Induced Psychotic D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30473,1,4,0)
 ;;=4^F15.959
 ;;^UTILITY(U,$J,358.3,30473,2)
 ;;=^5003319
 ;;^UTILITY(U,$J,358.3,30474,0)
 ;;=F15.181^^120^1556^48
 ;;^UTILITY(U,$J,358.3,30474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30474,1,3,0)
 ;;=3^Oth Stimulant Induced Sexual Dysfunc w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,30474,1,4,0)
 ;;=4^F15.181
 ;;^UTILITY(U,$J,358.3,30474,2)
 ;;=^5003292
 ;;^UTILITY(U,$J,358.3,30475,0)
 ;;=F15.281^^120^1556^49
 ;;^UTILITY(U,$J,358.3,30475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30475,1,3,0)
 ;;=3^Oth Stimulant Induced Sexual Dysfunc w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30475,1,4,0)
 ;;=4^F15.281
 ;;^UTILITY(U,$J,358.3,30475,2)
 ;;=^5003307
 ;;^UTILITY(U,$J,358.3,30476,0)
 ;;=F15.981^^120^1556^50
 ;;^UTILITY(U,$J,358.3,30476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30476,1,3,0)
 ;;=3^Oth Stimulant Induced Sexual Dysfunc w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30476,1,4,0)
 ;;=4^F15.981
 ;;^UTILITY(U,$J,358.3,30476,2)
 ;;=^5003321
 ;;^UTILITY(U,$J,358.3,30477,0)
 ;;=F15.182^^120^1556^51
 ;;^UTILITY(U,$J,358.3,30477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30477,1,3,0)
 ;;=3^Oth Stimulant Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,30477,1,4,0)
 ;;=4^F15.182
 ;;^UTILITY(U,$J,358.3,30477,2)
 ;;=^5003293
 ;;^UTILITY(U,$J,358.3,30478,0)
 ;;=F15.282^^120^1556^52