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

BGPM5BCO.m

Go to the documentation of this file.
BGPM5BCO ;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,52959051430 ",.01)
 ;;52959051430
 ;;9002226.02101,"1044,52959051430 ",.02)
 ;;52959051430
 ;;9002226.02101,"1044,52959051460 ",.01)
 ;;52959051460
 ;;9002226.02101,"1044,52959051460 ",.02)
 ;;52959051460
 ;;9002226.02101,"1044,52959051490 ",.01)
 ;;52959051490
 ;;9002226.02101,"1044,52959051490 ",.02)
 ;;52959051490
 ;;9002226.02101,"1044,52959051915 ",.01)
 ;;52959051915
 ;;9002226.02101,"1044,52959051915 ",.02)
 ;;52959051915
 ;;9002226.02101,"1044,52959051930 ",.01)
 ;;52959051930
 ;;9002226.02101,"1044,52959051930 ",.02)
 ;;52959051930
 ;;9002226.02101,"1044,52959051960 ",.01)
 ;;52959051960
 ;;9002226.02101,"1044,52959051960 ",.02)
 ;;52959051960
 ;;9002226.02101,"1044,52959054214 ",.01)
 ;;52959054214
 ;;9002226.02101,"1044,52959054214 ",.02)
 ;;52959054214
 ;;9002226.02101,"1044,52959054215 ",.01)
 ;;52959054215
 ;;9002226.02101,"1044,52959054215 ",.02)
 ;;52959054215
 ;;9002226.02101,"1044,52959054221 ",.01)
 ;;52959054221
 ;;9002226.02101,"1044,52959054221 ",.02)
 ;;52959054221
 ;;9002226.02101,"1044,52959054228 ",.01)
 ;;52959054228
 ;;9002226.02101,"1044,52959054228 ",.02)
 ;;52959054228
 ;;9002226.02101,"1044,52959054230 ",.01)
 ;;52959054230
 ;;9002226.02101,"1044,52959054230 ",.02)
 ;;52959054230
 ;;9002226.02101,"1044,52959054240 ",.01)
 ;;52959054240
 ;;9002226.02101,"1044,52959054240 ",.02)
 ;;52959054240
 ;;9002226.02101,"1044,52959054242 ",.01)
 ;;52959054242
 ;;9002226.02101,"1044,52959054242 ",.02)
 ;;52959054242
 ;;9002226.02101,"1044,52959060330 ",.01)
 ;;52959060330
 ;;9002226.02101,"1044,52959060330 ",.02)
 ;;52959060330
 ;;9002226.02101,"1044,52959060630 ",.01)
 ;;52959060630
 ;;9002226.02101,"1044,52959060630 ",.02)
 ;;52959060630
 ;;9002226.02101,"1044,52959060660 ",.01)
 ;;52959060660
 ;;9002226.02101,"1044,52959060660 ",.02)
 ;;52959060660
 ;;9002226.02101,"1044,52959066930 ",.01)
 ;;52959066930
 ;;9002226.02101,"1044,52959066930 ",.02)
 ;;52959066930
 ;;9002226.02101,"1044,52959066959 ",.01)
 ;;52959066959
 ;;9002226.02101,"1044,52959066959 ",.02)
 ;;52959066959
 ;;9002226.02101,"1044,52959066960 ",.01)
 ;;52959066960
 ;;9002226.02101,"1044,52959066960 ",.02)
 ;;52959066960
 ;;9002226.02101,"1044,52959071730 ",.01)
 ;;52959071730
 ;;9002226.02101,"1044,52959071730 ",.02)
 ;;52959071730
 ;;9002226.02101,"1044,52959073200 ",.01)
 ;;52959073200
 ;;9002226.02101,"1044,52959073200 ",.02)
 ;;52959073200
 ;;9002226.02101,"1044,52959073210 ",.01)
 ;;52959073210
 ;;9002226.02101,"1044,52959073210 ",.02)
 ;;52959073210
 ;;9002226.02101,"1044,52959073214 ",.01)
 ;;52959073214
 ;;9002226.02101,"1044,52959073214 ",.02)
 ;;52959073214
 ;;9002226.02101,"1044,52959073215 ",.01)
 ;;52959073215
 ;;9002226.02101,"1044,52959073215 ",.02)
 ;;52959073215
 ;;9002226.02101,"1044,52959073220 ",.01)
 ;;52959073220
 ;;9002226.02101,"1044,52959073220 ",.02)
 ;;52959073220
 ;;9002226.02101,"1044,52959073230 ",.01)
 ;;52959073230
 ;;9002226.02101,"1044,52959073230 ",.02)
 ;;52959073230
 ;;9002226.02101,"1044,52959073240 ",.01)
 ;;52959073240
 ;;9002226.02101,"1044,52959073240 ",.02)
 ;;52959073240
 ;;9002226.02101,"1044,52959073250 ",.01)
 ;;52959073250
 ;;9002226.02101,"1044,52959073250 ",.02)
 ;;52959073250
 ;;9002226.02101,"1044,52959073260 ",.01)
 ;;52959073260
 ;;9002226.02101,"1044,52959073260 ",.02)
 ;;52959073260
 ;;9002226.02101,"1044,52959073290 ",.01)
 ;;52959073290
 ;;9002226.02101,"1044,52959073290 ",.02)
 ;;52959073290
 ;;9002226.02101,"1044,52959077330 ",.01)
 ;;52959077330
 ;;9002226.02101,"1044,52959077330 ",.02)
 ;;52959077330
 ;;9002226.02101,"1044,52959077352 ",.01)
 ;;52959077352
 ;;9002226.02101,"1044,52959077352 ",.02)
 ;;52959077352
 ;;9002226.02101,"1044,52959077360 ",.01)
 ;;52959077360
 ;;9002226.02101,"1044,52959077360 ",.02)
 ;;52959077360
 ;;9002226.02101,"1044,52959077430 ",.01)
 ;;52959077430
 ;;9002226.02101,"1044,52959077430 ",.02)
 ;;52959077430
 ;;9002226.02101,"1044,52959077460 ",.01)
 ;;52959077460
 ;;9002226.02101,"1044,52959077460 ",.02)
 ;;52959077460
 ;;9002226.02101,"1044,52959077530 ",.01)
 ;;52959077530
 ;;9002226.02101,"1044,52959077530 ",.02)
 ;;52959077530
 ;;9002226.02101,"1044,52959077550 ",.01)
 ;;52959077550
 ;;9002226.02101,"1044,52959077550 ",.02)
 ;;52959077550
 ;;9002226.02101,"1044,52959077560 ",.01)
 ;;52959077560
 ;;9002226.02101,"1044,52959077560 ",.02)
 ;;52959077560
 ;;9002226.02101,"1044,52959077630 ",.01)
 ;;52959077630
 ;;9002226.02101,"1044,52959077630 ",.02)
 ;;52959077630
 ;;9002226.02101,"1044,52959077660 ",.01)
 ;;52959077660
 ;;9002226.02101,"1044,52959077660 ",.02)
 ;;52959077660
 ;;9002226.02101,"1044,52959079130 ",.01)
 ;;52959079130
 ;;9002226.02101,"1044,52959079130 ",.02)
 ;;52959079130
 ;;9002226.02101,"1044,52959084030 ",.01)
 ;;52959084030
 ;;9002226.02101,"1044,52959084030 ",.02)
 ;;52959084030
 ;;9002226.02101,"1044,52959084060 ",.01)
 ;;52959084060
 ;;9002226.02101,"1044,52959084060 ",.02)
 ;;52959084060
 ;;9002226.02101,"1044,52959087230 ",.01)
 ;;52959087230
 ;;9002226.02101,"1044,52959087230 ",.02)
 ;;52959087230
 ;;9002226.02101,"1044,52959087260 ",.01)
 ;;52959087260
 ;;9002226.02101,"1044,52959087260 ",.02)
 ;;52959087260
 ;;9002226.02101,"1044,52959087530 ",.01)
 ;;52959087530
 ;;9002226.02101,"1044,52959087530 ",.02)
 ;;52959087530
 ;;9002226.02101,"1044,52959087560 ",.01)
 ;;52959087560
 ;;9002226.02101,"1044,52959087560 ",.02)
 ;;52959087560
 ;;9002226.02101,"1044,52959087590 ",.01)
 ;;52959087590
 ;;9002226.02101,"1044,52959087590 ",.02)
 ;;52959087590
 ;;9002226.02101,"1044,52959087630 ",.01)
 ;;52959087630
 ;;9002226.02101,"1044,52959087630 ",.02)
 ;;52959087630
 ;;9002226.02101,"1044,52959087660 ",.01)
 ;;52959087660
 ;;9002226.02101,"1044,52959087660 ",.02)
 ;;52959087660
 ;;9002226.02101,"1044,52959089030 ",.01)
 ;;52959089030
 ;;9002226.02101,"1044,52959089030 ",.02)
 ;;52959089030
 ;;9002226.02101,"1044,52959089060 ",.01)
 ;;52959089060
 ;;9002226.02101,"1044,52959089060 ",.02)
 ;;52959089060
 ;;9002226.02101,"1044,52959089090 ",.01)
 ;;52959089090
 ;;9002226.02101,"1044,52959089090 ",.02)
 ;;52959089090
 ;;9002226.02101,"1044,52959089430 ",.01)
 ;;52959089430
 ;;9002226.02101,"1044,52959089430 ",.02)
 ;;52959089430
 ;;9002226.02101,"1044,52959089460 ",.01)
 ;;52959089460
 ;;9002226.02101,"1044,52959089460 ",.02)
 ;;52959089460
 ;;9002226.02101,"1044,52959090030 ",.01)
 ;;52959090030
 ;;9002226.02101,"1044,52959090030 ",.02)
 ;;52959090030
 ;;9002226.02101,"1044,52959090130 ",.01)
 ;;52959090130
 ;;9002226.02101,"1044,52959090130 ",.02)
 ;;52959090130
 ;;9002226.02101,"1044,52959097204 ",.01)
 ;;52959097204
 ;;9002226.02101,"1044,52959097204 ",.02)
 ;;52959097204
 ;;9002226.02101,"1044,52959098630 ",.01)
 ;;52959098630
 ;;9002226.02101,"1044,52959098630 ",.02)
 ;;52959098630
 ;;9002226.02101,"1044,52959099130 ",.01)
 ;;52959099130
 ;;9002226.02101,"1044,52959099130 ",.02)
 ;;52959099130
 ;;9002226.02101,"1044,53002049100 ",.01)
 ;;53002049100
 ;;9002226.02101,"1044,53002049100 ",.02)
 ;;53002049100
 ;;9002226.02101,"1044,53002049120 ",.01)
 ;;53002049120
 ;;9002226.02101,"1044,53002049120 ",.02)
 ;;53002049120
 ;;9002226.02101,"1044,53002049130 ",.01)
 ;;53002049130
 ;;9002226.02101,"1044,53002049130 ",.02)
 ;;53002049130
 ;;9002226.02101,"1044,53002049150 ",.01)
 ;;53002049150
 ;;9002226.02101,"1044,53002049150 ",.02)
 ;;53002049150
 ;;9002226.02101,"1044,53002049160 ",.01)
 ;;53002049160
 ;;9002226.02101,"1044,53002049160 ",.02)
 ;;53002049160
 ;;9002226.02101,"1044,53002106600 ",.01)
 ;;53002106600
 ;;9002226.02101,"1044,53002106600 ",.02)
 ;;53002106600
 ;;9002226.02101,"1044,53002106602 ",.01)
 ;;53002106602
 ;;9002226.02101,"1044,53002106602 ",.02)
 ;;53002106602
 ;;9002226.02101,"1044,53002106603 ",.01)
 ;;53002106603
 ;;9002226.02101,"1044,53002106603 ",.02)
 ;;53002106603
 ;;9002226.02101,"1044,53002106605 ",.01)
 ;;53002106605
 ;;9002226.02101,"1044,53002106605 ",.02)
 ;;53002106605
 ;;9002226.02101,"1044,53002106606 ",.01)
 ;;53002106606
 ;;9002226.02101,"1044,53002106606 ",.02)
 ;;53002106606
 ;;9002226.02101,"1044,53104759601 ",.01)
 ;;53104759601
 ;;9002226.02101,"1044,53104759601 ",.02)
 ;;53104759601
 ;;9002226.02101,"1044,53104759701 ",.01)
 ;;53104759701
 ;;9002226.02101,"1044,53104759701 ",.02)
 ;;53104759701
 ;;9002226.02101,"1044,53104759801 ",.01)
 ;;53104759801
 ;;9002226.02101,"1044,53104759801 ",.02)
 ;;53104759801
 ;;9002226.02101,"1044,53489010401 ",.01)
 ;;53489010401
 ;;9002226.02101,"1044,53489010401 ",.02)
 ;;53489010401
 ;;9002226.02101,"1044,53489010407 ",.01)
 ;;53489010407
 ;;9002226.02101,"1044,53489010407 ",.02)
 ;;53489010407
 ;;9002226.02101,"1044,53489010501 ",.01)
 ;;53489010501
 ;;9002226.02101,"1044,53489010501 ",.02)
 ;;53489010501
 ;;9002226.02101,"1044,53489010507 ",.01)
 ;;53489010507
 ;;9002226.02101,"1044,53489010507 ",.02)
 ;;53489010507
 ;;9002226.02101,"1044,53489010510 ",.01)
 ;;53489010510
 ;;9002226.02101,"1044,53489010510 ",.02)
 ;;53489010510
 ;;9002226.02101,"1044,53489010601 ",.01)
 ;;53489010601
 ;;9002226.02101,"1044,53489010601 ",.02)
 ;;53489010601
 ;;9002226.02101,"1044,53489010607 ",.01)
 ;;53489010607
 ;;9002226.02101,"1044,53489010607 ",.02)
 ;;53489010607
 ;;9002226.02101,"1044,53489010701 ",.01)
 ;;53489010701
 ;;9002226.02101,"1044,53489010701 ",.02)
 ;;53489010701
 ;;9002226.02101,"1044,53489010705 ",.01)
 ;;53489010705
 ;;9002226.02101,"1044,53489010705 ",.02)
 ;;53489010705
 ;;9002226.02101,"1044,53489010707 ",.01)
 ;;53489010707
 ;;9002226.02101,"1044,53489010707 ",.02)
 ;;53489010707
 ;;9002226.02101,"1044,53489010801 ",.01)
 ;;53489010801
 ;;9002226.02101,"1044,53489010801 ",.02)
 ;;53489010801
 ;;9002226.02101,"1044,53489010807 ",.01)
 ;;53489010807
 ;;9002226.02101,"1044,53489010807 ",.02)
 ;;53489010807
 ;;9002226.02101,"1044,53489010901 ",.01)
 ;;53489010901
 ;;9002226.02101,"1044,53489010901 ",.02)
 ;;53489010901
 ;;9002226.02101,"1044,53489010907 ",.01)
 ;;53489010907
 ;;9002226.02101,"1044,53489010907 ",.02)
 ;;53489010907
 ;;9002226.02101,"1044,53489033001 ",.01)
 ;;53489033001
 ;;9002226.02101,"1044,53489033001 ",.02)
 ;;53489033001
 ;;9002226.02101,"1044,53489033007 ",.01)
 ;;53489033007
 ;;9002226.02101,"1044,53489033007 ",.02)
 ;;53489033007
 ;;9002226.02101,"1044,53489033101 ",.01)
 ;;53489033101
 ;;9002226.02101,"1044,53489033101 ",.02)
 ;;53489033101
 ;;9002226.02101,"1044,53489033107 ",.01)
 ;;53489033107
 ;;9002226.02101,"1044,53489033107 ",.02)
 ;;53489033107
 ;;9002226.02101,"1044,53489033201 ",.01)
 ;;53489033201
 ;;9002226.02101,"1044,53489033201 ",.02)
 ;;53489033201
 ;;9002226.02101,"1044,53489033207 ",.01)
 ;;53489033207
 ;;9002226.02101,"1044,53489033207 ",.02)
 ;;53489033207
 ;;9002226.02101,"1044,53489051001 ",.01)
 ;;53489051001
 ;;9002226.02101,"1044,53489051001 ",.02)
 ;;53489051001
 ;;9002226.02101,"1044,53489051007 ",.01)
 ;;53489051007
 ;;9002226.02101,"1044,53489051007 ",.02)
 ;;53489051007
 ;;9002226.02101,"1044,53489051101 ",.01)
 ;;53489051101
 ;;9002226.02101,"1044,53489051101 ",.02)
 ;;53489051101
 ;;9002226.02101,"1044,53489051107 ",.01)
 ;;53489051107
 ;;9002226.02101,"1044,53489051107 ",.02)
 ;;53489051107
 ;;9002226.02101,"1044,53489051701 ",.01)
 ;;53489051701
 ;;9002226.02101,"1044,53489051701 ",.02)
 ;;53489051701
 ;;9002226.02101,"1044,53489051707 ",.01)
 ;;53489051707
 ;;9002226.02101,"1044,53489051707 ",.02)
 ;;53489051707
 ;;9002226.02101,"1044,53808019601 ",.01)
 ;;53808019601
 ;;9002226.02101,"1044,53808019601 ",.02)
 ;;53808019601
 ;;9002226.02101,"1044,53808019701 ",.01)
 ;;53808019701