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

BGPM5AUV.m

Go to the documentation of this file.
BGPM5AUV ;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,00904042840 ",.01)
 ;;00904042840
 ;;9002226.02101,"1033,00904042840 ",.02)
 ;;00904042840
 ;;9002226.02101,"1033,00904042851 ",.01)
 ;;00904042851
 ;;9002226.02101,"1033,00904042851 ",.02)
 ;;00904042851
 ;;9002226.02101,"1033,00904042861 ",.01)
 ;;00904042861
 ;;9002226.02101,"1033,00904042861 ",.02)
 ;;00904042861
 ;;9002226.02101,"1033,00904042895 ",.01)
 ;;00904042895
 ;;9002226.02101,"1033,00904042895 ",.02)
 ;;00904042895
 ;;9002226.02101,"1033,00904043040 ",.01)
 ;;00904043040
 ;;9002226.02101,"1033,00904043040 ",.02)
 ;;00904043040
 ;;9002226.02101,"1033,00904043051 ",.01)
 ;;00904043051
 ;;9002226.02101,"1033,00904043051 ",.02)
 ;;00904043051
 ;;9002226.02101,"1033,00904043061 ",.01)
 ;;00904043061
 ;;9002226.02101,"1033,00904043061 ",.02)
 ;;00904043061
 ;;9002226.02101,"1033,00904164660 ",.01)
 ;;00904164660
 ;;9002226.02101,"1033,00904164660 ",.02)
 ;;00904164660
 ;;9002226.02101,"1033,00904201740 ",.01)
 ;;00904201740
 ;;9002226.02101,"1033,00904201740 ",.02)
 ;;00904201740
 ;;9002226.02101,"1033,00904201760 ",.01)
 ;;00904201760
 ;;9002226.02101,"1033,00904201760 ",.02)
 ;;00904201760
 ;;9002226.02101,"1033,00904207340 ",.01)
 ;;00904207340
 ;;9002226.02101,"1033,00904207340 ",.02)
 ;;00904207340
 ;;9002226.02101,"1033,00904207360 ",.01)
 ;;00904207360
 ;;9002226.02101,"1033,00904207360 ",.02)
 ;;00904207360
 ;;9002226.02101,"1033,00904221860 ",.01)
 ;;00904221860
 ;;9002226.02101,"1033,00904221860 ",.02)
 ;;00904221860
 ;;9002226.02101,"1033,00904240760 ",.01)
 ;;00904240760
 ;;9002226.02101,"1033,00904240760 ",.02)
 ;;00904240760
 ;;9002226.02101,"1033,00904240780 ",.01)
 ;;00904240780
 ;;9002226.02101,"1033,00904240780 ",.02)
 ;;00904240780
 ;;9002226.02101,"1033,00904241660 ",.01)
 ;;00904241660
 ;;9002226.02101,"1033,00904241660 ",.02)
 ;;00904241660
 ;;9002226.02101,"1033,00904241680 ",.01)
 ;;00904241680
 ;;9002226.02101,"1033,00904241680 ",.02)
 ;;00904241680
 ;;9002226.02101,"1033,00904245060 ",.01)
 ;;00904245060
 ;;9002226.02101,"1033,00904245060 ",.02)
 ;;00904245060
 ;;9002226.02101,"1033,00904245080 ",.01)
 ;;00904245080
 ;;9002226.02101,"1033,00904245080 ",.02)
 ;;00904245080
 ;;9002226.02101,"1033,00904245160 ",.01)
 ;;00904245160
 ;;9002226.02101,"1033,00904245160 ",.02)
 ;;00904245160
 ;;9002226.02101,"1033,00904245180 ",.01)
 ;;00904245180
 ;;9002226.02101,"1033,00904245180 ",.02)
 ;;00904245180
 ;;9002226.02101,"1033,00904245280 ",.01)
 ;;00904245280
 ;;9002226.02101,"1033,00904245280 ",.02)
 ;;00904245280
 ;;9002226.02101,"1033,00904246216 ",.01)
 ;;00904246216
 ;;9002226.02101,"1033,00904246216 ",.02)
 ;;00904246216
 ;;9002226.02101,"1033,00904246316 ",.01)
 ;;00904246316
 ;;9002226.02101,"1033,00904246316 ",.02)
 ;;00904246316
 ;;9002226.02101,"1033,00904246860 ",.01)
 ;;00904246860
 ;;9002226.02101,"1033,00904246860 ",.02)
 ;;00904246860
 ;;9002226.02101,"1033,00904247116 ",.01)
 ;;00904247116
 ;;9002226.02101,"1033,00904247116 ",.02)
 ;;00904247116
 ;;9002226.02101,"1033,00904261740 ",.01)
 ;;00904261740
 ;;9002226.02101,"1033,00904261740 ",.02)
 ;;00904261740
 ;;9002226.02101,"1033,00904261760 ",.01)
 ;;00904261760
 ;;9002226.02101,"1033,00904261760 ",.02)
 ;;00904261760
 ;;9002226.02101,"1033,00904261761 ",.01)
 ;;00904261761
 ;;9002226.02101,"1033,00904261761 ",.02)
 ;;00904261761
 ;;9002226.02101,"1033,00904261840 ",.01)
 ;;00904261840
 ;;9002226.02101,"1033,00904261840 ",.02)
 ;;00904261840
 ;;9002226.02101,"1033,00904261851 ",.01)
 ;;00904261851
 ;;9002226.02101,"1033,00904261851 ",.02)
 ;;00904261851
 ;;9002226.02101,"1033,00904261904 ",.01)
 ;;00904261904
 ;;9002226.02101,"1033,00904261904 ",.02)
 ;;00904261904
 ;;9002226.02101,"1033,00904261907 ",.01)
 ;;00904261907
 ;;9002226.02101,"1033,00904261907 ",.02)
 ;;00904261907
 ;;9002226.02101,"1033,00904262004 ",.01)
 ;;00904262004
 ;;9002226.02101,"1033,00904262004 ",.02)
 ;;00904262004
 ;;9002226.02101,"1033,00904262007 ",.01)
 ;;00904262007
 ;;9002226.02101,"1033,00904262007 ",.02)
 ;;00904262007
 ;;9002226.02101,"1033,00904264760 ",.01)
 ;;00904264760
 ;;9002226.02101,"1033,00904264760 ",.02)
 ;;00904264760
 ;;9002226.02101,"1033,00904265304 ",.01)
 ;;00904265304
 ;;9002226.02101,"1033,00904265304 ",.02)
 ;;00904265304
 ;;9002226.02101,"1033,00904272540 ",.01)
 ;;00904272540
 ;;9002226.02101,"1033,00904272540 ",.02)
 ;;00904272540
 ;;9002226.02101,"1033,00904272560 ",.01)
 ;;00904272560
 ;;9002226.02101,"1033,00904272560 ",.02)
 ;;00904272560
 ;;9002226.02101,"1033,00904272561 ",.01)
 ;;00904272561
 ;;9002226.02101,"1033,00904272561 ",.02)
 ;;00904272561
 ;;9002226.02101,"1033,00904272640 ",.01)
 ;;00904272640
 ;;9002226.02101,"1033,00904272640 ",.02)
 ;;00904272640
 ;;9002226.02101,"1033,00904272660 ",.01)
 ;;00904272660
 ;;9002226.02101,"1033,00904272660 ",.02)
 ;;00904272660
 ;;9002226.02101,"1033,00904283760 ",.01)
 ;;00904283760
 ;;9002226.02101,"1033,00904283760 ",.02)
 ;;00904283760
 ;;9002226.02101,"1033,00904283860 ",.01)
 ;;00904283860
 ;;9002226.02101,"1033,00904283860 ",.02)
 ;;00904283860
 ;;9002226.02101,"1033,00904380040 ",.01)
 ;;00904380040
 ;;9002226.02101,"1033,00904380040 ",.02)
 ;;00904380040
 ;;9002226.02101,"1033,00904380060 ",.01)
 ;;00904380060
 ;;9002226.02101,"1033,00904380060 ",.02)
 ;;00904380060
 ;;9002226.02101,"1033,00904380061 ",.01)
 ;;00904380061
 ;;9002226.02101,"1033,00904380061 ",.02)
 ;;00904380061
 ;;9002226.02101,"1033,00904380140 ",.01)
 ;;00904380140
 ;;9002226.02101,"1033,00904380140 ",.02)
 ;;00904380140
 ;;9002226.02101,"1033,00904380160 ",.01)
 ;;00904380160
 ;;9002226.02101,"1033,00904380160 ",.02)
 ;;00904380160
 ;;9002226.02101,"1033,00904380161 ",.01)
 ;;00904380161
 ;;9002226.02101,"1033,00904380161 ",.02)
 ;;00904380161
 ;;9002226.02101,"1033,00904380204 ",.01)
 ;;00904380204
 ;;9002226.02101,"1033,00904380204 ",.02)
 ;;00904380204
 ;;9002226.02101,"1033,00904380208 ",.01)
 ;;00904380208
 ;;9002226.02101,"1033,00904380208 ",.02)
 ;;00904380208
 ;;9002226.02101,"1033,00904380304 ",.01)
 ;;00904380304
 ;;9002226.02101,"1033,00904380304 ",.02)
 ;;00904380304
 ;;9002226.02101,"1033,00904380308 ",.01)
 ;;00904380308
 ;;9002226.02101,"1033,00904380308 ",.02)
 ;;00904380308
 ;;9002226.02101,"1033,00904383860 ",.01)
 ;;00904383860
 ;;9002226.02101,"1033,00904383860 ",.02)
 ;;00904383860
 ;;9002226.02101,"1033,00904400104 ",.01)
 ;;00904400104
 ;;9002226.02101,"1033,00904400104 ",.02)
 ;;00904400104
 ;;9002226.02101,"1033,00904400108 ",.01)
 ;;00904400108
 ;;9002226.02101,"1033,00904400108 ",.02)
 ;;00904400108
 ;;9002226.02101,"1033,00904400404 ",.01)
 ;;00904400404
 ;;9002226.02101,"1033,00904400404 ",.02)
 ;;00904400404
 ;;9002226.02101,"1033,00904400408 ",.01)
 ;;00904400408
 ;;9002226.02101,"1033,00904400408 ",.02)
 ;;00904400408
 ;;9002226.02101,"1033,00904520460 ",.01)
 ;;00904520460
 ;;9002226.02101,"1033,00904520460 ",.02)
 ;;00904520460
 ;;9002226.02101,"1033,00904520560 ",.01)
 ;;00904520560
 ;;9002226.02101,"1033,00904520560 ",.02)
 ;;00904520560
 ;;9002226.02101,"1033,00904580761 ",.01)
 ;;00904580761
 ;;9002226.02101,"1033,00904580761 ",.02)
 ;;00904580761
 ;;9002226.02101,"1033,00904581361 ",.01)
 ;;00904581361
 ;;9002226.02101,"1033,00904581361 ",.02)
 ;;00904581361
 ;;9002226.02101,"1033,00904584261 ",.01)
 ;;00904584261
 ;;9002226.02101,"1033,00904584261 ",.02)
 ;;00904584261
 ;;9002226.02101,"1033,00904584361 ",.01)
 ;;00904584361
 ;;9002226.02101,"1033,00904584361 ",.02)
 ;;00904584361
 ;;9002226.02101,"1033,00904595961 ",.01)
 ;;00904595961
 ;;9002226.02101,"1033,00904595961 ",.02)
 ;;00904595961
 ;;9002226.02101,"1033,00904596061 ",.01)
 ;;00904596061
 ;;9002226.02101,"1033,00904596061 ",.02)
 ;;00904596061
 ;;9002226.02101,"1033,00904601004 ",.01)
 ;;00904601004
 ;;9002226.02101,"1033,00904601004 ",.02)
 ;;00904601004
 ;;9002226.02101,"1033,00904625161 ",.01)
 ;;00904625161
 ;;9002226.02101,"1033,00904625161 ",.02)
 ;;00904625161
 ;;9002226.02101,"1033,00904768260 ",.01)
 ;;00904768260
 ;;9002226.02101,"1033,00904768260 ",.02)
 ;;00904768260
 ;;9002226.02101,"1033,00904768351 ",.01)
 ;;00904768351
 ;;9002226.02101,"1033,00904768351 ",.02)
 ;;00904768351
 ;;9002226.02101,"1033,00904771340 ",.01)
 ;;00904771340
 ;;9002226.02101,"1033,00904771340 ",.02)
 ;;00904771340
 ;;9002226.02101,"1033,00904771360 ",.01)
 ;;00904771360
 ;;9002226.02101,"1033,00904771360 ",.02)
 ;;00904771360
 ;;9002226.02101,"1033,00904773303 ",.01)
 ;;00904773303
 ;;9002226.02101,"1033,00904773303 ",.02)
 ;;00904773303
 ;;9002226.02101,"1033,00904773330 ",.01)
 ;;00904773330
 ;;9002226.02101,"1033,00904773330 ",.02)
 ;;00904773330
 ;;9002226.02101,"1033,00904787840 ",.01)
 ;;00904787840
 ;;9002226.02101,"1033,00904787840 ",.02)
 ;;00904787840
 ;;9002226.02101,"1033,00904787851 ",.01)
 ;;00904787851
 ;;9002226.02101,"1033,00904787851 ",.02)
 ;;00904787851
 ;;9002226.02101,"1033,00904787860 ",.01)
 ;;00904787860
 ;;9002226.02101,"1033,00904787860 ",.02)
 ;;00904787860
 ;;9002226.02101,"1033,016014797 ",.01)
 ;;016014797
 ;;9002226.02101,"1033,016014797 ",.02)
 ;;016014797
 ;;9002226.02101,"1033,40 ",.01)
 ;;40
 ;;9002226.02101,"1033,40 ",.02)
 ;;40
 ;;9002226.02101,"1033,52959036720 ",.01)
 ;;52959036720
 ;;9002226.02101,"1033,52959036720 ",.02)
 ;;52959036720
 ;;9002226.02101,"1033,52959036721 ",.01)
 ;;52959036721
 ;;9002226.02101,"1033,52959036721 ",.02)
 ;;52959036721
 ;;9002226.02101,"1033,52959036730 ",.01)
 ;;52959036730
 ;;9002226.02101,"1033,52959036730 ",.02)
 ;;52959036730
 ;;9002226.02101,"1033,52959036740 ",.01)
 ;;52959036740
 ;;9002226.02101,"1033,52959036740 ",.02)
 ;;52959036740
 ;;9002226.02101,"1033,52959036810 ",.01)
 ;;52959036810
 ;;9002226.02101,"1033,52959036810 ",.02)
 ;;52959036810
 ;;9002226.02101,"1033,52959036814 ",.01)
 ;;52959036814
 ;;9002226.02101,"1033,52959036814 ",.02)
 ;;52959036814
 ;;9002226.02101,"1033,52959036820 ",.01)
 ;;52959036820
 ;;9002226.02101,"1033,52959036820 ",.02)
 ;;52959036820
 ;;9002226.02101,"1033,52959036821 ",.01)
 ;;52959036821
 ;;9002226.02101,"1033,52959036821 ",.02)
 ;;52959036821
 ;;9002226.02101,"1033,52959036828 ",.01)
 ;;52959036828
 ;;9002226.02101,"1033,52959036828 ",.02)
 ;;52959036828
 ;;9002226.02101,"1033,52959036830 ",.01)
 ;;52959036830
 ;;9002226.02101,"1033,52959036830 ",.02)
 ;;52959036830
 ;;9002226.02101,"1033,52959036840 ",.01)
 ;;52959036840
 ;;9002226.02101,"1033,52959036840 ",.02)
 ;;52959036840
 ;;9002226.02101,"1033,52959038920 ",.01)
 ;;52959038920
 ;;9002226.02101,"1033,52959038920 ",.02)
 ;;52959038920
 ;;9002226.02101,"1033,52959038928 ",.01)
 ;;52959038928
 ;;9002226.02101,"1033,52959038928 ",.02)
 ;;52959038928
 ;;9002226.02101,"1033,52959038930 ",.01)
 ;;52959038930
 ;;9002226.02101,"1033,52959038930 ",.02)
 ;;52959038930
 ;;9002226.02101,"1033,52959038940 ",.01)
 ;;52959038940
 ;;9002226.02101,"1033,52959038940 ",.02)
 ;;52959038940
 ;;9002226.02101,"1033,52959042804 ",.01)
 ;;52959042804
 ;;9002226.02101,"1033,52959042804 ",.02)
 ;;52959042804
 ;;9002226.02101,"1033,52959042810 ",.01)
 ;;52959042810
 ;;9002226.02101,"1033,52959042810 ",.02)
 ;;52959042810
 ;;9002226.02101,"1033,52959042814 ",.01)
 ;;52959042814
 ;;9002226.02101,"1033,52959042814 ",.02)
 ;;52959042814
 ;;9002226.02101,"1033,52959042815 ",.01)
 ;;52959042815
 ;;9002226.02101,"1033,52959042815 ",.02)
 ;;52959042815
 ;;9002226.02101,"1033,52959042816 ",.01)
 ;;52959042816
 ;;9002226.02101,"1033,52959042816 ",.02)
 ;;52959042816
 ;;9002226.02101,"1033,52959042818 ",.01)
 ;;52959042818
 ;;9002226.02101,"1033,52959042818 ",.02)
 ;;52959042818