BGP7JXFD.m

BGP7JXFD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;

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)

 ;;9002226.02101,"549,40162-0 ",.01)

 ;;40162-0

 ;;9002226.02101,"549,40162-0 ",.02)

 ;;40162-0

 ;;9002226.02101,"549,40163-8 ",.01)

 ;;40163-8

 ;;9002226.02101,"549,40163-8 ",.02)

 ;;40163-8

 ;;9002226.02101,"549,40164-6 ",.01)

 ;;40164-6

 ;;9002226.02101,"549,40164-6 ",.02)

 ;;40164-6

 ;;9002226.02101,"549,40165-3 ",.01)

 ;;40165-3

 ;;9002226.02101,"549,40165-3 ",.02)

 ;;40165-3

 ;;9002226.02101,"549,40166-1 ",.01)

 ;;40166-1

 ;;9002226.02101,"549,40166-1 ",.02)

 ;;40166-1

 ;;9002226.02101,"549,40167-9 ",.01)

 ;;40167-9

 ;;9002226.02101,"549,40167-9 ",.02)

 ;;40167-9

 ;;9002226.02101,"549,40168-7 ",.01)

 ;;40168-7

 ;;9002226.02101,"549,40168-7 ",.02)

 ;;40168-7

 ;;9002226.02101,"549,40169-5 ",.01)

 ;;40169-5

 ;;9002226.02101,"549,40169-5 ",.02)

 ;;40169-5

 ;;9002226.02101,"549,40170-3 ",.01)

 ;;40170-3

 ;;9002226.02101,"549,40170-3 ",.02)

 ;;40170-3

 ;;9002226.02101,"549,40171-1 ",.01)

 ;;40171-1

 ;;9002226.02101,"549,40171-1 ",.02)

 ;;40171-1

 ;;9002226.02101,"549,40172-9 ",.01)

 ;;40172-9

 ;;9002226.02101,"549,40172-9 ",.02)

 ;;40172-9

 ;;9002226.02101,"549,40173-7 ",.01)

 ;;40173-7

 ;;9002226.02101,"549,40173-7 ",.02)

 ;;40173-7

 ;;9002226.02101,"549,40174-5 ",.01)

 ;;40174-5

 ;;9002226.02101,"549,40174-5 ",.02)

 ;;40174-5

 ;;9002226.02101,"549,40175-2 ",.01)

 ;;40175-2

 ;;9002226.02101,"549,40175-2 ",.02)

 ;;40175-2

 ;;9002226.02101,"549,40176-0 ",.01)

 ;;40176-0

 ;;9002226.02101,"549,40176-0 ",.02)

 ;;40176-0

 ;;9002226.02101,"549,40177-8 ",.01)

 ;;40177-8

 ;;9002226.02101,"549,40177-8 ",.02)

 ;;40177-8

 ;;9002226.02101,"549,40178-6 ",.01)

 ;;40178-6

 ;;9002226.02101,"549,40178-6 ",.02)

 ;;40178-6

 ;;9002226.02101,"549,40179-4 ",.01)

 ;;40179-4

 ;;9002226.02101,"549,40179-4 ",.02)

 ;;40179-4

 ;;9002226.02101,"549,40180-2 ",.01)

 ;;40180-2

 ;;9002226.02101,"549,40180-2 ",.02)

 ;;40180-2

 ;;9002226.02101,"549,40181-0 ",.01)

 ;;40181-0

 ;;9002226.02101,"549,40181-0 ",.02)

 ;;40181-0

 ;;9002226.02101,"549,40182-8 ",.01)

 ;;40182-8

 ;;9002226.02101,"549,40182-8 ",.02)

 ;;40182-8

 ;;9002226.02101,"549,40183-6 ",.01)

 ;;40183-6

 ;;9002226.02101,"549,40183-6 ",.02)

 ;;40183-6

 ;;9002226.02101,"549,40184-4 ",.01)

 ;;40184-4

 ;;9002226.02101,"549,40184-4 ",.02)

 ;;40184-4

 ;;9002226.02101,"549,40185-1 ",.01)

 ;;40185-1

 ;;9002226.02101,"549,40185-1 ",.02)

 ;;40185-1

 ;;9002226.02101,"549,40186-9 ",.01)

 ;;40186-9

 ;;9002226.02101,"549,40186-9 ",.02)

 ;;40186-9

 ;;9002226.02101,"549,40187-7 ",.01)

 ;;40187-7

 ;;9002226.02101,"549,40187-7 ",.02)

 ;;40187-7

 ;;9002226.02101,"549,40188-5 ",.01)

 ;;40188-5

 ;;9002226.02101,"549,40188-5 ",.02)

 ;;40188-5

 ;;9002226.02101,"549,40189-3 ",.01)

 ;;40189-3

 ;;9002226.02101,"549,40189-3 ",.02)

 ;;40189-3

 ;;9002226.02101,"549,40190-1 ",.01)

 ;;40190-1

 ;;9002226.02101,"549,40190-1 ",.02)

 ;;40190-1

 ;;9002226.02101,"549,40191-9 ",.01)

 ;;40191-9

 ;;9002226.02101,"549,40191-9 ",.02)

 ;;40191-9

 ;;9002226.02101,"549,40192-7 ",.01)

 ;;40192-7

 ;;9002226.02101,"549,40192-7 ",.02)

 ;;40192-7

 ;;9002226.02101,"549,40193-5 ",.01)

 ;;40193-5

 ;;9002226.02101,"549,40193-5 ",.02)

 ;;40193-5

 ;;9002226.02101,"549,40194-3 ",.01)

 ;;40194-3

 ;;9002226.02101,"549,40194-3 ",.02)

 ;;40194-3

 ;;9002226.02101,"549,40195-0 ",.01)

 ;;40195-0

 ;;9002226.02101,"549,40195-0 ",.02)

 ;;40195-0

 ;;9002226.02101,"549,40196-8 ",.01)

 ;;40196-8

 ;;9002226.02101,"549,40196-8 ",.02)

 ;;40196-8

 ;;9002226.02101,"549,40197-6 ",.01)

 ;;40197-6

 ;;9002226.02101,"549,40197-6 ",.02)

 ;;40197-6

 ;;9002226.02101,"549,40198-4 ",.01)

 ;;40198-4

 ;;9002226.02101,"549,40198-4 ",.02)

 ;;40198-4

 ;;9002226.02101,"549,40199-2 ",.01)

 ;;40199-2

 ;;9002226.02101,"549,40199-2 ",.02)

 ;;40199-2

 ;;9002226.02101,"549,40200-8 ",.01)

 ;;40200-8

 ;;9002226.02101,"549,40200-8 ",.02)

 ;;40200-8

 ;;9002226.02101,"549,40201-6 ",.01)

 ;;40201-6

 ;;9002226.02101,"549,40201-6 ",.02)

 ;;40201-6

 ;;9002226.02101,"549,40202-4 ",.01)

 ;;40202-4

 ;;9002226.02101,"549,40202-4 ",.02)

 ;;40202-4

 ;;9002226.02101,"549,40203-2 ",.01)

 ;;40203-2

 ;;9002226.02101,"549,40203-2 ",.02)

 ;;40203-2

 ;;9002226.02101,"549,40204-0 ",.01)

 ;;40204-0

 ;;9002226.02101,"549,40204-0 ",.02)

 ;;40204-0

 ;;9002226.02101,"549,40205-7 ",.01)

 ;;40205-7

 ;;9002226.02101,"549,40205-7 ",.02)

 ;;40205-7

 ;;9002226.02101,"549,40206-5 ",.01)

 ;;40206-5

 ;;9002226.02101,"549,40206-5 ",.02)

 ;;40206-5

 ;;9002226.02101,"549,40207-3 ",.01)

 ;;40207-3

 ;;9002226.02101,"549,40207-3 ",.02)

 ;;40207-3

 ;;9002226.02101,"549,40208-1 ",.01)

 ;;40208-1

 ;;9002226.02101,"549,40208-1 ",.02)

 ;;40208-1

 ;;9002226.02101,"549,40209-9 ",.01)

 ;;40209-9

 ;;9002226.02101,"549,40209-9 ",.02)

 ;;40209-9

 ;;9002226.02101,"549,40210-7 ",.01)

 ;;40210-7

 ;;9002226.02101,"549,40210-7 ",.02)

 ;;40210-7

 ;;9002226.02101,"549,40211-5 ",.01)

 ;;40211-5

 ;;9002226.02101,"549,40211-5 ",.02)

 ;;40211-5

 ;;9002226.02101,"549,40212-3 ",.01)

 ;;40212-3

 ;;9002226.02101,"549,40212-3 ",.02)

 ;;40212-3

 ;;9002226.02101,"549,40213-1 ",.01)

 ;;40213-1

 ;;9002226.02101,"549,40213-1 ",.02)

 ;;40213-1

 ;;9002226.02101,"549,40214-9 ",.01)

 ;;40214-9

 ;;9002226.02101,"549,40214-9 ",.02)

 ;;40214-9

 ;;9002226.02101,"549,40215-6 ",.01)

 ;;40215-6

 ;;9002226.02101,"549,40215-6 ",.02)

 ;;40215-6

 ;;9002226.02101,"549,40216-4 ",.01)

 ;;40216-4

 ;;9002226.02101,"549,40216-4 ",.02)

 ;;40216-4

 ;;9002226.02101,"549,40217-2 ",.01)

 ;;40217-2

 ;;9002226.02101,"549,40217-2 ",.02)

 ;;40217-2

 ;;9002226.02101,"549,40218-0 ",.01)

 ;;40218-0

 ;;9002226.02101,"549,40218-0 ",.02)

 ;;40218-0

 ;;9002226.02101,"549,40219-8 ",.01)

 ;;40219-8

 ;;9002226.02101,"549,40219-8 ",.02)

 ;;40219-8

 ;;9002226.02101,"549,40220-6 ",.01)

 ;;40220-6

 ;;9002226.02101,"549,40220-6 ",.02)

 ;;40220-6

 ;;9002226.02101,"549,40221-4 ",.01)

 ;;40221-4

 ;;9002226.02101,"549,40221-4 ",.02)

 ;;40221-4

 ;;9002226.02101,"549,40222-2 ",.01)

 ;;40222-2

 ;;9002226.02101,"549,40222-2 ",.02)

 ;;40222-2

 ;;9002226.02101,"549,40259-4 ",.01)

 ;;40259-4

 ;;9002226.02101,"549,40259-4 ",.02)

 ;;40259-4

 ;;9002226.02101,"549,40260-2 ",.01)

 ;;40260-2

 ;;9002226.02101,"549,40260-2 ",.02)

 ;;40260-2

 ;;9002226.02101,"549,40261-0 ",.01)

 ;;40261-0

 ;;9002226.02101,"549,40261-0 ",.02)

 ;;40261-0

 ;;9002226.02101,"549,40262-8 ",.01)

 ;;40262-8

 ;;9002226.02101,"549,40262-8 ",.02)

 ;;40262-8

 ;;9002226.02101,"549,40263-6 ",.01)

 ;;40263-6

 ;;9002226.02101,"549,40263-6 ",.02)

 ;;40263-6

 ;;9002226.02101,"549,40276-8 ",.01)

 ;;40276-8

 ;;9002226.02101,"549,40276-8 ",.02)

 ;;40276-8

 ;;9002226.02101,"549,40277-6 ",.01)

 ;;40277-6

 ;;9002226.02101,"549,40277-6 ",.02)

 ;;40277-6

 ;;9002226.02101,"549,40278-4 ",.01)

 ;;40278-4

 ;;9002226.02101,"549,40278-4 ",.02)

 ;;40278-4

 ;;9002226.02101,"549,40279-2 ",.01)

 ;;40279-2

 ;;9002226.02101,"549,40279-2 ",.02)

 ;;40279-2

 ;;9002226.02101,"549,40280-0 ",.01)

 ;;40280-0

 ;;9002226.02101,"549,40280-0 ",.02)

 ;;40280-0

 ;;9002226.02101,"549,40285-9 ",.01)

 ;;40285-9

 ;;9002226.02101,"549,40285-9 ",.02)

 ;;40285-9

 ;;9002226.02101,"549,40286-7 ",.01)

 ;;40286-7

 ;;9002226.02101,"549,40286-7 ",.02)

 ;;40286-7

 ;;9002226.02101,"549,40287-5 ",.01)

 ;;40287-5

 ;;9002226.02101,"549,40287-5 ",.02)

 ;;40287-5

 ;;9002226.02101,"549,40318-8 ",.01)

 ;;40318-8

 ;;9002226.02101,"549,40318-8 ",.02)

 ;;40318-8

 ;;9002226.02101,"549,40319-6 ",.01)

 ;;40319-6

 ;;9002226.02101,"549,40319-6 ",.02)

 ;;40319-6

 ;;9002226.02101,"549,40320-4 ",.01)

 ;;40320-4

 ;;9002226.02101,"549,40320-4 ",.02)

 ;;40320-4

 ;;9002226.02101,"549,40321-2 ",.01)

 ;;40321-2

 ;;9002226.02101,"549,40321-2 ",.02)

 ;;40321-2

 ;;9002226.02101,"549,40322-0 ",.01)

 ;;40322-0

 ;;9002226.02101,"549,40322-0 ",.02)

 ;;40322-0

 ;;9002226.02101,"549,40323-8 ",.01)

 ;;40323-8

 ;;9002226.02101,"549,40323-8 ",.02)

 ;;40323-8

 ;;9002226.02101,"549,40324-6 ",.01)

 ;;40324-6

 ;;9002226.02101,"549,40324-6 ",.02)

 ;;40324-6

 ;;9002226.02101,"549,40858-3 ",.01)

 ;;40858-3

 ;;9002226.02101,"549,40858-3 ",.02)

 ;;40858-3

 ;;9002226.02101,"549,41024-1 ",.01)

 ;;41024-1

 ;;9002226.02101,"549,41024-1 ",.02)

 ;;41024-1

 ;;9002226.02101,"549,41604-0 ",.01)

 ;;41604-0

 ;;9002226.02101,"549,41604-0 ",.02)

 ;;41604-0

 ;;9002226.02101,"549,41651-1 ",.01)

 ;;41651-1

 ;;9002226.02101,"549,41651-1 ",.02)

 ;;41651-1

 ;;9002226.02101,"549,41652-9 ",.01)

 ;;41652-9

 ;;9002226.02101,"549,41652-9 ",.02)

 ;;41652-9

 ;;9002226.02101,"549,41653-7 ",.01)

 ;;41653-7

 ;;9002226.02101,"549,41653-7 ",.02)

 ;;41653-7

 ;;9002226.02101,"549,43740-0 ",.01)

 ;;43740-0

 ;;9002226.02101,"549,43740-0 ",.02)

 ;;43740-0

 ;;9002226.02101,"549,44919-9 ",.01)

 ;;44919-9

 ;;9002226.02101,"549,44919-9 ",.02)

 ;;44919-9

 ;;9002226.02101,"549,45052-8 ",.01)

 ;;45052-8

 ;;9002226.02101,"549,45052-8 ",.02)

 ;;45052-8

 ;;9002226.02101,"549,45053-6 ",.01)

 ;;45053-6

 ;;9002226.02101,"549,45053-6 ",.02)

 ;;45053-6

 ;;9002226.02101,"549,45054-4 ",.01)

 ;;45054-4

 ;;9002226.02101,"549,45054-4 ",.02)

 ;;45054-4

 ;;9002226.02101,"549,45055-1 ",.01)

 ;;45055-1

 ;;9002226.02101,"549,45055-1 ",.02)

 ;;45055-1

 ;;9002226.02101,"549,45056-9 ",.01)

 ;;45056-9

 ;;9002226.02101,"549,45056-9 ",.02)

 ;;45056-9

 ;;9002226.02101,"549,45298-7 ",.01)

 ;;45298-7

 ;;9002226.02101,"549,45298-7 ",.02)

 ;;45298-7

 ;;9002226.02101,"549,45299-5 ",.01)

 ;;45299-5

 ;;9002226.02101,"549,45299-5 ",.02)

 ;;45299-5

 ;;9002226.02101,"549,5914-7 ",.01)

 ;;5914-7

 ;;9002226.02101,"549,5914-7 ",.02)

 ;;5914-7

 ;;9002226.02101,"549,6689-4 ",.01)

 ;;6689-4

 ;;9002226.02101,"549,6689-4 ",.02)

 ;;6689-4

 ;;9002226.02101,"549,6749-6 ",.01)

 ;;6749-6

 ;;9002226.02101,"549,6749-6 ",.02)

 ;;6749-6

 ;;9002226.02101,"549,6752-0 ",.01)

 ;;6752-0

 ;;9002226.02101,"549,6752-0 ",.02)

 ;;6752-0

 ;;9002226.02101,"549,6756-1 ",.01)

 ;;6756-1

 ;;9002226.02101,"549,6756-1 ",.02)

 ;;6756-1

 ;;9002226.02101,"549,6760-3 ",.01)

 ;;6760-3

 ;;9002226.02101,"549,6760-3 ",.02)

 ;;6760-3

 ;;9002226.02101,"549,6762-9 ",.01)

 ;;6762-9

 ;;9002226.02101,"549,6762-9 ",.02)

 ;;6762-9

 ;;9002226.02101,"549,6777-7 ",.01)

 ;;6777-7

 ;;9002226.02101,"549,6777-7 ",.02)

 ;;6777-7

 ;;9002226.02101,"549,9375-7 ",.01)

 ;;9375-7

 ;;9002226.02101,"549,9375-7 ",.02)

 ;;9375-7

 ;;9002226.02101,"549,9376-5 ",.01)

 ;;9376-5

 ;;9002226.02101,"549,9376-5 ",.02)

 ;;9376-5

 ;;9002226.02101,"549,9377-3 ",.01)

 ;;9377-3

 ;;9002226.02101,"549,9377-3 ",.02)

 ;;9377-3

 ;;9002226.02101,"549,9378-1 ",.01)

 ;;9378-1

 ;;9002226.02101,"549,9378-1 ",.02)

 ;;9378-1

