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

IBDEI2UB.m

Go to the documentation of this file.
  1. IBDEI2UB ; ; 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,45303,2)
  1. ;;=^5003049
  1. ;;^UTILITY(U,$J,358.3,45304,0)
  1. ;;=F03.90^^172^2263^9
  1. ;;^UTILITY(U,$J,358.3,45304,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45304,1,3,0)
  1. ;;=3^Dementia w/o behavioral disturbance
  1. ;;^UTILITY(U,$J,358.3,45304,1,4,0)
  1. ;;=4^F03.90
  1. ;;^UTILITY(U,$J,358.3,45304,2)
  1. ;;=^5003050
  1. ;;^UTILITY(U,$J,358.3,45305,0)
  1. ;;=F07.0^^172^2263^15
  1. ;;^UTILITY(U,$J,358.3,45305,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45305,1,3,0)
  1. ;;=3^Personality change d/t physiological condition
  1. ;;^UTILITY(U,$J,358.3,45305,1,4,0)
  1. ;;=4^F07.0
  1. ;;^UTILITY(U,$J,358.3,45305,2)
  1. ;;=^5003063
  1. ;;^UTILITY(U,$J,358.3,45306,0)
  1. ;;=F10.10^^172^2263^3
  1. ;;^UTILITY(U,$J,358.3,45306,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45306,1,3,0)
  1. ;;=3^Alcohol abuse, uncomplicated
  1. ;;^UTILITY(U,$J,358.3,45306,1,4,0)
  1. ;;=4^F10.10
  1. ;;^UTILITY(U,$J,358.3,45306,2)
  1. ;;=^5003068
  1. ;;^UTILITY(U,$J,358.3,45307,0)
  1. ;;=F10.20^^172^2263^4
  1. ;;^UTILITY(U,$J,358.3,45307,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45307,1,3,0)
  1. ;;=3^Alcohol dependence, uncomplicated
  1. ;;^UTILITY(U,$J,358.3,45307,1,4,0)
  1. ;;=4^F10.20
  1. ;;^UTILITY(U,$J,358.3,45307,2)
  1. ;;=^5003081
  1. ;;^UTILITY(U,$J,358.3,45308,0)
  1. ;;=F17.200^^172^2263^12
  1. ;;^UTILITY(U,$J,358.3,45308,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45308,1,3,0)
  1. ;;=3^Nicotine dependence, unspecified, uncomplicated
  1. ;;^UTILITY(U,$J,358.3,45308,1,4,0)
  1. ;;=4^F17.200
  1. ;;^UTILITY(U,$J,358.3,45308,2)
  1. ;;=^5003360
  1. ;;^UTILITY(U,$J,358.3,45309,0)
  1. ;;=F20.5^^172^2263^16
  1. ;;^UTILITY(U,$J,358.3,45309,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45309,1,3,0)
  1. ;;=3^Residual schizophrenia
  1. ;;^UTILITY(U,$J,358.3,45309,1,4,0)
  1. ;;=4^F20.5
  1. ;;^UTILITY(U,$J,358.3,45309,2)
  1. ;;=^5003473
  1. ;;^UTILITY(U,$J,358.3,45310,0)
  1. ;;=F31.9^^172^2263^6
  1. ;;^UTILITY(U,$J,358.3,45310,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45310,1,3,0)
  1. ;;=3^Bipolar disorder, unspecified
  1. ;;^UTILITY(U,$J,358.3,45310,1,4,0)
  1. ;;=4^F31.9
  1. ;;^UTILITY(U,$J,358.3,45310,2)
  1. ;;=^331892
  1. ;;^UTILITY(U,$J,358.3,45311,0)
  1. ;;=F32.9^^172^2263^11
  1. ;;^UTILITY(U,$J,358.3,45311,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45311,1,3,0)
  1. ;;=3^Major depressive disorder, single episode, unspecified
  1. ;;^UTILITY(U,$J,358.3,45311,1,4,0)
  1. ;;=4^F32.9
  1. ;;^UTILITY(U,$J,358.3,45311,2)
  1. ;;=^5003528
  1. ;;^UTILITY(U,$J,358.3,45312,0)
  1. ;;=F33.9^^172^2263^10
  1. ;;^UTILITY(U,$J,358.3,45312,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45312,1,3,0)
  1. ;;=3^Major depressive disorder, recurrent, unspecified
  1. ;;^UTILITY(U,$J,358.3,45312,1,4,0)
  1. ;;=4^F33.9
  1. ;;^UTILITY(U,$J,358.3,45312,2)
  1. ;;=^5003537
  1. ;;^UTILITY(U,$J,358.3,45313,0)
  1. ;;=F41.9^^172^2263^5
  1. ;;^UTILITY(U,$J,358.3,45313,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45313,1,3,0)
  1. ;;=3^Anxiety disorder, unspecified
  1. ;;^UTILITY(U,$J,358.3,45313,1,4,0)
  1. ;;=4^F41.9
  1. ;;^UTILITY(U,$J,358.3,45313,2)
  1. ;;=^5003567
  1. ;;^UTILITY(U,$J,358.3,45314,0)
  1. ;;=F43.0^^172^2263^1
  1. ;;^UTILITY(U,$J,358.3,45314,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45314,1,3,0)
  1. ;;=3^Acute stress reaction
  1. ;;^UTILITY(U,$J,358.3,45314,1,4,0)
  1. ;;=4^F43.0
  1. ;;^UTILITY(U,$J,358.3,45314,2)
  1. ;;=^5003569
  1. ;;^UTILITY(U,$J,358.3,45315,0)
  1. ;;=F43.10^^172^2263^14
  1. ;;^UTILITY(U,$J,358.3,45315,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45315,1,3,0)
  1. ;;=3^PTSD, unspec
  1. ;;^UTILITY(U,$J,358.3,45315,1,4,0)
  1. ;;=4^F43.10
  1. ;;^UTILITY(U,$J,358.3,45315,2)
  1. ;;=^5003570