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