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

BUD2ZA24.m

Go to the documentation of this file.
  1. BUD2ZA24 ;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,"1149,67228025806 ",.01)
  1. ;;67228025806
  1. ;;9002226.02101,"1149,67228025806 ",.02)
  1. ;;67228025806
  1. ;;9002226.02101,"1149,67228025903 ",.01)
  1. ;;67228025903
  1. ;;9002226.02101,"1149,67228025903 ",.02)
  1. ;;67228025903
  1. ;;9002226.02101,"1149,67228025906 ",.01)
  1. ;;67228025906
  1. ;;9002226.02101,"1149,67228025906 ",.02)
  1. ;;67228025906
  1. ;;9002226.02101,"1149,67228028803 ",.01)
  1. ;;67228028803
  1. ;;9002226.02101,"1149,67228028803 ",.02)
  1. ;;67228028803
  1. ;;9002226.02101,"1149,67228028806 ",.01)
  1. ;;67228028806
  1. ;;9002226.02101,"1149,67228028806 ",.02)
  1. ;;67228028806
  1. ;;9002226.02101,"1149,67228029403 ",.01)
  1. ;;67228029403
  1. ;;9002226.02101,"1149,67228029403 ",.02)
  1. ;;67228029403
  1. ;;9002226.02101,"1149,67228029406 ",.01)
  1. ;;67228029406
  1. ;;9002226.02101,"1149,67228029406 ",.02)
  1. ;;67228029406
  1. ;;9002226.02101,"1149,67228034003 ",.01)
  1. ;;67228034003
  1. ;;9002226.02101,"1149,67228034003 ",.02)
  1. ;;67228034003
  1. ;;9002226.02101,"1149,67228034006 ",.01)
  1. ;;67228034006
  1. ;;9002226.02101,"1149,67228034006 ",.02)
  1. ;;67228034006
  1. ;;9002226.02101,"1149,67228034803 ",.01)
  1. ;;67228034803
  1. ;;9002226.02101,"1149,67228034803 ",.02)
  1. ;;67228034803
  1. ;;9002226.02101,"1149,67228034806 ",.01)
  1. ;;67228034806
  1. ;;9002226.02101,"1149,67228034806 ",.02)
  1. ;;67228034806
  1. ;;9002226.02101,"1149,67228035403 ",.01)
  1. ;;67228035403
  1. ;;9002226.02101,"1149,67228035403 ",.02)
  1. ;;67228035403
  1. ;;9002226.02101,"1149,67228035406 ",.01)
  1. ;;67228035406
  1. ;;9002226.02101,"1149,67228035406 ",.02)
  1. ;;67228035406
  1. ;;9002226.02101,"1149,67228036003 ",.01)
  1. ;;67228036003
  1. ;;9002226.02101,"1149,67228036003 ",.02)
  1. ;;67228036003
  1. ;;9002226.02101,"1149,67228036006 ",.01)
  1. ;;67228036006
  1. ;;9002226.02101,"1149,67228036006 ",.02)
  1. ;;67228036006
  1. ;;9002226.02101,"1149,67228042703 ",.01)
  1. ;;67228042703
  1. ;;9002226.02101,"1149,67228042703 ",.02)
  1. ;;67228042703
  1. ;;9002226.02101,"1149,67228044903 ",.01)
  1. ;;67228044903
  1. ;;9002226.02101,"1149,67228044903 ",.02)
  1. ;;67228044903
  1. ;;9002226.02101,"1149,67228044906 ",.01)
  1. ;;67228044906
  1. ;;9002226.02101,"1149,67228044906 ",.02)
  1. ;;67228044906
  1. ;;9002226.02101,"1149,67228045803 ",.01)
  1. ;;67228045803
  1. ;;9002226.02101,"1149,67228045803 ",.02)
  1. ;;67228045803
  1. ;;9002226.02101,"1149,67228045806 ",.01)
  1. ;;67228045806
  1. ;;9002226.02101,"1149,67228045806 ",.02)
  1. ;;67228045806
  1. ;;9002226.02101,"1149,67228046603 ",.01)
  1. ;;67228046603
  1. ;;9002226.02101,"1149,67228046603 ",.02)
  1. ;;67228046603
  1. ;;9002226.02101,"1149,67228046606 ",.01)
  1. ;;67228046606
  1. ;;9002226.02101,"1149,67228046606 ",.02)
  1. ;;67228046606
  1. ;;9002226.02101,"1149,67228046803 ",.01)
  1. ;;67228046803
  1. ;;9002226.02101,"1149,67228046803 ",.02)
  1. ;;67228046803
  1. ;;9002226.02101,"1149,67228046806 ",.01)
  1. ;;67228046806
  1. ;;9002226.02101,"1149,67228046806 ",.02)
  1. ;;67228046806
  1. ;;9002226.02101,"1149,67253074106 ",.01)
  1. ;;67253074106
  1. ;;9002226.02101,"1149,67253074106 ",.02)
  1. ;;67253074106
  1. ;;9002226.02101,"1149,67253074109 ",.01)
  1. ;;67253074109
  1. ;;9002226.02101,"1149,67253074109 ",.02)
  1. ;;67253074109
  1. ;;9002226.02101,"1149,67253074150 ",.01)
  1. ;;67253074150
  1. ;;9002226.02101,"1149,67253074150 ",.02)
  1. ;;67253074150
  1. ;;9002226.02101,"1149,67317337301 ",.01)
  1. ;;67317337301
  1. ;;9002226.02101,"1149,67317337301 ",.02)
  1. ;;67317337301
  1. ;;9002226.02101,"1149,67317337401 ",.01)
  1. ;;67317337401
  1. ;;9002226.02101,"1149,67317337401 ",.02)
  1. ;;67317337401
  1. ;;9002226.02101,"1149,67317337501 ",.01)
  1. ;;67317337501
  1. ;;9002226.02101,"1149,67317337501 ",.02)
  1. ;;67317337501
  1. ;;9002226.02101,"1149,67317337601 ",.01)
  1. ;;67317337601
  1. ;;9002226.02101,"1149,67317337601 ",.02)
  1. ;;67317337601
  1. ;;9002226.02101,"1149,67544009631 ",.01)
  1. ;;67544009631
  1. ;;9002226.02101,"1149,67544009631 ",.02)
  1. ;;67544009631
  1. ;;9002226.02101,"1149,67544009660 ",.01)
  1. ;;67544009660
  1. ;;9002226.02101,"1149,67544009660 ",.02)
  1. ;;67544009660
  1. ;;9002226.02101,"1149,67544009680 ",.01)
  1. ;;67544009680
  1. ;;9002226.02101,"1149,67544009680 ",.02)
  1. ;;67544009680
  1. ;;9002226.02101,"1149,67544010615 ",.01)
  1. ;;67544010615
  1. ;;9002226.02101,"1149,67544010615 ",.02)
  1. ;;67544010615
  1. ;;9002226.02101,"1149,67544010630 ",.01)
  1. ;;67544010630
  1. ;;9002226.02101,"1149,67544010630 ",.02)
  1. ;;67544010630
  1. ;;9002226.02101,"1149,67544010631 ",.01)
  1. ;;67544010631
  1. ;;9002226.02101,"1149,67544010631 ",.02)
  1. ;;67544010631
  1. ;;9002226.02101,"1149,67544010632 ",.01)
  1. ;;67544010632
  1. ;;9002226.02101,"1149,67544010632 ",.02)
  1. ;;67544010632
  1. ;;9002226.02101,"1149,67544010645 ",.01)
  1. ;;67544010645
  1. ;;9002226.02101,"1149,67544010645 ",.02)
  1. ;;67544010645
  1. ;;9002226.02101,"1149,67544010653 ",.01)
  1. ;;67544010653
  1. ;;9002226.02101,"1149,67544010653 ",.02)
  1. ;;67544010653
  1. ;;9002226.02101,"1149,67544010660 ",.01)
  1. ;;67544010660
  1. ;;9002226.02101,"1149,67544010660 ",.02)
  1. ;;67544010660
  1. ;;9002226.02101,"1149,67544013730 ",.01)
  1. ;;67544013730
  1. ;;9002226.02101,"1149,67544013730 ",.02)
  1. ;;67544013730
  1. ;;9002226.02101,"1149,67544013731 ",.01)
  1. ;;67544013731
  1. ;;9002226.02101,"1149,67544013731 ",.02)
  1. ;;67544013731
  1. ;;9002226.02101,"1149,67544013732 ",.01)
  1. ;;67544013732
  1. ;;9002226.02101,"1149,67544013732 ",.02)
  1. ;;67544013732
  1. ;;9002226.02101,"1149,67544013760 ",.01)
  1. ;;67544013760
  1. ;;9002226.02101,"1149,67544013760 ",.02)
  1. ;;67544013760
  1. ;;9002226.02101,"1149,67544013780 ",.01)
  1. ;;67544013780
  1. ;;9002226.02101,"1149,67544013780 ",.02)
  1. ;;67544013780
  1. ;;9002226.02101,"1149,67544022515 ",.01)
  1. ;;67544022515
  1. ;;9002226.02101,"1149,67544022515 ",.02)
  1. ;;67544022515
  1. ;;9002226.02101,"1149,67544022530 ",.01)
  1. ;;67544022530
  1. ;;9002226.02101,"1149,67544022530 ",.02)
  1. ;;67544022530
  1. ;;9002226.02101,"1149,67544022532 ",.01)
  1. ;;67544022532
  1. ;;9002226.02101,"1149,67544022532 ",.02)
  1. ;;67544022532
  1. ;;9002226.02101,"1149,67544022545 ",.01)
  1. ;;67544022545
  1. ;;9002226.02101,"1149,67544022545 ",.02)
  1. ;;67544022545
  1. ;;9002226.02101,"1149,67544022553 ",.01)
  1. ;;67544022553
  1. ;;9002226.02101,"1149,67544022553 ",.02)
  1. ;;67544022553
  1. ;;9002226.02101,"1149,67544022560 ",.01)
  1. ;;67544022560
  1. ;;9002226.02101,"1149,67544022560 ",.02)
  1. ;;67544022560
  1. ;;9002226.02101,"1149,67544022580 ",.01)
  1. ;;67544022580
  1. ;;9002226.02101,"1149,67544022580 ",.02)
  1. ;;67544022580
  1. ;;9002226.02101,"1149,67544035160 ",.01)
  1. ;;67544035160
  1. ;;9002226.02101,"1149,67544035160 ",.02)
  1. ;;67544035160
  1. ;;9002226.02101,"1149,67544035180 ",.01)
  1. ;;67544035180
  1. ;;9002226.02101,"1149,67544035180 ",.02)
  1. ;;67544035180
  1. ;;9002226.02101,"1149,67544060131 ",.01)
  1. ;;67544060131
  1. ;;9002226.02101,"1149,67544060131 ",.02)
  1. ;;67544060131
  1. ;;9002226.02101,"1149,67544069231 ",.01)
  1. ;;67544069231
  1. ;;9002226.02101,"1149,67544069231 ",.02)
  1. ;;67544069231
  1. ;;9002226.02101,"1149,67544069232 ",.01)
  1. ;;67544069232
  1. ;;9002226.02101,"1149,67544069232 ",.02)
  1. ;;67544069232
  1. ;;9002226.02101,"1149,67544078932 ",.01)
  1. ;;67544078932
  1. ;;9002226.02101,"1149,67544078932 ",.02)
  1. ;;67544078932
  1. ;;9002226.02101,"1149,67544083031 ",.01)
  1. ;;67544083031
  1. ;;9002226.02101,"1149,67544083031 ",.02)
  1. ;;67544083031
  1. ;;9002226.02101,"1149,67544085430 ",.01)
  1. ;;67544085430
  1. ;;9002226.02101,"1149,67544085430 ",.02)
  1. ;;67544085430
  1. ;;9002226.02101,"1149,67544085445 ",.01)
  1. ;;67544085445
  1. ;;9002226.02101,"1149,67544085445 ",.02)
  1. ;;67544085445
  1. ;;9002226.02101,"1149,67544085453 ",.01)
  1. ;;67544085453
  1. ;;9002226.02101,"1149,67544085453 ",.02)
  1. ;;67544085453
  1. ;;9002226.02101,"1149,67544085460 ",.01)
  1. ;;67544085460
  1. ;;9002226.02101,"1149,67544085460 ",.02)
  1. ;;67544085460
  1. ;;9002226.02101,"1149,67544085515 ",.01)
  1. ;;67544085515
  1. ;;9002226.02101,"1149,67544085515 ",.02)
  1. ;;67544085515
  1. ;;9002226.02101,"1149,67544085530 ",.01)
  1. ;;67544085530
  1. ;;9002226.02101,"1149,67544085530 ",.02)
  1. ;;67544085530
  1. ;;9002226.02101,"1149,67544085545 ",.01)
  1. ;;67544085545
  1. ;;9002226.02101,"1149,67544085545 ",.02)
  1. ;;67544085545
  1. ;;9002226.02101,"1149,67544085560 ",.01)
  1. ;;67544085560
  1. ;;9002226.02101,"1149,67544085560 ",.02)
  1. ;;67544085560
  1. ;;9002226.02101,"1149,67544085615 ",.01)
  1. ;;67544085615
  1. ;;9002226.02101,"1149,67544085615 ",.02)
  1. ;;67544085615
  1. ;;9002226.02101,"1149,67544085645 ",.01)
  1. ;;67544085645
  1. ;;9002226.02101,"1149,67544085645 ",.02)
  1. ;;67544085645
  1. ;;9002226.02101,"1149,67544085715 ",.01)
  1. ;;67544085715
  1. ;;9002226.02101,"1149,67544085715 ",.02)
  1. ;;67544085715
  1. ;;9002226.02101,"1149,67544085716 ",.01)
  1. ;;67544085716
  1. ;;9002226.02101,"1149,67544085716 ",.02)
  1. ;;67544085716
  1. ;;9002226.02101,"1149,67544085745 ",.01)
  1. ;;67544085745
  1. ;;9002226.02101,"1149,67544085745 ",.02)
  1. ;;67544085745
  1. ;;9002226.02101,"1149,67544085753 ",.01)
  1. ;;67544085753
  1. ;;9002226.02101,"1149,67544085753 ",.02)
  1. ;;67544085753
  1. ;;9002226.02101,"1149,67544091032 ",.01)
  1. ;;67544091032
  1. ;;9002226.02101,"1149,67544091032 ",.02)
  1. ;;67544091032
  1. ;;9002226.02101,"1149,67544092230 ",.01)
  1. ;;67544092230
  1. ;;9002226.02101,"1149,67544092230 ",.02)
  1. ;;67544092230
  1. ;;9002226.02101,"1149,67544092231 ",.01)
  1. ;;67544092231
  1. ;;9002226.02101,"1149,67544092231 ",.02)
  1. ;;67544092231
  1. ;;9002226.02101,"1149,67544092232 ",.01)
  1. ;;67544092232
  1. ;;9002226.02101,"1149,67544092232 ",.02)
  1. ;;67544092232
  1. ;;9002226.02101,"1149,67544092245 ",.01)
  1. ;;67544092245
  1. ;;9002226.02101,"1149,67544092245 ",.02)
  1. ;;67544092245
  1. ;;9002226.02101,"1149,67544093632 ",.01)
  1. ;;67544093632
  1. ;;9002226.02101,"1149,67544093632 ",.02)
  1. ;;67544093632
  1. ;;9002226.02101,"1149,67651002205 ",.01)
  1. ;;67651002205
  1. ;;9002226.02101,"1149,67651002205 ",.02)
  1. ;;67651002205
  1. ;;9002226.02101,"1149,67651002206 ",.01)
  1. ;;67651002206
  1. ;;9002226.02101,"1149,67651002206 ",.02)
  1. ;;67651002206
  1. ;;9002226.02101,"1149,67787022505 ",.01)
  1. ;;67787022505
  1. ;;9002226.02101,"1149,67787022505 ",.02)
  1. ;;67787022505
  1. ;;9002226.02101,"1149,67787022518 ",.01)
  1. ;;67787022518
  1. ;;9002226.02101,"1149,67787022518 ",.02)
  1. ;;67787022518
  1. ;;9002226.02101,"1149,67787022540 ",.01)
  1. ;;67787022540
  1. ;;9002226.02101,"1149,67787022540 ",.02)
  1. ;;67787022540
  1. ;;9002226.02101,"1149,67787022552 ",.01)
  1. ;;67787022552
  1. ;;9002226.02101,"1149,67787022552 ",.02)
  1. ;;67787022552
  1. ;;9002226.02101,"1149,67787022560 ",.01)
  1. ;;67787022560
  1. ;;9002226.02101,"1149,67787022560 ",.02)
  1. ;;67787022560
  1. ;;9002226.02101,"1149,68071069005 ",.01)
  1. ;;68071069005
  1. ;;9002226.02101,"1149,68071069005 ",.02)
  1. ;;68071069005
  1. ;;9002226.02101,"1149,68071069930 ",.01)
  1. ;;68071069930
  1. ;;9002226.02101,"1149,68071069930 ",.02)
  1. ;;68071069930
  1. ;;9002226.02101,"1149,68071070430 ",.01)
  1. ;;68071070430
  1. ;;9002226.02101,"1149,68071070430 ",.02)
  1. ;;68071070430
  1. ;;9002226.02101,"1149,68071071630 ",.01)
  1. ;;68071071630
  1. ;;9002226.02101,"1149,68071071630 ",.02)
  1. ;;68071071630
  1. ;;9002226.02101,"1149,68084013101 ",.01)
  1. ;;68084013101
  1. ;;9002226.02101,"1149,68084013101 ",.02)
  1. ;;68084013101
  1. ;;9002226.02101,"1149,68084013110 ",.01)
  1. ;;68084013110
  1. ;;9002226.02101,"1149,68084013110 ",.02)
  1. ;;68084013110
  1. ;;9002226.02101,"1149,68084013111 ",.01)
  1. ;;68084013111
  1. ;;9002226.02101,"1149,68084013111 ",.02)
  1. ;;68084013111
  1. ;;9002226.02101,"1149,68084013201 ",.01)
  1. ;;68084013201
  1. ;;9002226.02101,"1149,68084013201 ",.02)
  1. ;;68084013201
  1. ;;9002226.02101,"1149,68084013210 ",.01)
  1. ;;68084013210
  1. ;;9002226.02101,"1149,68084013210 ",.02)
  1. ;;68084013210
  1. ;;9002226.02101,"1149,68084013301 ",.01)
  1. ;;68084013301
  1. ;;9002226.02101,"1149,68084013301 ",.02)
  1. ;;68084013301
  1. ;;9002226.02101,"1149,68084013310 ",.01)
  1. ;;68084013310
  1. ;;9002226.02101,"1149,68084013310 ",.02)
  1. ;;68084013310
  1. ;;9002226.02101,"1149,68084016101 ",.01)
  1. ;;68084016101
  1. ;;9002226.02101,"1149,68084016101 ",.02)
  1. ;;68084016101
  1. ;;9002226.02101,"1149,68084016111 ",.01)
  1. ;;68084016111
  1. ;;9002226.02101,"1149,68084016111 ",.02)
  1. ;;68084016111
  1. ;;9002226.02101,"1149,68084016201 ",.01)
  1. ;;68084016201
  1. ;;9002226.02101,"1149,68084016201 ",.02)
  1. ;;68084016201
  1. ;;9002226.02101,"1149,68084016211 ",.01)
  1. ;;68084016211
  1. ;;9002226.02101,"1149,68084016211 ",.02)
  1. ;;68084016211
  1. ;;9002226.02101,"1149,68084016301 ",.01)
  1. ;;68084016301
  1. ;;9002226.02101,"1149,68084016301 ",.02)
  1. ;;68084016301
  1. ;;9002226.02101,"1149,68084016311 ",.01)
  1. ;;68084016311
  1. ;;9002226.02101,"1149,68084016311 ",.02)
  1. ;;68084016311
  1. ;;9002226.02101,"1149,68084016401 ",.01)
  1. ;;68084016401
  1. ;;9002226.02101,"1149,68084016401 ",.02)
  1. ;;68084016401
  1. ;;9002226.02101,"1149,68084016411 ",.01)
  1. ;;68084016411
  1. ;;9002226.02101,"1149,68084016411 ",.02)
  1. ;;68084016411
  1. ;;9002226.02101,"1149,68084016501 ",.01)
  1. ;;68084016501
  1. ;;9002226.02101,"1149,68084016501 ",.02)
  1. ;;68084016501
  1. ;;9002226.02101,"1149,68084016511 ",.01)
  1. ;;68084016511
  1. ;;9002226.02101,"1149,68084016511 ",.02)
  1. ;;68084016511
  1. ;;9002226.02101,"1149,68084031214 ",.01)
  1. ;;68084031214
  1. ;;9002226.02101,"1149,68084031214 ",.02)
  1. ;;68084031214
  1. ;;9002226.02101,"1149,68084032801 ",.01)
  1. ;;68084032801
  1. ;;9002226.02101,"1149,68084032801 ",.02)
  1. ;;68084032801
  1. ;;9002226.02101,"1149,68084032821 ",.01)
  1. ;;68084032821
  1. ;;9002226.02101,"1149,68084032821 ",.02)
  1. ;;68084032821
  1. ;;9002226.02101,"1149,68084032921 ",.01)
  1. ;;68084032921
  1. ;;9002226.02101,"1149,68084032921 ",.02)
  1. ;;68084032921
  1. ;;9002226.02101,"1149,68115015360 ",.01)
  1. ;;68115015360
  1. ;;9002226.02101,"1149,68115015360 ",.02)
  1. ;;68115015360
  1. ;;9002226.02101,"1149,68115015390 ",.01)
  1. ;;68115015390
  1. ;;9002226.02101,"1149,68115015390 ",.02)
  1. ;;68115015390
  1. ;;9002226.02101,"1149,68115021830 ",.01)
  1. ;;68115021830
  1. ;;9002226.02101,"1149,68115021830 ",.02)
  1. ;;68115021830
  1. ;;9002226.02101,"1149,68115021930 ",.01)
  1. ;;68115021930
  1. ;;9002226.02101,"1149,68115021930 ",.02)
  1. ;;68115021930
  1. ;;9002226.02101,"1149,68115021960 ",.01)
  1. ;;68115021960