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

BUD2ZA11.m

Go to the documentation of this file.
  1. BUD2ZA11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 16, 2012;
  1. ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1149,00839610316 ",.02)
  1. ;;00839610316
  1. ;;9002226.02101,"1149,00839645806 ",.01)
  1. ;;00839645806
  1. ;;9002226.02101,"1149,00839645806 ",.02)
  1. ;;00839645806
  1. ;;9002226.02101,"1149,00839645816 ",.01)
  1. ;;00839645816
  1. ;;9002226.02101,"1149,00839645816 ",.02)
  1. ;;00839645816
  1. ;;9002226.02101,"1149,00839722806 ",.01)
  1. ;;00839722806
  1. ;;9002226.02101,"1149,00839722806 ",.02)
  1. ;;00839722806
  1. ;;9002226.02101,"1149,00839754606 ",.01)
  1. ;;00839754606
  1. ;;9002226.02101,"1149,00839754606 ",.02)
  1. ;;00839754606
  1. ;;9002226.02101,"1149,00839778705 ",.01)
  1. ;;00839778705
  1. ;;9002226.02101,"1149,00839778705 ",.02)
  1. ;;00839778705
  1. ;;9002226.02101,"1149,00839778712 ",.01)
  1. ;;00839778712
  1. ;;9002226.02101,"1149,00839778712 ",.02)
  1. ;;00839778712
  1. ;;9002226.02101,"1149,00855061030 ",.01)
  1. ;;00855061030
  1. ;;9002226.02101,"1149,00855061030 ",.02)
  1. ;;00855061030
  1. ;;9002226.02101,"1149,00855061130 ",.01)
  1. ;;00855061130
  1. ;;9002226.02101,"1149,00855061130 ",.02)
  1. ;;00855061130
  1. ;;9002226.02101,"1149,00879008201 ",.01)
  1. ;;00879008201
  1. ;;9002226.02101,"1149,00879008201 ",.02)
  1. ;;00879008201
  1. ;;9002226.02101,"1149,00879008210 ",.01)
  1. ;;00879008210
  1. ;;9002226.02101,"1149,00879008210 ",.02)
  1. ;;00879008210
  1. ;;9002226.02101,"1149,00879008251 ",.01)
  1. ;;00879008251
  1. ;;9002226.02101,"1149,00879008251 ",.02)
  1. ;;00879008251
  1. ;;9002226.02101,"1149,00892000101 ",.01)
  1. ;;00892000101
  1. ;;9002226.02101,"1149,00892000101 ",.02)
  1. ;;00892000101
  1. ;;9002226.02101,"1149,00892000105 ",.01)
  1. ;;00892000105
  1. ;;9002226.02101,"1149,00892000105 ",.02)
  1. ;;00892000105
  1. ;;9002226.02101,"1149,00892000110 ",.01)
  1. ;;00892000110
  1. ;;9002226.02101,"1149,00892000110 ",.02)
  1. ;;00892000110
  1. ;;9002226.02101,"1149,00904062860 ",.01)
  1. ;;00904062860
  1. ;;9002226.02101,"1149,00904062860 ",.02)
  1. ;;00904062860
  1. ;;9002226.02101,"1149,00904062880 ",.01)
  1. ;;00904062880
  1. ;;9002226.02101,"1149,00904062880 ",.02)
  1. ;;00904062880
  1. ;;9002226.02101,"1149,00904062970 ",.01)
  1. ;;00904062970
  1. ;;9002226.02101,"1149,00904062970 ",.02)
  1. ;;00904062970
  1. ;;9002226.02101,"1149,00904062980 ",.01)
  1. ;;00904062980
  1. ;;9002226.02101,"1149,00904062980 ",.02)
  1. ;;00904062980
  1. ;;9002226.02101,"1149,00904063160 ",.01)
  1. ;;00904063160
  1. ;;9002226.02101,"1149,00904063160 ",.02)
  1. ;;00904063160
  1. ;;9002226.02101,"1149,00904063180 ",.01)
  1. ;;00904063180
  1. ;;9002226.02101,"1149,00904063180 ",.02)
  1. ;;00904063180
  1. ;;9002226.02101,"1149,00904063360 ",.01)
  1. ;;00904063360
  1. ;;9002226.02101,"1149,00904063360 ",.02)
  1. ;;00904063360
  1. ;;9002226.02101,"1149,00904227060 ",.01)
  1. ;;00904227060
  1. ;;9002226.02101,"1149,00904227060 ",.02)
  1. ;;00904227060
  1. ;;9002226.02101,"1149,00904227080 ",.01)
  1. ;;00904227080
  1. ;;9002226.02101,"1149,00904227080 ",.02)
  1. ;;00904227080
  1. ;;9002226.02101,"1149,00904227160 ",.01)
  1. ;;00904227160
  1. ;;9002226.02101,"1149,00904227160 ",.02)
  1. ;;00904227160
  1. ;;9002226.02101,"1149,00904227172 ",.01)
  1. ;;00904227172
  1. ;;9002226.02101,"1149,00904227172 ",.02)
  1. ;;00904227172
  1. ;;9002226.02101,"1149,00904227180 ",.01)
  1. ;;00904227180
  1. ;;9002226.02101,"1149,00904227180 ",.02)
  1. ;;00904227180
  1. ;;9002226.02101,"1149,00904291660 ",.01)
  1. ;;00904291660
  1. ;;9002226.02101,"1149,00904291660 ",.02)
  1. ;;00904291660
  1. ;;9002226.02101,"1149,00904434260 ",.01)
  1. ;;00904434260
  1. ;;9002226.02101,"1149,00904434260 ",.02)
  1. ;;00904434260
  1. ;;9002226.02101,"1149,00904434270 ",.01)
  1. ;;00904434270
  1. ;;9002226.02101,"1149,00904434270 ",.02)
  1. ;;00904434270
  1. ;;9002226.02101,"1149,00904434760 ",.01)
  1. ;;00904434760
  1. ;;9002226.02101,"1149,00904434760 ",.02)
  1. ;;00904434760
  1. ;;9002226.02101,"1149,00904523442 ",.01)
  1. ;;00904523442
  1. ;;9002226.02101,"1149,00904523442 ",.02)
  1. ;;00904523442
  1. ;;9002226.02101,"1149,00904523452 ",.01)
  1. ;;00904523452
  1. ;;9002226.02101,"1149,00904523452 ",.02)
  1. ;;00904523452
  1. ;;9002226.02101,"1149,00904523542 ",.01)
  1. ;;00904523542
  1. ;;9002226.02101,"1149,00904523542 ",.02)
  1. ;;00904523542
  1. ;;9002226.02101,"1149,00904523552 ",.01)
  1. ;;00904523552
  1. ;;9002226.02101,"1149,00904523552 ",.02)
  1. ;;00904523552
  1. ;;9002226.02101,"1149,00904537940 ",.01)
  1. ;;00904537940
  1. ;;9002226.02101,"1149,00904537940 ",.02)
  1. ;;00904537940
  1. ;;9002226.02101,"1149,00904537952 ",.01)
  1. ;;00904537952
  1. ;;9002226.02101,"1149,00904537952 ",.02)
  1. ;;00904537952
  1. ;;9002226.02101,"1149,00904537960 ",.01)
  1. ;;00904537960
  1. ;;9002226.02101,"1149,00904537960 ",.02)
  1. ;;00904537960
  1. ;;9002226.02101,"1149,00904537961 ",.01)
  1. ;;00904537961
  1. ;;9002226.02101,"1149,00904537961 ",.02)
  1. ;;00904537961
  1. ;;9002226.02101,"1149,00904558152 ",.01)
  1. ;;00904558152
  1. ;;9002226.02101,"1149,00904558152 ",.02)
  1. ;;00904558152
  1. ;;9002226.02101,"1149,00904558161 ",.01)
  1. ;;00904558161
  1. ;;9002226.02101,"1149,00904558161 ",.02)
  1. ;;00904558161
  1. ;;9002226.02101,"1149,00904558252 ",.01)
  1. ;;00904558252
  1. ;;9002226.02101,"1149,00904558252 ",.02)
  1. ;;00904558252
  1. ;;9002226.02101,"1149,00904558261 ",.01)
  1. ;;00904558261
  1. ;;9002226.02101,"1149,00904558261 ",.02)
  1. ;;00904558261
  1. ;;9002226.02101,"1149,00904558352 ",.01)
  1. ;;00904558352
  1. ;;9002226.02101,"1149,00904558352 ",.02)
  1. ;;00904558352
  1. ;;9002226.02101,"1149,00904558361 ",.01)
  1. ;;00904558361
  1. ;;9002226.02101,"1149,00904558361 ",.02)
  1. ;;00904558361
  1. ;;9002226.02101,"1149,00904580061 ",.01)
  1. ;;00904580061
  1. ;;9002226.02101,"1149,00904580061 ",.02)
  1. ;;00904580061
  1. ;;9002226.02101,"1149,00904580161 ",.01)
  1. ;;00904580161
  1. ;;9002226.02101,"1149,00904580161 ",.02)
  1. ;;00904580161
  1. ;;9002226.02101,"1149,00904580261 ",.01)
  1. ;;00904580261
  1. ;;9002226.02101,"1149,00904580261 ",.02)
  1. ;;00904580261
  1. ;;9002226.02101,"1149,00904598840 ",.01)
  1. ;;00904598840
  1. ;;9002226.02101,"1149,00904598840 ",.02)
  1. ;;00904598840
  1. ;;9002226.02101,"1149,00904598852 ",.01)
  1. ;;00904598852
  1. ;;9002226.02101,"1149,00904598852 ",.02)
  1. ;;00904598852
  1. ;;9002226.02101,"1149,00904598861 ",.01)
  1. ;;00904598861
  1. ;;9002226.02101,"1149,00904598861 ",.02)
  1. ;;00904598861
  1. ;;9002226.02101,"1149,00904773240 ",.01)
  1. ;;00904773240
  1. ;;9002226.02101,"1149,00904773240 ",.02)
  1. ;;00904773240
  1. ;;9002226.02101,"1149,00904773252 ",.01)
  1. ;;00904773252
  1. ;;9002226.02101,"1149,00904773252 ",.02)
  1. ;;00904773252
  1. ;;9002226.02101,"1149,06059800701 ",.01)
  1. ;;06059800701
  1. ;;9002226.02101,"1149,06059800701 ",.02)
  1. ;;06059800701
  1. ;;9002226.02101,"1149,10135018601 ",.01)
  1. ;;10135018601
  1. ;;9002226.02101,"1149,10135018601 ",.02)
  1. ;;10135018601
  1. ;;9002226.02101,"1149,10135018610 ",.01)
  1. ;;10135018610
  1. ;;9002226.02101,"1149,10135018610 ",.02)
  1. ;;10135018610
  1. ;;9002226.02101,"1149,10135018801 ",.01)
  1. ;;10135018801
  1. ;;9002226.02101,"1149,10135018801 ",.02)
  1. ;;10135018801
  1. ;;9002226.02101,"1149,10135018901 ",.01)
  1. ;;10135018901
  1. ;;9002226.02101,"1149,10135018901 ",.02)
  1. ;;10135018901
  1. ;;9002226.02101,"1149,10135019199 ",.01)
  1. ;;10135019199
  1. ;;9002226.02101,"1149,10135019199 ",.02)
  1. ;;10135019199
  1. ;;9002226.02101,"1149,10135019201 ",.01)
  1. ;;10135019201
  1. ;;9002226.02101,"1149,10135019201 ",.02)
  1. ;;10135019201
  1. ;;9002226.02101,"1149,10135019210 ",.01)
  1. ;;10135019210
  1. ;;9002226.02101,"1149,10135019210 ",.02)
  1. ;;10135019210
  1. ;;9002226.02101,"1149,10135050805 ",.01)
  1. ;;10135050805
  1. ;;9002226.02101,"1149,10135050805 ",.02)
  1. ;;10135050805
  1. ;;9002226.02101,"1149,10135050890 ",.01)
  1. ;;10135050890
  1. ;;9002226.02101,"1149,10135050890 ",.02)
  1. ;;10135050890
  1. ;;9002226.02101,"1149,10135050905 ",.01)
  1. ;;10135050905
  1. ;;9002226.02101,"1149,10135050905 ",.02)
  1. ;;10135050905
  1. ;;9002226.02101,"1149,10135050930 ",.01)
  1. ;;10135050930
  1. ;;9002226.02101,"1149,10135050930 ",.02)
  1. ;;10135050930
  1. ;;9002226.02101,"1149,10135050990 ",.01)
  1. ;;10135050990
  1. ;;9002226.02101,"1149,10135050990 ",.02)
  1. ;;10135050990
  1. ;;9002226.02101,"1149,10135051005 ",.01)
  1. ;;10135051005
  1. ;;9002226.02101,"1149,10135051005 ",.02)
  1. ;;10135051005
  1. ;;9002226.02101,"1149,10135051030 ",.01)
  1. ;;10135051030
  1. ;;9002226.02101,"1149,10135051030 ",.02)
  1. ;;10135051030
  1. ;;9002226.02101,"1149,10135051090 ",.01)
  1. ;;10135051090
  1. ;;9002226.02101,"1149,10135051090 ",.02)
  1. ;;10135051090
  1. ;;9002226.02101,"1149,10135051105 ",.01)
  1. ;;10135051105
  1. ;;9002226.02101,"1149,10135051105 ",.02)
  1. ;;10135051105
  1. ;;9002226.02101,"1149,10135051130 ",.01)
  1. ;;10135051130
  1. ;;9002226.02101,"1149,10135051130 ",.02)
  1. ;;10135051130
  1. ;;9002226.02101,"1149,10135051190 ",.01)
  1. ;;10135051190
  1. ;;9002226.02101,"1149,10135051190 ",.02)
  1. ;;10135051190
  1. ;;9002226.02101,"1149,10135051205 ",.01)
  1. ;;10135051205
  1. ;;9002226.02101,"1149,10135051205 ",.02)
  1. ;;10135051205
  1. ;;9002226.02101,"1149,10135051230 ",.01)
  1. ;;10135051230
  1. ;;9002226.02101,"1149,10135051230 ",.02)
  1. ;;10135051230
  1. ;;9002226.02101,"1149,10135051290 ",.01)
  1. ;;10135051290
  1. ;;9002226.02101,"1149,10135051290 ",.02)
  1. ;;10135051290
  1. ;;9002226.02101,"1149,10267005300 ",.01)
  1. ;;10267005300
  1. ;;9002226.02101,"1149,10267005300 ",.02)
  1. ;;10267005300
  1. ;;9002226.02101,"1149,10432003801 ",.01)
  1. ;;10432003801
  1. ;;9002226.02101,"1149,10432003801 ",.02)
  1. ;;10432003801
  1. ;;9002226.02101,"1149,10432013301 ",.01)
  1. ;;10432013301
  1. ;;9002226.02101,"1149,10432013301 ",.02)
  1. ;;10432013301
  1. ;;9002226.02101,"1149,10432030201 ",.01)
  1. ;;10432030201
  1. ;;9002226.02101,"1149,10432030201 ",.02)
  1. ;;10432030201
  1. ;;9002226.02101,"1149,10544015230 ",.01)
  1. ;;10544015230
  1. ;;9002226.02101,"1149,10544015230 ",.02)
  1. ;;10544015230
  1. ;;9002226.02101,"1149,11014050520 ",.01)
  1. ;;11014050520
  1. ;;9002226.02101,"1149,11014050520 ",.02)
  1. ;;11014050520
  1. ;;9002226.02101,"1149,11383012323 ",.01)
  1. ;;11383012323
  1. ;;9002226.02101,"1149,11383012323 ",.02)
  1. ;;11383012323
  1. ;;9002226.02101,"1149,11383014711 ",.01)
  1. ;;11383014711
  1. ;;9002226.02101,"1149,11383014711 ",.02)
  1. ;;11383014711
  1. ;;9002226.02101,"1149,11694074201 ",.01)
  1. ;;11694074201
  1. ;;9002226.02101,"1149,11694074201 ",.02)
  1. ;;11694074201
  1. ;;9002226.02101,"1149,11694086101 ",.01)
  1. ;;11694086101
  1. ;;9002226.02101,"1149,11694086101 ",.02)
  1. ;;11694086101
  1. ;;9002226.02101,"1149,11694086104 ",.01)
  1. ;;11694086104
  1. ;;9002226.02101,"1149,11694086104 ",.02)
  1. ;;11694086104
  1. ;;9002226.02101,"1149,11694088101 ",.01)
  1. ;;11694088101
  1. ;;9002226.02101,"1149,11694088101 ",.02)
  1. ;;11694088101
  1. ;;9002226.02101,"1149,11819011395 ",.01)
  1. ;;11819011395
  1. ;;9002226.02101,"1149,11819011395 ",.02)
  1. ;;11819011395
  1. ;;9002226.02101,"1149,11819013030 ",.01)
  1. ;;11819013030
  1. ;;9002226.02101,"1149,11819013030 ",.02)
  1. ;;11819013030
  1. ;;9002226.02101,"1149,11819013530 ",.01)
  1. ;;11819013530
  1. ;;9002226.02101,"1149,11819013530 ",.02)
  1. ;;11819013530
  1. ;;9002226.02101,"1149,11819013590 ",.01)
  1. ;;11819013590
  1. ;;9002226.02101,"1149,11819013590 ",.02)
  1. ;;11819013590
  1. ;;9002226.02101,"1149,11819025630 ",.01)
  1. ;;11819025630
  1. ;;9002226.02101,"1149,11819025630 ",.02)
  1. ;;11819025630
  1. ;;9002226.02101,"1149,11819025645 ",.01)
  1. ;;11819025645
  1. ;;9002226.02101,"1149,11819025645 ",.02)
  1. ;;11819025645
  1. ;;9002226.02101,"1149,11819025690 ",.01)
  1. ;;11819025690
  1. ;;9002226.02101,"1149,11819025690 ",.02)
  1. ;;11819025690
  1. ;;9002226.02101,"1149,11845005781 ",.01)
  1. ;;11845005781
  1. ;;9002226.02101,"1149,11845005781 ",.02)
  1. ;;11845005781
  1. ;;9002226.02101,"1149,11845008825 ",.01)
  1. ;;11845008825
  1. ;;9002226.02101,"1149,11845008825 ",.02)
  1. ;;11845008825
  1. ;;9002226.02101,"1149,11845009401 ",.01)
  1. ;;11845009401
  1. ;;9002226.02101,"1149,11845009401 ",.02)
  1. ;;11845009401
  1. ;;9002226.02101,"1149,11845057701 ",.01)
  1. ;;11845057701
  1. ;;9002226.02101,"1149,11845057701 ",.02)
  1. ;;11845057701
  1. ;;9002226.02101,"1149,11845057801 ",.01)
  1. ;;11845057801
  1. ;;9002226.02101,"1149,11845057801 ",.02)
  1. ;;11845057801
  1. ;;9002226.02101,"1149,11845074201 ",.01)
  1. ;;11845074201
  1. ;;9002226.02101,"1149,11845074201 ",.02)
  1. ;;11845074201
  1. ;;9002226.02101,"1149,11845094101 ",.01)
  1. ;;11845094101
  1. ;;9002226.02101,"1149,11845094101 ",.02)
  1. ;;11845094101
  1. ;;9002226.02101,"1149,11845095201 ",.01)
  1. ;;11845095201
  1. ;;9002226.02101,"1149,11845095201 ",.02)
  1. ;;11845095201
  1. ;;9002226.02101,"1149,11845107501 ",.01)
  1. ;;11845107501
  1. ;;9002226.02101,"1149,11845107501 ",.02)
  1. ;;11845107501
  1. ;;9002226.02101,"1149,12280010860 ",.01)
  1. ;;12280010860
  1. ;;9002226.02101,"1149,12280010860 ",.02)
  1. ;;12280010860
  1. ;;9002226.02101,"1149,12634033001 ",.01)
  1. ;;12634033001
  1. ;;9002226.02101,"1149,12634033001 ",.02)
  1. ;;12634033001
  1. ;;9002226.02101,"1149,12634033210 ",.01)
  1. ;;12634033210
  1. ;;9002226.02101,"1149,12634033210 ",.02)
  1. ;;12634033210
  1. ;;9002226.02101,"1149,12634033301 ",.01)
  1. ;;12634033301
  1. ;;9002226.02101,"1149,12634033301 ",.02)
  1. ;;12634033301
  1. ;;9002226.02101,"1149,12634071501 ",.01)
  1. ;;12634071501
  1. ;;9002226.02101,"1149,12634071501 ",.02)
  1. ;;12634071501
  1. ;;9002226.02101,"1149,12634071505 ",.01)
  1. ;;12634071505
  1. ;;9002226.02101,"1149,12634071505 ",.02)
  1. ;;12634071505
  1. ;;9002226.02101,"1149,12634082390 ",.01)
  1. ;;12634082390
  1. ;;9002226.02101,"1149,12634082390 ",.02)
  1. ;;12634082390
  1. ;;9002226.02101,"1149,13411016703 ",.01)
  1. ;;13411016703
  1. ;;9002226.02101,"1149,13411016703 ",.02)
  1. ;;13411016703
  1. ;;9002226.02101,"1149,13411016710 ",.01)
  1. ;;13411016710
  1. ;;9002226.02101,"1149,13411016710 ",.02)
  1. ;;13411016710
  1. ;;9002226.02101,"1149,13411054403 ",.01)
  1. ;;13411054403
  1. ;;9002226.02101,"1149,13411054403 ",.02)
  1. ;;13411054403
  1. ;;9002226.02101,"1149,13411054503 ",.01)
  1. ;;13411054503
  1. ;;9002226.02101,"1149,13411054503 ",.02)
  1. ;;13411054503
  1. ;;9002226.02101,"1149,13411054603 ",.01)
  1. ;;13411054603
  1. ;;9002226.02101,"1149,13411054603 ",.02)
  1. ;;13411054603
  1. ;;9002226.02101,"1149,14508011513 ",.01)
  1. ;;14508011513
  1. ;;9002226.02101,"1149,14508011513 ",.02)
  1. ;;14508011513
  1. ;;9002226.02101,"1149,14508011518 ",.01)
  1. ;;14508011518
  1. ;;9002226.02101,"1149,14508011518 ",.02)
  1. ;;14508011518