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

IBDEI1QX.m

Go to the documentation of this file.
  1. IBDEI1QX ; ; 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,27901,1,4,0)
  1. ;;=4^F11.281
  1. ;;^UTILITY(U,$J,358.3,27901,2)
  1. ;;=^5003138
  1. ;;^UTILITY(U,$J,358.3,27902,0)
  1. ;;=F11.981^^113^1363^10
  1. ;;^UTILITY(U,$J,358.3,27902,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27902,1,3,0)
  1. ;;=3^Opioid Induced Sexual Dysfunc w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,27902,1,4,0)
  1. ;;=4^F11.981
  1. ;;^UTILITY(U,$J,358.3,27902,2)
  1. ;;=^5003152
  1. ;;^UTILITY(U,$J,358.3,27903,0)
  1. ;;=F11.282^^113^1363^12
  1. ;;^UTILITY(U,$J,358.3,27903,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27903,1,3,0)
  1. ;;=3^Opioid Induced Sleep D/O w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,27903,1,4,0)
  1. ;;=4^F11.282
  1. ;;^UTILITY(U,$J,358.3,27903,2)
  1. ;;=^5003139
  1. ;;^UTILITY(U,$J,358.3,27904,0)
  1. ;;=F11.982^^113^1363^13
  1. ;;^UTILITY(U,$J,358.3,27904,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27904,1,3,0)
  1. ;;=3^Opioid Induced Sleep D/O w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,27904,1,4,0)
  1. ;;=4^F11.982
  1. ;;^UTILITY(U,$J,358.3,27904,2)
  1. ;;=^5003153
  1. ;;^UTILITY(U,$J,358.3,27905,0)
  1. ;;=F11.121^^113^1363^14
  1. ;;^UTILITY(U,$J,358.3,27905,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27905,1,3,0)
  1. ;;=3^Opioid Intox Delirium w/ Mild Use D/O
  1. ;;^UTILITY(U,$J,358.3,27905,1,4,0)
  1. ;;=4^F11.121
  1. ;;^UTILITY(U,$J,358.3,27905,2)
  1. ;;=^5003116
  1. ;;^UTILITY(U,$J,358.3,27906,0)
  1. ;;=F11.221^^113^1363^15
  1. ;;^UTILITY(U,$J,358.3,27906,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27906,1,3,0)
  1. ;;=3^Opioid Intox Delirium w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,27906,1,4,0)
  1. ;;=4^F11.221
  1. ;;^UTILITY(U,$J,358.3,27906,2)
  1. ;;=^5003130
  1. ;;^UTILITY(U,$J,358.3,27907,0)
  1. ;;=F11.229^^113^1363^20
  1. ;;^UTILITY(U,$J,358.3,27907,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27907,1,3,0)
  1. ;;=3^Opioid Intox w/o Percep Disturb w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,27907,1,4,0)
  1. ;;=4^F11.229
  1. ;;^UTILITY(U,$J,358.3,27907,2)
  1. ;;=^5003132
  1. ;;^UTILITY(U,$J,358.3,27908,0)
  1. ;;=F11.929^^113^1363^21
  1. ;;^UTILITY(U,$J,358.3,27908,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27908,1,3,0)
  1. ;;=3^Opioid Intox w/o Percep Disturb w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,27908,1,4,0)
  1. ;;=4^F11.929
  1. ;;^UTILITY(U,$J,358.3,27908,2)
  1. ;;=^5003146
  1. ;;^UTILITY(U,$J,358.3,27909,0)
  1. ;;=F11.122^^113^1363^17
  1. ;;^UTILITY(U,$J,358.3,27909,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27909,1,3,0)
  1. ;;=3^Opioid Intox w/ Percep Disturb w/ Mild Use D/O
  1. ;;^UTILITY(U,$J,358.3,27909,1,4,0)
  1. ;;=4^F11.122
  1. ;;^UTILITY(U,$J,358.3,27909,2)
  1. ;;=^5003117
  1. ;;^UTILITY(U,$J,358.3,27910,0)
  1. ;;=F11.222^^113^1363^18
  1. ;;^UTILITY(U,$J,358.3,27910,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27910,1,3,0)
  1. ;;=3^Opioid Intox w/ Percep Disturb w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,27910,1,4,0)
  1. ;;=4^F11.222
  1. ;;^UTILITY(U,$J,358.3,27910,2)
  1. ;;=^5003131
  1. ;;^UTILITY(U,$J,358.3,27911,0)
  1. ;;=F11.922^^113^1363^19
  1. ;;^UTILITY(U,$J,358.3,27911,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27911,1,3,0)
  1. ;;=3^Opioid Intox w/ Percep Disturb w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,27911,1,4,0)
  1. ;;=4^F11.922
  1. ;;^UTILITY(U,$J,358.3,27911,2)
  1. ;;=^5003145
  1. ;;^UTILITY(U,$J,358.3,27912,0)
  1. ;;=F11.99^^113^1363^23
  1. ;;^UTILITY(U,$J,358.3,27912,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27912,1,3,0)
  1. ;;=3^Opioid Related D/O,Unspec
  1. ;;^UTILITY(U,$J,358.3,27912,1,4,0)
  1. ;;=4^F11.99
  1. ;;^UTILITY(U,$J,358.3,27912,2)
  1. ;;=^5133352
  1. ;;^UTILITY(U,$J,358.3,27913,0)
  1. ;;=F11.21^^113^1363^27
  1. ;;^UTILITY(U,$J,358.3,27913,1,0)
  1. ;;=^358.31IA^4^2