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.
  1. BGPM5BBQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1044,00591324030 ",.02)
  1. ;;00591324030
  1. ;;9002226.02101,"1044,00591559901 ",.01)
  1. ;;00591559901
  1. ;;9002226.02101,"1044,00591559901 ",.02)
  1. ;;00591559901
  1. ;;9002226.02101,"1044,00591559910 ",.01)
  1. ;;00591559910
  1. ;;9002226.02101,"1044,00591559910 ",.02)
  1. ;;00591559910
  1. ;;9002226.02101,"1044,00591560001 ",.01)
  1. ;;00591560001
  1. ;;9002226.02101,"1044,00591560001 ",.02)
  1. ;;00591560001
  1. ;;9002226.02101,"1044,00591560010 ",.01)
  1. ;;00591560010
  1. ;;9002226.02101,"1044,00591560010 ",.02)
  1. ;;00591560010
  1. ;;9002226.02101,"1044,00591571301 ",.01)
  1. ;;00591571301
  1. ;;9002226.02101,"1044,00591571301 ",.02)
  1. ;;00591571301
  1. ;;9002226.02101,"1044,00591571401 ",.01)
  1. ;;00591571401
  1. ;;9002226.02101,"1044,00591571401 ",.02)
  1. ;;00591571401
  1. ;;9002226.02101,"1044,00591571501 ",.01)
  1. ;;00591571501
  1. ;;9002226.02101,"1044,00591571501 ",.02)
  1. ;;00591571501
  1. ;;9002226.02101,"1044,00591571630 ",.01)
  1. ;;00591571630
  1. ;;9002226.02101,"1044,00591571630 ",.02)
  1. ;;00591571630
  1. ;;9002226.02101,"1044,00591578600 ",.01)
  1. ;;00591578600
  1. ;;9002226.02101,"1044,00591578600 ",.02)
  1. ;;00591578600
  1. ;;9002226.02101,"1044,00591578601 ",.01)
  1. ;;00591578601
  1. ;;9002226.02101,"1044,00591578601 ",.02)
  1. ;;00591578601
  1. ;;9002226.02101,"1044,00591578605 ",.01)
  1. ;;00591578605
  1. ;;9002226.02101,"1044,00591578605 ",.02)
  1. ;;00591578605
  1. ;;9002226.02101,"1044,00591578700 ",.01)
  1. ;;00591578700
  1. ;;9002226.02101,"1044,00591578700 ",.02)
  1. ;;00591578700
  1. ;;9002226.02101,"1044,00591578701 ",.01)
  1. ;;00591578701
  1. ;;9002226.02101,"1044,00591578701 ",.02)
  1. ;;00591578701
  1. ;;9002226.02101,"1044,00591578705 ",.01)
  1. ;;00591578705
  1. ;;9002226.02101,"1044,00591578705 ",.02)
  1. ;;00591578705
  1. ;;9002226.02101,"1044,00591578710 ",.01)
  1. ;;00591578710
  1. ;;9002226.02101,"1044,00591578710 ",.02)
  1. ;;00591578710
  1. ;;9002226.02101,"1044,00591578800 ",.01)
  1. ;;00591578800
  1. ;;9002226.02101,"1044,00591578800 ",.02)
  1. ;;00591578800
  1. ;;9002226.02101,"1044,00591578801 ",.01)
  1. ;;00591578801
  1. ;;9002226.02101,"1044,00591578801 ",.02)
  1. ;;00591578801
  1. ;;9002226.02101,"1044,00591578805 ",.01)
  1. ;;00591578805
  1. ;;9002226.02101,"1044,00591578805 ",.02)
  1. ;;00591578805
  1. ;;9002226.02101,"1044,00591578900 ",.01)
  1. ;;00591578900
  1. ;;9002226.02101,"1044,00591578900 ",.02)
  1. ;;00591578900
  1. ;;9002226.02101,"1044,00591578901 ",.01)
  1. ;;00591578901
  1. ;;9002226.02101,"1044,00591578901 ",.02)
  1. ;;00591578901
  1. ;;9002226.02101,"1044,00603221202 ",.01)
  1. ;;00603221202
  1. ;;9002226.02101,"1044,00603221202 ",.02)
  1. ;;00603221202
  1. ;;9002226.02101,"1044,00603221216 ",.01)
  1. ;;00603221216
  1. ;;9002226.02101,"1044,00603221216 ",.02)
  1. ;;00603221216
  1. ;;9002226.02101,"1044,00603221220 ",.01)
  1. ;;00603221220
  1. ;;9002226.02101,"1044,00603221220 ",.02)
  1. ;;00603221220
  1. ;;9002226.02101,"1044,00603221221 ",.01)
  1. ;;00603221221
  1. ;;9002226.02101,"1044,00603221221 ",.02)
  1. ;;00603221221
  1. ;;9002226.02101,"1044,00603221232 ",.01)
  1. ;;00603221232
  1. ;;9002226.02101,"1044,00603221232 ",.02)
  1. ;;00603221232
  1. ;;9002226.02101,"1044,00603221302 ",.01)
  1. ;;00603221302
  1. ;;9002226.02101,"1044,00603221302 ",.02)
  1. ;;00603221302
  1. ;;9002226.02101,"1044,00603221316 ",.01)
  1. ;;00603221316
  1. ;;9002226.02101,"1044,00603221316 ",.02)
  1. ;;00603221316
  1. ;;9002226.02101,"1044,00603221320 ",.01)
  1. ;;00603221320
  1. ;;9002226.02101,"1044,00603221320 ",.02)
  1. ;;00603221320
  1. ;;9002226.02101,"1044,00603221321 ",.01)
  1. ;;00603221321
  1. ;;9002226.02101,"1044,00603221321 ",.02)
  1. ;;00603221321
  1. ;;9002226.02101,"1044,00603221330 ",.01)
  1. ;;00603221330
  1. ;;9002226.02101,"1044,00603221330 ",.02)
  1. ;;00603221330
  1. ;;9002226.02101,"1044,00603221332 ",.01)
  1. ;;00603221332
  1. ;;9002226.02101,"1044,00603221332 ",.02)
  1. ;;00603221332
  1. ;;9002226.02101,"1044,00603221402 ",.01)
  1. ;;00603221402
  1. ;;9002226.02101,"1044,00603221402 ",.02)
  1. ;;00603221402
  1. ;;9002226.02101,"1044,00603221416 ",.01)
  1. ;;00603221416
  1. ;;9002226.02101,"1044,00603221416 ",.02)
  1. ;;00603221416
  1. ;;9002226.02101,"1044,00603221420 ",.01)
  1. ;;00603221420
  1. ;;9002226.02101,"1044,00603221420 ",.02)
  1. ;;00603221420
  1. ;;9002226.02101,"1044,00603221421 ",.01)
  1. ;;00603221421
  1. ;;9002226.02101,"1044,00603221421 ",.02)
  1. ;;00603221421
  1. ;;9002226.02101,"1044,00603221432 ",.01)
  1. ;;00603221432
  1. ;;9002226.02101,"1044,00603221432 ",.02)
  1. ;;00603221432
  1. ;;9002226.02101,"1044,00603221502 ",.01)
  1. ;;00603221502
  1. ;;9002226.02101,"1044,00603221502 ",.02)
  1. ;;00603221502
  1. ;;9002226.02101,"1044,00603221516 ",.01)
  1. ;;00603221516
  1. ;;9002226.02101,"1044,00603221516 ",.02)
  1. ;;00603221516
  1. ;;9002226.02101,"1044,00603221520 ",.01)
  1. ;;00603221520
  1. ;;9002226.02101,"1044,00603221520 ",.02)
  1. ;;00603221520
  1. ;;9002226.02101,"1044,00603221521 ",.01)
  1. ;;00603221521
  1. ;;9002226.02101,"1044,00603221521 ",.02)
  1. ;;00603221521
  1. ;;9002226.02101,"1044,00603221532 ",.01)
  1. ;;00603221532
  1. ;;9002226.02101,"1044,00603221532 ",.02)
  1. ;;00603221532
  1. ;;9002226.02101,"1044,00603221602 ",.01)
  1. ;;00603221602
  1. ;;9002226.02101,"1044,00603221602 ",.02)
  1. ;;00603221602
  1. ;;9002226.02101,"1044,00603221616 ",.01)
  1. ;;00603221616
  1. ;;9002226.02101,"1044,00603221616 ",.02)
  1. ;;00603221616
  1. ;;9002226.02101,"1044,00603221620 ",.01)
  1. ;;00603221620
  1. ;;9002226.02101,"1044,00603221620 ",.02)
  1. ;;00603221620
  1. ;;9002226.02101,"1044,00603221621 ",.01)
  1. ;;00603221621
  1. ;;9002226.02101,"1044,00603221621 ",.02)
  1. ;;00603221621
  1. ;;9002226.02101,"1044,00603221632 ",.01)
  1. ;;00603221632
  1. ;;9002226.02101,"1044,00603221632 ",.02)
  1. ;;00603221632
  1. ;;9002226.02101,"1044,00603221702 ",.01)
  1. ;;00603221702
  1. ;;9002226.02101,"1044,00603221702 ",.02)
  1. ;;00603221702
  1. ;;9002226.02101,"1044,00603221716 ",.01)
  1. ;;00603221716
  1. ;;9002226.02101,"1044,00603221716 ",.02)
  1. ;;00603221716
  1. ;;9002226.02101,"1044,00603221720 ",.01)
  1. ;;00603221720
  1. ;;9002226.02101,"1044,00603221720 ",.02)
  1. ;;00603221720
  1. ;;9002226.02101,"1044,00603221721 ",.01)
  1. ;;00603221721
  1. ;;9002226.02101,"1044,00603221721 ",.02)
  1. ;;00603221721
  1. ;;9002226.02101,"1044,00603221732 ",.01)
  1. ;;00603221732
  1. ;;9002226.02101,"1044,00603221732 ",.02)
  1. ;;00603221732
  1. ;;9002226.02101,"1044,00603269021 ",.01)
  1. ;;00603269021
  1. ;;9002226.02101,"1044,00603269021 ",.02)
  1. ;;00603269021
  1. ;;9002226.02101,"1044,00603269028 ",.01)
  1. ;;00603269028
  1. ;;9002226.02101,"1044,00603269028 ",.02)
  1. ;;00603269028
  1. ;;9002226.02101,"1044,00603269121 ",.01)
  1. ;;00603269121
  1. ;;9002226.02101,"1044,00603269121 ",.02)
  1. ;;00603269121
  1. ;;9002226.02101,"1044,00603269128 ",.01)
  1. ;;00603269128
  1. ;;9002226.02101,"1044,00603269128 ",.02)
  1. ;;00603269128
  1. ;;9002226.02101,"1044,00603404321 ",.01)
  1. ;;00603404321
  1. ;;9002226.02101,"1044,00603404321 ",.02)
  1. ;;00603404321
  1. ;;9002226.02101,"1044,00603404332 ",.01)
  1. ;;00603404332
  1. ;;9002226.02101,"1044,00603404332 ",.02)
  1. ;;00603404332
  1. ;;9002226.02101,"1044,00603404421 ",.01)
  1. ;;00603404421
  1. ;;9002226.02101,"1044,00603404421 ",.02)
  1. ;;00603404421
  1. ;;9002226.02101,"1044,00603404432 ",.01)
  1. ;;00603404432
  1. ;;9002226.02101,"1044,00603404432 ",.02)
  1. ;;00603404432
  1. ;;9002226.02101,"1044,00603404521 ",.01)
  1. ;;00603404521
  1. ;;9002226.02101,"1044,00603404521 ",.02)
  1. ;;00603404521
  1. ;;9002226.02101,"1044,00603404532 ",.01)
  1. ;;00603404532
  1. ;;9002226.02101,"1044,00603404532 ",.02)
  1. ;;00603404532
  1. ;;9002226.02101,"1044,00603553121 ",.01)
  1. ;;00603553121
  1. ;;9002226.02101,"1044,00603553121 ",.02)
  1. ;;00603553121
  1. ;;9002226.02101,"1044,00603553221 ",.01)
  1. ;;00603553221
  1. ;;9002226.02101,"1044,00603553221 ",.02)
  1. ;;00603553221
  1. ;;9002226.02101,"1044,00603614421 ",.01)
  1. ;;00603614421
  1. ;;9002226.02101,"1044,00603614421 ",.02)
  1. ;;00603614421
  1. ;;9002226.02101,"1044,00603614428 ",.01)
  1. ;;00603614428
  1. ;;9002226.02101,"1044,00603614428 ",.02)
  1. ;;00603614428
  1. ;;9002226.02101,"1044,00603614521 ",.01)
  1. ;;00603614521
  1. ;;9002226.02101,"1044,00603614521 ",.02)
  1. ;;00603614521
  1. ;;9002226.02101,"1044,00603614528 ",.01)
  1. ;;00603614528
  1. ;;9002226.02101,"1044,00603614528 ",.02)
  1. ;;00603614528
  1. ;;9002226.02101,"1044,00603614621 ",.01)
  1. ;;00603614621
  1. ;;9002226.02101,"1044,00603614621 ",.02)
  1. ;;00603614621
  1. ;;9002226.02101,"1044,00603614721 ",.01)
  1. ;;00603614721
  1. ;;9002226.02101,"1044,00603614721 ",.02)
  1. ;;00603614721
  1. ;;9002226.02101,"1044,00603614732 ",.01)
  1. ;;00603614732
  1. ;;9002226.02101,"1044,00603614732 ",.02)
  1. ;;00603614732
  1. ;;9002226.02101,"1044,00603614821 ",.01)
  1. ;;00603614821
  1. ;;9002226.02101,"1044,00603614821 ",.02)
  1. ;;00603614821
  1. ;;9002226.02101,"1044,00603614832 ",.01)
  1. ;;00603614832
  1. ;;9002226.02101,"1044,00603614832 ",.02)
  1. ;;00603614832
  1. ;;9002226.02101,"1044,00603614910 ",.01)
  1. ;;00603614910
  1. ;;9002226.02101,"1044,00603614910 ",.02)
  1. ;;00603614910
  1. ;;9002226.02101,"1044,00603614921 ",.01)
  1. ;;00603614921
  1. ;;9002226.02101,"1044,00603614921 ",.02)
  1. ;;00603614921
  1. ;;9002226.02101,"1044,00603614932 ",.01)
  1. ;;00603614932
  1. ;;9002226.02101,"1044,00603614932 ",.02)
  1. ;;00603614932
  1. ;;9002226.02101,"1044,00603615010 ",.01)
  1. ;;00603615010
  1. ;;9002226.02101,"1044,00603615010 ",.02)
  1. ;;00603615010
  1. ;;9002226.02101,"1044,00603615016 ",.01)
  1. ;;00603615016
  1. ;;9002226.02101,"1044,00603615016 ",.02)
  1. ;;00603615016
  1. ;;9002226.02101,"1044,00603615021 ",.01)
  1. ;;00603615021
  1. ;;9002226.02101,"1044,00603615021 ",.02)
  1. ;;00603615021
  1. ;;9002226.02101,"1044,00603615025 ",.01)
  1. ;;00603615025
  1. ;;9002226.02101,"1044,00603615025 ",.02)
  1. ;;00603615025
  1. ;;9002226.02101,"1044,00603615032 ",.01)
  1. ;;00603615032
  1. ;;9002226.02101,"1044,00603615032 ",.02)
  1. ;;00603615032
  1. ;;9002226.02101,"1044,00603615110 ",.01)
  1. ;;00603615110
  1. ;;9002226.02101,"1044,00603615110 ",.02)
  1. ;;00603615110
  1. ;;9002226.02101,"1044,00603615121 ",.01)
  1. ;;00603615121
  1. ;;9002226.02101,"1044,00603615121 ",.02)
  1. ;;00603615121
  1. ;;9002226.02101,"1044,00603615125 ",.01)
  1. ;;00603615125
  1. ;;9002226.02101,"1044,00603615125 ",.02)
  1. ;;00603615125
  1. ;;9002226.02101,"1044,00603615132 ",.01)
  1. ;;00603615132
  1. ;;9002226.02101,"1044,00603615132 ",.02)
  1. ;;00603615132
  1. ;;9002226.02101,"1044,00603615610 ",.01)
  1. ;;00603615610
  1. ;;9002226.02101,"1044,00603615610 ",.02)
  1. ;;00603615610
  1. ;;9002226.02101,"1044,00603615621 ",.01)
  1. ;;00603615621
  1. ;;9002226.02101,"1044,00603615621 ",.02)
  1. ;;00603615621
  1. ;;9002226.02101,"1044,00603615632 ",.01)
  1. ;;00603615632
  1. ;;9002226.02101,"1044,00603615632 ",.02)
  1. ;;00603615632
  1. ;;9002226.02101,"1044,00603615710 ",.01)
  1. ;;00603615710
  1. ;;9002226.02101,"1044,00603615710 ",.02)
  1. ;;00603615710
  1. ;;9002226.02101,"1044,00603615721 ",.01)
  1. ;;00603615721
  1. ;;9002226.02101,"1044,00603615721 ",.02)
  1. ;;00603615721
  1. ;;9002226.02101,"1044,00603615725 ",.01)
  1. ;;00603615725
  1. ;;9002226.02101,"1044,00603615725 ",.02)
  1. ;;00603615725
  1. ;;9002226.02101,"1044,00603615732 ",.01)
  1. ;;00603615732
  1. ;;9002226.02101,"1044,00603615732 ",.02)
  1. ;;00603615732
  1. ;;9002226.02101,"1044,00603616021 ",.01)
  1. ;;00603616021
  1. ;;9002226.02101,"1044,00603616021 ",.02)
  1. ;;00603616021
  1. ;;9002226.02101,"1044,00603616028 ",.01)
  1. ;;00603616028
  1. ;;9002226.02101,"1044,00603616028 ",.02)
  1. ;;00603616028
  1. ;;9002226.02101,"1044,00603616032 ",.01)
  1. ;;00603616032
  1. ;;9002226.02101,"1044,00603616032 ",.02)
  1. ;;00603616032
  1. ;;9002226.02101,"1044,00603616121 ",.01)
  1. ;;00603616121
  1. ;;9002226.02101,"1044,00603616121 ",.02)
  1. ;;00603616121
  1. ;;9002226.02101,"1044,00603616128 ",.01)
  1. ;;00603616128
  1. ;;9002226.02101,"1044,00603616128 ",.02)
  1. ;;00603616128
  1. ;;9002226.02101,"1044,00603616132 ",.01)
  1. ;;00603616132
  1. ;;9002226.02101,"1044,00603616132 ",.02)
  1. ;;00603616132
  1. ;;9002226.02101,"1044,00615082839 ",.01)
  1. ;;00615082839
  1. ;;9002226.02101,"1044,00615082839 ",.02)
  1. ;;00615082839
  1. ;;9002226.02101,"1044,00615082939 ",.01)
  1. ;;00615082939
  1. ;;9002226.02101,"1044,00615082939 ",.02)
  1. ;;00615082939
  1. ;;9002226.02101,"1044,00615083039 ",.01)
  1. ;;00615083039
  1. ;;9002226.02101,"1044,00615083039 ",.02)
  1. ;;00615083039