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

BGPM5BEK.m

Go to the documentation of this file.
  1. BGPM5BEK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"55045226608 ")
  1. ;;2645
  1. ;;21,"55045226609 ")
  1. ;;2646
  1. ;;21,"55045226700 ")
  1. ;;2647
  1. ;;21,"55045226708 ")
  1. ;;2648
  1. ;;21,"55045232201 ")
  1. ;;2649
  1. ;;21,"55045232208 ")
  1. ;;2650
  1. ;;21,"55045261700 ")
  1. ;;2651
  1. ;;21,"55045290400 ")
  1. ;;785
  1. ;;21,"55045290402 ")
  1. ;;786
  1. ;;21,"55045290409 ")
  1. ;;787
  1. ;;21,"55045290500 ")
  1. ;;788
  1. ;;21,"55045290503 ")
  1. ;;789
  1. ;;21,"55045290506 ")
  1. ;;790
  1. ;;21,"55045290508 ")
  1. ;;791
  1. ;;21,"55045290600 ")
  1. ;;792
  1. ;;21,"55045290601 ")
  1. ;;793
  1. ;;21,"55045290602 ")
  1. ;;794
  1. ;;21,"55045290606 ")
  1. ;;795
  1. ;;21,"55045290609 ")
  1. ;;796
  1. ;;21,"55045328701 ")
  1. ;;797
  1. ;;21,"55045330001 ")
  1. ;;2652
  1. ;;21,"55045360702 ")
  1. ;;2653
  1. ;;21,"55045361304 ")
  1. ;;2654
  1. ;;21,"55111032001 ")
  1. ;;2655
  1. ;;21,"55111032005 ")
  1. ;;2656
  1. ;;21,"55111032030 ")
  1. ;;2657
  1. ;;21,"55111032078 ")
  1. ;;2658
  1. ;;21,"55111032101 ")
  1. ;;2659
  1. ;;21,"55111032105 ")
  1. ;;2660
  1. ;;21,"55111032130 ")
  1. ;;2661
  1. ;;21,"55111032178 ")
  1. ;;2662
  1. ;;21,"55111032179 ")
  1. ;;2663
  1. ;;21,"55111032201 ")
  1. ;;2664
  1. ;;21,"55111032205 ")
  1. ;;2665
  1. ;;21,"55111032230 ")
  1. ;;2666
  1. ;;21,"55111032278 ")
  1. ;;2667
  1. ;;21,"55111032279 ")
  1. ;;2668
  1. ;;21,"55111032801 ")
  1. ;;2009
  1. ;;21,"55111032805 ")
  1. ;;2010
  1. ;;21,"55111032830 ")
  1. ;;2011
  1. ;;21,"55111032878 ")
  1. ;;2012
  1. ;;21,"55111032879 ")
  1. ;;2013
  1. ;;21,"55111032890 ")
  1. ;;2014
  1. ;;21,"55111032901 ")
  1. ;;2015
  1. ;;21,"55111032905 ")
  1. ;;2016
  1. ;;21,"55111032930 ")
  1. ;;2017
  1. ;;21,"55111032978 ")
  1. ;;2018
  1. ;;21,"55111032979 ")
  1. ;;2019
  1. ;;21,"55111032990 ")
  1. ;;2020
  1. ;;21,"55111042901 ")
  1. ;;798
  1. ;;21,"55111042905 ")
  1. ;;799
  1. ;;21,"55111042910 ")
  1. ;;800
  1. ;;21,"55111042930 ")
  1. ;;801
  1. ;;21,"55111042960 ")
  1. ;;802
  1. ;;21,"55111042978 ")
  1. ;;803
  1. ;;21,"55111043001 ")
  1. ;;804
  1. ;;21,"55111043005 ")
  1. ;;805
  1. ;;21,"55111043030 ")
  1. ;;806
  1. ;;21,"55111043060 ")
  1. ;;807
  1. ;;21,"55111043078 ")
  1. ;;808
  1. ;;21,"55111043101 ")
  1. ;;809
  1. ;;21,"55111043105 ")
  1. ;;810
  1. ;;21,"55111043130 ")
  1. ;;811
  1. ;;21,"55111043160 ")
  1. ;;812
  1. ;;21,"55111043178 ")
  1. ;;813
  1. ;;21,"55111069501 ")
  1. ;;66
  1. ;;21,"55111069505 ")
  1. ;;67
  1. ;;21,"55111069510 ")
  1. ;;68
  1. ;;21,"55111069601 ")
  1. ;;69
  1. ;;21,"55111069605 ")
  1. ;;70
  1. ;;21,"55111069610 ")
  1. ;;71
  1. ;;21,"55111069701 ")
  1. ;;72
  1. ;;21,"55111069705 ")
  1. ;;73
  1. ;;21,"55111069710 ")
  1. ;;74
  1. ;;21,"55154053400 ")
  1. ;;2678
  1. ;;21,"55154053404 ")
  1. ;;2679
  1. ;;21,"55154053406 ")
  1. ;;2680
  1. ;;21,"55154167509 ")
  1. ;;823
  1. ;;21,"55154167609 ")
  1. ;;824
  1. ;;21,"55154205800 ")
  1. ;;825
  1. ;;21,"55154317500 ")
  1. ;;2681
  1. ;;21,"55154317504 ")
  1. ;;2682
  1. ;;21,"55154317506 ")
  1. ;;2683
  1. ;;21,"55154343709 ")
  1. ;;826
  1. ;;21,"55154375001 ")
  1. ;;827
  1. ;;21,"55154455609 ")
  1. ;;2684
  1. ;;21,"55154455709 ")
  1. ;;2685
  1. ;;21,"55154456103 ")
  1. ;;828
  1. ;;21,"55154507000 ")
  1. ;;2686
  1. ;;21,"55154522400 ")
  1. ;;2687
  1. ;;21,"55154522407 ")
  1. ;;2688
  1. ;;21,"55154542209 ")
  1. ;;829
  1. ;;21,"55154547600 ")
  1. ;;2689
  1. ;;21,"55154547607 ")
  1. ;;2690
  1. ;;21,"55154548700 ")
  1. ;;830
  1. ;;21,"55154548707 ")
  1. ;;831
  1. ;;21,"55154558800 ")
  1. ;;2691
  1. ;;21,"55154566200 ")
  1. ;;2692
  1. ;;21,"55154585003 ")
  1. ;;832
  1. ;;21,"55154599204 ")
  1. ;;2693
  1. ;;21,"55154599206 ")
  1. ;;2694
  1. ;;21,"55154619000 ")
  1. ;;2695
  1. ;;21,"55154619600 ")
  1. ;;2696
  1. ;;21,"55154622408 ")
  1. ;;2697
  1. ;;21,"55154622409 ")
  1. ;;2698
  1. ;;21,"55154623809 ")
  1. ;;2699
  1. ;;21,"55154665703 ")
  1. ;;833
  1. ;;21,"55154827009 ")
  1. ;;2700
  1. ;;21,"55160012201 ")
  1. ;;2701
  1. ;;21,"55160012205 ")
  1. ;;2702
  1. ;;21,"55160012301 ")
  1. ;;2703
  1. ;;21,"55160012305 ")
  1. ;;2704
  1. ;;21,"55160014301 ")
  1. ;;834
  1. ;;21,"55160014305 ")
  1. ;;835
  1. ;;21,"55160014401 ")
  1. ;;836
  1. ;;21,"55160014501 ")
  1. ;;837
  1. ;;21,"55288124301 ")
  1. ;;2705
  1. ;;21,"55288125201 ")
  1. ;;2706
  1. ;;21,"55289006690 ")
  1. ;;2707
  1. ;;21,"55289006697 ")
  1. ;;2708
  1. ;;21,"55289017142 ")
  1. ;;4352
  1. ;;21,"55289018797 ")
  1. ;;2709
  1. ;;21,"55289026590 ")
  1. ;;2710
  1. ;;21,"55289028130 ")
  1. ;;75
  1. ;;21,"55289028160 ")
  1. ;;76
  1. ;;21,"55289028186 ")
  1. ;;77
  1. ;;21,"55289028190 ")
  1. ;;78
  1. ;;21,"55289030193 ")
  1. ;;2715
  1. ;;21,"55289038430 ")
  1. ;;842
  1. ;;21,"55289038460 ")
  1. ;;843
  1. ;;21,"55289038486 ")
  1. ;;844
  1. ;;21,"55289038490 ")
  1. ;;845
  1. ;;21,"55289038493 ")
  1. ;;846
  1. ;;21,"55289038494 ")
  1. ;;847
  1. ;;21,"55289060630 ")
  1. ;;2716
  1. ;;21,"55289060690 ")
  1. ;;2717
  1. ;;21,"55289061514 ")
  1. ;;848
  1. ;;21,"55289061530 ")
  1. ;;849
  1. ;;21,"55289061560 ")
  1. ;;850
  1. ;;21,"55289061586 ")
  1. ;;851
  1. ;;21,"55289061590 ")
  1. ;;852
  1. ;;21,"55289061593 ")
  1. ;;853
  1. ;;21,"55289061594 ")
  1. ;;854
  1. ;;21,"55289061598 ")
  1. ;;855
  1. ;;21,"55289077907 ")
  1. ;;2718
  1. ;;21,"55289080614 ")
  1. ;;2719
  1. ;;21,"55289080630 ")
  1. ;;2720
  1. ;;21,"55289080660 ")
  1. ;;2721
  1. ;;21,"55289080686 ")
  1. ;;2722
  1. ;;21,"55289080690 ")
  1. ;;2723
  1. ;;21,"55289089201 ")
  1. ;;2724
  1. ;;21,"55289089214 ")
  1. ;;2725
  1. ;;21,"55289089215 ")
  1. ;;2726
  1. ;;21,"55289089230 ")
  1. ;;2727
  1. ;;21,"55289089260 ")
  1. ;;2728
  1. ;;21,"55289089286 ")
  1. ;;2729
  1. ;;21,"55289089290 ")
  1. ;;2730
  1. ;;21,"55289089293 ")
  1. ;;2731
  1. ;;21,"55289089297 ")
  1. ;;2732
  1. ;;21,"55289089298 ")
  1. ;;2733
  1. ;;21,"55289091930 ")
  1. ;;856
  1. ;;21,"55289091960 ")
  1. ;;857
  1. ;;21,"55289091990 ")
  1. ;;858
  1. ;;21,"55289091993 ")
  1. ;;859
  1. ;;21,"55289091994 ")
  1. ;;860
  1. ;;21,"55289091998 ")
  1. ;;861
  1. ;;21,"55289093430 ")
  1. ;;862
  1. ;;21,"55289093460 ")
  1. ;;863
  1. ;;21,"55289093493 ")
  1. ;;864
  1. ;;21,"55289093494 ")
  1. ;;865
  1. ;;21,"55289093498 ")
  1. ;;866
  1. ;;21,"55289097601 ")
  1. ;;2734
  1. ;;21,"55289097614 ")
  1. ;;2735
  1. ;;21,"55289097630 ")
  1. ;;2736
  1. ;;21,"55289097660 ")
  1. ;;2737
  1. ;;21,"55289097693 ")
  1. ;;2738
  1. ;;21,"55370014607 ")
  1. ;;2739
  1. ;;21,"55370014608 ")
  1. ;;2740
  1. ;;21,"55370014609 ")
  1. ;;2741
  1. ;;21,"55370014707 ")
  1. ;;2742
  1. ;;21,"55370014708 ")
  1. ;;2743
  1. ;;21,"55370014709 ")
  1. ;;2744
  1. ;;21,"55370014907 ")
  1. ;;2745
  1. ;;21,"55370014909 ")
  1. ;;2746
  1. ;;21,"55370046010 ")
  1. ;;2747
  1. ;;21,"55370046011 ")
  1. ;;2748
  1. ;;21,"55370046050 ")
  1. ;;2749
  1. ;;21,"55370046110 ")
  1. ;;2750
  1. ;;21,"55370046111 ")
  1. ;;2751
  1. ;;21,"55370046150 ")
  1. ;;2752
  1. ;;21,"55370046210 ")
  1. ;;2753
  1. ;;21,"55370046211 ")
  1. ;;2754
  1. ;;21,"55370046250 ")
  1. ;;2755
  1. ;;21,"55370050607 ")
  1. ;;2756
  1. ;;21,"55370050608 ")
  1. ;;2757
  1. ;;21,"55370050609 ")
  1. ;;2758
  1. ;;21,"55370059207 ")
  1. ;;2759
  1. ;;21,"55370059407 ")
  1. ;;2760
  1. ;;21,"55370059408 ")
  1. ;;2761
  1. ;;21,"55370059507 ")
  1. ;;2762
  1. ;;21,"55370059607 ")
  1. ;;2763
  1. ;;21,"55370059608 ")
  1. ;;2764
  1. ;;21,"55370075607 ")
  1. ;;867
  1. ;;21,"55370075609 ")
  1. ;;868
  1. ;;21,"55370075707 ")
  1. ;;869
  1. ;;21,"55370075709 ")
  1. ;;870
  1. ;;21,"55370075907 ")
  1. ;;871
  1. ;;21,"55370075909 ")
  1. ;;872
  1. ;;21,"55567011300 ")
  1. ;;873
  1. ;;21,"55567011318 ")
  1. ;;874
  1. ;;21,"55567011325 ")
  1. ;;875
  1. ;;21,"55567014400 ")
  1. ;;876
  1. ;;21,"55567014418 ")
  1. ;;877
  1. ;;21,"55567014425 ")
  1. ;;878
  1. ;;21,"55567014500 ")
  1. ;;879
  1. ;;21,"55567014518 ")
  1. ;;880
  1. ;;21,"55567014525 ")
  1. ;;881
  1. ;;21,"55567014600 ")
  1. ;;882
  1. ;;21,"55567014618 ")
  1. ;;883
  1. ;;21,"55567014625 ")
  1. ;;884
  1. ;;21,"55887017330 ")
  1. ;;79
  1. ;;21,"55887017990 ")
  1. ;;2766
  1. ;;21,"55887021230 ")
  1. ;;2767
  1. ;;21,"55887022230 ")
  1. ;;2768
  1. ;;21,"55887022260 ")
  1. ;;2769
  1. ;;21,"55887022290 ")
  1. ;;2770
  1. ;;21,"55887033930 ")
  1. ;;2771
  1. ;;21,"55887033960 ")
  1. ;;2772
  1. ;;21,"55887033990 ")
  1. ;;2773
  1. ;;21,"55887036830 ")
  1. ;;80
  1. ;;21,"55887036860 ")
  1. ;;81
  1. ;;21,"55887036890 ")
  1. ;;82
  1. ;;21,"55887036896 ")
  1. ;;83
  1. ;;21,"55887041482 ")
  1. ;;890
  1. ;;21,"55887041492 ")
  1. ;;891
  1. ;;21,"55887053501 ")
  1. ;;2778
  1. ;;21,"55887053530 ")
  1. ;;2779
  1. ;;21,"55887053560 ")
  1. ;;2780
  1. ;;21,"55887053590 ")
  1. ;;2781
  1. ;;21,"55887053601 ")
  1. ;;2782
  1. ;;21,"55887053630 ")
  1. ;;2783
  1. ;;21,"55887053660 ")
  1. ;;2784
  1. ;;21,"55887053690 ")
  1. ;;2785
  1. ;;21,"55887053699 ")
  1. ;;2786
  1. ;;21,"55887057101 ")
  1. ;;892
  1. ;;21,"55887057130 ")
  1. ;;893
  1. ;;21,"55887057160 ")
  1. ;;894
  1. ;;21,"55887057182 ")
  1. ;;895
  1. ;;21,"55887057186 ")
  1. ;;896
  1. ;;21,"55887057190 ")
  1. ;;897
  1. ;;21,"55887057192 ")
  1. ;;898
  1. ;;21,"55887061430 ")
  1. ;;899
  1. ;;21,"55887061490 ")
  1. ;;900
  1. ;;21,"55887062701 ")
  1. ;;901
  1. ;;21,"55887062730 ")
  1. ;;902
  1. ;;21,"55887062760 ")
  1. ;;903
  1. ;;21,"55887062782 ")
  1. ;;904
  1. ;;21,"55887062790 ")
  1. ;;905
  1. ;;21,"55887062792 ")
  1. ;;906
  1. ;;21,"55887065730 ")
  1. ;;2787
  1. ;;21,"55887065760 ")
  1. ;;2788
  1. ;;21,"55887069301 ")
  1. ;;2789
  1. ;;21,"55887069330 ")
  1. ;;2790
  1. ;;21,"55887069360 ")
  1. ;;2791
  1. ;;21,"55887069390 ")
  1. ;;2792
  1. ;;21,"55887072701 ")
  1. ;;2793
  1. ;;21,"55887072730 ")
  1. ;;2794
  1. ;;21,"55887072760 ")
  1. ;;2795
  1. ;;21,"55887072790 ")
  1. ;;2796
  1. ;;21,"55887084530 ")
  1. ;;84
  1. ;;21,"55887084560 ")
  1. ;;85
  1. ;;21,"55887094030 ")
  1. ;;909
  1. ;;21,"55887094060 ")
  1. ;;910
  1. ;;21,"55887094090 ")
  1. ;;911
  1. ;;21,"55887096530 ")
  1. ;;2799
  1. ;;21,"57315001001 ")
  1. ;;2800
  1. ;;21,"57315001002 ")
  1. ;;2801
  1. ;;21,"57315001003 ")
  1. ;;2802
  1. ;;21,"57315001004 ")
  1. ;;2803
  1. ;;21,"57315001101 ")
  1. ;;2804
  1. ;;21,"57315001102 ")
  1. ;;2805
  1. ;;21,"57315001103 ")
  1. ;;2806
  1. ;;21,"57315001104 ")
  1. ;;2807
  1. ;;21,"57315004701 ")
  1. ;;912
  1. ;;21,"57315004703 ")
  1. ;;913
  1. ;;21,"57315004704 ")
  1. ;;914
  1. ;;21,"57315004801 ")
  1. ;;915
  1. ;;21,"57315004803 ")
  1. ;;916
  1. ;;21,"57315004804 ")
  1. ;;917
  1. ;;21,"57315004805 ")
  1. ;;918
  1. ;;21,"57315005001 ")
  1. ;;919
  1. ;;21,"57315005002 ")
  1. ;;920
  1. ;;21,"57315005003 ")
  1. ;;921
  1. ;;21,"57664039713 ")
  1. ;;922
  1. ;;21,"57664039718 ")
  1. ;;923
  1. ;;21,"57664039751 ")
  1. ;;924
  1. ;;21,"57664039753 ")
  1. ;;925
  1. ;;21,"57664039758 ")
  1. ;;926
  1. ;;21,"57664039759 ")
  1. ;;927
  1. ;;21,"57664039788 ")
  1. ;;928
  1. ;;21,"57664039799 ")
  1. ;;929
  1. ;;21,"57664039808 ")
  1. ;;2808
  1. ;;21,"57664039813 ")
  1. ;;2809
  1. ;;21,"57664039818 ")
  1. ;;2810
  1. ;;21,"57664039888 ")
  1. ;;2811
  1. ;;21,"57664039908 ")
  1. ;;2812
  1. ;;21,"57664039913 ")
  1. ;;2813
  1. ;;21,"57664039918 ")
  1. ;;2814
  1. ;;21,"57664039988 ")
  1. ;;2815
  1. ;;21,"57664043513 ")
  1. ;;930
  1. ;;21,"57664043518 ")
  1. ;;931
  1. ;;21,"57664043551 ")
  1. ;;932
  1. ;;21,"57664043553 ")
  1. ;;933
  1. ;;21,"57664043558 ")
  1. ;;934
  1. ;;21,"57664043559 ")
  1. ;;935
  1. ;;21,"57664043588 ")
  1. ;;936
  1. ;;21,"57664043599 ")
  1. ;;937
  1. ;;21,"57664047413 ")
  1. ;;938
  1. ;;21,"57664047418 ")
  1. ;;939
  1. ;;21,"57664047451 ")
  1. ;;940
  1. ;;21,"57664047453 ")
  1. ;;941
  1. ;;21,"57664047458 ")
  1. ;;942
  1. ;;21,"57664047459 ")
  1. ;;943
  1. ;;21,"57664047488 ")
  1. ;;944
  1. ;;21,"57664047499 ")
  1. ;;945
  1. ;;21,"57664072413 ")
  1. ;;86
  1. ;;21,"57664072418 ")
  1. ;;87
  1. ;;21,"57664072488 ")
  1. ;;88
  1. ;;21,"57664072513 ")
  1. ;;89
  1. ;;21,"57664072518 ")
  1. ;;90
  1. ;;21,"57664072588 ")
  1. ;;91
  1. ;;21,"57664072713 ")
  1. ;;92
  1. ;;21,"57664072718 ")
  1. ;;93
  1. ;;21,"57664072788 ")
  1. ;;94
  1. ;;21,"57664099813 ")
  1. ;;955
  1. ;;21,"57664099818 ")
  1. ;;956
  1. ;;21,"57664099888 ")
  1. ;;957
  1. ;;21,"57664099899 ")
  1. ;;958
  1. ;;21,"57664099913 ")
  1. ;;959
  1. ;;21,"57664099918 ")
  1. ;;960
  1. ;;21,"57664099988 ")
  1. ;;961
  1. ;;21,"57664099999 ")
  1. ;;962
  1. ;;21,"57866346201 ")
  1. ;;2825
  1. ;;21,"57866346502 ")
  1. ;;2826
  1. ;;21,"57866346505 ")
  1. ;;2827
  1. ;;21,"57866466802 ")
  1. ;;2828
  1. ;;21,"57866640701 ")
  1. ;;2829
  1. ;;21,"57866640801 ")
  1. ;;2830
  1. ;;21,"57866640802 ")
  1. ;;2831
  1. ;;21,"57866640901 ")
  1. ;;2832
  1. ;;21,"57866640902 ")
  1. ;;2833
  1. ;;21,"57866640903 ")
  1. ;;2834
  1. ;;21,"57866640904 ")
  1. ;;2835
  1. ;;21,"57866640905 ")
  1. ;;2836
  1. ;;21,"57866640906 ")
  1. ;;2837
  1. ;;21,"57866646201 ")
  1. ;;2838
  1. ;;21,"57866646203 ")
  1. ;;2839