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

BUD2ZD5.m

Go to the documentation of this file.
  1. BUD2ZD5 ;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,11845094236 ",.02)
  1. ;;11845094236
  1. ;;9002226.02101,"1327,11845097502 ",.01)
  1. ;;11845097502
  1. ;;9002226.02101,"1327,11845097502 ",.02)
  1. ;;11845097502
  1. ;;9002226.02101,"1327,11845099316 ",.01)
  1. ;;11845099316
  1. ;;9002226.02101,"1327,11845099316 ",.02)
  1. ;;11845099316
  1. ;;9002226.02101,"1327,11917004160 ",.01)
  1. ;;11917004160
  1. ;;9002226.02101,"1327,11917004160 ",.02)
  1. ;;11917004160
  1. ;;9002226.02101,"1327,11917004161 ",.01)
  1. ;;11917004161
  1. ;;9002226.02101,"1327,11917004161 ",.02)
  1. ;;11917004161
  1. ;;9002226.02101,"1327,12843006132 ",.01)
  1. ;;12843006132
  1. ;;9002226.02101,"1327,12843006132 ",.02)
  1. ;;12843006132
  1. ;;9002226.02101,"1327,12843010514 ",.01)
  1. ;;12843010514
  1. ;;9002226.02101,"1327,12843010514 ",.02)
  1. ;;12843010514
  1. ;;9002226.02101,"1327,12843053636 ",.01)
  1. ;;12843053636
  1. ;;9002226.02101,"1327,12843053636 ",.02)
  1. ;;12843053636
  1. ;;9002226.02101,"1327,12843053637 ",.01)
  1. ;;12843053637
  1. ;;9002226.02101,"1327,12843053637 ",.02)
  1. ;;12843053637
  1. ;;9002226.02101,"1327,12843053640 ",.01)
  1. ;;12843053640
  1. ;;9002226.02101,"1327,12843053640 ",.02)
  1. ;;12843053640
  1. ;;9002226.02101,"1327,15127001105 ",.01)
  1. ;;15127001105
  1. ;;9002226.02101,"1327,15127001105 ",.02)
  1. ;;15127001105
  1. ;;9002226.02101,"1327,15127012020 ",.01)
  1. ;;15127012020
  1. ;;9002226.02101,"1327,15127012020 ",.02)
  1. ;;15127012020
  1. ;;9002226.02101,"1327,15127022894 ",.01)
  1. ;;15127022894
  1. ;;9002226.02101,"1327,15127022894 ",.02)
  1. ;;15127022894
  1. ;;9002226.02101,"1327,15127024136 ",.01)
  1. ;;15127024136
  1. ;;9002226.02101,"1327,15127024136 ",.02)
  1. ;;15127024136
  1. ;;9002226.02101,"1327,15127073801 ",.01)
  1. ;;15127073801
  1. ;;9002226.02101,"1327,15127073801 ",.02)
  1. ;;15127073801
  1. ;;9002226.02101,"1327,15127073805 ",.01)
  1. ;;15127073805
  1. ;;9002226.02101,"1327,15127073805 ",.02)
  1. ;;15127073805
  1. ;;9002226.02101,"1327,15127073809 ",.01)
  1. ;;15127073809
  1. ;;9002226.02101,"1327,15127073809 ",.02)
  1. ;;15127073809
  1. ;;9002226.02101,"1327,15127073810 ",.01)
  1. ;;15127073810
  1. ;;9002226.02101,"1327,15127073810 ",.02)
  1. ;;15127073810
  1. ;;9002226.02101,"1327,15127073821 ",.01)
  1. ;;15127073821
  1. ;;9002226.02101,"1327,15127073821 ",.02)
  1. ;;15127073821
  1. ;;9002226.02101,"1327,15127076008 ",.01)
  1. ;;15127076008
  1. ;;9002226.02101,"1327,15127076008 ",.02)
  1. ;;15127076008
  1. ;;9002226.02101,"1327,15127087436 ",.01)
  1. ;;15127087436
  1. ;;9002226.02101,"1327,15127087436 ",.02)
  1. ;;15127087436
  1. ;;9002226.02101,"1327,17714000936 ",.01)
  1. ;;17714000936
  1. ;;9002226.02101,"1327,17714000936 ",.02)
  1. ;;17714000936
  1. ;;9002226.02101,"1327,17714001001 ",.01)
  1. ;;17714001001
  1. ;;9002226.02101,"1327,17714001001 ",.02)
  1. ;;17714001001
  1. ;;9002226.02101,"1327,17714001010 ",.01)
  1. ;;17714001010
  1. ;;9002226.02101,"1327,17714001010 ",.02)
  1. ;;17714001010
  1. ;;9002226.02101,"1327,17714001101 ",.01)
  1. ;;17714001101
  1. ;;9002226.02101,"1327,17714001101 ",.02)
  1. ;;17714001101
  1. ;;9002226.02101,"1327,17714001110 ",.01)
  1. ;;17714001110
  1. ;;9002226.02101,"1327,17714001110 ",.02)
  1. ;;17714001110
  1. ;;9002226.02101,"1327,17856044420 ",.01)
  1. ;;17856044420
  1. ;;9002226.02101,"1327,17856044420 ",.02)
  1. ;;17856044420
  1. ;;9002226.02101,"1327,19458500101 ",.01)
  1. ;;19458500101
  1. ;;9002226.02101,"1327,19458500101 ",.02)
  1. ;;19458500101
  1. ;;9002226.02101,"1327,19458500102 ",.01)
  1. ;;19458500102
  1. ;;9002226.02101,"1327,19458500102 ",.02)
  1. ;;19458500102
  1. ;;9002226.02101,"1327,19458500201 ",.01)
  1. ;;19458500201
  1. ;;9002226.02101,"1327,19458500201 ",.02)
  1. ;;19458500201
  1. ;;9002226.02101,"1327,19458500301 ",.01)
  1. ;;19458500301
  1. ;;9002226.02101,"1327,19458500301 ",.02)
  1. ;;19458500301
  1. ;;9002226.02101,"1327,19458500801 ",.01)
  1. ;;19458500801
  1. ;;9002226.02101,"1327,19458500801 ",.02)
  1. ;;19458500801
  1. ;;9002226.02101,"1327,21695053336 ",.01)
  1. ;;21695053336
  1. ;;9002226.02101,"1327,21695053336 ",.02)
  1. ;;21695053336
  1. ;;9002226.02101,"1327,21695066600 ",.01)
  1. ;;21695066600
  1. ;;9002226.02101,"1327,21695066600 ",.02)
  1. ;;21695066600
  1. ;;9002226.02101,"1327,21695066630 ",.01)
  1. ;;21695066630
  1. ;;9002226.02101,"1327,21695066630 ",.02)
  1. ;;21695066630
  1. ;;9002226.02101,"1327,21695066690 ",.01)
  1. ;;21695066690
  1. ;;9002226.02101,"1327,21695066690 ",.02)
  1. ;;21695066690
  1. ;;9002226.02101,"1327,21695068400 ",.01)
  1. ;;21695068400
  1. ;;9002226.02101,"1327,21695068400 ",.02)
  1. ;;21695068400
  1. ;;9002226.02101,"1327,21695068430 ",.01)
  1. ;;21695068430
  1. ;;9002226.02101,"1327,21695068430 ",.02)
  1. ;;21695068430
  1. ;;9002226.02101,"1327,21695068472 ",.01)
  1. ;;21695068472
  1. ;;9002226.02101,"1327,21695068472 ",.02)
  1. ;;21695068472
  1. ;;9002226.02101,"1327,21695068490 ",.01)
  1. ;;21695068490
  1. ;;9002226.02101,"1327,21695068490 ",.02)
  1. ;;21695068490
  1. ;;9002226.02101,"1327,23490660701 ",.01)
  1. ;;23490660701
  1. ;;9002226.02101,"1327,23490660701 ",.02)
  1. ;;23490660701
  1. ;;9002226.02101,"1327,23490660702 ",.01)
  1. ;;23490660702
  1. ;;9002226.02101,"1327,23490660702 ",.02)
  1. ;;23490660702
  1. ;;9002226.02101,"1327,23490661201 ",.01)
  1. ;;23490661201
  1. ;;9002226.02101,"1327,23490661201 ",.02)
  1. ;;23490661201
  1. ;;9002226.02101,"1327,23490661202 ",.01)
  1. ;;23490661202
  1. ;;9002226.02101,"1327,23490661202 ",.02)
  1. ;;23490661202
  1. ;;9002226.02101,"1327,24385002868 ",.01)
  1. ;;24385002868
  1. ;;9002226.02101,"1327,24385002868 ",.02)
  1. ;;24385002868
  1. ;;9002226.02101,"1327,24385027868 ",.01)
  1. ;;24385027868
  1. ;;9002226.02101,"1327,24385027868 ",.02)
  1. ;;24385027868
  1. ;;9002226.02101,"1327,24385036468 ",.01)
  1. ;;24385036468
  1. ;;9002226.02101,"1327,24385036468 ",.02)
  1. ;;24385036468
  1. ;;9002226.02101,"1327,24385041185 ",.01)
  1. ;;24385041185
  1. ;;9002226.02101,"1327,24385041185 ",.02)
  1. ;;24385041185
  1. ;;9002226.02101,"1327,24385041190 ",.01)
  1. ;;24385041190
  1. ;;9002226.02101,"1327,24385041190 ",.02)
  1. ;;24385041190
  1. ;;9002226.02101,"1327,24385041685 ",.01)
  1. ;;24385041685
  1. ;;9002226.02101,"1327,24385041685 ",.02)
  1. ;;24385041685
  1. ;;9002226.02101,"1327,24385041687 ",.01)
  1. ;;24385041687
  1. ;;9002226.02101,"1327,24385041687 ",.02)
  1. ;;24385041687
  1. ;;9002226.02101,"1327,24385041690 ",.01)
  1. ;;24385041690
  1. ;;9002226.02101,"1327,24385041690 ",.02)
  1. ;;24385041690
  1. ;;9002226.02101,"1327,24385042902 ",.01)
  1. ;;24385042902
  1. ;;9002226.02101,"1327,24385042902 ",.02)
  1. ;;24385042902
  1. ;;9002226.02101,"1327,24385042978 ",.01)
  1. ;;24385042978
  1. ;;9002226.02101,"1327,24385042978 ",.02)
  1. ;;24385042978
  1. ;;9002226.02101,"1327,24385042990 ",.01)
  1. ;;24385042990
  1. ;;9002226.02101,"1327,24385042990 ",.02)
  1. ;;24385042990
  1. ;;9002226.02101,"1327,24385053548 ",.01)
  1. ;;24385053548
  1. ;;9002226.02101,"1327,24385053548 ",.02)
  1. ;;24385053548
  1. ;;9002226.02101,"1327,24385053576 ",.01)
  1. ;;24385053576
  1. ;;9002226.02101,"1327,24385053576 ",.02)
  1. ;;24385053576
  1. ;;9002226.02101,"1327,24385053587 ",.01)
  1. ;;24385053587
  1. ;;9002226.02101,"1327,24385053587 ",.02)
  1. ;;24385053587
  1. ;;9002226.02101,"1327,24385053590 ",.01)
  1. ;;24385053590
  1. ;;9002226.02101,"1327,24385053590 ",.02)
  1. ;;24385053590
  1. ;;9002226.02101,"1327,24385054148 ",.01)
  1. ;;24385054148
  1. ;;9002226.02101,"1327,24385054148 ",.02)
  1. ;;24385054148
  1. ;;9002226.02101,"1327,24385054187 ",.01)
  1. ;;24385054187
  1. ;;9002226.02101,"1327,24385054187 ",.02)
  1. ;;24385054187
  1. ;;9002226.02101,"1327,24385054572 ",.01)
  1. ;;24385054572
  1. ;;9002226.02101,"1327,24385054572 ",.02)
  1. ;;24385054572
  1. ;;9002226.02101,"1327,26053000701 ",.01)
  1. ;;26053000701
  1. ;;9002226.02101,"1327,26053000701 ",.02)
  1. ;;26053000701
  1. ;;9002226.02101,"1327,26053032301 ",.01)
  1. ;;26053032301
  1. ;;9002226.02101,"1327,26053032301 ",.02)
  1. ;;26053032301
  1. ;;9002226.02101,"1327,30142041678 ",.01)
  1. ;;30142041678
  1. ;;9002226.02101,"1327,30142041678 ",.02)
  1. ;;30142041678
  1. ;;9002226.02101,"1327,30142041687 ",.01)
  1. ;;30142041687
  1. ;;9002226.02101,"1327,30142041687 ",.02)
  1. ;;30142041687
  1. ;;9002226.02101,"1327,30142046708 ",.01)
  1. ;;30142046708
  1. ;;9002226.02101,"1327,30142046708 ",.02)
  1. ;;30142046708
  1. ;;9002226.02101,"1327,30142046768 ",.01)
  1. ;;30142046768
  1. ;;9002226.02101,"1327,30142046768 ",.02)
  1. ;;30142046768
  1. ;;9002226.02101,"1327,33358003501 ",.01)
  1. ;;33358003501
  1. ;;9002226.02101,"1327,33358003501 ",.02)
  1. ;;33358003501
  1. ;;9002226.02101,"1327,33358003530 ",.01)
  1. ;;33358003530
  1. ;;9002226.02101,"1327,33358003530 ",.02)
  1. ;;33358003530
  1. ;;9002226.02101,"1327,33358003600 ",.01)
  1. ;;33358003600
  1. ;;9002226.02101,"1327,33358003600 ",.02)
  1. ;;33358003600
  1. ;;9002226.02101,"1327,33358003630 ",.01)
  1. ;;33358003630
  1. ;;9002226.02101,"1327,33358003630 ",.02)
  1. ;;33358003630
  1. ;;9002226.02101,"1327,36800025968 ",.01)
  1. ;;36800025968
  1. ;;9002226.02101,"1327,36800025968 ",.02)
  1. ;;36800025968
  1. ;;9002226.02101,"1327,36800027468 ",.01)
  1. ;;36800027468
  1. ;;9002226.02101,"1327,36800027468 ",.02)
  1. ;;36800027468
  1. ;;9002226.02101,"1327,36800027748 ",.01)
  1. ;;36800027748
  1. ;;9002226.02101,"1327,36800027748 ",.02)
  1. ;;36800027748
  1. ;;9002226.02101,"1327,36800042902 ",.01)
  1. ;;36800042902
  1. ;;9002226.02101,"1327,36800042902 ",.02)
  1. ;;36800042902
  1. ;;9002226.02101,"1327,36800046768 ",.01)
  1. ;;36800046768
  1. ;;9002226.02101,"1327,36800046768 ",.02)
  1. ;;36800046768
  1. ;;9002226.02101,"1327,37205014519 ",.01)
  1. ;;37205014519
  1. ;;9002226.02101,"1327,37205014519 ",.02)
  1. ;;37205014519
  1. ;;9002226.02101,"1327,37205014578 ",.01)
  1. ;;37205014578
  1. ;;9002226.02101,"1327,37205014578 ",.02)
  1. ;;37205014578
  1. ;;9002226.02101,"1327,37205014587 ",.01)
  1. ;;37205014587
  1. ;;9002226.02101,"1327,37205014587 ",.02)
  1. ;;37205014587
  1. ;;9002226.02101,"1327,37205015078 ",.01)
  1. ;;37205015078
  1. ;;9002226.02101,"1327,37205015078 ",.02)
  1. ;;37205015078
  1. ;;9002226.02101,"1327,37205021807 ",.01)
  1. ;;37205021807
  1. ;;9002226.02101,"1327,37205021807 ",.02)
  1. ;;37205021807
  1. ;;9002226.02101,"1327,37205021823 ",.01)
  1. ;;37205021823
  1. ;;9002226.02101,"1327,37205021823 ",.02)
  1. ;;37205021823
  1. ;;9002226.02101,"1327,37205036968 ",.01)
  1. ;;37205036968
  1. ;;9002226.02101,"1327,37205036968 ",.02)
  1. ;;37205036968
  1. ;;9002226.02101,"1327,37205042978 ",.01)
  1. ;;37205042978
  1. ;;9002226.02101,"1327,37205042978 ",.02)
  1. ;;37205042978
  1. ;;9002226.02101,"1327,37205042990 ",.01)
  1. ;;37205042990
  1. ;;9002226.02101,"1327,37205042990 ",.02)
  1. ;;37205042990
  1. ;;9002226.02101,"1327,37205042996 ",.01)
  1. ;;37205042996
  1. ;;9002226.02101,"1327,37205042996 ",.02)
  1. ;;37205042996
  1. ;;9002226.02101,"1327,37205046768 ",.01)
  1. ;;37205046768
  1. ;;9002226.02101,"1327,37205046768 ",.02)
  1. ;;37205046768
  1. ;;9002226.02101,"1327,37205051076 ",.01)
  1. ;;37205051076
  1. ;;9002226.02101,"1327,37205051076 ",.02)
  1. ;;37205051076
  1. ;;9002226.02101,"1327,37205051087 ",.01)
  1. ;;37205051087
  1. ;;9002226.02101,"1327,37205051087 ",.02)
  1. ;;37205051087
  1. ;;9002226.02101,"1327,37205051172 ",.01)
  1. ;;37205051172
  1. ;;9002226.02101,"1327,37205051172 ",.02)
  1. ;;37205051172
  1. ;;9002226.02101,"1327,37205070868 ",.01)
  1. ;;37205070868
  1. ;;9002226.02101,"1327,37205070868 ",.02)
  1. ;;37205070868
  1. ;;9002226.02101,"1327,37808027748 ",.01)
  1. ;;37808027748
  1. ;;9002226.02101,"1327,37808027748 ",.02)
  1. ;;37808027748
  1. ;;9002226.02101,"1327,37808046768 ",.01)
  1. ;;37808046768
  1. ;;9002226.02101,"1327,37808046768 ",.02)
  1. ;;37808046768
  1. ;;9002226.02101,"1327,37808053576 ",.01)
  1. ;;37808053576
  1. ;;9002226.02101,"1327,37808053576 ",.02)
  1. ;;37808053576
  1. ;;9002226.02101,"1327,41163027468 ",.01)
  1. ;;41163027468
  1. ;;9002226.02101,"1327,41163027468 ",.02)
  1. ;;41163027468
  1. ;;9002226.02101,"1327,41163041412 ",.01)
  1. ;;41163041412
  1. ;;9002226.02101,"1327,41163041412 ",.02)
  1. ;;41163041412
  1. ;;9002226.02101,"1327,41163041460 ",.01)
  1. ;;41163041460
  1. ;;9002226.02101,"1327,41163041460 ",.02)
  1. ;;41163041460
  1. ;;9002226.02101,"1327,41163041678 ",.01)
  1. ;;41163041678
  1. ;;9002226.02101,"1327,41163041678 ",.02)
  1. ;;41163041678
  1. ;;9002226.02101,"1327,41163041687 ",.01)
  1. ;;41163041687
  1. ;;9002226.02101,"1327,41163041687 ",.02)
  1. ;;41163041687
  1. ;;9002226.02101,"1327,41163041690 ",.01)
  1. ;;41163041690
  1. ;;9002226.02101,"1327,41163041690 ",.02)
  1. ;;41163041690
  1. ;;9002226.02101,"1327,41163041693 ",.01)
  1. ;;41163041693
  1. ;;9002226.02101,"1327,41163041693 ",.02)
  1. ;;41163041693
  1. ;;9002226.02101,"1327,41163042978 ",.01)
  1. ;;41163042978
  1. ;;9002226.02101,"1327,41163042978 ",.02)
  1. ;;41163042978
  1. ;;9002226.02101,"1327,41163042990 ",.01)
  1. ;;41163042990
  1. ;;9002226.02101,"1327,41163042990 ",.02)
  1. ;;41163042990
  1. ;;9002226.02101,"1327,41163046768 ",.01)
  1. ;;41163046768
  1. ;;9002226.02101,"1327,41163046768 ",.02)
  1. ;;41163046768
  1. ;;9002226.02101,"1327,41163053576 ",.01)
  1. ;;41163053576
  1. ;;9002226.02101,"1327,41163053576 ",.02)
  1. ;;41163053576
  1. ;;9002226.02101,"1327,41163053587 ",.01)
  1. ;;41163053587
  1. ;;9002226.02101,"1327,41163053587 ",.02)
  1. ;;41163053587
  1. ;;9002226.02101,"1327,41163056306 ",.01)
  1. ;;41163056306
  1. ;;9002226.02101,"1327,41163056306 ",.02)
  1. ;;41163056306
  1. ;;9002226.02101,"1327,41163056317 ",.01)
  1. ;;41163056317
  1. ;;9002226.02101,"1327,41163056317 ",.02)
  1. ;;41163056317
  1. ;;9002226.02101,"1327,41163056332 ",.01)
  1. ;;41163056332
  1. ;;9002226.02101,"1327,41163056332 ",.02)
  1. ;;41163056332
  1. ;;9002226.02101,"1327,41163064281 ",.01)
  1. ;;41163064281
  1. ;;9002226.02101,"1327,41163064281 ",.02)
  1. ;;41163064281
  1. ;;9002226.02101,"1327,41226041182 ",.01)
  1. ;;41226041182
  1. ;;9002226.02101,"1327,41226041182 ",.02)
  1. ;;41226041182
  1. ;;9002226.02101,"1327,41250027408 ",.01)
  1. ;;41250027408
  1. ;;9002226.02101,"1327,41250027408 ",.02)
  1. ;;41250027408
  1. ;;9002226.02101,"1327,41250027468 ",.01)
  1. ;;41250027468
  1. ;;9002226.02101,"1327,41250027468 ",.02)
  1. ;;41250027468
  1. ;;9002226.02101,"1327,41250027715 ",.01)
  1. ;;41250027715
  1. ;;9002226.02101,"1327,41250027715 ",.02)
  1. ;;41250027715
  1. ;;9002226.02101,"1327,41250027748 ",.01)
  1. ;;41250027748
  1. ;;9002226.02101,"1327,41250027748 ",.02)
  1. ;;41250027748
  1. ;;9002226.02101,"1327,41250053576 ",.01)
  1. ;;41250053576
  1. ;;9002226.02101,"1327,41250053576 ",.02)
  1. ;;41250053576