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

BUD2ZA6.m

Go to the documentation of this file.
BUD2ZA6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 16, 2012;
 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"67317337601 ")
 ;;2061
 ;;21,"67544009631 ")
 ;;2062
 ;;21,"67544009660 ")
 ;;2063
 ;;21,"67544009680 ")
 ;;2064
 ;;21,"67544010615 ")
 ;;2065
 ;;21,"67544010630 ")
 ;;2066
 ;;21,"67544010631 ")
 ;;2067
 ;;21,"67544010632 ")
 ;;2068
 ;;21,"67544010645 ")
 ;;2069
 ;;21,"67544010653 ")
 ;;2070
 ;;21,"67544010660 ")
 ;;2071
 ;;21,"67544013730 ")
 ;;2072
 ;;21,"67544013731 ")
 ;;2073
 ;;21,"67544013732 ")
 ;;2074
 ;;21,"67544013760 ")
 ;;2075
 ;;21,"67544013780 ")
 ;;2076
 ;;21,"67544022515 ")
 ;;2077
 ;;21,"67544022530 ")
 ;;2078
 ;;21,"67544022532 ")
 ;;2079
 ;;21,"67544022545 ")
 ;;2080
 ;;21,"67544022553 ")
 ;;2081
 ;;21,"67544022560 ")
 ;;2082
 ;;21,"67544022580 ")
 ;;2083
 ;;21,"67544035160 ")
 ;;2084
 ;;21,"67544035180 ")
 ;;2085
 ;;21,"67544060131 ")
 ;;2086
 ;;21,"67544069231 ")
 ;;2087
 ;;21,"67544069232 ")
 ;;2088
 ;;21,"67544078932 ")
 ;;2089
 ;;21,"67544083031 ")
 ;;2090
 ;;21,"67544085430 ")
 ;;2091
 ;;21,"67544085445 ")
 ;;2092
 ;;21,"67544085453 ")
 ;;2093
 ;;21,"67544085460 ")
 ;;2094
 ;;21,"67544085515 ")
 ;;2095
 ;;21,"67544085530 ")
 ;;2096
 ;;21,"67544085545 ")
 ;;2097
 ;;21,"67544085560 ")
 ;;2098
 ;;21,"67544085615 ")
 ;;2099
 ;;21,"67544085645 ")
 ;;2100
 ;;21,"67544085715 ")
 ;;2101
 ;;21,"67544085716 ")
 ;;2102
 ;;21,"67544085745 ")
 ;;2103
 ;;21,"67544085753 ")
 ;;2104
 ;;21,"67544091032 ")
 ;;2105
 ;;21,"67544092230 ")
 ;;2106
 ;;21,"67544092231 ")
 ;;2107
 ;;21,"67544092232 ")
 ;;2108
 ;;21,"67544092245 ")
 ;;2109
 ;;21,"67544093632 ")
 ;;2110
 ;;21,"67651002205 ")
 ;;2111
 ;;21,"67651002206 ")
 ;;2112
 ;;21,"67787022505 ")
 ;;2113
 ;;21,"67787022518 ")
 ;;2114
 ;;21,"67787022540 ")
 ;;2115
 ;;21,"67787022552 ")
 ;;2116
 ;;21,"67787022560 ")
 ;;2117
 ;;21,"68071069005 ")
 ;;2118
 ;;21,"68071069930 ")
 ;;2119
 ;;21,"68071070430 ")
 ;;2120
 ;;21,"68071071630 ")
 ;;2121
 ;;21,"68084013101 ")
 ;;2122
 ;;21,"68084013110 ")
 ;;2123
 ;;21,"68084013111 ")
 ;;2124
 ;;21,"68084013201 ")
 ;;2125
 ;;21,"68084013210 ")
 ;;2126
 ;;21,"68084013301 ")
 ;;2127
 ;;21,"68084013310 ")
 ;;2128
 ;;21,"68084016101 ")
 ;;2129
 ;;21,"68084016111 ")
 ;;2130
 ;;21,"68084016201 ")
 ;;2131
 ;;21,"68084016211 ")
 ;;2132
 ;;21,"68084016301 ")
 ;;2133
 ;;21,"68084016311 ")
 ;;2134
 ;;21,"68084016401 ")
 ;;2135
 ;;21,"68084016411 ")
 ;;2136
 ;;21,"68084016501 ")
 ;;2137
 ;;21,"68084016511 ")
 ;;2138
 ;;21,"68084031214 ")
 ;;2139
 ;;21,"68084032801 ")
 ;;2140
 ;;21,"68084032821 ")
 ;;2141
 ;;21,"68084032921 ")
 ;;2142
 ;;21,"68115015360 ")
 ;;2143
 ;;21,"68115015390 ")
 ;;2144
 ;;21,"68115021830 ")
 ;;2145
 ;;21,"68115021930 ")
 ;;2146
 ;;21,"68115021960 ")
 ;;2147
 ;;21,"68115065800 ")
 ;;2148
 ;;21,"68180046701 ")
 ;;2149
 ;;21,"68180046703 ")
 ;;2150
 ;;21,"68180046707 ")
 ;;2151
 ;;21,"68180046801 ")
 ;;2152
 ;;21,"68180046803 ")
 ;;2153
 ;;21,"68180046805 ")
 ;;2154
 ;;21,"68180046807 ")
 ;;2155
 ;;21,"68180046809 ")
 ;;2156
 ;;21,"68180046901 ")
 ;;2157
 ;;21,"68180046903 ")
 ;;2158
 ;;21,"68180046905 ")
 ;;2159
 ;;21,"68180046907 ")
 ;;2160
 ;;21,"68180046909 ")
 ;;2161
 ;;21,"68180047801 ")
 ;;2162
 ;;21,"68180047802 ")
 ;;2163
 ;;21,"68180047803 ")
 ;;2164
 ;;21,"68180047901 ")
 ;;2165
 ;;21,"68180047902 ")
 ;;2166
 ;;21,"68180047903 ")
 ;;2167
 ;;21,"68180048001 ")
 ;;2168
 ;;21,"68180048002 ")
 ;;2169
 ;;21,"68180048003 ")
 ;;2170
 ;;21,"68180048101 ")
 ;;2171
 ;;21,"68180048102 ")
 ;;2172
 ;;21,"68180048103 ")
 ;;2173
 ;;21,"68180048203 ")
 ;;2174
 ;;21,"68180048206 ")
 ;;2175
 ;;21,"68180048209 ")
 ;;2176
 ;;21,"68180048213 ")
 ;;2177
 ;;21,"68382006505 ")
 ;;2178
 ;;21,"68382006506 ")
 ;;2179
 ;;21,"68382006510 ")
 ;;2180
 ;;21,"68382006514 ")
 ;;2181
 ;;21,"68382006516 ")
 ;;2182
 ;;21,"68382006605 ")
 ;;2183
 ;;21,"68382006606 ")
 ;;2184
 ;;21,"68382006610 ")
 ;;2185
 ;;21,"68382006614 ")
 ;;2186
 ;;21,"68382006616 ")
 ;;2187
 ;;21,"68382006624 ")
 ;;2188
 ;;21,"68382006705 ")
 ;;2189
 ;;21,"68382006706 ")
 ;;2190
 ;;21,"68382006710 ")
 ;;2191
 ;;21,"68382006714 ")
 ;;2192
 ;;21,"68382006716 ")
 ;;2193
 ;;21,"68382006724 ")
 ;;2194
 ;;21,"68382006805 ")
 ;;2195
 ;;21,"68382006806 ")
 ;;2196
 ;;21,"68382006810 ")
 ;;2197
 ;;21,"68382006814 ")
 ;;2198
 ;;21,"68382006816 ")
 ;;2199
 ;;21,"68382006819 ")
 ;;2200
 ;;21,"68382006840 ")
 ;;2201
 ;;21,"68382006905 ")
 ;;2202
 ;;21,"68382006906 ")
 ;;2203
 ;;21,"68382006910 ")
 ;;2204
 ;;21,"68382006914 ")
 ;;2205
 ;;21,"68382006916 ")
 ;;2206
 ;;21,"68382010005 ")
 ;;2207
 ;;21,"68382010014 ")
 ;;2208
 ;;21,"68533000500 ")
 ;;2209
 ;;21,"68533000512 ")
 ;;2210
 ;;21,"68533000525 ")
 ;;2211
 ;;21,"68533000540 ")
 ;;2212
 ;;21,"68533000600 ")
 ;;2213
 ;;21,"68533000612 ")
 ;;2214
 ;;21,"68533000625 ")
 ;;2215
 ;;21,"68533000640 ")
 ;;2216
 ;;21,"68533000700 ")
 ;;2217
 ;;21,"68533000712 ")
 ;;2218
 ;;21,"68533000740 ")
 ;;2219
 ;;21,"68533000745 ")
 ;;2220
 ;;21,"68533000800 ")
 ;;2221
 ;;21,"68533000812 ")
 ;;2222
 ;;21,"68533000822 ")
 ;;2223
 ;;21,"68533000840 ")
 ;;2224
 ;;21,"68533000900 ")
 ;;2225
 ;;21,"68533000912 ")
 ;;2226
 ;;21,"68533000922 ")
 ;;2227
 ;;21,"68533000940 ")
 ;;2228
 ;;21,"68533050550 ")
 ;;2229
 ;;21,"68533050590 ")
 ;;2230
 ;;21,"68533050650 ")
 ;;2231
 ;;21,"68533050690 ")
 ;;2232
 ;;21,"68533050750 ")
 ;;2233
 ;;21,"68533050890 ")
 ;;2234
 ;;21,"68533050990 ")
 ;;2235
 ;;21,"68688009300 ")
 ;;2236
 ;;21,"68688029200 ")
 ;;2237
 ;;21,"68688038400 ")
 ;;2238
 ;;21,"68688087900 ")
 ;;2239
 ;;21,"68688092400 ")
 ;;2240
 ;;21,"68788003403 ")
 ;;2241
 ;;21,"68788003405 ")
 ;;2242
 ;;21,"68788003406 ")
 ;;2243
 ;;21,"68788005203 ")
 ;;2244
 ;;21,"68788005206 ")
 ;;2245
 ;;21,"68788005209 ")
 ;;2246
 ;;21,"68788007403 ")
 ;;2247
 ;;21,"68788007406 ")
 ;;2248
 ;;21,"68788007409 ")
 ;;2249
 ;;21,"68788057603 ")
 ;;2250
 ;;21,"68788057606 ")
 ;;2251
 ;;21,"68788057609 ")
 ;;2252
 ;;21,"68788070603 ")
 ;;2253
 ;;21,"68788070606 ")
 ;;2254
 ;;21,"68788070609 ")
 ;;2255
 ;;21,"68788075503 ")
 ;;2256
 ;;21,"68788075506 ")
 ;;2257
 ;;21,"68788075509 ")
 ;;2258
 ;;21,"68788079603 ")
 ;;2259
 ;;21,"68788079606 ")
 ;;2260
 ;;21,"68788079609 ")
 ;;2261
 ;;21,"68788092603 ")
 ;;2262
 ;;21,"68788092606 ")
 ;;2263
 ;;21,"68788092609 ")
 ;;2264
 ;;21,"68788092803 ")
 ;;2265
 ;;21,"68788092806 ")
 ;;2266
 ;;21,"68788092809 ")
 ;;2267
 ;;21,"68788236403 ")
 ;;2268
 ;;21,"68788236406 ")
 ;;2269
 ;;21,"68788236409 ")
 ;;2270
 ;;21,"68788263303 ")
 ;;2271
 ;;21,"68788263306 ")
 ;;2272
 ;;21,"68788263309 ")
 ;;2273
 ;;21,"68788263403 ")
 ;;2274
 ;;21,"68788263503 ")
 ;;2275
 ;;21,"68788263506 ")
 ;;2276
 ;;21,"68788263509 ")
 ;;2277
 ;;21,"74312000720 ")
 ;;2278
 ;;21,"74312001483 ")
 ;;2279
 ;;21,"74312001660 ")
 ;;2280
 ;;21,"74312005800 ")
 ;;2281
 ;;9002226,1149,.01)
 ;;BGPMU LIPID LOWERING NDCS
 ;;9002226,1149,.02)
 ;;MU CQM Lipid Lowering NDCs
 ;;9002226,1149,.04)
 ;;n
 ;;9002226,1149,.06)
 ;;@
 ;;9002226,1149,.08)
 ;;@
 ;;9002226,1149,.09)
 ;;@
 ;;9002226,1149,.11)
 ;;@
 ;;9002226,1149,.12)
 ;;@
 ;;9002226,1149,.13)
 ;;@
 ;;9002226,1149,.14)
 ;;@
 ;;9002226,1149,.15)
 ;;@
 ;;9002226,1149,.16)
 ;;@
 ;;9002226,1149,.17)
 ;;@
 ;;9002226,1149,3101)
 ;;@
 ;;9002226.02101,"1149,00002104202 ",.01)
 ;;00002104202
 ;;9002226.02101,"1149,00002104202 ",.02)
 ;;00002104202
 ;;9002226.02101,"1149,00002104302 ",.01)
 ;;00002104302
 ;;9002226.02101,"1149,00002104302 ",.02)
 ;;00002104302
 ;;9002226.02101,"1149,00002104304 ",.01)
 ;;00002104304
 ;;9002226.02101,"1149,00002104304 ",.02)
 ;;00002104304
 ;;9002226.02101,"1149,00003061150 ",.01)
 ;;00003061150
 ;;9002226.02101,"1149,00003061150 ",.02)
 ;;00003061150
 ;;9002226.02101,"1149,00003061250 ",.01)
 ;;00003061250
 ;;9002226.02101,"1149,00003061250 ",.02)
 ;;00003061250
 ;;9002226.02101,"1149,00005316031 ",.01)
 ;;00005316031
 ;;9002226.02101,"1149,00005316031 ",.02)
 ;;00005316031
 ;;9002226.02101,"1149,00005316032 ",.01)
 ;;00005316032
 ;;9002226.02101,"1149,00005316032 ",.02)
 ;;00005316032
 ;;9002226.02101,"1149,00006074007 ",.01)
 ;;00006074007
 ;;9002226.02101,"1149,00006074007 ",.02)
 ;;00006074007
 ;;9002226.02101,"1149,00006388810 ",.01)
 ;;00006388810
 ;;9002226.02101,"1149,00006388810 ",.02)
 ;;00006388810
 ;;9002226.02101,"1149,00006388830 ",.01)
 ;;00006388830
 ;;9002226.02101,"1149,00006388830 ",.02)
 ;;00006388830
 ;;9002226.02101,"1149,00006388890 ",.01)
 ;;00006388890
 ;;9002226.02101,"1149,00006388890 ",.02)
 ;;00006388890
 ;;9002226.02101,"1149,00006388910 ",.01)
 ;;00006388910
 ;;9002226.02101,"1149,00006388910 ",.02)
 ;;00006388910
 ;;9002226.02101,"1149,00006388930 ",.01)
 ;;00006388930
 ;;9002226.02101,"1149,00006388930 ",.02)
 ;;00006388930
 ;;9002226.02101,"1149,00006388990 ",.01)
 ;;00006388990
 ;;9002226.02101,"1149,00006388990 ",.02)
 ;;00006388990
 ;;9002226.02101,"1149,00006389010 ",.01)
 ;;00006389010
 ;;9002226.02101,"1149,00006389010 ",.02)
 ;;00006389010
 ;;9002226.02101,"1149,00006389030 ",.01)
 ;;00006389030
 ;;9002226.02101,"1149,00006389030 ",.02)
 ;;00006389030
 ;;9002226.02101,"1149,00006389090 ",.01)
 ;;00006389090
 ;;9002226.02101,"1149,00006389090 ",.02)
 ;;00006389090
 ;;9002226.02101,"1149,00006389110 ",.01)
 ;;00006389110
 ;;9002226.02101,"1149,00006389110 ",.02)
 ;;00006389110
 ;;9002226.02101,"1149,00006389130 ",.01)
 ;;00006389130
 ;;9002226.02101,"1149,00006389130 ",.02)
 ;;00006389130
 ;;9002226.02101,"1149,00006389190 ",.01)
 ;;00006389190
 ;;9002226.02101,"1149,00006389190 ",.02)
 ;;00006389190
 ;;9002226.02101,"1149,00009046001 ",.01)
 ;;00009046001
 ;;9002226.02101,"1149,00009046001 ",.02)
 ;;00009046001
 ;;9002226.02101,"1149,00016944214 ",.01)
 ;;00016944214
 ;;9002226.02101,"1149,00016944214 ",.02)
 ;;00016944214
 ;;9002226.02101,"1149,00021331290 ",.01)
 ;;00021331290
 ;;9002226.02101,"1149,00021331290 ",.02)
 ;;00021331290
 ;;9002226.02101,"1149,00047008420 ",.01)
 ;;00047008420
 ;;9002226.02101,"1149,00047008420 ",.02)
 ;;00047008420
 ;;9002226.02101,"1149,00047008430 ",.01)
 ;;00047008430
 ;;9002226.02101,"1149,00047008430 ",.02)
 ;;00047008430
 ;;9002226.02101,"1149,00047008440 ",.01)
 ;;00047008440
 ;;9002226.02101,"1149,00047008440 ",.02)
 ;;00047008440
 ;;9002226.02101,"1149,00047201020 ",.01)
 ;;00047201020
 ;;9002226.02101,"1149,00047201020 ",.02)
 ;;00047201020
 ;;9002226.02101,"1149,00047201022 ",.01)
 ;;00047201022
 ;;9002226.02101,"1149,00047201022 ",.02)
 ;;00047201022
 ;;9002226.02101,"1149,00047201120 ",.01)
 ;;00047201120
 ;;9002226.02101,"1149,00047201120 ",.02)
 ;;00047201120
 ;;9002226.02101,"1149,00047201122 ",.01)
 ;;00047201122
 ;;9002226.02101,"1149,00047201122 ",.02)
 ;;00047201122
 ;;9002226.02101,"1149,00048123001 ",.01)
 ;;00048123001
 ;;9002226.02101,"1149,00048123001 ",.02)
 ;;00048123001
 ;;9002226.02101,"1149,00048125001 ",.01)
 ;;00048125001
 ;;9002226.02101,"1149,00048125001 ",.02)
 ;;00048125001
 ;;9002226.02101,"1149,00048125007 ",.01)
 ;;00048125007
 ;;9002226.02101,"1149,00048125007 ",.02)
 ;;00048125007
 ;;9002226.02101,"1149,00048127001 ",.01)
 ;;00048127001
 ;;9002226.02101,"1149,00048127001 ",.02)
 ;;00048127001
 ;;9002226.02101,"1149,00048127007 ",.01)
 ;;00048127007
 ;;9002226.02101,"1149,00048127007 ",.02)
 ;;00048127007
 ;;9002226.02101,"1149,00048129001 ",.01)
 ;;00048129001
 ;;9002226.02101,"1149,00048129001 ",.02)
 ;;00048129001
 ;;9002226.02101,"1149,00048129003 ",.01)
 ;;00048129003
 ;;9002226.02101,"1149,00048129003 ",.02)
 ;;00048129003
 ;;9002226.02101,"1149,00068005104 ",.01)
 ;;00068005104
 ;;9002226.02101,"1149,00068005104 ",.02)
 ;;00068005104
 ;;9002226.02101,"1149,00068005111 ",.01)
 ;;00068005111
 ;;9002226.02101,"1149,00068005111 ",.02)
 ;;00068005111
 ;;9002226.02101,"1149,00068005127 ",.01)
 ;;00068005127
 ;;9002226.02101,"1149,00068005127 ",.02)
 ;;00068005127
 ;;9002226.02101,"1149,00068005179 ",.01)
 ;;00068005179
 ;;9002226.02101,"1149,00068005179 ",.02)
 ;;00068005179
 ;;9002226.02101,"1149,00068005183 ",.01)
 ;;00068005183
 ;;9002226.02101,"1149,00068005183 ",.02)
 ;;00068005183
 ;;9002226.02101,"1149,00071066924 ",.01)
 ;;00071066924
 ;;9002226.02101,"1149,00071066924 ",.02)
 ;;00071066924
 ;;9002226.02101,"1149,00071066930 ",.01)
 ;;00071066930
 ;;9002226.02101,"1149,00071066930 ",.02)
 ;;00071066930
 ;;9002226.02101,"1149,00071089513 ",.01)
 ;;00071089513
 ;;9002226.02101,"1149,00071089513 ",.02)
 ;;00071089513
 ;;9002226.02101,"1149,00071089613 ",.01)
 ;;00071089613
 ;;9002226.02101,"1149,00071089613 ",.02)
 ;;00071089613
 ;;9002226.02101,"1149,00084001301 ",.01)
 ;;00084001301
 ;;9002226.02101,"1149,00084001301 ",.02)
 ;;00084001301
 ;;9002226.02101,"1149,00087058001 ",.01)
 ;;00087058001
 ;;9002226.02101,"1149,00087058001 ",.02)
 ;;00087058001
 ;;9002226.02101,"1149,00087058004 ",.01)
 ;;00087058004
 ;;9002226.02101,"1149,00087058004 ",.02)
 ;;00087058004
 ;;9002226.02101,"1149,00093057606 ",.01)
 ;;00093057606