BGP7JXFD  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +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       ;;9002226.02101,"549,40162-0 ",.01)

 +2       ;;40162-0

 +3       ;;9002226.02101,"549,40162-0 ",.02)

 +4       ;;40162-0

 +5       ;;9002226.02101,"549,40163-8 ",.01)

 +6       ;;40163-8

 +7       ;;9002226.02101,"549,40163-8 ",.02)

 +8       ;;40163-8

 +9       ;;9002226.02101,"549,40164-6 ",.01)

 +10      ;;40164-6

 +11      ;;9002226.02101,"549,40164-6 ",.02)

 +12      ;;40164-6

 +13      ;;9002226.02101,"549,40165-3 ",.01)

 +14      ;;40165-3

 +15      ;;9002226.02101,"549,40165-3 ",.02)

 +16      ;;40165-3

 +17      ;;9002226.02101,"549,40166-1 ",.01)

 +18      ;;40166-1

 +19      ;;9002226.02101,"549,40166-1 ",.02)

 +20      ;;40166-1

 +21      ;;9002226.02101,"549,40167-9 ",.01)

 +22      ;;40167-9

 +23      ;;9002226.02101,"549,40167-9 ",.02)

 +24      ;;40167-9

 +25      ;;9002226.02101,"549,40168-7 ",.01)

 +26      ;;40168-7

 +27      ;;9002226.02101,"549,40168-7 ",.02)

 +28      ;;40168-7

 +29      ;;9002226.02101,"549,40169-5 ",.01)

 +30      ;;40169-5

 +31      ;;9002226.02101,"549,40169-5 ",.02)

 +32      ;;40169-5

 +33      ;;9002226.02101,"549,40170-3 ",.01)

 +34      ;;40170-3

 +35      ;;9002226.02101,"549,40170-3 ",.02)

 +36      ;;40170-3

 +37      ;;9002226.02101,"549,40171-1 ",.01)

 +38      ;;40171-1

 +39      ;;9002226.02101,"549,40171-1 ",.02)

 +40      ;;40171-1

 +41      ;;9002226.02101,"549,40172-9 ",.01)

 +42      ;;40172-9

 +43      ;;9002226.02101,"549,40172-9 ",.02)

 +44      ;;40172-9

 +45      ;;9002226.02101,"549,40173-7 ",.01)

 +46      ;;40173-7

 +47      ;;9002226.02101,"549,40173-7 ",.02)

 +48      ;;40173-7

 +49      ;;9002226.02101,"549,40174-5 ",.01)

 +50      ;;40174-5

 +51      ;;9002226.02101,"549,40174-5 ",.02)

 +52      ;;40174-5

 +53      ;;9002226.02101,"549,40175-2 ",.01)

 +54      ;;40175-2

 +55      ;;9002226.02101,"549,40175-2 ",.02)

 +56      ;;40175-2

 +57      ;;9002226.02101,"549,40176-0 ",.01)

 +58      ;;40176-0

 +59      ;;9002226.02101,"549,40176-0 ",.02)

 +60      ;;40176-0

 +61      ;;9002226.02101,"549,40177-8 ",.01)

 +62      ;;40177-8

 +63      ;;9002226.02101,"549,40177-8 ",.02)

 +64      ;;40177-8

 +65      ;;9002226.02101,"549,40178-6 ",.01)

 +66      ;;40178-6

 +67      ;;9002226.02101,"549,40178-6 ",.02)

 +68      ;;40178-6

 +69      ;;9002226.02101,"549,40179-4 ",.01)

 +70      ;;40179-4

 +71      ;;9002226.02101,"549,40179-4 ",.02)

 +72      ;;40179-4

 +73      ;;9002226.02101,"549,40180-2 ",.01)

 +74      ;;40180-2

 +75      ;;9002226.02101,"549,40180-2 ",.02)

 +76      ;;40180-2

 +77      ;;9002226.02101,"549,40181-0 ",.01)

 +78      ;;40181-0

 +79      ;;9002226.02101,"549,40181-0 ",.02)

 +80      ;;40181-0

 +81      ;;9002226.02101,"549,40182-8 ",.01)

 +82      ;;40182-8

 +83      ;;9002226.02101,"549,40182-8 ",.02)

 +84      ;;40182-8

 +85      ;;9002226.02101,"549,40183-6 ",.01)

 +86      ;;40183-6

 +87      ;;9002226.02101,"549,40183-6 ",.02)

 +88      ;;40183-6

 +89      ;;9002226.02101,"549,40184-4 ",.01)

 +90      ;;40184-4

 +91      ;;9002226.02101,"549,40184-4 ",.02)

 +92      ;;40184-4

 +93      ;;9002226.02101,"549,40185-1 ",.01)

 +94      ;;40185-1

 +95      ;;9002226.02101,"549,40185-1 ",.02)

 +96      ;;40185-1

 +97      ;;9002226.02101,"549,40186-9 ",.01)

 +98      ;;40186-9

 +99      ;;9002226.02101,"549,40186-9 ",.02)

 +100     ;;40186-9

 +101     ;;9002226.02101,"549,40187-7 ",.01)

 +102     ;;40187-7

 +103     ;;9002226.02101,"549,40187-7 ",.02)

 +104     ;;40187-7

 +105     ;;9002226.02101,"549,40188-5 ",.01)

 +106     ;;40188-5

 +107     ;;9002226.02101,"549,40188-5 ",.02)

 +108     ;;40188-5

 +109     ;;9002226.02101,"549,40189-3 ",.01)

 +110     ;;40189-3

 +111     ;;9002226.02101,"549,40189-3 ",.02)

 +112     ;;40189-3

 +113     ;;9002226.02101,"549,40190-1 ",.01)

 +114     ;;40190-1

 +115     ;;9002226.02101,"549,40190-1 ",.02)

 +116     ;;40190-1

 +117     ;;9002226.02101,"549,40191-9 ",.01)

 +118     ;;40191-9

 +119     ;;9002226.02101,"549,40191-9 ",.02)

 +120     ;;40191-9

 +121     ;;9002226.02101,"549,40192-7 ",.01)

 +122     ;;40192-7

 +123     ;;9002226.02101,"549,40192-7 ",.02)

 +124     ;;40192-7

 +125     ;;9002226.02101,"549,40193-5 ",.01)

 +126     ;;40193-5

 +127     ;;9002226.02101,"549,40193-5 ",.02)

 +128     ;;40193-5

 +129     ;;9002226.02101,"549,40194-3 ",.01)

 +130     ;;40194-3

 +131     ;;9002226.02101,"549,40194-3 ",.02)

 +132     ;;40194-3

 +133     ;;9002226.02101,"549,40195-0 ",.01)

 +134     ;;40195-0

 +135     ;;9002226.02101,"549,40195-0 ",.02)

 +136     ;;40195-0

 +137     ;;9002226.02101,"549,40196-8 ",.01)

 +138     ;;40196-8

 +139     ;;9002226.02101,"549,40196-8 ",.02)

 +140     ;;40196-8

 +141     ;;9002226.02101,"549,40197-6 ",.01)

 +142     ;;40197-6

 +143     ;;9002226.02101,"549,40197-6 ",.02)

 +144     ;;40197-6

 +145     ;;9002226.02101,"549,40198-4 ",.01)

 +146     ;;40198-4

 +147     ;;9002226.02101,"549,40198-4 ",.02)

 +148     ;;40198-4

 +149     ;;9002226.02101,"549,40199-2 ",.01)

 +150     ;;40199-2

 +151     ;;9002226.02101,"549,40199-2 ",.02)

 +152     ;;40199-2

 +153     ;;9002226.02101,"549,40200-8 ",.01)

 +154     ;;40200-8

 +155     ;;9002226.02101,"549,40200-8 ",.02)

 +156     ;;40200-8

 +157     ;;9002226.02101,"549,40201-6 ",.01)

 +158     ;;40201-6

 +159     ;;9002226.02101,"549,40201-6 ",.02)

 +160     ;;40201-6

 +161     ;;9002226.02101,"549,40202-4 ",.01)

 +162     ;;40202-4

 +163     ;;9002226.02101,"549,40202-4 ",.02)

 +164     ;;40202-4

 +165     ;;9002226.02101,"549,40203-2 ",.01)

 +166     ;;40203-2

 +167     ;;9002226.02101,"549,40203-2 ",.02)

 +168     ;;40203-2

 +169     ;;9002226.02101,"549,40204-0 ",.01)

 +170     ;;40204-0

 +171     ;;9002226.02101,"549,40204-0 ",.02)

 +172     ;;40204-0

 +173     ;;9002226.02101,"549,40205-7 ",.01)

 +174     ;;40205-7

 +175     ;;9002226.02101,"549,40205-7 ",.02)

 +176     ;;40205-7

 +177     ;;9002226.02101,"549,40206-5 ",.01)

 +178     ;;40206-5

 +179     ;;9002226.02101,"549,40206-5 ",.02)

 +180     ;;40206-5

 +181     ;;9002226.02101,"549,40207-3 ",.01)

 +182     ;;40207-3

 +183     ;;9002226.02101,"549,40207-3 ",.02)

 +184     ;;40207-3

 +185     ;;9002226.02101,"549,40208-1 ",.01)

 +186     ;;40208-1

 +187     ;;9002226.02101,"549,40208-1 ",.02)

 +188     ;;40208-1

 +189     ;;9002226.02101,"549,40209-9 ",.01)

 +190     ;;40209-9

 +191     ;;9002226.02101,"549,40209-9 ",.02)

 +192     ;;40209-9

 +193     ;;9002226.02101,"549,40210-7 ",.01)

 +194     ;;40210-7

 +195     ;;9002226.02101,"549,40210-7 ",.02)

 +196     ;;40210-7

 +197     ;;9002226.02101,"549,40211-5 ",.01)

 +198     ;;40211-5

 +199     ;;9002226.02101,"549,40211-5 ",.02)

 +200     ;;40211-5

 +201     ;;9002226.02101,"549,40212-3 ",.01)

 +202     ;;40212-3

 +203     ;;9002226.02101,"549,40212-3 ",.02)

 +204     ;;40212-3

 +205     ;;9002226.02101,"549,40213-1 ",.01)

 +206     ;;40213-1

 +207     ;;9002226.02101,"549,40213-1 ",.02)

 +208     ;;40213-1

 +209     ;;9002226.02101,"549,40214-9 ",.01)

 +210     ;;40214-9

 +211     ;;9002226.02101,"549,40214-9 ",.02)

 +212     ;;40214-9

 +213     ;;9002226.02101,"549,40215-6 ",.01)

 +214     ;;40215-6

 +215     ;;9002226.02101,"549,40215-6 ",.02)

 +216     ;;40215-6

 +217     ;;9002226.02101,"549,40216-4 ",.01)

 +218     ;;40216-4

 +219     ;;9002226.02101,"549,40216-4 ",.02)

 +220     ;;40216-4

 +221     ;;9002226.02101,"549,40217-2 ",.01)

 +222     ;;40217-2

 +223     ;;9002226.02101,"549,40217-2 ",.02)

 +224     ;;40217-2

 +225     ;;9002226.02101,"549,40218-0 ",.01)

 +226     ;;40218-0

 +227     ;;9002226.02101,"549,40218-0 ",.02)

 +228     ;;40218-0

 +229     ;;9002226.02101,"549,40219-8 ",.01)

 +230     ;;40219-8

 +231     ;;9002226.02101,"549,40219-8 ",.02)

 +232     ;;40219-8

 +233     ;;9002226.02101,"549,40220-6 ",.01)

 +234     ;;40220-6

 +235     ;;9002226.02101,"549,40220-6 ",.02)

 +236     ;;40220-6

 +237     ;;9002226.02101,"549,40221-4 ",.01)

 +238     ;;40221-4

 +239     ;;9002226.02101,"549,40221-4 ",.02)

 +240     ;;40221-4

 +241     ;;9002226.02101,"549,40222-2 ",.01)

 +242     ;;40222-2

 +243     ;;9002226.02101,"549,40222-2 ",.02)

 +244     ;;40222-2

 +245     ;;9002226.02101,"549,40259-4 ",.01)

 +246     ;;40259-4

 +247     ;;9002226.02101,"549,40259-4 ",.02)

 +248     ;;40259-4

 +249     ;;9002226.02101,"549,40260-2 ",.01)

 +250     ;;40260-2

 +251     ;;9002226.02101,"549,40260-2 ",.02)

 +252     ;;40260-2

 +253     ;;9002226.02101,"549,40261-0 ",.01)

 +254     ;;40261-0

 +255     ;;9002226.02101,"549,40261-0 ",.02)

 +256     ;;40261-0

 +257     ;;9002226.02101,"549,40262-8 ",.01)

 +258     ;;40262-8

 +259     ;;9002226.02101,"549,40262-8 ",.02)

 +260     ;;40262-8

 +261     ;;9002226.02101,"549,40263-6 ",.01)

 +262     ;;40263-6

 +263     ;;9002226.02101,"549,40263-6 ",.02)

 +264     ;;40263-6

 +265     ;;9002226.02101,"549,40276-8 ",.01)

 +266     ;;40276-8

 +267     ;;9002226.02101,"549,40276-8 ",.02)

 +268     ;;40276-8

 +269     ;;9002226.02101,"549,40277-6 ",.01)

 +270     ;;40277-6

 +271     ;;9002226.02101,"549,40277-6 ",.02)

 +272     ;;40277-6

 +273     ;;9002226.02101,"549,40278-4 ",.01)

 +274     ;;40278-4

 +275     ;;9002226.02101,"549,40278-4 ",.02)

 +276     ;;40278-4

 +277     ;;9002226.02101,"549,40279-2 ",.01)

 +278     ;;40279-2

 +279     ;;9002226.02101,"549,40279-2 ",.02)

 +280     ;;40279-2

 +281     ;;9002226.02101,"549,40280-0 ",.01)

 +282     ;;40280-0

 +283     ;;9002226.02101,"549,40280-0 ",.02)

 +284     ;;40280-0

 +285     ;;9002226.02101,"549,40285-9 ",.01)

 +286     ;;40285-9

 +287     ;;9002226.02101,"549,40285-9 ",.02)

 +288     ;;40285-9

 +289     ;;9002226.02101,"549,40286-7 ",.01)

 +290     ;;40286-7

 +291     ;;9002226.02101,"549,40286-7 ",.02)

 +292     ;;40286-7

 +293     ;;9002226.02101,"549,40287-5 ",.01)

 +294     ;;40287-5

 +295     ;;9002226.02101,"549,40287-5 ",.02)

 +296     ;;40287-5

 +297     ;;9002226.02101,"549,40318-8 ",.01)

 +298     ;;40318-8

 +299     ;;9002226.02101,"549,40318-8 ",.02)

 +300     ;;40318-8

 +301     ;;9002226.02101,"549,40319-6 ",.01)

 +302     ;;40319-6

 +303     ;;9002226.02101,"549,40319-6 ",.02)

 +304     ;;40319-6

 +305     ;;9002226.02101,"549,40320-4 ",.01)

 +306     ;;40320-4

 +307     ;;9002226.02101,"549,40320-4 ",.02)

 +308     ;;40320-4

 +309     ;;9002226.02101,"549,40321-2 ",.01)

 +310     ;;40321-2

 +311     ;;9002226.02101,"549,40321-2 ",.02)

 +312     ;;40321-2

 +313     ;;9002226.02101,"549,40322-0 ",.01)

 +314     ;;40322-0

 +315     ;;9002226.02101,"549,40322-0 ",.02)

 +316     ;;40322-0

 +317     ;;9002226.02101,"549,40323-8 ",.01)

 +318     ;;40323-8

 +319     ;;9002226.02101,"549,40323-8 ",.02)

 +320     ;;40323-8

 +321     ;;9002226.02101,"549,40324-6 ",.01)

 +322     ;;40324-6

 +323     ;;9002226.02101,"549,40324-6 ",.02)

 +324     ;;40324-6

 +325     ;;9002226.02101,"549,40858-3 ",.01)

 +326     ;;40858-3

 +327     ;;9002226.02101,"549,40858-3 ",.02)

 +328     ;;40858-3

 +329     ;;9002226.02101,"549,41024-1 ",.01)

 +330     ;;41024-1

 +331     ;;9002226.02101,"549,41024-1 ",.02)

 +332     ;;41024-1

 +333     ;;9002226.02101,"549,41604-0 ",.01)

 +334     ;;41604-0

 +335     ;;9002226.02101,"549,41604-0 ",.02)

 +336     ;;41604-0

 +337     ;;9002226.02101,"549,41651-1 ",.01)

 +338     ;;41651-1

 +339     ;;9002226.02101,"549,41651-1 ",.02)

 +340     ;;41651-1

 +341     ;;9002226.02101,"549,41652-9 ",.01)

 +342     ;;41652-9

 +343     ;;9002226.02101,"549,41652-9 ",.02)

 +344     ;;41652-9

 +345     ;;9002226.02101,"549,41653-7 ",.01)

 +346     ;;41653-7

 +347     ;;9002226.02101,"549,41653-7 ",.02)

 +348     ;;41653-7

 +349     ;;9002226.02101,"549,43740-0 ",.01)

 +350     ;;43740-0

 +351     ;;9002226.02101,"549,43740-0 ",.02)

 +352     ;;43740-0

 +353     ;;9002226.02101,"549,44919-9 ",.01)

 +354     ;;44919-9

 +355     ;;9002226.02101,"549,44919-9 ",.02)

 +356     ;;44919-9

 +357     ;;9002226.02101,"549,45052-8 ",.01)

 +358     ;;45052-8

 +359     ;;9002226.02101,"549,45052-8 ",.02)

 +360     ;;45052-8

 +361     ;;9002226.02101,"549,45053-6 ",.01)

 +362     ;;45053-6

 +363     ;;9002226.02101,"549,45053-6 ",.02)

 +364     ;;45053-6

 +365     ;;9002226.02101,"549,45054-4 ",.01)

 +366     ;;45054-4

 +367     ;;9002226.02101,"549,45054-4 ",.02)

 +368     ;;45054-4

 +369     ;;9002226.02101,"549,45055-1 ",.01)

 +370     ;;45055-1

 +371     ;;9002226.02101,"549,45055-1 ",.02)

 +372     ;;45055-1

 +373     ;;9002226.02101,"549,45056-9 ",.01)

 +374     ;;45056-9

 +375     ;;9002226.02101,"549,45056-9 ",.02)

 +376     ;;45056-9

 +377     ;;9002226.02101,"549,45298-7 ",.01)

 +378     ;;45298-7

 +379     ;;9002226.02101,"549,45298-7 ",.02)

 +380     ;;45298-7

 +381     ;;9002226.02101,"549,45299-5 ",.01)

 +382     ;;45299-5

 +383     ;;9002226.02101,"549,45299-5 ",.02)

 +384     ;;45299-5

 +385     ;;9002226.02101,"549,5914-7 ",.01)

 +386     ;;5914-7

 +387     ;;9002226.02101,"549,5914-7 ",.02)

 +388     ;;5914-7

 +389     ;;9002226.02101,"549,6689-4 ",.01)

 +390     ;;6689-4

 +391     ;;9002226.02101,"549,6689-4 ",.02)

 +392     ;;6689-4

 +393     ;;9002226.02101,"549,6749-6 ",.01)

 +394     ;;6749-6

 +395     ;;9002226.02101,"549,6749-6 ",.02)

 +396     ;;6749-6

 +397     ;;9002226.02101,"549,6752-0 ",.01)

 +398     ;;6752-0

 +399     ;;9002226.02101,"549,6752-0 ",.02)

 +400     ;;6752-0

 +401     ;;9002226.02101,"549,6756-1 ",.01)

 +402     ;;6756-1

 +403     ;;9002226.02101,"549,6756-1 ",.02)

 +404     ;;6756-1

 +405     ;;9002226.02101,"549,6760-3 ",.01)

 +406     ;;6760-3

 +407     ;;9002226.02101,"549,6760-3 ",.02)

 +408     ;;6760-3

 +409     ;;9002226.02101,"549,6762-9 ",.01)

 +410     ;;6762-9

 +411     ;;9002226.02101,"549,6762-9 ",.02)

 +412     ;;6762-9

 +413     ;;9002226.02101,"549,6777-7 ",.01)

 +414     ;;6777-7

 +415     ;;9002226.02101,"549,6777-7 ",.02)

 +416     ;;6777-7

 +417     ;;9002226.02101,"549,9375-7 ",.01)

 +418     ;;9375-7

 +419     ;;9002226.02101,"549,9375-7 ",.02)

 +420     ;;9375-7

 +421     ;;9002226.02101,"549,9376-5 ",.01)

 +422     ;;9376-5

 +423     ;;9002226.02101,"549,9376-5 ",.02)

 +424     ;;9376-5

 +425     ;;9002226.02101,"549,9377-3 ",.01)

 +426     ;;9377-3

 +427     ;;9002226.02101,"549,9377-3 ",.02)

 +428     ;;9377-3

 +429     ;;9002226.02101,"549,9378-1 ",.01)

 +430     ;;9378-1

 +431     ;;9002226.02101,"549,9378-1 ",.02)

 +432     ;;9378-1