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

BUD2ZD3.m

Go to the documentation of this file.
BUD2ZD3 ;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,00113027468 ",.02)
 ;;00113027468
 ;;9002226.02101,"1327,00113027748 ",.01)
 ;;00113027748
 ;;9002226.02101,"1327,00113027748 ",.02)
 ;;00113027748
 ;;9002226.02101,"1327,00113041178 ",.01)
 ;;00113041178
 ;;9002226.02101,"1327,00113041178 ",.02)
 ;;00113041178
 ;;9002226.02101,"1327,00113041187 ",.01)
 ;;00113041187
 ;;9002226.02101,"1327,00113041187 ",.02)
 ;;00113041187
 ;;9002226.02101,"1327,00113041190 ",.01)
 ;;00113041190
 ;;9002226.02101,"1327,00113041190 ",.02)
 ;;00113041190
 ;;9002226.02101,"1327,00113041660 ",.01)
 ;;00113041660
 ;;9002226.02101,"1327,00113041660 ",.02)
 ;;00113041660
 ;;9002226.02101,"1327,00113041678 ",.01)
 ;;00113041678
 ;;9002226.02101,"1327,00113041678 ",.02)
 ;;00113041678
 ;;9002226.02101,"1327,00113041687 ",.01)
 ;;00113041687
 ;;9002226.02101,"1327,00113041687 ",.02)
 ;;00113041687
 ;;9002226.02101,"1327,00113041693 ",.01)
 ;;00113041693
 ;;9002226.02101,"1327,00113041693 ",.02)
 ;;00113041693
 ;;9002226.02101,"1327,00113046708 ",.01)
 ;;00113046708
 ;;9002226.02101,"1327,00113046708 ",.02)
 ;;00113046708
 ;;9002226.02101,"1327,00113046768 ",.01)
 ;;00113046768
 ;;9002226.02101,"1327,00113046768 ",.02)
 ;;00113046768
 ;;9002226.02101,"1327,00113053576 ",.01)
 ;;00113053576
 ;;9002226.02101,"1327,00113053576 ",.02)
 ;;00113053576
 ;;9002226.02101,"1327,00113141182 ",.01)
 ;;00113141182
 ;;9002226.02101,"1327,00113141182 ",.02)
 ;;00113141182
 ;;9002226.02101,"1327,00122080166 ",.01)
 ;;00122080166
 ;;9002226.02101,"1327,00122080166 ",.02)
 ;;00122080166
 ;;9002226.02101,"1327,00122082166 ",.01)
 ;;00122082166
 ;;9002226.02101,"1327,00122082166 ",.02)
 ;;00122082166
 ;;9002226.02101,"1327,00122085066 ",.01)
 ;;00122085066
 ;;9002226.02101,"1327,00122085066 ",.02)
 ;;00122085066
 ;;9002226.02101,"1327,00122086266 ",.01)
 ;;00122086266
 ;;9002226.02101,"1327,00122086266 ",.02)
 ;;00122086266
 ;;9002226.02101,"1327,00149009311 ",.01)
 ;;00149009311
 ;;9002226.02101,"1327,00149009311 ",.02)
 ;;00149009311
 ;;9002226.02101,"1327,00182044401 ",.01)
 ;;00182044401
 ;;9002226.02101,"1327,00182044401 ",.02)
 ;;00182044401
 ;;9002226.02101,"1327,00182044410 ",.01)
 ;;00182044410
 ;;9002226.02101,"1327,00182044410 ",.02)
 ;;00182044410
 ;;9002226.02101,"1327,00182044801 ",.01)
 ;;00182044801
 ;;9002226.02101,"1327,00182044801 ",.02)
 ;;00182044801
 ;;9002226.02101,"1327,00182044810 ",.01)
 ;;00182044810
 ;;9002226.02101,"1327,00182044810 ",.02)
 ;;00182044810
 ;;9002226.02101,"1327,00182044901 ",.01)
 ;;00182044901
 ;;9002226.02101,"1327,00182044901 ",.02)
 ;;00182044901
 ;;9002226.02101,"1327,00182105801 ",.01)
 ;;00182105801
 ;;9002226.02101,"1327,00182105801 ",.02)
 ;;00182105801
 ;;9002226.02101,"1327,00182106105 ",.01)
 ;;00182106105
 ;;9002226.02101,"1327,00182106105 ",.02)
 ;;00182106105
 ;;9002226.02101,"1327,00182106107 ",.01)
 ;;00182106107
 ;;9002226.02101,"1327,00182106107 ",.02)
 ;;00182106107
 ;;9002226.02101,"1327,00182142095 ",.01)
 ;;00182142095
 ;;9002226.02101,"1327,00182142095 ",.02)
 ;;00182142095
 ;;9002226.02101,"1327,00182190901 ",.01)
 ;;00182190901
 ;;9002226.02101,"1327,00182190901 ",.02)
 ;;00182190901
 ;;9002226.02101,"1327,00182190910 ",.01)
 ;;00182190910
 ;;9002226.02101,"1327,00182190910 ",.02)
 ;;00182190910
 ;;9002226.02101,"1327,00182821789 ",.01)
 ;;00182821789
 ;;9002226.02101,"1327,00182821789 ",.02)
 ;;00182821789
 ;;9002226.02101,"1327,00185011505 ",.01)
 ;;00185011505
 ;;9002226.02101,"1327,00185011505 ",.02)
 ;;00185011505
 ;;9002226.02101,"1327,00185011530 ",.01)
 ;;00185011530
 ;;9002226.02101,"1327,00185011530 ",.02)
 ;;00185011530
 ;;9002226.02101,"1327,00185011560 ",.01)
 ;;00185011560
 ;;9002226.02101,"1327,00185011560 ",.02)
 ;;00185011560
 ;;9002226.02101,"1327,00228261303 ",.01)
 ;;00228261303
 ;;9002226.02101,"1327,00228261303 ",.02)
 ;;00228261303
 ;;9002226.02101,"1327,00228261306 ",.01)
 ;;00228261306
 ;;9002226.02101,"1327,00228261306 ",.02)
 ;;00228261306
 ;;9002226.02101,"1327,00228261311 ",.01)
 ;;00228261311
 ;;9002226.02101,"1327,00228261311 ",.02)
 ;;00228261311
 ;;9002226.02101,"1327,00247060601 ",.01)
 ;;00247060601
 ;;9002226.02101,"1327,00247060601 ",.02)
 ;;00247060601
 ;;9002226.02101,"1327,00247060610 ",.01)
 ;;00247060610
 ;;9002226.02101,"1327,00247060610 ",.02)
 ;;00247060610
 ;;9002226.02101,"1327,00247060625 ",.01)
 ;;00247060625
 ;;9002226.02101,"1327,00247060625 ",.02)
 ;;00247060625
 ;;9002226.02101,"1327,00247060640 ",.01)
 ;;00247060640
 ;;9002226.02101,"1327,00247060640 ",.02)
 ;;00247060640
 ;;9002226.02101,"1327,00247082700 ",.01)
 ;;00247082700
 ;;9002226.02101,"1327,00247082700 ",.02)
 ;;00247082700
 ;;9002226.02101,"1327,00247082712 ",.01)
 ;;00247082712
 ;;9002226.02101,"1327,00247082712 ",.02)
 ;;00247082712
 ;;9002226.02101,"1327,00247082725 ",.01)
 ;;00247082725
 ;;9002226.02101,"1327,00247082725 ",.02)
 ;;00247082725
 ;;9002226.02101,"1327,00247119100 ",.01)
 ;;00247119100
 ;;9002226.02101,"1327,00247119100 ",.02)
 ;;00247119100
 ;;9002226.02101,"1327,00247119101 ",.01)
 ;;00247119101
 ;;9002226.02101,"1327,00247119101 ",.02)
 ;;00247119101
 ;;9002226.02101,"1327,00247119103 ",.01)
 ;;00247119103
 ;;9002226.02101,"1327,00247119103 ",.02)
 ;;00247119103
 ;;9002226.02101,"1327,00247119124 ",.01)
 ;;00247119124
 ;;9002226.02101,"1327,00247119124 ",.02)
 ;;00247119124
 ;;9002226.02101,"1327,00247119130 ",.01)
 ;;00247119130
 ;;9002226.02101,"1327,00247119130 ",.02)
 ;;00247119130
 ;;9002226.02101,"1327,00247127530 ",.01)
 ;;00247127530
 ;;9002226.02101,"1327,00247127530 ",.02)
 ;;00247127530
 ;;9002226.02101,"1327,00247127560 ",.01)
 ;;00247127560
 ;;9002226.02101,"1327,00247127560 ",.02)
 ;;00247127560
 ;;9002226.02101,"1327,00247215000 ",.01)
 ;;00247215000
 ;;9002226.02101,"1327,00247215000 ",.02)
 ;;00247215000
 ;;9002226.02101,"1327,00247215030 ",.01)
 ;;00247215030
 ;;9002226.02101,"1327,00247215030 ",.02)
 ;;00247215030
 ;;9002226.02101,"1327,00280200051 ",.01)
 ;;00280200051
 ;;9002226.02101,"1327,00280200051 ",.02)
 ;;00280200051
 ;;9002226.02101,"1327,00280210012 ",.01)
 ;;00280210012
 ;;9002226.02101,"1327,00280210012 ",.02)
 ;;00280210012
 ;;9002226.02101,"1327,00280210032 ",.01)
 ;;00280210032
 ;;9002226.02101,"1327,00280210032 ",.02)
 ;;00280210032
 ;;9002226.02101,"1327,00280210040 ",.01)
 ;;00280210040
 ;;9002226.02101,"1327,00280210040 ",.02)
 ;;00280210040
 ;;9002226.02101,"1327,00280211010 ",.01)
 ;;00280211010
 ;;9002226.02101,"1327,00280211010 ",.02)
 ;;00280211010
 ;;9002226.02101,"1327,00280261001 ",.01)
 ;;00280261001
 ;;9002226.02101,"1327,00280261001 ",.02)
 ;;00280261001
 ;;9002226.02101,"1327,00280261020 ",.01)
 ;;00280261020
 ;;9002226.02101,"1327,00280261020 ",.02)
 ;;00280261020
 ;;9002226.02101,"1327,00280261040 ",.01)
 ;;00280261040
 ;;9002226.02101,"1327,00280261040 ",.02)
 ;;00280261040
 ;;9002226.02101,"1327,00280261080 ",.01)
 ;;00280261080
 ;;9002226.02101,"1327,00280261080 ",.02)
 ;;00280261080
 ;;9002226.02101,"1327,00295123601 ",.01)
 ;;00295123601
 ;;9002226.02101,"1327,00295123601 ",.02)
 ;;00295123601
 ;;9002226.02101,"1327,00295123625 ",.01)
 ;;00295123625
 ;;9002226.02101,"1327,00295123625 ",.02)
 ;;00295123625
 ;;9002226.02101,"1327,00363015712 ",.01)
 ;;00363015712
 ;;9002226.02101,"1327,00363015712 ",.02)
 ;;00363015712
 ;;9002226.02101,"1327,00363015714 ",.01)
 ;;00363015714
 ;;9002226.02101,"1327,00363015714 ",.02)
 ;;00363015714
 ;;9002226.02101,"1327,00363015716 ",.01)
 ;;00363015716
 ;;9002226.02101,"1327,00363015716 ",.02)
 ;;00363015716
 ;;9002226.02101,"1327,00363015717 ",.01)
 ;;00363015717
 ;;9002226.02101,"1327,00363015717 ",.02)
 ;;00363015717
 ;;9002226.02101,"1327,00363018330 ",.01)
 ;;00363018330
 ;;9002226.02101,"1327,00363018330 ",.02)
 ;;00363018330
 ;;9002226.02101,"1327,00363021807 ",.01)
 ;;00363021807
 ;;9002226.02101,"1327,00363021807 ",.02)
 ;;00363021807
 ;;9002226.02101,"1327,00363022713 ",.01)
 ;;00363022713
 ;;9002226.02101,"1327,00363022713 ",.02)
 ;;00363022713
 ;;9002226.02101,"1327,00363022714 ",.01)
 ;;00363022714
 ;;9002226.02101,"1327,00363022714 ",.02)
 ;;00363022714
 ;;9002226.02101,"1327,00363022717 ",.01)
 ;;00363022717
 ;;9002226.02101,"1327,00363022717 ",.02)
 ;;00363022717
 ;;9002226.02101,"1327,00363022757 ",.01)
 ;;00363022757
 ;;9002226.02101,"1327,00363022757 ",.02)
 ;;00363022757
 ;;9002226.02101,"1327,00363025514 ",.01)
 ;;00363025514
 ;;9002226.02101,"1327,00363025514 ",.02)
 ;;00363025514
 ;;9002226.02101,"1327,00363025517 ",.01)
 ;;00363025517
 ;;9002226.02101,"1327,00363025517 ",.02)
 ;;00363025517
 ;;9002226.02101,"1327,00363025532 ",.01)
 ;;00363025532
 ;;9002226.02101,"1327,00363025532 ",.02)
 ;;00363025532
 ;;9002226.02101,"1327,00363039707 ",.01)
 ;;00363039707
 ;;9002226.02101,"1327,00363039707 ",.02)
 ;;00363039707
 ;;9002226.02101,"1327,00363041412 ",.01)
 ;;00363041412
 ;;9002226.02101,"1327,00363041412 ",.02)
 ;;00363041412
 ;;9002226.02101,"1327,00363056314 ",.01)
 ;;00363056314
 ;;9002226.02101,"1327,00363056314 ",.02)
 ;;00363056314
 ;;9002226.02101,"1327,00363058732 ",.01)
 ;;00363058732
 ;;9002226.02101,"1327,00363058732 ",.02)
 ;;00363058732
 ;;9002226.02101,"1327,00404071013 ",.01)
 ;;00404071013
 ;;9002226.02101,"1327,00404071013 ",.02)
 ;;00404071013
 ;;9002226.02101,"1327,00404071099 ",.01)
 ;;00404071099
 ;;9002226.02101,"1327,00404071099 ",.02)
 ;;00404071099
 ;;9002226.02101,"1327,00404071213 ",.01)
 ;;00404071213
 ;;9002226.02101,"1327,00404071213 ",.02)
 ;;00404071213
 ;;9002226.02101,"1327,00404071299 ",.01)
 ;;00404071299
 ;;9002226.02101,"1327,00404071299 ",.02)
 ;;00404071299
 ;;9002226.02101,"1327,00440113090 ",.01)
 ;;00440113090
 ;;9002226.02101,"1327,00440113090 ",.02)
 ;;00440113090
 ;;9002226.02101,"1327,00440113590 ",.01)
 ;;00440113590
 ;;9002226.02101,"1327,00440113590 ",.02)
 ;;00440113590
 ;;9002226.02101,"1327,00480015401 ",.01)
 ;;00480015401
 ;;9002226.02101,"1327,00480015401 ",.02)
 ;;00480015401
 ;;9002226.02101,"1327,00480015405 ",.01)
 ;;00480015405
 ;;9002226.02101,"1327,00480015405 ",.02)
 ;;00480015405
 ;;9002226.02101,"1327,00536308610 ",.01)
 ;;00536308610
 ;;9002226.02101,"1327,00536308610 ",.02)
 ;;00536308610
 ;;9002226.02101,"1327,00536308641 ",.01)
 ;;00536308641
 ;;9002226.02101,"1327,00536308641 ",.02)
 ;;00536308641
 ;;9002226.02101,"1327,00536329736 ",.01)
 ;;00536329736
 ;;9002226.02101,"1327,00536329736 ",.02)
 ;;00536329736
 ;;9002226.02101,"1327,00536330501 ",.01)
 ;;00536330501
 ;;9002226.02101,"1327,00536330501 ",.02)
 ;;00536330501
 ;;9002226.02101,"1327,00536330510 ",.01)
 ;;00536330510
 ;;9002226.02101,"1327,00536330510 ",.02)
 ;;00536330510
 ;;9002226.02101,"1327,00536331301 ",.01)
 ;;00536331301
 ;;9002226.02101,"1327,00536331301 ",.02)
 ;;00536331301
 ;;9002226.02101,"1327,00536331310 ",.01)
 ;;00536331310
 ;;9002226.02101,"1327,00536331310 ",.02)
 ;;00536331310
 ;;9002226.02101,"1327,00536331810 ",.01)
 ;;00536331810
 ;;9002226.02101,"1327,00536331810 ",.02)
 ;;00536331810
 ;;9002226.02101,"1327,00573027110 ",.01)
 ;;00573027110
 ;;9002226.02101,"1327,00573027110 ",.02)
 ;;00573027110
 ;;9002226.02101,"1327,00573027120 ",.01)
 ;;00573027120
 ;;9002226.02101,"1327,00573027120 ",.02)
 ;;00573027120
 ;;9002226.02101,"1327,00574000201 ",.01)
 ;;00574000201
 ;;9002226.02101,"1327,00574000201 ",.02)
 ;;00574000201
 ;;9002226.02101,"1327,00574000211 ",.01)
 ;;00574000211
 ;;9002226.02101,"1327,00574000211 ",.02)
 ;;00574000211
 ;;9002226.02101,"1327,00603002436 ",.01)
 ;;00603002436
 ;;9002226.02101,"1327,00603002436 ",.02)
 ;;00603002436
 ;;9002226.02101,"1327,00603002522 ",.01)
 ;;00603002522
 ;;9002226.02101,"1327,00603002522 ",.02)
 ;;00603002522
 ;;9002226.02101,"1327,00603002532 ",.01)
 ;;00603002532
 ;;9002226.02101,"1327,00603002532 ",.02)
 ;;00603002532
 ;;9002226.02101,"1327,00603002622 ",.01)
 ;;00603002622
 ;;9002226.02101,"1327,00603002622 ",.02)
 ;;00603002622
 ;;9002226.02101,"1327,00603002632 ",.01)
 ;;00603002632
 ;;9002226.02101,"1327,00603002632 ",.02)
 ;;00603002632
 ;;9002226.02101,"1327,00603003121 ",.01)
 ;;00603003121
 ;;9002226.02101,"1327,00603003121 ",.02)
 ;;00603003121
 ;;9002226.02101,"1327,00603003125 ",.01)
 ;;00603003125
 ;;9002226.02101,"1327,00603003125 ",.02)
 ;;00603003125
 ;;9002226.02101,"1327,00603016621 ",.01)
 ;;00603016621
 ;;9002226.02101,"1327,00603016621 ",.02)
 ;;00603016621
 ;;9002226.02101,"1327,00603016702 ",.01)
 ;;00603016702
 ;;9002226.02101,"1327,00603016702 ",.02)
 ;;00603016702
 ;;9002226.02101,"1327,00603016721 ",.01)
 ;;00603016721
 ;;9002226.02101,"1327,00603016721 ",.02)
 ;;00603016721
 ;;9002226.02101,"1327,00603016732 ",.01)
 ;;00603016732
 ;;9002226.02101,"1327,00603016732 ",.02)
 ;;00603016732
 ;;9002226.02101,"1327,00603016821 ",.01)
 ;;00603016821
 ;;9002226.02101,"1327,00603016821 ",.02)
 ;;00603016821
 ;;9002226.02101,"1327,00603016902 ",.01)
 ;;00603016902
 ;;9002226.02101,"1327,00603016902 ",.02)
 ;;00603016902
 ;;9002226.02101,"1327,00603016921 ",.01)
 ;;00603016921
 ;;9002226.02101,"1327,00603016921 ",.02)
 ;;00603016921
 ;;9002226.02101,"1327,00603016932 ",.01)
 ;;00603016932
 ;;9002226.02101,"1327,00603016932 ",.02)
 ;;00603016932
 ;;9002226.02101,"1327,00615052231 ",.01)
 ;;00615052231
 ;;9002226.02101,"1327,00615052231 ",.02)
 ;;00615052231
 ;;9002226.02101,"1327,00615052239 ",.01)
 ;;00615052239
 ;;9002226.02101,"1327,00615052239 ",.02)
 ;;00615052239