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

BGPM5AD.m

Go to the documentation of this file.
BGPM5AD ;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,"846,58016037030 ",.02)
 ;;58016037030
 ;;9002226.02101,"846,58016037600 ",.01)
 ;;58016037600
 ;;9002226.02101,"846,58016037600 ",.02)
 ;;58016037600
 ;;9002226.02101,"846,58016037601 ",.01)
 ;;58016037601
 ;;9002226.02101,"846,58016037601 ",.02)
 ;;58016037601
 ;;9002226.02101,"846,58016037602 ",.01)
 ;;58016037602
 ;;9002226.02101,"846,58016037602 ",.02)
 ;;58016037602
 ;;9002226.02101,"846,58016037603 ",.01)
 ;;58016037603
 ;;9002226.02101,"846,58016037603 ",.02)
 ;;58016037603
 ;;9002226.02101,"846,58016037604 ",.01)
 ;;58016037604
 ;;9002226.02101,"846,58016037604 ",.02)
 ;;58016037604
 ;;9002226.02101,"846,58016037605 ",.01)
 ;;58016037605
 ;;9002226.02101,"846,58016037605 ",.02)
 ;;58016037605
 ;;9002226.02101,"846,58016037606 ",.01)
 ;;58016037606
 ;;9002226.02101,"846,58016037606 ",.02)
 ;;58016037606
 ;;9002226.02101,"846,58016037607 ",.01)
 ;;58016037607
 ;;9002226.02101,"846,58016037607 ",.02)
 ;;58016037607
 ;;9002226.02101,"846,58016037608 ",.01)
 ;;58016037608
 ;;9002226.02101,"846,58016037608 ",.02)
 ;;58016037608
 ;;9002226.02101,"846,58016037609 ",.01)
 ;;58016037609
 ;;9002226.02101,"846,58016037609 ",.02)
 ;;58016037609
 ;;9002226.02101,"846,58016037610 ",.01)
 ;;58016037610
 ;;9002226.02101,"846,58016037610 ",.02)
 ;;58016037610
 ;;9002226.02101,"846,58016037612 ",.01)
 ;;58016037612
 ;;9002226.02101,"846,58016037612 ",.02)
 ;;58016037612
 ;;9002226.02101,"846,58016037614 ",.01)
 ;;58016037614
 ;;9002226.02101,"846,58016037614 ",.02)
 ;;58016037614
 ;;9002226.02101,"846,58016037615 ",.01)
 ;;58016037615
 ;;9002226.02101,"846,58016037615 ",.02)
 ;;58016037615
 ;;9002226.02101,"846,58016037616 ",.01)
 ;;58016037616
 ;;9002226.02101,"846,58016037616 ",.02)
 ;;58016037616
 ;;9002226.02101,"846,58016037618 ",.01)
 ;;58016037618
 ;;9002226.02101,"846,58016037618 ",.02)
 ;;58016037618
 ;;9002226.02101,"846,58016037620 ",.01)
 ;;58016037620
 ;;9002226.02101,"846,58016037620 ",.02)
 ;;58016037620
 ;;9002226.02101,"846,58016037621 ",.01)
 ;;58016037621
 ;;9002226.02101,"846,58016037621 ",.02)
 ;;58016037621
 ;;9002226.02101,"846,58016037624 ",.01)
 ;;58016037624
 ;;9002226.02101,"846,58016037624 ",.02)
 ;;58016037624
 ;;9002226.02101,"846,58016037625 ",.01)
 ;;58016037625
 ;;9002226.02101,"846,58016037625 ",.02)
 ;;58016037625
 ;;9002226.02101,"846,58016037626 ",.01)
 ;;58016037626
 ;;9002226.02101,"846,58016037626 ",.02)
 ;;58016037626
 ;;9002226.02101,"846,58016037627 ",.01)
 ;;58016037627
 ;;9002226.02101,"846,58016037627 ",.02)
 ;;58016037627
 ;;9002226.02101,"846,58016037628 ",.01)
 ;;58016037628
 ;;9002226.02101,"846,58016037628 ",.02)
 ;;58016037628
 ;;9002226.02101,"846,58016037630 ",.01)
 ;;58016037630
 ;;9002226.02101,"846,58016037630 ",.02)
 ;;58016037630
 ;;9002226.02101,"846,58016037632 ",.01)
 ;;58016037632
 ;;9002226.02101,"846,58016037632 ",.02)
 ;;58016037632
 ;;9002226.02101,"846,58016037635 ",.01)
 ;;58016037635
 ;;9002226.02101,"846,58016037635 ",.02)
 ;;58016037635
 ;;9002226.02101,"846,58016037636 ",.01)
 ;;58016037636
 ;;9002226.02101,"846,58016037636 ",.02)
 ;;58016037636
 ;;9002226.02101,"846,58016037640 ",.01)
 ;;58016037640
 ;;9002226.02101,"846,58016037640 ",.02)
 ;;58016037640
 ;;9002226.02101,"846,58016037642 ",.01)
 ;;58016037642
 ;;9002226.02101,"846,58016037642 ",.02)
 ;;58016037642
 ;;9002226.02101,"846,58016037644 ",.01)
 ;;58016037644
 ;;9002226.02101,"846,58016037644 ",.02)
 ;;58016037644
 ;;9002226.02101,"846,58016037645 ",.01)
 ;;58016037645
 ;;9002226.02101,"846,58016037645 ",.02)
 ;;58016037645
 ;;9002226.02101,"846,58016037648 ",.01)
 ;;58016037648
 ;;9002226.02101,"846,58016037648 ",.02)
 ;;58016037648
 ;;9002226.02101,"846,58016037650 ",.01)
 ;;58016037650
 ;;9002226.02101,"846,58016037650 ",.02)
 ;;58016037650
 ;;9002226.02101,"846,58016037656 ",.01)
 ;;58016037656
 ;;9002226.02101,"846,58016037656 ",.02)
 ;;58016037656
 ;;9002226.02101,"846,58016037660 ",.01)
 ;;58016037660
 ;;9002226.02101,"846,58016037660 ",.02)
 ;;58016037660
 ;;9002226.02101,"846,58016037667 ",.01)
 ;;58016037667
 ;;9002226.02101,"846,58016037667 ",.02)
 ;;58016037667
 ;;9002226.02101,"846,58016037669 ",.01)
 ;;58016037669
 ;;9002226.02101,"846,58016037669 ",.02)
 ;;58016037669
 ;;9002226.02101,"846,58016037670 ",.01)
 ;;58016037670
 ;;9002226.02101,"846,58016037670 ",.02)
 ;;58016037670
 ;;9002226.02101,"846,58016037671 ",.01)
 ;;58016037671
 ;;9002226.02101,"846,58016037671 ",.02)
 ;;58016037671
 ;;9002226.02101,"846,58016037672 ",.01)
 ;;58016037672
 ;;9002226.02101,"846,58016037672 ",.02)
 ;;58016037672
 ;;9002226.02101,"846,58016037673 ",.01)
 ;;58016037673
 ;;9002226.02101,"846,58016037673 ",.02)
 ;;58016037673
 ;;9002226.02101,"846,58016037675 ",.01)
 ;;58016037675
 ;;9002226.02101,"846,58016037675 ",.02)
 ;;58016037675
 ;;9002226.02101,"846,58016037676 ",.01)
 ;;58016037676
 ;;9002226.02101,"846,58016037676 ",.02)
 ;;58016037676
 ;;9002226.02101,"846,58016037677 ",.01)
 ;;58016037677
 ;;9002226.02101,"846,58016037677 ",.02)
 ;;58016037677
 ;;9002226.02101,"846,58016037679 ",.01)
 ;;58016037679
 ;;9002226.02101,"846,58016037679 ",.02)
 ;;58016037679
 ;;9002226.02101,"846,58016037680 ",.01)
 ;;58016037680
 ;;9002226.02101,"846,58016037680 ",.02)
 ;;58016037680
 ;;9002226.02101,"846,58016037681 ",.01)
 ;;58016037681
 ;;9002226.02101,"846,58016037681 ",.02)
 ;;58016037681
 ;;9002226.02101,"846,58016037682 ",.01)
 ;;58016037682
 ;;9002226.02101,"846,58016037682 ",.02)
 ;;58016037682
 ;;9002226.02101,"846,58016037683 ",.01)
 ;;58016037683
 ;;9002226.02101,"846,58016037683 ",.02)
 ;;58016037683
 ;;9002226.02101,"846,58016037684 ",.01)
 ;;58016037684
 ;;9002226.02101,"846,58016037684 ",.02)
 ;;58016037684
 ;;9002226.02101,"846,58016037687 ",.01)
 ;;58016037687
 ;;9002226.02101,"846,58016037687 ",.02)
 ;;58016037687
 ;;9002226.02101,"846,58016037689 ",.01)
 ;;58016037689
 ;;9002226.02101,"846,58016037689 ",.02)
 ;;58016037689
 ;;9002226.02101,"846,58016037690 ",.01)
 ;;58016037690
 ;;9002226.02101,"846,58016037690 ",.02)
 ;;58016037690
 ;;9002226.02101,"846,58016037691 ",.01)
 ;;58016037691
 ;;9002226.02101,"846,58016037691 ",.02)
 ;;58016037691
 ;;9002226.02101,"846,58016037692 ",.01)
 ;;58016037692
 ;;9002226.02101,"846,58016037692 ",.02)
 ;;58016037692
 ;;9002226.02101,"846,58016037693 ",.01)
 ;;58016037693
 ;;9002226.02101,"846,58016037693 ",.02)
 ;;58016037693
 ;;9002226.02101,"846,58016037696 ",.01)
 ;;58016037696
 ;;9002226.02101,"846,58016037696 ",.02)
 ;;58016037696
 ;;9002226.02101,"846,58016037697 ",.01)
 ;;58016037697
 ;;9002226.02101,"846,58016037697 ",.02)
 ;;58016037697
 ;;9002226.02101,"846,58016037698 ",.01)
 ;;58016037698
 ;;9002226.02101,"846,58016037698 ",.02)
 ;;58016037698
 ;;9002226.02101,"846,58016037699 ",.01)
 ;;58016037699
 ;;9002226.02101,"846,58016037699 ",.02)
 ;;58016037699
 ;;9002226.02101,"846,58016037800 ",.01)
 ;;58016037800
 ;;9002226.02101,"846,58016037800 ",.02)
 ;;58016037800
 ;;9002226.02101,"846,58016037801 ",.01)
 ;;58016037801
 ;;9002226.02101,"846,58016037801 ",.02)
 ;;58016037801
 ;;9002226.02101,"846,58016037802 ",.01)
 ;;58016037802
 ;;9002226.02101,"846,58016037802 ",.02)
 ;;58016037802
 ;;9002226.02101,"846,58016037803 ",.01)
 ;;58016037803
 ;;9002226.02101,"846,58016037803 ",.02)
 ;;58016037803
 ;;9002226.02101,"846,58016037804 ",.01)
 ;;58016037804
 ;;9002226.02101,"846,58016037804 ",.02)
 ;;58016037804
 ;;9002226.02101,"846,58016037805 ",.01)
 ;;58016037805
 ;;9002226.02101,"846,58016037805 ",.02)
 ;;58016037805
 ;;9002226.02101,"846,58016037806 ",.01)
 ;;58016037806
 ;;9002226.02101,"846,58016037806 ",.02)
 ;;58016037806
 ;;9002226.02101,"846,58016037807 ",.01)
 ;;58016037807
 ;;9002226.02101,"846,58016037807 ",.02)
 ;;58016037807
 ;;9002226.02101,"846,58016037808 ",.01)
 ;;58016037808
 ;;9002226.02101,"846,58016037808 ",.02)
 ;;58016037808
 ;;9002226.02101,"846,58016037809 ",.01)
 ;;58016037809
 ;;9002226.02101,"846,58016037809 ",.02)
 ;;58016037809
 ;;9002226.02101,"846,58016037810 ",.01)
 ;;58016037810
 ;;9002226.02101,"846,58016037810 ",.02)
 ;;58016037810
 ;;9002226.02101,"846,58016037812 ",.01)
 ;;58016037812
 ;;9002226.02101,"846,58016037812 ",.02)
 ;;58016037812
 ;;9002226.02101,"846,58016037814 ",.01)
 ;;58016037814
 ;;9002226.02101,"846,58016037814 ",.02)
 ;;58016037814
 ;;9002226.02101,"846,58016037815 ",.01)
 ;;58016037815
 ;;9002226.02101,"846,58016037815 ",.02)
 ;;58016037815
 ;;9002226.02101,"846,58016037816 ",.01)
 ;;58016037816
 ;;9002226.02101,"846,58016037816 ",.02)
 ;;58016037816
 ;;9002226.02101,"846,58016037818 ",.01)
 ;;58016037818
 ;;9002226.02101,"846,58016037818 ",.02)
 ;;58016037818
 ;;9002226.02101,"846,58016037820 ",.01)
 ;;58016037820
 ;;9002226.02101,"846,58016037820 ",.02)
 ;;58016037820
 ;;9002226.02101,"846,58016037821 ",.01)
 ;;58016037821
 ;;9002226.02101,"846,58016037821 ",.02)
 ;;58016037821
 ;;9002226.02101,"846,58016037824 ",.01)
 ;;58016037824
 ;;9002226.02101,"846,58016037824 ",.02)
 ;;58016037824
 ;;9002226.02101,"846,58016037825 ",.01)
 ;;58016037825
 ;;9002226.02101,"846,58016037825 ",.02)
 ;;58016037825
 ;;9002226.02101,"846,58016037826 ",.01)
 ;;58016037826
 ;;9002226.02101,"846,58016037826 ",.02)
 ;;58016037826
 ;;9002226.02101,"846,58016037827 ",.01)
 ;;58016037827
 ;;9002226.02101,"846,58016037827 ",.02)
 ;;58016037827
 ;;9002226.02101,"846,58016037828 ",.01)
 ;;58016037828
 ;;9002226.02101,"846,58016037828 ",.02)
 ;;58016037828
 ;;9002226.02101,"846,58016037830 ",.01)
 ;;58016037830
 ;;9002226.02101,"846,58016037830 ",.02)
 ;;58016037830
 ;;9002226.02101,"846,58016037832 ",.01)
 ;;58016037832
 ;;9002226.02101,"846,58016037832 ",.02)
 ;;58016037832
 ;;9002226.02101,"846,58016037835 ",.01)
 ;;58016037835
 ;;9002226.02101,"846,58016037835 ",.02)
 ;;58016037835
 ;;9002226.02101,"846,58016037836 ",.01)
 ;;58016037836
 ;;9002226.02101,"846,58016037836 ",.02)
 ;;58016037836
 ;;9002226.02101,"846,58016037840 ",.01)
 ;;58016037840
 ;;9002226.02101,"846,58016037840 ",.02)
 ;;58016037840
 ;;9002226.02101,"846,58016037842 ",.01)
 ;;58016037842
 ;;9002226.02101,"846,58016037842 ",.02)
 ;;58016037842
 ;;9002226.02101,"846,58016037844 ",.01)
 ;;58016037844
 ;;9002226.02101,"846,58016037844 ",.02)
 ;;58016037844
 ;;9002226.02101,"846,58016037845 ",.01)
 ;;58016037845
 ;;9002226.02101,"846,58016037845 ",.02)
 ;;58016037845
 ;;9002226.02101,"846,58016037848 ",.01)
 ;;58016037848
 ;;9002226.02101,"846,58016037848 ",.02)
 ;;58016037848
 ;;9002226.02101,"846,58016037850 ",.01)
 ;;58016037850
 ;;9002226.02101,"846,58016037850 ",.02)
 ;;58016037850
 ;;9002226.02101,"846,58016037856 ",.01)
 ;;58016037856
 ;;9002226.02101,"846,58016037856 ",.02)
 ;;58016037856
 ;;9002226.02101,"846,58016037860 ",.01)
 ;;58016037860
 ;;9002226.02101,"846,58016037860 ",.02)
 ;;58016037860
 ;;9002226.02101,"846,58016037867 ",.01)
 ;;58016037867
 ;;9002226.02101,"846,58016037867 ",.02)
 ;;58016037867
 ;;9002226.02101,"846,58016037869 ",.01)
 ;;58016037869
 ;;9002226.02101,"846,58016037869 ",.02)
 ;;58016037869
 ;;9002226.02101,"846,58016037870 ",.01)
 ;;58016037870
 ;;9002226.02101,"846,58016037870 ",.02)
 ;;58016037870
 ;;9002226.02101,"846,58016037871 ",.01)
 ;;58016037871
 ;;9002226.02101,"846,58016037871 ",.02)
 ;;58016037871
 ;;9002226.02101,"846,58016037872 ",.01)
 ;;58016037872
 ;;9002226.02101,"846,58016037872 ",.02)
 ;;58016037872
 ;;9002226.02101,"846,58016037873 ",.01)
 ;;58016037873
 ;;9002226.02101,"846,58016037873 ",.02)
 ;;58016037873
 ;;9002226.02101,"846,58016037875 ",.01)
 ;;58016037875