BGP9TXSL.m

BGP9TXSL ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;

 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 ;

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,"710,48994-8 ",.01)

 ;;48994-8

 ;;9002226.02101,"710,48994-8 ",.02)

 ;;48994-8

 ;;9002226.02101,"710,49134-0 ",.01)

 ;;49134-0

 ;;9002226.02101,"710,49134-0 ",.02)

 ;;49134-0

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

 ;;5914-7

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

 ;;5914-7

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

 ;;6689-4

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

 ;;6689-4

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

 ;;6749-6

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

 ;;6749-6

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

 ;;6752-0

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

 ;;6752-0

 ;;9002226.02101,"710,6753-8 ",.01)

 ;;6753-8

 ;;9002226.02101,"710,6753-8 ",.02)

 ;;6753-8

 ;;9002226.02101,"710,6754-6 ",.01)

 ;;6754-6

 ;;9002226.02101,"710,6754-6 ",.02)

 ;;6754-6

 ;;9002226.02101,"710,6755-3 ",.01)

 ;;6755-3

 ;;9002226.02101,"710,6755-3 ",.02)

 ;;6755-3

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

 ;;6756-1

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

 ;;6756-1

 ;;9002226.02101,"710,6759-5 ",.01)

 ;;6759-5

 ;;9002226.02101,"710,6759-5 ",.02)

 ;;6759-5

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

 ;;6760-3

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

 ;;6760-3

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

 ;;6762-9

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

 ;;6762-9

 ;;9002226.02101,"710,6764-5 ",.01)

 ;;6764-5

 ;;9002226.02101,"710,6764-5 ",.02)

 ;;6764-5

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

 ;;6777-7

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

 ;;6777-7

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

 ;;9375-7

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

 ;;9375-7

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

 ;;9376-5

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

 ;;9376-5

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

 ;;9377-3

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

 ;;9377-3

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

 ;;9378-1

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

 ;;9378-1

BGP9TXSL  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;

 +1       ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 +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,"710,48994-8 ",.01)

 +2       ;;48994-8

 +3       ;;9002226.02101,"710,48994-8 ",.02)

 +4       ;;48994-8

 +5       ;;9002226.02101,"710,49134-0 ",.01)

 +6       ;;49134-0

 +7       ;;9002226.02101,"710,49134-0 ",.02)

 +8       ;;49134-0

 +9       ;;9002226.02101,"710,5914-7 ",.01)

 +10      ;;5914-7

 +11      ;;9002226.02101,"710,5914-7 ",.02)

 +12      ;;5914-7

 +13      ;;9002226.02101,"710,6689-4 ",.01)

 +14      ;;6689-4

 +15      ;;9002226.02101,"710,6689-4 ",.02)

 +16      ;;6689-4

 +17      ;;9002226.02101,"710,6749-6 ",.01)

 +18      ;;6749-6

 +19      ;;9002226.02101,"710,6749-6 ",.02)

 +20      ;;6749-6

 +21      ;;9002226.02101,"710,6752-0 ",.01)

 +22      ;;6752-0

 +23      ;;9002226.02101,"710,6752-0 ",.02)

 +24      ;;6752-0

 +25      ;;9002226.02101,"710,6753-8 ",.01)

 +26      ;;6753-8

 +27      ;;9002226.02101,"710,6753-8 ",.02)

 +28      ;;6753-8

 +29      ;;9002226.02101,"710,6754-6 ",.01)

 +30      ;;6754-6

 +31      ;;9002226.02101,"710,6754-6 ",.02)

 +32      ;;6754-6

 +33      ;;9002226.02101,"710,6755-3 ",.01)

 +34      ;;6755-3

 +35      ;;9002226.02101,"710,6755-3 ",.02)

 +36      ;;6755-3

 +37      ;;9002226.02101,"710,6756-1 ",.01)

 +38      ;;6756-1

 +39      ;;9002226.02101,"710,6756-1 ",.02)

 +40      ;;6756-1

 +41      ;;9002226.02101,"710,6759-5 ",.01)

 +42      ;;6759-5

 +43      ;;9002226.02101,"710,6759-5 ",.02)

 +44      ;;6759-5

 +45      ;;9002226.02101,"710,6760-3 ",.01)

 +46      ;;6760-3

 +47      ;;9002226.02101,"710,6760-3 ",.02)

 +48      ;;6760-3

 +49      ;;9002226.02101,"710,6762-9 ",.01)

 +50      ;;6762-9

 +51      ;;9002226.02101,"710,6762-9 ",.02)

 +52      ;;6762-9

 +53      ;;9002226.02101,"710,6764-5 ",.01)

 +54      ;;6764-5

 +55      ;;9002226.02101,"710,6764-5 ",.02)

 +56      ;;6764-5

 +57      ;;9002226.02101,"710,6777-7 ",.01)

 +58      ;;6777-7

 +59      ;;9002226.02101,"710,6777-7 ",.02)

 +60      ;;6777-7

 +61      ;;9002226.02101,"710,9375-7 ",.01)

 +62      ;;9375-7

 +63      ;;9002226.02101,"710,9375-7 ",.02)

 +64      ;;9375-7

 +65      ;;9002226.02101,"710,9376-5 ",.01)

 +66      ;;9376-5

 +67      ;;9002226.02101,"710,9376-5 ",.02)

 +68      ;;9376-5

 +69      ;;9002226.02101,"710,9377-3 ",.01)

 +70      ;;9377-3

 +71      ;;9002226.02101,"710,9377-3 ",.02)

 +72      ;;9377-3

 +73      ;;9002226.02101,"710,9378-1 ",.01)

 +74      ;;9378-1

 +75      ;;9002226.02101,"710,9378-1 ",.02)

 +76      ;;9378-1