Routine: ATXFCJ3

ATXFCJ3 ;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,"O99.325 ")

 ;;833

 ;;21,"O99.330 ")

 ;;834

 ;;21,"O99.331 ")

 ;;835

 ;;21,"O99.332 ")

 ;;836

 ;;21,"O99.333 ")

 ;;837

 ;;21,"O99.334 ")

 ;;838

 ;;21,"O99.335 ")

 ;;839

 ;;21,"O99.340 ")

 ;;840

 ;;21,"O99.341 ")

 ;;841

 ;;21,"O99.342 ")

 ;;842

 ;;21,"O99.343 ")

 ;;843

 ;;21,"O99.344 ")

 ;;844

 ;;21,"O99.345 ")

 ;;845

 ;;21,"O99.350 ")

 ;;846

 ;;21,"O99.351 ")

 ;;847

 ;;21,"O99.352 ")

 ;;848

 ;;21,"O99.353 ")

 ;;849

 ;;21,"O99.354 ")

 ;;850

 ;;21,"O99.355 ")

 ;;851

 ;;21,"O99.411 ")

 ;;852

 ;;21,"O99.412 ")

 ;;853

 ;;21,"O99.413 ")

 ;;854

 ;;21,"O99.419 ")

 ;;855

 ;;21,"O99.42 ")

 ;;856

 ;;21,"O99.43 ")

 ;;857

 ;;21,"O99.810 ")

 ;;858

 ;;21,"O99.814 ")

 ;;859

 ;;21,"O99.815 ")

 ;;860

 ;;21,"O99.834 ")

 ;;861

 ;;21,"O99.835 ")

 ;;862

 ;;21,"O99.840 ")

 ;;863

 ;;21,"O99.841 ")

 ;;864

 ;;21,"O99.842 ")

 ;;865

 ;;21,"O99.843 ")

 ;;866

 ;;21,"O99.844 ")

 ;;867

 ;;21,"O99.845 ")

 ;;868

 ;;21,"O99.89 ")

 ;;869

 ;;21,"Z33.1 ")

 ;;870

 ;;21,"Z33.2 ")

 ;;871

 ;;21,"Z33.3 ")

 ;;872

 ;;21,"Z34.00 ")

 ;;873

 ;;21,"Z34.01 ")

 ;;874

 ;;21,"Z34.02 ")

 ;;875

 ;;21,"Z34.03 ")

 ;;876

 ;;21,"Z34.80 ")

 ;;877

 ;;21,"Z34.81 ")

 ;;878

 ;;21,"Z34.82 ")

 ;;879

 ;;21,"Z34.83 ")

 ;;880

 ;;21,"Z34.90 ")

 ;;881

 ;;21,"Z34.91 ")

 ;;882

 ;;21,"Z34.92 ")

 ;;883

 ;;21,"Z34.93 ")

 ;;884

 ;;21,"Z36. ")

 ;;885

 ;;9002226,2236,.01)

 ;;BGP IPC PREGNANCY CMS69 DXS

 ;;9002226,2236,.02)

;;@

 ;;9002226,2236,.04)

;;n

 ;;9002226,2236,.06)

;;@

 ;;9002226,2236,.08)

;;@

 ;;9002226,2236,.09)

 ;;3171219

 ;;9002226,2236,.11)

;;@

 ;;9002226,2236,.12)

 ;;31

 ;;9002226,2236,.13)

;;1

 ;;9002226,2236,.14)

;;@

 ;;9002226,2236,.15)

 ;;80

 ;;9002226,2236,.16)

;;@

 ;;9002226,2236,.17)

;;@

 ;;9002226,2236,.22)

;;1

 ;;9002226,2236,3101)

