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

BGPM5AUP.m

Go to the documentation of this file.
BGPM5AUP ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00440840614 ",.01)
 ;;00440840614
 ;;9002226.02101,"1033,00440840614 ",.02)
 ;;00440840614
 ;;9002226.02101,"1033,00440840620 ",.01)
 ;;00440840620
 ;;9002226.02101,"1033,00440840620 ",.02)
 ;;00440840620
 ;;9002226.02101,"1033,00440840628 ",.01)
 ;;00440840628
 ;;9002226.02101,"1033,00440840628 ",.02)
 ;;00440840628
 ;;9002226.02101,"1033,00440840630 ",.01)
 ;;00440840630
 ;;9002226.02101,"1033,00440840630 ",.02)
 ;;00440840630
 ;;9002226.02101,"1033,00440840640 ",.01)
 ;;00440840640
 ;;9002226.02101,"1033,00440840640 ",.02)
 ;;00440840640
 ;;9002226.02101,"1033,00440840660 ",.01)
 ;;00440840660
 ;;9002226.02101,"1033,00440840660 ",.02)
 ;;00440840660
 ;;9002226.02101,"1033,00440850540 ",.01)
 ;;00440850540
 ;;9002226.02101,"1033,00440850540 ",.02)
 ;;00440850540
 ;;9002226.02101,"1033,00440850591 ",.01)
 ;;00440850591
 ;;9002226.02101,"1033,00440850591 ",.02)
 ;;00440850591
 ;;9002226.02101,"1033,00463025421 ",.01)
 ;;00463025421
 ;;9002226.02101,"1033,00463025421 ",.02)
 ;;00463025421
 ;;9002226.02101,"1033,00463025440 ",.01)
 ;;00463025440
 ;;9002226.02101,"1033,00463025440 ",.02)
 ;;00463025440
 ;;9002226.02101,"1033,00463111810 ",.01)
 ;;00463111810
 ;;9002226.02101,"1033,00463111810 ",.02)
 ;;00463111810
 ;;9002226.02101,"1033,00463111811 ",.01)
 ;;00463111811
 ;;9002226.02101,"1033,00463111811 ",.02)
 ;;00463111811
 ;;9002226.02101,"1033,00463501401 ",.01)
 ;;00463501401
 ;;9002226.02101,"1033,00463501401 ",.02)
 ;;00463501401
 ;;9002226.02101,"1033,00463501501 ",.01)
 ;;00463501501
 ;;9002226.02101,"1033,00463501501 ",.02)
 ;;00463501501
 ;;9002226.02101,"1033,00463501601 ",.01)
 ;;00463501601
 ;;9002226.02101,"1033,00463501601 ",.02)
 ;;00463501601
 ;;9002226.02101,"1033,00472085010 ",.01)
 ;;00472085010
 ;;9002226.02101,"1033,00472085010 ",.02)
 ;;00472085010
 ;;9002226.02101,"1033,00472192110 ",.01)
 ;;00472192110
 ;;9002226.02101,"1033,00472192110 ",.02)
 ;;00472192110
 ;;9002226.02101,"1033,00472192130 ",.01)
 ;;00472192130
 ;;9002226.02101,"1033,00472192130 ",.02)
 ;;00472192130
 ;;9002226.02101,"1033,00472192210 ",.01)
 ;;00472192210
 ;;9002226.02101,"1033,00472192210 ",.02)
 ;;00472192210
 ;;9002226.02101,"1033,00472192230 ",.01)
 ;;00472192230
 ;;9002226.02101,"1033,00472192230 ",.02)
 ;;00472192230
 ;;9002226.02101,"1033,00480008801 ",.01)
 ;;00480008801
 ;;9002226.02101,"1033,00480008801 ",.02)
 ;;00480008801
 ;;9002226.02101,"1033,00480008805 ",.01)
 ;;00480008805
 ;;9002226.02101,"1033,00480008805 ",.02)
 ;;00480008805
 ;;9002226.02101,"1033,00480008901 ",.01)
 ;;00480008901
 ;;9002226.02101,"1033,00480008901 ",.02)
 ;;00480008901
 ;;9002226.02101,"1033,00480008905 ",.01)
 ;;00480008905
 ;;9002226.02101,"1033,00480008905 ",.02)
 ;;00480008905
 ;;9002226.02101,"1033,00480056216 ",.01)
 ;;00480056216
 ;;9002226.02101,"1033,00480056216 ",.02)
 ;;00480056216
 ;;9002226.02101,"1033,00480086301 ",.01)
 ;;00480086301
 ;;9002226.02101,"1033,00480086301 ",.02)
 ;;00480086301
 ;;9002226.02101,"1033,00480086401 ",.01)
 ;;00480086401
 ;;9002226.02101,"1033,00480086401 ",.02)
 ;;00480086401
 ;;9002226.02101,"1033,00480086553 ",.01)
 ;;00480086553
 ;;9002226.02101,"1033,00480086553 ",.02)
 ;;00480086553
 ;;9002226.02101,"1033,00480316501 ",.01)
 ;;00480316501
 ;;9002226.02101,"1033,00480316501 ",.02)
 ;;00480316501
 ;;9002226.02101,"1033,00480316753 ",.01)
 ;;00480316753
 ;;9002226.02101,"1033,00480316753 ",.02)
 ;;00480316753
 ;;9002226.02101,"1033,00480714609 ",.01)
 ;;00480714609
 ;;9002226.02101,"1033,00480714609 ",.02)
 ;;00480714609
 ;;9002226.02101,"1033,00480714618 ",.01)
 ;;00480714618
 ;;9002226.02101,"1033,00480714618 ",.02)
 ;;00480714618
 ;;9002226.02101,"1033,00480714656 ",.01)
 ;;00480714656
 ;;9002226.02101,"1033,00480714656 ",.02)
 ;;00480714656
 ;;9002226.02101,"1033,00480714699 ",.01)
 ;;00480714699
 ;;9002226.02101,"1033,00480714699 ",.02)
 ;;00480714699
 ;;9002226.02101,"1033,00480714823 ",.01)
 ;;00480714823
 ;;9002226.02101,"1033,00480714823 ",.02)
 ;;00480714823
 ;;9002226.02101,"1033,00480714923 ",.01)
 ;;00480714923
 ;;9002226.02101,"1033,00480714923 ",.02)
 ;;00480714923
 ;;9002226.02101,"1033,00480714931 ",.01)
 ;;00480714931
 ;;9002226.02101,"1033,00480714931 ",.02)
 ;;00480714931
 ;;9002226.02101,"1033,00480714994 ",.01)
 ;;00480714994
 ;;9002226.02101,"1033,00480714994 ",.02)
 ;;00480714994
 ;;9002226.02101,"1033,00480715706 ",.01)
 ;;00480715706
 ;;9002226.02101,"1033,00480715706 ",.02)
 ;;00480715706
 ;;9002226.02101,"1033,00480715806 ",.01)
 ;;00480715806
 ;;9002226.02101,"1033,00480715806 ",.02)
 ;;00480715806
 ;;9002226.02101,"1033,00480718001 ",.01)
 ;;00480718001
 ;;9002226.02101,"1033,00480718001 ",.02)
 ;;00480718001
 ;;9002226.02101,"1033,00480718101 ",.01)
 ;;00480718101
 ;;9002226.02101,"1033,00480718101 ",.02)
 ;;00480718101
 ;;9002226.02101,"1033,00480718201 ",.01)
 ;;00480718201
 ;;9002226.02101,"1033,00480718201 ",.02)
 ;;00480718201
 ;;9002226.02101,"1033,00480719136 ",.01)
 ;;00480719136
 ;;9002226.02101,"1033,00480719136 ",.02)
 ;;00480719136
 ;;9002226.02101,"1033,00480719203 ",.01)
 ;;00480719203
 ;;9002226.02101,"1033,00480719203 ",.02)
 ;;00480719203
 ;;9002226.02101,"1033,00480724406 ",.01)
 ;;00480724406
 ;;9002226.02101,"1033,00480724406 ",.02)
 ;;00480724406
 ;;9002226.02101,"1033,00480729353 ",.01)
 ;;00480729353
 ;;9002226.02101,"1033,00480729353 ",.02)
 ;;00480729353
 ;;9002226.02101,"1033,00480730001 ",.01)
 ;;00480730001
 ;;9002226.02101,"1033,00480730001 ",.02)
 ;;00480730001
 ;;9002226.02101,"1033,00480778101 ",.01)
 ;;00480778101
 ;;9002226.02101,"1033,00480778101 ",.02)
 ;;00480778101
 ;;9002226.02101,"1033,00480778201 ",.01)
 ;;00480778201
 ;;9002226.02101,"1033,00480778201 ",.02)
 ;;00480778201
 ;;9002226.02101,"1033,00480778203 ",.01)
 ;;00480778203
 ;;9002226.02101,"1033,00480778203 ",.02)
 ;;00480778203
 ;;9002226.02101,"1033,00480778301 ",.01)
 ;;00480778301
 ;;9002226.02101,"1033,00480778301 ",.02)
 ;;00480778301
 ;;9002226.02101,"1033,00480778303 ",.01)
 ;;00480778303
 ;;9002226.02101,"1033,00480778303 ",.02)
 ;;00480778303
 ;;9002226.02101,"1033,00480778401 ",.01)
 ;;00480778401
 ;;9002226.02101,"1033,00480778401 ",.02)
 ;;00480778401
 ;;9002226.02101,"1033,00480778404 ",.01)
 ;;00480778404
 ;;9002226.02101,"1033,00480778404 ",.02)
 ;;00480778404
 ;;9002226.02101,"1033,00480778501 ",.01)
 ;;00480778501
 ;;9002226.02101,"1033,00480778501 ",.02)
 ;;00480778501
 ;;9002226.02101,"1033,00480778503 ",.01)
 ;;00480778503
 ;;9002226.02101,"1033,00480778503 ",.02)
 ;;00480778503
 ;;9002226.02101,"1033,00490709800 ",.01)
 ;;00490709800
 ;;9002226.02101,"1033,00490709800 ",.02)
 ;;00490709800
 ;;9002226.02101,"1033,00490709801 ",.01)
 ;;00490709801
 ;;9002226.02101,"1033,00490709801 ",.02)
 ;;00490709801
 ;;9002226.02101,"1033,00490709802 ",.01)
 ;;00490709802
 ;;9002226.02101,"1033,00490709802 ",.02)
 ;;00490709802
 ;;9002226.02101,"1033,00490709803 ",.01)
 ;;00490709803
 ;;9002226.02101,"1033,00490709803 ",.02)
 ;;00490709803
 ;;9002226.02101,"1033,00490709804 ",.01)
 ;;00490709804
 ;;9002226.02101,"1033,00490709804 ",.02)
 ;;00490709804
 ;;9002226.02101,"1033,00490709805 ",.01)
 ;;00490709805
 ;;9002226.02101,"1033,00490709805 ",.02)
 ;;00490709805
 ;;9002226.02101,"1033,00490709806 ",.01)
 ;;00490709806
 ;;9002226.02101,"1033,00490709806 ",.02)
 ;;00490709806
 ;;9002226.02101,"1033,00490709807 ",.01)
 ;;00490709807
 ;;9002226.02101,"1033,00490709807 ",.02)
 ;;00490709807
 ;;9002226.02101,"1033,00490709808 ",.01)
 ;;00490709808
 ;;9002226.02101,"1033,00490709808 ",.02)
 ;;00490709808
 ;;9002226.02101,"1033,00490709809 ",.01)
 ;;00490709809
 ;;9002226.02101,"1033,00490709809 ",.02)
 ;;00490709809
 ;;9002226.02101,"1033,00490709810 ",.01)
 ;;00490709810
 ;;9002226.02101,"1033,00490709810 ",.02)
 ;;00490709810
 ;;9002226.02101,"1033,00490709812 ",.01)
 ;;00490709812
 ;;9002226.02101,"1033,00490709812 ",.02)
 ;;00490709812
 ;;9002226.02101,"1033,00490709814 ",.01)
 ;;00490709814
 ;;9002226.02101,"1033,00490709814 ",.02)
 ;;00490709814
 ;;9002226.02101,"1033,00490709815 ",.01)
 ;;00490709815
 ;;9002226.02101,"1033,00490709815 ",.02)
 ;;00490709815
 ;;9002226.02101,"1033,00490709816 ",.01)
 ;;00490709816
 ;;9002226.02101,"1033,00490709816 ",.02)
 ;;00490709816
 ;;9002226.02101,"1033,00490709818 ",.01)
 ;;00490709818
 ;;9002226.02101,"1033,00490709818 ",.02)
 ;;00490709818
 ;;9002226.02101,"1033,00490709820 ",.01)
 ;;00490709820
 ;;9002226.02101,"1033,00490709820 ",.02)
 ;;00490709820
 ;;9002226.02101,"1033,00490709821 ",.01)
 ;;00490709821
 ;;9002226.02101,"1033,00490709821 ",.02)
 ;;00490709821
 ;;9002226.02101,"1033,00490709824 ",.01)
 ;;00490709824
 ;;9002226.02101,"1033,00490709824 ",.02)
 ;;00490709824
 ;;9002226.02101,"1033,00490709825 ",.01)
 ;;00490709825
 ;;9002226.02101,"1033,00490709825 ",.02)
 ;;00490709825
 ;;9002226.02101,"1033,00490709826 ",.01)
 ;;00490709826
 ;;9002226.02101,"1033,00490709826 ",.02)
 ;;00490709826
 ;;9002226.02101,"1033,00490709827 ",.01)
 ;;00490709827
 ;;9002226.02101,"1033,00490709827 ",.02)
 ;;00490709827
 ;;9002226.02101,"1033,00490709828 ",.01)
 ;;00490709828
 ;;9002226.02101,"1033,00490709828 ",.02)
 ;;00490709828
 ;;9002226.02101,"1033,00490709830 ",.01)
 ;;00490709830
 ;;9002226.02101,"1033,00490709830 ",.02)
 ;;00490709830
 ;;9002226.02101,"1033,00490709832 ",.01)
 ;;00490709832
 ;;9002226.02101,"1033,00490709832 ",.02)
 ;;00490709832
 ;;9002226.02101,"1033,00490709835 ",.01)
 ;;00490709835
 ;;9002226.02101,"1033,00490709835 ",.02)
 ;;00490709835
 ;;9002226.02101,"1033,00490709836 ",.01)
 ;;00490709836
 ;;9002226.02101,"1033,00490709836 ",.02)
 ;;00490709836
 ;;9002226.02101,"1033,00490709840 ",.01)
 ;;00490709840
 ;;9002226.02101,"1033,00490709840 ",.02)
 ;;00490709840
 ;;9002226.02101,"1033,00490709842 ",.01)
 ;;00490709842
 ;;9002226.02101,"1033,00490709842 ",.02)
 ;;00490709842
 ;;9002226.02101,"1033,00490709844 ",.01)
 ;;00490709844
 ;;9002226.02101,"1033,00490709844 ",.02)
 ;;00490709844
 ;;9002226.02101,"1033,00490709845 ",.01)
 ;;00490709845
 ;;9002226.02101,"1033,00490709845 ",.02)
 ;;00490709845
 ;;9002226.02101,"1033,00490709848 ",.01)
 ;;00490709848
 ;;9002226.02101,"1033,00490709848 ",.02)
 ;;00490709848
 ;;9002226.02101,"1033,00490709850 ",.01)
 ;;00490709850
 ;;9002226.02101,"1033,00490709850 ",.02)
 ;;00490709850
 ;;9002226.02101,"1033,00490709856 ",.01)
 ;;00490709856
 ;;9002226.02101,"1033,00490709856 ",.02)
 ;;00490709856
 ;;9002226.02101,"1033,00490709860 ",.01)
 ;;00490709860
 ;;9002226.02101,"1033,00490709860 ",.02)
 ;;00490709860
 ;;9002226.02101,"1033,00490709867 ",.01)
 ;;00490709867
 ;;9002226.02101,"1033,00490709867 ",.02)
 ;;00490709867
 ;;9002226.02101,"1033,00490709869 ",.01)
 ;;00490709869
 ;;9002226.02101,"1033,00490709869 ",.02)
 ;;00490709869
 ;;9002226.02101,"1033,00490709870 ",.01)
 ;;00490709870
 ;;9002226.02101,"1033,00490709870 ",.02)
 ;;00490709870
 ;;9002226.02101,"1033,00490709871 ",.01)
 ;;00490709871
 ;;9002226.02101,"1033,00490709871 ",.02)
 ;;00490709871
 ;;9002226.02101,"1033,00490709872 ",.01)
 ;;00490709872
 ;;9002226.02101,"1033,00490709872 ",.02)
 ;;00490709872
 ;;9002226.02101,"1033,00490709873 ",.01)
 ;;00490709873
 ;;9002226.02101,"1033,00490709873 ",.02)
 ;;00490709873
 ;;9002226.02101,"1033,00490709875 ",.01)
 ;;00490709875
 ;;9002226.02101,"1033,00490709875 ",.02)
 ;;00490709875
 ;;9002226.02101,"1033,00490709876 ",.01)
 ;;00490709876
 ;;9002226.02101,"1033,00490709876 ",.02)
 ;;00490709876
 ;;9002226.02101,"1033,00490709877 ",.01)
 ;;00490709877