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

BGPM5BCY.m

Go to the documentation of this file.
BGPM5BCY ;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,57664049913 ",.01)
 ;;57664049913
 ;;9002226.02101,"1044,57664049913 ",.02)
 ;;57664049913
 ;;9002226.02101,"1044,57664049918 ",.01)
 ;;57664049918
 ;;9002226.02101,"1044,57664049918 ",.02)
 ;;57664049918
 ;;9002226.02101,"1044,57664049983 ",.01)
 ;;57664049983
 ;;9002226.02101,"1044,57664049983 ",.02)
 ;;57664049983
 ;;9002226.02101,"1044,57664049988 ",.01)
 ;;57664049988
 ;;9002226.02101,"1044,57664049988 ",.02)
 ;;57664049988
 ;;9002226.02101,"1044,57664050013 ",.01)
 ;;57664050013
 ;;9002226.02101,"1044,57664050013 ",.02)
 ;;57664050013
 ;;9002226.02101,"1044,57664050018 ",.01)
 ;;57664050018
 ;;9002226.02101,"1044,57664050018 ",.02)
 ;;57664050018
 ;;9002226.02101,"1044,57664050083 ",.01)
 ;;57664050083
 ;;9002226.02101,"1044,57664050083 ",.02)
 ;;57664050083
 ;;9002226.02101,"1044,57664050088 ",.01)
 ;;57664050088
 ;;9002226.02101,"1044,57664050088 ",.02)
 ;;57664050088
 ;;9002226.02101,"1044,57664050113 ",.01)
 ;;57664050113
 ;;9002226.02101,"1044,57664050113 ",.02)
 ;;57664050113
 ;;9002226.02101,"1044,57664050118 ",.01)
 ;;57664050118
 ;;9002226.02101,"1044,57664050118 ",.02)
 ;;57664050118
 ;;9002226.02101,"1044,57664050183 ",.01)
 ;;57664050183
 ;;9002226.02101,"1044,57664050183 ",.02)
 ;;57664050183
 ;;9002226.02101,"1044,57664050188 ",.01)
 ;;57664050188
 ;;9002226.02101,"1044,57664050188 ",.02)
 ;;57664050188
 ;;9002226.02101,"1044,57664050713 ",.01)
 ;;57664050713
 ;;9002226.02101,"1044,57664050713 ",.02)
 ;;57664050713
 ;;9002226.02101,"1044,57664050718 ",.01)
 ;;57664050718
 ;;9002226.02101,"1044,57664050718 ",.02)
 ;;57664050718
 ;;9002226.02101,"1044,57664050783 ",.01)
 ;;57664050783
 ;;9002226.02101,"1044,57664050783 ",.02)
 ;;57664050783
 ;;9002226.02101,"1044,57664050788 ",.01)
 ;;57664050788
 ;;9002226.02101,"1044,57664050788 ",.02)
 ;;57664050788
 ;;9002226.02101,"1044,57664050813 ",.01)
 ;;57664050813
 ;;9002226.02101,"1044,57664050813 ",.02)
 ;;57664050813
 ;;9002226.02101,"1044,57664050818 ",.01)
 ;;57664050818
 ;;9002226.02101,"1044,57664050818 ",.02)
 ;;57664050818
 ;;9002226.02101,"1044,57664050883 ",.01)
 ;;57664050883
 ;;9002226.02101,"1044,57664050883 ",.02)
 ;;57664050883
 ;;9002226.02101,"1044,57664050888 ",.01)
 ;;57664050888
 ;;9002226.02101,"1044,57664050888 ",.02)
 ;;57664050888
 ;;9002226.02101,"1044,57664050913 ",.01)
 ;;57664050913
 ;;9002226.02101,"1044,57664050913 ",.02)
 ;;57664050913
 ;;9002226.02101,"1044,57664050918 ",.01)
 ;;57664050918
 ;;9002226.02101,"1044,57664050918 ",.02)
 ;;57664050918
 ;;9002226.02101,"1044,57664050983 ",.01)
 ;;57664050983
 ;;9002226.02101,"1044,57664050983 ",.02)
 ;;57664050983
 ;;9002226.02101,"1044,57664050988 ",.01)
 ;;57664050988
 ;;9002226.02101,"1044,57664050988 ",.02)
 ;;57664050988
 ;;9002226.02101,"1044,57664051013 ",.01)
 ;;57664051013
 ;;9002226.02101,"1044,57664051013 ",.02)
 ;;57664051013
 ;;9002226.02101,"1044,57664051018 ",.01)
 ;;57664051018
 ;;9002226.02101,"1044,57664051018 ",.02)
 ;;57664051018
 ;;9002226.02101,"1044,57664051083 ",.01)
 ;;57664051083
 ;;9002226.02101,"1044,57664051083 ",.02)
 ;;57664051083
 ;;9002226.02101,"1044,57664051088 ",.01)
 ;;57664051088
 ;;9002226.02101,"1044,57664051088 ",.02)
 ;;57664051088
 ;;9002226.02101,"1044,57866092001 ",.01)
 ;;57866092001
 ;;9002226.02101,"1044,57866092001 ",.02)
 ;;57866092001
 ;;9002226.02101,"1044,57866092002 ",.01)
 ;;57866092002
 ;;9002226.02101,"1044,57866092002 ",.02)
 ;;57866092002
 ;;9002226.02101,"1044,57866092003 ",.01)
 ;;57866092003
 ;;9002226.02101,"1044,57866092003 ",.02)
 ;;57866092003
 ;;9002226.02101,"1044,57866092201 ",.01)
 ;;57866092201
 ;;9002226.02101,"1044,57866092201 ",.02)
 ;;57866092201
 ;;9002226.02101,"1044,57866092202 ",.01)
 ;;57866092202
 ;;9002226.02101,"1044,57866092202 ",.02)
 ;;57866092202
 ;;9002226.02101,"1044,57866092203 ",.01)
 ;;57866092203
 ;;9002226.02101,"1044,57866092203 ",.02)
 ;;57866092203
 ;;9002226.02101,"1044,57866105401 ",.01)
 ;;57866105401
 ;;9002226.02101,"1044,57866105401 ",.02)
 ;;57866105401
 ;;9002226.02101,"1044,57866306102 ",.01)
 ;;57866306102
 ;;9002226.02101,"1044,57866306102 ",.02)
 ;;57866306102
 ;;9002226.02101,"1044,57866307101 ",.01)
 ;;57866307101
 ;;9002226.02101,"1044,57866307101 ",.02)
 ;;57866307101
 ;;9002226.02101,"1044,57866307200 ",.01)
 ;;57866307200
 ;;9002226.02101,"1044,57866307200 ",.02)
 ;;57866307200
 ;;9002226.02101,"1044,57866307201 ",.01)
 ;;57866307201
 ;;9002226.02101,"1044,57866307201 ",.02)
 ;;57866307201
 ;;9002226.02101,"1044,57866307202 ",.01)
 ;;57866307202
 ;;9002226.02101,"1044,57866307202 ",.02)
 ;;57866307202
 ;;9002226.02101,"1044,57866307203 ",.01)
 ;;57866307203
 ;;9002226.02101,"1044,57866307203 ",.02)
 ;;57866307203
 ;;9002226.02101,"1044,57866307301 ",.01)
 ;;57866307301
 ;;9002226.02101,"1044,57866307301 ",.02)
 ;;57866307301
 ;;9002226.02101,"1044,57866307302 ",.01)
 ;;57866307302
 ;;9002226.02101,"1044,57866307302 ",.02)
 ;;57866307302
 ;;9002226.02101,"1044,57866307303 ",.01)
 ;;57866307303
 ;;9002226.02101,"1044,57866307303 ",.02)
 ;;57866307303
 ;;9002226.02101,"1044,57866307701 ",.01)
 ;;57866307701
 ;;9002226.02101,"1044,57866307701 ",.02)
 ;;57866307701
 ;;9002226.02101,"1044,57866308201 ",.01)
 ;;57866308201
 ;;9002226.02101,"1044,57866308201 ",.02)
 ;;57866308201
 ;;9002226.02101,"1044,57866390601 ",.01)
 ;;57866390601
 ;;9002226.02101,"1044,57866390601 ",.02)
 ;;57866390601
 ;;9002226.02101,"1044,57866390701 ",.01)
 ;;57866390701
 ;;9002226.02101,"1044,57866390701 ",.02)
 ;;57866390701
 ;;9002226.02101,"1044,57866393001 ",.01)
 ;;57866393001
 ;;9002226.02101,"1044,57866393001 ",.02)
 ;;57866393001
 ;;9002226.02101,"1044,57866393002 ",.01)
 ;;57866393002
 ;;9002226.02101,"1044,57866393002 ",.02)
 ;;57866393002
 ;;9002226.02101,"1044,57866393101 ",.01)
 ;;57866393101
 ;;9002226.02101,"1044,57866393101 ",.02)
 ;;57866393101
 ;;9002226.02101,"1044,57866468801 ",.01)
 ;;57866468801
 ;;9002226.02101,"1044,57866468801 ",.02)
 ;;57866468801
 ;;9002226.02101,"1044,57866468802 ",.01)
 ;;57866468802
 ;;9002226.02101,"1044,57866468802 ",.02)
 ;;57866468802
 ;;9002226.02101,"1044,57866468803 ",.01)
 ;;57866468803
 ;;9002226.02101,"1044,57866468803 ",.02)
 ;;57866468803
 ;;9002226.02101,"1044,57866468804 ",.01)
 ;;57866468804
 ;;9002226.02101,"1044,57866468804 ",.02)
 ;;57866468804
 ;;9002226.02101,"1044,57866471501 ",.01)
 ;;57866471501
 ;;9002226.02101,"1044,57866471501 ",.02)
 ;;57866471501
 ;;9002226.02101,"1044,57866471502 ",.01)
 ;;57866471502
 ;;9002226.02101,"1044,57866471502 ",.02)
 ;;57866471502
 ;;9002226.02101,"1044,57866471503 ",.01)
 ;;57866471503
 ;;9002226.02101,"1044,57866471503 ",.02)
 ;;57866471503
 ;;9002226.02101,"1044,57866471504 ",.01)
 ;;57866471504
 ;;9002226.02101,"1044,57866471504 ",.02)
 ;;57866471504
 ;;9002226.02101,"1044,57866665001 ",.01)
 ;;57866665001
 ;;9002226.02101,"1044,57866665001 ",.02)
 ;;57866665001
 ;;9002226.02101,"1044,57866665002 ",.01)
 ;;57866665002
 ;;9002226.02101,"1044,57866665002 ",.02)
 ;;57866665002
 ;;9002226.02101,"1044,57866665003 ",.01)
 ;;57866665003
 ;;9002226.02101,"1044,57866665003 ",.02)
 ;;57866665003
 ;;9002226.02101,"1044,58016000400 ",.01)
 ;;58016000400
 ;;9002226.02101,"1044,58016000400 ",.02)
 ;;58016000400
 ;;9002226.02101,"1044,58016000401 ",.01)
 ;;58016000401
 ;;9002226.02101,"1044,58016000401 ",.02)
 ;;58016000401
 ;;9002226.02101,"1044,58016000402 ",.01)
 ;;58016000402
 ;;9002226.02101,"1044,58016000402 ",.02)
 ;;58016000402
 ;;9002226.02101,"1044,58016000403 ",.01)
 ;;58016000403
 ;;9002226.02101,"1044,58016000403 ",.02)
 ;;58016000403
 ;;9002226.02101,"1044,58016000404 ",.01)
 ;;58016000404
 ;;9002226.02101,"1044,58016000404 ",.02)
 ;;58016000404
 ;;9002226.02101,"1044,58016000405 ",.01)
 ;;58016000405
 ;;9002226.02101,"1044,58016000405 ",.02)
 ;;58016000405
 ;;9002226.02101,"1044,58016000430 ",.01)
 ;;58016000430
 ;;9002226.02101,"1044,58016000430 ",.02)
 ;;58016000430
 ;;9002226.02101,"1044,58016000460 ",.01)
 ;;58016000460
 ;;9002226.02101,"1044,58016000460 ",.02)
 ;;58016000460
 ;;9002226.02101,"1044,58016000490 ",.01)
 ;;58016000490
 ;;9002226.02101,"1044,58016000490 ",.02)
 ;;58016000490
 ;;9002226.02101,"1044,58016000900 ",.01)
 ;;58016000900
 ;;9002226.02101,"1044,58016000900 ",.02)
 ;;58016000900
 ;;9002226.02101,"1044,58016000930 ",.01)
 ;;58016000930
 ;;9002226.02101,"1044,58016000930 ",.02)
 ;;58016000930
 ;;9002226.02101,"1044,58016000960 ",.01)
 ;;58016000960
 ;;9002226.02101,"1044,58016000960 ",.02)
 ;;58016000960
 ;;9002226.02101,"1044,58016000990 ",.01)
 ;;58016000990
 ;;9002226.02101,"1044,58016000990 ",.02)
 ;;58016000990
 ;;9002226.02101,"1044,58016001000 ",.01)
 ;;58016001000
 ;;9002226.02101,"1044,58016001000 ",.02)
 ;;58016001000
 ;;9002226.02101,"1044,58016001002 ",.01)
 ;;58016001002
 ;;9002226.02101,"1044,58016001002 ",.02)
 ;;58016001002
 ;;9002226.02101,"1044,58016001030 ",.01)
 ;;58016001030
 ;;9002226.02101,"1044,58016001030 ",.02)
 ;;58016001030
 ;;9002226.02101,"1044,58016001060 ",.01)
 ;;58016001060
 ;;9002226.02101,"1044,58016001060 ",.02)
 ;;58016001060
 ;;9002226.02101,"1044,58016001090 ",.01)
 ;;58016001090
 ;;9002226.02101,"1044,58016001090 ",.02)
 ;;58016001090
 ;;9002226.02101,"1044,58016001100 ",.01)
 ;;58016001100
 ;;9002226.02101,"1044,58016001100 ",.02)
 ;;58016001100
 ;;9002226.02101,"1044,58016001130 ",.01)
 ;;58016001130
 ;;9002226.02101,"1044,58016001130 ",.02)
 ;;58016001130
 ;;9002226.02101,"1044,58016001160 ",.01)
 ;;58016001160
 ;;9002226.02101,"1044,58016001160 ",.02)
 ;;58016001160
 ;;9002226.02101,"1044,58016001190 ",.01)
 ;;58016001190
 ;;9002226.02101,"1044,58016001190 ",.02)
 ;;58016001190
 ;;9002226.02101,"1044,58016003000 ",.01)
 ;;58016003000
 ;;9002226.02101,"1044,58016003000 ",.02)
 ;;58016003000
 ;;9002226.02101,"1044,58016003001 ",.01)
 ;;58016003001
 ;;9002226.02101,"1044,58016003001 ",.02)
 ;;58016003001
 ;;9002226.02101,"1044,58016003002 ",.01)
 ;;58016003002
 ;;9002226.02101,"1044,58016003002 ",.02)
 ;;58016003002
 ;;9002226.02101,"1044,58016003003 ",.01)
 ;;58016003003
 ;;9002226.02101,"1044,58016003003 ",.02)
 ;;58016003003
 ;;9002226.02101,"1044,58016003004 ",.01)
 ;;58016003004
 ;;9002226.02101,"1044,58016003004 ",.02)
 ;;58016003004
 ;;9002226.02101,"1044,58016003005 ",.01)
 ;;58016003005
 ;;9002226.02101,"1044,58016003005 ",.02)
 ;;58016003005
 ;;9002226.02101,"1044,58016003006 ",.01)
 ;;58016003006
 ;;9002226.02101,"1044,58016003006 ",.02)
 ;;58016003006
 ;;9002226.02101,"1044,58016003007 ",.01)
 ;;58016003007
 ;;9002226.02101,"1044,58016003007 ",.02)
 ;;58016003007
 ;;9002226.02101,"1044,58016003008 ",.01)
 ;;58016003008
 ;;9002226.02101,"1044,58016003008 ",.02)
 ;;58016003008
 ;;9002226.02101,"1044,58016003009 ",.01)
 ;;58016003009
 ;;9002226.02101,"1044,58016003009 ",.02)
 ;;58016003009
 ;;9002226.02101,"1044,58016003010 ",.01)
 ;;58016003010
 ;;9002226.02101,"1044,58016003010 ",.02)
 ;;58016003010
 ;;9002226.02101,"1044,58016003030 ",.01)
 ;;58016003030
 ;;9002226.02101,"1044,58016003030 ",.02)
 ;;58016003030
 ;;9002226.02101,"1044,58016003060 ",.01)
 ;;58016003060
 ;;9002226.02101,"1044,58016003060 ",.02)
 ;;58016003060
 ;;9002226.02101,"1044,58016003090 ",.01)
 ;;58016003090
 ;;9002226.02101,"1044,58016003090 ",.02)
 ;;58016003090
 ;;9002226.02101,"1044,58016007300 ",.01)
 ;;58016007300
 ;;9002226.02101,"1044,58016007300 ",.02)
 ;;58016007300
 ;;9002226.02101,"1044,58016007301 ",.01)
 ;;58016007301
 ;;9002226.02101,"1044,58016007301 ",.02)
 ;;58016007301
 ;;9002226.02101,"1044,58016007302 ",.01)
 ;;58016007302