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