;;@

 ;;9002226.02101,"2236,A34. ",.01)

 ;;A34.

 ;;9002226.02101,"2236,A34. ",.02)

 ;;A34.

 ;;9002226.02101,"2236,A34. ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.00 ",.01)

 ;;O00.00

 ;;9002226.02101,"2236,O00.00 ",.02)

 ;;O00.00

 ;;9002226.02101,"2236,O00.00 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.01 ",.01)

 ;;O00.01

 ;;9002226.02101,"2236,O00.01 ",.02)

 ;;O00.01

 ;;9002226.02101,"2236,O00.01 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.10 ",.01)

 ;;O00.10

 ;;9002226.02101,"2236,O00.10 ",.02)

 ;;O00.10

 ;;9002226.02101,"2236,O00.10 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.11 ",.01)

 ;;O00.11

 ;;9002226.02101,"2236,O00.11 ",.02)

 ;;O00.11

 ;;9002226.02101,"2236,O00.11 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.20 ",.01)

 ;;O00.20

 ;;9002226.02101,"2236,O00.20 ",.02)

 ;;O00.20

 ;;9002226.02101,"2236,O00.20 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.21 ",.01)

 ;;O00.21

 ;;9002226.02101,"2236,O00.21 ",.02)

 ;;O00.21

 ;;9002226.02101,"2236,O00.21 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.80 ",.01)

 ;;O00.80

 ;;9002226.02101,"2236,O00.80 ",.02)

 ;;O00.80

 ;;9002226.02101,"2236,O00.80 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.81 ",.01)

 ;;O00.81

 ;;9002226.02101,"2236,O00.81 ",.02)

 ;;O00.81

 ;;9002226.02101,"2236,O00.81 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.90 ",.01)

 ;;O00.90

 ;;9002226.02101,"2236,O00.90 ",.02)

 ;;O00.90

 ;;9002226.02101,"2236,O00.90 ",.03)

 ;;30

 ;;9002226.02101,"2236,O00.91 ",.01)

 ;;O00.91

 ;;9002226.02101,"2236,O00.91 ",.02)

 ;;O00.91

 ;;9002226.02101,"2236,O00.91 ",.03)

 ;;30

 ;;9002226.02101,"2236,O01.9 ",.01)

 ;;O01.9

 ;;9002226.02101,"2236,O01.9 ",.02)

 ;;O01.9

 ;;9002226.02101,"2236,O01.9 ",.03)

 ;;30

 ;;9002226.02101,"2236,O02.0 ",.01)

 ;;O02.0

 ;;9002226.02101,"2236,O02.0 ",.02)

 ;;O02.0

 ;;9002226.02101,"2236,O02.0 ",.03)

 ;;30

 ;;9002226.02101,"2236,O02.1 ",.01)

 ;;O02.1

 ;;9002226.02101,"2236,O02.1 ",.02)

 ;;O02.1

 ;;9002226.02101,"2236,O02.1 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.0 ",.01)

 ;;O03.0

 ;;9002226.02101,"2236,O03.0 ",.02)

 ;;O03.0

 ;;9002226.02101,"2236,O03.0 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.1 ",.01)

 ;;O03.1

 ;;9002226.02101,"2236,O03.1 ",.02)

 ;;O03.1

 ;;9002226.02101,"2236,O03.1 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.2 ",.01)

 ;;O03.2

 ;;9002226.02101,"2236,O03.2 ",.02)

 ;;O03.2

 ;;9002226.02101,"2236,O03.2 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.30 ",.01)

 ;;O03.30

 ;;9002226.02101,"2236,O03.30 ",.02)

 ;;O03.30

 ;;9002226.02101,"2236,O03.30 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.31 ",.01)

 ;;O03.31

 ;;9002226.02101,"2236,O03.31 ",.02)

 ;;O03.31

 ;;9002226.02101,"2236,O03.31 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.32 ",.01)

 ;;O03.32

 ;;9002226.02101,"2236,O03.32 ",.02)

 ;;O03.32

 ;;9002226.02101,"2236,O03.32 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.33 ",.01)

 ;;O03.33

 ;;9002226.02101,"2236,O03.33 ",.02)

 ;;O03.33

 ;;9002226.02101,"2236,O03.33 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.34 ",.01)

 ;;O03.34

 ;;9002226.02101,"2236,O03.34 ",.02)

 ;;O03.34

 ;;9002226.02101,"2236,O03.34 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.37 ",.01)

 ;;O03.37

 ;;9002226.02101,"2236,O03.37 ",.02)

 ;;O03.37

 ;;9002226.02101,"2236,O03.37 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.39 ",.01)

 ;;O03.39

 ;;9002226.02101,"2236,O03.39 ",.02)

 ;;O03.39

 ;;9002226.02101,"2236,O03.39 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.4 ",.01)

 ;;O03.4

 ;;9002226.02101,"2236,O03.4 ",.02)

 ;;O03.4

 ;;9002226.02101,"2236,O03.4 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.5 ",.01)

 ;;O03.5

 ;;9002226.02101,"2236,O03.5 ",.02)

 ;;O03.5

 ;;9002226.02101,"2236,O03.5 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.6 ",.01)

 ;;O03.6

 ;;9002226.02101,"2236,O03.6 ",.02)

 ;;O03.6

 ;;9002226.02101,"2236,O03.6 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.7 ",.01)

 ;;O03.7

 ;;9002226.02101,"2236,O03.7 ",.02)

 ;;O03.7

 ;;9002226.02101,"2236,O03.7 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.80 ",.01)

 ;;O03.80

 ;;9002226.02101,"2236,O03.80 ",.02)

 ;;O03.80

 ;;9002226.02101,"2236,O03.80 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.81 ",.01)

 ;;O03.81

 ;;9002226.02101,"2236,O03.81 ",.02)

 ;;O03.81

 ;;9002226.02101,"2236,O03.81 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.82 ",.01)

 ;;O03.82

 ;;9002226.02101,"2236,O03.82 ",.02)

 ;;O03.82

 ;;9002226.02101,"2236,O03.82 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.83 ",.01)

 ;;O03.83

 ;;9002226.02101,"2236,O03.83 ",.02)

 ;;O03.83

 ;;9002226.02101,"2236,O03.83 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.84 ",.01)

 ;;O03.84

 ;;9002226.02101,"2236,O03.84 ",.02)

 ;;O03.84

 ;;9002226.02101,"2236,O03.84 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.85 ",.01)

 ;;O03.85

 ;;9002226.02101,"2236,O03.85 ",.02)

 ;;O03.85

 ;;9002226.02101,"2236,O03.85 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.86 ",.01)

 ;;O03.86

 ;;9002226.02101,"2236,O03.86 ",.02)

 ;;O03.86

 ;;9002226.02101,"2236,O03.86 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.87 ",.01)

 ;;O03.87

 ;;9002226.02101,"2236,O03.87 ",.02)

 ;;O03.87

 ;;9002226.02101,"2236,O03.87 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.88 ",.01)

 ;;O03.88

 ;;9002226.02101,"2236,O03.88 ",.02)

 ;;O03.88

 ;;9002226.02101,"2236,O03.88 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.89 ",.01)

 ;;O03.89

 ;;9002226.02101,"2236,O03.89 ",.02)

 ;;O03.89

 ;;9002226.02101,"2236,O03.89 ",.03)

 ;;30

 ;;9002226.02101,"2236,O03.9 ",.01)

 ;;O03.9

 ;;9002226.02101,"2236,O03.9 ",.02)

 ;;O03.9

 ;;9002226.02101,"2236,O03.9 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.5 ",.01)

 ;;O04.5

 ;;9002226.02101,"2236,O04.5 ",.02)

 ;;O04.5

 ;;9002226.02101,"2236,O04.5 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.6 ",.01)

 ;;O04.6

 ;;9002226.02101,"2236,O04.6 ",.02)

 ;;O04.6

 ;;9002226.02101,"2236,O04.6 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.7 ",.01)

 ;;O04.7

 ;;9002226.02101,"2236,O04.7 ",.02)

 ;;O04.7

 ;;9002226.02101,"2236,O04.7 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.80 ",.01)

 ;;O04.80

 ;;9002226.02101,"2236,O04.80 ",.02)

 ;;O04.80

 ;;9002226.02101,"2236,O04.80 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.81 ",.01)

 ;;O04.81

 ;;9002226.02101,"2236,O04.81 ",.02)

 ;;O04.81

 ;;9002226.02101,"2236,O04.81 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.82 ",.01)

 ;;O04.82

 ;;9002226.02101,"2236,O04.82 ",.02)

 ;;O04.82

 ;;9002226.02101,"2236,O04.82 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.83 ",.01)

 ;;O04.83

 ;;9002226.02101,"2236,O04.83 ",.02)

 ;;O04.83

 ;;9002226.02101,"2236,O04.83 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.84 ",.01)

 ;;O04.84

 ;;9002226.02101,"2236,O04.84 ",.02)

 ;;O04.84

 ;;9002226.02101,"2236,O04.84 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.85 ",.01)

 ;;O04.85

 ;;9002226.02101,"2236,O04.85 ",.02)

 ;;O04.85

 ;;9002226.02101,"2236,O04.85 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.86 ",.01)

 ;;O04.86

 ;;9002226.02101,"2236,O04.86 ",.02)

 ;;O04.86

 ;;9002226.02101,"2236,O04.86 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.87 ",.01)

 ;;O04.87

 ;;9002226.02101,"2236,O04.87 ",.02)

 ;;O04.87

 ;;9002226.02101,"2236,O04.87 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.88 ",.01)

 ;;O04.88

 ;;9002226.02101,"2236,O04.88 ",.02)

 ;;O04.88

 ;;9002226.02101,"2236,O04.88 ",.03)

 ;;30

 ;;9002226.02101,"2236,O04.89 ",.01)

 ;;O04.89

 ;;9002226.02101,"2236,O04.89 ",.02)

 ;;O04.89

 ;;9002226.02101,"2236,O04.89 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.0 ",.01)

 ;;O07.0

 ;;9002226.02101,"2236,O07.0 ",.02)

 ;;O07.0

 ;;9002226.02101,"2236,O07.0 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.1 ",.01)

 ;;O07.1

 ;;9002226.02101,"2236,O07.1 ",.02)

 ;;O07.1

 ;;9002226.02101,"2236,O07.1 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.2 ",.01)

 ;;O07.2

 ;;9002226.02101,"2236,O07.2 ",.02)

 ;;O07.2

 ;;9002226.02101,"2236,O07.2 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.30 ",.01)

 ;;O07.30

 ;;9002226.02101,"2236,O07.30 ",.02)

 ;;O07.30

 ;;9002226.02101,"2236,O07.30 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.31 ",.01)

 ;;O07.31

 ;;9002226.02101,"2236,O07.31 ",.02)

 ;;O07.31

 ;;9002226.02101,"2236,O07.31 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.32 ",.01)

 ;;O07.32

 ;;9002226.02101,"2236,O07.32 ",.02)

 ;;O07.32

 ;;9002226.02101,"2236,O07.32 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.33 ",.01)

 ;;O07.33

 ;;9002226.02101,"2236,O07.33 ",.02)

 ;;O07.33

 ;;9002226.02101,"2236,O07.33 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.34 ",.01)

 ;;O07.34

 ;;9002226.02101,"2236,O07.34 ",.02)

 ;;O07.34

 ;;9002226.02101,"2236,O07.34 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.35 ",.01)

 ;;O07.35

 ;;9002226.02101,"2236,O07.35 ",.02)

 ;;O07.35

 ;;9002226.02101,"2236,O07.35 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.36 ",.01)

 ;;O07.36

 ;;9002226.02101,"2236,O07.36 ",.02)

 ;;O07.36

 ;;9002226.02101,"2236,O07.36 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.37 ",.01)

 ;;O07.37

 ;;9002226.02101,"2236,O07.37 ",.02)

 ;;O07.37

 ;;9002226.02101,"2236,O07.37 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.38 ",.01)

 ;;O07.38

 ;;9002226.02101,"2236,O07.38 ",.02)

 ;;O07.38

 ;;9002226.02101,"2236,O07.38 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.39 ",.01)

 ;;O07.39

 ;;9002226.02101,"2236,O07.39 ",.02)

 ;;O07.39

 ;;9002226.02101,"2236,O07.39 ",.03)

 ;;30

 ;;9002226.02101,"2236,O07.4 ",.01)

 ;;O07.4

 ;;9002226.02101,"2236,O07.4 ",.02)

 ;;O07.4

 ;;9002226.02101,"2236,O07.4 ",.03)

 ;;30

 ;;9002226.02101,"2236,O08.0 ",.01)

 ;;O08.0

 ;;9002226.02101,"2236,O08.0 ",.02)

 ;;O08.0

 ;;9002226.02101,"2236,O08.0 ",.03)

 ;;30

 ;;9002226.02101,"2236,O08.1 ",.01)

 ;;O08.1

 ;;9002226.02101,"2236,O08.1 ",.02)

 ;;O08.1

 ;;9002226.02101,"2236,O08.1 ",.03)

 ;;30

