BGPTXTC.m

BGPTXTC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 19, 2004 ;

 ;;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,"805,16602-5 ",.01)

 ;;16602-5

 ;;9002226.02101,"805,16602-5 ",.02)

 ;;16602-5

 ;;9002226.02101,"805,18490-3 ",.01)

 ;;18490-3

 ;;9002226.02101,"805,18490-3 ",.02)

 ;;18490-3

 ;;9002226.02101,"805,18491-1 ",.01)

 ;;18491-1

 ;;9002226.02101,"805,18491-1 ",.02)

 ;;18491-1

 ;;9002226.02101,"805,18492-9 ",.01)

 ;;18492-9

 ;;9002226.02101,"805,18492-9 ",.02)

 ;;18492-9

 ;;9002226.02101,"805,20755-5 ",.01)

 ;;20755-5

 ;;9002226.02101,"805,20755-5 ",.02)

 ;;20755-5

 ;;9002226.02101,"805,20756-3 ",.01)

 ;;20756-3

 ;;9002226.02101,"805,20756-3 ",.02)

 ;;20756-3

 ;;9002226.02101,"805,20757-1 ",.01)

 ;;20757-1

 ;;9002226.02101,"805,20757-1 ",.02)

 ;;20757-1

 ;;9002226.02101,"805,20993-2 ",.01)

 ;;20993-2

 ;;9002226.02101,"805,20993-2 ",.02)

 ;;20993-2

 ;;9002226.02101,"805,21185-4 ",.01)

 ;;21185-4

 ;;9002226.02101,"805,21185-4 ",.02)

 ;;21185-4

 ;;9002226.02101,"805,21186-2 ",.01)

 ;;21186-2

 ;;9002226.02101,"805,21186-2 ",.02)

 ;;21186-2

 ;;9002226.02101,"805,21187-0 ",.01)

 ;;21187-0

 ;;9002226.02101,"805,21187-0 ",.02)

 ;;21187-0

 ;;9002226.02101,"805,21188-8 ",.01)

 ;;21188-8

 ;;9002226.02101,"805,21188-8 ",.02)

 ;;21188-8

 ;;9002226.02101,"805,21189-6 ",.01)

 ;;21189-6

 ;;9002226.02101,"805,21189-6 ",.02)

 ;;21189-6

 ;;9002226.02101,"805,21190-4 ",.01)

 ;;21190-4

 ;;9002226.02101,"805,21190-4 ",.02)

 ;;21190-4

 ;;9002226.02101,"805,21191-2 ",.01)

 ;;21191-2

 ;;9002226.02101,"805,21191-2 ",.02)

 ;;21191-2

 ;;9002226.02101,"805,21192-0 ",.01)

 ;;21192-0

 ;;9002226.02101,"805,21192-0 ",.02)

 ;;21192-0

 ;;9002226.02101,"805,21613-5 ",.01)

 ;;21613-5

 ;;9002226.02101,"805,21613-5 ",.02)

 ;;21613-5

 ;;9002226.02101,"805,22182-0 ",.01)

 ;;22182-0

 ;;9002226.02101,"805,22182-0 ",.02)

 ;;22182-0

 ;;9002226.02101,"805,22183-8 ",.01)

 ;;22183-8

 ;;9002226.02101,"805,22183-8 ",.02)

 ;;22183-8

 ;;9002226.02101,"805,22184-6 ",.01)

 ;;22184-6

 ;;9002226.02101,"805,22184-6 ",.02)

 ;;22184-6

 ;;9002226.02101,"805,22185-3 ",.01)

 ;;22185-3

 ;;9002226.02101,"805,22185-3 ",.02)

 ;;22185-3

 ;;9002226.02101,"805,22186-1 ",.01)

 ;;22186-1

 ;;9002226.02101,"805,22186-1 ",.02)

 ;;22186-1

 ;;9002226.02101,"805,22187-9 ",.01)

 ;;22187-9

 ;;9002226.02101,"805,22187-9 ",.02)

 ;;22187-9

 ;;9002226.02101,"805,22188-7 ",.01)

 ;;22188-7

 ;;9002226.02101,"805,22188-7 ",.02)

 ;;22188-7

 ;;9002226.02101,"805,22189-5 ",.01)

 ;;22189-5

 ;;9002226.02101,"805,22189-5 ",.02)

 ;;22189-5

 ;;9002226.02101,"805,22190-3 ",.01)

 ;;22190-3

 ;;9002226.02101,"805,22190-3 ",.02)

 ;;22190-3

 ;;9002226.02101,"805,22191-1 ",.01)

 ;;22191-1

 ;;9002226.02101,"805,22191-1 ",.02)

 ;;22191-1

 ;;9002226.02101,"805,22192-9 ",.01)

 ;;22192-9

 ;;9002226.02101,"805,22192-9 ",.02)

 ;;22192-9

 ;;9002226.02101,"805,22193-7 ",.01)

 ;;22193-7

 ;;9002226.02101,"805,22193-7 ",.02)

 ;;22193-7

 ;;9002226.02101,"805,22194-5 ",.01)

 ;;22194-5

 ;;9002226.02101,"805,22194-5 ",.02)

 ;;22194-5

 ;;9002226.02101,"805,22195-2 ",.01)

 ;;22195-2

 ;;9002226.02101,"805,22195-2 ",.02)

 ;;22195-2

 ;;9002226.02101,"805,22196-0 ",.01)

 ;;22196-0

 ;;9002226.02101,"805,22196-0 ",.02)

 ;;22196-0

 ;;9002226.02101,"805,22197-8 ",.01)

 ;;22197-8

 ;;9002226.02101,"805,22197-8 ",.02)

 ;;22197-8

 ;;9002226.02101,"805,22198-6 ",.01)

 ;;22198-6

 ;;9002226.02101,"805,22198-6 ",.02)

 ;;22198-6

 ;;9002226.02101,"805,22199-4 ",.01)

 ;;22199-4

 ;;9002226.02101,"805,22199-4 ",.02)

 ;;22199-4

 ;;9002226.02101,"805,22200-0 ",.01)

 ;;22200-0

 ;;9002226.02101,"805,22200-0 ",.02)

 ;;22200-0

 ;;9002226.02101,"805,22201-8 ",.01)

 ;;22201-8

 ;;9002226.02101,"805,22201-8 ",.02)

 ;;22201-8

 ;;9002226.02101,"805,22202-6 ",.01)

 ;;22202-6

 ;;9002226.02101,"805,22202-6 ",.02)

 ;;22202-6

 ;;9002226.02101,"805,23838-6 ",.01)

 ;;23838-6

 ;;9002226.02101,"805,23838-6 ",.02)

 ;;23838-6

 ;;9002226.02101,"805,23967-3 ",.01)

 ;;23967-3

 ;;9002226.02101,"805,23967-3 ",.02)

 ;;23967-3

 ;;9002226.02101,"805,23990-5 ",.01)

 ;;23990-5

 ;;9002226.02101,"805,23990-5 ",.02)

 ;;23990-5

 ;;9002226.02101,"805,24005-1 ",.01)

 ;;24005-1

 ;;9002226.02101,"805,24005-1 ",.02)

 ;;24005-1

 ;;9002226.02101,"805,24238-8 ",.01)

 ;;24238-8

 ;;9002226.02101,"805,24238-8 ",.02)

 ;;24238-8

 ;;9002226.02101,"805,24239-6 ",.01)

 ;;24239-6

 ;;9002226.02101,"805,24239-6 ",.02)

 ;;24239-6

 ;;9002226.02101,"805,25369-0 ",.01)

 ;;25369-0

 ;;9002226.02101,"805,25369-0 ",.02)

 ;;25369-0

 ;;9002226.02101,"805,26626-2 ",.01)

 ;;26626-2

 ;;9002226.02101,"805,26626-2 ",.02)

 ;;26626-2

 ;;9002226.02101,"805,26663-5 ",.01)

 ;;26663-5

 ;;9002226.02101,"805,26663-5 ",.02)

 ;;26663-5

 ;;9002226.02101,"805,26664-3 ",.01)

 ;;26664-3

 ;;9002226.02101,"805,26664-3 ",.02)

 ;;26664-3

 ;;9002226.02101,"805,26665-0 ",.01)

 ;;26665-0

 ;;9002226.02101,"805,26665-0 ",.02)

 ;;26665-0

 ;;9002226.02101,"805,26666-8 ",.01)

 ;;26666-8

 ;;9002226.02101,"805,26666-8 ",.02)

 ;;26666-8

 ;;9002226.02101,"805,26667-6 ",.01)

 ;;26667-6

 ;;9002226.02101,"805,26667-6 ",.02)

 ;;26667-6

 ;;9002226.02101,"805,26668-4 ",.01)

 ;;26668-4

 ;;9002226.02101,"805,26668-4 ",.02)

 ;;26668-4

 ;;9002226.02101,"805,26715-3 ",.01)

 ;;26715-3

