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

BGPMBTXW.m

Go to the documentation of this file.
  1. BGPMBTXW ;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,000067512628 ",.01)
  1. ;;000067512628
  1. ;;9002226.02101,"768,000067512628 ",.02)
  1. ;;000067512628
  1. ;;9002226.02101,"768,000067612814 ",.01)
  1. ;;000067612814
  1. ;;9002226.02101,"768,000067612814 ",.02)
  1. ;;000067612814
  1. ;;9002226.02101,"768,000067612914 ",.01)
  1. ;;000067612914
  1. ;;9002226.02101,"768,000067612914 ",.02)
  1. ;;000067612914
  1. ;;9002226.02101,"768,000067613014 ",.01)
  1. ;;000067613014
  1. ;;9002226.02101,"768,000067613014 ",.02)
  1. ;;000067613014
  1. ;;9002226.02101,"768,000068004501 ",.01)
  1. ;;000068004501
  1. ;;9002226.02101,"768,000068004501 ",.02)
  1. ;;000068004501
  1. ;;9002226.02101,"768,000068004525 ",.01)
  1. ;;000068004525
  1. ;;9002226.02101,"768,000068004525 ",.02)
  1. ;;000068004525
  1. ;;9002226.02101,"768,000071985308 ",.01)
  1. ;;000071985308
  1. ;;9002226.02101,"768,000071985308 ",.02)
  1. ;;000071985308
  1. ;;9002226.02101,"768,000113020625 ",.01)
  1. ;;000113020625
  1. ;;9002226.02101,"768,000113020625 ",.02)
  1. ;;000113020625
  1. ;;9002226.02101,"768,000113034405 ",.01)
  1. ;;000113034405
  1. ;;9002226.02101,"768,000113034405 ",.02)
  1. ;;000113034405
  1. ;;9002226.02101,"768,000113042225 ",.01)
  1. ;;000113042225
  1. ;;9002226.02101,"768,000113042225 ",.02)
  1. ;;000113042225
  1. ;;9002226.02101,"768,000113045678 ",.01)
  1. ;;000113045678
  1. ;;9002226.02101,"768,000113045678 ",.02)
  1. ;;000113045678
  1. ;;9002226.02101,"768,000113053278 ",.01)
  1. ;;000113053278
  1. ;;9002226.02101,"768,000113053278 ",.02)
  1. ;;000113053278
  1. ;;9002226.02101,"768,000113087305 ",.01)
  1. ;;000113087305
  1. ;;9002226.02101,"768,000113087305 ",.02)
  1. ;;000113087305
  1. ;;9002226.02101,"768,000247056507 ",.01)
  1. ;;000247056507
  1. ;;9002226.02101,"768,000247056507 ",.02)
  1. ;;000247056507
  1. ;;9002226.02101,"768,000247056514 ",.01)
  1. ;;000247056514
  1. ;;9002226.02101,"768,000247056514 ",.02)
  1. ;;000247056514
  1. ;;9002226.02101,"768,000247192907 ",.01)
  1. ;;000247192907
  1. ;;9002226.02101,"768,000247192907 ",.02)
  1. ;;000247192907
  1. ;;9002226.02101,"768,000247192915 ",.01)
  1. ;;000247192915
  1. ;;9002226.02101,"768,000247192915 ",.02)
  1. ;;000247192915
  1. ;;9002226.02101,"768,000247192930 ",.01)
  1. ;;000247192930
  1. ;;9002226.02101,"768,000247192930 ",.02)
  1. ;;000247192930
  1. ;;9002226.02101,"768,000247193007 ",.01)
  1. ;;000247193007
  1. ;;9002226.02101,"768,000247193007 ",.02)
  1. ;;000247193007
  1. ;;9002226.02101,"768,000247193015 ",.01)
  1. ;;000247193015
  1. ;;9002226.02101,"768,000247193015 ",.02)
  1. ;;000247193015
  1. ;;9002226.02101,"768,000247193030 ",.01)
  1. ;;000247193030
  1. ;;9002226.02101,"768,000247193030 ",.02)
  1. ;;000247193030
  1. ;;9002226.02101,"768,000247193107 ",.01)
  1. ;;000247193107
  1. ;;9002226.02101,"768,000247193107 ",.02)
  1. ;;000247193107
  1. ;;9002226.02101,"768,000247193115 ",.01)
  1. ;;000247193115
  1. ;;9002226.02101,"768,000247193115 ",.02)
  1. ;;000247193115
  1. ;;9002226.02101,"768,000247193130 ",.01)
  1. ;;000247193130
  1. ;;9002226.02101,"768,000247193130 ",.02)
  1. ;;000247193130
  1. ;;9002226.02101,"768,000363012403 ",.01)
  1. ;;000363012403
  1. ;;9002226.02101,"768,000363012403 ",.02)
  1. ;;000363012403
  1. ;;9002226.02101,"768,000363012405 ",.01)
  1. ;;000363012405
  1. ;;9002226.02101,"768,000363012405 ",.02)
  1. ;;000363012405
  1. ;;9002226.02101,"768,000363012406 ",.01)
  1. ;;000363012406
  1. ;;9002226.02101,"768,000363012406 ",.02)
  1. ;;000363012406
  1. ;;9002226.02101,"768,000363012409 ",.01)
  1. ;;000363012409
  1. ;;9002226.02101,"768,000363012409 ",.02)
  1. ;;000363012409
  1. ;;9002226.02101,"768,000363012410 ",.01)
  1. ;;000363012410
  1. ;;9002226.02101,"768,000363012410 ",.02)
  1. ;;000363012410
  1. ;;9002226.02101,"768,000363019003 ",.01)
  1. ;;000363019003
  1. ;;9002226.02101,"768,000363019003 ",.02)
  1. ;;000363019003
  1. ;;9002226.02101,"768,000363019005 ",.01)
  1. ;;000363019005
  1. ;;9002226.02101,"768,000363019005 ",.02)
  1. ;;000363019005
  1. ;;9002226.02101,"768,000363019006 ",.01)
  1. ;;000363019006
  1. ;;9002226.02101,"768,000363019006 ",.02)
  1. ;;000363019006
  1. ;;9002226.02101,"768,000363019009 ",.01)
  1. ;;000363019009
  1. ;;9002226.02101,"768,000363019009 ",.02)
  1. ;;000363019009
  1. ;;9002226.02101,"768,000363019010 ",.01)
  1. ;;000363019010
  1. ;;9002226.02101,"768,000363019010 ",.02)
  1. ;;000363019010
  1. ;;9002226.02101,"768,000363019402 ",.01)
  1. ;;000363019402
  1. ;;9002226.02101,"768,000363019402 ",.02)
  1. ;;000363019402
  1. ;;9002226.02101,"768,000363019502 ",.01)
  1. ;;000363019502
  1. ;;9002226.02101,"768,000363019502 ",.02)
  1. ;;000363019502
  1. ;;9002226.02101,"768,000363019602 ",.01)
  1. ;;000363019602
  1. ;;9002226.02101,"768,000363019602 ",.02)
  1. ;;000363019602
  1. ;;9002226.02101,"768,000363020801 ",.01)
  1. ;;000363020801
  1. ;;9002226.02101,"768,000363020801 ",.02)
  1. ;;000363020801
  1. ;;9002226.02101,"768,000363020807 ",.01)
  1. ;;000363020807
  1. ;;9002226.02101,"768,000363020807 ",.02)
  1. ;;000363020807
  1. ;;9002226.02101,"768,000363020901 ",.01)
  1. ;;000363020901
  1. ;;9002226.02101,"768,000363020901 ",.02)
  1. ;;000363020901
  1. ;;9002226.02101,"768,000363020907 ",.01)
  1. ;;000363020907
  1. ;;9002226.02101,"768,000363020907 ",.02)
  1. ;;000363020907
  1. ;;9002226.02101,"768,000363034408 ",.01)
  1. ;;000363034408
  1. ;;9002226.02101,"768,000363034408 ",.02)
  1. ;;000363034408
  1. ;;9002226.02101,"768,000363034467 ",.01)
  1. ;;000363034467
  1. ;;9002226.02101,"768,000363034467 ",.02)
  1. ;;000363034467
  1. ;;9002226.02101,"768,000363042050 ",.01)
  1. ;;000363042050
  1. ;;9002226.02101,"768,000363042050 ",.02)
  1. ;;000363042050
  1. ;;9002226.02101,"768,000363042062 ",.01)
  1. ;;000363042062
  1. ;;9002226.02101,"768,000363042062 ",.02)
  1. ;;000363042062
  1. ;;9002226.02101,"768,000363042098 ",.01)
  1. ;;000363042098
  1. ;;9002226.02101,"768,000363042098 ",.02)
  1. ;;000363042098
  1. ;;9002226.02101,"768,000363042150 ",.01)
  1. ;;000363042150
  1. ;;9002226.02101,"768,000363042150 ",.02)
  1. ;;000363042150
  1. ;;9002226.02101,"768,000363042162 ",.01)
  1. ;;000363042162
  1. ;;9002226.02101,"768,000363042162 ",.02)
  1. ;;000363042162
  1. ;;9002226.02101,"768,000363042198 ",.01)
  1. ;;000363042198
  1. ;;9002226.02101,"768,000363042198 ",.02)
  1. ;;000363042198
  1. ;;9002226.02101,"768,000363042405 ",.01)
  1. ;;000363042405
  1. ;;9002226.02101,"768,000363042405 ",.02)
  1. ;;000363042405
  1. ;;9002226.02101,"768,000363042406 ",.01)
  1. ;;000363042406
  1. ;;9002226.02101,"768,000363042406 ",.02)
  1. ;;000363042406
  1. ;;9002226.02101,"768,000363045678 ",.01)
  1. ;;000363045678
  1. ;;9002226.02101,"768,000363045678 ",.02)
  1. ;;000363045678
  1. ;;9002226.02101,"768,000363053258 ",.01)
  1. ;;000363053258
  1. ;;9002226.02101,"768,000363053258 ",.02)
  1. ;;000363053258
  1. ;;9002226.02101,"768,000363053278 ",.01)
  1. ;;000363053278
  1. ;;9002226.02101,"768,000363053278 ",.02)
  1. ;;000363053278
  1. ;;9002226.02101,"768,000363087308 ",.01)
  1. ;;000363087308
  1. ;;9002226.02101,"768,000363087308 ",.02)
  1. ;;000363087308
  1. ;;9002226.02101,"768,000363087323 ",.01)
  1. ;;000363087323
  1. ;;9002226.02101,"768,000363087323 ",.02)
  1. ;;000363087323
  1. ;;9002226.02101,"768,000363087367 ",.01)
  1. ;;000363087367
  1. ;;9002226.02101,"768,000363087367 ",.02)
  1. ;;000363087367
  1. ;;9002226.02101,"768,000363412250 ",.01)
  1. ;;000363412250
  1. ;;9002226.02101,"768,000363412250 ",.02)
  1. ;;000363412250
  1. ;;9002226.02101,"768,000363412262 ",.01)
  1. ;;000363412262
  1. ;;9002226.02101,"768,000363412262 ",.02)
  1. ;;000363412262
  1. ;;9002226.02101,"768,000363412298 ",.01)
  1. ;;000363412298
  1. ;;9002226.02101,"768,000363412298 ",.02)
  1. ;;000363412298
  1. ;;9002226.02101,"768,000363414950 ",.01)
  1. ;;000363414950
  1. ;;9002226.02101,"768,000363414950 ",.02)
  1. ;;000363414950
  1. ;;9002226.02101,"768,000363414962 ",.01)
  1. ;;000363414962
  1. ;;9002226.02101,"768,000363414962 ",.02)
  1. ;;000363414962
  1. ;;9002226.02101,"768,000363414998 ",.01)
  1. ;;000363414998
  1. ;;9002226.02101,"768,000363414998 ",.02)
  1. ;;000363414998
  1. ;;9002226.02101,"768,000364289030 ",.01)
  1. ;;000364289030
  1. ;;9002226.02101,"768,000364289030 ",.02)
  1. ;;000364289030
  1. ;;9002226.02101,"768,000364289330 ",.01)
  1. ;;000364289330
  1. ;;9002226.02101,"768,000364289330 ",.02)
  1. ;;000364289330
  1. ;;9002226.02101,"768,000364290130 ",.01)
  1. ;;000364290130
  1. ;;9002226.02101,"768,000364290130 ",.02)
  1. ;;000364290130
  1. ;;9002226.02101,"768,000536136206 ",.01)
  1. ;;000536136206
  1. ;;9002226.02101,"768,000536136206 ",.02)
  1. ;;000536136206
  1. ;;9002226.02101,"768,000536136223 ",.01)
  1. ;;000536136223
  1. ;;9002226.02101,"768,000536136223 ",.02)
  1. ;;000536136223
  1. ;;9002226.02101,"768,000536136234 ",.01)
  1. ;;000536136234
  1. ;;9002226.02101,"768,000536136234 ",.02)
  1. ;;000536136234
  1. ;;9002226.02101,"768,000536137206 ",.01)
  1. ;;000536137206
  1. ;;9002226.02101,"768,000536137206 ",.02)
  1. ;;000536137206
  1. ;;9002226.02101,"768,000536137223 ",.01)
  1. ;;000536137223
  1. ;;9002226.02101,"768,000536137223 ",.02)
  1. ;;000536137223
  1. ;;9002226.02101,"768,000536137234 ",.01)
  1. ;;000536137234
  1. ;;9002226.02101,"768,000536137234 ",.02)
  1. ;;000536137234
  1. ;;9002226.02101,"768,000536302906 ",.01)
  1. ;;000536302906
  1. ;;9002226.02101,"768,000536302906 ",.02)
  1. ;;000536302906
  1. ;;9002226.02101,"768,000536302923 ",.01)
  1. ;;000536302923
  1. ;;9002226.02101,"768,000536302923 ",.02)
  1. ;;000536302923
  1. ;;9002226.02101,"768,000536303006 ",.01)
  1. ;;000536303006
  1. ;;9002226.02101,"768,000536303006 ",.02)
  1. ;;000536303006
  1. ;;9002226.02101,"768,000536303023 ",.01)
  1. ;;000536303023
  1. ;;9002226.02101,"768,000536303023 ",.02)
  1. ;;000536303023
  1. ;;9002226.02101,"768,000536310606 ",.01)
  1. ;;000536310606
  1. ;;9002226.02101,"768,000536310606 ",.02)
  1. ;;000536310606
  1. ;;9002226.02101,"768,000536310618 ",.01)
  1. ;;000536310618
  1. ;;9002226.02101,"768,000536310618 ",.02)
  1. ;;000536310618
  1. ;;9002226.02101,"768,000536310623 ",.01)
  1. ;;000536310623
  1. ;;9002226.02101,"768,000536310623 ",.02)
  1. ;;000536310623
  1. ;;9002226.02101,"768,000536310634 ",.01)
  1. ;;000536310634
  1. ;;9002226.02101,"768,000536310634 ",.02)
  1. ;;000536310634
  1. ;;9002226.02101,"768,000536310643 ",.01)
  1. ;;000536310643
  1. ;;9002226.02101,"768,000536310643 ",.02)
  1. ;;000536310643
  1. ;;9002226.02101,"768,000536310706 ",.01)
  1. ;;000536310706
  1. ;;9002226.02101,"768,000536310706 ",.02)
  1. ;;000536310706
  1. ;;9002226.02101,"768,000536310718 ",.01)
  1. ;;000536310718
  1. ;;9002226.02101,"768,000536310718 ",.02)
  1. ;;000536310718
  1. ;;9002226.02101,"768,000536310723 ",.01)
  1. ;;000536310723
  1. ;;9002226.02101,"768,000536310723 ",.02)
  1. ;;000536310723
  1. ;;9002226.02101,"768,000536310734 ",.01)
  1. ;;000536310734
  1. ;;9002226.02101,"768,000536310734 ",.02)
  1. ;;000536310734
  1. ;;9002226.02101,"768,000536310743 ",.01)
  1. ;;000536310743
  1. ;;9002226.02101,"768,000536310743 ",.02)
  1. ;;000536310743
  1. ;;9002226.02101,"768,000536311201 ",.01)
  1. ;;000536311201
  1. ;;9002226.02101,"768,000536311201 ",.02)
  1. ;;000536311201
  1. ;;9002226.02101,"768,000536311237 ",.01)
  1. ;;000536311237
  1. ;;9002226.02101,"768,000536311237 ",.02)
  1. ;;000536311237
  1. ;;9002226.02101,"768,000536311301 ",.01)
  1. ;;000536311301
  1. ;;9002226.02101,"768,000536311301 ",.02)
  1. ;;000536311301
  1. ;;9002226.02101,"768,000536311337 ",.01)
  1. ;;000536311337
  1. ;;9002226.02101,"768,000536311337 ",.02)
  1. ;;000536311337
  1. ;;9002226.02101,"768,000536338601 ",.01)
  1. ;;000536338601
  1. ;;9002226.02101,"768,000536338601 ",.02)
  1. ;;000536338601
  1. ;;9002226.02101,"768,000536338637 ",.01)
  1. ;;000536338637
  1. ;;9002226.02101,"768,000536338637 ",.02)
  1. ;;000536338637
  1. ;;9002226.02101,"768,000536338701 ",.01)
  1. ;;000536338701
  1. ;;9002226.02101,"768,000536338701 ",.02)
  1. ;;000536338701
  1. ;;9002226.02101,"768,000536338737 ",.01)
  1. ;;000536338737
  1. ;;9002226.02101,"768,000536338737 ",.02)
  1. ;;000536338737
  1. ;;9002226.02101,"768,000536340401 ",.01)
  1. ;;000536340401
  1. ;;9002226.02101,"768,000536340401 ",.02)
  1. ;;000536340401
  1. ;;9002226.02101,"768,000536340407 ",.01)
  1. ;;000536340407
  1. ;;9002226.02101,"768,000536340407 ",.02)
  1. ;;000536340407
  1. ;;9002226.02101,"768,000536340437 ",.01)
  1. ;;000536340437
  1. ;;9002226.02101,"768,000536340437 ",.02)
  1. ;;000536340437
  1. ;;9002226.02101,"768,000536340501 ",.01)
  1. ;;000536340501
  1. ;;9002226.02101,"768,000536340501 ",.02)
  1. ;;000536340501
  1. ;;9002226.02101,"768,000536340537 ",.01)
  1. ;;000536340537
  1. ;;9002226.02101,"768,000536340537 ",.02)
  1. ;;000536340537
  1. ;;9002226.02101,"768,000536589488 ",.01)
  1. ;;000536589488
  1. ;;9002226.02101,"768,000536589488 ",.02)
  1. ;;000536589488
  1. ;;9002226.02101,"768,000536589588 ",.01)
  1. ;;000536589588
  1. ;;9002226.02101,"768,000536589588 ",.02)
  1. ;;000536589588
  1. ;;9002226.02101,"768,000536589688 ",.01)
  1. ;;000536589688
  1. ;;9002226.02101,"768,000536589688 ",.02)
  1. ;;000536589688
  1. ;;9002226.02101,"768,000591289030 ",.01)
  1. ;;000591289030
  1. ;;9002226.02101,"768,000591289030 ",.02)
  1. ;;000591289030
  1. ;;9002226.02101,"768,000591289330 ",.01)
  1. ;;000591289330
  1. ;;9002226.02101,"768,000591289330 ",.02)
  1. ;;000591289330
  1. ;;9002226.02101,"768,000591290130 ",.01)
  1. ;;000591290130
  1. ;;9002226.02101,"768,000591290130 ",.02)
  1. ;;000591290130
  1. ;;9002226.02101,"768,000591290154 ",.01)
  1. ;;000591290154
  1. ;;9002226.02101,"768,000591290154 ",.02)
  1. ;;000591290154
  1. ;;9002226.02101,"768,000766150010 ",.01)
  1. ;;000766150010
  1. ;;9002226.02101,"768,000766150010 ",.02)
  1. ;;000766150010
  1. ;;9002226.02101,"768,000766150020 ",.01)
  1. ;;000766150020
  1. ;;9002226.02101,"768,000766150020 ",.02)
  1. ;;000766150020
  1. ;;9002226.02101,"768,000766150030 ",.01)
  1. ;;000766150030
  1. ;;9002226.02101,"768,000766150030 ",.02)
  1. ;;000766150030
  1. ;;9002226.02101,"768,000766150040 ",.01)
  1. ;;000766150040
  1. ;;9002226.02101,"768,000766150040 ",.02)
  1. ;;000766150040
  1. ;;9002226.02101,"768,000766155170 ",.01)
  1. ;;000766155170
  1. ;;9002226.02101,"768,000766155170 ",.02)
  1. ;;000766155170
  1. ;;9002226.02101,"768,005888783026 ",.01)
  1. ;;005888783026
  1. ;;9002226.02101,"768,005888783026 ",.02)
  1. ;;005888783026
  1. ;;9002226.02101,"768,011673019401 ",.01)
  1. ;;011673019401
  1. ;;9002226.02101,"768,011673019401 ",.02)
  1. ;;011673019401
  1. ;;9002226.02101,"768,011673019402 ",.01)
  1. ;;011673019402
  1. ;;9002226.02101,"768,011673019402 ",.02)
  1. ;;011673019402
  1. ;;9002226.02101,"768,011673019502 ",.01)
  1. ;;011673019502