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

IBDEI1UN.m

Go to the documentation of this file.
IBDEI1UN ; ; 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,29539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29539,1,3,0)
 ;;=3^Trauma/Stressor-Related D/O,Oth Spec
 ;;^UTILITY(U,$J,358.3,29539,1,4,0)
 ;;=4^F43.8
 ;;^UTILITY(U,$J,358.3,29539,2)
 ;;=^5003575
 ;;^UTILITY(U,$J,358.3,29540,0)
 ;;=F43.10^^118^1490^10
 ;;^UTILITY(U,$J,358.3,29540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29540,1,3,0)
 ;;=3^PTSD,Unspec
 ;;^UTILITY(U,$J,358.3,29540,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,29540,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,29541,0)
 ;;=F43.12^^118^1490^9
 ;;^UTILITY(U,$J,358.3,29541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29541,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,29541,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,29541,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,29542,0)
 ;;=F18.10^^118^1491^23
 ;;^UTILITY(U,$J,358.3,29542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29542,1,3,0)
 ;;=3^Inhalant Use D/O,Mild
 ;;^UTILITY(U,$J,358.3,29542,1,4,0)
 ;;=4^F18.10
 ;;^UTILITY(U,$J,358.3,29542,2)
 ;;=^5003380
 ;;^UTILITY(U,$J,358.3,29543,0)
 ;;=F18.20^^118^1491^26
 ;;^UTILITY(U,$J,358.3,29543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29543,1,3,0)
 ;;=3^Inhalant Use D/O,Mod/Sev,Uncomplicated
 ;;^UTILITY(U,$J,358.3,29543,1,4,0)
 ;;=4^F18.20
 ;;^UTILITY(U,$J,358.3,29543,2)
 ;;=^5003392
 ;;^UTILITY(U,$J,358.3,29544,0)
 ;;=F18.14^^118^1491^4
 ;;^UTILITY(U,$J,358.3,29544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29544,1,3,0)
 ;;=3^Inhalant Induced Depressive D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,29544,1,4,0)
 ;;=4^F18.14
 ;;^UTILITY(U,$J,358.3,29544,2)
 ;;=^5003384
 ;;^UTILITY(U,$J,358.3,29545,0)
 ;;=F18.24^^118^1491^5
 ;;^UTILITY(U,$J,358.3,29545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29545,1,3,0)
 ;;=3^Inhalant Induced Depressive D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,29545,1,4,0)
 ;;=4^F18.24
 ;;^UTILITY(U,$J,358.3,29545,2)
 ;;=^5003397
 ;;^UTILITY(U,$J,358.3,29546,0)
 ;;=F18.121^^118^1491^16
 ;;^UTILITY(U,$J,358.3,29546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29546,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,29546,1,4,0)
 ;;=4^F18.121
 ;;^UTILITY(U,$J,358.3,29546,2)
 ;;=^5003382
 ;;^UTILITY(U,$J,358.3,29547,0)
 ;;=F18.221^^118^1491^17
 ;;^UTILITY(U,$J,358.3,29547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29547,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,29547,1,4,0)
 ;;=4^F18.221
 ;;^UTILITY(U,$J,358.3,29547,2)
 ;;=^5003395
 ;;^UTILITY(U,$J,358.3,29548,0)
 ;;=F18.921^^118^1491^18
 ;;^UTILITY(U,$J,358.3,29548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29548,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/o Use D/O
 ;;^UTILITY(U,$J,358.3,29548,1,4,0)
 ;;=4^F18.921
 ;;^UTILITY(U,$J,358.3,29548,2)
 ;;=^5003407
 ;;^UTILITY(U,$J,358.3,29549,0)
 ;;=F18.129^^118^1491^19
 ;;^UTILITY(U,$J,358.3,29549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29549,1,3,0)
 ;;=3^Inhalant Intoxication w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,29549,1,4,0)
 ;;=4^F18.129
 ;;^UTILITY(U,$J,358.3,29549,2)
 ;;=^5003383
 ;;^UTILITY(U,$J,358.3,29550,0)
 ;;=F18.229^^118^1491^20
 ;;^UTILITY(U,$J,358.3,29550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29550,1,3,0)
 ;;=3^Inhalant Intoxication w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,29550,1,4,0)
 ;;=4^F18.229
 ;;^UTILITY(U,$J,358.3,29550,2)
 ;;=^5003396
 ;;^UTILITY(U,$J,358.3,29551,0)
 ;;=F18.929^^118^1491^21