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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI07I 19745 printed Dec 13, 2024@01:43:10 Page 2
IBDEI07I ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,18272,1,3,0)
+2 ;;=3^Twin pregnancy, monochorionic/monoamniotic, second trimester
+3 ;;^UTILITY(U,$J,358.3,18272,1,4,0)
+4 ;;=4^O30.012
+5 ;;^UTILITY(U,$J,358.3,18272,2)
+6 ;;=^5016433
+7 ;;^UTILITY(U,$J,358.3,18273,0)
+8 ;;=O30.013^^62^739^73
+9 ;;^UTILITY(U,$J,358.3,18273,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,18273,1,3,0)
+12 ;;=3^Twin pregnancy, monochorionic/monoamniotic, third trimester
+13 ;;^UTILITY(U,$J,358.3,18273,1,4,0)
+14 ;;=4^O30.013
+15 ;;^UTILITY(U,$J,358.3,18273,2)
+16 ;;=^5016434
+17 ;;^UTILITY(U,$J,358.3,18274,0)
+18 ;;=O30.021^^62^739^1
+19 ;;^UTILITY(U,$J,358.3,18274,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,18274,1,3,0)
+22 ;;=3^Conjoined twin pregnancy, first trimester
+23 ;;^UTILITY(U,$J,358.3,18274,1,4,0)
+24 ;;=4^O30.021
+25 ;;^UTILITY(U,$J,358.3,18274,2)
+26 ;;=^5016436
+27 ;;^UTILITY(U,$J,358.3,18275,0)
+28 ;;=O30.022^^62^739^2
+29 ;;^UTILITY(U,$J,358.3,18275,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,18275,1,3,0)
+32 ;;=3^Conjoined twin pregnancy, second trimester
+33 ;;^UTILITY(U,$J,358.3,18275,1,4,0)
+34 ;;=4^O30.022
+35 ;;^UTILITY(U,$J,358.3,18275,2)
+36 ;;=^5016437
+37 ;;^UTILITY(U,$J,358.3,18276,0)
+38 ;;=O30.023^^62^739^3
+39 ;;^UTILITY(U,$J,358.3,18276,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,18276,1,3,0)
+42 ;;=3^Conjoined twin pregnancy, third trimester
+43 ;;^UTILITY(U,$J,358.3,18276,1,4,0)
+44 ;;=4^O30.023
+45 ;;^UTILITY(U,$J,358.3,18276,2)
+46 ;;=^5016438
+47 ;;^UTILITY(U,$J,358.3,18277,0)
+48 ;;=O30.031^^62^739^68
+49 ;;^UTILITY(U,$J,358.3,18277,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,18277,1,3,0)
+52 ;;=3^Twin pregnancy, monochorionic/diamniotic, first trimester
+53 ;;^UTILITY(U,$J,358.3,18277,1,4,0)
+54 ;;=4^O30.031
+55 ;;^UTILITY(U,$J,358.3,18277,2)
+56 ;;=^5016440
+57 ;;^UTILITY(U,$J,358.3,18278,0)
+58 ;;=O30.032^^62^739^69
+59 ;;^UTILITY(U,$J,358.3,18278,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,18278,1,3,0)
+62 ;;=3^Twin pregnancy, monochorionic/diamniotic, second trimester
+63 ;;^UTILITY(U,$J,358.3,18278,1,4,0)
+64 ;;=4^O30.032
+65 ;;^UTILITY(U,$J,358.3,18278,2)
+66 ;;=^5016441
+67 ;;^UTILITY(U,$J,358.3,18279,0)
+68 ;;=O30.033^^62^739^70
+69 ;;^UTILITY(U,$J,358.3,18279,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,18279,1,3,0)
+72 ;;=3^Twin pregnancy, monochorionic/diamniotic, third trimester
+73 ;;^UTILITY(U,$J,358.3,18279,1,4,0)
+74 ;;=4^O30.033
+75 ;;^UTILITY(U,$J,358.3,18279,2)
+76 ;;=^5016442
+77 ;;^UTILITY(U,$J,358.3,18280,0)
+78 ;;=O30.041^^62^739^65
+79 ;;^UTILITY(U,$J,358.3,18280,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,18280,1,3,0)
+82 ;;=3^Twin pregnancy, dichorionic/diamniotic, first trimester
+83 ;;^UTILITY(U,$J,358.3,18280,1,4,0)
+84 ;;=4^O30.041
+85 ;;^UTILITY(U,$J,358.3,18280,2)
+86 ;;=^5016444
+87 ;;^UTILITY(U,$J,358.3,18281,0)
+88 ;;=O30.042^^62^739^66
+89 ;;^UTILITY(U,$J,358.3,18281,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,18281,1,3,0)
+92 ;;=3^Twin pregnancy, dichorionic/diamniotic, second trimester
+93 ;;^UTILITY(U,$J,358.3,18281,1,4,0)
+94 ;;=4^O30.042
+95 ;;^UTILITY(U,$J,358.3,18281,2)
+96 ;;=^5016445
+97 ;;^UTILITY(U,$J,358.3,18282,0)
+98 ;;=O30.043^^62^739^67
+99 ;;^UTILITY(U,$J,358.3,18282,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,18282,1,3,0)
+102 ;;=3^Twin pregnancy, dichorionic/diamniotic, third trimester
+103 ;;^UTILITY(U,$J,358.3,18282,1,4,0)
+104 ;;=4^O30.043
+105 ;;^UTILITY(U,$J,358.3,18282,2)
+106 ;;=^5016446
+107 ;;^UTILITY(U,$J,358.3,18283,0)
+108 ;;=O30.091^^62^739^74
+109 ;;^UTILITY(U,$J,358.3,18283,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,18283,1,3,0)
+112 ;;=3^Twin,undeterm num plcnta,amino sacs,1st tri
+113 ;;^UTILITY(U,$J,358.3,18283,1,4,0)
+114 ;;=4^O30.091
+115 ;;^UTILITY(U,$J,358.3,18283,2)
+116 ;;=^5016448
+117 ;;^UTILITY(U,$J,358.3,18284,0)
+118 ;;=O30.092^^62^739^75
+119 ;;^UTILITY(U,$J,358.3,18284,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,18284,1,3,0)
+122 ;;=3^Twin,undeterm num plcnta,amino sacs,2nd tri
+123 ;;^UTILITY(U,$J,358.3,18284,1,4,0)
+124 ;;=4^O30.092
+125 ;;^UTILITY(U,$J,358.3,18284,2)
+126 ;;=^5016449
+127 ;;^UTILITY(U,$J,358.3,18285,0)
+128 ;;=O30.093^^62^739^76
+129 ;;^UTILITY(U,$J,358.3,18285,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,18285,1,3,0)
+132 ;;=3^Twin,undeterm num plcnta,amino sacs,3rd tri
+133 ;;^UTILITY(U,$J,358.3,18285,1,4,0)
+134 ;;=4^O30.093
+135 ;;^UTILITY(U,$J,358.3,18285,2)
+136 ;;=^5016450
+137 ;;^UTILITY(U,$J,358.3,18286,0)
+138 ;;=O30.101^^62^739^62
+139 ;;^UTILITY(U,$J,358.3,18286,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,18286,1,3,0)
+142 ;;=3^Triplet preg, unsp num plcnta & amnio sacs, first trimester
+143 ;;^UTILITY(U,$J,358.3,18286,1,4,0)
+144 ;;=4^O30.101
+145 ;;^UTILITY(U,$J,358.3,18286,2)
+146 ;;=^5016452
+147 ;;^UTILITY(U,$J,358.3,18287,0)
+148 ;;=O30.102^^62^739^63
+149 ;;^UTILITY(U,$J,358.3,18287,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,18287,1,3,0)
+152 ;;=3^Triplet preg, unsp num plcnta & amnio sacs, second trimester
+153 ;;^UTILITY(U,$J,358.3,18287,1,4,0)
+154 ;;=4^O30.102
+155 ;;^UTILITY(U,$J,358.3,18287,2)
+156 ;;=^5016453
+157 ;;^UTILITY(U,$J,358.3,18288,0)
+158 ;;=O30.103^^62^739^64
+159 ;;^UTILITY(U,$J,358.3,18288,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,18288,1,3,0)
+162 ;;=3^Triplet preg, unsp num plcnta & amnio sacs, third trimester
+163 ;;^UTILITY(U,$J,358.3,18288,1,4,0)
+164 ;;=4^O30.103
+165 ;;^UTILITY(U,$J,358.3,18288,2)
+166 ;;=^5016454
+167 ;;^UTILITY(U,$J,358.3,18289,0)
+168 ;;=O30.111^^62^739^56
+169 ;;^UTILITY(U,$J,358.3,18289,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,18289,1,3,0)
+172 ;;=3^Triplet preg w two or more monochorionic fetuses, first tri
+173 ;;^UTILITY(U,$J,358.3,18289,1,4,0)
+174 ;;=4^O30.111
+175 ;;^UTILITY(U,$J,358.3,18289,2)
+176 ;;=^5016455
+177 ;;^UTILITY(U,$J,358.3,18290,0)
+178 ;;=O30.112^^62^739^57
+179 ;;^UTILITY(U,$J,358.3,18290,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,18290,1,3,0)
+182 ;;=3^Triplet preg w two or more monochorionic fetuses, second tri
+183 ;;^UTILITY(U,$J,358.3,18290,1,4,0)
+184 ;;=4^O30.112
+185 ;;^UTILITY(U,$J,358.3,18290,2)
+186 ;;=^5016456
+187 ;;^UTILITY(U,$J,358.3,18291,0)
+188 ;;=O30.113^^62^739^58
+189 ;;^UTILITY(U,$J,358.3,18291,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,18291,1,3,0)
+192 ;;=3^Triplet preg w two or more monochorionic fetuses, third tri
+193 ;;^UTILITY(U,$J,358.3,18291,1,4,0)
+194 ;;=4^O30.113
+195 ;;^UTILITY(U,$J,358.3,18291,2)
+196 ;;=^5016457
+197 ;;^UTILITY(U,$J,358.3,18292,0)
+198 ;;=O30.121^^62^739^53
+199 ;;^UTILITY(U,$J,358.3,18292,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,18292,1,3,0)
+202 ;;=3^Triplet preg w two or more monoamnio fetuses, first tri
+203 ;;^UTILITY(U,$J,358.3,18292,1,4,0)
+204 ;;=4^O30.121
+205 ;;^UTILITY(U,$J,358.3,18292,2)
+206 ;;=^5016459
+207 ;;^UTILITY(U,$J,358.3,18293,0)
+208 ;;=O30.122^^62^739^54
+209 ;;^UTILITY(U,$J,358.3,18293,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,18293,1,3,0)
+212 ;;=3^Triplet preg w two or more monoamnio fetuses, second tri
+213 ;;^UTILITY(U,$J,358.3,18293,1,4,0)
+214 ;;=4^O30.122
+215 ;;^UTILITY(U,$J,358.3,18293,2)
+216 ;;=^5016460
+217 ;;^UTILITY(U,$J,358.3,18294,0)
+218 ;;=O30.123^^62^739^55
+219 ;;^UTILITY(U,$J,358.3,18294,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,18294,1,3,0)
+222 ;;=3^Triplet preg w two or more monoamnio fetuses, third tri
+223 ;;^UTILITY(U,$J,358.3,18294,1,4,0)
+224 ;;=4^O30.123
+225 ;;^UTILITY(U,$J,358.3,18294,2)
+226 ;;=^5016461
+227 ;;^UTILITY(U,$J,358.3,18295,0)
+228 ;;=O30.191^^62^739^59
+229 ;;^UTILITY(U,$J,358.3,18295,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,18295,1,3,0)
+232 ;;=3^Triplet preg, unable to dtrm num plcnta & amnio sacs, first tri
+233 ;;^UTILITY(U,$J,358.3,18295,1,4,0)
+234 ;;=4^O30.191
+235 ;;^UTILITY(U,$J,358.3,18295,2)
+236 ;;=^5016463
+237 ;;^UTILITY(U,$J,358.3,18296,0)
+238 ;;=O30.192^^62^739^60
+239 ;;^UTILITY(U,$J,358.3,18296,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,18296,1,3,0)
+242 ;;=3^Triplet preg, unable to dtrm num plcnta & amnio sacs, second tri
+243 ;;^UTILITY(U,$J,358.3,18296,1,4,0)
+244 ;;=4^O30.192
+245 ;;^UTILITY(U,$J,358.3,18296,2)
+246 ;;=^5016464
+247 ;;^UTILITY(U,$J,358.3,18297,0)
+248 ;;=O30.193^^62^739^61
+249 ;;^UTILITY(U,$J,358.3,18297,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,18297,1,3,0)
+252 ;;=3^Triplet preg, unable to dtrm num plcnta & amnio sacs, third tri
+253 ;;^UTILITY(U,$J,358.3,18297,1,4,0)
+254 ;;=4^O30.193
+255 ;;^UTILITY(U,$J,358.3,18297,2)
+256 ;;=^5016465
+257 ;;^UTILITY(U,$J,358.3,18298,0)
+258 ;;=O30.201^^62^739^50
+259 ;;^UTILITY(U,$J,358.3,18298,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,18298,1,3,0)
+262 ;;=3^Quad preg, unsp num plcnta & amnio sacs, first trimester
+263 ;;^UTILITY(U,$J,358.3,18298,1,4,0)
+264 ;;=4^O30.201
+265 ;;^UTILITY(U,$J,358.3,18298,2)
+266 ;;=^5016467
+267 ;;^UTILITY(U,$J,358.3,18299,0)
+268 ;;=O30.202^^62^739^51
+269 ;;^UTILITY(U,$J,358.3,18299,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,18299,1,3,0)
+272 ;;=3^Quad preg, unsp num plcnta & amnio sacs, second trimester
+273 ;;^UTILITY(U,$J,358.3,18299,1,4,0)
+274 ;;=4^O30.202
+275 ;;^UTILITY(U,$J,358.3,18299,2)
+276 ;;=^5016468
+277 ;;^UTILITY(U,$J,358.3,18300,0)
+278 ;;=O30.203^^62^739^52
+279 ;;^UTILITY(U,$J,358.3,18300,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,18300,1,3,0)
+282 ;;=3^Quad preg, unsp num plcnta & amnio sacs, third trimester
+283 ;;^UTILITY(U,$J,358.3,18300,1,4,0)
+284 ;;=4^O30.203
+285 ;;^UTILITY(U,$J,358.3,18300,2)
+286 ;;=^5016469
+287 ;;^UTILITY(U,$J,358.3,18301,0)
+288 ;;=O30.211^^62^739^44
+289 ;;^UTILITY(U,$J,358.3,18301,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,18301,1,3,0)
+292 ;;=3^Quad preg w two or more monochorionic fetuses, first tri
+293 ;;^UTILITY(U,$J,358.3,18301,1,4,0)
+294 ;;=4^O30.211
+295 ;;^UTILITY(U,$J,358.3,18301,2)
+296 ;;=^5016470
+297 ;;^UTILITY(U,$J,358.3,18302,0)
+298 ;;=O30.212^^62^739^45
+299 ;;^UTILITY(U,$J,358.3,18302,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,18302,1,3,0)
+302 ;;=3^Quad preg w two or more monochorionic fetuses, second tri
+303 ;;^UTILITY(U,$J,358.3,18302,1,4,0)
+304 ;;=4^O30.212
+305 ;;^UTILITY(U,$J,358.3,18302,2)
+306 ;;=^5016471
+307 ;;^UTILITY(U,$J,358.3,18303,0)
+308 ;;=O30.213^^62^739^46
+309 ;;^UTILITY(U,$J,358.3,18303,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,18303,1,3,0)
+312 ;;=3^Quad preg w two or more monochorionic fetuses, third tri
+313 ;;^UTILITY(U,$J,358.3,18303,1,4,0)
+314 ;;=4^O30.213
+315 ;;^UTILITY(U,$J,358.3,18303,2)
+316 ;;=^5016472
+317 ;;^UTILITY(U,$J,358.3,18304,0)
+318 ;;=O30.221^^62^739^41
+319 ;;^UTILITY(U,$J,358.3,18304,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,18304,1,3,0)
+322 ;;=3^Quad preg w two or more monoamnio fetuses, first trimester
+323 ;;^UTILITY(U,$J,358.3,18304,1,4,0)
+324 ;;=4^O30.221
+325 ;;^UTILITY(U,$J,358.3,18304,2)
+326 ;;=^5016474
+327 ;;^UTILITY(U,$J,358.3,18305,0)
+328 ;;=O30.222^^62^739^42
+329 ;;^UTILITY(U,$J,358.3,18305,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,18305,1,3,0)
+332 ;;=3^Quad preg w two or more monoamnio fetuses, second trimester
+333 ;;^UTILITY(U,$J,358.3,18305,1,4,0)
+334 ;;=4^O30.222
+335 ;;^UTILITY(U,$J,358.3,18305,2)
+336 ;;=^5016475
+337 ;;^UTILITY(U,$J,358.3,18306,0)
+338 ;;=O30.223^^62^739^43
+339 ;;^UTILITY(U,$J,358.3,18306,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,18306,1,3,0)
+342 ;;=3^Quad preg w two or more monoamnio fetuses, third trimester
+343 ;;^UTILITY(U,$J,358.3,18306,1,4,0)
+344 ;;=4^O30.223
+345 ;;^UTILITY(U,$J,358.3,18306,2)
+346 ;;=^5016476
+347 ;;^UTILITY(U,$J,358.3,18307,0)
+348 ;;=O30.291^^62^739^47
+349 ;;^UTILITY(U,$J,358.3,18307,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,18307,1,3,0)
+352 ;;=3^Quad preg, unable to dtrm num plcnta & amnio sacs, 1st tri
+353 ;;^UTILITY(U,$J,358.3,18307,1,4,0)
+354 ;;=4^O30.291
+355 ;;^UTILITY(U,$J,358.3,18307,2)
+356 ;;=^5016478
+357 ;;^UTILITY(U,$J,358.3,18308,0)
+358 ;;=O30.292^^62^739^48
+359 ;;^UTILITY(U,$J,358.3,18308,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,18308,1,3,0)
+362 ;;=3^Quad preg, unable to dtrm num plcnta & amnio sacs, 2nd tri
+363 ;;^UTILITY(U,$J,358.3,18308,1,4,0)
+364 ;;=4^O30.292
+365 ;;^UTILITY(U,$J,358.3,18308,2)
+366 ;;=^5016479
+367 ;;^UTILITY(U,$J,358.3,18309,0)
+368 ;;=O30.293^^62^739^49
+369 ;;^UTILITY(U,$J,358.3,18309,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,18309,1,3,0)
+372 ;;=3^Quad preg, unable to dtrm num plcnta & amnio sacs, 3rd tri
+373 ;;^UTILITY(U,$J,358.3,18309,1,4,0)
+374 ;;=4^O30.293
+375 ;;^UTILITY(U,$J,358.3,18309,2)
+376 ;;=^5016480
+377 ;;^UTILITY(U,$J,358.3,18310,0)
+378 ;;=O31.11X0^^62^739^22
+379 ;;^UTILITY(U,$J,358.3,18310,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,18310,1,3,0)
+382 ;;=3^Cont post spont abort,1 fts or more,1st tri,unsp fts
+383 ;;^UTILITY(U,$J,358.3,18310,1,4,0)
+384 ;;=4^O31.11X0
+385 ;;^UTILITY(U,$J,358.3,18310,2)
+386 ;;=^5016537
+387 ;;^UTILITY(U,$J,358.3,18311,0)
+388 ;;=O31.11X1^^62^739^23
+389 ;;^UTILITY(U,$J,358.3,18311,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,18311,1,3,0)
+392 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 1
+393 ;;^UTILITY(U,$J,358.3,18311,1,4,0)
+394 ;;=4^O31.11X1
+395 ;;^UTILITY(U,$J,358.3,18311,2)
+396 ;;=^5016538
+397 ;;^UTILITY(U,$J,358.3,18312,0)
+398 ;;=O31.11X2^^62^739^24
+399 ;;^UTILITY(U,$J,358.3,18312,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,18312,1,3,0)
+402 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 2
+403 ;;^UTILITY(U,$J,358.3,18312,1,4,0)
+404 ;;=4^O31.11X2
+405 ;;^UTILITY(U,$J,358.3,18312,2)
+406 ;;=^5016539
+407 ;;^UTILITY(U,$J,358.3,18313,0)
+408 ;;=O31.12X1^^62^739^28
+409 ;;^UTILITY(U,$J,358.3,18313,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,18313,1,3,0)
+412 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 1
+413 ;;^UTILITY(U,$J,358.3,18313,1,4,0)
+414 ;;=4^O31.12X1
+415 ;;^UTILITY(U,$J,358.3,18313,2)
+416 ;;=^5016545
+417 ;;^UTILITY(U,$J,358.3,18314,0)
+418 ;;=O31.12X2^^62^739^29
+419 ;;^UTILITY(U,$J,358.3,18314,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,18314,1,3,0)
+422 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 2
+423 ;;^UTILITY(U,$J,358.3,18314,1,4,0)
+424 ;;=4^O31.12X2
+425 ;;^UTILITY(U,$J,358.3,18314,2)
+426 ;;=^5016546
+427 ;;^UTILITY(U,$J,358.3,18315,0)
+428 ;;=O31.13X1^^62^739^33
+429 ;;^UTILITY(U,$J,358.3,18315,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,18315,1,3,0)
+432 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 1
+433 ;;^UTILITY(U,$J,358.3,18315,1,4,0)
+434 ;;=4^O31.13X1
+435 ;;^UTILITY(U,$J,358.3,18315,2)
+436 ;;=^5016552
+437 ;;^UTILITY(U,$J,358.3,18316,0)
+438 ;;=O31.13X2^^62^739^34
+439 ;;^UTILITY(U,$J,358.3,18316,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,18316,1,3,0)
+442 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 2
+443 ;;^UTILITY(U,$J,358.3,18316,1,4,0)
+444 ;;=4^O31.13X2
+445 ;;^UTILITY(U,$J,358.3,18316,2)
+446 ;;=^5016553
+447 ;;^UTILITY(U,$J,358.3,18317,0)
+448 ;;=O31.11X3^^62^739^25
+449 ;;^UTILITY(U,$J,358.3,18317,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,18317,1,3,0)
+452 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 3
+453 ;;^UTILITY(U,$J,358.3,18317,1,4,0)
+454 ;;=4^O31.11X3
+455 ;;^UTILITY(U,$J,358.3,18317,2)
+456 ;;=^5016540
+457 ;;^UTILITY(U,$J,358.3,18318,0)
+458 ;;=O31.12X3^^62^739^30
+459 ;;^UTILITY(U,$J,358.3,18318,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,18318,1,3,0)
+462 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 3
+463 ;;^UTILITY(U,$J,358.3,18318,1,4,0)
+464 ;;=4^O31.12X3
+465 ;;^UTILITY(U,$J,358.3,18318,2)
+466 ;;=^5016547
+467 ;;^UTILITY(U,$J,358.3,18319,0)
+468 ;;=O31.13X3^^62^739^35
+469 ;;^UTILITY(U,$J,358.3,18319,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,18319,1,3,0)
+472 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 3
+473 ;;^UTILITY(U,$J,358.3,18319,1,4,0)
+474 ;;=4^O31.13X3
+475 ;;^UTILITY(U,$J,358.3,18319,2)
+476 ;;=^5016554
+477 ;;^UTILITY(U,$J,358.3,18320,0)
+478 ;;=O31.11X4^^62^739^26
+479 ;;^UTILITY(U,$J,358.3,18320,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,18320,1,3,0)
+482 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 4
+483 ;;^UTILITY(U,$J,358.3,18320,1,4,0)
+484 ;;=4^O31.11X4
+485 ;;^UTILITY(U,$J,358.3,18320,2)
+486 ;;=^5016541
+487 ;;^UTILITY(U,$J,358.3,18321,0)
+488 ;;=O31.12X4^^62^739^31
+489 ;;^UTILITY(U,$J,358.3,18321,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,18321,1,3,0)
+492 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 4
+493 ;;^UTILITY(U,$J,358.3,18321,1,4,0)
+494 ;;=4^O31.12X4
+495 ;;^UTILITY(U,$J,358.3,18321,2)
+496 ;;=^5016548
+497 ;;^UTILITY(U,$J,358.3,18322,0)
+498 ;;=O31.13X4^^62^739^36
+499 ;;^UTILITY(U,$J,358.3,18322,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,18322,1,3,0)
+502 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 4
+503 ;;^UTILITY(U,$J,358.3,18322,1,4,0)
+504 ;;=4^O31.13X4
+505 ;;^UTILITY(U,$J,358.3,18322,2)
+506 ;;=^5016555
+507 ;;^UTILITY(U,$J,358.3,18323,0)
+508 ;;=O31.11X5^^62^739^27
+509 ;;^UTILITY(U,$J,358.3,18323,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,18323,1,3,0)
+512 ;;=3^Cont post spont abort,1 fts or more,1st tri,fts 5
+513 ;;^UTILITY(U,$J,358.3,18323,1,4,0)
+514 ;;=4^O31.11X5
+515 ;;^UTILITY(U,$J,358.3,18323,2)
+516 ;;=^5016542
+517 ;;^UTILITY(U,$J,358.3,18324,0)
+518 ;;=O31.12X5^^62^739^32
+519 ;;^UTILITY(U,$J,358.3,18324,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,18324,1,3,0)
+522 ;;=3^Cont post spont abort,1 fts or more,2nd tri,fts 5
+523 ;;^UTILITY(U,$J,358.3,18324,1,4,0)
+524 ;;=4^O31.12X5
+525 ;;^UTILITY(U,$J,358.3,18324,2)
+526 ;;=^5016549
+527 ;;^UTILITY(U,$J,358.3,18325,0)
+528 ;;=O31.13X5^^62^739^37
+529 ;;^UTILITY(U,$J,358.3,18325,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,18325,1,3,0)
+532 ;;=3^Cont post spont abort,1 fts or more,3rd tri,fts 5
+533 ;;^UTILITY(U,$J,358.3,18325,1,4,0)
+534 ;;=4^O31.13X5
+535 ;;^UTILITY(U,$J,358.3,18325,2)
+536 ;;=^5016556
+537 ;;^UTILITY(U,$J,358.3,18326,0)
+538 ;;=O31.31X0^^62^739^4
+539 ;;^UTILITY(U,$J,358.3,18326,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,18326,1,3,0)
+542 ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,unsp fts
+543 ;;^UTILITY(U,$J,358.3,18326,1,4,0)
+544 ;;=4^O31.31X0
+545 ;;^UTILITY(U,$J,358.3,18326,2)
+546 ;;=^5016593
+547 ;;^UTILITY(U,$J,358.3,18327,0)
+548 ;;=O31.32X0^^62^739^5
+549 ;;^UTILITY(U,$J,358.3,18327,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,18327,1,3,0)
+552 ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,unsp fts
+553 ;;^UTILITY(U,$J,358.3,18327,1,4,0)
+554 ;;=4^O31.32X0
+555 ;;^UTILITY(U,$J,358.3,18327,2)
+556 ;;=^5016600
+557 ;;^UTILITY(U,$J,358.3,18328,0)
+558 ;;=O31.33X0^^62^739^6
+559 ;;^UTILITY(U,$J,358.3,18328,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,18328,1,3,0)
+562 ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,unsp fts
+563 ;;^UTILITY(U,$J,358.3,18328,1,4,0)
+564 ;;=4^O31.33X0
+565 ;;^UTILITY(U,$J,358.3,18328,2)
+566 ;;=^5016607
+567 ;;^UTILITY(U,$J,358.3,18329,0)
+568 ;;=O31.31X1^^62^739^7
+569 ;;^UTILITY(U,$J,358.3,18329,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,18329,1,3,0)
+572 ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,fts 1
+573 ;;^UTILITY(U,$J,358.3,18329,1,4,0)
+574 ;;=4^O31.31X1
+575 ;;^UTILITY(U,$J,358.3,18329,2)
+576 ;;=^5016594
+577 ;;^UTILITY(U,$J,358.3,18330,0)
+578 ;;=O31.32X1^^62^739^8
+579 ;;^UTILITY(U,$J,358.3,18330,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,18330,1,3,0)
+582 ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,fts 1
+583 ;;^UTILITY(U,$J,358.3,18330,1,4,0)
+584 ;;=4^O31.32X1
+585 ;;^UTILITY(U,$J,358.3,18330,2)
+586 ;;=^5016601
+587 ;;^UTILITY(U,$J,358.3,18331,0)
+588 ;;=O31.33X1^^62^739^9
+589 ;;^UTILITY(U,$J,358.3,18331,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,18331,1,3,0)
+592 ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,fts 1
+593 ;;^UTILITY(U,$J,358.3,18331,1,4,0)
+594 ;;=4^O31.33X1
+595 ;;^UTILITY(U,$J,358.3,18331,2)
+596 ;;=^5016608
+597 ;;^UTILITY(U,$J,358.3,18332,0)
+598 ;;=O31.31X2^^62^739^10
+599 ;;^UTILITY(U,$J,358.3,18332,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,18332,1,3,0)
+602 ;;=3^Cont post elctv fetl rdct 1 fts or more,1st tri,fts 2
+603 ;;^UTILITY(U,$J,358.3,18332,1,4,0)
+604 ;;=4^O31.31X2
+605 ;;^UTILITY(U,$J,358.3,18332,2)
+606 ;;=^5016595
+607 ;;^UTILITY(U,$J,358.3,18333,0)
+608 ;;=O31.32X2^^62^739^11
+609 ;;^UTILITY(U,$J,358.3,18333,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,18333,1,3,0)
+612 ;;=3^Cont post elctv fetl rdct 1 fts or more,2nd tri,fts 2
+613 ;;^UTILITY(U,$J,358.3,18333,1,4,0)
+614 ;;=4^O31.32X2
+615 ;;^UTILITY(U,$J,358.3,18333,2)
+616 ;;=^5016602
+617 ;;^UTILITY(U,$J,358.3,18334,0)
+618 ;;=O31.33X2^^62^739^12
+619 ;;^UTILITY(U,$J,358.3,18334,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,18334,1,3,0)
+622 ;;=3^Cont post elctv fetl rdct 1 fts or more,3rd tri,fts 2
+623 ;;^UTILITY(U,$J,358.3,18334,1,4,0)
+624 ;;=4^O31.33X2
+625 ;;^UTILITY(U,$J,358.3,18334,2)
+626 ;;=^5016609
+627 ;;^UTILITY(U,$J,358.3,18335,0)
+628 ;;=O31.31X3^^62^739^13
+629 ;;^UTILITY(U,$J,358.3,18335,1,0)
+630 ;;=^358.31IA^4^2
