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

IBDEI07I.m

Go to the documentation of this file.
IBDEI07I ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
 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,18272,1,3,0)
 ;;=3^Twin pregnancy, monochorionic/monoamniotic, second trimester
 ;;^UTILITY(U,$J,358.3,18272,1,4,0)
 ;;=4^O30.012
 ;;^UTILITY(U,$J,358.3,18272,2)
 ;;=^5016433
 ;;^UTILITY(U,$J,358.3,18273,0)
 ;;=O30.013^^62^739^73
 ;;^UTILITY(U,$J,358.3,18273,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18273,1,3,0)
 ;;=3^Twin pregnancy, monochorionic/monoamniotic, third trimester
 ;;^UTILITY(U,$J,358.3,18273,1,4,0)
 ;;=4^O30.013
 ;;^UTILITY(U,$J,358.3,18273,2)
 ;;=^5016434
 ;;^UTILITY(U,$J,358.3,18274,0)
 ;;=O30.021^^62^739^1
 ;;^UTILITY(U,$J,358.3,18274,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18274,1,3,0)
 ;;=3^Conjoined twin pregnancy, first trimester
 ;;^UTILITY(U,$J,358.3,18274,1,4,0)
 ;;=4^O30.021
 ;;^UTILITY(U,$J,358.3,18274,2)
 ;;=^5016436
 ;;^UTILITY(U,$J,358.3,18275,0)
 ;;=O30.022^^62^739^2
 ;;^UTILITY(U,$J,358.3,18275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18275,1,3,0)
 ;;=3^Conjoined twin pregnancy, second trimester
 ;;^UTILITY(U,$J,358.3,18275,1,4,0)
 ;;=4^O30.022
 ;;^UTILITY(U,$J,358.3,18275,2)
 ;;=^5016437
 ;;^UTILITY(U,$J,358.3,18276,0)
 ;;=O30.023^^62^739^3
 ;;^UTILITY(U,$J,358.3,18276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18276,1,3,0)
 ;;=3^Conjoined twin pregnancy, third trimester
 ;;^UTILITY(U,$J,358.3,18276,1,4,0)
 ;;=4^O30.023
 ;;^UTILITY(U,$J,358.3,18276,2)
 ;;=^5016438
 ;;^UTILITY(U,$J,358.3,18277,0)
 ;;=O30.031^^62^739^68
 ;;^UTILITY(U,$J,358.3,18277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18277,1,3,0)
 ;;=3^Twin pregnancy, monochorionic/diamniotic, first trimester
 ;;^UTILITY(U,$J,358.3,18277,1,4,0)
 ;;=4^O30.031
 ;;^UTILITY(U,$J,358.3,18277,2)
 ;;=^5016440
 ;;^UTILITY(U,$J,358.3,18278,0)
 ;;=O30.032^^62^739^69
 ;;^UTILITY(U,$J,358.3,18278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18278,1,3,0)
 ;;=3^Twin pregnancy, monochorionic/diamniotic, second trimester
 ;;^UTILITY(U,$J,358.3,18278,1,4,0)
 ;;=4^O30.032
 ;;^UTILITY(U,$J,358.3,18278,2)
 ;;=^5016441
 ;;^UTILITY(U,$J,358.3,18279,0)
 ;;=O30.033^^62^739^70
 ;;^UTILITY(U,$J,358.3,18279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18279,1,3,0)
 ;;=3^Twin pregnancy, monochorionic/diamniotic, third trimester
 ;;^UTILITY(U,$J,358.3,18279,1,4,0)
 ;;=4^O30.033
 ;;^UTILITY(U,$J,358.3,18279,2)
 ;;=^5016442
 ;;^UTILITY(U,$J,358.3,18280,0)
 ;;=O30.041^^62^739^65
 ;;^UTILITY(U,$J,358.3,18280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18280,1,3,0)
 ;;=3^Twin pregnancy, dichorionic/diamniotic, first trimester
 ;;^UTILITY(U,$J,358.3,18280,1,4,0)
 ;;=4^O30.041
 ;;^UTILITY(U,$J,358.3,18280,2)
 ;;=^5016444
 ;;^UTILITY(U,$J,358.3,18281,0)
 ;;=O30.042^^62^739^66
 ;;^UTILITY(U,$J,358.3,18281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18281,1,3,0)
 ;;=3^Twin pregnancy, dichorionic/diamniotic, second trimester
 ;;^UTILITY(U,$J,358.3,18281,1,4,0)
 ;;=4^O30.042
 ;;^UTILITY(U,$J,358.3,18281,2)
 ;;=^5016445
 ;;^UTILITY(U,$J,358.3,18282,0)
 ;;=O30.043^^62^739^67
 ;;^UTILITY(U,$J,358.3,18282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18282,1,3,0)
 ;;=3^Twin pregnancy, dichorionic/diamniotic, third trimester
 ;;^UTILITY(U,$J,358.3,18282,1,4,0)
 ;;=4^O30.043
 ;;^UTILITY(U,$J,358.3,18282,2)
 ;;=^5016446
 ;;^UTILITY(U,$J,358.3,18283,0)
 ;;=O30.091^^62^739^74
 ;;^UTILITY(U,$J,358.3,18283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18283,1,3,0)
 ;;=3^Twin,undeterm num plcnta,amino sacs,1st tri
 ;;^UTILITY(U,$J,358.3,18283,1,4,0)
 ;;=4^O30.091
 ;;^UTILITY(U,$J,358.3,18283,2)
 ;;=^5016448
 ;;^UTILITY(U,$J,358.3,18284,0)
 ;;=O30.092^^62^739^75
 ;;^UTILITY(U,$J,358.3,18284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18284,1,3,0)
 ;;=3^Twin,undeterm num plcnta,amino sacs,2nd tri
 ;;^UTILITY(U,$J,358.3,18284,1,4,0)
 ;;=4^O30.092
 ;;^UTILITY(U,$J,358.3,18284,2)
 ;;=^5016449
 ;;^UTILITY(U,$J,358.3,18285,0)
 ;;=O30.093^^62^739^76
 ;;^UTILITY(U,$J,358.3,18285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18285,1,3,0)
 ;;=3^Twin,undeterm num plcnta,amino sacs,3rd tri
 ;;^UTILITY(U,$J,358.3,18285,1,4,0)
 ;;=4^O30.093
 ;;^UTILITY(U,$J,358.3,18285,2)
 ;;=^5016450
 ;;^UTILITY(U,$J,358.3,18286,0)
 ;;=O30.101^^62^739^62
 ;;^UTILITY(U,$J,358.3,18286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18286,1,3,0)
 ;;=3^Triplet preg, unsp num plcnta & amnio sacs, first trimester
 ;;^UTILITY(U,$J,358.3,18286,1,4,0)
 ;;=4^O30.101
 ;;^UTILITY(U,$J,358.3,18286,2)
 ;;=^5016452
 ;;^UTILITY(U,$J,358.3,18287,0)
 ;;=O30.102^^62^739^63
 ;;^UTILITY(U,$J,358.3,18287,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18287,1,3,0)
 ;;=3^Triplet preg, unsp num plcnta & amnio sacs, second trimester
 ;;^UTILITY(U,$J,358.3,18287,1,4,0)
 ;;=4^O30.102
 ;;^UTILITY(U,$J,358.3,18287,2)
 ;;=^5016453
 ;;^UTILITY(U,$J,358.3,18288,0)
 ;;=O30.103^^62^739^64
 ;;^UTILITY(U,$J,358.3,18288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18288,1,3,0)
 ;;=3^Triplet preg, unsp num plcnta & amnio sacs, third trimester
 ;;^UTILITY(U,$J,358.3,18288,1,4,0)
 ;;=4^O30.103
 ;;^UTILITY(U,$J,358.3,18288,2)
 ;;=^5016454
 ;;^UTILITY(U,$J,358.3,18289,0)
 ;;=O30.111^^62^739^56
 ;;^UTILITY(U,$J,358.3,18289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18289,1,3,0)
 ;;=3^Triplet preg w two or more monochorionic fetuses, first tri
 ;;^UTILITY(U,$J,358.3,18289,1,4,0)
 ;;=4^O30.111
 ;;^UTILITY(U,$J,358.3,18289,2)
 ;;=^5016455
 ;;^UTILITY(U,$J,358.3,18290,0)
 ;;=O30.112^^62^739^57
 ;;^UTILITY(U,$J,358.3,18290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18290,1,3,0)
 ;;=3^Triplet preg w two or more monochorionic fetuses, second tri
 ;;^UTILITY(U,$J,358.3,18290,1,4,0)
 ;;=4^O30.112
 ;;^UTILITY(U,$J,358.3,18290,2)
 ;;=^5016456
 ;;^UTILITY(U,$J,358.3,18291,0)
 ;;=O30.113^^62^739^58
 ;;^UTILITY(U,$J,358.3,18291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18291,1,3,0)
 ;;=3^Triplet preg w two or more monochorionic fetuses, third tri
 ;;^UTILITY(U,$J,358.3,18291,1,4,0)
 ;;=4^O30.113
 ;;^UTILITY(U,$J,358.3,18291,2)
 ;;=^5016457
 ;;^UTILITY(U,$J,358.3,18292,0)
 ;;=O30.121^^62^739^53
 ;;^UTILITY(U,$J,358.3,18292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18292,1,3,0)
 ;;=3^Triplet preg w two or more monoamnio fetuses, first tri
 ;;^UTILITY(U,$J,358.3,18292,1,4,0)
 ;;=4^O30.121
 ;;^UTILITY(U,$J,358.3,18292,2)
 ;;=^5016459
 ;;^UTILITY(U,$J,358.3,18293,0)
 ;;=O30.122^^62^739^54
 ;;^UTILITY(U,$J,358.3,18293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18293,1,3,0)
 ;;=3^Triplet preg w two or more monoamnio fetuses, second tri
 ;;^UTILITY(U,$J,358.3,18293,1,4,0)
 ;;=4^O30.122
 ;;^UTILITY(U,$J,358.3,18293,2)
 ;;=^5016460
 ;;^UTILITY(U,$J,358.3,18294,0)
 ;;=O30.123^^62^739^55
 ;;^UTILITY(U,$J,358.3,18294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18294,1,3,0)
 ;;=3^Triplet preg w two or more monoamnio fetuses, third tri
 ;;^UTILITY(U,$J,358.3,18294,1,4,0)
 ;;=4^O30.123
 ;;^UTILITY(U,$J,358.3,18294,2)
 ;;=^5016461
 ;;^UTILITY(U,$J,358.3,18295,0)
 ;;=O30.191^^62^739^59
 ;;^UTILITY(U,$J,358.3,18295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18295,1,3,0)
 ;;=3^Triplet preg, unable to dtrm num plcnta & amnio sacs, first tri
 ;;^UTILITY(U,$J,358.3,18295,1,4,0)
 ;;=4^O30.191
 ;;^UTILITY(U,$J,358.3,18295,2)
 ;;=^5016463
 ;;^UTILITY(U,$J,358.3,18296,0)
 ;;=O30.192^^62^739^60
 ;;^UTILITY(U,$J,358.3,18296,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18296,1,3,0)
 ;;=3^Triplet preg, unable to dtrm num plcnta & amnio sacs, second tri
 ;;^UTILITY(U,$J,358.3,18296,1,4,0)
 ;;=4^O30.192
 ;;^UTILITY(U,$J,358.3,18296,2)
 ;;=^5016464
 ;;^UTILITY(U,$J,358.3,18297,0)
 ;;=O30.193^^62^739^61
 ;;^UTILITY(U,$J,358.3,18297,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18297,1,3,0)
 ;;=3^Triplet preg, unable to dtrm num plcnta & amnio sacs, third tri
 ;;^UTILITY(U,$J,358.3,18297,1,4,0)
 ;;=4^O30.193
 ;;^UTILITY(U,$J,358.3,18297,2)
 ;;=^5016465
 ;;^UTILITY(U,$J,358.3,18298,0)
 ;;=O30.201^^62^739^50
 ;;^UTILITY(U,$J,358.3,18298,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18298,1,3,0)
 ;;=3^Quad preg, unsp num plcnta & amnio sacs, first trimester
 ;;^UTILITY(U,$J,358.3,18298,1,4,0)
 ;;=4^O30.201
 ;;^UTILITY(U,$J,358.3,18298,2)
 ;;=^5016467
 ;;^UTILITY(U,$J,358.3,18299,0)
 ;;=O30.202^^62^739^51
 ;;^UTILITY(U,$J,358.3,18299,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18299,1,3,0)
 ;;=3^Quad preg, unsp num plcnta & amnio sacs, second trimester
 ;;^UTILITY(U,$J,358.3,18299,1,4,0)
 ;;=4^O30.202
 ;;^UTILITY(U,$J,358.3,18299,2)
 ;;=^5016468
 ;;^UTILITY(U,$J,358.3,18300,0)
 ;;=O30.203^^62^739^52
 ;;^UTILITY(U,$J,358.3,18300,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18300,1,3,0)
 ;;=3^Quad preg, unsp num plcnta & amnio sacs, third trimester
 ;;^UTILITY(U,$J,358.3,18300,1,4,0)
 ;;=4^O30.203
 ;;^UTILITY(U,$J,358.3,18300,2)
 ;;=^5016469
 ;;^UTILITY(U,$J,358.3,18301,0)
 ;;=O30.211^^62^739^44
 ;;^UTILITY(U,$J,358.3,18301,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18301,1,3,0)
 ;;=3^Quad preg w two or more monochorionic fetuses, first tri
 ;;^UTILITY(U,$J,358.3,18301,1,4,0)
 ;;=4^O30.211
 ;;^UTILITY(U,$J,358.3,18301,2)
 ;;=^5016470
 ;;^UTILITY(U,$J,358.3,18302,0)
 ;;=O30.212^^62^739^45
 ;;^UTILITY(U,$J,358.3,18302,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18302,1,3,0)
 ;;=3^Quad preg w two or more monochorionic fetuses, second tri
 ;;^UTILITY(U,$J,358.3,18302,1,4,0)
 ;;=4^O30.212
 ;;^UTILITY(U,$J,358.3,18302,2)
 ;;=^5016471
 ;;^UTILITY(U,$J,358.3,18303,0)
 ;;=O30.213^^62^739^46
 ;;^UTILITY(U,$J,358.3,18303,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18303,1,3,0)
 ;;=3^Quad preg w two or more monochorionic fetuses, third tri
 ;;^UTILITY(U,$J,358.3,18303,1,4,0)
 ;;=4^O30.213
 ;;^UTILITY(U,$J,358.3,18303,2)
 ;;=^5016472
 ;;^UTILITY(U,$J,358.3,18304,0)
 ;;=O30.221^^62^739^41
 ;;^UTILITY(U,$J,358.3,18304,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18304,1,3,0)
 ;;=3^Quad preg w two or more monoamnio fetuses, first trimester
 ;;^UTILITY(U,$J,358.3,18304,1,4,0)
 ;;=4^O30.221
 ;;^UTILITY(U,$J,358.3,18304,2)
 ;;=^5016474
 ;;^UTILITY(U,$J,358.3,18305,0)
 ;;=O30.222^^62^739^42
 ;;^UTILITY(U,$J,358.3,18305,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18305,1,3,0)
 ;;=3^Quad preg w two or more monoamnio fetuses, second trimester
 ;;^UTILITY(U,$J,358.3,18305,1,4,0)
 ;;=4^O30.222
 ;;^UTILITY(U,$J,358.3,18305,2)
 ;;=^5016475
 ;;^UTILITY(U,$J,358.3,18306,0)
 ;;=O30.223^^62^739^43
 ;;^UTILITY(U,$J,358.3,18306,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18306,1,3,0)
 ;;=3^Quad preg w two or more monoamnio fetuses, third trimester
 ;;^UTILITY(U,$J,358.3,18306,1,4,0)
 ;;=4^O30.223
 ;;^UTILITY(U,$J,358.3,18306,2)
 ;;=^5016476
 ;;^UTILITY(U,$J,358.3,18307,0)
 ;;=O30.291^^62^739^47
 ;;^UTILITY(U,$J,358.3,18307,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18307,1,3,0)
 ;;=3^Quad preg, unable to dtrm num plcnta & amnio sacs, 1st tri
 ;;^UTILITY(U,$J,358.3,18307,1,4,0)
 ;;=4^O30.291
 ;;^UTILITY(U,$J,358.3,18307,2)
 ;;=^5016478
 ;;^UTILITY(U,$J,358.3,18308,0)
 ;;=O30.292^^62^739^48
 ;;^UTILITY(U,$J,358.3,18308,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18308,1,3,0)
 ;;=3^Quad preg, unable to dtrm num plcnta & amnio sacs, 2nd tri
 ;;^UTILITY(U,$J,358.3,18308,1,4,0)
 ;;=4^O30.292
 ;;^UTILITY(U,$J,358.3,18308,2)
 ;;=^5016479
 ;;^UTILITY(U,$J,358.3,18309,0)
 ;;=O30.293^^62^739^49
 ;;^UTILITY(U,$J,358.3,18309,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18309,1,3,0)
 ;;=3^Quad preg, unable to dtrm num plcnta & amnio sacs, 3rd tri
 ;;^UTILITY(U,$J,358.3,18309,1,4,0)
 ;;=4^O30.293
 ;;^UTILITY(U,$J,358.3,18309,2)
 ;;=^5016480
 ;;^UTILITY(U,$J,358.3,18310,0)
 ;;=O31.11X0^^62^739^22
 ;;^UTILITY(U,$J,358.3,18310,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18310,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,1st tri,unsp fts
 ;;^UTILITY(U,$J,358.3,18310,1,4,0)
 ;;=4^O31.11X0
 ;;^UTILITY(U,$J,358.3,18310,2)
 ;;=^5016537
 ;;^UTILITY(U,$J,358.3,18311,0)
 ;;=O31.11X1^^62^739^23
 ;;^UTILITY(U,$J,358.3,18311,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18311,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 1
 ;;^UTILITY(U,$J,358.3,18311,1,4,0)
 ;;=4^O31.11X1
 ;;^UTILITY(U,$J,358.3,18311,2)
 ;;=^5016538
 ;;^UTILITY(U,$J,358.3,18312,0)
 ;;=O31.11X2^^62^739^24
 ;;^UTILITY(U,$J,358.3,18312,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18312,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 2
 ;;^UTILITY(U,$J,358.3,18312,1,4,0)
 ;;=4^O31.11X2
 ;;^UTILITY(U,$J,358.3,18312,2)
 ;;=^5016539
 ;;^UTILITY(U,$J,358.3,18313,0)
 ;;=O31.12X1^^62^739^28
 ;;^UTILITY(U,$J,358.3,18313,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18313,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 1
 ;;^UTILITY(U,$J,358.3,18313,1,4,0)
 ;;=4^O31.12X1
 ;;^UTILITY(U,$J,358.3,18313,2)
 ;;=^5016545
 ;;^UTILITY(U,$J,358.3,18314,0)
 ;;=O31.12X2^^62^739^29
 ;;^UTILITY(U,$J,358.3,18314,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18314,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 2
 ;;^UTILITY(U,$J,358.3,18314,1,4,0)
 ;;=4^O31.12X2
 ;;^UTILITY(U,$J,358.3,18314,2)
 ;;=^5016546
 ;;^UTILITY(U,$J,358.3,18315,0)
 ;;=O31.13X1^^62^739^33
 ;;^UTILITY(U,$J,358.3,18315,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18315,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 1
 ;;^UTILITY(U,$J,358.3,18315,1,4,0)
 ;;=4^O31.13X1
 ;;^UTILITY(U,$J,358.3,18315,2)
 ;;=^5016552
 ;;^UTILITY(U,$J,358.3,18316,0)
 ;;=O31.13X2^^62^739^34
 ;;^UTILITY(U,$J,358.3,18316,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18316,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 2
 ;;^UTILITY(U,$J,358.3,18316,1,4,0)
 ;;=4^O31.13X2
 ;;^UTILITY(U,$J,358.3,18316,2)
 ;;=^5016553
 ;;^UTILITY(U,$J,358.3,18317,0)
 ;;=O31.11X3^^62^739^25
 ;;^UTILITY(U,$J,358.3,18317,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18317,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 3
 ;;^UTILITY(U,$J,358.3,18317,1,4,0)
 ;;=4^O31.11X3
 ;;^UTILITY(U,$J,358.3,18317,2)
 ;;=^5016540
 ;;^UTILITY(U,$J,358.3,18318,0)
 ;;=O31.12X3^^62^739^30
 ;;^UTILITY(U,$J,358.3,18318,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18318,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 3
 ;;^UTILITY(U,$J,358.3,18318,1,4,0)
 ;;=4^O31.12X3
 ;;^UTILITY(U,$J,358.3,18318,2)
 ;;=^5016547
 ;;^UTILITY(U,$J,358.3,18319,0)
 ;;=O31.13X3^^62^739^35
 ;;^UTILITY(U,$J,358.3,18319,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18319,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 3
 ;;^UTILITY(U,$J,358.3,18319,1,4,0)
 ;;=4^O31.13X3
 ;;^UTILITY(U,$J,358.3,18319,2)
 ;;=^5016554
 ;;^UTILITY(U,$J,358.3,18320,0)
 ;;=O31.11X4^^62^739^26
 ;;^UTILITY(U,$J,358.3,18320,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18320,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 4
 ;;^UTILITY(U,$J,358.3,18320,1,4,0)
 ;;=4^O31.11X4
 ;;^UTILITY(U,$J,358.3,18320,2)
 ;;=^5016541
 ;;^UTILITY(U,$J,358.3,18321,0)
 ;;=O31.12X4^^62^739^31
 ;;^UTILITY(U,$J,358.3,18321,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18321,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 4
 ;;^UTILITY(U,$J,358.3,18321,1,4,0)
 ;;=4^O31.12X4
 ;;^UTILITY(U,$J,358.3,18321,2)
 ;;=^5016548
 ;;^UTILITY(U,$J,358.3,18322,0)
 ;;=O31.13X4^^62^739^36
 ;;^UTILITY(U,$J,358.3,18322,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18322,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 4
 ;;^UTILITY(U,$J,358.3,18322,1,4,0)
 ;;=4^O31.13X4
 ;;^UTILITY(U,$J,358.3,18322,2)
 ;;=^5016555
 ;;^UTILITY(U,$J,358.3,18323,0)
 ;;=O31.11X5^^62^739^27
 ;;^UTILITY(U,$J,358.3,18323,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18323,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 5
 ;;^UTILITY(U,$J,358.3,18323,1,4,0)
 ;;=4^O31.11X5
 ;;^UTILITY(U,$J,358.3,18323,2)
 ;;=^5016542
 ;;^UTILITY(U,$J,358.3,18324,0)
 ;;=O31.12X5^^62^739^32
 ;;^UTILITY(U,$J,358.3,18324,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18324,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 5
 ;;^UTILITY(U,$J,358.3,18324,1,4,0)
 ;;=4^O31.12X5
 ;;^UTILITY(U,$J,358.3,18324,2)
 ;;=^5016549
 ;;^UTILITY(U,$J,358.3,18325,0)
 ;;=O31.13X5^^62^739^37
 ;;^UTILITY(U,$J,358.3,18325,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18325,1,3,0)
 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 5
 ;;^UTILITY(U,$J,358.3,18325,1,4,0)
 ;;=4^O31.13X5
 ;;^UTILITY(U,$J,358.3,18325,2)
 ;;=^5016556
 ;;^UTILITY(U,$J,358.3,18326,0)
 ;;=O31.31X0^^62^739^4
 ;;^UTILITY(U,$J,358.3,18326,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18326,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,unsp fts
 ;;^UTILITY(U,$J,358.3,18326,1,4,0)
 ;;=4^O31.31X0
 ;;^UTILITY(U,$J,358.3,18326,2)
 ;;=^5016593
 ;;^UTILITY(U,$J,358.3,18327,0)
 ;;=O31.32X0^^62^739^5
 ;;^UTILITY(U,$J,358.3,18327,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18327,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,unsp fts
 ;;^UTILITY(U,$J,358.3,18327,1,4,0)
 ;;=4^O31.32X0
 ;;^UTILITY(U,$J,358.3,18327,2)
 ;;=^5016600
 ;;^UTILITY(U,$J,358.3,18328,0)
 ;;=O31.33X0^^62^739^6
 ;;^UTILITY(U,$J,358.3,18328,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18328,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,unsp fts
 ;;^UTILITY(U,$J,358.3,18328,1,4,0)
 ;;=4^O31.33X0
 ;;^UTILITY(U,$J,358.3,18328,2)
 ;;=^5016607
 ;;^UTILITY(U,$J,358.3,18329,0)
 ;;=O31.31X1^^62^739^7
 ;;^UTILITY(U,$J,358.3,18329,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18329,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,fts 1
 ;;^UTILITY(U,$J,358.3,18329,1,4,0)
 ;;=4^O31.31X1
 ;;^UTILITY(U,$J,358.3,18329,2)
 ;;=^5016594
 ;;^UTILITY(U,$J,358.3,18330,0)
 ;;=O31.32X1^^62^739^8
 ;;^UTILITY(U,$J,358.3,18330,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18330,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,fts 1
 ;;^UTILITY(U,$J,358.3,18330,1,4,0)
 ;;=4^O31.32X1
 ;;^UTILITY(U,$J,358.3,18330,2)
 ;;=^5016601
 ;;^UTILITY(U,$J,358.3,18331,0)
 ;;=O31.33X1^^62^739^9
 ;;^UTILITY(U,$J,358.3,18331,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18331,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,fts 1
 ;;^UTILITY(U,$J,358.3,18331,1,4,0)
 ;;=4^O31.33X1
 ;;^UTILITY(U,$J,358.3,18331,2)
 ;;=^5016608
 ;;^UTILITY(U,$J,358.3,18332,0)
 ;;=O31.31X2^^62^739^10
 ;;^UTILITY(U,$J,358.3,18332,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18332,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,fts 2
 ;;^UTILITY(U,$J,358.3,18332,1,4,0)
 ;;=4^O31.31X2
 ;;^UTILITY(U,$J,358.3,18332,2)
 ;;=^5016595
 ;;^UTILITY(U,$J,358.3,18333,0)
 ;;=O31.32X2^^62^739^11
 ;;^UTILITY(U,$J,358.3,18333,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18333,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,fts 2
 ;;^UTILITY(U,$J,358.3,18333,1,4,0)
 ;;=4^O31.32X2
 ;;^UTILITY(U,$J,358.3,18333,2)
 ;;=^5016602
 ;;^UTILITY(U,$J,358.3,18334,0)
 ;;=O31.33X2^^62^739^12
 ;;^UTILITY(U,$J,358.3,18334,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18334,1,3,0)
 ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,fts 2
 ;;^UTILITY(U,$J,358.3,18334,1,4,0)
 ;;=4^O31.33X2
 ;;^UTILITY(U,$J,358.3,18334,2)
 ;;=^5016609
 ;;^UTILITY(U,$J,358.3,18335,0)
 ;;=O31.31X3^^62^739^13
 ;;^UTILITY(U,$J,358.3,18335,1,0)
 ;;=^358.31IA^4^2