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