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

BGP47D18.m

Go to the documentation of this file.
BGP47D18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"66336-0018-28 ")
 ;;6585
 ;;21,"66336-0018-42 ")
 ;;6586
 ;;21,"66336-0037-03 ")
 ;;6587
 ;;21,"66336-0037-20 ")
 ;;6588
 ;;21,"66336-0037-28 ")
 ;;6589
 ;;21,"66336-0037-40 ")
 ;;6590
 ;;21,"66336-0055-06 ")
 ;;6591
 ;;21,"66336-0055-08 ")
 ;;6592
 ;;21,"66336-0055-10 ")
 ;;6593
 ;;21,"66336-0055-14 ")
 ;;6594
 ;;21,"66336-0055-20 ")
 ;;6595
 ;;21,"66336-0055-28 ")
 ;;6596
 ;;21,"66336-0055-30 ")
 ;;6597
 ;;21,"66336-0055-40 ")
 ;;6598
 ;;21,"66336-0074-20 ")
 ;;6599
 ;;21,"66336-0077-20 ")
 ;;6600
 ;;21,"66336-0077-28 ")
 ;;6601
 ;;21,"66336-0077-40 ")
 ;;6602
 ;;21,"66336-0087-06 ")
 ;;6603
 ;;21,"66336-0087-10 ")
 ;;6604
 ;;21,"66336-0087-14 ")
 ;;6605
 ;;21,"66336-0087-20 ")
 ;;6606
 ;;21,"66336-0087-40 ")
 ;;6607
 ;;21,"66336-0095-06 ")
 ;;6608
 ;;21,"66336-0095-20 ")
 ;;6609
 ;;21,"66336-0095-28 ")
 ;;6610
 ;;21,"66336-0095-30 ")
 ;;6611
 ;;21,"66336-0095-40 ")
 ;;6612
 ;;21,"66336-0098-21 ")
 ;;6613
 ;;21,"66336-0098-30 ")
 ;;6614
 ;;21,"66336-0104-20 ")
 ;;6615
 ;;21,"66336-0109-14 ")
 ;;6616
 ;;21,"66336-0109-28 ")
 ;;6617
 ;;21,"66336-0109-30 ")
 ;;6618
 ;;21,"66336-0109-50 ")
 ;;6619
 ;;21,"66336-0113-30 ")
 ;;6620
 ;;21,"66336-0202-30 ")
 ;;6621
 ;;21,"66336-0229-20 ")
 ;;6622
 ;;21,"66336-0229-56 ")
 ;;6623
 ;;21,"66336-0229-84 ")
 ;;6624
 ;;21,"66336-0293-30 ")
 ;;6625
 ;;21,"66336-0347-20 ")
 ;;6626
 ;;21,"66336-0369-20 ")
 ;;6627
 ;;21,"66336-0400-05 ")
 ;;6628
 ;;21,"66336-0414-20 ")
 ;;6629
 ;;21,"66336-0414-28 ")
 ;;6630
 ;;21,"66336-0414-40 ")
 ;;6631
 ;;21,"66336-0433-14 ")
 ;;6632
 ;;21,"66336-0435-20 ")
 ;;6633
 ;;21,"66336-0435-28 ")
 ;;6634
 ;;21,"66336-0435-30 ")
 ;;6635
 ;;21,"66336-0435-40 ")
 ;;6636
 ;;21,"66336-0435-60 ")
 ;;6637
 ;;21,"66336-0441-03 ")
 ;;6638
 ;;21,"66336-0441-06 ")
 ;;6639
 ;;21,"66336-0441-08 ")
 ;;6640
 ;;21,"66336-0441-20 ")
 ;;6641
 ;;21,"66336-0441-28 ")
 ;;6642
 ;;21,"66336-0441-40 ")
 ;;6643
 ;;21,"66336-0449-14 ")
 ;;6644
 ;;21,"66336-0454-30 ")
 ;;6645
 ;;21,"66336-0480-20 ")
 ;;6646
 ;;21,"66336-0480-40 ")
 ;;6647
 ;;21,"66336-0580-28 ")
 ;;6648
 ;;21,"66336-0580-30 ")
 ;;6649
 ;;21,"66336-0593-40 ")
 ;;6650
 ;;21,"66336-0609-06 ")
 ;;6651
 ;;21,"66336-0609-12 ")
 ;;6652
 ;;21,"66336-0609-20 ")
 ;;6653
 ;;21,"66336-0609-28 ")
 ;;6654
 ;;21,"66336-0609-40 ")
 ;;6655
 ;;21,"66336-0617-30 ")
 ;;6656
 ;;21,"66336-0617-40 ")
 ;;6657
 ;;21,"66336-0634-08 ")
 ;;6658
 ;;21,"66336-0634-15 ")
 ;;6659
 ;;21,"66336-0634-21 ")
 ;;6660
 ;;21,"66336-0634-30 ")
 ;;6661
 ;;21,"66336-0634-40 ")
 ;;6662
 ;;21,"66336-0634-42 ")
 ;;6663
 ;;21,"66336-0644-40 ")
 ;;6664
 ;;21,"66336-0648-40 ")
 ;;6665
 ;;21,"66336-0655-21 ")
 ;;6666
 ;;21,"66336-0655-30 ")
 ;;6667
 ;;21,"66336-0830-05 ")
 ;;6668
 ;;21,"66336-0903-10 ")
 ;;6669
 ;;21,"66336-0903-14 ")
 ;;6670
 ;;21,"66336-0903-20 ")
 ;;6671
 ;;21,"66336-0903-28 ")
 ;;6672
 ;;21,"66336-0903-99 ")
 ;;6673
 ;;21,"66336-0906-28 ")
 ;;6674
 ;;21,"66647-6152-11 ")
 ;;6675
 ;;21,"66647-6153-11 ")
 ;;6676
 ;;21,"66685-1001-00 ")
 ;;6677
 ;;21,"66685-1001-01 ")
 ;;6678
 ;;21,"66685-1002-00 ")
 ;;6679
 ;;21,"66685-1002-02 ")
 ;;6680
 ;;21,"66685-1011-00 ")
 ;;6681
 ;;21,"66685-1011-01 ")
 ;;6682
 ;;21,"66685-1011-02 ")
 ;;6683
 ;;21,"66685-1012-00 ")
 ;;6684
 ;;21,"66685-1012-01 ")
 ;;6685
 ;;21,"66685-1012-02 ")
 ;;6686
 ;;21,"66860-0001-03 ")
 ;;6687
 ;;21,"66860-0002-03 ")
 ;;6688
 ;;21,"66860-0003-02 ")
 ;;6689
 ;;21,"66860-0011-02 ")
 ;;6690
 ;;21,"66860-0030-03 ")
 ;;6691
 ;;21,"66860-0031-03 ")
 ;;6692
 ;;21,"66860-0032-02 ")
 ;;6693
 ;;21,"66860-0071-02 ")
 ;;6694
 ;;21,"66860-0072-02 ")
 ;;6695
 ;;21,"66860-0073-02 ")
 ;;6696
 ;;21,"66860-0074-02 ")
 ;;6697
 ;;21,"66860-0730-03 ")
 ;;6698
 ;;21,"66860-0731-03 ")
 ;;6699
 ;;21,"66860-0732-02 ")
 ;;6700
 ;;21,"66860-0902-03 ")
 ;;6701
 ;;21,"67046-0020-21 ")
 ;;6702
 ;;21,"67046-0090-21 ")
 ;;6703
 ;;21,"67046-0090-28 ")
 ;;6704
 ;;21,"67046-0090-30 ")
 ;;6705
 ;;21,"67046-0135-14 ")
 ;;6706
 ;;21,"67046-0135-20 ")
 ;;6707
 ;;21,"67046-0135-30 ")
 ;;6708
 ;;21,"67046-0576-21 ")
 ;;6709
 ;;21,"67046-0576-28 ")
 ;;6710
 ;;21,"67046-0576-30 ")
 ;;6711
 ;;21,"67046-0728-30 ")
 ;;6712
 ;;21,"67253-0007-60 ")
 ;;6713
 ;;21,"67253-0008-41 ")
 ;;6714
 ;;21,"67253-0008-46 ")
 ;;6715
 ;;21,"67253-0009-41 ")
 ;;6716
 ;;21,"67253-0009-46 ")
 ;;6717
 ;;21,"67253-0140-10 ")
 ;;6718
 ;;21,"67253-0140-50 ")
 ;;6719
 ;;21,"67253-0141-10 ")
 ;;6720
 ;;21,"67253-0141-50 ")
 ;;6721
 ;;21,"67253-0142-08 ")
 ;;6722
 ;;21,"67253-0142-10 ")
 ;;6723
 ;;21,"67253-0142-15 ")
 ;;6724
 ;;21,"67253-0143-08 ")
 ;;6725
 ;;21,"67253-0143-10 ")
 ;;6726
 ;;21,"67253-0143-15 ")
 ;;6727
 ;;21,"67253-0145-10 ")
 ;;6728
 ;;21,"67253-0180-10 ")
 ;;6729
 ;;21,"67253-0180-50 ")
 ;;6730
 ;;21,"67253-0181-10 ")
 ;;6731
 ;;21,"67253-0181-50 ")
 ;;6732
 ;;21,"67253-0182-10 ")
 ;;6733
 ;;21,"67253-0182-20 ")
 ;;6734
 ;;21,"67253-0183-10 ")
 ;;6735
 ;;21,"67253-0183-20 ")
 ;;6736
 ;;21,"67253-0200-10 ")
 ;;6737
 ;;21,"67253-0200-11 ")
 ;;6738
 ;;21,"67253-0201-10 ")
 ;;6739
 ;;21,"67253-0201-50 ")
 ;;6740
 ;;21,"67253-0202-10 ")
 ;;6741
 ;;21,"67253-0202-20 ")
 ;;6742
 ;;21,"67253-0203-10 ")
 ;;6743
 ;;21,"67253-0203-20 ")
 ;;6744
 ;;21,"67253-0300-10 ")
 ;;6745
 ;;21,"67253-0300-50 ")
 ;;6746
 ;;21,"67253-0301-10 ")
 ;;6747
 ;;21,"67253-0301-50 ")
 ;;6748
 ;;21,"67253-0780-02 ")
 ;;6749
 ;;21,"67253-0781-02 ")
 ;;6750
 ;;21,"67544-0775-28 ")
 ;;6751
 ;;21,"67781-0181-60 ")
 ;;6752
 ;;21,"67877-0215-20 ")
 ;;6753
 ;;21,"67877-0215-60 ")
 ;;6754
 ;;21,"67877-0216-20 ")
 ;;6755
 ;;21,"67877-0216-60 ")
 ;;6756
 ;;21,"67877-0219-01 ")
 ;;6757
 ;;21,"67877-0219-05 ")
 ;;6758
 ;;21,"67877-0220-05 ")
 ;;6759
 ;;21,"67877-0255-20 ")
 ;;6760
 ;;21,"68047-0714-01 ")
 ;;6761
 ;;21,"68047-0714-60 ")
 ;;6762
 ;;21,"68071-0055-06 ")
 ;;6763
 ;;21,"68071-0055-10 ")
 ;;6764
 ;;21,"68071-0055-14 ")
 ;;6765
 ;;21,"68071-0055-20 ")
 ;;6766
 ;;21,"68071-0055-28 ")
 ;;6767
 ;;21,"68071-0055-30 ")
 ;;6768
 ;;21,"68071-0331-14 ")
 ;;6769
 ;;21,"68071-0331-20 ")
 ;;6770
 ;;21,"68071-0331-30 ")
 ;;6771
 ;;21,"68071-0337-14 ")
 ;;6772
 ;;21,"68071-0337-20 ")
 ;;6773
 ;;21,"68071-0337-30 ")
 ;;6774
 ;;21,"68071-0398-06 ")
 ;;6775
 ;;21,"68071-0398-14 ")
 ;;6776
 ;;21,"68071-0398-20 ")
 ;;6777
 ;;21,"68071-0398-30 ")
 ;;6778
 ;;21,"68071-0398-40 ")
 ;;6779
 ;;21,"68071-0398-90 ")
 ;;6780
 ;;21,"68084-0069-01 ")
 ;;6781
 ;;21,"68084-0069-11 ")
 ;;6782
 ;;21,"68084-0070-01 ")
 ;;6783
 ;;21,"68084-0070-11 ")
 ;;6784
 ;;21,"68084-0071-01 ")
 ;;6785
 ;;21,"68084-0071-11 ")
 ;;6786
 ;;21,"68084-0218-01 ")
 ;;6787
 ;;21,"68084-0218-11 ")
 ;;6788
 ;;21,"68084-0219-01 ")
 ;;6789
 ;;21,"68084-0219-11 ")
 ;;6790
 ;;21,"68084-0230-01 ")
 ;;6791
 ;;21,"68084-0230-11 ")
 ;;6792
 ;;21,"68084-0235-01 ")
 ;;6793
 ;;21,"68084-0235-11 ")
 ;;6794
 ;;21,"68084-0236-01 ")
 ;;6795
 ;;21,"68084-0236-11 ")
 ;;6796
 ;;21,"68084-0243-01 ")
 ;;6797
 ;;21,"68084-0243-11 ")
 ;;6798
 ;;21,"68084-0244-01 ")
 ;;6799
 ;;21,"68084-0244-11 ")
 ;;6800
 ;;21,"68084-0278-01 ")
 ;;6801
 ;;21,"68084-0278-11 ")
 ;;6802
 ;;21,"68084-0278-30 ")
 ;;6803
 ;;21,"68084-0278-65 ")
 ;;6804
 ;;21,"68084-0278-89 ")
 ;;6805
 ;;21,"68084-0279-11 ")
 ;;6806
 ;;21,"68084-0279-21 ")
 ;;6807
 ;;21,"68084-0289-01 ")
 ;;6808
 ;;21,"68084-0289-11 ")
 ;;6809
 ;;21,"68084-0437-11 ")
 ;;6810
 ;;21,"68084-0437-65 ")
 ;;6811
 ;;21,"68084-0443-11 ")
 ;;6812
 ;;21,"68084-0443-65 ")
 ;;6813
 ;;21,"68084-0464-11 ")
 ;;6814
 ;;21,"68084-0464-21 ")
 ;;6815
 ;;21,"68084-0481-01 ")
 ;;6816
 ;;21,"68084-0481-11 ")
 ;;6817
 ;;21,"68084-0482-01 ")
 ;;6818
 ;;21,"68084-0482-11 ")
 ;;6819
 ;;21,"68084-0483-01 ")
 ;;6820
 ;;21,"68084-0483-11 ")
 ;;6821
 ;;21,"68084-0623-11 ")
 ;;6822
 ;;21,"68084-0623-65 ")
 ;;6823
 ;;21,"68115-0026-06 ")
 ;;6824
 ;;21,"68115-0026-09 ")
 ;;6825
 ;;21,"68115-0026-15 ")
 ;;6826
 ;;21,"68115-0026-40 ")
 ;;6827
 ;;21,"68115-0029-20 ")
 ;;6828
 ;;21,"68115-0030-10 ")
 ;;6829
 ;;21,"68115-0032-40 ")
 ;;6830
 ;;21,"68115-0033-15 ")
 ;;6831
 ;;21,"68115-0033-40 ")
 ;;6832
 ;;21,"68115-0067-20 ")
 ;;6833
 ;;21,"68115-0081-06 ")
 ;;6834
 ;;21,"68115-0081-10 ")
 ;;6835
 ;;21,"68115-0082-01 ")
 ;;6836
 ;;21,"68115-0082-06 ")
 ;;6837
 ;;21,"68115-0090-20 ")
 ;;6838
 ;;21,"68115-0104-06 ")
 ;;6839
 ;;21,"68115-0104-40 ")
 ;;6840
 ;;21,"68115-0105-30 ")
 ;;6841
 ;;21,"68115-0105-40 ")
 ;;6842
 ;;21,"68115-0125-28 ")
 ;;6843
 ;;21,"68115-0131-06 ")
 ;;6844
 ;;21,"68115-0131-15 ")
 ;;6845
 ;;21,"68115-0131-21 ")
 ;;6846
 ;;21,"68115-0131-40 ")
 ;;6847
 ;;21,"68115-0133-20 ")
 ;;6848
 ;;21,"68115-0133-40 ")
 ;;6849
 ;;21,"68115-0134-06 ")
 ;;6850
 ;;21,"68115-0134-40 ")
 ;;6851
 ;;21,"68115-0421-28 ")
 ;;6852
 ;;21,"68115-0445-22 ")
 ;;6853
 ;;21,"68180-0121-01 ")
 ;;6854
 ;;21,"68180-0121-02 ")
 ;;6855
 ;;21,"68180-0122-01 ")
 ;;6856
 ;;21,"68180-0122-02 ")
 ;;6857
 ;;21,"68180-0123-01 ")
 ;;6858
 ;;21,"68180-0123-02 ")
 ;;6859
 ;;21,"68180-0124-01 ")
 ;;6860
 ;;21,"68180-0124-02 ")
 ;;6861
 ;;21,"68180-0180-01 ")
 ;;6862
 ;;21,"68180-0180-08 ")
 ;;6863
 ;;21,"68180-0181-01 ")
 ;;6864
 ;;21,"68180-0181-02 ")
 ;;6865
 ;;21,"68180-0182-02 ")
 ;;6866
 ;;21,"68180-0182-03 ")
 ;;6867
 ;;21,"68180-0202-01 ")
 ;;6868
 ;;21,"68180-0202-02 ")
 ;;6869
 ;;21,"68180-0202-03 ")
 ;;6870
 ;;21,"68180-0240-01 ")
 ;;6871
 ;;21,"68180-0240-08 ")
 ;;6872
 ;;21,"68180-0241-01 ")
 ;;6873
 ;;21,"68180-0241-02 ")
 ;;6874
 ;;21,"68180-0241-08 ")
 ;;6875
 ;;21,"68180-0242-01 ")
 ;;6876
 ;;21,"68180-0242-20 ")
 ;;6877
 ;;21,"68180-0302-20 ")
 ;;6878
 ;;21,"68180-0302-60 ")
 ;;6879
 ;;21,"68180-0303-20 ")
 ;;6880
 ;;21,"68180-0303-60 ")
 ;;6881
 ;;21,"68180-0379-06 ")
 ;;6882
 ;;21,"68180-0380-06 ")
 ;;6883
 ;;21,"68180-0381-06 ")
 ;;6884
 ;;21,"68180-0401-01 ")
 ;;6885
 ;;21,"68180-0401-02 ")
 ;;6886
 ;;21,"68180-0401-03 ")
 ;;6887
 ;;21,"68180-0402-01 ")
 ;;6888
 ;;21,"68180-0402-02 ")
 ;;6889
 ;;21,"68180-0402-03 ")
 ;;6890
 ;;21,"68180-0403-01 ")
 ;;6891
 ;;21,"68180-0404-01 ")
 ;;6892
 ;;21,"68180-0404-02 ")
 ;;6893
 ;;21,"68180-0611-01 ")
 ;;6894
 ;;21,"68180-0611-10 ")
 ;;6895
 ;;21,"68180-0622-01 ")
 ;;6896
 ;;21,"68180-0622-10 ")
 ;;6897
 ;;21,"68180-0633-01 ")
 ;;6898
 ;;21,"68180-0633-10 ")
 ;;6899
 ;;21,"68180-0644-01 ")
 ;;6900
 ;;21,"68180-0644-10 ")
 ;;6901
 ;;21,"68180-0657-01 ")
 ;;6902
 ;;21,"68180-0711-60 ")
 ;;6903
 ;;21,"68180-0722-10 ")
 ;;6904
 ;;21,"68180-0722-20 ")
 ;;6905
 ;;21,"68180-0723-10 ")
 ;;6906
 ;;21,"68180-0723-20 ")
 ;;6907
 ;;21,"68258-3012-01 ")
 ;;6908
 ;;21,"68258-9300-02 ")
 ;;6909
 ;;21,"68308-0710-10 ")
 ;;6910
 ;;21,"68308-0775-60 ")
 ;;6911
 ;;21,"68330-0001-01 ")
 ;;6912
 ;;21,"68330-0001-10 ")
 ;;6913
 ;;21,"68330-0002-01 ")
 ;;6914
 ;;21,"68330-0002-10 ")
 ;;6915
 ;;21,"68330-0003-01 ")
 ;;6916
 ;;21,"68330-0003-10 ")
 ;;6917
 ;;21,"68330-0004-01 ")
 ;;6918
 ;;21,"68330-0004-10 ")
 ;;6919
 ;;21,"68330-0005-01 ")
 ;;6920
 ;;21,"68330-0006-01 ")
 ;;6921
 ;;21,"68330-0015-25 ")
 ;;6922
 ;;21,"68382-0015-01 ")
 ;;6923
 ;;21,"68382-0015-18 ")
 ;;6924
 ;;21,"68382-0016-01 ")
 ;;6925
 ;;21,"68382-0016-18 ")
 ;;6926
 ;;21,"68382-0017-01 ")
 ;;6927
 ;;21,"68382-0017-18 ")
 ;;6928
 ;;21,"68382-0761-14 ")
 ;;6929
 ;;21,"68382-0762-14 ")
 ;;6930
 ;;21,"68382-0763-14 ")
 ;;6931
 ;;21,"68382-0764-05 ")
 ;;6932
 ;;21,"68382-0764-06 ")
 ;;6933
 ;;21,"68382-0765-05 ")
 ;;6934
 ;;21,"68382-0765-06 ")
 ;;6935
 ;;21,"68387-0117-30 ")
 ;;6936
 ;;21,"68387-0190-20 ")
 ;;6937
 ;;21,"68387-0190-21 ")
 ;;6938
 ;;21,"68387-0190-30 ")
 ;;6939
 ;;21,"68387-0190-40 ")
 ;;6940
 ;;21,"68387-0380-20 ")
 ;;6941
 ;;21,"68387-0385-20 ")
 ;;6942
 ;;21,"68387-0385-30 ")
 ;;6943
 ;;21,"68387-0385-60 ")
 ;;6944
 ;;21,"68387-0390-20 ")
 ;;6945
 ;;21,"68387-0390-28 ")
 ;;6946
 ;;21,"68387-0430-30 ")
 ;;6947
 ;;21,"68387-0430-40 ")
 ;;6948
 ;;21,"68387-0470-14 ")
 ;;6949
 ;;21,"68387-0470-20 ")
 ;;6950
 ;;21,"68387-0534-01 ")
 ;;6951
 ;;21,"68387-0535-15 ")
 ;;6952
 ;;21,"68387-0535-20 ")
 ;;6953
 ;;21,"68387-0565-06 ")
 ;;6954
 ;;21,"68387-0580-15 ")
 ;;6955
 ;;21,"68453-0112-10 ")
 ;;6956
 ;;21,"68453-0113-10 ")
 ;;6957
 ;;21,"68453-0115-05 ")
 ;;6958
 ;;21,"68453-0142-03 ")
 ;;6959
 ;;21,"68462-0339-01 ")
 ;;6960
 ;;21,"68462-0339-05 ")
 ;;6961
 ;;21,"68462-0340-01 ")
 ;;6962
 ;;21,"68462-0340-05 ")
 ;;6963
 ;;21,"68645-0030-20 ")
 ;;6964
 ;;21,"68774-0120-60 ")
 ;;6965
 ;;21,"68774-0122-60 ")
 ;;6966
 ;;21,"68774-0302-29 ")
 ;;6967
 ;;21,"68774-0302-35 ")
 ;;6968
 ;;21,"68774-0303-29 ")
 ;;6969
 ;;21,"68774-0303-35 ")
 ;;6970