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

BUD2ZD9.m

Go to the documentation of this file.
  1. BUD2ZD9 ;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,62211031299 ",.02)
  1. ;;62211031299
  1. ;;9002226.02101,"1327,62318002702 ",.01)
  1. ;;62318002702
  1. ;;9002226.02101,"1327,62318002702 ",.02)
  1. ;;62318002702
  1. ;;9002226.02101,"1327,62318002704 ",.01)
  1. ;;62318002704
  1. ;;9002226.02101,"1327,62318002704 ",.02)
  1. ;;62318002704
  1. ;;9002226.02101,"1327,62318002707 ",.01)
  1. ;;62318002707
  1. ;;9002226.02101,"1327,62318002707 ",.02)
  1. ;;62318002707
  1. ;;9002226.02101,"1327,62318002709 ",.01)
  1. ;;62318002709
  1. ;;9002226.02101,"1327,62318002709 ",.02)
  1. ;;62318002709
  1. ;;9002226.02101,"1327,62584012701 ",.01)
  1. ;;62584012701
  1. ;;9002226.02101,"1327,62584012701 ",.02)
  1. ;;62584012701
  1. ;;9002226.02101,"1327,62584012785 ",.01)
  1. ;;62584012785
  1. ;;9002226.02101,"1327,62584012785 ",.02)
  1. ;;62584012785
  1. ;;9002226.02101,"1327,63548360201 ",.01)
  1. ;;63548360201
  1. ;;9002226.02101,"1327,63548360201 ",.02)
  1. ;;63548360201
  1. ;;9002226.02101,"1327,63629176201 ",.01)
  1. ;;63629176201
  1. ;;9002226.02101,"1327,63629176201 ",.02)
  1. ;;63629176201
  1. ;;9002226.02101,"1327,63629176202 ",.01)
  1. ;;63629176202
  1. ;;9002226.02101,"1327,63629176202 ",.02)
  1. ;;63629176202
  1. ;;9002226.02101,"1327,63629176203 ",.01)
  1. ;;63629176203
  1. ;;9002226.02101,"1327,63629176203 ",.02)
  1. ;;63629176203
  1. ;;9002226.02101,"1327,63629176204 ",.01)
  1. ;;63629176204
  1. ;;9002226.02101,"1327,63629176204 ",.02)
  1. ;;63629176204
  1. ;;9002226.02101,"1327,63629282501 ",.01)
  1. ;;63629282501
  1. ;;9002226.02101,"1327,63629282501 ",.02)
  1. ;;63629282501
  1. ;;9002226.02101,"1327,63629282502 ",.01)
  1. ;;63629282502
  1. ;;9002226.02101,"1327,63629282502 ",.02)
  1. ;;63629282502
  1. ;;9002226.02101,"1327,63629282503 ",.01)
  1. ;;63629282503
  1. ;;9002226.02101,"1327,63629282503 ",.02)
  1. ;;63629282503
  1. ;;9002226.02101,"1327,63739002301 ",.01)
  1. ;;63739002301
  1. ;;9002226.02101,"1327,63739002301 ",.02)
  1. ;;63739002301
  1. ;;9002226.02101,"1327,63739002303 ",.01)
  1. ;;63739002303
  1. ;;9002226.02101,"1327,63739002303 ",.02)
  1. ;;63739002303
  1. ;;9002226.02101,"1327,63739002401 ",.01)
  1. ;;63739002401
  1. ;;9002226.02101,"1327,63739002401 ",.02)
  1. ;;63739002401
  1. ;;9002226.02101,"1327,63739002501 ",.01)
  1. ;;63739002501
  1. ;;9002226.02101,"1327,63739002501 ",.02)
  1. ;;63739002501
  1. ;;9002226.02101,"1327,63739027201 ",.01)
  1. ;;63739027201
  1. ;;9002226.02101,"1327,63739027201 ",.02)
  1. ;;63739027201
  1. ;;9002226.02101,"1327,63739027203 ",.01)
  1. ;;63739027203
  1. ;;9002226.02101,"1327,63739027203 ",.02)
  1. ;;63739027203
  1. ;;9002226.02101,"1327,63739027210 ",.01)
  1. ;;63739027210
  1. ;;9002226.02101,"1327,63739027210 ",.02)
  1. ;;63739027210
  1. ;;9002226.02101,"1327,63739043301 ",.01)
  1. ;;63739043301
  1. ;;9002226.02101,"1327,63739043301 ",.02)
  1. ;;63739043301
  1. ;;9002226.02101,"1327,63739043303 ",.01)
  1. ;;63739043303
  1. ;;9002226.02101,"1327,63739043303 ",.02)
  1. ;;63739043303
  1. ;;9002226.02101,"1327,63739043310 ",.01)
  1. ;;63739043310
  1. ;;9002226.02101,"1327,63739043310 ",.02)
  1. ;;63739043310
  1. ;;9002226.02101,"1327,63739043401 ",.01)
  1. ;;63739043401
  1. ;;9002226.02101,"1327,63739043401 ",.02)
  1. ;;63739043401
  1. ;;9002226.02101,"1327,63739043403 ",.01)
  1. ;;63739043403
  1. ;;9002226.02101,"1327,63739043403 ",.02)
  1. ;;63739043403
  1. ;;9002226.02101,"1327,63874000101 ",.01)
  1. ;;63874000101
  1. ;;9002226.02101,"1327,63874000101 ",.02)
  1. ;;63874000101
  1. ;;9002226.02101,"1327,63874000115 ",.01)
  1. ;;63874000115
  1. ;;9002226.02101,"1327,63874000115 ",.02)
  1. ;;63874000115
  1. ;;9002226.02101,"1327,63874000120 ",.01)
  1. ;;63874000120
  1. ;;9002226.02101,"1327,63874000120 ",.02)
  1. ;;63874000120
  1. ;;9002226.02101,"1327,63874000125 ",.01)
  1. ;;63874000125
  1. ;;9002226.02101,"1327,63874000125 ",.02)
  1. ;;63874000125
  1. ;;9002226.02101,"1327,63874000130 ",.01)
  1. ;;63874000130
  1. ;;9002226.02101,"1327,63874000130 ",.02)
  1. ;;63874000130
  1. ;;9002226.02101,"1327,63874000150 ",.01)
  1. ;;63874000150
  1. ;;9002226.02101,"1327,63874000150 ",.02)
  1. ;;63874000150
  1. ;;9002226.02101,"1327,63874099701 ",.01)
  1. ;;63874099701
  1. ;;9002226.02101,"1327,63874099701 ",.02)
  1. ;;63874099701
  1. ;;9002226.02101,"1327,63874099702 ",.01)
  1. ;;63874099702
  1. ;;9002226.02101,"1327,63874099702 ",.02)
  1. ;;63874099702
  1. ;;9002226.02101,"1327,63874099730 ",.01)
  1. ;;63874099730
  1. ;;9002226.02101,"1327,63874099730 ",.02)
  1. ;;63874099730
  1. ;;9002226.02101,"1327,63981022714 ",.01)
  1. ;;63981022714
  1. ;;9002226.02101,"1327,63981022714 ",.02)
  1. ;;63981022714
  1. ;;9002226.02101,"1327,64092014115 ",.01)
  1. ;;64092014115
  1. ;;9002226.02101,"1327,64092014115 ",.02)
  1. ;;64092014115
  1. ;;9002226.02101,"1327,64092021807 ",.01)
  1. ;;64092021807
  1. ;;9002226.02101,"1327,64092021807 ",.02)
  1. ;;64092021807
  1. ;;9002226.02101,"1327,64125010601 ",.01)
  1. ;;64125010601
  1. ;;9002226.02101,"1327,64125010601 ",.02)
  1. ;;64125010601
  1. ;;9002226.02101,"1327,65162024111 ",.01)
  1. ;;65162024111
  1. ;;9002226.02101,"1327,65162024111 ",.02)
  1. ;;65162024111
  1. ;;9002226.02101,"1327,65162024116 ",.01)
  1. ;;65162024116
  1. ;;9002226.02101,"1327,65162024116 ",.02)
  1. ;;65162024116
  1. ;;9002226.02101,"1327,65162038010 ",.01)
  1. ;;65162038010
  1. ;;9002226.02101,"1327,65162038010 ",.02)
  1. ;;65162038010
  1. ;;9002226.02101,"1327,65162038011 ",.01)
  1. ;;65162038011
  1. ;;9002226.02101,"1327,65162038011 ",.02)
  1. ;;65162038011
  1. ;;9002226.02101,"1327,65162038211 ",.01)
  1. ;;65162038211
  1. ;;9002226.02101,"1327,65162038211 ",.02)
  1. ;;65162038211
  1. ;;9002226.02101,"1327,65437003805 ",.01)
  1. ;;65437003805
  1. ;;9002226.02101,"1327,65437003805 ",.02)
  1. ;;65437003805
  1. ;;9002226.02101,"1327,65437003807 ",.01)
  1. ;;65437003807
  1. ;;9002226.02101,"1327,65437003807 ",.02)
  1. ;;65437003807
  1. ;;9002226.02101,"1327,65437003810 ",.01)
  1. ;;65437003810
  1. ;;9002226.02101,"1327,65437003810 ",.02)
  1. ;;65437003810
  1. ;;9002226.02101,"1327,66267002630 ",.01)
  1. ;;66267002630
  1. ;;9002226.02101,"1327,66267002630 ",.02)
  1. ;;66267002630
  1. ;;9002226.02101,"1327,66267002660 ",.01)
  1. ;;66267002660
  1. ;;9002226.02101,"1327,66267002660 ",.02)
  1. ;;66267002660
  1. ;;9002226.02101,"1327,66267002730 ",.01)
  1. ;;66267002730
  1. ;;9002226.02101,"1327,66267002730 ",.02)
  1. ;;66267002730
  1. ;;9002226.02101,"1327,66267002830 ",.01)
  1. ;;66267002830
  1. ;;9002226.02101,"1327,66267002830 ",.02)
  1. ;;66267002830
  1. ;;9002226.02101,"1327,66553000101 ",.01)
  1. ;;66553000101
  1. ;;9002226.02101,"1327,66553000101 ",.02)
  1. ;;66553000101
  1. ;;9002226.02101,"1327,66553000201 ",.01)
  1. ;;66553000201
  1. ;;9002226.02101,"1327,66553000201 ",.02)
  1. ;;66553000201
  1. ;;9002226.02101,"1327,66553000301 ",.01)
  1. ;;66553000301
  1. ;;9002226.02101,"1327,66553000301 ",.02)
  1. ;;66553000301
  1. ;;9002226.02101,"1327,67046016230 ",.01)
  1. ;;67046016230
  1. ;;9002226.02101,"1327,67046016230 ",.02)
  1. ;;67046016230
  1. ;;9002226.02101,"1327,67046016430 ",.01)
  1. ;;67046016430
  1. ;;9002226.02101,"1327,67046016430 ",.02)
  1. ;;67046016430
  1. ;;9002226.02101,"1327,67046016530 ",.01)
  1. ;;67046016530
  1. ;;9002226.02101,"1327,67046016530 ",.02)
  1. ;;67046016530
  1. ;;9002226.02101,"1327,67046016830 ",.01)
  1. ;;67046016830
  1. ;;9002226.02101,"1327,67046016830 ",.02)
  1. ;;67046016830
  1. ;;9002226.02101,"1327,67228026103 ",.01)
  1. ;;67228026103
  1. ;;9002226.02101,"1327,67228026103 ",.02)
  1. ;;67228026103
  1. ;;9002226.02101,"1327,67228026106 ",.01)
  1. ;;67228026106
  1. ;;9002226.02101,"1327,67228026106 ",.02)
  1. ;;67228026106
  1. ;;9002226.02101,"1327,67544065131 ",.01)
  1. ;;67544065131
  1. ;;9002226.02101,"1327,67544065131 ",.02)
  1. ;;67544065131
  1. ;;9002226.02101,"1327,68115043320 ",.01)
  1. ;;68115043320
  1. ;;9002226.02101,"1327,68115043320 ",.02)
  1. ;;68115043320
  1. ;;9002226.02101,"1327,68391041690 ",.01)
  1. ;;68391041690
  1. ;;9002226.02101,"1327,68391041690 ",.02)
  1. ;;68391041690
  1. ;;9002226.02101,"1327,68752000336 ",.01)
  1. ;;68752000336
  1. ;;9002226.02101,"1327,68752000336 ",.02)
  1. ;;68752000336
  1. ;;9002226.02101,"1327,68788018602 ",.01)
  1. ;;68788018602
  1. ;;9002226.02101,"1327,68788018602 ",.02)
  1. ;;68788018602
  1. ;;9002226.02101,"1327,70030041190 ",.01)
  1. ;;70030041190
  1. ;;9002226.02101,"1327,70030041190 ",.02)
  1. ;;70030041190
  1. ;;9002226.02101,"1327,70253021807 ",.01)
  1. ;;70253021807
  1. ;;9002226.02101,"1327,70253021807 ",.02)
  1. ;;70253021807
  1. ;;9002226.02101,"1327,75942000110 ",.01)
  1. ;;75942000110
  1. ;;9002226.02101,"1327,75942000110 ",.02)
  1. ;;75942000110
  1. ;;9002226.02101,"1327,75942000112 ",.01)
  1. ;;75942000112
  1. ;;9002226.02101,"1327,75942000112 ",.02)
  1. ;;75942000112
  1. ;;9002226.02101,"1327,75942000136 ",.01)
  1. ;;75942000136
  1. ;;9002226.02101,"1327,75942000136 ",.02)
  1. ;;75942000136
  1. ;;9002226.02101,"1327,75942000150 ",.01)
  1. ;;75942000150
  1. ;;9002226.02101,"1327,75942000150 ",.02)
  1. ;;75942000150
  1. ;;9002226.02101,"1327,75942000175 ",.01)
  1. ;;75942000175
  1. ;;9002226.02101,"1327,75942000175 ",.02)
  1. ;;75942000175