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

IBDEI2R7.m

Go to the documentation of this file.
IBDEI2R7 ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,43921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43921,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Manic,Mild
 ;;^UTILITY(U,$J,358.3,43921,1,4,0)
 ;;=4^F31.11
 ;;^UTILITY(U,$J,358.3,43921,2)
 ;;=^5003496
 ;;^UTILITY(U,$J,358.3,43922,0)
 ;;=F31.12^^164^2168^23
 ;;^UTILITY(U,$J,358.3,43922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43922,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Manic,Mod
 ;;^UTILITY(U,$J,358.3,43922,1,4,0)
 ;;=4^F31.12
 ;;^UTILITY(U,$J,358.3,43922,2)
 ;;=^5003497
 ;;^UTILITY(U,$J,358.3,43923,0)
 ;;=F31.13^^164^2168^24
 ;;^UTILITY(U,$J,358.3,43923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43923,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Manic,Sev
 ;;^UTILITY(U,$J,358.3,43923,1,4,0)
 ;;=4^F31.13
 ;;^UTILITY(U,$J,358.3,43923,2)
 ;;=^5003498
 ;;^UTILITY(U,$J,358.3,43924,0)
 ;;=F31.2^^164^2168^19
 ;;^UTILITY(U,$J,358.3,43924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43924,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Manic w/ Psych Feat
 ;;^UTILITY(U,$J,358.3,43924,1,4,0)
 ;;=4^F31.2
 ;;^UTILITY(U,$J,358.3,43924,2)
 ;;=^5003499
 ;;^UTILITY(U,$J,358.3,43925,0)
 ;;=F31.73^^164^2168^20
 ;;^UTILITY(U,$J,358.3,43925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43925,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Manic,In Part Remiss
 ;;^UTILITY(U,$J,358.3,43925,1,4,0)
 ;;=4^F31.73
 ;;^UTILITY(U,$J,358.3,43925,2)
 ;;=^5003513
 ;;^UTILITY(U,$J,358.3,43926,0)
 ;;=F31.74^^164^2168^21
 ;;^UTILITY(U,$J,358.3,43926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43926,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Manic,In Full Remiss
 ;;^UTILITY(U,$J,358.3,43926,1,4,0)
 ;;=4^F31.74
 ;;^UTILITY(U,$J,358.3,43926,2)
 ;;=^5003514
 ;;^UTILITY(U,$J,358.3,43927,0)
 ;;=F31.31^^164^2168^13
 ;;^UTILITY(U,$J,358.3,43927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43927,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Dep,Mild
 ;;^UTILITY(U,$J,358.3,43927,1,4,0)
 ;;=4^F31.31
 ;;^UTILITY(U,$J,358.3,43927,2)
 ;;=^5003501
 ;;^UTILITY(U,$J,358.3,43928,0)
 ;;=F31.32^^164^2168^14
 ;;^UTILITY(U,$J,358.3,43928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43928,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Dep,Mod
 ;;^UTILITY(U,$J,358.3,43928,1,4,0)
 ;;=4^F31.32
 ;;^UTILITY(U,$J,358.3,43928,2)
 ;;=^5003502
 ;;^UTILITY(U,$J,358.3,43929,0)
 ;;=F31.4^^164^2168^15
 ;;^UTILITY(U,$J,358.3,43929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43929,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Dep,Sev
 ;;^UTILITY(U,$J,358.3,43929,1,4,0)
 ;;=4^F31.4
 ;;^UTILITY(U,$J,358.3,43929,2)
 ;;=^5003503
 ;;^UTILITY(U,$J,358.3,43930,0)
 ;;=F31.5^^164^2168^10
 ;;^UTILITY(U,$J,358.3,43930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43930,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Dep w/ Psych Feat
 ;;^UTILITY(U,$J,358.3,43930,1,4,0)
 ;;=4^F31.5
 ;;^UTILITY(U,$J,358.3,43930,2)
 ;;=^5003504
 ;;^UTILITY(U,$J,358.3,43931,0)
 ;;=F31.75^^164^2168^11
 ;;^UTILITY(U,$J,358.3,43931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43931,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Dep,In Part Remiss
 ;;^UTILITY(U,$J,358.3,43931,1,4,0)
 ;;=4^F31.75
 ;;^UTILITY(U,$J,358.3,43931,2)
 ;;=^5003515
 ;;^UTILITY(U,$J,358.3,43932,0)
 ;;=F31.76^^164^2168^12
 ;;^UTILITY(U,$J,358.3,43932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,43932,1,3,0)
 ;;=3^Bipolar I D/O,Current/Recent Ep Dep,In Full Remiss
 ;;^UTILITY(U,$J,358.3,43932,1,4,0)
 ;;=4^F31.76