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

IBDEI1R3.m

Go to the documentation of this file.
IBDEI1R3 ; ; 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,27971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27971,1,3,0)
 ;;=3^PTSD,Unspec
 ;;^UTILITY(U,$J,358.3,27971,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,27971,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,27972,0)
 ;;=F43.12^^113^1366^9
 ;;^UTILITY(U,$J,358.3,27972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27972,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,27972,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,27972,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,27973,0)
 ;;=F18.10^^113^1367^23
 ;;^UTILITY(U,$J,358.3,27973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27973,1,3,0)
 ;;=3^Inhalant Use D/O,Mild
 ;;^UTILITY(U,$J,358.3,27973,1,4,0)
 ;;=4^F18.10
 ;;^UTILITY(U,$J,358.3,27973,2)
 ;;=^5003380
 ;;^UTILITY(U,$J,358.3,27974,0)
 ;;=F18.20^^113^1367^26
 ;;^UTILITY(U,$J,358.3,27974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27974,1,3,0)
 ;;=3^Inhalant Use D/O,Mod/Sev,Uncomplicated
 ;;^UTILITY(U,$J,358.3,27974,1,4,0)
 ;;=4^F18.20
 ;;^UTILITY(U,$J,358.3,27974,2)
 ;;=^5003392
 ;;^UTILITY(U,$J,358.3,27975,0)
 ;;=F18.14^^113^1367^4
 ;;^UTILITY(U,$J,358.3,27975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27975,1,3,0)
 ;;=3^Inhalant Induced Depressive D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,27975,1,4,0)
 ;;=4^F18.14
 ;;^UTILITY(U,$J,358.3,27975,2)
 ;;=^5003384
 ;;^UTILITY(U,$J,358.3,27976,0)
 ;;=F18.24^^113^1367^5
 ;;^UTILITY(U,$J,358.3,27976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27976,1,3,0)
 ;;=3^Inhalant Induced Depressive D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,27976,1,4,0)
 ;;=4^F18.24
 ;;^UTILITY(U,$J,358.3,27976,2)
 ;;=^5003397
 ;;^UTILITY(U,$J,358.3,27977,0)
 ;;=F18.121^^113^1367^16
 ;;^UTILITY(U,$J,358.3,27977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27977,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,27977,1,4,0)
 ;;=4^F18.121
 ;;^UTILITY(U,$J,358.3,27977,2)
 ;;=^5003382
 ;;^UTILITY(U,$J,358.3,27978,0)
 ;;=F18.221^^113^1367^17
 ;;^UTILITY(U,$J,358.3,27978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27978,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,27978,1,4,0)
 ;;=4^F18.221
 ;;^UTILITY(U,$J,358.3,27978,2)
 ;;=^5003395
 ;;^UTILITY(U,$J,358.3,27979,0)
 ;;=F18.921^^113^1367^18
 ;;^UTILITY(U,$J,358.3,27979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27979,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/o Use D/O
 ;;^UTILITY(U,$J,358.3,27979,1,4,0)
 ;;=4^F18.921
 ;;^UTILITY(U,$J,358.3,27979,2)
 ;;=^5003407
 ;;^UTILITY(U,$J,358.3,27980,0)
 ;;=F18.129^^113^1367^19
 ;;^UTILITY(U,$J,358.3,27980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27980,1,3,0)
 ;;=3^Inhalant Intoxication w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,27980,1,4,0)
 ;;=4^F18.129
 ;;^UTILITY(U,$J,358.3,27980,2)
 ;;=^5003383
 ;;^UTILITY(U,$J,358.3,27981,0)
 ;;=F18.229^^113^1367^20
 ;;^UTILITY(U,$J,358.3,27981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27981,1,3,0)
 ;;=3^Inhalant Intoxication w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,27981,1,4,0)
 ;;=4^F18.229
 ;;^UTILITY(U,$J,358.3,27981,2)
 ;;=^5003396
 ;;^UTILITY(U,$J,358.3,27982,0)
 ;;=F18.929^^113^1367^21
 ;;^UTILITY(U,$J,358.3,27982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27982,1,3,0)
 ;;=3^Inhalant Intoxication w/o Use D/O
 ;;^UTILITY(U,$J,358.3,27982,1,4,0)
 ;;=4^F18.929
 ;;^UTILITY(U,$J,358.3,27982,2)
 ;;=^5003408
 ;;^UTILITY(U,$J,358.3,27983,0)
 ;;=F18.180^^113^1367^1