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

BGPM5AUO.m

Go to the documentation of this file.
BGPM5AUO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00409052823 ",.02)
 ;;00409052823
 ;;9002226.02101,"1033,00409052831 ",.01)
 ;;00409052831
 ;;9002226.02101,"1033,00409052831 ",.02)
 ;;00409052831
 ;;9002226.02101,"1033,00409080201 ",.01)
 ;;00409080201
 ;;9002226.02101,"1033,00409080201 ",.02)
 ;;00409080201
 ;;9002226.02101,"1033,00409080301 ",.01)
 ;;00409080301
 ;;9002226.02101,"1033,00409080301 ",.02)
 ;;00409080301
 ;;9002226.02101,"1033,00409080501 ",.01)
 ;;00409080501
 ;;9002226.02101,"1033,00409080501 ",.02)
 ;;00409080501
 ;;9002226.02101,"1033,00409080601 ",.01)
 ;;00409080601
 ;;9002226.02101,"1033,00409080601 ",.02)
 ;;00409080601
 ;;9002226.02101,"1033,00409258501 ",.01)
 ;;00409258501
 ;;9002226.02101,"1033,00409258501 ",.02)
 ;;00409258501
 ;;9002226.02101,"1033,00409268715 ",.01)
 ;;00409268715
 ;;9002226.02101,"1033,00409268715 ",.02)
 ;;00409268715
 ;;9002226.02101,"1033,00409268949 ",.01)
 ;;00409268949
 ;;9002226.02101,"1033,00409268949 ",.02)
 ;;00409268949
 ;;9002226.02101,"1033,00409298749 ",.01)
 ;;00409298749
 ;;9002226.02101,"1033,00409298749 ",.02)
 ;;00409298749
 ;;9002226.02101,"1033,00409298801 ",.01)
 ;;00409298801
 ;;9002226.02101,"1033,00409298801 ",.02)
 ;;00409298801
 ;;9002226.02101,"1033,00409299803 ",.01)
 ;;00409299803
 ;;9002226.02101,"1033,00409299803 ",.02)
 ;;00409299803
 ;;9002226.02101,"1033,00409405001 ",.01)
 ;;00409405001
 ;;9002226.02101,"1033,00409405001 ",.02)
 ;;00409405001
 ;;9002226.02101,"1033,00409405101 ",.01)
 ;;00409405101
 ;;9002226.02101,"1033,00409405101 ",.02)
 ;;00409405101
 ;;9002226.02101,"1033,00409405201 ",.01)
 ;;00409405201
 ;;9002226.02101,"1033,00409405201 ",.02)
 ;;00409405201
 ;;9002226.02101,"1033,00409405303 ",.01)
 ;;00409405303
 ;;9002226.02101,"1033,00409405303 ",.02)
 ;;00409405303
 ;;9002226.02101,"1033,00409405403 ",.01)
 ;;00409405403
 ;;9002226.02101,"1033,00409405403 ",.02)
 ;;00409405403
 ;;9002226.02101,"1033,00409405503 ",.01)
 ;;00409405503
 ;;9002226.02101,"1033,00409405503 ",.02)
 ;;00409405503
 ;;9002226.02101,"1033,00409419701 ",.01)
 ;;00409419701
 ;;9002226.02101,"1033,00409419701 ",.02)
 ;;00409419701
 ;;9002226.02101,"1033,00409477702 ",.01)
 ;;00409477702
 ;;9002226.02101,"1033,00409477702 ",.02)
 ;;00409477702
 ;;9002226.02101,"1033,00409477723 ",.01)
 ;;00409477723
 ;;9002226.02101,"1033,00409477723 ",.02)
 ;;00409477723
 ;;9002226.02101,"1033,00409477749 ",.01)
 ;;00409477749
 ;;9002226.02101,"1033,00409477749 ",.02)
 ;;00409477749
 ;;9002226.02101,"1033,00409477750 ",.01)
 ;;00409477750
 ;;9002226.02101,"1033,00409477750 ",.02)
 ;;00409477750
 ;;9002226.02101,"1033,00409477761 ",.01)
 ;;00409477761
 ;;9002226.02101,"1033,00409477761 ",.02)
 ;;00409477761
 ;;9002226.02101,"1033,00409477762 ",.01)
 ;;00409477762
 ;;9002226.02101,"1033,00409477762 ",.02)
 ;;00409477762
 ;;9002226.02101,"1033,00409733201 ",.01)
 ;;00409733201
 ;;9002226.02101,"1033,00409733201 ",.02)
 ;;00409733201
 ;;9002226.02101,"1033,00409733261 ",.01)
 ;;00409733261
 ;;9002226.02101,"1033,00409733261 ",.02)
 ;;00409733261
 ;;9002226.02101,"1033,00409733304 ",.01)
 ;;00409733304
 ;;9002226.02101,"1033,00409733304 ",.02)
 ;;00409733304
 ;;9002226.02101,"1033,00409733349 ",.01)
 ;;00409733349
 ;;9002226.02101,"1033,00409733349 ",.02)
 ;;00409733349
 ;;9002226.02101,"1033,00409733410 ",.01)
 ;;00409733410
 ;;9002226.02101,"1033,00409733410 ",.02)
 ;;00409733410
 ;;9002226.02101,"1033,00409733503 ",.01)
 ;;00409733503
 ;;9002226.02101,"1033,00409733503 ",.02)
 ;;00409733503
 ;;9002226.02101,"1033,00409733561 ",.01)
 ;;00409733561
 ;;9002226.02101,"1033,00409733561 ",.02)
 ;;00409733561
 ;;9002226.02101,"1033,00409733604 ",.01)
 ;;00409733604
 ;;9002226.02101,"1033,00409733604 ",.02)
 ;;00409733604
 ;;9002226.02101,"1033,00409733649 ",.01)
 ;;00409733649
 ;;9002226.02101,"1033,00409733649 ",.02)
 ;;00409733649
 ;;9002226.02101,"1033,00409733701 ",.01)
 ;;00409733701
 ;;9002226.02101,"1033,00409733701 ",.02)
 ;;00409733701
 ;;9002226.02101,"1033,00409733801 ",.01)
 ;;00409733801
 ;;9002226.02101,"1033,00409733801 ",.02)
 ;;00409733801
 ;;9002226.02101,"1033,00440110030 ",.01)
 ;;00440110030
 ;;9002226.02101,"1033,00440110030 ",.02)
 ;;00440110030
 ;;9002226.02101,"1033,00440110104 ",.01)
 ;;00440110104
 ;;9002226.02101,"1033,00440110104 ",.02)
 ;;00440110104
 ;;9002226.02101,"1033,00440110130 ",.01)
 ;;00440110130
 ;;9002226.02101,"1033,00440110130 ",.02)
 ;;00440110130
 ;;9002226.02101,"1033,00440124040 ",.01)
 ;;00440124040
 ;;9002226.02101,"1033,00440124040 ",.02)
 ;;00440124040
 ;;9002226.02101,"1033,00440124340 ",.01)
 ;;00440124340
 ;;9002226.02101,"1033,00440124340 ",.02)
 ;;00440124340
 ;;9002226.02101,"1033,00440124440 ",.01)
 ;;00440124440
 ;;9002226.02101,"1033,00440124440 ",.02)
 ;;00440124440
 ;;9002226.02101,"1033,00440130040 ",.01)
 ;;00440130040
 ;;9002226.02101,"1033,00440130040 ",.02)
 ;;00440130040
 ;;9002226.02101,"1033,00440138040 ",.01)
 ;;00440138040
 ;;9002226.02101,"1033,00440138040 ",.02)
 ;;00440138040
 ;;9002226.02101,"1033,00440148114 ",.01)
 ;;00440148114
 ;;9002226.02101,"1033,00440148114 ",.02)
 ;;00440148114
 ;;9002226.02101,"1033,00440148120 ",.01)
 ;;00440148120
 ;;9002226.02101,"1033,00440148120 ",.02)
 ;;00440148120
 ;;9002226.02101,"1033,00440205540 ",.01)
 ;;00440205540
 ;;9002226.02101,"1033,00440205540 ",.02)
 ;;00440205540
 ;;9002226.02101,"1033,00440205640 ",.01)
 ;;00440205640
 ;;9002226.02101,"1033,00440205640 ",.02)
 ;;00440205640
 ;;9002226.02101,"1033,00440240620 ",.01)
 ;;00440240620
 ;;9002226.02101,"1033,00440240620 ",.02)
 ;;00440240620
 ;;9002226.02101,"1033,00440250528 ",.01)
 ;;00440250528
 ;;9002226.02101,"1033,00440250528 ",.02)
 ;;00440250528
 ;;9002226.02101,"1033,00440710000 ",.01)
 ;;00440710000
 ;;9002226.02101,"1033,00440710000 ",.02)
 ;;00440710000
 ;;9002226.02101,"1033,00440710020 ",.01)
 ;;00440710020
 ;;9002226.02101,"1033,00440710020 ",.02)
 ;;00440710020
 ;;9002226.02101,"1033,00440710030 ",.01)
 ;;00440710030
 ;;9002226.02101,"1033,00440710030 ",.02)
 ;;00440710030
 ;;9002226.02101,"1033,00440710060 ",.01)
 ;;00440710060
 ;;9002226.02101,"1033,00440710060 ",.02)
 ;;00440710060
 ;;9002226.02101,"1033,00440710090 ",.01)
 ;;00440710090
 ;;9002226.02101,"1033,00440710090 ",.02)
 ;;00440710090
 ;;9002226.02101,"1033,00440710130 ",.01)
 ;;00440710130
 ;;9002226.02101,"1033,00440710130 ",.02)
 ;;00440710130
 ;;9002226.02101,"1033,00440710530 ",.01)
 ;;00440710530
 ;;9002226.02101,"1033,00440710530 ",.02)
 ;;00440710530
 ;;9002226.02101,"1033,00440710621 ",.01)
 ;;00440710621
 ;;9002226.02101,"1033,00440710621 ",.02)
 ;;00440710621
 ;;9002226.02101,"1033,00440710630 ",.01)
 ;;00440710630
 ;;9002226.02101,"1033,00440710630 ",.02)
 ;;00440710630
 ;;9002226.02101,"1033,00440710820 ",.01)
 ;;00440710820
 ;;9002226.02101,"1033,00440710820 ",.02)
 ;;00440710820
 ;;9002226.02101,"1033,00440724028 ",.01)
 ;;00440724028
 ;;9002226.02101,"1033,00440724028 ",.02)
 ;;00440724028
 ;;9002226.02101,"1033,00440724040 ",.01)
 ;;00440724040
 ;;9002226.02101,"1033,00440724040 ",.02)
 ;;00440724040
 ;;9002226.02101,"1033,00440724121 ",.01)
 ;;00440724121
 ;;9002226.02101,"1033,00440724121 ",.02)
 ;;00440724121
 ;;9002226.02101,"1033,00440724140 ",.01)
 ;;00440724140
 ;;9002226.02101,"1033,00440724140 ",.02)
 ;;00440724140
 ;;9002226.02101,"1033,00440724328 ",.01)
 ;;00440724328
 ;;9002226.02101,"1033,00440724328 ",.02)
 ;;00440724328
 ;;9002226.02101,"1033,00440729006 ",.01)
 ;;00440729006
 ;;9002226.02101,"1033,00440729006 ",.02)
 ;;00440729006
 ;;9002226.02101,"1033,00440729120 ",.01)
 ;;00440729120
 ;;9002226.02101,"1033,00440729120 ",.02)
 ;;00440729120
 ;;9002226.02101,"1033,00440729160 ",.01)
 ;;00440729160
 ;;9002226.02101,"1033,00440729160 ",.02)
 ;;00440729160
 ;;9002226.02101,"1033,00440730030 ",.01)
 ;;00440730030
 ;;9002226.02101,"1033,00440730030 ",.02)
 ;;00440730030
 ;;9002226.02101,"1033,00440730040 ",.01)
 ;;00440730040
 ;;9002226.02101,"1033,00440730040 ",.02)
 ;;00440730040
 ;;9002226.02101,"1033,00440730056 ",.01)
 ;;00440730056
 ;;9002226.02101,"1033,00440730056 ",.02)
 ;;00440730056
 ;;9002226.02101,"1033,00440730090 ",.01)
 ;;00440730090
 ;;9002226.02101,"1033,00440730090 ",.02)
 ;;00440730090
 ;;9002226.02101,"1033,00440738000 ",.01)
 ;;00440738000
 ;;9002226.02101,"1033,00440738000 ",.02)
 ;;00440738000
 ;;9002226.02101,"1033,00440738002 ",.01)
 ;;00440738002
 ;;9002226.02101,"1033,00440738002 ",.02)
 ;;00440738002
 ;;9002226.02101,"1033,00440738010 ",.01)
 ;;00440738010
 ;;9002226.02101,"1033,00440738010 ",.02)
 ;;00440738010
 ;;9002226.02101,"1033,00440738020 ",.01)
 ;;00440738020
 ;;9002226.02101,"1033,00440738020 ",.02)
 ;;00440738020
 ;;9002226.02101,"1033,00440738028 ",.01)
 ;;00440738028
 ;;9002226.02101,"1033,00440738028 ",.02)
 ;;00440738028
 ;;9002226.02101,"1033,00440738040 ",.01)
 ;;00440738040
 ;;9002226.02101,"1033,00440738040 ",.02)
 ;;00440738040
 ;;9002226.02101,"1033,00440738140 ",.01)
 ;;00440738140
 ;;9002226.02101,"1033,00440738140 ",.02)
 ;;00440738140
 ;;9002226.02101,"1033,00440748114 ",.01)
 ;;00440748114
 ;;9002226.02101,"1033,00440748114 ",.02)
 ;;00440748114
 ;;9002226.02101,"1033,00440748120 ",.01)
 ;;00440748120
 ;;9002226.02101,"1033,00440748120 ",.02)
 ;;00440748120
 ;;9002226.02101,"1033,00440748130 ",.01)
 ;;00440748130
 ;;9002226.02101,"1033,00440748130 ",.02)
 ;;00440748130
 ;;9002226.02101,"1033,00440748160 ",.01)
 ;;00440748160
 ;;9002226.02101,"1033,00440748160 ",.02)
 ;;00440748160
 ;;9002226.02101,"1033,00440748319 ",.01)
 ;;00440748319
 ;;9002226.02101,"1033,00440748319 ",.02)
 ;;00440748319
 ;;9002226.02101,"1033,00440748371 ",.01)
 ;;00440748371
 ;;9002226.02101,"1033,00440748371 ",.02)
 ;;00440748371
 ;;9002226.02101,"1033,00440748392 ",.01)
 ;;00440748392
 ;;9002226.02101,"1033,00440748392 ",.02)
 ;;00440748392
 ;;9002226.02101,"1033,00440748395 ",.01)
 ;;00440748395
 ;;9002226.02101,"1033,00440748395 ",.02)
 ;;00440748395
 ;;9002226.02101,"1033,00440748397 ",.01)
 ;;00440748397
 ;;9002226.02101,"1033,00440748397 ",.02)
 ;;00440748397
 ;;9002226.02101,"1033,00440751040 ",.01)
 ;;00440751040
 ;;9002226.02101,"1033,00440751040 ",.02)
 ;;00440751040
 ;;9002226.02101,"1033,00440780560 ",.01)
 ;;00440780560
 ;;9002226.02101,"1033,00440780560 ",.02)
 ;;00440780560
 ;;9002226.02101,"1033,00440805040 ",.01)
 ;;00440805040
 ;;9002226.02101,"1033,00440805040 ",.02)
 ;;00440805040
 ;;9002226.02101,"1033,00440805140 ",.01)
 ;;00440805140
 ;;9002226.02101,"1033,00440805140 ",.02)
 ;;00440805140
 ;;9002226.02101,"1033,00440805540 ",.01)
 ;;00440805540
 ;;9002226.02101,"1033,00440805540 ",.02)
 ;;00440805540
 ;;9002226.02101,"1033,00440805620 ",.01)
 ;;00440805620
 ;;9002226.02101,"1033,00440805620 ",.02)
 ;;00440805620
 ;;9002226.02101,"1033,00440805640 ",.01)
 ;;00440805640
 ;;9002226.02101,"1033,00440805640 ",.02)
 ;;00440805640
 ;;9002226.02101,"1033,00440805690 ",.01)
 ;;00440805690
 ;;9002226.02101,"1033,00440805690 ",.02)
 ;;00440805690
 ;;9002226.02101,"1033,00440835820 ",.01)
 ;;00440835820
 ;;9002226.02101,"1033,00440835820 ",.02)
 ;;00440835820
 ;;9002226.02101,"1033,00440835840 ",.01)
 ;;00440835840
 ;;9002226.02101,"1033,00440835840 ",.02)
 ;;00440835840
 ;;9002226.02101,"1033,00440840603 ",.01)
 ;;00440840603
 ;;9002226.02101,"1033,00440840603 ",.02)
 ;;00440840603
 ;;9002226.02101,"1033,00440840606 ",.01)
 ;;00440840606
 ;;9002226.02101,"1033,00440840606 ",.02)
 ;;00440840606
 ;;9002226.02101,"1033,00440840608 ",.01)
 ;;00440840608
 ;;9002226.02101,"1033,00440840608 ",.02)
 ;;00440840608