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

BGPM5AVD.m

Go to the documentation of this file.
BGPM5AVD ;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,54868311103 ",.01)
 ;;54868311103
 ;;9002226.02101,"1033,54868311103 ",.02)
 ;;54868311103
 ;;9002226.02101,"1033,54868311104 ",.01)
 ;;54868311104
 ;;9002226.02101,"1033,54868311104 ",.02)
 ;;54868311104
 ;;9002226.02101,"1033,54868311105 ",.01)
 ;;54868311105
 ;;9002226.02101,"1033,54868311105 ",.02)
 ;;54868311105
 ;;9002226.02101,"1033,54868311300 ",.01)
 ;;54868311300
 ;;9002226.02101,"1033,54868311300 ",.02)
 ;;54868311300
 ;;9002226.02101,"1033,54868311303 ",.01)
 ;;54868311303
 ;;9002226.02101,"1033,54868311303 ",.02)
 ;;54868311303
 ;;9002226.02101,"1033,54868311305 ",.01)
 ;;54868311305
 ;;9002226.02101,"1033,54868311305 ",.02)
 ;;54868311305
 ;;9002226.02101,"1033,54868311307 ",.01)
 ;;54868311307
 ;;9002226.02101,"1033,54868311307 ",.02)
 ;;54868311307
 ;;9002226.02101,"1033,54868311308 ",.01)
 ;;54868311308
 ;;9002226.02101,"1033,54868311308 ",.02)
 ;;54868311308
 ;;9002226.02101,"1033,54868311309 ",.01)
 ;;54868311309
 ;;9002226.02101,"1033,54868311309 ",.02)
 ;;54868311309
 ;;9002226.02101,"1033,54868316900 ",.01)
 ;;54868316900
 ;;9002226.02101,"1033,54868316900 ",.02)
 ;;54868316900
 ;;9002226.02101,"1033,54868316901 ",.01)
 ;;54868316901
 ;;9002226.02101,"1033,54868316901 ",.02)
 ;;54868316901
 ;;9002226.02101,"1033,54868316902 ",.01)
 ;;54868316902
 ;;9002226.02101,"1033,54868316902 ",.02)
 ;;54868316902
 ;;9002226.02101,"1033,54868316903 ",.01)
 ;;54868316903
 ;;9002226.02101,"1033,54868316903 ",.02)
 ;;54868316903
 ;;9002226.02101,"1033,54868316904 ",.01)
 ;;54868316904
 ;;9002226.02101,"1033,54868316904 ",.02)
 ;;54868316904
 ;;9002226.02101,"1033,54868316905 ",.01)
 ;;54868316905
 ;;9002226.02101,"1033,54868316905 ",.02)
 ;;54868316905
 ;;9002226.02101,"1033,54868316906 ",.01)
 ;;54868316906
 ;;9002226.02101,"1033,54868316906 ",.02)
 ;;54868316906
 ;;9002226.02101,"1033,54868347200 ",.01)
 ;;54868347200
 ;;9002226.02101,"1033,54868347200 ",.02)
 ;;54868347200
 ;;9002226.02101,"1033,54868347300 ",.01)
 ;;54868347300
 ;;9002226.02101,"1033,54868347300 ",.02)
 ;;54868347300
 ;;9002226.02101,"1033,54868347800 ",.01)
 ;;54868347800
 ;;9002226.02101,"1033,54868347800 ",.02)
 ;;54868347800
 ;;9002226.02101,"1033,54868347801 ",.01)
 ;;54868347801
 ;;9002226.02101,"1033,54868347801 ",.02)
 ;;54868347801
 ;;9002226.02101,"1033,54868347802 ",.01)
 ;;54868347802
 ;;9002226.02101,"1033,54868347802 ",.02)
 ;;54868347802
 ;;9002226.02101,"1033,54868347803 ",.01)
 ;;54868347803
 ;;9002226.02101,"1033,54868347803 ",.02)
 ;;54868347803
 ;;9002226.02101,"1033,54868348000 ",.01)
 ;;54868348000
 ;;9002226.02101,"1033,54868348000 ",.02)
 ;;54868348000
 ;;9002226.02101,"1033,54868348100 ",.01)
 ;;54868348100
 ;;9002226.02101,"1033,54868348100 ",.02)
 ;;54868348100
 ;;9002226.02101,"1033,54868351100 ",.01)
 ;;54868351100
 ;;9002226.02101,"1033,54868351100 ",.02)
 ;;54868351100
 ;;9002226.02101,"1033,54868351101 ",.01)
 ;;54868351101
 ;;9002226.02101,"1033,54868351101 ",.02)
 ;;54868351101
 ;;9002226.02101,"1033,54868351102 ",.01)
 ;;54868351102
 ;;9002226.02101,"1033,54868351102 ",.02)
 ;;54868351102
 ;;9002226.02101,"1033,54868351104 ",.01)
 ;;54868351104
 ;;9002226.02101,"1033,54868351104 ",.02)
 ;;54868351104
 ;;9002226.02101,"1033,54868369500 ",.01)
 ;;54868369500
 ;;9002226.02101,"1033,54868369500 ",.02)
 ;;54868369500
 ;;9002226.02101,"1033,54868374201 ",.01)
 ;;54868374201
 ;;9002226.02101,"1033,54868374201 ",.02)
 ;;54868374201
 ;;9002226.02101,"1033,54868374202 ",.01)
 ;;54868374202
 ;;9002226.02101,"1033,54868374202 ",.02)
 ;;54868374202
 ;;9002226.02101,"1033,54868374203 ",.01)
 ;;54868374203
 ;;9002226.02101,"1033,54868374203 ",.02)
 ;;54868374203
 ;;9002226.02101,"1033,54868404700 ",.01)
 ;;54868404700
 ;;9002226.02101,"1033,54868404700 ",.02)
 ;;54868404700
 ;;9002226.02101,"1033,54868412501 ",.01)
 ;;54868412501
 ;;9002226.02101,"1033,54868412501 ",.02)
 ;;54868412501
 ;;9002226.02101,"1033,54868412502 ",.01)
 ;;54868412502
 ;;9002226.02101,"1033,54868412502 ",.02)
 ;;54868412502
 ;;9002226.02101,"1033,54868412901 ",.01)
 ;;54868412901
 ;;9002226.02101,"1033,54868412901 ",.02)
 ;;54868412901
 ;;9002226.02101,"1033,54868412902 ",.01)
 ;;54868412902
 ;;9002226.02101,"1033,54868412902 ",.02)
 ;;54868412902
 ;;9002226.02101,"1033,54868413101 ",.01)
 ;;54868413101
 ;;9002226.02101,"1033,54868413101 ",.02)
 ;;54868413101
 ;;9002226.02101,"1033,54868415000 ",.01)
 ;;54868415000
 ;;9002226.02101,"1033,54868415000 ",.02)
 ;;54868415000
 ;;9002226.02101,"1033,54868415001 ",.01)
 ;;54868415001
 ;;9002226.02101,"1033,54868415001 ",.02)
 ;;54868415001
 ;;9002226.02101,"1033,54868415002 ",.01)
 ;;54868415002
 ;;9002226.02101,"1033,54868415002 ",.02)
 ;;54868415002
 ;;9002226.02101,"1033,54868415500 ",.01)
 ;;54868415500
 ;;9002226.02101,"1033,54868415500 ",.02)
 ;;54868415500
 ;;9002226.02101,"1033,54868415501 ",.01)
 ;;54868415501
 ;;9002226.02101,"1033,54868415501 ",.02)
 ;;54868415501
 ;;9002226.02101,"1033,54868415502 ",.01)
 ;;54868415502
 ;;9002226.02101,"1033,54868415502 ",.02)
 ;;54868415502
 ;;9002226.02101,"1033,54868415503 ",.01)
 ;;54868415503
 ;;9002226.02101,"1033,54868415503 ",.02)
 ;;54868415503
 ;;9002226.02101,"1033,54868415504 ",.01)
 ;;54868415504
 ;;9002226.02101,"1033,54868415504 ",.02)
 ;;54868415504
 ;;9002226.02101,"1033,54868433500 ",.01)
 ;;54868433500
 ;;9002226.02101,"1033,54868433500 ",.02)
 ;;54868433500
 ;;9002226.02101,"1033,54868446800 ",.01)
 ;;54868446800
 ;;9002226.02101,"1033,54868446800 ",.02)
 ;;54868446800
 ;;9002226.02101,"1033,54868448800 ",.01)
 ;;54868448800
 ;;9002226.02101,"1033,54868448800 ",.02)
 ;;54868448800
 ;;9002226.02101,"1033,54868454300 ",.01)
 ;;54868454300
 ;;9002226.02101,"1033,54868454300 ",.02)
 ;;54868454300
 ;;9002226.02101,"1033,54868454301 ",.01)
 ;;54868454301
 ;;9002226.02101,"1033,54868454301 ",.02)
 ;;54868454301
 ;;9002226.02101,"1033,54868454302 ",.01)
 ;;54868454302
 ;;9002226.02101,"1033,54868454302 ",.02)
 ;;54868454302
 ;;9002226.02101,"1033,54868454303 ",.01)
 ;;54868454303
 ;;9002226.02101,"1033,54868454303 ",.02)
 ;;54868454303
 ;;9002226.02101,"1033,54868461400 ",.01)
 ;;54868461400
 ;;9002226.02101,"1033,54868461400 ",.02)
 ;;54868461400
 ;;9002226.02101,"1033,54868461401 ",.01)
 ;;54868461401
 ;;9002226.02101,"1033,54868461401 ",.02)
 ;;54868461401
 ;;9002226.02101,"1033,54868461402 ",.01)
 ;;54868461402
 ;;9002226.02101,"1033,54868461402 ",.02)
 ;;54868461402
 ;;9002226.02101,"1033,54868465100 ",.01)
 ;;54868465100
 ;;9002226.02101,"1033,54868465100 ",.02)
 ;;54868465100
 ;;9002226.02101,"1033,54868465400 ",.01)
 ;;54868465400
 ;;9002226.02101,"1033,54868465400 ",.02)
 ;;54868465400
 ;;9002226.02101,"1033,54868465401 ",.01)
 ;;54868465401
 ;;9002226.02101,"1033,54868465401 ",.02)
 ;;54868465401
 ;;9002226.02101,"1033,54868471100 ",.01)
 ;;54868471100
 ;;9002226.02101,"1033,54868471100 ",.02)
 ;;54868471100
 ;;9002226.02101,"1033,54868474300 ",.01)
 ;;54868474300
 ;;9002226.02101,"1033,54868474300 ",.02)
 ;;54868474300
 ;;9002226.02101,"1033,54868474301 ",.01)
 ;;54868474301
 ;;9002226.02101,"1033,54868474301 ",.02)
 ;;54868474301
 ;;9002226.02101,"1033,54868474302 ",.01)
 ;;54868474302
 ;;9002226.02101,"1033,54868474302 ",.02)
 ;;54868474302
 ;;9002226.02101,"1033,54868480500 ",.01)
 ;;54868480500
 ;;9002226.02101,"1033,54868480500 ",.02)
 ;;54868480500
 ;;9002226.02101,"1033,54868480600 ",.01)
 ;;54868480600
 ;;9002226.02101,"1033,54868480600 ",.02)
 ;;54868480600
 ;;9002226.02101,"1033,54868485800 ",.01)
 ;;54868485800
 ;;9002226.02101,"1033,54868485800 ",.02)
 ;;54868485800
 ;;9002226.02101,"1033,54868485801 ",.01)
 ;;54868485801
 ;;9002226.02101,"1033,54868485801 ",.02)
 ;;54868485801
 ;;9002226.02101,"1033,54868485802 ",.01)
 ;;54868485802
 ;;9002226.02101,"1033,54868485802 ",.02)
 ;;54868485802
 ;;9002226.02101,"1033,54868485803 ",.01)
 ;;54868485803
 ;;9002226.02101,"1033,54868485803 ",.02)
 ;;54868485803
 ;;9002226.02101,"1033,54868485804 ",.01)
 ;;54868485804
 ;;9002226.02101,"1033,54868485804 ",.02)
 ;;54868485804
 ;;9002226.02101,"1033,54868485805 ",.01)
 ;;54868485805
 ;;9002226.02101,"1033,54868485805 ",.02)
 ;;54868485805
 ;;9002226.02101,"1033,54868485806 ",.01)
 ;;54868485806
 ;;9002226.02101,"1033,54868485806 ",.02)
 ;;54868485806
 ;;9002226.02101,"1033,54868485807 ",.01)
 ;;54868485807
 ;;9002226.02101,"1033,54868485807 ",.02)
 ;;54868485807
 ;;9002226.02101,"1033,54868485808 ",.01)
 ;;54868485808
 ;;9002226.02101,"1033,54868485808 ",.02)
 ;;54868485808
 ;;9002226.02101,"1033,54868489800 ",.01)
 ;;54868489800
 ;;9002226.02101,"1033,54868489800 ",.02)
 ;;54868489800
 ;;9002226.02101,"1033,54868489801 ",.01)
 ;;54868489801
 ;;9002226.02101,"1033,54868489801 ",.02)
 ;;54868489801
 ;;9002226.02101,"1033,54868489802 ",.01)
 ;;54868489802
 ;;9002226.02101,"1033,54868489802 ",.02)
 ;;54868489802
 ;;9002226.02101,"1033,54868489803 ",.01)
 ;;54868489803
 ;;9002226.02101,"1033,54868489803 ",.02)
 ;;54868489803
 ;;9002226.02101,"1033,54868489804 ",.01)
 ;;54868489804
 ;;9002226.02101,"1033,54868489804 ",.02)
 ;;54868489804
 ;;9002226.02101,"1033,54868495100 ",.01)
 ;;54868495100
 ;;9002226.02101,"1033,54868495100 ",.02)
 ;;54868495100
 ;;9002226.02101,"1033,54868495101 ",.01)
 ;;54868495101
 ;;9002226.02101,"1033,54868495101 ",.02)
 ;;54868495101
 ;;9002226.02101,"1033,54868495102 ",.01)
 ;;54868495102
 ;;9002226.02101,"1033,54868495102 ",.02)
 ;;54868495102
 ;;9002226.02101,"1033,54868495103 ",.01)
 ;;54868495103
 ;;9002226.02101,"1033,54868495103 ",.02)
 ;;54868495103
 ;;9002226.02101,"1033,54868495104 ",.01)
 ;;54868495104
 ;;9002226.02101,"1033,54868495104 ",.02)
 ;;54868495104
 ;;9002226.02101,"1033,54868498700 ",.01)
 ;;54868498700
 ;;9002226.02101,"1033,54868498700 ",.02)
 ;;54868498700
 ;;9002226.02101,"1033,54868498701 ",.01)
 ;;54868498701
 ;;9002226.02101,"1033,54868498701 ",.02)
 ;;54868498701
 ;;9002226.02101,"1033,54868499000 ",.01)
 ;;54868499000
 ;;9002226.02101,"1033,54868499000 ",.02)
 ;;54868499000
 ;;9002226.02101,"1033,54868502200 ",.01)
 ;;54868502200
 ;;9002226.02101,"1033,54868502200 ",.02)
 ;;54868502200
 ;;9002226.02101,"1033,54868502201 ",.01)
 ;;54868502201
 ;;9002226.02101,"1033,54868502201 ",.02)
 ;;54868502201
 ;;9002226.02101,"1033,54868502202 ",.01)
 ;;54868502202
 ;;9002226.02101,"1033,54868502202 ",.02)
 ;;54868502202
 ;;9002226.02101,"1033,54868502203 ",.01)
 ;;54868502203
 ;;9002226.02101,"1033,54868502203 ",.02)
 ;;54868502203
 ;;9002226.02101,"1033,54868502300 ",.01)
 ;;54868502300
 ;;9002226.02101,"1033,54868502300 ",.02)
 ;;54868502300
 ;;9002226.02101,"1033,54868502301 ",.01)
 ;;54868502301
 ;;9002226.02101,"1033,54868502301 ",.02)
 ;;54868502301
 ;;9002226.02101,"1033,54868502302 ",.01)
 ;;54868502302
 ;;9002226.02101,"1033,54868502302 ",.02)
 ;;54868502302
 ;;9002226.02101,"1033,54868504000 ",.01)
 ;;54868504000
 ;;9002226.02101,"1033,54868504000 ",.02)
 ;;54868504000
 ;;9002226.02101,"1033,54868504001 ",.01)
 ;;54868504001
 ;;9002226.02101,"1033,54868504001 ",.02)
 ;;54868504001
 ;;9002226.02101,"1033,54868504002 ",.01)
 ;;54868504002
 ;;9002226.02101,"1033,54868504002 ",.02)
 ;;54868504002
 ;;9002226.02101,"1033,54868510100 ",.01)
 ;;54868510100
 ;;9002226.02101,"1033,54868510100 ",.02)
 ;;54868510100
 ;;9002226.02101,"1033,54868510101 ",.01)
 ;;54868510101
 ;;9002226.02101,"1033,54868510101 ",.02)
 ;;54868510101
 ;;9002226.02101,"1033,54868510102 ",.01)
 ;;54868510102
 ;;9002226.02101,"1033,54868510102 ",.02)
 ;;54868510102
 ;;9002226.02101,"1033,54868510103 ",.01)
 ;;54868510103