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