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

BGPM5BBP.m

Go to the documentation of this file.
BGPM5BBP ;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,00490703435 ",.01)
 ;;00490703435
 ;;9002226.02101,"1044,00490703435 ",.02)
 ;;00490703435
 ;;9002226.02101,"1044,00490703436 ",.01)
 ;;00490703436
 ;;9002226.02101,"1044,00490703436 ",.02)
 ;;00490703436
 ;;9002226.02101,"1044,00490703440 ",.01)
 ;;00490703440
 ;;9002226.02101,"1044,00490703440 ",.02)
 ;;00490703440
 ;;9002226.02101,"1044,00490703442 ",.01)
 ;;00490703442
 ;;9002226.02101,"1044,00490703442 ",.02)
 ;;00490703442
 ;;9002226.02101,"1044,00490703444 ",.01)
 ;;00490703444
 ;;9002226.02101,"1044,00490703444 ",.02)
 ;;00490703444
 ;;9002226.02101,"1044,00490703445 ",.01)
 ;;00490703445
 ;;9002226.02101,"1044,00490703445 ",.02)
 ;;00490703445
 ;;9002226.02101,"1044,00490703448 ",.01)
 ;;00490703448
 ;;9002226.02101,"1044,00490703448 ",.02)
 ;;00490703448
 ;;9002226.02101,"1044,00490703450 ",.01)
 ;;00490703450
 ;;9002226.02101,"1044,00490703450 ",.02)
 ;;00490703450
 ;;9002226.02101,"1044,00490703456 ",.01)
 ;;00490703456
 ;;9002226.02101,"1044,00490703456 ",.02)
 ;;00490703456
 ;;9002226.02101,"1044,00490703460 ",.01)
 ;;00490703460
 ;;9002226.02101,"1044,00490703460 ",.02)
 ;;00490703460
 ;;9002226.02101,"1044,00490703467 ",.01)
 ;;00490703467
 ;;9002226.02101,"1044,00490703467 ",.02)
 ;;00490703467
 ;;9002226.02101,"1044,00490703469 ",.01)
 ;;00490703469
 ;;9002226.02101,"1044,00490703469 ",.02)
 ;;00490703469
 ;;9002226.02101,"1044,00490703470 ",.01)
 ;;00490703470
 ;;9002226.02101,"1044,00490703470 ",.02)
 ;;00490703470
 ;;9002226.02101,"1044,00490703471 ",.01)
 ;;00490703471
 ;;9002226.02101,"1044,00490703471 ",.02)
 ;;00490703471
 ;;9002226.02101,"1044,00490703472 ",.01)
 ;;00490703472
 ;;9002226.02101,"1044,00490703472 ",.02)
 ;;00490703472
 ;;9002226.02101,"1044,00490703473 ",.01)
 ;;00490703473
 ;;9002226.02101,"1044,00490703473 ",.02)
 ;;00490703473
 ;;9002226.02101,"1044,00490703475 ",.01)
 ;;00490703475
 ;;9002226.02101,"1044,00490703475 ",.02)
 ;;00490703475
 ;;9002226.02101,"1044,00490703476 ",.01)
 ;;00490703476
 ;;9002226.02101,"1044,00490703476 ",.02)
 ;;00490703476
 ;;9002226.02101,"1044,00490703477 ",.01)
 ;;00490703477
 ;;9002226.02101,"1044,00490703477 ",.02)
 ;;00490703477
 ;;9002226.02101,"1044,00490703479 ",.01)
 ;;00490703479
 ;;9002226.02101,"1044,00490703479 ",.02)
 ;;00490703479
 ;;9002226.02101,"1044,00490703480 ",.01)
 ;;00490703480
 ;;9002226.02101,"1044,00490703480 ",.02)
 ;;00490703480
 ;;9002226.02101,"1044,00490703481 ",.01)
 ;;00490703481
 ;;9002226.02101,"1044,00490703481 ",.02)
 ;;00490703481
 ;;9002226.02101,"1044,00490703482 ",.01)
 ;;00490703482
 ;;9002226.02101,"1044,00490703482 ",.02)
 ;;00490703482
 ;;9002226.02101,"1044,00490703483 ",.01)
 ;;00490703483
 ;;9002226.02101,"1044,00490703483 ",.02)
 ;;00490703483
 ;;9002226.02101,"1044,00490703484 ",.01)
 ;;00490703484
 ;;9002226.02101,"1044,00490703484 ",.02)
 ;;00490703484
 ;;9002226.02101,"1044,00490703487 ",.01)
 ;;00490703487
 ;;9002226.02101,"1044,00490703487 ",.02)
 ;;00490703487
 ;;9002226.02101,"1044,00490703489 ",.01)
 ;;00490703489
 ;;9002226.02101,"1044,00490703489 ",.02)
 ;;00490703489
 ;;9002226.02101,"1044,00490703490 ",.01)
 ;;00490703490
 ;;9002226.02101,"1044,00490703490 ",.02)
 ;;00490703490
 ;;9002226.02101,"1044,00490703491 ",.01)
 ;;00490703491
 ;;9002226.02101,"1044,00490703491 ",.02)
 ;;00490703491
 ;;9002226.02101,"1044,00490703492 ",.01)
 ;;00490703492
 ;;9002226.02101,"1044,00490703492 ",.02)
 ;;00490703492
 ;;9002226.02101,"1044,00490703493 ",.01)
 ;;00490703493
 ;;9002226.02101,"1044,00490703493 ",.02)
 ;;00490703493
 ;;9002226.02101,"1044,00490703496 ",.01)
 ;;00490703496
 ;;9002226.02101,"1044,00490703496 ",.02)
 ;;00490703496
 ;;9002226.02101,"1044,00490703497 ",.01)
 ;;00490703497
 ;;9002226.02101,"1044,00490703497 ",.02)
 ;;00490703497
 ;;9002226.02101,"1044,00490703498 ",.01)
 ;;00490703498
 ;;9002226.02101,"1044,00490703498 ",.02)
 ;;00490703498
 ;;9002226.02101,"1044,00490703499 ",.01)
 ;;00490703499
 ;;9002226.02101,"1044,00490703499 ",.02)
 ;;00490703499
 ;;9002226.02101,"1044,00555020101 ",.01)
 ;;00555020101
 ;;9002226.02101,"1044,00555020101 ",.02)
 ;;00555020101
 ;;9002226.02101,"1044,00555020102 ",.01)
 ;;00555020102
 ;;9002226.02101,"1044,00555020102 ",.02)
 ;;00555020102
 ;;9002226.02101,"1044,00555020104 ",.01)
 ;;00555020104
 ;;9002226.02101,"1044,00555020104 ",.02)
 ;;00555020104
 ;;9002226.02101,"1044,00555020110 ",.01)
 ;;00555020110
 ;;9002226.02101,"1044,00555020110 ",.02)
 ;;00555020110
 ;;9002226.02101,"1044,00555024171 ",.01)
 ;;00555024171
 ;;9002226.02101,"1044,00555024171 ",.02)
 ;;00555024171
 ;;9002226.02101,"1044,00555024271 ",.01)
 ;;00555024271
 ;;9002226.02101,"1044,00555024271 ",.02)
 ;;00555024271
 ;;9002226.02101,"1044,00555048902 ",.01)
 ;;00555048902
 ;;9002226.02101,"1044,00555048902 ",.02)
 ;;00555048902
 ;;9002226.02101,"1044,00555048904 ",.01)
 ;;00555048904
 ;;9002226.02101,"1044,00555048904 ",.02)
 ;;00555048904
 ;;9002226.02101,"1044,00555048905 ",.01)
 ;;00555048905
 ;;9002226.02101,"1044,00555048905 ",.02)
 ;;00555048905
 ;;9002226.02101,"1044,00555049002 ",.01)
 ;;00555049002
 ;;9002226.02101,"1044,00555049002 ",.02)
 ;;00555049002
 ;;9002226.02101,"1044,00555049004 ",.01)
 ;;00555049004
 ;;9002226.02101,"1044,00555049004 ",.02)
 ;;00555049004
 ;;9002226.02101,"1044,00555049005 ",.01)
 ;;00555049005
 ;;9002226.02101,"1044,00555049005 ",.02)
 ;;00555049005
 ;;9002226.02101,"1044,00555059402 ",.01)
 ;;00555059402
 ;;9002226.02101,"1044,00555059402 ",.02)
 ;;00555059402
 ;;9002226.02101,"1044,00555059502 ",.01)
 ;;00555059502
 ;;9002226.02101,"1044,00555059502 ",.02)
 ;;00555059502
 ;;9002226.02101,"1044,00555073202 ",.01)
 ;;00555073202
 ;;9002226.02101,"1044,00555073202 ",.02)
 ;;00555073202
 ;;9002226.02101,"1044,00555073204 ",.01)
 ;;00555073204
 ;;9002226.02101,"1044,00555073204 ",.02)
 ;;00555073204
 ;;9002226.02101,"1044,00555073302 ",.01)
 ;;00555073302
 ;;9002226.02101,"1044,00555073302 ",.02)
 ;;00555073302
 ;;9002226.02101,"1044,00555087154 ",.01)
 ;;00555087154
 ;;9002226.02101,"1044,00555087154 ",.02)
 ;;00555087154
 ;;9002226.02101,"1044,00555087188 ",.01)
 ;;00555087188
 ;;9002226.02101,"1044,00555087188 ",.02)
 ;;00555087188
 ;;9002226.02101,"1044,00555087601 ",.01)
 ;;00555087601
 ;;9002226.02101,"1044,00555087601 ",.02)
 ;;00555087601
 ;;9002226.02101,"1044,00555087602 ",.01)
 ;;00555087602
 ;;9002226.02101,"1044,00555087602 ",.02)
 ;;00555087602
 ;;9002226.02101,"1044,00555087607 ",.01)
 ;;00555087607
 ;;9002226.02101,"1044,00555087607 ",.02)
 ;;00555087607
 ;;9002226.02101,"1044,00555087701 ",.01)
 ;;00555087701
 ;;9002226.02101,"1044,00555087701 ",.02)
 ;;00555087701
 ;;9002226.02101,"1044,00555087702 ",.01)
 ;;00555087702
 ;;9002226.02101,"1044,00555087702 ",.02)
 ;;00555087702
 ;;9002226.02101,"1044,00555087704 ",.01)
 ;;00555087704
 ;;9002226.02101,"1044,00555087704 ",.02)
 ;;00555087704
 ;;9002226.02101,"1044,00555087705 ",.01)
 ;;00555087705
 ;;9002226.02101,"1044,00555087705 ",.02)
 ;;00555087705
 ;;9002226.02101,"1044,00555087707 ",.01)
 ;;00555087707
 ;;9002226.02101,"1044,00555087707 ",.02)
 ;;00555087707
 ;;9002226.02101,"1044,00555096701 ",.01)
 ;;00555096701
 ;;9002226.02101,"1044,00555096701 ",.02)
 ;;00555096701
 ;;9002226.02101,"1044,00555096702 ",.01)
 ;;00555096702
 ;;9002226.02101,"1044,00555096702 ",.02)
 ;;00555096702
 ;;9002226.02101,"1044,00555096801 ",.01)
 ;;00555096801
 ;;9002226.02101,"1044,00555096801 ",.02)
 ;;00555096801
 ;;9002226.02101,"1044,00555096802 ",.01)
 ;;00555096802
 ;;9002226.02101,"1044,00555096802 ",.02)
 ;;00555096802
 ;;9002226.02101,"1044,00555096805 ",.01)
 ;;00555096805
 ;;9002226.02101,"1044,00555096805 ",.02)
 ;;00555096805
 ;;9002226.02101,"1044,00555096901 ",.01)
 ;;00555096901
 ;;9002226.02101,"1044,00555096901 ",.02)
 ;;00555096901
 ;;9002226.02101,"1044,00555096902 ",.01)
 ;;00555096902
 ;;9002226.02101,"1044,00555096902 ",.02)
 ;;00555096902
 ;;9002226.02101,"1044,00555096905 ",.01)
 ;;00555096905
 ;;9002226.02101,"1044,00555096905 ",.02)
 ;;00555096905
 ;;9002226.02101,"1044,00555724371 ",.01)
 ;;00555724371
 ;;9002226.02101,"1044,00555724371 ",.02)
 ;;00555724371
 ;;9002226.02101,"1044,00591111701 ",.01)
 ;;00591111701
 ;;9002226.02101,"1044,00591111701 ",.02)
 ;;00591111701
 ;;9002226.02101,"1044,00591111705 ",.01)
 ;;00591111705
 ;;9002226.02101,"1044,00591111705 ",.02)
 ;;00591111705
 ;;9002226.02101,"1044,00591111710 ",.01)
 ;;00591111710
 ;;9002226.02101,"1044,00591111710 ",.02)
 ;;00591111710
 ;;9002226.02101,"1044,00591111730 ",.01)
 ;;00591111730
 ;;9002226.02101,"1044,00591111730 ",.02)
 ;;00591111730
 ;;9002226.02101,"1044,00591111801 ",.01)
 ;;00591111801
 ;;9002226.02101,"1044,00591111801 ",.02)
 ;;00591111801
 ;;9002226.02101,"1044,00591111805 ",.01)
 ;;00591111805
 ;;9002226.02101,"1044,00591111805 ",.02)
 ;;00591111805
 ;;9002226.02101,"1044,00591111810 ",.01)
 ;;00591111810
 ;;9002226.02101,"1044,00591111810 ",.02)
 ;;00591111810
 ;;9002226.02101,"1044,00591111830 ",.01)
 ;;00591111830
 ;;9002226.02101,"1044,00591111830 ",.02)
 ;;00591111830
 ;;9002226.02101,"1044,00591111901 ",.01)
 ;;00591111901
 ;;9002226.02101,"1044,00591111901 ",.02)
 ;;00591111901
 ;;9002226.02101,"1044,00591111905 ",.01)
 ;;00591111905
 ;;9002226.02101,"1044,00591111905 ",.02)
 ;;00591111905
 ;;9002226.02101,"1044,00591111910 ",.01)
 ;;00591111910
 ;;9002226.02101,"1044,00591111910 ",.02)
 ;;00591111910
 ;;9002226.02101,"1044,00591111930 ",.01)
 ;;00591111930
 ;;9002226.02101,"1044,00591111930 ",.02)
 ;;00591111930
 ;;9002226.02101,"1044,00591223015 ",.01)
 ;;00591223015
 ;;9002226.02101,"1044,00591223015 ",.02)
 ;;00591223015
 ;;9002226.02101,"1044,00591223115 ",.01)
 ;;00591223115
 ;;9002226.02101,"1044,00591223115 ",.02)
 ;;00591223115
 ;;9002226.02101,"1044,00591317601 ",.01)
 ;;00591317601
 ;;9002226.02101,"1044,00591317601 ",.02)
 ;;00591317601
 ;;9002226.02101,"1044,00591317605 ",.01)
 ;;00591317605
 ;;9002226.02101,"1044,00591317605 ",.02)
 ;;00591317605
 ;;9002226.02101,"1044,00591317701 ",.01)
 ;;00591317701
 ;;9002226.02101,"1044,00591317701 ",.02)
 ;;00591317701
 ;;9002226.02101,"1044,00591317705 ",.01)
 ;;00591317705
 ;;9002226.02101,"1044,00591317705 ",.02)
 ;;00591317705
 ;;9002226.02101,"1044,00591317744 ",.01)
 ;;00591317744
 ;;9002226.02101,"1044,00591317744 ",.02)
 ;;00591317744
 ;;9002226.02101,"1044,00591317801 ",.01)
 ;;00591317801
 ;;9002226.02101,"1044,00591317801 ",.02)
 ;;00591317801
 ;;9002226.02101,"1044,00591317805 ",.01)
 ;;00591317805
 ;;9002226.02101,"1044,00591317805 ",.02)
 ;;00591317805
 ;;9002226.02101,"1044,00591317844 ",.01)
 ;;00591317844
 ;;9002226.02101,"1044,00591317844 ",.02)
 ;;00591317844
 ;;9002226.02101,"1044,00591323819 ",.01)
 ;;00591323819
 ;;9002226.02101,"1044,00591323819 ",.02)
 ;;00591323819
 ;;9002226.02101,"1044,00591323830 ",.01)
 ;;00591323830
 ;;9002226.02101,"1044,00591323830 ",.02)
 ;;00591323830
 ;;9002226.02101,"1044,00591323910 ",.01)
 ;;00591323910
 ;;9002226.02101,"1044,00591323910 ",.02)
 ;;00591323910
 ;;9002226.02101,"1044,00591323919 ",.01)
 ;;00591323919
 ;;9002226.02101,"1044,00591323919 ",.02)
 ;;00591323919
 ;;9002226.02101,"1044,00591323930 ",.01)
 ;;00591323930
 ;;9002226.02101,"1044,00591323930 ",.02)
 ;;00591323930
 ;;9002226.02101,"1044,00591324010 ",.01)
 ;;00591324010
 ;;9002226.02101,"1044,00591324010 ",.02)
 ;;00591324010
 ;;9002226.02101,"1044,00591324019 ",.01)
 ;;00591324019
 ;;9002226.02101,"1044,00591324019 ",.02)
 ;;00591324019
 ;;9002226.02101,"1044,00591324030 ",.01)
 ;;00591324030