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

BUD2ZD7.m

Go to the documentation of this file.
  1. BUD2ZD7 ;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,"1327,49856002709 ",.02)
  1. ;;49856002709
  1. ;;9002226.02101,"1327,49856025301 ",.01)
  1. ;;49856025301
  1. ;;9002226.02101,"1327,49856025301 ",.02)
  1. ;;49856025301
  1. ;;9002226.02101,"1327,49856025302 ",.01)
  1. ;;49856025302
  1. ;;9002226.02101,"1327,49856025302 ",.02)
  1. ;;49856025302
  1. ;;9002226.02101,"1327,49856025303 ",.01)
  1. ;;49856025303
  1. ;;9002226.02101,"1327,49856025303 ",.02)
  1. ;;49856025303
  1. ;;9002226.02101,"1327,49856025304 ",.01)
  1. ;;49856025304
  1. ;;9002226.02101,"1327,49856025304 ",.02)
  1. ;;49856025304
  1. ;;9002226.02101,"1327,49999035930 ",.01)
  1. ;;49999035930
  1. ;;9002226.02101,"1327,49999035930 ",.02)
  1. ;;49999035930
  1. ;;9002226.02101,"1327,49999081300 ",.01)
  1. ;;49999081300
  1. ;;9002226.02101,"1327,49999081300 ",.02)
  1. ;;49999081300
  1. ;;9002226.02101,"1327,49999081330 ",.01)
  1. ;;49999081330
  1. ;;9002226.02101,"1327,49999081330 ",.02)
  1. ;;49999081330
  1. ;;9002226.02101,"1327,50428126148 ",.01)
  1. ;;50428126148
  1. ;;9002226.02101,"1327,50428126148 ",.02)
  1. ;;50428126148
  1. ;;9002226.02101,"1327,50428140897 ",.01)
  1. ;;50428140897
  1. ;;9002226.02101,"1327,50428140897 ",.02)
  1. ;;50428140897
  1. ;;9002226.02101,"1327,50428152314 ",.01)
  1. ;;50428152314
  1. ;;9002226.02101,"1327,50428152314 ",.02)
  1. ;;50428152314
  1. ;;9002226.02101,"1327,50428218859 ",.01)
  1. ;;50428218859
  1. ;;9002226.02101,"1327,50428218859 ",.02)
  1. ;;50428218859
  1. ;;9002226.02101,"1327,50428230268 ",.01)
  1. ;;50428230268
  1. ;;9002226.02101,"1327,50428230268 ",.02)
  1. ;;50428230268
  1. ;;9002226.02101,"1327,50428271255 ",.01)
  1. ;;50428271255
  1. ;;9002226.02101,"1327,50428271255 ",.02)
  1. ;;50428271255
  1. ;;9002226.02101,"1327,50428458871 ",.01)
  1. ;;50428458871
  1. ;;9002226.02101,"1327,50428458871 ",.02)
  1. ;;50428458871
  1. ;;9002226.02101,"1327,51469030101 ",.01)
  1. ;;51469030101
  1. ;;9002226.02101,"1327,51469030101 ",.02)
  1. ;;51469030101
  1. ;;9002226.02101,"1327,51645071236 ",.01)
  1. ;;51645071236
  1. ;;9002226.02101,"1327,51645071236 ",.02)
  1. ;;51645071236
  1. ;;9002226.02101,"1327,51645071308 ",.01)
  1. ;;51645071308
  1. ;;9002226.02101,"1327,51645071308 ",.02)
  1. ;;51645071308
  1. ;;9002226.02101,"1327,51645071310 ",.01)
  1. ;;51645071310
  1. ;;9002226.02101,"1327,51645071310 ",.02)
  1. ;;51645071310
  1. ;;9002226.02101,"1327,51645071401 ",.01)
  1. ;;51645071401
  1. ;;9002226.02101,"1327,51645071401 ",.02)
  1. ;;51645071401
  1. ;;9002226.02101,"1327,51645071410 ",.01)
  1. ;;51645071410
  1. ;;9002226.02101,"1327,51645071410 ",.02)
  1. ;;51645071410
  1. ;;9002226.02101,"1327,51645071601 ",.01)
  1. ;;51645071601
  1. ;;9002226.02101,"1327,51645071601 ",.02)
  1. ;;51645071601
  1. ;;9002226.02101,"1327,51645071610 ",.01)
  1. ;;51645071610
  1. ;;9002226.02101,"1327,51645071610 ",.02)
  1. ;;51645071610
  1. ;;9002226.02101,"1327,51824016436 ",.01)
  1. ;;51824016436
  1. ;;9002226.02101,"1327,51824016436 ",.02)
  1. ;;51824016436
  1. ;;9002226.02101,"1327,51824054701 ",.01)
  1. ;;51824054701
  1. ;;9002226.02101,"1327,51824054701 ",.02)
  1. ;;51824054701
  1. ;;9002226.02101,"1327,52124001101 ",.01)
  1. ;;52124001101
  1. ;;9002226.02101,"1327,52124001101 ",.02)
  1. ;;52124001101
  1. ;;9002226.02101,"1327,52124001201 ",.01)
  1. ;;52124001201
  1. ;;9002226.02101,"1327,52124001201 ",.02)
  1. ;;52124001201
  1. ;;9002226.02101,"1327,52204010399 ",.01)
  1. ;;52204010399
  1. ;;9002226.02101,"1327,52204010399 ",.02)
  1. ;;52204010399
  1. ;;9002226.02101,"1327,52204011199 ",.01)
  1. ;;52204011199
  1. ;;9002226.02101,"1327,52204011199 ",.02)
  1. ;;52204011199
  1. ;;9002226.02101,"1327,52297013378 ",.01)
  1. ;;52297013378
  1. ;;9002226.02101,"1327,52297013378 ",.02)
  1. ;;52297013378
  1. ;;9002226.02101,"1327,52297013778 ",.01)
  1. ;;52297013778
  1. ;;9002226.02101,"1327,52297013778 ",.02)
  1. ;;52297013778
  1. ;;9002226.02101,"1327,52297013978 ",.01)
  1. ;;52297013978
  1. ;;9002226.02101,"1327,52297013978 ",.02)
  1. ;;52297013978
  1. ;;9002226.02101,"1327,52297014668 ",.01)
  1. ;;52297014668
  1. ;;9002226.02101,"1327,52297014668 ",.02)
  1. ;;52297014668
  1. ;;9002226.02101,"1327,52297026072 ",.01)
  1. ;;52297026072
  1. ;;9002226.02101,"1327,52297026072 ",.02)
  1. ;;52297026072
  1. ;;9002226.02101,"1327,52297026672 ",.01)
  1. ;;52297026672
  1. ;;9002226.02101,"1327,52297026672 ",.02)
  1. ;;52297026672
  1. ;;9002226.02101,"1327,52297029287 ",.01)
  1. ;;52297029287
  1. ;;9002226.02101,"1327,52297029287 ",.02)
  1. ;;52297029287
  1. ;;9002226.02101,"1327,52297041187 ",.01)
  1. ;;52297041187
  1. ;;9002226.02101,"1327,52297041187 ",.02)
  1. ;;52297041187
  1. ;;9002226.02101,"1327,52297041660 ",.01)
  1. ;;52297041660
  1. ;;9002226.02101,"1327,52297041660 ",.02)
  1. ;;52297041660
  1. ;;9002226.02101,"1327,52297041678 ",.01)
  1. ;;52297041678
  1. ;;9002226.02101,"1327,52297041678 ",.02)
  1. ;;52297041678
  1. ;;9002226.02101,"1327,52297042974 ",.01)
  1. ;;52297042974
  1. ;;9002226.02101,"1327,52297042974 ",.02)
  1. ;;52297042974
  1. ;;9002226.02101,"1327,52297042978 ",.01)
  1. ;;52297042978
  1. ;;9002226.02101,"1327,52297042978 ",.02)
  1. ;;52297042978
  1. ;;9002226.02101,"1327,52297044878 ",.01)
  1. ;;52297044878
  1. ;;9002226.02101,"1327,52297044878 ",.02)
  1. ;;52297044878
  1. ;;9002226.02101,"1327,52297046768 ",.01)
  1. ;;52297046768
  1. ;;9002226.02101,"1327,52297046768 ",.02)
  1. ;;52297046768
  1. ;;9002226.02101,"1327,52297050776 ",.01)
  1. ;;52297050776
  1. ;;9002226.02101,"1327,52297050776 ",.02)
  1. ;;52297050776
  1. ;;9002226.02101,"1327,52297050876 ",.01)
  1. ;;52297050876
  1. ;;9002226.02101,"1327,52297050876 ",.02)
  1. ;;52297050876
  1. ;;9002226.02101,"1327,52297083568 ",.01)
  1. ;;52297083568
  1. ;;9002226.02101,"1327,52297083568 ",.02)
  1. ;;52297083568
  1. ;;9002226.02101,"1327,52297091885 ",.01)
  1. ;;52297091885
  1. ;;9002226.02101,"1327,52297091885 ",.02)
  1. ;;52297091885
  1. ;;9002226.02101,"1327,52735070201 ",.01)
  1. ;;52735070201
  1. ;;9002226.02101,"1327,52735070201 ",.02)
  1. ;;52735070201
  1. ;;9002226.02101,"1327,52735070209 ",.01)
  1. ;;52735070209
  1. ;;9002226.02101,"1327,52735070209 ",.02)
  1. ;;52735070209
  1. ;;9002226.02101,"1327,52735070301 ",.01)
  1. ;;52735070301
  1. ;;9002226.02101,"1327,52735070301 ",.02)
  1. ;;52735070301
  1. ;;9002226.02101,"1327,52735070370 ",.01)
  1. ;;52735070370
  1. ;;9002226.02101,"1327,52735070370 ",.02)
  1. ;;52735070370
  1. ;;9002226.02101,"1327,52735073313 ",.01)
  1. ;;52735073313
  1. ;;9002226.02101,"1327,52735073313 ",.02)
  1. ;;52735073313
  1. ;;9002226.02101,"1327,52735076123 ",.01)
  1. ;;52735076123
  1. ;;9002226.02101,"1327,52735076123 ",.02)
  1. ;;52735076123
  1. ;;9002226.02101,"1327,52959001800 ",.01)
  1. ;;52959001800
  1. ;;9002226.02101,"1327,52959001800 ",.02)
  1. ;;52959001800
  1. ;;9002226.02101,"1327,52959001814 ",.01)
  1. ;;52959001814
  1. ;;9002226.02101,"1327,52959001814 ",.02)
  1. ;;52959001814
  1. ;;9002226.02101,"1327,52959001820 ",.01)
  1. ;;52959001820
  1. ;;9002226.02101,"1327,52959001820 ",.02)
  1. ;;52959001820
  1. ;;9002226.02101,"1327,52959001824 ",.01)
  1. ;;52959001824
  1. ;;9002226.02101,"1327,52959001824 ",.02)
  1. ;;52959001824
  1. ;;9002226.02101,"1327,52959001830 ",.01)
  1. ;;52959001830
  1. ;;9002226.02101,"1327,52959001830 ",.02)
  1. ;;52959001830
  1. ;;9002226.02101,"1327,52959001840 ",.01)
  1. ;;52959001840
  1. ;;9002226.02101,"1327,52959001840 ",.02)
  1. ;;52959001840
  1. ;;9002226.02101,"1327,52959001860 ",.01)
  1. ;;52959001860
  1. ;;9002226.02101,"1327,52959001860 ",.02)
  1. ;;52959001860
  1. ;;9002226.02101,"1327,52959001880 ",.01)
  1. ;;52959001880
  1. ;;9002226.02101,"1327,52959001880 ",.02)
  1. ;;52959001880
  1. ;;9002226.02101,"1327,52959072400 ",.01)
  1. ;;52959072400
  1. ;;9002226.02101,"1327,52959072400 ",.02)
  1. ;;52959072400
  1. ;;9002226.02101,"1327,52959072410 ",.01)
  1. ;;52959072410
  1. ;;9002226.02101,"1327,52959072410 ",.02)
  1. ;;52959072410
  1. ;;9002226.02101,"1327,52959072414 ",.01)
  1. ;;52959072414
  1. ;;9002226.02101,"1327,52959072414 ",.02)
  1. ;;52959072414
  1. ;;9002226.02101,"1327,52959072415 ",.01)
  1. ;;52959072415
  1. ;;9002226.02101,"1327,52959072415 ",.02)
  1. ;;52959072415
  1. ;;9002226.02101,"1327,52959072420 ",.01)
  1. ;;52959072420
  1. ;;9002226.02101,"1327,52959072420 ",.02)
  1. ;;52959072420
  1. ;;9002226.02101,"1327,52959072424 ",.01)
  1. ;;52959072424
  1. ;;9002226.02101,"1327,52959072424 ",.02)
  1. ;;52959072424
  1. ;;9002226.02101,"1327,52959072430 ",.01)
  1. ;;52959072430
  1. ;;9002226.02101,"1327,52959072430 ",.02)
  1. ;;52959072430
  1. ;;9002226.02101,"1327,53978302703 ",.01)
  1. ;;53978302703
  1. ;;9002226.02101,"1327,53978302703 ",.02)
  1. ;;53978302703
  1. ;;9002226.02101,"1327,54257076917 ",.01)
  1. ;;54257076917
  1. ;;9002226.02101,"1327,54257076917 ",.02)
  1. ;;54257076917
  1. ;;9002226.02101,"1327,54257076918 ",.01)
  1. ;;54257076918
  1. ;;9002226.02101,"1327,54257076918 ",.02)
  1. ;;54257076918
  1. ;;9002226.02101,"1327,54569000504 ",.01)
  1. ;;54569000504
  1. ;;9002226.02101,"1327,54569000504 ",.02)
  1. ;;54569000504
  1. ;;9002226.02101,"1327,54569000508 ",.01)
  1. ;;54569000508
  1. ;;9002226.02101,"1327,54569000508 ",.02)
  1. ;;54569000508
  1. ;;9002226.02101,"1327,54569001401 ",.01)
  1. ;;54569001401
  1. ;;9002226.02101,"1327,54569001401 ",.02)
  1. ;;54569001401
  1. ;;9002226.02101,"1327,54569001403 ",.01)
  1. ;;54569001403
  1. ;;9002226.02101,"1327,54569001403 ",.02)
  1. ;;54569001403
  1. ;;9002226.02101,"1327,54569423301 ",.01)
  1. ;;54569423301
  1. ;;9002226.02101,"1327,54569423301 ",.02)
  1. ;;54569423301
  1. ;;9002226.02101,"1327,54569565900 ",.01)
  1. ;;54569565900
  1. ;;9002226.02101,"1327,54569565900 ",.02)
  1. ;;54569565900
  1. ;;9002226.02101,"1327,54629080101 ",.01)
  1. ;;54629080101
  1. ;;9002226.02101,"1327,54629080101 ",.02)
  1. ;;54629080101
  1. ;;9002226.02101,"1327,54629080303 ",.01)
  1. ;;54629080303
  1. ;;9002226.02101,"1327,54629080303 ",.02)
  1. ;;54629080303
  1. ;;9002226.02101,"1327,54738011103 ",.01)
  1. ;;54738011103
  1. ;;9002226.02101,"1327,54738011103 ",.02)
  1. ;;54738011103
  1. ;;9002226.02101,"1327,54868119800 ",.01)
  1. ;;54868119800
  1. ;;9002226.02101,"1327,54868119800 ",.02)
  1. ;;54868119800
  1. ;;9002226.02101,"1327,54868119802 ",.01)
  1. ;;54868119802
  1. ;;9002226.02101,"1327,54868119802 ",.02)
  1. ;;54868119802
  1. ;;9002226.02101,"1327,54868141200 ",.01)
  1. ;;54868141200
  1. ;;9002226.02101,"1327,54868141200 ",.02)
  1. ;;54868141200
  1. ;;9002226.02101,"1327,54868199601 ",.01)
  1. ;;54868199601
  1. ;;9002226.02101,"1327,54868199601 ",.02)
  1. ;;54868199601
  1. ;;9002226.02101,"1327,54868240501 ",.01)
  1. ;;54868240501
  1. ;;9002226.02101,"1327,54868240501 ",.02)
  1. ;;54868240501
  1. ;;9002226.02101,"1327,54868240502 ",.01)
  1. ;;54868240502
  1. ;;9002226.02101,"1327,54868240502 ",.02)
  1. ;;54868240502
  1. ;;9002226.02101,"1327,54868240503 ",.01)
  1. ;;54868240503
  1. ;;9002226.02101,"1327,54868240503 ",.02)
  1. ;;54868240503
  1. ;;9002226.02101,"1327,54868244001 ",.01)
  1. ;;54868244001
  1. ;;9002226.02101,"1327,54868244001 ",.02)
  1. ;;54868244001
  1. ;;9002226.02101,"1327,54868453000 ",.01)
  1. ;;54868453000
  1. ;;9002226.02101,"1327,54868453000 ",.02)
  1. ;;54868453000
  1. ;;9002226.02101,"1327,54868506200 ",.01)
  1. ;;54868506200
  1. ;;9002226.02101,"1327,54868506200 ",.02)
  1. ;;54868506200
  1. ;;9002226.02101,"1327,54868554600 ",.01)
  1. ;;54868554600
  1. ;;9002226.02101,"1327,54868554600 ",.02)
  1. ;;54868554600
  1. ;;9002226.02101,"1327,55111019601 ",.01)
  1. ;;55111019601
  1. ;;9002226.02101,"1327,55111019601 ",.02)
  1. ;;55111019601
  1. ;;9002226.02101,"1327,55111019630 ",.01)
  1. ;;55111019630
  1. ;;9002226.02101,"1327,55111019630 ",.02)
  1. ;;55111019630
  1. ;;9002226.02101,"1327,55111019690 ",.01)
  1. ;;55111019690
  1. ;;9002226.02101,"1327,55111019690 ",.02)
  1. ;;55111019690
  1. ;;9002226.02101,"1327,55154074709 ",.01)
  1. ;;55154074709
  1. ;;9002226.02101,"1327,55154074709 ",.02)
  1. ;;55154074709
  1. ;;9002226.02101,"1327,55154074809 ",.01)
  1. ;;55154074809
  1. ;;9002226.02101,"1327,55154074809 ",.02)
  1. ;;55154074809
  1. ;;9002226.02101,"1327,55154147300 ",.01)
  1. ;;55154147300
  1. ;;9002226.02101,"1327,55154147300 ",.02)
  1. ;;55154147300
  1. ;;9002226.02101,"1327,55154147600 ",.01)
  1. ;;55154147600
  1. ;;9002226.02101,"1327,55154147600 ",.02)
  1. ;;55154147600
  1. ;;9002226.02101,"1327,55154675200 ",.01)
  1. ;;55154675200
  1. ;;9002226.02101,"1327,55154675200 ",.02)
  1. ;;55154675200
  1. ;;9002226.02101,"1327,55154675500 ",.01)
  1. ;;55154675500
  1. ;;9002226.02101,"1327,55154675500 ",.02)
  1. ;;55154675500
  1. ;;9002226.02101,"1327,55154680809 ",.01)
  1. ;;55154680809
  1. ;;9002226.02101,"1327,55154680809 ",.02)
  1. ;;55154680809
  1. ;;9002226.02101,"1327,55289019101 ",.01)
  1. ;;55289019101
  1. ;;9002226.02101,"1327,55289019101 ",.02)
  1. ;;55289019101
  1. ;;9002226.02101,"1327,55289019130 ",.01)
  1. ;;55289019130
  1. ;;9002226.02101,"1327,55289019130 ",.02)
  1. ;;55289019130
  1. ;;9002226.02101,"1327,55289019135 ",.01)
  1. ;;55289019135
  1. ;;9002226.02101,"1327,55289019135 ",.02)
  1. ;;55289019135
  1. ;;9002226.02101,"1327,55289019190 ",.01)
  1. ;;55289019190
  1. ;;9002226.02101,"1327,55289019190 ",.02)
  1. ;;55289019190
  1. ;;9002226.02101,"1327,55289035601 ",.01)
  1. ;;55289035601
  1. ;;9002226.02101,"1327,55289035601 ",.02)
  1. ;;55289035601
  1. ;;9002226.02101,"1327,55289074324 ",.01)
  1. ;;55289074324
  1. ;;9002226.02101,"1327,55289074324 ",.02)
  1. ;;55289074324
  1. ;;9002226.02101,"1327,55289088601 ",.01)
  1. ;;55289088601
  1. ;;9002226.02101,"1327,55289088601 ",.02)
  1. ;;55289088601
  1. ;;9002226.02101,"1327,55289088635 ",.01)
  1. ;;55289088635
  1. ;;9002226.02101,"1327,55289088635 ",.02)
  1. ;;55289088635
  1. ;;9002226.02101,"1327,55289088690 ",.01)
  1. ;;55289088690
  1. ;;9002226.02101,"1327,55289088690 ",.02)
  1. ;;55289088690
  1. ;;9002226.02101,"1327,55289088698 ",.01)
  1. ;;55289088698
  1. ;;9002226.02101,"1327,55289088698 ",.02)
  1. ;;55289088698
  1. ;;9002226.02101,"1327,55312027748 ",.01)
  1. ;;55312027748
  1. ;;9002226.02101,"1327,55312027748 ",.02)
  1. ;;55312027748
  1. ;;9002226.02101,"1327,55312046768 ",.01)
  1. ;;55312046768
  1. ;;9002226.02101,"1327,55312046768 ",.02)
  1. ;;55312046768
  1. ;;9002226.02101,"1327,55312053576 ",.01)
  1. ;;55312053576
  1. ;;9002226.02101,"1327,55312053576 ",.02)
  1. ;;55312053576
  1. ;;9002226.02101,"1327,55316053576 ",.01)
  1. ;;55316053576
  1. ;;9002226.02101,"1327,55316053576 ",.02)
  1. ;;55316053576
  1. ;;9002226.02101,"1327,55567005400 ",.01)
  1. ;;55567005400
  1. ;;9002226.02101,"1327,55567005400 ",.02)
  1. ;;55567005400
  1. ;;9002226.02101,"1327,55567005407 ",.01)
  1. ;;55567005407
  1. ;;9002226.02101,"1327,55567005407 ",.02)
  1. ;;55567005407