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

BGPM5AVM.m

Go to the documentation of this file.
BGPM5AVM ;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,55289082101 ",.02)
 ;;55289082101
 ;;9002226.02101,"1033,55289082103 ",.01)
 ;;55289082103
 ;;9002226.02101,"1033,55289082103 ",.02)
 ;;55289082103
 ;;9002226.02101,"1033,55289082106 ",.01)
 ;;55289082106
 ;;9002226.02101,"1033,55289082106 ",.02)
 ;;55289082106
 ;;9002226.02101,"1033,55289082110 ",.01)
 ;;55289082110
 ;;9002226.02101,"1033,55289082110 ",.02)
 ;;55289082110
 ;;9002226.02101,"1033,55289082114 ",.01)
 ;;55289082114
 ;;9002226.02101,"1033,55289082114 ",.02)
 ;;55289082114
 ;;9002226.02101,"1033,55289082120 ",.01)
 ;;55289082120
 ;;9002226.02101,"1033,55289082120 ",.02)
 ;;55289082120
 ;;9002226.02101,"1033,55289082130 ",.01)
 ;;55289082130
 ;;9002226.02101,"1033,55289082130 ",.02)
 ;;55289082130
 ;;9002226.02101,"1033,55289082140 ",.01)
 ;;55289082140
 ;;9002226.02101,"1033,55289082140 ",.02)
 ;;55289082140
 ;;9002226.02101,"1033,55289082150 ",.01)
 ;;55289082150
 ;;9002226.02101,"1033,55289082150 ",.02)
 ;;55289082150
 ;;9002226.02101,"1033,55289082179 ",.01)
 ;;55289082179
 ;;9002226.02101,"1033,55289082179 ",.02)
 ;;55289082179
 ;;9002226.02101,"1033,55289082306 ",.01)
 ;;55289082306
 ;;9002226.02101,"1033,55289082306 ",.02)
 ;;55289082306
 ;;9002226.02101,"1033,55289082312 ",.01)
 ;;55289082312
 ;;9002226.02101,"1033,55289082312 ",.02)
 ;;55289082312
 ;;9002226.02101,"1033,55289082314 ",.01)
 ;;55289082314
 ;;9002226.02101,"1033,55289082314 ",.02)
 ;;55289082314
 ;;9002226.02101,"1033,55289082320 ",.01)
 ;;55289082320
 ;;9002226.02101,"1033,55289082320 ",.02)
 ;;55289082320
 ;;9002226.02101,"1033,55289082610 ",.01)
 ;;55289082610
 ;;9002226.02101,"1033,55289082610 ",.02)
 ;;55289082610
 ;;9002226.02101,"1033,55289082620 ",.01)
 ;;55289082620
 ;;9002226.02101,"1033,55289082620 ",.02)
 ;;55289082620
 ;;9002226.02101,"1033,55289084521 ",.01)
 ;;55289084521
 ;;9002226.02101,"1033,55289084521 ",.02)
 ;;55289084521
 ;;9002226.02101,"1033,55289084530 ",.01)
 ;;55289084530
 ;;9002226.02101,"1033,55289084530 ",.02)
 ;;55289084530
 ;;9002226.02101,"1033,55289086602 ",.01)
 ;;55289086602
 ;;9002226.02101,"1033,55289086602 ",.02)
 ;;55289086602
 ;;9002226.02101,"1033,55289086604 ",.01)
 ;;55289086604
 ;;9002226.02101,"1033,55289086604 ",.02)
 ;;55289086604
 ;;9002226.02101,"1033,55289086606 ",.01)
 ;;55289086606
 ;;9002226.02101,"1033,55289086606 ",.02)
 ;;55289086606
 ;;9002226.02101,"1033,55289086608 ",.01)
 ;;55289086608
 ;;9002226.02101,"1033,55289086608 ",.02)
 ;;55289086608
 ;;9002226.02101,"1033,55289086610 ",.01)
 ;;55289086610
 ;;9002226.02101,"1033,55289086610 ",.02)
 ;;55289086610
 ;;9002226.02101,"1033,55289086614 ",.01)
 ;;55289086614
 ;;9002226.02101,"1033,55289086614 ",.02)
 ;;55289086614
 ;;9002226.02101,"1033,55289086620 ",.01)
 ;;55289086620
 ;;9002226.02101,"1033,55289086620 ",.02)
 ;;55289086620
 ;;9002226.02101,"1033,55289086628 ",.01)
 ;;55289086628
 ;;9002226.02101,"1033,55289086628 ",.02)
 ;;55289086628
 ;;9002226.02101,"1033,55289086630 ",.01)
 ;;55289086630
 ;;9002226.02101,"1033,55289086630 ",.02)
 ;;55289086630
 ;;9002226.02101,"1033,55289086660 ",.01)
 ;;55289086660
 ;;9002226.02101,"1033,55289086660 ",.02)
 ;;55289086660
 ;;9002226.02101,"1033,55289086674 ",.01)
 ;;55289086674
 ;;9002226.02101,"1033,55289086674 ",.02)
 ;;55289086674
 ;;9002226.02101,"1033,55289086686 ",.01)
 ;;55289086686
 ;;9002226.02101,"1033,55289086686 ",.02)
 ;;55289086686
 ;;9002226.02101,"1033,55289086690 ",.01)
 ;;55289086690
 ;;9002226.02101,"1033,55289086690 ",.02)
 ;;55289086690
 ;;9002226.02101,"1033,55289086693 ",.01)
 ;;55289086693
 ;;9002226.02101,"1033,55289086693 ",.02)
 ;;55289086693
 ;;9002226.02101,"1033,55289089020 ",.01)
 ;;55289089020
 ;;9002226.02101,"1033,55289089020 ",.02)
 ;;55289089020
 ;;9002226.02101,"1033,55289089030 ",.01)
 ;;55289089030
 ;;9002226.02101,"1033,55289089030 ",.02)
 ;;55289089030
 ;;9002226.02101,"1033,55289089056 ",.01)
 ;;55289089056
 ;;9002226.02101,"1033,55289089056 ",.02)
 ;;55289089056
 ;;9002226.02101,"1033,55289090414 ",.01)
 ;;55289090414
 ;;9002226.02101,"1033,55289090414 ",.02)
 ;;55289090414
 ;;9002226.02101,"1033,55289090479 ",.01)
 ;;55289090479
 ;;9002226.02101,"1033,55289090479 ",.02)
 ;;55289090479
 ;;9002226.02101,"1033,55289090910 ",.01)
 ;;55289090910
 ;;9002226.02101,"1033,55289090910 ",.02)
 ;;55289090910
 ;;9002226.02101,"1033,55289090914 ",.01)
 ;;55289090914
 ;;9002226.02101,"1033,55289090914 ",.02)
 ;;55289090914
 ;;9002226.02101,"1033,55289090920 ",.01)
 ;;55289090920
 ;;9002226.02101,"1033,55289090920 ",.02)
 ;;55289090920
 ;;9002226.02101,"1033,55289090928 ",.01)
 ;;55289090928
 ;;9002226.02101,"1033,55289090928 ",.02)
 ;;55289090928
 ;;9002226.02101,"1033,55289096404 ",.01)
 ;;55289096404
 ;;9002226.02101,"1033,55289096404 ",.02)
 ;;55289096404
 ;;9002226.02101,"1033,55289096414 ",.01)
 ;;55289096414
 ;;9002226.02101,"1033,55289096414 ",.02)
 ;;55289096414
 ;;9002226.02101,"1033,55370070351 ",.01)
 ;;55370070351
 ;;9002226.02101,"1033,55370070351 ",.02)
 ;;55370070351
 ;;9002226.02101,"1033,55370070551 ",.01)
 ;;55370070551
 ;;9002226.02101,"1033,55370070551 ",.02)
 ;;55370070551
 ;;9002226.02101,"1033,55370070751 ",.01)
 ;;55370070751
 ;;9002226.02101,"1033,55370070751 ",.02)
 ;;55370070751
 ;;9002226.02101,"1033,55370071051 ",.01)
 ;;55370071051
 ;;9002226.02101,"1033,55370071051 ",.02)
 ;;55370071051
 ;;9002226.02101,"1033,55370088107 ",.01)
 ;;55370088107
 ;;9002226.02101,"1033,55370088107 ",.02)
 ;;55370088107
 ;;9002226.02101,"1033,55370088108 ",.01)
 ;;55370088108
 ;;9002226.02101,"1033,55370088108 ",.02)
 ;;55370088108
 ;;9002226.02101,"1033,55370089207 ",.01)
 ;;55370089207
 ;;9002226.02101,"1033,55370089207 ",.02)
 ;;55370089207
 ;;9002226.02101,"1033,55370089208 ",.01)
 ;;55370089208
 ;;9002226.02101,"1033,55370089208 ",.02)
 ;;55370089208
 ;;9002226.02101,"1033,55370089407 ",.01)
 ;;55370089407
 ;;9002226.02101,"1033,55370089407 ",.02)
 ;;55370089407
 ;;9002226.02101,"1033,55370089507 ",.01)
 ;;55370089507
 ;;9002226.02101,"1033,55370089507 ",.02)
 ;;55370089507
 ;;9002226.02101,"1033,55370089614 ",.01)
 ;;55370089614
 ;;9002226.02101,"1033,55370089614 ",.02)
 ;;55370089614
 ;;9002226.02101,"1033,55370089675 ",.01)
 ;;55370089675
 ;;9002226.02101,"1033,55370089675 ",.02)
 ;;55370089675
 ;;9002226.02101,"1033,55370089714 ",.01)
 ;;55370089714
 ;;9002226.02101,"1033,55370089714 ",.02)
 ;;55370089714
 ;;9002226.02101,"1033,55370089775 ",.01)
 ;;55370089775
 ;;9002226.02101,"1033,55370089775 ",.02)
 ;;55370089775
 ;;9002226.02101,"1033,55370089813 ",.01)
 ;;55370089813
 ;;9002226.02101,"1033,55370089813 ",.02)
 ;;55370089813
 ;;9002226.02101,"1033,55370089821 ",.01)
 ;;55370089821
 ;;9002226.02101,"1033,55370089821 ",.02)
 ;;55370089821
 ;;9002226.02101,"1033,55370089913 ",.01)
 ;;55370089913
 ;;9002226.02101,"1033,55370089913 ",.02)
 ;;55370089913
 ;;9002226.02101,"1033,55370089921 ",.01)
 ;;55370089921
 ;;9002226.02101,"1033,55370089921 ",.02)
 ;;55370089921
 ;;9002226.02101,"1033,55370090007 ",.01)
 ;;55370090007
 ;;9002226.02101,"1033,55370090007 ",.02)
 ;;55370090007
 ;;9002226.02101,"1033,55370090008 ",.01)
 ;;55370090008
 ;;9002226.02101,"1033,55370090008 ",.02)
 ;;55370090008
 ;;9002226.02101,"1033,55370090107 ",.01)
 ;;55370090107
 ;;9002226.02101,"1033,55370090107 ",.02)
 ;;55370090107
 ;;9002226.02101,"1033,55370090108 ",.01)
 ;;55370090108
 ;;9002226.02101,"1033,55370090108 ",.02)
 ;;55370090108
 ;;9002226.02101,"1033,55370090213 ",.01)
 ;;55370090213
 ;;9002226.02101,"1033,55370090213 ",.02)
 ;;55370090213
 ;;9002226.02101,"1033,55370090240 ",.01)
 ;;55370090240
 ;;9002226.02101,"1033,55370090240 ",.02)
 ;;55370090240
 ;;9002226.02101,"1033,55370090313 ",.01)
 ;;55370090313
 ;;9002226.02101,"1033,55370090313 ",.02)
 ;;55370090313
 ;;9002226.02101,"1033,55370090340 ",.01)
 ;;55370090340
 ;;9002226.02101,"1033,55370090340 ",.02)
 ;;55370090340
 ;;9002226.02101,"1033,55370092007 ",.01)
 ;;55370092007
 ;;9002226.02101,"1033,55370092007 ",.02)
 ;;55370092007
 ;;9002226.02101,"1033,55370092008 ",.01)
 ;;55370092008
 ;;9002226.02101,"1033,55370092008 ",.02)
 ;;55370092008
 ;;9002226.02101,"1033,55390010901 ",.01)
 ;;55390010901
 ;;9002226.02101,"1033,55390010901 ",.02)
 ;;55390010901
 ;;9002226.02101,"1033,55390011010 ",.01)
 ;;55390011010
 ;;9002226.02101,"1033,55390011010 ",.02)
 ;;55390011010
 ;;9002226.02101,"1033,55390030910 ",.01)
 ;;55390030910
 ;;9002226.02101,"1033,55390030910 ",.02)
 ;;55390030910
 ;;9002226.02101,"1033,55390031010 ",.01)
 ;;55390031010
 ;;9002226.02101,"1033,55390031010 ",.02)
 ;;55390031010
 ;;9002226.02101,"1033,55390031110 ",.01)
 ;;55390031110
 ;;9002226.02101,"1033,55390031110 ",.02)
 ;;55390031110
 ;;9002226.02101,"1033,55390031210 ",.01)
 ;;55390031210
 ;;9002226.02101,"1033,55390031210 ",.02)
 ;;55390031210
 ;;9002226.02101,"1033,55390031601 ",.01)
 ;;55390031601
 ;;9002226.02101,"1033,55390031601 ",.02)
 ;;55390031601
 ;;9002226.02101,"1033,55478025001 ",.01)
 ;;55478025001
 ;;9002226.02101,"1033,55478025001 ",.02)
 ;;55478025001
 ;;9002226.02101,"1033,55478050002 ",.01)
 ;;55478050002
 ;;9002226.02101,"1033,55478050002 ",.02)
 ;;55478050002
 ;;9002226.02101,"1033,55486000630 ",.01)
 ;;55486000630
 ;;9002226.02101,"1033,55486000630 ",.02)
 ;;55486000630
 ;;9002226.02101,"1033,55567009825 ",.01)
 ;;55567009825
 ;;9002226.02101,"1033,55567009825 ",.02)
 ;;55567009825
 ;;9002226.02101,"1033,55567019901 ",.01)
 ;;55567019901
 ;;9002226.02101,"1033,55567019901 ",.02)
 ;;55567019901
 ;;9002226.02101,"1033,55567019916 ",.01)
 ;;55567019916
 ;;9002226.02101,"1033,55567019916 ",.02)
 ;;55567019916
 ;;9002226.02101,"1033,55567019925 ",.01)
 ;;55567019925
 ;;9002226.02101,"1033,55567019925 ",.02)
 ;;55567019925
 ;;9002226.02101,"1033,55567019935 ",.01)
 ;;55567019935
 ;;9002226.02101,"1033,55567019935 ",.02)
 ;;55567019935
 ;;9002226.02101,"1033,55567020001 ",.01)
 ;;55567020001
 ;;9002226.02101,"1033,55567020001 ",.02)
 ;;55567020001
 ;;9002226.02101,"1033,55567020016 ",.01)
 ;;55567020016
 ;;9002226.02101,"1033,55567020016 ",.02)
 ;;55567020016
 ;;9002226.02101,"1033,55567020025 ",.01)
 ;;55567020025
 ;;9002226.02101,"1033,55567020025 ",.02)
 ;;55567020025
 ;;9002226.02101,"1033,55648007102 ",.01)
 ;;55648007102
 ;;9002226.02101,"1033,55648007102 ",.02)
 ;;55648007102
 ;;9002226.02101,"1033,55648007202 ",.01)
 ;;55648007202
 ;;9002226.02101,"1033,55648007202 ",.02)
 ;;55648007202
 ;;9002226.02101,"1033,55648007302 ",.01)
 ;;55648007302
 ;;9002226.02101,"1033,55648007302 ",.02)
 ;;55648007302
 ;;9002226.02101,"1033,55648007402 ",.01)
 ;;55648007402
 ;;9002226.02101,"1033,55648007402 ",.02)
 ;;55648007402
 ;;9002226.02101,"1033,55648054701 ",.01)
 ;;55648054701
 ;;9002226.02101,"1033,55648054701 ",.02)
 ;;55648054701
 ;;9002226.02101,"1033,55648054702 ",.01)
 ;;55648054702
 ;;9002226.02101,"1033,55648054702 ",.02)
 ;;55648054702
 ;;9002226.02101,"1033,55648054703 ",.01)
 ;;55648054703
 ;;9002226.02101,"1033,55648054703 ",.02)
 ;;55648054703
 ;;9002226.02101,"1033,55648054704 ",.01)
 ;;55648054704
 ;;9002226.02101,"1033,55648054704 ",.02)
 ;;55648054704
 ;;9002226.02101,"1033,55648054705 ",.01)
 ;;55648054705
 ;;9002226.02101,"1033,55648054705 ",.02)
 ;;55648054705
 ;;9002226.02101,"1033,55648070101 ",.01)
 ;;55648070101
 ;;9002226.02101,"1033,55648070101 ",.02)
 ;;55648070101
 ;;9002226.02101,"1033,55648070102 ",.01)
 ;;55648070102
 ;;9002226.02101,"1033,55648070102 ",.02)
 ;;55648070102
 ;;9002226.02101,"1033,55648070103 ",.01)
 ;;55648070103
 ;;9002226.02101,"1033,55648070103 ",.02)
 ;;55648070103