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.
  1. BGPM5BEY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1084,16590041860 ",.02)
  1. ;;16590041860
  1. ;;9002226.02101,"1084,16729000101 ",.01)
  1. ;;16729000101
  1. ;;9002226.02101,"1084,16729000101 ",.02)
  1. ;;16729000101
  1. ;;9002226.02101,"1084,16729000201 ",.01)
  1. ;;16729000201
  1. ;;9002226.02101,"1084,16729000201 ",.02)
  1. ;;16729000201
  1. ;;9002226.02101,"1084,16729000301 ",.01)
  1. ;;16729000301
  1. ;;9002226.02101,"1084,16729000301 ",.02)
  1. ;;16729000301
  1. ;;9002226.02101,"1084,16729013900 ",.01)
  1. ;;16729013900
  1. ;;9002226.02101,"1084,16729013900 ",.02)
  1. ;;16729013900
  1. ;;9002226.02101,"1084,16729013916 ",.01)
  1. ;;16729013916
  1. ;;9002226.02101,"1084,16729013916 ",.02)
  1. ;;16729013916
  1. ;;9002226.02101,"1084,16729013917 ",.01)
  1. ;;16729013917
  1. ;;9002226.02101,"1084,16729013917 ",.02)
  1. ;;16729013917
  1. ;;9002226.02101,"1084,16729014000 ",.01)
  1. ;;16729014000
  1. ;;9002226.02101,"1084,16729014000 ",.02)
  1. ;;16729014000
  1. ;;9002226.02101,"1084,16729014016 ",.01)
  1. ;;16729014016
  1. ;;9002226.02101,"1084,16729014016 ",.02)
  1. ;;16729014016
  1. ;;9002226.02101,"1084,16729014017 ",.01)
  1. ;;16729014017
  1. ;;9002226.02101,"1084,16729014017 ",.02)
  1. ;;16729014017
  1. ;;9002226.02101,"1084,17856084402 ",.01)
  1. ;;17856084402
  1. ;;9002226.02101,"1084,17856084402 ",.02)
  1. ;;17856084402
  1. ;;9002226.02101,"1084,17856087302 ",.01)
  1. ;;17856087302
  1. ;;9002226.02101,"1084,17856087302 ",.02)
  1. ;;17856087302
  1. ;;9002226.02101,"1084,17856289802 ",.01)
  1. ;;17856289802
  1. ;;9002226.02101,"1084,17856289802 ",.02)
  1. ;;17856289802
  1. ;;9002226.02101,"1084,17856315802 ",.01)
  1. ;;17856315802
  1. ;;9002226.02101,"1084,17856315802 ",.02)
  1. ;;17856315802
  1. ;;9002226.02101,"1084,20091053101 ",.01)
  1. ;;20091053101
  1. ;;9002226.02101,"1084,20091053101 ",.02)
  1. ;;20091053101
  1. ;;9002226.02101,"1084,20091053105 ",.01)
  1. ;;20091053105
  1. ;;9002226.02101,"1084,20091053105 ",.02)
  1. ;;20091053105
  1. ;;9002226.02101,"1084,20091053110 ",.01)
  1. ;;20091053110
  1. ;;9002226.02101,"1084,20091053110 ",.02)
  1. ;;20091053110
  1. ;;9002226.02101,"1084,20091053301 ",.01)
  1. ;;20091053301
  1. ;;9002226.02101,"1084,20091053301 ",.02)
  1. ;;20091053301
  1. ;;9002226.02101,"1084,20091053305 ",.01)
  1. ;;20091053305
  1. ;;9002226.02101,"1084,20091053305 ",.02)
  1. ;;20091053305
  1. ;;9002226.02101,"1084,20091053310 ",.01)
  1. ;;20091053310
  1. ;;9002226.02101,"1084,20091053310 ",.02)
  1. ;;20091053310
  1. ;;9002226.02101,"1084,20091053501 ",.01)
  1. ;;20091053501
  1. ;;9002226.02101,"1084,20091053501 ",.02)
  1. ;;20091053501
  1. ;;9002226.02101,"1084,20091053505 ",.01)
  1. ;;20091053505
  1. ;;9002226.02101,"1084,20091053505 ",.02)
  1. ;;20091053505
  1. ;;9002226.02101,"1084,20091053510 ",.01)
  1. ;;20091053510
  1. ;;9002226.02101,"1084,20091053510 ",.02)
  1. ;;20091053510
  1. ;;9002226.02101,"1084,21695046730 ",.01)
  1. ;;21695046730
  1. ;;9002226.02101,"1084,21695046730 ",.02)
  1. ;;21695046730
  1. ;;9002226.02101,"1084,21695046760 ",.01)
  1. ;;21695046760
  1. ;;9002226.02101,"1084,21695046760 ",.02)
  1. ;;21695046760
  1. ;;9002226.02101,"1084,21695046830 ",.01)
  1. ;;21695046830
  1. ;;9002226.02101,"1084,21695046830 ",.02)
  1. ;;21695046830
  1. ;;9002226.02101,"1084,21695046860 ",.01)
  1. ;;21695046860
  1. ;;9002226.02101,"1084,21695046860 ",.02)
  1. ;;21695046860
  1. ;;9002226.02101,"1084,21695046872 ",.01)
  1. ;;21695046872
  1. ;;9002226.02101,"1084,21695046872 ",.02)
  1. ;;21695046872
  1. ;;9002226.02101,"1084,21695046878 ",.01)
  1. ;;21695046878
  1. ;;9002226.02101,"1084,21695046878 ",.02)
  1. ;;21695046878
  1. ;;9002226.02101,"1084,21695046930 ",.01)
  1. ;;21695046930
  1. ;;9002226.02101,"1084,21695046930 ",.02)
  1. ;;21695046930
  1. ;;9002226.02101,"1084,21695046990 ",.01)
  1. ;;21695046990
  1. ;;9002226.02101,"1084,21695046990 ",.02)
  1. ;;21695046990
  1. ;;9002226.02101,"1084,21695047000 ",.01)
  1. ;;21695047000
  1. ;;9002226.02101,"1084,21695047000 ",.02)
  1. ;;21695047000
  1. ;;9002226.02101,"1084,21695047030 ",.01)
  1. ;;21695047030
  1. ;;9002226.02101,"1084,21695047030 ",.02)
  1. ;;21695047030
  1. ;;9002226.02101,"1084,21695047060 ",.01)
  1. ;;21695047060
  1. ;;9002226.02101,"1084,21695047060 ",.02)
  1. ;;21695047060
  1. ;;9002226.02101,"1084,21695047078 ",.01)
  1. ;;21695047078
  1. ;;9002226.02101,"1084,21695047078 ",.02)
  1. ;;21695047078
  1. ;;9002226.02101,"1084,21695047090 ",.01)
  1. ;;21695047090
  1. ;;9002226.02101,"1084,21695047090 ",.02)
  1. ;;21695047090
  1. ;;9002226.02101,"1084,21695047100 ",.01)
  1. ;;21695047100
  1. ;;9002226.02101,"1084,21695047100 ",.02)
  1. ;;21695047100
  1. ;;9002226.02101,"1084,21695047130 ",.01)
  1. ;;21695047130
  1. ;;9002226.02101,"1084,21695047130 ",.02)
  1. ;;21695047130
  1. ;;9002226.02101,"1084,21695047160 ",.01)
  1. ;;21695047160
  1. ;;9002226.02101,"1084,21695047160 ",.02)
  1. ;;21695047160
  1. ;;9002226.02101,"1084,21695047178 ",.01)
  1. ;;21695047178
  1. ;;9002226.02101,"1084,21695047178 ",.02)
  1. ;;21695047178
  1. ;;9002226.02101,"1084,21695047190 ",.01)
  1. ;;21695047190
  1. ;;9002226.02101,"1084,21695047190 ",.02)
  1. ;;21695047190
  1. ;;9002226.02101,"1084,21695047230 ",.01)
  1. ;;21695047230
  1. ;;9002226.02101,"1084,21695047230 ",.02)
  1. ;;21695047230
  1. ;;9002226.02101,"1084,21695047260 ",.01)
  1. ;;21695047260
  1. ;;9002226.02101,"1084,21695047260 ",.02)
  1. ;;21695047260
  1. ;;9002226.02101,"1084,21695047300 ",.01)
  1. ;;21695047300
  1. ;;9002226.02101,"1084,21695047300 ",.02)
  1. ;;21695047300
  1. ;;9002226.02101,"1084,21695047330 ",.01)
  1. ;;21695047330
  1. ;;9002226.02101,"1084,21695047330 ",.02)
  1. ;;21695047330
  1. ;;9002226.02101,"1084,21695047360 ",.01)
  1. ;;21695047360
  1. ;;9002226.02101,"1084,21695047360 ",.02)
  1. ;;21695047360
  1. ;;9002226.02101,"1084,21695047378 ",.01)
  1. ;;21695047378
  1. ;;9002226.02101,"1084,21695047378 ",.02)
  1. ;;21695047378
  1. ;;9002226.02101,"1084,21695047390 ",.01)
  1. ;;21695047390
  1. ;;9002226.02101,"1084,21695047390 ",.02)
  1. ;;21695047390
  1. ;;9002226.02101,"1084,21695056830 ",.01)
  1. ;;21695056830
  1. ;;9002226.02101,"1084,21695056830 ",.02)
  1. ;;21695056830
  1. ;;9002226.02101,"1084,21695074630 ",.01)
  1. ;;21695074630
  1. ;;9002226.02101,"1084,21695074630 ",.02)
  1. ;;21695074630
  1. ;;9002226.02101,"1084,21695074690 ",.01)
  1. ;;21695074690
  1. ;;9002226.02101,"1084,21695074690 ",.02)
  1. ;;21695074690
  1. ;;9002226.02101,"1084,21695074730 ",.01)
  1. ;;21695074730
  1. ;;9002226.02101,"1084,21695074730 ",.02)
  1. ;;21695074730
  1. ;;9002226.02101,"1084,21695074760 ",.01)
  1. ;;21695074760
  1. ;;9002226.02101,"1084,21695074760 ",.02)
  1. ;;21695074760
  1. ;;9002226.02101,"1084,21695074790 ",.01)
  1. ;;21695074790
  1. ;;9002226.02101,"1084,21695074790 ",.02)
  1. ;;21695074790
  1. ;;9002226.02101,"1084,21695082860 ",.01)
  1. ;;21695082860
  1. ;;9002226.02101,"1084,21695082860 ",.02)
  1. ;;21695082860
  1. ;;9002226.02101,"1084,21695082890 ",.01)
  1. ;;21695082890
  1. ;;9002226.02101,"1084,21695082890 ",.02)
  1. ;;21695082890
  1. ;;9002226.02101,"1084,21695089400 ",.01)
  1. ;;21695089400
  1. ;;9002226.02101,"1084,21695089400 ",.02)
  1. ;;21695089400
  1. ;;9002226.02101,"1084,23155005601 ",.01)
  1. ;;23155005601
  1. ;;9002226.02101,"1084,23155005601 ",.02)
  1. ;;23155005601
  1. ;;9002226.02101,"1084,23155005610 ",.01)
  1. ;;23155005610
  1. ;;9002226.02101,"1084,23155005610 ",.02)
  1. ;;23155005610
  1. ;;9002226.02101,"1084,23155005701 ",.01)
  1. ;;23155005701
  1. ;;9002226.02101,"1084,23155005701 ",.02)
  1. ;;23155005701
  1. ;;9002226.02101,"1084,23155005710 ",.01)
  1. ;;23155005710
  1. ;;9002226.02101,"1084,23155005710 ",.02)
  1. ;;23155005710
  1. ;;9002226.02101,"1084,23155005801 ",.01)
  1. ;;23155005801
  1. ;;9002226.02101,"1084,23155005801 ",.02)
  1. ;;23155005801
  1. ;;9002226.02101,"1084,23155005810 ",.01)
  1. ;;23155005810
  1. ;;9002226.02101,"1084,23155005810 ",.02)
  1. ;;23155005810
  1. ;;9002226.02101,"1084,23155010201 ",.01)
  1. ;;23155010201
  1. ;;9002226.02101,"1084,23155010201 ",.02)
  1. ;;23155010201
  1. ;;9002226.02101,"1084,23155010205 ",.01)
  1. ;;23155010205
  1. ;;9002226.02101,"1084,23155010205 ",.02)
  1. ;;23155010205
  1. ;;9002226.02101,"1084,23155010210 ",.01)
  1. ;;23155010210
  1. ;;9002226.02101,"1084,23155010210 ",.02)
  1. ;;23155010210
  1. ;;9002226.02101,"1084,23155010301 ",.01)
  1. ;;23155010301
  1. ;;9002226.02101,"1084,23155010301 ",.02)
  1. ;;23155010301
  1. ;;9002226.02101,"1084,23155010305 ",.01)
  1. ;;23155010305
  1. ;;9002226.02101,"1084,23155010305 ",.02)
  1. ;;23155010305
  1. ;;9002226.02101,"1084,23155010310 ",.01)
  1. ;;23155010310
  1. ;;9002226.02101,"1084,23155010310 ",.02)
  1. ;;23155010310
  1. ;;9002226.02101,"1084,23155010401 ",.01)
  1. ;;23155010401
  1. ;;9002226.02101,"1084,23155010401 ",.02)
  1. ;;23155010401
  1. ;;9002226.02101,"1084,23155010405 ",.01)
  1. ;;23155010405
  1. ;;9002226.02101,"1084,23155010405 ",.02)
  1. ;;23155010405
  1. ;;9002226.02101,"1084,23155010410 ",.01)
  1. ;;23155010410
  1. ;;9002226.02101,"1084,23155010410 ",.02)
  1. ;;23155010410
  1. ;;9002226.02101,"1084,23155011501 ",.01)
  1. ;;23155011501
  1. ;;9002226.02101,"1084,23155011501 ",.02)
  1. ;;23155011501
  1. ;;9002226.02101,"1084,23155011510 ",.01)
  1. ;;23155011510
  1. ;;9002226.02101,"1084,23155011510 ",.02)
  1. ;;23155011510
  1. ;;9002226.02101,"1084,23155011601 ",.01)
  1. ;;23155011601
  1. ;;9002226.02101,"1084,23155011601 ",.02)
  1. ;;23155011601
  1. ;;9002226.02101,"1084,23155011610 ",.01)
  1. ;;23155011610
  1. ;;9002226.02101,"1084,23155011610 ",.02)
  1. ;;23155011610
  1. ;;9002226.02101,"1084,23155011701 ",.01)
  1. ;;23155011701
  1. ;;9002226.02101,"1084,23155011701 ",.02)
  1. ;;23155011701
  1. ;;9002226.02101,"1084,23155011710 ",.01)
  1. ;;23155011710
  1. ;;9002226.02101,"1084,23155011710 ",.02)
  1. ;;23155011710
  1. ;;9002226.02101,"1084,23490046000 ",.01)
  1. ;;23490046000
  1. ;;9002226.02101,"1084,23490046000 ",.02)
  1. ;;23490046000
  1. ;;9002226.02101,"1084,23490046100 ",.01)
  1. ;;23490046100
  1. ;;9002226.02101,"1084,23490046100 ",.02)
  1. ;;23490046100
  1. ;;9002226.02101,"1084,23490064103 ",.01)
  1. ;;23490064103
  1. ;;9002226.02101,"1084,23490064103 ",.02)
  1. ;;23490064103
  1. ;;9002226.02101,"1084,23490064106 ",.01)
  1. ;;23490064106
  1. ;;9002226.02101,"1084,23490064106 ",.02)
  1. ;;23490064106
  1. ;;9002226.02101,"1084,23490064200 ",.01)
  1. ;;23490064200
  1. ;;9002226.02101,"1084,23490064200 ",.02)
  1. ;;23490064200
  1. ;;9002226.02101,"1084,23490064203 ",.01)
  1. ;;23490064203
  1. ;;9002226.02101,"1084,23490064203 ",.02)
  1. ;;23490064203
  1. ;;9002226.02101,"1084,23490064206 ",.01)
  1. ;;23490064206
  1. ;;9002226.02101,"1084,23490064206 ",.02)
  1. ;;23490064206
  1. ;;9002226.02101,"1084,23490064209 ",.01)
  1. ;;23490064209
  1. ;;9002226.02101,"1084,23490064209 ",.02)
  1. ;;23490064209
  1. ;;9002226.02101,"1084,23490089800 ",.01)
  1. ;;23490089800
  1. ;;9002226.02101,"1084,23490089800 ",.02)
  1. ;;23490089800
  1. ;;9002226.02101,"1084,23490089803 ",.01)
  1. ;;23490089803
  1. ;;9002226.02101,"1084,23490089803 ",.02)
  1. ;;23490089803
  1. ;;9002226.02101,"1084,23490089806 ",.01)
  1. ;;23490089806
  1. ;;9002226.02101,"1084,23490089806 ",.02)
  1. ;;23490089806
  1. ;;9002226.02101,"1084,23490089809 ",.01)
  1. ;;23490089809
  1. ;;9002226.02101,"1084,23490089809 ",.02)
  1. ;;23490089809
  1. ;;9002226.02101,"1084,23490089900 ",.01)
  1. ;;23490089900
  1. ;;9002226.02101,"1084,23490089900 ",.02)
  1. ;;23490089900
  1. ;;9002226.02101,"1084,23490089906 ",.01)
  1. ;;23490089906
  1. ;;9002226.02101,"1084,23490089906 ",.02)
  1. ;;23490089906
  1. ;;9002226.02101,"1084,23490090003 ",.01)
  1. ;;23490090003
  1. ;;9002226.02101,"1084,23490090003 ",.02)
  1. ;;23490090003
  1. ;;9002226.02101,"1084,23490090006 ",.01)
  1. ;;23490090006
  1. ;;9002226.02101,"1084,23490090006 ",.02)
  1. ;;23490090006
  1. ;;9002226.02101,"1084,23490112807 ",.01)
  1. ;;23490112807
  1. ;;9002226.02101,"1084,23490112807 ",.02)
  1. ;;23490112807
  1. ;;9002226.02101,"1084,23490563201 ",.01)
  1. ;;23490563201
  1. ;;9002226.02101,"1084,23490563201 ",.02)
  1. ;;23490563201
  1. ;;9002226.02101,"1084,23490563202 ",.01)
  1. ;;23490563202
  1. ;;9002226.02101,"1084,23490563202 ",.02)
  1. ;;23490563202
  1. ;;9002226.02101,"1084,23490563203 ",.01)
  1. ;;23490563203
  1. ;;9002226.02101,"1084,23490563203 ",.02)
  1. ;;23490563203
  1. ;;9002226.02101,"1084,23490563301 ",.01)
  1. ;;23490563301
  1. ;;9002226.02101,"1084,23490563301 ",.02)
  1. ;;23490563301
  1. ;;9002226.02101,"1084,23490563403 ",.01)
  1. ;;23490563403
  1. ;;9002226.02101,"1084,23490563403 ",.02)
  1. ;;23490563403
  1. ;;9002226.02101,"1084,23490563503 ",.01)
  1. ;;23490563503
  1. ;;9002226.02101,"1084,23490563503 ",.02)
  1. ;;23490563503