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

BGPM5BBQ.m

Go to the documentation of this file.
BGPM5BBQ ;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,00591324030 ",.02)
 ;;00591324030
 ;;9002226.02101,"1044,00591559901 ",.01)
 ;;00591559901
 ;;9002226.02101,"1044,00591559901 ",.02)
 ;;00591559901
 ;;9002226.02101,"1044,00591559910 ",.01)
 ;;00591559910
 ;;9002226.02101,"1044,00591559910 ",.02)
 ;;00591559910
 ;;9002226.02101,"1044,00591560001 ",.01)
 ;;00591560001
 ;;9002226.02101,"1044,00591560001 ",.02)
 ;;00591560001
 ;;9002226.02101,"1044,00591560010 ",.01)
 ;;00591560010
 ;;9002226.02101,"1044,00591560010 ",.02)
 ;;00591560010
 ;;9002226.02101,"1044,00591571301 ",.01)
 ;;00591571301
 ;;9002226.02101,"1044,00591571301 ",.02)
 ;;00591571301
 ;;9002226.02101,"1044,00591571401 ",.01)
 ;;00591571401
 ;;9002226.02101,"1044,00591571401 ",.02)
 ;;00591571401
 ;;9002226.02101,"1044,00591571501 ",.01)
 ;;00591571501
 ;;9002226.02101,"1044,00591571501 ",.02)
 ;;00591571501
 ;;9002226.02101,"1044,00591571630 ",.01)
 ;;00591571630
 ;;9002226.02101,"1044,00591571630 ",.02)
 ;;00591571630
 ;;9002226.02101,"1044,00591578600 ",.01)
 ;;00591578600
 ;;9002226.02101,"1044,00591578600 ",.02)
 ;;00591578600
 ;;9002226.02101,"1044,00591578601 ",.01)
 ;;00591578601
 ;;9002226.02101,"1044,00591578601 ",.02)
 ;;00591578601
 ;;9002226.02101,"1044,00591578605 ",.01)
 ;;00591578605
 ;;9002226.02101,"1044,00591578605 ",.02)
 ;;00591578605
 ;;9002226.02101,"1044,00591578700 ",.01)
 ;;00591578700
 ;;9002226.02101,"1044,00591578700 ",.02)
 ;;00591578700
 ;;9002226.02101,"1044,00591578701 ",.01)
 ;;00591578701
 ;;9002226.02101,"1044,00591578701 ",.02)
 ;;00591578701
 ;;9002226.02101,"1044,00591578705 ",.01)
 ;;00591578705
 ;;9002226.02101,"1044,00591578705 ",.02)
 ;;00591578705
 ;;9002226.02101,"1044,00591578710 ",.01)
 ;;00591578710
 ;;9002226.02101,"1044,00591578710 ",.02)
 ;;00591578710
 ;;9002226.02101,"1044,00591578800 ",.01)
 ;;00591578800
 ;;9002226.02101,"1044,00591578800 ",.02)
 ;;00591578800
 ;;9002226.02101,"1044,00591578801 ",.01)
 ;;00591578801
 ;;9002226.02101,"1044,00591578801 ",.02)
 ;;00591578801
 ;;9002226.02101,"1044,00591578805 ",.01)
 ;;00591578805
 ;;9002226.02101,"1044,00591578805 ",.02)
 ;;00591578805
 ;;9002226.02101,"1044,00591578900 ",.01)
 ;;00591578900
 ;;9002226.02101,"1044,00591578900 ",.02)
 ;;00591578900
 ;;9002226.02101,"1044,00591578901 ",.01)
 ;;00591578901
 ;;9002226.02101,"1044,00591578901 ",.02)
 ;;00591578901
 ;;9002226.02101,"1044,00603221202 ",.01)
 ;;00603221202
 ;;9002226.02101,"1044,00603221202 ",.02)
 ;;00603221202
 ;;9002226.02101,"1044,00603221216 ",.01)
 ;;00603221216
 ;;9002226.02101,"1044,00603221216 ",.02)
 ;;00603221216
 ;;9002226.02101,"1044,00603221220 ",.01)
 ;;00603221220
 ;;9002226.02101,"1044,00603221220 ",.02)
 ;;00603221220
 ;;9002226.02101,"1044,00603221221 ",.01)
 ;;00603221221
 ;;9002226.02101,"1044,00603221221 ",.02)
 ;;00603221221
 ;;9002226.02101,"1044,00603221232 ",.01)
 ;;00603221232
 ;;9002226.02101,"1044,00603221232 ",.02)
 ;;00603221232
 ;;9002226.02101,"1044,00603221302 ",.01)
 ;;00603221302
 ;;9002226.02101,"1044,00603221302 ",.02)
 ;;00603221302
 ;;9002226.02101,"1044,00603221316 ",.01)
 ;;00603221316
 ;;9002226.02101,"1044,00603221316 ",.02)
 ;;00603221316
 ;;9002226.02101,"1044,00603221320 ",.01)
 ;;00603221320
 ;;9002226.02101,"1044,00603221320 ",.02)
 ;;00603221320
 ;;9002226.02101,"1044,00603221321 ",.01)
 ;;00603221321
 ;;9002226.02101,"1044,00603221321 ",.02)
 ;;00603221321
 ;;9002226.02101,"1044,00603221330 ",.01)
 ;;00603221330
 ;;9002226.02101,"1044,00603221330 ",.02)
 ;;00603221330
 ;;9002226.02101,"1044,00603221332 ",.01)
 ;;00603221332
 ;;9002226.02101,"1044,00603221332 ",.02)
 ;;00603221332
 ;;9002226.02101,"1044,00603221402 ",.01)
 ;;00603221402
 ;;9002226.02101,"1044,00603221402 ",.02)
 ;;00603221402
 ;;9002226.02101,"1044,00603221416 ",.01)
 ;;00603221416
 ;;9002226.02101,"1044,00603221416 ",.02)
 ;;00603221416
 ;;9002226.02101,"1044,00603221420 ",.01)
 ;;00603221420
 ;;9002226.02101,"1044,00603221420 ",.02)
 ;;00603221420
 ;;9002226.02101,"1044,00603221421 ",.01)
 ;;00603221421
 ;;9002226.02101,"1044,00603221421 ",.02)
 ;;00603221421
 ;;9002226.02101,"1044,00603221432 ",.01)
 ;;00603221432
 ;;9002226.02101,"1044,00603221432 ",.02)
 ;;00603221432
 ;;9002226.02101,"1044,00603221502 ",.01)
 ;;00603221502
 ;;9002226.02101,"1044,00603221502 ",.02)
 ;;00603221502
 ;;9002226.02101,"1044,00603221516 ",.01)
 ;;00603221516
 ;;9002226.02101,"1044,00603221516 ",.02)
 ;;00603221516
 ;;9002226.02101,"1044,00603221520 ",.01)
 ;;00603221520
 ;;9002226.02101,"1044,00603221520 ",.02)
 ;;00603221520
 ;;9002226.02101,"1044,00603221521 ",.01)
 ;;00603221521
 ;;9002226.02101,"1044,00603221521 ",.02)
 ;;00603221521
 ;;9002226.02101,"1044,00603221532 ",.01)
 ;;00603221532
 ;;9002226.02101,"1044,00603221532 ",.02)
 ;;00603221532
 ;;9002226.02101,"1044,00603221602 ",.01)
 ;;00603221602
 ;;9002226.02101,"1044,00603221602 ",.02)
 ;;00603221602
 ;;9002226.02101,"1044,00603221616 ",.01)
 ;;00603221616
 ;;9002226.02101,"1044,00603221616 ",.02)
 ;;00603221616
 ;;9002226.02101,"1044,00603221620 ",.01)
 ;;00603221620
 ;;9002226.02101,"1044,00603221620 ",.02)
 ;;00603221620
 ;;9002226.02101,"1044,00603221621 ",.01)
 ;;00603221621
 ;;9002226.02101,"1044,00603221621 ",.02)
 ;;00603221621
 ;;9002226.02101,"1044,00603221632 ",.01)
 ;;00603221632
 ;;9002226.02101,"1044,00603221632 ",.02)
 ;;00603221632
 ;;9002226.02101,"1044,00603221702 ",.01)
 ;;00603221702
 ;;9002226.02101,"1044,00603221702 ",.02)
 ;;00603221702
 ;;9002226.02101,"1044,00603221716 ",.01)
 ;;00603221716
 ;;9002226.02101,"1044,00603221716 ",.02)
 ;;00603221716
 ;;9002226.02101,"1044,00603221720 ",.01)
 ;;00603221720
 ;;9002226.02101,"1044,00603221720 ",.02)
 ;;00603221720
 ;;9002226.02101,"1044,00603221721 ",.01)
 ;;00603221721
 ;;9002226.02101,"1044,00603221721 ",.02)
 ;;00603221721
 ;;9002226.02101,"1044,00603221732 ",.01)
 ;;00603221732
 ;;9002226.02101,"1044,00603221732 ",.02)
 ;;00603221732
 ;;9002226.02101,"1044,00603269021 ",.01)
 ;;00603269021
 ;;9002226.02101,"1044,00603269021 ",.02)
 ;;00603269021
 ;;9002226.02101,"1044,00603269028 ",.01)
 ;;00603269028
 ;;9002226.02101,"1044,00603269028 ",.02)
 ;;00603269028
 ;;9002226.02101,"1044,00603269121 ",.01)
 ;;00603269121
 ;;9002226.02101,"1044,00603269121 ",.02)
 ;;00603269121
 ;;9002226.02101,"1044,00603269128 ",.01)
 ;;00603269128
 ;;9002226.02101,"1044,00603269128 ",.02)
 ;;00603269128
 ;;9002226.02101,"1044,00603404321 ",.01)
 ;;00603404321
 ;;9002226.02101,"1044,00603404321 ",.02)
 ;;00603404321
 ;;9002226.02101,"1044,00603404332 ",.01)
 ;;00603404332
 ;;9002226.02101,"1044,00603404332 ",.02)
 ;;00603404332
 ;;9002226.02101,"1044,00603404421 ",.01)
 ;;00603404421
 ;;9002226.02101,"1044,00603404421 ",.02)
 ;;00603404421
 ;;9002226.02101,"1044,00603404432 ",.01)
 ;;00603404432
 ;;9002226.02101,"1044,00603404432 ",.02)
 ;;00603404432
 ;;9002226.02101,"1044,00603404521 ",.01)
 ;;00603404521
 ;;9002226.02101,"1044,00603404521 ",.02)
 ;;00603404521
 ;;9002226.02101,"1044,00603404532 ",.01)
 ;;00603404532
 ;;9002226.02101,"1044,00603404532 ",.02)
 ;;00603404532
 ;;9002226.02101,"1044,00603553121 ",.01)
 ;;00603553121
 ;;9002226.02101,"1044,00603553121 ",.02)
 ;;00603553121
 ;;9002226.02101,"1044,00603553221 ",.01)
 ;;00603553221
 ;;9002226.02101,"1044,00603553221 ",.02)
 ;;00603553221
 ;;9002226.02101,"1044,00603614421 ",.01)
 ;;00603614421
 ;;9002226.02101,"1044,00603614421 ",.02)
 ;;00603614421
 ;;9002226.02101,"1044,00603614428 ",.01)
 ;;00603614428
 ;;9002226.02101,"1044,00603614428 ",.02)
 ;;00603614428
 ;;9002226.02101,"1044,00603614521 ",.01)
 ;;00603614521
 ;;9002226.02101,"1044,00603614521 ",.02)
 ;;00603614521
 ;;9002226.02101,"1044,00603614528 ",.01)
 ;;00603614528
 ;;9002226.02101,"1044,00603614528 ",.02)
 ;;00603614528
 ;;9002226.02101,"1044,00603614621 ",.01)
 ;;00603614621
 ;;9002226.02101,"1044,00603614621 ",.02)
 ;;00603614621
 ;;9002226.02101,"1044,00603614721 ",.01)
 ;;00603614721
 ;;9002226.02101,"1044,00603614721 ",.02)
 ;;00603614721
 ;;9002226.02101,"1044,00603614732 ",.01)
 ;;00603614732
 ;;9002226.02101,"1044,00603614732 ",.02)
 ;;00603614732
 ;;9002226.02101,"1044,00603614821 ",.01)
 ;;00603614821
 ;;9002226.02101,"1044,00603614821 ",.02)
 ;;00603614821
 ;;9002226.02101,"1044,00603614832 ",.01)
 ;;00603614832
 ;;9002226.02101,"1044,00603614832 ",.02)
 ;;00603614832
 ;;9002226.02101,"1044,00603614910 ",.01)
 ;;00603614910
 ;;9002226.02101,"1044,00603614910 ",.02)
 ;;00603614910
 ;;9002226.02101,"1044,00603614921 ",.01)
 ;;00603614921
 ;;9002226.02101,"1044,00603614921 ",.02)
 ;;00603614921
 ;;9002226.02101,"1044,00603614932 ",.01)
 ;;00603614932
 ;;9002226.02101,"1044,00603614932 ",.02)
 ;;00603614932
 ;;9002226.02101,"1044,00603615010 ",.01)
 ;;00603615010
 ;;9002226.02101,"1044,00603615010 ",.02)
 ;;00603615010
 ;;9002226.02101,"1044,00603615016 ",.01)
 ;;00603615016
 ;;9002226.02101,"1044,00603615016 ",.02)
 ;;00603615016
 ;;9002226.02101,"1044,00603615021 ",.01)
 ;;00603615021
 ;;9002226.02101,"1044,00603615021 ",.02)
 ;;00603615021
 ;;9002226.02101,"1044,00603615025 ",.01)
 ;;00603615025
 ;;9002226.02101,"1044,00603615025 ",.02)
 ;;00603615025
 ;;9002226.02101,"1044,00603615032 ",.01)
 ;;00603615032
 ;;9002226.02101,"1044,00603615032 ",.02)
 ;;00603615032
 ;;9002226.02101,"1044,00603615110 ",.01)
 ;;00603615110
 ;;9002226.02101,"1044,00603615110 ",.02)
 ;;00603615110
 ;;9002226.02101,"1044,00603615121 ",.01)
 ;;00603615121
 ;;9002226.02101,"1044,00603615121 ",.02)
 ;;00603615121
 ;;9002226.02101,"1044,00603615125 ",.01)
 ;;00603615125
 ;;9002226.02101,"1044,00603615125 ",.02)
 ;;00603615125
 ;;9002226.02101,"1044,00603615132 ",.01)
 ;;00603615132
 ;;9002226.02101,"1044,00603615132 ",.02)
 ;;00603615132
 ;;9002226.02101,"1044,00603615610 ",.01)
 ;;00603615610
 ;;9002226.02101,"1044,00603615610 ",.02)
 ;;00603615610
 ;;9002226.02101,"1044,00603615621 ",.01)
 ;;00603615621
 ;;9002226.02101,"1044,00603615621 ",.02)
 ;;00603615621
 ;;9002226.02101,"1044,00603615632 ",.01)
 ;;00603615632
 ;;9002226.02101,"1044,00603615632 ",.02)
 ;;00603615632
 ;;9002226.02101,"1044,00603615710 ",.01)
 ;;00603615710
 ;;9002226.02101,"1044,00603615710 ",.02)
 ;;00603615710
 ;;9002226.02101,"1044,00603615721 ",.01)
 ;;00603615721
 ;;9002226.02101,"1044,00603615721 ",.02)
 ;;00603615721
 ;;9002226.02101,"1044,00603615725 ",.01)
 ;;00603615725
 ;;9002226.02101,"1044,00603615725 ",.02)
 ;;00603615725
 ;;9002226.02101,"1044,00603615732 ",.01)
 ;;00603615732
 ;;9002226.02101,"1044,00603615732 ",.02)
 ;;00603615732
 ;;9002226.02101,"1044,00603616021 ",.01)
 ;;00603616021
 ;;9002226.02101,"1044,00603616021 ",.02)
 ;;00603616021
 ;;9002226.02101,"1044,00603616028 ",.01)
 ;;00603616028
 ;;9002226.02101,"1044,00603616028 ",.02)
 ;;00603616028
 ;;9002226.02101,"1044,00603616032 ",.01)
 ;;00603616032
 ;;9002226.02101,"1044,00603616032 ",.02)
 ;;00603616032
 ;;9002226.02101,"1044,00603616121 ",.01)
 ;;00603616121
 ;;9002226.02101,"1044,00603616121 ",.02)
 ;;00603616121
 ;;9002226.02101,"1044,00603616128 ",.01)
 ;;00603616128
 ;;9002226.02101,"1044,00603616128 ",.02)
 ;;00603616128
 ;;9002226.02101,"1044,00603616132 ",.01)
 ;;00603616132
 ;;9002226.02101,"1044,00603616132 ",.02)
 ;;00603616132
 ;;9002226.02101,"1044,00615082839 ",.01)
 ;;00615082839
 ;;9002226.02101,"1044,00615082839 ",.02)
 ;;00615082839
 ;;9002226.02101,"1044,00615082939 ",.01)
 ;;00615082939
 ;;9002226.02101,"1044,00615082939 ",.02)
 ;;00615082939
 ;;9002226.02101,"1044,00615083039 ",.01)
 ;;00615083039
 ;;9002226.02101,"1044,00615083039 ",.02)
 ;;00615083039