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

BGPMBTXX.m

Go to the documentation of this file.
  1. BGPMBTXX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON FEB 11, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"768,011673019502 ",.02)
  1. ;;011673019502
  1. ;;9002226.02101,"768,011673019602 ",.01)
  1. ;;011673019602
  1. ;;9002226.02101,"768,011673019602 ",.02)
  1. ;;011673019602
  1. ;;9002226.02101,"768,011673022904 ",.01)
  1. ;;011673022904
  1. ;;9002226.02101,"768,011673022904 ",.02)
  1. ;;011673022904
  1. ;;9002226.02101,"768,011673022905 ",.01)
  1. ;;011673022905
  1. ;;9002226.02101,"768,011673022905 ",.02)
  1. ;;011673022905
  1. ;;9002226.02101,"768,011673023004 ",.01)
  1. ;;011673023004
  1. ;;9002226.02101,"768,011673023004 ",.02)
  1. ;;011673023004
  1. ;;9002226.02101,"768,011673023005 ",.01)
  1. ;;011673023005
  1. ;;9002226.02101,"768,011673023005 ",.02)
  1. ;;011673023005
  1. ;;9002226.02101,"768,011673034405 ",.01)
  1. ;;011673034405
  1. ;;9002226.02101,"768,011673034405 ",.02)
  1. ;;011673034405
  1. ;;9002226.02101,"768,011673034406 ",.01)
  1. ;;011673034406
  1. ;;9002226.02101,"768,011673034406 ",.02)
  1. ;;011673034406
  1. ;;9002226.02101,"768,011673034416 ",.01)
  1. ;;011673034416
  1. ;;9002226.02101,"768,011673034416 ",.02)
  1. ;;011673034416
  1. ;;9002226.02101,"768,011673065702 ",.01)
  1. ;;011673065702
  1. ;;9002226.02101,"768,011673065702 ",.02)
  1. ;;011673065702
  1. ;;9002226.02101,"768,011673065703 ",.01)
  1. ;;011673065703
  1. ;;9002226.02101,"768,011673065703 ",.02)
  1. ;;011673065703
  1. ;;9002226.02101,"768,011673065802 ",.01)
  1. ;;011673065802
  1. ;;9002226.02101,"768,011673065802 ",.02)
  1. ;;011673065802
  1. ;;9002226.02101,"768,011673065803 ",.01)
  1. ;;011673065803
  1. ;;9002226.02101,"768,011673065803 ",.02)
  1. ;;011673065803
  1. ;;9002226.02101,"768,011673087305 ",.01)
  1. ;;011673087305
  1. ;;9002226.02101,"768,011673087305 ",.02)
  1. ;;011673087305
  1. ;;9002226.02101,"768,011673087306 ",.01)
  1. ;;011673087306
  1. ;;9002226.02101,"768,011673087306 ",.02)
  1. ;;011673087306
  1. ;;9002226.02101,"768,011673087308 ",.01)
  1. ;;011673087308
  1. ;;9002226.02101,"768,011673087308 ",.02)
  1. ;;011673087308
  1. ;;9002226.02101,"768,011673087310 ",.01)
  1. ;;011673087310
  1. ;;9002226.02101,"768,011673087310 ",.02)
  1. ;;011673087310
  1. ;;9002226.02101,"768,011673087316 ",.01)
  1. ;;011673087316
  1. ;;9002226.02101,"768,011673087316 ",.02)
  1. ;;011673087316
  1. ;;9002226.02101,"768,011822087301 ",.01)
  1. ;;011822087301
  1. ;;9002226.02101,"768,011822087301 ",.02)
  1. ;;011822087301
  1. ;;9002226.02101,"768,021130034405 ",.01)
  1. ;;021130034405
  1. ;;9002226.02101,"768,021130034405 ",.02)
  1. ;;021130034405
  1. ;;9002226.02101,"768,024385017158 ",.01)
  1. ;;024385017158
  1. ;;9002226.02101,"768,024385017158 ",.02)
  1. ;;024385017158
  1. ;;9002226.02101,"768,024385059471 ",.01)
  1. ;;024385059471
  1. ;;9002226.02101,"768,024385059471 ",.02)
  1. ;;024385059471
  1. ;;9002226.02101,"768,024385097567 ",.01)
  1. ;;024385097567
  1. ;;9002226.02101,"768,024385097567 ",.02)
  1. ;;024385097567
  1. ;;9002226.02101,"768,024385097667 ",.01)
  1. ;;024385097667
  1. ;;9002226.02101,"768,024385097667 ",.02)
  1. ;;024385097667
  1. ;;9002226.02101,"768,030142034405 ",.01)
  1. ;;030142034405
  1. ;;9002226.02101,"768,030142034405 ",.02)
  1. ;;030142034405
  1. ;;9002226.02101,"768,030142034406 ",.01)
  1. ;;030142034406
  1. ;;9002226.02101,"768,030142034406 ",.02)
  1. ;;030142034406
  1. ;;9002226.02101,"768,030142087305 ",.01)
  1. ;;030142087305
  1. ;;9002226.02101,"768,030142087305 ",.02)
  1. ;;030142087305
  1. ;;9002226.02101,"768,030142087306 ",.01)
  1. ;;030142087306
  1. ;;9002226.02101,"768,030142087306 ",.02)
  1. ;;030142087306
  1. ;;9002226.02101,"768,036800002925 ",.01)
  1. ;;036800002925
  1. ;;9002226.02101,"768,036800002925 ",.02)
  1. ;;036800002925
  1. ;;9002226.02101,"768,036800017025 ",.01)
  1. ;;036800017025
  1. ;;9002226.02101,"768,036800017025 ",.02)
  1. ;;036800017025
  1. ;;9002226.02101,"768,036800017071 ",.01)
  1. ;;036800017071
  1. ;;9002226.02101,"768,036800017071 ",.02)
  1. ;;036800017071
  1. ;;9002226.02101,"768,036800020625 ",.01)
  1. ;;036800020625
  1. ;;9002226.02101,"768,036800020625 ",.02)
  1. ;;036800020625
  1. ;;9002226.02101,"768,036800034405 ",.01)
  1. ;;036800034405
  1. ;;9002226.02101,"768,036800034405 ",.02)
  1. ;;036800034405
  1. ;;9002226.02101,"768,036800042260 ",.01)
  1. ;;036800042260
  1. ;;9002226.02101,"768,036800042260 ",.02)
  1. ;;036800042260
  1. ;;9002226.02101,"768,036800042271 ",.01)
  1. ;;036800042271
  1. ;;9002226.02101,"768,036800042271 ",.02)
  1. ;;036800042271
  1. ;;9002226.02101,"768,036800045676 ",.01)
  1. ;;036800045676
  1. ;;9002226.02101,"768,036800045676 ",.02)
  1. ;;036800045676
  1. ;;9002226.02101,"768,036800045678 ",.01)
  1. ;;036800045678
  1. ;;9002226.02101,"768,036800045678 ",.02)
  1. ;;036800045678
  1. ;;9002226.02101,"768,036800053276 ",.01)
  1. ;;036800053276
  1. ;;9002226.02101,"768,036800053276 ",.02)
  1. ;;036800053276
  1. ;;9002226.02101,"768,036800053278 ",.01)
  1. ;;036800053278
  1. ;;9002226.02101,"768,036800053278 ",.02)
  1. ;;036800053278
  1. ;;9002226.02101,"768,036800087305 ",.01)
  1. ;;036800087305
  1. ;;9002226.02101,"768,036800087305 ",.02)
  1. ;;036800087305
  1. ;;9002226.02101,"768,037205020371 ",.01)
  1. ;;037205020371
  1. ;;9002226.02101,"768,037205020371 ",.02)
  1. ;;037205020371
  1. ;;9002226.02101,"768,037205020377 ",.01)
  1. ;;037205020377
  1. ;;9002226.02101,"768,037205020377 ",.02)
  1. ;;037205020377
  1. ;;9002226.02101,"768,037205020467 ",.01)
  1. ;;037205020467
  1. ;;9002226.02101,"768,037205020467 ",.02)
  1. ;;037205020467
  1. ;;9002226.02101,"768,037205036374 ",.01)
  1. ;;037205036374
  1. ;;9002226.02101,"768,037205036374 ",.02)
  1. ;;037205036374
  1. ;;9002226.02101,"768,037808034403 ",.01)
  1. ;;037808034403
  1. ;;9002226.02101,"768,037808034403 ",.02)
  1. ;;037808034403
  1. ;;9002226.02101,"768,037808034405 ",.01)
  1. ;;037808034405
  1. ;;9002226.02101,"768,037808034405 ",.02)
  1. ;;037808034405
  1. ;;9002226.02101,"768,037808034406 ",.01)
  1. ;;037808034406
  1. ;;9002226.02101,"768,037808034406 ",.02)
  1. ;;037808034406
  1. ;;9002226.02101,"768,041163034405 ",.01)
  1. ;;041163034405
  1. ;;9002226.02101,"768,041163034405 ",.02)
  1. ;;041163034405
  1. ;;9002226.02101,"768,041163087305 ",.01)
  1. ;;041163087305
  1. ;;9002226.02101,"768,041163087305 ",.02)
  1. ;;041163087305
  1. ;;9002226.02101,"768,041250019003 ",.01)
  1. ;;041250019003
  1. ;;9002226.02101,"768,041250019003 ",.02)
  1. ;;041250019003
  1. ;;9002226.02101,"768,041250019005 ",.01)
  1. ;;041250019005
  1. ;;9002226.02101,"768,041250019005 ",.02)
  1. ;;041250019005
  1. ;;9002226.02101,"768,041250042403 ",.01)
  1. ;;041250042403
  1. ;;9002226.02101,"768,041250042403 ",.02)
  1. ;;041250042403
  1. ;;9002226.02101,"768,041250042405 ",.01)
  1. ;;041250042405
  1. ;;9002226.02101,"768,041250042405 ",.02)
  1. ;;041250042405
  1. ;;9002226.02101,"768,041250089488 ",.01)
  1. ;;041250089488
  1. ;;9002226.02101,"768,041250089488 ",.02)
  1. ;;041250089488
  1. ;;9002226.02101,"768,041250089588 ",.01)
  1. ;;041250089588
  1. ;;9002226.02101,"768,041250089588 ",.02)
  1. ;;041250089588
  1. ;;9002226.02101,"768,041250089688 ",.01)
  1. ;;041250089688
  1. ;;9002226.02101,"768,041250089688 ",.02)
  1. ;;041250089688
  1. ;;9002226.02101,"768,041268034404 ",.01)
  1. ;;041268034404
  1. ;;9002226.02101,"768,041268034404 ",.02)
  1. ;;041268034404
  1. ;;9002226.02101,"768,049035012410 ",.01)
  1. ;;049035012410
  1. ;;9002226.02101,"768,049035012410 ",.02)
  1. ;;049035012410
  1. ;;9002226.02101,"768,049035019010 ",.01)
  1. ;;049035019010
  1. ;;9002226.02101,"768,049035019010 ",.02)
  1. ;;049035019010
  1. ;;9002226.02101,"768,049035083007 ",.01)
  1. ;;049035083007
  1. ;;9002226.02101,"768,049035083007 ",.02)
  1. ;;049035083007
  1. ;;9002226.02101,"768,049035083014 ",.01)
  1. ;;049035083014
  1. ;;9002226.02101,"768,049035083014 ",.02)
  1. ;;049035083014
  1. ;;9002226.02101,"768,049035084007 ",.01)
  1. ;;049035084007
  1. ;;9002226.02101,"768,049035084007 ",.02)
  1. ;;049035084007
  1. ;;9002226.02101,"768,049035084014 ",.01)
  1. ;;049035084014
  1. ;;9002226.02101,"768,049035084014 ",.02)
  1. ;;049035084014
  1. ;;9002226.02101,"768,049035089488 ",.01)
  1. ;;049035089488
  1. ;;9002226.02101,"768,049035089488 ",.02)
  1. ;;049035089488
  1. ;;9002226.02101,"768,049035089588 ",.01)
  1. ;;049035089588
  1. ;;9002226.02101,"768,049035089588 ",.02)
  1. ;;049035089588
  1. ;;9002226.02101,"768,049035089653 ",.01)
  1. ;;049035089653
  1. ;;9002226.02101,"768,049035089653 ",.02)
  1. ;;049035089653
  1. ;;9002226.02101,"768,049035089688 ",.01)
  1. ;;049035089688
  1. ;;9002226.02101,"768,049035089688 ",.02)
  1. ;;049035089688
  1. ;;9002226.02101,"768,049348057208 ",.01)
  1. ;;049348057208
  1. ;;9002226.02101,"768,049348057208 ",.02)
  1. ;;049348057208
  1. ;;9002226.02101,"768,049348057236 ",.01)
  1. ;;049348057236
  1. ;;9002226.02101,"768,049348057236 ",.02)
  1. ;;049348057236
  1. ;;9002226.02101,"768,049348057308 ",.01)
  1. ;;049348057308
  1. ;;9002226.02101,"768,049348057308 ",.02)
  1. ;;049348057308
  1. ;;9002226.02101,"768,049348057336 ",.01)
  1. ;;049348057336
  1. ;;9002226.02101,"768,049348057336 ",.02)
  1. ;;049348057336
  1. ;;9002226.02101,"768,049348069109 ",.01)
  1. ;;049348069109
  1. ;;9002226.02101,"768,049348069109 ",.02)
  1. ;;049348069109
  1. ;;9002226.02101,"768,049348069136 ",.01)
  1. ;;049348069136
  1. ;;9002226.02101,"768,049348069136 ",.02)
  1. ;;049348069136
  1. ;;9002226.02101,"768,049348069164 ",.01)
  1. ;;049348069164
  1. ;;9002226.02101,"768,049348069164 ",.02)
  1. ;;049348069164
  1. ;;9002226.02101,"768,049348069209 ",.01)
  1. ;;049348069209
  1. ;;9002226.02101,"768,049348069209 ",.02)
  1. ;;049348069209
  1. ;;9002226.02101,"768,049348069236 ",.01)
  1. ;;049348069236
  1. ;;9002226.02101,"768,049348069236 ",.02)
  1. ;;049348069236
  1. ;;9002226.02101,"768,049348069264 ",.01)
  1. ;;049348069264
  1. ;;9002226.02101,"768,049348069264 ",.02)
  1. ;;049348069264
  1. ;;9002226.02101,"768,049348078710 ",.01)
  1. ;;049348078710
  1. ;;9002226.02101,"768,049348078710 ",.02)
  1. ;;049348078710
  1. ;;9002226.02101,"768,049348078759 ",.01)
  1. ;;049348078759
  1. ;;9002226.02101,"768,049348078759 ",.02)
  1. ;;049348078759
  1. ;;9002226.02101,"768,049348078810 ",.01)
  1. ;;049348078810
  1. ;;9002226.02101,"768,049348078810 ",.02)
  1. ;;049348078810
  1. ;;9002226.02101,"768,049348078859 ",.01)
  1. ;;049348078859
  1. ;;9002226.02101,"768,049348078859 ",.02)
  1. ;;049348078859
  1. ;;9002226.02101,"768,049348085216 ",.01)
  1. ;;049348085216
  1. ;;9002226.02101,"768,049348085216 ",.02)
  1. ;;049348085216
  1. ;;9002226.02101,"768,049348085316 ",.01)
  1. ;;049348085316
  1. ;;9002226.02101,"768,049348085316 ",.02)
  1. ;;049348085316
  1. ;;9002226.02101,"768,049884005872 ",.01)
  1. ;;049884005872
  1. ;;9002226.02101,"768,049884005872 ",.02)
  1. ;;049884005872
  1. ;;9002226.02101,"768,049884005972 ",.01)
  1. ;;049884005972
  1. ;;9002226.02101,"768,049884005972 ",.02)
  1. ;;049884005972
  1. ;;9002226.02101,"768,049884006372 ",.01)
  1. ;;049884006372
  1. ;;9002226.02101,"768,049884006372 ",.02)
  1. ;;049884006372
  1. ;;9002226.02101,"768,050428000773 ",.01)
  1. ;;050428000773
  1. ;;9002226.02101,"768,050428000773 ",.02)
  1. ;;050428000773
  1. ;;9002226.02101,"768,050428000774 ",.01)
  1. ;;050428000774
  1. ;;9002226.02101,"768,050428000774 ",.02)
  1. ;;050428000774
  1. ;;9002226.02101,"768,050428000775 ",.01)
  1. ;;050428000775
  1. ;;9002226.02101,"768,050428000775 ",.02)
  1. ;;050428000775
  1. ;;9002226.02101,"768,050428000776 ",.01)
  1. ;;050428000776
  1. ;;9002226.02101,"768,050428000776 ",.02)
  1. ;;050428000776
  1. ;;9002226.02101,"768,050428003053 ",.01)
  1. ;;050428003053
  1. ;;9002226.02101,"768,050428003053 ",.02)
  1. ;;050428003053
  1. ;;9002226.02101,"768,050428101972 ",.01)
  1. ;;050428101972
  1. ;;9002226.02101,"768,050428101972 ",.02)
  1. ;;050428101972
  1. ;;9002226.02101,"768,050428102053 ",.01)
  1. ;;050428102053
  1. ;;9002226.02101,"768,050428102053 ",.02)
  1. ;;050428102053
  1. ;;9002226.02101,"768,050428102194 ",.01)
  1. ;;050428102194
  1. ;;9002226.02101,"768,050428102194 ",.02)
  1. ;;050428102194
  1. ;;9002226.02101,"768,050428102202 ",.01)
  1. ;;050428102202
  1. ;;9002226.02101,"768,050428102202 ",.02)
  1. ;;050428102202
  1. ;;9002226.02101,"768,050428133177 ",.01)
  1. ;;050428133177
  1. ;;9002226.02101,"768,050428133177 ",.02)
  1. ;;050428133177
  1. ;;9002226.02101,"768,050428394372 ",.01)
  1. ;;050428394372
  1. ;;9002226.02101,"768,050428394372 ",.02)
  1. ;;050428394372
  1. ;;9002226.02101,"768,050428394373 ",.01)
  1. ;;050428394373
  1. ;;9002226.02101,"768,050428394373 ",.02)
  1. ;;050428394373
  1. ;;9002226.02101,"768,050428394374 ",.01)
  1. ;;050428394374
  1. ;;9002226.02101,"768,050428394374 ",.02)
  1. ;;050428394374
  1. ;;9002226.02101,"768,050428394375 ",.01)
  1. ;;050428394375
  1. ;;9002226.02101,"768,050428394375 ",.02)
  1. ;;050428394375
  1. ;;9002226.02101,"768,050428456109 ",.01)
  1. ;;050428456109
  1. ;;9002226.02101,"768,050428456109 ",.02)
  1. ;;050428456109
  1. ;;9002226.02101,"768,050428456112 ",.01)
  1. ;;050428456112
  1. ;;9002226.02101,"768,050428456112 ",.02)
  1. ;;050428456112
  1. ;;9002226.02101,"768,053261004696 ",.01)
  1. ;;053261004696
  1. ;;9002226.02101,"768,053261004696 ",.02)
  1. ;;053261004696
  1. ;;9002226.02101,"768,055154524505 ",.01)
  1. ;;055154524505
  1. ;;9002226.02101,"768,055154524505 ",.02)
  1. ;;055154524505
  1. ;;9002226.02101,"768,059779012403 ",.01)
  1. ;;059779012403
  1. ;;9002226.02101,"768,059779012403 ",.02)
  1. ;;059779012403
  1. ;;9002226.02101,"768,059779012405 ",.01)
  1. ;;059779012405
  1. ;;9002226.02101,"768,059779012405 ",.02)
  1. ;;059779012405
  1. ;;9002226.02101,"768,059779019003 ",.01)
  1. ;;059779019003
  1. ;;9002226.02101,"768,059779019003 ",.02)
  1. ;;059779019003
  1. ;;9002226.02101,"768,059779019005 ",.01)
  1. ;;059779019005
  1. ;;9002226.02101,"768,059779019005 ",.02)
  1. ;;059779019005
  1. ;;9002226.02101,"768,059779034401 ",.01)
  1. ;;059779034401
  1. ;;9002226.02101,"768,059779034401 ",.02)
  1. ;;059779034401
  1. ;;9002226.02101,"768,059779034403 ",.01)
  1. ;;059779034403
  1. ;;9002226.02101,"768,059779034403 ",.02)
  1. ;;059779034403
  1. ;;9002226.02101,"768,059779034404 ",.01)
  1. ;;059779034404
  1. ;;9002226.02101,"768,059779034404 ",.02)
  1. ;;059779034404
  1. ;;9002226.02101,"768,059779034405 ",.01)
  1. ;;059779034405
  1. ;;9002226.02101,"768,059779034405 ",.02)
  1. ;;059779034405
  1. ;;9002226.02101,"768,059779034408 ",.01)
  1. ;;059779034408
  1. ;;9002226.02101,"768,059779034408 ",.02)
  1. ;;059779034408
  1. ;;9002226.02101,"768,059779034423 ",.01)
  1. ;;059779034423
  1. ;;9002226.02101,"768,059779034423 ",.02)
  1. ;;059779034423
  1. ;;9002226.02101,"768,059779034444 ",.01)
  1. ;;059779034444
  1. ;;9002226.02101,"768,059779034444 ",.02)
  1. ;;059779034444