ATXFCK5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 19, 2017;
;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"O98.819 ")
;;1597
;;21,"O98.911 ")
;;1598
;;21,"O98.912 ")
;;1599
;;21,"O98.913 ")
;;1600
;;21,"O98.919 ")
;;1601
;;21,"O99.011 ")
;;1602
;;21,"O99.012 ")
;;1603
;;21,"O99.013 ")
;;1604
;;21,"O99.019 ")
;;1605
;;21,"O99.111 ")
;;1606
;;21,"O99.112 ")
;;1607
;;21,"O99.113 ")
;;1608
;;21,"O99.119 ")
;;1609
;;21,"O99.210 ")
;;1610
;;21,"O99.211 ")
;;1611
;;21,"O99.212 ")
;;1612
;;21,"O99.213 ")
;;1613
;;21,"O99.280 ")
;;1614
;;21,"O99.281 ")
;;1615
;;21,"O99.282 ")
;;1616
;;21,"O99.283 ")
;;1617
;;21,"O99.310 ")
;;1618
;;21,"O99.311 ")
;;1619
;;21,"O99.312 ")
;;1620
;;21,"O99.313 ")
;;1621
;;21,"O99.320 ")
;;1622
;;21,"O99.321 ")
;;1623
;;21,"O99.322 ")
;;1624
;;21,"O99.323 ")
;;1625
;;21,"O99.330 ")
;;1626
;;21,"O99.331 ")
;;1627
;;21,"O99.332 ")
;;1628
;;21,"O99.333 ")
;;1629
;;21,"O99.340 ")
;;1630
;;21,"O99.341 ")
;;1631
;;21,"O99.342 ")
;;1632
;;21,"O99.343 ")
;;1633
;;21,"O99.350 ")
;;1634
;;21,"O99.351 ")
;;1635
;;21,"O99.352 ")
;;1636
;;21,"O99.353 ")
;;1637
;;21,"O99.411 ")
;;1638
;;21,"O99.412 ")
;;1639
;;21,"O99.413 ")
;;1640
;;21,"O99.419 ")
;;1641
;;21,"O99.511 ")
;;1642
;;21,"O99.512 ")
;;1643
;;21,"O99.513 ")
;;1644
;;21,"O99.519 ")
;;1645
;;21,"O99.611 ")
;;1646
;;21,"O99.612 ")
;;1647
;;21,"O99.613 ")
;;1648
;;21,"O99.619 ")
;;1649
;;21,"O99.711 ")
;;1650
;;21,"O99.712 ")
;;1651
;;21,"O99.713 ")
;;1652
;;21,"O99.719 ")
;;1653
;;21,"O99.810 ")
;;1654
;;21,"O99.820 ")
;;1655
;;21,"O99.830 ")
;;1656
;;21,"O99.840 ")
;;1657
;;21,"O99.841 ")
;;1658
;;21,"O99.842 ")
;;1659
;;21,"O99.843 ")
;;1660
;;21,"O99.89 ")
;;1661
;;21,"O9A.111 ")
;;1662
;;21,"O9A.112 ")
;;1663
;;21,"O9A.113 ")
;;1664
;;21,"O9A.119 ")
;;1665
;;21,"O9A.211 ")
;;1666
;;21,"O9A.212 ")
;;1667
;;21,"O9A.213 ")
;;1668
;;21,"O9A.219 ")
;;1669
;;21,"O9A.311 ")
;;1670
;;21,"O9A.312 ")
;;1671
;;21,"O9A.313 ")
;;1672
;;21,"O9A.319 ")
;;1673
;;21,"O9A.411 ")
;;1674
;;21,"O9A.412 ")
;;1675
;;21,"O9A.413 ")
;;1676
;;21,"O9A.419 ")
;;1677
;;21,"O9A.511 ")
;;1678
;;21,"O9A.512 ")
;;1679
;;21,"O9A.513 ")
;;1680
;;21,"O9A.519 ")
;;1681
;;21,"Z33.1 ")
;;1682
;;21,"Z33.3 ")
;;1683
;;21,"Z34.00 ")
;;1684
;;21,"Z34.01 ")
;;1685
;;21,"Z34.02 ")
;;1686
;;21,"Z34.03 ")
;;1687
;;21,"Z34.80 ")
;;1688
;;21,"Z34.81 ")
;;1689
;;21,"Z34.82 ")
;;1690
;;21,"Z34.83 ")
;;1691
;;21,"Z34.90 ")
;;1692
;;21,"Z34.91 ")
;;1693
;;21,"Z34.92 ")
;;1694
;;21,"Z34.93 ")
;;1695
;;21,"Z36. ")
;;1696
;;9002226,2237,.01)
;;BGP IPC PREGNANCY DXS
;;9002226,2237,.02)
;;@
;;9002226,2237,.04)
;;n
;;9002226,2237,.06)
;;@
;;9002226,2237,.08)
;;@
;;9002226,2237,.09)
;;3171219
;;9002226,2237,.11)
;;@
;;9002226,2237,.12)
;;31
;;9002226,2237,.13)
;;1
;;9002226,2237,.14)
;;@
;;9002226,2237,.15)
;;80
;;9002226,2237,.16)
;;@
;;9002226,2237,.17)
;;@
;;9002226,2237,.22)
;;1
;;9002226,2237,3101)
;;@
;;9002226.02101,"2237,O00.1 ",.01)
;;O00.1
;;9002226.02101,"2237,O00.1 ",.02)
;;O00.1
;;9002226.02101,"2237,O00.1 ",.03)
;;30
;;9002226.02101,"2237,O00.10 ",.01)
;;O00.10
;;9002226.02101,"2237,O00.10 ",.02)
;;O00.10
;;9002226.02101,"2237,O00.10 ",.03)
;;30
;;9002226.02101,"2237,O00.11 ",.01)
;;O00.11
;;9002226.02101,"2237,O00.11 ",.02)
;;O00.11
;;9002226.02101,"2237,O00.11 ",.03)
;;30
;;9002226.02101,"2237,O00.2 ",.01)
;;O00.2
;;9002226.02101,"2237,O00.2 ",.02)
;;O00.2
;;9002226.02101,"2237,O00.2 ",.03)
;;30
;;9002226.02101,"2237,O00.20 ",.01)
;;O00.20
;;9002226.02101,"2237,O00.20 ",.02)
;;O00.20
;;9002226.02101,"2237,O00.20 ",.03)
;;30
;;9002226.02101,"2237,O00.21 ",.01)
;;O00.21
;;9002226.02101,"2237,O00.21 ",.02)
;;O00.21
;;9002226.02101,"2237,O00.21 ",.03)
;;30
;;9002226.02101,"2237,O00.8 ",.01)
;;O00.8
;;9002226.02101,"2237,O00.8 ",.02)
;;O00.8
;;9002226.02101,"2237,O00.8 ",.03)
;;30
;;9002226.02101,"2237,O00.80 ",.01)
;;O00.80
;;9002226.02101,"2237,O00.80 ",.02)
;;O00.80
;;9002226.02101,"2237,O00.80 ",.03)
;;30
;;9002226.02101,"2237,O00.81 ",.01)
;;O00.81
;;9002226.02101,"2237,O00.81 ",.02)
;;O00.81
;;9002226.02101,"2237,O00.81 ",.03)
;;30
;;9002226.02101,"2237,O00.9 ",.01)
;;O00.9
;;9002226.02101,"2237,O00.9 ",.02)
;;O00.9
;;9002226.02101,"2237,O00.9 ",.03)
;;30
;;9002226.02101,"2237,O00.90 ",.01)
;;O00.90
;;9002226.02101,"2237,O00.90 ",.02)
;;O00.90
;;9002226.02101,"2237,O00.90 ",.03)
;;30
;;9002226.02101,"2237,O00.91 ",.01)
;;O00.91
;;9002226.02101,"2237,O00.91 ",.02)
;;O00.91
;;9002226.02101,"2237,O00.91 ",.03)
;;30
;;9002226.02101,"2237,O09.00 ",.01)
;;O09.00
;;9002226.02101,"2237,O09.00 ",.02)
;;O09.00
;;9002226.02101,"2237,O09.00 ",.03)
;;30
;;9002226.02101,"2237,O09.01 ",.01)
;;O09.01
;;9002226.02101,"2237,O09.01 ",.02)
;;O09.01
;;9002226.02101,"2237,O09.01 ",.03)
;;30
;;9002226.02101,"2237,O09.02 ",.01)
;;O09.02
;;9002226.02101,"2237,O09.02 ",.02)
;;O09.02
;;9002226.02101,"2237,O09.02 ",.03)
;;30
;;9002226.02101,"2237,O09.03 ",.01)
;;O09.03
;;9002226.02101,"2237,O09.03 ",.02)
;;O09.03
;;9002226.02101,"2237,O09.03 ",.03)
;;30
;;9002226.02101,"2237,O09.10 ",.01)
;;O09.10
;;9002226.02101,"2237,O09.10 ",.02)
;;O09.10
;;9002226.02101,"2237,O09.10 ",.03)
;;30
;;9002226.02101,"2237,O09.11 ",.01)
;;O09.11
;;9002226.02101,"2237,O09.11 ",.02)
;;O09.11
;;9002226.02101,"2237,O09.11 ",.03)
;;30
;;9002226.02101,"2237,O09.12 ",.01)
;;O09.12
;;9002226.02101,"2237,O09.12 ",.02)
;;O09.12
;;9002226.02101,"2237,O09.12 ",.03)
;;30
;;9002226.02101,"2237,O09.13 ",.01)
;;O09.13
;;9002226.02101,"2237,O09.13 ",.02)
;;O09.13
;;9002226.02101,"2237,O09.13 ",.03)
;;30
;;9002226.02101,"2237,O09.211 ",.01)
;;O09.211
;;9002226.02101,"2237,O09.211 ",.02)
;;O09.211
;;9002226.02101,"2237,O09.211 ",.03)
;;30
;;9002226.02101,"2237,O09.212 ",.01)
;;O09.212
;;9002226.02101,"2237,O09.212 ",.02)
;;O09.212
;;9002226.02101,"2237,O09.212 ",.03)
;;30
;;9002226.02101,"2237,O09.213 ",.01)
;;O09.213
;;9002226.02101,"2237,O09.213 ",.02)
;;O09.213
;;9002226.02101,"2237,O09.213 ",.03)
;;30
;;9002226.02101,"2237,O09.219 ",.01)
;;O09.219
;;9002226.02101,"2237,O09.219 ",.02)
;;O09.219
;;9002226.02101,"2237,O09.219 ",.03)
;;30
;;9002226.02101,"2237,O09.291 ",.01)
;;O09.291
;;9002226.02101,"2237,O09.291 ",.02)
;;O09.291
;;9002226.02101,"2237,O09.291 ",.03)
;;30
;;9002226.02101,"2237,O09.292 ",.01)
;;O09.292
;;9002226.02101,"2237,O09.292 ",.02)
;;O09.292
;;9002226.02101,"2237,O09.292 ",.03)
;;30
;;9002226.02101,"2237,O09.293 ",.01)
;;O09.293
;;9002226.02101,"2237,O09.293 ",.02)
;;O09.293
;;9002226.02101,"2237,O09.293 ",.03)
;;30
;;9002226.02101,"2237,O09.299 ",.01)
;;O09.299
;;9002226.02101,"2237,O09.299 ",.02)
;;O09.299
;;9002226.02101,"2237,O09.299 ",.03)
;;30
;;9002226.02101,"2237,O09.30 ",.01)
;;O09.30
;;9002226.02101,"2237,O09.30 ",.02)
;;O09.30
;;9002226.02101,"2237,O09.30 ",.03)
;;30
;;9002226.02101,"2237,O09.31 ",.01)
;;O09.31
;;9002226.02101,"2237,O09.31 ",.02)
;;O09.31
;;9002226.02101,"2237,O09.31 ",.03)
;;30
;;9002226.02101,"2237,O09.32 ",.01)
;;O09.32
;;9002226.02101,"2237,O09.32 ",.02)
;;O09.32
;;9002226.02101,"2237,O09.32 ",.03)
;;30
;;9002226.02101,"2237,O09.33 ",.01)
;;O09.33
;;9002226.02101,"2237,O09.33 ",.02)
;;O09.33
;;9002226.02101,"2237,O09.33 ",.03)
;;30
;;9002226.02101,"2237,O09.40 ",.01)
;;O09.40
;;9002226.02101,"2237,O09.40 ",.02)
;;O09.40
;;9002226.02101,"2237,O09.40 ",.03)
;;30
;;9002226.02101,"2237,O09.41 ",.01)
;;O09.41
;;9002226.02101,"2237,O09.41 ",.02)
;;O09.41
;;9002226.02101,"2237,O09.41 ",.03)
;;30
;;9002226.02101,"2237,O09.42 ",.01)
;;O09.42
;;9002226.02101,"2237,O09.42 ",.02)
;;O09.42
;;9002226.02101,"2237,O09.42 ",.03)
;;30
;;9002226.02101,"2237,O09.43 ",.01)
;;O09.43
;;9002226.02101,"2237,O09.43 ",.02)
;;O09.43
;;9002226.02101,"2237,O09.43 ",.03)
;;30
;;9002226.02101,"2237,O09.511 ",.01)
;;O09.511
;;9002226.02101,"2237,O09.511 ",.02)
;;O09.511
;;9002226.02101,"2237,O09.511 ",.03)
;;30
;;9002226.02101,"2237,O09.512 ",.01)
;;O09.512
;;9002226.02101,"2237,O09.512 ",.02)
;;O09.512
;;9002226.02101,"2237,O09.512 ",.03)
;;30
;;9002226.02101,"2237,O09.513 ",.01)
;;O09.513
;;9002226.02101,"2237,O09.513 ",.02)
;;O09.513
;;9002226.02101,"2237,O09.513 ",.03)
;;30
;;9002226.02101,"2237,O09.519 ",.01)
;;O09.519
;;9002226.02101,"2237,O09.519 ",.02)
;;O09.519
;;9002226.02101,"2237,O09.519 ",.03)
;;30
;;9002226.02101,"2237,O09.521 ",.01)
;;O09.521
;;9002226.02101,"2237,O09.521 ",.02)
;;O09.521
;;9002226.02101,"2237,O09.521 ",.03)
;;30
;;9002226.02101,"2237,O09.522 ",.01)
;;O09.522
;;9002226.02101,"2237,O09.522 ",.02)
;;O09.522
;;9002226.02101,"2237,O09.522 ",.03)
;;30
;;9002226.02101,"2237,O09.523 ",.01)
;;O09.523
;;9002226.02101,"2237,O09.523 ",.02)
;;O09.523
;;9002226.02101,"2237,O09.523 ",.03)
;;30
;;9002226.02101,"2237,O09.529 ",.01)
;;O09.529
;;9002226.02101,"2237,O09.529 ",.02)
;;O09.529
;;9002226.02101,"2237,O09.529 ",.03)
;;30
;;9002226.02101,"2237,O09.611 ",.01)
;;O09.611
;;9002226.02101,"2237,O09.611 ",.02)
;;O09.611
;;9002226.02101,"2237,O09.611 ",.03)
;;30
;;9002226.02101,"2237,O09.612 ",.01)
;;O09.612
;;9002226.02101,"2237,O09.612 ",.02)
;;O09.612
;;9002226.02101,"2237,O09.612 ",.03)
;;30
;;9002226.02101,"2237,O09.613 ",.01)
;;O09.613
;;9002226.02101,"2237,O09.613 ",.02)
;;O09.613
;;9002226.02101,"2237,O09.613 ",.03)
;;30
;;9002226.02101,"2237,O09.619 ",.01)
;;O09.619
;;9002226.02101,"2237,O09.619 ",.02)
;;O09.619
;;9002226.02101,"2237,O09.619 ",.03)
;;30
;;9002226.02101,"2237,O09.621 ",.01)
;;O09.621
;;9002226.02101,"2237,O09.621 ",.02)
;;O09.621
;;9002226.02101,"2237,O09.621 ",.03)
;;30
;;9002226.02101,"2237,O09.622 ",.01)
;;O09.622
;;9002226.02101,"2237,O09.622 ",.02)
;;O09.622
;;9002226.02101,"2237,O09.622 ",.03)
;;30
;;9002226.02101,"2237,O09.623 ",.01)
;;O09.623
;;9002226.02101,"2237,O09.623 ",.02)
;;O09.623
;;9002226.02101,"2237,O09.623 ",.03)
;;30
;;9002226.02101,"2237,O09.629 ",.01)
;;O09.629
;;9002226.02101,"2237,O09.629 ",.02)
;;O09.629
;;9002226.02101,"2237,O09.629 ",.03)
;;30
;;9002226.02101,"2237,O09.70 ",.01)
;;O09.70
;;9002226.02101,"2237,O09.70 ",.02)
;;O09.70
;;9002226.02101,"2237,O09.70 ",.03)
;;30
;;9002226.02101,"2237,O09.71 ",.01)
;;O09.71
;;9002226.02101,"2237,O09.71 ",.02)
;;O09.71
;;9002226.02101,"2237,O09.71 ",.03)
;;30
;;9002226.02101,"2237,O09.72 ",.01)
;;O09.72
;;9002226.02101,"2237,O09.72 ",.02)
;;O09.72
;;9002226.02101,"2237,O09.72 ",.03)
;;30
;;9002226.02101,"2237,O09.73 ",.01)
;;O09.73
;;9002226.02101,"2237,O09.73 ",.02)
;;O09.73
;;9002226.02101,"2237,O09.73 ",.03)
;;30
;;9002226.02101,"2237,O09.811 ",.01)
;;O09.811
;;9002226.02101,"2237,O09.811 ",.02)
;;O09.811
ATXFCK5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 19, 2017;
+1 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"O98.819 ")
+2 ;;1597
+3 ;;21,"O98.911 ")
+4 ;;1598
+5 ;;21,"O98.912 ")
+6 ;;1599
+7 ;;21,"O98.913 ")
+8 ;;1600
+9 ;;21,"O98.919 ")
+10 ;;1601
+11 ;;21,"O99.011 ")
+12 ;;1602
+13 ;;21,"O99.012 ")
+14 ;;1603
+15 ;;21,"O99.013 ")
+16 ;;1604
+17 ;;21,"O99.019 ")
+18 ;;1605
+19 ;;21,"O99.111 ")
+20 ;;1606
+21 ;;21,"O99.112 ")
+22 ;;1607
+23 ;;21,"O99.113 ")
+24 ;;1608
+25 ;;21,"O99.119 ")
+26 ;;1609
+27 ;;21,"O99.210 ")
+28 ;;1610
+29 ;;21,"O99.211 ")
+30 ;;1611
+31 ;;21,"O99.212 ")
+32 ;;1612
+33 ;;21,"O99.213 ")
+34 ;;1613
+35 ;;21,"O99.280 ")
+36 ;;1614
+37 ;;21,"O99.281 ")
+38 ;;1615
+39 ;;21,"O99.282 ")
+40 ;;1616
+41 ;;21,"O99.283 ")
+42 ;;1617
+43 ;;21,"O99.310 ")
+44 ;;1618
+45 ;;21,"O99.311 ")
+46 ;;1619
+47 ;;21,"O99.312 ")
+48 ;;1620
+49 ;;21,"O99.313 ")
+50 ;;1621
+51 ;;21,"O99.320 ")
+52 ;;1622
+53 ;;21,"O99.321 ")
+54 ;;1623
+55 ;;21,"O99.322 ")
+56 ;;1624
+57 ;;21,"O99.323 ")
+58 ;;1625
+59 ;;21,"O99.330 ")
+60 ;;1626
+61 ;;21,"O99.331 ")
+62 ;;1627
+63 ;;21,"O99.332 ")
+64 ;;1628
+65 ;;21,"O99.333 ")
+66 ;;1629
+67 ;;21,"O99.340 ")
+68 ;;1630
+69 ;;21,"O99.341 ")
+70 ;;1631
+71 ;;21,"O99.342 ")
+72 ;;1632
+73 ;;21,"O99.343 ")
+74 ;;1633
+75 ;;21,"O99.350 ")
+76 ;;1634
+77 ;;21,"O99.351 ")
+78 ;;1635
+79 ;;21,"O99.352 ")
+80 ;;1636
+81 ;;21,"O99.353 ")
+82 ;;1637
+83 ;;21,"O99.411 ")
+84 ;;1638
+85 ;;21,"O99.412 ")
+86 ;;1639
+87 ;;21,"O99.413 ")
+88 ;;1640
+89 ;;21,"O99.419 ")
+90 ;;1641
+91 ;;21,"O99.511 ")
+92 ;;1642
+93 ;;21,"O99.512 ")
+94 ;;1643
+95 ;;21,"O99.513 ")
+96 ;;1644
+97 ;;21,"O99.519 ")
+98 ;;1645
+99 ;;21,"O99.611 ")
+100 ;;1646
+101 ;;21,"O99.612 ")
+102 ;;1647
+103 ;;21,"O99.613 ")
+104 ;;1648
+105 ;;21,"O99.619 ")
+106 ;;1649
+107 ;;21,"O99.711 ")
+108 ;;1650
+109 ;;21,"O99.712 ")
+110 ;;1651
+111 ;;21,"O99.713 ")
+112 ;;1652
+113 ;;21,"O99.719 ")
+114 ;;1653
+115 ;;21,"O99.810 ")
+116 ;;1654
+117 ;;21,"O99.820 ")
+118 ;;1655
+119 ;;21,"O99.830 ")
+120 ;;1656
+121 ;;21,"O99.840 ")
+122 ;;1657
+123 ;;21,"O99.841 ")
+124 ;;1658
+125 ;;21,"O99.842 ")
+126 ;;1659
+127 ;;21,"O99.843 ")
+128 ;;1660
+129 ;;21,"O99.89 ")
+130 ;;1661
+131 ;;21,"O9A.111 ")
+132 ;;1662
+133 ;;21,"O9A.112 ")
+134 ;;1663
+135 ;;21,"O9A.113 ")
+136 ;;1664
+137 ;;21,"O9A.119 ")
+138 ;;1665
+139 ;;21,"O9A.211 ")
+140 ;;1666
+141 ;;21,"O9A.212 ")
+142 ;;1667
+143 ;;21,"O9A.213 ")
+144 ;;1668
+145 ;;21,"O9A.219 ")
+146 ;;1669
+147 ;;21,"O9A.311 ")
+148 ;;1670
+149 ;;21,"O9A.312 ")
+150 ;;1671
+151 ;;21,"O9A.313 ")
+152 ;;1672
+153 ;;21,"O9A.319 ")
+154 ;;1673
+155 ;;21,"O9A.411 ")
+156 ;;1674
+157 ;;21,"O9A.412 ")
+158 ;;1675
+159 ;;21,"O9A.413 ")
+160 ;;1676
+161 ;;21,"O9A.419 ")
+162 ;;1677
+163 ;;21,"O9A.511 ")
+164 ;;1678
+165 ;;21,"O9A.512 ")
+166 ;;1679
+167 ;;21,"O9A.513 ")
+168 ;;1680
+169 ;;21,"O9A.519 ")
+170 ;;1681
+171 ;;21,"Z33.1 ")
+172 ;;1682
+173 ;;21,"Z33.3 ")
+174 ;;1683
+175 ;;21,"Z34.00 ")
+176 ;;1684
+177 ;;21,"Z34.01 ")
+178 ;;1685
+179 ;;21,"Z34.02 ")
+180 ;;1686
+181 ;;21,"Z34.03 ")
+182 ;;1687
+183 ;;21,"Z34.80 ")
+184 ;;1688
+185 ;;21,"Z34.81 ")
+186 ;;1689
+187 ;;21,"Z34.82 ")
+188 ;;1690
+189 ;;21,"Z34.83 ")
+190 ;;1691
+191 ;;21,"Z34.90 ")
+192 ;;1692
+193 ;;21,"Z34.91 ")
+194 ;;1693
+195 ;;21,"Z34.92 ")
+196 ;;1694
+197 ;;21,"Z34.93 ")
+198 ;;1695
+199 ;;21,"Z36. ")
+200 ;;1696
+201 ;;9002226,2237,.01)
+202 ;;BGP IPC PREGNANCY DXS
+203 ;;9002226,2237,.02)
+204 ;;@
+205 ;;9002226,2237,.04)
+206 ;;n
+207 ;;9002226,2237,.06)
+208 ;;@
+209 ;;9002226,2237,.08)
+210 ;;@
+211 ;;9002226,2237,.09)
+212 ;;3171219
+213 ;;9002226,2237,.11)
+214 ;;@
+215 ;;9002226,2237,.12)
+216 ;;31
+217 ;;9002226,2237,.13)
+218 ;;1
+219 ;;9002226,2237,.14)
+220 ;;@
+221 ;;9002226,2237,.15)
+222 ;;80
+223 ;;9002226,2237,.16)
+224 ;;@
+225 ;;9002226,2237,.17)
+226 ;;@
+227 ;;9002226,2237,.22)
+228 ;;1
+229 ;;9002226,2237,3101)
+230 ;;@
+231 ;;9002226.02101,"2237,O00.1 ",.01)
+232 ;;O00.1
+233 ;;9002226.02101,"2237,O00.1 ",.02)
+234 ;;O00.1
+235 ;;9002226.02101,"2237,O00.1 ",.03)
+236 ;;30
+237 ;;9002226.02101,"2237,O00.10 ",.01)
+238 ;;O00.10
+239 ;;9002226.02101,"2237,O00.10 ",.02)
+240 ;;O00.10
+241 ;;9002226.02101,"2237,O00.10 ",.03)
+242 ;;30
+243 ;;9002226.02101,"2237,O00.11 ",.01)
+244 ;;O00.11
+245 ;;9002226.02101,"2237,O00.11 ",.02)
+246 ;;O00.11
+247 ;;9002226.02101,"2237,O00.11 ",.03)
+248 ;;30
+249 ;;9002226.02101,"2237,O00.2 ",.01)
+250 ;;O00.2
+251 ;;9002226.02101,"2237,O00.2 ",.02)
+252 ;;O00.2
+253 ;;9002226.02101,"2237,O00.2 ",.03)
+254 ;;30
+255 ;;9002226.02101,"2237,O00.20 ",.01)
+256 ;;O00.20
+257 ;;9002226.02101,"2237,O00.20 ",.02)
+258 ;;O00.20
+259 ;;9002226.02101,"2237,O00.20 ",.03)
+260 ;;30
+261 ;;9002226.02101,"2237,O00.21 ",.01)
+262 ;;O00.21
+263 ;;9002226.02101,"2237,O00.21 ",.02)
+264 ;;O00.21
+265 ;;9002226.02101,"2237,O00.21 ",.03)
+266 ;;30
+267 ;;9002226.02101,"2237,O00.8 ",.01)
+268 ;;O00.8
+269 ;;9002226.02101,"2237,O00.8 ",.02)
+270 ;;O00.8
+271 ;;9002226.02101,"2237,O00.8 ",.03)
+272 ;;30
+273 ;;9002226.02101,"2237,O00.80 ",.01)
+274 ;;O00.80
+275 ;;9002226.02101,"2237,O00.80 ",.02)
+276 ;;O00.80
+277 ;;9002226.02101,"2237,O00.80 ",.03)
+278 ;;30
+279 ;;9002226.02101,"2237,O00.81 ",.01)
+280 ;;O00.81
+281 ;;9002226.02101,"2237,O00.81 ",.02)
+282 ;;O00.81
+283 ;;9002226.02101,"2237,O00.81 ",.03)
+284 ;;30
+285 ;;9002226.02101,"2237,O00.9 ",.01)
+286 ;;O00.9
+287 ;;9002226.02101,"2237,O00.9 ",.02)
+288 ;;O00.9
+289 ;;9002226.02101,"2237,O00.9 ",.03)
+290 ;;30
+291 ;;9002226.02101,"2237,O00.90 ",.01)
+292 ;;O00.90
+293 ;;9002226.02101,"2237,O00.90 ",.02)
+294 ;;O00.90
+295 ;;9002226.02101,"2237,O00.90 ",.03)
+296 ;;30
+297 ;;9002226.02101,"2237,O00.91 ",.01)
+298 ;;O00.91
+299 ;;9002226.02101,"2237,O00.91 ",.02)
+300 ;;O00.91
+301 ;;9002226.02101,"2237,O00.91 ",.03)
+302 ;;30
+303 ;;9002226.02101,"2237,O09.00 ",.01)
+304 ;;O09.00
+305 ;;9002226.02101,"2237,O09.00 ",.02)
+306 ;;O09.00
+307 ;;9002226.02101,"2237,O09.00 ",.03)
+308 ;;30
+309 ;;9002226.02101,"2237,O09.01 ",.01)
+310 ;;O09.01
+311 ;;9002226.02101,"2237,O09.01 ",.02)
+312 ;;O09.01
+313 ;;9002226.02101,"2237,O09.01 ",.03)
+314 ;;30
+315 ;;9002226.02101,"2237,O09.02 ",.01)
+316 ;;O09.02
+317 ;;9002226.02101,"2237,O09.02 ",.02)
+318 ;;O09.02
+319 ;;9002226.02101,"2237,O09.02 ",.03)
+320 ;;30
+321 ;;9002226.02101,"2237,O09.03 ",.01)
+322 ;;O09.03
+323 ;;9002226.02101,"2237,O09.03 ",.02)
+324 ;;O09.03
+325 ;;9002226.02101,"2237,O09.03 ",.03)
+326 ;;30
+327 ;;9002226.02101,"2237,O09.10 ",.01)
+328 ;;O09.10
+329 ;;9002226.02101,"2237,O09.10 ",.02)
+330 ;;O09.10
+331 ;;9002226.02101,"2237,O09.10 ",.03)
+332 ;;30
+333 ;;9002226.02101,"2237,O09.11 ",.01)
+334 ;;O09.11
+335 ;;9002226.02101,"2237,O09.11 ",.02)
+336 ;;O09.11
+337 ;;9002226.02101,"2237,O09.11 ",.03)
+338 ;;30
+339 ;;9002226.02101,"2237,O09.12 ",.01)
+340 ;;O09.12
+341 ;;9002226.02101,"2237,O09.12 ",.02)
+342 ;;O09.12
+343 ;;9002226.02101,"2237,O09.12 ",.03)
+344 ;;30
+345 ;;9002226.02101,"2237,O09.13 ",.01)
+346 ;;O09.13
+347 ;;9002226.02101,"2237,O09.13 ",.02)
+348 ;;O09.13
+349 ;;9002226.02101,"2237,O09.13 ",.03)
+350 ;;30
+351 ;;9002226.02101,"2237,O09.211 ",.01)
+352 ;;O09.211
+353 ;;9002226.02101,"2237,O09.211 ",.02)
+354 ;;O09.211
+355 ;;9002226.02101,"2237,O09.211 ",.03)
+356 ;;30
+357 ;;9002226.02101,"2237,O09.212 ",.01)
+358 ;;O09.212
+359 ;;9002226.02101,"2237,O09.212 ",.02)
+360 ;;O09.212
+361 ;;9002226.02101,"2237,O09.212 ",.03)
+362 ;;30
+363 ;;9002226.02101,"2237,O09.213 ",.01)
+364 ;;O09.213
+365 ;;9002226.02101,"2237,O09.213 ",.02)
+366 ;;O09.213
+367 ;;9002226.02101,"2237,O09.213 ",.03)
+368 ;;30
+369 ;;9002226.02101,"2237,O09.219 ",.01)
+370 ;;O09.219
+371 ;;9002226.02101,"2237,O09.219 ",.02)
+372 ;;O09.219
+373 ;;9002226.02101,"2237,O09.219 ",.03)
+374 ;;30
+375 ;;9002226.02101,"2237,O09.291 ",.01)
+376 ;;O09.291
+377 ;;9002226.02101,"2237,O09.291 ",.02)
+378 ;;O09.291
+379 ;;9002226.02101,"2237,O09.291 ",.03)
+380 ;;30
+381 ;;9002226.02101,"2237,O09.292 ",.01)
+382 ;;O09.292
+383 ;;9002226.02101,"2237,O09.292 ",.02)
+384 ;;O09.292
+385 ;;9002226.02101,"2237,O09.292 ",.03)
+386 ;;30
+387 ;;9002226.02101,"2237,O09.293 ",.01)
+388 ;;O09.293
+389 ;;9002226.02101,"2237,O09.293 ",.02)
+390 ;;O09.293
+391 ;;9002226.02101,"2237,O09.293 ",.03)
+392 ;;30
+393 ;;9002226.02101,"2237,O09.299 ",.01)
+394 ;;O09.299
+395 ;;9002226.02101,"2237,O09.299 ",.02)
+396 ;;O09.299
+397 ;;9002226.02101,"2237,O09.299 ",.03)
+398 ;;30
+399 ;;9002226.02101,"2237,O09.30 ",.01)
+400 ;;O09.30
+401 ;;9002226.02101,"2237,O09.30 ",.02)
+402 ;;O09.30
+403 ;;9002226.02101,"2237,O09.30 ",.03)
+404 ;;30
+405 ;;9002226.02101,"2237,O09.31 ",.01)
+406 ;;O09.31
+407 ;;9002226.02101,"2237,O09.31 ",.02)
+408 ;;O09.31
+409 ;;9002226.02101,"2237,O09.31 ",.03)
+410 ;;30
+411 ;;9002226.02101,"2237,O09.32 ",.01)
+412 ;;O09.32
+413 ;;9002226.02101,"2237,O09.32 ",.02)
+414 ;;O09.32
+415 ;;9002226.02101,"2237,O09.32 ",.03)
+416 ;;30
+417 ;;9002226.02101,"2237,O09.33 ",.01)
+418 ;;O09.33
+419 ;;9002226.02101,"2237,O09.33 ",.02)
+420 ;;O09.33
+421 ;;9002226.02101,"2237,O09.33 ",.03)
+422 ;;30
+423 ;;9002226.02101,"2237,O09.40 ",.01)
+424 ;;O09.40
+425 ;;9002226.02101,"2237,O09.40 ",.02)
+426 ;;O09.40
+427 ;;9002226.02101,"2237,O09.40 ",.03)
+428 ;;30
+429 ;;9002226.02101,"2237,O09.41 ",.01)
+430 ;;O09.41
+431 ;;9002226.02101,"2237,O09.41 ",.02)
+432 ;;O09.41
+433 ;;9002226.02101,"2237,O09.41 ",.03)
+434 ;;30
+435 ;;9002226.02101,"2237,O09.42 ",.01)
+436 ;;O09.42
+437 ;;9002226.02101,"2237,O09.42 ",.02)
+438 ;;O09.42
+439 ;;9002226.02101,"2237,O09.42 ",.03)
+440 ;;30
+441 ;;9002226.02101,"2237,O09.43 ",.01)
+442 ;;O09.43
+443 ;;9002226.02101,"2237,O09.43 ",.02)
+444 ;;O09.43
+445 ;;9002226.02101,"2237,O09.43 ",.03)
+446 ;;30
+447 ;;9002226.02101,"2237,O09.511 ",.01)
+448 ;;O09.511
+449 ;;9002226.02101,"2237,O09.511 ",.02)
+450 ;;O09.511
+451 ;;9002226.02101,"2237,O09.511 ",.03)
+452 ;;30
+453 ;;9002226.02101,"2237,O09.512 ",.01)
+454 ;;O09.512
+455 ;;9002226.02101,"2237,O09.512 ",.02)
+456 ;;O09.512
+457 ;;9002226.02101,"2237,O09.512 ",.03)
+458 ;;30
+459 ;;9002226.02101,"2237,O09.513 ",.01)
+460 ;;O09.513
+461 ;;9002226.02101,"2237,O09.513 ",.02)
+462 ;;O09.513
+463 ;;9002226.02101,"2237,O09.513 ",.03)
+464 ;;30
+465 ;;9002226.02101,"2237,O09.519 ",.01)
+466 ;;O09.519
+467 ;;9002226.02101,"2237,O09.519 ",.02)
+468 ;;O09.519
+469 ;;9002226.02101,"2237,O09.519 ",.03)
+470 ;;30
+471 ;;9002226.02101,"2237,O09.521 ",.01)
+472 ;;O09.521
+473 ;;9002226.02101,"2237,O09.521 ",.02)
+474 ;;O09.521
+475 ;;9002226.02101,"2237,O09.521 ",.03)
+476 ;;30
+477 ;;9002226.02101,"2237,O09.522 ",.01)
+478 ;;O09.522
+479 ;;9002226.02101,"2237,O09.522 ",.02)
+480 ;;O09.522
+481 ;;9002226.02101,"2237,O09.522 ",.03)
+482 ;;30
+483 ;;9002226.02101,"2237,O09.523 ",.01)
+484 ;;O09.523
+485 ;;9002226.02101,"2237,O09.523 ",.02)
+486 ;;O09.523
+487 ;;9002226.02101,"2237,O09.523 ",.03)
+488 ;;30
+489 ;;9002226.02101,"2237,O09.529 ",.01)
+490 ;;O09.529
+491 ;;9002226.02101,"2237,O09.529 ",.02)
+492 ;;O09.529
+493 ;;9002226.02101,"2237,O09.529 ",.03)
+494 ;;30
+495 ;;9002226.02101,"2237,O09.611 ",.01)
+496 ;;O09.611
+497 ;;9002226.02101,"2237,O09.611 ",.02)
+498 ;;O09.611
+499 ;;9002226.02101,"2237,O09.611 ",.03)
+500 ;;30
+501 ;;9002226.02101,"2237,O09.612 ",.01)
+502 ;;O09.612
+503 ;;9002226.02101,"2237,O09.612 ",.02)
+504 ;;O09.612
+505 ;;9002226.02101,"2237,O09.612 ",.03)
+506 ;;30
+507 ;;9002226.02101,"2237,O09.613 ",.01)
+508 ;;O09.613
+509 ;;9002226.02101,"2237,O09.613 ",.02)
+510 ;;O09.613
+511 ;;9002226.02101,"2237,O09.613 ",.03)
+512 ;;30
+513 ;;9002226.02101,"2237,O09.619 ",.01)
+514 ;;O09.619
+515 ;;9002226.02101,"2237,O09.619 ",.02)
+516 ;;O09.619
+517 ;;9002226.02101,"2237,O09.619 ",.03)
+518 ;;30
+519 ;;9002226.02101,"2237,O09.621 ",.01)
+520 ;;O09.621
+521 ;;9002226.02101,"2237,O09.621 ",.02)
+522 ;;O09.621
+523 ;;9002226.02101,"2237,O09.621 ",.03)
+524 ;;30
+525 ;;9002226.02101,"2237,O09.622 ",.01)
+526 ;;O09.622
+527 ;;9002226.02101,"2237,O09.622 ",.02)
+528 ;;O09.622
+529 ;;9002226.02101,"2237,O09.622 ",.03)
+530 ;;30
+531 ;;9002226.02101,"2237,O09.623 ",.01)
+532 ;;O09.623
+533 ;;9002226.02101,"2237,O09.623 ",.02)
+534 ;;O09.623
+535 ;;9002226.02101,"2237,O09.623 ",.03)
+536 ;;30
+537 ;;9002226.02101,"2237,O09.629 ",.01)
+538 ;;O09.629
+539 ;;9002226.02101,"2237,O09.629 ",.02)
+540 ;;O09.629
+541 ;;9002226.02101,"2237,O09.629 ",.03)
+542 ;;30
+543 ;;9002226.02101,"2237,O09.70 ",.01)
+544 ;;O09.70
+545 ;;9002226.02101,"2237,O09.70 ",.02)
+546 ;;O09.70
+547 ;;9002226.02101,"2237,O09.70 ",.03)
+548 ;;30
+549 ;;9002226.02101,"2237,O09.71 ",.01)
+550 ;;O09.71
+551 ;;9002226.02101,"2237,O09.71 ",.02)
+552 ;;O09.71
+553 ;;9002226.02101,"2237,O09.71 ",.03)
+554 ;;30
+555 ;;9002226.02101,"2237,O09.72 ",.01)
+556 ;;O09.72
+557 ;;9002226.02101,"2237,O09.72 ",.02)
+558 ;;O09.72
+559 ;;9002226.02101,"2237,O09.72 ",.03)
+560 ;;30
+561 ;;9002226.02101,"2237,O09.73 ",.01)
+562 ;;O09.73
+563 ;;9002226.02101,"2237,O09.73 ",.02)
+564 ;;O09.73
+565 ;;9002226.02101,"2237,O09.73 ",.03)
+566 ;;30
+567 ;;9002226.02101,"2237,O09.811 ",.01)
+568 ;;O09.811
+569 ;;9002226.02101,"2237,O09.811 ",.02)
+570 ;;O09.811
