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

IBDEI0NS.m

Go to the documentation of this file.
  1. IBDEI0NS ; ; 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,10704,2)
  1. ;;=^5003799
  1. ;;^UTILITY(U,$J,358.3,10705,0)
  1. ;;=G24.02^^42^478^8
  1. ;;^UTILITY(U,$J,358.3,10705,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10705,1,3,0)
  1. ;;=3^Medication-Induced Acute Dystonia
  1. ;;^UTILITY(U,$J,358.3,10705,1,4,0)
  1. ;;=4^G24.02
  1. ;;^UTILITY(U,$J,358.3,10705,2)
  1. ;;=^5003785
  1. ;;^UTILITY(U,$J,358.3,10706,0)
  1. ;;=G21.0^^42^478^12
  1. ;;^UTILITY(U,$J,358.3,10706,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10706,1,3,0)
  1. ;;=3^Neuroleptic Malignant Syndrome
  1. ;;^UTILITY(U,$J,358.3,10706,1,4,0)
  1. ;;=4^G21.0
  1. ;;^UTILITY(U,$J,358.3,10706,2)
  1. ;;=^5003771
  1. ;;^UTILITY(U,$J,358.3,10707,0)
  1. ;;=T50.905A^^42^478^1
  1. ;;^UTILITY(U,$J,358.3,10707,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10707,1,3,0)
  1. ;;=3^Adverse Effect of Medication,Other,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10707,1,4,0)
  1. ;;=4^T50.905A
  1. ;;^UTILITY(U,$J,358.3,10707,2)
  1. ;;=^5052160
  1. ;;^UTILITY(U,$J,358.3,10708,0)
  1. ;;=T50.905S^^42^478^2
  1. ;;^UTILITY(U,$J,358.3,10708,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10708,1,3,0)
  1. ;;=3^Adverse Effect of Medication,Other,Sequela
  1. ;;^UTILITY(U,$J,358.3,10708,1,4,0)
  1. ;;=4^T50.905S
  1. ;;^UTILITY(U,$J,358.3,10708,2)
  1. ;;=^5052162
  1. ;;^UTILITY(U,$J,358.3,10709,0)
  1. ;;=T50.905D^^42^478^3
  1. ;;^UTILITY(U,$J,358.3,10709,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10709,1,3,0)
  1. ;;=3^Adverse Effect of Medication,Other,Subseq Encntr
  1. ;;^UTILITY(U,$J,358.3,10709,1,4,0)
  1. ;;=4^T50.905D
  1. ;;^UTILITY(U,$J,358.3,10709,2)
  1. ;;=^5052161
  1. ;;^UTILITY(U,$J,358.3,10710,0)
  1. ;;=F45.22^^42^479^1
  1. ;;^UTILITY(U,$J,358.3,10710,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10710,1,3,0)
  1. ;;=3^Body Dysmorphic Disorder
  1. ;;^UTILITY(U,$J,358.3,10710,1,4,0)
  1. ;;=4^F45.22
  1. ;;^UTILITY(U,$J,358.3,10710,2)
  1. ;;=^5003588
  1. ;;^UTILITY(U,$J,358.3,10711,0)
  1. ;;=F63.3^^42^479^7
  1. ;;^UTILITY(U,$J,358.3,10711,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10711,1,3,0)
  1. ;;=3^Trichotillomania (Hair-Pulling Disorder)
  1. ;;^UTILITY(U,$J,358.3,10711,1,4,0)
  1. ;;=4^F63.3
  1. ;;^UTILITY(U,$J,358.3,10711,2)
  1. ;;=^5003643
  1. ;;^UTILITY(U,$J,358.3,10712,0)
  1. ;;=F06.8^^42^479^5
  1. ;;^UTILITY(U,$J,358.3,10712,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10712,1,3,0)
  1. ;;=3^Obsessive-Compulsive & Related Disorder d/t Another Med Condition
  1. ;;^UTILITY(U,$J,358.3,10712,1,4,0)
  1. ;;=4^F06.8
  1. ;;^UTILITY(U,$J,358.3,10712,2)
  1. ;;=^5003062
  1. ;;^UTILITY(U,$J,358.3,10713,0)
  1. ;;=F42.3^^42^479^3
  1. ;;^UTILITY(U,$J,358.3,10713,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10713,1,3,0)
  1. ;;=3^Hoarding Disorder
  1. ;;^UTILITY(U,$J,358.3,10713,1,4,0)
  1. ;;=4^F42.3
  1. ;;^UTILITY(U,$J,358.3,10713,2)
  1. ;;=^5138445
  1. ;;^UTILITY(U,$J,358.3,10714,0)
  1. ;;=F42.9^^42^479^6
  1. ;;^UTILITY(U,$J,358.3,10714,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10714,1,3,0)
  1. ;;=3^Obsessive-Compulsive Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,10714,1,4,0)
  1. ;;=4^F42.9
  1. ;;^UTILITY(U,$J,358.3,10714,2)
  1. ;;=^5138448
  1. ;;^UTILITY(U,$J,358.3,10715,0)
  1. ;;=F42.2^^42^479^4
  1. ;;^UTILITY(U,$J,358.3,10715,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10715,1,3,0)
  1. ;;=3^Mixed Obsessional Thoughts and Acts
  1. ;;^UTILITY(U,$J,358.3,10715,1,4,0)
  1. ;;=4^F42.2
  1. ;;^UTILITY(U,$J,358.3,10715,2)
  1. ;;=^5138444
  1. ;;^UTILITY(U,$J,358.3,10716,0)
  1. ;;=F42.4^^42^479^2
  1. ;;^UTILITY(U,$J,358.3,10716,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10716,1,3,0)
  1. ;;=3^Excoriation (Skin-Picking) Disorder
  1. ;;^UTILITY(U,$J,358.3,10716,1,4,0)
  1. ;;=4^F42.4
  1. ;;^UTILITY(U,$J,358.3,10716,2)
  1. ;;=^5138446