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

BGPM5AUQ.m

Go to the documentation of this file.
BGPM5AUQ ;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,00490709877 ",.02)
 ;;00490709877
 ;;9002226.02101,"1033,00490709879 ",.01)
 ;;00490709879
 ;;9002226.02101,"1033,00490709879 ",.02)
 ;;00490709879
 ;;9002226.02101,"1033,00490709880 ",.01)
 ;;00490709880
 ;;9002226.02101,"1033,00490709880 ",.02)
 ;;00490709880
 ;;9002226.02101,"1033,00490709881 ",.01)
 ;;00490709881
 ;;9002226.02101,"1033,00490709881 ",.02)
 ;;00490709881
 ;;9002226.02101,"1033,00490709882 ",.01)
 ;;00490709882
 ;;9002226.02101,"1033,00490709882 ",.02)
 ;;00490709882
 ;;9002226.02101,"1033,00490709883 ",.01)
 ;;00490709883
 ;;9002226.02101,"1033,00490709883 ",.02)
 ;;00490709883
 ;;9002226.02101,"1033,00490709884 ",.01)
 ;;00490709884
 ;;9002226.02101,"1033,00490709884 ",.02)
 ;;00490709884
 ;;9002226.02101,"1033,00490709887 ",.01)
 ;;00490709887
 ;;9002226.02101,"1033,00490709887 ",.02)
 ;;00490709887
 ;;9002226.02101,"1033,00490709889 ",.01)
 ;;00490709889
 ;;9002226.02101,"1033,00490709889 ",.02)
 ;;00490709889
 ;;9002226.02101,"1033,00490709890 ",.01)
 ;;00490709890
 ;;9002226.02101,"1033,00490709890 ",.02)
 ;;00490709890
 ;;9002226.02101,"1033,00490709891 ",.01)
 ;;00490709891
 ;;9002226.02101,"1033,00490709891 ",.02)
 ;;00490709891
 ;;9002226.02101,"1033,00490709892 ",.01)
 ;;00490709892
 ;;9002226.02101,"1033,00490709892 ",.02)
 ;;00490709892
 ;;9002226.02101,"1033,00490709893 ",.01)
 ;;00490709893
 ;;9002226.02101,"1033,00490709893 ",.02)
 ;;00490709893
 ;;9002226.02101,"1033,00490709896 ",.01)
 ;;00490709896
 ;;9002226.02101,"1033,00490709896 ",.02)
 ;;00490709896
 ;;9002226.02101,"1033,00490709897 ",.01)
 ;;00490709897
 ;;9002226.02101,"1033,00490709897 ",.02)
 ;;00490709897
 ;;9002226.02101,"1033,00490709898 ",.01)
 ;;00490709898
 ;;9002226.02101,"1033,00490709898 ",.02)
 ;;00490709898
 ;;9002226.02101,"1033,00490709899 ",.01)
 ;;00490709899
 ;;9002226.02101,"1033,00490709899 ",.02)
 ;;00490709899
 ;;9002226.02101,"1033,00490714601 ",.01)
 ;;00490714601
 ;;9002226.02101,"1033,00490714601 ",.02)
 ;;00490714601
 ;;9002226.02101,"1033,00490714602 ",.01)
 ;;00490714602
 ;;9002226.02101,"1033,00490714602 ",.02)
 ;;00490714602
 ;;9002226.02101,"1033,00490714603 ",.01)
 ;;00490714603
 ;;9002226.02101,"1033,00490714603 ",.02)
 ;;00490714603
 ;;9002226.02101,"1033,00490714604 ",.01)
 ;;00490714604
 ;;9002226.02101,"1033,00490714604 ",.02)
 ;;00490714604
 ;;9002226.02101,"1033,00490714605 ",.01)
 ;;00490714605
 ;;9002226.02101,"1033,00490714605 ",.02)
 ;;00490714605
 ;;9002226.02101,"1033,00490714606 ",.01)
 ;;00490714606
 ;;9002226.02101,"1033,00490714606 ",.02)
 ;;00490714606
 ;;9002226.02101,"1033,00490714607 ",.01)
 ;;00490714607
 ;;9002226.02101,"1033,00490714607 ",.02)
 ;;00490714607
 ;;9002226.02101,"1033,00490714608 ",.01)
 ;;00490714608
 ;;9002226.02101,"1033,00490714608 ",.02)
 ;;00490714608
 ;;9002226.02101,"1033,00490714609 ",.01)
 ;;00490714609
 ;;9002226.02101,"1033,00490714609 ",.02)
 ;;00490714609
 ;;9002226.02101,"1033,00490714610 ",.01)
 ;;00490714610
 ;;9002226.02101,"1033,00490714610 ",.02)
 ;;00490714610
 ;;9002226.02101,"1033,00490714612 ",.01)
 ;;00490714612
 ;;9002226.02101,"1033,00490714612 ",.02)
 ;;00490714612
 ;;9002226.02101,"1033,00490714614 ",.01)
 ;;00490714614
 ;;9002226.02101,"1033,00490714614 ",.02)
 ;;00490714614
 ;;9002226.02101,"1033,00490714615 ",.01)
 ;;00490714615
 ;;9002226.02101,"1033,00490714615 ",.02)
 ;;00490714615
 ;;9002226.02101,"1033,00490714616 ",.01)
 ;;00490714616
 ;;9002226.02101,"1033,00490714616 ",.02)
 ;;00490714616
 ;;9002226.02101,"1033,00490714618 ",.01)
 ;;00490714618
 ;;9002226.02101,"1033,00490714618 ",.02)
 ;;00490714618
 ;;9002226.02101,"1033,00490714620 ",.01)
 ;;00490714620
 ;;9002226.02101,"1033,00490714620 ",.02)
 ;;00490714620
 ;;9002226.02101,"1033,00490714621 ",.01)
 ;;00490714621
 ;;9002226.02101,"1033,00490714621 ",.02)
 ;;00490714621
 ;;9002226.02101,"1033,00490714624 ",.01)
 ;;00490714624
 ;;9002226.02101,"1033,00490714624 ",.02)
 ;;00490714624
 ;;9002226.02101,"1033,00490714625 ",.01)
 ;;00490714625
 ;;9002226.02101,"1033,00490714625 ",.02)
 ;;00490714625
 ;;9002226.02101,"1033,00490714626 ",.01)
 ;;00490714626
 ;;9002226.02101,"1033,00490714626 ",.02)
 ;;00490714626
 ;;9002226.02101,"1033,00490714627 ",.01)
 ;;00490714627
 ;;9002226.02101,"1033,00490714627 ",.02)
 ;;00490714627
 ;;9002226.02101,"1033,00490714628 ",.01)
 ;;00490714628
 ;;9002226.02101,"1033,00490714628 ",.02)
 ;;00490714628
 ;;9002226.02101,"1033,00490714630 ",.01)
 ;;00490714630
 ;;9002226.02101,"1033,00490714630 ",.02)
 ;;00490714630
 ;;9002226.02101,"1033,00490714632 ",.01)
 ;;00490714632
 ;;9002226.02101,"1033,00490714632 ",.02)
 ;;00490714632
 ;;9002226.02101,"1033,00490714635 ",.01)
 ;;00490714635
 ;;9002226.02101,"1033,00490714635 ",.02)
 ;;00490714635
 ;;9002226.02101,"1033,00490714636 ",.01)
 ;;00490714636
 ;;9002226.02101,"1033,00490714636 ",.02)
 ;;00490714636
 ;;9002226.02101,"1033,00490714640 ",.01)
 ;;00490714640
 ;;9002226.02101,"1033,00490714640 ",.02)
 ;;00490714640
 ;;9002226.02101,"1033,00490714642 ",.01)
 ;;00490714642
 ;;9002226.02101,"1033,00490714642 ",.02)
 ;;00490714642
 ;;9002226.02101,"1033,00490714644 ",.01)
 ;;00490714644
 ;;9002226.02101,"1033,00490714644 ",.02)
 ;;00490714644
 ;;9002226.02101,"1033,00490714645 ",.01)
 ;;00490714645
 ;;9002226.02101,"1033,00490714645 ",.02)
 ;;00490714645
 ;;9002226.02101,"1033,00490714648 ",.01)
 ;;00490714648
 ;;9002226.02101,"1033,00490714648 ",.02)
 ;;00490714648
 ;;9002226.02101,"1033,00490714650 ",.01)
 ;;00490714650
 ;;9002226.02101,"1033,00490714650 ",.02)
 ;;00490714650
 ;;9002226.02101,"1033,00490714656 ",.01)
 ;;00490714656
 ;;9002226.02101,"1033,00490714656 ",.02)
 ;;00490714656
 ;;9002226.02101,"1033,00490714660 ",.01)
 ;;00490714660
 ;;9002226.02101,"1033,00490714660 ",.02)
 ;;00490714660
 ;;9002226.02101,"1033,00490714667 ",.01)
 ;;00490714667
 ;;9002226.02101,"1033,00490714667 ",.02)
 ;;00490714667
 ;;9002226.02101,"1033,00490714669 ",.01)
 ;;00490714669
 ;;9002226.02101,"1033,00490714669 ",.02)
 ;;00490714669
 ;;9002226.02101,"1033,00490714670 ",.01)
 ;;00490714670
 ;;9002226.02101,"1033,00490714670 ",.02)
 ;;00490714670
 ;;9002226.02101,"1033,00490714671 ",.01)
 ;;00490714671
 ;;9002226.02101,"1033,00490714671 ",.02)
 ;;00490714671
 ;;9002226.02101,"1033,00490714672 ",.01)
 ;;00490714672
 ;;9002226.02101,"1033,00490714672 ",.02)
 ;;00490714672
 ;;9002226.02101,"1033,00490714673 ",.01)
 ;;00490714673
 ;;9002226.02101,"1033,00490714673 ",.02)
 ;;00490714673
 ;;9002226.02101,"1033,00490714675 ",.01)
 ;;00490714675
 ;;9002226.02101,"1033,00490714675 ",.02)
 ;;00490714675
 ;;9002226.02101,"1033,00490714676 ",.01)
 ;;00490714676
 ;;9002226.02101,"1033,00490714676 ",.02)
 ;;00490714676
 ;;9002226.02101,"1033,00490714677 ",.01)
 ;;00490714677
 ;;9002226.02101,"1033,00490714677 ",.02)
 ;;00490714677
 ;;9002226.02101,"1033,00490714679 ",.01)
 ;;00490714679
 ;;9002226.02101,"1033,00490714679 ",.02)
 ;;00490714679
 ;;9002226.02101,"1033,00490714680 ",.01)
 ;;00490714680
 ;;9002226.02101,"1033,00490714680 ",.02)
 ;;00490714680
 ;;9002226.02101,"1033,00490714681 ",.01)
 ;;00490714681
 ;;9002226.02101,"1033,00490714681 ",.02)
 ;;00490714681
 ;;9002226.02101,"1033,00490714682 ",.01)
 ;;00490714682
 ;;9002226.02101,"1033,00490714682 ",.02)
 ;;00490714682
 ;;9002226.02101,"1033,00490714683 ",.01)
 ;;00490714683
 ;;9002226.02101,"1033,00490714683 ",.02)
 ;;00490714683
 ;;9002226.02101,"1033,00490714684 ",.01)
 ;;00490714684
 ;;9002226.02101,"1033,00490714684 ",.02)
 ;;00490714684
 ;;9002226.02101,"1033,00490714687 ",.01)
 ;;00490714687
 ;;9002226.02101,"1033,00490714687 ",.02)
 ;;00490714687
 ;;9002226.02101,"1033,00490714689 ",.01)
 ;;00490714689
 ;;9002226.02101,"1033,00490714689 ",.02)
 ;;00490714689
 ;;9002226.02101,"1033,00490714690 ",.01)
 ;;00490714690
 ;;9002226.02101,"1033,00490714690 ",.02)
 ;;00490714690
 ;;9002226.02101,"1033,00490714691 ",.01)
 ;;00490714691
 ;;9002226.02101,"1033,00490714691 ",.02)
 ;;00490714691
 ;;9002226.02101,"1033,00490714692 ",.01)
 ;;00490714692
 ;;9002226.02101,"1033,00490714692 ",.02)
 ;;00490714692
 ;;9002226.02101,"1033,00490714693 ",.01)
 ;;00490714693
 ;;9002226.02101,"1033,00490714693 ",.02)
 ;;00490714693
 ;;9002226.02101,"1033,00517871110 ",.01)
 ;;00517871110
 ;;9002226.02101,"1033,00517871110 ",.02)
 ;;00517871110
 ;;9002226.02101,"1033,00517872210 ",.01)
 ;;00517872210
 ;;9002226.02101,"1033,00517872210 ",.02)
 ;;00517872210
 ;;9002226.02101,"1033,00517872510 ",.01)
 ;;00517872510
 ;;9002226.02101,"1033,00517872510 ",.02)
 ;;00517872510
 ;;9002226.02101,"1033,00517875010 ",.01)
 ;;00517875010
 ;;9002226.02101,"1033,00517875010 ",.02)
 ;;00517875010
 ;;9002226.02101,"1033,00527133501 ",.01)
 ;;00527133501
 ;;9002226.02101,"1033,00527133501 ",.02)
 ;;00527133501
 ;;9002226.02101,"1033,00527133601 ",.01)
 ;;00527133601
 ;;9002226.02101,"1033,00527133601 ",.02)
 ;;00527133601
 ;;9002226.02101,"1033,00527133606 ",.01)
 ;;00527133606
 ;;9002226.02101,"1033,00527133606 ",.02)
 ;;00527133606
 ;;9002226.02101,"1033,00527133610 ",.01)
 ;;00527133610
 ;;9002226.02101,"1033,00527133610 ",.02)
 ;;00527133610
 ;;9002226.02101,"1033,00527133825 ",.01)
 ;;00527133825
 ;;9002226.02101,"1033,00527133825 ",.02)
 ;;00527133825
 ;;9002226.02101,"1033,00527133850 ",.01)
 ;;00527133850
 ;;9002226.02101,"1033,00527133850 ",.02)
 ;;00527133850
 ;;9002226.02101,"1033,00527138101 ",.01)
 ;;00527138101
 ;;9002226.02101,"1033,00527138101 ",.02)
 ;;00527138101
 ;;9002226.02101,"1033,00527138104 ",.01)
 ;;00527138104
 ;;9002226.02101,"1033,00527138104 ",.02)
 ;;00527138104
 ;;9002226.02101,"1033,00527138201 ",.01)
 ;;00527138201
 ;;9002226.02101,"1033,00527138201 ",.02)
 ;;00527138201
 ;;9002226.02101,"1033,00527138301 ",.01)
 ;;00527138301
 ;;9002226.02101,"1033,00527138301 ",.02)
 ;;00527138301
 ;;9002226.02101,"1033,00527138302 ",.01)
 ;;00527138302
 ;;9002226.02101,"1033,00527138302 ",.02)
 ;;00527138302
 ;;9002226.02101,"1033,00527138401 ",.01)
 ;;00527138401
 ;;9002226.02101,"1033,00527138401 ",.02)
 ;;00527138401
 ;;9002226.02101,"1033,00527138501 ",.01)
 ;;00527138501
 ;;9002226.02101,"1033,00527138501 ",.02)
 ;;00527138501
 ;;9002226.02101,"1033,00527138650 ",.01)
 ;;00527138650
 ;;9002226.02101,"1033,00527138650 ",.02)
 ;;00527138650
 ;;9002226.02101,"1033,00527144201 ",.01)
 ;;00527144201
 ;;9002226.02101,"1033,00527144201 ",.02)
 ;;00527144201
 ;;9002226.02101,"1033,00527144301 ",.01)
 ;;00527144301
 ;;9002226.02101,"1033,00527144301 ",.02)
 ;;00527144301
 ;;9002226.02101,"1033,00527144305 ",.01)
 ;;00527144305
 ;;9002226.02101,"1033,00527144305 ",.02)
 ;;00527144305
 ;;9002226.02101,"1033,00527153501 ",.01)
 ;;00527153501
 ;;9002226.02101,"1033,00527153501 ",.02)
 ;;00527153501
 ;;9002226.02101,"1033,00527153701 ",.01)
 ;;00527153701
 ;;9002226.02101,"1033,00527153701 ",.02)
 ;;00527153701
 ;;9002226.02101,"1033,00527153730 ",.01)
 ;;00527153730
 ;;9002226.02101,"1033,00527153730 ",.02)
 ;;00527153730
 ;;9002226.02101,"1033,00555001002 ",.01)
 ;;00555001002
 ;;9002226.02101,"1033,00555001002 ",.02)
 ;;00555001002
 ;;9002226.02101,"1033,00555001005 ",.01)
 ;;00555001005
 ;;9002226.02101,"1033,00555001005 ",.02)
 ;;00555001005
 ;;9002226.02101,"1033,00555001102 ",.01)
 ;;00555001102
 ;;9002226.02101,"1033,00555001102 ",.02)
 ;;00555001102
 ;;9002226.02101,"1033,00555001105 ",.01)
 ;;00555001105
 ;;9002226.02101,"1033,00555001105 ",.02)
 ;;00555001105
 ;;9002226.02101,"1033,00555001302 ",.01)
 ;;00555001302
 ;;9002226.02101,"1033,00555001302 ",.02)
 ;;00555001302