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.
  1. BGPM5AUQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1033,00490709877 ",.02)
  1. ;;00490709877
  1. ;;9002226.02101,"1033,00490709879 ",.01)
  1. ;;00490709879
  1. ;;9002226.02101,"1033,00490709879 ",.02)
  1. ;;00490709879
  1. ;;9002226.02101,"1033,00490709880 ",.01)
  1. ;;00490709880
  1. ;;9002226.02101,"1033,00490709880 ",.02)
  1. ;;00490709880
  1. ;;9002226.02101,"1033,00490709881 ",.01)
  1. ;;00490709881
  1. ;;9002226.02101,"1033,00490709881 ",.02)
  1. ;;00490709881
  1. ;;9002226.02101,"1033,00490709882 ",.01)
  1. ;;00490709882
  1. ;;9002226.02101,"1033,00490709882 ",.02)
  1. ;;00490709882
  1. ;;9002226.02101,"1033,00490709883 ",.01)
  1. ;;00490709883
  1. ;;9002226.02101,"1033,00490709883 ",.02)
  1. ;;00490709883
  1. ;;9002226.02101,"1033,00490709884 ",.01)
  1. ;;00490709884
  1. ;;9002226.02101,"1033,00490709884 ",.02)
  1. ;;00490709884
  1. ;;9002226.02101,"1033,00490709887 ",.01)
  1. ;;00490709887
  1. ;;9002226.02101,"1033,00490709887 ",.02)
  1. ;;00490709887
  1. ;;9002226.02101,"1033,00490709889 ",.01)
  1. ;;00490709889
  1. ;;9002226.02101,"1033,00490709889 ",.02)
  1. ;;00490709889
  1. ;;9002226.02101,"1033,00490709890 ",.01)
  1. ;;00490709890
  1. ;;9002226.02101,"1033,00490709890 ",.02)
  1. ;;00490709890
  1. ;;9002226.02101,"1033,00490709891 ",.01)
  1. ;;00490709891
  1. ;;9002226.02101,"1033,00490709891 ",.02)
  1. ;;00490709891
  1. ;;9002226.02101,"1033,00490709892 ",.01)
  1. ;;00490709892
  1. ;;9002226.02101,"1033,00490709892 ",.02)
  1. ;;00490709892
  1. ;;9002226.02101,"1033,00490709893 ",.01)
  1. ;;00490709893
  1. ;;9002226.02101,"1033,00490709893 ",.02)
  1. ;;00490709893
  1. ;;9002226.02101,"1033,00490709896 ",.01)
  1. ;;00490709896
  1. ;;9002226.02101,"1033,00490709896 ",.02)
  1. ;;00490709896
  1. ;;9002226.02101,"1033,00490709897 ",.01)
  1. ;;00490709897
  1. ;;9002226.02101,"1033,00490709897 ",.02)
  1. ;;00490709897
  1. ;;9002226.02101,"1033,00490709898 ",.01)
  1. ;;00490709898
  1. ;;9002226.02101,"1033,00490709898 ",.02)
  1. ;;00490709898
  1. ;;9002226.02101,"1033,00490709899 ",.01)
  1. ;;00490709899
  1. ;;9002226.02101,"1033,00490709899 ",.02)
  1. ;;00490709899
  1. ;;9002226.02101,"1033,00490714601 ",.01)
  1. ;;00490714601
  1. ;;9002226.02101,"1033,00490714601 ",.02)
  1. ;;00490714601
  1. ;;9002226.02101,"1033,00490714602 ",.01)
  1. ;;00490714602
  1. ;;9002226.02101,"1033,00490714602 ",.02)
  1. ;;00490714602
  1. ;;9002226.02101,"1033,00490714603 ",.01)
  1. ;;00490714603
  1. ;;9002226.02101,"1033,00490714603 ",.02)
  1. ;;00490714603
  1. ;;9002226.02101,"1033,00490714604 ",.01)
  1. ;;00490714604
  1. ;;9002226.02101,"1033,00490714604 ",.02)
  1. ;;00490714604
  1. ;;9002226.02101,"1033,00490714605 ",.01)
  1. ;;00490714605
  1. ;;9002226.02101,"1033,00490714605 ",.02)
  1. ;;00490714605
  1. ;;9002226.02101,"1033,00490714606 ",.01)
  1. ;;00490714606
  1. ;;9002226.02101,"1033,00490714606 ",.02)
  1. ;;00490714606
  1. ;;9002226.02101,"1033,00490714607 ",.01)
  1. ;;00490714607
  1. ;;9002226.02101,"1033,00490714607 ",.02)
  1. ;;00490714607
  1. ;;9002226.02101,"1033,00490714608 ",.01)
  1. ;;00490714608
  1. ;;9002226.02101,"1033,00490714608 ",.02)
  1. ;;00490714608
  1. ;;9002226.02101,"1033,00490714609 ",.01)
  1. ;;00490714609
  1. ;;9002226.02101,"1033,00490714609 ",.02)
  1. ;;00490714609
  1. ;;9002226.02101,"1033,00490714610 ",.01)
  1. ;;00490714610
  1. ;;9002226.02101,"1033,00490714610 ",.02)
  1. ;;00490714610
  1. ;;9002226.02101,"1033,00490714612 ",.01)
  1. ;;00490714612
  1. ;;9002226.02101,"1033,00490714612 ",.02)
  1. ;;00490714612
  1. ;;9002226.02101,"1033,00490714614 ",.01)
  1. ;;00490714614
  1. ;;9002226.02101,"1033,00490714614 ",.02)
  1. ;;00490714614
  1. ;;9002226.02101,"1033,00490714615 ",.01)
  1. ;;00490714615
  1. ;;9002226.02101,"1033,00490714615 ",.02)
  1. ;;00490714615
  1. ;;9002226.02101,"1033,00490714616 ",.01)
  1. ;;00490714616
  1. ;;9002226.02101,"1033,00490714616 ",.02)
  1. ;;00490714616
  1. ;;9002226.02101,"1033,00490714618 ",.01)
  1. ;;00490714618
  1. ;;9002226.02101,"1033,00490714618 ",.02)
  1. ;;00490714618
  1. ;;9002226.02101,"1033,00490714620 ",.01)
  1. ;;00490714620
  1. ;;9002226.02101,"1033,00490714620 ",.02)
  1. ;;00490714620
  1. ;;9002226.02101,"1033,00490714621 ",.01)
  1. ;;00490714621
  1. ;;9002226.02101,"1033,00490714621 ",.02)
  1. ;;00490714621
  1. ;;9002226.02101,"1033,00490714624 ",.01)
  1. ;;00490714624
  1. ;;9002226.02101,"1033,00490714624 ",.02)
  1. ;;00490714624
  1. ;;9002226.02101,"1033,00490714625 ",.01)
  1. ;;00490714625
  1. ;;9002226.02101,"1033,00490714625 ",.02)
  1. ;;00490714625
  1. ;;9002226.02101,"1033,00490714626 ",.01)
  1. ;;00490714626
  1. ;;9002226.02101,"1033,00490714626 ",.02)
  1. ;;00490714626
  1. ;;9002226.02101,"1033,00490714627 ",.01)
  1. ;;00490714627
  1. ;;9002226.02101,"1033,00490714627 ",.02)
  1. ;;00490714627
  1. ;;9002226.02101,"1033,00490714628 ",.01)
  1. ;;00490714628
  1. ;;9002226.02101,"1033,00490714628 ",.02)
  1. ;;00490714628
  1. ;;9002226.02101,"1033,00490714630 ",.01)
  1. ;;00490714630
  1. ;;9002226.02101,"1033,00490714630 ",.02)
  1. ;;00490714630
  1. ;;9002226.02101,"1033,00490714632 ",.01)
  1. ;;00490714632
  1. ;;9002226.02101,"1033,00490714632 ",.02)
  1. ;;00490714632
  1. ;;9002226.02101,"1033,00490714635 ",.01)
  1. ;;00490714635
  1. ;;9002226.02101,"1033,00490714635 ",.02)
  1. ;;00490714635
  1. ;;9002226.02101,"1033,00490714636 ",.01)
  1. ;;00490714636
  1. ;;9002226.02101,"1033,00490714636 ",.02)
  1. ;;00490714636
  1. ;;9002226.02101,"1033,00490714640 ",.01)
  1. ;;00490714640
  1. ;;9002226.02101,"1033,00490714640 ",.02)
  1. ;;00490714640
  1. ;;9002226.02101,"1033,00490714642 ",.01)
  1. ;;00490714642
  1. ;;9002226.02101,"1033,00490714642 ",.02)
  1. ;;00490714642
  1. ;;9002226.02101,"1033,00490714644 ",.01)
  1. ;;00490714644
  1. ;;9002226.02101,"1033,00490714644 ",.02)
  1. ;;00490714644
  1. ;;9002226.02101,"1033,00490714645 ",.01)
  1. ;;00490714645
  1. ;;9002226.02101,"1033,00490714645 ",.02)
  1. ;;00490714645
  1. ;;9002226.02101,"1033,00490714648 ",.01)
  1. ;;00490714648
  1. ;;9002226.02101,"1033,00490714648 ",.02)
  1. ;;00490714648
  1. ;;9002226.02101,"1033,00490714650 ",.01)
  1. ;;00490714650
  1. ;;9002226.02101,"1033,00490714650 ",.02)
  1. ;;00490714650
  1. ;;9002226.02101,"1033,00490714656 ",.01)
  1. ;;00490714656
  1. ;;9002226.02101,"1033,00490714656 ",.02)
  1. ;;00490714656
  1. ;;9002226.02101,"1033,00490714660 ",.01)
  1. ;;00490714660
  1. ;;9002226.02101,"1033,00490714660 ",.02)
  1. ;;00490714660
  1. ;;9002226.02101,"1033,00490714667 ",.01)
  1. ;;00490714667
  1. ;;9002226.02101,"1033,00490714667 ",.02)
  1. ;;00490714667
  1. ;;9002226.02101,"1033,00490714669 ",.01)
  1. ;;00490714669
  1. ;;9002226.02101,"1033,00490714669 ",.02)
  1. ;;00490714669
  1. ;;9002226.02101,"1033,00490714670 ",.01)
  1. ;;00490714670
  1. ;;9002226.02101,"1033,00490714670 ",.02)
  1. ;;00490714670
  1. ;;9002226.02101,"1033,00490714671 ",.01)
  1. ;;00490714671
  1. ;;9002226.02101,"1033,00490714671 ",.02)
  1. ;;00490714671
  1. ;;9002226.02101,"1033,00490714672 ",.01)
  1. ;;00490714672
  1. ;;9002226.02101,"1033,00490714672 ",.02)
  1. ;;00490714672
  1. ;;9002226.02101,"1033,00490714673 ",.01)
  1. ;;00490714673
  1. ;;9002226.02101,"1033,00490714673 ",.02)
  1. ;;00490714673
  1. ;;9002226.02101,"1033,00490714675 ",.01)
  1. ;;00490714675
  1. ;;9002226.02101,"1033,00490714675 ",.02)
  1. ;;00490714675
  1. ;;9002226.02101,"1033,00490714676 ",.01)
  1. ;;00490714676
  1. ;;9002226.02101,"1033,00490714676 ",.02)
  1. ;;00490714676
  1. ;;9002226.02101,"1033,00490714677 ",.01)
  1. ;;00490714677
  1. ;;9002226.02101,"1033,00490714677 ",.02)
  1. ;;00490714677
  1. ;;9002226.02101,"1033,00490714679 ",.01)
  1. ;;00490714679
  1. ;;9002226.02101,"1033,00490714679 ",.02)
  1. ;;00490714679
  1. ;;9002226.02101,"1033,00490714680 ",.01)
  1. ;;00490714680
  1. ;;9002226.02101,"1033,00490714680 ",.02)
  1. ;;00490714680
  1. ;;9002226.02101,"1033,00490714681 ",.01)
  1. ;;00490714681
  1. ;;9002226.02101,"1033,00490714681 ",.02)
  1. ;;00490714681
  1. ;;9002226.02101,"1033,00490714682 ",.01)
  1. ;;00490714682
  1. ;;9002226.02101,"1033,00490714682 ",.02)
  1. ;;00490714682
  1. ;;9002226.02101,"1033,00490714683 ",.01)
  1. ;;00490714683
  1. ;;9002226.02101,"1033,00490714683 ",.02)
  1. ;;00490714683
  1. ;;9002226.02101,"1033,00490714684 ",.01)
  1. ;;00490714684
  1. ;;9002226.02101,"1033,00490714684 ",.02)
  1. ;;00490714684
  1. ;;9002226.02101,"1033,00490714687 ",.01)
  1. ;;00490714687
  1. ;;9002226.02101,"1033,00490714687 ",.02)
  1. ;;00490714687
  1. ;;9002226.02101,"1033,00490714689 ",.01)
  1. ;;00490714689
  1. ;;9002226.02101,"1033,00490714689 ",.02)
  1. ;;00490714689
  1. ;;9002226.02101,"1033,00490714690 ",.01)
  1. ;;00490714690
  1. ;;9002226.02101,"1033,00490714690 ",.02)
  1. ;;00490714690
  1. ;;9002226.02101,"1033,00490714691 ",.01)
  1. ;;00490714691
  1. ;;9002226.02101,"1033,00490714691 ",.02)
  1. ;;00490714691
  1. ;;9002226.02101,"1033,00490714692 ",.01)
  1. ;;00490714692
  1. ;;9002226.02101,"1033,00490714692 ",.02)
  1. ;;00490714692
  1. ;;9002226.02101,"1033,00490714693 ",.01)
  1. ;;00490714693
  1. ;;9002226.02101,"1033,00490714693 ",.02)
  1. ;;00490714693
  1. ;;9002226.02101,"1033,00517871110 ",.01)
  1. ;;00517871110
  1. ;;9002226.02101,"1033,00517871110 ",.02)
  1. ;;00517871110
  1. ;;9002226.02101,"1033,00517872210 ",.01)
  1. ;;00517872210
  1. ;;9002226.02101,"1033,00517872210 ",.02)
  1. ;;00517872210
  1. ;;9002226.02101,"1033,00517872510 ",.01)
  1. ;;00517872510
  1. ;;9002226.02101,"1033,00517872510 ",.02)
  1. ;;00517872510
  1. ;;9002226.02101,"1033,00517875010 ",.01)
  1. ;;00517875010
  1. ;;9002226.02101,"1033,00517875010 ",.02)
  1. ;;00517875010
  1. ;;9002226.02101,"1033,00527133501 ",.01)
  1. ;;00527133501
  1. ;;9002226.02101,"1033,00527133501 ",.02)
  1. ;;00527133501
  1. ;;9002226.02101,"1033,00527133601 ",.01)
  1. ;;00527133601
  1. ;;9002226.02101,"1033,00527133601 ",.02)
  1. ;;00527133601
  1. ;;9002226.02101,"1033,00527133606 ",.01)
  1. ;;00527133606
  1. ;;9002226.02101,"1033,00527133606 ",.02)
  1. ;;00527133606
  1. ;;9002226.02101,"1033,00527133610 ",.01)
  1. ;;00527133610
  1. ;;9002226.02101,"1033,00527133610 ",.02)
  1. ;;00527133610
  1. ;;9002226.02101,"1033,00527133825 ",.01)
  1. ;;00527133825
  1. ;;9002226.02101,"1033,00527133825 ",.02)
  1. ;;00527133825
  1. ;;9002226.02101,"1033,00527133850 ",.01)
  1. ;;00527133850
  1. ;;9002226.02101,"1033,00527133850 ",.02)
  1. ;;00527133850
  1. ;;9002226.02101,"1033,00527138101 ",.01)
  1. ;;00527138101
  1. ;;9002226.02101,"1033,00527138101 ",.02)
  1. ;;00527138101
  1. ;;9002226.02101,"1033,00527138104 ",.01)
  1. ;;00527138104
  1. ;;9002226.02101,"1033,00527138104 ",.02)
  1. ;;00527138104
  1. ;;9002226.02101,"1033,00527138201 ",.01)
  1. ;;00527138201
  1. ;;9002226.02101,"1033,00527138201 ",.02)
  1. ;;00527138201
  1. ;;9002226.02101,"1033,00527138301 ",.01)
  1. ;;00527138301
  1. ;;9002226.02101,"1033,00527138301 ",.02)
  1. ;;00527138301
  1. ;;9002226.02101,"1033,00527138302 ",.01)
  1. ;;00527138302
  1. ;;9002226.02101,"1033,00527138302 ",.02)
  1. ;;00527138302
  1. ;;9002226.02101,"1033,00527138401 ",.01)
  1. ;;00527138401
  1. ;;9002226.02101,"1033,00527138401 ",.02)
  1. ;;00527138401
  1. ;;9002226.02101,"1033,00527138501 ",.01)
  1. ;;00527138501
  1. ;;9002226.02101,"1033,00527138501 ",.02)
  1. ;;00527138501
  1. ;;9002226.02101,"1033,00527138650 ",.01)
  1. ;;00527138650
  1. ;;9002226.02101,"1033,00527138650 ",.02)
  1. ;;00527138650
  1. ;;9002226.02101,"1033,00527144201 ",.01)
  1. ;;00527144201
  1. ;;9002226.02101,"1033,00527144201 ",.02)
  1. ;;00527144201
  1. ;;9002226.02101,"1033,00527144301 ",.01)
  1. ;;00527144301
  1. ;;9002226.02101,"1033,00527144301 ",.02)
  1. ;;00527144301
  1. ;;9002226.02101,"1033,00527144305 ",.01)
  1. ;;00527144305
  1. ;;9002226.02101,"1033,00527144305 ",.02)
  1. ;;00527144305
  1. ;;9002226.02101,"1033,00527153501 ",.01)
  1. ;;00527153501
  1. ;;9002226.02101,"1033,00527153501 ",.02)
  1. ;;00527153501
  1. ;;9002226.02101,"1033,00527153701 ",.01)
  1. ;;00527153701
  1. ;;9002226.02101,"1033,00527153701 ",.02)
  1. ;;00527153701
  1. ;;9002226.02101,"1033,00527153730 ",.01)
  1. ;;00527153730
  1. ;;9002226.02101,"1033,00527153730 ",.02)
  1. ;;00527153730
  1. ;;9002226.02101,"1033,00555001002 ",.01)
  1. ;;00555001002
  1. ;;9002226.02101,"1033,00555001002 ",.02)
  1. ;;00555001002
  1. ;;9002226.02101,"1033,00555001005 ",.01)
  1. ;;00555001005
  1. ;;9002226.02101,"1033,00555001005 ",.02)
  1. ;;00555001005
  1. ;;9002226.02101,"1033,00555001102 ",.01)
  1. ;;00555001102
  1. ;;9002226.02101,"1033,00555001102 ",.02)
  1. ;;00555001102
  1. ;;9002226.02101,"1033,00555001105 ",.01)
  1. ;;00555001105
  1. ;;9002226.02101,"1033,00555001105 ",.02)
  1. ;;00555001105
  1. ;;9002226.02101,"1033,00555001302 ",.01)
  1. ;;00555001302
  1. ;;9002226.02101,"1033,00555001302 ",.02)
  1. ;;00555001302