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

IBDEI0NP.m

Go to the documentation of this file.
IBDEI0NP ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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
Q Q
 ;;^UTILITY(U,$J,358.3,10667,2)
 ;;=^8313905
 ;;^UTILITY(U,$J,358.3,10668,0)
 ;;=F32.A^^42^473^18
 ;;^UTILITY(U,$J,358.3,10668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10668,1,3,0)
 ;;=3^MDD,Unspec
 ;;^UTILITY(U,$J,358.3,10668,1,4,0)
 ;;=4^F32.A
 ;;^UTILITY(U,$J,358.3,10668,2)
 ;;=^5161153
 ;;^UTILITY(U,$J,358.3,10669,0)
 ;;=F44.81^^42^474^6
 ;;^UTILITY(U,$J,358.3,10669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10669,1,3,0)
 ;;=3^Dissociative Identity Disorder
 ;;^UTILITY(U,$J,358.3,10669,1,4,0)
 ;;=4^F44.81
 ;;^UTILITY(U,$J,358.3,10669,2)
 ;;=^331909
 ;;^UTILITY(U,$J,358.3,10670,0)
 ;;=F44.9^^42^474^5
 ;;^UTILITY(U,$J,358.3,10670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10670,1,3,0)
 ;;=3^Dissociative Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,10670,1,4,0)
 ;;=4^F44.9
 ;;^UTILITY(U,$J,358.3,10670,2)
 ;;=^5003584
 ;;^UTILITY(U,$J,358.3,10671,0)
 ;;=F44.0^^42^474^2
 ;;^UTILITY(U,$J,358.3,10671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10671,1,3,0)
 ;;=3^Dissociative Amnesia
 ;;^UTILITY(U,$J,358.3,10671,1,4,0)
 ;;=4^F44.0
 ;;^UTILITY(U,$J,358.3,10671,2)
 ;;=^5003577
 ;;^UTILITY(U,$J,358.3,10672,0)
 ;;=F48.1^^42^474^1
 ;;^UTILITY(U,$J,358.3,10672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10672,1,3,0)
 ;;=3^Depersonalization/Derealization Disorder
 ;;^UTILITY(U,$J,358.3,10672,1,4,0)
 ;;=4^F48.1
 ;;^UTILITY(U,$J,358.3,10672,2)
 ;;=^5003593
 ;;^UTILITY(U,$J,358.3,10673,0)
 ;;=F44.89^^42^474^4
 ;;^UTILITY(U,$J,358.3,10673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10673,1,3,0)
 ;;=3^Dissociative Disorder,Other Specified
 ;;^UTILITY(U,$J,358.3,10673,1,4,0)
 ;;=4^F44.89
 ;;^UTILITY(U,$J,358.3,10673,2)
 ;;=^5003583
 ;;^UTILITY(U,$J,358.3,10674,0)
 ;;=F44.1^^42^474^3
 ;;^UTILITY(U,$J,358.3,10674,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10674,1,3,0)
 ;;=3^Dissociative Amnesia w/ Dissociative Fugue
 ;;^UTILITY(U,$J,358.3,10674,1,4,0)
 ;;=4^F44.1
 ;;^UTILITY(U,$J,358.3,10674,2)
 ;;=^331908
 ;;^UTILITY(U,$J,358.3,10675,0)
 ;;=F50.02^^42^475^1
 ;;^UTILITY(U,$J,358.3,10675,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10675,1,3,0)
 ;;=3^Anorexia Nervosa,Binge-Eating/Purging Type
 ;;^UTILITY(U,$J,358.3,10675,1,4,0)
 ;;=4^F50.02
 ;;^UTILITY(U,$J,358.3,10675,2)
 ;;=^5003599
 ;;^UTILITY(U,$J,358.3,10676,0)
 ;;=F50.01^^42^475^2
 ;;^UTILITY(U,$J,358.3,10676,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10676,1,3,0)
 ;;=3^Anorexia Nervosa,Restricting Type
 ;;^UTILITY(U,$J,358.3,10676,1,4,0)
 ;;=4^F50.01
 ;;^UTILITY(U,$J,358.3,10676,2)
 ;;=^5003598
 ;;^UTILITY(U,$J,358.3,10677,0)
 ;;=F50.9^^42^475^7
 ;;^UTILITY(U,$J,358.3,10677,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10677,1,3,0)
 ;;=3^Feeding/Eating Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,10677,1,4,0)
 ;;=4^F50.9
 ;;^UTILITY(U,$J,358.3,10677,2)
 ;;=^5003602
 ;;^UTILITY(U,$J,358.3,10678,0)
 ;;=F50.2^^42^475^5
 ;;^UTILITY(U,$J,358.3,10678,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10678,1,3,0)
 ;;=3^Bulimia Nervosa
 ;;^UTILITY(U,$J,358.3,10678,1,4,0)
 ;;=4^F50.2
 ;;^UTILITY(U,$J,358.3,10678,2)
 ;;=^5003600
 ;;^UTILITY(U,$J,358.3,10679,0)
 ;;=F98.21^^42^475^9
 ;;^UTILITY(U,$J,358.3,10679,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10679,1,3,0)
 ;;=3^Rumination Disorder
 ;;^UTILITY(U,$J,358.3,10679,1,4,0)
 ;;=4^F98.21
 ;;^UTILITY(U,$J,358.3,10679,2)
 ;;=^5003713
 ;;^UTILITY(U,$J,358.3,10680,0)
 ;;=F50.89^^42^475^3
 ;;^UTILITY(U,$J,358.3,10680,1,0)
 ;;=^358.31IA^4^2