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

BGPM5ARD.m

Go to the documentation of this file.
BGPM5ARD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,52959075300 ",.01)
 ;;52959075300
 ;;9002226.02101,"1005,52959075300 ",.02)
 ;;52959075300
 ;;9002226.02101,"1005,52959075330 ",.01)
 ;;52959075330
 ;;9002226.02101,"1005,52959075330 ",.02)
 ;;52959075330
 ;;9002226.02101,"1005,52959075630 ",.01)
 ;;52959075630
 ;;9002226.02101,"1005,52959075630 ",.02)
 ;;52959075630
 ;;9002226.02101,"1005,52959085420 ",.01)
 ;;52959085420
 ;;9002226.02101,"1005,52959085420 ",.02)
 ;;52959085420
 ;;9002226.02101,"1005,52959085430 ",.01)
 ;;52959085430
 ;;9002226.02101,"1005,52959085430 ",.02)
 ;;52959085430
 ;;9002226.02101,"1005,52959094230 ",.01)
 ;;52959094230
 ;;9002226.02101,"1005,52959094230 ",.02)
 ;;52959094230
 ;;9002226.02101,"1005,52959097330 ",.01)
 ;;52959097330
 ;;9002226.02101,"1005,52959097330 ",.02)
 ;;52959097330
 ;;9002226.02101,"1005,52959099702 ",.01)
 ;;52959099702
 ;;9002226.02101,"1005,52959099702 ",.02)
 ;;52959099702
 ;;9002226.02101,"1005,52959099730 ",.01)
 ;;52959099730
 ;;9002226.02101,"1005,52959099730 ",.02)
 ;;52959099730
 ;;9002226.02101,"1005,52959099760 ",.01)
 ;;52959099760
 ;;9002226.02101,"1005,52959099760 ",.02)
 ;;52959099760
 ;;9002226.02101,"1005,52959099790 ",.01)
 ;;52959099790
 ;;9002226.02101,"1005,52959099790 ",.02)
 ;;52959099790
 ;;9002226.02101,"1005,53002043100 ",.01)
 ;;53002043100
 ;;9002226.02101,"1005,53002043100 ",.02)
 ;;53002043100
 ;;9002226.02101,"1005,53002043130 ",.01)
 ;;53002043130
 ;;9002226.02101,"1005,53002043130 ",.02)
 ;;53002043130
 ;;9002226.02101,"1005,53002043150 ",.01)
 ;;53002043150
 ;;9002226.02101,"1005,53002043150 ",.02)
 ;;53002043150
 ;;9002226.02101,"1005,53002043160 ",.01)
 ;;53002043160
 ;;9002226.02101,"1005,53002043160 ",.02)
 ;;53002043160
 ;;9002226.02101,"1005,53002043190 ",.01)
 ;;53002043190
 ;;9002226.02101,"1005,53002043190 ",.02)
 ;;53002043190
 ;;9002226.02101,"1005,53002102100 ",.01)
 ;;53002102100
 ;;9002226.02101,"1005,53002102100 ",.02)
 ;;53002102100
 ;;9002226.02101,"1005,53002102102 ",.01)
 ;;53002102102
 ;;9002226.02101,"1005,53002102102 ",.02)
 ;;53002102102
 ;;9002226.02101,"1005,53002102103 ",.01)
 ;;53002102103
 ;;9002226.02101,"1005,53002102103 ",.02)
 ;;53002102103
 ;;9002226.02101,"1005,53002102105 ",.01)
 ;;53002102105
 ;;9002226.02101,"1005,53002102105 ",.02)
 ;;53002102105
 ;;9002226.02101,"1005,53002102106 ",.01)
 ;;53002102106
 ;;9002226.02101,"1005,53002102106 ",.02)
 ;;53002102106
 ;;9002226.02101,"1005,53808010401 ",.01)
 ;;53808010401
 ;;9002226.02101,"1005,53808010401 ",.02)
 ;;53808010401
 ;;9002226.02101,"1005,53808021701 ",.01)
 ;;53808021701
 ;;9002226.02101,"1005,53808021701 ",.02)
 ;;53808021701
 ;;9002226.02101,"1005,53808024201 ",.01)
 ;;53808024201
 ;;9002226.02101,"1005,53808024201 ",.02)
 ;;53808024201
 ;;9002226.02101,"1005,53808024301 ",.01)
 ;;53808024301
 ;;9002226.02101,"1005,53808024301 ",.02)
 ;;53808024301
 ;;9002226.02101,"1005,53808024401 ",.01)
 ;;53808024401
 ;;9002226.02101,"1005,53808024401 ",.02)
 ;;53808024401
 ;;9002226.02101,"1005,53808034701 ",.01)
 ;;53808034701
 ;;9002226.02101,"1005,53808034701 ",.02)
 ;;53808034701
 ;;9002226.02101,"1005,53808034801 ",.01)
 ;;53808034801
 ;;9002226.02101,"1005,53808034801 ",.02)
 ;;53808034801
 ;;9002226.02101,"1005,53808037901 ",.01)
 ;;53808037901
 ;;9002226.02101,"1005,53808037901 ",.02)
 ;;53808037901
 ;;9002226.02101,"1005,53808045301 ",.01)
 ;;53808045301
 ;;9002226.02101,"1005,53808045301 ",.02)
 ;;53808045301
 ;;9002226.02101,"1005,53808061701 ",.01)
 ;;53808061701
 ;;9002226.02101,"1005,53808061701 ",.02)
 ;;53808061701
 ;;9002226.02101,"1005,53808064801 ",.01)
 ;;53808064801
 ;;9002226.02101,"1005,53808064801 ",.02)
 ;;53808064801
 ;;9002226.02101,"1005,53808066301 ",.01)
 ;;53808066301
 ;;9002226.02101,"1005,53808066301 ",.02)
 ;;53808066301
 ;;9002226.02101,"1005,53808070001 ",.01)
 ;;53808070001
 ;;9002226.02101,"1005,53808070001 ",.02)
 ;;53808070001
 ;;9002226.02101,"1005,53808070101 ",.01)
 ;;53808070101
 ;;9002226.02101,"1005,53808070101 ",.02)
 ;;53808070101
 ;;9002226.02101,"1005,53808070201 ",.01)
 ;;53808070201
 ;;9002226.02101,"1005,53808070201 ",.02)
 ;;53808070201
 ;;9002226.02101,"1005,53808070301 ",.01)
 ;;53808070301
 ;;9002226.02101,"1005,53808070301 ",.02)
 ;;53808070301
 ;;9002226.02101,"1005,53808091101 ",.01)
 ;;53808091101
 ;;9002226.02101,"1005,53808091101 ",.02)
 ;;53808091101
 ;;9002226.02101,"1005,53808091201 ",.01)
 ;;53808091201
 ;;9002226.02101,"1005,53808091201 ",.02)
 ;;53808091201
 ;;9002226.02101,"1005,53808096601 ",.01)
 ;;53808096601
 ;;9002226.02101,"1005,53808096601 ",.02)
 ;;53808096601
 ;;9002226.02101,"1005,53869022003 ",.01)
 ;;53869022003
 ;;9002226.02101,"1005,53869022003 ",.02)
 ;;53869022003
 ;;9002226.02101,"1005,53869022005 ",.01)
 ;;53869022005
 ;;9002226.02101,"1005,53869022005 ",.02)
 ;;53869022005
 ;;9002226.02101,"1005,53869022006 ",.01)
 ;;53869022006
 ;;9002226.02101,"1005,53869022006 ",.02)
 ;;53869022006
 ;;9002226.02101,"1005,53869022203 ",.01)
 ;;53869022203
 ;;9002226.02101,"1005,53869022203 ",.02)
 ;;53869022203
 ;;9002226.02101,"1005,53869022206 ",.01)
 ;;53869022206
 ;;9002226.02101,"1005,53869022206 ",.02)
 ;;53869022206
 ;;9002226.02101,"1005,53869022303 ",.01)
 ;;53869022303
 ;;9002226.02101,"1005,53869022303 ",.02)
 ;;53869022303
 ;;9002226.02101,"1005,53869022306 ",.01)
 ;;53869022306
 ;;9002226.02101,"1005,53869022306 ",.02)
 ;;53869022306
 ;;9002226.02101,"1005,53978017603 ",.01)
 ;;53978017603
 ;;9002226.02101,"1005,53978017603 ",.02)
 ;;53978017603
 ;;9002226.02101,"1005,53978023601 ",.01)
 ;;53978023601
 ;;9002226.02101,"1005,53978023601 ",.02)
 ;;53978023601
 ;;9002226.02101,"1005,53978023603 ",.01)
 ;;53978023603
 ;;9002226.02101,"1005,53978023603 ",.02)
 ;;53978023603
 ;;9002226.02101,"1005,53978023604 ",.01)
 ;;53978023604
 ;;9002226.02101,"1005,53978023604 ",.02)
 ;;53978023604
 ;;9002226.02101,"1005,53978023606 ",.01)
 ;;53978023606
 ;;9002226.02101,"1005,53978023606 ",.02)
 ;;53978023606
 ;;9002226.02101,"1005,53978051701 ",.01)
 ;;53978051701
 ;;9002226.02101,"1005,53978051701 ",.02)
 ;;53978051701
 ;;9002226.02101,"1005,53978051703 ",.01)
 ;;53978051703
 ;;9002226.02101,"1005,53978051703 ",.02)
 ;;53978051703
 ;;9002226.02101,"1005,53978051704 ",.01)
 ;;53978051704
 ;;9002226.02101,"1005,53978051704 ",.02)
 ;;53978051704
 ;;9002226.02101,"1005,53978051705 ",.01)
 ;;53978051705
 ;;9002226.02101,"1005,53978051705 ",.02)
 ;;53978051705
 ;;9002226.02101,"1005,53978051708 ",.01)
 ;;53978051708
 ;;9002226.02101,"1005,53978051708 ",.02)
 ;;53978051708
 ;;9002226.02101,"1005,53978093901 ",.01)
 ;;53978093901
 ;;9002226.02101,"1005,53978093901 ",.02)
 ;;53978093901
 ;;9002226.02101,"1005,53978093903 ",.01)
 ;;53978093903
 ;;9002226.02101,"1005,53978093903 ",.02)
 ;;53978093903
 ;;9002226.02101,"1005,53978093909 ",.01)
 ;;53978093909
 ;;9002226.02101,"1005,53978093909 ",.02)
 ;;53978093909
 ;;9002226.02101,"1005,53978100009 ",.01)
 ;;53978100009
 ;;9002226.02101,"1005,53978100009 ",.02)
 ;;53978100009
 ;;9002226.02101,"1005,53978101709 ",.01)
 ;;53978101709
 ;;9002226.02101,"1005,53978101709 ",.02)
 ;;53978101709
 ;;9002226.02101,"1005,53978112203 ",.01)
 ;;53978112203
 ;;9002226.02101,"1005,53978112203 ",.02)
 ;;53978112203
 ;;9002226.02101,"1005,53978301303 ",.01)
 ;;53978301303
 ;;9002226.02101,"1005,53978301303 ",.02)
 ;;53978301303
 ;;9002226.02101,"1005,53978301503 ",.01)
 ;;53978301503
 ;;9002226.02101,"1005,53978301503 ",.02)
 ;;53978301503
 ;;9002226.02101,"1005,53978301509 ",.01)
 ;;53978301509
 ;;9002226.02101,"1005,53978301509 ",.02)
 ;;53978301509
 ;;9002226.02101,"1005,53978301603 ",.01)
 ;;53978301603
 ;;9002226.02101,"1005,53978301603 ",.02)
 ;;53978301603
 ;;9002226.02101,"1005,53978301703 ",.01)
 ;;53978301703
 ;;9002226.02101,"1005,53978301703 ",.02)
 ;;53978301703
 ;;9002226.02101,"1005,53978301709 ",.01)
 ;;53978301709
 ;;9002226.02101,"1005,53978301709 ",.02)
 ;;53978301709
 ;;9002226.02101,"1005,53978306303 ",.01)
 ;;53978306303
 ;;9002226.02101,"1005,53978306303 ",.02)
 ;;53978306303
 ;;9002226.02101,"1005,54348072630 ",.01)
 ;;54348072630
 ;;9002226.02101,"1005,54348072630 ",.02)
 ;;54348072630
 ;;9002226.02101,"1005,54348072660 ",.01)
 ;;54348072660
 ;;9002226.02101,"1005,54348072660 ",.02)
 ;;54348072660
 ;;9002226.02101,"1005,54458099105 ",.01)
 ;;54458099105
 ;;9002226.02101,"1005,54458099105 ",.02)
 ;;54458099105
 ;;9002226.02101,"1005,54458099110 ",.01)
 ;;54458099110
 ;;9002226.02101,"1005,54458099110 ",.02)
 ;;54458099110
 ;;9002226.02101,"1005,54458099210 ",.01)
 ;;54458099210
 ;;9002226.02101,"1005,54458099210 ",.02)
 ;;54458099210
 ;;9002226.02101,"1005,54458099309 ",.01)
 ;;54458099309
 ;;9002226.02101,"1005,54458099309 ",.02)
 ;;54458099309
 ;;9002226.02101,"1005,54458099410 ",.01)
 ;;54458099410
 ;;9002226.02101,"1005,54458099410 ",.02)
 ;;54458099410
 ;;9002226.02101,"1005,54458099510 ",.01)
 ;;54458099510
 ;;9002226.02101,"1005,54458099510 ",.02)
 ;;54458099510
 ;;9002226.02101,"1005,54458099610 ",.01)
 ;;54458099610
 ;;9002226.02101,"1005,54458099610 ",.02)
 ;;54458099610
 ;;9002226.02101,"1005,54458099710 ",.01)
 ;;54458099710
 ;;9002226.02101,"1005,54458099710 ",.02)
 ;;54458099710
 ;;9002226.02101,"1005,54458099809 ",.01)
 ;;54458099809
 ;;9002226.02101,"1005,54458099809 ",.02)
 ;;54458099809
 ;;9002226.02101,"1005,54458099909 ",.01)
 ;;54458099909
 ;;9002226.02101,"1005,54458099909 ",.02)
 ;;54458099909
 ;;9002226.02101,"1005,54569060600 ",.01)
 ;;54569060600
 ;;9002226.02101,"1005,54569060600 ",.02)
 ;;54569060600
 ;;9002226.02101,"1005,54569060601 ",.01)
 ;;54569060601
 ;;9002226.02101,"1005,54569060601 ",.02)
 ;;54569060601
 ;;9002226.02101,"1005,54569060602 ",.01)
 ;;54569060602
 ;;9002226.02101,"1005,54569060602 ",.02)
 ;;54569060602
 ;;9002226.02101,"1005,54569060603 ",.01)
 ;;54569060603
 ;;9002226.02101,"1005,54569060603 ",.02)
 ;;54569060603
 ;;9002226.02101,"1005,54569060700 ",.01)
 ;;54569060700
 ;;9002226.02101,"1005,54569060700 ",.02)
 ;;54569060700
 ;;9002226.02101,"1005,54569060701 ",.01)
 ;;54569060701
 ;;9002226.02101,"1005,54569060701 ",.02)
 ;;54569060701
 ;;9002226.02101,"1005,54569060703 ",.01)
 ;;54569060703
 ;;9002226.02101,"1005,54569060703 ",.02)
 ;;54569060703
 ;;9002226.02101,"1005,54569061200 ",.01)
 ;;54569061200
 ;;9002226.02101,"1005,54569061200 ",.02)
 ;;54569061200
 ;;9002226.02101,"1005,54569175203 ",.01)
 ;;54569175203
 ;;9002226.02101,"1005,54569175203 ",.02)
 ;;54569175203
 ;;9002226.02101,"1005,54569194401 ",.01)
 ;;54569194401
 ;;9002226.02101,"1005,54569194401 ",.02)
 ;;54569194401
 ;;9002226.02101,"1005,54569194402 ",.01)
 ;;54569194402
 ;;9002226.02101,"1005,54569194402 ",.02)
 ;;54569194402
 ;;9002226.02101,"1005,54569194403 ",.01)
 ;;54569194403
 ;;9002226.02101,"1005,54569194403 ",.02)
 ;;54569194403
 ;;9002226.02101,"1005,54569205101 ",.01)
 ;;54569205101
 ;;9002226.02101,"1005,54569205101 ",.02)
 ;;54569205101
 ;;9002226.02101,"1005,54569205102 ",.01)
 ;;54569205102
 ;;9002226.02101,"1005,54569205102 ",.02)
 ;;54569205102
 ;;9002226.02101,"1005,54569266501 ",.01)
 ;;54569266501
 ;;9002226.02101,"1005,54569266501 ",.02)
 ;;54569266501
 ;;9002226.02101,"1005,54569266502 ",.01)
 ;;54569266502
 ;;9002226.02101,"1005,54569266502 ",.02)
 ;;54569266502
 ;;9002226.02101,"1005,54569325801 ",.01)
 ;;54569325801
 ;;9002226.02101,"1005,54569325801 ",.02)
 ;;54569325801
 ;;9002226.02101,"1005,54569330001 ",.01)
 ;;54569330001
 ;;9002226.02101,"1005,54569330001 ",.02)
 ;;54569330001
 ;;9002226.02101,"1005,54569371300 ",.01)
 ;;54569371300