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

BGPM5ATU.m

Go to the documentation of this file.
BGPM5ATU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"58016008607 ")
 ;;2211
 ;;21,"58016008608 ")
 ;;2212
 ;;21,"58016008609 ")
 ;;2213
 ;;21,"58016008610 ")
 ;;2214
 ;;21,"58016008612 ")
 ;;2215
 ;;21,"58016008614 ")
 ;;2216
 ;;21,"58016008615 ")
 ;;2217
 ;;21,"58016008616 ")
 ;;2218
 ;;21,"58016008618 ")
 ;;2219
 ;;21,"58016008620 ")
 ;;2220
 ;;21,"58016008621 ")
 ;;2221
 ;;21,"58016008624 ")
 ;;2222
 ;;21,"58016008625 ")
 ;;2223
 ;;21,"58016008626 ")
 ;;2224
 ;;21,"58016008627 ")
 ;;2225
 ;;21,"58016008628 ")
 ;;2226
 ;;21,"58016008630 ")
 ;;2227
 ;;21,"58016008632 ")
 ;;2228
 ;;21,"58016008635 ")
 ;;2229
 ;;21,"58016008636 ")
 ;;2230
 ;;21,"58016008640 ")
 ;;2231
 ;;21,"58016008642 ")
 ;;2232
 ;;21,"58016008644 ")
 ;;2233
 ;;21,"58016008645 ")
 ;;2234
 ;;21,"58016008648 ")
 ;;2235
 ;;21,"58016008650 ")
 ;;2236
 ;;21,"58016008656 ")
 ;;2237
 ;;21,"58016008660 ")
 ;;2238
 ;;21,"58016008667 ")
 ;;2239
 ;;21,"58016008669 ")
 ;;2240
 ;;21,"58016008670 ")
 ;;2241
 ;;21,"58016008671 ")
 ;;2242
 ;;21,"58016008672 ")
 ;;2243
 ;;21,"58016008673 ")
 ;;2244
 ;;21,"58016008675 ")
 ;;2245
 ;;21,"58016008676 ")
 ;;2246
 ;;21,"58016008677 ")
 ;;2247
 ;;21,"58016008679 ")
 ;;2248
 ;;21,"58016008680 ")
 ;;2249
 ;;21,"58016008681 ")
 ;;2250
 ;;21,"58016008682 ")
 ;;2251
 ;;21,"58016008683 ")
 ;;2252
 ;;21,"58016008684 ")
 ;;2253
 ;;21,"58016008687 ")
 ;;2254
 ;;21,"58016008689 ")
 ;;2255
 ;;21,"58016008690 ")
 ;;2256
 ;;21,"58016008691 ")
 ;;2257
 ;;21,"58016008692 ")
 ;;2258
 ;;21,"58016008693 ")
 ;;2259
 ;;21,"58016008696 ")
 ;;2260
 ;;21,"58016008697 ")
 ;;2261
 ;;21,"58016008698 ")
 ;;2262
 ;;21,"58016008699 ")
 ;;2263
 ;;21,"58016010100 ")
 ;;2264
 ;;21,"58016010108 ")
 ;;2265
 ;;21,"58016010110 ")
 ;;2266
 ;;21,"58016010112 ")
 ;;2267
 ;;21,"58016010114 ")
 ;;2268
 ;;21,"58016010120 ")
 ;;2269
 ;;21,"58016010124 ")
 ;;2270
 ;;21,"58016010128 ")
 ;;2271
 ;;21,"58016010130 ")
 ;;2272
 ;;21,"58016010140 ")
 ;;2273
 ;;21,"58016010150 ")
 ;;2274
 ;;21,"58016010160 ")
 ;;2275
 ;;21,"58016010190 ")
 ;;2276
 ;;21,"58016010200 ")
 ;;2277
 ;;21,"58016010210 ")
 ;;2278
 ;;21,"58016010212 ")
 ;;2279
 ;;21,"58016010214 ")
 ;;2280
 ;;21,"58016010215 ")
 ;;2281
 ;;21,"58016010220 ")
 ;;2282
 ;;21,"58016010224 ")
 ;;2283
 ;;21,"58016010228 ")
 ;;2284
 ;;21,"58016010230 ")
 ;;2285
 ;;21,"58016010240 ")
 ;;2286
 ;;21,"58016010250 ")
 ;;2287
 ;;21,"58016010260 ")
 ;;2288
 ;;21,"58016010290 ")
 ;;2289
 ;;21,"58016010300 ")
 ;;2290
 ;;21,"58016010309 ")
 ;;2291
 ;;21,"58016010312 ")
 ;;2292
 ;;21,"58016010315 ")
 ;;2293
 ;;21,"58016010318 ")
 ;;2294
 ;;21,"58016010320 ")
 ;;2295
 ;;21,"58016010321 ")
 ;;2296
 ;;21,"58016010324 ")
 ;;2297
 ;;21,"58016010330 ")
 ;;2298
 ;;21,"58016010340 ")
 ;;2299
 ;;21,"58016010400 ")
 ;;2300
 ;;21,"58016010401 ")
 ;;2301
 ;;21,"58016010402 ")
 ;;2302
 ;;21,"58016010403 ")
 ;;2303
 ;;21,"58016010404 ")
 ;;2304
 ;;21,"58016010407 ")
 ;;2305
 ;;21,"58016010408 ")
 ;;2306
 ;;21,"58016010409 ")
 ;;2307
 ;;21,"58016010410 ")
 ;;2308
 ;;21,"58016010412 ")
 ;;2309
 ;;21,"58016010414 ")
 ;;2310
 ;;21,"58016010415 ")
 ;;2311
 ;;21,"58016010416 ")
 ;;2312
 ;;21,"58016010418 ")
 ;;2313
 ;;21,"58016010420 ")
 ;;2314
 ;;21,"58016010421 ")
 ;;2315
 ;;21,"58016010424 ")
 ;;2316
 ;;21,"58016010425 ")
 ;;2317
 ;;21,"58016010426 ")
 ;;2318
 ;;21,"58016010427 ")
 ;;2319
 ;;21,"58016010428 ")
 ;;2320
 ;;21,"58016010430 ")
 ;;2321
 ;;21,"58016010432 ")
 ;;2322
 ;;21,"58016010435 ")
 ;;2323
 ;;21,"58016010436 ")
 ;;2324
 ;;21,"58016010440 ")
 ;;2325
 ;;21,"58016010442 ")
 ;;2326
 ;;21,"58016010444 ")
 ;;2327
 ;;21,"58016010445 ")
 ;;2328
 ;;21,"58016010448 ")
 ;;2329
 ;;21,"58016010450 ")
 ;;2330
 ;;21,"58016010456 ")
 ;;2331
 ;;21,"58016010460 ")
 ;;2332
 ;;21,"58016010470 ")
 ;;2333
 ;;21,"58016010472 ")
 ;;2334
 ;;21,"58016010475 ")
 ;;2335
 ;;21,"58016010476 ")
 ;;2336
 ;;21,"58016010480 ")
 ;;2337
 ;;21,"58016010484 ")
 ;;2338
 ;;21,"58016010490 ")
 ;;2339
 ;;21,"58016010492 ")
 ;;2340
 ;;21,"58016010496 ")
 ;;2341
 ;;21,"58016010497 ")
 ;;2342
 ;;21,"58016010499 ")
 ;;2343
 ;;21,"58016010500 ")
 ;;2344
 ;;21,"58016010520 ")
 ;;2345
 ;;21,"58016010530 ")
 ;;2346
 ;;21,"58016010560 ")
 ;;2347
 ;;21,"58016010590 ")
 ;;2348
 ;;21,"58016010900 ")
 ;;2349
 ;;21,"58016010902 ")
 ;;2350
 ;;21,"58016010903 ")
 ;;2351
 ;;21,"58016010906 ")
 ;;2352
 ;;21,"58016010907 ")
 ;;2353
 ;;21,"58016010910 ")
 ;;2354
 ;;21,"58016010914 ")
 ;;2355
 ;;21,"58016010918 ")
 ;;2356
 ;;21,"58016010920 ")
 ;;2357
 ;;21,"58016010921 ")
 ;;2358
 ;;21,"58016010924 ")
 ;;2359
 ;;21,"58016010928 ")
 ;;2360
 ;;21,"58016010930 ")
 ;;2361
 ;;21,"58016010940 ")
 ;;2362
 ;;21,"58016010950 ")
 ;;2363
 ;;21,"58016010960 ")
 ;;2364
 ;;21,"58016010973 ")
 ;;2365
 ;;21,"58016010980 ")
 ;;2366
 ;;21,"58016010989 ")
 ;;2367
 ;;21,"58016010990 ")
 ;;2368
 ;;21,"58016011900 ")
 ;;2369
 ;;21,"58016011901 ")
 ;;2370
 ;;21,"58016011902 ")
 ;;2371
 ;;21,"58016011903 ")
 ;;2372
 ;;21,"58016011904 ")
 ;;2373
 ;;21,"58016011907 ")
 ;;2374
 ;;21,"58016011908 ")
 ;;2375
 ;;21,"58016011909 ")
 ;;2376
 ;;21,"58016011910 ")
 ;;2377
 ;;21,"58016011912 ")
 ;;2378
 ;;21,"58016011914 ")
 ;;2379
 ;;21,"58016011915 ")
 ;;2380
 ;;21,"58016011916 ")
 ;;2381
 ;;21,"58016011918 ")
 ;;2382
 ;;21,"58016011920 ")
 ;;2383
 ;;21,"58016011921 ")
 ;;2384
 ;;21,"58016011924 ")
 ;;2385
 ;;21,"58016011925 ")
 ;;2386
 ;;21,"58016011926 ")
 ;;2387
 ;;21,"58016011927 ")
 ;;2388
 ;;21,"58016011928 ")
 ;;2389
 ;;21,"58016011930 ")
 ;;2390
 ;;21,"58016011932 ")
 ;;2391
 ;;21,"58016011935 ")
 ;;2392
 ;;21,"58016011936 ")
 ;;2393
 ;;21,"58016011940 ")
 ;;2394
 ;;21,"58016011942 ")
 ;;2395
 ;;21,"58016011944 ")
 ;;2396
 ;;21,"58016011945 ")
 ;;2397
 ;;21,"58016011948 ")
 ;;2398
 ;;21,"58016011950 ")
 ;;2399
 ;;21,"58016011956 ")
 ;;2400
 ;;21,"58016011960 ")
 ;;2401
 ;;21,"58016011970 ")
 ;;2402
 ;;21,"58016011972 ")
 ;;2403
 ;;21,"58016011973 ")
 ;;2404
 ;;21,"58016011975 ")
 ;;2405
 ;;21,"58016011976 ")
 ;;2406
 ;;21,"58016011980 ")
 ;;2407
 ;;21,"58016011984 ")
 ;;2408
 ;;21,"58016011989 ")
 ;;2409
 ;;21,"58016011990 ")
 ;;2410
 ;;21,"58016011992 ")
 ;;2411
 ;;21,"58016011996 ")
 ;;2412
 ;;21,"58016011997 ")
 ;;2413
 ;;21,"58016011999 ")
 ;;2414
 ;;21,"58016012100 ")
 ;;2415
 ;;21,"58016012110 ")
 ;;2416
 ;;21,"58016012112 ")
 ;;2417
 ;;21,"58016012114 ")
 ;;2418
 ;;21,"58016012115 ")
 ;;2419
 ;;21,"58016012118 ")
 ;;2420
 ;;21,"58016012120 ")
 ;;2421
 ;;21,"58016012124 ")
 ;;2422
 ;;21,"58016012128 ")
 ;;2423
 ;;21,"58016012130 ")
 ;;2424
 ;;21,"58016012140 ")
 ;;2425
 ;;21,"58016012200 ")
 ;;2426
 ;;21,"58016012201 ")
 ;;2427
 ;;21,"58016012202 ")
 ;;2428
 ;;21,"58016012203 ")
 ;;2429
 ;;21,"58016012204 ")
 ;;2430
 ;;21,"58016012205 ")
 ;;2431
 ;;21,"58016012206 ")
 ;;2432
 ;;21,"58016012207 ")
 ;;2433
 ;;21,"58016012208 ")
 ;;2434
 ;;21,"58016012209 ")
 ;;2435
 ;;21,"58016012210 ")
 ;;2436
 ;;21,"58016012212 ")
 ;;2437
 ;;21,"58016012214 ")
 ;;2438
 ;;21,"58016012215 ")
 ;;2439
 ;;21,"58016012216 ")
 ;;2440
 ;;21,"58016012218 ")
 ;;2441
 ;;21,"58016012220 ")
 ;;2442
 ;;21,"58016012221 ")
 ;;2443
 ;;21,"58016012224 ")
 ;;2444
 ;;21,"58016012225 ")
 ;;2445
 ;;21,"58016012226 ")
 ;;2446
 ;;21,"58016012227 ")
 ;;2447
 ;;21,"58016012228 ")
 ;;2448
 ;;21,"58016012230 ")
 ;;2449
 ;;21,"58016012232 ")
 ;;2450
 ;;21,"58016012235 ")
 ;;2451
 ;;21,"58016012236 ")
 ;;2452
 ;;21,"58016012240 ")
 ;;2453
 ;;21,"58016012242 ")
 ;;2454
 ;;21,"58016012244 ")
 ;;2455
 ;;21,"58016012245 ")
 ;;2456
 ;;21,"58016012248 ")
 ;;2457
 ;;21,"58016012250 ")
 ;;2458
 ;;21,"58016012256 ")
 ;;2459
 ;;21,"58016012260 ")
 ;;2460
 ;;21,"58016012267 ")
 ;;2461
 ;;21,"58016012269 ")
 ;;2462
 ;;21,"58016012270 ")
 ;;2463
 ;;21,"58016012271 ")
 ;;2464
 ;;21,"58016012272 ")
 ;;2465
 ;;21,"58016012273 ")
 ;;2466
 ;;21,"58016012275 ")
 ;;2467
 ;;21,"58016012276 ")
 ;;2468
 ;;21,"58016012277 ")
 ;;2469
 ;;21,"58016012279 ")
 ;;2470
 ;;21,"58016012280 ")
 ;;2471
 ;;21,"58016012281 ")
 ;;2472
 ;;21,"58016012282 ")
 ;;2473
 ;;21,"58016012283 ")
 ;;2474
 ;;21,"58016012284 ")
 ;;2475
 ;;21,"58016012287 ")
 ;;2476
 ;;21,"58016012289 ")
 ;;2477
 ;;21,"58016012290 ")
 ;;2478
 ;;21,"58016012291 ")
 ;;2479
 ;;21,"58016012292 ")
 ;;2480
 ;;21,"58016012293 ")
 ;;2481
 ;;21,"58016012296 ")
 ;;2482
 ;;21,"58016012297 ")
 ;;2483
 ;;21,"58016012298 ")
 ;;2484
 ;;21,"58016012299 ")
 ;;2485
 ;;21,"58016012400 ")
 ;;2486
 ;;21,"58016012401 ")
 ;;2487
 ;;21,"58016012402 ")
 ;;2488
 ;;21,"58016012403 ")
 ;;2489
 ;;21,"58016012404 ")
 ;;2490
 ;;21,"58016012405 ")
 ;;2491
 ;;21,"58016012406 ")
 ;;2492
 ;;21,"58016012407 ")
 ;;2493
 ;;21,"58016012408 ")
 ;;2494
 ;;21,"58016012409 ")
 ;;2495
 ;;21,"58016012410 ")
 ;;2496
 ;;21,"58016012412 ")
 ;;2497
 ;;21,"58016012414 ")
 ;;2498
 ;;21,"58016012415 ")
 ;;2499
 ;;21,"58016012416 ")
 ;;2500
 ;;21,"58016012418 ")
 ;;2501
 ;;21,"58016012420 ")
 ;;2502
 ;;21,"58016012421 ")
 ;;2503
 ;;21,"58016012424 ")
 ;;2504
 ;;21,"58016012425 ")
 ;;2505
 ;;21,"58016012426 ")
 ;;2506
 ;;21,"58016012427 ")
 ;;2507
 ;;21,"58016012428 ")
 ;;2508
 ;;21,"58016012430 ")
 ;;2509
 ;;21,"58016012432 ")
 ;;2510
 ;;21,"58016012435 ")
 ;;2511
 ;;21,"58016012436 ")
 ;;2512
 ;;21,"58016012440 ")
 ;;2513
 ;;21,"58016012442 ")
 ;;2514
 ;;21,"58016012444 ")
 ;;2515
 ;;21,"58016012445 ")
 ;;2516
 ;;21,"58016012448 ")
 ;;2517
 ;;21,"58016012450 ")
 ;;2518
 ;;21,"58016012456 ")
 ;;2519
 ;;21,"58016012460 ")
 ;;2520
 ;;21,"58016012467 ")
 ;;2521
 ;;21,"58016012469 ")
 ;;2522
 ;;21,"58016012470 ")
 ;;2523
 ;;21,"58016012471 ")
 ;;2524
 ;;21,"58016012472 ")
 ;;2525
 ;;21,"58016012473 ")
 ;;2526
 ;;21,"58016012475 ")
 ;;2527
 ;;21,"58016012476 ")
 ;;2528
 ;;21,"58016012477 ")
 ;;2529
 ;;21,"58016012479 ")
 ;;2530
 ;;21,"58016012480 ")
 ;;2531
 ;;21,"58016012481 ")
 ;;2532
 ;;21,"58016012482 ")
 ;;2533
 ;;21,"58016012483 ")
 ;;2534
 ;;21,"58016012484 ")
 ;;2535
 ;;21,"58016012487 ")
 ;;2536
 ;;21,"58016012489 ")
 ;;2537
 ;;21,"58016012490 ")
 ;;2538
 ;;21,"58016012491 ")
 ;;2539
 ;;21,"58016012492 ")
 ;;2540
 ;;21,"58016012493 ")
 ;;2541
 ;;21,"58016012496 ")
 ;;2542
 ;;21,"58016012497 ")
 ;;2543
 ;;21,"58016012498 ")
 ;;2544
 ;;21,"58016012499 ")
 ;;2545
 ;;21,"58016012700 ")
 ;;2546
 ;;21,"58016012706 ")
 ;;2547
 ;;21,"58016012708 ")
 ;;2548
 ;;21,"58016012710 ")
 ;;2549
 ;;21,"58016012714 ")
 ;;2550
 ;;21,"58016012720 ")
 ;;2551
 ;;21,"58016012721 ")
 ;;2552
 ;;21,"58016012724 ")
 ;;2553
 ;;21,"58016012728 ")
 ;;2554
 ;;21,"58016012730 ")
 ;;2555
 ;;21,"58016012740 ")
 ;;2556
 ;;21,"58016012742 ")
 ;;2557
 ;;21,"58016012750 ")
 ;;2558
 ;;21,"58016012760 ")
 ;;2559
 ;;21,"58016013700 ")
 ;;2560
 ;;21,"58016013701 ")
 ;;2561
 ;;21,"58016013702 ")
 ;;2562