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

IBDEI0X6.m

Go to the documentation of this file.
  1. IBDEI0X6 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,14948,1,4,0)
  1. ;;=4^S02.111S
  1. ;;^UTILITY(U,$J,358.3,14948,2)
  1. ;;=^5020275
  1. ;;^UTILITY(U,$J,358.3,14949,0)
  1. ;;=S02.112S^^58^712^46
  1. ;;^UTILITY(U,$J,358.3,14949,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14949,1,3,0)
  1. ;;=3^Type III occipital condyle fracture, sequela
  1. ;;^UTILITY(U,$J,358.3,14949,1,4,0)
  1. ;;=4^S02.112S
  1. ;;^UTILITY(U,$J,358.3,14949,2)
  1. ;;=^5020281
  1. ;;^UTILITY(U,$J,358.3,14950,0)
  1. ;;=S02.402S^^58^712^47
  1. ;;^UTILITY(U,$J,358.3,14950,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14950,1,3,0)
  1. ;;=3^Zygomatic fracture, unspecified, sequela
  1. ;;^UTILITY(U,$J,358.3,14950,1,4,0)
  1. ;;=4^S02.402S
  1. ;;^UTILITY(U,$J,358.3,14950,2)
  1. ;;=^5020335
  1. ;;^UTILITY(U,$J,358.3,14951,0)
  1. ;;=F10.20^^58^713^1
  1. ;;^UTILITY(U,$J,358.3,14951,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14951,1,3,0)
  1. ;;=3^Alcohol dependence, uncomplicated
  1. ;;^UTILITY(U,$J,358.3,14951,1,4,0)
  1. ;;=4^F10.20
  1. ;;^UTILITY(U,$J,358.3,14951,2)
  1. ;;=^5003081
  1. ;;^UTILITY(U,$J,358.3,14952,0)
  1. ;;=F31.10^^58^713^2
  1. ;;^UTILITY(U,$J,358.3,14952,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14952,1,3,0)
  1. ;;=3^Bipolar disord, crnt episode manic w/o psych features, unsp
  1. ;;^UTILITY(U,$J,358.3,14952,1,4,0)
  1. ;;=4^F31.10
  1. ;;^UTILITY(U,$J,358.3,14952,2)
  1. ;;=^5003495
  1. ;;^UTILITY(U,$J,358.3,14953,0)
  1. ;;=F32.9^^58^713^14
  1. ;;^UTILITY(U,$J,358.3,14953,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14953,1,3,0)
  1. ;;=3^MDD,Single Episode,Unspec
  1. ;;^UTILITY(U,$J,358.3,14953,1,4,0)
  1. ;;=4^F32.9
  1. ;;^UTILITY(U,$J,358.3,14953,2)
  1. ;;=^5003528
  1. ;;^UTILITY(U,$J,358.3,14954,0)
  1. ;;=F20.0^^58^713^15
  1. ;;^UTILITY(U,$J,358.3,14954,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14954,1,3,0)
  1. ;;=3^Paranoid schizophrenia
  1. ;;^UTILITY(U,$J,358.3,14954,1,4,0)
  1. ;;=4^F20.0
  1. ;;^UTILITY(U,$J,358.3,14954,2)
  1. ;;=^5003469
  1. ;;^UTILITY(U,$J,358.3,14955,0)
  1. ;;=F06.0^^58^713^16
  1. ;;^UTILITY(U,$J,358.3,14955,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14955,1,3,0)
  1. ;;=3^Psychotic disorder w hallucin due to known physiol condition
  1. ;;^UTILITY(U,$J,358.3,14955,1,4,0)
  1. ;;=4^F06.0
  1. ;;^UTILITY(U,$J,358.3,14955,2)
  1. ;;=^5003053
  1. ;;^UTILITY(U,$J,358.3,14956,0)
  1. ;;=F20.9^^58^713^20
  1. ;;^UTILITY(U,$J,358.3,14956,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14956,1,3,0)
  1. ;;=3^Schizophrenia, unspecified
  1. ;;^UTILITY(U,$J,358.3,14956,1,4,0)
  1. ;;=4^F20.9
  1. ;;^UTILITY(U,$J,358.3,14956,2)
  1. ;;=^5003476
  1. ;;^UTILITY(U,$J,358.3,14957,0)
  1. ;;=F03.91^^58^713^3
  1. ;;^UTILITY(U,$J,358.3,14957,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14957,1,3,0)
  1. ;;=3^Dementia with behavioral disturbance,Unspec
  1. ;;^UTILITY(U,$J,358.3,14957,1,4,0)
  1. ;;=4^F03.91
  1. ;;^UTILITY(U,$J,358.3,14957,2)
  1. ;;=^5133350
  1. ;;^UTILITY(U,$J,358.3,14958,0)
  1. ;;=F03.90^^58^713^4
  1. ;;^UTILITY(U,$J,358.3,14958,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14958,1,3,0)
  1. ;;=3^Dementia without behavioral disturbance,Unspec
  1. ;;^UTILITY(U,$J,358.3,14958,1,4,0)
  1. ;;=4^F03.90
  1. ;;^UTILITY(U,$J,358.3,14958,2)
  1. ;;=^5003050
  1. ;;^UTILITY(U,$J,358.3,14959,0)
  1. ;;=F33.0^^58^713^6
  1. ;;^UTILITY(U,$J,358.3,14959,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14959,1,3,0)
  1. ;;=3^MDD,Recurrent,Mild
  1. ;;^UTILITY(U,$J,358.3,14959,1,4,0)
  1. ;;=4^F33.0
  1. ;;^UTILITY(U,$J,358.3,14959,2)
  1. ;;=^5003529
  1. ;;^UTILITY(U,$J,358.3,14960,0)
  1. ;;=F33.1^^58^713^7
  1. ;;^UTILITY(U,$J,358.3,14960,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14960,1,3,0)
  1. ;;=3^MDD,Recurrent,Moderate
  1. ;;^UTILITY(U,$J,358.3,14960,1,4,0)
  1. ;;=4^F33.1