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

IBDEI1ZA.m

Go to the documentation of this file.
  1. IBDEI1ZA ; ; 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,31584,1,4,0)
  1. ;;=4^O36.5131
  1. ;;^UTILITY(U,$J,358.3,31584,2)
  1. ;;=^5016992
  1. ;;^UTILITY(U,$J,358.3,31585,0)
  1. ;;=O36.5132^^126^1626^213
  1. ;;^UTILITY(U,$J,358.3,31585,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31585,1,3,0)
  1. ;;=3^Maternal care,placntl insuff,3rd tri,fts 2
  1. ;;^UTILITY(U,$J,358.3,31585,1,4,0)
  1. ;;=4^O36.5132
  1. ;;^UTILITY(U,$J,358.3,31585,2)
  1. ;;=^5016993
  1. ;;^UTILITY(U,$J,358.3,31586,0)
  1. ;;=O36.5133^^126^1626^214
  1. ;;^UTILITY(U,$J,358.3,31586,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31586,1,3,0)
  1. ;;=3^Maternal care,placntl insuff,3rd tri,fts 3
  1. ;;^UTILITY(U,$J,358.3,31586,1,4,0)
  1. ;;=4^O36.5133
  1. ;;^UTILITY(U,$J,358.3,31586,2)
  1. ;;=^5016994
  1. ;;^UTILITY(U,$J,358.3,31587,0)
  1. ;;=O36.5134^^126^1626^215
  1. ;;^UTILITY(U,$J,358.3,31587,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31587,1,3,0)
  1. ;;=3^Maternal care,placntl insuff,3rd tri,fts 4
  1. ;;^UTILITY(U,$J,358.3,31587,1,4,0)
  1. ;;=4^O36.5134
  1. ;;^UTILITY(U,$J,358.3,31587,2)
  1. ;;=^5016995
  1. ;;^UTILITY(U,$J,358.3,31588,0)
  1. ;;=O36.5135^^126^1626^216
  1. ;;^UTILITY(U,$J,358.3,31588,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31588,1,3,0)
  1. ;;=3^Maternal care,placntl insuff,3rd tri,fts 5
  1. ;;^UTILITY(U,$J,358.3,31588,1,4,0)
  1. ;;=4^O36.5135
  1. ;;^UTILITY(U,$J,358.3,31588,2)
  1. ;;=^5016996
  1. ;;^UTILITY(U,$J,358.3,31589,0)
  1. ;;=O36.5910^^126^1626^182
  1. ;;^UTILITY(U,$J,358.3,31589,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31589,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,1st tri,unsp
  1. ;;^UTILITY(U,$J,358.3,31589,1,4,0)
  1. ;;=4^O36.5910
  1. ;;^UTILITY(U,$J,358.3,31589,2)
  1. ;;=^5017003
  1. ;;^UTILITY(U,$J,358.3,31590,0)
  1. ;;=O36.5911^^126^1626^183
  1. ;;^UTILITY(U,$J,358.3,31590,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31590,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,1st tri,fts 1
  1. ;;^UTILITY(U,$J,358.3,31590,1,4,0)
  1. ;;=4^O36.5911
  1. ;;^UTILITY(U,$J,358.3,31590,2)
  1. ;;=^5017004
  1. ;;^UTILITY(U,$J,358.3,31591,0)
  1. ;;=O36.5912^^126^1626^184
  1. ;;^UTILITY(U,$J,358.3,31591,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31591,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,1st tri,fts 2
  1. ;;^UTILITY(U,$J,358.3,31591,1,4,0)
  1. ;;=4^O36.5912
  1. ;;^UTILITY(U,$J,358.3,31591,2)
  1. ;;=^5017005
  1. ;;^UTILITY(U,$J,358.3,31592,0)
  1. ;;=O36.5913^^126^1626^185
  1. ;;^UTILITY(U,$J,358.3,31592,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31592,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,1st tri,fts 3
  1. ;;^UTILITY(U,$J,358.3,31592,1,4,0)
  1. ;;=4^O36.5913
  1. ;;^UTILITY(U,$J,358.3,31592,2)
  1. ;;=^5017006
  1. ;;^UTILITY(U,$J,358.3,31593,0)
  1. ;;=O36.5914^^126^1626^186
  1. ;;^UTILITY(U,$J,358.3,31593,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31593,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,1st tri,fts 4
  1. ;;^UTILITY(U,$J,358.3,31593,1,4,0)
  1. ;;=4^O36.5914
  1. ;;^UTILITY(U,$J,358.3,31593,2)
  1. ;;=^5017007
  1. ;;^UTILITY(U,$J,358.3,31594,0)
  1. ;;=O36.5915^^126^1626^187
  1. ;;^UTILITY(U,$J,358.3,31594,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31594,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,1st tri,fts 5
  1. ;;^UTILITY(U,$J,358.3,31594,1,4,0)
  1. ;;=4^O36.5915
  1. ;;^UTILITY(U,$J,358.3,31594,2)
  1. ;;=^5017008
  1. ;;^UTILITY(U,$J,358.3,31595,0)
  1. ;;=O36.5920^^126^1626^188
  1. ;;^UTILITY(U,$J,358.3,31595,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31595,1,3,0)
  1. ;;=3^Maternal care,oth/susp poor ftl grth,2nd tri,unsp
  1. ;;^UTILITY(U,$J,358.3,31595,1,4,0)
  1. ;;=4^O36.5920
  1. ;;^UTILITY(U,$J,358.3,31595,2)
  1. ;;=^5017009
  1. ;;^UTILITY(U,$J,358.3,31596,0)
  1. ;;=O36.5921^^126^1626^189