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

IBDEI1OZ.m

Go to the documentation of this file.
IBDEI1OZ ; ; 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,27043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27043,1,3,0)
 ;;=3^Alcohol Induced Mood D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,27043,1,4,0)
 ;;=4^F10.14
 ;;^UTILITY(U,$J,358.3,27043,2)
 ;;=^5003072
 ;;^UTILITY(U,$J,358.3,27044,0)
 ;;=F10.24^^110^1306^11
 ;;^UTILITY(U,$J,358.3,27044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27044,1,3,0)
 ;;=3^Alcohol Induced Mood D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,27044,1,4,0)
 ;;=4^F10.24
 ;;^UTILITY(U,$J,358.3,27044,2)
 ;;=^5003090
 ;;^UTILITY(U,$J,358.3,27045,0)
 ;;=F10.94^^110^1306^12
 ;;^UTILITY(U,$J,358.3,27045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27045,1,3,0)
 ;;=3^Alcohol Induced Mood D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,27045,1,4,0)
 ;;=4^F10.94
 ;;^UTILITY(U,$J,358.3,27045,2)
 ;;=^5003104
 ;;^UTILITY(U,$J,358.3,27046,0)
 ;;=F10.231^^110^1306^32
 ;;^UTILITY(U,$J,358.3,27046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27046,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev) w/ WD Delirium
 ;;^UTILITY(U,$J,358.3,27046,1,4,0)
 ;;=4^F10.231
 ;;^UTILITY(U,$J,358.3,27046,2)
 ;;=^5003087
 ;;^UTILITY(U,$J,358.3,27047,0)
 ;;=F10.232^^110^1306^30
 ;;^UTILITY(U,$J,358.3,27047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27047,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev) WD w/ Perceptual Disturbances
 ;;^UTILITY(U,$J,358.3,27047,1,4,0)
 ;;=4^F10.232
 ;;^UTILITY(U,$J,358.3,27047,2)
 ;;=^5003088
 ;;^UTILITY(U,$J,358.3,27048,0)
 ;;=F10.21^^110^1306^33
 ;;^UTILITY(U,$J,358.3,27048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27048,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev),In Remission
 ;;^UTILITY(U,$J,358.3,27048,1,4,0)
 ;;=4^F10.21
 ;;^UTILITY(U,$J,358.3,27048,2)
 ;;=^5003082
 ;;^UTILITY(U,$J,358.3,27049,0)
 ;;=F12.10^^110^1307^20
 ;;^UTILITY(U,$J,358.3,27049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27049,1,3,0)
 ;;=3^Cannabis Use D/O,Mild
 ;;^UTILITY(U,$J,358.3,27049,1,4,0)
 ;;=4^F12.10
 ;;^UTILITY(U,$J,358.3,27049,2)
 ;;=^5003155
 ;;^UTILITY(U,$J,358.3,27050,0)
 ;;=F12.20^^110^1307^22
 ;;^UTILITY(U,$J,358.3,27050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27050,1,3,0)
 ;;=3^Cannabis Use D/O,Mod/Sev
 ;;^UTILITY(U,$J,358.3,27050,1,4,0)
 ;;=4^F12.20
 ;;^UTILITY(U,$J,358.3,27050,2)
 ;;=^5003166
 ;;^UTILITY(U,$J,358.3,27051,0)
 ;;=F12.288^^110^1307^25
 ;;^UTILITY(U,$J,358.3,27051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27051,1,3,0)
 ;;=3^Cannabis Withdrawal
 ;;^UTILITY(U,$J,358.3,27051,1,4,0)
 ;;=4^F12.288
 ;;^UTILITY(U,$J,358.3,27051,2)
 ;;=^5003176
 ;;^UTILITY(U,$J,358.3,27052,0)
 ;;=F12.121^^110^1307^10
 ;;^UTILITY(U,$J,358.3,27052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27052,1,3,0)
 ;;=3^Cannabis Intox Delirium w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,27052,1,4,0)
 ;;=4^F12.121
 ;;^UTILITY(U,$J,358.3,27052,2)
 ;;=^5003157
 ;;^UTILITY(U,$J,358.3,27053,0)
 ;;=F12.221^^110^1307^11
 ;;^UTILITY(U,$J,358.3,27053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27053,1,3,0)
 ;;=3^Cannabis Intox Delirium w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,27053,1,4,0)
 ;;=4^F12.221
 ;;^UTILITY(U,$J,358.3,27053,2)
 ;;=^5003169
 ;;^UTILITY(U,$J,358.3,27054,0)
 ;;=F12.921^^110^1307^12
 ;;^UTILITY(U,$J,358.3,27054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,27054,1,3,0)
 ;;=3^Cannabis Intox Delirium w/o Use D/O
 ;;^UTILITY(U,$J,358.3,27054,1,4,0)
 ;;=4^F12.921
 ;;^UTILITY(U,$J,358.3,27054,2)
 ;;=^5003180
 ;;^UTILITY(U,$J,358.3,27055,0)
 ;;=F12.229^^110^1307^16