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

BUD2ZA20.m

Go to the documentation of this file.
  1. BUD2ZA20 ;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,58016092224 ",.01)
  1. ;;58016092224
  1. ;;9002226.02101,"1149,58016092224 ",.02)
  1. ;;58016092224
  1. ;;9002226.02101,"1149,58016092225 ",.01)
  1. ;;58016092225
  1. ;;9002226.02101,"1149,58016092225 ",.02)
  1. ;;58016092225
  1. ;;9002226.02101,"1149,58016092226 ",.01)
  1. ;;58016092226
  1. ;;9002226.02101,"1149,58016092226 ",.02)
  1. ;;58016092226
  1. ;;9002226.02101,"1149,58016092227 ",.01)
  1. ;;58016092227
  1. ;;9002226.02101,"1149,58016092227 ",.02)
  1. ;;58016092227
  1. ;;9002226.02101,"1149,58016092228 ",.01)
  1. ;;58016092228
  1. ;;9002226.02101,"1149,58016092228 ",.02)
  1. ;;58016092228
  1. ;;9002226.02101,"1149,58016092230 ",.01)
  1. ;;58016092230
  1. ;;9002226.02101,"1149,58016092230 ",.02)
  1. ;;58016092230
  1. ;;9002226.02101,"1149,58016092232 ",.01)
  1. ;;58016092232
  1. ;;9002226.02101,"1149,58016092232 ",.02)
  1. ;;58016092232
  1. ;;9002226.02101,"1149,58016092235 ",.01)
  1. ;;58016092235
  1. ;;9002226.02101,"1149,58016092235 ",.02)
  1. ;;58016092235
  1. ;;9002226.02101,"1149,58016092236 ",.01)
  1. ;;58016092236
  1. ;;9002226.02101,"1149,58016092236 ",.02)
  1. ;;58016092236
  1. ;;9002226.02101,"1149,58016092240 ",.01)
  1. ;;58016092240
  1. ;;9002226.02101,"1149,58016092240 ",.02)
  1. ;;58016092240
  1. ;;9002226.02101,"1149,58016092242 ",.01)
  1. ;;58016092242
  1. ;;9002226.02101,"1149,58016092242 ",.02)
  1. ;;58016092242
  1. ;;9002226.02101,"1149,58016092244 ",.01)
  1. ;;58016092244
  1. ;;9002226.02101,"1149,58016092244 ",.02)
  1. ;;58016092244
  1. ;;9002226.02101,"1149,58016092245 ",.01)
  1. ;;58016092245
  1. ;;9002226.02101,"1149,58016092245 ",.02)
  1. ;;58016092245
  1. ;;9002226.02101,"1149,58016092248 ",.01)
  1. ;;58016092248
  1. ;;9002226.02101,"1149,58016092248 ",.02)
  1. ;;58016092248
  1. ;;9002226.02101,"1149,58016092256 ",.01)
  1. ;;58016092256
  1. ;;9002226.02101,"1149,58016092256 ",.02)
  1. ;;58016092256
  1. ;;9002226.02101,"1149,58016092260 ",.01)
  1. ;;58016092260
  1. ;;9002226.02101,"1149,58016092260 ",.02)
  1. ;;58016092260
  1. ;;9002226.02101,"1149,58016092267 ",.01)
  1. ;;58016092267
  1. ;;9002226.02101,"1149,58016092267 ",.02)
  1. ;;58016092267
  1. ;;9002226.02101,"1149,58016092269 ",.01)
  1. ;;58016092269
  1. ;;9002226.02101,"1149,58016092269 ",.02)
  1. ;;58016092269
  1. ;;9002226.02101,"1149,58016092270 ",.01)
  1. ;;58016092270
  1. ;;9002226.02101,"1149,58016092270 ",.02)
  1. ;;58016092270
  1. ;;9002226.02101,"1149,58016092271 ",.01)
  1. ;;58016092271
  1. ;;9002226.02101,"1149,58016092271 ",.02)
  1. ;;58016092271
  1. ;;9002226.02101,"1149,58016092272 ",.01)
  1. ;;58016092272
  1. ;;9002226.02101,"1149,58016092272 ",.02)
  1. ;;58016092272
  1. ;;9002226.02101,"1149,58016092273 ",.01)
  1. ;;58016092273
  1. ;;9002226.02101,"1149,58016092273 ",.02)
  1. ;;58016092273
  1. ;;9002226.02101,"1149,58016092275 ",.01)
  1. ;;58016092275
  1. ;;9002226.02101,"1149,58016092275 ",.02)
  1. ;;58016092275
  1. ;;9002226.02101,"1149,58016092276 ",.01)
  1. ;;58016092276
  1. ;;9002226.02101,"1149,58016092276 ",.02)
  1. ;;58016092276
  1. ;;9002226.02101,"1149,58016092277 ",.01)
  1. ;;58016092277
  1. ;;9002226.02101,"1149,58016092277 ",.02)
  1. ;;58016092277
  1. ;;9002226.02101,"1149,58016092279 ",.01)
  1. ;;58016092279
  1. ;;9002226.02101,"1149,58016092279 ",.02)
  1. ;;58016092279
  1. ;;9002226.02101,"1149,58016092280 ",.01)
  1. ;;58016092280
  1. ;;9002226.02101,"1149,58016092280 ",.02)
  1. ;;58016092280
  1. ;;9002226.02101,"1149,58016092281 ",.01)
  1. ;;58016092281
  1. ;;9002226.02101,"1149,58016092281 ",.02)
  1. ;;58016092281
  1. ;;9002226.02101,"1149,58016092282 ",.01)
  1. ;;58016092282
  1. ;;9002226.02101,"1149,58016092282 ",.02)
  1. ;;58016092282
  1. ;;9002226.02101,"1149,58016092283 ",.01)
  1. ;;58016092283
  1. ;;9002226.02101,"1149,58016092283 ",.02)
  1. ;;58016092283
  1. ;;9002226.02101,"1149,58016092284 ",.01)
  1. ;;58016092284
  1. ;;9002226.02101,"1149,58016092284 ",.02)
  1. ;;58016092284
  1. ;;9002226.02101,"1149,58016092287 ",.01)
  1. ;;58016092287
  1. ;;9002226.02101,"1149,58016092287 ",.02)
  1. ;;58016092287
  1. ;;9002226.02101,"1149,58016092289 ",.01)
  1. ;;58016092289
  1. ;;9002226.02101,"1149,58016092289 ",.02)
  1. ;;58016092289
  1. ;;9002226.02101,"1149,58016092290 ",.01)
  1. ;;58016092290
  1. ;;9002226.02101,"1149,58016092290 ",.02)
  1. ;;58016092290
  1. ;;9002226.02101,"1149,58016092291 ",.01)
  1. ;;58016092291
  1. ;;9002226.02101,"1149,58016092291 ",.02)
  1. ;;58016092291
  1. ;;9002226.02101,"1149,58016092292 ",.01)
  1. ;;58016092292
  1. ;;9002226.02101,"1149,58016092292 ",.02)
  1. ;;58016092292
  1. ;;9002226.02101,"1149,58016092293 ",.01)
  1. ;;58016092293
  1. ;;9002226.02101,"1149,58016092293 ",.02)
  1. ;;58016092293
  1. ;;9002226.02101,"1149,58016092296 ",.01)
  1. ;;58016092296
  1. ;;9002226.02101,"1149,58016092296 ",.02)
  1. ;;58016092296
  1. ;;9002226.02101,"1149,58016092297 ",.01)
  1. ;;58016092297
  1. ;;9002226.02101,"1149,58016092297 ",.02)
  1. ;;58016092297
  1. ;;9002226.02101,"1149,58016092298 ",.01)
  1. ;;58016092298
  1. ;;9002226.02101,"1149,58016092298 ",.02)
  1. ;;58016092298
  1. ;;9002226.02101,"1149,58016092299 ",.01)
  1. ;;58016092299
  1. ;;9002226.02101,"1149,58016092299 ",.02)
  1. ;;58016092299
  1. ;;9002226.02101,"1149,58016097900 ",.01)
  1. ;;58016097900
  1. ;;9002226.02101,"1149,58016097900 ",.02)
  1. ;;58016097900
  1. ;;9002226.02101,"1149,58016097901 ",.01)
  1. ;;58016097901
  1. ;;9002226.02101,"1149,58016097901 ",.02)
  1. ;;58016097901
  1. ;;9002226.02101,"1149,58016097902 ",.01)
  1. ;;58016097902
  1. ;;9002226.02101,"1149,58016097902 ",.02)
  1. ;;58016097902
  1. ;;9002226.02101,"1149,58016097903 ",.01)
  1. ;;58016097903
  1. ;;9002226.02101,"1149,58016097903 ",.02)
  1. ;;58016097903
  1. ;;9002226.02101,"1149,58016097904 ",.01)
  1. ;;58016097904
  1. ;;9002226.02101,"1149,58016097904 ",.02)
  1. ;;58016097904
  1. ;;9002226.02101,"1149,58016097905 ",.01)
  1. ;;58016097905
  1. ;;9002226.02101,"1149,58016097905 ",.02)
  1. ;;58016097905
  1. ;;9002226.02101,"1149,58016097906 ",.01)
  1. ;;58016097906
  1. ;;9002226.02101,"1149,58016097906 ",.02)
  1. ;;58016097906
  1. ;;9002226.02101,"1149,58016097907 ",.01)
  1. ;;58016097907
  1. ;;9002226.02101,"1149,58016097907 ",.02)
  1. ;;58016097907
  1. ;;9002226.02101,"1149,58016097908 ",.01)
  1. ;;58016097908
  1. ;;9002226.02101,"1149,58016097908 ",.02)
  1. ;;58016097908
  1. ;;9002226.02101,"1149,58016097909 ",.01)
  1. ;;58016097909
  1. ;;9002226.02101,"1149,58016097909 ",.02)
  1. ;;58016097909
  1. ;;9002226.02101,"1149,58016097910 ",.01)
  1. ;;58016097910
  1. ;;9002226.02101,"1149,58016097910 ",.02)
  1. ;;58016097910
  1. ;;9002226.02101,"1149,58016097912 ",.01)
  1. ;;58016097912
  1. ;;9002226.02101,"1149,58016097912 ",.02)
  1. ;;58016097912
  1. ;;9002226.02101,"1149,58016097914 ",.01)
  1. ;;58016097914
  1. ;;9002226.02101,"1149,58016097914 ",.02)
  1. ;;58016097914
  1. ;;9002226.02101,"1149,58016097915 ",.01)
  1. ;;58016097915
  1. ;;9002226.02101,"1149,58016097915 ",.02)
  1. ;;58016097915
  1. ;;9002226.02101,"1149,58016097916 ",.01)
  1. ;;58016097916
  1. ;;9002226.02101,"1149,58016097916 ",.02)
  1. ;;58016097916
  1. ;;9002226.02101,"1149,58016097918 ",.01)
  1. ;;58016097918
  1. ;;9002226.02101,"1149,58016097918 ",.02)
  1. ;;58016097918
  1. ;;9002226.02101,"1149,58016097920 ",.01)
  1. ;;58016097920
  1. ;;9002226.02101,"1149,58016097920 ",.02)
  1. ;;58016097920
  1. ;;9002226.02101,"1149,58016097921 ",.01)
  1. ;;58016097921
  1. ;;9002226.02101,"1149,58016097921 ",.02)
  1. ;;58016097921
  1. ;;9002226.02101,"1149,58016097924 ",.01)
  1. ;;58016097924
  1. ;;9002226.02101,"1149,58016097924 ",.02)
  1. ;;58016097924
  1. ;;9002226.02101,"1149,58016097925 ",.01)
  1. ;;58016097925
  1. ;;9002226.02101,"1149,58016097925 ",.02)
  1. ;;58016097925
  1. ;;9002226.02101,"1149,58016097926 ",.01)
  1. ;;58016097926
  1. ;;9002226.02101,"1149,58016097926 ",.02)
  1. ;;58016097926
  1. ;;9002226.02101,"1149,58016097928 ",.01)
  1. ;;58016097928
  1. ;;9002226.02101,"1149,58016097928 ",.02)
  1. ;;58016097928
  1. ;;9002226.02101,"1149,58016097930 ",.01)
  1. ;;58016097930
  1. ;;9002226.02101,"1149,58016097930 ",.02)
  1. ;;58016097930
  1. ;;9002226.02101,"1149,58016097932 ",.01)
  1. ;;58016097932
  1. ;;9002226.02101,"1149,58016097932 ",.02)
  1. ;;58016097932
  1. ;;9002226.02101,"1149,58016097935 ",.01)
  1. ;;58016097935
  1. ;;9002226.02101,"1149,58016097935 ",.02)
  1. ;;58016097935
  1. ;;9002226.02101,"1149,58016097936 ",.01)
  1. ;;58016097936
  1. ;;9002226.02101,"1149,58016097936 ",.02)
  1. ;;58016097936
  1. ;;9002226.02101,"1149,58016097940 ",.01)
  1. ;;58016097940
  1. ;;9002226.02101,"1149,58016097940 ",.02)
  1. ;;58016097940
  1. ;;9002226.02101,"1149,58016097942 ",.01)
  1. ;;58016097942
  1. ;;9002226.02101,"1149,58016097942 ",.02)
  1. ;;58016097942
  1. ;;9002226.02101,"1149,58016097944 ",.01)
  1. ;;58016097944
  1. ;;9002226.02101,"1149,58016097944 ",.02)
  1. ;;58016097944
  1. ;;9002226.02101,"1149,58016097945 ",.01)
  1. ;;58016097945
  1. ;;9002226.02101,"1149,58016097945 ",.02)
  1. ;;58016097945
  1. ;;9002226.02101,"1149,58016097948 ",.01)
  1. ;;58016097948
  1. ;;9002226.02101,"1149,58016097948 ",.02)
  1. ;;58016097948
  1. ;;9002226.02101,"1149,58016097950 ",.01)
  1. ;;58016097950
  1. ;;9002226.02101,"1149,58016097950 ",.02)
  1. ;;58016097950
  1. ;;9002226.02101,"1149,58016097956 ",.01)
  1. ;;58016097956
  1. ;;9002226.02101,"1149,58016097956 ",.02)
  1. ;;58016097956
  1. ;;9002226.02101,"1149,58016097960 ",.01)
  1. ;;58016097960
  1. ;;9002226.02101,"1149,58016097960 ",.02)
  1. ;;58016097960
  1. ;;9002226.02101,"1149,58016097967 ",.01)
  1. ;;58016097967
  1. ;;9002226.02101,"1149,58016097967 ",.02)
  1. ;;58016097967
  1. ;;9002226.02101,"1149,58016097969 ",.01)
  1. ;;58016097969
  1. ;;9002226.02101,"1149,58016097969 ",.02)
  1. ;;58016097969
  1. ;;9002226.02101,"1149,58016097970 ",.01)
  1. ;;58016097970
  1. ;;9002226.02101,"1149,58016097970 ",.02)
  1. ;;58016097970
  1. ;;9002226.02101,"1149,58016097971 ",.01)
  1. ;;58016097971
  1. ;;9002226.02101,"1149,58016097971 ",.02)
  1. ;;58016097971
  1. ;;9002226.02101,"1149,58016097972 ",.01)
  1. ;;58016097972
  1. ;;9002226.02101,"1149,58016097972 ",.02)
  1. ;;58016097972
  1. ;;9002226.02101,"1149,58016097973 ",.01)
  1. ;;58016097973
  1. ;;9002226.02101,"1149,58016097973 ",.02)
  1. ;;58016097973
  1. ;;9002226.02101,"1149,58016097975 ",.01)
  1. ;;58016097975
  1. ;;9002226.02101,"1149,58016097975 ",.02)
  1. ;;58016097975
  1. ;;9002226.02101,"1149,58016097976 ",.01)
  1. ;;58016097976
  1. ;;9002226.02101,"1149,58016097976 ",.02)
  1. ;;58016097976
  1. ;;9002226.02101,"1149,58016097977 ",.01)
  1. ;;58016097977
  1. ;;9002226.02101,"1149,58016097977 ",.02)
  1. ;;58016097977
  1. ;;9002226.02101,"1149,58016097979 ",.01)
  1. ;;58016097979
  1. ;;9002226.02101,"1149,58016097979 ",.02)
  1. ;;58016097979
  1. ;;9002226.02101,"1149,58016097980 ",.01)
  1. ;;58016097980
  1. ;;9002226.02101,"1149,58016097980 ",.02)
  1. ;;58016097980
  1. ;;9002226.02101,"1149,58016097981 ",.01)
  1. ;;58016097981
  1. ;;9002226.02101,"1149,58016097981 ",.02)
  1. ;;58016097981
  1. ;;9002226.02101,"1149,58016097982 ",.01)
  1. ;;58016097982
  1. ;;9002226.02101,"1149,58016097982 ",.02)
  1. ;;58016097982
  1. ;;9002226.02101,"1149,58016097983 ",.01)
  1. ;;58016097983
  1. ;;9002226.02101,"1149,58016097983 ",.02)
  1. ;;58016097983
  1. ;;9002226.02101,"1149,58016097984 ",.01)
  1. ;;58016097984
  1. ;;9002226.02101,"1149,58016097984 ",.02)
  1. ;;58016097984
  1. ;;9002226.02101,"1149,58016097987 ",.01)
  1. ;;58016097987
  1. ;;9002226.02101,"1149,58016097987 ",.02)
  1. ;;58016097987
  1. ;;9002226.02101,"1149,58016097989 ",.01)
  1. ;;58016097989
  1. ;;9002226.02101,"1149,58016097989 ",.02)
  1. ;;58016097989
  1. ;;9002226.02101,"1149,58016097990 ",.01)
  1. ;;58016097990
  1. ;;9002226.02101,"1149,58016097990 ",.02)
  1. ;;58016097990
  1. ;;9002226.02101,"1149,58016097991 ",.01)
  1. ;;58016097991
  1. ;;9002226.02101,"1149,58016097991 ",.02)
  1. ;;58016097991
  1. ;;9002226.02101,"1149,58016097992 ",.01)
  1. ;;58016097992
  1. ;;9002226.02101,"1149,58016097992 ",.02)
  1. ;;58016097992
  1. ;;9002226.02101,"1149,58016097993 ",.01)
  1. ;;58016097993
  1. ;;9002226.02101,"1149,58016097993 ",.02)
  1. ;;58016097993
  1. ;;9002226.02101,"1149,58016097996 ",.01)
  1. ;;58016097996
  1. ;;9002226.02101,"1149,58016097996 ",.02)
  1. ;;58016097996
  1. ;;9002226.02101,"1149,58016097997 ",.01)
  1. ;;58016097997
  1. ;;9002226.02101,"1149,58016097997 ",.02)
  1. ;;58016097997
  1. ;;9002226.02101,"1149,58016097998 ",.01)
  1. ;;58016097998
  1. ;;9002226.02101,"1149,58016097998 ",.02)
  1. ;;58016097998
  1. ;;9002226.02101,"1149,58016097999 ",.01)
  1. ;;58016097999
  1. ;;9002226.02101,"1149,58016097999 ",.02)
  1. ;;58016097999
  1. ;;9002226.02101,"1149,58056038106 ",.01)
  1. ;;58056038106
  1. ;;9002226.02101,"1149,58056038106 ",.02)
  1. ;;58056038106
  1. ;;9002226.02101,"1149,58056038250 ",.01)
  1. ;;58056038250
  1. ;;9002226.02101,"1149,58056038250 ",.02)
  1. ;;58056038250
  1. ;;9002226.02101,"1149,58864071060 ",.01)
  1. ;;58864071060
  1. ;;9002226.02101,"1149,58864071060 ",.02)
  1. ;;58864071060
  1. ;;9002226.02101,"1149,58864078030 ",.01)
  1. ;;58864078030
  1. ;;9002226.02101,"1149,58864078030 ",.02)
  1. ;;58864078030
  1. ;;9002226.02101,"1149,58864078060 ",.01)
  1. ;;58864078060
  1. ;;9002226.02101,"1149,58864078060 ",.02)
  1. ;;58864078060
  1. ;;9002226.02101,"1149,58864078130 ",.01)
  1. ;;58864078130
  1. ;;9002226.02101,"1149,58864078130 ",.02)
  1. ;;58864078130
  1. ;;9002226.02101,"1149,59591001768 ",.01)
  1. ;;59591001768
  1. ;;9002226.02101,"1149,59591001768 ",.02)
  1. ;;59591001768
  1. ;;9002226.02101,"1149,59630062899 ",.01)
  1. ;;59630062899
  1. ;;9002226.02101,"1149,59630062899 ",.02)
  1. ;;59630062899
  1. ;;9002226.02101,"1149,59762026001 ",.01)
  1. ;;59762026001
  1. ;;9002226.02101,"1149,59762026001 ",.02)
  1. ;;59762026001
  1. ;;9002226.02101,"1149,59762026002 ",.01)
  1. ;;59762026002
  1. ;;9002226.02101,"1149,59762026002 ",.02)
  1. ;;59762026002
  1. ;;9002226.02101,"1149,59762026003 ",.01)
  1. ;;59762026003
  1. ;;9002226.02101,"1149,59762026003 ",.02)
  1. ;;59762026003
  1. ;;9002226.02101,"1149,59762045001 ",.01)
  1. ;;59762045001
  1. ;;9002226.02101,"1149,59762045001 ",.02)
  1. ;;59762045001
  1. ;;9002226.02101,"1149,59772558501 ",.01)
  1. ;;59772558501
  1. ;;9002226.02101,"1149,59772558501 ",.02)
  1. ;;59772558501
  1. ;;9002226.02101,"1149,59772558502 ",.01)
  1. ;;59772558502
  1. ;;9002226.02101,"1149,59772558502 ",.02)
  1. ;;59772558502
  1. ;;9002226.02101,"1149,59772558520 ",.01)
  1. ;;59772558520
  1. ;;9002226.02101,"1149,59772558520 ",.02)
  1. ;;59772558520
  1. ;;9002226.02101,"1149,59772558901 ",.01)
  1. ;;59772558901
  1. ;;9002226.02101,"1149,59772558901 ",.02)
  1. ;;59772558901
  1. ;;9002226.02101,"1149,59772558902 ",.01)
  1. ;;59772558902