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

BGP82Z8.m

Go to the documentation of this file.
BGP82Z8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"43386-0543-01 ")
 ;;2356
 ;;21,"43386-0544-01 ")
 ;;2357
 ;;21,"43386-0670-01 ")
 ;;2358
 ;;21,"43386-0680-01 ")
 ;;2359
 ;;21,"43386-0920-60 ")
 ;;2360
 ;;21,"43386-0950-01 ")
 ;;2361
 ;;21,"43547-0373-10 ")
 ;;2362
 ;;21,"46987-0322-11 ")
 ;;2363
 ;;21,"46987-0323-11 ")
 ;;2364
 ;;21,"46987-0324-11 ")
 ;;2365
 ;;21,"46987-0325-11 ")
 ;;2366
 ;;21,"46987-0326-11 ")
 ;;2367
 ;;21,"46987-0327-11 ")
 ;;2368
 ;;21,"46987-0328-11 ")
 ;;2369
 ;;21,"46987-0329-11 ")
 ;;2370
 ;;21,"46987-0330-11 ")
 ;;2371
 ;;21,"46987-0377-11 ")
 ;;2372
 ;;21,"46987-0410-11 ")
 ;;2373
 ;;21,"46987-0412-11 ")
 ;;2374
 ;;21,"47335-0531-83 ")
 ;;2375
 ;;21,"47335-0531-88 ")
 ;;2376
 ;;21,"47335-0533-83 ")
 ;;2377
 ;;21,"47335-0533-88 ")
 ;;2378
 ;;21,"47335-0537-83 ")
 ;;2379
 ;;21,"47335-0537-88 ")
 ;;2380
 ;;21,"47335-0859-83 ")
 ;;2381
 ;;21,"47335-0860-83 ")
 ;;2382
 ;;21,"47335-0861-83 ")
 ;;2383
 ;;21,"47463-0002-00 ")
 ;;2384
 ;;21,"47463-0002-30 ")
 ;;2385
 ;;21,"47463-0002-45 ")
 ;;2386
 ;;21,"47463-0002-60 ")
 ;;2387
 ;;21,"47463-0002-84 ")
 ;;2388
 ;;21,"47463-0002-90 ")
 ;;2389
 ;;21,"47463-0363-30 ")
 ;;2390
 ;;21,"47463-0363-60 ")
 ;;2391
 ;;21,"47463-0363-71 ")
 ;;2392
 ;;21,"47463-0363-73 ")
 ;;2393
 ;;21,"47463-0363-74 ")
 ;;2394
 ;;21,"47463-0363-90 ")
 ;;2395
 ;;21,"47463-0364-30 ")
 ;;2396
 ;;21,"47463-0364-60 ")
 ;;2397
 ;;21,"47463-0364-71 ")
 ;;2398
 ;;21,"47463-0364-90 ")
 ;;2399
 ;;21,"47463-0365-30 ")
 ;;2400
 ;;21,"47463-0365-60 ")
 ;;2401
 ;;21,"47463-0365-90 ")
 ;;2402
 ;;21,"47463-0427-91 ")
 ;;2403
 ;;21,"47463-0433-60 ")
 ;;2404
 ;;21,"47463-0532-60 ")
 ;;2405
 ;;21,"47463-0560-30 ")
 ;;2406
 ;;21,"47463-0560-60 ")
 ;;2407
 ;;21,"47463-0560-71 ")
 ;;2408
 ;;21,"47463-0560-90 ")
 ;;2409
 ;;21,"47463-0561-30 ")
 ;;2410
 ;;21,"47463-0561-60 ")
 ;;2411
 ;;21,"47463-0561-71 ")
 ;;2412
 ;;21,"47463-0561-73 ")
 ;;2413
 ;;21,"47463-0561-90 ")
 ;;2414
 ;;21,"47463-0562-30 ")
 ;;2415
 ;;21,"47463-0562-60 ")
 ;;2416
 ;;21,"47463-0562-71 ")
 ;;2417
 ;;21,"47463-0562-73 ")
 ;;2418
 ;;21,"47463-0562-90 ")
 ;;2419
 ;;21,"47463-0563-30 ")
 ;;2420
 ;;21,"47463-0564-71 ")
 ;;2421
 ;;21,"47463-0801-15 ")
 ;;2422
 ;;21,"47463-0801-30 ")
 ;;2423
 ;;21,"47463-0801-60 ")
 ;;2424
 ;;21,"47463-0801-71 ")
 ;;2425
 ;;21,"47463-0801-90 ")
 ;;2426
 ;;21,"47463-0802-30 ")
 ;;2427
 ;;21,"47463-0802-60 ")
 ;;2428
 ;;21,"47463-0844-30 ")
 ;;2429
 ;;21,"47463-0845-30 ")
 ;;2430
 ;;21,"47463-0851-30 ")
 ;;2431
 ;;21,"47781-0196-01 ")
 ;;2432
 ;;21,"47781-0196-05 ")
 ;;2433
 ;;21,"47781-0229-01 ")
 ;;2434
 ;;21,"47781-0229-05 ")
 ;;2435
 ;;21,"47781-0229-63 ")
 ;;2436
 ;;21,"47781-0230-01 ")
 ;;2437
 ;;21,"47781-0230-05 ")
 ;;2438
 ;;21,"47781-0230-63 ")
 ;;2439
 ;;21,"47781-0263-01 ")
 ;;2440
 ;;21,"47781-0263-05 ")
 ;;2441
 ;;21,"47781-0264-01 ")
 ;;2442
 ;;21,"47781-0264-05 ")
 ;;2443
 ;;21,"47781-0265-01 ")
 ;;2444
 ;;21,"47781-0265-05 ")
 ;;2445
 ;;21,"47781-0423-47 ")
 ;;2446
 ;;21,"47781-0424-47 ")
 ;;2447
 ;;21,"47781-0426-47 ")
 ;;2448
 ;;21,"47781-0427-47 ")
 ;;2449
 ;;21,"47781-0428-47 ")
 ;;2450
 ;;21,"49708-0419-88 ")
 ;;2451
 ;;21,"49884-0136-01 ")
 ;;2452
 ;;21,"49884-0137-01 ")
 ;;2453
 ;;21,"49884-0138-01 ")
 ;;2454
 ;;21,"49884-0197-01 ")
 ;;2455
 ;;21,"49884-0235-33 ")
 ;;2456
 ;;21,"49884-0235-37 ")
 ;;2457
 ;;21,"49884-0459-52 ")
 ;;2458
 ;;21,"49884-0459-55 ")
 ;;2459
 ;;21,"49884-0460-52 ")
 ;;2460
 ;;21,"49884-0460-55 ")
 ;;2461
 ;;21,"49884-0461-52 ")
 ;;2462
 ;;21,"49884-0461-55 ")
 ;;2463
 ;;21,"49884-0462-52 ")
 ;;2464
 ;;21,"49884-0462-55 ")
 ;;2465
 ;;21,"49884-0463-52 ")
 ;;2466
 ;;21,"49884-0463-55 ")
 ;;2467
 ;;21,"49884-0464-52 ")
 ;;2468
 ;;21,"49884-0464-55 ")
 ;;2469
 ;;21,"49884-0665-01 ")
 ;;2470
 ;;21,"49884-0666-01 ")
 ;;2471
 ;;21,"49884-0667-01 ")
 ;;2472
 ;;21,"49884-0668-01 ")
 ;;2473
 ;;21,"49884-0669-01 ")
 ;;2474
 ;;21,"49884-0670-01 ")
 ;;2475
 ;;21,"49884-0761-52 ")
 ;;2476
 ;;21,"49884-0761-78 ")
 ;;2477
 ;;21,"49884-0762-52 ")
 ;;2478
 ;;21,"49884-0762-78 ")
 ;;2479
 ;;21,"49884-0763-52 ")
 ;;2480
 ;;21,"49884-0763-78 ")
 ;;2481
 ;;21,"49884-0764-52 ")
 ;;2482
 ;;21,"49884-0764-78 ")
 ;;2483
 ;;21,"49884-0821-11 ")
 ;;2484
 ;;21,"49884-0822-11 ")
 ;;2485
 ;;21,"49884-0823-11 ")
 ;;2486
 ;;21,"49884-0833-01 ")
 ;;2487
 ;;21,"49884-0834-01 ")
 ;;2488
 ;;21,"49884-0835-01 ")
 ;;2489
 ;;21,"49884-0836-01 ")
 ;;2490
 ;;21,"49884-0837-01 ")
 ;;2491
 ;;21,"49884-0838-01 ")
 ;;2492
 ;;21,"49884-0946-01 ")
 ;;2493
 ;;21,"49884-0946-05 ")
 ;;2494
 ;;21,"49999-0019-20 ")
 ;;2495
 ;;21,"49999-0019-30 ")
 ;;2496
 ;;21,"49999-0019-90 ")
 ;;2497
 ;;21,"49999-0022-15 ")
 ;;2498
 ;;21,"49999-0022-20 ")
 ;;2499
 ;;21,"49999-0022-21 ")
 ;;2500
 ;;21,"49999-0022-25 ")
 ;;2501
 ;;21,"49999-0022-30 ")
 ;;2502
 ;;21,"49999-0022-56 ")
 ;;2503
 ;;21,"49999-0022-60 ")
 ;;2504
 ;;21,"49999-0026-01 ")
 ;;2505
 ;;21,"49999-0026-30 ")
 ;;2506
 ;;21,"49999-0026-40 ")
 ;;2507
 ;;21,"49999-0026-60 ")
 ;;2508
 ;;21,"49999-0026-90 ")
 ;;2509
 ;;21,"49999-0051-30 ")
 ;;2510
 ;;21,"49999-0052-00 ")
 ;;2511
 ;;21,"49999-0052-02 ")
 ;;2512
 ;;21,"49999-0052-05 ")
 ;;2513
 ;;21,"49999-0052-15 ")
 ;;2514
 ;;21,"49999-0052-20 ")
 ;;2515
 ;;21,"49999-0052-30 ")
 ;;2516
 ;;21,"49999-0052-40 ")
 ;;2517
 ;;21,"49999-0052-60 ")
 ;;2518
 ;;21,"49999-0052-90 ")
 ;;2519
 ;;21,"49999-0060-00 ")
 ;;2520
 ;;21,"49999-0060-01 ")
 ;;2521
 ;;21,"49999-0060-06 ")
 ;;2522
 ;;21,"49999-0060-10 ")
 ;;2523
 ;;21,"49999-0060-12 ")
 ;;2524
 ;;21,"49999-0060-15 ")
 ;;2525
 ;;21,"49999-0060-20 ")
 ;;2526
 ;;21,"49999-0060-24 ")
 ;;2527
 ;;21,"49999-0060-30 ")
 ;;2528
 ;;21,"49999-0060-50 ")
 ;;2529
 ;;21,"49999-0060-60 ")
 ;;2530
 ;;21,"49999-0060-90 ")
 ;;2531
 ;;21,"49999-0118-14 ")
 ;;2532
 ;;21,"49999-0118-30 ")
 ;;2533
 ;;21,"49999-0129-00 ")
 ;;2534
 ;;21,"49999-0129-01 ")
 ;;2535
 ;;21,"49999-0129-14 ")
 ;;2536
 ;;21,"49999-0129-15 ")
 ;;2537
 ;;21,"49999-0129-18 ")
 ;;2538
 ;;21,"49999-0129-20 ")
 ;;2539
 ;;21,"49999-0129-24 ")
 ;;2540
 ;;21,"49999-0129-30 ")
 ;;2541
 ;;21,"49999-0129-60 ")
 ;;2542
 ;;21,"49999-0129-90 ")
 ;;2543
 ;;21,"49999-0152-04 ")
 ;;2544
 ;;21,"49999-0169-40 ")
 ;;2545
 ;;21,"49999-0323-04 ")
 ;;2546
 ;;21,"49999-0326-04 ")
 ;;2547
 ;;21,"49999-0588-01 ")
 ;;2548
 ;;21,"49999-0588-15 ")
 ;;2549
 ;;21,"49999-0588-30 ")
 ;;2550
 ;;21,"49999-0588-60 ")
 ;;2551
 ;;21,"49999-0588-90 ")
 ;;2552
 ;;21,"49999-0608-15 ")
 ;;2553
 ;;21,"49999-0693-00 ")
 ;;2554
 ;;21,"49999-0693-20 ")
 ;;2555
 ;;21,"49999-0693-30 ")
 ;;2556
 ;;21,"49999-0693-40 ")
 ;;2557
 ;;21,"49999-0693-60 ")
 ;;2558
 ;;21,"49999-0693-90 ")
 ;;2559
 ;;21,"49999-0831-01 ")
 ;;2560
 ;;21,"49999-0831-05 ")
 ;;2561
 ;;21,"49999-0832-01 ")
 ;;2562
 ;;21,"49999-0832-05 ")
 ;;2563
 ;;21,"49999-0833-01 ")
 ;;2564
 ;;21,"49999-0833-05 ")
 ;;2565
 ;;21,"49999-0834-01 ")
 ;;2566
 ;;21,"49999-0834-05 ")
 ;;2567
 ;;21,"49999-0835-01 ")
 ;;2568
 ;;21,"49999-0835-30 ")
 ;;2569
 ;;21,"49999-0835-60 ")
 ;;2570
 ;;21,"49999-0835-90 ")
 ;;2571
 ;;21,"49999-0836-01 ")
 ;;2572
 ;;21,"49999-0836-30 ")
 ;;2573
 ;;21,"49999-0836-90 ")
 ;;2574
 ;;21,"49999-0837-30 ")
 ;;2575
 ;;21,"49999-0838-01 ")
 ;;2576
 ;;21,"49999-0838-30 ")
 ;;2577
 ;;21,"49999-0839-01 ")
 ;;2578
 ;;21,"49999-0839-30 ")
 ;;2579
 ;;21,"49999-0839-60 ")
 ;;2580
 ;;21,"49999-0839-90 ")
 ;;2581
 ;;21,"49999-0841-30 ")
 ;;2582
 ;;21,"49999-0841-60 ")
 ;;2583
 ;;21,"49999-0845-01 ")
 ;;2584
 ;;21,"49999-0845-30 ")
 ;;2585
 ;;21,"49999-0845-60 ")
 ;;2586
 ;;21,"49999-0845-90 ")
 ;;2587
 ;;21,"49999-0846-01 ")
 ;;2588
 ;;21,"49999-0846-30 ")
 ;;2589
 ;;21,"49999-0846-60 ")
 ;;2590
 ;;21,"49999-0846-90 ")
 ;;2591
 ;;21,"49999-0847-01 ")
 ;;2592
 ;;21,"49999-0847-30 ")
 ;;2593
 ;;21,"49999-0847-60 ")
 ;;2594
 ;;21,"49999-0847-90 ")
 ;;2595
 ;;21,"49999-0848-30 ")
 ;;2596
 ;;21,"49999-0848-60 ")
 ;;2597
 ;;21,"49999-0848-90 ")
 ;;2598
 ;;21,"49999-0849-30 ")
 ;;2599
 ;;21,"49999-0849-60 ")
 ;;2600
 ;;21,"49999-0850-01 ")
 ;;2601
 ;;21,"49999-0850-30 ")
 ;;2602
 ;;21,"49999-0850-60 ")
 ;;2603
 ;;21,"49999-0851-01 ")
 ;;2604
 ;;21,"49999-0851-05 ")
 ;;2605
 ;;21,"49999-0851-30 ")
 ;;2606
 ;;21,"49999-0851-60 ")
 ;;2607
 ;;21,"49999-0851-90 ")
 ;;2608
 ;;21,"49999-0852-01 ")
 ;;2609
 ;;21,"49999-0852-15 ")
 ;;2610
 ;;21,"49999-0852-20 ")
 ;;2611
 ;;21,"49999-0852-30 ")
 ;;2612
 ;;21,"49999-0852-40 ")
 ;;2613
 ;;21,"49999-0852-60 ")
 ;;2614
 ;;21,"49999-0852-90 ")
 ;;2615
 ;;21,"49999-0853-01 ")
 ;;2616
 ;;21,"49999-0853-30 ")
 ;;2617
 ;;21,"49999-0853-40 ")
 ;;2618
 ;;21,"49999-0853-60 ")
 ;;2619
 ;;21,"49999-0853-90 ")
 ;;2620
 ;;21,"49999-0854-01 ")
 ;;2621
 ;;21,"49999-0854-05 ")
 ;;2622
 ;;21,"49999-0854-15 ")
 ;;2623
 ;;21,"49999-0854-30 ")
 ;;2624
 ;;21,"49999-0854-60 ")
 ;;2625
 ;;21,"49999-0854-90 ")
 ;;2626
 ;;21,"49999-0856-60 ")
 ;;2627
 ;;21,"49999-0857-30 ")
 ;;2628
 ;;21,"49999-0857-90 ")
 ;;2629
 ;;21,"49999-0858-30 ")
 ;;2630
 ;;21,"49999-0858-60 ")
 ;;2631
 ;;21,"49999-0858-90 ")
 ;;2632
 ;;21,"49999-0859-30 ")
 ;;2633
 ;;21,"49999-0859-60 ")
 ;;2634
 ;;21,"49999-0859-90 ")
 ;;2635
 ;;21,"49999-0896-10 ")
 ;;2636
 ;;21,"49999-0896-30 ")
 ;;2637
 ;;21,"49999-0899-01 ")
 ;;2638
 ;;21,"49999-0899-30 ")
 ;;2639
 ;;21,"49999-0899-40 ")
 ;;2640
 ;;21,"49999-0899-60 ")
 ;;2641
 ;;21,"49999-0899-90 ")
 ;;2642
 ;;21,"49999-0963-30 ")
 ;;2643
 ;;21,"49999-0963-60 ")
 ;;2644
 ;;21,"49999-0963-90 ")
 ;;2645
 ;;21,"50268-0400-11 ")
 ;;2646
 ;;21,"50268-0400-15 ")
 ;;2647
 ;;21,"50268-0401-11 ")
 ;;2648
 ;;21,"50268-0401-15 ")
 ;;2649
 ;;21,"50268-0402-11 ")
 ;;2650
 ;;21,"50268-0402-15 ")
 ;;2651
 ;;21,"50268-0403-11 ")
 ;;2652
 ;;21,"50268-0403-15 ")
 ;;2653
 ;;21,"50268-0408-11 ")
 ;;2654
 ;;21,"50268-0408-15 ")
 ;;2655
 ;;21,"50268-0774-11 ")
 ;;2656
 ;;21,"50268-0774-15 ")
 ;;2657
 ;;21,"50383-0043-16 ")
 ;;2658
 ;;21,"50383-0079-05 ")
 ;;2659
 ;;21,"50383-0079-06 ")
 ;;2660
 ;;21,"50383-0079-12 ")
 ;;2661
 ;;21,"50383-0079-13 ")
 ;;2662
 ;;21,"50383-0079-16 ")
 ;;2663
 ;;21,"50383-0804-16 ")
 ;;2664
 ;;21,"50383-0805-04 ")
 ;;2665
 ;;21,"50383-0805-16 ")
 ;;2666
 ;;21,"50436-0109-01 ")
 ;;2667
 ;;21,"50436-0109-02 ")
 ;;2668
 ;;21,"50436-0109-04 ")
 ;;2669
 ;;21,"50436-0156-01 ")
 ;;2670
 ;;21,"50436-0156-02 ")
 ;;2671
 ;;21,"50436-0158-01 ")
 ;;2672
 ;;21,"50436-0160-01 ")
 ;;2673
 ;;21,"50436-0160-02 ")
 ;;2674
 ;;21,"50436-0160-04 ")
 ;;2675
 ;;21,"50436-0377-01 ")
 ;;2676
 ;;21,"50436-0377-02 ")
 ;;2677
 ;;21,"50436-0377-03 ")
 ;;2678
 ;;21,"50436-0377-04 ")
 ;;2679
 ;;21,"50436-0377-05 ")
 ;;2680
 ;;21,"50436-0377-06 ")
 ;;2681
 ;;21,"50436-0377-07 ")
 ;;2682
 ;;21,"50436-0821-01 ")
 ;;2683
 ;;21,"50436-0821-02 ")
 ;;2684
 ;;21,"50436-0821-03 ")
 ;;2685
 ;;21,"50436-0822-01 ")
 ;;2686
 ;;21,"50436-0822-02 ")
 ;;2687
 ;;21,"50436-0822-03 ")
 ;;2688