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

IBDEI1YJ.m

Go to the documentation of this file.
IBDEI1YJ ; ; 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,31274,2)
 ;;=^5017865
 ;;^UTILITY(U,$J,358.3,31275,0)
 ;;=O98.13^^126^1623^90
 ;;^UTILITY(U,$J,358.3,31275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31275,1,3,0)
 ;;=3^Syphilis complicating the puerperium
 ;;^UTILITY(U,$J,358.3,31275,1,4,0)
 ;;=4^O98.13
 ;;^UTILITY(U,$J,358.3,31275,2)
 ;;=^5017868
 ;;^UTILITY(U,$J,358.3,31276,0)
 ;;=O98.211^^126^1623^35
 ;;^UTILITY(U,$J,358.3,31276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31276,1,3,0)
 ;;=3^Gonorrhea complicating pregnancy, first trimester
 ;;^UTILITY(U,$J,358.3,31276,1,4,0)
 ;;=4^O98.211
 ;;^UTILITY(U,$J,358.3,31276,2)
 ;;=^5017869
 ;;^UTILITY(U,$J,358.3,31277,0)
 ;;=O98.212^^126^1623^36
 ;;^UTILITY(U,$J,358.3,31277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31277,1,3,0)
 ;;=3^Gonorrhea complicating pregnancy, second trimester
 ;;^UTILITY(U,$J,358.3,31277,1,4,0)
 ;;=4^O98.212
 ;;^UTILITY(U,$J,358.3,31277,2)
 ;;=^5017870
 ;;^UTILITY(U,$J,358.3,31278,0)
 ;;=O98.213^^126^1623^37
 ;;^UTILITY(U,$J,358.3,31278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31278,1,3,0)
 ;;=3^Gonorrhea complicating pregnancy, third trimester
 ;;^UTILITY(U,$J,358.3,31278,1,4,0)
 ;;=4^O98.213
 ;;^UTILITY(U,$J,358.3,31278,2)
 ;;=^5017871
 ;;^UTILITY(U,$J,358.3,31279,0)
 ;;=O98.23^^126^1623^38
 ;;^UTILITY(U,$J,358.3,31279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31279,1,3,0)
 ;;=3^Gonorrhea complicating the puerperium
 ;;^UTILITY(U,$J,358.3,31279,1,4,0)
 ;;=4^O98.23
 ;;^UTILITY(U,$J,358.3,31279,2)
 ;;=^5017874
 ;;^UTILITY(U,$J,358.3,31280,0)
 ;;=O98.011^^126^1623^91
 ;;^UTILITY(U,$J,358.3,31280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31280,1,3,0)
 ;;=3^Tuberculosis complicating pregnancy, first trimester
 ;;^UTILITY(U,$J,358.3,31280,1,4,0)
 ;;=4^O98.011
 ;;^UTILITY(U,$J,358.3,31280,2)
 ;;=^5017857
 ;;^UTILITY(U,$J,358.3,31281,0)
 ;;=O98.012^^126^1623^92
 ;;^UTILITY(U,$J,358.3,31281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31281,1,3,0)
 ;;=3^Tuberculosis complicating pregnancy, second trimester
 ;;^UTILITY(U,$J,358.3,31281,1,4,0)
 ;;=4^O98.012
 ;;^UTILITY(U,$J,358.3,31281,2)
 ;;=^5017858
 ;;^UTILITY(U,$J,358.3,31282,0)
 ;;=O98.013^^126^1623^93
 ;;^UTILITY(U,$J,358.3,31282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31282,1,3,0)
 ;;=3^Tuberculosis complicating pregnancy, third trimester
 ;;^UTILITY(U,$J,358.3,31282,1,4,0)
 ;;=4^O98.013
 ;;^UTILITY(U,$J,358.3,31282,2)
 ;;=^5017859
 ;;^UTILITY(U,$J,358.3,31283,0)
 ;;=O98.03^^126^1623^94
 ;;^UTILITY(U,$J,358.3,31283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31283,1,3,0)
 ;;=3^Tuberculosis complicating the puerperium
 ;;^UTILITY(U,$J,358.3,31283,1,4,0)
 ;;=4^O98.03
 ;;^UTILITY(U,$J,358.3,31283,2)
 ;;=^5017862
 ;;^UTILITY(U,$J,358.3,31284,0)
 ;;=O98.611^^126^1623^82
 ;;^UTILITY(U,$J,358.3,31284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31284,1,3,0)
 ;;=3^Protozoal diseases complicating pregnancy, first trimester
 ;;^UTILITY(U,$J,358.3,31284,1,4,0)
 ;;=4^O98.611
 ;;^UTILITY(U,$J,358.3,31284,2)
 ;;=^5017893
 ;;^UTILITY(U,$J,358.3,31285,0)
 ;;=O98.612^^126^1623^83
 ;;^UTILITY(U,$J,358.3,31285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31285,1,3,0)
 ;;=3^Protozoal diseases complicating pregnancy, second trimester
 ;;^UTILITY(U,$J,358.3,31285,1,4,0)
 ;;=4^O98.612
 ;;^UTILITY(U,$J,358.3,31285,2)
 ;;=^5017894
 ;;^UTILITY(U,$J,358.3,31286,0)
 ;;=O98.613^^126^1623^84
 ;;^UTILITY(U,$J,358.3,31286,1,0)
 ;;=^358.31IA^4^2