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

BGPM5AQA.m

Go to the documentation of this file.
BGPM5AQA ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"58016058191 ")
 ;;2410
 ;;21,"58016058192 ")
 ;;2411
 ;;21,"58016058193 ")
 ;;2412
 ;;21,"58016058196 ")
 ;;2413
 ;;21,"58016058197 ")
 ;;2414
 ;;21,"58016058198 ")
 ;;2415
 ;;21,"58016058199 ")
 ;;2416
 ;;21,"58016060601 ")
 ;;2417
 ;;21,"58016060602 ")
 ;;2418
 ;;21,"58016060603 ")
 ;;2419
 ;;21,"58016060604 ")
 ;;2420
 ;;21,"58016060605 ")
 ;;2421
 ;;21,"58016060606 ")
 ;;2422
 ;;21,"58016060607 ")
 ;;2423
 ;;21,"58016060608 ")
 ;;2424
 ;;21,"58016060609 ")
 ;;2425
 ;;21,"58016060610 ")
 ;;2426
 ;;21,"58016060614 ")
 ;;2427
 ;;21,"58016060616 ")
 ;;2428
 ;;21,"58016060618 ")
 ;;2429
 ;;21,"58016060621 ")
 ;;2430
 ;;21,"58016060624 ")
 ;;2431
 ;;21,"58016060625 ")
 ;;2432
 ;;21,"58016060626 ")
 ;;2433
 ;;21,"58016060627 ")
 ;;2434
 ;;21,"58016060628 ")
 ;;2435
 ;;21,"58016060632 ")
 ;;2436
 ;;21,"58016060635 ")
 ;;2437
 ;;21,"58016060636 ")
 ;;2438
 ;;21,"58016060640 ")
 ;;2439
 ;;21,"58016060642 ")
 ;;2440
 ;;21,"58016060644 ")
 ;;2441
 ;;21,"58016060645 ")
 ;;2442
 ;;21,"58016060648 ")
 ;;2443
 ;;21,"58016060650 ")
 ;;2444
 ;;21,"58016060656 ")
 ;;2445
 ;;21,"58016060660 ")
 ;;2446
 ;;21,"58016060667 ")
 ;;2447
 ;;21,"58016060669 ")
 ;;2448
 ;;21,"58016060670 ")
 ;;2449
 ;;21,"58016060671 ")
 ;;2450
 ;;21,"58016060672 ")
 ;;2451
 ;;21,"58016060673 ")
 ;;2452
 ;;21,"58016060675 ")
 ;;2453
 ;;21,"58016060676 ")
 ;;2454
 ;;21,"58016060677 ")
 ;;2455
 ;;21,"58016060679 ")
 ;;2456
 ;;21,"58016060680 ")
 ;;2457
 ;;21,"58016060681 ")
 ;;2458
 ;;21,"58016060682 ")
 ;;2459
 ;;21,"58016060683 ")
 ;;2460
 ;;21,"58016060684 ")
 ;;2461
 ;;21,"58016060687 ")
 ;;2462
 ;;21,"58016060689 ")
 ;;2463
 ;;21,"58016060691 ")
 ;;2464
 ;;21,"58016060692 ")
 ;;2465
 ;;21,"58016060693 ")
 ;;2466
 ;;21,"58016060696 ")
 ;;2467
 ;;21,"58016060697 ")
 ;;2468
 ;;21,"58016060698 ")
 ;;2469
 ;;21,"58016060699 ")
 ;;2470
 ;;21,"58016064600 ")
 ;;2471
 ;;21,"58016064630 ")
 ;;2472
 ;;21,"58016064660 ")
 ;;2473
 ;;21,"58016064690 ")
 ;;2474
 ;;21,"58016076000 ")
 ;;2475
 ;;21,"58016076030 ")
 ;;2476
 ;;21,"58016076060 ")
 ;;2477
 ;;21,"58016076090 ")
 ;;2478
 ;;21,"58016077700 ")
 ;;2479
 ;;21,"58016077701 ")
 ;;2480
 ;;21,"58016077702 ")
 ;;2481
 ;;21,"58016077703 ")
 ;;2482
 ;;21,"58016077704 ")
 ;;2483
 ;;21,"58016077705 ")
 ;;2484
 ;;21,"58016077706 ")
 ;;2485
 ;;21,"58016077707 ")
 ;;2486
 ;;21,"58016077708 ")
 ;;2487
 ;;21,"58016077709 ")
 ;;2488
 ;;21,"58016077710 ")
 ;;2489
 ;;21,"58016077712 ")
 ;;2490
 ;;21,"58016077714 ")
 ;;2491
 ;;21,"58016077715 ")
 ;;2492
 ;;21,"58016077716 ")
 ;;2493
 ;;21,"58016077718 ")
 ;;2494
 ;;21,"58016077720 ")
 ;;2495
 ;;21,"58016077721 ")
 ;;2496
 ;;21,"58016077724 ")
 ;;2497
 ;;21,"58016077725 ")
 ;;2498
 ;;21,"58016077726 ")
 ;;2499
 ;;21,"58016077727 ")
 ;;2500
 ;;21,"58016077728 ")
 ;;2501
 ;;21,"58016077730 ")
 ;;2502
 ;;21,"58016077732 ")
 ;;2503
 ;;21,"58016077735 ")
 ;;2504
 ;;21,"58016077736 ")
 ;;2505
 ;;21,"58016077740 ")
 ;;2506
 ;;21,"58016077742 ")
 ;;2507
 ;;21,"58016077744 ")
 ;;2508
 ;;21,"58016077745 ")
 ;;2509
 ;;21,"58016077748 ")
 ;;2510
 ;;21,"58016077750 ")
 ;;2511
 ;;21,"58016077756 ")
 ;;2512
 ;;21,"58016077760 ")
 ;;2513
 ;;21,"58016077767 ")
 ;;2514
 ;;21,"58016077769 ")
 ;;2515
 ;;21,"58016077770 ")
 ;;2516
 ;;21,"58016077771 ")
 ;;2517
 ;;21,"58016077772 ")
 ;;2518
 ;;21,"58016077773 ")
 ;;2519
 ;;21,"58016077775 ")
 ;;2520
 ;;21,"58016077776 ")
 ;;2521
 ;;21,"58016077777 ")
 ;;2522
 ;;21,"58016077779 ")
 ;;2523
 ;;21,"58016077780 ")
 ;;2524
 ;;21,"58016077781 ")
 ;;2525
 ;;21,"58016077782 ")
 ;;2526
 ;;21,"58016077783 ")
 ;;2527
 ;;21,"58016077784 ")
 ;;2528
 ;;21,"58016077787 ")
 ;;2529
 ;;21,"58016077789 ")
 ;;2530
 ;;21,"58016077790 ")
 ;;2531
 ;;21,"58016077791 ")
 ;;2532
 ;;21,"58016077792 ")
 ;;2533
 ;;21,"58016077793 ")
 ;;2534
 ;;21,"58016077796 ")
 ;;2535
 ;;21,"58016077797 ")
 ;;2536
 ;;21,"58016077798 ")
 ;;2537
 ;;21,"58016077799 ")
 ;;2538
 ;;21,"58016078000 ")
 ;;2539
 ;;21,"58016078001 ")
 ;;2540
 ;;21,"58016078002 ")
 ;;2541
 ;;21,"58016078003 ")
 ;;2542
 ;;21,"58016078004 ")
 ;;2543
 ;;21,"58016078005 ")
 ;;2544
 ;;21,"58016078006 ")
 ;;2545
 ;;21,"58016078007 ")
 ;;2546
 ;;21,"58016078008 ")
 ;;2547
 ;;21,"58016078009 ")
 ;;2548
 ;;21,"58016078010 ")
 ;;2549
 ;;21,"58016078012 ")
 ;;2550
 ;;21,"58016078014 ")
 ;;2551
 ;;21,"58016078015 ")
 ;;2552
 ;;21,"58016078016 ")
 ;;2553
 ;;21,"58016078018 ")
 ;;2554
 ;;21,"58016078020 ")
 ;;2555
 ;;21,"58016078021 ")
 ;;2556
 ;;21,"58016078024 ")
 ;;2557
 ;;21,"58016078025 ")
 ;;2558
 ;;21,"58016078026 ")
 ;;2559
 ;;21,"58016078027 ")
 ;;2560
 ;;21,"58016078028 ")
 ;;2561
 ;;21,"58016078030 ")
 ;;2562
 ;;21,"58016078032 ")
 ;;2563
 ;;21,"58016078035 ")
 ;;2564
 ;;21,"58016078036 ")
 ;;2565
 ;;21,"58016078040 ")
 ;;2566
 ;;21,"58016078042 ")
 ;;2567
 ;;21,"58016078044 ")
 ;;2568
 ;;21,"58016078045 ")
 ;;2569
 ;;21,"58016078048 ")
 ;;2570
 ;;21,"58016078050 ")
 ;;2571
 ;;21,"58016078056 ")
 ;;2572
 ;;21,"58016078060 ")
 ;;2573
 ;;21,"58016078067 ")
 ;;2574
 ;;21,"58016078069 ")
 ;;2575
 ;;21,"58016078070 ")
 ;;2576
 ;;21,"58016078071 ")
 ;;2577
 ;;21,"58016078072 ")
 ;;2578
 ;;21,"58016078073 ")
 ;;2579
 ;;21,"58016078075 ")
 ;;2580
 ;;21,"58016078076 ")
 ;;2581
 ;;21,"58016078077 ")
 ;;2582
 ;;21,"58016078079 ")
 ;;2583
 ;;21,"58016078080 ")
 ;;2584
 ;;21,"58016078081 ")
 ;;2585
 ;;21,"58016078082 ")
 ;;2586
 ;;21,"58016078083 ")
 ;;2587
 ;;21,"58016078084 ")
 ;;2588
 ;;21,"58016078087 ")
 ;;2589
 ;;21,"58016078089 ")
 ;;2590
 ;;21,"58016078090 ")
 ;;2591
 ;;21,"58016078091 ")
 ;;2592
 ;;21,"58016078092 ")
 ;;2593
 ;;21,"58016078093 ")
 ;;2594
 ;;21,"58016078096 ")
 ;;2595
 ;;21,"58016078097 ")
 ;;2596
 ;;21,"58016078098 ")
 ;;2597
 ;;21,"58016078099 ")
 ;;2598
 ;;21,"58016079801 ")
 ;;2599
 ;;21,"58016079802 ")
 ;;2600
 ;;21,"58016079803 ")
 ;;2601
 ;;21,"58016079804 ")
 ;;2602
 ;;21,"58016079805 ")
 ;;2603
 ;;21,"58016079806 ")
 ;;2604
 ;;21,"58016079807 ")
 ;;2605
 ;;21,"58016079808 ")
 ;;2606
 ;;21,"58016079809 ")
 ;;2607
 ;;21,"58016079810 ")
 ;;2608
 ;;21,"58016079812 ")
 ;;2609
 ;;21,"58016079814 ")
 ;;2610
 ;;21,"58016079815 ")
 ;;2611
 ;;21,"58016079816 ")
 ;;2612
 ;;21,"58016079818 ")
 ;;2613
 ;;21,"58016079820 ")
 ;;2614
 ;;21,"58016079821 ")
 ;;2615
 ;;21,"58016079824 ")
 ;;2616
 ;;21,"58016079825 ")
 ;;2617
 ;;21,"58016079826 ")
 ;;2618
 ;;21,"58016079827 ")
 ;;2619
 ;;21,"58016079828 ")
 ;;2620
 ;;21,"58016079832 ")
 ;;2621
 ;;21,"58016079835 ")
 ;;2622
 ;;21,"58016079836 ")
 ;;2623
 ;;21,"58016079840 ")
 ;;2624
 ;;21,"58016079842 ")
 ;;2625
 ;;21,"58016079844 ")
 ;;2626
 ;;21,"58016079845 ")
 ;;2627
 ;;21,"58016079848 ")
 ;;2628
 ;;21,"58016079850 ")
 ;;2629
 ;;21,"58016079867 ")
 ;;2630
 ;;21,"58016079869 ")
 ;;2631
 ;;21,"58016079870 ")
 ;;2632
 ;;21,"58016079871 ")
 ;;2633
 ;;21,"58016079872 ")
 ;;2634
 ;;21,"58016079873 ")
 ;;2635
 ;;21,"58016079875 ")
 ;;2636
 ;;21,"58016079876 ")
 ;;2637
 ;;21,"58016079877 ")
 ;;2638
 ;;21,"58016079879 ")
 ;;2639
 ;;21,"58016079880 ")
 ;;2640
 ;;21,"58016079881 ")
 ;;2641
 ;;21,"58016079882 ")
 ;;2642
 ;;21,"58016079883 ")
 ;;2643
 ;;21,"58016079884 ")
 ;;2644
 ;;21,"58016079887 ")
 ;;2645
 ;;21,"58016079889 ")
 ;;2646
 ;;21,"58016079890 ")
 ;;2647
 ;;21,"58016079891 ")
 ;;2648
 ;;21,"58016079892 ")
 ;;2649
 ;;21,"58016079893 ")
 ;;2650
 ;;21,"58016079896 ")
 ;;2651
 ;;21,"58016079897 ")
 ;;2652
 ;;21,"58016079898 ")
 ;;2653
 ;;21,"58016079899 ")
 ;;2654
 ;;21,"5801608 ")
 ;;2731
 ;;21,"58016088700 ")
 ;;2655
 ;;21,"58016088701 ")
 ;;2656
 ;;21,"58016088702 ")
 ;;2657
 ;;21,"58016088703 ")
 ;;2658
 ;;21,"58016088704 ")
 ;;2659
 ;;21,"58016088705 ")
 ;;2660
 ;;21,"58016088706 ")
 ;;2661
 ;;21,"58016088707 ")
 ;;2662
 ;;21,"58016088708 ")
 ;;2663
 ;;21,"58016088709 ")
 ;;2664
 ;;21,"58016088710 ")
 ;;2665
 ;;21,"58016088712 ")
 ;;2666
 ;;21,"58016088714 ")
 ;;2667
 ;;21,"58016088715 ")
 ;;2668
 ;;21,"58016088716 ")
 ;;2669
 ;;21,"58016088718 ")
 ;;2670
 ;;21,"58016088720 ")
 ;;2671
 ;;21,"58016088721 ")
 ;;2672
 ;;21,"58016088724 ")
 ;;2673
 ;;21,"58016088725 ")
 ;;2674
 ;;21,"58016088726 ")
 ;;2675
 ;;21,"58016088727 ")
 ;;2676
 ;;21,"58016088728 ")
 ;;2677
 ;;21,"58016088730 ")
 ;;2678
 ;;21,"58016088732 ")
 ;;2679
 ;;21,"58016088735 ")
 ;;2680
 ;;21,"58016088736 ")
 ;;2681
 ;;21,"58016088740 ")
 ;;2682
 ;;21,"58016088742 ")
 ;;2683
 ;;21,"58016088744 ")
 ;;2684
 ;;21,"58016088745 ")
 ;;2685
 ;;21,"58016088748 ")
 ;;2686
 ;;21,"58016088750 ")
 ;;2687
 ;;21,"58016088756 ")
 ;;2688
 ;;21,"58016088760 ")
 ;;2689
 ;;21,"58016088767 ")
 ;;2690
 ;;21,"58016088769 ")
 ;;2691
 ;;21,"58016088770 ")
 ;;2692
 ;;21,"58016088771 ")
 ;;2693
 ;;21,"58016088772 ")
 ;;2694
 ;;21,"58016088773 ")
 ;;2695
 ;;21,"58016088775 ")
 ;;2696
 ;;21,"58016088776 ")
 ;;2697
 ;;21,"58016088777 ")
 ;;2698
 ;;21,"58016088779 ")
 ;;2699
 ;;21,"58016088780 ")
 ;;2700
 ;;21,"58016088781 ")
 ;;2701
 ;;21,"58016088782 ")
 ;;2702
 ;;21,"58016088783 ")
 ;;2703
 ;;21,"58016088784 ")
 ;;2704
 ;;21,"58016088787 ")
 ;;2705
 ;;21,"58016088789 ")
 ;;2706
 ;;21,"58016088790 ")
 ;;2707
 ;;21,"58016088791 ")
 ;;2708
 ;;21,"58016088792 ")
 ;;2709
 ;;21,"58016088793 ")
 ;;2710
 ;;21,"58016088796 ")
 ;;2711
 ;;21,"58016088797 ")
 ;;2712
 ;;21,"58016088798 ")
 ;;2713
 ;;21,"58016088799 ")
 ;;2714
 ;;21,"58016089200 ")
 ;;2715
 ;;21,"58016089201 ")
 ;;2716
 ;;21,"58016089202 ")
 ;;2717
 ;;21,"58016089203 ")
 ;;2718
 ;;21,"58016089204 ")
 ;;2719
 ;;21,"58016089205 ")
 ;;2720
 ;;21,"58016089206 ")
 ;;2721
 ;;21,"58016089207 ")
 ;;2722
 ;;21,"58016089208 ")
 ;;2723
 ;;21,"58016089209 ")
 ;;2724
 ;;21,"58016089210 ")
 ;;2725
 ;;21,"58016089212 ")
 ;;2726
 ;;21,"58016089214 ")
 ;;2727
 ;;21,"58016089215 ")
 ;;2728
 ;;21,"58016089216 ")
 ;;2729
 ;;21,"58016089218 ")
 ;;2730
 ;;21,"58016089221 ")
 ;;2733
 ;;21,"58016089224 ")
 ;;2734
 ;;21,"58016089225 ")
 ;;2735
 ;;21,"58016089226 ")
 ;;2736
 ;;21,"58016089227 ")
 ;;2737
 ;;21,"58016089228 ")
 ;;2738
 ;;21,"58016089230 ")
 ;;2739
 ;;21,"58016089232 ")
 ;;2740
 ;;21,"58016089235 ")
 ;;2741
 ;;21,"58016089236 ")
 ;;2742
 ;;21,"58016089240 ")
 ;;2743
 ;;21,"58016089242 ")
 ;;2744
 ;;21,"58016089244 ")
 ;;2745
 ;;21,"58016089245 ")
 ;;2746
 ;;21,"58016089248 ")
 ;;2747
 ;;21,"58016089250 ")
 ;;2748
 ;;21,"58016089256 ")
 ;;2749
 ;;21,"58016089260 ")
 ;;2750
 ;;21,"58016089267 ")
 ;;2751
 ;;21,"58016089269 ")
 ;;2752
 ;;21,"58016089270 ")
 ;;2753
 ;;21,"58016089271 ")
 ;;2754
 ;;21,"58016089272 ")
 ;;2755
 ;;21,"58016089273 ")
 ;;2756
 ;;21,"58016089275 ")
 ;;2757
 ;;21,"58016089276 ")
 ;;2758
 ;;21,"58016089277 ")
 ;;2759
 ;;21,"58016089279 ")
 ;;2760
 ;;21,"58016089280 ")
 ;;2761
 ;;21,"58016089281 ")
 ;;2762