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

BGPM5ATN.m

Go to the documentation of this file.
BGPM5ATN ;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,"00781202005 ")
 ;;7839
 ;;21,"00781202031 ")
 ;;7840
 ;;21,"00781202076 ")
 ;;7841
 ;;21,"00781211201 ")
 ;;7842
 ;;21,"00781211301 ")
 ;;7843
 ;;21,"00781211317 ")
 ;;7844
 ;;21,"00781214401 ")
 ;;7845
 ;;21,"00781214405 ")
 ;;7846
 ;;21,"00781214501 ")
 ;;7847
 ;;21,"00781214505 ")
 ;;7848
 ;;21,"00781217601 ")
 ;;7849
 ;;21,"00781217660 ")
 ;;7850
 ;;21,"00781217664 ")
 ;;7851
 ;;21,"00781217669 ")
 ;;7852
 ;;21,"00781224801 ")
 ;;7853
 ;;21,"00781225801 ")
 ;;7854
 ;;21,"00781226801 ")
 ;;7855
 ;;21,"00781226807 ")
 ;;7856
 ;;21,"00781226822 ")
 ;;7857
 ;;21,"00781226860 ")
 ;;7858
 ;;21,"00781226868 ")
 ;;7859
 ;;21,"00781226881 ")
 ;;7860
 ;;21,"00781226907 ")
 ;;7861
 ;;21,"00781226922 ")
 ;;7862
 ;;21,"00781226950 ")
 ;;7863
 ;;21,"00781226969 ")
 ;;7864
 ;;21,"00781226981 ")
 ;;7865
 ;;21,"00781261301 ")
 ;;7866
 ;;21,"00781261305 ")
 ;;7867
 ;;21,"00781261331 ")
 ;;7868
 ;;21,"00781261376 ")
 ;;7869
 ;;21,"00781293801 ")
 ;;7870
 ;;21,"00781293850 ")
 ;;7871
 ;;21,"00781303270 ")
 ;;7872
 ;;21,"00781303295 ")
 ;;7873
 ;;21,"00781303370 ")
 ;;7874
 ;;21,"00781303395 ")
 ;;7875
 ;;21,"00781303446 ")
 ;;7876
 ;;21,"00781315796 ")
 ;;7877
 ;;21,"00781320685 ")
 ;;7878
 ;;21,"00781320695 ")
 ;;7879
 ;;21,"00781320785 ")
 ;;7880
 ;;21,"00781320795 ")
 ;;7881
 ;;21,"00781320885 ")
 ;;7882
 ;;21,"00781320895 ")
 ;;7883
 ;;21,"00781320990 ")
 ;;7884
 ;;21,"00781320995 ")
 ;;7885
 ;;21,"00781321046 ")
 ;;7886
 ;;21,"00781323909 ")
 ;;7887
 ;;21,"00781323946 ")
 ;;7888
 ;;21,"00781324009 ")
 ;;7889
 ;;21,"00781324048 ")
 ;;7890
 ;;21,"00781333870 ")
 ;;7891
 ;;21,"00781333885 ")
 ;;7892
 ;;21,"00781333895 ")
 ;;7893
 ;;21,"00781334646 ")
 ;;7894
 ;;21,"00781334695 ")
 ;;7895
 ;;21,"00781340078 ")
 ;;7896
 ;;21,"00781340095 ")
 ;;7897
 ;;21,"00781340278 ")
 ;;7898
 ;;21,"00781340295 ")
 ;;7899
 ;;21,"00781340485 ")
 ;;7900
 ;;21,"00781340495 ")
 ;;7901
 ;;21,"00781340778 ")
 ;;7902
 ;;21,"00781340795 ")
 ;;7903
 ;;21,"00781340880 ")
 ;;7904
 ;;21,"00781340895 ")
 ;;7905
 ;;21,"00781340946 ")
 ;;7906
 ;;21,"00781340995 ")
 ;;7907
 ;;21,"00781345070 ")
 ;;7908
 ;;21,"00781345095 ")
 ;;7909
 ;;21,"00781345170 ")
 ;;7910
 ;;21,"00781345196 ")
 ;;7911
 ;;21,"00781345246 ")
 ;;7912
 ;;21,"00781345295 ")
 ;;7913
 ;;21,"00781392280 ")
 ;;7914
 ;;21,"00781392296 ")
 ;;7915
 ;;21,"00781392646 ")
 ;;7916
 ;;21,"00781392695 ")
 ;;7917
 ;;21,"00781504301 ")
 ;;7918
 ;;21,"00781504401 ")
 ;;7919
 ;;21,"00781504450 ")
 ;;7920
 ;;21,"00781506001 ")
 ;;7921
 ;;21,"00781506005 ")
 ;;7922
 ;;21,"00781506020 ")
 ;;7923
 ;;21,"00781506101 ")
 ;;7924
 ;;21,"00781506105 ")
 ;;7925
 ;;21,"00781506120 ")
 ;;7926
 ;;21,"00781511501 ")
 ;;7927
 ;;21,"00781538501 ")
 ;;7928
 ;;21,"00781538510 ")
 ;;7929
 ;;21,"00781538531 ")
 ;;7930
 ;;21,"00781538601 ")
 ;;7931
 ;;21,"00781538610 ")
 ;;7932
 ;;21,"00781538631 ")
 ;;7933
 ;;21,"00781538701 ")
 ;;7934
 ;;21,"00781538710 ")
 ;;7935
 ;;21,"00781538731 ")
 ;;7936
 ;;21,"00781543820 ")
 ;;7937
 ;;21,"00781543901 ")
 ;;7938
 ;;21,"00781543920 ")
 ;;7939
 ;;21,"00781579201 ")
 ;;7940
 ;;21,"00781579210 ")
 ;;7941
 ;;21,"00781579220 ")
 ;;7942
 ;;21,"00781579250 ")
 ;;7943
 ;;21,"00781602246 ")
 ;;7944
 ;;21,"00781602252 ")
 ;;7945
 ;;21,"00781602346 ")
 ;;7946
 ;;21,"00781602352 ")
 ;;7947
 ;;21,"00781603446 ")
 ;;7948
 ;;21,"00781603455 ")
 ;;7949
 ;;21,"00781603458 ")
 ;;7950
 ;;21,"00781603846 ")
 ;;7951
 ;;21,"00781603855 ")
 ;;7952
 ;;21,"00781603858 ")
 ;;7953
 ;;21,"00781603946 ")
 ;;7954
 ;;21,"00781603955 ")
 ;;7955
 ;;21,"00781603958 ")
 ;;7956
 ;;21,"00781604105 ")
 ;;7957
 ;;21,"00781604106 ")
 ;;7958
 ;;21,"00781604108 ")
 ;;7959
 ;;21,"00781604146 ")
 ;;7960
 ;;21,"00781604155 ")
 ;;7961
 ;;21,"00781604158 ")
 ;;7962
 ;;21,"00781606316 ")
 ;;7963
 ;;21,"00781607746 ")
 ;;7964
 ;;21,"00781607761 ")
 ;;7965
 ;;21,"00781607846 ")
 ;;7966
 ;;21,"00781607861 ")
 ;;7967
 ;;21,"00781610246 ")
 ;;7968
 ;;21,"00781610446 ")
 ;;7969
 ;;21,"00781612046 ")
 ;;7970
 ;;21,"00781612048 ")
 ;;7971
 ;;21,"00781612146 ")
 ;;7972
 ;;21,"00781612148 ")
 ;;7973
 ;;21,"00781613494 ")
 ;;7974
 ;;21,"00781613495 ")
 ;;7975
 ;;21,"00781613594 ")
 ;;7976
 ;;21,"00781613595 ")
 ;;7977
 ;;21,"00781613694 ")
 ;;7978
 ;;21,"00781613948 ")
 ;;7979
 ;;21,"00781613954 ")
 ;;7980
 ;;21,"00781613957 ")
 ;;7981
 ;;21,"00781615394 ")
 ;;7982
 ;;21,"00781615395 ")
 ;;7983
 ;;21,"00781615397 ")
 ;;7984
 ;;21,"00781615646 ")
 ;;7985
 ;;21,"00781615652 ")
 ;;7986
 ;;21,"00781615657 ")
 ;;7987
 ;;21,"00781615746 ")
 ;;7988
 ;;21,"00781615752 ")
 ;;7989
 ;;21,"00781615757 ")
 ;;7990
 ;;21,"00781616846 ")
 ;;7991
 ;;21,"00781616852 ")
 ;;7992
 ;;21,"00781616946 ")
 ;;7993
 ;;21,"00781616952 ")
 ;;7994
 ;;21,"00781620246 ")
 ;;7995
 ;;21,"00781620257 ")
 ;;7996
 ;;21,"00781620291 ")
 ;;7997
 ;;21,"00781620346 ")
 ;;7998
 ;;21,"00781620357 ")
 ;;7999
 ;;21,"00781620391 ")
 ;;8000
 ;;21,"00781920696 ")
 ;;8001
 ;;21,"00781920795 ")
 ;;8002
 ;;21,"00781932685 ")
 ;;8003
 ;;21,"00781932695 ")
 ;;8004
 ;;21,"00781932785 ")
 ;;8005
 ;;21,"00781932795 ")
 ;;8006
 ;;21,"00781932885 ")
 ;;8007
 ;;21,"00781932895 ")
 ;;8008
 ;;21,"00781932990 ")
 ;;8009
 ;;21,"00781932995 ")
 ;;8010
 ;;21,"00781933046 ")
 ;;8011
 ;;21,"00781933746 ")
 ;;8012
 ;;21,"00781933795 ")
 ;;8013
 ;;21,"00781933885 ")
 ;;8014
 ;;21,"00781933895 ")
 ;;8015
 ;;21,"00781933985 ")
 ;;8016
 ;;21,"00781933996 ")
 ;;8017
 ;;21,"00781936301 ")
 ;;8018
 ;;21,"00781936305 ")
 ;;8019
 ;;21,"00781940178 ")
 ;;8020
 ;;21,"00781940195 ")
 ;;8021
 ;;21,"00781940278 ")
 ;;8022
 ;;21,"00781940295 ")
 ;;8023
 ;;21,"00781940485 ")
 ;;8024
 ;;21,"00781940495 ")
 ;;8025
 ;;21,"00781940778 ")
 ;;8026
 ;;21,"00781940795 ")
 ;;8027
 ;;21,"00781940880 ")
 ;;8028
 ;;21,"00781940895 ")
 ;;8029
 ;;21,"00781940946 ")
 ;;8030
 ;;21,"00781940995 ")
 ;;8031
 ;;21,"00781941215 ")
 ;;8032
 ;;21,"00781941292 ")
 ;;8033
 ;;21,"00781941315 ")
 ;;8034
 ;;21,"00781941392 ")
 ;;8035
 ;;21,"00781945170 ")
 ;;8036
 ;;21,"00781945195 ")
 ;;8037
 ;;21,"00781945196 ")
 ;;8038
 ;;21,"00781945246 ")
 ;;8039
 ;;21,"00781945295 ")
 ;;8040
 ;;21,"00904042751 ")
 ;;8041
 ;;21,"00904042840 ")
 ;;8042
 ;;21,"00904042851 ")
 ;;8043
 ;;21,"00904042861 ")
 ;;8044
 ;;21,"00904042895 ")
 ;;8045
 ;;21,"00904043040 ")
 ;;8046
 ;;21,"00904043051 ")
 ;;8047
 ;;21,"00904043061 ")
 ;;8048
 ;;21,"00904164660 ")
 ;;8049
 ;;21,"00904201740 ")
 ;;8050
 ;;21,"00904201760 ")
 ;;8051
 ;;21,"00904207340 ")
 ;;8052
 ;;21,"00904207360 ")
 ;;8053
 ;;21,"00904221860 ")
 ;;8054
 ;;21,"00904240760 ")
 ;;8055
 ;;21,"00904240780 ")
 ;;8056
 ;;21,"00904241660 ")
 ;;8057
 ;;21,"00904241680 ")
 ;;8058
 ;;21,"00904245060 ")
 ;;8059
 ;;21,"00904245080 ")
 ;;8060
 ;;21,"00904245160 ")
 ;;8061
 ;;21,"00904245180 ")
 ;;8062
 ;;21,"00904245280 ")
 ;;8063
 ;;21,"00904246216 ")
 ;;8064
 ;;21,"00904246316 ")
 ;;8065
 ;;21,"00904246860 ")
 ;;8066
 ;;21,"00904247116 ")
 ;;8067
 ;;21,"00904261740 ")
 ;;8068
 ;;21,"00904261760 ")
 ;;8069
 ;;21,"00904261761 ")
 ;;8070
 ;;21,"00904261840 ")
 ;;8071
 ;;21,"00904261851 ")
 ;;8072
 ;;21,"00904261904 ")
 ;;8073
 ;;21,"00904261907 ")
 ;;8074
 ;;21,"00904262004 ")
 ;;8075
 ;;21,"00904262007 ")
 ;;8076
 ;;21,"00904264760 ")
 ;;8077
 ;;21,"00904265304 ")
 ;;8078
 ;;21,"00904272540 ")
 ;;8079
 ;;21,"00904272560 ")
 ;;8080
 ;;21,"00904272561 ")
 ;;8081
 ;;21,"00904272640 ")
 ;;8082
 ;;21,"00904272660 ")
 ;;8083
 ;;21,"00904283760 ")
 ;;8084
 ;;21,"00904283860 ")
 ;;8085
 ;;21,"00904380040 ")
 ;;8086
 ;;21,"00904380060 ")
 ;;8087
 ;;21,"00904380061 ")
 ;;8088
 ;;21,"00904380140 ")
 ;;8089
 ;;21,"00904380160 ")
 ;;8090
 ;;21,"00904380161 ")
 ;;8091
 ;;21,"00904380204 ")
 ;;8092
 ;;21,"00904380208 ")
 ;;8093
 ;;21,"00904380304 ")
 ;;8094
 ;;21,"00904380308 ")
 ;;8095
 ;;21,"00904383860 ")
 ;;8096
 ;;21,"00904400104 ")
 ;;8097
 ;;21,"00904400108 ")
 ;;8098
 ;;21,"00904400404 ")
 ;;8099
 ;;21,"00904400408 ")
 ;;8100
 ;;21,"00904520460 ")
 ;;8101
 ;;21,"00904520560 ")
 ;;8102
 ;;21,"00904580761 ")
 ;;8103
 ;;21,"00904581361 ")
 ;;8104
 ;;21,"00904584261 ")
 ;;8105
 ;;21,"00904584361 ")
 ;;8106
 ;;21,"00904595961 ")
 ;;8107
 ;;21,"00904596061 ")
 ;;8108
 ;;21,"00904601004 ")
 ;;8109
 ;;21,"00904625161 ")
 ;;8110
 ;;21,"00904768260 ")
 ;;8111
 ;;21,"00904768351 ")
 ;;8112
 ;;21,"00904771340 ")
 ;;8113
 ;;21,"00904771360 ")
 ;;8114
 ;;21,"00904773303 ")
 ;;8115
 ;;21,"00904773330 ")
 ;;8116
 ;;21,"00904787840 ")
 ;;8117
 ;;21,"00904787851 ")
 ;;8118
 ;;21,"00904787860 ")
 ;;8119
 ;;21,"016014797 ")
 ;;2733
 ;;21,"40 ")
 ;;5464
 ;;21,"52959036720 ")
 ;;2
 ;;21,"52959036721 ")
 ;;3
 ;;21,"52959036730 ")
 ;;4
 ;;21,"52959036740 ")
 ;;5
 ;;21,"52959036810 ")
 ;;6
 ;;21,"52959036814 ")
 ;;7
 ;;21,"52959036820 ")
 ;;8
 ;;21,"52959036821 ")
 ;;9
 ;;21,"52959036828 ")
 ;;10
 ;;21,"52959036830 ")
 ;;11
 ;;21,"52959036840 ")
 ;;12
 ;;21,"52959038920 ")
 ;;13
 ;;21,"52959038928 ")
 ;;14
 ;;21,"52959038930 ")
 ;;15
 ;;21,"52959038940 ")
 ;;16
 ;;21,"52959042804 ")
 ;;17
 ;;21,"52959042810 ")
 ;;18
 ;;21,"52959042814 ")
 ;;19
 ;;21,"52959042815 ")
 ;;20
 ;;21,"52959042816 ")
 ;;21
 ;;21,"52959042818 ")
 ;;22
 ;;21,"52959042820 ")
 ;;23
 ;;21,"52959042828 ")
 ;;24
 ;;21,"52959042830 ")
 ;;25
 ;;21,"52959047414 ")
 ;;26
 ;;21,"52959047420 ")
 ;;27
 ;;21,"52959047430 ")
 ;;28
 ;;21,"52959056000 ")
 ;;29
 ;;21,"52959060910 ")
 ;;30
 ;;21,"52959061302 ")
 ;;31
 ;;21,"52959061303 ")
 ;;32
 ;;21,"52959061903 ")
 ;;33
 ;;21,"52959062000 ")
 ;;34
 ;;21,"52959062001 ")
 ;;35
 ;;21,"52959066120 ")
 ;;36
 ;;21,"52959066130 ")
 ;;37
 ;;21,"52959070204 ")
 ;;38
 ;;21,"52959070209 ")
 ;;39
 ;;21,"52959070212 ")
 ;;40
 ;;21,"52959070214 ")
 ;;41
 ;;21,"52959070215 ")
 ;;42
 ;;21,"52959070220 ")
 ;;43
 ;;21,"52959070221 ")
 ;;44
 ;;21,"52959070230 ")
 ;;45
 ;;21,"52959070240 ")
 ;;46
 ;;21,"52959070710 ")
 ;;47
 ;;21,"52959070714 ")
 ;;48
 ;;21,"52959070715 ")
 ;;49
 ;;21,"52959070720 ")
 ;;50
 ;;21,"52959070730 ")
 ;;51
 ;;21,"52959070760 ")
 ;;52
 ;;21,"52959073000 ")
 ;;53
 ;;21,"52959073004 ")
 ;;54
 ;;21,"52959073006 ")
 ;;55
 ;;21,"52959073010 ")
 ;;56
 ;;21,"52959073014 ")
 ;;57
 ;;21,"52959073015 ")
 ;;58
 ;;21,"52959073020 ")
 ;;59
 ;;21,"52959073021 ")
 ;;60
 ;;21,"52959073028 ")
 ;;61
 ;;21,"52959073030 ")
 ;;62
 ;;21,"52959073060 ")
 ;;63
 ;;21,"52959073414 ")
 ;;64
 ;;21,"52959073420 ")
 ;;65
 ;;21,"52959073430 ")
 ;;66
 ;;21,"52959073460 ")
 ;;67
 ;;21,"52959073906 ")
 ;;68
 ;;21,"52959073910 ")
 ;;69
 ;;21,"52959073914 ")
 ;;70
 ;;21,"52959073920 ")
 ;;71
 ;;21,"52959074420 ")
 ;;72
 ;;21,"52959074430 ")
 ;;73
 ;;21,"52959074440 ")
 ;;74