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

BGPM5BEY.m

Go to the documentation of this file.
BGPM5BEY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,16590041860 ",.02)
 ;;16590041860
 ;;9002226.02101,"1084,16729000101 ",.01)
 ;;16729000101
 ;;9002226.02101,"1084,16729000101 ",.02)
 ;;16729000101
 ;;9002226.02101,"1084,16729000201 ",.01)
 ;;16729000201
 ;;9002226.02101,"1084,16729000201 ",.02)
 ;;16729000201
 ;;9002226.02101,"1084,16729000301 ",.01)
 ;;16729000301
 ;;9002226.02101,"1084,16729000301 ",.02)
 ;;16729000301
 ;;9002226.02101,"1084,16729013900 ",.01)
 ;;16729013900
 ;;9002226.02101,"1084,16729013900 ",.02)
 ;;16729013900
 ;;9002226.02101,"1084,16729013916 ",.01)
 ;;16729013916
 ;;9002226.02101,"1084,16729013916 ",.02)
 ;;16729013916
 ;;9002226.02101,"1084,16729013917 ",.01)
 ;;16729013917
 ;;9002226.02101,"1084,16729013917 ",.02)
 ;;16729013917
 ;;9002226.02101,"1084,16729014000 ",.01)
 ;;16729014000
 ;;9002226.02101,"1084,16729014000 ",.02)
 ;;16729014000
 ;;9002226.02101,"1084,16729014016 ",.01)
 ;;16729014016
 ;;9002226.02101,"1084,16729014016 ",.02)
 ;;16729014016
 ;;9002226.02101,"1084,16729014017 ",.01)
 ;;16729014017
 ;;9002226.02101,"1084,16729014017 ",.02)
 ;;16729014017
 ;;9002226.02101,"1084,17856084402 ",.01)
 ;;17856084402
 ;;9002226.02101,"1084,17856084402 ",.02)
 ;;17856084402
 ;;9002226.02101,"1084,17856087302 ",.01)
 ;;17856087302
 ;;9002226.02101,"1084,17856087302 ",.02)
 ;;17856087302
 ;;9002226.02101,"1084,17856289802 ",.01)
 ;;17856289802
 ;;9002226.02101,"1084,17856289802 ",.02)
 ;;17856289802
 ;;9002226.02101,"1084,17856315802 ",.01)
 ;;17856315802
 ;;9002226.02101,"1084,17856315802 ",.02)
 ;;17856315802
 ;;9002226.02101,"1084,20091053101 ",.01)
 ;;20091053101
 ;;9002226.02101,"1084,20091053101 ",.02)
 ;;20091053101
 ;;9002226.02101,"1084,20091053105 ",.01)
 ;;20091053105
 ;;9002226.02101,"1084,20091053105 ",.02)
 ;;20091053105
 ;;9002226.02101,"1084,20091053110 ",.01)
 ;;20091053110
 ;;9002226.02101,"1084,20091053110 ",.02)
 ;;20091053110
 ;;9002226.02101,"1084,20091053301 ",.01)
 ;;20091053301
 ;;9002226.02101,"1084,20091053301 ",.02)
 ;;20091053301
 ;;9002226.02101,"1084,20091053305 ",.01)
 ;;20091053305
 ;;9002226.02101,"1084,20091053305 ",.02)
 ;;20091053305
 ;;9002226.02101,"1084,20091053310 ",.01)
 ;;20091053310
 ;;9002226.02101,"1084,20091053310 ",.02)
 ;;20091053310
 ;;9002226.02101,"1084,20091053501 ",.01)
 ;;20091053501
 ;;9002226.02101,"1084,20091053501 ",.02)
 ;;20091053501
 ;;9002226.02101,"1084,20091053505 ",.01)
 ;;20091053505
 ;;9002226.02101,"1084,20091053505 ",.02)
 ;;20091053505
 ;;9002226.02101,"1084,20091053510 ",.01)
 ;;20091053510
 ;;9002226.02101,"1084,20091053510 ",.02)
 ;;20091053510
 ;;9002226.02101,"1084,21695046730 ",.01)
 ;;21695046730
 ;;9002226.02101,"1084,21695046730 ",.02)
 ;;21695046730
 ;;9002226.02101,"1084,21695046760 ",.01)
 ;;21695046760
 ;;9002226.02101,"1084,21695046760 ",.02)
 ;;21695046760
 ;;9002226.02101,"1084,21695046830 ",.01)
 ;;21695046830
 ;;9002226.02101,"1084,21695046830 ",.02)
 ;;21695046830
 ;;9002226.02101,"1084,21695046860 ",.01)
 ;;21695046860
 ;;9002226.02101,"1084,21695046860 ",.02)
 ;;21695046860
 ;;9002226.02101,"1084,21695046872 ",.01)
 ;;21695046872
 ;;9002226.02101,"1084,21695046872 ",.02)
 ;;21695046872
 ;;9002226.02101,"1084,21695046878 ",.01)
 ;;21695046878
 ;;9002226.02101,"1084,21695046878 ",.02)
 ;;21695046878
 ;;9002226.02101,"1084,21695046930 ",.01)
 ;;21695046930
 ;;9002226.02101,"1084,21695046930 ",.02)
 ;;21695046930
 ;;9002226.02101,"1084,21695046990 ",.01)
 ;;21695046990
 ;;9002226.02101,"1084,21695046990 ",.02)
 ;;21695046990
 ;;9002226.02101,"1084,21695047000 ",.01)
 ;;21695047000
 ;;9002226.02101,"1084,21695047000 ",.02)
 ;;21695047000
 ;;9002226.02101,"1084,21695047030 ",.01)
 ;;21695047030
 ;;9002226.02101,"1084,21695047030 ",.02)
 ;;21695047030
 ;;9002226.02101,"1084,21695047060 ",.01)
 ;;21695047060
 ;;9002226.02101,"1084,21695047060 ",.02)
 ;;21695047060
 ;;9002226.02101,"1084,21695047078 ",.01)
 ;;21695047078
 ;;9002226.02101,"1084,21695047078 ",.02)
 ;;21695047078
 ;;9002226.02101,"1084,21695047090 ",.01)
 ;;21695047090
 ;;9002226.02101,"1084,21695047090 ",.02)
 ;;21695047090
 ;;9002226.02101,"1084,21695047100 ",.01)
 ;;21695047100
 ;;9002226.02101,"1084,21695047100 ",.02)
 ;;21695047100
 ;;9002226.02101,"1084,21695047130 ",.01)
 ;;21695047130
 ;;9002226.02101,"1084,21695047130 ",.02)
 ;;21695047130
 ;;9002226.02101,"1084,21695047160 ",.01)
 ;;21695047160
 ;;9002226.02101,"1084,21695047160 ",.02)
 ;;21695047160
 ;;9002226.02101,"1084,21695047178 ",.01)
 ;;21695047178
 ;;9002226.02101,"1084,21695047178 ",.02)
 ;;21695047178
 ;;9002226.02101,"1084,21695047190 ",.01)
 ;;21695047190
 ;;9002226.02101,"1084,21695047190 ",.02)
 ;;21695047190
 ;;9002226.02101,"1084,21695047230 ",.01)
 ;;21695047230
 ;;9002226.02101,"1084,21695047230 ",.02)
 ;;21695047230
 ;;9002226.02101,"1084,21695047260 ",.01)
 ;;21695047260
 ;;9002226.02101,"1084,21695047260 ",.02)
 ;;21695047260
 ;;9002226.02101,"1084,21695047300 ",.01)
 ;;21695047300
 ;;9002226.02101,"1084,21695047300 ",.02)
 ;;21695047300
 ;;9002226.02101,"1084,21695047330 ",.01)
 ;;21695047330
 ;;9002226.02101,"1084,21695047330 ",.02)
 ;;21695047330
 ;;9002226.02101,"1084,21695047360 ",.01)
 ;;21695047360
 ;;9002226.02101,"1084,21695047360 ",.02)
 ;;21695047360
 ;;9002226.02101,"1084,21695047378 ",.01)
 ;;21695047378
 ;;9002226.02101,"1084,21695047378 ",.02)
 ;;21695047378
 ;;9002226.02101,"1084,21695047390 ",.01)
 ;;21695047390
 ;;9002226.02101,"1084,21695047390 ",.02)
 ;;21695047390
 ;;9002226.02101,"1084,21695056830 ",.01)
 ;;21695056830
 ;;9002226.02101,"1084,21695056830 ",.02)
 ;;21695056830
 ;;9002226.02101,"1084,21695074630 ",.01)
 ;;21695074630
 ;;9002226.02101,"1084,21695074630 ",.02)
 ;;21695074630
 ;;9002226.02101,"1084,21695074690 ",.01)
 ;;21695074690
 ;;9002226.02101,"1084,21695074690 ",.02)
 ;;21695074690
 ;;9002226.02101,"1084,21695074730 ",.01)
 ;;21695074730
 ;;9002226.02101,"1084,21695074730 ",.02)
 ;;21695074730
 ;;9002226.02101,"1084,21695074760 ",.01)
 ;;21695074760
 ;;9002226.02101,"1084,21695074760 ",.02)
 ;;21695074760
 ;;9002226.02101,"1084,21695074790 ",.01)
 ;;21695074790
 ;;9002226.02101,"1084,21695074790 ",.02)
 ;;21695074790
 ;;9002226.02101,"1084,21695082860 ",.01)
 ;;21695082860
 ;;9002226.02101,"1084,21695082860 ",.02)
 ;;21695082860
 ;;9002226.02101,"1084,21695082890 ",.01)
 ;;21695082890
 ;;9002226.02101,"1084,21695082890 ",.02)
 ;;21695082890
 ;;9002226.02101,"1084,21695089400 ",.01)
 ;;21695089400
 ;;9002226.02101,"1084,21695089400 ",.02)
 ;;21695089400
 ;;9002226.02101,"1084,23155005601 ",.01)
 ;;23155005601
 ;;9002226.02101,"1084,23155005601 ",.02)
 ;;23155005601
 ;;9002226.02101,"1084,23155005610 ",.01)
 ;;23155005610
 ;;9002226.02101,"1084,23155005610 ",.02)
 ;;23155005610
 ;;9002226.02101,"1084,23155005701 ",.01)
 ;;23155005701
 ;;9002226.02101,"1084,23155005701 ",.02)
 ;;23155005701
 ;;9002226.02101,"1084,23155005710 ",.01)
 ;;23155005710
 ;;9002226.02101,"1084,23155005710 ",.02)
 ;;23155005710
 ;;9002226.02101,"1084,23155005801 ",.01)
 ;;23155005801
 ;;9002226.02101,"1084,23155005801 ",.02)
 ;;23155005801
 ;;9002226.02101,"1084,23155005810 ",.01)
 ;;23155005810
 ;;9002226.02101,"1084,23155005810 ",.02)
 ;;23155005810
 ;;9002226.02101,"1084,23155010201 ",.01)
 ;;23155010201
 ;;9002226.02101,"1084,23155010201 ",.02)
 ;;23155010201
 ;;9002226.02101,"1084,23155010205 ",.01)
 ;;23155010205
 ;;9002226.02101,"1084,23155010205 ",.02)
 ;;23155010205
 ;;9002226.02101,"1084,23155010210 ",.01)
 ;;23155010210
 ;;9002226.02101,"1084,23155010210 ",.02)
 ;;23155010210
 ;;9002226.02101,"1084,23155010301 ",.01)
 ;;23155010301
 ;;9002226.02101,"1084,23155010301 ",.02)
 ;;23155010301
 ;;9002226.02101,"1084,23155010305 ",.01)
 ;;23155010305
 ;;9002226.02101,"1084,23155010305 ",.02)
 ;;23155010305
 ;;9002226.02101,"1084,23155010310 ",.01)
 ;;23155010310
 ;;9002226.02101,"1084,23155010310 ",.02)
 ;;23155010310
 ;;9002226.02101,"1084,23155010401 ",.01)
 ;;23155010401
 ;;9002226.02101,"1084,23155010401 ",.02)
 ;;23155010401
 ;;9002226.02101,"1084,23155010405 ",.01)
 ;;23155010405
 ;;9002226.02101,"1084,23155010405 ",.02)
 ;;23155010405
 ;;9002226.02101,"1084,23155010410 ",.01)
 ;;23155010410
 ;;9002226.02101,"1084,23155010410 ",.02)
 ;;23155010410
 ;;9002226.02101,"1084,23155011501 ",.01)
 ;;23155011501
 ;;9002226.02101,"1084,23155011501 ",.02)
 ;;23155011501
 ;;9002226.02101,"1084,23155011510 ",.01)
 ;;23155011510
 ;;9002226.02101,"1084,23155011510 ",.02)
 ;;23155011510
 ;;9002226.02101,"1084,23155011601 ",.01)
 ;;23155011601
 ;;9002226.02101,"1084,23155011601 ",.02)
 ;;23155011601
 ;;9002226.02101,"1084,23155011610 ",.01)
 ;;23155011610
 ;;9002226.02101,"1084,23155011610 ",.02)
 ;;23155011610
 ;;9002226.02101,"1084,23155011701 ",.01)
 ;;23155011701
 ;;9002226.02101,"1084,23155011701 ",.02)
 ;;23155011701
 ;;9002226.02101,"1084,23155011710 ",.01)
 ;;23155011710
 ;;9002226.02101,"1084,23155011710 ",.02)
 ;;23155011710
 ;;9002226.02101,"1084,23490046000 ",.01)
 ;;23490046000
 ;;9002226.02101,"1084,23490046000 ",.02)
 ;;23490046000
 ;;9002226.02101,"1084,23490046100 ",.01)
 ;;23490046100
 ;;9002226.02101,"1084,23490046100 ",.02)
 ;;23490046100
 ;;9002226.02101,"1084,23490064103 ",.01)
 ;;23490064103
 ;;9002226.02101,"1084,23490064103 ",.02)
 ;;23490064103
 ;;9002226.02101,"1084,23490064106 ",.01)
 ;;23490064106
 ;;9002226.02101,"1084,23490064106 ",.02)
 ;;23490064106
 ;;9002226.02101,"1084,23490064200 ",.01)
 ;;23490064200
 ;;9002226.02101,"1084,23490064200 ",.02)
 ;;23490064200
 ;;9002226.02101,"1084,23490064203 ",.01)
 ;;23490064203
 ;;9002226.02101,"1084,23490064203 ",.02)
 ;;23490064203
 ;;9002226.02101,"1084,23490064206 ",.01)
 ;;23490064206
 ;;9002226.02101,"1084,23490064206 ",.02)
 ;;23490064206
 ;;9002226.02101,"1084,23490064209 ",.01)
 ;;23490064209
 ;;9002226.02101,"1084,23490064209 ",.02)
 ;;23490064209
 ;;9002226.02101,"1084,23490089800 ",.01)
 ;;23490089800
 ;;9002226.02101,"1084,23490089800 ",.02)
 ;;23490089800
 ;;9002226.02101,"1084,23490089803 ",.01)
 ;;23490089803
 ;;9002226.02101,"1084,23490089803 ",.02)
 ;;23490089803
 ;;9002226.02101,"1084,23490089806 ",.01)
 ;;23490089806
 ;;9002226.02101,"1084,23490089806 ",.02)
 ;;23490089806
 ;;9002226.02101,"1084,23490089809 ",.01)
 ;;23490089809
 ;;9002226.02101,"1084,23490089809 ",.02)
 ;;23490089809
 ;;9002226.02101,"1084,23490089900 ",.01)
 ;;23490089900
 ;;9002226.02101,"1084,23490089900 ",.02)
 ;;23490089900
 ;;9002226.02101,"1084,23490089906 ",.01)
 ;;23490089906
 ;;9002226.02101,"1084,23490089906 ",.02)
 ;;23490089906
 ;;9002226.02101,"1084,23490090003 ",.01)
 ;;23490090003
 ;;9002226.02101,"1084,23490090003 ",.02)
 ;;23490090003
 ;;9002226.02101,"1084,23490090006 ",.01)
 ;;23490090006
 ;;9002226.02101,"1084,23490090006 ",.02)
 ;;23490090006
 ;;9002226.02101,"1084,23490112807 ",.01)
 ;;23490112807
 ;;9002226.02101,"1084,23490112807 ",.02)
 ;;23490112807
 ;;9002226.02101,"1084,23490563201 ",.01)
 ;;23490563201
 ;;9002226.02101,"1084,23490563201 ",.02)
 ;;23490563201
 ;;9002226.02101,"1084,23490563202 ",.01)
 ;;23490563202
 ;;9002226.02101,"1084,23490563202 ",.02)
 ;;23490563202
 ;;9002226.02101,"1084,23490563203 ",.01)
 ;;23490563203
 ;;9002226.02101,"1084,23490563203 ",.02)
 ;;23490563203
 ;;9002226.02101,"1084,23490563301 ",.01)
 ;;23490563301
 ;;9002226.02101,"1084,23490563301 ",.02)
 ;;23490563301
 ;;9002226.02101,"1084,23490563403 ",.01)
 ;;23490563403
 ;;9002226.02101,"1084,23490563403 ",.02)
 ;;23490563403
 ;;9002226.02101,"1084,23490563503 ",.01)
 ;;23490563503
 ;;9002226.02101,"1084,23490563503 ",.02)
 ;;23490563503