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

BGPM5BEA.m

Go to the documentation of this file.
BGPM5BEA ;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,67544064831 ",.01)
 ;;67544064831
 ;;9002226.02101,"1044,67544064831 ",.02)
 ;;67544064831
 ;;9002226.02101,"1044,67544064832 ",.01)
 ;;67544064832
 ;;9002226.02101,"1044,67544064832 ",.02)
 ;;67544064832
 ;;9002226.02101,"1044,67544064845 ",.01)
 ;;67544064845
 ;;9002226.02101,"1044,67544064845 ",.02)
 ;;67544064845
 ;;9002226.02101,"1044,67544065231 ",.01)
 ;;67544065231
 ;;9002226.02101,"1044,67544065231 ",.02)
 ;;67544065231
 ;;9002226.02101,"1044,67544066431 ",.01)
 ;;67544066431
 ;;9002226.02101,"1044,67544066431 ",.02)
 ;;67544066431
 ;;9002226.02101,"1044,67544066432 ",.01)
 ;;67544066432
 ;;9002226.02101,"1044,67544066432 ",.02)
 ;;67544066432
 ;;9002226.02101,"1044,67544071831 ",.01)
 ;;67544071831
 ;;9002226.02101,"1044,67544071831 ",.02)
 ;;67544071831
 ;;9002226.02101,"1044,67544072831 ",.01)
 ;;67544072831
 ;;9002226.02101,"1044,67544072831 ",.02)
 ;;67544072831
 ;;9002226.02101,"1044,67544072832 ",.01)
 ;;67544072832
 ;;9002226.02101,"1044,67544072832 ",.02)
 ;;67544072832
 ;;9002226.02101,"1044,67544073531 ",.01)
 ;;67544073531
 ;;9002226.02101,"1044,67544073531 ",.02)
 ;;67544073531
 ;;9002226.02101,"1044,67544073532 ",.01)
 ;;67544073532
 ;;9002226.02101,"1044,67544073532 ",.02)
 ;;67544073532
 ;;9002226.02101,"1044,67544074421 ",.01)
 ;;67544074421
 ;;9002226.02101,"1044,67544074421 ",.02)
 ;;67544074421
 ;;9002226.02101,"1044,67544074432 ",.01)
 ;;67544074432
 ;;9002226.02101,"1044,67544074432 ",.02)
 ;;67544074432
 ;;9002226.02101,"1044,67544083230 ",.01)
 ;;67544083230
 ;;9002226.02101,"1044,67544083230 ",.02)
 ;;67544083230
 ;;9002226.02101,"1044,67544083232 ",.01)
 ;;67544083232
 ;;9002226.02101,"1044,67544083232 ",.02)
 ;;67544083232
 ;;9002226.02101,"1044,67544083253 ",.01)
 ;;67544083253
 ;;9002226.02101,"1044,67544083253 ",.02)
 ;;67544083253
 ;;9002226.02101,"1044,67544083260 ",.01)
 ;;67544083260
 ;;9002226.02101,"1044,67544083260 ",.02)
 ;;67544083260
 ;;9002226.02101,"1044,67544084830 ",.01)
 ;;67544084830
 ;;9002226.02101,"1044,67544084830 ",.02)
 ;;67544084830
 ;;9002226.02101,"1044,67544084831 ",.01)
 ;;67544084831
 ;;9002226.02101,"1044,67544084831 ",.02)
 ;;67544084831
 ;;9002226.02101,"1044,67544084832 ",.01)
 ;;67544084832
 ;;9002226.02101,"1044,67544084832 ",.02)
 ;;67544084832
 ;;9002226.02101,"1044,67544084845 ",.01)
 ;;67544084845
 ;;9002226.02101,"1044,67544084845 ",.02)
 ;;67544084845
 ;;9002226.02101,"1044,67544084853 ",.01)
 ;;67544084853
 ;;9002226.02101,"1044,67544084853 ",.02)
 ;;67544084853
 ;;9002226.02101,"1044,67544084860 ",.01)
 ;;67544084860
 ;;9002226.02101,"1044,67544084860 ",.02)
 ;;67544084860
 ;;9002226.02101,"1044,67544084870 ",.01)
 ;;67544084870
 ;;9002226.02101,"1044,67544084870 ",.02)
 ;;67544084870
 ;;9002226.02101,"1044,67544084880 ",.01)
 ;;67544084880
 ;;9002226.02101,"1044,67544084880 ",.02)
 ;;67544084880
 ;;9002226.02101,"1044,67544084892 ",.01)
 ;;67544084892
 ;;9002226.02101,"1044,67544084892 ",.02)
 ;;67544084892
 ;;9002226.02101,"1044,67544086330 ",.01)
 ;;67544086330
 ;;9002226.02101,"1044,67544086330 ",.02)
 ;;67544086330
 ;;9002226.02101,"1044,67544086332 ",.01)
 ;;67544086332
 ;;9002226.02101,"1044,67544086332 ",.02)
 ;;67544086332
 ;;9002226.02101,"1044,67544086360 ",.01)
 ;;67544086360
 ;;9002226.02101,"1044,67544086360 ",.02)
 ;;67544086360
 ;;9002226.02101,"1044,67544087432 ",.01)
 ;;67544087432
 ;;9002226.02101,"1044,67544087432 ",.02)
 ;;67544087432
 ;;9002226.02101,"1044,67544090615 ",.01)
 ;;67544090615
 ;;9002226.02101,"1044,67544090615 ",.02)
 ;;67544090615
 ;;9002226.02101,"1044,67544090630 ",.01)
 ;;67544090630
 ;;9002226.02101,"1044,67544090630 ",.02)
 ;;67544090630
 ;;9002226.02101,"1044,67544090645 ",.01)
 ;;67544090645
 ;;9002226.02101,"1044,67544090645 ",.02)
 ;;67544090645
 ;;9002226.02101,"1044,67544090653 ",.01)
 ;;67544090653
 ;;9002226.02101,"1044,67544090653 ",.02)
 ;;67544090653
 ;;9002226.02101,"1044,67544090660 ",.01)
 ;;67544090660
 ;;9002226.02101,"1044,67544090660 ",.02)
 ;;67544090660
 ;;9002226.02101,"1044,67544090671 ",.01)
 ;;67544090671
 ;;9002226.02101,"1044,67544090671 ",.02)
 ;;67544090671
 ;;9002226.02101,"1044,67544090673 ",.01)
 ;;67544090673
 ;;9002226.02101,"1044,67544090673 ",.02)
 ;;67544090673
 ;;9002226.02101,"1044,67544090815 ",.01)
 ;;67544090815
 ;;9002226.02101,"1044,67544090815 ",.02)
 ;;67544090815
 ;;9002226.02101,"1044,67544090830 ",.01)
 ;;67544090830
 ;;9002226.02101,"1044,67544090830 ",.02)
 ;;67544090830
 ;;9002226.02101,"1044,67544090845 ",.01)
 ;;67544090845
 ;;9002226.02101,"1044,67544090845 ",.02)
 ;;67544090845
 ;;9002226.02101,"1044,67544090853 ",.01)
 ;;67544090853
 ;;9002226.02101,"1044,67544090853 ",.02)
 ;;67544090853
 ;;9002226.02101,"1044,67544090860 ",.01)
 ;;67544090860
 ;;9002226.02101,"1044,67544090860 ",.02)
 ;;67544090860
 ;;9002226.02101,"1044,67544090873 ",.01)
 ;;67544090873
 ;;9002226.02101,"1044,67544090873 ",.02)
 ;;67544090873
 ;;9002226.02101,"1044,67544090880 ",.01)
 ;;67544090880
 ;;9002226.02101,"1044,67544090880 ",.02)
 ;;67544090880
 ;;9002226.02101,"1044,67544094032 ",.01)
 ;;67544094032
 ;;9002226.02101,"1044,67544094032 ",.02)
 ;;67544094032
 ;;9002226.02101,"1044,67544095915 ",.01)
 ;;67544095915
 ;;9002226.02101,"1044,67544095915 ",.02)
 ;;67544095915
 ;;9002226.02101,"1044,67544095930 ",.01)
 ;;67544095930
 ;;9002226.02101,"1044,67544095930 ",.02)
 ;;67544095930
 ;;9002226.02101,"1044,67544095932 ",.01)
 ;;67544095932
 ;;9002226.02101,"1044,67544095932 ",.02)
 ;;67544095932
 ;;9002226.02101,"1044,67544095945 ",.01)
 ;;67544095945
 ;;9002226.02101,"1044,67544095945 ",.02)
 ;;67544095945
 ;;9002226.02101,"1044,67544095953 ",.01)
 ;;67544095953
 ;;9002226.02101,"1044,67544095953 ",.02)
 ;;67544095953
 ;;9002226.02101,"1044,67544095960 ",.01)
 ;;67544095960
 ;;9002226.02101,"1044,67544095960 ",.02)
 ;;67544095960
 ;;9002226.02101,"1044,67544095980 ",.01)
 ;;67544095980
 ;;9002226.02101,"1044,67544095980 ",.02)
 ;;67544095980
 ;;9002226.02101,"1044,67651002803 ",.01)
 ;;67651002803
 ;;9002226.02101,"1044,67651002803 ",.02)
 ;;67651002803
 ;;9002226.02101,"1044,67651002903 ",.01)
 ;;67651002903
 ;;9002226.02101,"1044,67651002903 ",.02)
 ;;67651002903
 ;;9002226.02101,"1044,67651003003 ",.01)
 ;;67651003003
 ;;9002226.02101,"1044,67651003003 ",.02)
 ;;67651003003
 ;;9002226.02101,"1044,67787020601 ",.01)
 ;;67787020601
 ;;9002226.02101,"1044,67787020601 ",.02)
 ;;67787020601
 ;;9002226.02101,"1044,67787020610 ",.01)
 ;;67787020610
 ;;9002226.02101,"1044,67787020610 ",.02)
 ;;67787020610
 ;;9002226.02101,"1044,67787020630 ",.01)
 ;;67787020630
 ;;9002226.02101,"1044,67787020630 ",.02)
 ;;67787020630
 ;;9002226.02101,"1044,67787020701 ",.01)
 ;;67787020701
 ;;9002226.02101,"1044,67787020701 ",.02)
 ;;67787020701
 ;;9002226.02101,"1044,67787020710 ",.01)
 ;;67787020710
 ;;9002226.02101,"1044,67787020710 ",.02)
 ;;67787020710
 ;;9002226.02101,"1044,67787020730 ",.01)
 ;;67787020730
 ;;9002226.02101,"1044,67787020730 ",.02)
 ;;67787020730
 ;;9002226.02101,"1044,67787020801 ",.01)
 ;;67787020801
 ;;9002226.02101,"1044,67787020801 ",.02)
 ;;67787020801
 ;;9002226.02101,"1044,67787020810 ",.01)
 ;;67787020810
 ;;9002226.02101,"1044,67787020810 ",.02)
 ;;67787020810
 ;;9002226.02101,"1044,67787020830 ",.01)
 ;;67787020830
 ;;9002226.02101,"1044,67787020830 ",.02)
 ;;67787020830
 ;;9002226.02101,"1044,67787021205 ",.01)
 ;;67787021205
 ;;9002226.02101,"1044,67787021205 ",.02)
 ;;67787021205
 ;;9002226.02101,"1044,67787021230 ",.01)
 ;;67787021230
 ;;9002226.02101,"1044,67787021230 ",.02)
 ;;67787021230
 ;;9002226.02101,"1044,67787021290 ",.01)
 ;;67787021290
 ;;9002226.02101,"1044,67787021290 ",.02)
 ;;67787021290
 ;;9002226.02101,"1044,67787021361 ",.01)
 ;;67787021361
 ;;9002226.02101,"1044,67787021361 ",.02)
 ;;67787021361
 ;;9002226.02101,"1044,67787021430 ",.01)
 ;;67787021430
 ;;9002226.02101,"1044,67787021430 ",.02)
 ;;67787021430
 ;;9002226.02101,"1044,67787021490 ",.01)
 ;;67787021490
 ;;9002226.02101,"1044,67787021490 ",.02)
 ;;67787021490
 ;;9002226.02101,"1044,68071000330 ",.01)
 ;;68071000330
 ;;9002226.02101,"1044,68071000330 ",.02)
 ;;68071000330
 ;;9002226.02101,"1044,68071003415 ",.01)
 ;;68071003415
 ;;9002226.02101,"1044,68071003415 ",.02)
 ;;68071003415
 ;;9002226.02101,"1044,68071003430 ",.01)
 ;;68071003430
 ;;9002226.02101,"1044,68071003430 ",.02)
 ;;68071003430
 ;;9002226.02101,"1044,68071003490 ",.01)
 ;;68071003490
 ;;9002226.02101,"1044,68071003490 ",.02)
 ;;68071003490
 ;;9002226.02101,"1044,68071009230 ",.01)
 ;;68071009230
 ;;9002226.02101,"1044,68071009230 ",.02)
 ;;68071009230
 ;;9002226.02101,"1044,68071012830 ",.01)
 ;;68071012830
 ;;9002226.02101,"1044,68071012830 ",.02)
 ;;68071012830
 ;;9002226.02101,"1044,68071022215 ",.01)
 ;;68071022215
 ;;9002226.02101,"1044,68071022215 ",.02)
 ;;68071022215
 ;;9002226.02101,"1044,68071022230 ",.01)
 ;;68071022230
 ;;9002226.02101,"1044,68071022230 ",.02)
 ;;68071022230
 ;;9002226.02101,"1044,68071022245 ",.01)
 ;;68071022245
 ;;9002226.02101,"1044,68071022245 ",.02)
 ;;68071022245
 ;;9002226.02101,"1044,68071022290 ",.01)
 ;;68071022290
 ;;9002226.02101,"1044,68071022290 ",.02)
 ;;68071022290
 ;;9002226.02101,"1044,68071023130 ",.01)
 ;;68071023130
 ;;9002226.02101,"1044,68071023130 ",.02)
 ;;68071023130
 ;;9002226.02101,"1044,68071023152 ",.01)
 ;;68071023152
 ;;9002226.02101,"1044,68071023152 ",.02)
 ;;68071023152
 ;;9002226.02101,"1044,68071023160 ",.01)
 ;;68071023160
 ;;9002226.02101,"1044,68071023160 ",.02)
 ;;68071023160
 ;;9002226.02101,"1044,68071023190 ",.01)
 ;;68071023190
 ;;9002226.02101,"1044,68071023190 ",.02)
 ;;68071023190
 ;;9002226.02101,"1044,68071023330 ",.01)
 ;;68071023330
 ;;9002226.02101,"1044,68071023330 ",.02)
 ;;68071023330
 ;;9002226.02101,"1044,68071024290 ",.01)
 ;;68071024290
 ;;9002226.02101,"1044,68071024290 ",.02)
 ;;68071024290
 ;;9002226.02101,"1044,68071029930 ",.01)
 ;;68071029930
 ;;9002226.02101,"1044,68071029930 ",.02)
 ;;68071029930
 ;;9002226.02101,"1044,68071030030 ",.01)
 ;;68071030030
 ;;9002226.02101,"1044,68071030030 ",.02)
 ;;68071030030
 ;;9002226.02101,"1044,68071030060 ",.01)
 ;;68071030060
 ;;9002226.02101,"1044,68071030060 ",.02)
 ;;68071030060
 ;;9002226.02101,"1044,68071032330 ",.01)
 ;;68071032330
 ;;9002226.02101,"1044,68071032330 ",.02)
 ;;68071032330
 ;;9002226.02101,"1044,68071032360 ",.01)
 ;;68071032360
 ;;9002226.02101,"1044,68071032360 ",.02)
 ;;68071032360
 ;;9002226.02101,"1044,68071032390 ",.01)
 ;;68071032390
 ;;9002226.02101,"1044,68071032390 ",.02)
 ;;68071032390
 ;;9002226.02101,"1044,68071032530 ",.01)
 ;;68071032530
 ;;9002226.02101,"1044,68071032530 ",.02)
 ;;68071032530
 ;;9002226.02101,"1044,68071032630 ",.01)
 ;;68071032630
 ;;9002226.02101,"1044,68071032630 ",.02)
 ;;68071032630
 ;;9002226.02101,"1044,68071041690 ",.01)
 ;;68071041690
 ;;9002226.02101,"1044,68071041690 ",.02)
 ;;68071041690
 ;;9002226.02101,"1044,68071047430 ",.01)
 ;;68071047430
 ;;9002226.02101,"1044,68071047430 ",.02)
 ;;68071047430
 ;;9002226.02101,"1044,68071047460 ",.01)
 ;;68071047460
 ;;9002226.02101,"1044,68071047460 ",.02)
 ;;68071047460
 ;;9002226.02101,"1044,68071048660 ",.01)
 ;;68071048660
 ;;9002226.02101,"1044,68071048660 ",.02)
 ;;68071048660
 ;;9002226.02101,"1044,68071054830 ",.01)
 ;;68071054830
 ;;9002226.02101,"1044,68071054830 ",.02)
 ;;68071054830
 ;;9002226.02101,"1044,68071054860 ",.01)
 ;;68071054860
 ;;9002226.02101,"1044,68071054860 ",.02)
 ;;68071054860
 ;;9002226.02101,"1044,68071068515 ",.01)
 ;;68071068515