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