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