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

BGPM5AUN.m

Go to the documentation of this file.
  1. BGPM5AUN ;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. ;;9002226.02101,"1033,00247223350 ",.01)
  1. ;;00247223350
  1. ;;9002226.02101,"1033,00247223350 ",.02)
  1. ;;00247223350
  1. ;;9002226.02101,"1033,00247223375 ",.01)
  1. ;;00247223375
  1. ;;9002226.02101,"1033,00247223375 ",.02)
  1. ;;00247223375
  1. ;;9002226.02101,"1033,00247225815 ",.01)
  1. ;;00247225815
  1. ;;9002226.02101,"1033,00247225815 ",.02)
  1. ;;00247225815
  1. ;;9002226.02101,"1033,00247227900 ",.01)
  1. ;;00247227900
  1. ;;9002226.02101,"1033,00247227900 ",.02)
  1. ;;00247227900
  1. ;;9002226.02101,"1033,00247227901 ",.01)
  1. ;;00247227901
  1. ;;9002226.02101,"1033,00247227901 ",.02)
  1. ;;00247227901
  1. ;;9002226.02101,"1033,00247227930 ",.01)
  1. ;;00247227930
  1. ;;9002226.02101,"1033,00247227930 ",.02)
  1. ;;00247227930
  1. ;;9002226.02101,"1033,00247227958 ",.01)
  1. ;;00247227958
  1. ;;9002226.02101,"1033,00247227958 ",.02)
  1. ;;00247227958
  1. ;;9002226.02101,"1033,00247235801 ",.01)
  1. ;;00247235801
  1. ;;9002226.02101,"1033,00247235801 ",.02)
  1. ;;00247235801
  1. ;;9002226.02101,"1033,00247235802 ",.01)
  1. ;;00247235802
  1. ;;9002226.02101,"1033,00247235802 ",.02)
  1. ;;00247235802
  1. ;;9002226.02101,"1033,00247235806 ",.01)
  1. ;;00247235806
  1. ;;9002226.02101,"1033,00247235806 ",.02)
  1. ;;00247235806
  1. ;;9002226.02101,"1033,00254168658 ",.01)
  1. ;;00254168658
  1. ;;9002226.02101,"1033,00254168658 ",.02)
  1. ;;00254168658
  1. ;;9002226.02101,"1033,00254168758 ",.01)
  1. ;;00254168758
  1. ;;9002226.02101,"1033,00254168758 ",.02)
  1. ;;00254168758
  1. ;;9002226.02101,"1033,00254589721 ",.01)
  1. ;;00254589721
  1. ;;9002226.02101,"1033,00254589721 ",.02)
  1. ;;00254589721
  1. ;;9002226.02101,"1033,00254589728 ",.01)
  1. ;;00254589728
  1. ;;9002226.02101,"1033,00254589728 ",.02)
  1. ;;00254589728
  1. ;;9002226.02101,"1033,00254589735 ",.01)
  1. ;;00254589735
  1. ;;9002226.02101,"1033,00254589735 ",.02)
  1. ;;00254589735
  1. ;;9002226.02101,"1033,00254589821 ",.01)
  1. ;;00254589821
  1. ;;9002226.02101,"1033,00254589821 ",.02)
  1. ;;00254589821
  1. ;;9002226.02101,"1033,00254589828 ",.01)
  1. ;;00254589828
  1. ;;9002226.02101,"1033,00254589828 ",.02)
  1. ;;00254589828
  1. ;;9002226.02101,"1033,00254589835 ",.01)
  1. ;;00254589835
  1. ;;9002226.02101,"1033,00254589835 ",.02)
  1. ;;00254589835
  1. ;;9002226.02101,"1033,00264310211 ",.01)
  1. ;;00264310211
  1. ;;9002226.02101,"1033,00264310211 ",.02)
  1. ;;00264310211
  1. ;;9002226.02101,"1033,00264310311 ",.01)
  1. ;;00264310311
  1. ;;9002226.02101,"1033,00264310311 ",.02)
  1. ;;00264310311
  1. ;;9002226.02101,"1033,00264311211 ",.01)
  1. ;;00264311211
  1. ;;9002226.02101,"1033,00264311211 ",.02)
  1. ;;00264311211
  1. ;;9002226.02101,"1033,00264311411 ",.01)
  1. ;;00264311411
  1. ;;9002226.02101,"1033,00264311411 ",.02)
  1. ;;00264311411
  1. ;;9002226.02101,"1033,00264315311 ",.01)
  1. ;;00264315311
  1. ;;9002226.02101,"1033,00264315311 ",.02)
  1. ;;00264315311
  1. ;;9002226.02101,"1033,00264315511 ",.01)
  1. ;;00264315511
  1. ;;9002226.02101,"1033,00264315511 ",.02)
  1. ;;00264315511
  1. ;;9002226.02101,"1033,00338096037 ",.01)
  1. ;;00338096037
  1. ;;9002226.02101,"1033,00338096037 ",.02)
  1. ;;00338096037
  1. ;;9002226.02101,"1033,00338096048 ",.01)
  1. ;;00338096048
  1. ;;9002226.02101,"1033,00338096048 ",.02)
  1. ;;00338096048
  1. ;;9002226.02101,"1033,00338102141 ",.01)
  1. ;;00338102141
  1. ;;9002226.02101,"1033,00338102141 ",.02)
  1. ;;00338102141
  1. ;;9002226.02101,"1033,00338102341 ",.01)
  1. ;;00338102341
  1. ;;9002226.02101,"1033,00338102341 ",.02)
  1. ;;00338102341
  1. ;;9002226.02101,"1033,00338102541 ",.01)
  1. ;;00338102541
  1. ;;9002226.02101,"1033,00338102541 ",.02)
  1. ;;00338102541
  1. ;;9002226.02101,"1033,00338350241 ",.01)
  1. ;;00338350241
  1. ;;9002226.02101,"1033,00338350241 ",.02)
  1. ;;00338350241
  1. ;;9002226.02101,"1033,00338350341 ",.01)
  1. ;;00338350341
  1. ;;9002226.02101,"1033,00338350341 ",.02)
  1. ;;00338350341
  1. ;;9002226.02101,"1033,00338500241 ",.01)
  1. ;;00338500241
  1. ;;9002226.02101,"1033,00338500241 ",.02)
  1. ;;00338500241
  1. ;;9002226.02101,"1033,00338500341 ",.01)
  1. ;;00338500341
  1. ;;9002226.02101,"1033,00338500341 ",.02)
  1. ;;00338500341
  1. ;;9002226.02101,"1033,00364203350 ",.01)
  1. ;;00364203350
  1. ;;9002226.02101,"1033,00364203350 ",.02)
  1. ;;00364203350
  1. ;;9002226.02101,"1033,00364246434 ",.01)
  1. ;;00364246434
  1. ;;9002226.02101,"1033,00364246434 ",.02)
  1. ;;00364246434
  1. ;;9002226.02101,"1033,00364246693 ",.01)
  1. ;;00364246693
  1. ;;9002226.02101,"1033,00364246693 ",.02)
  1. ;;00364246693
  1. ;;9002226.02101,"1033,00364290638 ",.01)
  1. ;;00364290638
  1. ;;9002226.02101,"1033,00364290638 ",.02)
  1. ;;00364290638
  1. ;;9002226.02101,"1033,00364290861 ",.01)
  1. ;;00364290861
  1. ;;9002226.02101,"1033,00364290861 ",.02)
  1. ;;00364290861
  1. ;;9002226.02101,"1033,00378010110 ",.01)
  1. ;;00378010110
  1. ;;9002226.02101,"1033,00378010110 ",.02)
  1. ;;00378010110
  1. ;;9002226.02101,"1033,00378010201 ",.01)
  1. ;;00378010201
  1. ;;9002226.02101,"1033,00378010201 ",.02)
  1. ;;00378010201
  1. ;;9002226.02101,"1033,00378010205 ",.01)
  1. ;;00378010205
  1. ;;9002226.02101,"1033,00378010205 ",.02)
  1. ;;00378010205
  1. ;;9002226.02101,"1033,00378122101 ",.01)
  1. ;;00378122101
  1. ;;9002226.02101,"1033,00378122101 ",.02)
  1. ;;00378122101
  1. ;;9002226.02101,"1033,00378122105 ",.01)
  1. ;;00378122105
  1. ;;9002226.02101,"1033,00378122105 ",.02)
  1. ;;00378122105
  1. ;;9002226.02101,"1033,00378122189 ",.01)
  1. ;;00378122189
  1. ;;9002226.02101,"1033,00378122189 ",.02)
  1. ;;00378122189
  1. ;;9002226.02101,"1033,00378122194 ",.01)
  1. ;;00378122194
  1. ;;9002226.02101,"1033,00378122194 ",.02)
  1. ;;00378122194
  1. ;;9002226.02101,"1033,00378132201 ",.01)
  1. ;;00378132201
  1. ;;9002226.02101,"1033,00378132201 ",.02)
  1. ;;00378132201
  1. ;;9002226.02101,"1033,00378132205 ",.01)
  1. ;;00378132205
  1. ;;9002226.02101,"1033,00378132205 ",.02)
  1. ;;00378132205
  1. ;;9002226.02101,"1033,00378132301 ",.01)
  1. ;;00378132301
  1. ;;9002226.02101,"1033,00378132301 ",.02)
  1. ;;00378132301
  1. ;;9002226.02101,"1033,00378132305 ",.01)
  1. ;;00378132305
  1. ;;9002226.02101,"1033,00378132305 ",.02)
  1. ;;00378132305
  1. ;;9002226.02101,"1033,00378132425 ",.01)
  1. ;;00378132425
  1. ;;9002226.02101,"1033,00378132425 ",.02)
  1. ;;00378132425
  1. ;;9002226.02101,"1033,00378132489 ",.01)
  1. ;;00378132489
  1. ;;9002226.02101,"1033,00378132489 ",.02)
  1. ;;00378132489
  1. ;;9002226.02101,"1033,00378153305 ",.01)
  1. ;;00378153305
  1. ;;9002226.02101,"1033,00378153305 ",.02)
  1. ;;00378153305
  1. ;;9002226.02101,"1033,00378153356 ",.01)
  1. ;;00378153356
  1. ;;9002226.02101,"1033,00378153356 ",.02)
  1. ;;00378153356
  1. ;;9002226.02101,"1033,00378153393 ",.01)
  1. ;;00378153393
  1. ;;9002226.02101,"1033,00378153393 ",.02)
  1. ;;00378153393
  1. ;;9002226.02101,"1033,00378174301 ",.01)
  1. ;;00378174301
  1. ;;9002226.02101,"1033,00378174301 ",.02)
  1. ;;00378174301
  1. ;;9002226.02101,"1033,00378174305 ",.01)
  1. ;;00378174305
  1. ;;9002226.02101,"1033,00378174305 ",.02)
  1. ;;00378174305
  1. ;;9002226.02101,"1033,00378174389 ",.01)
  1. ;;00378174389
  1. ;;9002226.02101,"1033,00378174389 ",.02)
  1. ;;00378174389
  1. ;;9002226.02101,"1033,00378174501 ",.01)
  1. ;;00378174501
  1. ;;9002226.02101,"1033,00378174501 ",.02)
  1. ;;00378174501
  1. ;;9002226.02101,"1033,00378174525 ",.01)
  1. ;;00378174525
  1. ;;9002226.02101,"1033,00378174525 ",.02)
  1. ;;00378174525
  1. ;;9002226.02101,"1033,00378174589 ",.01)
  1. ;;00378174589
  1. ;;9002226.02101,"1033,00378174589 ",.02)
  1. ;;00378174589
  1. ;;9002226.02101,"1033,00378429601 ",.01)
  1. ;;00378429601
  1. ;;9002226.02101,"1033,00378429601 ",.02)
  1. ;;00378429601
  1. ;;9002226.02101,"1033,00378429693 ",.01)
  1. ;;00378429693
  1. ;;9002226.02101,"1033,00378429693 ",.02)
  1. ;;00378429693
  1. ;;9002226.02101,"1033,00378429701 ",.01)
  1. ;;00378429701
  1. ;;9002226.02101,"1033,00378429701 ",.02)
  1. ;;00378429701
  1. ;;9002226.02101,"1033,00378429730 ",.01)
  1. ;;00378429730
  1. ;;9002226.02101,"1033,00378429730 ",.02)
  1. ;;00378429730
  1. ;;9002226.02101,"1033,00378429793 ",.01)
  1. ;;00378429793
  1. ;;9002226.02101,"1033,00378429793 ",.02)
  1. ;;00378429793
  1. ;;9002226.02101,"1033,00378429801 ",.01)
  1. ;;00378429801
  1. ;;9002226.02101,"1033,00378429801 ",.02)
  1. ;;00378429801
  1. ;;9002226.02101,"1033,00378429893 ",.01)
  1. ;;00378429893
  1. ;;9002226.02101,"1033,00378429893 ",.02)
  1. ;;00378429893
  1. ;;9002226.02101,"1033,00378453105 ",.01)
  1. ;;00378453105
  1. ;;9002226.02101,"1033,00378453105 ",.02)
  1. ;;00378453105
  1. ;;9002226.02101,"1033,00378453191 ",.01)
  1. ;;00378453191
  1. ;;9002226.02101,"1033,00378453191 ",.02)
  1. ;;00378453191
  1. ;;9002226.02101,"1033,00378453201 ",.01)
  1. ;;00378453201
  1. ;;9002226.02101,"1033,00378453201 ",.02)
  1. ;;00378453201
  1. ;;9002226.02101,"1033,00378453205 ",.01)
  1. ;;00378453205
  1. ;;9002226.02101,"1033,00378453205 ",.02)
  1. ;;00378453205
  1. ;;9002226.02101,"1033,00378453291 ",.01)
  1. ;;00378453291
  1. ;;9002226.02101,"1033,00378453291 ",.02)
  1. ;;00378453291
  1. ;;9002226.02101,"1033,00378602101 ",.01)
  1. ;;00378602101
  1. ;;9002226.02101,"1033,00378602101 ",.02)
  1. ;;00378602101
  1. ;;9002226.02101,"1033,00378602105 ",.01)
  1. ;;00378602105
  1. ;;9002226.02101,"1033,00378602105 ",.02)
  1. ;;00378602105
  1. ;;9002226.02101,"1033,00378602201 ",.01)
  1. ;;00378602201
  1. ;;9002226.02101,"1033,00378602201 ",.02)
  1. ;;00378602201
  1. ;;9002226.02101,"1033,00378602205 ",.01)
  1. ;;00378602205
  1. ;;9002226.02101,"1033,00378602205 ",.02)
  1. ;;00378602205
  1. ;;9002226.02101,"1033,00378602325 ",.01)
  1. ;;00378602325
  1. ;;9002226.02101,"1033,00378602325 ",.02)
  1. ;;00378602325
  1. ;;9002226.02101,"1033,00378602389 ",.01)
  1. ;;00378602389
  1. ;;9002226.02101,"1033,00378602389 ",.02)
  1. ;;00378602389
  1. ;;9002226.02101,"1033,00378606801 ",.01)
  1. ;;00378606801
  1. ;;9002226.02101,"1033,00378606801 ",.02)
  1. ;;00378606801
  1. ;;9002226.02101,"1033,00378606805 ",.01)
  1. ;;00378606805
  1. ;;9002226.02101,"1033,00378606805 ",.02)
  1. ;;00378606805
  1. ;;9002226.02101,"1033,00378606901 ",.01)
  1. ;;00378606901
  1. ;;9002226.02101,"1033,00378606901 ",.02)
  1. ;;00378606901
  1. ;;9002226.02101,"1033,00378606905 ",.01)
  1. ;;00378606905
  1. ;;9002226.02101,"1033,00378606905 ",.02)
  1. ;;00378606905
  1. ;;9002226.02101,"1033,00378607001 ",.01)
  1. ;;00378607001
  1. ;;9002226.02101,"1033,00378607001 ",.02)
  1. ;;00378607001
  1. ;;9002226.02101,"1033,00378607005 ",.01)
  1. ;;00378607005
  1. ;;9002226.02101,"1033,00378607005 ",.02)
  1. ;;00378607005
  1. ;;9002226.02101,"1033,00378612401 ",.01)
  1. ;;00378612401
  1. ;;9002226.02101,"1033,00378612401 ",.02)
  1. ;;00378612401
  1. ;;9002226.02101,"1033,00378612405 ",.01)
  1. ;;00378612405
  1. ;;9002226.02101,"1033,00378612405 ",.02)
  1. ;;00378612405
  1. ;;9002226.02101,"1033,00378612493 ",.01)
  1. ;;00378612493
  1. ;;9002226.02101,"1033,00378612493 ",.02)
  1. ;;00378612493
  1. ;;9002226.02101,"1033,00378640001 ",.01)
  1. ;;00378640001
  1. ;;9002226.02101,"1033,00378640001 ",.02)
  1. ;;00378640001
  1. ;;9002226.02101,"1033,00378640005 ",.01)
  1. ;;00378640005
  1. ;;9002226.02101,"1033,00378640005 ",.02)
  1. ;;00378640005
  1. ;;9002226.02101,"1033,00378709701 ",.01)
  1. ;;00378709701
  1. ;;9002226.02101,"1033,00378709701 ",.02)
  1. ;;00378709701
  1. ;;9002226.02101,"1033,00378709705 ",.01)
  1. ;;00378709705
  1. ;;9002226.02101,"1033,00378709705 ",.02)
  1. ;;00378709705
  1. ;;9002226.02101,"1033,00378709801 ",.01)
  1. ;;00378709801
  1. ;;9002226.02101,"1033,00378709801 ",.02)
  1. ;;00378709801
  1. ;;9002226.02101,"1033,00378709805 ",.01)
  1. ;;00378709805
  1. ;;9002226.02101,"1033,00378709805 ",.02)
  1. ;;00378709805
  1. ;;9002226.02101,"1033,00378709989 ",.01)
  1. ;;00378709989
  1. ;;9002226.02101,"1033,00378709989 ",.02)
  1. ;;00378709989
  1. ;;9002226.02101,"1033,00378825091 ",.01)
  1. ;;00378825091
  1. ;;9002226.02101,"1033,00378825091 ",.02)
  1. ;;00378825091
  1. ;;9002226.02101,"1033,00378850091 ",.01)
  1. ;;00378850091
  1. ;;9002226.02101,"1033,00378850091 ",.02)
  1. ;;00378850091
  1. ;;9002226.02101,"1033,00378868854 ",.01)
  1. ;;00378868854
  1. ;;9002226.02101,"1033,00378868854 ",.02)
  1. ;;00378868854
  1. ;;9002226.02101,"1033,00409014410 ",.01)
  1. ;;00409014410
  1. ;;9002226.02101,"1033,00409014410 ",.02)
  1. ;;00409014410
  1. ;;9002226.02101,"1033,00409014411 ",.01)
  1. ;;00409014411
  1. ;;9002226.02101,"1033,00409014411 ",.02)
  1. ;;00409014411
  1. ;;9002226.02101,"1033,00409052813 ",.01)
  1. ;;00409052813
  1. ;;9002226.02101,"1033,00409052813 ",.02)
  1. ;;00409052813
  1. ;;9002226.02101,"1033,00409052823 ",.01)
  1. ;;00409052823