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

BGPM5BBX.m

Go to the documentation of this file.
BGPM5BBX ;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,16590048072 ",.01)
 ;;16590048072
 ;;9002226.02101,"1044,16590048072 ",.02)
 ;;16590048072
 ;;9002226.02101,"1044,16590048090 ",.01)
 ;;16590048090
 ;;9002226.02101,"1044,16590048090 ",.02)
 ;;16590048090
 ;;9002226.02101,"1044,16590049030 ",.01)
 ;;16590049030
 ;;9002226.02101,"1044,16590049030 ",.02)
 ;;16590049030
 ;;9002226.02101,"1044,16590049060 ",.01)
 ;;16590049060
 ;;9002226.02101,"1044,16590049060 ",.02)
 ;;16590049060
 ;;9002226.02101,"1044,16590049072 ",.01)
 ;;16590049072
 ;;9002226.02101,"1044,16590049072 ",.02)
 ;;16590049072
 ;;9002226.02101,"1044,16590049090 ",.01)
 ;;16590049090
 ;;9002226.02101,"1044,16590049090 ",.02)
 ;;16590049090
 ;;9002226.02101,"1044,16590051030 ",.01)
 ;;16590051030
 ;;9002226.02101,"1044,16590051030 ",.02)
 ;;16590051030
 ;;9002226.02101,"1044,16590051060 ",.01)
 ;;16590051060
 ;;9002226.02101,"1044,16590051060 ",.02)
 ;;16590051060
 ;;9002226.02101,"1044,16590051072 ",.01)
 ;;16590051072
 ;;9002226.02101,"1044,16590051072 ",.02)
 ;;16590051072
 ;;9002226.02101,"1044,16590051090 ",.01)
 ;;16590051090
 ;;9002226.02101,"1044,16590051090 ",.02)
 ;;16590051090
 ;;9002226.02101,"1044,16590051206 ",.01)
 ;;16590051206
 ;;9002226.02101,"1044,16590051206 ",.02)
 ;;16590051206
 ;;9002226.02101,"1044,16590051230 ",.01)
 ;;16590051230
 ;;9002226.02101,"1044,16590051230 ",.02)
 ;;16590051230
 ;;9002226.02101,"1044,16590051260 ",.01)
 ;;16590051260
 ;;9002226.02101,"1044,16590051260 ",.02)
 ;;16590051260
 ;;9002226.02101,"1044,16590051272 ",.01)
 ;;16590051272
 ;;9002226.02101,"1044,16590051272 ",.02)
 ;;16590051272
 ;;9002226.02101,"1044,16590051290 ",.01)
 ;;16590051290
 ;;9002226.02101,"1044,16590051290 ",.02)
 ;;16590051290
 ;;9002226.02101,"1044,16590051330 ",.01)
 ;;16590051330
 ;;9002226.02101,"1044,16590051330 ",.02)
 ;;16590051330
 ;;9002226.02101,"1044,16590051356 ",.01)
 ;;16590051356
 ;;9002226.02101,"1044,16590051356 ",.02)
 ;;16590051356
 ;;9002226.02101,"1044,16590051360 ",.01)
 ;;16590051360
 ;;9002226.02101,"1044,16590051360 ",.02)
 ;;16590051360
 ;;9002226.02101,"1044,16590051372 ",.01)
 ;;16590051372
 ;;9002226.02101,"1044,16590051372 ",.02)
 ;;16590051372
 ;;9002226.02101,"1044,16590051390 ",.01)
 ;;16590051390
 ;;9002226.02101,"1044,16590051390 ",.02)
 ;;16590051390
 ;;9002226.02101,"1044,16590053530 ",.01)
 ;;16590053530
 ;;9002226.02101,"1044,16590053530 ",.02)
 ;;16590053530
 ;;9002226.02101,"1044,16590053560 ",.01)
 ;;16590053560
 ;;9002226.02101,"1044,16590053560 ",.02)
 ;;16590053560
 ;;9002226.02101,"1044,16590053562 ",.01)
 ;;16590053562
 ;;9002226.02101,"1044,16590053562 ",.02)
 ;;16590053562
 ;;9002226.02101,"1044,16590053571 ",.01)
 ;;16590053571
 ;;9002226.02101,"1044,16590053571 ",.02)
 ;;16590053571
 ;;9002226.02101,"1044,16590053572 ",.01)
 ;;16590053572
 ;;9002226.02101,"1044,16590053572 ",.02)
 ;;16590053572
 ;;9002226.02101,"1044,16590053590 ",.01)
 ;;16590053590
 ;;9002226.02101,"1044,16590053590 ",.02)
 ;;16590053590
 ;;9002226.02101,"1044,16590054130 ",.01)
 ;;16590054130
 ;;9002226.02101,"1044,16590054130 ",.02)
 ;;16590054130
 ;;9002226.02101,"1044,16590054160 ",.01)
 ;;16590054160
 ;;9002226.02101,"1044,16590054160 ",.02)
 ;;16590054160
 ;;9002226.02101,"1044,16590054172 ",.01)
 ;;16590054172
 ;;9002226.02101,"1044,16590054172 ",.02)
 ;;16590054172
 ;;9002226.02101,"1044,16590054190 ",.01)
 ;;16590054190
 ;;9002226.02101,"1044,16590054190 ",.02)
 ;;16590054190
 ;;9002226.02101,"1044,16590056530 ",.01)
 ;;16590056530
 ;;9002226.02101,"1044,16590056530 ",.02)
 ;;16590056530
 ;;9002226.02101,"1044,16590056560 ",.01)
 ;;16590056560
 ;;9002226.02101,"1044,16590056560 ",.02)
 ;;16590056560
 ;;9002226.02101,"1044,16590056572 ",.01)
 ;;16590056572
 ;;9002226.02101,"1044,16590056572 ",.02)
 ;;16590056572
 ;;9002226.02101,"1044,16590056590 ",.01)
 ;;16590056590
 ;;9002226.02101,"1044,16590056590 ",.02)
 ;;16590056590
 ;;9002226.02101,"1044,16590057730 ",.01)
 ;;16590057730
 ;;9002226.02101,"1044,16590057730 ",.02)
 ;;16590057730
 ;;9002226.02101,"1044,16590057760 ",.01)
 ;;16590057760
 ;;9002226.02101,"1044,16590057760 ",.02)
 ;;16590057760
 ;;9002226.02101,"1044,16590057790 ",.01)
 ;;16590057790
 ;;9002226.02101,"1044,16590057790 ",.02)
 ;;16590057790
 ;;9002226.02101,"1044,16590058528 ",.01)
 ;;16590058528
 ;;9002226.02101,"1044,16590058528 ",.02)
 ;;16590058528
 ;;9002226.02101,"1044,16590058530 ",.01)
 ;;16590058530
 ;;9002226.02101,"1044,16590058530 ",.02)
 ;;16590058530
 ;;9002226.02101,"1044,16590058560 ",.01)
 ;;16590058560
 ;;9002226.02101,"1044,16590058560 ",.02)
 ;;16590058560
 ;;9002226.02101,"1044,16590058571 ",.01)
 ;;16590058571
 ;;9002226.02101,"1044,16590058571 ",.02)
 ;;16590058571
 ;;9002226.02101,"1044,16590058572 ",.01)
 ;;16590058572
 ;;9002226.02101,"1044,16590058572 ",.02)
 ;;16590058572
 ;;9002226.02101,"1044,16590058590 ",.01)
 ;;16590058590
 ;;9002226.02101,"1044,16590058590 ",.02)
 ;;16590058590
 ;;9002226.02101,"1044,16590059030 ",.01)
 ;;16590059030
 ;;9002226.02101,"1044,16590059030 ",.02)
 ;;16590059030
 ;;9002226.02101,"1044,16590059060 ",.01)
 ;;16590059060
 ;;9002226.02101,"1044,16590059060 ",.02)
 ;;16590059060
 ;;9002226.02101,"1044,16590059072 ",.01)
 ;;16590059072
 ;;9002226.02101,"1044,16590059072 ",.02)
 ;;16590059072
 ;;9002226.02101,"1044,16590059090 ",.01)
 ;;16590059090
 ;;9002226.02101,"1044,16590059090 ",.02)
 ;;16590059090
 ;;9002226.02101,"1044,16590064430 ",.01)
 ;;16590064430
 ;;9002226.02101,"1044,16590064430 ",.02)
 ;;16590064430
 ;;9002226.02101,"1044,16590064460 ",.01)
 ;;16590064460
 ;;9002226.02101,"1044,16590064460 ",.02)
 ;;16590064460
 ;;9002226.02101,"1044,16590064482 ",.01)
 ;;16590064482
 ;;9002226.02101,"1044,16590064482 ",.02)
 ;;16590064482
 ;;9002226.02101,"1044,16590064490 ",.01)
 ;;16590064490
 ;;9002226.02101,"1044,16590064490 ",.02)
 ;;16590064490
 ;;9002226.02101,"1044,16590065030 ",.01)
 ;;16590065030
 ;;9002226.02101,"1044,16590065030 ",.02)
 ;;16590065030
 ;;9002226.02101,"1044,16590065060 ",.01)
 ;;16590065060
 ;;9002226.02101,"1044,16590065060 ",.02)
 ;;16590065060
 ;;9002226.02101,"1044,16590065090 ",.01)
 ;;16590065090
 ;;9002226.02101,"1044,16590065090 ",.02)
 ;;16590065090
 ;;9002226.02101,"1044,16590070030 ",.01)
 ;;16590070030
 ;;9002226.02101,"1044,16590070030 ",.02)
 ;;16590070030
 ;;9002226.02101,"1044,16590070082 ",.01)
 ;;16590070082
 ;;9002226.02101,"1044,16590070082 ",.02)
 ;;16590070082
 ;;9002226.02101,"1044,16590071330 ",.01)
 ;;16590071330
 ;;9002226.02101,"1044,16590071330 ",.02)
 ;;16590071330
 ;;9002226.02101,"1044,16590071360 ",.01)
 ;;16590071360
 ;;9002226.02101,"1044,16590071360 ",.02)
 ;;16590071360
 ;;9002226.02101,"1044,16590071390 ",.01)
 ;;16590071390
 ;;9002226.02101,"1044,16590071390 ",.02)
 ;;16590071390
 ;;9002226.02101,"1044,16590072030 ",.01)
 ;;16590072030
 ;;9002226.02101,"1044,16590072030 ",.02)
 ;;16590072030
 ;;9002226.02101,"1044,16590079930 ",.01)
 ;;16590079930
 ;;9002226.02101,"1044,16590079930 ",.02)
 ;;16590079930
 ;;9002226.02101,"1044,16590080030 ",.01)
 ;;16590080030
 ;;9002226.02101,"1044,16590080030 ",.02)
 ;;16590080030
 ;;9002226.02101,"1044,16590080430 ",.01)
 ;;16590080430
 ;;9002226.02101,"1044,16590080430 ",.02)
 ;;16590080430
 ;;9002226.02101,"1044,16590080472 ",.01)
 ;;16590080472
 ;;9002226.02101,"1044,16590080472 ",.02)
 ;;16590080472
 ;;9002226.02101,"1044,16590084830 ",.01)
 ;;16590084830
 ;;9002226.02101,"1044,16590084830 ",.02)
 ;;16590084830
 ;;9002226.02101,"1044,16590084860 ",.01)
 ;;16590084860
 ;;9002226.02101,"1044,16590084860 ",.02)
 ;;16590084860
 ;;9002226.02101,"1044,16590089630 ",.01)
 ;;16590089630
 ;;9002226.02101,"1044,16590089630 ",.02)
 ;;16590089630
 ;;9002226.02101,"1044,16590089660 ",.01)
 ;;16590089660
 ;;9002226.02101,"1044,16590089660 ",.02)
 ;;16590089660
 ;;9002226.02101,"1044,16590089690 ",.01)
 ;;16590089690
 ;;9002226.02101,"1044,16590089690 ",.02)
 ;;16590089690
 ;;9002226.02101,"1044,16590092030 ",.01)
 ;;16590092030
 ;;9002226.02101,"1044,16590092030 ",.02)
 ;;16590092030
 ;;9002226.02101,"1044,16590092060 ",.01)
 ;;16590092060
 ;;9002226.02101,"1044,16590092060 ",.02)
 ;;16590092060
 ;;9002226.02101,"1044,16590092090 ",.01)
 ;;16590092090
 ;;9002226.02101,"1044,16590092090 ",.02)
 ;;16590092090
 ;;9002226.02101,"1044,16590096330 ",.01)
 ;;16590096330
 ;;9002226.02101,"1044,16590096330 ",.02)
 ;;16590096330
 ;;9002226.02101,"1044,16590096360 ",.01)
 ;;16590096360
 ;;9002226.02101,"1044,16590096360 ",.02)
 ;;16590096360
 ;;9002226.02101,"1044,16590096390 ",.01)
 ;;16590096390
 ;;9002226.02101,"1044,16590096390 ",.02)
 ;;16590096390
 ;;9002226.02101,"1044,16714031101 ",.01)
 ;;16714031101
 ;;9002226.02101,"1044,16714031101 ",.02)
 ;;16714031101
 ;;9002226.02101,"1044,16714031110 ",.01)
 ;;16714031110
 ;;9002226.02101,"1044,16714031110 ",.02)
 ;;16714031110
 ;;9002226.02101,"1044,16714031111 ",.01)
 ;;16714031111
 ;;9002226.02101,"1044,16714031111 ",.02)
 ;;16714031111
 ;;9002226.02101,"1044,16714031201 ",.01)
 ;;16714031201
 ;;9002226.02101,"1044,16714031201 ",.02)
 ;;16714031201
 ;;9002226.02101,"1044,16714031210 ",.01)
 ;;16714031210
 ;;9002226.02101,"1044,16714031210 ",.02)
 ;;16714031210
 ;;9002226.02101,"1044,16714031211 ",.01)
 ;;16714031211
 ;;9002226.02101,"1044,16714031211 ",.02)
 ;;16714031211
 ;;9002226.02101,"1044,16714031301 ",.01)
 ;;16714031301
 ;;9002226.02101,"1044,16714031301 ",.02)
 ;;16714031301
 ;;9002226.02101,"1044,16714031310 ",.01)
 ;;16714031310
 ;;9002226.02101,"1044,16714031310 ",.02)
 ;;16714031310
 ;;9002226.02101,"1044,16714031311 ",.01)
 ;;16714031311
 ;;9002226.02101,"1044,16714031311 ",.02)
 ;;16714031311
 ;;9002226.02101,"1044,16714031401 ",.01)
 ;;16714031401
 ;;9002226.02101,"1044,16714031401 ",.02)
 ;;16714031401
 ;;9002226.02101,"1044,16714031410 ",.01)
 ;;16714031410
 ;;9002226.02101,"1044,16714031410 ",.02)
 ;;16714031410
 ;;9002226.02101,"1044,16714031411 ",.01)
 ;;16714031411
 ;;9002226.02101,"1044,16714031411 ",.02)
 ;;16714031411
 ;;9002226.02101,"1044,16714031501 ",.01)
 ;;16714031501
 ;;9002226.02101,"1044,16714031501 ",.02)
 ;;16714031501
 ;;9002226.02101,"1044,16714031510 ",.01)
 ;;16714031510
 ;;9002226.02101,"1044,16714031510 ",.02)
 ;;16714031510
 ;;9002226.02101,"1044,16714031511 ",.01)
 ;;16714031511
 ;;9002226.02101,"1044,16714031511 ",.02)
 ;;16714031511
 ;;9002226.02101,"1044,16714035101 ",.01)
 ;;16714035101
 ;;9002226.02101,"1044,16714035101 ",.02)
 ;;16714035101
 ;;9002226.02101,"1044,16714035102 ",.01)
 ;;16714035102
 ;;9002226.02101,"1044,16714035102 ",.02)
 ;;16714035102
 ;;9002226.02101,"1044,16714035103 ",.01)
 ;;16714035103
 ;;9002226.02101,"1044,16714035103 ",.02)
 ;;16714035103
 ;;9002226.02101,"1044,16714035201 ",.01)
 ;;16714035201
 ;;9002226.02101,"1044,16714035201 ",.02)
 ;;16714035201
 ;;9002226.02101,"1044,16714035202 ",.01)
 ;;16714035202
 ;;9002226.02101,"1044,16714035202 ",.02)
 ;;16714035202
 ;;9002226.02101,"1044,16714035203 ",.01)
 ;;16714035203
 ;;9002226.02101,"1044,16714035203 ",.02)
 ;;16714035203
 ;;9002226.02101,"1044,16714035301 ",.01)
 ;;16714035301
 ;;9002226.02101,"1044,16714035301 ",.02)
 ;;16714035301
 ;;9002226.02101,"1044,16714035302 ",.01)
 ;;16714035302
 ;;9002226.02101,"1044,16714035302 ",.02)
 ;;16714035302
 ;;9002226.02101,"1044,16714035303 ",.01)
 ;;16714035303
 ;;9002226.02101,"1044,16714035303 ",.02)
 ;;16714035303
 ;;9002226.02101,"1044,16714035304 ",.01)
 ;;16714035304
 ;;9002226.02101,"1044,16714035304 ",.02)
 ;;16714035304
 ;;9002226.02101,"1044,16714060101 ",.01)
 ;;16714060101