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

IBDEI1SY.m

Go to the documentation of this file.
IBDEI1SY ; ; 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,28781,0)
 ;;=Z91.5^^115^1422^1
 ;;^UTILITY(U,$J,358.3,28781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28781,1,3,0)
 ;;=3^Personal Hx of Suicide Attempt(s)
 ;;^UTILITY(U,$J,358.3,28781,1,4,0)
 ;;=4^Z91.5
 ;;^UTILITY(U,$J,358.3,28781,2)
 ;;=^5063624
 ;;^UTILITY(U,$J,358.3,28782,0)
 ;;=T14.91XA^^115^1422^3
 ;;^UTILITY(U,$J,358.3,28782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28782,1,3,0)
 ;;=3^Suicide Attempt,Inital Encntr
 ;;^UTILITY(U,$J,358.3,28782,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,28782,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,28783,0)
 ;;=T14.91XD^^115^1422^4
 ;;^UTILITY(U,$J,358.3,28783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28783,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,28783,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,28783,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,28784,0)
 ;;=T14.91XS^^115^1422^5
 ;;^UTILITY(U,$J,358.3,28784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28784,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,28784,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,28784,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,28785,0)
 ;;=F19.14^^115^1423^1
 ;;^UTILITY(U,$J,358.3,28785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28785,1,3,0)
 ;;=3^Oth/Unk Substance Induced Dep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,28785,1,4,0)
 ;;=4^F19.14
 ;;^UTILITY(U,$J,358.3,28785,2)
 ;;=^5003421
 ;;^UTILITY(U,$J,358.3,28786,0)
 ;;=F19.24^^115^1423^2
 ;;^UTILITY(U,$J,358.3,28786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28786,1,3,0)
 ;;=3^Oth/Unk Substance Induced Dep D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,28786,1,4,0)
 ;;=4^F19.24
 ;;^UTILITY(U,$J,358.3,28786,2)
 ;;=^5003441
 ;;^UTILITY(U,$J,358.3,28787,0)
 ;;=F19.94^^115^1423^3
 ;;^UTILITY(U,$J,358.3,28787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28787,1,3,0)
 ;;=3^Oth/Unk Substance Induced Dep D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,28787,1,4,0)
 ;;=4^F19.94
 ;;^UTILITY(U,$J,358.3,28787,2)
 ;;=^5003460
 ;;^UTILITY(U,$J,358.3,28788,0)
 ;;=F19.17^^115^1423^4
 ;;^UTILITY(U,$J,358.3,28788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28788,1,3,0)
 ;;=3^Oth/Unk Substance Induced Maj Neurocog D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,28788,1,4,0)
 ;;=4^F19.17
 ;;^UTILITY(U,$J,358.3,28788,2)
 ;;=^5003426
 ;;^UTILITY(U,$J,358.3,28789,0)
 ;;=F19.27^^115^1423^5
 ;;^UTILITY(U,$J,358.3,28789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28789,1,3,0)
 ;;=3^Oth/Unk Substance Induced Maj Neurocog D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,28789,1,4,0)
 ;;=4^F19.27
 ;;^UTILITY(U,$J,358.3,28789,2)
 ;;=^5003446
 ;;^UTILITY(U,$J,358.3,28790,0)
 ;;=F19.97^^115^1423^6
 ;;^UTILITY(U,$J,358.3,28790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28790,1,3,0)
 ;;=3^Oth/Unk Substance Induced Maj Neurocog D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,28790,1,4,0)
 ;;=4^F19.97
 ;;^UTILITY(U,$J,358.3,28790,2)
 ;;=^5003465
 ;;^UTILITY(U,$J,358.3,28791,0)
 ;;=F19.188^^115^1423^7
 ;;^UTILITY(U,$J,358.3,28791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28791,1,3,0)
 ;;=3^Oth/Unk Substance Induced Mild Neurocog D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,28791,1,4,0)
 ;;=4^F19.188
 ;;^UTILITY(U,$J,358.3,28791,2)
 ;;=^5133361
 ;;^UTILITY(U,$J,358.3,28792,0)
 ;;=F19.288^^115^1423^8
 ;;^UTILITY(U,$J,358.3,28792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28792,1,3,0)
 ;;=3^Oth/Unk Substance Induced Mild Neurocog D/O w/ Mod/Sev Use D/O