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

BGPM5BBZ.m

Go to the documentation of this file.
BGPM5BBZ ;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,21695009390 ",.01)
 ;;21695009390
 ;;9002226.02101,"1044,21695009390 ",.02)
 ;;21695009390
 ;;9002226.02101,"1044,21695009430 ",.01)
 ;;21695009430
 ;;9002226.02101,"1044,21695009430 ",.02)
 ;;21695009430
 ;;9002226.02101,"1044,21695009460 ",.01)
 ;;21695009460
 ;;9002226.02101,"1044,21695009460 ",.02)
 ;;21695009460
 ;;9002226.02101,"1044,21695009490 ",.01)
 ;;21695009490
 ;;9002226.02101,"1044,21695009490 ",.02)
 ;;21695009490
 ;;9002226.02101,"1044,21695010130 ",.01)
 ;;21695010130
 ;;9002226.02101,"1044,21695010130 ",.02)
 ;;21695010130
 ;;9002226.02101,"1044,21695010160 ",.01)
 ;;21695010160
 ;;9002226.02101,"1044,21695010160 ",.02)
 ;;21695010160
 ;;9002226.02101,"1044,21695010190 ",.01)
 ;;21695010190
 ;;9002226.02101,"1044,21695010190 ",.02)
 ;;21695010190
 ;;9002226.02101,"1044,21695010230 ",.01)
 ;;21695010230
 ;;9002226.02101,"1044,21695010230 ",.02)
 ;;21695010230
 ;;9002226.02101,"1044,21695010260 ",.01)
 ;;21695010260
 ;;9002226.02101,"1044,21695010260 ",.02)
 ;;21695010260
 ;;9002226.02101,"1044,21695010290 ",.01)
 ;;21695010290
 ;;9002226.02101,"1044,21695010290 ",.02)
 ;;21695010290
 ;;9002226.02101,"1044,21695010330 ",.01)
 ;;21695010330
 ;;9002226.02101,"1044,21695010330 ",.02)
 ;;21695010330
 ;;9002226.02101,"1044,21695010390 ",.01)
 ;;21695010390
 ;;9002226.02101,"1044,21695010390 ",.02)
 ;;21695010390
 ;;9002226.02101,"1044,21695010430 ",.01)
 ;;21695010430
 ;;9002226.02101,"1044,21695010430 ",.02)
 ;;21695010430
 ;;9002226.02101,"1044,21695010460 ",.01)
 ;;21695010460
 ;;9002226.02101,"1044,21695010460 ",.02)
 ;;21695010460
 ;;9002226.02101,"1044,21695010490 ",.01)
 ;;21695010490
 ;;9002226.02101,"1044,21695010490 ",.02)
 ;;21695010490
 ;;9002226.02101,"1044,21695013330 ",.01)
 ;;21695013330
 ;;9002226.02101,"1044,21695013330 ",.02)
 ;;21695013330
 ;;9002226.02101,"1044,21695013360 ",.01)
 ;;21695013360
 ;;9002226.02101,"1044,21695013360 ",.02)
 ;;21695013360
 ;;9002226.02101,"1044,21695013372 ",.01)
 ;;21695013372
 ;;9002226.02101,"1044,21695013372 ",.02)
 ;;21695013372
 ;;9002226.02101,"1044,21695013390 ",.01)
 ;;21695013390
 ;;9002226.02101,"1044,21695013390 ",.02)
 ;;21695013390
 ;;9002226.02101,"1044,21695013430 ",.01)
 ;;21695013430
 ;;9002226.02101,"1044,21695013430 ",.02)
 ;;21695013430
 ;;9002226.02101,"1044,21695013460 ",.01)
 ;;21695013460
 ;;9002226.02101,"1044,21695013460 ",.02)
 ;;21695013460
 ;;9002226.02101,"1044,21695013490 ",.01)
 ;;21695013490
 ;;9002226.02101,"1044,21695013490 ",.02)
 ;;21695013490
 ;;9002226.02101,"1044,21695013530 ",.01)
 ;;21695013530
 ;;9002226.02101,"1044,21695013530 ",.02)
 ;;21695013530
 ;;9002226.02101,"1044,21695013560 ",.01)
 ;;21695013560
 ;;9002226.02101,"1044,21695013560 ",.02)
 ;;21695013560
 ;;9002226.02101,"1044,21695016430 ",.01)
 ;;21695016430
 ;;9002226.02101,"1044,21695016430 ",.02)
 ;;21695016430
 ;;9002226.02101,"1044,21695016530 ",.01)
 ;;21695016530
 ;;9002226.02101,"1044,21695016530 ",.02)
 ;;21695016530
 ;;9002226.02101,"1044,21695016560 ",.01)
 ;;21695016560
 ;;9002226.02101,"1044,21695016560 ",.02)
 ;;21695016560
 ;;9002226.02101,"1044,21695016590 ",.01)
 ;;21695016590
 ;;9002226.02101,"1044,21695016590 ",.02)
 ;;21695016590
 ;;9002226.02101,"1044,21695016630 ",.01)
 ;;21695016630
 ;;9002226.02101,"1044,21695016630 ",.02)
 ;;21695016630
 ;;9002226.02101,"1044,21695016660 ",.01)
 ;;21695016660
 ;;9002226.02101,"1044,21695016660 ",.02)
 ;;21695016660
 ;;9002226.02101,"1044,21695016690 ",.01)
 ;;21695016690
 ;;9002226.02101,"1044,21695016690 ",.02)
 ;;21695016690
 ;;9002226.02101,"1044,21695025130 ",.01)
 ;;21695025130
 ;;9002226.02101,"1044,21695025130 ",.02)
 ;;21695025130
 ;;9002226.02101,"1044,21695025160 ",.01)
 ;;21695025160
 ;;9002226.02101,"1044,21695025160 ",.02)
 ;;21695025160
 ;;9002226.02101,"1044,21695025190 ",.01)
 ;;21695025190
 ;;9002226.02101,"1044,21695025190 ",.02)
 ;;21695025190
 ;;9002226.02101,"1044,21695025230 ",.01)
 ;;21695025230
 ;;9002226.02101,"1044,21695025230 ",.02)
 ;;21695025230
 ;;9002226.02101,"1044,21695025260 ",.01)
 ;;21695025260
 ;;9002226.02101,"1044,21695025260 ",.02)
 ;;21695025260
 ;;9002226.02101,"1044,21695025290 ",.01)
 ;;21695025290
 ;;9002226.02101,"1044,21695025290 ",.02)
 ;;21695025290
 ;;9002226.02101,"1044,21695025330 ",.01)
 ;;21695025330
 ;;9002226.02101,"1044,21695025330 ",.02)
 ;;21695025330
 ;;9002226.02101,"1044,21695025360 ",.01)
 ;;21695025360
 ;;9002226.02101,"1044,21695025360 ",.02)
 ;;21695025360
 ;;9002226.02101,"1044,21695025390 ",.01)
 ;;21695025390
 ;;9002226.02101,"1044,21695025390 ",.02)
 ;;21695025390
 ;;9002226.02101,"1044,21695032000 ",.01)
 ;;21695032000
 ;;9002226.02101,"1044,21695032000 ",.02)
 ;;21695032000
 ;;9002226.02101,"1044,21695032090 ",.01)
 ;;21695032090
 ;;9002226.02101,"1044,21695032090 ",.02)
 ;;21695032090
 ;;9002226.02101,"1044,21695032100 ",.01)
 ;;21695032100
 ;;9002226.02101,"1044,21695032100 ",.02)
 ;;21695032100
 ;;9002226.02101,"1044,21695032130 ",.01)
 ;;21695032130
 ;;9002226.02101,"1044,21695032130 ",.02)
 ;;21695032130
 ;;9002226.02101,"1044,21695032160 ",.01)
 ;;21695032160
 ;;9002226.02101,"1044,21695032160 ",.02)
 ;;21695032160
 ;;9002226.02101,"1044,21695032190 ",.01)
 ;;21695032190
 ;;9002226.02101,"1044,21695032190 ",.02)
 ;;21695032190
 ;;9002226.02101,"1044,21695044630 ",.01)
 ;;21695044630
 ;;9002226.02101,"1044,21695044630 ",.02)
 ;;21695044630
 ;;9002226.02101,"1044,21695044690 ",.01)
 ;;21695044690
 ;;9002226.02101,"1044,21695044690 ",.02)
 ;;21695044690
 ;;9002226.02101,"1044,21695046590 ",.01)
 ;;21695046590
 ;;9002226.02101,"1044,21695046590 ",.02)
 ;;21695046590
 ;;9002226.02101,"1044,21695055230 ",.01)
 ;;21695055230
 ;;9002226.02101,"1044,21695055230 ",.02)
 ;;21695055230
 ;;9002226.02101,"1044,21695059630 ",.01)
 ;;21695059630
 ;;9002226.02101,"1044,21695059630 ",.02)
 ;;21695059630
 ;;9002226.02101,"1044,21695059930 ",.01)
 ;;21695059930
 ;;9002226.02101,"1044,21695059930 ",.02)
 ;;21695059930
 ;;9002226.02101,"1044,21695059960 ",.01)
 ;;21695059960
 ;;9002226.02101,"1044,21695059960 ",.02)
 ;;21695059960
 ;;9002226.02101,"1044,21695059990 ",.01)
 ;;21695059990
 ;;9002226.02101,"1044,21695059990 ",.02)
 ;;21695059990
 ;;9002226.02101,"1044,21695060030 ",.01)
 ;;21695060030
 ;;9002226.02101,"1044,21695060030 ",.02)
 ;;21695060030
 ;;9002226.02101,"1044,21695065530 ",.01)
 ;;21695065530
 ;;9002226.02101,"1044,21695065530 ",.02)
 ;;21695065530
 ;;9002226.02101,"1044,21695067002 ",.01)
 ;;21695067002
 ;;9002226.02101,"1044,21695067002 ",.02)
 ;;21695067002
 ;;9002226.02101,"1044,21695071560 ",.01)
 ;;21695071560
 ;;9002226.02101,"1044,21695071560 ",.02)
 ;;21695071560
 ;;9002226.02101,"1044,21695071630 ",.01)
 ;;21695071630
 ;;9002226.02101,"1044,21695071630 ",.02)
 ;;21695071630
 ;;9002226.02101,"1044,21695071930 ",.01)
 ;;21695071930
 ;;9002226.02101,"1044,21695071930 ",.02)
 ;;21695071930
 ;;9002226.02101,"1044,21695071960 ",.01)
 ;;21695071960
 ;;9002226.02101,"1044,21695071960 ",.02)
 ;;21695071960
 ;;9002226.02101,"1044,21695071990 ",.01)
 ;;21695071990
 ;;9002226.02101,"1044,21695071990 ",.02)
 ;;21695071990
 ;;9002226.02101,"1044,21695072060 ",.01)
 ;;21695072060
 ;;9002226.02101,"1044,21695072060 ",.02)
 ;;21695072060
 ;;9002226.02101,"1044,23490006503 ",.01)
 ;;23490006503
 ;;9002226.02101,"1044,23490006503 ",.02)
 ;;23490006503
 ;;9002226.02101,"1044,23490006506 ",.01)
 ;;23490006506
 ;;9002226.02101,"1044,23490006506 ",.02)
 ;;23490006506
 ;;9002226.02101,"1044,23490006509 ",.01)
 ;;23490006509
 ;;9002226.02101,"1044,23490006509 ",.02)
 ;;23490006509
 ;;9002226.02101,"1044,23490006706 ",.01)
 ;;23490006706
 ;;9002226.02101,"1044,23490006706 ",.02)
 ;;23490006706
 ;;9002226.02101,"1044,23490006803 ",.01)
 ;;23490006803
 ;;9002226.02101,"1044,23490006803 ",.02)
 ;;23490006803
 ;;9002226.02101,"1044,23490006805 ",.01)
 ;;23490006805
 ;;9002226.02101,"1044,23490006805 ",.02)
 ;;23490006805
 ;;9002226.02101,"1044,23490006806 ",.01)
 ;;23490006806
 ;;9002226.02101,"1044,23490006806 ",.02)
 ;;23490006806
 ;;9002226.02101,"1044,23490032400 ",.01)
 ;;23490032400
 ;;9002226.02101,"1044,23490032400 ",.02)
 ;;23490032400
 ;;9002226.02101,"1044,23490032403 ",.01)
 ;;23490032403
 ;;9002226.02101,"1044,23490032403 ",.02)
 ;;23490032403
 ;;9002226.02101,"1044,23490032406 ",.01)
 ;;23490032406
 ;;9002226.02101,"1044,23490032406 ",.02)
 ;;23490032406
 ;;9002226.02101,"1044,23490032409 ",.01)
 ;;23490032409
 ;;9002226.02101,"1044,23490032409 ",.02)
 ;;23490032409
 ;;9002226.02101,"1044,23490033201 ",.01)
 ;;23490033201
 ;;9002226.02101,"1044,23490033201 ",.02)
 ;;23490033201
 ;;9002226.02101,"1044,23490043303 ",.01)
 ;;23490043303
 ;;9002226.02101,"1044,23490043303 ",.02)
 ;;23490043303
 ;;9002226.02101,"1044,23490050708 ",.01)
 ;;23490050708
 ;;9002226.02101,"1044,23490050708 ",.02)
 ;;23490050708
 ;;9002226.02101,"1044,23490050803 ",.01)
 ;;23490050803
 ;;9002226.02101,"1044,23490050803 ",.02)
 ;;23490050803
 ;;9002226.02101,"1044,23490060703 ",.01)
 ;;23490060703
 ;;9002226.02101,"1044,23490060703 ",.02)
 ;;23490060703
 ;;9002226.02101,"1044,23490060706 ",.01)
 ;;23490060706
 ;;9002226.02101,"1044,23490060706 ",.02)
 ;;23490060706
 ;;9002226.02101,"1044,23490060709 ",.01)
 ;;23490060709
 ;;9002226.02101,"1044,23490060709 ",.02)
 ;;23490060709
 ;;9002226.02101,"1044,23490102009 ",.01)
 ;;23490102009
 ;;9002226.02101,"1044,23490102009 ",.02)
 ;;23490102009
 ;;9002226.02101,"1044,23490102200 ",.01)
 ;;23490102200
 ;;9002226.02101,"1044,23490102200 ",.02)
 ;;23490102200
 ;;9002226.02101,"1044,23490110908 ",.01)
 ;;23490110908
 ;;9002226.02101,"1044,23490110908 ",.02)
 ;;23490110908
 ;;9002226.02101,"1044,23490143100 ",.01)
 ;;23490143100
 ;;9002226.02101,"1044,23490143100 ",.02)
 ;;23490143100
 ;;9002226.02101,"1044,23490151009 ",.01)
 ;;23490151009
 ;;9002226.02101,"1044,23490151009 ",.02)
 ;;23490151009
 ;;9002226.02101,"1044,23490151100 ",.01)
 ;;23490151100
 ;;9002226.02101,"1044,23490151100 ",.02)
 ;;23490151100
 ;;9002226.02101,"1044,23490151201 ",.01)
 ;;23490151201
 ;;9002226.02101,"1044,23490151201 ",.02)
 ;;23490151201
 ;;9002226.02101,"1044,23490261000 ",.01)
 ;;23490261000
 ;;9002226.02101,"1044,23490261000 ",.02)
 ;;23490261000
 ;;9002226.02101,"1044,23490268501 ",.01)
 ;;23490268501
 ;;9002226.02101,"1044,23490268501 ",.02)
 ;;23490268501
 ;;9002226.02101,"1044,23490435600 ",.01)
 ;;23490435600
 ;;9002226.02101,"1044,23490435600 ",.02)
 ;;23490435600
 ;;9002226.02101,"1044,23490504700 ",.01)
 ;;23490504700
 ;;9002226.02101,"1044,23490504700 ",.02)
 ;;23490504700
 ;;9002226.02101,"1044,23490504701 ",.01)
 ;;23490504701
 ;;9002226.02101,"1044,23490504701 ",.02)
 ;;23490504701
 ;;9002226.02101,"1044,23490504702 ",.01)
 ;;23490504702
 ;;9002226.02101,"1044,23490504702 ",.02)
 ;;23490504702
 ;;9002226.02101,"1044,23490504703 ",.01)
 ;;23490504703
 ;;9002226.02101,"1044,23490504703 ",.02)
 ;;23490504703
 ;;9002226.02101,"1044,23490504704 ",.01)
 ;;23490504704
 ;;9002226.02101,"1044,23490504704 ",.02)
 ;;23490504704
 ;;9002226.02101,"1044,23490505000 ",.01)
 ;;23490505000
 ;;9002226.02101,"1044,23490505000 ",.02)
 ;;23490505000
 ;;9002226.02101,"1044,23490505001 ",.01)
 ;;23490505001
 ;;9002226.02101,"1044,23490505001 ",.02)
 ;;23490505001
 ;;9002226.02101,"1044,23490505004 ",.01)
 ;;23490505004
 ;;9002226.02101,"1044,23490505004 ",.02)
 ;;23490505004
 ;;9002226.02101,"1044,23490505005 ",.01)
 ;;23490505005
 ;;9002226.02101,"1044,23490505005 ",.02)
 ;;23490505005
 ;;9002226.02101,"1044,23490505006 ",.01)
 ;;23490505006