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

BGPM5APT.m

Go to the documentation of this file.
BGPM5APT ;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)
 ;;21,"00247230630 ")
 ;;5591
 ;;21,"00247230660 ")
 ;;5592
 ;;21,"00247230690 ")
 ;;5593
 ;;21,"00247231830 ")
 ;;5594
 ;;21,"00247231860 ")
 ;;5595
 ;;21,"00247231890 ")
 ;;5596
 ;;21,"00247232030 ")
 ;;5597
 ;;21,"00247232060 ")
 ;;5598
 ;;21,"00247232090 ")
 ;;5599
 ;;21,"00310013010 ")
 ;;5600
 ;;21,"00310013011 ")
 ;;5601
 ;;21,"00310013034 ")
 ;;5602
 ;;21,"00310013110 ")
 ;;5603
 ;;21,"00310013111 ")
 ;;5604
 ;;21,"00310013134 ")
 ;;5605
 ;;21,"00310013173 ")
 ;;5606
 ;;21,"00310013210 ")
 ;;5607
 ;;21,"00310013211 ")
 ;;5608
 ;;21,"00310013234 ")
 ;;5609
 ;;21,"00310013273 ")
 ;;5610
 ;;21,"00310013310 ")
 ;;5611
 ;;21,"00310013311 ")
 ;;5612
 ;;21,"00310013395 ")
 ;;5613
 ;;21,"00310013410 ")
 ;;5614
 ;;21,"00310013411 ")
 ;;5615
 ;;21,"00310013510 ")
 ;;5616
 ;;21,"00310014110 ")
 ;;5617
 ;;21,"00310014111 ")
 ;;5618
 ;;21,"00310014210 ")
 ;;5619
 ;;21,"00310014211 ")
 ;;5620
 ;;21,"00310014510 ")
 ;;5621
 ;;21,"00310014511 ")
 ;;5622
 ;;21,"00310914102 ")
 ;;5623
 ;;21,"00339522511 ")
 ;;5624
 ;;21,"00378001777 ")
 ;;5625
 ;;21,"00378008101 ")
 ;;5626
 ;;21,"00378008301 ")
 ;;5627
 ;;21,"00378008401 ")
 ;;5628
 ;;21,"00378008601 ")
 ;;5629
 ;;21,"00378022605 ")
 ;;5630
 ;;21,"00378022677 ")
 ;;5631
 ;;21,"00378025405 ")
 ;;5632
 ;;21,"00378025477 ")
 ;;5633
 ;;21,"00378027205 ")
 ;;5634
 ;;21,"00378027277 ")
 ;;5635
 ;;21,"00378071201 ")
 ;;5636
 ;;21,"00378072301 ")
 ;;5637
 ;;21,"00378072305 ")
 ;;5638
 ;;21,"00378101201 ")
 ;;5639
 ;;21,"00378101293 ")
 ;;5640
 ;;21,"00378105101 ")
 ;;5641
 ;;21,"00378105105 ")
 ;;5642
 ;;21,"00378105201 ")
 ;;5643
 ;;21,"00378105210 ")
 ;;5644
 ;;21,"00378105301 ")
 ;;5645
 ;;21,"00378105310 ")
 ;;5646
 ;;21,"00378105401 ")
 ;;5647
 ;;21,"00378105405 ")
 ;;5648
 ;;21,"00378111705 ")
 ;;5649
 ;;21,"00378111777 ")
 ;;5650
 ;;21,"00378201201 ")
 ;;5651
 ;;21,"00378201293 ")
 ;;5652
 ;;21,"00378202501 ")
 ;;5653
 ;;21,"00378202593 ")
 ;;5654
 ;;21,"00378207201 ")
 ;;5655
 ;;21,"00378207205 ")
 ;;5656
 ;;21,"00378207301 ")
 ;;5657
 ;;21,"00378207310 ")
 ;;5658
 ;;21,"00378207401 ")
 ;;5659
 ;;21,"00378207410 ")
 ;;5660
 ;;21,"00378207501 ")
 ;;5661
 ;;21,"00378207510 ")
 ;;5662
 ;;21,"00378207601 ")
 ;;5663
 ;;21,"00378207605 ")
 ;;5664
 ;;21,"00378207701 ")
 ;;5665
 ;;21,"00378207705 ")
 ;;5666
 ;;21,"00378300701 ")
 ;;5667
 ;;21,"00378300710 ")
 ;;5668
 ;;21,"00378301201 ")
 ;;5669
 ;;21,"00378301210 ")
 ;;5670
 ;;21,"00378301701 ")
 ;;5671
 ;;21,"00378301710 ")
 ;;5672
 ;;21,"00378302201 ")
 ;;5673
 ;;21,"00409212201 ")
 ;;5674
 ;;21,"00409212202 ")
 ;;5675
 ;;21,"00409212213 ")
 ;;5676
 ;;21,"00409212288 ")
 ;;5677
 ;;21,"00440723160 ")
 ;;5678
 ;;21,"00440723190 ")
 ;;5679
 ;;21,"00440723192 ")
 ;;5680
 ;;21,"00440723194 ")
 ;;5681
 ;;21,"00440723260 ")
 ;;5682
 ;;21,"00440723290 ")
 ;;5683
 ;;21,"00440723292 ")
 ;;5684
 ;;21,"00440723294 ")
 ;;5685
 ;;21,"00440767490 ")
 ;;5686
 ;;21,"00440767590 ")
 ;;5687
 ;;21,"00440767690 ")
 ;;5688
 ;;21,"00480104505 ")
 ;;5689
 ;;21,"00480104598 ")
 ;;5690
 ;;21,"00480105005 ")
 ;;5691
 ;;21,"00480105098 ")
 ;;5692
 ;;21,"00480105105 ")
 ;;5693
 ;;21,"00480105198 ")
 ;;5694
 ;;21,"00480105305 ")
 ;;5695
 ;;21,"00480105398 ")
 ;;5696
 ;;21,"00480111101 ")
 ;;5697
 ;;21,"00480111201 ")
 ;;5698
 ;;21,"00480111210 ")
 ;;5699
 ;;21,"00480111301 ")
 ;;5700
 ;;21,"00480111310 ")
 ;;5701
 ;;21,"00480111401 ")
 ;;5702
 ;;21,"00480111410 ")
 ;;5703
 ;;21,"00480111501 ")
 ;;5704
 ;;21,"00480111505 ")
 ;;5705
 ;;21,"00480515701 ")
 ;;5706
 ;;21,"00480722210 ")
 ;;5707
 ;;21,"00480722298 ")
 ;;5708
 ;;21,"00480722310 ")
 ;;5709
 ;;21,"00480722398 ")
 ;;5710
 ;;21,"00480722410 ")
 ;;5711
 ;;21,"00480722498 ")
 ;;5712
 ;;21,"00490006700 ")
 ;;5713
 ;;21,"00490006730 ")
 ;;5714
 ;;21,"00490006760 ")
 ;;5715
 ;;21,"00490006790 ")
 ;;5716
 ;;21,"00490020501 ")
 ;;5717
 ;;21,"00490020502 ")
 ;;5718
 ;;21,"00490020503 ")
 ;;5719
 ;;21,"00490020504 ")
 ;;5720
 ;;21,"00490020505 ")
 ;;5721
 ;;21,"00490703000 ")
 ;;5722
 ;;21,"00490703030 ")
 ;;5723
 ;;21,"00490703060 ")
 ;;5724
 ;;21,"00490703090 ")
 ;;5725
 ;;21,"00574011001 ")
 ;;5726
 ;;21,"00574011215 ")
 ;;5727
 ;;21,"00591040500 ")
 ;;5728
 ;;21,"00591040501 ")
 ;;5729
 ;;21,"00591040505 ")
 ;;5730
 ;;21,"00591040530 ")
 ;;5731
 ;;21,"00591040600 ")
 ;;5732
 ;;21,"00591040601 ")
 ;;5733
 ;;21,"00591040605 ")
 ;;5734
 ;;21,"00591040610 ")
 ;;5735
 ;;21,"00591040633 ")
 ;;5736
 ;;21,"00591040651 ")
 ;;5737
 ;;21,"00591040700 ")
 ;;5738
 ;;21,"00591040701 ")
 ;;5739
 ;;21,"00591040710 ")
 ;;5740
 ;;21,"00591040730 ")
 ;;5741
 ;;21,"00591040733 ")
 ;;5742
 ;;21,"00591040800 ")
 ;;5743
 ;;21,"00591040801 ")
 ;;5744
 ;;21,"00591040810 ")
 ;;5745
 ;;21,"00591040830 ")
 ;;5746
 ;;21,"00591040833 ")
 ;;5747
 ;;21,"00591040900 ")
 ;;5748
 ;;21,"00591040901 ")
 ;;5749
 ;;21,"00591040905 ")
 ;;5750
 ;;21,"00591040910 ")
 ;;5751
 ;;21,"00591040930 ")
 ;;5752
 ;;21,"00591040975 ")
 ;;5753
 ;;21,"00591066801 ")
 ;;5754
 ;;21,"00591066805 ")
 ;;5755
 ;;21,"00591066901 ")
 ;;5756
 ;;21,"00591066905 ")
 ;;5757
 ;;21,"00591067001 ")
 ;;5758
 ;;21,"00591067005 ")
 ;;5759
 ;;21,"00591067101 ")
 ;;5760
 ;;21,"00591067105 ")
 ;;5761
 ;;21,"00591067110 ")
 ;;5762
 ;;21,"00591086001 ")
 ;;5763
 ;;21,"00591086005 ")
 ;;5764
 ;;21,"00591086101 ")
 ;;5765
 ;;21,"00591086105 ")
 ;;5766
 ;;21,"00591086201 ")
 ;;5767
 ;;21,"00591086205 ")
 ;;5768
 ;;21,"00591088500 ")
 ;;5769
 ;;21,"00591088501 ")
 ;;5770
 ;;21,"00591088510 ")
 ;;5771
 ;;21,"00591088530 ")
 ;;5772
 ;;21,"00591088533 ")
 ;;5773
 ;;21,"00597003937 ")
 ;;5774
 ;;21,"00597004037 ")
 ;;5775
 ;;21,"00597004070 ")
 ;;5776
 ;;21,"00597004137 ")
 ;;5777
 ;;21,"00597004170 ")
 ;;5778
 ;;21,"00597004237 ")
 ;;5779
 ;;21,"00597004270 ")
 ;;5780
 ;;21,"00597004337 ")
 ;;5781
 ;;21,"00597004370 ")
 ;;5782
 ;;21,"00597004437 ")
 ;;5783
 ;;21,"00597004470 ")
 ;;5784
 ;;21,"00603255521 ")
 ;;5785
 ;;21,"00603255532 ")
 ;;5786
 ;;21,"00603255621 ")
 ;;5787
 ;;21,"00603255632 ")
 ;;5788
 ;;21,"00603255721 ")
 ;;5789
 ;;21,"00603255732 ")
 ;;5790
 ;;21,"00603255821 ")
 ;;5791
 ;;21,"00603420921 ")
 ;;5792
 ;;21,"00603420928 ")
 ;;5793
 ;;21,"00603421002 ")
 ;;5794
 ;;21,"00603421016 ")
 ;;5795
 ;;21,"00603421021 ")
 ;;5796
 ;;21,"00603421028 ")
 ;;5797
 ;;21,"00603421032 ")
 ;;5798
 ;;21,"00603421060 ")
 ;;5799
 ;;21,"00603421102 ")
 ;;5800
 ;;21,"00603421121 ")
 ;;5801
 ;;21,"00603421128 ")
 ;;5802
 ;;21,"00603421132 ")
 ;;5803
 ;;21,"00603421134 ")
 ;;5804
 ;;21,"00603421160 ")
 ;;5805
 ;;21,"00603421202 ")
 ;;5806
 ;;21,"00603421221 ")
 ;;5807
 ;;21,"00603421228 ")
 ;;5808
 ;;21,"00603421232 ")
 ;;5809
 ;;21,"00603421234 ")
 ;;5810
 ;;21,"00603421260 ")
 ;;5811
 ;;21,"00603421321 ")
 ;;5812
 ;;21,"00603421328 ")
 ;;5813
 ;;21,"00603421402 ")
 ;;5814
 ;;21,"00603421404 ")
 ;;5815
 ;;21,"00603421421 ")
 ;;5816
 ;;21,"00603421428 ")
 ;;5817
 ;;21,"00603421430 ")
 ;;5818
 ;;21,"00603421432 ")
 ;;5819
 ;;21,"00603421460 ")
 ;;5820
 ;;21,"00615138331 ")
 ;;5821
 ;;21,"00615138339 ")
 ;;5822
 ;;21,"00615451939 ")
 ;;5823
 ;;21,"00615452039 ")
 ;;5824
 ;;21,"00615452139 ")
 ;;5825
 ;;21,"00615458939 ")
 ;;5826
 ;;21,"00615459031 ")
 ;;5827
 ;;21,"00615459039 ")
 ;;5828
 ;;21,"00615459131 ")
 ;;5829
 ;;21,"00615459139 ")
 ;;5830
 ;;21,"00615459339 ")
 ;;5831
 ;;21,"00615552105 ")
 ;;5832
 ;;21,"00615552131 ")
 ;;5833
 ;;21,"00615552139 ")
 ;;5834
 ;;21,"00615553005 ")
 ;;5835
 ;;21,"00615553031 ")
 ;;5836
 ;;21,"00615553039 ")
 ;;5837
 ;;21,"00615553105 ")
 ;;5838
 ;;21,"00615553131 ")
 ;;5839
 ;;21,"00615553139 ")
 ;;5840
 ;;21,"00615553831 ")
 ;;5841
 ;;21,"00615553839 ")
 ;;5842
 ;;21,"00615553939 ")
 ;;5843
 ;;21,"00615554005 ")
 ;;5844
 ;;21,"00615554031 ")
 ;;5845
 ;;21,"00615554039 ")
 ;;5846
 ;;21,"00615559405 ")
 ;;5847
 ;;21,"00615559431 ")
 ;;5848
 ;;21,"00615559439 ")
 ;;5849
 ;;21,"00615560805 ")
 ;;5850
 ;;21,"00615560831 ")
 ;;5851
 ;;21,"00615560839 ")
 ;;5852
 ;;21,"00615751139 ")
 ;;5853
 ;;21,"00615751205 ")
 ;;5854
 ;;21,"00615751239 ")
 ;;5855
 ;;21,"00615757739 ")
 ;;5856
 ;;21,"00615758139 ")
 ;;5857
 ;;21,"00615758239 ")
 ;;5858
 ;;21,"00615763931 ")
 ;;5859
 ;;21,"00615763939 ")
 ;;5860
 ;;21,"00615764005 ")
 ;;5861
 ;;21,"00615764031 ")
 ;;5862
 ;;21,"00615764039 ")
 ;;5863
 ;;21,"00615764105 ")
 ;;5864
 ;;21,"00615764131 ")
 ;;5865
 ;;21,"00615764139 ")
 ;;5866
 ;;21,"00615764205 ")
 ;;5867
 ;;21,"00615764231 ")
 ;;5868
 ;;21,"00615764239 ")
 ;;5869
 ;;21,"00615764339 ")
 ;;5870
 ;;21,"00615764405 ")
 ;;5871
 ;;21,"00615764431 ")
 ;;5872
 ;;21,"00615764439 ")
 ;;5873
 ;;21,"00703840101 ")
 ;;5874
 ;;21,"00703840104 ")
 ;;5875
 ;;21,"00703841101 ")
 ;;5876
 ;;21,"00703841104 ")
 ;;5877
 ;;21,"00781117601 ")
 ;;5878
 ;;21,"00781117610 ")
 ;;5879
 ;;21,"00781117631 ")
 ;;5880
 ;;21,"00781117801 ")
 ;;5881
 ;;21,"00781117810 ")
 ;;5882
 ;;21,"00781117831 ")
 ;;5883
 ;;21,"00781166501 ")
 ;;5884
 ;;21,"00781166510 ")
 ;;5885
 ;;21,"00781166531 ")
 ;;5886
 ;;21,"00781166534 ")
 ;;5887
 ;;21,"00781166592 ")
 ;;5888
 ;;21,"00781166601 ")
 ;;5889
 ;;21,"00781166610 ")
 ;;5890
 ;;21,"00781166631 ")
 ;;5891
 ;;21,"00781166634 ")
 ;;5892
 ;;21,"00781166692 ")
 ;;5893
 ;;21,"00781166701 ")
 ;;5894
 ;;21,"00781166710 ")
 ;;5895
 ;;21,"00781166731 ")
 ;;5896
 ;;21,"00781166734 ")
 ;;5897
 ;;21,"00781166792 ")
 ;;5898
 ;;21,"00781166801 ")
 ;;5899
 ;;21,"00781166810 ")
 ;;5900
 ;;21,"00781166831 ")
 ;;5901
 ;;21,"00781166834 ")
 ;;5902
 ;;21,"00781166892 ")
 ;;5903
 ;;21,"00781166901 ")
 ;;5904
 ;;21,"00781166910 ")
 ;;5905
 ;;21,"00781166931 ")
 ;;5906
 ;;21,"00781166934 ")
 ;;5907
 ;;21,"00781166992 ")
 ;;5908
 ;;21,"00781167301 ")
 ;;5909
 ;;21,"00781167310 ")
 ;;5910
 ;;21,"00781167331 ")
 ;;5911
 ;;21,"00781167334 ")
 ;;5912
 ;;21,"00781167392 ")
 ;;5913
 ;;21,"00781182801 ")
 ;;5914
 ;;21,"00781182810 ")
 ;;5915
 ;;21,"00781182813 ")
 ;;5916
 ;;21,"00781182901 ")
 ;;5917
 ;;21,"00781182910 ")
 ;;5918
 ;;21,"00781182913 ")
 ;;5919
 ;;21,"00781183801 ")
 ;;5920
 ;;21,"00781183810 ")
 ;;5921
 ;;21,"00781183813 ")
 ;;5922
 ;;21,"00781183901 ")
 ;;5923
 ;;21,"00781183910 ")
 ;;5924
 ;;21,"00781183913 ")
 ;;5925
 ;;21,"00781184801 ")
 ;;5926
 ;;21,"00781184810 ")
 ;;5927
 ;;21,"00781184831 ")
 ;;5928
 ;;21,"00781508310 ")
 ;;5929
 ;;21,"00781508392 ")
 ;;5930
 ;;21,"00781508410 ")
 ;;5931
 ;;21,"00781508492 ")
 ;;5932
 ;;21,"00781544101 ")
 ;;5933
 ;;21,"00781544110 ")
 ;;5934
 ;;21,"00781544201 ")
 ;;5935
 ;;21,"00781544210 ")
 ;;5936
 ;;21,"00781544301 ")
 ;;5937
 ;;21,"00781544310 ")
 ;;5938
 ;;21,"00781544401 ")
 ;;5939
 ;;21,"00781544410 ")
 ;;5940
 ;;21,"00801110101 ")
 ;;5941
 ;;21,"00801110201 ")
 ;;5942