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

BGPM5ADU.m

Go to the documentation of this file.
  1. BGPM5ADU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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. ;;21,"58016093550 ")
  1. ;;1994
  1. ;;21,"58016093556 ")
  1. ;;1995
  1. ;;21,"58016093560 ")
  1. ;;1996
  1. ;;21,"58016093567 ")
  1. ;;1997
  1. ;;21,"58016093569 ")
  1. ;;1998
  1. ;;21,"58016093570 ")
  1. ;;1999
  1. ;;21,"58016093571 ")
  1. ;;2000
  1. ;;21,"58016093572 ")
  1. ;;2001
  1. ;;21,"58016093573 ")
  1. ;;2002
  1. ;;21,"58016093575 ")
  1. ;;2003
  1. ;;21,"58016093576 ")
  1. ;;2004
  1. ;;21,"58016093577 ")
  1. ;;2005
  1. ;;21,"58016093579 ")
  1. ;;2006
  1. ;;21,"58016093580 ")
  1. ;;2007
  1. ;;21,"58016093581 ")
  1. ;;2008
  1. ;;21,"58016093582 ")
  1. ;;2009
  1. ;;21,"58016093583 ")
  1. ;;2010
  1. ;;21,"58016093584 ")
  1. ;;2011
  1. ;;21,"58016093587 ")
  1. ;;2012
  1. ;;21,"58016093589 ")
  1. ;;2013
  1. ;;21,"58016093590 ")
  1. ;;2014
  1. ;;21,"58016093591 ")
  1. ;;2015
  1. ;;21,"58016093592 ")
  1. ;;2016
  1. ;;21,"58016093593 ")
  1. ;;2017
  1. ;;21,"58016093596 ")
  1. ;;2018
  1. ;;21,"58016093597 ")
  1. ;;2019
  1. ;;21,"58016093598 ")
  1. ;;2020
  1. ;;21,"58016093599 ")
  1. ;;2021
  1. ;;21,"58016096300 ")
  1. ;;2022
  1. ;;21,"58016096301 ")
  1. ;;2023
  1. ;;21,"58016096302 ")
  1. ;;2024
  1. ;;21,"58016096303 ")
  1. ;;2025
  1. ;;21,"58016096304 ")
  1. ;;2026
  1. ;;21,"58016096305 ")
  1. ;;2027
  1. ;;21,"58016096306 ")
  1. ;;2028
  1. ;;21,"58016096307 ")
  1. ;;2029
  1. ;;21,"58016096308 ")
  1. ;;2030
  1. ;;21,"58016096309 ")
  1. ;;2031
  1. ;;21,"58016096310 ")
  1. ;;2032
  1. ;;21,"58016096312 ")
  1. ;;2033
  1. ;;21,"58016096314 ")
  1. ;;2034
  1. ;;21,"58016096315 ")
  1. ;;2035
  1. ;;21,"58016096316 ")
  1. ;;2036
  1. ;;21,"58016096318 ")
  1. ;;2037
  1. ;;21,"58016096320 ")
  1. ;;2038
  1. ;;21,"58016096321 ")
  1. ;;2039
  1. ;;21,"58016096324 ")
  1. ;;2040
  1. ;;21,"58016096325 ")
  1. ;;2041
  1. ;;21,"58016096326 ")
  1. ;;2042
  1. ;;21,"58016096327 ")
  1. ;;2043
  1. ;;21,"58016096328 ")
  1. ;;2044
  1. ;;21,"58016096330 ")
  1. ;;2045
  1. ;;21,"58016096332 ")
  1. ;;2046
  1. ;;21,"58016096335 ")
  1. ;;2047
  1. ;;21,"58016096336 ")
  1. ;;2048
  1. ;;21,"58016096340 ")
  1. ;;2049
  1. ;;21,"58016096342 ")
  1. ;;2050
  1. ;;21,"58016096344 ")
  1. ;;2051
  1. ;;21,"58016096345 ")
  1. ;;2052
  1. ;;21,"58016096348 ")
  1. ;;2053
  1. ;;21,"58016096350 ")
  1. ;;2054
  1. ;;21,"58016096356 ")
  1. ;;2055
  1. ;;21,"58016096360 ")
  1. ;;2056
  1. ;;21,"58016096367 ")
  1. ;;2057
  1. ;;21,"58016096369 ")
  1. ;;2058
  1. ;;21,"58016096370 ")
  1. ;;2059
  1. ;;21,"58016096371 ")
  1. ;;2060
  1. ;;21,"58016096372 ")
  1. ;;2061
  1. ;;21,"58016096373 ")
  1. ;;2062
  1. ;;21,"58016096375 ")
  1. ;;2063
  1. ;;21,"58016096376 ")
  1. ;;2064
  1. ;;21,"58016096377 ")
  1. ;;2065
  1. ;;21,"58016096379 ")
  1. ;;2066
  1. ;;21,"58016096380 ")
  1. ;;2067
  1. ;;21,"58016096381 ")
  1. ;;2068
  1. ;;21,"58016096382 ")
  1. ;;2069
  1. ;;21,"58016096383 ")
  1. ;;2070
  1. ;;21,"58016096384 ")
  1. ;;2071
  1. ;;21,"58016096387 ")
  1. ;;2072
  1. ;;21,"58016096389 ")
  1. ;;2073
  1. ;;21,"58016096390 ")
  1. ;;2074
  1. ;;21,"58016096391 ")
  1. ;;2075
  1. ;;21,"58016096392 ")
  1. ;;2076
  1. ;;21,"58016096393 ")
  1. ;;2077
  1. ;;21,"58016096396 ")
  1. ;;2078
  1. ;;21,"58016096397 ")
  1. ;;2079
  1. ;;21,"58016096398 ")
  1. ;;2080
  1. ;;21,"58016096399 ")
  1. ;;2081
  1. ;;21,"58016099200 ")
  1. ;;2082
  1. ;;21,"58016099201 ")
  1. ;;2083
  1. ;;21,"58016099202 ")
  1. ;;2084
  1. ;;21,"58016099203 ")
  1. ;;2085
  1. ;;21,"58016099204 ")
  1. ;;2086
  1. ;;21,"58016099205 ")
  1. ;;2087
  1. ;;21,"58016099206 ")
  1. ;;2088
  1. ;;21,"58016099207 ")
  1. ;;2089
  1. ;;21,"58016099208 ")
  1. ;;2090
  1. ;;21,"58016099209 ")
  1. ;;2091
  1. ;;21,"58016099210 ")
  1. ;;2092
  1. ;;21,"58016099212 ")
  1. ;;2093
  1. ;;21,"58016099214 ")
  1. ;;2094
  1. ;;21,"58016099215 ")
  1. ;;2095
  1. ;;21,"58016099216 ")
  1. ;;2096
  1. ;;21,"58016099218 ")
  1. ;;2097
  1. ;;21,"58016099220 ")
  1. ;;2098
  1. ;;21,"58016099221 ")
  1. ;;2099
  1. ;;21,"58016099224 ")
  1. ;;2100
  1. ;;21,"58016099225 ")
  1. ;;2101
  1. ;;21,"58016099226 ")
  1. ;;2102
  1. ;;21,"58016099227 ")
  1. ;;2103
  1. ;;21,"58016099228 ")
  1. ;;2104
  1. ;;21,"58016099230 ")
  1. ;;2105
  1. ;;21,"58016099232 ")
  1. ;;2106
  1. ;;21,"58016099235 ")
  1. ;;2107
  1. ;;21,"58016099236 ")
  1. ;;2108
  1. ;;21,"58016099242 ")
  1. ;;2109
  1. ;;21,"58016099244 ")
  1. ;;2110
  1. ;;21,"58016099245 ")
  1. ;;2111
  1. ;;21,"58016099248 ")
  1. ;;2112
  1. ;;21,"58016099250 ")
  1. ;;2113
  1. ;;21,"58016099256 ")
  1. ;;2114
  1. ;;21,"58016099260 ")
  1. ;;2115
  1. ;;21,"58016099267 ")
  1. ;;2116
  1. ;;21,"58016099269 ")
  1. ;;2117
  1. ;;21,"58016099270 ")
  1. ;;2118
  1. ;;21,"58016099271 ")
  1. ;;2119
  1. ;;21,"58016099272 ")
  1. ;;2120
  1. ;;21,"58016099273 ")
  1. ;;2121
  1. ;;21,"58016099275 ")
  1. ;;2122
  1. ;;21,"58016099276 ")
  1. ;;2123
  1. ;;21,"58016099277 ")
  1. ;;2124
  1. ;;21,"58016099279 ")
  1. ;;2125
  1. ;;21,"58016099280 ")
  1. ;;2126
  1. ;;21,"58016099281 ")
  1. ;;2127
  1. ;;21,"58016099282 ")
  1. ;;2128
  1. ;;21,"58016099283 ")
  1. ;;2129
  1. ;;21,"58016099284 ")
  1. ;;2130
  1. ;;21,"58016099287 ")
  1. ;;2131
  1. ;;21,"58016099289 ")
  1. ;;2132
  1. ;;21,"58016099290 ")
  1. ;;2133
  1. ;;21,"58016099291 ")
  1. ;;2134
  1. ;;21,"58016099292 ")
  1. ;;2135
  1. ;;21,"58016099293 ")
  1. ;;2136
  1. ;;21,"58016099296 ")
  1. ;;2137
  1. ;;21,"58016099297 ")
  1. ;;2138
  1. ;;21,"58016099298 ")
  1. ;;2139
  1. ;;21,"58016099299 ")
  1. ;;2140
  1. ;;21,"58016099800 ")
  1. ;;2141
  1. ;;21,"58016099801 ")
  1. ;;2142
  1. ;;21,"58016099802 ")
  1. ;;2143
  1. ;;21,"58016099803 ")
  1. ;;2144
  1. ;;21,"58016099804 ")
  1. ;;2145
  1. ;;21,"58016099805 ")
  1. ;;2146
  1. ;;21,"58016099806 ")
  1. ;;2147
  1. ;;21,"58016099807 ")
  1. ;;2148
  1. ;;21,"58016099808 ")
  1. ;;2149
  1. ;;21,"58016099809 ")
  1. ;;2150
  1. ;;21,"58016099810 ")
  1. ;;2151
  1. ;;21,"58016099812 ")
  1. ;;2152
  1. ;;21,"58016099814 ")
  1. ;;2153
  1. ;;21,"58016099815 ")
  1. ;;2154
  1. ;;21,"58016099816 ")
  1. ;;2155
  1. ;;21,"58016099818 ")
  1. ;;2156
  1. ;;21,"58016099820 ")
  1. ;;2157
  1. ;;21,"58016099821 ")
  1. ;;2158
  1. ;;21,"58016099824 ")
  1. ;;2159
  1. ;;21,"58016099825 ")
  1. ;;2160
  1. ;;21,"58016099826 ")
  1. ;;2161
  1. ;;21,"58016099827 ")
  1. ;;2162
  1. ;;21,"58016099828 ")
  1. ;;2163
  1. ;;21,"58016099830 ")
  1. ;;2164
  1. ;;21,"58016099832 ")
  1. ;;2165
  1. ;;21,"58016099835 ")
  1. ;;2166
  1. ;;21,"58016099836 ")
  1. ;;2167
  1. ;;21,"58016099840 ")
  1. ;;2168
  1. ;;21,"58016099842 ")
  1. ;;2169
  1. ;;21,"58016099844 ")
  1. ;;2170
  1. ;;21,"58016099845 ")
  1. ;;2171
  1. ;;21,"58016099848 ")
  1. ;;2172
  1. ;;21,"58016099850 ")
  1. ;;2173
  1. ;;21,"58016099856 ")
  1. ;;2174
  1. ;;21,"58016099860 ")
  1. ;;2175
  1. ;;21,"58016099867 ")
  1. ;;2176
  1. ;;21,"58016099869 ")
  1. ;;2177
  1. ;;21,"58016099870 ")
  1. ;;2178
  1. ;;21,"58016099871 ")
  1. ;;2179
  1. ;;21,"58016099872 ")
  1. ;;2180
  1. ;;21,"58016099873 ")
  1. ;;2181
  1. ;;21,"58016099875 ")
  1. ;;2182
  1. ;;21,"58016099876 ")
  1. ;;2183
  1. ;;21,"58016099877 ")
  1. ;;2184
  1. ;;21,"58016099879 ")
  1. ;;2185
  1. ;;21,"58016099880 ")
  1. ;;2186
  1. ;;21,"58016099881 ")
  1. ;;2187
  1. ;;21,"58016099882 ")
  1. ;;2188
  1. ;;21,"58016099883 ")
  1. ;;2189
  1. ;;21,"58016099884 ")
  1. ;;2190
  1. ;;21,"58016099887 ")
  1. ;;2191
  1. ;;21,"58016099889 ")
  1. ;;2192
  1. ;;21,"58016099890 ")
  1. ;;2193
  1. ;;21,"58016099891 ")
  1. ;;2194
  1. ;;21,"58016099892 ")
  1. ;;2195
  1. ;;21,"58016099893 ")
  1. ;;2196
  1. ;;21,"58016099896 ")
  1. ;;2197
  1. ;;21,"58016099897 ")
  1. ;;2198
  1. ;;21,"58016099898 ")
  1. ;;2199
  1. ;;21,"58016099899 ")
  1. ;;2200
  1. ;;21,"58087007630 ")
  1. ;;2201
  1. ;;21,"58087007730 ")
  1. ;;2202
  1. ;;21,"58864000630 ")
  1. ;;2203
  1. ;;21,"58864006628 ")
  1. ;;2204
  1. ;;21,"58864060315 ")
  1. ;;2205
  1. ;;21,"58864060330 ")
  1. ;;2206
  1. ;;21,"58864060390 ")
  1. ;;2207
  1. ;;21,"58864061815 ")
  1. ;;2208
  1. ;;21,"58864061830 ")
  1. ;;2209
  1. ;;21,"58864075030 ")
  1. ;;2210
  1. ;;21,"58864075330 ")
  1. ;;2211
  1. ;;21,"58864075390 ")
  1. ;;2212
  1. ;;21,"58864075430 ")
  1. ;;2213
  1. ;;21,"58864075530 ")
  1. ;;2214
  1. ;;21,"58864076230 ")
  1. ;;2215
  1. ;;21,"58864077430 ")
  1. ;;2216
  1. ;;21,"58864077490 ")
  1. ;;2217
  1. ;;21,"58864078730 ")
  1. ;;2218
  1. ;;21,"59564012820 ")
  1. ;;2219
  1. ;;21,"59762022001 ")
  1. ;;2220
  1. ;;21,"59762022201 ")
  1. ;;2221
  1. ;;21,"59762022301 ")
  1. ;;2222
  1. ;;21,"59762214001 ")
  1. ;;2223
  1. ;;21,"59762214006 ")
  1. ;;2224
  1. ;;21,"59762214101 ")
  1. ;;2225
  1. ;;21,"59762214106 ")
  1. ;;2226
  1. ;;21,"59762227001 ")
  1. ;;2227
  1. ;;21,"59762227003 ")
  1. ;;2228
  1. ;;21,"59762227007 ")
  1. ;;2229
  1. ;;21,"59762227101 ")
  1. ;;2230
  1. ;;21,"59762227103 ")
  1. ;;2231
  1. ;;21,"59762227107 ")
  1. ;;2232
  1. ;;21,"59762227201 ")
  1. ;;2233
  1. ;;21,"59762227203 ")
  1. ;;2234
  1. ;;21,"59762227207 ")
  1. ;;2235
  1. ;;21,"59762227301 ")
  1. ;;2236
  1. ;;21,"59762227303 ")
  1. ;;2237
  1. ;;21,"59762227307 ")
  1. ;;2238
  1. ;;21,"59762227401 ")
  1. ;;2239
  1. ;;21,"59762227403 ")
  1. ;;2240
  1. ;;21,"59762227407 ")
  1. ;;2241
  1. ;;21,"59762227501 ")
  1. ;;2242
  1. ;;21,"59762227503 ")
  1. ;;2243
  1. ;;21,"59762227507 ")
  1. ;;2244
  1. ;;21,"59762329301 ")
  1. ;;2245
  1. ;;21,"59762329302 ")
  1. ;;2246
  1. ;;21,"59762329303 ")
  1. ;;2247
  1. ;;21,"59762329304 ")
  1. ;;2248
  1. ;;21,"59762329401 ")
  1. ;;2249
  1. ;;21,"59762329402 ")
  1. ;;2250
  1. ;;21,"59762329403 ")
  1. ;;2251
  1. ;;21,"59762329404 ")
  1. ;;2252
  1. ;;21,"59762329501 ")
  1. ;;2253
  1. ;;21,"59762329502 ")
  1. ;;2254
  1. ;;21,"59762329503 ")
  1. ;;2255
  1. ;;21,"59762329504 ")
  1. ;;2256
  1. ;;21,"59762501901 ")
  1. ;;2257
  1. ;;21,"59762502001 ")
  1. ;;2258
  1. ;;21,"59762502101 ")
  1. ;;2259
  1. ;;21,"59762502201 ")
  1. ;;2260
  1. ;;21,"59762525001 ")
  1. ;;2261
  1. ;;21,"59762525004 ")
  1. ;;2262
  1. ;;21,"59762525101 ")
  1. ;;2263
  1. ;;21,"59762525104 ")
  1. ;;2264
  1. ;;21,"59772704501 ")
  1. ;;2265
  1. ;;21,"59772704503 ")
  1. ;;2266
  1. ;;21,"59772704504 ")
  1. ;;2267
  1. ;;21,"59772704505 ")
  1. ;;2268
  1. ;;21,"59772704601 ")
  1. ;;2269
  1. ;;21,"59772704602 ")
  1. ;;2270
  1. ;;21,"59772704603 ")
  1. ;;2271
  1. ;;21,"59772704604 ")
  1. ;;2272
  1. ;;21,"59772704701 ")
  1. ;;2273
  1. ;;21,"59772704703 ")
  1. ;;2274
  1. ;;21,"59772704704 ")
  1. ;;2275
  1. ;;21,"59772704801 ")
  1. ;;2276
  1. ;;21,"60312011000 ")
  1. ;;2277
  1. ;;21,"60312011100 ")
  1. ;;2278
  1. ;;21,"60312011200 ")
  1. ;;2279
  1. ;;21,"60312090700 ")
  1. ;;2280
  1. ;;21,"60429002901 ")
  1. ;;2281
  1. ;;21,"60429002910 ")
  1. ;;2282
  1. ;;21,"60429003001 ")
  1. ;;2283
  1. ;;21,"60429003010 ")
  1. ;;2284
  1. ;;21,"60429003101 ")
  1. ;;2285
  1. ;;21,"60429003110 ")
  1. ;;2286
  1. ;;21,"60429003801 ")
  1. ;;2287
  1. ;;21,"60429003901 ")
  1. ;;2288
  1. ;;21,"60429003910 ")
  1. ;;2289
  1. ;;21,"60429004001 ")
  1. ;;2290
  1. ;;21,"60429004010 ")
  1. ;;2291
  1. ;;21,"60429004101 ")
  1. ;;2292
  1. ;;21,"60429004110 ")
  1. ;;2293
  1. ;;21,"60429004401 ")
  1. ;;2294
  1. ;;21,"60429004410 ")
  1. ;;2295
  1. ;;21,"60429004501 ")
  1. ;;2296
  1. ;;21,"60429004510 ")
  1. ;;2297
  1. ;;21,"60429004601 ")
  1. ;;2298
  1. ;;21,"60429004610 ")
  1. ;;2299
  1. ;;21,"60429007101 ")
  1. ;;2300
  1. ;;21,"60429007105 ")
  1. ;;2301
  1. ;;21,"60429007110 ")
  1. ;;2302
  1. ;;21,"60429007127 ")
  1. ;;2303
  1. ;;21,"60429007130 ")
  1. ;;2304
  1. ;;21,"60429007160 ")
  1. ;;2305
  1. ;;21,"60429007190 ")
  1. ;;2306
  1. ;;21,"60429007201 ")
  1. ;;2307
  1. ;;21,"60429007205 ")
  1. ;;2308
  1. ;;21,"60429007210 ")
  1. ;;2309
  1. ;;21,"60429007227 ")
  1. ;;2310
  1. ;;21,"60429007230 ")
  1. ;;2311
  1. ;;21,"60429007260 ")
  1. ;;2312
  1. ;;21,"60429007290 ")
  1. ;;2313
  1. ;;21,"60429007301 ")
  1. ;;2314
  1. ;;21,"60429007305 ")
  1. ;;2315
  1. ;;21,"60429007310 ")
  1. ;;2316
  1. ;;21,"60429007327 ")
  1. ;;2317
  1. ;;21,"60429007330 ")
  1. ;;2318
  1. ;;21,"60429007360 ")
  1. ;;2319
  1. ;;21,"60429007390 ")
  1. ;;2320
  1. ;;21,"60429007401 ")
  1. ;;2321
  1. ;;21,"60429007405 ")
  1. ;;2322
  1. ;;21,"60429007410 ")
  1. ;;2323
  1. ;;21,"60429007427 ")
  1. ;;2324
  1. ;;21,"60429007430 ")
  1. ;;2325
  1. ;;21,"60429007460 ")
  1. ;;2326
  1. ;;21,"60429007490 ")
  1. ;;2327
  1. ;;21,"60429025701 ")
  1. ;;2328
  1. ;;21,"60429072801 ")
  1. ;;2329
  1. ;;21,"60429072810 ")
  1. ;;2330
  1. ;;21,"60429072830 ")
  1. ;;2331
  1. ;;21,"60429072890 ")
  1. ;;2332
  1. ;;21,"60429072901 ")
  1. ;;2333
  1. ;;21,"60429072910 ")
  1. ;;2334
  1. ;;21,"60429072930 ")
  1. ;;2335
  1. ;;21,"60429072945 ")
  1. ;;2336
  1. ;;21,"60429072990 ")
  1. ;;2337
  1. ;;21,"60429073001 ")
  1. ;;2338
  1. ;;21,"60429073010 ")
  1. ;;2339
  1. ;;21,"60429073030 ")
  1. ;;2340
  1. ;;21,"60429073045 ")
  1. ;;2341
  1. ;;21,"60429073090 ")
  1. ;;2342
  1. ;;21,"60429073101 ")
  1. ;;2343
  1. ;;21,"60429073110 ")
  1. ;;2344
  1. ;;21,"60429073130 ")
  1. ;;2345