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

IBDEI2S7.m

Go to the documentation of this file.
  1. IBDEI2S7 ; ; 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,44355,1,4,0)
  1. ;;=4^F18.24
  1. ;;^UTILITY(U,$J,358.3,44355,2)
  1. ;;=^5003397
  1. ;;^UTILITY(U,$J,358.3,44356,0)
  1. ;;=F18.121^^164^2196^16
  1. ;;^UTILITY(U,$J,358.3,44356,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44356,1,3,0)
  1. ;;=3^Inhalant Intoxication Delirium w/ Mild Use D/O
  1. ;;^UTILITY(U,$J,358.3,44356,1,4,0)
  1. ;;=4^F18.121
  1. ;;^UTILITY(U,$J,358.3,44356,2)
  1. ;;=^5003382
  1. ;;^UTILITY(U,$J,358.3,44357,0)
  1. ;;=F18.221^^164^2196^17
  1. ;;^UTILITY(U,$J,358.3,44357,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44357,1,3,0)
  1. ;;=3^Inhalant Intoxication Delirium w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,44357,1,4,0)
  1. ;;=4^F18.221
  1. ;;^UTILITY(U,$J,358.3,44357,2)
  1. ;;=^5003395
  1. ;;^UTILITY(U,$J,358.3,44358,0)
  1. ;;=F18.921^^164^2196^18
  1. ;;^UTILITY(U,$J,358.3,44358,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44358,1,3,0)
  1. ;;=3^Inhalant Intoxication Delirium w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,44358,1,4,0)
  1. ;;=4^F18.921
  1. ;;^UTILITY(U,$J,358.3,44358,2)
  1. ;;=^5003407
  1. ;;^UTILITY(U,$J,358.3,44359,0)
  1. ;;=F18.129^^164^2196^19
  1. ;;^UTILITY(U,$J,358.3,44359,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44359,1,3,0)
  1. ;;=3^Inhalant Intoxication w/ Mild Use D/O
  1. ;;^UTILITY(U,$J,358.3,44359,1,4,0)
  1. ;;=4^F18.129
  1. ;;^UTILITY(U,$J,358.3,44359,2)
  1. ;;=^5003383
  1. ;;^UTILITY(U,$J,358.3,44360,0)
  1. ;;=F18.229^^164^2196^20
  1. ;;^UTILITY(U,$J,358.3,44360,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44360,1,3,0)
  1. ;;=3^Inhalant Intoxication w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,44360,1,4,0)
  1. ;;=4^F18.229
  1. ;;^UTILITY(U,$J,358.3,44360,2)
  1. ;;=^5003396
  1. ;;^UTILITY(U,$J,358.3,44361,0)
  1. ;;=F18.929^^164^2196^21
  1. ;;^UTILITY(U,$J,358.3,44361,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44361,1,3,0)
  1. ;;=3^Inhalant Intoxication w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,44361,1,4,0)
  1. ;;=4^F18.929
  1. ;;^UTILITY(U,$J,358.3,44361,2)
  1. ;;=^5003408
  1. ;;^UTILITY(U,$J,358.3,44362,0)
  1. ;;=F18.180^^164^2196^1
  1. ;;^UTILITY(U,$J,358.3,44362,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44362,1,3,0)
  1. ;;=3^Inhalant Induced Anxiety D/O w/ Mild Use D/O
  1. ;;^UTILITY(U,$J,358.3,44362,1,4,0)
  1. ;;=4^F18.180
  1. ;;^UTILITY(U,$J,358.3,44362,2)
  1. ;;=^5003389
  1. ;;^UTILITY(U,$J,358.3,44363,0)
  1. ;;=F18.280^^164^2196^2
  1. ;;^UTILITY(U,$J,358.3,44363,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44363,1,3,0)
  1. ;;=3^Inhalant Induced Anxiety D/O w/ Mod/Sev Use D/O
  1. ;;^UTILITY(U,$J,358.3,44363,1,4,0)
  1. ;;=4^F18.280
  1. ;;^UTILITY(U,$J,358.3,44363,2)
  1. ;;=^5003402
  1. ;;^UTILITY(U,$J,358.3,44364,0)
  1. ;;=F18.980^^164^2196^3
  1. ;;^UTILITY(U,$J,358.3,44364,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44364,1,3,0)
  1. ;;=3^Inhalant Induced Anxiety D/O w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,44364,1,4,0)
  1. ;;=4^F18.980
  1. ;;^UTILITY(U,$J,358.3,44364,2)
  1. ;;=^5003414
  1. ;;^UTILITY(U,$J,358.3,44365,0)
  1. ;;=F18.94^^164^2196^6
  1. ;;^UTILITY(U,$J,358.3,44365,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44365,1,3,0)
  1. ;;=3^Inhalant Induced Depressive D/O w/o Use D/O
  1. ;;^UTILITY(U,$J,358.3,44365,1,4,0)
  1. ;;=4^F18.94
  1. ;;^UTILITY(U,$J,358.3,44365,2)
  1. ;;=^5003409
  1. ;;^UTILITY(U,$J,358.3,44366,0)
  1. ;;=F18.17^^164^2196^7
  1. ;;^UTILITY(U,$J,358.3,44366,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44366,1,3,0)
  1. ;;=3^Inhalant Induced Maj Neurocog D/O w/ Mild Use D/O
  1. ;;^UTILITY(U,$J,358.3,44366,1,4,0)
  1. ;;=4^F18.17
  1. ;;^UTILITY(U,$J,358.3,44366,2)
  1. ;;=^5003388
  1. ;;^UTILITY(U,$J,358.3,44367,0)
  1. ;;=F18.27^^164^2196^8
  1. ;;^UTILITY(U,$J,358.3,44367,1,0)
  1. ;;=^358.31IA^4^2