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

BUD2ZD6.m

Go to the documentation of this file.
  1. BUD2ZD6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 16, 2012;
  1. ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  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,"1327,41250096634 ",.01)
  1. ;;41250096634
  1. ;;9002226.02101,"1327,41250096634 ",.02)
  1. ;;41250096634
  1. ;;9002226.02101,"1327,41268053576 ",.01)
  1. ;;41268053576
  1. ;;9002226.02101,"1327,41268053576 ",.02)
  1. ;;41268053576
  1. ;;9002226.02101,"1327,41520046768 ",.01)
  1. ;;41520046768
  1. ;;9002226.02101,"1327,41520046768 ",.02)
  1. ;;41520046768
  1. ;;9002226.02101,"1327,42507027468 ",.01)
  1. ;;42507027468
  1. ;;9002226.02101,"1327,42507027468 ",.02)
  1. ;;42507027468
  1. ;;9002226.02101,"1327,42507046768 ",.01)
  1. ;;42507046768
  1. ;;9002226.02101,"1327,42507046768 ",.02)
  1. ;;42507046768
  1. ;;9002226.02101,"1327,42507053576 ",.01)
  1. ;;42507053576
  1. ;;9002226.02101,"1327,42507053576 ",.02)
  1. ;;42507053576
  1. ;;9002226.02101,"1327,43063027890 ",.01)
  1. ;;43063027890
  1. ;;9002226.02101,"1327,43063027890 ",.02)
  1. ;;43063027890
  1. ;;9002226.02101,"1327,43353071630 ",.01)
  1. ;;43353071630
  1. ;;9002226.02101,"1327,43353071630 ",.02)
  1. ;;43353071630
  1. ;;9002226.02101,"1327,43353071660 ",.01)
  1. ;;43353071660
  1. ;;9002226.02101,"1327,43353071660 ",.02)
  1. ;;43353071660
  1. ;;9002226.02101,"1327,45802064287 ",.01)
  1. ;;45802064287
  1. ;;9002226.02101,"1327,45802064287 ",.02)
  1. ;;45802064287
  1. ;;9002226.02101,"1327,46066020402 ",.01)
  1. ;;46066020402
  1. ;;9002226.02101,"1327,46066020402 ",.02)
  1. ;;46066020402
  1. ;;9002226.02101,"1327,47682001133 ",.01)
  1. ;;47682001133
  1. ;;9002226.02101,"1327,47682001133 ",.02)
  1. ;;47682001133
  1. ;;9002226.02101,"1327,47682001148 ",.01)
  1. ;;47682001148
  1. ;;9002226.02101,"1327,47682001148 ",.02)
  1. ;;47682001148
  1. ;;9002226.02101,"1327,47682001199 ",.01)
  1. ;;47682001199
  1. ;;9002226.02101,"1327,47682001199 ",.02)
  1. ;;47682001199
  1. ;;9002226.02101,"1327,47682008513 ",.01)
  1. ;;47682008513
  1. ;;9002226.02101,"1327,47682008513 ",.02)
  1. ;;47682008513
  1. ;;9002226.02101,"1327,47682008533 ",.01)
  1. ;;47682008533
  1. ;;9002226.02101,"1327,47682008533 ",.02)
  1. ;;47682008533
  1. ;;9002226.02101,"1327,47682009533 ",.01)
  1. ;;47682009533
  1. ;;9002226.02101,"1327,47682009533 ",.02)
  1. ;;47682009533
  1. ;;9002226.02101,"1327,47682009613 ",.01)
  1. ;;47682009613
  1. ;;9002226.02101,"1327,47682009613 ",.02)
  1. ;;47682009613
  1. ;;9002226.02101,"1327,47682009633 ",.01)
  1. ;;47682009633
  1. ;;9002226.02101,"1327,47682009633 ",.02)
  1. ;;47682009633
  1. ;;9002226.02101,"1327,47682009713 ",.01)
  1. ;;47682009713
  1. ;;9002226.02101,"1327,47682009713 ",.02)
  1. ;;47682009713
  1. ;;9002226.02101,"1327,47682009747 ",.01)
  1. ;;47682009747
  1. ;;9002226.02101,"1327,47682009747 ",.02)
  1. ;;47682009747
  1. ;;9002226.02101,"1327,47682009764 ",.01)
  1. ;;47682009764
  1. ;;9002226.02101,"1327,47682009764 ",.02)
  1. ;;47682009764
  1. ;;9002226.02101,"1327,47682009799 ",.01)
  1. ;;47682009799
  1. ;;9002226.02101,"1327,47682009799 ",.02)
  1. ;;47682009799
  1. ;;9002226.02101,"1327,47682009813 ",.01)
  1. ;;47682009813
  1. ;;9002226.02101,"1327,47682009813 ",.02)
  1. ;;47682009813
  1. ;;9002226.02101,"1327,47682009833 ",.01)
  1. ;;47682009833
  1. ;;9002226.02101,"1327,47682009833 ",.02)
  1. ;;47682009833
  1. ;;9002226.02101,"1327,47682009848 ",.01)
  1. ;;47682009848
  1. ;;9002226.02101,"1327,47682009848 ",.02)
  1. ;;47682009848
  1. ;;9002226.02101,"1327,47682009899 ",.01)
  1. ;;47682009899
  1. ;;9002226.02101,"1327,47682009899 ",.02)
  1. ;;47682009899
  1. ;;9002226.02101,"1327,47682009933 ",.01)
  1. ;;47682009933
  1. ;;9002226.02101,"1327,47682009933 ",.02)
  1. ;;47682009933
  1. ;;9002226.02101,"1327,47682009948 ",.01)
  1. ;;47682009948
  1. ;;9002226.02101,"1327,47682009948 ",.02)
  1. ;;47682009948
  1. ;;9002226.02101,"1327,47682010433 ",.01)
  1. ;;47682010433
  1. ;;9002226.02101,"1327,47682010433 ",.02)
  1. ;;47682010433
  1. ;;9002226.02101,"1327,47682010613 ",.01)
  1. ;;47682010613
  1. ;;9002226.02101,"1327,47682010613 ",.02)
  1. ;;47682010613
  1. ;;9002226.02101,"1327,47682010633 ",.01)
  1. ;;47682010633
  1. ;;9002226.02101,"1327,47682010633 ",.02)
  1. ;;47682010633
  1. ;;9002226.02101,"1327,47682011613 ",.01)
  1. ;;47682011613
  1. ;;9002226.02101,"1327,47682011613 ",.02)
  1. ;;47682011613
  1. ;;9002226.02101,"1327,47682011647 ",.01)
  1. ;;47682011647
  1. ;;9002226.02101,"1327,47682011647 ",.02)
  1. ;;47682011647
  1. ;;9002226.02101,"1327,47682011664 ",.01)
  1. ;;47682011664
  1. ;;9002226.02101,"1327,47682011664 ",.02)
  1. ;;47682011664
  1. ;;9002226.02101,"1327,47682011699 ",.01)
  1. ;;47682011699
  1. ;;9002226.02101,"1327,47682011699 ",.02)
  1. ;;47682011699
  1. ;;9002226.02101,"1327,47682011913 ",.01)
  1. ;;47682011913
  1. ;;9002226.02101,"1327,47682011913 ",.02)
  1. ;;47682011913
  1. ;;9002226.02101,"1327,47682011936 ",.01)
  1. ;;47682011936
  1. ;;9002226.02101,"1327,47682011936 ",.02)
  1. ;;47682011936
  1. ;;9002226.02101,"1327,47682011948 ",.01)
  1. ;;47682011948
  1. ;;9002226.02101,"1327,47682011948 ",.02)
  1. ;;47682011948
  1. ;;9002226.02101,"1327,47682011999 ",.01)
  1. ;;47682011999
  1. ;;9002226.02101,"1327,47682011999 ",.02)
  1. ;;47682011999
  1. ;;9002226.02101,"1327,47682015113 ",.01)
  1. ;;47682015113
  1. ;;9002226.02101,"1327,47682015113 ",.02)
  1. ;;47682015113
  1. ;;9002226.02101,"1327,47682015213 ",.01)
  1. ;;47682015213
  1. ;;9002226.02101,"1327,47682015213 ",.02)
  1. ;;47682015213
  1. ;;9002226.02101,"1327,47682080513 ",.01)
  1. ;;47682080513
  1. ;;9002226.02101,"1327,47682080513 ",.02)
  1. ;;47682080513
  1. ;;9002226.02101,"1327,47682080533 ",.01)
  1. ;;47682080533
  1. ;;9002226.02101,"1327,47682080533 ",.02)
  1. ;;47682080533
  1. ;;9002226.02101,"1327,47682080548 ",.01)
  1. ;;47682080548
  1. ;;9002226.02101,"1327,47682080548 ",.02)
  1. ;;47682080548
  1. ;;9002226.02101,"1327,47682080599 ",.01)
  1. ;;47682080599
  1. ;;9002226.02101,"1327,47682080599 ",.02)
  1. ;;47682080599
  1. ;;9002226.02101,"1327,47682080613 ",.01)
  1. ;;47682080613
  1. ;;9002226.02101,"1327,47682080613 ",.02)
  1. ;;47682080613
  1. ;;9002226.02101,"1327,47682080633 ",.01)
  1. ;;47682080633
  1. ;;9002226.02101,"1327,47682080633 ",.02)
  1. ;;47682080633
  1. ;;9002226.02101,"1327,47682080648 ",.01)
  1. ;;47682080648
  1. ;;9002226.02101,"1327,47682080648 ",.02)
  1. ;;47682080648
  1. ;;9002226.02101,"1327,47682080699 ",.01)
  1. ;;47682080699
  1. ;;9002226.02101,"1327,47682080699 ",.02)
  1. ;;47682080699
  1. ;;9002226.02101,"1327,47682090533 ",.01)
  1. ;;47682090533
  1. ;;9002226.02101,"1327,47682090533 ",.02)
  1. ;;47682090533
  1. ;;9002226.02101,"1327,47682090548 ",.01)
  1. ;;47682090548
  1. ;;9002226.02101,"1327,47682090548 ",.02)
  1. ;;47682090548
  1. ;;9002226.02101,"1327,47682090633 ",.01)
  1. ;;47682090633
  1. ;;9002226.02101,"1327,47682090633 ",.02)
  1. ;;47682090633
  1. ;;9002226.02101,"1327,47682090648 ",.01)
  1. ;;47682090648
  1. ;;9002226.02101,"1327,47682090648 ",.02)
  1. ;;47682090648
  1. ;;9002226.02101,"1327,49035027423 ",.01)
  1. ;;49035027423
  1. ;;9002226.02101,"1327,49035027423 ",.02)
  1. ;;49035027423
  1. ;;9002226.02101,"1327,49035027468 ",.01)
  1. ;;49035027468
  1. ;;9002226.02101,"1327,49035027468 ",.02)
  1. ;;49035027468
  1. ;;9002226.02101,"1327,49035041412 ",.01)
  1. ;;49035041412
  1. ;;9002226.02101,"1327,49035041412 ",.02)
  1. ;;49035041412
  1. ;;9002226.02101,"1327,49035053587 ",.01)
  1. ;;49035053587
  1. ;;9002226.02101,"1327,49035053587 ",.02)
  1. ;;49035053587
  1. ;;9002226.02101,"1327,49035056317 ",.01)
  1. ;;49035056317
  1. ;;9002226.02101,"1327,49035056317 ",.02)
  1. ;;49035056317
  1. ;;9002226.02101,"1327,49035056332 ",.01)
  1. ;;49035056332
  1. ;;9002226.02101,"1327,49035056332 ",.02)
  1. ;;49035056332
  1. ;;9002226.02101,"1327,49348000110 ",.01)
  1. ;;49348000110
  1. ;;9002226.02101,"1327,49348000110 ",.02)
  1. ;;49348000110
  1. ;;9002226.02101,"1327,49348000114 ",.01)
  1. ;;49348000114
  1. ;;9002226.02101,"1327,49348000114 ",.02)
  1. ;;49348000114
  1. ;;9002226.02101,"1327,49348000119 ",.01)
  1. ;;49348000119
  1. ;;9002226.02101,"1327,49348000119 ",.02)
  1. ;;49348000119
  1. ;;9002226.02101,"1327,49348000123 ",.01)
  1. ;;49348000123
  1. ;;9002226.02101,"1327,49348000123 ",.02)
  1. ;;49348000123
  1. ;;9002226.02101,"1327,49348000645 ",.01)
  1. ;;49348000645
  1. ;;9002226.02101,"1327,49348000645 ",.02)
  1. ;;49348000645
  1. ;;9002226.02101,"1327,49348003410 ",.01)
  1. ;;49348003410
  1. ;;9002226.02101,"1327,49348003410 ",.02)
  1. ;;49348003410
  1. ;;9002226.02101,"1327,49348003414 ",.01)
  1. ;;49348003414
  1. ;;9002226.02101,"1327,49348003414 ",.02)
  1. ;;49348003414
  1. ;;9002226.02101,"1327,49348003419 ",.01)
  1. ;;49348003419
  1. ;;9002226.02101,"1327,49348003419 ",.02)
  1. ;;49348003419
  1. ;;9002226.02101,"1327,49348003423 ",.01)
  1. ;;49348003423
  1. ;;9002226.02101,"1327,49348003423 ",.02)
  1. ;;49348003423
  1. ;;9002226.02101,"1327,49348003453 ",.01)
  1. ;;49348003453
  1. ;;9002226.02101,"1327,49348003453 ",.02)
  1. ;;49348003453
  1. ;;9002226.02101,"1327,49348003482 ",.01)
  1. ;;49348003482
  1. ;;9002226.02101,"1327,49348003482 ",.02)
  1. ;;49348003482
  1. ;;9002226.02101,"1327,49348019107 ",.01)
  1. ;;49348019107
  1. ;;9002226.02101,"1327,49348019107 ",.02)
  1. ;;49348019107
  1. ;;9002226.02101,"1327,49348028314 ",.01)
  1. ;;49348028314
  1. ;;9002226.02101,"1327,49348028314 ",.02)
  1. ;;49348028314
  1. ;;9002226.02101,"1327,49348028423 ",.01)
  1. ;;49348028423
  1. ;;9002226.02101,"1327,49348028423 ",.02)
  1. ;;49348028423
  1. ;;9002226.02101,"1327,49348049807 ",.01)
  1. ;;49348049807
  1. ;;9002226.02101,"1327,49348049807 ",.02)
  1. ;;49348049807
  1. ;;9002226.02101,"1327,49348065315 ",.01)
  1. ;;49348065315
  1. ;;9002226.02101,"1327,49348065315 ",.02)
  1. ;;49348065315
  1. ;;9002226.02101,"1327,49348075615 ",.01)
  1. ;;49348075615
  1. ;;9002226.02101,"1327,49348075615 ",.02)
  1. ;;49348075615
  1. ;;9002226.02101,"1327,49348075623 ",.01)
  1. ;;49348075623
  1. ;;9002226.02101,"1327,49348075623 ",.02)
  1. ;;49348075623
  1. ;;9002226.02101,"1327,49348075653 ",.01)
  1. ;;49348075653
  1. ;;9002226.02101,"1327,49348075653 ",.02)
  1. ;;49348075653
  1. ;;9002226.02101,"1327,49348075707 ",.01)
  1. ;;49348075707
  1. ;;9002226.02101,"1327,49348075707 ",.02)
  1. ;;49348075707
  1. ;;9002226.02101,"1327,49348078412 ",.01)
  1. ;;49348078412
  1. ;;9002226.02101,"1327,49348078412 ",.02)
  1. ;;49348078412
  1. ;;9002226.02101,"1327,49348093714 ",.01)
  1. ;;49348093714
  1. ;;9002226.02101,"1327,49348093714 ",.02)
  1. ;;49348093714
  1. ;;9002226.02101,"1327,49348093782 ",.01)
  1. ;;49348093782
  1. ;;9002226.02101,"1327,49348093782 ",.02)
  1. ;;49348093782
  1. ;;9002226.02101,"1327,49483000201 ",.01)
  1. ;;49483000201
  1. ;;9002226.02101,"1327,49483000201 ",.02)
  1. ;;49483000201
  1. ;;9002226.02101,"1327,49483000210 ",.01)
  1. ;;49483000210
  1. ;;9002226.02101,"1327,49483000210 ",.02)
  1. ;;49483000210
  1. ;;9002226.02101,"1327,49483001101 ",.01)
  1. ;;49483001101
  1. ;;9002226.02101,"1327,49483001101 ",.02)
  1. ;;49483001101
  1. ;;9002226.02101,"1327,49483001110 ",.01)
  1. ;;49483001110
  1. ;;9002226.02101,"1327,49483001110 ",.02)
  1. ;;49483001110
  1. ;;9002226.02101,"1327,49483002510 ",.01)
  1. ;;49483002510
  1. ;;9002226.02101,"1327,49483002510 ",.02)
  1. ;;49483002510
  1. ;;9002226.02101,"1327,49483002512 ",.01)
  1. ;;49483002512
  1. ;;9002226.02101,"1327,49483002512 ",.02)
  1. ;;49483002512
  1. ;;9002226.02101,"1327,49483003201 ",.01)
  1. ;;49483003201
  1. ;;9002226.02101,"1327,49483003201 ",.02)
  1. ;;49483003201
  1. ;;9002226.02101,"1327,49483003210 ",.01)
  1. ;;49483003210
  1. ;;9002226.02101,"1327,49483003210 ",.02)
  1. ;;49483003210
  1. ;;9002226.02101,"1327,49483005201 ",.01)
  1. ;;49483005201
  1. ;;9002226.02101,"1327,49483005201 ",.02)
  1. ;;49483005201
  1. ;;9002226.02101,"1327,49483005210 ",.01)
  1. ;;49483005210
  1. ;;9002226.02101,"1327,49483005210 ",.02)
  1. ;;49483005210
  1. ;;9002226.02101,"1327,49483022401 ",.01)
  1. ;;49483022401
  1. ;;9002226.02101,"1327,49483022401 ",.02)
  1. ;;49483022401
  1. ;;9002226.02101,"1327,49483022405 ",.01)
  1. ;;49483022405
  1. ;;9002226.02101,"1327,49483022405 ",.02)
  1. ;;49483022405
  1. ;;9002226.02101,"1327,49483022410 ",.01)
  1. ;;49483022410
  1. ;;9002226.02101,"1327,49483022410 ",.02)
  1. ;;49483022410
  1. ;;9002226.02101,"1327,49483032801 ",.01)
  1. ;;49483032801
  1. ;;9002226.02101,"1327,49483032801 ",.02)
  1. ;;49483032801
  1. ;;9002226.02101,"1327,49483032810 ",.01)
  1. ;;49483032810
  1. ;;9002226.02101,"1327,49483032810 ",.02)
  1. ;;49483032810
  1. ;;9002226.02101,"1327,49483033100 ",.01)
  1. ;;49483033100
  1. ;;9002226.02101,"1327,49483033100 ",.02)
  1. ;;49483033100
  1. ;;9002226.02101,"1327,49483033101 ",.01)
  1. ;;49483033101
  1. ;;9002226.02101,"1327,49483033101 ",.02)
  1. ;;49483033101
  1. ;;9002226.02101,"1327,49483033400 ",.01)
  1. ;;49483033400
  1. ;;9002226.02101,"1327,49483033400 ",.02)
  1. ;;49483033400
  1. ;;9002226.02101,"1327,49483033463 ",.01)
  1. ;;49483033463
  1. ;;9002226.02101,"1327,49483033463 ",.02)
  1. ;;49483033463
  1. ;;9002226.02101,"1327,49483034900 ",.01)
  1. ;;49483034900
  1. ;;9002226.02101,"1327,49483034900 ",.02)
  1. ;;49483034900
  1. ;;9002226.02101,"1327,49483038110 ",.01)
  1. ;;49483038110
  1. ;;9002226.02101,"1327,49483038110 ",.02)
  1. ;;49483038110
  1. ;;9002226.02101,"1327,49483038112 ",.01)
  1. ;;49483038112
  1. ;;9002226.02101,"1327,49483038112 ",.02)
  1. ;;49483038112
  1. ;;9002226.02101,"1327,49483038700 ",.01)
  1. ;;49483038700
  1. ;;9002226.02101,"1327,49483038700 ",.02)
  1. ;;49483038700
  1. ;;9002226.02101,"1327,49483038710 ",.01)
  1. ;;49483038710
  1. ;;9002226.02101,"1327,49483038710 ",.02)
  1. ;;49483038710
  1. ;;9002226.02101,"1327,49483038712 ",.01)
  1. ;;49483038712
  1. ;;9002226.02101,"1327,49483038712 ",.02)
  1. ;;49483038712
  1. ;;9002226.02101,"1327,49483039000 ",.01)
  1. ;;49483039000
  1. ;;9002226.02101,"1327,49483039000 ",.02)
  1. ;;49483039000
  1. ;;9002226.02101,"1327,49614011378 ",.01)
  1. ;;49614011378
  1. ;;9002226.02101,"1327,49614011378 ",.02)
  1. ;;49614011378
  1. ;;9002226.02101,"1327,49614011385 ",.01)
  1. ;;49614011385
  1. ;;9002226.02101,"1327,49614011385 ",.02)
  1. ;;49614011385
  1. ;;9002226.02101,"1327,49614046768 ",.01)
  1. ;;49614046768
  1. ;;9002226.02101,"1327,49614046768 ",.02)
  1. ;;49614046768
  1. ;;9002226.02101,"1327,49738046768 ",.01)
  1. ;;49738046768
  1. ;;9002226.02101,"1327,49738046768 ",.02)
  1. ;;49738046768
  1. ;;9002226.02101,"1327,49856002702 ",.01)
  1. ;;49856002702
  1. ;;9002226.02101,"1327,49856002702 ",.02)
  1. ;;49856002702
  1. ;;9002226.02101,"1327,49856002704 ",.01)
  1. ;;49856002704
  1. ;;9002226.02101,"1327,49856002704 ",.02)
  1. ;;49856002704
  1. ;;9002226.02101,"1327,49856002707 ",.01)
  1. ;;49856002707
  1. ;;9002226.02101,"1327,49856002707 ",.02)
  1. ;;49856002707
  1. ;;9002226.02101,"1327,49856002709 ",.01)
  1. ;;49856002709