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

BGPM5BFB.m

Go to the documentation of this file.
BGPM5BFB ;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,49999010860 ",.02)
 ;;49999010860
 ;;9002226.02101,"1084,49999011300 ",.01)
 ;;49999011300
 ;;9002226.02101,"1084,49999011300 ",.02)
 ;;49999011300
 ;;9002226.02101,"1084,49999011301 ",.01)
 ;;49999011301
 ;;9002226.02101,"1084,49999011301 ",.02)
 ;;49999011301
 ;;9002226.02101,"1084,49999011330 ",.01)
 ;;49999011330
 ;;9002226.02101,"1084,49999011330 ",.02)
 ;;49999011330
 ;;9002226.02101,"1084,49999011360 ",.01)
 ;;49999011360
 ;;9002226.02101,"1084,49999011360 ",.02)
 ;;49999011360
 ;;9002226.02101,"1084,49999011390 ",.01)
 ;;49999011390
 ;;9002226.02101,"1084,49999011390 ",.02)
 ;;49999011390
 ;;9002226.02101,"1084,49999011600 ",.01)
 ;;49999011600
 ;;9002226.02101,"1084,49999011600 ",.02)
 ;;49999011600
 ;;9002226.02101,"1084,49999011630 ",.01)
 ;;49999011630
 ;;9002226.02101,"1084,49999011630 ",.02)
 ;;49999011630
 ;;9002226.02101,"1084,49999011660 ",.01)
 ;;49999011660
 ;;9002226.02101,"1084,49999011660 ",.02)
 ;;49999011660
 ;;9002226.02101,"1084,49999040130 ",.01)
 ;;49999040130
 ;;9002226.02101,"1084,49999040130 ",.02)
 ;;49999040130
 ;;9002226.02101,"1084,49999040160 ",.01)
 ;;49999040160
 ;;9002226.02101,"1084,49999040160 ",.02)
 ;;49999040160
 ;;9002226.02101,"1084,49999049530 ",.01)
 ;;49999049530
 ;;9002226.02101,"1084,49999049530 ",.02)
 ;;49999049530
 ;;9002226.02101,"1084,49999049560 ",.01)
 ;;49999049560
 ;;9002226.02101,"1084,49999049560 ",.02)
 ;;49999049560
 ;;9002226.02101,"1084,49999051430 ",.01)
 ;;49999051430
 ;;9002226.02101,"1084,49999051430 ",.02)
 ;;49999051430
 ;;9002226.02101,"1084,49999057160 ",.01)
 ;;49999057160
 ;;9002226.02101,"1084,49999057160 ",.02)
 ;;49999057160
 ;;9002226.02101,"1084,49999078100 ",.01)
 ;;49999078100
 ;;9002226.02101,"1084,49999078100 ",.02)
 ;;49999078100
 ;;9002226.02101,"1084,49999080700 ",.01)
 ;;49999080700
 ;;9002226.02101,"1084,49999080700 ",.02)
 ;;49999080700
 ;;9002226.02101,"1084,49999080800 ",.01)
 ;;49999080800
 ;;9002226.02101,"1084,49999080800 ",.02)
 ;;49999080800
 ;;9002226.02101,"1084,49999082060 ",.01)
 ;;49999082060
 ;;9002226.02101,"1084,49999082060 ",.02)
 ;;49999082060
 ;;9002226.02101,"1084,50053312701 ",.01)
 ;;50053312701
 ;;9002226.02101,"1084,50053312701 ",.02)
 ;;50053312701
 ;;9002226.02101,"1084,50053312703 ",.01)
 ;;50053312703
 ;;9002226.02101,"1084,50053312703 ",.02)
 ;;50053312703
 ;;9002226.02101,"1084,50111037201 ",.01)
 ;;50111037201
 ;;9002226.02101,"1084,50111037201 ",.02)
 ;;50111037201
 ;;9002226.02101,"1084,50111037202 ",.01)
 ;;50111037202
 ;;9002226.02101,"1084,50111037202 ",.02)
 ;;50111037202
 ;;9002226.02101,"1084,50111037203 ",.01)
 ;;50111037203
 ;;9002226.02101,"1084,50111037203 ",.02)
 ;;50111037203
 ;;9002226.02101,"1084,50111037301 ",.01)
 ;;50111037301
 ;;9002226.02101,"1084,50111037301 ",.02)
 ;;50111037301
 ;;9002226.02101,"1084,50111037302 ",.01)
 ;;50111037302
 ;;9002226.02101,"1084,50111037302 ",.02)
 ;;50111037302
 ;;9002226.02101,"1084,50111037303 ",.01)
 ;;50111037303
 ;;9002226.02101,"1084,50111037303 ",.02)
 ;;50111037303
 ;;9002226.02101,"1084,50111037306 ",.01)
 ;;50111037306
 ;;9002226.02101,"1084,50111037306 ",.02)
 ;;50111037306
 ;;9002226.02101,"1084,50268053115 ",.01)
 ;;50268053115
 ;;9002226.02101,"1084,50268053115 ",.02)
 ;;50268053115
 ;;9002226.02101,"1084,51079020220 ",.01)
 ;;51079020220
 ;;9002226.02101,"1084,51079020220 ",.02)
 ;;51079020220
 ;;9002226.02101,"1084,51079020320 ",.01)
 ;;51079020320
 ;;9002226.02101,"1084,51079020320 ",.02)
 ;;51079020320
 ;;9002226.02101,"1084,51079042501 ",.01)
 ;;51079042501
 ;;9002226.02101,"1084,51079042501 ",.02)
 ;;51079042501
 ;;9002226.02101,"1084,51079042520 ",.01)
 ;;51079042520
 ;;9002226.02101,"1084,51079042520 ",.02)
 ;;51079042520
 ;;9002226.02101,"1084,51079042601 ",.01)
 ;;51079042601
 ;;9002226.02101,"1084,51079042601 ",.02)
 ;;51079042601
 ;;9002226.02101,"1084,51079042620 ",.01)
 ;;51079042620
 ;;9002226.02101,"1084,51079042620 ",.02)
 ;;51079042620
 ;;9002226.02101,"1084,51079056020 ",.01)
 ;;51079056020
 ;;9002226.02101,"1084,51079056020 ",.02)
 ;;51079056020
 ;;9002226.02101,"1084,51079062620 ",.01)
 ;;51079062620
 ;;9002226.02101,"1084,51079062620 ",.02)
 ;;51079062620
 ;;9002226.02101,"1084,51079062720 ",.01)
 ;;51079062720
 ;;9002226.02101,"1084,51079062720 ",.02)
 ;;51079062720
 ;;9002226.02101,"1084,51079081001 ",.01)
 ;;51079081001
 ;;9002226.02101,"1084,51079081001 ",.02)
 ;;51079081001
 ;;9002226.02101,"1084,51079081017 ",.01)
 ;;51079081017
 ;;9002226.02101,"1084,51079081017 ",.02)
 ;;51079081017
 ;;9002226.02101,"1084,51079081019 ",.01)
 ;;51079081019
 ;;9002226.02101,"1084,51079081019 ",.02)
 ;;51079081019
 ;;9002226.02101,"1084,51079081020 ",.01)
 ;;51079081020
 ;;9002226.02101,"1084,51079081020 ",.02)
 ;;51079081020
 ;;9002226.02101,"1084,51079081101 ",.01)
 ;;51079081101
 ;;9002226.02101,"1084,51079081101 ",.02)
 ;;51079081101
 ;;9002226.02101,"1084,51079081117 ",.01)
 ;;51079081117
 ;;9002226.02101,"1084,51079081117 ",.02)
 ;;51079081117
 ;;9002226.02101,"1084,51079081119 ",.01)
 ;;51079081119
 ;;9002226.02101,"1084,51079081119 ",.02)
 ;;51079081119
 ;;9002226.02101,"1084,51079081120 ",.01)
 ;;51079081120
 ;;9002226.02101,"1084,51079081120 ",.02)
 ;;51079081120
 ;;9002226.02101,"1084,51079087201 ",.01)
 ;;51079087201
 ;;9002226.02101,"1084,51079087201 ",.02)
 ;;51079087201
 ;;9002226.02101,"1084,51079087217 ",.01)
 ;;51079087217
 ;;9002226.02101,"1084,51079087217 ",.02)
 ;;51079087217
 ;;9002226.02101,"1084,51079087219 ",.01)
 ;;51079087219
 ;;9002226.02101,"1084,51079087219 ",.02)
 ;;51079087219
 ;;9002226.02101,"1084,51079087220 ",.01)
 ;;51079087220
 ;;9002226.02101,"1084,51079087220 ",.02)
 ;;51079087220
 ;;9002226.02101,"1084,51079087301 ",.01)
 ;;51079087301
 ;;9002226.02101,"1084,51079087301 ",.02)
 ;;51079087301
 ;;9002226.02101,"1084,51079087317 ",.01)
 ;;51079087317
 ;;9002226.02101,"1084,51079087317 ",.02)
 ;;51079087317
 ;;9002226.02101,"1084,51079087319 ",.01)
 ;;51079087319
 ;;9002226.02101,"1084,51079087319 ",.02)
 ;;51079087319
 ;;9002226.02101,"1084,51079087320 ",.01)
 ;;51079087320
 ;;9002226.02101,"1084,51079087320 ",.02)
 ;;51079087320
 ;;9002226.02101,"1084,51079097201 ",.01)
 ;;51079097201
 ;;9002226.02101,"1084,51079097201 ",.02)
 ;;51079097201
 ;;9002226.02101,"1084,51079097217 ",.01)
 ;;51079097217
 ;;9002226.02101,"1084,51079097217 ",.02)
 ;;51079097217
 ;;9002226.02101,"1084,51079097219 ",.01)
 ;;51079097219
 ;;9002226.02101,"1084,51079097219 ",.02)
 ;;51079097219
 ;;9002226.02101,"1084,51079097220 ",.01)
 ;;51079097220
 ;;9002226.02101,"1084,51079097220 ",.02)
 ;;51079097220
 ;;9002226.02101,"1084,51079097230 ",.01)
 ;;51079097230
 ;;9002226.02101,"1084,51079097230 ",.02)
 ;;51079097230
 ;;9002226.02101,"1084,51079097256 ",.01)
 ;;51079097256
 ;;9002226.02101,"1084,51079097256 ",.02)
 ;;51079097256
 ;;9002226.02101,"1084,51079097257 ",.01)
 ;;51079097257
 ;;9002226.02101,"1084,51079097257 ",.02)
 ;;51079097257
 ;;9002226.02101,"1084,51079097301 ",.01)
 ;;51079097301
 ;;9002226.02101,"1084,51079097301 ",.02)
 ;;51079097301
 ;;9002226.02101,"1084,51079097320 ",.01)
 ;;51079097320
 ;;9002226.02101,"1084,51079097320 ",.02)
 ;;51079097320
 ;;9002226.02101,"1084,51079099501 ",.01)
 ;;51079099501
 ;;9002226.02101,"1084,51079099501 ",.02)
 ;;51079099501
 ;;9002226.02101,"1084,51079099520 ",.01)
 ;;51079099520
 ;;9002226.02101,"1084,51079099520 ",.02)
 ;;51079099520
 ;;9002226.02101,"1084,51129128801 ",.01)
 ;;51129128801
 ;;9002226.02101,"1084,51129128801 ",.02)
 ;;51129128801
 ;;9002226.02101,"1084,51129140501 ",.01)
 ;;51129140501
 ;;9002226.02101,"1084,51129140501 ",.02)
 ;;51129140501
 ;;9002226.02101,"1084,51129145501 ",.01)
 ;;51129145501
 ;;9002226.02101,"1084,51129145501 ",.02)
 ;;51129145501
 ;;9002226.02101,"1084,51129148601 ",.01)
 ;;51129148601
 ;;9002226.02101,"1084,51129148601 ",.02)
 ;;51129148601
 ;;9002226.02101,"1084,51129148701 ",.01)
 ;;51129148701
 ;;9002226.02101,"1084,51129148701 ",.02)
 ;;51129148701
 ;;9002226.02101,"1084,51129157301 ",.01)
 ;;51129157301
 ;;9002226.02101,"1084,51129157301 ",.02)
 ;;51129157301
 ;;9002226.02101,"1084,51129162701 ",.01)
 ;;51129162701
 ;;9002226.02101,"1084,51129162701 ",.02)
 ;;51129162701
 ;;9002226.02101,"1084,51129165701 ",.01)
 ;;51129165701
 ;;9002226.02101,"1084,51129165701 ",.02)
 ;;51129165701
 ;;9002226.02101,"1084,51129171901 ",.01)
 ;;51129171901
 ;;9002226.02101,"1084,51129171901 ",.02)
 ;;51129171901
 ;;9002226.02101,"1084,51129172001 ",.01)
 ;;51129172001
 ;;9002226.02101,"1084,51129172001 ",.02)
 ;;51129172001
 ;;9002226.02101,"1084,51129176101 ",.01)
 ;;51129176101
 ;;9002226.02101,"1084,51129176101 ",.02)
 ;;51129176101
 ;;9002226.02101,"1084,51129176601 ",.01)
 ;;51129176601
 ;;9002226.02101,"1084,51129176601 ",.02)
 ;;51129176601
 ;;9002226.02101,"1084,51129179001 ",.01)
 ;;51129179001
 ;;9002226.02101,"1084,51129179001 ",.02)
 ;;51129179001
 ;;9002226.02101,"1084,51129191301 ",.01)
 ;;51129191301
 ;;9002226.02101,"1084,51129191301 ",.02)
 ;;51129191301
 ;;9002226.02101,"1084,51129191401 ",.01)
 ;;51129191401
 ;;9002226.02101,"1084,51129191401 ",.02)
 ;;51129191401
 ;;9002226.02101,"1084,51129196301 ",.01)
 ;;51129196301
 ;;9002226.02101,"1084,51129196301 ",.02)
 ;;51129196301
 ;;9002226.02101,"1084,51129196601 ",.01)
 ;;51129196601
 ;;9002226.02101,"1084,51129196601 ",.02)
 ;;51129196601
 ;;9002226.02101,"1084,51129203301 ",.01)
 ;;51129203301
 ;;9002226.02101,"1084,51129203301 ",.02)
 ;;51129203301
 ;;9002226.02101,"1084,51129203401 ",.01)
 ;;51129203401
 ;;9002226.02101,"1084,51129203401 ",.02)
 ;;51129203401
 ;;9002226.02101,"1084,51129205501 ",.01)
 ;;51129205501
 ;;9002226.02101,"1084,51129205501 ",.02)
 ;;51129205501
 ;;9002226.02101,"1084,51129206201 ",.01)
 ;;51129206201
 ;;9002226.02101,"1084,51129206201 ",.02)
 ;;51129206201
 ;;9002226.02101,"1084,51129207401 ",.01)
 ;;51129207401
 ;;9002226.02101,"1084,51129207401 ",.02)
 ;;51129207401
 ;;9002226.02101,"1084,51129212701 ",.01)
 ;;51129212701
 ;;9002226.02101,"1084,51129212701 ",.02)
 ;;51129212701
 ;;9002226.02101,"1084,51129231501 ",.01)
 ;;51129231501
 ;;9002226.02101,"1084,51129231501 ",.02)
 ;;51129231501
 ;;9002226.02101,"1084,51129241701 ",.01)
 ;;51129241701
 ;;9002226.02101,"1084,51129241701 ",.02)
 ;;51129241701
 ;;9002226.02101,"1084,51129241801 ",.01)
 ;;51129241801
 ;;9002226.02101,"1084,51129241801 ",.02)
 ;;51129241801
 ;;9002226.02101,"1084,51129246001 ",.01)
 ;;51129246001
 ;;9002226.02101,"1084,51129246001 ",.02)
 ;;51129246001
 ;;9002226.02101,"1084,51129246101 ",.01)
 ;;51129246101
 ;;9002226.02101,"1084,51129246101 ",.02)
 ;;51129246101
 ;;9002226.02101,"1084,51129257200 ",.01)
 ;;51129257200
 ;;9002226.02101,"1084,51129257200 ",.02)
 ;;51129257200
 ;;9002226.02101,"1084,51129261001 ",.01)
 ;;51129261001
 ;;9002226.02101,"1084,51129261001 ",.02)
 ;;51129261001
 ;;9002226.02101,"1084,51129262701 ",.01)
 ;;51129262701
 ;;9002226.02101,"1084,51129262701 ",.02)
 ;;51129262701
 ;;9002226.02101,"1084,51129268701 ",.01)
 ;;51129268701
 ;;9002226.02101,"1084,51129268701 ",.02)
 ;;51129268701
 ;;9002226.02101,"1084,51129272801 ",.01)
 ;;51129272801
 ;;9002226.02101,"1084,51129272801 ",.02)
 ;;51129272801
 ;;9002226.02101,"1084,51129274501 ",.01)
 ;;51129274501
 ;;9002226.02101,"1084,51129274501 ",.02)
 ;;51129274501
 ;;9002226.02101,"1084,51129284401 ",.01)
 ;;51129284401
 ;;9002226.02101,"1084,51129284401 ",.02)
 ;;51129284401
 ;;9002226.02101,"1084,51129284402 ",.01)
 ;;51129284402
 ;;9002226.02101,"1084,51129284402 ",.02)
 ;;51129284402