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

IBDEI1YU.m

Go to the documentation of this file.
  1. IBDEI1YU ; ; 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,31400,2)
  1. ;;=^5016548
  1. ;;^UTILITY(U,$J,358.3,31401,0)
  1. ;;=O31.13X4^^126^1625^36
  1. ;;^UTILITY(U,$J,358.3,31401,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31401,1,3,0)
  1. ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 4
  1. ;;^UTILITY(U,$J,358.3,31401,1,4,0)
  1. ;;=4^O31.13X4
  1. ;;^UTILITY(U,$J,358.3,31401,2)
  1. ;;=^5016555
  1. ;;^UTILITY(U,$J,358.3,31402,0)
  1. ;;=O31.11X5^^126^1625^27
  1. ;;^UTILITY(U,$J,358.3,31402,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31402,1,3,0)
  1. ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 5
  1. ;;^UTILITY(U,$J,358.3,31402,1,4,0)
  1. ;;=4^O31.11X5
  1. ;;^UTILITY(U,$J,358.3,31402,2)
  1. ;;=^5016542
  1. ;;^UTILITY(U,$J,358.3,31403,0)
  1. ;;=O31.12X5^^126^1625^32
  1. ;;^UTILITY(U,$J,358.3,31403,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31403,1,3,0)
  1. ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 5
  1. ;;^UTILITY(U,$J,358.3,31403,1,4,0)
  1. ;;=4^O31.12X5
  1. ;;^UTILITY(U,$J,358.3,31403,2)
  1. ;;=^5016549
  1. ;;^UTILITY(U,$J,358.3,31404,0)
  1. ;;=O31.13X5^^126^1625^37
  1. ;;^UTILITY(U,$J,358.3,31404,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31404,1,3,0)
  1. ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 5
  1. ;;^UTILITY(U,$J,358.3,31404,1,4,0)
  1. ;;=4^O31.13X5
  1. ;;^UTILITY(U,$J,358.3,31404,2)
  1. ;;=^5016556
  1. ;;^UTILITY(U,$J,358.3,31405,0)
  1. ;;=O31.31X0^^126^1625^4
  1. ;;^UTILITY(U,$J,358.3,31405,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31405,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,unsp fts
  1. ;;^UTILITY(U,$J,358.3,31405,1,4,0)
  1. ;;=4^O31.31X0
  1. ;;^UTILITY(U,$J,358.3,31405,2)
  1. ;;=^5016593
  1. ;;^UTILITY(U,$J,358.3,31406,0)
  1. ;;=O31.32X0^^126^1625^5
  1. ;;^UTILITY(U,$J,358.3,31406,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31406,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,unsp fts
  1. ;;^UTILITY(U,$J,358.3,31406,1,4,0)
  1. ;;=4^O31.32X0
  1. ;;^UTILITY(U,$J,358.3,31406,2)
  1. ;;=^5016600
  1. ;;^UTILITY(U,$J,358.3,31407,0)
  1. ;;=O31.33X0^^126^1625^6
  1. ;;^UTILITY(U,$J,358.3,31407,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31407,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,unsp fts
  1. ;;^UTILITY(U,$J,358.3,31407,1,4,0)
  1. ;;=4^O31.33X0
  1. ;;^UTILITY(U,$J,358.3,31407,2)
  1. ;;=^5016607
  1. ;;^UTILITY(U,$J,358.3,31408,0)
  1. ;;=O31.31X1^^126^1625^7
  1. ;;^UTILITY(U,$J,358.3,31408,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31408,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,fts 1
  1. ;;^UTILITY(U,$J,358.3,31408,1,4,0)
  1. ;;=4^O31.31X1
  1. ;;^UTILITY(U,$J,358.3,31408,2)
  1. ;;=^5016594
  1. ;;^UTILITY(U,$J,358.3,31409,0)
  1. ;;=O31.32X1^^126^1625^8
  1. ;;^UTILITY(U,$J,358.3,31409,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31409,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,fts 1
  1. ;;^UTILITY(U,$J,358.3,31409,1,4,0)
  1. ;;=4^O31.32X1
  1. ;;^UTILITY(U,$J,358.3,31409,2)
  1. ;;=^5016601
  1. ;;^UTILITY(U,$J,358.3,31410,0)
  1. ;;=O31.33X1^^126^1625^9
  1. ;;^UTILITY(U,$J,358.3,31410,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31410,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,fts 1
  1. ;;^UTILITY(U,$J,358.3,31410,1,4,0)
  1. ;;=4^O31.33X1
  1. ;;^UTILITY(U,$J,358.3,31410,2)
  1. ;;=^5016608
  1. ;;^UTILITY(U,$J,358.3,31411,0)
  1. ;;=O31.31X2^^126^1625^10
  1. ;;^UTILITY(U,$J,358.3,31411,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31411,1,3,0)
  1. ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,fts 2
  1. ;;^UTILITY(U,$J,358.3,31411,1,4,0)
  1. ;;=4^O31.31X2
  1. ;;^UTILITY(U,$J,358.3,31411,2)
  1. ;;=^5016595
  1. ;;^UTILITY(U,$J,358.3,31412,0)
  1. ;;=O31.32X2^^126^1625^11