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

BUD2ZA13.m

Go to the documentation of this file.
BUD2ZA13 ;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,"1149,23490935406 ",.02)
 ;;23490935406
 ;;9002226.02101,"1149,23490935409 ",.01)
 ;;23490935409
 ;;9002226.02101,"1149,23490935409 ",.02)
 ;;23490935409
 ;;9002226.02101,"1149,23490935503 ",.01)
 ;;23490935503
 ;;9002226.02101,"1149,23490935503 ",.02)
 ;;23490935503
 ;;9002226.02101,"1149,23490935506 ",.01)
 ;;23490935506
 ;;9002226.02101,"1149,23490935506 ",.02)
 ;;23490935506
 ;;9002226.02101,"1149,23490935509 ",.01)
 ;;23490935509
 ;;9002226.02101,"1149,23490935509 ",.02)
 ;;23490935509
 ;;9002226.02101,"1149,23490935603 ",.01)
 ;;23490935603
 ;;9002226.02101,"1149,23490935603 ",.02)
 ;;23490935603
 ;;9002226.02101,"1149,23490935606 ",.01)
 ;;23490935606
 ;;9002226.02101,"1149,23490935606 ",.02)
 ;;23490935606
 ;;9002226.02101,"1149,23490935609 ",.01)
 ;;23490935609
 ;;9002226.02101,"1149,23490935609 ",.02)
 ;;23490935609
 ;;9002226.02101,"1149,23490935703 ",.01)
 ;;23490935703
 ;;9002226.02101,"1149,23490935703 ",.02)
 ;;23490935703
 ;;9002226.02101,"1149,23490935706 ",.01)
 ;;23490935706
 ;;9002226.02101,"1149,23490935706 ",.02)
 ;;23490935706
 ;;9002226.02101,"1149,23490935709 ",.01)
 ;;23490935709
 ;;9002226.02101,"1149,23490935709 ",.02)
 ;;23490935709
 ;;9002226.02101,"1149,23629005901 ",.01)
 ;;23629005901
 ;;9002226.02101,"1149,23629005901 ",.02)
 ;;23629005901
 ;;9002226.02101,"1149,24236008602 ",.01)
 ;;24236008602
 ;;9002226.02101,"1149,24236008602 ",.02)
 ;;24236008602
 ;;9002226.02101,"1149,24236015602 ",.01)
 ;;24236015602
 ;;9002226.02101,"1149,24236015602 ",.02)
 ;;24236015602
 ;;9002226.02101,"1149,24236021002 ",.01)
 ;;24236021002
 ;;9002226.02101,"1149,24236021002 ",.02)
 ;;24236021002
 ;;9002226.02101,"1149,24236022902 ",.01)
 ;;24236022902
 ;;9002226.02101,"1149,24236022902 ",.02)
 ;;24236022902
 ;;9002226.02101,"1149,24236030502 ",.01)
 ;;24236030502
 ;;9002226.02101,"1149,24236030502 ",.02)
 ;;24236030502
 ;;9002226.02101,"1149,24236037202 ",.01)
 ;;24236037202
 ;;9002226.02101,"1149,24236037202 ",.02)
 ;;24236037202
 ;;9002226.02101,"1149,24236038402 ",.01)
 ;;24236038402
 ;;9002226.02101,"1149,24236038402 ",.02)
 ;;24236038402
 ;;9002226.02101,"1149,24236050002 ",.01)
 ;;24236050002
 ;;9002226.02101,"1149,24236050002 ",.02)
 ;;24236050002
 ;;9002226.02101,"1149,24236059102 ",.01)
 ;;24236059102
 ;;9002226.02101,"1149,24236059102 ",.02)
 ;;24236059102
 ;;9002226.02101,"1149,24236064002 ",.01)
 ;;24236064002
 ;;9002226.02101,"1149,24236064002 ",.02)
 ;;24236064002
 ;;9002226.02101,"1149,24236064402 ",.01)
 ;;24236064402
 ;;9002226.02101,"1149,24236064402 ",.02)
 ;;24236064402
 ;;9002226.02101,"1149,24236067702 ",.01)
 ;;24236067702
 ;;9002226.02101,"1149,24236067702 ",.02)
 ;;24236067702
 ;;9002226.02101,"1149,24236069502 ",.01)
 ;;24236069502
 ;;9002226.02101,"1149,24236069502 ",.02)
 ;;24236069502
 ;;9002226.02101,"1149,24236072402 ",.01)
 ;;24236072402
 ;;9002226.02101,"1149,24236072402 ",.02)
 ;;24236072402
 ;;9002226.02101,"1149,24236074502 ",.01)
 ;;24236074502
 ;;9002226.02101,"1149,24236074502 ",.02)
 ;;24236074502
 ;;9002226.02101,"1149,24236075602 ",.01)
 ;;24236075602
 ;;9002226.02101,"1149,24236075602 ",.02)
 ;;24236075602
 ;;9002226.02101,"1149,24236093702 ",.01)
 ;;24236093702
 ;;9002226.02101,"1149,24236093702 ",.02)
 ;;24236093702
 ;;9002226.02101,"1149,24385073478 ",.01)
 ;;24385073478
 ;;9002226.02101,"1149,24385073478 ",.02)
 ;;24385073478
 ;;9002226.02101,"1149,24385083978 ",.01)
 ;;24385083978
 ;;9002226.02101,"1149,24385083978 ",.02)
 ;;24385083978
 ;;9002226.02101,"1149,24658013005 ",.01)
 ;;24658013005
 ;;9002226.02101,"1149,24658013005 ",.02)
 ;;24658013005
 ;;9002226.02101,"1149,24658013018 ",.01)
 ;;24658013018
 ;;9002226.02101,"1149,24658013018 ",.02)
 ;;24658013018
 ;;9002226.02101,"1149,24658013060 ",.01)
 ;;24658013060
 ;;9002226.02101,"1149,24658013060 ",.02)
 ;;24658013060
 ;;9002226.02101,"1149,24658021010 ",.01)
 ;;24658021010
 ;;9002226.02101,"1149,24658021010 ",.02)
 ;;24658021010
 ;;9002226.02101,"1149,24658021030 ",.01)
 ;;24658021030
 ;;9002226.02101,"1149,24658021030 ",.02)
 ;;24658021030
 ;;9002226.02101,"1149,24658021045 ",.01)
 ;;24658021045
 ;;9002226.02101,"1149,24658021045 ",.02)
 ;;24658021045
 ;;9002226.02101,"1149,24658021090 ",.01)
 ;;24658021090
 ;;9002226.02101,"1149,24658021090 ",.02)
 ;;24658021090
 ;;9002226.02101,"1149,24658021110 ",.01)
 ;;24658021110
 ;;9002226.02101,"1149,24658021110 ",.02)
 ;;24658021110
 ;;9002226.02101,"1149,24658021130 ",.01)
 ;;24658021130
 ;;9002226.02101,"1149,24658021130 ",.02)
 ;;24658021130
 ;;9002226.02101,"1149,24658021145 ",.01)
 ;;24658021145
 ;;9002226.02101,"1149,24658021145 ",.02)
 ;;24658021145
 ;;9002226.02101,"1149,24658021190 ",.01)
 ;;24658021190
 ;;9002226.02101,"1149,24658021190 ",.02)
 ;;24658021190
 ;;9002226.02101,"1149,24658021210 ",.01)
 ;;24658021210
 ;;9002226.02101,"1149,24658021210 ",.02)
 ;;24658021210
 ;;9002226.02101,"1149,24658021230 ",.01)
 ;;24658021230
 ;;9002226.02101,"1149,24658021230 ",.02)
 ;;24658021230
 ;;9002226.02101,"1149,24658021245 ",.01)
 ;;24658021245
 ;;9002226.02101,"1149,24658021245 ",.02)
 ;;24658021245
 ;;9002226.02101,"1149,24658021290 ",.01)
 ;;24658021290
 ;;9002226.02101,"1149,24658021290 ",.02)
 ;;24658021290
 ;;9002226.02101,"1149,24658021310 ",.01)
 ;;24658021310
 ;;9002226.02101,"1149,24658021310 ",.02)
 ;;24658021310
 ;;9002226.02101,"1149,24658021330 ",.01)
 ;;24658021330
 ;;9002226.02101,"1149,24658021330 ",.02)
 ;;24658021330
 ;;9002226.02101,"1149,24658021345 ",.01)
 ;;24658021345
 ;;9002226.02101,"1149,24658021345 ",.02)
 ;;24658021345
 ;;9002226.02101,"1149,24658021390 ",.01)
 ;;24658021390
 ;;9002226.02101,"1149,24658021390 ",.02)
 ;;24658021390
 ;;9002226.02101,"1149,24658021410 ",.01)
 ;;24658021410
 ;;9002226.02101,"1149,24658021410 ",.02)
 ;;24658021410
 ;;9002226.02101,"1149,24658021430 ",.01)
 ;;24658021430
 ;;9002226.02101,"1149,24658021430 ",.02)
 ;;24658021430
 ;;9002226.02101,"1149,24658021445 ",.01)
 ;;24658021445
 ;;9002226.02101,"1149,24658021445 ",.02)
 ;;24658021445
 ;;9002226.02101,"1149,24658021490 ",.01)
 ;;24658021490
 ;;9002226.02101,"1149,24658021490 ",.02)
 ;;24658021490
 ;;9002226.02101,"1149,26053006401 ",.01)
 ;;26053006401
 ;;9002226.02101,"1149,26053006401 ",.02)
 ;;26053006401
 ;;9002226.02101,"1149,26053006501 ",.01)
 ;;26053006501
 ;;9002226.02101,"1149,26053006501 ",.02)
 ;;26053006501
 ;;9002226.02101,"1149,26053006601 ",.01)
 ;;26053006601
 ;;9002226.02101,"1149,26053006601 ",.02)
 ;;26053006601
 ;;9002226.02101,"1149,26053017701 ",.01)
 ;;26053017701
 ;;9002226.02101,"1149,26053017701 ",.02)
 ;;26053017701
 ;;9002226.02101,"1149,26053018301 ",.01)
 ;;26053018301
 ;;9002226.02101,"1149,26053018301 ",.02)
 ;;26053018301
 ;;9002226.02101,"1149,26053031001 ",.01)
 ;;26053031001
 ;;9002226.02101,"1149,26053031001 ",.02)
 ;;26053031001
 ;;9002226.02101,"1149,26053031201 ",.01)
 ;;26053031201
 ;;9002226.02101,"1149,26053031201 ",.02)
 ;;26053031201
 ;;9002226.02101,"1149,26053041501 ",.01)
 ;;26053041501
 ;;9002226.02101,"1149,26053041501 ",.02)
 ;;26053041501
 ;;9002226.02101,"1149,30768000061 ",.01)
 ;;30768000061
 ;;9002226.02101,"1149,30768000061 ",.02)
 ;;30768000061
 ;;9002226.02101,"1149,31722022505 ",.01)
 ;;31722022505
 ;;9002226.02101,"1149,31722022505 ",.02)
 ;;31722022505
 ;;9002226.02101,"1149,31722022560 ",.01)
 ;;31722022560
 ;;9002226.02101,"1149,31722022560 ",.02)
 ;;31722022560
 ;;9002226.02101,"1149,33358015530 ",.01)
 ;;33358015530
 ;;9002226.02101,"1149,33358015530 ",.02)
 ;;33358015530
 ;;9002226.02101,"1149,33358022330 ",.01)
 ;;33358022330
 ;;9002226.02101,"1149,33358022330 ",.02)
 ;;33358022330
 ;;9002226.02101,"1149,33358022500 ",.01)
 ;;33358022500
 ;;9002226.02101,"1149,33358022500 ",.02)
 ;;33358022500
 ;;9002226.02101,"1149,33358022530 ",.01)
 ;;33358022530
 ;;9002226.02101,"1149,33358022530 ",.02)
 ;;33358022530
 ;;9002226.02101,"1149,33358022560 ",.01)
 ;;33358022560
 ;;9002226.02101,"1149,33358022560 ",.02)
 ;;33358022560
 ;;9002226.02101,"1149,33358022630 ",.01)
 ;;33358022630
 ;;9002226.02101,"1149,33358022630 ",.02)
 ;;33358022630
 ;;9002226.02101,"1149,33358043130 ",.01)
 ;;33358043130
 ;;9002226.02101,"1149,33358043130 ",.02)
 ;;33358043130
 ;;9002226.02101,"1149,37205007878 ",.01)
 ;;37205007878
 ;;9002226.02101,"1149,37205007878 ",.02)
 ;;37205007878
 ;;9002226.02101,"1149,38245026679 ",.01)
 ;;38245026679
 ;;9002226.02101,"1149,38245026679 ",.02)
 ;;38245026679
 ;;9002226.02101,"1149,38245026680 ",.01)
 ;;38245026680
 ;;9002226.02101,"1149,38245026680 ",.02)
 ;;38245026680
 ;;9002226.02101,"1149,38245030028 ",.01)
 ;;38245030028
 ;;9002226.02101,"1149,38245030028 ",.02)
 ;;38245030028
 ;;9002226.02101,"1149,38245030080 ",.01)
 ;;38245030080
 ;;9002226.02101,"1149,38245030080 ",.02)
 ;;38245030080
 ;;9002226.02101,"1149,39686001423 ",.01)
 ;;39686001423
 ;;9002226.02101,"1149,39686001423 ",.02)
 ;;39686001423
 ;;9002226.02101,"1149,42043017009 ",.01)
 ;;42043017009
 ;;9002226.02101,"1149,42043017009 ",.02)
 ;;42043017009
 ;;9002226.02101,"1149,42043017109 ",.01)
 ;;42043017109
 ;;9002226.02101,"1149,42043017109 ",.02)
 ;;42043017109
 ;;9002226.02101,"1149,43063000801 ",.01)
 ;;43063000801
 ;;9002226.02101,"1149,43063000801 ",.02)
 ;;43063000801
 ;;9002226.02101,"1149,43063008030 ",.01)
 ;;43063008030
 ;;9002226.02101,"1149,43063008030 ",.02)
 ;;43063008030
 ;;9002226.02101,"1149,43063008090 ",.01)
 ;;43063008090
 ;;9002226.02101,"1149,43063008090 ",.02)
 ;;43063008090
 ;;9002226.02101,"1149,43292012356 ",.01)
 ;;43292012356
 ;;9002226.02101,"1149,43292012356 ",.02)
 ;;43292012356
 ;;9002226.02101,"1149,43292022328 ",.01)
 ;;43292022328
 ;;9002226.02101,"1149,43292022328 ",.02)
 ;;43292022328
 ;;9002226.02101,"1149,43292055740 ",.01)
 ;;43292055740
 ;;9002226.02101,"1149,43292055740 ",.02)
 ;;43292055740
 ;;9002226.02101,"1149,43353000730 ",.01)
 ;;43353000730
 ;;9002226.02101,"1149,43353000730 ",.02)
 ;;43353000730
 ;;9002226.02101,"1149,43353000733 ",.01)
 ;;43353000733
 ;;9002226.02101,"1149,43353000733 ",.02)
 ;;43353000733
 ;;9002226.02101,"1149,43353000760 ",.01)
 ;;43353000760
 ;;9002226.02101,"1149,43353000760 ",.02)
 ;;43353000760
 ;;9002226.02101,"1149,43353009060 ",.01)
 ;;43353009060
 ;;9002226.02101,"1149,43353009060 ",.02)
 ;;43353009060
 ;;9002226.02101,"1149,43353009080 ",.01)
 ;;43353009080
 ;;9002226.02101,"1149,43353009080 ",.02)
 ;;43353009080
 ;;9002226.02101,"1149,43353022715 ",.01)
 ;;43353022715
 ;;9002226.02101,"1149,43353022715 ",.02)
 ;;43353022715
 ;;9002226.02101,"1149,43353022730 ",.01)
 ;;43353022730
 ;;9002226.02101,"1149,43353022730 ",.02)
 ;;43353022730
 ;;9002226.02101,"1149,43353022745 ",.01)
 ;;43353022745
 ;;9002226.02101,"1149,43353022745 ",.02)
 ;;43353022745
 ;;9002226.02101,"1149,43353022760 ",.01)
 ;;43353022760
 ;;9002226.02101,"1149,43353022760 ",.02)
 ;;43353022760
 ;;9002226.02101,"1149,43353022815 ",.01)
 ;;43353022815
 ;;9002226.02101,"1149,43353022815 ",.02)
 ;;43353022815
 ;;9002226.02101,"1149,43353022830 ",.01)
 ;;43353022830
 ;;9002226.02101,"1149,43353022830 ",.02)
 ;;43353022830
 ;;9002226.02101,"1149,43353022845 ",.01)
 ;;43353022845
 ;;9002226.02101,"1149,43353022845 ",.02)
 ;;43353022845
 ;;9002226.02101,"1149,43353022860 ",.01)
 ;;43353022860
 ;;9002226.02101,"1149,43353022860 ",.02)
 ;;43353022860
 ;;9002226.02101,"1149,43353039460 ",.01)
 ;;43353039460
 ;;9002226.02101,"1149,43353039460 ",.02)
 ;;43353039460
 ;;9002226.02101,"1149,43353040230 ",.01)
 ;;43353040230
 ;;9002226.02101,"1149,43353040230 ",.02)
 ;;43353040230
 ;;9002226.02101,"1149,43683015230 ",.01)
 ;;43683015230
 ;;9002226.02101,"1149,43683015230 ",.02)
 ;;43683015230
 ;;9002226.02101,"1149,43797026903 ",.01)
 ;;43797026903
 ;;9002226.02101,"1149,43797026903 ",.02)
 ;;43797026903
 ;;9002226.02101,"1149,43806024040 ",.01)
 ;;43806024040
 ;;9002226.02101,"1149,43806024040 ",.02)
 ;;43806024040
 ;;9002226.02101,"1149,43806038240 ",.01)
 ;;43806038240
 ;;9002226.02101,"1149,43806038240 ",.02)
 ;;43806038240
 ;;9002226.02101,"1149,43806041140 ",.01)
 ;;43806041140
 ;;9002226.02101,"1149,43806041140 ",.02)
 ;;43806041140
 ;;9002226.02101,"1149,43806041240 ",.01)
 ;;43806041240
 ;;9002226.02101,"1149,43806041240 ",.02)
 ;;43806041240
 ;;9002226.02101,"1149,43806067035 ",.01)
 ;;43806067035
 ;;9002226.02101,"1149,43806067035 ",.02)
 ;;43806067035
 ;;9002226.02101,"1149,43806067041 ",.01)
 ;;43806067041
 ;;9002226.02101,"1149,43806067041 ",.02)
 ;;43806067041
 ;;9002226.02101,"1149,43806067070 ",.01)
 ;;43806067070
 ;;9002226.02101,"1149,43806067070 ",.02)
 ;;43806067070
 ;;9002226.02101,"1149,43869415600 ",.01)
 ;;43869415600
 ;;9002226.02101,"1149,43869415600 ",.02)
 ;;43869415600
 ;;9002226.02101,"1149,45802009301 ",.01)
 ;;45802009301
 ;;9002226.02101,"1149,45802009301 ",.02)
 ;;45802009301
 ;;9002226.02101,"1149,45802009365 ",.01)
 ;;45802009365
 ;;9002226.02101,"1149,45802009365 ",.02)
 ;;45802009365
 ;;9002226.02101,"1149,45802009375 ",.01)
 ;;45802009375
 ;;9002226.02101,"1149,45802009375 ",.02)
 ;;45802009375
 ;;9002226.02101,"1149,45802029265 ",.01)
 ;;45802029265
 ;;9002226.02101,"1149,45802029265 ",.02)
 ;;45802029265
 ;;9002226.02101,"1149,45802029275 ",.01)
 ;;45802029275
 ;;9002226.02101,"1149,45802029275 ",.02)
 ;;45802029275
 ;;9002226.02101,"1149,45802038401 ",.01)
 ;;45802038401
 ;;9002226.02101,"1149,45802038401 ",.02)
 ;;45802038401