Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM5BBT

BGPM5BBT.m

Go to the documentation of this file.
BGPM5BBT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1044,00904092980 ",.01)
 ;;00904092980
 ;;9002226.02101,"1044,00904092980 ",.02)
 ;;00904092980
 ;;9002226.02101,"1044,00904182040 ",.01)
 ;;00904182040
 ;;9002226.02101,"1044,00904182040 ",.02)
 ;;00904182040
 ;;9002226.02101,"1044,00904182060 ",.01)
 ;;00904182060
 ;;9002226.02101,"1044,00904182060 ",.02)
 ;;00904182060
 ;;9002226.02101,"1044,00904182540 ",.01)
 ;;00904182540
 ;;9002226.02101,"1044,00904182540 ",.02)
 ;;00904182540
 ;;9002226.02101,"1044,00904182560 ",.01)
 ;;00904182560
 ;;9002226.02101,"1044,00904182560 ",.02)
 ;;00904182560
 ;;9002226.02101,"1044,00904184060 ",.01)
 ;;00904184060
 ;;9002226.02101,"1044,00904184060 ",.02)
 ;;00904184060
 ;;9002226.02101,"1044,00904184540 ",.01)
 ;;00904184540
 ;;9002226.02101,"1044,00904184540 ",.02)
 ;;00904184540
 ;;9002226.02101,"1044,00904184560 ",.01)
 ;;00904184560
 ;;9002226.02101,"1044,00904184560 ",.02)
 ;;00904184560
 ;;9002226.02101,"1044,00904332360 ",.01)
 ;;00904332360
 ;;9002226.02101,"1044,00904332360 ",.02)
 ;;00904332360
 ;;9002226.02101,"1044,00904332460 ",.01)
 ;;00904332460
 ;;9002226.02101,"1044,00904332460 ",.02)
 ;;00904332460
 ;;9002226.02101,"1044,00904339270 ",.01)
 ;;00904339270
 ;;9002226.02101,"1044,00904339270 ",.02)
 ;;00904339270
 ;;9002226.02101,"1044,00904399040 ",.01)
 ;;00904399040
 ;;9002226.02101,"1044,00904399040 ",.02)
 ;;00904399040
 ;;9002226.02101,"1044,00904399060 ",.01)
 ;;00904399060
 ;;9002226.02101,"1044,00904399060 ",.02)
 ;;00904399060
 ;;9002226.02101,"1044,00904399061 ",.01)
 ;;00904399061
 ;;9002226.02101,"1044,00904399061 ",.02)
 ;;00904399061
 ;;9002226.02101,"1044,00904399080 ",.01)
 ;;00904399080
 ;;9002226.02101,"1044,00904399080 ",.02)
 ;;00904399080
 ;;9002226.02101,"1044,00904399140 ",.01)
 ;;00904399140
 ;;9002226.02101,"1044,00904399140 ",.02)
 ;;00904399140
 ;;9002226.02101,"1044,00904399160 ",.01)
 ;;00904399160
 ;;9002226.02101,"1044,00904399160 ",.02)
 ;;00904399160
 ;;9002226.02101,"1044,00904399161 ",.01)
 ;;00904399161
 ;;9002226.02101,"1044,00904399161 ",.02)
 ;;00904399161
 ;;9002226.02101,"1044,00904399260 ",.01)
 ;;00904399260
 ;;9002226.02101,"1044,00904399260 ",.02)
 ;;00904399260
 ;;9002226.02101,"1044,00904399270 ",.01)
 ;;00904399270
 ;;9002226.02101,"1044,00904399270 ",.02)
 ;;00904399270
 ;;9002226.02101,"1044,00904399460 ",.01)
 ;;00904399460
 ;;9002226.02101,"1044,00904399460 ",.02)
 ;;00904399460
 ;;9002226.02101,"1044,00904399461 ",.01)
 ;;00904399461
 ;;9002226.02101,"1044,00904399461 ",.02)
 ;;00904399461
 ;;9002226.02101,"1044,00904399560 ",.01)
 ;;00904399560
 ;;9002226.02101,"1044,00904399560 ",.02)
 ;;00904399560
 ;;9002226.02101,"1044,00904399561 ",.01)
 ;;00904399561
 ;;9002226.02101,"1044,00904399561 ",.02)
 ;;00904399561
 ;;9002226.02101,"1044,00904399660 ",.01)
 ;;00904399660
 ;;9002226.02101,"1044,00904399660 ",.02)
 ;;00904399660
 ;;9002226.02101,"1044,00904399746 ",.01)
 ;;00904399746
 ;;9002226.02101,"1044,00904399746 ",.02)
 ;;00904399746
 ;;9002226.02101,"1044,00904502960 ",.01)
 ;;00904502960
 ;;9002226.02101,"1044,00904502960 ",.02)
 ;;00904502960
 ;;9002226.02101,"1044,00904503060 ",.01)
 ;;00904503060
 ;;9002226.02101,"1044,00904503060 ",.02)
 ;;00904503060
 ;;9002226.02101,"1044,00904503160 ",.01)
 ;;00904503160
 ;;9002226.02101,"1044,00904503160 ",.02)
 ;;00904503160
 ;;9002226.02101,"1044,00904503260 ",.01)
 ;;00904503260
 ;;9002226.02101,"1044,00904503260 ",.02)
 ;;00904503260
 ;;9002226.02101,"1044,00904520640 ",.01)
 ;;00904520640
 ;;9002226.02101,"1044,00904520640 ",.02)
 ;;00904520640
 ;;9002226.02101,"1044,00904520652 ",.01)
 ;;00904520652
 ;;9002226.02101,"1044,00904520652 ",.02)
 ;;00904520652
 ;;9002226.02101,"1044,00904521940 ",.01)
 ;;00904521940
 ;;9002226.02101,"1044,00904521940 ",.02)
 ;;00904521940
 ;;9002226.02101,"1044,00904521960 ",.01)
 ;;00904521960
 ;;9002226.02101,"1044,00904521960 ",.02)
 ;;00904521960
 ;;9002226.02101,"1044,00904521980 ",.01)
 ;;00904521980
 ;;9002226.02101,"1044,00904521980 ",.02)
 ;;00904521980
 ;;9002226.02101,"1044,00904522040 ",.01)
 ;;00904522040
 ;;9002226.02101,"1044,00904522040 ",.02)
 ;;00904522040
 ;;9002226.02101,"1044,00904522060 ",.01)
 ;;00904522060
 ;;9002226.02101,"1044,00904522060 ",.02)
 ;;00904522060
 ;;9002226.02101,"1044,00904522160 ",.01)
 ;;00904522160
 ;;9002226.02101,"1044,00904522160 ",.02)
 ;;00904522160
 ;;9002226.02101,"1044,00904526640 ",.01)
 ;;00904526640
 ;;9002226.02101,"1044,00904526640 ",.02)
 ;;00904526640
 ;;9002226.02101,"1044,00904526660 ",.01)
 ;;00904526660
 ;;9002226.02101,"1044,00904526660 ",.02)
 ;;00904526660
 ;;9002226.02101,"1044,00904555552 ",.01)
 ;;00904555552
 ;;9002226.02101,"1044,00904555552 ",.02)
 ;;00904555552
 ;;9002226.02101,"1044,00904567661 ",.01)
 ;;00904567661
 ;;9002226.02101,"1044,00904567661 ",.02)
 ;;00904567661
 ;;9002226.02101,"1044,00904567761 ",.01)
 ;;00904567761
 ;;9002226.02101,"1044,00904567761 ",.02)
 ;;00904567761
 ;;9002226.02101,"1044,00904567861 ",.01)
 ;;00904567861
 ;;9002226.02101,"1044,00904567861 ",.02)
 ;;00904567861
 ;;9002226.02101,"1044,00904567961 ",.01)
 ;;00904567961
 ;;9002226.02101,"1044,00904567961 ",.02)
 ;;00904567961
 ;;9002226.02101,"1044,00904578461 ",.01)
 ;;00904578461
 ;;9002226.02101,"1044,00904578461 ",.02)
 ;;00904578461
 ;;9002226.02101,"1044,00904578561 ",.01)
 ;;00904578561
 ;;9002226.02101,"1044,00904578561 ",.02)
 ;;00904578561
 ;;9002226.02101,"1044,00904586661 ",.01)
 ;;00904586661
 ;;9002226.02101,"1044,00904586661 ",.02)
 ;;00904586661
 ;;9002226.02101,"1044,00904586761 ",.01)
 ;;00904586761
 ;;9002226.02101,"1044,00904586761 ",.02)
 ;;00904586761
 ;;9002226.02101,"1044,00904586861 ",.01)
 ;;00904586861
 ;;9002226.02101,"1044,00904586861 ",.02)
 ;;00904586861
 ;;9002226.02101,"1044,00904608461 ",.01)
 ;;00904608461
 ;;9002226.02101,"1044,00904608461 ",.02)
 ;;00904608461
 ;;9002226.02101,"1044,00904608561 ",.01)
 ;;00904608561
 ;;9002226.02101,"1044,00904608561 ",.02)
 ;;00904608561
 ;;9002226.02101,"1044,00904608661 ",.01)
 ;;00904608661
 ;;9002226.02101,"1044,00904608661 ",.02)
 ;;00904608661
 ;;9002226.02101,"1044,00904608761 ",.01)
 ;;00904608761
 ;;9002226.02101,"1044,00904608761 ",.02)
 ;;00904608761
 ;;9002226.02101,"1044,00904608861 ",.01)
 ;;00904608861
 ;;9002226.02101,"1044,00904608861 ",.02)
 ;;00904608861
 ;;9002226.02101,"1044,00904608961 ",.01)
 ;;00904608961
 ;;9002226.02101,"1044,00904608961 ",.02)
 ;;00904608961
 ;;9002226.02101,"1044,00904610961 ",.01)
 ;;00904610961
 ;;9002226.02101,"1044,00904610961 ",.02)
 ;;00904610961
 ;;9002226.02101,"1044,00904611061 ",.01)
 ;;00904611061
 ;;9002226.02101,"1044,00904611061 ",.02)
 ;;00904611061
 ;;9002226.02101,"1044,00904611161 ",.01)
 ;;00904611161
 ;;9002226.02101,"1044,00904611161 ",.02)
 ;;00904611161
 ;;9002226.02101,"1044,00904611261 ",.01)
 ;;00904611261
 ;;9002226.02101,"1044,00904611261 ",.02)
 ;;00904611261
 ;;9002226.02101,"1044,00904624661 ",.01)
 ;;00904624661
 ;;9002226.02101,"1044,00904624661 ",.02)
 ;;00904624661
 ;;9002226.02101,"1044,00904624761 ",.01)
 ;;00904624761
 ;;9002226.02101,"1044,00904624761 ",.02)
 ;;00904624761
 ;;9002226.02101,"1044,00904624861 ",.01)
 ;;00904624861
 ;;9002226.02101,"1044,00904624861 ",.02)
 ;;00904624861
 ;;9002226.02101,"1044,00904763661 ",.01)
 ;;00904763661
 ;;9002226.02101,"1044,00904763661 ",.02)
 ;;00904763661
 ;;9002226.02101,"1044,00904763761 ",.01)
 ;;00904763761
 ;;9002226.02101,"1044,00904763761 ",.02)
 ;;00904763761
 ;;9002226.02101,"1044,00904763861 ",.01)
 ;;00904763861
 ;;9002226.02101,"1044,00904763861 ",.02)
 ;;00904763861
 ;;9002226.02101,"1044,00904793960 ",.01)
 ;;00904793960
 ;;9002226.02101,"1044,00904793960 ",.02)
 ;;00904793960
 ;;9002226.02101,"1044,00904794060 ",.01)
 ;;00904794060
 ;;9002226.02101,"1044,00904794060 ",.02)
 ;;00904794060
 ;;9002226.02101,"1044,00904794160 ",.01)
 ;;00904794160
 ;;9002226.02101,"1044,00904794160 ",.02)
 ;;00904794160
 ;;9002226.02101,"1044,00904794260 ",.01)
 ;;00904794260
 ;;9002226.02101,"1044,00904794260 ",.02)
 ;;00904794260
 ;;9002226.02101,"1044,10544000630 ",.01)
 ;;10544000630
 ;;9002226.02101,"1044,10544000630 ",.02)
 ;;10544000630
 ;;9002226.02101,"1044,10544010930 ",.01)
 ;;10544010930
 ;;9002226.02101,"1044,10544010930 ",.02)
 ;;10544010930
 ;;9002226.02101,"1044,10544011030 ",.01)
 ;;10544011030
 ;;9002226.02101,"1044,10544011030 ",.02)
 ;;10544011030
 ;;9002226.02101,"1044,10544011060 ",.01)
 ;;10544011060
 ;;9002226.02101,"1044,10544011060 ",.02)
 ;;10544011060
 ;;9002226.02101,"1044,10544011090 ",.01)
 ;;10544011090
 ;;9002226.02101,"1044,10544011090 ",.02)
 ;;10544011090
 ;;9002226.02101,"1044,10544014930 ",.01)
 ;;10544014930
 ;;9002226.02101,"1044,10544014930 ",.02)
 ;;10544014930
 ;;9002226.02101,"1044,10544015030 ",.01)
 ;;10544015030
 ;;9002226.02101,"1044,10544015030 ",.02)
 ;;10544015030
 ;;9002226.02101,"1044,10544018130 ",.01)
 ;;10544018130
 ;;9002226.02101,"1044,10544018130 ",.02)
 ;;10544018130
 ;;9002226.02101,"1044,10544032930 ",.01)
 ;;10544032930
 ;;9002226.02101,"1044,10544032930 ",.02)
 ;;10544032930
 ;;9002226.02101,"1044,10544033630 ",.01)
 ;;10544033630
 ;;9002226.02101,"1044,10544033630 ",.02)
 ;;10544033630
 ;;9002226.02101,"1044,10544034630 ",.01)
 ;;10544034630
 ;;9002226.02101,"1044,10544034630 ",.02)
 ;;10544034630
 ;;9002226.02101,"1044,10544034660 ",.01)
 ;;10544034660
 ;;9002226.02101,"1044,10544034660 ",.02)
 ;;10544034660
 ;;9002226.02101,"1044,10544039930 ",.01)
 ;;10544039930
 ;;9002226.02101,"1044,10544039930 ",.02)
 ;;10544039930
 ;;9002226.02101,"1044,10544040530 ",.01)
 ;;10544040530
 ;;9002226.02101,"1044,10544040530 ",.02)
 ;;10544040530
 ;;9002226.02101,"1044,10544041330 ",.01)
 ;;10544041330
 ;;9002226.02101,"1044,10544041330 ",.02)
 ;;10544041330
 ;;9002226.02101,"1044,10544053330 ",.01)
 ;;10544053330
 ;;9002226.02101,"1044,10544053330 ",.02)
 ;;10544053330
 ;;9002226.02101,"1044,10768706001 ",.01)
 ;;10768706001
 ;;9002226.02101,"1044,10768706001 ",.02)
 ;;10768706001
 ;;9002226.02101,"1044,10768706003 ",.01)
 ;;10768706003
 ;;9002226.02101,"1044,10768706003 ",.02)
 ;;10768706003
 ;;9002226.02101,"1044,10768719101 ",.01)
 ;;10768719101
 ;;9002226.02101,"1044,10768719101 ",.02)
 ;;10768719101
 ;;9002226.02101,"1044,10768719103 ",.01)
 ;;10768719103
 ;;9002226.02101,"1044,10768719103 ",.02)
 ;;10768719103
 ;;9002226.02101,"1044,10768761601 ",.01)
 ;;10768761601
 ;;9002226.02101,"1044,10768761601 ",.02)
 ;;10768761601
 ;;9002226.02101,"1044,10768761603 ",.01)
 ;;10768761603
 ;;9002226.02101,"1044,10768761603 ",.02)
 ;;10768761603
 ;;9002226.02101,"1044,11722043398 ",.01)
 ;;11722043398
 ;;9002226.02101,"1044,11722043398 ",.02)
 ;;11722043398
 ;;9002226.02101,"1044,11722043498 ",.01)
 ;;11722043498
 ;;9002226.02101,"1044,11722043498 ",.02)
 ;;11722043498
 ;;9002226.02101,"1044,11722044198 ",.01)
 ;;11722044198
 ;;9002226.02101,"1044,11722044198 ",.02)
 ;;11722044198
 ;;9002226.02101,"1044,11722075599 ",.01)
 ;;11722075599
 ;;9002226.02101,"1044,11722075599 ",.02)
 ;;11722075599
 ;;9002226.02101,"1044,11722075699 ",.01)
 ;;11722075699
 ;;9002226.02101,"1044,11722075699 ",.02)
 ;;11722075699
 ;;9002226.02101,"1044,11722075799 ",.01)
 ;;11722075799
 ;;9002226.02101,"1044,11722075799 ",.02)
 ;;11722075799
 ;;9002226.02101,"1044,11722093099 ",.01)
 ;;11722093099
 ;;9002226.02101,"1044,11722093099 ",.02)
 ;;11722093099
 ;;9002226.02101,"1044,11722093199 ",.01)
 ;;11722093199
 ;;9002226.02101,"1044,11722093199 ",.02)
 ;;11722093199
 ;;9002226.02101,"1044,11722093299 ",.01)
 ;;11722093299