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

BUD2ZD4.m

Go to the documentation of this file.
BUD2ZD4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 16, 2012;
 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"1327,00615350831 ",.01)
 ;;00615350831
 ;;9002226.02101,"1327,00615350831 ",.02)
 ;;00615350831
 ;;9002226.02101,"1327,00615350839 ",.01)
 ;;00615350839
 ;;9002226.02101,"1327,00615350839 ",.02)
 ;;00615350839
 ;;9002226.02101,"1327,00615356831 ",.01)
 ;;00615356831
 ;;9002226.02101,"1327,00615356831 ",.02)
 ;;00615356831
 ;;9002226.02101,"1327,00615356839 ",.01)
 ;;00615356839
 ;;9002226.02101,"1327,00615356839 ",.02)
 ;;00615356839
 ;;9002226.02101,"1327,00677117201 ",.01)
 ;;00677117201
 ;;9002226.02101,"1327,00677117201 ",.02)
 ;;00677117201
 ;;9002226.02101,"1327,00820013401 ",.01)
 ;;00820013401
 ;;9002226.02101,"1327,00820013401 ",.02)
 ;;00820013401
 ;;9002226.02101,"1327,00820013410 ",.01)
 ;;00820013410
 ;;9002226.02101,"1327,00820013410 ",.02)
 ;;00820013410
 ;;9002226.02101,"1327,00820013701 ",.01)
 ;;00820013701
 ;;9002226.02101,"1327,00820013701 ",.02)
 ;;00820013701
 ;;9002226.02101,"1327,00820013710 ",.01)
 ;;00820013710
 ;;9002226.02101,"1327,00820013710 ",.02)
 ;;00820013710
 ;;9002226.02101,"1327,00820014301 ",.01)
 ;;00820014301
 ;;9002226.02101,"1327,00820014301 ",.02)
 ;;00820014301
 ;;9002226.02101,"1327,00820014304 ",.01)
 ;;00820014304
 ;;9002226.02101,"1327,00820014304 ",.02)
 ;;00820014304
 ;;9002226.02101,"1327,00820014310 ",.01)
 ;;00820014310
 ;;9002226.02101,"1327,00820014310 ",.02)
 ;;00820014310
 ;;9002226.02101,"1327,00869153009 ",.01)
 ;;00869153009
 ;;9002226.02101,"1327,00869153009 ",.02)
 ;;00869153009
 ;;9002226.02101,"1327,00904034759 ",.01)
 ;;00904034759
 ;;9002226.02101,"1327,00904034759 ",.02)
 ;;00904034759
 ;;9002226.02101,"1327,00904058260 ",.01)
 ;;00904058260
 ;;9002226.02101,"1327,00904058260 ",.02)
 ;;00904058260
 ;;9002226.02101,"1327,00904058560 ",.01)
 ;;00904058560
 ;;9002226.02101,"1327,00904058560 ",.02)
 ;;00904058560
 ;;9002226.02101,"1327,00904200940 ",.01)
 ;;00904200940
 ;;9002226.02101,"1327,00904200940 ",.02)
 ;;00904200940
 ;;9002226.02101,"1327,00904200960 ",.01)
 ;;00904200960
 ;;9002226.02101,"1327,00904200960 ",.02)
 ;;00904200960
 ;;9002226.02101,"1327,00904200970 ",.01)
 ;;00904200970
 ;;9002226.02101,"1327,00904200970 ",.02)
 ;;00904200970
 ;;9002226.02101,"1327,00904200980 ",.01)
 ;;00904200980
 ;;9002226.02101,"1327,00904200980 ",.02)
 ;;00904200980
 ;;9002226.02101,"1327,00904201159 ",.01)
 ;;00904201159
 ;;9002226.02101,"1327,00904201159 ",.02)
 ;;00904201159
 ;;9002226.02101,"1327,00904201360 ",.01)
 ;;00904201360
 ;;9002226.02101,"1327,00904201360 ",.02)
 ;;00904201360
 ;;9002226.02101,"1327,00904201372 ",.01)
 ;;00904201372
 ;;9002226.02101,"1327,00904201372 ",.02)
 ;;00904201372
 ;;9002226.02101,"1327,00904201380 ",.01)
 ;;00904201380
 ;;9002226.02101,"1327,00904201380 ",.02)
 ;;00904201380
 ;;9002226.02101,"1327,00904201559 ",.01)
 ;;00904201559
 ;;9002226.02101,"1327,00904201559 ",.02)
 ;;00904201559
 ;;9002226.02101,"1327,00904201959 ",.01)
 ;;00904201959
 ;;9002226.02101,"1327,00904201959 ",.02)
 ;;00904201959
 ;;9002226.02101,"1327,00904201980 ",.01)
 ;;00904201980
 ;;9002226.02101,"1327,00904201980 ",.02)
 ;;00904201980
 ;;9002226.02101,"1327,00904404061 ",.01)
 ;;00904404061
 ;;9002226.02101,"1327,00904404061 ",.02)
 ;;00904404061
 ;;9002226.02101,"1327,00904404073 ",.01)
 ;;00904404073
 ;;9002226.02101,"1327,00904404073 ",.02)
 ;;00904404073
 ;;9002226.02101,"1327,00904537840 ",.01)
 ;;00904537840
 ;;9002226.02101,"1327,00904537840 ",.02)
 ;;00904537840
 ;;9002226.02101,"1327,00904537846 ",.01)
 ;;00904537846
 ;;9002226.02101,"1327,00904537846 ",.02)
 ;;00904537846
 ;;9002226.02101,"1327,00904537852 ",.01)
 ;;00904537852
 ;;9002226.02101,"1327,00904537852 ",.02)
 ;;00904537852
 ;;9002226.02101,"1327,00904537860 ",.01)
 ;;00904537860
 ;;9002226.02101,"1327,00904537860 ",.02)
 ;;00904537860
 ;;9002226.02101,"1327,00904537861 ",.01)
 ;;00904537861
 ;;9002226.02101,"1327,00904537861 ",.02)
 ;;00904537861
 ;;9002226.02101,"1327,04116709325 ",.01)
 ;;04116709325
 ;;9002226.02101,"1327,04116709325 ",.02)
 ;;04116709325
 ;;9002226.02101,"1327,10056053576 ",.01)
 ;;10056053576
 ;;9002226.02101,"1327,10056053576 ",.02)
 ;;10056053576
 ;;9002226.02101,"1327,10135012601 ",.01)
 ;;10135012601
 ;;9002226.02101,"1327,10135012601 ",.02)
 ;;10135012601
 ;;9002226.02101,"1327,10135012603 ",.01)
 ;;10135012603
 ;;9002226.02101,"1327,10135012603 ",.02)
 ;;10135012603
 ;;9002226.02101,"1327,10135012610 ",.01)
 ;;10135012610
 ;;9002226.02101,"1327,10135012610 ",.02)
 ;;10135012610
 ;;9002226.02101,"1327,10135012613 ",.01)
 ;;10135012613
 ;;9002226.02101,"1327,10135012613 ",.02)
 ;;10135012613
 ;;9002226.02101,"1327,10135012616 ",.01)
 ;;10135012616
 ;;9002226.02101,"1327,10135012616 ",.02)
 ;;10135012616
 ;;9002226.02101,"1327,10135012620 ",.01)
 ;;10135012620
 ;;9002226.02101,"1327,10135012620 ",.02)
 ;;10135012620
 ;;9002226.02101,"1327,10135012627 ",.01)
 ;;10135012627
 ;;9002226.02101,"1327,10135012627 ",.02)
 ;;10135012627
 ;;9002226.02101,"1327,10135012630 ",.01)
 ;;10135012630
 ;;9002226.02101,"1327,10135012630 ",.02)
 ;;10135012630
 ;;9002226.02101,"1327,10135012650 ",.01)
 ;;10135012650
 ;;9002226.02101,"1327,10135012650 ",.02)
 ;;10135012650
 ;;9002226.02101,"1327,10135012657 ",.01)
 ;;10135012657
 ;;9002226.02101,"1327,10135012657 ",.02)
 ;;10135012657
 ;;9002226.02101,"1327,10135012660 ",.01)
 ;;10135012660
 ;;9002226.02101,"1327,10135012660 ",.02)
 ;;10135012660
 ;;9002226.02101,"1327,10135012669 ",.01)
 ;;10135012669
 ;;9002226.02101,"1327,10135012669 ",.02)
 ;;10135012669
 ;;9002226.02101,"1327,10135012675 ",.01)
 ;;10135012675
 ;;9002226.02101,"1327,10135012675 ",.02)
 ;;10135012675
 ;;9002226.02101,"1327,10135012690 ",.01)
 ;;10135012690
 ;;9002226.02101,"1327,10135012690 ",.02)
 ;;10135012690
 ;;9002226.02101,"1327,10135012699 ",.01)
 ;;10135012699
 ;;9002226.02101,"1327,10135012699 ",.02)
 ;;10135012699
 ;;9002226.02101,"1327,10135015001 ",.01)
 ;;10135015001
 ;;9002226.02101,"1327,10135015001 ",.02)
 ;;10135015001
 ;;9002226.02101,"1327,10135015005 ",.01)
 ;;10135015005
 ;;9002226.02101,"1327,10135015005 ",.02)
 ;;10135015005
 ;;9002226.02101,"1327,10135015010 ",.01)
 ;;10135015010
 ;;9002226.02101,"1327,10135015010 ",.02)
 ;;10135015010
 ;;9002226.02101,"1327,10135015013 ",.01)
 ;;10135015013
 ;;9002226.02101,"1327,10135015013 ",.02)
 ;;10135015013
 ;;9002226.02101,"1327,10135015020 ",.01)
 ;;10135015020
 ;;9002226.02101,"1327,10135015020 ",.02)
 ;;10135015020
 ;;9002226.02101,"1327,10135015024 ",.01)
 ;;10135015024
 ;;9002226.02101,"1327,10135015024 ",.02)
 ;;10135015024
 ;;9002226.02101,"1327,10135015030 ",.01)
 ;;10135015030
 ;;9002226.02101,"1327,10135015030 ",.02)
 ;;10135015030
 ;;9002226.02101,"1327,10135015057 ",.01)
 ;;10135015057
 ;;9002226.02101,"1327,10135015057 ",.02)
 ;;10135015057
 ;;9002226.02101,"1327,10135015069 ",.01)
 ;;10135015069
 ;;9002226.02101,"1327,10135015069 ",.02)
 ;;10135015069
 ;;9002226.02101,"1327,10135017101 ",.01)
 ;;10135017101
 ;;9002226.02101,"1327,10135017101 ",.02)
 ;;10135017101
 ;;9002226.02101,"1327,10135017110 ",.01)
 ;;10135017110
 ;;9002226.02101,"1327,10135017110 ",.02)
 ;;10135017110
 ;;9002226.02101,"1327,10135017160 ",.01)
 ;;10135017160
 ;;9002226.02101,"1327,10135017160 ",.02)
 ;;10135017160
 ;;9002226.02101,"1327,10135017164 ",.01)
 ;;10135017164
 ;;9002226.02101,"1327,10135017164 ",.02)
 ;;10135017164
 ;;9002226.02101,"1327,10135017201 ",.01)
 ;;10135017201
 ;;9002226.02101,"1327,10135017201 ",.02)
 ;;10135017201
 ;;9002226.02101,"1327,10135017210 ",.01)
 ;;10135017210
 ;;9002226.02101,"1327,10135017210 ",.02)
 ;;10135017210
 ;;9002226.02101,"1327,10135017301 ",.01)
 ;;10135017301
 ;;9002226.02101,"1327,10135017301 ",.02)
 ;;10135017301
 ;;9002226.02101,"1327,10135017303 ",.01)
 ;;10135017303
 ;;9002226.02101,"1327,10135017303 ",.02)
 ;;10135017303
 ;;9002226.02101,"1327,10135017305 ",.01)
 ;;10135017305
 ;;9002226.02101,"1327,10135017305 ",.02)
 ;;10135017305
 ;;9002226.02101,"1327,10135017310 ",.01)
 ;;10135017310
 ;;9002226.02101,"1327,10135017310 ",.02)
 ;;10135017310
 ;;9002226.02101,"1327,10135017336 ",.01)
 ;;10135017336
 ;;9002226.02101,"1327,10135017336 ",.02)
 ;;10135017336
 ;;9002226.02101,"1327,10135017353 ",.01)
 ;;10135017353
 ;;9002226.02101,"1327,10135017353 ",.02)
 ;;10135017353
 ;;9002226.02101,"1327,10135017362 ",.01)
 ;;10135017362
 ;;9002226.02101,"1327,10135017362 ",.02)
 ;;10135017362
 ;;9002226.02101,"1327,10135017369 ",.01)
 ;;10135017369
 ;;9002226.02101,"1327,10135017369 ",.02)
 ;;10135017369
 ;;9002226.02101,"1327,10135017401 ",.01)
 ;;10135017401
 ;;9002226.02101,"1327,10135017401 ",.02)
 ;;10135017401
 ;;9002226.02101,"1327,10135017410 ",.01)
 ;;10135017410
 ;;9002226.02101,"1327,10135017410 ",.02)
 ;;10135017410
 ;;9002226.02101,"1327,10135024036 ",.01)
 ;;10135024036
 ;;9002226.02101,"1327,10135024036 ",.02)
 ;;10135024036
 ;;9002226.02101,"1327,10135038715 ",.01)
 ;;10135038715
 ;;9002226.02101,"1327,10135038715 ",.02)
 ;;10135038715
 ;;9002226.02101,"1327,10135038727 ",.01)
 ;;10135038727
 ;;9002226.02101,"1327,10135038727 ",.02)
 ;;10135038727
 ;;9002226.02101,"1327,10135038815 ",.01)
 ;;10135038815
 ;;9002226.02101,"1327,10135038815 ",.02)
 ;;10135038815
 ;;9002226.02101,"1327,10135038827 ",.01)
 ;;10135038827
 ;;9002226.02101,"1327,10135038827 ",.02)
 ;;10135038827
 ;;9002226.02101,"1327,10244056210 ",.01)
 ;;10244056210
 ;;9002226.02101,"1327,10244056210 ",.02)
 ;;10244056210
 ;;9002226.02101,"1327,10244056211 ",.01)
 ;;10244056211
 ;;9002226.02101,"1327,10244056211 ",.02)
 ;;10244056211
 ;;9002226.02101,"1327,10244056261 ",.01)
 ;;10244056261
 ;;9002226.02101,"1327,10244056261 ",.02)
 ;;10244056261
 ;;9002226.02101,"1327,10244056262 ",.01)
 ;;10244056262
 ;;9002226.02101,"1327,10244056262 ",.02)
 ;;10244056262
 ;;9002226.02101,"1327,10244056265 ",.01)
 ;;10244056265
 ;;9002226.02101,"1327,10244056265 ",.02)
 ;;10244056265
 ;;9002226.02101,"1327,10267240401 ",.01)
 ;;10267240401
 ;;9002226.02101,"1327,10267240401 ",.02)
 ;;10267240401
 ;;9002226.02101,"1327,11383005011 ",.01)
 ;;11383005011
 ;;9002226.02101,"1327,11383005011 ",.02)
 ;;11383005011
 ;;9002226.02101,"1327,11383005023 ",.01)
 ;;11383005023
 ;;9002226.02101,"1327,11383005023 ",.02)
 ;;11383005023
 ;;9002226.02101,"1327,11383007225 ",.01)
 ;;11383007225
 ;;9002226.02101,"1327,11383007225 ",.02)
 ;;11383007225
 ;;9002226.02101,"1327,11383014811 ",.01)
 ;;11383014811
 ;;9002226.02101,"1327,11383014811 ",.02)
 ;;11383014811
 ;;9002226.02101,"1327,11383014825 ",.01)
 ;;11383014825
 ;;9002226.02101,"1327,11383014825 ",.02)
 ;;11383014825
 ;;9002226.02101,"1327,11383014851 ",.01)
 ;;11383014851
 ;;9002226.02101,"1327,11383014851 ",.02)
 ;;11383014851
 ;;9002226.02101,"1327,11383015814 ",.01)
 ;;11383015814
 ;;9002226.02101,"1327,11383015814 ",.02)
 ;;11383015814
 ;;9002226.02101,"1327,11383015826 ",.01)
 ;;11383015826
 ;;9002226.02101,"1327,11383015826 ",.02)
 ;;11383015826
 ;;9002226.02101,"1327,11383025236 ",.01)
 ;;11383025236
 ;;9002226.02101,"1327,11383025236 ",.02)
 ;;11383025236
 ;;9002226.02101,"1327,11530000202 ",.01)
 ;;11530000202
 ;;9002226.02101,"1327,11530000202 ",.02)
 ;;11530000202
 ;;9002226.02101,"1327,11530000206 ",.01)
 ;;11530000206
 ;;9002226.02101,"1327,11530000206 ",.02)
 ;;11530000206
 ;;9002226.02101,"1327,11534015511 ",.01)
 ;;11534015511
 ;;9002226.02101,"1327,11534015511 ",.02)
 ;;11534015511
 ;;9002226.02101,"1327,11673027468 ",.01)
 ;;11673027468
 ;;9002226.02101,"1327,11673027468 ",.02)
 ;;11673027468
 ;;9002226.02101,"1327,11673027748 ",.01)
 ;;11673027748
 ;;9002226.02101,"1327,11673027748 ",.02)
 ;;11673027748
 ;;9002226.02101,"1327,11673041687 ",.01)
 ;;11673041687
 ;;9002226.02101,"1327,11673041687 ",.02)
 ;;11673041687
 ;;9002226.02101,"1327,11673041690 ",.01)
 ;;11673041690
 ;;9002226.02101,"1327,11673041690 ",.02)
 ;;11673041690
 ;;9002226.02101,"1327,11673046708 ",.01)
 ;;11673046708
 ;;9002226.02101,"1327,11673046708 ",.02)
 ;;11673046708
 ;;9002226.02101,"1327,11673046768 ",.01)
 ;;11673046768
 ;;9002226.02101,"1327,11673046768 ",.02)
 ;;11673046768
 ;;9002226.02101,"1327,11673053576 ",.01)
 ;;11673053576
 ;;9002226.02101,"1327,11673053576 ",.02)
 ;;11673053576
 ;;9002226.02101,"1327,11673056317 ",.01)
 ;;11673056317
 ;;9002226.02101,"1327,11673056317 ",.02)
 ;;11673056317
 ;;9002226.02101,"1327,11673056332 ",.01)
 ;;11673056332
 ;;9002226.02101,"1327,11673056332 ",.02)
 ;;11673056332
 ;;9002226.02101,"1327,11822316901 ",.01)
 ;;11822316901
 ;;9002226.02101,"1327,11822316901 ",.02)
 ;;11822316901
 ;;9002226.02101,"1327,11845070601 ",.01)
 ;;11845070601
 ;;9002226.02101,"1327,11845070601 ",.02)
 ;;11845070601
 ;;9002226.02101,"1327,11845070604 ",.01)
 ;;11845070604
 ;;9002226.02101,"1327,11845070604 ",.02)
 ;;11845070604
 ;;9002226.02101,"1327,11845070629 ",.01)
 ;;11845070629
 ;;9002226.02101,"1327,11845070629 ",.02)
 ;;11845070629
 ;;9002226.02101,"1327,11845084701 ",.01)
 ;;11845084701
 ;;9002226.02101,"1327,11845084701 ",.02)
 ;;11845084701
 ;;9002226.02101,"1327,11845089004 ",.01)
 ;;11845089004
 ;;9002226.02101,"1327,11845089004 ",.02)
 ;;11845089004
 ;;9002226.02101,"1327,11845089901 ",.01)
 ;;11845089901
 ;;9002226.02101,"1327,11845089901 ",.02)
 ;;11845089901
 ;;9002226.02101,"1327,11845093001 ",.01)
 ;;11845093001
 ;;9002226.02101,"1327,11845093001 ",.02)
 ;;11845093001
 ;;9002226.02101,"1327,11845094236 ",.01)
 ;;11845094236