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

BGPM5ATK.m

Go to the documentation of this file.
BGPM5ATK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"00172407310 ")
 ;;6783
 ;;21,"00172407343 ")
 ;;6784
 ;;21,"00172407347 ")
 ;;6785
 ;;21,"00172407360 ")
 ;;6786
 ;;21,"00172407370 ")
 ;;6787
 ;;21,"00172417025 ")
 ;;6788
 ;;21,"00172419460 ")
 ;;6789
 ;;21,"00172462660 ")
 ;;6790
 ;;21,"00172462670 ")
 ;;6791
 ;;21,"00172477060 ")
 ;;6792
 ;;21,"00172477222 ")
 ;;6793
 ;;21,"00172477223 ")
 ;;6794
 ;;21,"00172477320 ")
 ;;6795
 ;;21,"00172477321 ")
 ;;6796
 ;;21,"00172477422 ")
 ;;6797
 ;;21,"00172477423 ")
 ;;6798
 ;;21,"00172477520 ")
 ;;6799
 ;;21,"00172477521 ")
 ;;6800
 ;;21,"00172531100 ")
 ;;6801
 ;;21,"00172531110 ")
 ;;6802
 ;;21,"00172531160 ")
 ;;6803
 ;;21,"00172531200 ")
 ;;6804
 ;;21,"00172531210 ")
 ;;6805
 ;;21,"00172531242 ")
 ;;6806
 ;;21,"00172531260 ")
 ;;6807
 ;;21,"00172531270 ")
 ;;6808
 ;;21,"00172531300 ")
 ;;6809
 ;;21,"00172531310 ")
 ;;6810
 ;;21,"00172531360 ")
 ;;6811
 ;;21,"00172544549 ")
 ;;6812
 ;;21,"00172544570 ")
 ;;6813
 ;;21,"00172544649 ")
 ;;6814
 ;;21,"00172544670 ")
 ;;6815
 ;;21,"00179002188 ")
 ;;6816
 ;;21,"00179002388 ")
 ;;6817
 ;;21,"00179002488 ")
 ;;6818
 ;;21,"00179005414 ")
 ;;6819
 ;;21,"00179005420 ")
 ;;6820
 ;;21,"00179007688 ")
 ;;6821
 ;;21,"00179008188 ")
 ;;6822
 ;;21,"00179037170 ")
 ;;6823
 ;;21,"00179037171 ")
 ;;6824
 ;;21,"00179037172 ")
 ;;6825
 ;;21,"00179037188 ")
 ;;6826
 ;;21,"00179037201 ")
 ;;6827
 ;;21,"00179037210 ")
 ;;6828
 ;;21,"00179037214 ")
 ;;6829
 ;;21,"00179037220 ")
 ;;6830
 ;;21,"00179037228 ")
 ;;6831
 ;;21,"00179037230 ")
 ;;6832
 ;;21,"00179037288 ")
 ;;6833
 ;;21,"00179101430 ")
 ;;6834
 ;;21,"00179101440 ")
 ;;6835
 ;;21,"00179101470 ")
 ;;6836
 ;;21,"00179101471 ")
 ;;6837
 ;;21,"00179101472 ")
 ;;6838
 ;;21,"00179102020 ")
 ;;6839
 ;;21,"00179102030 ")
 ;;6840
 ;;21,"00179102040 ")
 ;;6841
 ;;21,"00179102088 ")
 ;;6842
 ;;21,"00179102128 ")
 ;;6843
 ;;21,"00179102156 ")
 ;;6844
 ;;21,"00179104888 ")
 ;;6845
 ;;21,"00179105620 ")
 ;;6846
 ;;21,"00179105630 ")
 ;;6847
 ;;21,"00179105640 ")
 ;;6848
 ;;21,"00179117014 ")
 ;;6849
 ;;21,"00179117020 ")
 ;;6850
 ;;21,"00179117088 ")
 ;;6851
 ;;21,"00179144012 ")
 ;;6852
 ;;21,"00179144014 ")
 ;;6853
 ;;21,"00179144020 ")
 ;;6854
 ;;21,"00179151014 ")
 ;;6855
 ;;21,"00179151020 ")
 ;;6856
 ;;21,"00179157070 ")
 ;;6857
 ;;21,"00179157071 ")
 ;;6858
 ;;21,"00179157072 ")
 ;;6859
 ;;21,"00179169170 ")
 ;;6860
 ;;21,"00179169171 ")
 ;;6861
 ;;21,"00179169172 ")
 ;;6862
 ;;21,"00179174970 ")
 ;;6863
 ;;21,"00179174971 ")
 ;;6864
 ;;21,"00179174972 ")
 ;;6865
 ;;21,"00179176470 ")
 ;;6866
 ;;21,"00179176471 ")
 ;;6867
 ;;21,"00179176472 ")
 ;;6868
 ;;21,"00179183870 ")
 ;;6869
 ;;21,"00179183871 ")
 ;;6870
 ;;21,"00179183872 ")
 ;;6871
 ;;21,"00179195806 ")
 ;;6872
 ;;21,"00179195810 ")
 ;;6873
 ;;21,"00179195814 ")
 ;;6874
 ;;21,"00179195820 ")
 ;;6875
 ;;21,"00179195828 ")
 ;;6876
 ;;21,"00179195914 ")
 ;;6877
 ;;21,"00179195920 ")
 ;;6878
 ;;21,"00179195970 ")
 ;;6879
 ;;21,"00179198201 ")
 ;;6880
 ;;21,"00179198214 ")
 ;;6881
 ;;21,"00179198220 ")
 ;;6882
 ;;21,"00179198270 ")
 ;;6883
 ;;21,"00182011289 ")
 ;;6884
 ;;21,"00182067989 ")
 ;;6885
 ;;21,"00182103505 ")
 ;;6886
 ;;21,"00182103519 ")
 ;;6887
 ;;21,"00182103589 ")
 ;;6888
 ;;21,"00182153505 ")
 ;;6889
 ;;21,"00182153589 ")
 ;;6890
 ;;21,"00182263101 ")
 ;;6891
 ;;21,"00182272136 ")
 ;;6892
 ;;21,"00182602866 ")
 ;;6893
 ;;21,"00185003601 ")
 ;;6894
 ;;21,"00185003605 ")
 ;;6895
 ;;21,"00185010601 ")
 ;;6896
 ;;21,"00185010605 ")
 ;;6897
 ;;21,"00185011201 ")
 ;;6898
 ;;21,"00185011205 ")
 ;;6899
 ;;21,"00185021605 ")
 ;;6900
 ;;21,"00185021652 ")
 ;;6901
 ;;21,"00185021653 ")
 ;;6902
 ;;21,"00185027501 ")
 ;;6903
 ;;21,"00185027510 ")
 ;;6904
 ;;21,"00185027556 ")
 ;;6905
 ;;21,"00185027560 ")
 ;;6906
 ;;21,"00185044201 ")
 ;;6907
 ;;21,"00185045101 ")
 ;;6908
 ;;21,"00185047053 ")
 ;;6909
 ;;21,"00185080501 ")
 ;;6910
 ;;21,"00185080505 ")
 ;;6911
 ;;21,"00185081001 ")
 ;;6912
 ;;21,"00185081052 ")
 ;;6913
 ;;21,"00185081053 ")
 ;;6914
 ;;21,"00185081401 ")
 ;;6915
 ;;21,"00185081460 ")
 ;;6916
 ;;21,"00185081501 ")
 ;;6917
 ;;21,"00185081550 ")
 ;;6918
 ;;21,"00185081553 ")
 ;;6919
 ;;21,"00185720370 ")
 ;;6920
 ;;21,"00185720670 ")
 ;;6921
 ;;21,"00185720969 ")
 ;;6922
 ;;21,"00185721268 ")
 ;;6923
 ;;21,"00247000133 ")
 ;;6924
 ;;21,"00247000156 ")
 ;;6925
 ;;21,"00247000169 ")
 ;;6926
 ;;21,"00247000212 ")
 ;;6927
 ;;21,"00247000216 ")
 ;;6928
 ;;21,"00247000222 ")
 ;;6929
 ;;21,"00247000225 ")
 ;;6930
 ;;21,"00247000232 ")
 ;;6931
 ;;21,"00247000233 ")
 ;;6932
 ;;21,"00247000250 ")
 ;;6933
 ;;21,"00247000269 ")
 ;;6934
 ;;21,"00247000280 ")
 ;;6935
 ;;21,"00247000303 ")
 ;;6936
 ;;21,"00247000309 ")
 ;;6937
 ;;21,"00247000332 ")
 ;;6938
 ;;21,"00247000503 ")
 ;;6939
 ;;21,"00247000524 ")
 ;;6940
 ;;21,"00247000556 ")
 ;;6941
 ;;21,"00247000617 ")
 ;;6942
 ;;21,"00247000621 ")
 ;;6943
 ;;21,"00247000660 ")
 ;;6944
 ;;21,"00247000900 ")
 ;;6945
 ;;21,"00247000978 ")
 ;;6946
 ;;21,"00247000979 ")
 ;;6947
 ;;21,"00247001400 ")
 ;;6948
 ;;21,"00247001479 ")
 ;;6949
 ;;21,"00247002205 ")
 ;;6950
 ;;21,"00247002210 ")
 ;;6951
 ;;21,"00247002302 ")
 ;;6952
 ;;21,"00247002304 ")
 ;;6953
 ;;21,"00247002306 ")
 ;;6954
 ;;21,"00247002308 ")
 ;;6955
 ;;21,"00247002801 ")
 ;;6956
 ;;21,"00247002803 ")
 ;;6957
 ;;21,"00247002806 ")
 ;;6958
 ;;21,"00247002975 ")
 ;;6959
 ;;21,"00247002978 ")
 ;;6960
 ;;21,"00247002980 ")
 ;;6961
 ;;21,"00247005475 ")
 ;;6962
 ;;21,"00247005478 ")
 ;;6963
 ;;21,"00247005500 ")
 ;;6964
 ;;21,"00247005550 ")
 ;;6965
 ;;21,"00247006300 ")
 ;;6966
 ;;21,"00247006301 ")
 ;;6967
 ;;21,"00247006302 ")
 ;;6968
 ;;21,"00247006303 ")
 ;;6969
 ;;21,"00247006304 ")
 ;;6970
 ;;21,"00247006306 ")
 ;;6971
 ;;21,"00247006307 ")
 ;;6972
 ;;21,"00247006308 ")
 ;;6973
 ;;21,"00247006310 ")
 ;;6974
 ;;21,"00247006312 ")
 ;;6975
 ;;21,"00247006314 ")
 ;;6976
 ;;21,"00247006315 ")
 ;;6977
 ;;21,"00247006316 ")
 ;;6978
 ;;21,"00247006319 ")
 ;;6979
 ;;21,"00247006320 ")
 ;;6980
 ;;21,"00247006328 ")
 ;;6981
 ;;21,"00247006330 ")
 ;;6982
 ;;21,"00247006340 ")
 ;;6983
 ;;21,"00247006342 ")
 ;;6984
 ;;21,"00247006356 ")
 ;;6985
 ;;21,"00247006360 ")
 ;;6986
 ;;21,"00247006398 ")
 ;;6987
 ;;21,"00247006600 ")
 ;;6988
 ;;21,"00247006604 ")
 ;;6989
 ;;21,"00247006605 ")
 ;;6990
 ;;21,"00247006610 ")
 ;;6991
 ;;21,"00247006612 ")
 ;;6992
 ;;21,"00247006620 ")
 ;;6993
 ;;21,"00247006621 ")
 ;;6994
 ;;21,"00247006628 ")
 ;;6995
 ;;21,"00247006630 ")
 ;;6996
 ;;21,"00247006640 ")
 ;;6997
 ;;21,"00247006660 ")
 ;;6998
 ;;21,"00247006699 ")
 ;;6999
 ;;21,"00247006700 ")
 ;;7000
 ;;21,"00247006704 ")
 ;;7001
 ;;21,"00247006708 ")
 ;;7002
 ;;21,"00247006710 ")
 ;;7003
 ;;21,"00247006712 ")
 ;;7004
 ;;21,"00247006715 ")
 ;;7005
 ;;21,"00247006716 ")
 ;;7006
 ;;21,"00247006720 ")
 ;;7007
 ;;21,"00247006721 ")
 ;;7008
 ;;21,"00247006728 ")
 ;;7009
 ;;21,"00247006730 ")
 ;;7010
 ;;21,"00247006740 ")
 ;;7011
 ;;21,"00247006752 ")
 ;;7012
 ;;21,"00247006756 ")
 ;;7013
 ;;21,"00247006760 ")
 ;;7014
 ;;21,"00247006790 ")
 ;;7015
 ;;21,"00247006799 ")
 ;;7016
 ;;21,"00247006801 ")
 ;;7017
 ;;21,"00247006802 ")
 ;;7018
 ;;21,"00247006803 ")
 ;;7019
 ;;21,"00247006804 ")
 ;;7020
 ;;21,"00247006806 ")
 ;;7021
 ;;21,"00247006808 ")
 ;;7022
 ;;21,"00247006810 ")
 ;;7023
 ;;21,"00247006812 ")
 ;;7024
 ;;21,"00247006814 ")
 ;;7025
 ;;21,"00247006815 ")
 ;;7026
 ;;21,"00247006816 ")
 ;;7027
 ;;21,"00247006818 ")
 ;;7028
 ;;21,"00247006820 ")
 ;;7029
 ;;21,"00247006821 ")
 ;;7030
 ;;21,"00247006824 ")
 ;;7031
 ;;21,"00247006825 ")
 ;;7032
 ;;21,"00247006828 ")
 ;;7033
 ;;21,"00247006830 ")
 ;;7034
 ;;21,"00247006832 ")
 ;;7035
 ;;21,"00247006840 ")
 ;;7036
 ;;21,"00247006898 ")
 ;;7037
 ;;21,"00247006902 ")
 ;;7038
 ;;21,"00247009600 ")
 ;;7039
 ;;21,"00247009605 ")
 ;;7040
 ;;21,"00247009620 ")
 ;;7041
 ;;21,"00247009623 ")
 ;;7042
 ;;21,"00247009630 ")
 ;;7043
 ;;21,"00247009633 ")
 ;;7044
 ;;21,"00247009638 ")
 ;;7045
 ;;21,"00247009649 ")
 ;;7046
 ;;21,"00247009650 ")
 ;;7047
 ;;21,"00247009652 ")
 ;;7048
 ;;21,"00247009659 ")
 ;;7049
 ;;21,"00247009660 ")
 ;;7050
 ;;21,"00247009677 ")
 ;;7051
 ;;21,"00247009678 ")
 ;;7052
 ;;21,"00247009679 ")
 ;;7053
 ;;21,"00247009690 ")
 ;;7054
 ;;21,"00247009695 ")
 ;;7055
 ;;21,"00247010404 ")
 ;;7056
 ;;21,"00247010600 ")
 ;;7057
 ;;21,"00247010679 ")
 ;;7058
 ;;21,"00247011602 ")
 ;;7059
 ;;21,"00247011603 ")
 ;;7060
 ;;21,"00247011604 ")
 ;;7061
 ;;21,"00247011605 ")
 ;;7062
 ;;21,"00247011606 ")
 ;;7063
 ;;21,"00247011609 ")
 ;;7064
 ;;21,"00247011615 ")
 ;;7065
 ;;21,"00247011620 ")
 ;;7066
 ;;21,"00247011621 ")
 ;;7067
 ;;21,"00247011628 ")
 ;;7068
 ;;21,"00247011630 ")
 ;;7069
 ;;21,"00247011640 ")
 ;;7070
 ;;21,"00247011642 ")
 ;;7071
 ;;21,"00247012903 ")
 ;;7072
 ;;21,"00247012904 ")
 ;;7073
 ;;21,"00247012908 ")
 ;;7074
 ;;21,"00247012912 ")
 ;;7075
 ;;21,"00247015603 ")
 ;;7076
 ;;21,"00247015604 ")
 ;;7077
 ;;21,"00247015612 ")
 ;;7078
 ;;21,"00247015615 ")
 ;;7079
 ;;21,"00247015630 ")
 ;;7080
 ;;21,"00247015703 ")
 ;;7081
 ;;21,"00247015704 ")
 ;;7082
 ;;21,"00247015708 ")
 ;;7083
 ;;21,"00247015718 ")
 ;;7084
 ;;21,"00247016707 ")
 ;;7085
 ;;21,"00247016779 ")
 ;;7086
 ;;21,"00247017206 ")
 ;;7087
 ;;21,"00247017220 ")
 ;;7088
 ;;21,"00247019603 ")
 ;;7089
 ;;21,"00247019604 ")
 ;;7090
 ;;21,"00247019707 ")
 ;;7091
 ;;21,"00247039300 ")
 ;;7092
 ;;21,"00247039379 ")
 ;;7093
 ;;21,"00247039500 ")
 ;;7094
 ;;21,"00247039560 ")
 ;;7095
 ;;21,"00247039577 ")
 ;;7096
 ;;21,"00247039579 ")
 ;;7097
 ;;21,"00247039590 ")
 ;;7098
 ;;21,"00247039600 ")
 ;;7099
 ;;21,"00247039605 ")
 ;;7100
 ;;21,"00247039610 ")
 ;;7101
 ;;21,"00247039625 ")
 ;;7102
 ;;21,"00247039660 ")
 ;;7103
 ;;21,"00247039677 ")
 ;;7104
 ;;21,"00247039679 ")
 ;;7105
 ;;21,"00247039690 ")
 ;;7106
 ;;21,"00247039695 ")
 ;;7107
 ;;21,"00247045802 ")
 ;;7108
 ;;21,"00247045804 ")
 ;;7109
 ;;21,"00247045814 ")
 ;;7110
 ;;21,"00247056320 ")
 ;;7111
 ;;21,"00247062630 ")
 ;;7112
 ;;21,"00247062660 ")
 ;;7113
 ;;21,"00247062720 ")
 ;;7114
 ;;21,"00247062730 ")
 ;;7115
 ;;21,"00247062750 ")
 ;;7116
 ;;21,"00247062760 ")
 ;;7117
 ;;21,"00247062800 ")
 ;;7118
 ;;21,"00247062850 ")
 ;;7119
 ;;21,"00247062875 ")
 ;;7120
 ;;21,"00247062900 ")
 ;;7121
 ;;21,"00247062950 ")
 ;;7122
 ;;21,"00247063900 ")
 ;;7123
 ;;21,"00247063902 ")
 ;;7124
 ;;21,"00247063903 ")
 ;;7125
 ;;21,"00247063904 ")
 ;;7126
 ;;21,"00247063906 ")
 ;;7127
 ;;21,"00247063908 ")
 ;;7128
 ;;21,"00247063912 ")
 ;;7129
 ;;21,"00247063916 ")
 ;;7130
 ;;21,"00247063921 ")
 ;;7131
 ;;21,"00247063924 ")
 ;;7132
 ;;21,"00247063928 ")
 ;;7133
 ;;21,"00247063942 ")
 ;;7134