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

BGPM5APW.m

Go to the documentation of this file.
BGPM5APW ;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,"49856018509 ")
 ;;640
 ;;21,"49856018600 ")
 ;;641
 ;;21,"49856018601 ")
 ;;642
 ;;21,"49856018607 ")
 ;;643
 ;;21,"49856018609 ")
 ;;644
 ;;21,"49856018700 ")
 ;;645
 ;;21,"49856018701 ")
 ;;646
 ;;21,"49856018707 ")
 ;;647
 ;;21,"49856018709 ")
 ;;648
 ;;21,"49856018800 ")
 ;;649
 ;;21,"49856018801 ")
 ;;650
 ;;21,"49856018900 ")
 ;;651
 ;;21,"49856018901 ")
 ;;652
 ;;21,"49856018908 ")
 ;;653
 ;;21,"49856018909 ")
 ;;654
 ;;21,"49856020501 ")
 ;;655
 ;;21,"49856020502 ")
 ;;656
 ;;21,"49856020503 ")
 ;;657
 ;;21,"49856020505 ")
 ;;658
 ;;21,"49856020507 ")
 ;;659
 ;;21,"49856020601 ")
 ;;660
 ;;21,"49856020602 ")
 ;;661
 ;;21,"49856020603 ")
 ;;662
 ;;21,"49856020605 ")
 ;;663
 ;;21,"49856020607 ")
 ;;664
 ;;21,"49856020701 ")
 ;;665
 ;;21,"49856020702 ")
 ;;666
 ;;21,"49856020703 ")
 ;;667
 ;;21,"49856020705 ")
 ;;668
 ;;21,"49856020707 ")
 ;;669
 ;;21,"49856020801 ")
 ;;670
 ;;21,"49856020802 ")
 ;;671
 ;;21,"49856020901 ")
 ;;672
 ;;21,"49856020902 ")
 ;;673
 ;;21,"49856251002 ")
 ;;674
 ;;21,"49856251003 ")
 ;;675
 ;;21,"49856251004 ")
 ;;676
 ;;21,"49856251102 ")
 ;;677
 ;;21,"49856251103 ")
 ;;678
 ;;21,"49856251104 ")
 ;;679
 ;;21,"49856251202 ")
 ;;680
 ;;21,"49856251203 ")
 ;;681
 ;;21,"49856251208 ")
 ;;682
 ;;21,"49884044401 ")
 ;;683
 ;;21,"49884044410 ")
 ;;684
 ;;21,"49884044501 ")
 ;;685
 ;;21,"49884044510 ")
 ;;686
 ;;21,"49884044601 ")
 ;;687
 ;;21,"49884044610 ")
 ;;688
 ;;21,"49884044701 ")
 ;;689
 ;;21,"49884044710 ")
 ;;690
 ;;21,"49884055601 ")
 ;;691
 ;;21,"49884055610 ")
 ;;692
 ;;21,"49884055701 ")
 ;;693
 ;;21,"49884055710 ")
 ;;694
 ;;21,"49884055801 ")
 ;;695
 ;;21,"49884055810 ")
 ;;696
 ;;21,"49884055901 ")
 ;;697
 ;;21,"49884055910 ")
 ;;698
 ;;21,"49884056001 ")
 ;;699
 ;;21,"49884056010 ")
 ;;700
 ;;21,"49884059101 ")
 ;;701
 ;;21,"49884059110 ")
 ;;702
 ;;21,"49884059201 ")
 ;;703
 ;;21,"49884059210 ")
 ;;704
 ;;21,"49884059301 ")
 ;;705
 ;;21,"49884059310 ")
 ;;706
 ;;21,"49884059401 ")
 ;;707
 ;;21,"49884059410 ")
 ;;708
 ;;21,"49884061901 ")
 ;;709
 ;;21,"49884061910 ")
 ;;710
 ;;21,"49884062001 ")
 ;;711
 ;;21,"49884062010 ")
 ;;712
 ;;21,"49884062101 ")
 ;;713
 ;;21,"49884062110 ")
 ;;714
 ;;21,"49884062201 ")
 ;;715
 ;;21,"49884063501 ")
 ;;716
 ;;21,"49884063510 ")
 ;;717
 ;;21,"49884068601 ")
 ;;718
 ;;21,"49884068701 ")
 ;;719
 ;;21,"49884079301 ")
 ;;720
 ;;21,"49884079401 ")
 ;;721
 ;;21,"49884079410 ")
 ;;722
 ;;21,"49884079501 ")
 ;;723
 ;;21,"49884079510 ")
 ;;724
 ;;21,"49884079601 ")
 ;;725
 ;;21,"49884081501 ")
 ;;726
 ;;21,"49884081601 ")
 ;;727
 ;;21,"49884081701 ")
 ;;728
 ;;21,"49884081801 ")
 ;;729
 ;;21,"49884099009 ")
 ;;730
 ;;21,"49884099109 ")
 ;;731
 ;;21,"49999010500 ")
 ;;732
 ;;21,"49999010510 ")
 ;;733
 ;;21,"49999010530 ")
 ;;734
 ;;21,"49999010560 ")
 ;;735
 ;;21,"49999018210 ")
 ;;736
 ;;21,"49999018230 ")
 ;;737
 ;;21,"49999018260 ")
 ;;738
 ;;21,"49999018310 ")
 ;;739
 ;;21,"49999018330 ")
 ;;740
 ;;21,"49999018360 ")
 ;;741
 ;;21,"49999018390 ")
 ;;742
 ;;21,"49999023900 ")
 ;;743
 ;;21,"49999023930 ")
 ;;744
 ;;21,"49999023960 ")
 ;;745
 ;;21,"49999024000 ")
 ;;746
 ;;21,"49999024030 ")
 ;;747
 ;;21,"49999029430 ")
 ;;748
 ;;21,"49999029500 ")
 ;;749
 ;;21,"49999029510 ")
 ;;750
 ;;21,"49999029530 ")
 ;;751
 ;;21,"49999030530 ")
 ;;752
 ;;21,"49999032100 ")
 ;;753
 ;;21,"49999032130 ")
 ;;754
 ;;21,"49999032160 ")
 ;;755
 ;;21,"49999034500 ")
 ;;756
 ;;21,"49999034530 ")
 ;;757
 ;;21,"49999046910 ")
 ;;758
 ;;21,"49999046930 ")
 ;;759
 ;;21,"49999046960 ")
 ;;760
 ;;21,"49999046990 ")
 ;;761
 ;;21,"49999051130 ")
 ;;762
 ;;21,"49999051160 ")
 ;;763
 ;;21,"49999054300 ")
 ;;764
 ;;21,"49999054330 ")
 ;;765
 ;;21,"49999076100 ")
 ;;766
 ;;21,"49999076130 ")
 ;;767
 ;;21,"49999081530 ")
 ;;768
 ;;21,"49999081590 ")
 ;;769
 ;;21,"49999082300 ")
 ;;770
 ;;21,"49999087000 ")
 ;;771
 ;;21,"49999087130 ")
 ;;772
 ;;21,"49999087190 ")
 ;;773
 ;;21,"49999087700 ")
 ;;774
 ;;21,"49999087730 ")
 ;;775
 ;;21,"49999087790 ")
 ;;776
 ;;21,"49999087800 ")
 ;;777
 ;;21,"49999087830 ")
 ;;778
 ;;21,"49999087890 ")
 ;;779
 ;;21,"49999087900 ")
 ;;780
 ;;21,"49999087930 ")
 ;;781
 ;;21,"49999087990 ")
 ;;782
 ;;21,"49999088000 ")
 ;;783
 ;;21,"49999088030 ")
 ;;784
 ;;21,"49999088090 ")
 ;;785
 ;;21,"49999092400 ")
 ;;786
 ;;21,"49999092410 ")
 ;;787
 ;;21,"49999092430 ")
 ;;788
 ;;21,"49999092460 ")
 ;;789
 ;;21,"49999093430 ")
 ;;790
 ;;21,"49999094300 ")
 ;;791
 ;;21,"49999094390 ")
 ;;792
 ;;21,"49999098830 ")
 ;;793
 ;;21,"51079025640 ")
 ;;794
 ;;21,"51079026140 ")
 ;;795
 ;;21,"51079069740 ")
 ;;796
 ;;21,"51079069840 ")
 ;;797
 ;;21,"51079069940 ")
 ;;798
 ;;21,"51079086301 ")
 ;;799
 ;;21,"51079086320 ")
 ;;800
 ;;21,"51079086401 ")
 ;;801
 ;;21,"51079086420 ")
 ;;802
 ;;21,"51079095001 ")
 ;;803
 ;;21,"51079095020 ")
 ;;804
 ;;21,"51079095101 ")
 ;;805
 ;;21,"51079095120 ")
 ;;806
 ;;21,"51079095201 ")
 ;;807
 ;;21,"51079095220 ")
 ;;808
 ;;21,"51079095301 ")
 ;;809
 ;;21,"51079095320 ")
 ;;810
 ;;21,"51079098101 ")
 ;;811
 ;;21,"51079098120 ")
 ;;812
 ;;21,"51079098130 ")
 ;;813
 ;;21,"51079098140 ")
 ;;814
 ;;21,"51079098156 ")
 ;;815
 ;;21,"51079098157 ")
 ;;816
 ;;21,"51079098160 ")
 ;;817
 ;;21,"51079098201 ")
 ;;818
 ;;21,"51079098217 ")
 ;;819
 ;;21,"51079098219 ")
 ;;820
 ;;21,"51079098220 ")
 ;;821
 ;;21,"51079098230 ")
 ;;822
 ;;21,"51079098240 ")
 ;;823
 ;;21,"51079098256 ")
 ;;824
 ;;21,"51079098257 ")
 ;;825
 ;;21,"51079098260 ")
 ;;826
 ;;21,"51079098301 ")
 ;;827
 ;;21,"51079098317 ")
 ;;828
 ;;21,"51079098319 ")
 ;;829
 ;;21,"51079098320 ")
 ;;830
 ;;21,"51079098330 ")
 ;;831
 ;;21,"51079098340 ")
 ;;832
 ;;21,"51079098356 ")
 ;;833
 ;;21,"51079098357 ")
 ;;834
 ;;21,"51079098360 ")
 ;;835
 ;;21,"51079098401 ")
 ;;836
 ;;21,"51079098420 ")
 ;;837
 ;;21,"51079098440 ")
 ;;838
 ;;21,"51079098450 ")
 ;;839
 ;;21,"51129045201 ")
 ;;840
 ;;21,"51129110501 ")
 ;;841
 ;;21,"51129130901 ")
 ;;842
 ;;21,"51129133001 ")
 ;;843
 ;;21,"51129133901 ")
 ;;844
 ;;21,"51129139701 ")
 ;;845
 ;;21,"51129140001 ")
 ;;846
 ;;21,"51129157101 ")
 ;;847
 ;;21,"51129157201 ")
 ;;848
 ;;21,"51129161401 ")
 ;;849
 ;;21,"51129163801 ")
 ;;850
 ;;21,"51129171101 ")
 ;;851
 ;;21,"51129171201 ")
 ;;852
 ;;21,"51129175001 ")
 ;;853
 ;;21,"51129178301 ")
 ;;854
 ;;21,"51129178601 ")
 ;;855
 ;;21,"51129181601 ")
 ;;856
 ;;21,"51129188801 ")
 ;;857
 ;;21,"51129188901 ")
 ;;858
 ;;21,"51129191501 ")
 ;;859
 ;;21,"51129191601 ")
 ;;860
 ;;21,"51129194701 ")
 ;;861
 ;;21,"51129196501 ")
 ;;862
 ;;21,"51129199601 ")
 ;;863
 ;;21,"51129209901 ")
 ;;864
 ;;21,"51129213001 ")
 ;;865
 ;;21,"51129224201 ")
 ;;866
 ;;21,"51129227401 ")
 ;;867
 ;;21,"51129239101 ")
 ;;868
 ;;21,"51129239201 ")
 ;;869
 ;;21,"51129240101 ")
 ;;870
 ;;21,"51129254001 ")
 ;;871
 ;;21,"51129255501 ")
 ;;872
 ;;21,"51129267901 ")
 ;;873
 ;;21,"51129268001 ")
 ;;874
 ;;21,"51129273901 ")
 ;;875
 ;;21,"51129276001 ")
 ;;876
 ;;21,"51129277001 ")
 ;;877
 ;;21,"51129277601 ")
 ;;878
 ;;21,"51129280701 ")
 ;;879
 ;;21,"51129284601 ")
 ;;880
 ;;21,"51129284602 ")
 ;;881
 ;;21,"51129286501 ")
 ;;882
 ;;21,"51129286502 ")
 ;;883
 ;;21,"51129287001 ")
 ;;884
 ;;21,"51129287002 ")
 ;;885
 ;;21,"51129287401 ")
 ;;886
 ;;21,"51129291301 ")
 ;;887
 ;;21,"51129291302 ")
 ;;888
 ;;21,"51129295601 ")
 ;;889
 ;;21,"51129300001 ")
 ;;890
 ;;21,"51129300002 ")
 ;;891
 ;;21,"51129303301 ")
 ;;892
 ;;21,"51129303302 ")
 ;;893
 ;;21,"51129304301 ")
 ;;894
 ;;21,"51129304302 ")
 ;;895
 ;;21,"51129306501 ")
 ;;896
 ;;21,"51129306502 ")
 ;;897
 ;;21,"51129307001 ")
 ;;898
 ;;21,"51129307002 ")
 ;;899
 ;;21,"51129307201 ")
 ;;900
 ;;21,"51129307202 ")
 ;;901
 ;;21,"51129308601 ")
 ;;902
 ;;21,"51129308602 ")
 ;;903
 ;;21,"51129309401 ")
 ;;904
 ;;21,"51129309402 ")
 ;;905
 ;;21,"51129309701 ")
 ;;906
 ;;21,"51129310801 ")
 ;;907
 ;;21,"51129310802 ")
 ;;908
 ;;21,"51129314701 ")
 ;;909
 ;;21,"51129314702 ")
 ;;910
 ;;21,"51129316101 ")
 ;;911
 ;;21,"51129316102 ")
 ;;912
 ;;21,"51129316601 ")
 ;;913
 ;;21,"51129316602 ")
 ;;914
 ;;21,"51129329801 ")
 ;;915
 ;;21,"51129329802 ")
 ;;916
 ;;21,"51129330701 ")
 ;;917
 ;;21,"51129330702 ")
 ;;918
 ;;21,"51129332001 ")
 ;;919
 ;;21,"51129332002 ")
 ;;920
 ;;21,"51129334501 ")
 ;;921
 ;;21,"51129334502 ")
 ;;922
 ;;21,"51129345001 ")
 ;;923
 ;;21,"51129345002 ")
 ;;924
 ;;21,"51129347601 ")
 ;;925
 ;;21,"51129347602 ")
 ;;926
 ;;21,"51129348201 ")
 ;;927
 ;;21,"51129348202 ")
 ;;928
 ;;21,"51129351801 ")
 ;;929
 ;;21,"51129351802 ")
 ;;930
 ;;21,"51129353301 ")
 ;;931
 ;;21,"51129353302 ")
 ;;932
 ;;21,"51129355701 ")
 ;;933
 ;;21,"51129355702 ")
 ;;934
 ;;21,"51129367301 ")
 ;;935
 ;;21,"51129367302 ")
 ;;936
 ;;21,"51129371501 ")
 ;;937
 ;;21,"51129371502 ")
 ;;938
 ;;21,"51129373801 ")
 ;;939
 ;;21,"51129373802 ")
 ;;940
 ;;21,"51129374501 ")
 ;;941
 ;;21,"51129374502 ")
 ;;942
 ;;21,"51129374601 ")
 ;;943
 ;;21,"51129374602 ")
 ;;944
 ;;21,"51129374701 ")
 ;;945
 ;;21,"51129374702 ")
 ;;946
 ;;21,"51129377301 ")
 ;;947
 ;;21,"51129377302 ")
 ;;948
 ;;21,"51129380701 ")
 ;;949
 ;;21,"51129380702 ")
 ;;950
 ;;21,"51129382301 ")
 ;;951
 ;;21,"51129382302 ")
 ;;952
 ;;21,"51129383001 ")
 ;;953
 ;;21,"51129383002 ")
 ;;954
 ;;21,"51129387201 ")
 ;;955
 ;;21,"51129387202 ")
 ;;956
 ;;21,"51129387701 ")
 ;;957
 ;;21,"51129387702 ")
 ;;958
 ;;21,"51129390001 ")
 ;;959
 ;;21,"51129390002 ")
 ;;960
 ;;21,"51129390901 ")
 ;;961
 ;;21,"51129390902 ")
 ;;962
 ;;21,"51129394001 ")
 ;;963
 ;;21,"51129394002 ")
 ;;964
 ;;21,"51129394101 ")
 ;;965
 ;;21,"51129394102 ")
 ;;966
 ;;21,"51129397601 ")
 ;;967
 ;;21,"51129397602 ")
 ;;968
 ;;21,"51129403501 ")
 ;;969
 ;;21,"51129403502 ")
 ;;970
 ;;21,"51129405301 ")
 ;;971
 ;;21,"51129405302 ")
 ;;972
 ;;21,"51129406501 ")
 ;;973
 ;;21,"51129406502 ")
 ;;974
 ;;21,"51129410501 ")
 ;;975
 ;;21,"51129410502 ")
 ;;976
 ;;21,"51129411701 ")
 ;;977
 ;;21,"51129411702 ")
 ;;978
 ;;21,"51129412201 ")
 ;;979
 ;;21,"51129412202 ")
 ;;980
 ;;21,"51129428601 ")
 ;;981
 ;;21,"51129428602 ")
 ;;982
 ;;21,"51129430701 ")
 ;;983
 ;;21,"51129430702 ")
 ;;984
 ;;21,"51129431501 ")
 ;;985
 ;;21,"51129431502 ")
 ;;986
 ;;21,"51129435501 ")
 ;;987
 ;;21,"51129435502 ")
 ;;988
 ;;21,"51129447001 ")
 ;;989
 ;;21,"51129447002 ")
 ;;990
 ;;21,"51129447901 ")
 ;;991
 ;;21,"51129447902 ")
 ;;992
 ;;21,"51129461301 ")
 ;;993
 ;;21,"51129461302 ")
 ;;994
 ;;21,"51129850501 ")
 ;;995
 ;;21,"51129903401 ")
 ;;996
 ;;21,"51138001330 ")
 ;;997
 ;;21,"51138001430 ")
 ;;998
 ;;21,"51138001530 ")
 ;;999
 ;;21,"51138001630 ")
 ;;1000
 ;;21,"51138003330 ")
 ;;1001