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

BUD2ZA21.m

Go to the documentation of this file.
BUD2ZA21 ;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,59772558902 ",.02)
 ;;59772558902
 ;;9002226.02101,"1149,59772558920 ",.01)
 ;;59772558920
 ;;9002226.02101,"1149,59772558920 ",.02)
 ;;59772558920
 ;;9002226.02101,"1149,59930163801 ",.01)
 ;;59930163801
 ;;9002226.02101,"1149,59930163801 ",.02)
 ;;59930163801
 ;;9002226.02101,"1149,59930163802 ",.01)
 ;;59930163802
 ;;9002226.02101,"1149,59930163802 ",.02)
 ;;59930163802
 ;;9002226.02101,"1149,60312036300 ",.01)
 ;;60312036300
 ;;9002226.02101,"1149,60312036300 ",.02)
 ;;60312036300
 ;;9002226.02101,"1149,60312036400 ",.01)
 ;;60312036400
 ;;9002226.02101,"1149,60312036400 ",.02)
 ;;60312036400
 ;;9002226.02101,"1149,60312036500 ",.01)
 ;;60312036500
 ;;9002226.02101,"1149,60312036500 ",.02)
 ;;60312036500
 ;;9002226.02101,"1149,60312036600 ",.01)
 ;;60312036600
 ;;9002226.02101,"1149,60312036600 ",.02)
 ;;60312036600
 ;;9002226.02101,"1149,60312054300 ",.01)
 ;;60312054300
 ;;9002226.02101,"1149,60312054300 ",.02)
 ;;60312054300
 ;;9002226.02101,"1149,60312054307 ",.01)
 ;;60312054307
 ;;9002226.02101,"1149,60312054307 ",.02)
 ;;60312054307
 ;;9002226.02101,"1149,60312054328 ",.01)
 ;;60312054328
 ;;9002226.02101,"1149,60312054328 ",.02)
 ;;60312054328
 ;;9002226.02101,"1149,60312054330 ",.01)
 ;;60312054330
 ;;9002226.02101,"1149,60312054330 ",.02)
 ;;60312054330
 ;;9002226.02101,"1149,60312054331 ",.01)
 ;;60312054331
 ;;9002226.02101,"1149,60312054331 ",.02)
 ;;60312054331
 ;;9002226.02101,"1149,60312054340 ",.01)
 ;;60312054340
 ;;9002226.02101,"1149,60312054340 ",.02)
 ;;60312054340
 ;;9002226.02101,"1149,60312054354 ",.01)
 ;;60312054354
 ;;9002226.02101,"1149,60312054354 ",.02)
 ;;60312054354
 ;;9002226.02101,"1149,60312054382 ",.01)
 ;;60312054382
 ;;9002226.02101,"1149,60312054382 ",.02)
 ;;60312054382
 ;;9002226.02101,"1149,60312080000 ",.01)
 ;;60312080000
 ;;9002226.02101,"1149,60312080000 ",.02)
 ;;60312080000
 ;;9002226.02101,"1149,60312080100 ",.01)
 ;;60312080100
 ;;9002226.02101,"1149,60312080100 ",.02)
 ;;60312080100
 ;;9002226.02101,"1149,60312080200 ",.01)
 ;;60312080200
 ;;9002226.02101,"1149,60312080200 ",.02)
 ;;60312080200
 ;;9002226.02101,"1149,60312080300 ",.01)
 ;;60312080300
 ;;9002226.02101,"1149,60312080300 ",.02)
 ;;60312080300
 ;;9002226.02101,"1149,60312089200 ",.01)
 ;;60312089200
 ;;9002226.02101,"1149,60312089200 ",.02)
 ;;60312089200
 ;;9002226.02101,"1149,60312089210 ",.01)
 ;;60312089210
 ;;9002226.02101,"1149,60312089210 ",.02)
 ;;60312089210
 ;;9002226.02101,"1149,60312089230 ",.01)
 ;;60312089230
 ;;9002226.02101,"1149,60312089230 ",.02)
 ;;60312089230
 ;;9002226.02101,"1149,60312089290 ",.01)
 ;;60312089290
 ;;9002226.02101,"1149,60312089290 ",.02)
 ;;60312089290
 ;;9002226.02101,"1149,60346036798 ",.01)
 ;;60346036798
 ;;9002226.02101,"1149,60346036798 ",.02)
 ;;60346036798
 ;;9002226.02101,"1149,60429008105 ",.01)
 ;;60429008105
 ;;9002226.02101,"1149,60429008105 ",.02)
 ;;60429008105
 ;;9002226.02101,"1149,60429008118 ",.01)
 ;;60429008118
 ;;9002226.02101,"1149,60429008118 ",.02)
 ;;60429008118
 ;;9002226.02101,"1149,60429008160 ",.01)
 ;;60429008160
 ;;9002226.02101,"1149,60429008160 ",.02)
 ;;60429008160
 ;;9002226.02101,"1149,60505003400 ",.01)
 ;;60505003400
 ;;9002226.02101,"1149,60505003400 ",.02)
 ;;60505003400
 ;;9002226.02101,"1149,60505003401 ",.01)
 ;;60505003401
 ;;9002226.02101,"1149,60505003401 ",.02)
 ;;60505003401
 ;;9002226.02101,"1149,60505003402 ",.01)
 ;;60505003402
 ;;9002226.02101,"1149,60505003402 ",.02)
 ;;60505003402
 ;;9002226.02101,"1149,60505003404 ",.01)
 ;;60505003404
 ;;9002226.02101,"1149,60505003404 ",.02)
 ;;60505003404
 ;;9002226.02101,"1149,60505003406 ",.01)
 ;;60505003406
 ;;9002226.02101,"1149,60505003406 ",.02)
 ;;60505003406
 ;;9002226.02101,"1149,60505003408 ",.01)
 ;;60505003408
 ;;9002226.02101,"1149,60505003408 ",.02)
 ;;60505003408
 ;;9002226.02101,"1149,60505017700 ",.01)
 ;;60505017700
 ;;9002226.02101,"1149,60505017700 ",.02)
 ;;60505017700
 ;;9002226.02101,"1149,60505017701 ",.01)
 ;;60505017701
 ;;9002226.02101,"1149,60505017701 ",.02)
 ;;60505017701
 ;;9002226.02101,"1149,60505017703 ",.01)
 ;;60505017703
 ;;9002226.02101,"1149,60505017703 ",.02)
 ;;60505017703
 ;;9002226.02101,"1149,60505017709 ",.01)
 ;;60505017709
 ;;9002226.02101,"1149,60505017709 ",.02)
 ;;60505017709
 ;;9002226.02101,"1149,60505017800 ",.01)
 ;;60505017800
 ;;9002226.02101,"1149,60505017800 ",.02)
 ;;60505017800
 ;;9002226.02101,"1149,60505017801 ",.01)
 ;;60505017801
 ;;9002226.02101,"1149,60505017801 ",.02)
 ;;60505017801
 ;;9002226.02101,"1149,60505017803 ",.01)
 ;;60505017803
 ;;9002226.02101,"1149,60505017803 ",.02)
 ;;60505017803
 ;;9002226.02101,"1149,60505017809 ",.01)
 ;;60505017809
 ;;9002226.02101,"1149,60505017809 ",.02)
 ;;60505017809
 ;;9002226.02101,"1149,60505017900 ",.01)
 ;;60505017900
 ;;9002226.02101,"1149,60505017900 ",.02)
 ;;60505017900
 ;;9002226.02101,"1149,60505017901 ",.01)
 ;;60505017901
 ;;9002226.02101,"1149,60505017901 ",.02)
 ;;60505017901
 ;;9002226.02101,"1149,60505017903 ",.01)
 ;;60505017903
 ;;9002226.02101,"1149,60505017903 ",.02)
 ;;60505017903
 ;;9002226.02101,"1149,60505017909 ",.01)
 ;;60505017909
 ;;9002226.02101,"1149,60505017909 ",.02)
 ;;60505017909
 ;;9002226.02101,"1149,60809012255 ",.01)
 ;;60809012255
 ;;9002226.02101,"1149,60809012255 ",.02)
 ;;60809012255
 ;;9002226.02101,"1149,60809012272 ",.01)
 ;;60809012272
 ;;9002226.02101,"1149,60809012272 ",.02)
 ;;60809012272
 ;;9002226.02101,"1149,60814056701 ",.01)
 ;;60814056701
 ;;9002226.02101,"1149,60814056701 ",.02)
 ;;60814056701
 ;;9002226.02101,"1149,60814056801 ",.01)
 ;;60814056801
 ;;9002226.02101,"1149,60814056801 ",.02)
 ;;60814056801
 ;;9002226.02101,"1149,60935001000 ",.01)
 ;;60935001000
 ;;9002226.02101,"1149,60935001000 ",.02)
 ;;60935001000
 ;;9002226.02101,"1149,60935001001 ",.01)
 ;;60935001001
 ;;9002226.02101,"1149,60935001001 ",.02)
 ;;60935001001
 ;;9002226.02101,"1149,61258336901 ",.01)
 ;;61258336901
 ;;9002226.02101,"1149,61258336901 ",.02)
 ;;61258336901
 ;;9002226.02101,"1149,61258337000 ",.01)
 ;;61258337000
 ;;9002226.02101,"1149,61258337000 ",.02)
 ;;61258337000
 ;;9002226.02101,"1149,61258337100 ",.01)
 ;;61258337100
 ;;9002226.02101,"1149,61258337100 ",.02)
 ;;61258337100
 ;;9002226.02101,"1149,61392009325 ",.01)
 ;;61392009325
 ;;9002226.02101,"1149,61392009325 ",.02)
 ;;61392009325
 ;;9002226.02101,"1149,61392009330 ",.01)
 ;;61392009330
 ;;9002226.02101,"1149,61392009330 ",.02)
 ;;61392009330
 ;;9002226.02101,"1149,61392009331 ",.01)
 ;;61392009331
 ;;9002226.02101,"1149,61392009331 ",.02)
 ;;61392009331
 ;;9002226.02101,"1149,61392009339 ",.01)
 ;;61392009339
 ;;9002226.02101,"1149,61392009339 ",.02)
 ;;61392009339
 ;;9002226.02101,"1149,61392009360 ",.01)
 ;;61392009360
 ;;9002226.02101,"1149,61392009360 ",.02)
 ;;61392009360
 ;;9002226.02101,"1149,61392009365 ",.01)
 ;;61392009365
 ;;9002226.02101,"1149,61392009365 ",.02)
 ;;61392009365
 ;;9002226.02101,"1149,61392009390 ",.01)
 ;;61392009390
 ;;9002226.02101,"1149,61392009390 ",.02)
 ;;61392009390
 ;;9002226.02101,"1149,61392011630 ",.01)
 ;;61392011630
 ;;9002226.02101,"1149,61392011630 ",.02)
 ;;61392011630
 ;;9002226.02101,"1149,61392011631 ",.01)
 ;;61392011631
 ;;9002226.02101,"1149,61392011631 ",.02)
 ;;61392011631
 ;;9002226.02101,"1149,61392011632 ",.01)
 ;;61392011632
 ;;9002226.02101,"1149,61392011632 ",.02)
 ;;61392011632
 ;;9002226.02101,"1149,61392011639 ",.01)
 ;;61392011639
 ;;9002226.02101,"1149,61392011639 ",.02)
 ;;61392011639
 ;;9002226.02101,"1149,61392011645 ",.01)
 ;;61392011645
 ;;9002226.02101,"1149,61392011645 ",.02)
 ;;61392011645
 ;;9002226.02101,"1149,61392011651 ",.01)
 ;;61392011651
 ;;9002226.02101,"1149,61392011651 ",.02)
 ;;61392011651
 ;;9002226.02101,"1149,61392011654 ",.01)
 ;;61392011654
 ;;9002226.02101,"1149,61392011654 ",.02)
 ;;61392011654
 ;;9002226.02101,"1149,61392011660 ",.01)
 ;;61392011660
 ;;9002226.02101,"1149,61392011660 ",.02)
 ;;61392011660
 ;;9002226.02101,"1149,61392011690 ",.01)
 ;;61392011690
 ;;9002226.02101,"1149,61392011690 ",.02)
 ;;61392011690
 ;;9002226.02101,"1149,61392011691 ",.01)
 ;;61392011691
 ;;9002226.02101,"1149,61392011691 ",.02)
 ;;61392011691
 ;;9002226.02101,"1149,61392073731 ",.01)
 ;;61392073731
 ;;9002226.02101,"1149,61392073731 ",.02)
 ;;61392073731
 ;;9002226.02101,"1149,61392073739 ",.01)
 ;;61392073739
 ;;9002226.02101,"1149,61392073739 ",.02)
 ;;61392073739
 ;;9002226.02101,"1149,61392079725 ",.01)
 ;;61392079725
 ;;9002226.02101,"1149,61392079725 ",.02)
 ;;61392079725
 ;;9002226.02101,"1149,61392079730 ",.01)
 ;;61392079730
 ;;9002226.02101,"1149,61392079730 ",.02)
 ;;61392079730
 ;;9002226.02101,"1149,61392079731 ",.01)
 ;;61392079731
 ;;9002226.02101,"1149,61392079731 ",.02)
 ;;61392079731
 ;;9002226.02101,"1149,61392079739 ",.01)
 ;;61392079739
 ;;9002226.02101,"1149,61392079739 ",.02)
 ;;61392079739
 ;;9002226.02101,"1149,61442014101 ",.01)
 ;;61442014101
 ;;9002226.02101,"1149,61442014101 ",.02)
 ;;61442014101
 ;;9002226.02101,"1149,61442014110 ",.01)
 ;;61442014110
 ;;9002226.02101,"1149,61442014110 ",.02)
 ;;61442014110
 ;;9002226.02101,"1149,61442014201 ",.01)
 ;;61442014201
 ;;9002226.02101,"1149,61442014201 ",.02)
 ;;61442014201
 ;;9002226.02101,"1149,61442014210 ",.01)
 ;;61442014210
 ;;9002226.02101,"1149,61442014210 ",.02)
 ;;61442014210
 ;;9002226.02101,"1149,61442014301 ",.01)
 ;;61442014301
 ;;9002226.02101,"1149,61442014301 ",.02)
 ;;61442014301
 ;;9002226.02101,"1149,61442014310 ",.01)
 ;;61442014310
 ;;9002226.02101,"1149,61442014310 ",.02)
 ;;61442014310
 ;;9002226.02101,"1149,61947000600 ",.01)
 ;;61947000600
 ;;9002226.02101,"1149,61947000600 ",.02)
 ;;61947000600
 ;;9002226.02101,"1149,61947000700 ",.01)
 ;;61947000700
 ;;9002226.02101,"1149,61947000700 ",.02)
 ;;61947000700
 ;;9002226.02101,"1149,62037079101 ",.01)
 ;;62037079101
 ;;9002226.02101,"1149,62037079101 ",.02)
 ;;62037079101
 ;;9002226.02101,"1149,62037079105 ",.01)
 ;;62037079105
 ;;9002226.02101,"1149,62037079105 ",.02)
 ;;62037079105
 ;;9002226.02101,"1149,62037079160 ",.01)
 ;;62037079160
 ;;9002226.02101,"1149,62037079160 ",.02)
 ;;62037079160
 ;;9002226.02101,"1149,62037079201 ",.01)
 ;;62037079201
 ;;9002226.02101,"1149,62037079201 ",.02)
 ;;62037079201
 ;;9002226.02101,"1149,62037079205 ",.01)
 ;;62037079205
 ;;9002226.02101,"1149,62037079205 ",.02)
 ;;62037079205
 ;;9002226.02101,"1149,62037079210 ",.01)
 ;;62037079210
 ;;9002226.02101,"1149,62037079210 ",.02)
 ;;62037079210
 ;;9002226.02101,"1149,62037079260 ",.01)
 ;;62037079260
 ;;9002226.02101,"1149,62037079260 ",.02)
 ;;62037079260
 ;;9002226.02101,"1149,62037079301 ",.01)
 ;;62037079301
 ;;9002226.02101,"1149,62037079301 ",.02)
 ;;62037079301
 ;;9002226.02101,"1149,62037079305 ",.01)
 ;;62037079305
 ;;9002226.02101,"1149,62037079305 ",.02)
 ;;62037079305
 ;;9002226.02101,"1149,62037079310 ",.01)
 ;;62037079310
 ;;9002226.02101,"1149,62037079310 ",.02)
 ;;62037079310
 ;;9002226.02101,"1149,62037079360 ",.01)
 ;;62037079360
 ;;9002226.02101,"1149,62037079360 ",.02)
 ;;62037079360
 ;;9002226.02101,"1149,62269032029 ",.01)
 ;;62269032029
 ;;9002226.02101,"1149,62269032029 ",.02)
 ;;62269032029
 ;;9002226.02101,"1149,62269032060 ",.01)
 ;;62269032060
 ;;9002226.02101,"1149,62269032060 ",.02)
 ;;62269032060
 ;;9002226.02101,"1149,62318003404 ",.01)
 ;;62318003404
 ;;9002226.02101,"1149,62318003404 ",.02)
 ;;62318003404
 ;;9002226.02101,"1149,62318003408 ",.01)
 ;;62318003408
 ;;9002226.02101,"1149,62318003408 ",.02)
 ;;62318003408
 ;;9002226.02101,"1149,63126028110 ",.01)
 ;;63126028110
 ;;9002226.02101,"1149,63126028110 ",.02)
 ;;63126028110
 ;;9002226.02101,"1149,63126028160 ",.01)
 ;;63126028160
 ;;9002226.02101,"1149,63126028160 ",.02)
 ;;63126028160
 ;;9002226.02101,"1149,63126028210 ",.01)
 ;;63126028210
 ;;9002226.02101,"1149,63126028210 ",.02)
 ;;63126028210
 ;;9002226.02101,"1149,63126028260 ",.01)
 ;;63126028260
 ;;9002226.02101,"1149,63126028260 ",.02)
 ;;63126028260
 ;;9002226.02101,"1149,63126028310 ",.01)
 ;;63126028310
 ;;9002226.02101,"1149,63126028310 ",.02)
 ;;63126028310
 ;;9002226.02101,"1149,63126028360 ",.01)
 ;;63126028360
 ;;9002226.02101,"1149,63126028360 ",.02)
 ;;63126028360
 ;;9002226.02101,"1149,63304078910 ",.01)
 ;;63304078910
 ;;9002226.02101,"1149,63304078910 ",.02)
 ;;63304078910
 ;;9002226.02101,"1149,63304078930 ",.01)
 ;;63304078930
 ;;9002226.02101,"1149,63304078930 ",.02)
 ;;63304078930
 ;;9002226.02101,"1149,63304078990 ",.01)
 ;;63304078990
 ;;9002226.02101,"1149,63304078990 ",.02)
 ;;63304078990
 ;;9002226.02101,"1149,63304079010 ",.01)
 ;;63304079010
 ;;9002226.02101,"1149,63304079010 ",.02)
 ;;63304079010
 ;;9002226.02101,"1149,63304079030 ",.01)
 ;;63304079030
 ;;9002226.02101,"1149,63304079030 ",.02)
 ;;63304079030
 ;;9002226.02101,"1149,63304079090 ",.01)
 ;;63304079090
 ;;9002226.02101,"1149,63304079090 ",.02)
 ;;63304079090
 ;;9002226.02101,"1149,63304079110 ",.01)
 ;;63304079110
 ;;9002226.02101,"1149,63304079110 ",.02)
 ;;63304079110
 ;;9002226.02101,"1149,63304079130 ",.01)
 ;;63304079130
 ;;9002226.02101,"1149,63304079130 ",.02)
 ;;63304079130
 ;;9002226.02101,"1149,63304079190 ",.01)
 ;;63304079190
 ;;9002226.02101,"1149,63304079190 ",.02)
 ;;63304079190
 ;;9002226.02101,"1149,63304079210 ",.01)
 ;;63304079210
 ;;9002226.02101,"1149,63304079210 ",.02)
 ;;63304079210