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

IBDEI2S7.m

Go to the documentation of this file.
IBDEI2S7 ; ; 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,44355,1,4,0)
 ;;=4^F18.24
 ;;^UTILITY(U,$J,358.3,44355,2)
 ;;=^5003397
 ;;^UTILITY(U,$J,358.3,44356,0)
 ;;=F18.121^^164^2196^16
 ;;^UTILITY(U,$J,358.3,44356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44356,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,44356,1,4,0)
 ;;=4^F18.121
 ;;^UTILITY(U,$J,358.3,44356,2)
 ;;=^5003382
 ;;^UTILITY(U,$J,358.3,44357,0)
 ;;=F18.221^^164^2196^17
 ;;^UTILITY(U,$J,358.3,44357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44357,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,44357,1,4,0)
 ;;=4^F18.221
 ;;^UTILITY(U,$J,358.3,44357,2)
 ;;=^5003395
 ;;^UTILITY(U,$J,358.3,44358,0)
 ;;=F18.921^^164^2196^18
 ;;^UTILITY(U,$J,358.3,44358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44358,1,3,0)
 ;;=3^Inhalant Intoxication Delirium w/o Use D/O
 ;;^UTILITY(U,$J,358.3,44358,1,4,0)
 ;;=4^F18.921
 ;;^UTILITY(U,$J,358.3,44358,2)
 ;;=^5003407
 ;;^UTILITY(U,$J,358.3,44359,0)
 ;;=F18.129^^164^2196^19
 ;;^UTILITY(U,$J,358.3,44359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44359,1,3,0)
 ;;=3^Inhalant Intoxication w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,44359,1,4,0)
 ;;=4^F18.129
 ;;^UTILITY(U,$J,358.3,44359,2)
 ;;=^5003383
 ;;^UTILITY(U,$J,358.3,44360,0)
 ;;=F18.229^^164^2196^20
 ;;^UTILITY(U,$J,358.3,44360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44360,1,3,0)
 ;;=3^Inhalant Intoxication w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,44360,1,4,0)
 ;;=4^F18.229
 ;;^UTILITY(U,$J,358.3,44360,2)
 ;;=^5003396
 ;;^UTILITY(U,$J,358.3,44361,0)
 ;;=F18.929^^164^2196^21
 ;;^UTILITY(U,$J,358.3,44361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44361,1,3,0)
 ;;=3^Inhalant Intoxication w/o Use D/O
 ;;^UTILITY(U,$J,358.3,44361,1,4,0)
 ;;=4^F18.929
 ;;^UTILITY(U,$J,358.3,44361,2)
 ;;=^5003408
 ;;^UTILITY(U,$J,358.3,44362,0)
 ;;=F18.180^^164^2196^1
 ;;^UTILITY(U,$J,358.3,44362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44362,1,3,0)
 ;;=3^Inhalant Induced Anxiety D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,44362,1,4,0)
 ;;=4^F18.180
 ;;^UTILITY(U,$J,358.3,44362,2)
 ;;=^5003389
 ;;^UTILITY(U,$J,358.3,44363,0)
 ;;=F18.280^^164^2196^2
 ;;^UTILITY(U,$J,358.3,44363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44363,1,3,0)
 ;;=3^Inhalant Induced Anxiety D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,44363,1,4,0)
 ;;=4^F18.280
 ;;^UTILITY(U,$J,358.3,44363,2)
 ;;=^5003402
 ;;^UTILITY(U,$J,358.3,44364,0)
 ;;=F18.980^^164^2196^3
 ;;^UTILITY(U,$J,358.3,44364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44364,1,3,0)
 ;;=3^Inhalant Induced Anxiety D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,44364,1,4,0)
 ;;=4^F18.980
 ;;^UTILITY(U,$J,358.3,44364,2)
 ;;=^5003414
 ;;^UTILITY(U,$J,358.3,44365,0)
 ;;=F18.94^^164^2196^6
 ;;^UTILITY(U,$J,358.3,44365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44365,1,3,0)
 ;;=3^Inhalant Induced Depressive D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,44365,1,4,0)
 ;;=4^F18.94
 ;;^UTILITY(U,$J,358.3,44365,2)
 ;;=^5003409
 ;;^UTILITY(U,$J,358.3,44366,0)
 ;;=F18.17^^164^2196^7
 ;;^UTILITY(U,$J,358.3,44366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44366,1,3,0)
 ;;=3^Inhalant Induced Maj Neurocog D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,44366,1,4,0)
 ;;=4^F18.17
 ;;^UTILITY(U,$J,358.3,44366,2)
 ;;=^5003388
 ;;^UTILITY(U,$J,358.3,44367,0)
 ;;=F18.27^^164^2196^8
 ;;^UTILITY(U,$J,358.3,44367,1,0)
 ;;=^358.31IA^4^2