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

BGPM5AKS.m

Go to the documentation of this file.
BGPM5AKS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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)
 ;;9002226.02101,"885,00280200051 ",.02)
 ;;00280200051
 ;;9002226.02101,"885,00280210030 ",.01)
 ;;00280210030
 ;;9002226.02101,"885,00280210030 ",.02)
 ;;00280210030
 ;;9002226.02101,"885,00280210032 ",.01)
 ;;00280210032
 ;;9002226.02101,"885,00280210032 ",.02)
 ;;00280210032
 ;;9002226.02101,"885,00280210040 ",.01)
 ;;00280210040
 ;;9002226.02101,"885,00280210040 ",.02)
 ;;00280210040
 ;;9002226.02101,"885,00280211010 ",.01)
 ;;00280211010
 ;;9002226.02101,"885,00280211010 ",.02)
 ;;00280211010
 ;;9002226.02101,"885,00280214012 ",.01)
 ;;00280214012
 ;;9002226.02101,"885,00280214012 ",.02)
 ;;00280214012
 ;;9002226.02101,"885,00280214020 ",.01)
 ;;00280214020
 ;;9002226.02101,"885,00280214020 ",.02)
 ;;00280214020
 ;;9002226.02101,"885,00280214040 ",.01)
 ;;00280214040
 ;;9002226.02101,"885,00280214040 ",.02)
 ;;00280214040
 ;;9002226.02101,"885,00280214080 ",.01)
 ;;00280214080
 ;;9002226.02101,"885,00280214080 ",.02)
 ;;00280214080
 ;;9002226.02101,"885,00280260501 ",.01)
 ;;00280260501
 ;;9002226.02101,"885,00280260501 ",.02)
 ;;00280260501
 ;;9002226.02101,"885,00280260510 ",.01)
 ;;00280260510
 ;;9002226.02101,"885,00280260510 ",.02)
 ;;00280260510
 ;;9002226.02101,"885,00280260524 ",.01)
 ;;00280260524
 ;;9002226.02101,"885,00280260524 ",.02)
 ;;00280260524
 ;;9002226.02101,"885,00280261001 ",.01)
 ;;00280261001
 ;;9002226.02101,"885,00280261001 ",.02)
 ;;00280261001
 ;;9002226.02101,"885,00280261020 ",.01)
 ;;00280261020
 ;;9002226.02101,"885,00280261020 ",.02)
 ;;00280261020
 ;;9002226.02101,"885,00280261040 ",.01)
 ;;00280261040
 ;;9002226.02101,"885,00280261040 ",.02)
 ;;00280261040
 ;;9002226.02101,"885,00280261080 ",.01)
 ;;00280261080
 ;;9002226.02101,"885,00280261080 ",.02)
 ;;00280261080
 ;;9002226.02101,"885,00295123601 ",.01)
 ;;00295123601
 ;;9002226.02101,"885,00295123601 ",.02)
 ;;00295123601
 ;;9002226.02101,"885,00295123625 ",.01)
 ;;00295123625
 ;;9002226.02101,"885,00295123625 ",.02)
 ;;00295123625
 ;;9002226.02101,"885,00363015712 ",.01)
 ;;00363015712
 ;;9002226.02101,"885,00363015712 ",.02)
 ;;00363015712
 ;;9002226.02101,"885,00363015714 ",.01)
 ;;00363015714
 ;;9002226.02101,"885,00363015714 ",.02)
 ;;00363015714
 ;;9002226.02101,"885,00363015716 ",.01)
 ;;00363015716
 ;;9002226.02101,"885,00363015716 ",.02)
 ;;00363015716
 ;;9002226.02101,"885,00363015717 ",.01)
 ;;00363015717
 ;;9002226.02101,"885,00363015717 ",.02)
 ;;00363015717
 ;;9002226.02101,"885,00363015912 ",.01)
 ;;00363015912
 ;;9002226.02101,"885,00363015912 ",.02)
 ;;00363015912
 ;;9002226.02101,"885,00363015915 ",.01)
 ;;00363015915
 ;;9002226.02101,"885,00363015915 ",.02)
 ;;00363015915
 ;;9002226.02101,"885,00363018330 ",.01)
 ;;00363018330
 ;;9002226.02101,"885,00363018330 ",.02)
 ;;00363018330
 ;;9002226.02101,"885,00363021807 ",.01)
 ;;00363021807
 ;;9002226.02101,"885,00363021807 ",.02)
 ;;00363021807
 ;;9002226.02101,"885,00363022713 ",.01)
 ;;00363022713
 ;;9002226.02101,"885,00363022713 ",.02)
 ;;00363022713
 ;;9002226.02101,"885,00363022714 ",.01)
 ;;00363022714
 ;;9002226.02101,"885,00363022714 ",.02)
 ;;00363022714
 ;;9002226.02101,"885,00363022717 ",.01)
 ;;00363022717
 ;;9002226.02101,"885,00363022717 ",.02)
 ;;00363022717
 ;;9002226.02101,"885,00363022757 ",.01)
 ;;00363022757
 ;;9002226.02101,"885,00363022757 ",.02)
 ;;00363022757
 ;;9002226.02101,"885,00363025514 ",.01)
 ;;00363025514
 ;;9002226.02101,"885,00363025514 ",.02)
 ;;00363025514
 ;;9002226.02101,"885,00363025517 ",.01)
 ;;00363025517
 ;;9002226.02101,"885,00363025517 ",.02)
 ;;00363025517
 ;;9002226.02101,"885,00363025532 ",.01)
 ;;00363025532
 ;;9002226.02101,"885,00363025532 ",.02)
 ;;00363025532
 ;;9002226.02101,"885,00363037462 ",.01)
 ;;00363037462
 ;;9002226.02101,"885,00363037462 ",.02)
 ;;00363037462
 ;;9002226.02101,"885,00363037478 ",.01)
 ;;00363037478
 ;;9002226.02101,"885,00363037478 ",.02)
 ;;00363037478
 ;;9002226.02101,"885,00363039707 ",.01)
 ;;00363039707
 ;;9002226.02101,"885,00363039707 ",.02)
 ;;00363039707
 ;;9002226.02101,"885,00363041412 ",.01)
 ;;00363041412
 ;;9002226.02101,"885,00363041412 ",.02)
 ;;00363041412
 ;;9002226.02101,"885,00363043052 ",.01)
 ;;00363043052
 ;;9002226.02101,"885,00363043052 ",.02)
 ;;00363043052
 ;;9002226.02101,"885,00363056314 ",.01)
 ;;00363056314
 ;;9002226.02101,"885,00363056314 ",.02)
 ;;00363056314
 ;;9002226.02101,"885,00363058732 ",.01)
 ;;00363058732
 ;;9002226.02101,"885,00363058732 ",.02)
 ;;00363058732
 ;;9002226.02101,"885,00404071013 ",.01)
 ;;00404071013
 ;;9002226.02101,"885,00404071013 ",.02)
 ;;00404071013
 ;;9002226.02101,"885,00404071099 ",.01)
 ;;00404071099
 ;;9002226.02101,"885,00404071099 ",.02)
 ;;00404071099
 ;;9002226.02101,"885,00440113090 ",.01)
 ;;00440113090
 ;;9002226.02101,"885,00440113090 ",.02)
 ;;00440113090
 ;;9002226.02101,"885,00440113590 ",.01)
 ;;00440113590
 ;;9002226.02101,"885,00440113590 ",.02)
 ;;00440113590
 ;;9002226.02101,"885,00440721010 ",.01)
 ;;00440721010
 ;;9002226.02101,"885,00440721010 ",.02)
 ;;00440721010
 ;;9002226.02101,"885,00440721030 ",.01)
 ;;00440721030
 ;;9002226.02101,"885,00440721030 ",.02)
 ;;00440721030
 ;;9002226.02101,"885,00490713800 ",.01)
 ;;00490713800
 ;;9002226.02101,"885,00490713800 ",.02)
 ;;00490713800
 ;;9002226.02101,"885,00490713801 ",.01)
 ;;00490713801
 ;;9002226.02101,"885,00490713801 ",.02)
 ;;00490713801
 ;;9002226.02101,"885,00490713802 ",.01)
 ;;00490713802
 ;;9002226.02101,"885,00490713802 ",.02)
 ;;00490713802
 ;;9002226.02101,"885,00490713803 ",.01)
 ;;00490713803
 ;;9002226.02101,"885,00490713803 ",.02)
 ;;00490713803
 ;;9002226.02101,"885,00490713804 ",.01)
 ;;00490713804
 ;;9002226.02101,"885,00490713804 ",.02)
 ;;00490713804
 ;;9002226.02101,"885,00490713805 ",.01)
 ;;00490713805
 ;;9002226.02101,"885,00490713805 ",.02)
 ;;00490713805
 ;;9002226.02101,"885,00490713806 ",.01)
 ;;00490713806
 ;;9002226.02101,"885,00490713806 ",.02)
 ;;00490713806
 ;;9002226.02101,"885,00490713807 ",.01)
 ;;00490713807
 ;;9002226.02101,"885,00490713807 ",.02)
 ;;00490713807
 ;;9002226.02101,"885,00490713808 ",.01)
 ;;00490713808
 ;;9002226.02101,"885,00490713808 ",.02)
 ;;00490713808
 ;;9002226.02101,"885,00490713809 ",.01)
 ;;00490713809
 ;;9002226.02101,"885,00490713809 ",.02)
 ;;00490713809
 ;;9002226.02101,"885,00490713810 ",.01)
 ;;00490713810
 ;;9002226.02101,"885,00490713810 ",.02)
 ;;00490713810
 ;;9002226.02101,"885,00490713812 ",.01)
 ;;00490713812
 ;;9002226.02101,"885,00490713812 ",.02)
 ;;00490713812
 ;;9002226.02101,"885,00490713814 ",.01)
 ;;00490713814
 ;;9002226.02101,"885,00490713814 ",.02)
 ;;00490713814
 ;;9002226.02101,"885,00490713815 ",.01)
 ;;00490713815
 ;;9002226.02101,"885,00490713815 ",.02)
 ;;00490713815
 ;;9002226.02101,"885,00490713816 ",.01)
 ;;00490713816
 ;;9002226.02101,"885,00490713816 ",.02)
 ;;00490713816
 ;;9002226.02101,"885,00490713818 ",.01)
 ;;00490713818
 ;;9002226.02101,"885,00490713818 ",.02)
 ;;00490713818
 ;;9002226.02101,"885,00490713820 ",.01)
 ;;00490713820
 ;;9002226.02101,"885,00490713820 ",.02)
 ;;00490713820
 ;;9002226.02101,"885,00490713821 ",.01)
 ;;00490713821
 ;;9002226.02101,"885,00490713821 ",.02)
 ;;00490713821
 ;;9002226.02101,"885,00490713824 ",.01)
 ;;00490713824
 ;;9002226.02101,"885,00490713824 ",.02)
 ;;00490713824
 ;;9002226.02101,"885,00490713825 ",.01)
 ;;00490713825
 ;;9002226.02101,"885,00490713825 ",.02)
 ;;00490713825
 ;;9002226.02101,"885,00490713826 ",.01)
 ;;00490713826
 ;;9002226.02101,"885,00490713826 ",.02)
 ;;00490713826
 ;;9002226.02101,"885,00490713827 ",.01)
 ;;00490713827
 ;;9002226.02101,"885,00490713827 ",.02)
 ;;00490713827
 ;;9002226.02101,"885,00490713828 ",.01)
 ;;00490713828
 ;;9002226.02101,"885,00490713828 ",.02)
 ;;00490713828
 ;;9002226.02101,"885,00490713830 ",.01)
 ;;00490713830
 ;;9002226.02101,"885,00490713830 ",.02)
 ;;00490713830
 ;;9002226.02101,"885,00490713832 ",.01)
 ;;00490713832
 ;;9002226.02101,"885,00490713832 ",.02)
 ;;00490713832
 ;;9002226.02101,"885,00490713835 ",.01)
 ;;00490713835
 ;;9002226.02101,"885,00490713835 ",.02)
 ;;00490713835
 ;;9002226.02101,"885,00490713836 ",.01)
 ;;00490713836
 ;;9002226.02101,"885,00490713836 ",.02)
 ;;00490713836
 ;;9002226.02101,"885,00490713840 ",.01)
 ;;00490713840
 ;;9002226.02101,"885,00490713840 ",.02)
 ;;00490713840
 ;;9002226.02101,"885,00490713842 ",.01)
 ;;00490713842
 ;;9002226.02101,"885,00490713842 ",.02)
 ;;00490713842
 ;;9002226.02101,"885,00490713844 ",.01)
 ;;00490713844
 ;;9002226.02101,"885,00490713844 ",.02)
 ;;00490713844
 ;;9002226.02101,"885,00490713845 ",.01)
 ;;00490713845
 ;;9002226.02101,"885,00490713845 ",.02)
 ;;00490713845
 ;;9002226.02101,"885,00490713848 ",.01)
 ;;00490713848
 ;;9002226.02101,"885,00490713848 ",.02)
 ;;00490713848
 ;;9002226.02101,"885,00490713850 ",.01)
 ;;00490713850
 ;;9002226.02101,"885,00490713850 ",.02)
 ;;00490713850
 ;;9002226.02101,"885,00490713856 ",.01)
 ;;00490713856
 ;;9002226.02101,"885,00490713856 ",.02)
 ;;00490713856
 ;;9002226.02101,"885,00490713860 ",.01)
 ;;00490713860
 ;;9002226.02101,"885,00490713860 ",.02)
 ;;00490713860
 ;;9002226.02101,"885,00490713867 ",.01)
 ;;00490713867
 ;;9002226.02101,"885,00490713867 ",.02)
 ;;00490713867
 ;;9002226.02101,"885,00490713869 ",.01)
 ;;00490713869
 ;;9002226.02101,"885,00490713869 ",.02)
 ;;00490713869
 ;;9002226.02101,"885,00490713870 ",.01)
 ;;00490713870
 ;;9002226.02101,"885,00490713870 ",.02)
 ;;00490713870
 ;;9002226.02101,"885,00490713871 ",.01)
 ;;00490713871
 ;;9002226.02101,"885,00490713871 ",.02)
 ;;00490713871
 ;;9002226.02101,"885,00490713872 ",.01)
 ;;00490713872
 ;;9002226.02101,"885,00490713872 ",.02)
 ;;00490713872
 ;;9002226.02101,"885,00490713873 ",.01)
 ;;00490713873
 ;;9002226.02101,"885,00490713873 ",.02)
 ;;00490713873
 ;;9002226.02101,"885,00490713875 ",.01)
 ;;00490713875
 ;;9002226.02101,"885,00490713875 ",.02)
 ;;00490713875
 ;;9002226.02101,"885,00490713876 ",.01)
 ;;00490713876
 ;;9002226.02101,"885,00490713876 ",.02)
 ;;00490713876
 ;;9002226.02101,"885,00490713877 ",.01)
 ;;00490713877
 ;;9002226.02101,"885,00490713877 ",.02)
 ;;00490713877
 ;;9002226.02101,"885,00490713879 ",.01)
 ;;00490713879
 ;;9002226.02101,"885,00490713879 ",.02)
 ;;00490713879
 ;;9002226.02101,"885,00490713880 ",.01)
 ;;00490713880
 ;;9002226.02101,"885,00490713880 ",.02)
 ;;00490713880
 ;;9002226.02101,"885,00490713881 ",.01)
 ;;00490713881
 ;;9002226.02101,"885,00490713881 ",.02)
 ;;00490713881
 ;;9002226.02101,"885,00490713882 ",.01)
 ;;00490713882
 ;;9002226.02101,"885,00490713882 ",.02)
 ;;00490713882
 ;;9002226.02101,"885,00490713883 ",.01)
 ;;00490713883
 ;;9002226.02101,"885,00490713883 ",.02)
 ;;00490713883
 ;;9002226.02101,"885,00490713884 ",.01)
 ;;00490713884
 ;;9002226.02101,"885,00490713884 ",.02)
 ;;00490713884
 ;;9002226.02101,"885,00490713887 ",.01)
 ;;00490713887
 ;;9002226.02101,"885,00490713887 ",.02)
 ;;00490713887
 ;;9002226.02101,"885,00490713889 ",.01)
 ;;00490713889
 ;;9002226.02101,"885,00490713889 ",.02)
 ;;00490713889
 ;;9002226.02101,"885,00490713890 ",.01)
 ;;00490713890
 ;;9002226.02101,"885,00490713890 ",.02)
 ;;00490713890
 ;;9002226.02101,"885,00490713891 ",.01)
 ;;00490713891
 ;;9002226.02101,"885,00490713891 ",.02)
 ;;00490713891
 ;;9002226.02101,"885,00490713892 ",.01)
 ;;00490713892
 ;;9002226.02101,"885,00490713892 ",.02)
 ;;00490713892
 ;;9002226.02101,"885,00490713893 ",.01)
 ;;00490713893
 ;;9002226.02101,"885,00490713893 ",.02)
 ;;00490713893
 ;;9002226.02101,"885,00490713896 ",.01)
 ;;00490713896