BGPTXTD.m

BGPTXTD ; 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,26715-3 ",.02)

 ;;26715-3

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

 ;;27167-6

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

 ;;27167-6

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

 ;;27185-8

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

 ;;27185-8

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

 ;;27273-2

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

 ;;27273-2

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

 ;;27368-0

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

 ;;27368-0

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

 ;;27370-6

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

 ;;27370-6

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

 ;;27371-4

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

 ;;27371-4

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

 ;;28556-9

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

 ;;28556-9

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

 ;;28557-7

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

 ;;28557-7

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

 ;;28558-5

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

 ;;28558-5

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

 ;;29664-0

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

 ;;29664-0

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

 ;;29677-2

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

 ;;29677-2

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

 ;;30204-2

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

 ;;30204-2

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

 ;;31292-6

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

 ;;31292-6

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

 ;;31293-4

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

 ;;31293-4

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

 ;;31294-2

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

 ;;31294-2

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

 ;;31295-9

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

 ;;31295-9

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

 ;;31296-7

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

 ;;31296-7

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

 ;;31297-5

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

 ;;31297-5

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

 ;;31298-3

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

 ;;31298-3

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

 ;;31763-6

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

 ;;31763-6

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

 ;;31764-4

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

 ;;31764-4

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

 ;;31765-1

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

 ;;31765-1

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

 ;;31766-9

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

 ;;31766-9

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

 ;;31767-7

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

 ;;31767-7

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

 ;;31768-5

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

 ;;31768-5

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

 ;;31769-3

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

 ;;31769-3

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

 ;;31770-1

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

 ;;31770-1

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

 ;;31771-9

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

 ;;31771-9

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

 ;;31772-7

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

 ;;31772-7

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

 ;;31773-5

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

 ;;31773-5

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

 ;;31774-3

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

 ;;31774-3

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

 ;;31775-0

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

 ;;31775-0

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

 ;;31776-8

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

 ;;31776-8

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

 ;;31777-6

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

 ;;31777-6

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

 ;;32001-0

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

 ;;32001-0

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

 ;;32002-8

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

 ;;32002-8

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

 ;;32003-6

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

 ;;32003-6

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

 ;;32004-4

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

 ;;32004-4

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

 ;;32005-1

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

 ;;32005-1

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

 ;;32006-9

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

 ;;32006-9

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

 ;;32007-7

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

 ;;32007-7

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

 ;;32671-0

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

 ;;32671-0

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

 ;;32774-2

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

 ;;32774-2

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

 ;;33410-2

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

 ;;33410-2

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

 ;;33574-5

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

 ;;33574-5

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

 ;;33575-2

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

 ;;33575-2

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

 ;;33604-0

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

 ;;33604-0

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

 ;;33605-7

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

 ;;33605-7

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

 ;;4993-2

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

 ;;4993-2

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

 ;;5082-3

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

 ;;5082-3

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

 ;;5083-1

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

 ;;5083-1

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

 ;;5084-9

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

 ;;5084-9

