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

IBDEI1Z7.m

Go to the documentation of this file.
IBDEI1Z7 ; ; 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,31549,1,4,0)
 ;;=4^O36.1915
 ;;^UTILITY(U,$J,358.3,31549,2)
 ;;=^5016924
 ;;^UTILITY(U,$J,358.3,31550,0)
 ;;=O36.1920^^126^1626^157
 ;;^UTILITY(U,$J,358.3,31550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31550,1,3,0)
 ;;=3^Maternal care,oth isoimmun,2nd tri,unsp
 ;;^UTILITY(U,$J,358.3,31550,1,4,0)
 ;;=4^O36.1920
 ;;^UTILITY(U,$J,358.3,31550,2)
 ;;=^5016925
 ;;^UTILITY(U,$J,358.3,31551,0)
 ;;=O36.1921^^126^1626^152
 ;;^UTILITY(U,$J,358.3,31551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31551,1,3,0)
 ;;=3^Maternal care,oth isoimmun,2nd tri,fts 1
 ;;^UTILITY(U,$J,358.3,31551,1,4,0)
 ;;=4^O36.1921
 ;;^UTILITY(U,$J,358.3,31551,2)
 ;;=^5016926
 ;;^UTILITY(U,$J,358.3,31552,0)
 ;;=O36.1922^^126^1626^153
 ;;^UTILITY(U,$J,358.3,31552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31552,1,3,0)
 ;;=3^Maternal care,oth isoimmun,2nd tri,fts 2
 ;;^UTILITY(U,$J,358.3,31552,1,4,0)
 ;;=4^O36.1922
 ;;^UTILITY(U,$J,358.3,31552,2)
 ;;=^5016927
 ;;^UTILITY(U,$J,358.3,31553,0)
 ;;=O36.1923^^126^1626^154
 ;;^UTILITY(U,$J,358.3,31553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31553,1,3,0)
 ;;=3^Maternal care,oth isoimmun,2nd tri,fts 3
 ;;^UTILITY(U,$J,358.3,31553,1,4,0)
 ;;=4^O36.1923
 ;;^UTILITY(U,$J,358.3,31553,2)
 ;;=^5016928
 ;;^UTILITY(U,$J,358.3,31554,0)
 ;;=O36.1924^^126^1626^155
 ;;^UTILITY(U,$J,358.3,31554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31554,1,3,0)
 ;;=3^Maternal care,oth isoimmun,2nd tri,fts 4
 ;;^UTILITY(U,$J,358.3,31554,1,4,0)
 ;;=4^O36.1924
 ;;^UTILITY(U,$J,358.3,31554,2)
 ;;=^5016929
 ;;^UTILITY(U,$J,358.3,31555,0)
 ;;=O36.1925^^126^1626^156
 ;;^UTILITY(U,$J,358.3,31555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31555,1,3,0)
 ;;=3^Maternal care,oth isoimmun,2nd tri,fts 5
 ;;^UTILITY(U,$J,358.3,31555,1,4,0)
 ;;=4^O36.1925
 ;;^UTILITY(U,$J,358.3,31555,2)
 ;;=^5016930
 ;;^UTILITY(U,$J,358.3,31556,0)
 ;;=O36.1930^^126^1626^163
 ;;^UTILITY(U,$J,358.3,31556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31556,1,3,0)
 ;;=3^Maternal care,oth isoimmun,3rd tri,unsp
 ;;^UTILITY(U,$J,358.3,31556,1,4,0)
 ;;=4^O36.1930
 ;;^UTILITY(U,$J,358.3,31556,2)
 ;;=^5016931
 ;;^UTILITY(U,$J,358.3,31557,0)
 ;;=O36.1931^^126^1626^158
 ;;^UTILITY(U,$J,358.3,31557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31557,1,3,0)
 ;;=3^Maternal care,oth isoimmun,3rd tri,fts 1
 ;;^UTILITY(U,$J,358.3,31557,1,4,0)
 ;;=4^O36.1931
 ;;^UTILITY(U,$J,358.3,31557,2)
 ;;=^5016932
 ;;^UTILITY(U,$J,358.3,31558,0)
 ;;=O36.1932^^126^1626^159
 ;;^UTILITY(U,$J,358.3,31558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31558,1,3,0)
 ;;=3^Maternal care,oth isoimmun,3rd tri,fts 2
 ;;^UTILITY(U,$J,358.3,31558,1,4,0)
 ;;=4^O36.1932
 ;;^UTILITY(U,$J,358.3,31558,2)
 ;;=^5016933
 ;;^UTILITY(U,$J,358.3,31559,0)
 ;;=O36.1933^^126^1626^160
 ;;^UTILITY(U,$J,358.3,31559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31559,1,3,0)
 ;;=3^Maternal care,oth isoimmun,3rd tri,fts 3
 ;;^UTILITY(U,$J,358.3,31559,1,4,0)
 ;;=4^O36.1933
 ;;^UTILITY(U,$J,358.3,31559,2)
 ;;=^5016934
 ;;^UTILITY(U,$J,358.3,31560,0)
 ;;=O36.1934^^126^1626^161
 ;;^UTILITY(U,$J,358.3,31560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31560,1,3,0)
 ;;=3^Maternal care,oth isoimmun,3rd tri,fts 4
 ;;^UTILITY(U,$J,358.3,31560,1,4,0)
 ;;=4^O36.1934
 ;;^UTILITY(U,$J,358.3,31560,2)
 ;;=^5016935
 ;;^UTILITY(U,$J,358.3,31561,0)
 ;;=O36.1935^^126^1626^162
 ;;^UTILITY(U,$J,358.3,31561,1,0)
 ;;=^358.31IA^4^2