ATXFCJ3   ;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,"O99.325 ")

 +2       ;;833

 +3       ;;21,"O99.330 ")

 +4       ;;834

 +5       ;;21,"O99.331 ")

 +6       ;;835

 +7       ;;21,"O99.332 ")

 +8       ;;836

 +9       ;;21,"O99.333 ")

 +10      ;;837

 +11      ;;21,"O99.334 ")

 +12      ;;838

 +13      ;;21,"O99.335 ")

 +14      ;;839

 +15      ;;21,"O99.340 ")

 +16      ;;840

 +17      ;;21,"O99.341 ")

 +18      ;;841

 +19      ;;21,"O99.342 ")

 +20      ;;842

 +21      ;;21,"O99.343 ")

 +22      ;;843

 +23      ;;21,"O99.344 ")

 +24      ;;844

 +25      ;;21,"O99.345 ")

 +26      ;;845

 +27      ;;21,"O99.350 ")

 +28      ;;846

 +29      ;;21,"O99.351 ")

 +30      ;;847

 +31      ;;21,"O99.352 ")

 +32      ;;848

 +33      ;;21,"O99.353 ")

 +34      ;;849

 +35      ;;21,"O99.354 ")

 +36      ;;850

 +37      ;;21,"O99.355 ")

 +38      ;;851

 +39      ;;21,"O99.411 ")

 +40      ;;852

 +41      ;;21,"O99.412 ")

 +42      ;;853

 +43      ;;21,"O99.413 ")

 +44      ;;854

 +45      ;;21,"O99.419 ")

 +46      ;;855

 +47      ;;21,"O99.42 ")

 +48      ;;856

 +49      ;;21,"O99.43 ")

 +50      ;;857

 +51      ;;21,"O99.810 ")

 +52      ;;858

 +53      ;;21,"O99.814 ")

 +54      ;;859

 +55      ;;21,"O99.815 ")

 +56      ;;860

 +57      ;;21,"O99.834 ")

 +58      ;;861

 +59      ;;21,"O99.835 ")

 +60      ;;862

 +61      ;;21,"O99.840 ")

 +62      ;;863

 +63      ;;21,"O99.841 ")

 +64      ;;864

 +65      ;;21,"O99.842 ")

 +66      ;;865

 +67      ;;21,"O99.843 ")

 +68      ;;866

 +69      ;;21,"O99.844 ")

 +70      ;;867

 +71      ;;21,"O99.845 ")

 +72      ;;868

 +73      ;;21,"O99.89 ")

 +74      ;;869

 +75      ;;21,"Z33.1 ")

 +76      ;;870

 +77      ;;21,"Z33.2 ")

 +78      ;;871

 +79      ;;21,"Z33.3 ")

 +80      ;;872

 +81      ;;21,"Z34.00 ")

 +82      ;;873

 +83      ;;21,"Z34.01 ")

 +84      ;;874

 +85      ;;21,"Z34.02 ")

 +86      ;;875

 +87      ;;21,"Z34.03 ")

 +88      ;;876

 +89      ;;21,"Z34.80 ")

 +90      ;;877

 +91      ;;21,"Z34.81 ")

 +92      ;;878

 +93      ;;21,"Z34.82 ")

 +94      ;;879

 +95      ;;21,"Z34.83 ")

 +96      ;;880

 +97      ;;21,"Z34.90 ")

 +98      ;;881

 +99      ;;21,"Z34.91 ")

 +100     ;;882

 +101     ;;21,"Z34.92 ")

 +102     ;;883

 +103     ;;21,"Z34.93 ")

 +104     ;;884

 +105     ;;21,"Z36. ")

 +106     ;;885

 +107     ;;9002226,2236,.01)

 +108     ;;BGP IPC PREGNANCY CMS69 DXS

 +109     ;;9002226,2236,.02)

 +110     ;;@

 +111     ;;9002226,2236,.04)

 +112     ;;n

 +113     ;;9002226,2236,.06)

 +114     ;;@

 +115     ;;9002226,2236,.08)

 +116     ;;@

 +117     ;;9002226,2236,.09)

 +118     ;;3171219

 +119     ;;9002226,2236,.11)

 +120     ;;@

 +121     ;;9002226,2236,.12)

 +122     ;;31

 +123     ;;9002226,2236,.13)

 +124     ;;1

 +125     ;;9002226,2236,.14)

 +126     ;;@

 +127     ;;9002226,2236,.15)

 +128     ;;80

 +129     ;;9002226,2236,.16)

 +130     ;;@

 +131     ;;9002226,2236,.17)

 +132     ;;@

 +133     ;;9002226,2236,.22)

 +134     ;;1

 +135     ;;9002226,2236,3101)

 +136     ;;@

 +137     ;;9002226.02101,"2236,A34. ",.01)

 +138     ;;A34.

 +139     ;;9002226.02101,"2236,A34. ",.02)

 +140     ;;A34.

 +141     ;;9002226.02101,"2236,A34. ",.03)

 +142     ;;30

 +143     ;;9002226.02101,"2236,O00.00 ",.01)

 +144     ;;O00.00

 +145     ;;9002226.02101,"2236,O00.00 ",.02)

 +146     ;;O00.00

 +147     ;;9002226.02101,"2236,O00.00 ",.03)

 +148     ;;30

 +149     ;;9002226.02101,"2236,O00.01 ",.01)

 +150     ;;O00.01

 +151     ;;9002226.02101,"2236,O00.01 ",.02)

 +152     ;;O00.01

 +153     ;;9002226.02101,"2236,O00.01 ",.03)

 +154     ;;30

 +155     ;;9002226.02101,"2236,O00.10 ",.01)

 +156     ;;O00.10

 +157     ;;9002226.02101,"2236,O00.10 ",.02)

 +158     ;;O00.10

 +159     ;;9002226.02101,"2236,O00.10 ",.03)

 +160     ;;30

 +161     ;;9002226.02101,"2236,O00.11 ",.01)

 +162     ;;O00.11

 +163     ;;9002226.02101,"2236,O00.11 ",.02)

 +164     ;;O00.11

 +165     ;;9002226.02101,"2236,O00.11 ",.03)

 +166     ;;30

 +167     ;;9002226.02101,"2236,O00.20 ",.01)

 +168     ;;O00.20

 +169     ;;9002226.02101,"2236,O00.20 ",.02)

 +170     ;;O00.20

 +171     ;;9002226.02101,"2236,O00.20 ",.03)

 +172     ;;30

 +173     ;;9002226.02101,"2236,O00.21 ",.01)

 +174     ;;O00.21

 +175     ;;9002226.02101,"2236,O00.21 ",.02)

 +176     ;;O00.21

 +177     ;;9002226.02101,"2236,O00.21 ",.03)

 +178     ;;30

 +179     ;;9002226.02101,"2236,O00.80 ",.01)

 +180     ;;O00.80

 +181     ;;9002226.02101,"2236,O00.80 ",.02)

 +182     ;;O00.80

 +183     ;;9002226.02101,"2236,O00.80 ",.03)

 +184     ;;30

 +185     ;;9002226.02101,"2236,O00.81 ",.01)

 +186     ;;O00.81

 +187     ;;9002226.02101,"2236,O00.81 ",.02)

 +188     ;;O00.81

 +189     ;;9002226.02101,"2236,O00.81 ",.03)

 +190     ;;30

 +191     ;;9002226.02101,"2236,O00.90 ",.01)

 +192     ;;O00.90

 +193     ;;9002226.02101,"2236,O00.90 ",.02)

 +194     ;;O00.90

 +195     ;;9002226.02101,"2236,O00.90 ",.03)

 +196     ;;30

 +197     ;;9002226.02101,"2236,O00.91 ",.01)

 +198     ;;O00.91

 +199     ;;9002226.02101,"2236,O00.91 ",.02)

 +200     ;;O00.91

 +201     ;;9002226.02101,"2236,O00.91 ",.03)

 +202     ;;30

 +203     ;;9002226.02101,"2236,O01.9 ",.01)

 +204     ;;O01.9

 +205     ;;9002226.02101,"2236,O01.9 ",.02)

 +206     ;;O01.9

 +207     ;;9002226.02101,"2236,O01.9 ",.03)

 +208     ;;30

 +209     ;;9002226.02101,"2236,O02.0 ",.01)

 +210     ;;O02.0

 +211     ;;9002226.02101,"2236,O02.0 ",.02)

 +212     ;;O02.0

 +213     ;;9002226.02101,"2236,O02.0 ",.03)

 +214     ;;30

 +215     ;;9002226.02101,"2236,O02.1 ",.01)

 +216     ;;O02.1

 +217     ;;9002226.02101,"2236,O02.1 ",.02)

 +218     ;;O02.1

 +219     ;;9002226.02101,"2236,O02.1 ",.03)

 +220     ;;30

 +221     ;;9002226.02101,"2236,O03.0 ",.01)

 +222     ;;O03.0

 +223     ;;9002226.02101,"2236,O03.0 ",.02)

 +224     ;;O03.0

 +225     ;;9002226.02101,"2236,O03.0 ",.03)

 +226     ;;30

 +227     ;;9002226.02101,"2236,O03.1 ",.01)

 +228     ;;O03.1

 +229     ;;9002226.02101,"2236,O03.1 ",.02)

 +230     ;;O03.1

 +231     ;;9002226.02101,"2236,O03.1 ",.03)

 +232     ;;30

 +233     ;;9002226.02101,"2236,O03.2 ",.01)

 +234     ;;O03.2

 +235     ;;9002226.02101,"2236,O03.2 ",.02)

 +236     ;;O03.2

 +237     ;;9002226.02101,"2236,O03.2 ",.03)

 +238     ;;30

 +239     ;;9002226.02101,"2236,O03.30 ",.01)

 +240     ;;O03.30

 +241     ;;9002226.02101,"2236,O03.30 ",.02)

 +242     ;;O03.30

 +243     ;;9002226.02101,"2236,O03.30 ",.03)

 +244     ;;30

 +245     ;;9002226.02101,"2236,O03.31 ",.01)

 +246     ;;O03.31

 +247     ;;9002226.02101,"2236,O03.31 ",.02)

 +248     ;;O03.31

 +249     ;;9002226.02101,"2236,O03.31 ",.03)

 +250     ;;30

 +251     ;;9002226.02101,"2236,O03.32 ",.01)

 +252     ;;O03.32

 +253     ;;9002226.02101,"2236,O03.32 ",.02)

 +254     ;;O03.32

 +255     ;;9002226.02101,"2236,O03.32 ",.03)

 +256     ;;30

 +257     ;;9002226.02101,"2236,O03.33 ",.01)

 +258     ;;O03.33

 +259     ;;9002226.02101,"2236,O03.33 ",.02)

 +260     ;;O03.33

 +261     ;;9002226.02101,"2236,O03.33 ",.03)

 +262     ;;30

 +263     ;;9002226.02101,"2236,O03.34 ",.01)

 +264     ;;O03.34

 +265     ;;9002226.02101,"2236,O03.34 ",.02)

 +266     ;;O03.34

 +267     ;;9002226.02101,"2236,O03.34 ",.03)

 +268     ;;30

 +269     ;;9002226.02101,"2236,O03.37 ",.01)

 +270     ;;O03.37

 +271     ;;9002226.02101,"2236,O03.37 ",.02)

 +272     ;;O03.37

 +273     ;;9002226.02101,"2236,O03.37 ",.03)

 +274     ;;30

 +275     ;;9002226.02101,"2236,O03.39 ",.01)

 +276     ;;O03.39

 +277     ;;9002226.02101,"2236,O03.39 ",.02)

 +278     ;;O03.39

 +279     ;;9002226.02101,"2236,O03.39 ",.03)

 +280     ;;30

 +281     ;;9002226.02101,"2236,O03.4 ",.01)

 +282     ;;O03.4

 +283     ;;9002226.02101,"2236,O03.4 ",.02)

 +284     ;;O03.4

 +285     ;;9002226.02101,"2236,O03.4 ",.03)

 +286     ;;30

 +287     ;;9002226.02101,"2236,O03.5 ",.01)

 +288     ;;O03.5

 +289     ;;9002226.02101,"2236,O03.5 ",.02)

 +290     ;;O03.5

 +291     ;;9002226.02101,"2236,O03.5 ",.03)

 +292     ;;30

 +293     ;;9002226.02101,"2236,O03.6 ",.01)

 +294     ;;O03.6

 +295     ;;9002226.02101,"2236,O03.6 ",.02)

 +296     ;;O03.6

 +297     ;;9002226.02101,"2236,O03.6 ",.03)

 +298     ;;30

 +299     ;;9002226.02101,"2236,O03.7 ",.01)

 +300     ;;O03.7

 +301     ;;9002226.02101,"2236,O03.7 ",.02)

 +302     ;;O03.7

 +303     ;;9002226.02101,"2236,O03.7 ",.03)

 +304     ;;30

 +305     ;;9002226.02101,"2236,O03.80 ",.01)

 +306     ;;O03.80

 +307     ;;9002226.02101,"2236,O03.80 ",.02)

 +308     ;;O03.80

 +309     ;;9002226.02101,"2236,O03.80 ",.03)

 +310     ;;30

 +311     ;;9002226.02101,"2236,O03.81 ",.01)

 +312     ;;O03.81

 +313     ;;9002226.02101,"2236,O03.81 ",.02)

 +314     ;;O03.81

 +315     ;;9002226.02101,"2236,O03.81 ",.03)

 +316     ;;30

 +317     ;;9002226.02101,"2236,O03.82 ",.01)

 +318     ;;O03.82

 +319     ;;9002226.02101,"2236,O03.82 ",.02)

 +320     ;;O03.82

 +321     ;;9002226.02101,"2236,O03.82 ",.03)

 +322     ;;30

 +323     ;;9002226.02101,"2236,O03.83 ",.01)

 +324     ;;O03.83

 +325     ;;9002226.02101,"2236,O03.83 ",.02)

 +326     ;;O03.83

 +327     ;;9002226.02101,"2236,O03.83 ",.03)

 +328     ;;30

 +329     ;;9002226.02101,"2236,O03.84 ",.01)

 +330     ;;O03.84

 +331     ;;9002226.02101,"2236,O03.84 ",.02)

 +332     ;;O03.84

 +333     ;;9002226.02101,"2236,O03.84 ",.03)

 +334     ;;30

 +335     ;;9002226.02101,"2236,O03.85 ",.01)

 +336     ;;O03.85

 +337     ;;9002226.02101,"2236,O03.85 ",.02)

 +338     ;;O03.85

 +339     ;;9002226.02101,"2236,O03.85 ",.03)

 +340     ;;30

 +341     ;;9002226.02101,"2236,O03.86 ",.01)

 +342     ;;O03.86

 +343     ;;9002226.02101,"2236,O03.86 ",.02)

 +344     ;;O03.86

 +345     ;;9002226.02101,"2236,O03.86 ",.03)

 +346     ;;30

 +347     ;;9002226.02101,"2236,O03.87 ",.01)

 +348     ;;O03.87

 +349     ;;9002226.02101,"2236,O03.87 ",.02)

 +350     ;;O03.87

 +351     ;;9002226.02101,"2236,O03.87 ",.03)

 +352     ;;30

 +353     ;;9002226.02101,"2236,O03.88 ",.01)

 +354     ;;O03.88

 +355     ;;9002226.02101,"2236,O03.88 ",.02)

 +356     ;;O03.88

 +357     ;;9002226.02101,"2236,O03.88 ",.03)

 +358     ;;30

 +359     ;;9002226.02101,"2236,O03.89 ",.01)

 +360     ;;O03.89

 +361     ;;9002226.02101,"2236,O03.89 ",.02)

 +362     ;;O03.89

 +363     ;;9002226.02101,"2236,O03.89 ",.03)

 +364     ;;30

 +365     ;;9002226.02101,"2236,O03.9 ",.01)

 +366     ;;O03.9

 +367     ;;9002226.02101,"2236,O03.9 ",.02)

 +368     ;;O03.9

 +369     ;;9002226.02101,"2236,O03.9 ",.03)

 +370     ;;30

 +371     ;;9002226.02101,"2236,O04.5 ",.01)

 +372     ;;O04.5

 +373     ;;9002226.02101,"2236,O04.5 ",.02)

 +374     ;;O04.5

 +375     ;;9002226.02101,"2236,O04.5 ",.03)

 +376     ;;30

 +377     ;;9002226.02101,"2236,O04.6 ",.01)

 +378     ;;O04.6

 +379     ;;9002226.02101,"2236,O04.6 ",.02)

 +380     ;;O04.6

 +381     ;;9002226.02101,"2236,O04.6 ",.03)

 +382     ;;30

 +383     ;;9002226.02101,"2236,O04.7 ",.01)

 +384     ;;O04.7

 +385     ;;9002226.02101,"2236,O04.7 ",.02)

 +386     ;;O04.7

 +387     ;;9002226.02101,"2236,O04.7 ",.03)

 +388     ;;30

 +389     ;;9002226.02101,"2236,O04.80 ",.01)

 +390     ;;O04.80

 +391     ;;9002226.02101,"2236,O04.80 ",.02)

 +392     ;;O04.80

 +393     ;;9002226.02101,"2236,O04.80 ",.03)

 +394     ;;30

 +395     ;;9002226.02101,"2236,O04.81 ",.01)

 +396     ;;O04.81

 +397     ;;9002226.02101,"2236,O04.81 ",.02)

 +398     ;;O04.81

 +399     ;;9002226.02101,"2236,O04.81 ",.03)

 +400     ;;30

 +401     ;;9002226.02101,"2236,O04.82 ",.01)

 +402     ;;O04.82

 +403     ;;9002226.02101,"2236,O04.82 ",.02)

 +404     ;;O04.82

 +405     ;;9002226.02101,"2236,O04.82 ",.03)

 +406     ;;30

 +407     ;;9002226.02101,"2236,O04.83 ",.01)

 +408     ;;O04.83

 +409     ;;9002226.02101,"2236,O04.83 ",.02)

 +410     ;;O04.83

 +411     ;;9002226.02101,"2236,O04.83 ",.03)

 +412     ;;30

 +413     ;;9002226.02101,"2236,O04.84 ",.01)

 +414     ;;O04.84

 +415     ;;9002226.02101,"2236,O04.84 ",.02)

 +416     ;;O04.84

 +417     ;;9002226.02101,"2236,O04.84 ",.03)

 +418     ;;30

 +419     ;;9002226.02101,"2236,O04.85 ",.01)

 +420     ;;O04.85

 +421     ;;9002226.02101,"2236,O04.85 ",.02)

 +422     ;;O04.85

 +423     ;;9002226.02101,"2236,O04.85 ",.03)

 +424     ;;30

 +425     ;;9002226.02101,"2236,O04.86 ",.01)

 +426     ;;O04.86

 +427     ;;9002226.02101,"2236,O04.86 ",.02)

 +428     ;;O04.86

 +429     ;;9002226.02101,"2236,O04.86 ",.03)

 +430     ;;30

 +431     ;;9002226.02101,"2236,O04.87 ",.01)

 +432     ;;O04.87

 +433     ;;9002226.02101,"2236,O04.87 ",.02)

 +434     ;;O04.87

 +435     ;;9002226.02101,"2236,O04.87 ",.03)

 +436     ;;30

 +437     ;;9002226.02101,"2236,O04.88 ",.01)

 +438     ;;O04.88

 +439     ;;9002226.02101,"2236,O04.88 ",.02)

 +440     ;;O04.88

 +441     ;;9002226.02101,"2236,O04.88 ",.03)

 +442     ;;30

 +443     ;;9002226.02101,"2236,O04.89 ",.01)

 +444     ;;O04.89

 +445     ;;9002226.02101,"2236,O04.89 ",.02)

 +446     ;;O04.89

 +447     ;;9002226.02101,"2236,O04.89 ",.03)

 +448     ;;30

 +449     ;;9002226.02101,"2236,O07.0 ",.01)

 +450     ;;O07.0

 +451     ;;9002226.02101,"2236,O07.0 ",.02)

 +452     ;;O07.0

 +453     ;;9002226.02101,"2236,O07.0 ",.03)

 +454     ;;30

 +455     ;;9002226.02101,"2236,O07.1 ",.01)

 +456     ;;O07.1

 +457     ;;9002226.02101,"2236,O07.1 ",.02)

 +458     ;;O07.1

 +459     ;;9002226.02101,"2236,O07.1 ",.03)

 +460     ;;30

 +461     ;;9002226.02101,"2236,O07.2 ",.01)

 +462     ;;O07.2

 +463     ;;9002226.02101,"2236,O07.2 ",.02)

 +464     ;;O07.2

 +465     ;;9002226.02101,"2236,O07.2 ",.03)

 +466     ;;30

 +467     ;;9002226.02101,"2236,O07.30 ",.01)

 +468     ;;O07.30

 +469     ;;9002226.02101,"2236,O07.30 ",.02)

 +470     ;;O07.30

 +471     ;;9002226.02101,"2236,O07.30 ",.03)

 +472     ;;30

 +473     ;;9002226.02101,"2236,O07.31 ",.01)

 +474     ;;O07.31

 +475     ;;9002226.02101,"2236,O07.31 ",.02)

 +476     ;;O07.31

 +477     ;;9002226.02101,"2236,O07.31 ",.03)

 +478     ;;30

 +479     ;;9002226.02101,"2236,O07.32 ",.01)

 +480     ;;O07.32

 +481     ;;9002226.02101,"2236,O07.32 ",.02)

 +482     ;;O07.32

 +483     ;;9002226.02101,"2236,O07.32 ",.03)

 +484     ;;30

 +485     ;;9002226.02101,"2236,O07.33 ",.01)

 +486     ;;O07.33

 +487     ;;9002226.02101,"2236,O07.33 ",.02)

 +488     ;;O07.33

 +489     ;;9002226.02101,"2236,O07.33 ",.03)

 +490     ;;30

 +491     ;;9002226.02101,"2236,O07.34 ",.01)

 +492     ;;O07.34

 +493     ;;9002226.02101,"2236,O07.34 ",.02)

 +494     ;;O07.34

 +495     ;;9002226.02101,"2236,O07.34 ",.03)

 +496     ;;30

 +497     ;;9002226.02101,"2236,O07.35 ",.01)

 +498     ;;O07.35

 +499     ;;9002226.02101,"2236,O07.35 ",.02)

 +500     ;;O07.35

 +501     ;;9002226.02101,"2236,O07.35 ",.03)

 +502     ;;30

 +503     ;;9002226.02101,"2236,O07.36 ",.01)

 +504     ;;O07.36

 +505     ;;9002226.02101,"2236,O07.36 ",.02)

 +506     ;;O07.36

 +507     ;;9002226.02101,"2236,O07.36 ",.03)

 +508     ;;30

 +509     ;;9002226.02101,"2236,O07.37 ",.01)

 +510     ;;O07.37

 +511     ;;9002226.02101,"2236,O07.37 ",.02)

 +512     ;;O07.37

 +513     ;;9002226.02101,"2236,O07.37 ",.03)

 +514     ;;30

 +515     ;;9002226.02101,"2236,O07.38 ",.01)

 +516     ;;O07.38

 +517     ;;9002226.02101,"2236,O07.38 ",.02)

 +518     ;;O07.38

 +519     ;;9002226.02101,"2236,O07.38 ",.03)

 +520     ;;30

 +521     ;;9002226.02101,"2236,O07.39 ",.01)

 +522     ;;O07.39

 +523     ;;9002226.02101,"2236,O07.39 ",.02)

 +524     ;;O07.39

 +525     ;;9002226.02101,"2236,O07.39 ",.03)

 +526     ;;30

 +527     ;;9002226.02101,"2236,O07.4 ",.01)

 +528     ;;O07.4

 +529     ;;9002226.02101,"2236,O07.4 ",.02)

 +530     ;;O07.4

 +531     ;;9002226.02101,"2236,O07.4 ",.03)

 +532     ;;30

 +533     ;;9002226.02101,"2236,O08.0 ",.01)

 +534     ;;O08.0

 +535     ;;9002226.02101,"2236,O08.0 ",.02)

 +536     ;;O08.0

 +537     ;;9002226.02101,"2236,O08.0 ",.03)

 +538     ;;30

 +539     ;;9002226.02101,"2236,O08.1 ",.01)

 +540     ;;O08.1

 +541     ;;9002226.02101,"2236,O08.1 ",.02)

 +542     ;;O08.1

 +543     ;;9002226.02101,"2236,O08.1 ",.03)

 +544     ;;30

ATXFCJ3.m