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

BUD2ZA12.m

Go to the documentation of this file.
BUD2ZA12 ;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,14508011586 ",.01)
 ;;14508011586
 ;;9002226.02101,"1149,14508011586 ",.02)
 ;;14508011586
 ;;9002226.02101,"1149,14550051401 ",.01)
 ;;14550051401
 ;;9002226.02101,"1149,14550051401 ",.02)
 ;;14550051401
 ;;9002226.02101,"1149,14550051404 ",.01)
 ;;14550051404
 ;;9002226.02101,"1149,14550051404 ",.02)
 ;;14550051404
 ;;9002226.02101,"1149,14550051501 ",.01)
 ;;14550051501
 ;;9002226.02101,"1149,14550051501 ",.02)
 ;;14550051501
 ;;9002226.02101,"1149,14550051504 ",.01)
 ;;14550051504
 ;;9002226.02101,"1149,14550051504 ",.02)
 ;;14550051504
 ;;9002226.02101,"1149,14550051601 ",.01)
 ;;14550051601
 ;;9002226.02101,"1149,14550051601 ",.02)
 ;;14550051601
 ;;9002226.02101,"1149,14550051604 ",.01)
 ;;14550051604
 ;;9002226.02101,"1149,14550051604 ",.02)
 ;;14550051604
 ;;9002226.02101,"1149,16252050530 ",.01)
 ;;16252050530
 ;;9002226.02101,"1149,16252050530 ",.02)
 ;;16252050530
 ;;9002226.02101,"1149,16252050550 ",.01)
 ;;16252050550
 ;;9002226.02101,"1149,16252050550 ",.02)
 ;;16252050550
 ;;9002226.02101,"1149,16252050590 ",.01)
 ;;16252050590
 ;;9002226.02101,"1149,16252050590 ",.02)
 ;;16252050590
 ;;9002226.02101,"1149,16252050600 ",.01)
 ;;16252050600
 ;;9002226.02101,"1149,16252050600 ",.02)
 ;;16252050600
 ;;9002226.02101,"1149,16252050630 ",.01)
 ;;16252050630
 ;;9002226.02101,"1149,16252050630 ",.02)
 ;;16252050630
 ;;9002226.02101,"1149,16252050650 ",.01)
 ;;16252050650
 ;;9002226.02101,"1149,16252050650 ",.02)
 ;;16252050650
 ;;9002226.02101,"1149,16252050690 ",.01)
 ;;16252050690
 ;;9002226.02101,"1149,16252050690 ",.02)
 ;;16252050690
 ;;9002226.02101,"1149,16252050700 ",.01)
 ;;16252050700
 ;;9002226.02101,"1149,16252050700 ",.02)
 ;;16252050700
 ;;9002226.02101,"1149,16252050730 ",.01)
 ;;16252050730
 ;;9002226.02101,"1149,16252050730 ",.02)
 ;;16252050730
 ;;9002226.02101,"1149,16252050750 ",.01)
 ;;16252050750
 ;;9002226.02101,"1149,16252050750 ",.02)
 ;;16252050750
 ;;9002226.02101,"1149,16252050790 ",.01)
 ;;16252050790
 ;;9002226.02101,"1149,16252050790 ",.02)
 ;;16252050790
 ;;9002226.02101,"1149,16252050800 ",.01)
 ;;16252050800
 ;;9002226.02101,"1149,16252050800 ",.02)
 ;;16252050800
 ;;9002226.02101,"1149,16252050830 ",.01)
 ;;16252050830
 ;;9002226.02101,"1149,16252050830 ",.02)
 ;;16252050830
 ;;9002226.02101,"1149,16252050850 ",.01)
 ;;16252050850
 ;;9002226.02101,"1149,16252050850 ",.02)
 ;;16252050850
 ;;9002226.02101,"1149,16252050890 ",.01)
 ;;16252050890
 ;;9002226.02101,"1149,16252050890 ",.02)
 ;;16252050890
 ;;9002226.02101,"1149,16252050900 ",.01)
 ;;16252050900
 ;;9002226.02101,"1149,16252050900 ",.02)
 ;;16252050900
 ;;9002226.02101,"1149,16252050930 ",.01)
 ;;16252050930
 ;;9002226.02101,"1149,16252050930 ",.02)
 ;;16252050930
 ;;9002226.02101,"1149,16252050950 ",.01)
 ;;16252050950
 ;;9002226.02101,"1149,16252050950 ",.02)
 ;;16252050950
 ;;9002226.02101,"1149,16252050990 ",.01)
 ;;16252050990
 ;;9002226.02101,"1149,16252050990 ",.02)
 ;;16252050990
 ;;9002226.02101,"1149,16364000410 ",.01)
 ;;16364000410
 ;;9002226.02101,"1149,16364000410 ",.02)
 ;;16364000410
 ;;9002226.02101,"1149,16364000412 ",.01)
 ;;16364000412
 ;;9002226.02101,"1149,16364000412 ",.02)
 ;;16364000412
 ;;9002226.02101,"1149,16364000415 ",.01)
 ;;16364000415
 ;;9002226.02101,"1149,16364000415 ",.02)
 ;;16364000415
 ;;9002226.02101,"1149,16364000417 ",.01)
 ;;16364000417
 ;;9002226.02101,"1149,16364000417 ",.02)
 ;;16364000417
 ;;9002226.02101,"1149,16364000510 ",.01)
 ;;16364000510
 ;;9002226.02101,"1149,16364000510 ",.02)
 ;;16364000510
 ;;9002226.02101,"1149,16364000512 ",.01)
 ;;16364000512
 ;;9002226.02101,"1149,16364000512 ",.02)
 ;;16364000512
 ;;9002226.02101,"1149,16364000515 ",.01)
 ;;16364000515
 ;;9002226.02101,"1149,16364000515 ",.02)
 ;;16364000515
 ;;9002226.02101,"1149,16364000517 ",.01)
 ;;16364000517
 ;;9002226.02101,"1149,16364000517 ",.02)
 ;;16364000517
 ;;9002226.02101,"1149,16364000610 ",.01)
 ;;16364000610
 ;;9002226.02101,"1149,16364000610 ",.02)
 ;;16364000610
 ;;9002226.02101,"1149,16364000612 ",.01)
 ;;16364000612
 ;;9002226.02101,"1149,16364000612 ",.02)
 ;;16364000612
 ;;9002226.02101,"1149,16364000615 ",.01)
 ;;16364000615
 ;;9002226.02101,"1149,16364000615 ",.02)
 ;;16364000615
 ;;9002226.02101,"1149,16364000617 ",.01)
 ;;16364000617
 ;;9002226.02101,"1149,16364000617 ",.02)
 ;;16364000617
 ;;9002226.02101,"1149,16364000710 ",.01)
 ;;16364000710
 ;;9002226.02101,"1149,16364000710 ",.02)
 ;;16364000710
 ;;9002226.02101,"1149,16364000712 ",.01)
 ;;16364000712
 ;;9002226.02101,"1149,16364000712 ",.02)
 ;;16364000712
 ;;9002226.02101,"1149,16364000715 ",.01)
 ;;16364000715
 ;;9002226.02101,"1149,16364000715 ",.02)
 ;;16364000715
 ;;9002226.02101,"1149,16364000717 ",.01)
 ;;16364000717
 ;;9002226.02101,"1149,16364000717 ",.02)
 ;;16364000717
 ;;9002226.02101,"1149,16563002901 ",.01)
 ;;16563002901
 ;;9002226.02101,"1149,16563002901 ",.02)
 ;;16563002901
 ;;9002226.02101,"1149,16590043130 ",.01)
 ;;16590043130
 ;;9002226.02101,"1149,16590043130 ",.02)
 ;;16590043130
 ;;9002226.02101,"1149,16590072690 ",.01)
 ;;16590072690
 ;;9002226.02101,"1149,16590072690 ",.02)
 ;;16590072690
 ;;9002226.02101,"1149,16714010101 ",.01)
 ;;16714010101
 ;;9002226.02101,"1149,16714010101 ",.02)
 ;;16714010101
 ;;9002226.02101,"1149,16714010102 ",.01)
 ;;16714010102
 ;;9002226.02101,"1149,16714010102 ",.02)
 ;;16714010102
 ;;9002226.02101,"1149,16714010103 ",.01)
 ;;16714010103
 ;;9002226.02101,"1149,16714010103 ",.02)
 ;;16714010103
 ;;9002226.02101,"1149,16714010104 ",.01)
 ;;16714010104
 ;;9002226.02101,"1149,16714010104 ",.02)
 ;;16714010104
 ;;9002226.02101,"1149,16714010105 ",.01)
 ;;16714010105
 ;;9002226.02101,"1149,16714010105 ",.02)
 ;;16714010105
 ;;9002226.02101,"1149,16714068101 ",.01)
 ;;16714068101
 ;;9002226.02101,"1149,16714068101 ",.02)
 ;;16714068101
 ;;9002226.02101,"1149,16714068102 ",.01)
 ;;16714068102
 ;;9002226.02101,"1149,16714068102 ",.02)
 ;;16714068102
 ;;9002226.02101,"1149,16714068201 ",.01)
 ;;16714068201
 ;;9002226.02101,"1149,16714068201 ",.02)
 ;;16714068201
 ;;9002226.02101,"1149,16714068202 ",.01)
 ;;16714068202
 ;;9002226.02101,"1149,16714068202 ",.02)
 ;;16714068202
 ;;9002226.02101,"1149,16714068203 ",.01)
 ;;16714068203
 ;;9002226.02101,"1149,16714068203 ",.02)
 ;;16714068203
 ;;9002226.02101,"1149,16714068301 ",.01)
 ;;16714068301
 ;;9002226.02101,"1149,16714068301 ",.02)
 ;;16714068301
 ;;9002226.02101,"1149,16714068302 ",.01)
 ;;16714068302
 ;;9002226.02101,"1149,16714068302 ",.02)
 ;;16714068302
 ;;9002226.02101,"1149,16714068303 ",.01)
 ;;16714068303
 ;;9002226.02101,"1149,16714068303 ",.02)
 ;;16714068303
 ;;9002226.02101,"1149,16714068401 ",.01)
 ;;16714068401
 ;;9002226.02101,"1149,16714068401 ",.02)
 ;;16714068401
 ;;9002226.02101,"1149,16714068402 ",.01)
 ;;16714068402
 ;;9002226.02101,"1149,16714068402 ",.02)
 ;;16714068402
 ;;9002226.02101,"1149,16714068403 ",.01)
 ;;16714068403
 ;;9002226.02101,"1149,16714068403 ",.02)
 ;;16714068403
 ;;9002226.02101,"1149,16714068501 ",.01)
 ;;16714068501
 ;;9002226.02101,"1149,16714068501 ",.02)
 ;;16714068501
 ;;9002226.02101,"1149,16714068502 ",.01)
 ;;16714068502
 ;;9002226.02101,"1149,16714068502 ",.02)
 ;;16714068502
 ;;9002226.02101,"1149,16714068503 ",.01)
 ;;16714068503
 ;;9002226.02101,"1149,16714068503 ",.02)
 ;;16714068503
 ;;9002226.02101,"1149,16729000410 ",.01)
 ;;16729000410
 ;;9002226.02101,"1149,16729000410 ",.02)
 ;;16729000410
 ;;9002226.02101,"1149,16729000412 ",.01)
 ;;16729000412
 ;;9002226.02101,"1149,16729000412 ",.02)
 ;;16729000412
 ;;9002226.02101,"1149,16729000415 ",.01)
 ;;16729000415
 ;;9002226.02101,"1149,16729000415 ",.02)
 ;;16729000415
 ;;9002226.02101,"1149,16729000417 ",.01)
 ;;16729000417
 ;;9002226.02101,"1149,16729000417 ",.02)
 ;;16729000417
 ;;9002226.02101,"1149,16729000510 ",.01)
 ;;16729000510
 ;;9002226.02101,"1149,16729000510 ",.02)
 ;;16729000510
 ;;9002226.02101,"1149,16729000512 ",.01)
 ;;16729000512
 ;;9002226.02101,"1149,16729000512 ",.02)
 ;;16729000512
 ;;9002226.02101,"1149,16729000515 ",.01)
 ;;16729000515
 ;;9002226.02101,"1149,16729000515 ",.02)
 ;;16729000515
 ;;9002226.02101,"1149,16729000517 ",.01)
 ;;16729000517
 ;;9002226.02101,"1149,16729000517 ",.02)
 ;;16729000517
 ;;9002226.02101,"1149,16729000610 ",.01)
 ;;16729000610
 ;;9002226.02101,"1149,16729000610 ",.02)
 ;;16729000610
 ;;9002226.02101,"1149,16729000612 ",.01)
 ;;16729000612
 ;;9002226.02101,"1149,16729000612 ",.02)
 ;;16729000612
 ;;9002226.02101,"1149,16729000615 ",.01)
 ;;16729000615
 ;;9002226.02101,"1149,16729000615 ",.02)
 ;;16729000615
 ;;9002226.02101,"1149,16729000617 ",.01)
 ;;16729000617
 ;;9002226.02101,"1149,16729000617 ",.02)
 ;;16729000617
 ;;9002226.02101,"1149,16729000710 ",.01)
 ;;16729000710
 ;;9002226.02101,"1149,16729000710 ",.02)
 ;;16729000710
 ;;9002226.02101,"1149,16729000712 ",.01)
 ;;16729000712
 ;;9002226.02101,"1149,16729000712 ",.02)
 ;;16729000712
 ;;9002226.02101,"1149,16729000715 ",.01)
 ;;16729000715
 ;;9002226.02101,"1149,16729000715 ",.02)
 ;;16729000715
 ;;9002226.02101,"1149,16729000717 ",.01)
 ;;16729000717
 ;;9002226.02101,"1149,16729000717 ",.02)
 ;;16729000717
 ;;9002226.02101,"1149,17236041801 ",.01)
 ;;17236041801
 ;;9002226.02101,"1149,17236041801 ",.02)
 ;;17236041801
 ;;9002226.02101,"1149,17236041810 ",.01)
 ;;17236041810
 ;;9002226.02101,"1149,17236041810 ",.02)
 ;;17236041810
 ;;9002226.02101,"1149,17236042001 ",.01)
 ;;17236042001
 ;;9002226.02101,"1149,17236042001 ",.02)
 ;;17236042001
 ;;9002226.02101,"1149,17236042010 ",.01)
 ;;17236042010
 ;;9002226.02101,"1149,17236042010 ",.02)
 ;;17236042010
 ;;9002226.02101,"1149,17236042101 ",.01)
 ;;17236042101
 ;;9002226.02101,"1149,17236042101 ",.02)
 ;;17236042101
 ;;9002226.02101,"1149,17236042110 ",.01)
 ;;17236042110
 ;;9002226.02101,"1149,17236042110 ",.02)
 ;;17236042110
 ;;9002226.02101,"1149,17856005302 ",.01)
 ;;17856005302
 ;;9002226.02101,"1149,17856005302 ",.02)
 ;;17856005302
 ;;9002226.02101,"1149,17856019902 ",.01)
 ;;17856019902
 ;;9002226.02101,"1149,17856019902 ",.02)
 ;;17856019902
 ;;9002226.02101,"1149,17856078902 ",.01)
 ;;17856078902
 ;;9002226.02101,"1149,17856078902 ",.02)
 ;;17856078902
 ;;9002226.02101,"1149,17856079302 ",.01)
 ;;17856079302
 ;;9002226.02101,"1149,17856079302 ",.02)
 ;;17856079302
 ;;9002226.02101,"1149,21695053430 ",.01)
 ;;21695053430
 ;;9002226.02101,"1149,21695053430 ",.02)
 ;;21695053430
 ;;9002226.02101,"1149,21695053530 ",.01)
 ;;21695053530
 ;;9002226.02101,"1149,21695053530 ",.02)
 ;;21695053530
 ;;9002226.02101,"1149,21695073230 ",.01)
 ;;21695073230
 ;;9002226.02101,"1149,21695073230 ",.02)
 ;;21695073230
 ;;9002226.02101,"1149,21695073260 ",.01)
 ;;21695073260
 ;;9002226.02101,"1149,21695073260 ",.02)
 ;;21695073260
 ;;9002226.02101,"1149,21695073930 ",.01)
 ;;21695073930
 ;;9002226.02101,"1149,21695073930 ",.02)
 ;;21695073930
 ;;9002226.02101,"1149,21695074130 ",.01)
 ;;21695074130
 ;;9002226.02101,"1149,21695074130 ",.02)
 ;;21695074130
 ;;9002226.02101,"1149,21695074190 ",.01)
 ;;21695074190
 ;;9002226.02101,"1149,21695074190 ",.02)
 ;;21695074190
 ;;9002226.02101,"1149,21695074230 ",.01)
 ;;21695074230
 ;;9002226.02101,"1149,21695074230 ",.02)
 ;;21695074230
 ;;9002226.02101,"1149,23490063200 ",.01)
 ;;23490063200
 ;;9002226.02101,"1149,23490063200 ",.02)
 ;;23490063200
 ;;9002226.02101,"1149,23490063203 ",.01)
 ;;23490063203
 ;;9002226.02101,"1149,23490063203 ",.02)
 ;;23490063203
 ;;9002226.02101,"1149,23490063205 ",.01)
 ;;23490063205
 ;;9002226.02101,"1149,23490063205 ",.02)
 ;;23490063205
 ;;9002226.02101,"1149,23490063206 ",.01)
 ;;23490063206
 ;;9002226.02101,"1149,23490063206 ",.02)
 ;;23490063206
 ;;9002226.02101,"1149,23490063209 ",.01)
 ;;23490063209
 ;;9002226.02101,"1149,23490063209 ",.02)
 ;;23490063209
 ;;9002226.02101,"1149,23490562601 ",.01)
 ;;23490562601
 ;;9002226.02101,"1149,23490562601 ",.02)
 ;;23490562601
 ;;9002226.02101,"1149,23490562602 ",.01)
 ;;23490562602
 ;;9002226.02101,"1149,23490562602 ",.02)
 ;;23490562602
 ;;9002226.02101,"1149,23490583802 ",.01)
 ;;23490583802
 ;;9002226.02101,"1149,23490583802 ",.02)
 ;;23490583802
 ;;9002226.02101,"1149,23490583806 ",.01)
 ;;23490583806
 ;;9002226.02101,"1149,23490583806 ",.02)
 ;;23490583806
 ;;9002226.02101,"1149,23490583809 ",.01)
 ;;23490583809
 ;;9002226.02101,"1149,23490583809 ",.02)
 ;;23490583809
 ;;9002226.02101,"1149,23490583900 ",.01)
 ;;23490583900
 ;;9002226.02101,"1149,23490583900 ",.02)
 ;;23490583900
 ;;9002226.02101,"1149,23490583901 ",.01)
 ;;23490583901
 ;;9002226.02101,"1149,23490583901 ",.02)
 ;;23490583901
 ;;9002226.02101,"1149,23490584001 ",.01)
 ;;23490584001
 ;;9002226.02101,"1149,23490584001 ",.02)
 ;;23490584001
 ;;9002226.02101,"1149,23490584002 ",.01)
 ;;23490584002
 ;;9002226.02101,"1149,23490584002 ",.02)
 ;;23490584002
 ;;9002226.02101,"1149,23490935303 ",.01)
 ;;23490935303
 ;;9002226.02101,"1149,23490935303 ",.02)
 ;;23490935303
 ;;9002226.02101,"1149,23490935306 ",.01)
 ;;23490935306
 ;;9002226.02101,"1149,23490935306 ",.02)
 ;;23490935306
 ;;9002226.02101,"1149,23490935309 ",.01)
 ;;23490935309
 ;;9002226.02101,"1149,23490935309 ",.02)
 ;;23490935309
 ;;9002226.02101,"1149,23490935403 ",.01)
 ;;23490935403
 ;;9002226.02101,"1149,23490935403 ",.02)
 ;;23490935403
 ;;9002226.02101,"1149,23490935406 ",.01)
 ;;23490935406