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

BUD2ZA19.m

Go to the documentation of this file.
  1. BUD2ZA19 ;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,58016054024 ",.02)
  1. ;;58016054024
  1. ;;9002226.02101,"1149,58016054025 ",.01)
  1. ;;58016054025
  1. ;;9002226.02101,"1149,58016054025 ",.02)
  1. ;;58016054025
  1. ;;9002226.02101,"1149,58016054026 ",.01)
  1. ;;58016054026
  1. ;;9002226.02101,"1149,58016054026 ",.02)
  1. ;;58016054026
  1. ;;9002226.02101,"1149,58016054027 ",.01)
  1. ;;58016054027
  1. ;;9002226.02101,"1149,58016054027 ",.02)
  1. ;;58016054027
  1. ;;9002226.02101,"1149,58016054028 ",.01)
  1. ;;58016054028
  1. ;;9002226.02101,"1149,58016054028 ",.02)
  1. ;;58016054028
  1. ;;9002226.02101,"1149,58016054030 ",.01)
  1. ;;58016054030
  1. ;;9002226.02101,"1149,58016054030 ",.02)
  1. ;;58016054030
  1. ;;9002226.02101,"1149,58016054032 ",.01)
  1. ;;58016054032
  1. ;;9002226.02101,"1149,58016054032 ",.02)
  1. ;;58016054032
  1. ;;9002226.02101,"1149,58016054035 ",.01)
  1. ;;58016054035
  1. ;;9002226.02101,"1149,58016054035 ",.02)
  1. ;;58016054035
  1. ;;9002226.02101,"1149,58016054036 ",.01)
  1. ;;58016054036
  1. ;;9002226.02101,"1149,58016054036 ",.02)
  1. ;;58016054036
  1. ;;9002226.02101,"1149,58016054040 ",.01)
  1. ;;58016054040
  1. ;;9002226.02101,"1149,58016054040 ",.02)
  1. ;;58016054040
  1. ;;9002226.02101,"1149,58016054042 ",.01)
  1. ;;58016054042
  1. ;;9002226.02101,"1149,58016054042 ",.02)
  1. ;;58016054042
  1. ;;9002226.02101,"1149,58016054044 ",.01)
  1. ;;58016054044
  1. ;;9002226.02101,"1149,58016054044 ",.02)
  1. ;;58016054044
  1. ;;9002226.02101,"1149,58016054045 ",.01)
  1. ;;58016054045
  1. ;;9002226.02101,"1149,58016054045 ",.02)
  1. ;;58016054045
  1. ;;9002226.02101,"1149,58016054048 ",.01)
  1. ;;58016054048
  1. ;;9002226.02101,"1149,58016054048 ",.02)
  1. ;;58016054048
  1. ;;9002226.02101,"1149,58016054050 ",.01)
  1. ;;58016054050
  1. ;;9002226.02101,"1149,58016054050 ",.02)
  1. ;;58016054050
  1. ;;9002226.02101,"1149,58016054056 ",.01)
  1. ;;58016054056
  1. ;;9002226.02101,"1149,58016054056 ",.02)
  1. ;;58016054056
  1. ;;9002226.02101,"1149,58016054060 ",.01)
  1. ;;58016054060
  1. ;;9002226.02101,"1149,58016054060 ",.02)
  1. ;;58016054060
  1. ;;9002226.02101,"1149,58016054067 ",.01)
  1. ;;58016054067
  1. ;;9002226.02101,"1149,58016054067 ",.02)
  1. ;;58016054067
  1. ;;9002226.02101,"1149,58016054069 ",.01)
  1. ;;58016054069
  1. ;;9002226.02101,"1149,58016054069 ",.02)
  1. ;;58016054069
  1. ;;9002226.02101,"1149,58016054070 ",.01)
  1. ;;58016054070
  1. ;;9002226.02101,"1149,58016054070 ",.02)
  1. ;;58016054070
  1. ;;9002226.02101,"1149,58016054071 ",.01)
  1. ;;58016054071
  1. ;;9002226.02101,"1149,58016054071 ",.02)
  1. ;;58016054071
  1. ;;9002226.02101,"1149,58016054072 ",.01)
  1. ;;58016054072
  1. ;;9002226.02101,"1149,58016054072 ",.02)
  1. ;;58016054072
  1. ;;9002226.02101,"1149,58016054073 ",.01)
  1. ;;58016054073
  1. ;;9002226.02101,"1149,58016054073 ",.02)
  1. ;;58016054073
  1. ;;9002226.02101,"1149,58016054075 ",.01)
  1. ;;58016054075
  1. ;;9002226.02101,"1149,58016054075 ",.02)
  1. ;;58016054075
  1. ;;9002226.02101,"1149,58016054076 ",.01)
  1. ;;58016054076
  1. ;;9002226.02101,"1149,58016054076 ",.02)
  1. ;;58016054076
  1. ;;9002226.02101,"1149,58016054077 ",.01)
  1. ;;58016054077
  1. ;;9002226.02101,"1149,58016054077 ",.02)
  1. ;;58016054077
  1. ;;9002226.02101,"1149,58016054079 ",.01)
  1. ;;58016054079
  1. ;;9002226.02101,"1149,58016054079 ",.02)
  1. ;;58016054079
  1. ;;9002226.02101,"1149,58016054080 ",.01)
  1. ;;58016054080
  1. ;;9002226.02101,"1149,58016054080 ",.02)
  1. ;;58016054080
  1. ;;9002226.02101,"1149,58016054081 ",.01)
  1. ;;58016054081
  1. ;;9002226.02101,"1149,58016054081 ",.02)
  1. ;;58016054081
  1. ;;9002226.02101,"1149,58016054082 ",.01)
  1. ;;58016054082
  1. ;;9002226.02101,"1149,58016054082 ",.02)
  1. ;;58016054082
  1. ;;9002226.02101,"1149,58016054083 ",.01)
  1. ;;58016054083
  1. ;;9002226.02101,"1149,58016054083 ",.02)
  1. ;;58016054083
  1. ;;9002226.02101,"1149,58016054084 ",.01)
  1. ;;58016054084
  1. ;;9002226.02101,"1149,58016054084 ",.02)
  1. ;;58016054084
  1. ;;9002226.02101,"1149,58016054087 ",.01)
  1. ;;58016054087
  1. ;;9002226.02101,"1149,58016054087 ",.02)
  1. ;;58016054087
  1. ;;9002226.02101,"1149,58016054089 ",.01)
  1. ;;58016054089
  1. ;;9002226.02101,"1149,58016054089 ",.02)
  1. ;;58016054089
  1. ;;9002226.02101,"1149,58016054090 ",.01)
  1. ;;58016054090
  1. ;;9002226.02101,"1149,58016054090 ",.02)
  1. ;;58016054090
  1. ;;9002226.02101,"1149,58016054091 ",.01)
  1. ;;58016054091
  1. ;;9002226.02101,"1149,58016054091 ",.02)
  1. ;;58016054091
  1. ;;9002226.02101,"1149,58016054092 ",.01)
  1. ;;58016054092
  1. ;;9002226.02101,"1149,58016054092 ",.02)
  1. ;;58016054092
  1. ;;9002226.02101,"1149,58016054093 ",.01)
  1. ;;58016054093
  1. ;;9002226.02101,"1149,58016054093 ",.02)
  1. ;;58016054093
  1. ;;9002226.02101,"1149,58016054096 ",.01)
  1. ;;58016054096
  1. ;;9002226.02101,"1149,58016054096 ",.02)
  1. ;;58016054096
  1. ;;9002226.02101,"1149,58016054097 ",.01)
  1. ;;58016054097
  1. ;;9002226.02101,"1149,58016054097 ",.02)
  1. ;;58016054097
  1. ;;9002226.02101,"1149,58016054098 ",.01)
  1. ;;58016054098
  1. ;;9002226.02101,"1149,58016054098 ",.02)
  1. ;;58016054098
  1. ;;9002226.02101,"1149,58016054099 ",.01)
  1. ;;58016054099
  1. ;;9002226.02101,"1149,58016054099 ",.02)
  1. ;;58016054099
  1. ;;9002226.02101,"1149,58016090000 ",.01)
  1. ;;58016090000
  1. ;;9002226.02101,"1149,58016090000 ",.02)
  1. ;;58016090000
  1. ;;9002226.02101,"1149,58016090001 ",.01)
  1. ;;58016090001
  1. ;;9002226.02101,"1149,58016090001 ",.02)
  1. ;;58016090001
  1. ;;9002226.02101,"1149,58016090002 ",.01)
  1. ;;58016090002
  1. ;;9002226.02101,"1149,58016090002 ",.02)
  1. ;;58016090002
  1. ;;9002226.02101,"1149,58016090003 ",.01)
  1. ;;58016090003
  1. ;;9002226.02101,"1149,58016090003 ",.02)
  1. ;;58016090003
  1. ;;9002226.02101,"1149,58016090004 ",.01)
  1. ;;58016090004
  1. ;;9002226.02101,"1149,58016090004 ",.02)
  1. ;;58016090004
  1. ;;9002226.02101,"1149,58016090005 ",.01)
  1. ;;58016090005
  1. ;;9002226.02101,"1149,58016090005 ",.02)
  1. ;;58016090005
  1. ;;9002226.02101,"1149,58016090006 ",.01)
  1. ;;58016090006
  1. ;;9002226.02101,"1149,58016090006 ",.02)
  1. ;;58016090006
  1. ;;9002226.02101,"1149,58016090007 ",.01)
  1. ;;58016090007
  1. ;;9002226.02101,"1149,58016090007 ",.02)
  1. ;;58016090007
  1. ;;9002226.02101,"1149,58016090008 ",.01)
  1. ;;58016090008
  1. ;;9002226.02101,"1149,58016090008 ",.02)
  1. ;;58016090008
  1. ;;9002226.02101,"1149,58016090009 ",.01)
  1. ;;58016090009
  1. ;;9002226.02101,"1149,58016090009 ",.02)
  1. ;;58016090009
  1. ;;9002226.02101,"1149,58016090010 ",.01)
  1. ;;58016090010
  1. ;;9002226.02101,"1149,58016090010 ",.02)
  1. ;;58016090010
  1. ;;9002226.02101,"1149,58016090012 ",.01)
  1. ;;58016090012
  1. ;;9002226.02101,"1149,58016090012 ",.02)
  1. ;;58016090012
  1. ;;9002226.02101,"1149,58016090014 ",.01)
  1. ;;58016090014
  1. ;;9002226.02101,"1149,58016090014 ",.02)
  1. ;;58016090014
  1. ;;9002226.02101,"1149,58016090015 ",.01)
  1. ;;58016090015
  1. ;;9002226.02101,"1149,58016090015 ",.02)
  1. ;;58016090015
  1. ;;9002226.02101,"1149,58016090016 ",.01)
  1. ;;58016090016
  1. ;;9002226.02101,"1149,58016090016 ",.02)
  1. ;;58016090016
  1. ;;9002226.02101,"1149,58016090018 ",.01)
  1. ;;58016090018
  1. ;;9002226.02101,"1149,58016090018 ",.02)
  1. ;;58016090018
  1. ;;9002226.02101,"1149,58016090020 ",.01)
  1. ;;58016090020
  1. ;;9002226.02101,"1149,58016090020 ",.02)
  1. ;;58016090020
  1. ;;9002226.02101,"1149,58016090021 ",.01)
  1. ;;58016090021
  1. ;;9002226.02101,"1149,58016090021 ",.02)
  1. ;;58016090021
  1. ;;9002226.02101,"1149,58016090024 ",.01)
  1. ;;58016090024
  1. ;;9002226.02101,"1149,58016090024 ",.02)
  1. ;;58016090024
  1. ;;9002226.02101,"1149,58016090025 ",.01)
  1. ;;58016090025
  1. ;;9002226.02101,"1149,58016090025 ",.02)
  1. ;;58016090025
  1. ;;9002226.02101,"1149,58016090026 ",.01)
  1. ;;58016090026
  1. ;;9002226.02101,"1149,58016090026 ",.02)
  1. ;;58016090026
  1. ;;9002226.02101,"1149,58016090027 ",.01)
  1. ;;58016090027
  1. ;;9002226.02101,"1149,58016090027 ",.02)
  1. ;;58016090027
  1. ;;9002226.02101,"1149,58016090028 ",.01)
  1. ;;58016090028
  1. ;;9002226.02101,"1149,58016090028 ",.02)
  1. ;;58016090028
  1. ;;9002226.02101,"1149,58016090030 ",.01)
  1. ;;58016090030
  1. ;;9002226.02101,"1149,58016090030 ",.02)
  1. ;;58016090030
  1. ;;9002226.02101,"1149,58016090032 ",.01)
  1. ;;58016090032
  1. ;;9002226.02101,"1149,58016090032 ",.02)
  1. ;;58016090032
  1. ;;9002226.02101,"1149,58016090035 ",.01)
  1. ;;58016090035
  1. ;;9002226.02101,"1149,58016090035 ",.02)
  1. ;;58016090035
  1. ;;9002226.02101,"1149,58016090036 ",.01)
  1. ;;58016090036
  1. ;;9002226.02101,"1149,58016090036 ",.02)
  1. ;;58016090036
  1. ;;9002226.02101,"1149,58016090040 ",.01)
  1. ;;58016090040
  1. ;;9002226.02101,"1149,58016090040 ",.02)
  1. ;;58016090040
  1. ;;9002226.02101,"1149,58016090042 ",.01)
  1. ;;58016090042
  1. ;;9002226.02101,"1149,58016090042 ",.02)
  1. ;;58016090042
  1. ;;9002226.02101,"1149,58016090044 ",.01)
  1. ;;58016090044
  1. ;;9002226.02101,"1149,58016090044 ",.02)
  1. ;;58016090044
  1. ;;9002226.02101,"1149,58016090045 ",.01)
  1. ;;58016090045
  1. ;;9002226.02101,"1149,58016090045 ",.02)
  1. ;;58016090045
  1. ;;9002226.02101,"1149,58016090056 ",.01)
  1. ;;58016090056
  1. ;;9002226.02101,"1149,58016090056 ",.02)
  1. ;;58016090056
  1. ;;9002226.02101,"1149,58016090060 ",.01)
  1. ;;58016090060
  1. ;;9002226.02101,"1149,58016090060 ",.02)
  1. ;;58016090060
  1. ;;9002226.02101,"1149,58016090067 ",.01)
  1. ;;58016090067
  1. ;;9002226.02101,"1149,58016090067 ",.02)
  1. ;;58016090067
  1. ;;9002226.02101,"1149,58016090069 ",.01)
  1. ;;58016090069
  1. ;;9002226.02101,"1149,58016090069 ",.02)
  1. ;;58016090069
  1. ;;9002226.02101,"1149,58016090070 ",.01)
  1. ;;58016090070
  1. ;;9002226.02101,"1149,58016090070 ",.02)
  1. ;;58016090070
  1. ;;9002226.02101,"1149,58016090071 ",.01)
  1. ;;58016090071
  1. ;;9002226.02101,"1149,58016090071 ",.02)
  1. ;;58016090071
  1. ;;9002226.02101,"1149,58016090072 ",.01)
  1. ;;58016090072
  1. ;;9002226.02101,"1149,58016090072 ",.02)
  1. ;;58016090072
  1. ;;9002226.02101,"1149,58016090073 ",.01)
  1. ;;58016090073
  1. ;;9002226.02101,"1149,58016090073 ",.02)
  1. ;;58016090073
  1. ;;9002226.02101,"1149,58016090075 ",.01)
  1. ;;58016090075
  1. ;;9002226.02101,"1149,58016090075 ",.02)
  1. ;;58016090075
  1. ;;9002226.02101,"1149,58016090076 ",.01)
  1. ;;58016090076
  1. ;;9002226.02101,"1149,58016090076 ",.02)
  1. ;;58016090076
  1. ;;9002226.02101,"1149,58016090077 ",.01)
  1. ;;58016090077
  1. ;;9002226.02101,"1149,58016090077 ",.02)
  1. ;;58016090077
  1. ;;9002226.02101,"1149,58016090079 ",.01)
  1. ;;58016090079
  1. ;;9002226.02101,"1149,58016090079 ",.02)
  1. ;;58016090079
  1. ;;9002226.02101,"1149,58016090080 ",.01)
  1. ;;58016090080
  1. ;;9002226.02101,"1149,58016090080 ",.02)
  1. ;;58016090080
  1. ;;9002226.02101,"1149,58016090081 ",.01)
  1. ;;58016090081
  1. ;;9002226.02101,"1149,58016090081 ",.02)
  1. ;;58016090081
  1. ;;9002226.02101,"1149,58016090083 ",.01)
  1. ;;58016090083
  1. ;;9002226.02101,"1149,58016090083 ",.02)
  1. ;;58016090083
  1. ;;9002226.02101,"1149,58016090084 ",.01)
  1. ;;58016090084
  1. ;;9002226.02101,"1149,58016090084 ",.02)
  1. ;;58016090084
  1. ;;9002226.02101,"1149,58016090087 ",.01)
  1. ;;58016090087
  1. ;;9002226.02101,"1149,58016090087 ",.02)
  1. ;;58016090087
  1. ;;9002226.02101,"1149,58016090089 ",.01)
  1. ;;58016090089
  1. ;;9002226.02101,"1149,58016090089 ",.02)
  1. ;;58016090089
  1. ;;9002226.02101,"1149,58016090090 ",.01)
  1. ;;58016090090
  1. ;;9002226.02101,"1149,58016090090 ",.02)
  1. ;;58016090090
  1. ;;9002226.02101,"1149,58016090091 ",.01)
  1. ;;58016090091
  1. ;;9002226.02101,"1149,58016090091 ",.02)
  1. ;;58016090091
  1. ;;9002226.02101,"1149,58016090092 ",.01)
  1. ;;58016090092
  1. ;;9002226.02101,"1149,58016090092 ",.02)
  1. ;;58016090092
  1. ;;9002226.02101,"1149,58016090093 ",.01)
  1. ;;58016090093
  1. ;;9002226.02101,"1149,58016090093 ",.02)
  1. ;;58016090093
  1. ;;9002226.02101,"1149,58016090096 ",.01)
  1. ;;58016090096
  1. ;;9002226.02101,"1149,58016090096 ",.02)
  1. ;;58016090096
  1. ;;9002226.02101,"1149,58016090097 ",.01)
  1. ;;58016090097
  1. ;;9002226.02101,"1149,58016090097 ",.02)
  1. ;;58016090097
  1. ;;9002226.02101,"1149,58016090098 ",.01)
  1. ;;58016090098
  1. ;;9002226.02101,"1149,58016090098 ",.02)
  1. ;;58016090098
  1. ;;9002226.02101,"1149,58016090099 ",.01)
  1. ;;58016090099
  1. ;;9002226.02101,"1149,58016090099 ",.02)
  1. ;;58016090099
  1. ;;9002226.02101,"1149,58016092200 ",.01)
  1. ;;58016092200
  1. ;;9002226.02101,"1149,58016092200 ",.02)
  1. ;;58016092200
  1. ;;9002226.02101,"1149,58016092201 ",.01)
  1. ;;58016092201
  1. ;;9002226.02101,"1149,58016092201 ",.02)
  1. ;;58016092201
  1. ;;9002226.02101,"1149,58016092202 ",.01)
  1. ;;58016092202
  1. ;;9002226.02101,"1149,58016092202 ",.02)
  1. ;;58016092202
  1. ;;9002226.02101,"1149,58016092203 ",.01)
  1. ;;58016092203
  1. ;;9002226.02101,"1149,58016092203 ",.02)
  1. ;;58016092203
  1. ;;9002226.02101,"1149,58016092204 ",.01)
  1. ;;58016092204
  1. ;;9002226.02101,"1149,58016092204 ",.02)
  1. ;;58016092204
  1. ;;9002226.02101,"1149,58016092205 ",.01)
  1. ;;58016092205
  1. ;;9002226.02101,"1149,58016092205 ",.02)
  1. ;;58016092205
  1. ;;9002226.02101,"1149,58016092206 ",.01)
  1. ;;58016092206
  1. ;;9002226.02101,"1149,58016092206 ",.02)
  1. ;;58016092206
  1. ;;9002226.02101,"1149,58016092207 ",.01)
  1. ;;58016092207
  1. ;;9002226.02101,"1149,58016092207 ",.02)
  1. ;;58016092207
  1. ;;9002226.02101,"1149,58016092208 ",.01)
  1. ;;58016092208
  1. ;;9002226.02101,"1149,58016092208 ",.02)
  1. ;;58016092208
  1. ;;9002226.02101,"1149,58016092209 ",.01)
  1. ;;58016092209
  1. ;;9002226.02101,"1149,58016092209 ",.02)
  1. ;;58016092209
  1. ;;9002226.02101,"1149,58016092210 ",.01)
  1. ;;58016092210
  1. ;;9002226.02101,"1149,58016092210 ",.02)
  1. ;;58016092210
  1. ;;9002226.02101,"1149,58016092212 ",.01)
  1. ;;58016092212
  1. ;;9002226.02101,"1149,58016092212 ",.02)
  1. ;;58016092212
  1. ;;9002226.02101,"1149,58016092214 ",.01)
  1. ;;58016092214
  1. ;;9002226.02101,"1149,58016092214 ",.02)
  1. ;;58016092214
  1. ;;9002226.02101,"1149,58016092215 ",.01)
  1. ;;58016092215
  1. ;;9002226.02101,"1149,58016092215 ",.02)
  1. ;;58016092215
  1. ;;9002226.02101,"1149,58016092216 ",.01)
  1. ;;58016092216
  1. ;;9002226.02101,"1149,58016092216 ",.02)
  1. ;;58016092216
  1. ;;9002226.02101,"1149,58016092218 ",.01)
  1. ;;58016092218
  1. ;;9002226.02101,"1149,58016092218 ",.02)
  1. ;;58016092218
  1. ;;9002226.02101,"1149,58016092220 ",.01)
  1. ;;58016092220
  1. ;;9002226.02101,"1149,58016092220 ",.02)
  1. ;;58016092220
  1. ;;9002226.02101,"1149,58016092221 ",.01)
  1. ;;58016092221
  1. ;;9002226.02101,"1149,58016092221 ",.02)
  1. ;;58016092221