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

IBDEI1RW.m

Go to the documentation of this file.
  1. IBDEI1RW ; ; 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,28320,1,4,0)
  1. ;;=4^F33.41
  1. ;;^UTILITY(U,$J,358.3,28320,2)
  1. ;;=^5003534
  1. ;;^UTILITY(U,$J,358.3,28321,0)
  1. ;;=F33.42^^115^1387^8
  1. ;;^UTILITY(U,$J,358.3,28321,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28321,1,3,0)
  1. ;;=3^MDD,Recurrent Episode,In Full Remission
  1. ;;^UTILITY(U,$J,358.3,28321,1,4,0)
  1. ;;=4^F33.42
  1. ;;^UTILITY(U,$J,358.3,28321,2)
  1. ;;=^5003535
  1. ;;^UTILITY(U,$J,358.3,28322,0)
  1. ;;=F34.1^^115^1387^20
  1. ;;^UTILITY(U,$J,358.3,28322,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28322,1,3,0)
  1. ;;=3^Persistent Depressive Disorder (Dysthmia)
  1. ;;^UTILITY(U,$J,358.3,28322,1,4,0)
  1. ;;=4^F34.1
  1. ;;^UTILITY(U,$J,358.3,28322,2)
  1. ;;=^331913
  1. ;;^UTILITY(U,$J,358.3,28323,0)
  1. ;;=F06.34^^115^1387^3
  1. ;;^UTILITY(U,$J,358.3,28323,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28323,1,3,0)
  1. ;;=3^Depress D/O d/t Anth Med Cond w/ Mixed Feat
  1. ;;^UTILITY(U,$J,358.3,28323,1,4,0)
  1. ;;=4^F06.34
  1. ;;^UTILITY(U,$J,358.3,28323,2)
  1. ;;=^5003060
  1. ;;^UTILITY(U,$J,358.3,28324,0)
  1. ;;=F32.9^^115^1387^5
  1. ;;^UTILITY(U,$J,358.3,28324,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28324,1,3,0)
  1. ;;=3^Depressive D/O,Unsp
  1. ;;^UTILITY(U,$J,358.3,28324,1,4,0)
  1. ;;=4^F32.9
  1. ;;^UTILITY(U,$J,358.3,28324,2)
  1. ;;=^5003528
  1. ;;^UTILITY(U,$J,358.3,28325,0)
  1. ;;=F32.89^^115^1387^4
  1. ;;^UTILITY(U,$J,358.3,28325,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28325,1,3,0)
  1. ;;=3^Depressive D/O,Other Specified
  1. ;;^UTILITY(U,$J,358.3,28325,1,4,0)
  1. ;;=4^F32.89
  1. ;;^UTILITY(U,$J,358.3,28325,2)
  1. ;;=^5138442
  1. ;;^UTILITY(U,$J,358.3,28326,0)
  1. ;;=F34.81^^115^1387^6
  1. ;;^UTILITY(U,$J,358.3,28326,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28326,1,3,0)
  1. ;;=3^Disruptive Mood Dysregulation Disorder
  1. ;;^UTILITY(U,$J,358.3,28326,1,4,0)
  1. ;;=4^F34.81
  1. ;;^UTILITY(U,$J,358.3,28326,2)
  1. ;;=^8313905
  1. ;;^UTILITY(U,$J,358.3,28327,0)
  1. ;;=F32.81^^115^1387^21
  1. ;;^UTILITY(U,$J,358.3,28327,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28327,1,3,0)
  1. ;;=3^Premenstrual Dysphoric Disorder
  1. ;;^UTILITY(U,$J,358.3,28327,1,4,0)
  1. ;;=4^F32.81
  1. ;;^UTILITY(U,$J,358.3,28327,2)
  1. ;;=^7000885
  1. ;;^UTILITY(U,$J,358.3,28328,0)
  1. ;;=F44.81^^115^1388^6
  1. ;;^UTILITY(U,$J,358.3,28328,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28328,1,3,0)
  1. ;;=3^Dissociative Identity D/O
  1. ;;^UTILITY(U,$J,358.3,28328,1,4,0)
  1. ;;=4^F44.81
  1. ;;^UTILITY(U,$J,358.3,28328,2)
  1. ;;=^331909
  1. ;;^UTILITY(U,$J,358.3,28329,0)
  1. ;;=F44.9^^115^1388^5
  1. ;;^UTILITY(U,$J,358.3,28329,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28329,1,3,0)
  1. ;;=3^Dissociative D/O,Unspec
  1. ;;^UTILITY(U,$J,358.3,28329,1,4,0)
  1. ;;=4^F44.9
  1. ;;^UTILITY(U,$J,358.3,28329,2)
  1. ;;=^5003584
  1. ;;^UTILITY(U,$J,358.3,28330,0)
  1. ;;=F44.0^^115^1388^2
  1. ;;^UTILITY(U,$J,358.3,28330,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28330,1,3,0)
  1. ;;=3^Dissociative Amnesia
  1. ;;^UTILITY(U,$J,358.3,28330,1,4,0)
  1. ;;=4^F44.0
  1. ;;^UTILITY(U,$J,358.3,28330,2)
  1. ;;=^5003577
  1. ;;^UTILITY(U,$J,358.3,28331,0)
  1. ;;=F48.1^^115^1388^1
  1. ;;^UTILITY(U,$J,358.3,28331,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28331,1,3,0)
  1. ;;=3^Depersonalization/Derealization D/O
  1. ;;^UTILITY(U,$J,358.3,28331,1,4,0)
  1. ;;=4^F48.1
  1. ;;^UTILITY(U,$J,358.3,28331,2)
  1. ;;=^5003593
  1. ;;^UTILITY(U,$J,358.3,28332,0)
  1. ;;=F44.89^^115^1388^4
  1. ;;^UTILITY(U,$J,358.3,28332,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28332,1,3,0)
  1. ;;=3^Dissociative D/O,Other Specified
  1. ;;^UTILITY(U,$J,358.3,28332,1,4,0)
  1. ;;=4^F44.89
  1. ;;^UTILITY(U,$J,358.3,28332,2)
  1. ;;=^5003583