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

BGPM5ATV.m

Go to the documentation of this file.
  1. BGPM5ATV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"58016013703 ")
  1. ;;2563
  1. ;;21,"58016013704 ")
  1. ;;2564
  1. ;;21,"58016013705 ")
  1. ;;2565
  1. ;;21,"58016013706 ")
  1. ;;2566
  1. ;;21,"58016013707 ")
  1. ;;2567
  1. ;;21,"58016013708 ")
  1. ;;2568
  1. ;;21,"58016013709 ")
  1. ;;2569
  1. ;;21,"58016013710 ")
  1. ;;2570
  1. ;;21,"58016013712 ")
  1. ;;2571
  1. ;;21,"58016013714 ")
  1. ;;2572
  1. ;;21,"58016013715 ")
  1. ;;2573
  1. ;;21,"58016013716 ")
  1. ;;2574
  1. ;;21,"58016013718 ")
  1. ;;2575
  1. ;;21,"58016013720 ")
  1. ;;2576
  1. ;;21,"58016013721 ")
  1. ;;2577
  1. ;;21,"58016013724 ")
  1. ;;2578
  1. ;;21,"58016013725 ")
  1. ;;2579
  1. ;;21,"58016013726 ")
  1. ;;2580
  1. ;;21,"58016013727 ")
  1. ;;2581
  1. ;;21,"58016013728 ")
  1. ;;2582
  1. ;;21,"58016013730 ")
  1. ;;2583
  1. ;;21,"58016013732 ")
  1. ;;2584
  1. ;;21,"58016013735 ")
  1. ;;2585
  1. ;;21,"58016013736 ")
  1. ;;2586
  1. ;;21,"58016013740 ")
  1. ;;2587
  1. ;;21,"58016013742 ")
  1. ;;2588
  1. ;;21,"58016013744 ")
  1. ;;2589
  1. ;;21,"58016013745 ")
  1. ;;2590
  1. ;;21,"58016013748 ")
  1. ;;2591
  1. ;;21,"58016013750 ")
  1. ;;2592
  1. ;;21,"58016013756 ")
  1. ;;2593
  1. ;;21,"58016013760 ")
  1. ;;2594
  1. ;;21,"58016013767 ")
  1. ;;2595
  1. ;;21,"58016013769 ")
  1. ;;2596
  1. ;;21,"58016013770 ")
  1. ;;2597
  1. ;;21,"58016013771 ")
  1. ;;2598
  1. ;;21,"58016013772 ")
  1. ;;2599
  1. ;;21,"58016013773 ")
  1. ;;2600
  1. ;;21,"58016013775 ")
  1. ;;2601
  1. ;;21,"58016013776 ")
  1. ;;2602
  1. ;;21,"58016013777 ")
  1. ;;2603
  1. ;;21,"58016013779 ")
  1. ;;2604
  1. ;;21,"58016013780 ")
  1. ;;2605
  1. ;;21,"58016013781 ")
  1. ;;2606
  1. ;;21,"58016013782 ")
  1. ;;2607
  1. ;;21,"58016013783 ")
  1. ;;2608
  1. ;;21,"58016013784 ")
  1. ;;2609
  1. ;;21,"58016013787 ")
  1. ;;2610
  1. ;;21,"58016013789 ")
  1. ;;2611
  1. ;;21,"58016013790 ")
  1. ;;2612
  1. ;;21,"58016013791 ")
  1. ;;2613
  1. ;;21,"58016013792 ")
  1. ;;2614
  1. ;;21,"58016013793 ")
  1. ;;2615
  1. ;;21,"58016013796 ")
  1. ;;2616
  1. ;;21,"58016013797 ")
  1. ;;2617
  1. ;;21,"58016013798 ")
  1. ;;2618
  1. ;;21,"58016013799 ")
  1. ;;2619
  1. ;;21,"58016013800 ")
  1. ;;2620
  1. ;;21,"58016013802 ")
  1. ;;2621
  1. ;;21,"58016013803 ")
  1. ;;2622
  1. ;;21,"58016013812 ")
  1. ;;2623
  1. ;;21,"58016013814 ")
  1. ;;2624
  1. ;;21,"58016013815 ")
  1. ;;2625
  1. ;;21,"58016013820 ")
  1. ;;2626
  1. ;;21,"58016013821 ")
  1. ;;2627
  1. ;;21,"58016013824 ")
  1. ;;2628
  1. ;;21,"58016013828 ")
  1. ;;2629
  1. ;;21,"58016013830 ")
  1. ;;2630
  1. ;;21,"58016013840 ")
  1. ;;2631
  1. ;;21,"58016013856 ")
  1. ;;2632
  1. ;;21,"58016013860 ")
  1. ;;2633
  1. ;;21,"58016013873 ")
  1. ;;2634
  1. ;;21,"58016013889 ")
  1. ;;2635
  1. ;;21,"58016013900 ")
  1. ;;2636
  1. ;;21,"58016013902 ")
  1. ;;2637
  1. ;;21,"58016013903 ")
  1. ;;2638
  1. ;;21,"58016013904 ")
  1. ;;2639
  1. ;;21,"58016013905 ")
  1. ;;2640
  1. ;;21,"58016013906 ")
  1. ;;2641
  1. ;;21,"58016013908 ")
  1. ;;2642
  1. ;;21,"58016013910 ")
  1. ;;2643
  1. ;;21,"58016013912 ")
  1. ;;2644
  1. ;;21,"58016013914 ")
  1. ;;2645
  1. ;;21,"58016013915 ")
  1. ;;2646
  1. ;;21,"58016013918 ")
  1. ;;2647
  1. ;;21,"58016013920 ")
  1. ;;2648
  1. ;;21,"58016013921 ")
  1. ;;2649
  1. ;;21,"58016013924 ")
  1. ;;2650
  1. ;;21,"58016013928 ")
  1. ;;2651
  1. ;;21,"58016013930 ")
  1. ;;2652
  1. ;;21,"58016013940 ")
  1. ;;2653
  1. ;;21,"58016013950 ")
  1. ;;2654
  1. ;;21,"58016013956 ")
  1. ;;2655
  1. ;;21,"58016013960 ")
  1. ;;2656
  1. ;;21,"58016013973 ")
  1. ;;2657
  1. ;;21,"58016013989 ")
  1. ;;2658
  1. ;;21,"58016014600 ")
  1. ;;2659
  1. ;;21,"58016014602 ")
  1. ;;2660
  1. ;;21,"58016014603 ")
  1. ;;2661
  1. ;;21,"58016014610 ")
  1. ;;2662
  1. ;;21,"58016014612 ")
  1. ;;2663
  1. ;;21,"58016014616 ")
  1. ;;2664
  1. ;;21,"58016014620 ")
  1. ;;2665
  1. ;;21,"58016014621 ")
  1. ;;2666
  1. ;;21,"58016014624 ")
  1. ;;2667
  1. ;;21,"58016014628 ")
  1. ;;2668
  1. ;;21,"58016014630 ")
  1. ;;2669
  1. ;;21,"58016014640 ")
  1. ;;2670
  1. ;;21,"58016014660 ")
  1. ;;2671
  1. ;;21,"58016014673 ")
  1. ;;2672
  1. ;;21,"58016014689 ")
  1. ;;2673
  1. ;;21,"58016014690 ")
  1. ;;2674
  1. ;;21,"58016014700 ")
  1. ;;2675
  1. ;;21,"58016014701 ")
  1. ;;2676
  1. ;;21,"58016014702 ")
  1. ;;2677
  1. ;;21,"58016014703 ")
  1. ;;2678
  1. ;;21,"58016014704 ")
  1. ;;2679
  1. ;;21,"58016014705 ")
  1. ;;2680
  1. ;;21,"58016014706 ")
  1. ;;2681
  1. ;;21,"58016014707 ")
  1. ;;2682
  1. ;;21,"58016014708 ")
  1. ;;2683
  1. ;;21,"58016014709 ")
  1. ;;2684
  1. ;;21,"58016014710 ")
  1. ;;2685
  1. ;;21,"58016014712 ")
  1. ;;2686
  1. ;;21,"58016014714 ")
  1. ;;2687
  1. ;;21,"58016014715 ")
  1. ;;2688
  1. ;;21,"58016014716 ")
  1. ;;2689
  1. ;;21,"58016014718 ")
  1. ;;2690
  1. ;;21,"58016014720 ")
  1. ;;2691
  1. ;;21,"58016014721 ")
  1. ;;2692
  1. ;;21,"58016014724 ")
  1. ;;2693
  1. ;;21,"58016014725 ")
  1. ;;2694
  1. ;;21,"58016014726 ")
  1. ;;2695
  1. ;;21,"58016014727 ")
  1. ;;2696
  1. ;;21,"58016014728 ")
  1. ;;2697
  1. ;;21,"58016014730 ")
  1. ;;2698
  1. ;;21,"58016014732 ")
  1. ;;2699
  1. ;;21,"58016014735 ")
  1. ;;2700
  1. ;;21,"58016014736 ")
  1. ;;2701
  1. ;;21,"58016014740 ")
  1. ;;2702
  1. ;;21,"58016014742 ")
  1. ;;2703
  1. ;;21,"58016014744 ")
  1. ;;2704
  1. ;;21,"58016014745 ")
  1. ;;2705
  1. ;;21,"58016014746 ")
  1. ;;2706
  1. ;;21,"58016014750 ")
  1. ;;2707
  1. ;;21,"58016014756 ")
  1. ;;2708
  1. ;;21,"58016014760 ")
  1. ;;2709
  1. ;;21,"58016014767 ")
  1. ;;2710
  1. ;;21,"58016014769 ")
  1. ;;2711
  1. ;;21,"58016014770 ")
  1. ;;2712
  1. ;;21,"58016014771 ")
  1. ;;2713
  1. ;;21,"58016014772 ")
  1. ;;2714
  1. ;;21,"58016014773 ")
  1. ;;2715
  1. ;;21,"58016014775 ")
  1. ;;2716
  1. ;;21,"58016014776 ")
  1. ;;2717
  1. ;;21,"58016014777 ")
  1. ;;2718
  1. ;;21,"58016014779 ")
  1. ;;2719
  1. ;;21,"58016014780 ")
  1. ;;2720
  1. ;;21,"58016014781 ")
  1. ;;2721
  1. ;;21,"58016014782 ")
  1. ;;2722
  1. ;;21,"58016014783 ")
  1. ;;2723
  1. ;;21,"58016014784 ")
  1. ;;2724
  1. ;;21,"58016014787 ")
  1. ;;2725
  1. ;;21,"58016014789 ")
  1. ;;2726
  1. ;;21,"58016014790 ")
  1. ;;2727
  1. ;;21,"58016014791 ")
  1. ;;2728
  1. ;;21,"58016014792 ")
  1. ;;2729
  1. ;;21,"58016014793 ")
  1. ;;2730
  1. ;;21,"58016014796 ")
  1. ;;2731
  1. ;;21,"58016014798 ")
  1. ;;2734
  1. ;;21,"58016014799 ")
  1. ;;2735
  1. ;;21,"58016014800 ")
  1. ;;2736
  1. ;;21,"58016014808 ")
  1. ;;2737
  1. ;;21,"58016014809 ")
  1. ;;2738
  1. ;;21,"58016014810 ")
  1. ;;2739
  1. ;;21,"58016014812 ")
  1. ;;2740
  1. ;;21,"58016014814 ")
  1. ;;2741
  1. ;;21,"58016014815 ")
  1. ;;2742
  1. ;;21,"58016014820 ")
  1. ;;2743
  1. ;;21,"58016014824 ")
  1. ;;2744
  1. ;;21,"58016014828 ")
  1. ;;2745
  1. ;;21,"58016014830 ")
  1. ;;2746
  1. ;;21,"58016014840 ")
  1. ;;2747
  1. ;;21,"58016014850 ")
  1. ;;2748
  1. ;;21,"58016014900 ")
  1. ;;2749
  1. ;;21,"58016014907 ")
  1. ;;2750
  1. ;;21,"58016014910 ")
  1. ;;2751
  1. ;;21,"58016014920 ")
  1. ;;2752
  1. ;;21,"58016014921 ")
  1. ;;2753
  1. ;;21,"58016014924 ")
  1. ;;2754
  1. ;;21,"58016014925 ")
  1. ;;2755
  1. ;;21,"58016014928 ")
  1. ;;2756
  1. ;;21,"58016014930 ")
  1. ;;2757
  1. ;;21,"58016014940 ")
  1. ;;2758
  1. ;;21,"58016015600 ")
  1. ;;2759
  1. ;;21,"58016015602 ")
  1. ;;2760
  1. ;;21,"58016015603 ")
  1. ;;2761
  1. ;;21,"58016015606 ")
  1. ;;2762
  1. ;;21,"58016015607 ")
  1. ;;2763
  1. ;;21,"58016015610 ")
  1. ;;2764
  1. ;;21,"58016015612 ")
  1. ;;2765
  1. ;;21,"58016015614 ")
  1. ;;2766
  1. ;;21,"58016015615 ")
  1. ;;2767
  1. ;;21,"58016015616 ")
  1. ;;2768
  1. ;;21,"58016015620 ")
  1. ;;2769
  1. ;;21,"58016015621 ")
  1. ;;2770
  1. ;;21,"58016015624 ")
  1. ;;2771
  1. ;;21,"58016015628 ")
  1. ;;2772
  1. ;;21,"58016015630 ")
  1. ;;2773
  1. ;;21,"58016015640 ")
  1. ;;2774
  1. ;;21,"58016015660 ")
  1. ;;2775
  1. ;;21,"58016015673 ")
  1. ;;2776
  1. ;;21,"58016015689 ")
  1. ;;2777
  1. ;;21,"58016016100 ")
  1. ;;2778
  1. ;;21,"58016016110 ")
  1. ;;2779
  1. ;;21,"58016016112 ")
  1. ;;2780
  1. ;;21,"58016016114 ")
  1. ;;2781
  1. ;;21,"58016016115 ")
  1. ;;2782
  1. ;;21,"58016016116 ")
  1. ;;2783
  1. ;;21,"58016016118 ")
  1. ;;2784
  1. ;;21,"58016016120 ")
  1. ;;2785
  1. ;;21,"58016016121 ")
  1. ;;2786
  1. ;;21,"58016016124 ")
  1. ;;2787
  1. ;;21,"58016016128 ")
  1. ;;2788
  1. ;;21,"58016016130 ")
  1. ;;2789
  1. ;;21,"58016016140 ")
  1. ;;2790
  1. ;;21,"58016016150 ")
  1. ;;2791
  1. ;;21,"58016016160 ")
  1. ;;2792
  1. ;;21,"58016017100 ")
  1. ;;2793
  1. ;;21,"58016017120 ")
  1. ;;2794
  1. ;;21,"58016017130 ")
  1. ;;2795
  1. ;;21,"58016020400 ")
  1. ;;2796
  1. ;;21,"58016020420 ")
  1. ;;2797
  1. ;;21,"58016020430 ")
  1. ;;2798
  1. ;;21,"58016020460 ")
  1. ;;2799
  1. ;;21,"58016020490 ")
  1. ;;2800
  1. ;;21,"58016028415 ")
  1. ;;2801
  1. ;;21,"58016028420 ")
  1. ;;2802
  1. ;;21,"58016028430 ")
  1. ;;2803
  1. ;;21,"58016028450 ")
  1. ;;2804
  1. ;;21,"58016029900 ")
  1. ;;2805
  1. ;;21,"58016029930 ")
  1. ;;2806
  1. ;;21,"58016029960 ")
  1. ;;2807
  1. ;;21,"58016029990 ")
  1. ;;2808
  1. ;;21,"58016033900 ")
  1. ;;2809
  1. ;;21,"58016033901 ")
  1. ;;2810
  1. ;;21,"58016033902 ")
  1. ;;2811
  1. ;;21,"58016033903 ")
  1. ;;2812
  1. ;;21,"58016033904 ")
  1. ;;2813
  1. ;;21,"58016033905 ")
  1. ;;2814
  1. ;;21,"58016033906 ")
  1. ;;2815
  1. ;;21,"58016033907 ")
  1. ;;2816
  1. ;;21,"58016033908 ")
  1. ;;2817
  1. ;;21,"58016033909 ")
  1. ;;2818
  1. ;;21,"58016033910 ")
  1. ;;2819
  1. ;;21,"58016033912 ")
  1. ;;2820
  1. ;;21,"58016033914 ")
  1. ;;2821
  1. ;;21,"58016033915 ")
  1. ;;2822
  1. ;;21,"58016033916 ")
  1. ;;2823
  1. ;;21,"58016033918 ")
  1. ;;2824
  1. ;;21,"58016033920 ")
  1. ;;2825
  1. ;;21,"58016033921 ")
  1. ;;2826
  1. ;;21,"58016033924 ")
  1. ;;2827
  1. ;;21,"58016033925 ")
  1. ;;2828
  1. ;;21,"58016033926 ")
  1. ;;2829
  1. ;;21,"58016033927 ")
  1. ;;2830
  1. ;;21,"58016033928 ")
  1. ;;2831
  1. ;;21,"58016033930 ")
  1. ;;2832
  1. ;;21,"58016033932 ")
  1. ;;2833
  1. ;;21,"58016033935 ")
  1. ;;2834
  1. ;;21,"58016033936 ")
  1. ;;2835
  1. ;;21,"58016033940 ")
  1. ;;2836
  1. ;;21,"58016033942 ")
  1. ;;2837
  1. ;;21,"58016033944 ")
  1. ;;2838
  1. ;;21,"58016033945 ")
  1. ;;2839
  1. ;;21,"58016033948 ")
  1. ;;2840
  1. ;;21,"58016033950 ")
  1. ;;2841
  1. ;;21,"58016033956 ")
  1. ;;2842
  1. ;;21,"58016033960 ")
  1. ;;2843
  1. ;;21,"58016033967 ")
  1. ;;2844
  1. ;;21,"58016033969 ")
  1. ;;2845
  1. ;;21,"58016033970 ")
  1. ;;2846
  1. ;;21,"58016033971 ")
  1. ;;2847
  1. ;;21,"58016033972 ")
  1. ;;2848
  1. ;;21,"58016033973 ")
  1. ;;2849
  1. ;;21,"58016033975 ")
  1. ;;2850
  1. ;;21,"58016033976 ")
  1. ;;2851
  1. ;;21,"58016033977 ")
  1. ;;2852
  1. ;;21,"58016033979 ")
  1. ;;2853
  1. ;;21,"58016033980 ")
  1. ;;2854
  1. ;;21,"58016033981 ")
  1. ;;2855
  1. ;;21,"58016033982 ")
  1. ;;2856
  1. ;;21,"58016033983 ")
  1. ;;2857
  1. ;;21,"58016033984 ")
  1. ;;2858
  1. ;;21,"58016033987 ")
  1. ;;2859
  1. ;;21,"58016033989 ")
  1. ;;2860
  1. ;;21,"58016033990 ")
  1. ;;2861
  1. ;;21,"58016033991 ")
  1. ;;2862
  1. ;;21,"58016033992 ")
  1. ;;2863
  1. ;;21,"58016033993 ")
  1. ;;2864
  1. ;;21,"58016033996 ")
  1. ;;2865
  1. ;;21,"58016033997 ")
  1. ;;2866
  1. ;;21,"58016033998 ")
  1. ;;2867
  1. ;;21,"58016033999 ")
  1. ;;2868
  1. ;;21,"58016045300 ")
  1. ;;2869
  1. ;;21,"58016045301 ")
  1. ;;2870
  1. ;;21,"58016045302 ")
  1. ;;2871
  1. ;;21,"58016045303 ")
  1. ;;2872
  1. ;;21,"58016045304 ")
  1. ;;2873
  1. ;;21,"58016045305 ")
  1. ;;2874
  1. ;;21,"58016045306 ")
  1. ;;2875
  1. ;;21,"58016045307 ")
  1. ;;2876
  1. ;;21,"58016045308 ")
  1. ;;2877
  1. ;;21,"58016045309 ")
  1. ;;2878
  1. ;;21,"58016045310 ")
  1. ;;2879
  1. ;;21,"58016045312 ")
  1. ;;2880
  1. ;;21,"58016045314 ")
  1. ;;2881
  1. ;;21,"58016045315 ")
  1. ;;2882
  1. ;;21,"58016045316 ")
  1. ;;2883
  1. ;;21,"58016045318 ")
  1. ;;2884
  1. ;;21,"58016045320 ")
  1. ;;2885
  1. ;;21,"58016045321 ")
  1. ;;2886
  1. ;;21,"58016045324 ")
  1. ;;2887
  1. ;;21,"58016045325 ")
  1. ;;2888
  1. ;;21,"58016045326 ")
  1. ;;2889
  1. ;;21,"58016045327 ")
  1. ;;2890
  1. ;;21,"58016045328 ")
  1. ;;2891
  1. ;;21,"58016045330 ")
  1. ;;2892
  1. ;;21,"58016045332 ")
  1. ;;2893
  1. ;;21,"58016045335 ")
  1. ;;2894
  1. ;;21,"58016045336 ")
  1. ;;2895
  1. ;;21,"58016045340 ")
  1. ;;2896
  1. ;;21,"58016045342 ")
  1. ;;2897
  1. ;;21,"58016045344 ")
  1. ;;2898
  1. ;;21,"58016045345 ")
  1. ;;2899
  1. ;;21,"58016045348 ")
  1. ;;2900
  1. ;;21,"58016045350 ")
  1. ;;2901
  1. ;;21,"58016045356 ")
  1. ;;2902
  1. ;;21,"58016045360 ")
  1. ;;2903
  1. ;;21,"58016045367 ")
  1. ;;2904
  1. ;;21,"58016045369 ")
  1. ;;2905
  1. ;;21,"58016045370 ")
  1. ;;2906
  1. ;;21,"58016045371 ")
  1. ;;2907
  1. ;;21,"58016045372 ")
  1. ;;2908
  1. ;;21,"58016045373 ")
  1. ;;2909
  1. ;;21,"58016045375 ")
  1. ;;2910
  1. ;;21,"58016045376 ")
  1. ;;2911
  1. ;;21,"58016045377 ")
  1. ;;2912
  1. ;;21,"58016045379 ")
  1. ;;2913
  1. ;;21,"58016045380 ")
  1. ;;2914
  1. ;;21,"58016045381 ")
  1. ;;2915
  1. ;;21,"58016045382 ")
  1. ;;2916