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

BGPM5BBY.m

Go to the documentation of this file.
BGPM5BBY ;IHS/MSC/SAT-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,"1044,16714060101 ",.02)
 ;;16714060101
 ;;9002226.02101,"1044,16714061101 ",.01)
 ;;16714061101
 ;;9002226.02101,"1044,16714061101 ",.02)
 ;;16714061101
 ;;9002226.02101,"1044,16714061102 ",.01)
 ;;16714061102
 ;;9002226.02101,"1044,16714061102 ",.02)
 ;;16714061102
 ;;9002226.02101,"1044,16714061103 ",.01)
 ;;16714061103
 ;;9002226.02101,"1044,16714061103 ",.02)
 ;;16714061103
 ;;9002226.02101,"1044,16714061104 ",.01)
 ;;16714061104
 ;;9002226.02101,"1044,16714061104 ",.02)
 ;;16714061104
 ;;9002226.02101,"1044,16714061105 ",.01)
 ;;16714061105
 ;;9002226.02101,"1044,16714061105 ",.02)
 ;;16714061105
 ;;9002226.02101,"1044,16714061106 ",.01)
 ;;16714061106
 ;;9002226.02101,"1044,16714061106 ",.02)
 ;;16714061106
 ;;9002226.02101,"1044,16714061201 ",.01)
 ;;16714061201
 ;;9002226.02101,"1044,16714061201 ",.02)
 ;;16714061201
 ;;9002226.02101,"1044,16714061202 ",.01)
 ;;16714061202
 ;;9002226.02101,"1044,16714061202 ",.02)
 ;;16714061202
 ;;9002226.02101,"1044,16714061203 ",.01)
 ;;16714061203
 ;;9002226.02101,"1044,16714061203 ",.02)
 ;;16714061203
 ;;9002226.02101,"1044,16714061204 ",.01)
 ;;16714061204
 ;;9002226.02101,"1044,16714061204 ",.02)
 ;;16714061204
 ;;9002226.02101,"1044,16714061205 ",.01)
 ;;16714061205
 ;;9002226.02101,"1044,16714061205 ",.02)
 ;;16714061205
 ;;9002226.02101,"1044,16714061206 ",.01)
 ;;16714061206
 ;;9002226.02101,"1044,16714061206 ",.02)
 ;;16714061206
 ;;9002226.02101,"1044,16714061301 ",.01)
 ;;16714061301
 ;;9002226.02101,"1044,16714061301 ",.02)
 ;;16714061301
 ;;9002226.02101,"1044,16714061302 ",.01)
 ;;16714061302
 ;;9002226.02101,"1044,16714061302 ",.02)
 ;;16714061302
 ;;9002226.02101,"1044,16714061303 ",.01)
 ;;16714061303
 ;;9002226.02101,"1044,16714061303 ",.02)
 ;;16714061303
 ;;9002226.02101,"1044,16714061304 ",.01)
 ;;16714061304
 ;;9002226.02101,"1044,16714061304 ",.02)
 ;;16714061304
 ;;9002226.02101,"1044,16714061305 ",.01)
 ;;16714061305
 ;;9002226.02101,"1044,16714061305 ",.02)
 ;;16714061305
 ;;9002226.02101,"1044,16714061306 ",.01)
 ;;16714061306
 ;;9002226.02101,"1044,16714061306 ",.02)
 ;;16714061306
 ;;9002226.02101,"1044,17856054002 ",.01)
 ;;17856054002
 ;;9002226.02101,"1044,17856054002 ",.02)
 ;;17856054002
 ;;9002226.02101,"1044,17856054030 ",.01)
 ;;17856054030
 ;;9002226.02101,"1044,17856054030 ",.02)
 ;;17856054030
 ;;9002226.02101,"1044,17856418602 ",.01)
 ;;17856418602
 ;;9002226.02101,"1044,17856418602 ",.02)
 ;;17856418602
 ;;9002226.02101,"1044,18837000630 ",.01)
 ;;18837000630
 ;;9002226.02101,"1044,18837000630 ",.02)
 ;;18837000630
 ;;9002226.02101,"1044,18837000660 ",.01)
 ;;18837000660
 ;;9002226.02101,"1044,18837000660 ",.02)
 ;;18837000660
 ;;9002226.02101,"1044,18837000690 ",.01)
 ;;18837000690
 ;;9002226.02101,"1044,18837000690 ",.02)
 ;;18837000690
 ;;9002226.02101,"1044,18837000730 ",.01)
 ;;18837000730
 ;;9002226.02101,"1044,18837000730 ",.02)
 ;;18837000730
 ;;9002226.02101,"1044,18837000830 ",.01)
 ;;18837000830
 ;;9002226.02101,"1044,18837000830 ",.02)
 ;;18837000830
 ;;9002226.02101,"1044,18837000860 ",.01)
 ;;18837000860
 ;;9002226.02101,"1044,18837000860 ",.02)
 ;;18837000860
 ;;9002226.02101,"1044,18837000890 ",.01)
 ;;18837000890
 ;;9002226.02101,"1044,18837000890 ",.02)
 ;;18837000890
 ;;9002226.02101,"1044,18837000898 ",.01)
 ;;18837000898
 ;;9002226.02101,"1044,18837000898 ",.02)
 ;;18837000898
 ;;9002226.02101,"1044,18837000930 ",.01)
 ;;18837000930
 ;;9002226.02101,"1044,18837000930 ",.02)
 ;;18837000930
 ;;9002226.02101,"1044,18837000960 ",.01)
 ;;18837000960
 ;;9002226.02101,"1044,18837000960 ",.02)
 ;;18837000960
 ;;9002226.02101,"1044,18837000990 ",.01)
 ;;18837000990
 ;;9002226.02101,"1044,18837000990 ",.02)
 ;;18837000990
 ;;9002226.02101,"1044,18837004730 ",.01)
 ;;18837004730
 ;;9002226.02101,"1044,18837004730 ",.02)
 ;;18837004730
 ;;9002226.02101,"1044,18837004760 ",.01)
 ;;18837004760
 ;;9002226.02101,"1044,18837004760 ",.02)
 ;;18837004760
 ;;9002226.02101,"1044,18837005430 ",.01)
 ;;18837005430
 ;;9002226.02101,"1044,18837005430 ",.02)
 ;;18837005430
 ;;9002226.02101,"1044,18837005460 ",.01)
 ;;18837005460
 ;;9002226.02101,"1044,18837005460 ",.02)
 ;;18837005460
 ;;9002226.02101,"1044,18837005490 ",.01)
 ;;18837005490
 ;;9002226.02101,"1044,18837005490 ",.02)
 ;;18837005490
 ;;9002226.02101,"1044,18837009360 ",.01)
 ;;18837009360
 ;;9002226.02101,"1044,18837009360 ",.02)
 ;;18837009360
 ;;9002226.02101,"1044,18837009430 ",.01)
 ;;18837009430
 ;;9002226.02101,"1044,18837009430 ",.02)
 ;;18837009430
 ;;9002226.02101,"1044,18837011430 ",.01)
 ;;18837011430
 ;;9002226.02101,"1044,18837011430 ",.02)
 ;;18837011430
 ;;9002226.02101,"1044,18837016030 ",.01)
 ;;18837016030
 ;;9002226.02101,"1044,18837016030 ",.02)
 ;;18837016030
 ;;9002226.02101,"1044,18837016060 ",.01)
 ;;18837016060
 ;;9002226.02101,"1044,18837016060 ",.02)
 ;;18837016060
 ;;9002226.02101,"1044,18837016230 ",.01)
 ;;18837016230
 ;;9002226.02101,"1044,18837016230 ",.02)
 ;;18837016230
 ;;9002226.02101,"1044,18837016260 ",.01)
 ;;18837016260
 ;;9002226.02101,"1044,18837016260 ",.02)
 ;;18837016260
 ;;9002226.02101,"1044,18837022230 ",.01)
 ;;18837022230
 ;;9002226.02101,"1044,18837022230 ",.02)
 ;;18837022230
 ;;9002226.02101,"1044,18837024230 ",.01)
 ;;18837024230
 ;;9002226.02101,"1044,18837024230 ",.02)
 ;;18837024230
 ;;9002226.02101,"1044,18837024830 ",.01)
 ;;18837024830
 ;;9002226.02101,"1044,18837024830 ",.02)
 ;;18837024830
 ;;9002226.02101,"1044,18837024860 ",.01)
 ;;18837024860
 ;;9002226.02101,"1044,18837024860 ",.02)
 ;;18837024860
 ;;9002226.02101,"1044,18837024890 ",.01)
 ;;18837024890
 ;;9002226.02101,"1044,18837024890 ",.02)
 ;;18837024890
 ;;9002226.02101,"1044,18837024930 ",.01)
 ;;18837024930
 ;;9002226.02101,"1044,18837024930 ",.02)
 ;;18837024930
 ;;9002226.02101,"1044,18837024960 ",.01)
 ;;18837024960
 ;;9002226.02101,"1044,18837024960 ",.02)
 ;;18837024960
 ;;9002226.02101,"1044,18837024990 ",.01)
 ;;18837024990
 ;;9002226.02101,"1044,18837024990 ",.02)
 ;;18837024990
 ;;9002226.02101,"1044,18837025230 ",.01)
 ;;18837025230
 ;;9002226.02101,"1044,18837025230 ",.02)
 ;;18837025230
 ;;9002226.02101,"1044,18837025260 ",.01)
 ;;18837025260
 ;;9002226.02101,"1044,18837025260 ",.02)
 ;;18837025260
 ;;9002226.02101,"1044,18837025290 ",.01)
 ;;18837025290
 ;;9002226.02101,"1044,18837025290 ",.02)
 ;;18837025290
 ;;9002226.02101,"1044,18837025330 ",.01)
 ;;18837025330
 ;;9002226.02101,"1044,18837025330 ",.02)
 ;;18837025330
 ;;9002226.02101,"1044,18837025360 ",.01)
 ;;18837025360
 ;;9002226.02101,"1044,18837025360 ",.02)
 ;;18837025360
 ;;9002226.02101,"1044,18837025390 ",.01)
 ;;18837025390
 ;;9002226.02101,"1044,18837025390 ",.02)
 ;;18837025390
 ;;9002226.02101,"1044,18837027830 ",.01)
 ;;18837027830
 ;;9002226.02101,"1044,18837027830 ",.02)
 ;;18837027830
 ;;9002226.02101,"1044,18837029530 ",.01)
 ;;18837029530
 ;;9002226.02101,"1044,18837029530 ",.02)
 ;;18837029530
 ;;9002226.02101,"1044,18837030430 ",.01)
 ;;18837030430
 ;;9002226.02101,"1044,18837030430 ",.02)
 ;;18837030430
 ;;9002226.02101,"1044,18837030630 ",.01)
 ;;18837030630
 ;;9002226.02101,"1044,18837030630 ",.02)
 ;;18837030630
 ;;9002226.02101,"1044,18837031030 ",.01)
 ;;18837031030
 ;;9002226.02101,"1044,18837031030 ",.02)
 ;;18837031030
 ;;9002226.02101,"1044,18837031060 ",.01)
 ;;18837031060
 ;;9002226.02101,"1044,18837031060 ",.02)
 ;;18837031060
 ;;9002226.02101,"1044,18837036490 ",.01)
 ;;18837036490
 ;;9002226.02101,"1044,18837036490 ",.02)
 ;;18837036490
 ;;9002226.02101,"1044,18837037630 ",.01)
 ;;18837037630
 ;;9002226.02101,"1044,18837037630 ",.02)
 ;;18837037630
 ;;9002226.02101,"1044,21695003000 ",.01)
 ;;21695003000
 ;;9002226.02101,"1044,21695003000 ",.02)
 ;;21695003000
 ;;9002226.02101,"1044,21695003030 ",.01)
 ;;21695003030
 ;;9002226.02101,"1044,21695003030 ",.02)
 ;;21695003030
 ;;9002226.02101,"1044,21695003060 ",.01)
 ;;21695003060
 ;;9002226.02101,"1044,21695003060 ",.02)
 ;;21695003060
 ;;9002226.02101,"1044,21695003090 ",.01)
 ;;21695003090
 ;;9002226.02101,"1044,21695003090 ",.02)
 ;;21695003090
 ;;9002226.02101,"1044,21695003100 ",.01)
 ;;21695003100
 ;;9002226.02101,"1044,21695003100 ",.02)
 ;;21695003100
 ;;9002226.02101,"1044,21695003130 ",.01)
 ;;21695003130
 ;;9002226.02101,"1044,21695003130 ",.02)
 ;;21695003130
 ;;9002226.02101,"1044,21695003160 ",.01)
 ;;21695003160
 ;;9002226.02101,"1044,21695003160 ",.02)
 ;;21695003160
 ;;9002226.02101,"1044,21695003190 ",.01)
 ;;21695003190
 ;;9002226.02101,"1044,21695003190 ",.02)
 ;;21695003190
 ;;9002226.02101,"1044,21695003200 ",.01)
 ;;21695003200
 ;;9002226.02101,"1044,21695003200 ",.02)
 ;;21695003200
 ;;9002226.02101,"1044,21695003230 ",.01)
 ;;21695003230
 ;;9002226.02101,"1044,21695003230 ",.02)
 ;;21695003230
 ;;9002226.02101,"1044,21695003260 ",.01)
 ;;21695003260
 ;;9002226.02101,"1044,21695003260 ",.02)
 ;;21695003260
 ;;9002226.02101,"1044,21695003290 ",.01)
 ;;21695003290
 ;;9002226.02101,"1044,21695003290 ",.02)
 ;;21695003290
 ;;9002226.02101,"1044,21695005220 ",.01)
 ;;21695005220
 ;;9002226.02101,"1044,21695005220 ",.02)
 ;;21695005220
 ;;9002226.02101,"1044,21695005230 ",.01)
 ;;21695005230
 ;;9002226.02101,"1044,21695005230 ",.02)
 ;;21695005230
 ;;9002226.02101,"1044,21695005260 ",.01)
 ;;21695005260
 ;;9002226.02101,"1044,21695005260 ",.02)
 ;;21695005260
 ;;9002226.02101,"1044,21695005290 ",.01)
 ;;21695005290
 ;;9002226.02101,"1044,21695005290 ",.02)
 ;;21695005290
 ;;9002226.02101,"1044,21695005330 ",.01)
 ;;21695005330
 ;;9002226.02101,"1044,21695005330 ",.02)
 ;;21695005330
 ;;9002226.02101,"1044,21695005360 ",.01)
 ;;21695005360
 ;;9002226.02101,"1044,21695005360 ",.02)
 ;;21695005360
 ;;9002226.02101,"1044,21695005390 ",.01)
 ;;21695005390
 ;;9002226.02101,"1044,21695005390 ",.02)
 ;;21695005390
 ;;9002226.02101,"1044,21695005407 ",.01)
 ;;21695005407
 ;;9002226.02101,"1044,21695005407 ",.02)
 ;;21695005407
 ;;9002226.02101,"1044,21695005430 ",.01)
 ;;21695005430
 ;;9002226.02101,"1044,21695005430 ",.02)
 ;;21695005430
 ;;9002226.02101,"1044,21695005460 ",.01)
 ;;21695005460
 ;;9002226.02101,"1044,21695005460 ",.02)
 ;;21695005460
 ;;9002226.02101,"1044,21695005490 ",.01)
 ;;21695005490
 ;;9002226.02101,"1044,21695005490 ",.02)
 ;;21695005490
 ;;9002226.02101,"1044,21695008100 ",.01)
 ;;21695008100
 ;;9002226.02101,"1044,21695008100 ",.02)
 ;;21695008100
 ;;9002226.02101,"1044,21695008130 ",.01)
 ;;21695008130
 ;;9002226.02101,"1044,21695008130 ",.02)
 ;;21695008130
 ;;9002226.02101,"1044,21695008160 ",.01)
 ;;21695008160
 ;;9002226.02101,"1044,21695008160 ",.02)
 ;;21695008160
 ;;9002226.02101,"1044,21695008190 ",.01)
 ;;21695008190
 ;;9002226.02101,"1044,21695008190 ",.02)
 ;;21695008190
 ;;9002226.02101,"1044,21695008200 ",.01)
 ;;21695008200
 ;;9002226.02101,"1044,21695008200 ",.02)
 ;;21695008200
 ;;9002226.02101,"1044,21695008230 ",.01)
 ;;21695008230
 ;;9002226.02101,"1044,21695008230 ",.02)
 ;;21695008230
 ;;9002226.02101,"1044,21695008260 ",.01)
 ;;21695008260
 ;;9002226.02101,"1044,21695008260 ",.02)
 ;;21695008260
 ;;9002226.02101,"1044,21695008330 ",.01)
 ;;21695008330
 ;;9002226.02101,"1044,21695008330 ",.02)
 ;;21695008330
 ;;9002226.02101,"1044,21695009300 ",.01)
 ;;21695009300
 ;;9002226.02101,"1044,21695009300 ",.02)
 ;;21695009300
 ;;9002226.02101,"1044,21695009330 ",.01)
 ;;21695009330
 ;;9002226.02101,"1044,21695009330 ",.02)
 ;;21695009330
 ;;9002226.02101,"1044,21695009360 ",.01)
 ;;21695009360
 ;;9002226.02101,"1044,21695009360 ",.02)
 ;;21695009360