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

BGP71N3.m

Go to the documentation of this file.
  1. BGP71N3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 30, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"42998-0679-01 ")
  1. ;;700
  1. ;;21,"43063-0068-79 ")
  1. ;;636
  1. ;;21,"43063-0193-60 ")
  1. ;;702
  1. ;;21,"43063-0240-30 ")
  1. ;;646
  1. ;;21,"43063-0257-30 ")
  1. ;;704
  1. ;;21,"43063-0336-30 ")
  1. ;;705
  1. ;;21,"43063-0336-60 ")
  1. ;;706
  1. ;;21,"43063-0366-01 ")
  1. ;;647
  1. ;;21,"43063-0366-06 ")
  1. ;;649
  1. ;;21,"43063-0366-10 ")
  1. ;;650
  1. ;;21,"43063-0366-14 ")
  1. ;;654
  1. ;;21,"43063-0366-15 ")
  1. ;;655
  1. ;;21,"43063-0366-21 ")
  1. ;;656
  1. ;;21,"43063-0366-30 ")
  1. ;;658
  1. ;;21,"43063-0366-60 ")
  1. ;;659
  1. ;;21,"43063-0366-79 ")
  1. ;;660
  1. ;;21,"43063-0369-10 ")
  1. ;;716
  1. ;;21,"43063-0369-15 ")
  1. ;;717
  1. ;;21,"43063-0369-20 ")
  1. ;;718
  1. ;;21,"43063-0369-30 ")
  1. ;;719
  1. ;;21,"43063-0369-60 ")
  1. ;;720
  1. ;;21,"43063-0505-30 ")
  1. ;;669
  1. ;;21,"43063-0601-01 ")
  1. ;;722
  1. ;;21,"43063-0639-01 ")
  1. ;;670
  1. ;;21,"43063-0639-06 ")
  1. ;;671
  1. ;;21,"43063-0639-10 ")
  1. ;;681
  1. ;;21,"43063-0639-14 ")
  1. ;;682
  1. ;;21,"43063-0639-15 ")
  1. ;;684
  1. ;;21,"43063-0639-21 ")
  1. ;;685
  1. ;;21,"43063-0639-30 ")
  1. ;;701
  1. ;;21,"43063-0639-60 ")
  1. ;;703
  1. ;;21,"43063-0652-02 ")
  1. ;;707
  1. ;;21,"43063-0652-79 ")
  1. ;;708
  1. ;;21,"43199-0053-01 ")
  1. ;;733
  1. ;;21,"43353-0026-10 ")
  1. ;;709
  1. ;;21,"43353-0026-15 ")
  1. ;;710
  1. ;;21,"43353-0026-20 ")
  1. ;;711
  1. ;;21,"43353-0026-28 ")
  1. ;;712
  1. ;;21,"43353-0026-30 ")
  1. ;;713
  1. ;;21,"43353-0026-45 ")
  1. ;;714
  1. ;;21,"43353-0026-53 ")
  1. ;;715
  1. ;;21,"43353-0026-59 ")
  1. ;;721
  1. ;;21,"43353-0026-60 ")
  1. ;;723
  1. ;;21,"43353-0097-30 ")
  1. ;;724
  1. ;;21,"43353-0101-30 ")
  1. ;;725
  1. ;;21,"43353-0163-53 ")
  1. ;;745
  1. ;;21,"43353-0164-53 ")
  1. ;;746
  1. ;;21,"43353-0275-30 ")
  1. ;;747
  1. ;;21,"43353-0275-53 ")
  1. ;;748
  1. ;;21,"43353-0275-60 ")
  1. ;;749
  1. ;;21,"43353-0275-70 ")
  1. ;;750
  1. ;;21,"43353-0443-30 ")
  1. ;;726
  1. ;;21,"43353-0559-30 ")
  1. ;;727
  1. ;;21,"43353-0567-15 ")
  1. ;;728
  1. ;;21,"43353-0567-20 ")
  1. ;;729
  1. ;;21,"43353-0567-28 ")
  1. ;;730
  1. ;;21,"43353-0567-30 ")
  1. ;;731
  1. ;;21,"43353-0590-07 ")
  1. ;;732
  1. ;;21,"43353-0590-10 ")
  1. ;;734
  1. ;;21,"43353-0590-14 ")
  1. ;;735
  1. ;;21,"43353-0590-15 ")
  1. ;;736
  1. ;;21,"43353-0590-20 ")
  1. ;;737
  1. ;;21,"43353-0590-28 ")
  1. ;;738
  1. ;;21,"43353-0590-30 ")
  1. ;;739
  1. ;;21,"43353-0590-45 ")
  1. ;;740
  1. ;;21,"43353-0590-53 ")
  1. ;;741
  1. ;;21,"43353-0590-59 ")
  1. ;;742
  1. ;;21,"43353-0590-60 ")
  1. ;;743
  1. ;;21,"43353-0617-07 ")
  1. ;;744
  1. ;;21,"43353-0617-10 ")
  1. ;;751
  1. ;;21,"43353-0617-14 ")
  1. ;;752
  1. ;;21,"43353-0617-15 ")
  1. ;;753
  1. ;;21,"43353-0617-20 ")
  1. ;;754
  1. ;;21,"43353-0617-21 ")
  1. ;;755
  1. ;;21,"43353-0617-25 ")
  1. ;;756
  1. ;;21,"43353-0617-28 ")
  1. ;;757
  1. ;;21,"43353-0617-30 ")
  1. ;;758
  1. ;;21,"43353-0617-40 ")
  1. ;;759
  1. ;;21,"43353-0617-45 ")
  1. ;;760
  1. ;;21,"43353-0617-53 ")
  1. ;;761
  1. ;;21,"43353-0617-59 ")
  1. ;;762
  1. ;;21,"43353-0617-60 ")
  1. ;;763
  1. ;;21,"43353-0617-62 ")
  1. ;;764
  1. ;;21,"43353-0620-07 ")
  1. ;;765
  1. ;;21,"43353-0620-10 ")
  1. ;;766
  1. ;;21,"43353-0620-14 ")
  1. ;;767
  1. ;;21,"43353-0620-15 ")
  1. ;;768
  1. ;;21,"43353-0620-20 ")
  1. ;;769
  1. ;;21,"43353-0620-28 ")
  1. ;;770
  1. ;;21,"43353-0620-30 ")
  1. ;;771
  1. ;;21,"43353-0620-45 ")
  1. ;;772
  1. ;;21,"43353-0620-53 ")
  1. ;;773
  1. ;;21,"43353-0620-59 ")
  1. ;;774
  1. ;;21,"43353-0620-60 ")
  1. ;;775
  1. ;;21,"43353-0727-30 ")
  1. ;;776
  1. ;;21,"43353-0727-60 ")
  1. ;;777
  1. ;;21,"43353-0743-30 ")
  1. ;;778
  1. ;;21,"43353-0743-60 ")
  1. ;;779
  1. ;;21,"43353-0841-30 ")
  1. ;;780
  1. ;;21,"43386-0761-01 ")
  1. ;;781
  1. ;;21,"43386-0761-30 ")
  1. ;;782
  1. ;;21,"43386-0762-01 ")
  1. ;;783
  1. ;;21,"43386-0762-30 ")
  1. ;;784
  1. ;;21,"45963-0293-30 ")
  1. ;;803
  1. ;;21,"45963-0294-30 ")
  1. ;;804
  1. ;;21,"45963-0295-30 ")
  1. ;;805
  1. ;;21,"46672-0053-10 ")
  1. ;;806
  1. ;;21,"46672-0053-50 ")
  1. ;;807
  1. ;;21,"47335-0586-83 ")
  1. ;;785
  1. ;;21,"47335-0587-88 ")
  1. ;;786
  1. ;;21,"47335-0588-88 ")
  1. ;;787
  1. ;;21,"47463-0012-28 ")
  1. ;;788
  1. ;;21,"47463-0012-30 ")
  1. ;;789
  1. ;;21,"47463-0012-60 ")
  1. ;;790
  1. ;;21,"47463-0012-90 ")
  1. ;;791
  1. ;;21,"47463-0014-30 ")
  1. ;;815
  1. ;;21,"47463-0014-60 ")
  1. ;;816
  1. ;;21,"47463-0014-90 ")
  1. ;;817
  1. ;;21,"47463-0015-30 ")
  1. ;;818
  1. ;;21,"47463-0015-60 ")
  1. ;;819
  1. ;;21,"47463-0016-30 ")
  1. ;;820
  1. ;;21,"47463-0016-60 ")
  1. ;;821
  1. ;;21,"47463-0017-30 ")
  1. ;;822
  1. ;;21,"47463-0372-30 ")
  1. ;;823
  1. ;;21,"47463-0372-60 ")
  1. ;;824
  1. ;;21,"47463-0396-28 ")
  1. ;;792
  1. ;;21,"47463-0396-30 ")
  1. ;;793
  1. ;;21,"47463-0824-30 ")
  1. ;;794
  1. ;;21,"47463-0824-60 ")
  1. ;;795
  1. ;;21,"47463-0824-71 ")
  1. ;;796
  1. ;;21,"47463-0824-90 ")
  1. ;;797
  1. ;;21,"47463-0825-06 ")
  1. ;;798
  1. ;;21,"47463-0825-30 ")
  1. ;;799
  1. ;;21,"47463-0825-71 ")
  1. ;;800
  1. ;;21,"47463-0825-90 ")
  1. ;;801
  1. ;;21,"47463-0827-30 ")
  1. ;;802
  1. ;;21,"47463-0854-30 ")
  1. ;;808
  1. ;;21,"49884-0054-01 ")
  1. ;;837
  1. ;;21,"49884-0054-10 ")
  1. ;;838
  1. ;;21,"49884-0055-01 ")
  1. ;;839
  1. ;;21,"49884-0055-10 ")
  1. ;;840
  1. ;;21,"49884-0056-01 ")
  1. ;;841
  1. ;;21,"49884-0056-10 ")
  1. ;;842
  1. ;;21,"49884-0222-01 ")
  1. ;;843
  1. ;;21,"49884-0222-03 ")
  1. ;;844
  1. ;;21,"49884-0222-05 ")
  1. ;;845
  1. ;;21,"49999-0037-00 ")
  1. ;;809
  1. ;;21,"49999-0037-10 ")
  1. ;;810
  1. ;;21,"49999-0037-15 ")
  1. ;;811
  1. ;;21,"49999-0037-20 ")
  1. ;;812
  1. ;;21,"49999-0037-30 ")
  1. ;;813
  1. ;;21,"49999-0037-60 ")
  1. ;;814
  1. ;;21,"49999-0037-90 ")
  1. ;;825
  1. ;;21,"49999-0063-00 ")
  1. ;;853
  1. ;;21,"49999-0063-15 ")
  1. ;;854
  1. ;;21,"49999-0063-30 ")
  1. ;;855
  1. ;;21,"49999-0063-50 ")
  1. ;;856
  1. ;;21,"49999-0063-60 ")
  1. ;;857
  1. ;;21,"49999-0063-90 ")
  1. ;;858
  1. ;;21,"49999-0115-60 ")
  1. ;;859
  1. ;;21,"49999-0151-08 ")
  1. ;;860
  1. ;;21,"49999-0151-20 ")
  1. ;;861
  1. ;;21,"49999-0151-30 ")
  1. ;;862
  1. ;;21,"49999-0151-60 ")
  1. ;;863
  1. ;;21,"49999-0190-30 ")
  1. ;;864
  1. ;;21,"49999-0205-00 ")
  1. ;;865
  1. ;;21,"49999-0205-30 ")
  1. ;;866
  1. ;;21,"49999-0205-60 ")
  1. ;;867
  1. ;;21,"49999-0228-00 ")
  1. ;;868
  1. ;;21,"49999-0228-30 ")
  1. ;;869
  1. ;;21,"49999-0228-60 ")
  1. ;;870
  1. ;;21,"49999-0228-90 ")
  1. ;;871
  1. ;;21,"49999-0318-00 ")
  1. ;;872
  1. ;;21,"49999-0318-30 ")
  1. ;;873
  1. ;;21,"49999-0318-60 ")
  1. ;;874
  1. ;;21,"49999-0394-30 ")
  1. ;;875
  1. ;;21,"49999-0394-60 ")
  1. ;;876
  1. ;;21,"49999-0394-90 ")
  1. ;;877
  1. ;;21,"49999-0400-30 ")
  1. ;;878
  1. ;;21,"49999-0453-15 ")
  1. ;;826
  1. ;;21,"49999-0453-30 ")
  1. ;;827
  1. ;;21,"49999-0551-30 ")
  1. ;;881
  1. ;;21,"49999-0604-15 ")
  1. ;;828
  1. ;;21,"49999-0604-30 ")
  1. ;;829
  1. ;;21,"49999-0604-60 ")
  1. ;;830
  1. ;;21,"49999-0737-00 ")
  1. ;;831
  1. ;;21,"49999-0737-14 ")
  1. ;;832
  1. ;;21,"49999-0737-15 ")
  1. ;;833
  1. ;;21,"49999-0737-30 ")
  1. ;;834
  1. ;;21,"49999-0737-60 ")
  1. ;;835
  1. ;;21,"49999-0737-90 ")
  1. ;;836
  1. ;;21,"49999-0763-00 ")
  1. ;;846
  1. ;;21,"49999-0763-30 ")
  1. ;;847
  1. ;;21,"49999-0764-30 ")
  1. ;;848
  1. ;;21,"49999-0764-60 ")
  1. ;;849
  1. ;;21,"49999-0778-30 ")
  1. ;;850
  1. ;;21,"49999-0779-15 ")
  1. ;;851
  1. ;;21,"49999-0779-30 ")
  1. ;;852
  1. ;;21,"49999-0867-00 ")
  1. ;;898
  1. ;;21,"49999-0909-00 ")
  1. ;;899
  1. ;;21,"49999-0909-30 ")
  1. ;;900
  1. ;;21,"49999-0909-60 ")
  1. ;;901
  1. ;;21,"49999-0931-00 ")
  1. ;;879
  1. ;;21,"49999-0931-02 ")
  1. ;;880
  1. ;;21,"49999-0931-15 ")
  1. ;;882
  1. ;;21,"49999-0931-30 ")
  1. ;;883
  1. ;;21,"49999-0931-60 ")
  1. ;;884
  1. ;;21,"49999-0932-00 ")
  1. ;;885
  1. ;;21,"49999-0932-30 ")
  1. ;;886
  1. ;;21,"49999-0932-60 ")
  1. ;;887
  1. ;;21,"50436-0193-01 ")
  1. ;;888
  1. ;;21,"50436-1005-01 ")
  1. ;;889
  1. ;;21,"50436-1006-01 ")
  1. ;;890
  1. ;;21,"50436-3026-01 ")
  1. ;;891
  1. ;;21,"50436-3030-01 ")
  1. ;;892
  1. ;;21,"50436-3030-02 ")
  1. ;;893
  1. ;;21,"50436-3031-01 ")
  1. ;;894
  1. ;;21,"50436-3071-01 ")
  1. ;;917
  1. ;;21,"50436-3071-02 ")
  1. ;;918
  1. ;;21,"50436-3071-05 ")
  1. ;;919
  1. ;;21,"50436-3072-01 ")
  1. ;;920
  1. ;;21,"50436-3072-02 ")
  1. ;;921
  1. ;;21,"50436-3072-05 ")
  1. ;;922
  1. ;;21,"50436-3073-01 ")
  1. ;;923
  1. ;;21,"50436-3073-02 ")
  1. ;;924
  1. ;;21,"50436-3074-01 ")
  1. ;;925
  1. ;;21,"50436-3075-01 ")
  1. ;;926
  1. ;;21,"50436-4565-01 ")
  1. ;;927
  1. ;;21,"50436-4856-01 ")
  1. ;;928
  1. ;;21,"50436-4856-02 ")
  1. ;;929
  1. ;;21,"50436-5537-01 ")
  1. ;;895
  1. ;;21,"50436-5538-01 ")
  1. ;;896
  1. ;;21,"50436-5538-04 ")
  1. ;;897
  1. ;;21,"50436-5539-01 ")
  1. ;;902
  1. ;;21,"50436-5539-04 ")
  1. ;;903
  1. ;;21,"50991-0514-16 ")
  1. ;;935
  1. ;;21,"51079-0107-01 ")
  1. ;;936
  1. ;;21,"51079-0107-17 ")
  1. ;;937
  1. ;;21,"51079-0107-19 ")
  1. ;;938
  1. ;;21,"51079-0107-20 ")
  1. ;;939
  1. ;;21,"51079-0107-63 ")
  1. ;;940
  1. ;;21,"51079-0131-01 ")
  1. ;;941
  1. ;;21,"51079-0131-20 ")
  1. ;;942
  1. ;;21,"51079-0131-63 ")
  1. ;;943
  1. ;;21,"51079-0133-01 ")
  1. ;;944
  1. ;;21,"51079-0133-20 ")
  1. ;;945
  1. ;;21,"51079-0133-63 ")
  1. ;;946
  1. ;;21,"51079-0147-01 ")
  1. ;;947
  1. ;;21,"51079-0147-20 ")
  1. ;;948
  1. ;;21,"51079-0349-01 ")
  1. ;;904
  1. ;;21,"51079-0349-03 ")
  1. ;;905
  1. ;;21,"51079-0414-01 ")
  1. ;;906
  1. ;;21,"51079-0414-03 ")
  1. ;;907
  1. ;;21,"51079-0436-01 ")
  1. ;;953
  1. ;;21,"51079-0436-20 ")
  1. ;;954
  1. ;;21,"51079-0437-01 ")
  1. ;;955
  1. ;;21,"51079-0437-20 ")
  1. ;;956
  1. ;;21,"51079-0438-01 ")
  1. ;;957
  1. ;;21,"51079-0438-20 ")
  1. ;;958
  1. ;;21,"51079-0563-01 ")
  1. ;;959
  1. ;;21,"51079-0563-20 ")
  1. ;;960
  1. ;;21,"51079-0565-01 ")
  1. ;;961
  1. ;;21,"51079-0565-20 ")
  1. ;;962
  1. ;;21,"51079-0566-01 ")
  1. ;;963
  1. ;;21,"51079-0566-20 ")
  1. ;;964
  1. ;;21,"51079-0567-01 ")
  1. ;;965
  1. ;;21,"51079-0567-20 ")
  1. ;;966
  1. ;;21,"51079-0580-01 ")
  1. ;;967
  1. ;;21,"51079-0580-20 ")
  1. ;;968
  1. ;;21,"51079-0651-01 ")
  1. ;;969
  1. ;;21,"51079-0651-20 ")
  1. ;;970
  1. ;;21,"51079-0724-01 ")
  1. ;;908
  1. ;;21,"51079-0724-20 ")
  1. ;;909
  1. ;;21,"51079-0725-01 ")
  1. ;;910
  1. ;;21,"51079-0725-20 ")
  1. ;;911
  1. ;;21,"51138-0001-30 ")
  1. ;;975
  1. ;;21,"51138-0002-30 ")
  1. ;;976
  1. ;;21,"51138-0003-30 ")
  1. ;;977
  1. ;;21,"51138-0004-30 ")
  1. ;;978
  1. ;;21,"51138-0005-30 ")
  1. ;;979
  1. ;;21,"51138-0006-30 ")
  1. ;;980
  1. ;;21,"51138-0028-30 ")
  1. ;;981
  1. ;;21,"51138-0029-30 ")
  1. ;;982
  1. ;;21,"51138-0030-30 ")
  1. ;;983
  1. ;;21,"51138-0031-30 ")
  1. ;;984
  1. ;;21,"51138-0032-30 ")
  1. ;;985
  1. ;;21,"51285-0538-02 ")
  1. ;;986
  1. ;;21,"51285-0539-02 ")
  1. ;;987
  1. ;;21,"51285-0554-02 ")
  1. ;;988
  1. ;;21,"51293-0605-01 ")
  1. ;;989
  1. ;;21,"51293-0606-01 ")
  1. ;;990
  1. ;;21,"51293-0625-01 ")
  1. ;;991
  1. ;;21,"51293-0625-10 ")
  1. ;;992
  1. ;;21,"51293-0626-01 ")
  1. ;;993
  1. ;;21,"51293-0626-10 ")
  1. ;;994
  1. ;;21,"51293-0627-01 ")
  1. ;;995
  1. ;;21,"51293-0627-10 ")
  1. ;;996
  1. ;;21,"51293-0628-01 ")
  1. ;;997
  1. ;;21,"51293-0628-10 ")
  1. ;;998
  1. ;;21,"51672-4011-05 ")
  1. ;;999
  1. ;;21,"51672-4011-06 ")
  1. ;;1000
  1. ;;21,"51672-4012-05 ")
  1. ;;1001
  1. ;;21,"51672-4012-06 ")
  1. ;;1002
  1. ;;21,"51672-4013-05 ")
  1. ;;1003
  1. ;;21,"51672-4013-06 ")
  1. ;;1004
  1. ;;21,"51862-0179-01 ")
  1. ;;1005
  1. ;;21,"51862-0540-01 ")
  1. ;;1006
  1. ;;21,"51862-0540-05 ")
  1. ;;1007
  1. ;;21,"51991-0073-01 ")
  1. ;;1008
  1. ;;21,"51991-0074-01 ")
  1. ;;1009
  1. ;;21,"51991-0074-05 ")
  1. ;;1010
  1. ;;21,"51991-0080-51 ")
  1. ;;1011
  1. ;;21,"51991-0080-52 ")
  1. ;;1012
  1. ;;21,"52544-0080-01 ")
  1. ;;1013
  1. ;;21,"52544-0082-01 ")
  1. ;;1014
  1. ;;21,"52544-0955-01 ")
  1. ;;1015
  1. ;;21,"52544-0956-01 ")
  1. ;;1016
  1. ;;21,"52959-0008-02 ")
  1. ;;1017
  1. ;;21,"52959-0008-15 ")
  1. ;;1018
  1. ;;21,"52959-0008-20 ")
  1. ;;1019
  1. ;;21,"52959-0008-30 ")
  1. ;;1020
  1. ;;21,"52959-0008-40 ")
  1. ;;1021
  1. ;;21,"52959-0008-50 ")
  1. ;;1022
  1. ;;21,"52959-0008-60 ")
  1. ;;1023
  1. ;;21,"52959-0008-90 ")
  1. ;;1024
  1. ;;21,"52959-0023-06 ")
  1. ;;1025
  1. ;;21,"52959-0023-20 ")
  1. ;;1026
  1. ;;21,"52959-0023-30 ")
  1. ;;1027
  1. ;;21,"52959-0023-50 ")
  1. ;;1028
  1. ;;21,"52959-0023-60 ")
  1. ;;1029
  1. ;;21,"52959-0274-03 ")
  1. ;;1030
  1. ;;21,"52959-0274-06 ")
  1. ;;1031
  1. ;;21,"52959-0274-30 ")
  1. ;;1032
  1. ;;21,"52959-0284-00 ")
  1. ;;1033
  1. ;;21,"52959-0284-30 ")
  1. ;;1034
  1. ;;21,"52959-0284-60 ")
  1. ;;1035
  1. ;;21,"52959-0348-00 ")
  1. ;;1036
  1. ;;21,"52959-0348-02 ")
  1. ;;1037
  1. ;;21,"52959-0348-10 ")
  1. ;;1038
  1. ;;21,"52959-0348-12 ")
  1. ;;1039
  1. ;;21,"52959-0348-14 ")
  1. ;;1040