BGPTXTD   ; 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,26715-3 ",.02)

 +2       ;;26715-3

 +3       ;;9002226.02101,"805,27167-6 ",.01)

 +4       ;;27167-6

 +5       ;;9002226.02101,"805,27167-6 ",.02)

 +6       ;;27167-6

 +7       ;;9002226.02101,"805,27185-8 ",.01)

 +8       ;;27185-8

 +9       ;;9002226.02101,"805,27185-8 ",.02)

 +10      ;;27185-8

 +11      ;;9002226.02101,"805,27273-2 ",.01)

 +12      ;;27273-2

 +13      ;;9002226.02101,"805,27273-2 ",.02)

 +14      ;;27273-2

 +15      ;;9002226.02101,"805,27368-0 ",.01)

 +16      ;;27368-0

 +17      ;;9002226.02101,"805,27368-0 ",.02)

 +18      ;;27368-0

 +19      ;;9002226.02101,"805,27370-6 ",.01)

 +20      ;;27370-6

 +21      ;;9002226.02101,"805,27370-6 ",.02)

 +22      ;;27370-6

 +23      ;;9002226.02101,"805,27371-4 ",.01)

 +24      ;;27371-4

 +25      ;;9002226.02101,"805,27371-4 ",.02)

 +26      ;;27371-4

 +27      ;;9002226.02101,"805,28556-9 ",.01)

 +28      ;;28556-9

 +29      ;;9002226.02101,"805,28556-9 ",.02)

 +30      ;;28556-9

 +31      ;;9002226.02101,"805,28557-7 ",.01)

 +32      ;;28557-7

 +33      ;;9002226.02101,"805,28557-7 ",.02)

 +34      ;;28557-7

 +35      ;;9002226.02101,"805,28558-5 ",.01)

 +36      ;;28558-5

 +37      ;;9002226.02101,"805,28558-5 ",.02)

 +38      ;;28558-5

 +39      ;;9002226.02101,"805,29664-0 ",.01)

 +40      ;;29664-0

 +41      ;;9002226.02101,"805,29664-0 ",.02)

 +42      ;;29664-0

 +43      ;;9002226.02101,"805,29677-2 ",.01)

 +44      ;;29677-2

 +45      ;;9002226.02101,"805,29677-2 ",.02)

 +46      ;;29677-2

 +47      ;;9002226.02101,"805,30204-2 ",.01)

 +48      ;;30204-2

 +49      ;;9002226.02101,"805,30204-2 ",.02)

 +50      ;;30204-2

 +51      ;;9002226.02101,"805,31292-6 ",.01)

 +52      ;;31292-6

 +53      ;;9002226.02101,"805,31292-6 ",.02)

 +54      ;;31292-6

 +55      ;;9002226.02101,"805,31293-4 ",.01)

 +56      ;;31293-4

 +57      ;;9002226.02101,"805,31293-4 ",.02)

 +58      ;;31293-4

 +59      ;;9002226.02101,"805,31294-2 ",.01)

 +60      ;;31294-2

 +61      ;;9002226.02101,"805,31294-2 ",.02)

 +62      ;;31294-2

 +63      ;;9002226.02101,"805,31295-9 ",.01)

 +64      ;;31295-9

 +65      ;;9002226.02101,"805,31295-9 ",.02)

 +66      ;;31295-9

 +67      ;;9002226.02101,"805,31296-7 ",.01)

 +68      ;;31296-7

 +69      ;;9002226.02101,"805,31296-7 ",.02)

 +70      ;;31296-7

 +71      ;;9002226.02101,"805,31297-5 ",.01)

 +72      ;;31297-5

 +73      ;;9002226.02101,"805,31297-5 ",.02)

 +74      ;;31297-5

 +75      ;;9002226.02101,"805,31298-3 ",.01)

 +76      ;;31298-3

 +77      ;;9002226.02101,"805,31298-3 ",.02)

 +78      ;;31298-3

 +79      ;;9002226.02101,"805,31763-6 ",.01)

 +80      ;;31763-6

 +81      ;;9002226.02101,"805,31763-6 ",.02)

 +82      ;;31763-6

 +83      ;;9002226.02101,"805,31764-4 ",.01)

 +84      ;;31764-4

 +85      ;;9002226.02101,"805,31764-4 ",.02)

 +86      ;;31764-4

 +87      ;;9002226.02101,"805,31765-1 ",.01)

 +88      ;;31765-1

 +89      ;;9002226.02101,"805,31765-1 ",.02)

 +90      ;;31765-1

 +91      ;;9002226.02101,"805,31766-9 ",.01)

 +92      ;;31766-9

 +93      ;;9002226.02101,"805,31766-9 ",.02)

 +94      ;;31766-9

 +95      ;;9002226.02101,"805,31767-7 ",.01)

 +96      ;;31767-7

 +97      ;;9002226.02101,"805,31767-7 ",.02)

 +98      ;;31767-7

 +99      ;;9002226.02101,"805,31768-5 ",.01)

 +100     ;;31768-5

 +101     ;;9002226.02101,"805,31768-5 ",.02)

 +102     ;;31768-5

 +103     ;;9002226.02101,"805,31769-3 ",.01)

 +104     ;;31769-3

 +105     ;;9002226.02101,"805,31769-3 ",.02)

 +106     ;;31769-3

 +107     ;;9002226.02101,"805,31770-1 ",.01)

 +108     ;;31770-1

 +109     ;;9002226.02101,"805,31770-1 ",.02)

 +110     ;;31770-1

 +111     ;;9002226.02101,"805,31771-9 ",.01)

 +112     ;;31771-9

 +113     ;;9002226.02101,"805,31771-9 ",.02)

 +114     ;;31771-9

 +115     ;;9002226.02101,"805,31772-7 ",.01)

 +116     ;;31772-7

 +117     ;;9002226.02101,"805,31772-7 ",.02)

 +118     ;;31772-7

 +119     ;;9002226.02101,"805,31773-5 ",.01)

 +120     ;;31773-5

 +121     ;;9002226.02101,"805,31773-5 ",.02)

 +122     ;;31773-5

 +123     ;;9002226.02101,"805,31774-3 ",.01)

 +124     ;;31774-3

 +125     ;;9002226.02101,"805,31774-3 ",.02)

 +126     ;;31774-3

 +127     ;;9002226.02101,"805,31775-0 ",.01)

 +128     ;;31775-0

 +129     ;;9002226.02101,"805,31775-0 ",.02)

 +130     ;;31775-0

 +131     ;;9002226.02101,"805,31776-8 ",.01)

 +132     ;;31776-8

 +133     ;;9002226.02101,"805,31776-8 ",.02)

 +134     ;;31776-8

 +135     ;;9002226.02101,"805,31777-6 ",.01)

 +136     ;;31777-6

 +137     ;;9002226.02101,"805,31777-6 ",.02)

 +138     ;;31777-6

 +139     ;;9002226.02101,"805,32001-0 ",.01)

 +140     ;;32001-0

 +141     ;;9002226.02101,"805,32001-0 ",.02)

 +142     ;;32001-0

 +143     ;;9002226.02101,"805,32002-8 ",.01)

 +144     ;;32002-8

 +145     ;;9002226.02101,"805,32002-8 ",.02)

 +146     ;;32002-8

 +147     ;;9002226.02101,"805,32003-6 ",.01)

 +148     ;;32003-6

 +149     ;;9002226.02101,"805,32003-6 ",.02)

 +150     ;;32003-6

 +151     ;;9002226.02101,"805,32004-4 ",.01)

 +152     ;;32004-4

 +153     ;;9002226.02101,"805,32004-4 ",.02)

 +154     ;;32004-4

 +155     ;;9002226.02101,"805,32005-1 ",.01)

 +156     ;;32005-1

 +157     ;;9002226.02101,"805,32005-1 ",.02)

 +158     ;;32005-1

 +159     ;;9002226.02101,"805,32006-9 ",.01)

 +160     ;;32006-9

 +161     ;;9002226.02101,"805,32006-9 ",.02)

 +162     ;;32006-9

 +163     ;;9002226.02101,"805,32007-7 ",.01)

 +164     ;;32007-7

 +165     ;;9002226.02101,"805,32007-7 ",.02)

 +166     ;;32007-7

 +167     ;;9002226.02101,"805,32671-0 ",.01)

 +168     ;;32671-0

 +169     ;;9002226.02101,"805,32671-0 ",.02)

 +170     ;;32671-0

 +171     ;;9002226.02101,"805,32774-2 ",.01)

 +172     ;;32774-2

 +173     ;;9002226.02101,"805,32774-2 ",.02)

 +174     ;;32774-2

 +175     ;;9002226.02101,"805,33410-2 ",.01)

 +176     ;;33410-2

 +177     ;;9002226.02101,"805,33410-2 ",.02)

 +178     ;;33410-2

 +179     ;;9002226.02101,"805,33574-5 ",.01)

 +180     ;;33574-5

 +181     ;;9002226.02101,"805,33574-5 ",.02)

 +182     ;;33574-5

 +183     ;;9002226.02101,"805,33575-2 ",.01)

 +184     ;;33575-2

 +185     ;;9002226.02101,"805,33575-2 ",.02)

 +186     ;;33575-2

 +187     ;;9002226.02101,"805,33604-0 ",.01)

 +188     ;;33604-0

 +189     ;;9002226.02101,"805,33604-0 ",.02)

 +190     ;;33604-0

 +191     ;;9002226.02101,"805,33605-7 ",.01)

 +192     ;;33605-7

 +193     ;;9002226.02101,"805,33605-7 ",.02)

 +194     ;;33605-7

 +195     ;;9002226.02101,"805,4993-2 ",.01)

 +196     ;;4993-2

 +197     ;;9002226.02101,"805,4993-2 ",.02)

 +198     ;;4993-2

 +199     ;;9002226.02101,"805,5082-3 ",.01)

 +200     ;;5082-3

 +201     ;;9002226.02101,"805,5082-3 ",.02)

 +202     ;;5082-3

 +203     ;;9002226.02101,"805,5083-1 ",.01)

 +204     ;;5083-1

 +205     ;;9002226.02101,"805,5083-1 ",.02)

 +206     ;;5083-1

 +207     ;;9002226.02101,"805,5084-9 ",.01)

 +208     ;;5084-9

 +209     ;;9002226.02101,"805,5084-9 ",.02)

 +210     ;;5084-9