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

IBDEI1W1.m

Go to the documentation of this file.
IBDEI1W1 ; ; 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,30157,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,30158,0)
 ;;=F10.20^^120^1538^34
 ;;^UTILITY(U,$J,358.3,30158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30158,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev),Uncomplicated
 ;;^UTILITY(U,$J,358.3,30158,1,4,0)
 ;;=4^F10.20
 ;;^UTILITY(U,$J,358.3,30158,2)
 ;;=^5003081
 ;;^UTILITY(U,$J,358.3,30159,0)
 ;;=F10.239^^120^1538^31
 ;;^UTILITY(U,$J,358.3,30159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30159,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev) WD,Unspec
 ;;^UTILITY(U,$J,358.3,30159,1,4,0)
 ;;=4^F10.239
 ;;^UTILITY(U,$J,358.3,30159,2)
 ;;=^5003089
 ;;^UTILITY(U,$J,358.3,30160,0)
 ;;=F10.180^^120^1538^1
 ;;^UTILITY(U,$J,358.3,30160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30160,1,3,0)
 ;;=3^Alcohol Induced Anxiety D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,30160,1,4,0)
 ;;=4^F10.180
 ;;^UTILITY(U,$J,358.3,30160,2)
 ;;=^5003076
 ;;^UTILITY(U,$J,358.3,30161,0)
 ;;=F10.280^^120^1538^2
 ;;^UTILITY(U,$J,358.3,30161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30161,1,3,0)
 ;;=3^Alcohol Induced Anxiety D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30161,1,4,0)
 ;;=4^F10.280
 ;;^UTILITY(U,$J,358.3,30161,2)
 ;;=^5003096
 ;;^UTILITY(U,$J,358.3,30162,0)
 ;;=F10.980^^120^1538^3
 ;;^UTILITY(U,$J,358.3,30162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30162,1,3,0)
 ;;=3^Alcohol Induced Anxiety D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30162,1,4,0)
 ;;=4^F10.980
 ;;^UTILITY(U,$J,358.3,30162,2)
 ;;=^5003110
 ;;^UTILITY(U,$J,358.3,30163,0)
 ;;=F10.26^^120^1538^4
 ;;^UTILITY(U,$J,358.3,30163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30163,1,3,0)
 ;;=3^Alcohol Induced Maj Neurocog D/O,Amnestic Cofabul Type w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30163,1,4,0)
 ;;=4^F10.26
 ;;^UTILITY(U,$J,358.3,30163,2)
 ;;=^5003094
 ;;^UTILITY(U,$J,358.3,30164,0)
 ;;=F10.96^^120^1538^5
 ;;^UTILITY(U,$J,358.3,30164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30164,1,3,0)
 ;;=3^Alcohol Induced Maj Neurocog D/O,Amnestic Cofabul Type w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30164,1,4,0)
 ;;=4^F10.96
 ;;^UTILITY(U,$J,358.3,30164,2)
 ;;=^5003108
 ;;^UTILITY(U,$J,358.3,30165,0)
 ;;=F10.27^^120^1538^6
 ;;^UTILITY(U,$J,358.3,30165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30165,1,3,0)
 ;;=3^Alcohol Induced Maj Neurocog D/O,Nonamnestic Confabul Type w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30165,1,4,0)
 ;;=4^F10.27
 ;;^UTILITY(U,$J,358.3,30165,2)
 ;;=^5003095
 ;;^UTILITY(U,$J,358.3,30166,0)
 ;;=F10.97^^120^1538^7
 ;;^UTILITY(U,$J,358.3,30166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30166,1,3,0)
 ;;=3^Alcohol Induced Maj Neurocog D/O,Nonamnestic Confabul Type w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30166,1,4,0)
 ;;=4^F10.97
 ;;^UTILITY(U,$J,358.3,30166,2)
 ;;=^5003109
 ;;^UTILITY(U,$J,358.3,30167,0)
 ;;=F10.288^^120^1538^8
 ;;^UTILITY(U,$J,358.3,30167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30167,1,3,0)
 ;;=3^Alcohol Induced Mild Neurocog D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,30167,1,4,0)
 ;;=4^F10.288
 ;;^UTILITY(U,$J,358.3,30167,2)
 ;;=^5003099
 ;;^UTILITY(U,$J,358.3,30168,0)
 ;;=F10.988^^120^1538^9
 ;;^UTILITY(U,$J,358.3,30168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30168,1,3,0)
 ;;=3^Alcohol Induced Mild Neurocog D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,30168,1,4,0)
 ;;=4^F10.988
 ;;^UTILITY(U,$J,358.3,30168,2)
 ;;=^5003113
 ;;^UTILITY(U,$J,358.3,30169,0)
 ;;=F10.159^^120^1538^13