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

BGP33J18.m

Go to the documentation of this file.
BGP33J18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"64679-0712-03 ")
 ;;6585
 ;;21,"64679-0713-01 ")
 ;;6586
 ;;21,"64679-0713-03 ")
 ;;6587
 ;;21,"64679-0921-01 ")
 ;;6588
 ;;21,"64679-0921-02 ")
 ;;6589
 ;;21,"64679-0922-01 ")
 ;;6590
 ;;21,"64679-0922-02 ")
 ;;6591
 ;;21,"64679-0949-01 ")
 ;;6592
 ;;21,"64679-0954-01 ")
 ;;6593
 ;;21,"64679-0961-01 ")
 ;;6594
 ;;21,"64679-0961-04 ")
 ;;6595
 ;;21,"64679-0961-05 ")
 ;;6596
 ;;21,"64679-0962-01 ")
 ;;6597
 ;;21,"64679-0964-01 ")
 ;;6598
 ;;21,"64679-0964-03 ")
 ;;6599
 ;;21,"64679-0964-05 ")
 ;;6600
 ;;21,"64679-0983-01 ")
 ;;6601
 ;;21,"64679-0983-02 ")
 ;;6602
 ;;21,"64682-0008-02 ")
 ;;6603
 ;;21,"64682-0009-01 ")
 ;;6604
 ;;21,"64720-0152-10 ")
 ;;6605
 ;;21,"64860-0306-13 ")
 ;;6606
 ;;21,"64860-0306-40 ")
 ;;6607
 ;;21,"64860-0307-13 ")
 ;;6608
 ;;21,"64860-0307-40 ")
 ;;6609
 ;;21,"65162-0202-01 ")
 ;;6610
 ;;21,"65162-0202-02 ")
 ;;6611
 ;;21,"65162-0202-08 ")
 ;;6612
 ;;21,"65162-0202-14 ")
 ;;6613
 ;;21,"65162-0271-10 ")
 ;;6614
 ;;21,"65162-0271-50 ")
 ;;6615
 ;;21,"65162-0272-10 ")
 ;;6616
 ;;21,"65162-0272-50 ")
 ;;6617
 ;;21,"65162-0313-01 ")
 ;;6618
 ;;21,"65162-0313-02 ")
 ;;6619
 ;;21,"65162-0313-08 ")
 ;;6620
 ;;21,"65162-0313-14 ")
 ;;6621
 ;;21,"65162-0527-05 ")
 ;;6622
 ;;21,"65162-0527-14 ")
 ;;6623
 ;;21,"65162-0527-28 ")
 ;;6624
 ;;21,"65162-0527-50 ")
 ;;6625
 ;;21,"65224-0800-22 ")
 ;;6626
 ;;21,"65224-0802-02 ")
 ;;6627
 ;;21,"65224-0802-03 ")
 ;;6628
 ;;21,"65224-0802-04 ")
 ;;6629
 ;;21,"65224-0804-02 ")
 ;;6630
 ;;21,"65862-0014-01 ")
 ;;6631
 ;;21,"65862-0014-05 ")
 ;;6632
 ;;21,"65862-0015-01 ")
 ;;6633
 ;;21,"65862-0015-05 ")
 ;;6634
 ;;21,"65862-0016-01 ")
 ;;6635
 ;;21,"65862-0016-05 ")
 ;;6636
 ;;21,"65862-0017-01 ")
 ;;6637
 ;;21,"65862-0017-05 ")
 ;;6638
 ;;21,"65862-0018-01 ")
 ;;6639
 ;;21,"65862-0018-05 ")
 ;;6640
 ;;21,"65862-0018-40 ")
 ;;6641
 ;;21,"65862-0019-01 ")
 ;;6642
 ;;21,"65862-0019-05 ")
 ;;6643
 ;;21,"65862-0019-40 ")
 ;;6644
 ;;21,"65862-0034-20 ")
 ;;6645
 ;;21,"65862-0034-60 ")
 ;;6646
 ;;21,"65862-0035-20 ")
 ;;6647
 ;;21,"65862-0035-60 ")
 ;;6648
 ;;21,"65862-0068-01 ")
 ;;6649
 ;;21,"65862-0068-50 ")
 ;;6650
 ;;21,"65862-0069-01 ")
 ;;6651
 ;;21,"65862-0069-50 ")
 ;;6652
 ;;21,"65862-0070-01 ")
 ;;6653
 ;;21,"65862-0070-50 ")
 ;;6654
 ;;21,"65862-0070-75 ")
 ;;6655
 ;;21,"65862-0071-01 ")
 ;;6656
 ;;21,"65862-0071-50 ")
 ;;6657
 ;;21,"65862-0071-75 ")
 ;;6658
 ;;21,"65862-0076-01 ")
 ;;6659
 ;;21,"65862-0077-01 ")
 ;;6660
 ;;21,"65862-0078-50 ")
 ;;6661
 ;;21,"65862-0085-01 ")
 ;;6662
 ;;21,"65862-0085-50 ")
 ;;6663
 ;;21,"65862-0095-20 ")
 ;;6664
 ;;21,"65862-0096-20 ")
 ;;6665
 ;;21,"65862-0099-01 ")
 ;;6666
 ;;21,"65862-0099-75 ")
 ;;6667
 ;;21,"65862-0100-01 ")
 ;;6668
 ;;21,"65862-0100-75 ")
 ;;6669
 ;;21,"65862-0140-01 ")
 ;;6670
 ;;21,"65862-0140-50 ")
 ;;6671
 ;;21,"65862-0141-01 ")
 ;;6672
 ;;21,"65862-0141-50 ")
 ;;6673
 ;;21,"65862-0175-01 ")
 ;;6674
 ;;21,"65862-0175-99 ")
 ;;6675
 ;;21,"65862-0176-01 ")
 ;;6676
 ;;21,"65862-0176-05 ")
 ;;6677
 ;;21,"65862-0176-99 ")
 ;;6678
 ;;21,"65862-0177-60 ")
 ;;6679
 ;;21,"65862-0185-01 ")
 ;;6680
 ;;21,"65862-0185-05 ")
 ;;6681
 ;;21,"65862-0186-01 ")
 ;;6682
 ;;21,"65862-0209-01 ")
 ;;6683
 ;;21,"65862-0211-50 ")
 ;;6684
 ;;21,"65862-0218-01 ")
 ;;6685
 ;;21,"65862-0218-60 ")
 ;;6686
 ;;21,"65862-0219-01 ")
 ;;6687
 ;;21,"65862-0219-60 ")
 ;;6688
 ;;21,"65862-0419-01 ")
 ;;6689
 ;;21,"65862-0419-05 ")
 ;;6690
 ;;21,"65862-0420-01 ")
 ;;6691
 ;;21,"65862-0420-05 ")
 ;;6692
 ;;21,"65862-0496-47 ")
 ;;6693
 ;;21,"65862-0501-30 ")
 ;;6694
 ;;21,"65862-0502-20 ")
 ;;6695
 ;;21,"65862-0503-01 ")
 ;;6696
 ;;21,"65862-0503-20 ")
 ;;6697
 ;;21,"65862-0533-01 ")
 ;;6698
 ;;21,"65862-0533-50 ")
 ;;6699
 ;;21,"65862-0533-75 ")
 ;;6700
 ;;21,"65862-0534-01 ")
 ;;6701
 ;;21,"65862-0534-50 ")
 ;;6702
 ;;21,"65862-0534-75 ")
 ;;6703
 ;;21,"65862-0535-02 ")
 ;;6704
 ;;21,"65862-0535-13 ")
 ;;6705
 ;;21,"65862-0535-75 ")
 ;;6706
 ;;21,"65862-0536-50 ")
 ;;6707
 ;;21,"65862-0537-50 ")
 ;;6708
 ;;21,"65862-0538-20 ")
 ;;6709
 ;;21,"66105-0108-10 ")
 ;;6710
 ;;21,"66105-0109-01 ")
 ;;6711
 ;;21,"66105-0109-02 ")
 ;;6712
 ;;21,"66105-0109-03 ")
 ;;6713
 ;;21,"66105-0109-06 ")
 ;;6714
 ;;21,"66105-0109-10 ")
 ;;6715
 ;;21,"66105-0477-05 ")
 ;;6716
 ;;21,"66105-0478-05 ")
 ;;6717
 ;;21,"66105-0507-01 ")
 ;;6718
 ;;21,"66105-0507-03 ")
 ;;6719
 ;;21,"66105-0507-06 ")
 ;;6720
 ;;21,"66105-0507-09 ")
 ;;6721
 ;;21,"66105-0507-10 ")
 ;;6722
 ;;21,"66105-0537-01 ")
 ;;6723
 ;;21,"66105-0537-03 ")
 ;;6724
 ;;21,"66105-0537-06 ")
 ;;6725
 ;;21,"66105-0537-09 ")
 ;;6726
 ;;21,"66105-0537-15 ")
 ;;6727
 ;;21,"66105-0653-01 ")
 ;;6728
 ;;21,"66105-0653-03 ")
 ;;6729
 ;;21,"66105-0653-05 ")
 ;;6730
 ;;21,"66105-0653-06 ")
 ;;6731
 ;;21,"66105-0653-19 ")
 ;;6732
 ;;21,"66105-0670-01 ")
 ;;6733
 ;;21,"66105-0670-03 ")
 ;;6734
 ;;21,"66105-0670-05 ")
 ;;6735
 ;;21,"66105-0670-06 ")
 ;;6736
 ;;21,"66105-0670-18 ")
 ;;6737
 ;;21,"66105-0743-01 ")
 ;;6738
 ;;21,"66105-0743-03 ")
 ;;6739
 ;;21,"66105-0743-06 ")
 ;;6740
 ;;21,"66105-0743-09 ")
 ;;6741
 ;;21,"66105-0743-15 ")
 ;;6742
 ;;21,"66105-0744-01 ")
 ;;6743
 ;;21,"66105-0744-03 ")
 ;;6744
 ;;21,"66105-0744-06 ")
 ;;6745
 ;;21,"66105-0744-09 ")
 ;;6746
 ;;21,"66105-0744-15 ")
 ;;6747
 ;;21,"66105-0745-01 ")
 ;;6748
 ;;21,"66105-0745-03 ")
 ;;6749
 ;;21,"66105-0745-06 ")
 ;;6750
 ;;21,"66105-0745-09 ")
 ;;6751
 ;;21,"66105-0745-15 ")
 ;;6752
 ;;21,"66267-0021-15 ")
 ;;6753
 ;;21,"66267-0021-21 ")
 ;;6754
 ;;21,"66267-0021-30 ")
 ;;6755
 ;;21,"66267-0022-30 ")
 ;;6756
 ;;21,"66267-0023-04 ")
 ;;6757
 ;;21,"66267-0023-08 ")
 ;;6758
 ;;21,"66267-0023-09 ")
 ;;6759
 ;;21,"66267-0023-15 ")
 ;;6760
 ;;21,"66267-0023-20 ")
 ;;6761
 ;;21,"66267-0023-21 ")
 ;;6762
 ;;21,"66267-0023-30 ")
 ;;6763
 ;;21,"66267-0023-40 ")
 ;;6764
 ;;21,"66267-0023-60 ")
 ;;6765
 ;;21,"66267-0024-30 ")
 ;;6766
 ;;21,"66267-0025-30 ")
 ;;6767
 ;;21,"66267-0034-14 ")
 ;;6768
 ;;21,"66267-0034-20 ")
 ;;6769
 ;;21,"66267-0045-10 ")
 ;;6770
 ;;21,"66267-0045-20 ")
 ;;6771
 ;;21,"66267-0045-24 ")
 ;;6772
 ;;21,"66267-0045-30 ")
 ;;6773
 ;;21,"66267-0049-12 ")
 ;;6774
 ;;21,"66267-0049-20 ")
 ;;6775
 ;;21,"66267-0049-28 ")
 ;;6776
 ;;21,"66267-0049-30 ")
 ;;6777
 ;;21,"66267-0049-40 ")
 ;;6778
 ;;21,"66267-0050-05 ")
 ;;6779
 ;;21,"66267-0050-06 ")
 ;;6780
 ;;21,"66267-0050-10 ")
 ;;6781
 ;;21,"66267-0050-14 ")
 ;;6782
 ;;21,"66267-0050-15 ")
 ;;6783
 ;;21,"66267-0050-20 ")
 ;;6784
 ;;21,"66267-0050-28 ")
 ;;6785
 ;;21,"66267-0050-30 ")
 ;;6786
 ;;21,"66267-0050-40 ")
 ;;6787
 ;;21,"66267-0050-60 ")
 ;;6788
 ;;21,"66267-0058-10 ")
 ;;6789
 ;;21,"66267-0058-14 ")
 ;;6790
 ;;21,"66267-0058-20 ")
 ;;6791
 ;;21,"66267-0060-04 ")
 ;;6792
 ;;21,"66267-0060-06 ")
 ;;6793
 ;;21,"66267-0060-08 ")
 ;;6794
 ;;21,"66267-0060-10 ")
 ;;6795
 ;;21,"66267-0060-14 ")
 ;;6796
 ;;21,"66267-0060-21 ")
 ;;6797
 ;;21,"66267-0060-30 ")
 ;;6798
 ;;21,"66267-0060-40 ")
 ;;6799
 ;;21,"66267-0060-60 ")
 ;;6800
 ;;21,"66267-0072-20 ")
 ;;6801
 ;;21,"66267-0072-28 ")
 ;;6802
 ;;21,"66267-0072-40 ")
 ;;6803
 ;;21,"66267-0073-20 ")
 ;;6804
 ;;21,"66267-0073-28 ")
 ;;6805
 ;;21,"66267-0073-40 ")
 ;;6806
 ;;21,"66267-0085-06 ")
 ;;6807
 ;;21,"66267-0085-10 ")
 ;;6808
 ;;21,"66267-0085-14 ")
 ;;6809
 ;;21,"66267-0085-20 ")
 ;;6810
 ;;21,"66267-0085-30 ")
 ;;6811
 ;;21,"66267-0088-15 ")
 ;;6812
 ;;21,"66267-0088-21 ")
 ;;6813
 ;;21,"66267-0088-30 ")
 ;;6814
 ;;21,"66267-0089-20 ")
 ;;6815
 ;;21,"66267-0089-28 ")
 ;;6816
 ;;21,"66267-0090-20 ")
 ;;6817
 ;;21,"66267-0090-28 ")
 ;;6818
 ;;21,"66267-0090-40 ")
 ;;6819
 ;;21,"66267-0091-20 ")
 ;;6820
 ;;21,"66267-0091-28 ")
 ;;6821
 ;;21,"66267-0091-30 ")
 ;;6822
 ;;21,"66267-0091-40 ")
 ;;6823
 ;;21,"66267-0196-30 ")
 ;;6824
 ;;21,"66267-0196-60 ")
 ;;6825
 ;;21,"66267-0200-12 ")
 ;;6826
 ;;21,"66267-0200-28 ")
 ;;6827
 ;;21,"66267-0200-40 ")
 ;;6828
 ;;21,"66267-0201-14 ")
 ;;6829
 ;;21,"66267-0201-20 ")
 ;;6830
 ;;21,"66267-0201-28 ")
 ;;6831
 ;;21,"66267-0201-40 ")
 ;;6832
 ;;21,"66267-0262-30 ")
 ;;6833
 ;;21,"66267-0363-07 ")
 ;;6834
 ;;21,"66267-0363-10 ")
 ;;6835
 ;;21,"66267-0444-15 ")
 ;;6836
 ;;21,"66267-0712-03 ")
 ;;6837
 ;;21,"66267-0712-10 ")
 ;;6838
 ;;21,"66267-0857-03 ")
 ;;6839
 ;;21,"66267-0857-04 ")
 ;;6840
 ;;21,"66267-0859-03 ")
 ;;6841
 ;;21,"66267-0859-04 ")
 ;;6842
 ;;21,"66267-0919-06 ")
 ;;6843
 ;;21,"66267-0919-10 ")
 ;;6844
 ;;21,"66267-0919-14 ")
 ;;6845
 ;;21,"66267-0919-15 ")
 ;;6846
 ;;21,"66267-0919-20 ")
 ;;6847
 ;;21,"66267-0919-28 ")
 ;;6848
 ;;21,"66267-0919-30 ")
 ;;6849
 ;;21,"66267-0919-60 ")
 ;;6850
 ;;21,"66267-0927-00 ")
 ;;6851
 ;;21,"66267-0928-06 ")
 ;;6852
 ;;21,"66267-0939-00 ")
 ;;6853
 ;;21,"66267-0981-20 ")
 ;;6854
 ;;21,"66267-0982-00 ")
 ;;6855
 ;;21,"66267-0991-20 ")
 ;;6856
 ;;21,"66267-0992-20 ")
 ;;6857
 ;;21,"66267-0993-15 ")
 ;;6858
 ;;21,"66267-0994-00 ")
 ;;6859
 ;;21,"66267-1001-01 ")
 ;;6860
 ;;21,"66267-1002-01 ")
 ;;6861
 ;;21,"66336-0018-08 ")
 ;;6862
 ;;21,"66336-0018-14 ")
 ;;6863
 ;;21,"66336-0018-20 ")
 ;;6864
 ;;21,"66336-0018-28 ")
 ;;6865
 ;;21,"66336-0018-42 ")
 ;;6866
 ;;21,"66336-0037-03 ")
 ;;6867
 ;;21,"66336-0037-20 ")
 ;;6868
 ;;21,"66336-0037-28 ")
 ;;6869
 ;;21,"66336-0037-40 ")
 ;;6870
 ;;21,"66336-0055-06 ")
 ;;6871
 ;;21,"66336-0055-08 ")
 ;;6872
 ;;21,"66336-0055-10 ")
 ;;6873
 ;;21,"66336-0055-14 ")
 ;;6874
 ;;21,"66336-0055-20 ")
 ;;6875
 ;;21,"66336-0055-28 ")
 ;;6876
 ;;21,"66336-0055-30 ")
 ;;6877
 ;;21,"66336-0055-40 ")
 ;;6878
 ;;21,"66336-0074-20 ")
 ;;6879
 ;;21,"66336-0077-20 ")
 ;;6880
 ;;21,"66336-0077-28 ")
 ;;6881
 ;;21,"66336-0077-40 ")
 ;;6882
 ;;21,"66336-0087-06 ")
 ;;6883
 ;;21,"66336-0087-10 ")
 ;;6884
 ;;21,"66336-0087-14 ")
 ;;6885
 ;;21,"66336-0087-20 ")
 ;;6886
 ;;21,"66336-0087-40 ")
 ;;6887
 ;;21,"66336-0095-06 ")
 ;;6888
 ;;21,"66336-0095-20 ")
 ;;6889
 ;;21,"66336-0095-28 ")
 ;;6890
 ;;21,"66336-0095-30 ")
 ;;6891
 ;;21,"66336-0095-40 ")
 ;;6892
 ;;21,"66336-0098-21 ")
 ;;6893
 ;;21,"66336-0098-30 ")
 ;;6894
 ;;21,"66336-0104-20 ")
 ;;6895
 ;;21,"66336-0109-14 ")
 ;;6896
 ;;21,"66336-0109-28 ")
 ;;6897
 ;;21,"66336-0109-30 ")
 ;;6898
 ;;21,"66336-0109-50 ")
 ;;6899
 ;;21,"66336-0113-30 ")
 ;;6900
 ;;21,"66336-0202-30 ")
 ;;6901
 ;;21,"66336-0229-20 ")
 ;;6902
 ;;21,"66336-0229-56 ")
 ;;6903
 ;;21,"66336-0229-84 ")
 ;;6904
 ;;21,"66336-0293-30 ")
 ;;6905
 ;;21,"66336-0347-20 ")
 ;;6906
 ;;21,"66336-0369-20 ")
 ;;6907
 ;;21,"66336-0400-05 ")
 ;;6908
 ;;21,"66336-0414-20 ")
 ;;6909
 ;;21,"66336-0414-28 ")
 ;;6910
 ;;21,"66336-0414-40 ")
 ;;6911
 ;;21,"66336-0433-14 ")
 ;;6912
 ;;21,"66336-0435-20 ")
 ;;6913
 ;;21,"66336-0435-28 ")
 ;;6914
 ;;21,"66336-0435-30 ")
 ;;6915
 ;;21,"66336-0435-40 ")
 ;;6916
 ;;21,"66336-0435-60 ")
 ;;6917
 ;;21,"66336-0441-03 ")
 ;;6918
 ;;21,"66336-0441-06 ")
 ;;6919
 ;;21,"66336-0441-08 ")
 ;;6920
 ;;21,"66336-0441-20 ")
 ;;6921
 ;;21,"66336-0441-28 ")
 ;;6922
 ;;21,"66336-0441-40 ")
 ;;6923
 ;;21,"66336-0449-14 ")
 ;;6924
 ;;21,"66336-0454-30 ")
 ;;6925
 ;;21,"66336-0480-20 ")
 ;;6926
 ;;21,"66336-0480-40 ")
 ;;6927
 ;;21,"66336-0580-28 ")
 ;;6928
 ;;21,"66336-0580-30 ")
 ;;6929
 ;;21,"66336-0593-40 ")
 ;;6930
 ;;21,"66336-0609-06 ")
 ;;6931
 ;;21,"66336-0609-12 ")
 ;;6932
 ;;21,"66336-0609-20 ")
 ;;6933
 ;;21,"66336-0609-28 ")
 ;;6934
 ;;21,"66336-0609-40 ")
 ;;6935
 ;;21,"66336-0617-30 ")
 ;;6936
 ;;21,"66336-0617-40 ")
 ;;6937
 ;;21,"66336-0634-08 ")
 ;;6938
 ;;21,"66336-0634-15 ")
 ;;6939
 ;;21,"66336-0634-21 ")
 ;;6940
 ;;21,"66336-0634-30 ")
 ;;6941
 ;;21,"66336-0634-40 ")
 ;;6942
 ;;21,"66336-0634-42 ")
 ;;6943
 ;;21,"66336-0644-40 ")
 ;;6944
 ;;21,"66336-0645-28 ")
 ;;6945
 ;;21,"66336-0648-40 ")
 ;;6946
 ;;21,"66336-0655-21 ")
 ;;6947
 ;;21,"66336-0655-30 ")
 ;;6948
 ;;21,"66336-0830-05 ")
 ;;6949
 ;;21,"66336-0903-10 ")
 ;;6950
 ;;21,"66336-0903-14 ")
 ;;6951
 ;;21,"66336-0903-20 ")
 ;;6952
 ;;21,"66336-0903-28 ")
 ;;6953
 ;;21,"66336-0903-99 ")
 ;;6954
 ;;21,"66336-0906-28 ")
 ;;6955
 ;;21,"66647-6152-11 ")
 ;;6956
 ;;21,"66647-6153-11 ")
 ;;6957
 ;;21,"66685-1001-00 ")
 ;;6958
 ;;21,"66685-1001-01 ")
 ;;6959
 ;;21,"66685-1002-00 ")
 ;;6960
 ;;21,"66685-1002-02 ")
 ;;6961
 ;;21,"66685-1011-00 ")
 ;;6962
 ;;21,"66685-1011-01 ")
 ;;6963
 ;;21,"66685-1011-02 ")
 ;;6964
 ;;21,"66685-1012-00 ")
 ;;6965
 ;;21,"66685-1012-01 ")
 ;;6966
 ;;21,"66685-1012-02 ")
 ;;6967
 ;;21,"66860-0001-03 ")
 ;;6968
 ;;21,"66860-0002-03 ")
 ;;6969
 ;;21,"66860-0003-02 ")
 ;;6970