Routine: ATXFCK5

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

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

ATXFCK5.m