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