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

BGPM5BDO.m

Go to the documentation of this file.
BGPM5BDO ;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,61392040730 ",.02)
 ;;61392040730
 ;;9002226.02101,"1044,61392040760 ",.01)
 ;;61392040760
 ;;9002226.02101,"1044,61392040760 ",.02)
 ;;61392040760
 ;;9002226.02101,"1044,61392045625 ",.01)
 ;;61392045625
 ;;9002226.02101,"1044,61392045625 ",.02)
 ;;61392045625
 ;;9002226.02101,"1044,61392045630 ",.01)
 ;;61392045630
 ;;9002226.02101,"1044,61392045630 ",.02)
 ;;61392045630
 ;;9002226.02101,"1044,61392045725 ",.01)
 ;;61392045725
 ;;9002226.02101,"1044,61392045725 ",.02)
 ;;61392045725
 ;;9002226.02101,"1044,61392045730 ",.01)
 ;;61392045730
 ;;9002226.02101,"1044,61392045730 ",.02)
 ;;61392045730
 ;;9002226.02101,"1044,61392046925 ",.01)
 ;;61392046925
 ;;9002226.02101,"1044,61392046925 ",.02)
 ;;61392046925
 ;;9002226.02101,"1044,61392046930 ",.01)
 ;;61392046930
 ;;9002226.02101,"1044,61392046930 ",.02)
 ;;61392046930
 ;;9002226.02101,"1044,61392046931 ",.01)
 ;;61392046931
 ;;9002226.02101,"1044,61392046931 ",.02)
 ;;61392046931
 ;;9002226.02101,"1044,61392046939 ",.01)
 ;;61392046939
 ;;9002226.02101,"1044,61392046939 ",.02)
 ;;61392046939
 ;;9002226.02101,"1044,61392046960 ",.01)
 ;;61392046960
 ;;9002226.02101,"1044,61392046960 ",.02)
 ;;61392046960
 ;;9002226.02101,"1044,61392046965 ",.01)
 ;;61392046965
 ;;9002226.02101,"1044,61392046965 ",.02)
 ;;61392046965
 ;;9002226.02101,"1044,61392048725 ",.01)
 ;;61392048725
 ;;9002226.02101,"1044,61392048725 ",.02)
 ;;61392048725
 ;;9002226.02101,"1044,61392048730 ",.01)
 ;;61392048730
 ;;9002226.02101,"1044,61392048730 ",.02)
 ;;61392048730
 ;;9002226.02101,"1044,61392048731 ",.01)
 ;;61392048731
 ;;9002226.02101,"1044,61392048731 ",.02)
 ;;61392048731
 ;;9002226.02101,"1044,61392048739 ",.01)
 ;;61392048739
 ;;9002226.02101,"1044,61392048739 ",.02)
 ;;61392048739
 ;;9002226.02101,"1044,61392048745 ",.01)
 ;;61392048745
 ;;9002226.02101,"1044,61392048745 ",.02)
 ;;61392048745
 ;;9002226.02101,"1044,61392048756 ",.01)
 ;;61392048756
 ;;9002226.02101,"1044,61392048756 ",.02)
 ;;61392048756
 ;;9002226.02101,"1044,61392048760 ",.01)
 ;;61392048760
 ;;9002226.02101,"1044,61392048760 ",.02)
 ;;61392048760
 ;;9002226.02101,"1044,61392048765 ",.01)
 ;;61392048765
 ;;9002226.02101,"1044,61392048765 ",.02)
 ;;61392048765
 ;;9002226.02101,"1044,61392048790 ",.01)
 ;;61392048790
 ;;9002226.02101,"1044,61392048790 ",.02)
 ;;61392048790
 ;;9002226.02101,"1044,61392048791 ",.01)
 ;;61392048791
 ;;9002226.02101,"1044,61392048791 ",.02)
 ;;61392048791
 ;;9002226.02101,"1044,61392048795 ",.01)
 ;;61392048795
 ;;9002226.02101,"1044,61392048795 ",.02)
 ;;61392048795
 ;;9002226.02101,"1044,61392049015 ",.01)
 ;;61392049015
 ;;9002226.02101,"1044,61392049015 ",.02)
 ;;61392049015
 ;;9002226.02101,"1044,61392049025 ",.01)
 ;;61392049025
 ;;9002226.02101,"1044,61392049025 ",.02)
 ;;61392049025
 ;;9002226.02101,"1044,61392049030 ",.01)
 ;;61392049030
 ;;9002226.02101,"1044,61392049030 ",.02)
 ;;61392049030
 ;;9002226.02101,"1044,61392049031 ",.01)
 ;;61392049031
 ;;9002226.02101,"1044,61392049031 ",.02)
 ;;61392049031
 ;;9002226.02101,"1044,61392049039 ",.01)
 ;;61392049039
 ;;9002226.02101,"1044,61392049039 ",.02)
 ;;61392049039
 ;;9002226.02101,"1044,61392049045 ",.01)
 ;;61392049045
 ;;9002226.02101,"1044,61392049045 ",.02)
 ;;61392049045
 ;;9002226.02101,"1044,61392049056 ",.01)
 ;;61392049056
 ;;9002226.02101,"1044,61392049056 ",.02)
 ;;61392049056
 ;;9002226.02101,"1044,61392049060 ",.01)
 ;;61392049060
 ;;9002226.02101,"1044,61392049060 ",.02)
 ;;61392049060
 ;;9002226.02101,"1044,61392049065 ",.01)
 ;;61392049065
 ;;9002226.02101,"1044,61392049065 ",.02)
 ;;61392049065
 ;;9002226.02101,"1044,61392049090 ",.01)
 ;;61392049090
 ;;9002226.02101,"1044,61392049090 ",.02)
 ;;61392049090
 ;;9002226.02101,"1044,61392049091 ",.01)
 ;;61392049091
 ;;9002226.02101,"1044,61392049091 ",.02)
 ;;61392049091
 ;;9002226.02101,"1044,61392049095 ",.01)
 ;;61392049095
 ;;9002226.02101,"1044,61392049095 ",.02)
 ;;61392049095
 ;;9002226.02101,"1044,61392049131 ",.01)
 ;;61392049131
 ;;9002226.02101,"1044,61392049131 ",.02)
 ;;61392049131
 ;;9002226.02101,"1044,61392049132 ",.01)
 ;;61392049132
 ;;9002226.02101,"1044,61392049132 ",.02)
 ;;61392049132
 ;;9002226.02101,"1044,61392049139 ",.01)
 ;;61392049139
 ;;9002226.02101,"1044,61392049139 ",.02)
 ;;61392049139
 ;;9002226.02101,"1044,61392049145 ",.01)
 ;;61392049145
 ;;9002226.02101,"1044,61392049145 ",.02)
 ;;61392049145
 ;;9002226.02101,"1044,61392049151 ",.01)
 ;;61392049151
 ;;9002226.02101,"1044,61392049151 ",.02)
 ;;61392049151
 ;;9002226.02101,"1044,61392049154 ",.01)
 ;;61392049154
 ;;9002226.02101,"1044,61392049154 ",.02)
 ;;61392049154
 ;;9002226.02101,"1044,61392049160 ",.01)
 ;;61392049160
 ;;9002226.02101,"1044,61392049160 ",.02)
 ;;61392049160
 ;;9002226.02101,"1044,61392049190 ",.01)
 ;;61392049190
 ;;9002226.02101,"1044,61392049190 ",.02)
 ;;61392049190
 ;;9002226.02101,"1044,61392049191 ",.01)
 ;;61392049191
 ;;9002226.02101,"1044,61392049191 ",.02)
 ;;61392049191
 ;;9002226.02101,"1044,61392056125 ",.01)
 ;;61392056125
 ;;9002226.02101,"1044,61392056125 ",.02)
 ;;61392056125
 ;;9002226.02101,"1044,61392056130 ",.01)
 ;;61392056130
 ;;9002226.02101,"1044,61392056130 ",.02)
 ;;61392056130
 ;;9002226.02101,"1044,61392056160 ",.01)
 ;;61392056160
 ;;9002226.02101,"1044,61392056160 ",.02)
 ;;61392056160
 ;;9002226.02101,"1044,61392056190 ",.01)
 ;;61392056190
 ;;9002226.02101,"1044,61392056190 ",.02)
 ;;61392056190
 ;;9002226.02101,"1044,61392066525 ",.01)
 ;;61392066525
 ;;9002226.02101,"1044,61392066525 ",.02)
 ;;61392066525
 ;;9002226.02101,"1044,61392066530 ",.01)
 ;;61392066530
 ;;9002226.02101,"1044,61392066530 ",.02)
 ;;61392066530
 ;;9002226.02101,"1044,61392066531 ",.01)
 ;;61392066531
 ;;9002226.02101,"1044,61392066531 ",.02)
 ;;61392066531
 ;;9002226.02101,"1044,61392066539 ",.01)
 ;;61392066539
 ;;9002226.02101,"1044,61392066539 ",.02)
 ;;61392066539
 ;;9002226.02101,"1044,61392066560 ",.01)
 ;;61392066560
 ;;9002226.02101,"1044,61392066560 ",.02)
 ;;61392066560
 ;;9002226.02101,"1044,61392066625 ",.01)
 ;;61392066625
 ;;9002226.02101,"1044,61392066625 ",.02)
 ;;61392066625
 ;;9002226.02101,"1044,61392066630 ",.01)
 ;;61392066630
 ;;9002226.02101,"1044,61392066630 ",.02)
 ;;61392066630
 ;;9002226.02101,"1044,61392066631 ",.01)
 ;;61392066631
 ;;9002226.02101,"1044,61392066631 ",.02)
 ;;61392066631
 ;;9002226.02101,"1044,61392066639 ",.01)
 ;;61392066639
 ;;9002226.02101,"1044,61392066639 ",.02)
 ;;61392066639
 ;;9002226.02101,"1044,61392066660 ",.01)
 ;;61392066660
 ;;9002226.02101,"1044,61392066660 ",.02)
 ;;61392066660
 ;;9002226.02101,"1044,61392066690 ",.01)
 ;;61392066690
 ;;9002226.02101,"1044,61392066690 ",.02)
 ;;61392066690
 ;;9002226.02101,"1044,61392066725 ",.01)
 ;;61392066725
 ;;9002226.02101,"1044,61392066725 ",.02)
 ;;61392066725
 ;;9002226.02101,"1044,61392066730 ",.01)
 ;;61392066730
 ;;9002226.02101,"1044,61392066730 ",.02)
 ;;61392066730
 ;;9002226.02101,"1044,61392066731 ",.01)
 ;;61392066731
 ;;9002226.02101,"1044,61392066731 ",.02)
 ;;61392066731
 ;;9002226.02101,"1044,61392066739 ",.01)
 ;;61392066739
 ;;9002226.02101,"1044,61392066739 ",.02)
 ;;61392066739
 ;;9002226.02101,"1044,61392066760 ",.01)
 ;;61392066760
 ;;9002226.02101,"1044,61392066760 ",.02)
 ;;61392066760
 ;;9002226.02101,"1044,61392066825 ",.01)
 ;;61392066825
 ;;9002226.02101,"1044,61392066825 ",.02)
 ;;61392066825
 ;;9002226.02101,"1044,61392066830 ",.01)
 ;;61392066830
 ;;9002226.02101,"1044,61392066830 ",.02)
 ;;61392066830
 ;;9002226.02101,"1044,61392066831 ",.01)
 ;;61392066831
 ;;9002226.02101,"1044,61392066831 ",.02)
 ;;61392066831
 ;;9002226.02101,"1044,61392066839 ",.01)
 ;;61392066839
 ;;9002226.02101,"1044,61392066839 ",.02)
 ;;61392066839
 ;;9002226.02101,"1044,61392066860 ",.01)
 ;;61392066860
 ;;9002226.02101,"1044,61392066860 ",.02)
 ;;61392066860
 ;;9002226.02101,"1044,61392067323 ",.01)
 ;;61392067323
 ;;9002226.02101,"1044,61392067323 ",.02)
 ;;61392067323
 ;;9002226.02101,"1044,61392067325 ",.01)
 ;;61392067325
 ;;9002226.02101,"1044,61392067325 ",.02)
 ;;61392067325
 ;;9002226.02101,"1044,61392067330 ",.01)
 ;;61392067330
 ;;9002226.02101,"1044,61392067330 ",.02)
 ;;61392067330
 ;;9002226.02101,"1044,61392067331 ",.01)
 ;;61392067331
 ;;9002226.02101,"1044,61392067331 ",.02)
 ;;61392067331
 ;;9002226.02101,"1044,61392067339 ",.01)
 ;;61392067339
 ;;9002226.02101,"1044,61392067339 ",.02)
 ;;61392067339
 ;;9002226.02101,"1044,61392067360 ",.01)
 ;;61392067360
 ;;9002226.02101,"1044,61392067360 ",.02)
 ;;61392067360
 ;;9002226.02101,"1044,61392067365 ",.01)
 ;;61392067365
 ;;9002226.02101,"1044,61392067365 ",.02)
 ;;61392067365
 ;;9002226.02101,"1044,61392074025 ",.01)
 ;;61392074025
 ;;9002226.02101,"1044,61392074025 ",.02)
 ;;61392074025
 ;;9002226.02101,"1044,61392075825 ",.01)
 ;;61392075825
 ;;9002226.02101,"1044,61392075825 ",.02)
 ;;61392075825
 ;;9002226.02101,"1044,61392075830 ",.01)
 ;;61392075830
 ;;9002226.02101,"1044,61392075830 ",.02)
 ;;61392075830
 ;;9002226.02101,"1044,61392075925 ",.01)
 ;;61392075925
 ;;9002226.02101,"1044,61392075925 ",.02)
 ;;61392075925
 ;;9002226.02101,"1044,61392075930 ",.01)
 ;;61392075930
 ;;9002226.02101,"1044,61392075930 ",.02)
 ;;61392075930
 ;;9002226.02101,"1044,61392088525 ",.01)
 ;;61392088525
 ;;9002226.02101,"1044,61392088525 ",.02)
 ;;61392088525
 ;;9002226.02101,"1044,61392088530 ",.01)
 ;;61392088530
 ;;9002226.02101,"1044,61392088530 ",.02)
 ;;61392088530
 ;;9002226.02101,"1044,61392088539 ",.01)
 ;;61392088539
 ;;9002226.02101,"1044,61392088539 ",.02)
 ;;61392088539
 ;;9002226.02101,"1044,61442015101 ",.01)
 ;;61442015101
 ;;9002226.02101,"1044,61442015101 ",.02)
 ;;61442015101
 ;;9002226.02101,"1044,61442015110 ",.01)
 ;;61442015110
 ;;9002226.02101,"1044,61442015110 ",.02)
 ;;61442015110
 ;;9002226.02101,"1044,61442015201 ",.01)
 ;;61442015201
 ;;9002226.02101,"1044,61442015201 ",.02)
 ;;61442015201
 ;;9002226.02101,"1044,61442015210 ",.01)
 ;;61442015210
 ;;9002226.02101,"1044,61442015210 ",.02)
 ;;61442015210
 ;;9002226.02101,"1044,61807012930 ",.01)
 ;;61807012930
 ;;9002226.02101,"1044,61807012930 ",.02)
 ;;61807012930
 ;;9002226.02101,"1044,61807014230 ",.01)
 ;;61807014230
 ;;9002226.02101,"1044,61807014230 ",.02)
 ;;61807014230
 ;;9002226.02101,"1044,61807014330 ",.01)
 ;;61807014330
 ;;9002226.02101,"1044,61807014330 ",.02)
 ;;61807014330
 ;;9002226.02101,"1044,62033010202 ",.01)
 ;;62033010202
 ;;9002226.02101,"1044,62033010202 ",.02)
 ;;62033010202
 ;;9002226.02101,"1044,62033010203 ",.01)
 ;;62033010203
 ;;9002226.02101,"1044,62033010203 ",.02)
 ;;62033010203
 ;;9002226.02101,"1044,62037053905 ",.01)
 ;;62037053905
 ;;9002226.02101,"1044,62037053905 ",.02)
 ;;62037053905
 ;;9002226.02101,"1044,62037053910 ",.01)
 ;;62037053910
 ;;9002226.02101,"1044,62037053910 ",.02)
 ;;62037053910
 ;;9002226.02101,"1044,62037075310 ",.01)
 ;;62037075310
 ;;9002226.02101,"1044,62037075310 ",.02)
 ;;62037075310
 ;;9002226.02101,"1044,62037075330 ",.01)
 ;;62037075330
 ;;9002226.02101,"1044,62037075330 ",.02)
 ;;62037075330
 ;;9002226.02101,"1044,62037075410 ",.01)
 ;;62037075410
 ;;9002226.02101,"1044,62037075410 ",.02)
 ;;62037075410
 ;;9002226.02101,"1044,62037075430 ",.01)
 ;;62037075430
 ;;9002226.02101,"1044,62037075430 ",.02)
 ;;62037075430
 ;;9002226.02101,"1044,62037075510 ",.01)
 ;;62037075510
 ;;9002226.02101,"1044,62037075510 ",.02)
 ;;62037075510
 ;;9002226.02101,"1044,62037075530 ",.01)
 ;;62037075530
 ;;9002226.02101,"1044,62037075530 ",.02)
 ;;62037075530