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

IBDEI1KZ.m

Go to the documentation of this file.
IBDEI1KZ ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,25628,1,4,0)
 ;;=4^F10.14
 ;;^UTILITY(U,$J,358.3,25628,2)
 ;;=^5003072
 ;;^UTILITY(U,$J,358.3,25629,0)
 ;;=F10.24^^92^1170^11
 ;;^UTILITY(U,$J,358.3,25629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25629,1,3,0)
 ;;=3^Alcohol Induced Mood D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,25629,1,4,0)
 ;;=4^F10.24
 ;;^UTILITY(U,$J,358.3,25629,2)
 ;;=^5003090
 ;;^UTILITY(U,$J,358.3,25630,0)
 ;;=F10.94^^92^1170^12
 ;;^UTILITY(U,$J,358.3,25630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25630,1,3,0)
 ;;=3^Alcohol Induced Mood D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,25630,1,4,0)
 ;;=4^F10.94
 ;;^UTILITY(U,$J,358.3,25630,2)
 ;;=^5003104
 ;;^UTILITY(U,$J,358.3,25631,0)
 ;;=F10.231^^92^1170^32
 ;;^UTILITY(U,$J,358.3,25631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25631,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev) w/ WD Delirium
 ;;^UTILITY(U,$J,358.3,25631,1,4,0)
 ;;=4^F10.231
 ;;^UTILITY(U,$J,358.3,25631,2)
 ;;=^5003087
 ;;^UTILITY(U,$J,358.3,25632,0)
 ;;=F10.232^^92^1170^30
 ;;^UTILITY(U,$J,358.3,25632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25632,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev) WD w/ Perceptual Disturbances
 ;;^UTILITY(U,$J,358.3,25632,1,4,0)
 ;;=4^F10.232
 ;;^UTILITY(U,$J,358.3,25632,2)
 ;;=^5003088
 ;;^UTILITY(U,$J,358.3,25633,0)
 ;;=F10.21^^92^1170^33
 ;;^UTILITY(U,$J,358.3,25633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25633,1,3,0)
 ;;=3^Alcohol Use DO (Mod/Sev),In Remission
 ;;^UTILITY(U,$J,358.3,25633,1,4,0)
 ;;=4^F10.21
 ;;^UTILITY(U,$J,358.3,25633,2)
 ;;=^5003082
 ;;^UTILITY(U,$J,358.3,25634,0)
 ;;=F10.930^^92^1170^35
 ;;^UTILITY(U,$J,358.3,25634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25634,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,25634,1,4,0)
 ;;=4^F10.930
 ;;^UTILITY(U,$J,358.3,25634,2)
 ;;=^5159134
 ;;^UTILITY(U,$J,358.3,25635,0)
 ;;=F10.931^^92^1170^36
 ;;^UTILITY(U,$J,358.3,25635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25635,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal Delirium
 ;;^UTILITY(U,$J,358.3,25635,1,4,0)
 ;;=4^F10.931
 ;;^UTILITY(U,$J,358.3,25635,2)
 ;;=^5159135
 ;;^UTILITY(U,$J,358.3,25636,0)
 ;;=F10.932^^92^1170^37
 ;;^UTILITY(U,$J,358.3,25636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25636,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal w/ Perceptual Disturb
 ;;^UTILITY(U,$J,358.3,25636,1,4,0)
 ;;=4^F10.932
 ;;^UTILITY(U,$J,358.3,25636,2)
 ;;=^5159136
 ;;^UTILITY(U,$J,358.3,25637,0)
 ;;=F10.939^^92^1170^38
 ;;^UTILITY(U,$J,358.3,25637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25637,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal,Unspec
 ;;^UTILITY(U,$J,358.3,25637,1,4,0)
 ;;=4^F10.939
 ;;^UTILITY(U,$J,358.3,25637,2)
 ;;=^5159137
 ;;^UTILITY(U,$J,358.3,25638,0)
 ;;=F12.10^^92^1171^20
 ;;^UTILITY(U,$J,358.3,25638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25638,1,3,0)
 ;;=3^Cannabis Use D/O,Mild
 ;;^UTILITY(U,$J,358.3,25638,1,4,0)
 ;;=4^F12.10
 ;;^UTILITY(U,$J,358.3,25638,2)
 ;;=^5003155
 ;;^UTILITY(U,$J,358.3,25639,0)
 ;;=F12.20^^92^1171^22
 ;;^UTILITY(U,$J,358.3,25639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25639,1,3,0)
 ;;=3^Cannabis Use D/O,Mod/Sev
 ;;^UTILITY(U,$J,358.3,25639,1,4,0)
 ;;=4^F12.20
 ;;^UTILITY(U,$J,358.3,25639,2)
 ;;=^5003166
 ;;^UTILITY(U,$J,358.3,25640,0)
 ;;=F12.288^^92^1171^25
 ;;^UTILITY(U,$J,358.3,25640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25640,1,3,0)
 ;;=3^Cannabis Withdrawal