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

BGPM5BCG.m

Go to the documentation of this file.
BGPM5BCG ;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,45865036100 ",.01)
 ;;45865036100
 ;;9002226.02101,"1044,45865036100 ",.02)
 ;;45865036100
 ;;9002226.02101,"1044,45865036130 ",.01)
 ;;45865036130
 ;;9002226.02101,"1044,45865036130 ",.02)
 ;;45865036130
 ;;9002226.02101,"1044,45865036151 ",.01)
 ;;45865036151
 ;;9002226.02101,"1044,45865036151 ",.02)
 ;;45865036151
 ;;9002226.02101,"1044,45865036160 ",.01)
 ;;45865036160
 ;;9002226.02101,"1044,45865036160 ",.02)
 ;;45865036160
 ;;9002226.02101,"1044,45865036190 ",.01)
 ;;45865036190
 ;;9002226.02101,"1044,45865036190 ",.02)
 ;;45865036190
 ;;9002226.02101,"1044,45865036800 ",.01)
 ;;45865036800
 ;;9002226.02101,"1044,45865036800 ",.02)
 ;;45865036800
 ;;9002226.02101,"1044,45865036830 ",.01)
 ;;45865036830
 ;;9002226.02101,"1044,45865036830 ",.02)
 ;;45865036830
 ;;9002226.02101,"1044,45865036851 ",.01)
 ;;45865036851
 ;;9002226.02101,"1044,45865036851 ",.02)
 ;;45865036851
 ;;9002226.02101,"1044,45865036860 ",.01)
 ;;45865036860
 ;;9002226.02101,"1044,45865036860 ",.02)
 ;;45865036860
 ;;9002226.02101,"1044,45865036890 ",.01)
 ;;45865036890
 ;;9002226.02101,"1044,45865036890 ",.02)
 ;;45865036890
 ;;9002226.02101,"1044,45865037130 ",.01)
 ;;45865037130
 ;;9002226.02101,"1044,45865037130 ",.02)
 ;;45865037130
 ;;9002226.02101,"1044,45865037151 ",.01)
 ;;45865037151
 ;;9002226.02101,"1044,45865037151 ",.02)
 ;;45865037151
 ;;9002226.02101,"1044,45865037160 ",.01)
 ;;45865037160
 ;;9002226.02101,"1044,45865037160 ",.02)
 ;;45865037160
 ;;9002226.02101,"1044,45865037190 ",.01)
 ;;45865037190
 ;;9002226.02101,"1044,45865037190 ",.02)
 ;;45865037190
 ;;9002226.02101,"1044,45865037200 ",.01)
 ;;45865037200
 ;;9002226.02101,"1044,45865037200 ",.02)
 ;;45865037200
 ;;9002226.02101,"1044,45865037230 ",.01)
 ;;45865037230
 ;;9002226.02101,"1044,45865037230 ",.02)
 ;;45865037230
 ;;9002226.02101,"1044,45865037260 ",.01)
 ;;45865037260
 ;;9002226.02101,"1044,45865037260 ",.02)
 ;;45865037260
 ;;9002226.02101,"1044,45865037290 ",.01)
 ;;45865037290
 ;;9002226.02101,"1044,45865037290 ",.02)
 ;;45865037290
 ;;9002226.02101,"1044,45865037830 ",.01)
 ;;45865037830
 ;;9002226.02101,"1044,45865037830 ",.02)
 ;;45865037830
 ;;9002226.02101,"1044,45865037851 ",.01)
 ;;45865037851
 ;;9002226.02101,"1044,45865037851 ",.02)
 ;;45865037851
 ;;9002226.02101,"1044,45865037860 ",.01)
 ;;45865037860
 ;;9002226.02101,"1044,45865037860 ",.02)
 ;;45865037860
 ;;9002226.02101,"1044,45865037890 ",.01)
 ;;45865037890
 ;;9002226.02101,"1044,45865037890 ",.02)
 ;;45865037890
 ;;9002226.02101,"1044,45865038200 ",.01)
 ;;45865038200
 ;;9002226.02101,"1044,45865038200 ",.02)
 ;;45865038200
 ;;9002226.02101,"1044,45865038230 ",.01)
 ;;45865038230
 ;;9002226.02101,"1044,45865038230 ",.02)
 ;;45865038230
 ;;9002226.02101,"1044,45865038251 ",.01)
 ;;45865038251
 ;;9002226.02101,"1044,45865038251 ",.02)
 ;;45865038251
 ;;9002226.02101,"1044,45865038260 ",.01)
 ;;45865038260
 ;;9002226.02101,"1044,45865038260 ",.02)
 ;;45865038260
 ;;9002226.02101,"1044,45865038290 ",.01)
 ;;45865038290
 ;;9002226.02101,"1044,45865038290 ",.02)
 ;;45865038290
 ;;9002226.02101,"1044,45865043130 ",.01)
 ;;45865043130
 ;;9002226.02101,"1044,45865043130 ",.02)
 ;;45865043130
 ;;9002226.02101,"1044,45865043151 ",.01)
 ;;45865043151
 ;;9002226.02101,"1044,45865043151 ",.02)
 ;;45865043151
 ;;9002226.02101,"1044,45865043160 ",.01)
 ;;45865043160
 ;;9002226.02101,"1044,45865043160 ",.02)
 ;;45865043160
 ;;9002226.02101,"1044,45865043190 ",.01)
 ;;45865043190
 ;;9002226.02101,"1044,45865043190 ",.02)
 ;;45865043190
 ;;9002226.02101,"1044,45865043230 ",.01)
 ;;45865043230
 ;;9002226.02101,"1044,45865043230 ",.02)
 ;;45865043230
 ;;9002226.02101,"1044,45865043251 ",.01)
 ;;45865043251
 ;;9002226.02101,"1044,45865043251 ",.02)
 ;;45865043251
 ;;9002226.02101,"1044,45865043260 ",.01)
 ;;45865043260
 ;;9002226.02101,"1044,45865043260 ",.02)
 ;;45865043260
 ;;9002226.02101,"1044,45865043290 ",.01)
 ;;45865043290
 ;;9002226.02101,"1044,45865043290 ",.02)
 ;;45865043290
 ;;9002226.02101,"1044,45865044200 ",.01)
 ;;45865044200
 ;;9002226.02101,"1044,45865044200 ",.02)
 ;;45865044200
 ;;9002226.02101,"1044,45865044230 ",.01)
 ;;45865044230
 ;;9002226.02101,"1044,45865044230 ",.02)
 ;;45865044230
 ;;9002226.02101,"1044,45865044251 ",.01)
 ;;45865044251
 ;;9002226.02101,"1044,45865044251 ",.02)
 ;;45865044251
 ;;9002226.02101,"1044,45865044260 ",.01)
 ;;45865044260
 ;;9002226.02101,"1044,45865044260 ",.02)
 ;;45865044260
 ;;9002226.02101,"1044,45865044290 ",.01)
 ;;45865044290
 ;;9002226.02101,"1044,45865044290 ",.02)
 ;;45865044290
 ;;9002226.02101,"1044,45865045130 ",.01)
 ;;45865045130
 ;;9002226.02101,"1044,45865045130 ",.02)
 ;;45865045130
 ;;9002226.02101,"1044,45865045151 ",.01)
 ;;45865045151
 ;;9002226.02101,"1044,45865045151 ",.02)
 ;;45865045151
 ;;9002226.02101,"1044,45865045160 ",.01)
 ;;45865045160
 ;;9002226.02101,"1044,45865045160 ",.02)
 ;;45865045160
 ;;9002226.02101,"1044,45865045190 ",.01)
 ;;45865045190
 ;;9002226.02101,"1044,45865045190 ",.02)
 ;;45865045190
 ;;9002226.02101,"1044,45865046300 ",.01)
 ;;45865046300
 ;;9002226.02101,"1044,45865046300 ",.02)
 ;;45865046300
 ;;9002226.02101,"1044,45865046330 ",.01)
 ;;45865046330
 ;;9002226.02101,"1044,45865046330 ",.02)
 ;;45865046330
 ;;9002226.02101,"1044,45865046351 ",.01)
 ;;45865046351
 ;;9002226.02101,"1044,45865046351 ",.02)
 ;;45865046351
 ;;9002226.02101,"1044,45865046360 ",.01)
 ;;45865046360
 ;;9002226.02101,"1044,45865046360 ",.02)
 ;;45865046360
 ;;9002226.02101,"1044,45865046390 ",.01)
 ;;45865046390
 ;;9002226.02101,"1044,45865046390 ",.02)
 ;;45865046390
 ;;9002226.02101,"1044,45865049030 ",.01)
 ;;45865049030
 ;;9002226.02101,"1044,45865049030 ",.02)
 ;;45865049030
 ;;9002226.02101,"1044,45865049051 ",.01)
 ;;45865049051
 ;;9002226.02101,"1044,45865049051 ",.02)
 ;;45865049051
 ;;9002226.02101,"1044,45865049060 ",.01)
 ;;45865049060
 ;;9002226.02101,"1044,45865049060 ",.02)
 ;;45865049060
 ;;9002226.02101,"1044,45865049090 ",.01)
 ;;45865049090
 ;;9002226.02101,"1044,45865049090 ",.02)
 ;;45865049090
 ;;9002226.02101,"1044,45865050530 ",.01)
 ;;45865050530
 ;;9002226.02101,"1044,45865050530 ",.02)
 ;;45865050530
 ;;9002226.02101,"1044,45865050551 ",.01)
 ;;45865050551
 ;;9002226.02101,"1044,45865050551 ",.02)
 ;;45865050551
 ;;9002226.02101,"1044,45865050560 ",.01)
 ;;45865050560
 ;;9002226.02101,"1044,45865050560 ",.02)
 ;;45865050560
 ;;9002226.02101,"1044,45865050590 ",.01)
 ;;45865050590
 ;;9002226.02101,"1044,45865050590 ",.02)
 ;;45865050590
 ;;9002226.02101,"1044,45865052430 ",.01)
 ;;45865052430
 ;;9002226.02101,"1044,45865052430 ",.02)
 ;;45865052430
 ;;9002226.02101,"1044,45865052451 ",.01)
 ;;45865052451
 ;;9002226.02101,"1044,45865052451 ",.02)
 ;;45865052451
 ;;9002226.02101,"1044,45865052460 ",.01)
 ;;45865052460
 ;;9002226.02101,"1044,45865052460 ",.02)
 ;;45865052460
 ;;9002226.02101,"1044,45865052490 ",.01)
 ;;45865052490
 ;;9002226.02101,"1044,45865052490 ",.02)
 ;;45865052490
 ;;9002226.02101,"1044,45865053430 ",.01)
 ;;45865053430
 ;;9002226.02101,"1044,45865053430 ",.02)
 ;;45865053430
 ;;9002226.02101,"1044,45865053451 ",.01)
 ;;45865053451
 ;;9002226.02101,"1044,45865053451 ",.02)
 ;;45865053451
 ;;9002226.02101,"1044,45865053460 ",.01)
 ;;45865053460
 ;;9002226.02101,"1044,45865053460 ",.02)
 ;;45865053460
 ;;9002226.02101,"1044,45865053490 ",.01)
 ;;45865053490
 ;;9002226.02101,"1044,45865053490 ",.02)
 ;;45865053490
 ;;9002226.02101,"1044,45865053530 ",.01)
 ;;45865053530
 ;;9002226.02101,"1044,45865053530 ",.02)
 ;;45865053530
 ;;9002226.02101,"1044,45865053551 ",.01)
 ;;45865053551
 ;;9002226.02101,"1044,45865053551 ",.02)
 ;;45865053551
 ;;9002226.02101,"1044,45865053560 ",.01)
 ;;45865053560
 ;;9002226.02101,"1044,45865053560 ",.02)
 ;;45865053560
 ;;9002226.02101,"1044,45865053590 ",.01)
 ;;45865053590
 ;;9002226.02101,"1044,45865053590 ",.02)
 ;;45865053590
 ;;9002226.02101,"1044,46014110002 ",.01)
 ;;46014110002
 ;;9002226.02101,"1044,46014110002 ",.02)
 ;;46014110002
 ;;9002226.02101,"1044,47463001430 ",.01)
 ;;47463001430
 ;;9002226.02101,"1044,47463001430 ",.02)
 ;;47463001430
 ;;9002226.02101,"1044,47463001530 ",.01)
 ;;47463001530
 ;;9002226.02101,"1044,47463001530 ",.02)
 ;;47463001530
 ;;9002226.02101,"1044,47463001630 ",.01)
 ;;47463001630
 ;;9002226.02101,"1044,47463001630 ",.02)
 ;;47463001630
 ;;9002226.02101,"1044,47463001730 ",.01)
 ;;47463001730
 ;;9002226.02101,"1044,47463001730 ",.02)
 ;;47463001730
 ;;9002226.02101,"1044,47463007030 ",.01)
 ;;47463007030
 ;;9002226.02101,"1044,47463007030 ",.02)
 ;;47463007030
 ;;9002226.02101,"1044,47463007045 ",.01)
 ;;47463007045
 ;;9002226.02101,"1044,47463007045 ",.02)
 ;;47463007045
 ;;9002226.02101,"1044,47463007060 ",.01)
 ;;47463007060
 ;;9002226.02101,"1044,47463007060 ",.02)
 ;;47463007060
 ;;9002226.02101,"1044,47463007090 ",.01)
 ;;47463007090
 ;;9002226.02101,"1044,47463007090 ",.02)
 ;;47463007090
 ;;9002226.02101,"1044,47463007130 ",.01)
 ;;47463007130
 ;;9002226.02101,"1044,47463007130 ",.02)
 ;;47463007130
 ;;9002226.02101,"1044,47463007190 ",.01)
 ;;47463007190
 ;;9002226.02101,"1044,47463007190 ",.02)
 ;;47463007190
 ;;9002226.02101,"1044,47463057130 ",.01)
 ;;47463057130
 ;;9002226.02101,"1044,47463057130 ",.02)
 ;;47463057130
 ;;9002226.02101,"1044,47463057145 ",.01)
 ;;47463057145
 ;;9002226.02101,"1044,47463057145 ",.02)
 ;;47463057145
 ;;9002226.02101,"1044,47463057160 ",.01)
 ;;47463057160
 ;;9002226.02101,"1044,47463057160 ",.02)
 ;;47463057160
 ;;9002226.02101,"1044,47463077030 ",.01)
 ;;47463077030
 ;;9002226.02101,"1044,47463077030 ",.02)
 ;;47463077030
 ;;9002226.02101,"1044,47463077060 ",.01)
 ;;47463077060
 ;;9002226.02101,"1044,47463077060 ",.02)
 ;;47463077060
 ;;9002226.02101,"1044,47463077090 ",.01)
 ;;47463077090
 ;;9002226.02101,"1044,47463077090 ",.02)
 ;;47463077090
 ;;9002226.02101,"1044,47463077130 ",.01)
 ;;47463077130
 ;;9002226.02101,"1044,47463077130 ",.02)
 ;;47463077130
 ;;9002226.02101,"1044,47463077230 ",.01)
 ;;47463077230
 ;;9002226.02101,"1044,47463077230 ",.02)
 ;;47463077230
 ;;9002226.02101,"1044,47463077260 ",.01)
 ;;47463077260
 ;;9002226.02101,"1044,47463077260 ",.02)
 ;;47463077260
 ;;9002226.02101,"1044,47463077290 ",.01)
 ;;47463077290
 ;;9002226.02101,"1044,47463077290 ",.02)
 ;;47463077290
 ;;9002226.02101,"1044,47463080330 ",.01)
 ;;47463080330
 ;;9002226.02101,"1044,47463080330 ",.02)
 ;;47463080330
 ;;9002226.02101,"1044,47463080430 ",.01)
 ;;47463080430
 ;;9002226.02101,"1044,47463080430 ",.02)
 ;;47463080430
 ;;9002226.02101,"1044,47463081728 ",.01)
 ;;47463081728
 ;;9002226.02101,"1044,47463081728 ",.02)
 ;;47463081728
 ;;9002226.02101,"1044,47463081730 ",.01)
 ;;47463081730
 ;;9002226.02101,"1044,47463081730 ",.02)
 ;;47463081730
 ;;9002226.02101,"1044,47463081830 ",.01)
 ;;47463081830
 ;;9002226.02101,"1044,47463081830 ",.02)
 ;;47463081830
 ;;9002226.02101,"1044,47463082630 ",.01)
 ;;47463082630
 ;;9002226.02101,"1044,47463082630 ",.02)
 ;;47463082630
 ;;9002226.02101,"1044,47463082660 ",.01)
 ;;47463082660
 ;;9002226.02101,"1044,47463082660 ",.02)
 ;;47463082660
 ;;9002226.02101,"1044,49349001202 ",.01)
 ;;49349001202
 ;;9002226.02101,"1044,49349001202 ",.02)
 ;;49349001202
 ;;9002226.02101,"1044,49349003002 ",.01)
 ;;49349003002
 ;;9002226.02101,"1044,49349003002 ",.02)
 ;;49349003002
 ;;9002226.02101,"1044,49349005302 ",.01)
 ;;49349005302
 ;;9002226.02101,"1044,49349005302 ",.02)
 ;;49349005302
 ;;9002226.02101,"1044,49349006202 ",.01)
 ;;49349006202