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

BGP06A7.m

Go to the documentation of this file.
BGP06A7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"00904-2465-60 ")
 ;;2339
 ;;21,"00904-2468-60 ")
 ;;2340
 ;;21,"00904-2470-16 ")
 ;;2341
 ;;21,"00904-2471-16 ")
 ;;2342
 ;;21,"00904-2472-40 ")
 ;;2343
 ;;21,"00904-2472-60 ")
 ;;2344
 ;;21,"00904-2474-40 ")
 ;;2345
 ;;21,"00904-2474-60 ")
 ;;2346
 ;;21,"00904-2475-04 ")
 ;;2347
 ;;21,"00904-2475-07 ")
 ;;2348
 ;;21,"00904-2475-08 ")
 ;;2349
 ;;21,"00904-2617-40 ")
 ;;2350
 ;;21,"00904-2617-60 ")
 ;;2351
 ;;21,"00904-2617-61 ")
 ;;2352
 ;;21,"00904-2618-40 ")
 ;;2353
 ;;21,"00904-2618-46 ")
 ;;2354
 ;;21,"00904-2618-51 ")
 ;;2355
 ;;21,"00904-2619-04 ")
 ;;2356
 ;;21,"00904-2619-06 ")
 ;;2357
 ;;21,"00904-2619-07 ")
 ;;2358
 ;;21,"00904-2620-04 ")
 ;;2359
 ;;21,"00904-2620-06 ")
 ;;2360
 ;;21,"00904-2620-07 ")
 ;;2361
 ;;21,"00904-2647-60 ")
 ;;2362
 ;;21,"00904-2648-60 ")
 ;;2363
 ;;21,"00904-2653-04 ")
 ;;2364
 ;;21,"00904-2653-08 ")
 ;;2365
 ;;21,"00904-2725-40 ")
 ;;2366
 ;;21,"00904-2725-60 ")
 ;;2367
 ;;21,"00904-2725-61 ")
 ;;2368
 ;;21,"00904-2725-95 ")
 ;;2369
 ;;21,"00904-2726-40 ")
 ;;2370
 ;;21,"00904-2726-60 ")
 ;;2371
 ;;21,"00904-2726-61 ")
 ;;2372
 ;;21,"00904-2832-04 ")
 ;;2373
 ;;21,"00904-2833-04 ")
 ;;2374
 ;;21,"00904-2837-60 ")
 ;;2375
 ;;21,"00904-2838-60 ")
 ;;2376
 ;;21,"00904-3602-08 ")
 ;;2377
 ;;21,"00904-3795-60 ")
 ;;2378
 ;;21,"00904-3796-60 ")
 ;;2379
 ;;21,"00904-3800-40 ")
 ;;2380
 ;;21,"00904-3800-60 ")
 ;;2381
 ;;21,"00904-3800-61 ")
 ;;2382
 ;;21,"00904-3801-39 ")
 ;;2383
 ;;21,"00904-3801-40 ")
 ;;2384
 ;;21,"00904-3801-60 ")
 ;;2385
 ;;21,"00904-3801-61 ")
 ;;2386
 ;;21,"00904-3838-60 ")
 ;;2387
 ;;21,"00904-3838-61 ")
 ;;2388
 ;;21,"00904-4001-04 ")
 ;;2389
 ;;21,"00904-4001-08 ")
 ;;2390
 ;;21,"00904-4004-04 ")
 ;;2391
 ;;21,"00904-4004-08 ")
 ;;2392
 ;;21,"00904-4010-04 ")
 ;;2393
 ;;21,"00904-4010-08 ")
 ;;2394
 ;;21,"00904-4014-04 ")
 ;;2395
 ;;21,"00904-4014-08 ")
 ;;2396
 ;;21,"00904-5205-60 ")
 ;;2397
 ;;21,"00904-5480-51 ")
 ;;2398
 ;;21,"00904-7682-60 ")
 ;;2399
 ;;21,"00904-7683-51 ")
 ;;2400
 ;;21,"00904-7713-40 ")
 ;;2401
 ;;21,"00904-7713-60 ")
 ;;2402
 ;;21,"00904-7743-40 ")
 ;;2403
 ;;21,"00904-7743-60 ")
 ;;2404
 ;;21,"00904-7878-51 ")
 ;;2405
 ;;21,"00904-7932-60 ")
 ;;2406
 ;;21,"00904-7933-60 ")
 ;;2407
 ;;21,"00904-7934-07 ")
 ;;2408
 ;;21,"00904-7934-71 ")
 ;;2409
 ;;21,"00904-7935-50 ")
 ;;2410
 ;;21,"00904-7936-07 ")
 ;;2411
 ;;21,"00904-7936-71 ")
 ;;2412
 ;;21,"00904-7937-04 ")
 ;;2413
 ;;21,"00904-7937-50 ")
 ;;2414
 ;;21,"10019-0098-01 ")
 ;;2415
 ;;21,"10019-0610-01 ")
 ;;2416
 ;;21,"10019-0611-03 ")
 ;;2417
 ;;21,"10019-0612-05 ")
 ;;2418
 ;;21,"10019-0613-06 ")
 ;;2419
 ;;21,"10019-0620-01 ")
 ;;2420
 ;;21,"10019-0621-03 ")
 ;;2421
 ;;21,"10019-0622-05 ")
 ;;2422
 ;;21,"10019-0648-02 ")
 ;;2423
 ;;21,"10019-0685-01 ")
 ;;2424
 ;;21,"10019-0685-71 ")
 ;;2425
 ;;21,"10019-0686-02 ")
 ;;2426
 ;;21,"10019-0686-71 ")
 ;;2427
 ;;21,"10019-0687-03 ")
 ;;2428
 ;;21,"10019-0688-04 ")
 ;;2429
 ;;21,"10019-0689-05 ")
 ;;2430
 ;;21,"10119-0622-05 ")
 ;;2431
 ;;21,"10337-0800-01 ")
 ;;2432
 ;;21,"10337-0801-01 ")
 ;;2433
 ;;21,"10337-0801-03 ")
 ;;2434
 ;;21,"10337-0801-50 ")
 ;;2435
 ;;21,"10337-0802-03 ")
 ;;2436
 ;;21,"10337-0802-05 ")
 ;;2437
 ;;21,"10337-0802-06 ")
 ;;2438
 ;;21,"10337-0802-25 ")
 ;;2439
 ;;21,"10337-0814-03 ")
 ;;2440
 ;;21,"10515-0125-01 ")
 ;;2441
 ;;21,"10631-0176-20 ")
 ;;2442
 ;;21,"10631-0565-20 ")
 ;;2443
 ;;21,"10631-0567-20 ")
 ;;2444
 ;;21,"10631-0573-01 ")
 ;;2445
 ;;21,"10631-0573-40 ")
 ;;2446
 ;;21,"10631-0574-40 ")
 ;;2447
 ;;21,"11042-0110-98 ")
 ;;2448
 ;;21,"11042-0110-99 ")
 ;;2449
 ;;21,"11042-0111-98 ")
 ;;2450
 ;;21,"11042-0111-99 ")
 ;;2451
 ;;21,"11042-0112-96 ")
 ;;2452
 ;;21,"11042-0112-97 ")
 ;;2453
 ;;21,"11042-0113-96 ")
 ;;2454
 ;;21,"11042-0113-97 ")
 ;;2455
 ;;21,"11042-0115-40 ")
 ;;2456
 ;;21,"11584-0381-00 ")
 ;;2457
 ;;21,"11584-0381-05 ")
 ;;2458
 ;;21,"11584-0391-00 ")
 ;;2459
 ;;21,"11584-0401-00 ")
 ;;2460
 ;;21,"11584-0401-05 ")
 ;;2461
 ;;21,"11584-0405-00 ")
 ;;2462
 ;;21,"11584-1034-05 ")
 ;;2463
 ;;21,"11584-1035-01 ")
 ;;2464
 ;;21,"11584-1036-02 ")
 ;;2465
 ;;21,"12280-0031-50 ")
 ;;2466
 ;;21,"12280-0043-00 ")
 ;;2467
 ;;21,"12280-0057-30 ")
 ;;2468
 ;;21,"12280-0073-10 ")
 ;;2469
 ;;21,"12280-0087-10 ")
 ;;2470
 ;;21,"12280-0087-20 ")
 ;;2471
 ;;21,"12280-0089-00 ")
 ;;2472
 ;;21,"12280-0090-10 ")
 ;;2473
 ;;21,"12280-0090-20 ")
 ;;2474
 ;;21,"12280-0101-00 ")
 ;;2475
 ;;21,"12280-0101-20 ")
 ;;2476
 ;;21,"12280-0101-50 ")
 ;;2477
 ;;21,"12280-0105-20 ")
 ;;2478
 ;;21,"12280-0109-30 ")
 ;;2479
 ;;21,"12280-0112-20 ")
 ;;2480
 ;;21,"12280-0122-50 ")
 ;;2481
 ;;21,"12280-0122-75 ")
 ;;2482
 ;;21,"12280-0222-20 ")
 ;;2483
 ;;21,"12280-0260-00 ")
 ;;2484
 ;;21,"12280-0268-06 ")
 ;;2485
 ;;21,"12280-0269-03 ")
 ;;2486
 ;;21,"13310-0145-01 ")
 ;;2487
 ;;21,"13310-0146-01 ")
 ;;2488
 ;;21,"13551-0501-05 ")
 ;;2489
 ;;21,"13913-0001-50 ")
 ;;2490
 ;;21,"14290-0550-98 ")
 ;;2491
 ;;21,"14290-0551-98 ")
 ;;2492
 ;;21,"15456-0001-03 ")
 ;;2493
 ;;21,"15456-0001-50 ")
 ;;2494
 ;;21,"15686-0101-01 ")
 ;;2495
 ;;21,"15686-0101-05 ")
 ;;2496
 ;;21,"15686-0102-01 ")
 ;;2497
 ;;21,"15686-0102-05 ")
 ;;2498
 ;;21,"16110-0259-04 ")
 ;;2499
 ;;21,"16110-0260-06 ")
 ;;2500
 ;;21,"17236-0313-04 ")
 ;;2501
 ;;21,"17236-0313-08 ")
 ;;2502
 ;;21,"17236-0313-14 ")
 ;;2503
 ;;21,"17236-0313-20 ")
 ;;2504
 ;;21,"17236-0527-05 ")
 ;;2505
 ;;21,"17236-0527-14 ")
 ;;2506
 ;;21,"17236-0527-28 ")
 ;;2507
 ;;21,"17236-0527-55 ")
 ;;2508
 ;;21,"27280-0007-01 ")
 ;;2509
 ;;21,"38130-0203-01 ")
 ;;2510
 ;;21,"39769-0226-02 ")
 ;;2511
 ;;21,"39769-0226-04 ")
 ;;2512
 ;;21,"39769-0226-06 ")
 ;;2513
 ;;21,"39769-0226-60 ")
 ;;2514
 ;;21,"39769-0280-10 ")
 ;;2515
 ;;21,"39769-0281-90 ")
 ;;2516
 ;;21,"39769-0282-10 ")
 ;;2517
 ;;21,"39769-0283-90 ")
 ;;2518
 ;;21,"39769-0284-90 ")
 ;;2519
 ;;21,"45469-2928-00 ")
 ;;2520
 ;;21,"45469-2930-00 ")
 ;;2521
 ;;21,"45469-2953-00 ")
 ;;2522
 ;;21,"45565-0002-02 ")
 ;;2523
 ;;21,"45565-0031-03 ")
 ;;2524
 ;;21,"45809-0801-12 ")
 ;;2525
 ;;21,"45809-0801-60 ")
 ;;2526
 ;;21,"45809-0910-11 ")
 ;;2527
 ;;21,"45809-0910-12 ")
 ;;2528
 ;;21,"45809-0911-21 ")
 ;;2529
 ;;21,"45809-0911-22 ")
 ;;2530
 ;;21,"45809-0911-24 ")
 ;;2531
 ;;21,"45809-0911-25 ")
 ;;2532
 ;;21,"45809-0911-26 ")
 ;;2533
 ;;21,"49884-0041-01 ")
 ;;2534
 ;;21,"49884-0053-01 ")
 ;;2535
 ;;21,"49884-0053-07 ")
 ;;2536
 ;;21,"49884-0060-47 ")
 ;;2537
 ;;21,"49884-0073-27 ")
 ;;2538
 ;;21,"49884-0073-28 ")
 ;;2539
 ;;21,"49884-0073-47 ")
 ;;2540
 ;;21,"49884-0080-01 ")
 ;;2541
 ;;21,"49884-0091-01 ")
 ;;2542
 ;;21,"49884-0092-01 ")
 ;;2543
 ;;21,"49884-0092-05 ")
 ;;2544
 ;;21,"49884-0093-03 ")
 ;;2545
 ;;21,"49884-0093-04 ")
 ;;2546
 ;;21,"49884-0130-01 ")
 ;;2547
 ;;21,"49884-0131-05 ")
 ;;2548
 ;;21,"49884-0168-27 ")
 ;;2549
 ;;21,"49884-0168-28 ")
 ;;2550
 ;;21,"49884-0201-49 ")
 ;;2551
 ;;21,"49884-0242-01 ")
 ;;2552
 ;;21,"49884-0242-05 ")
 ;;2553
 ;;21,"49884-0243-01 ")
 ;;2554
 ;;21,"49884-0243-03 ")
 ;;2555
 ;;21,"49884-0243-05 ")
 ;;2556
 ;;21,"49884-0244-27 ")
 ;;2557
 ;;21,"49884-0244-28 ")
 ;;2558
 ;;21,"49884-0244-47 ")
 ;;2559
 ;;21,"49884-0245-27 ")
 ;;2560
 ;;21,"49884-0245-28 ")
 ;;2561
 ;;21,"49884-0245-47 ")
 ;;2562
 ;;21,"49884-0298-07 ")
 ;;2563
 ;;21,"49884-0299-12 ")
 ;;2564
 ;;21,"49884-0365-81 ")
 ;;2565
 ;;21,"49884-0511-01 ")
 ;;2566
 ;;21,"49884-0512-01 ")
 ;;2567
 ;;21,"49884-0513-03 ")
 ;;2568
 ;;21,"49884-0579-01 ")
 ;;2569
 ;;21,"49884-0579-10 ")
 ;;2570
 ;;21,"49884-0637-01 ")
 ;;2571
 ;;21,"49884-0637-05 ")
 ;;2572
 ;;21,"49884-0637-74 ")
 ;;2573
 ;;21,"49884-0638-01 ")
 ;;2574
 ;;21,"49884-0638-05 ")
 ;;2575
 ;;21,"49884-0638-74 ")
 ;;2576
 ;;21,"49884-0639-03 ")
 ;;2577
 ;;21,"49884-0639-05 ")
 ;;2578
 ;;21,"49884-0639-74 ")
 ;;2579
 ;;21,"49884-0643-01 ")
 ;;2580
 ;;21,"49884-0644-03 ")
 ;;2581
 ;;21,"49884-0684-01 ")
 ;;2582
 ;;21,"49884-0726-01 ")
 ;;2583
 ;;21,"49884-0727-03 ")
 ;;2584
 ;;21,"49884-0727-04 ")
 ;;2585
 ;;21,"49884-0797-01 ")
 ;;2586
 ;;21,"49884-0798-01 ")
 ;;2587
 ;;21,"49884-0799-33 ")
 ;;2588
 ;;21,"49999-0015-00 ")
 ;;2589
 ;;21,"49999-0015-06 ")
 ;;2590
 ;;21,"49999-0015-08 ")
 ;;2591
 ;;21,"49999-0015-12 ")
 ;;2592
 ;;21,"49999-0015-15 ")
 ;;2593
 ;;21,"49999-0015-20 ")
 ;;2594
 ;;21,"49999-0015-21 ")
 ;;2595
 ;;21,"49999-0015-28 ")
 ;;2596
 ;;21,"49999-0015-30 ")
 ;;2597
 ;;21,"49999-0015-40 ")
 ;;2598
 ;;21,"49999-0015-45 ")
 ;;2599
 ;;21,"49999-0016-04 ")
 ;;2600
 ;;21,"49999-0016-21 ")
 ;;2601
 ;;21,"49999-0016-30 ")
 ;;2602
 ;;21,"49999-0016-40 ")
 ;;2603
 ;;21,"49999-0033-30 ")
 ;;2604
 ;;21,"49999-0260-15 ")
 ;;2605
 ;;21,"49999-0366-01 ")
 ;;2606
 ;;21,"50111-0341-01 ")
 ;;2607
 ;;21,"50111-0341-02 ")
 ;;2608
 ;;21,"50111-0342-01 ")
 ;;2609
 ;;21,"50111-0342-02 ")
 ;;2610
 ;;21,"50111-0767-28 ")
 ;;2611
 ;;21,"50111-0787-10 ")
 ;;2612
 ;;21,"50111-0787-52 ")
 ;;2613
 ;;21,"50111-0787-66 ")
 ;;2614
 ;;21,"50111-0788-10 ")
 ;;2615
 ;;21,"50111-0788-52 ")
 ;;2616
 ;;21,"50111-0788-67 ")
 ;;2617
 ;;21,"50111-0789-10 ")
 ;;2618
 ;;21,"50111-0791-20 ")
 ;;2619
 ;;21,"50111-0792-22 ")
 ;;2620
 ;;21,"50111-0793-20 ")
 ;;2621
 ;;21,"50383-0823-16 ")
 ;;2622
 ;;21,"50383-0824-16 ")
 ;;2623
 ;;21,"50962-0302-20 ")
 ;;2624
 ;;21,"50962-0302-60 ")
 ;;2625
 ;;21,"50962-0302-61 ")
 ;;2626
 ;;21,"51079-0016-20 ")
 ;;2627
 ;;21,"51079-0017-20 ")
 ;;2628
 ;;21,"51079-0128-20 ")
 ;;2629
 ;;21,"51079-0128-90 ")
 ;;2630
 ;;21,"51079-0218-20 ")
 ;;2631
 ;;21,"51079-0233-20 ")
 ;;2632
 ;;21,"51079-0234-20 ")
 ;;2633
 ;;21,"51079-0265-20 ")
 ;;2634
 ;;21,"51079-0267-20 ")
 ;;2635
 ;;21,"51079-0522-20 ")
 ;;2636
 ;;21,"51079-0554-20 ")
 ;;2637
 ;;21,"51079-0598-19 ")
 ;;2638
 ;;21,"51079-0598-20 ")
 ;;2639
 ;;21,"51079-0600-20 ")
 ;;2640
 ;;21,"51079-0601-20 ")
 ;;2641
 ;;21,"51079-0604-20 ")
 ;;2642
 ;;21,"51079-0605-20 ")
 ;;2643
 ;;21,"51079-0615-20 ")
 ;;2644
 ;;21,"51079-0616-20 ")
 ;;2645
 ;;21,"51079-0618-20 ")
 ;;2646
 ;;21,"51479-0035-03 ")
 ;;2647
 ;;21,"51479-0035-60 ")
 ;;2648
 ;;21,"51479-0036-60 ")
 ;;2649
 ;;21,"51641-0111-64 ")
 ;;2650
 ;;21,"51641-0111-66 ")
 ;;2651
 ;;21,"51641-0111-68 ")
 ;;2652
 ;;21,"51655-0009-29 ")
 ;;2653
 ;;21,"51655-0009-51 ")
 ;;2654
 ;;21,"51655-0009-52 ")
 ;;2655
 ;;21,"51655-0010-51 ")
 ;;2656
 ;;21,"51655-0024-29 ")
 ;;2657
 ;;21,"51655-0024-51 ")
 ;;2658
 ;;21,"51655-0025-51 ")
 ;;2659
 ;;21,"51655-0075-24 ")
 ;;2660
 ;;21,"51655-0075-51 ")
 ;;2661
 ;;21,"51655-0097-29 ")
 ;;2662
 ;;21,"51655-0097-51 ")
 ;;2663
 ;;21,"51655-0098-29 ")
 ;;2664
 ;;21,"51655-0098-51 ")
 ;;2665
 ;;21,"51655-0098-95 ")
 ;;2666
 ;;21,"51655-0104-51 ")
 ;;2667
 ;;21,"51655-0112-24 ")
 ;;2668
 ;;21,"51655-0112-25 ")
 ;;2669
 ;;21,"51655-0112-29 ")
 ;;2670
 ;;21,"51655-0112-52 ")
 ;;2671
 ;;21,"51655-0112-84 ")
 ;;2672
 ;;21,"51655-0112-87 ")
 ;;2673
 ;;21,"51655-0152-29 ")
 ;;2674
 ;;21,"51655-0157-24 ")
 ;;2675
 ;;21,"51655-0186-52 ")
 ;;2676
 ;;21,"51655-0186-84 ")
 ;;2677
 ;;21,"51655-0213-29 ")
 ;;2678
 ;;21,"51655-0213-51 ")
 ;;2679
 ;;21,"51655-0519-51 ")
 ;;2680
 ;;21,"51655-0674-29 ")
 ;;2681
 ;;21,"51655-0674-51 ")
 ;;2682
 ;;21,"51672-4085-00 ")
 ;;2683
 ;;21,"51672-4085-01 ")
 ;;2684
 ;;21,"51672-4086-00 ")
 ;;2685
 ;;21,"51672-4086-01 ")
 ;;2686
 ;;21,"51672-4087-00 ")
 ;;2687
 ;;21,"51672-4087-04 ")
 ;;2688
 ;;21,"51672-5200-09 ")
 ;;2689
 ;;21,"51991-0034-52 ")
 ;;2690
 ;;21,"52544-0309-01 ")
 ;;2691
 ;;21,"52544-0310-25 ")
 ;;2692
 ;;21,"52544-0310-50 ")
 ;;2693
 ;;21,"52544-0410-01 ")
 ;;2694
 ;;21,"52544-0411-25 ")
 ;;2695
 ;;21,"52544-0411-50 ")
 ;;2696
 ;;21,"52544-0498-05 ")
 ;;2697
 ;;21,"52544-0498-50 ")
 ;;2698
 ;;21,"52544-0499-05 ")
 ;;2699
 ;;21,"52544-0499-50 ")
 ;;2700
 ;;21,"52544-0500-50 ")
 ;;2701
 ;;21,"52555-0769-01 ")
 ;;2702
 ;;21,"52555-0770-01 ")
 ;;2703
 ;;21,"52555-0771-01 ")
 ;;2704
 ;;21,"52555-0771-50 ")
 ;;2705
 ;;21,"52959-0011-20 ")
 ;;2706
 ;;21,"52959-0011-21 ")
 ;;2707
 ;;21,"52959-0011-24 ")
 ;;2708
 ;;21,"52959-0011-30 ")
 ;;2709
 ;;21,"52959-0011-40 ")
 ;;2710
 ;;21,"52959-0020-00 ")
 ;;2711
 ;;21,"52959-0020-04 ")
 ;;2712
 ;;21,"52959-0020-05 ")
 ;;2713
 ;;21,"52959-0020-06 ")
 ;;2714
 ;;21,"52959-0020-18 ")
 ;;2715
 ;;21,"52959-0020-20 ")
 ;;2716
 ;;21,"52959-0020-21 ")
 ;;2717
 ;;21,"52959-0020-24 ")
 ;;2718
 ;;21,"52959-0020-28 ")
 ;;2719
 ;;21,"52959-0020-30 ")
 ;;2720
 ;;21,"52959-0020-40 ")
 ;;2721
 ;;21,"52959-0020-42 ")
 ;;2722
 ;;21,"52959-0021-04 ")
 ;;2723
 ;;21,"52959-0021-14 ")
 ;;2724