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

BGPM3ADX.m

Go to the documentation of this file.
BGPM3ADX ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"785,57297046803 ",.01)
 ;;57297046803
 ;;9002226.02101,"785,57297046803 ",.02)
 ;;57297046803
 ;;9002226.02101,"785,57297046807 ",.01)
 ;;57297046807
 ;;9002226.02101,"785,57297046807 ",.02)
 ;;57297046807
 ;;9002226.02101,"785,57297046809 ",.01)
 ;;57297046809
 ;;9002226.02101,"785,57297046809 ",.02)
 ;;57297046809
 ;;9002226.02101,"785,57297046901 ",.01)
 ;;57297046901
 ;;9002226.02101,"785,57297046901 ",.02)
 ;;57297046901
 ;;9002226.02101,"785,57297046903 ",.01)
 ;;57297046903
 ;;9002226.02101,"785,57297046903 ",.02)
 ;;57297046903
 ;;9002226.02101,"785,57297046907 ",.01)
 ;;57297046907
 ;;9002226.02101,"785,57297046907 ",.02)
 ;;57297046907
 ;;9002226.02101,"785,57297046909 ",.01)
 ;;57297046909
 ;;9002226.02101,"785,57297046909 ",.02)
 ;;57297046909
 ;;9002226.02101,"785,57297047801 ",.01)
 ;;57297047801
 ;;9002226.02101,"785,57297047801 ",.02)
 ;;57297047801
 ;;9002226.02101,"785,57297047802 ",.01)
 ;;57297047802
 ;;9002226.02101,"785,57297047802 ",.02)
 ;;57297047802
 ;;9002226.02101,"785,57297047803 ",.01)
 ;;57297047803
 ;;9002226.02101,"785,57297047803 ",.02)
 ;;57297047803
 ;;9002226.02101,"785,57297047901 ",.01)
 ;;57297047901
 ;;9002226.02101,"785,57297047901 ",.02)
 ;;57297047901
 ;;9002226.02101,"785,57297047902 ",.01)
 ;;57297047902
 ;;9002226.02101,"785,57297047902 ",.02)
 ;;57297047902
 ;;9002226.02101,"785,57297047903 ",.01)
 ;;57297047903
 ;;9002226.02101,"785,57297047903 ",.02)
 ;;57297047903
 ;;9002226.02101,"785,57297048001 ",.01)
 ;;57297048001
 ;;9002226.02101,"785,57297048001 ",.02)
 ;;57297048001
 ;;9002226.02101,"785,57297048002 ",.01)
 ;;57297048002
 ;;9002226.02101,"785,57297048002 ",.02)
 ;;57297048002
 ;;9002226.02101,"785,57297048003 ",.01)
 ;;57297048003
 ;;9002226.02101,"785,57297048003 ",.02)
 ;;57297048003
 ;;9002226.02101,"785,57297048101 ",.01)
 ;;57297048101
 ;;9002226.02101,"785,57297048101 ",.02)
 ;;57297048101
 ;;9002226.02101,"785,57297048102 ",.01)
 ;;57297048102
 ;;9002226.02101,"785,57297048102 ",.02)
 ;;57297048102
 ;;9002226.02101,"785,57297048103 ",.01)
 ;;57297048103
 ;;9002226.02101,"785,57297048103 ",.02)
 ;;57297048103
 ;;9002226.02101,"785,57297048203 ",.01)
 ;;57297048203
 ;;9002226.02101,"785,57297048203 ",.02)
 ;;57297048203
 ;;9002226.02101,"785,57297048206 ",.01)
 ;;57297048206
 ;;9002226.02101,"785,57297048206 ",.02)
 ;;57297048206
 ;;9002226.02101,"785,57297048209 ",.01)
 ;;57297048209
 ;;9002226.02101,"785,57297048209 ",.02)
 ;;57297048209
 ;;9002226.02101,"785,57297048213 ",.01)
 ;;57297048213
 ;;9002226.02101,"785,57297048213 ",.02)
 ;;57297048213
 ;;9002226.02101,"785,57866393601 ",.01)
 ;;57866393601
 ;;9002226.02101,"785,57866393601 ",.02)
 ;;57866393601
 ;;9002226.02101,"785,57866394901 ",.01)
 ;;57866394901
 ;;9002226.02101,"785,57866394901 ",.02)
 ;;57866394901
 ;;9002226.02101,"785,57866640001 ",.01)
 ;;57866640001
 ;;9002226.02101,"785,57866640001 ",.02)
 ;;57866640001
 ;;9002226.02101,"785,57866650001 ",.01)
 ;;57866650001
 ;;9002226.02101,"785,57866650001 ",.02)
 ;;57866650001
 ;;9002226.02101,"785,57866660101 ",.01)
 ;;57866660101
 ;;9002226.02101,"785,57866660101 ",.02)
 ;;57866660101
 ;;9002226.02101,"785,58016000600 ",.01)
 ;;58016000600
 ;;9002226.02101,"785,58016000600 ",.02)
 ;;58016000600
 ;;9002226.02101,"785,58016000601 ",.01)
 ;;58016000601
 ;;9002226.02101,"785,58016000601 ",.02)
 ;;58016000601
 ;;9002226.02101,"785,58016000602 ",.01)
 ;;58016000602
 ;;9002226.02101,"785,58016000602 ",.02)
 ;;58016000602
 ;;9002226.02101,"785,58016000603 ",.01)
 ;;58016000603
 ;;9002226.02101,"785,58016000603 ",.02)
 ;;58016000603
 ;;9002226.02101,"785,58016000604 ",.01)
 ;;58016000604
 ;;9002226.02101,"785,58016000604 ",.02)
 ;;58016000604
 ;;9002226.02101,"785,58016000605 ",.01)
 ;;58016000605
 ;;9002226.02101,"785,58016000605 ",.02)
 ;;58016000605
 ;;9002226.02101,"785,58016000606 ",.01)
 ;;58016000606
 ;;9002226.02101,"785,58016000606 ",.02)
 ;;58016000606
 ;;9002226.02101,"785,58016000607 ",.01)
 ;;58016000607
 ;;9002226.02101,"785,58016000607 ",.02)
 ;;58016000607
 ;;9002226.02101,"785,58016000608 ",.01)
 ;;58016000608
 ;;9002226.02101,"785,58016000608 ",.02)
 ;;58016000608
 ;;9002226.02101,"785,58016000609 ",.01)
 ;;58016000609
 ;;9002226.02101,"785,58016000609 ",.02)
 ;;58016000609
 ;;9002226.02101,"785,58016000610 ",.01)
 ;;58016000610
 ;;9002226.02101,"785,58016000610 ",.02)
 ;;58016000610
 ;;9002226.02101,"785,58016000630 ",.01)
 ;;58016000630
 ;;9002226.02101,"785,58016000630 ",.02)
 ;;58016000630
 ;;9002226.02101,"785,58016000660 ",.01)
 ;;58016000660
 ;;9002226.02101,"785,58016000660 ",.02)
 ;;58016000660
 ;;9002226.02101,"785,58016000690 ",.01)
 ;;58016000690
 ;;9002226.02101,"785,58016000690 ",.02)
 ;;58016000690
 ;;9002226.02101,"785,58016000700 ",.01)
 ;;58016000700
 ;;9002226.02101,"785,58016000700 ",.02)
 ;;58016000700
 ;;9002226.02101,"785,58016000701 ",.01)
 ;;58016000701
 ;;9002226.02101,"785,58016000701 ",.02)
 ;;58016000701
 ;;9002226.02101,"785,58016000702 ",.01)
 ;;58016000702
 ;;9002226.02101,"785,58016000702 ",.02)
 ;;58016000702
 ;;9002226.02101,"785,58016000703 ",.01)
 ;;58016000703
 ;;9002226.02101,"785,58016000703 ",.02)
 ;;58016000703
 ;;9002226.02101,"785,58016000704 ",.01)
 ;;58016000704
 ;;9002226.02101,"785,58016000704 ",.02)
 ;;58016000704
 ;;9002226.02101,"785,58016000705 ",.01)
 ;;58016000705
 ;;9002226.02101,"785,58016000705 ",.02)
 ;;58016000705
 ;;9002226.02101,"785,58016000706 ",.01)
 ;;58016000706
 ;;9002226.02101,"785,58016000706 ",.02)
 ;;58016000706
 ;;9002226.02101,"785,58016000707 ",.01)
 ;;58016000707
 ;;9002226.02101,"785,58016000707 ",.02)
 ;;58016000707
 ;;9002226.02101,"785,58016000708 ",.01)
 ;;58016000708
 ;;9002226.02101,"785,58016000708 ",.02)
 ;;58016000708
 ;;9002226.02101,"785,58016000709 ",.01)
 ;;58016000709
 ;;9002226.02101,"785,58016000709 ",.02)
 ;;58016000709
 ;;9002226.02101,"785,58016000710 ",.01)
 ;;58016000710
 ;;9002226.02101,"785,58016000710 ",.02)
 ;;58016000710
 ;;9002226.02101,"785,58016000730 ",.01)
 ;;58016000730
 ;;9002226.02101,"785,58016000730 ",.02)
 ;;58016000730
 ;;9002226.02101,"785,58016000760 ",.01)
 ;;58016000760
 ;;9002226.02101,"785,58016000760 ",.02)
 ;;58016000760
 ;;9002226.02101,"785,58016000790 ",.01)
 ;;58016000790
 ;;9002226.02101,"785,58016000790 ",.02)
 ;;58016000790
 ;;9002226.02101,"785,58016000800 ",.01)
 ;;58016000800
 ;;9002226.02101,"785,58016000800 ",.02)
 ;;58016000800
 ;;9002226.02101,"785,58016000830 ",.01)
 ;;58016000830
 ;;9002226.02101,"785,58016000830 ",.02)
 ;;58016000830
 ;;9002226.02101,"785,58016000860 ",.01)
 ;;58016000860
 ;;9002226.02101,"785,58016000860 ",.02)
 ;;58016000860
 ;;9002226.02101,"785,58016000890 ",.01)
 ;;58016000890
 ;;9002226.02101,"785,58016000890 ",.02)
 ;;58016000890
 ;;9002226.02101,"785,58016090000 ",.01)
 ;;58016090000
 ;;9002226.02101,"785,58016090000 ",.02)
 ;;58016090000
 ;;9002226.02101,"785,58016090001 ",.01)
 ;;58016090001
 ;;9002226.02101,"785,58016090001 ",.02)
 ;;58016090001
 ;;9002226.02101,"785,58016090002 ",.01)
 ;;58016090002
 ;;9002226.02101,"785,58016090002 ",.02)
 ;;58016090002
 ;;9002226.02101,"785,58016090003 ",.01)
 ;;58016090003
 ;;9002226.02101,"785,58016090003 ",.02)
 ;;58016090003
 ;;9002226.02101,"785,58016090004 ",.01)
 ;;58016090004
 ;;9002226.02101,"785,58016090004 ",.02)
 ;;58016090004
 ;;9002226.02101,"785,58016090005 ",.01)
 ;;58016090005
 ;;9002226.02101,"785,58016090005 ",.02)
 ;;58016090005
 ;;9002226.02101,"785,58016090006 ",.01)
 ;;58016090006
 ;;9002226.02101,"785,58016090006 ",.02)
 ;;58016090006
 ;;9002226.02101,"785,58016090007 ",.01)
 ;;58016090007
 ;;9002226.02101,"785,58016090007 ",.02)
 ;;58016090007
 ;;9002226.02101,"785,58016090008 ",.01)
 ;;58016090008
 ;;9002226.02101,"785,58016090008 ",.02)
 ;;58016090008
 ;;9002226.02101,"785,58016090009 ",.01)
 ;;58016090009
 ;;9002226.02101,"785,58016090009 ",.02)
 ;;58016090009
 ;;9002226.02101,"785,58016090010 ",.01)
 ;;58016090010
 ;;9002226.02101,"785,58016090010 ",.02)
 ;;58016090010
 ;;9002226.02101,"785,58016090012 ",.01)
 ;;58016090012
 ;;9002226.02101,"785,58016090012 ",.02)
 ;;58016090012
 ;;9002226.02101,"785,58016090014 ",.01)
 ;;58016090014
 ;;9002226.02101,"785,58016090014 ",.02)
 ;;58016090014
 ;;9002226.02101,"785,58016090015 ",.01)
 ;;58016090015
 ;;9002226.02101,"785,58016090015 ",.02)
 ;;58016090015
 ;;9002226.02101,"785,58016090016 ",.01)
 ;;58016090016
 ;;9002226.02101,"785,58016090016 ",.02)
 ;;58016090016
 ;;9002226.02101,"785,58016090018 ",.01)
 ;;58016090018
 ;;9002226.02101,"785,58016090018 ",.02)
 ;;58016090018
 ;;9002226.02101,"785,58016090020 ",.01)
 ;;58016090020
 ;;9002226.02101,"785,58016090020 ",.02)
 ;;58016090020
 ;;9002226.02101,"785,58016090021 ",.01)
 ;;58016090021
 ;;9002226.02101,"785,58016090021 ",.02)
 ;;58016090021
 ;;9002226.02101,"785,58016090024 ",.01)
 ;;58016090024
 ;;9002226.02101,"785,58016090024 ",.02)
 ;;58016090024
 ;;9002226.02101,"785,58016090025 ",.01)
 ;;58016090025
 ;;9002226.02101,"785,58016090025 ",.02)
 ;;58016090025
 ;;9002226.02101,"785,58016090026 ",.01)
 ;;58016090026
 ;;9002226.02101,"785,58016090026 ",.02)
 ;;58016090026
 ;;9002226.02101,"785,58016090027 ",.01)
 ;;58016090027
 ;;9002226.02101,"785,58016090027 ",.02)
 ;;58016090027
 ;;9002226.02101,"785,58016090028 ",.01)
 ;;58016090028
 ;;9002226.02101,"785,58016090028 ",.02)
 ;;58016090028
 ;;9002226.02101,"785,58016090030 ",.01)
 ;;58016090030
 ;;9002226.02101,"785,58016090030 ",.02)
 ;;58016090030
 ;;9002226.02101,"785,58016090032 ",.01)
 ;;58016090032
 ;;9002226.02101,"785,58016090032 ",.02)
 ;;58016090032
 ;;9002226.02101,"785,58016090035 ",.01)
 ;;58016090035
 ;;9002226.02101,"785,58016090035 ",.02)
 ;;58016090035
 ;;9002226.02101,"785,58016090036 ",.01)
 ;;58016090036
 ;;9002226.02101,"785,58016090036 ",.02)
 ;;58016090036
 ;;9002226.02101,"785,58016090040 ",.01)
 ;;58016090040
 ;;9002226.02101,"785,58016090040 ",.02)
 ;;58016090040
 ;;9002226.02101,"785,58016090042 ",.01)
 ;;58016090042
 ;;9002226.02101,"785,58016090042 ",.02)
 ;;58016090042
 ;;9002226.02101,"785,58016090044 ",.01)
 ;;58016090044
 ;;9002226.02101,"785,58016090044 ",.02)
 ;;58016090044
 ;;9002226.02101,"785,58016090045 ",.01)
 ;;58016090045
 ;;9002226.02101,"785,58016090045 ",.02)
 ;;58016090045
 ;;9002226.02101,"785,58016090056 ",.01)
 ;;58016090056
 ;;9002226.02101,"785,58016090056 ",.02)
 ;;58016090056
 ;;9002226.02101,"785,58016090060 ",.01)
 ;;58016090060
 ;;9002226.02101,"785,58016090060 ",.02)
 ;;58016090060
 ;;9002226.02101,"785,58016090067 ",.01)
 ;;58016090067
 ;;9002226.02101,"785,58016090067 ",.02)
 ;;58016090067
 ;;9002226.02101,"785,58016090069 ",.01)
 ;;58016090069
 ;;9002226.02101,"785,58016090069 ",.02)
 ;;58016090069
 ;;9002226.02101,"785,58016090070 ",.01)
 ;;58016090070
 ;;9002226.02101,"785,58016090070 ",.02)
 ;;58016090070
 ;;9002226.02101,"785,58016090071 ",.01)
 ;;58016090071
 ;;9002226.02101,"785,58016090071 ",.02)
 ;;58016090071
 ;;9002226.02101,"785,58016090072 ",.01)
 ;;58016090072
 ;;9002226.02101,"785,58016090072 ",.02)
 ;;58016090072
 ;;9002226.02101,"785,58016090073 ",.01)
 ;;58016090073
 ;;9002226.02101,"785,58016090073 ",.02)
 ;;58016090073
 ;;9002226.02101,"785,58016090075 ",.01)
 ;;58016090075
 ;;9002226.02101,"785,58016090075 ",.02)
 ;;58016090075
 ;;9002226.02101,"785,58016090076 ",.01)
 ;;58016090076
 ;;9002226.02101,"785,58016090076 ",.02)
 ;;58016090076
 ;;9002226.02101,"785,58016090077 ",.01)
 ;;58016090077
 ;;9002226.02101,"785,58016090077 ",.02)
 ;;58016090077