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

BGPM5ABT.m

Go to the documentation of this file.
BGPM5ABT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"830,16590031330 ",.02)
 ;;16590031330
 ;;9002226.02101,"830,16590031360 ",.01)
 ;;16590031360
 ;;9002226.02101,"830,16590031360 ",.02)
 ;;16590031360
 ;;9002226.02101,"830,16590031390 ",.01)
 ;;16590031390
 ;;9002226.02101,"830,16590031390 ",.02)
 ;;16590031390
 ;;9002226.02101,"830,16590041860 ",.01)
 ;;16590041860
 ;;9002226.02101,"830,16590041860 ",.02)
 ;;16590041860
 ;;9002226.02101,"830,20091053101 ",.01)
 ;;20091053101
 ;;9002226.02101,"830,20091053101 ",.02)
 ;;20091053101
 ;;9002226.02101,"830,20091053105 ",.01)
 ;;20091053105
 ;;9002226.02101,"830,20091053105 ",.02)
 ;;20091053105
 ;;9002226.02101,"830,20091053110 ",.01)
 ;;20091053110
 ;;9002226.02101,"830,20091053110 ",.02)
 ;;20091053110
 ;;9002226.02101,"830,20091053301 ",.01)
 ;;20091053301
 ;;9002226.02101,"830,20091053301 ",.02)
 ;;20091053301
 ;;9002226.02101,"830,20091053305 ",.01)
 ;;20091053305
 ;;9002226.02101,"830,20091053305 ",.02)
 ;;20091053305
 ;;9002226.02101,"830,20091053310 ",.01)
 ;;20091053310
 ;;9002226.02101,"830,20091053310 ",.02)
 ;;20091053310
 ;;9002226.02101,"830,20091053501 ",.01)
 ;;20091053501
 ;;9002226.02101,"830,20091053501 ",.02)
 ;;20091053501
 ;;9002226.02101,"830,20091053505 ",.01)
 ;;20091053505
 ;;9002226.02101,"830,20091053505 ",.02)
 ;;20091053505
 ;;9002226.02101,"830,20091053510 ",.01)
 ;;20091053510
 ;;9002226.02101,"830,20091053510 ",.02)
 ;;20091053510
 ;;9002226.02101,"830,21695047100 ",.01)
 ;;21695047100
 ;;9002226.02101,"830,21695047100 ",.02)
 ;;21695047100
 ;;9002226.02101,"830,21695047130 ",.01)
 ;;21695047130
 ;;9002226.02101,"830,21695047130 ",.02)
 ;;21695047130
 ;;9002226.02101,"830,21695047160 ",.01)
 ;;21695047160
 ;;9002226.02101,"830,21695047160 ",.02)
 ;;21695047160
 ;;9002226.02101,"830,21695047178 ",.01)
 ;;21695047178
 ;;9002226.02101,"830,21695047178 ",.02)
 ;;21695047178
 ;;9002226.02101,"830,21695047190 ",.01)
 ;;21695047190
 ;;9002226.02101,"830,21695047190 ",.02)
 ;;21695047190
 ;;9002226.02101,"830,21695047230 ",.01)
 ;;21695047230
 ;;9002226.02101,"830,21695047230 ",.02)
 ;;21695047230
 ;;9002226.02101,"830,21695047260 ",.01)
 ;;21695047260
 ;;9002226.02101,"830,21695047260 ",.02)
 ;;21695047260
 ;;9002226.02101,"830,21695047300 ",.01)
 ;;21695047300
 ;;9002226.02101,"830,21695047300 ",.02)
 ;;21695047300
 ;;9002226.02101,"830,21695047330 ",.01)
 ;;21695047330
 ;;9002226.02101,"830,21695047330 ",.02)
 ;;21695047330
 ;;9002226.02101,"830,21695047360 ",.01)
 ;;21695047360
 ;;9002226.02101,"830,21695047360 ",.02)
 ;;21695047360
 ;;9002226.02101,"830,21695047378 ",.01)
 ;;21695047378
 ;;9002226.02101,"830,21695047378 ",.02)
 ;;21695047378
 ;;9002226.02101,"830,21695047390 ",.01)
 ;;21695047390
 ;;9002226.02101,"830,21695047390 ",.02)
 ;;21695047390
 ;;9002226.02101,"830,21695056830 ",.01)
 ;;21695056830
 ;;9002226.02101,"830,21695056830 ",.02)
 ;;21695056830
 ;;9002226.02101,"830,21695082860 ",.01)
 ;;21695082860
 ;;9002226.02101,"830,21695082860 ",.02)
 ;;21695082860
 ;;9002226.02101,"830,21695082890 ",.01)
 ;;21695082890
 ;;9002226.02101,"830,21695082890 ",.02)
 ;;21695082890
 ;;9002226.02101,"830,21695089400 ",.01)
 ;;21695089400
 ;;9002226.02101,"830,21695089400 ",.02)
 ;;21695089400
 ;;9002226.02101,"830,23155010201 ",.01)
 ;;23155010201
 ;;9002226.02101,"830,23155010201 ",.02)
 ;;23155010201
 ;;9002226.02101,"830,23155010205 ",.01)
 ;;23155010205
 ;;9002226.02101,"830,23155010205 ",.02)
 ;;23155010205
 ;;9002226.02101,"830,23155010210 ",.01)
 ;;23155010210
 ;;9002226.02101,"830,23155010210 ",.02)
 ;;23155010210
 ;;9002226.02101,"830,23155010301 ",.01)
 ;;23155010301
 ;;9002226.02101,"830,23155010301 ",.02)
 ;;23155010301
 ;;9002226.02101,"830,23155010305 ",.01)
 ;;23155010305
 ;;9002226.02101,"830,23155010305 ",.02)
 ;;23155010305
 ;;9002226.02101,"830,23155010310 ",.01)
 ;;23155010310
 ;;9002226.02101,"830,23155010310 ",.02)
 ;;23155010310
 ;;9002226.02101,"830,23155010401 ",.01)
 ;;23155010401
 ;;9002226.02101,"830,23155010401 ",.02)
 ;;23155010401
 ;;9002226.02101,"830,23155010405 ",.01)
 ;;23155010405
 ;;9002226.02101,"830,23155010405 ",.02)
 ;;23155010405
 ;;9002226.02101,"830,23155010410 ",.01)
 ;;23155010410
 ;;9002226.02101,"830,23155010410 ",.02)
 ;;23155010410
 ;;9002226.02101,"830,23155011501 ",.01)
 ;;23155011501
 ;;9002226.02101,"830,23155011501 ",.02)
 ;;23155011501
 ;;9002226.02101,"830,23155011510 ",.01)
 ;;23155011510
 ;;9002226.02101,"830,23155011510 ",.02)
 ;;23155011510
 ;;9002226.02101,"830,23155011601 ",.01)
 ;;23155011601
 ;;9002226.02101,"830,23155011601 ",.02)
 ;;23155011601
 ;;9002226.02101,"830,23155011610 ",.01)
 ;;23155011610
 ;;9002226.02101,"830,23155011610 ",.02)
 ;;23155011610
 ;;9002226.02101,"830,23155011701 ",.01)
 ;;23155011701
 ;;9002226.02101,"830,23155011701 ",.02)
 ;;23155011701
 ;;9002226.02101,"830,23155011710 ",.01)
 ;;23155011710
 ;;9002226.02101,"830,23155011710 ",.02)
 ;;23155011710
 ;;9002226.02101,"830,23490089800 ",.01)
 ;;23490089800
 ;;9002226.02101,"830,23490089800 ",.02)
 ;;23490089800
 ;;9002226.02101,"830,23490089803 ",.01)
 ;;23490089803
 ;;9002226.02101,"830,23490089803 ",.02)
 ;;23490089803
 ;;9002226.02101,"830,23490089806 ",.01)
 ;;23490089806
 ;;9002226.02101,"830,23490089806 ",.02)
 ;;23490089806
 ;;9002226.02101,"830,23490089809 ",.01)
 ;;23490089809
 ;;9002226.02101,"830,23490089809 ",.02)
 ;;23490089809
 ;;9002226.02101,"830,23490089900 ",.01)
 ;;23490089900
 ;;9002226.02101,"830,23490089900 ",.02)
 ;;23490089900
 ;;9002226.02101,"830,23490089906 ",.01)
 ;;23490089906
 ;;9002226.02101,"830,23490089906 ",.02)
 ;;23490089906
 ;;9002226.02101,"830,23490090003 ",.01)
 ;;23490090003
 ;;9002226.02101,"830,23490090003 ",.02)
 ;;23490090003
 ;;9002226.02101,"830,23490090006 ",.01)
 ;;23490090006
 ;;9002226.02101,"830,23490090006 ",.02)
 ;;23490090006
 ;;9002226.02101,"830,23490683801 ",.01)
 ;;23490683801
 ;;9002226.02101,"830,23490683801 ",.02)
 ;;23490683801
 ;;9002226.02101,"830,23490683802 ",.01)
 ;;23490683802
 ;;9002226.02101,"830,23490683802 ",.02)
 ;;23490683802
 ;;9002226.02101,"830,23490683803 ",.01)
 ;;23490683803
 ;;9002226.02101,"830,23490683803 ",.02)
 ;;23490683803
 ;;9002226.02101,"830,23490683804 ",.01)
 ;;23490683804
 ;;9002226.02101,"830,23490683804 ",.02)
 ;;23490683804
 ;;9002226.02101,"830,23490683901 ",.01)
 ;;23490683901
 ;;9002226.02101,"830,23490683901 ",.02)
 ;;23490683901
 ;;9002226.02101,"830,23490683902 ",.01)
 ;;23490683902
 ;;9002226.02101,"830,23490683902 ",.02)
 ;;23490683902
 ;;9002226.02101,"830,23490683903 ",.01)
 ;;23490683903
 ;;9002226.02101,"830,23490683903 ",.02)
 ;;23490683903
 ;;9002226.02101,"830,23490683904 ",.01)
 ;;23490683904
 ;;9002226.02101,"830,23490683904 ",.02)
 ;;23490683904
 ;;9002226.02101,"830,23490726001 ",.01)
 ;;23490726001
 ;;9002226.02101,"830,23490726001 ",.02)
 ;;23490726001
 ;;9002226.02101,"830,23490726002 ",.01)
 ;;23490726002
 ;;9002226.02101,"830,23490726002 ",.02)
 ;;23490726002
 ;;9002226.02101,"830,23490726003 ",.01)
 ;;23490726003
 ;;9002226.02101,"830,23490726003 ",.02)
 ;;23490726003
 ;;9002226.02101,"830,23490726004 ",.01)
 ;;23490726004
 ;;9002226.02101,"830,23490726004 ",.02)
 ;;23490726004
 ;;9002226.02101,"830,23490744901 ",.01)
 ;;23490744901
 ;;9002226.02101,"830,23490744901 ",.02)
 ;;23490744901
 ;;9002226.02101,"830,23490745806 ",.01)
 ;;23490745806
 ;;9002226.02101,"830,23490745806 ",.02)
 ;;23490745806
 ;;9002226.02101,"830,24236008702 ",.01)
 ;;24236008702
 ;;9002226.02101,"830,24236008702 ",.02)
 ;;24236008702
 ;;9002226.02101,"830,24236015702 ",.01)
 ;;24236015702
 ;;9002226.02101,"830,24236015702 ",.02)
 ;;24236015702
 ;;9002226.02101,"830,24236017702 ",.01)
 ;;24236017702
 ;;9002226.02101,"830,24236017702 ",.02)
 ;;24236017702
 ;;9002226.02101,"830,24236023602 ",.01)
 ;;24236023602
 ;;9002226.02101,"830,24236023602 ",.02)
 ;;24236023602
 ;;9002226.02101,"830,24236030402 ",.01)
 ;;24236030402
 ;;9002226.02101,"830,24236030402 ",.02)
 ;;24236030402
 ;;9002226.02101,"830,24236031602 ",.01)
 ;;24236031602
 ;;9002226.02101,"830,24236031602 ",.02)
 ;;24236031602
 ;;9002226.02101,"830,24236034002 ",.01)
 ;;24236034002
 ;;9002226.02101,"830,24236034002 ",.02)
 ;;24236034002
 ;;9002226.02101,"830,24236056802 ",.01)
 ;;24236056802
 ;;9002226.02101,"830,24236056802 ",.02)
 ;;24236056802
 ;;9002226.02101,"830,24236071502 ",.01)
 ;;24236071502
 ;;9002226.02101,"830,24236071502 ",.02)
 ;;24236071502
 ;;9002226.02101,"830,24236079102 ",.01)
 ;;24236079102
 ;;9002226.02101,"830,24236079102 ",.02)
 ;;24236079102
 ;;9002226.02101,"830,24236090802 ",.01)
 ;;24236090802
 ;;9002226.02101,"830,24236090802 ",.02)
 ;;24236090802
 ;;9002226.02101,"830,24236098802 ",.01)
 ;;24236098802
 ;;9002226.02101,"830,24236098802 ",.02)
 ;;24236098802
 ;;9002226.02101,"830,24236099402 ",.01)
 ;;24236099402
 ;;9002226.02101,"830,24236099402 ",.02)
 ;;24236099402
 ;;9002226.02101,"830,24724001401 ",.01)
 ;;24724001401
 ;;9002226.02101,"830,24724001401 ",.02)
 ;;24724001401
 ;;9002226.02101,"830,24724001450 ",.01)
 ;;24724001450
 ;;9002226.02101,"830,24724001450 ",.02)
 ;;24724001450
 ;;9002226.02101,"830,24724001501 ",.01)
 ;;24724001501
 ;;9002226.02101,"830,24724001501 ",.02)
 ;;24724001501
 ;;9002226.02101,"830,24724001550 ",.01)
 ;;24724001550
 ;;9002226.02101,"830,24724001550 ",.02)
 ;;24724001550
 ;;9002226.02101,"830,24724001601 ",.01)
 ;;24724001601
 ;;9002226.02101,"830,24724001601 ",.02)
 ;;24724001601
 ;;9002226.02101,"830,24724001650 ",.01)
 ;;24724001650
 ;;9002226.02101,"830,24724001650 ",.02)
 ;;24724001650
 ;;9002226.02101,"830,26053016401 ",.01)
 ;;26053016401
 ;;9002226.02101,"830,26053016401 ",.02)
 ;;26053016401
 ;;9002226.02101,"830,26053022001 ",.01)
 ;;26053022001
 ;;9002226.02101,"830,26053022001 ",.02)
 ;;26053022001
 ;;9002226.02101,"830,26053022101 ",.01)
 ;;26053022101
 ;;9002226.02101,"830,26053022101 ",.02)
 ;;26053022101
 ;;9002226.02101,"830,26053043901 ",.01)
 ;;26053043901
 ;;9002226.02101,"830,26053043901 ",.02)
 ;;26053043901
 ;;9002226.02101,"830,33358023400 ",.01)
 ;;33358023400
 ;;9002226.02101,"830,33358023400 ",.02)
 ;;33358023400
 ;;9002226.02101,"830,33358023430 ",.01)
 ;;33358023430
 ;;9002226.02101,"830,33358023430 ",.02)
 ;;33358023430
 ;;9002226.02101,"830,33358023460 ",.01)
 ;;33358023460
 ;;9002226.02101,"830,33358023460 ",.02)
 ;;33358023460
 ;;9002226.02101,"830,33358023560 ",.01)
 ;;33358023560
 ;;9002226.02101,"830,33358023560 ",.02)
 ;;33358023560
 ;;9002226.02101,"830,33358023630 ",.01)
 ;;33358023630
 ;;9002226.02101,"830,33358023630 ",.02)
 ;;33358023630
 ;;9002226.02101,"830,33358023660 ",.01)
 ;;33358023660
 ;;9002226.02101,"830,33358023660 ",.02)
 ;;33358023660
 ;;9002226.02101,"830,33358023730 ",.01)
 ;;33358023730
 ;;9002226.02101,"830,33358023730 ",.02)
 ;;33358023730
 ;;9002226.02101,"830,33358023760 ",.01)
 ;;33358023760
 ;;9002226.02101,"830,33358023760 ",.02)
 ;;33358023760
 ;;9002226.02101,"830,33358046530 ",.01)
 ;;33358046530
 ;;9002226.02101,"830,33358046530 ",.02)
 ;;33358046530
 ;;9002226.02101,"830,35356026928 ",.01)
 ;;35356026928
 ;;9002226.02101,"830,35356026928 ",.02)
 ;;35356026928
 ;;9002226.02101,"830,42291061018 ",.01)
 ;;42291061018
 ;;9002226.02101,"830,42291061018 ",.02)
 ;;42291061018
 ;;9002226.02101,"830,42291061036 ",.01)
 ;;42291061036
 ;;9002226.02101,"830,42291061036 ",.02)
 ;;42291061036
 ;;9002226.02101,"830,42291061090 ",.01)
 ;;42291061090
 ;;9002226.02101,"830,42291061090 ",.02)
 ;;42291061090
 ;;9002226.02101,"830,42291061118 ",.01)
 ;;42291061118