BGPTXTC   ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 19, 2004 ;

 +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,"805,16602-5 ",.01)

 +2       ;;16602-5

 +3       ;;9002226.02101,"805,16602-5 ",.02)

 +4       ;;16602-5

 +5       ;;9002226.02101,"805,18490-3 ",.01)

 +6       ;;18490-3

 +7       ;;9002226.02101,"805,18490-3 ",.02)

 +8       ;;18490-3

 +9       ;;9002226.02101,"805,18491-1 ",.01)

 +10      ;;18491-1

 +11      ;;9002226.02101,"805,18491-1 ",.02)

 +12      ;;18491-1

 +13      ;;9002226.02101,"805,18492-9 ",.01)

 +14      ;;18492-9

 +15      ;;9002226.02101,"805,18492-9 ",.02)

 +16      ;;18492-9

 +17      ;;9002226.02101,"805,20755-5 ",.01)

 +18      ;;20755-5

 +19      ;;9002226.02101,"805,20755-5 ",.02)

 +20      ;;20755-5

 +21      ;;9002226.02101,"805,20756-3 ",.01)

 +22      ;;20756-3

 +23      ;;9002226.02101,"805,20756-3 ",.02)

 +24      ;;20756-3

 +25      ;;9002226.02101,"805,20757-1 ",.01)

 +26      ;;20757-1

 +27      ;;9002226.02101,"805,20757-1 ",.02)

 +28      ;;20757-1

 +29      ;;9002226.02101,"805,20993-2 ",.01)

 +30      ;;20993-2

 +31      ;;9002226.02101,"805,20993-2 ",.02)

 +32      ;;20993-2

 +33      ;;9002226.02101,"805,21185-4 ",.01)

 +34      ;;21185-4

 +35      ;;9002226.02101,"805,21185-4 ",.02)

 +36      ;;21185-4

 +37      ;;9002226.02101,"805,21186-2 ",.01)

 +38      ;;21186-2

 +39      ;;9002226.02101,"805,21186-2 ",.02)

 +40      ;;21186-2

 +41      ;;9002226.02101,"805,21187-0 ",.01)

 +42      ;;21187-0

 +43      ;;9002226.02101,"805,21187-0 ",.02)

 +44      ;;21187-0

 +45      ;;9002226.02101,"805,21188-8 ",.01)

 +46      ;;21188-8

 +47      ;;9002226.02101,"805,21188-8 ",.02)

 +48      ;;21188-8

 +49      ;;9002226.02101,"805,21189-6 ",.01)

 +50      ;;21189-6

 +51      ;;9002226.02101,"805,21189-6 ",.02)

 +52      ;;21189-6

 +53      ;;9002226.02101,"805,21190-4 ",.01)

 +54      ;;21190-4

 +55      ;;9002226.02101,"805,21190-4 ",.02)

 +56      ;;21190-4

 +57      ;;9002226.02101,"805,21191-2 ",.01)

 +58      ;;21191-2

 +59      ;;9002226.02101,"805,21191-2 ",.02)

 +60      ;;21191-2

 +61      ;;9002226.02101,"805,21192-0 ",.01)

 +62      ;;21192-0

 +63      ;;9002226.02101,"805,21192-0 ",.02)

 +64      ;;21192-0

 +65      ;;9002226.02101,"805,21613-5 ",.01)

 +66      ;;21613-5

 +67      ;;9002226.02101,"805,21613-5 ",.02)

 +68      ;;21613-5

 +69      ;;9002226.02101,"805,22182-0 ",.01)

 +70      ;;22182-0

 +71      ;;9002226.02101,"805,22182-0 ",.02)

 +72      ;;22182-0

 +73      ;;9002226.02101,"805,22183-8 ",.01)

 +74      ;;22183-8

 +75      ;;9002226.02101,"805,22183-8 ",.02)

 +76      ;;22183-8

 +77      ;;9002226.02101,"805,22184-6 ",.01)

 +78      ;;22184-6

 +79      ;;9002226.02101,"805,22184-6 ",.02)

 +80      ;;22184-6

 +81      ;;9002226.02101,"805,22185-3 ",.01)

 +82      ;;22185-3

 +83      ;;9002226.02101,"805,22185-3 ",.02)

 +84      ;;22185-3

 +85      ;;9002226.02101,"805,22186-1 ",.01)

 +86      ;;22186-1

 +87      ;;9002226.02101,"805,22186-1 ",.02)

 +88      ;;22186-1

 +89      ;;9002226.02101,"805,22187-9 ",.01)

 +90      ;;22187-9

 +91      ;;9002226.02101,"805,22187-9 ",.02)

 +92      ;;22187-9

 +93      ;;9002226.02101,"805,22188-7 ",.01)

 +94      ;;22188-7

 +95      ;;9002226.02101,"805,22188-7 ",.02)

 +96      ;;22188-7

 +97      ;;9002226.02101,"805,22189-5 ",.01)

 +98      ;;22189-5

 +99      ;;9002226.02101,"805,22189-5 ",.02)

 +100     ;;22189-5

 +101     ;;9002226.02101,"805,22190-3 ",.01)

 +102     ;;22190-3

 +103     ;;9002226.02101,"805,22190-3 ",.02)

 +104     ;;22190-3

 +105     ;;9002226.02101,"805,22191-1 ",.01)

 +106     ;;22191-1

 +107     ;;9002226.02101,"805,22191-1 ",.02)

 +108     ;;22191-1

 +109     ;;9002226.02101,"805,22192-9 ",.01)

 +110     ;;22192-9

 +111     ;;9002226.02101,"805,22192-9 ",.02)

 +112     ;;22192-9

 +113     ;;9002226.02101,"805,22193-7 ",.01)

 +114     ;;22193-7

 +115     ;;9002226.02101,"805,22193-7 ",.02)

 +116     ;;22193-7

 +117     ;;9002226.02101,"805,22194-5 ",.01)

 +118     ;;22194-5

 +119     ;;9002226.02101,"805,22194-5 ",.02)

 +120     ;;22194-5

 +121     ;;9002226.02101,"805,22195-2 ",.01)

 +122     ;;22195-2

 +123     ;;9002226.02101,"805,22195-2 ",.02)

 +124     ;;22195-2

 +125     ;;9002226.02101,"805,22196-0 ",.01)

 +126     ;;22196-0

 +127     ;;9002226.02101,"805,22196-0 ",.02)

 +128     ;;22196-0

 +129     ;;9002226.02101,"805,22197-8 ",.01)

 +130     ;;22197-8

 +131     ;;9002226.02101,"805,22197-8 ",.02)

 +132     ;;22197-8

 +133     ;;9002226.02101,"805,22198-6 ",.01)

 +134     ;;22198-6

 +135     ;;9002226.02101,"805,22198-6 ",.02)

 +136     ;;22198-6

 +137     ;;9002226.02101,"805,22199-4 ",.01)

 +138     ;;22199-4

 +139     ;;9002226.02101,"805,22199-4 ",.02)

 +140     ;;22199-4

 +141     ;;9002226.02101,"805,22200-0 ",.01)

 +142     ;;22200-0

 +143     ;;9002226.02101,"805,22200-0 ",.02)

 +144     ;;22200-0

 +145     ;;9002226.02101,"805,22201-8 ",.01)

 +146     ;;22201-8

 +147     ;;9002226.02101,"805,22201-8 ",.02)

 +148     ;;22201-8

 +149     ;;9002226.02101,"805,22202-6 ",.01)

 +150     ;;22202-6

 +151     ;;9002226.02101,"805,22202-6 ",.02)

 +152     ;;22202-6

 +153     ;;9002226.02101,"805,23838-6 ",.01)

 +154     ;;23838-6

 +155     ;;9002226.02101,"805,23838-6 ",.02)

 +156     ;;23838-6

 +157     ;;9002226.02101,"805,23967-3 ",.01)

 +158     ;;23967-3

 +159     ;;9002226.02101,"805,23967-3 ",.02)

 +160     ;;23967-3

 +161     ;;9002226.02101,"805,23990-5 ",.01)

 +162     ;;23990-5

 +163     ;;9002226.02101,"805,23990-5 ",.02)

 +164     ;;23990-5

 +165     ;;9002226.02101,"805,24005-1 ",.01)

 +166     ;;24005-1

 +167     ;;9002226.02101,"805,24005-1 ",.02)

 +168     ;;24005-1

 +169     ;;9002226.02101,"805,24238-8 ",.01)

 +170     ;;24238-8

 +171     ;;9002226.02101,"805,24238-8 ",.02)

 +172     ;;24238-8

 +173     ;;9002226.02101,"805,24239-6 ",.01)

 +174     ;;24239-6

 +175     ;;9002226.02101,"805,24239-6 ",.02)

 +176     ;;24239-6

 +177     ;;9002226.02101,"805,25369-0 ",.01)

 +178     ;;25369-0

 +179     ;;9002226.02101,"805,25369-0 ",.02)

 +180     ;;25369-0

 +181     ;;9002226.02101,"805,26626-2 ",.01)

 +182     ;;26626-2

 +183     ;;9002226.02101,"805,26626-2 ",.02)

 +184     ;;26626-2

 +185     ;;9002226.02101,"805,26663-5 ",.01)

 +186     ;;26663-5

 +187     ;;9002226.02101,"805,26663-5 ",.02)

 +188     ;;26663-5

 +189     ;;9002226.02101,"805,26664-3 ",.01)

 +190     ;;26664-3

 +191     ;;9002226.02101,"805,26664-3 ",.02)

 +192     ;;26664-3

 +193     ;;9002226.02101,"805,26665-0 ",.01)

 +194     ;;26665-0

 +195     ;;9002226.02101,"805,26665-0 ",.02)

 +196     ;;26665-0

 +197     ;;9002226.02101,"805,26666-8 ",.01)

 +198     ;;26666-8

 +199     ;;9002226.02101,"805,26666-8 ",.02)

 +200     ;;26666-8

 +201     ;;9002226.02101,"805,26667-6 ",.01)

 +202     ;;26667-6

 +203     ;;9002226.02101,"805,26667-6 ",.02)

 +204     ;;26667-6

 +205     ;;9002226.02101,"805,26668-4 ",.01)

 +206     ;;26668-4

 +207     ;;9002226.02101,"805,26668-4 ",.02)

 +208     ;;26668-4

 +209     ;;9002226.02101,"805,26715-3 ",.01)

 +210     ;;26715-3