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

BGPM5BFA.m

Go to the documentation of this file.
BGPM5BFA ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,43806003570 ",.01)
 ;;43806003570
 ;;9002226.02101,"1084,43806003570 ",.02)
 ;;43806003570
 ;;9002226.02101,"1084,43806003580 ",.01)
 ;;43806003580
 ;;9002226.02101,"1084,43806003580 ",.02)
 ;;43806003580
 ;;9002226.02101,"1084,43806003640 ",.01)
 ;;43806003640
 ;;9002226.02101,"1084,43806003640 ",.02)
 ;;43806003640
 ;;9002226.02101,"1084,43806004840 ",.01)
 ;;43806004840
 ;;9002226.02101,"1084,43806004840 ",.02)
 ;;43806004840
 ;;9002226.02101,"1084,43806004870 ",.01)
 ;;43806004870
 ;;9002226.02101,"1084,43806004870 ",.02)
 ;;43806004870
 ;;9002226.02101,"1084,43806004880 ",.01)
 ;;43806004880
 ;;9002226.02101,"1084,43806004880 ",.02)
 ;;43806004880
 ;;9002226.02101,"1084,43806004940 ",.01)
 ;;43806004940
 ;;9002226.02101,"1084,43806004940 ",.02)
 ;;43806004940
 ;;9002226.02101,"1084,43806004970 ",.01)
 ;;43806004970
 ;;9002226.02101,"1084,43806004970 ",.02)
 ;;43806004970
 ;;9002226.02101,"1084,43806004980 ",.01)
 ;;43806004980
 ;;9002226.02101,"1084,43806004980 ",.02)
 ;;43806004980
 ;;9002226.02101,"1084,43806005040 ",.01)
 ;;43806005040
 ;;9002226.02101,"1084,43806005040 ",.02)
 ;;43806005040
 ;;9002226.02101,"1084,43806005070 ",.01)
 ;;43806005070
 ;;9002226.02101,"1084,43806005070 ",.02)
 ;;43806005070
 ;;9002226.02101,"1084,43806005080 ",.01)
 ;;43806005080
 ;;9002226.02101,"1084,43806005080 ",.02)
 ;;43806005080
 ;;9002226.02101,"1084,43806034240 ",.01)
 ;;43806034240
 ;;9002226.02101,"1084,43806034240 ",.02)
 ;;43806034240
 ;;9002226.02101,"1084,43806034270 ",.01)
 ;;43806034270
 ;;9002226.02101,"1084,43806034270 ",.02)
 ;;43806034270
 ;;9002226.02101,"1084,43806034327 ",.01)
 ;;43806034327
 ;;9002226.02101,"1084,43806034327 ",.02)
 ;;43806034327
 ;;9002226.02101,"1084,43806034335 ",.01)
 ;;43806034335
 ;;9002226.02101,"1084,43806034335 ",.02)
 ;;43806034335
 ;;9002226.02101,"1084,43806034340 ",.01)
 ;;43806034340
 ;;9002226.02101,"1084,43806034340 ",.02)
 ;;43806034340
 ;;9002226.02101,"1084,43806034370 ",.01)
 ;;43806034370
 ;;9002226.02101,"1084,43806034370 ",.02)
 ;;43806034370
 ;;9002226.02101,"1084,43806034380 ",.01)
 ;;43806034380
 ;;9002226.02101,"1084,43806034380 ",.02)
 ;;43806034380
 ;;9002226.02101,"1084,43806034440 ",.01)
 ;;43806034440
 ;;9002226.02101,"1084,43806034440 ",.02)
 ;;43806034440
 ;;9002226.02101,"1084,43806034470 ",.01)
 ;;43806034470
 ;;9002226.02101,"1084,43806034470 ",.02)
 ;;43806034470
 ;;9002226.02101,"1084,43806034480 ",.01)
 ;;43806034480
 ;;9002226.02101,"1084,43806034480 ",.02)
 ;;43806034480
 ;;9002226.02101,"1084,43806052440 ",.01)
 ;;43806052440
 ;;9002226.02101,"1084,43806052440 ",.02)
 ;;43806052440
 ;;9002226.02101,"1084,43806052441 ",.01)
 ;;43806052441
 ;;9002226.02101,"1084,43806052441 ",.02)
 ;;43806052441
 ;;9002226.02101,"1084,43806052470 ",.01)
 ;;43806052470
 ;;9002226.02101,"1084,43806052470 ",.02)
 ;;43806052470
 ;;9002226.02101,"1084,43806052480 ",.01)
 ;;43806052480
 ;;9002226.02101,"1084,43806052480 ",.02)
 ;;43806052480
 ;;9002226.02101,"1084,43806052540 ",.01)
 ;;43806052540
 ;;9002226.02101,"1084,43806052540 ",.02)
 ;;43806052540
 ;;9002226.02101,"1084,43806052541 ",.01)
 ;;43806052541
 ;;9002226.02101,"1084,43806052541 ",.02)
 ;;43806052541
 ;;9002226.02101,"1084,43806052570 ",.01)
 ;;43806052570
 ;;9002226.02101,"1084,43806052570 ",.02)
 ;;43806052570
 ;;9002226.02101,"1084,43806052580 ",.01)
 ;;43806052580
 ;;9002226.02101,"1084,43806052580 ",.02)
 ;;43806052580
 ;;9002226.02101,"1084,44514038536 ",.01)
 ;;44514038536
 ;;9002226.02101,"1084,44514038536 ",.02)
 ;;44514038536
 ;;9002226.02101,"1084,45802077078 ",.01)
 ;;45802077078
 ;;9002226.02101,"1084,45802077078 ",.02)
 ;;45802077078
 ;;9002226.02101,"1084,45802077093 ",.01)
 ;;45802077093
 ;;9002226.02101,"1084,45802077093 ",.02)
 ;;45802077093
 ;;9002226.02101,"1084,45802082278 ",.01)
 ;;45802082278
 ;;9002226.02101,"1084,45802082278 ",.02)
 ;;45802082278
 ;;9002226.02101,"1084,45802082293 ",.01)
 ;;45802082293
 ;;9002226.02101,"1084,45802082293 ",.02)
 ;;45802082293
 ;;9002226.02101,"1084,45802094778 ",.01)
 ;;45802094778
 ;;9002226.02101,"1084,45802094778 ",.02)
 ;;45802094778
 ;;9002226.02101,"1084,45802094793 ",.01)
 ;;45802094793
 ;;9002226.02101,"1084,45802094793 ",.02)
 ;;45802094793
 ;;9002226.02101,"1084,45963075302 ",.01)
 ;;45963075302
 ;;9002226.02101,"1084,45963075302 ",.02)
 ;;45963075302
 ;;9002226.02101,"1084,45963075304 ",.01)
 ;;45963075304
 ;;9002226.02101,"1084,45963075304 ",.02)
 ;;45963075304
 ;;9002226.02101,"1084,49349003702 ",.01)
 ;;49349003702
 ;;9002226.02101,"1084,49349003702 ",.02)
 ;;49349003702
 ;;9002226.02101,"1084,49349004302 ",.01)
 ;;49349004302
 ;;9002226.02101,"1084,49349004302 ",.02)
 ;;49349004302
 ;;9002226.02101,"1084,49349009202 ",.01)
 ;;49349009202
 ;;9002226.02101,"1084,49349009202 ",.02)
 ;;49349009202
 ;;9002226.02101,"1084,49349009230 ",.01)
 ;;49349009230
 ;;9002226.02101,"1084,49349009230 ",.02)
 ;;49349009230
 ;;9002226.02101,"1084,49349017002 ",.01)
 ;;49349017002
 ;;9002226.02101,"1084,49349017002 ",.02)
 ;;49349017002
 ;;9002226.02101,"1084,49349017502 ",.01)
 ;;49349017502
 ;;9002226.02101,"1084,49349017502 ",.02)
 ;;49349017502
 ;;9002226.02101,"1084,49349020102 ",.01)
 ;;49349020102
 ;;9002226.02101,"1084,49349020102 ",.02)
 ;;49349020102
 ;;9002226.02101,"1084,49349022802 ",.01)
 ;;49349022802
 ;;9002226.02101,"1084,49349022802 ",.02)
 ;;49349022802
 ;;9002226.02101,"1084,49349023202 ",.01)
 ;;49349023202
 ;;9002226.02101,"1084,49349023202 ",.02)
 ;;49349023202
 ;;9002226.02101,"1084,49349027202 ",.01)
 ;;49349027202
 ;;9002226.02101,"1084,49349027202 ",.02)
 ;;49349027202
 ;;9002226.02101,"1084,49349067524 ",.01)
 ;;49349067524
 ;;9002226.02101,"1084,49349067524 ",.02)
 ;;49349067524
 ;;9002226.02101,"1084,49349071902 ",.01)
 ;;49349071902
 ;;9002226.02101,"1084,49349071902 ",.02)
 ;;49349071902
 ;;9002226.02101,"1084,49856019004 ",.01)
 ;;49856019004
 ;;9002226.02101,"1084,49856019004 ",.02)
 ;;49856019004
 ;;9002226.02101,"1084,49856019100 ",.01)
 ;;49856019100
 ;;9002226.02101,"1084,49856019100 ",.02)
 ;;49856019100
 ;;9002226.02101,"1084,49856019101 ",.01)
 ;;49856019101
 ;;9002226.02101,"1084,49856019101 ",.02)
 ;;49856019101
 ;;9002226.02101,"1084,49856019104 ",.01)
 ;;49856019104
 ;;9002226.02101,"1084,49856019104 ",.02)
 ;;49856019104
 ;;9002226.02101,"1084,49856019200 ",.01)
 ;;49856019200
 ;;9002226.02101,"1084,49856019200 ",.02)
 ;;49856019200
 ;;9002226.02101,"1084,49856019201 ",.01)
 ;;49856019201
 ;;9002226.02101,"1084,49856019201 ",.02)
 ;;49856019201
 ;;9002226.02101,"1084,49856019204 ",.01)
 ;;49856019204
 ;;9002226.02101,"1084,49856019204 ",.02)
 ;;49856019204
 ;;9002226.02101,"1084,49856026001 ",.01)
 ;;49856026001
 ;;9002226.02101,"1084,49856026001 ",.02)
 ;;49856026001
 ;;9002226.02101,"1084,49856026002 ",.01)
 ;;49856026002
 ;;9002226.02101,"1084,49856026002 ",.02)
 ;;49856026002
 ;;9002226.02101,"1084,49856132901 ",.01)
 ;;49856132901
 ;;9002226.02101,"1084,49856132901 ",.02)
 ;;49856132901
 ;;9002226.02101,"1084,49856132903 ",.01)
 ;;49856132903
 ;;9002226.02101,"1084,49856132903 ",.02)
 ;;49856132903
 ;;9002226.02101,"1084,49856132905 ",.01)
 ;;49856132905
 ;;9002226.02101,"1084,49856132905 ",.02)
 ;;49856132905
 ;;9002226.02101,"1084,49884073601 ",.01)
 ;;49884073601
 ;;9002226.02101,"1084,49884073601 ",.02)
 ;;49884073601
 ;;9002226.02101,"1084,49884073605 ",.01)
 ;;49884073605
 ;;9002226.02101,"1084,49884073605 ",.02)
 ;;49884073605
 ;;9002226.02101,"1084,49884073701 ",.01)
 ;;49884073701
 ;;9002226.02101,"1084,49884073701 ",.02)
 ;;49884073701
 ;;9002226.02101,"1084,49884073705 ",.01)
 ;;49884073705
 ;;9002226.02101,"1084,49884073705 ",.02)
 ;;49884073705
 ;;9002226.02101,"1084,49884073801 ",.01)
 ;;49884073801
 ;;9002226.02101,"1084,49884073801 ",.02)
 ;;49884073801
 ;;9002226.02101,"1084,49884073805 ",.01)
 ;;49884073805
 ;;9002226.02101,"1084,49884073805 ",.02)
 ;;49884073805
 ;;9002226.02101,"1084,49884073901 ",.01)
 ;;49884073901
 ;;9002226.02101,"1084,49884073901 ",.02)
 ;;49884073901
 ;;9002226.02101,"1084,49884073905 ",.01)
 ;;49884073905
 ;;9002226.02101,"1084,49884073905 ",.02)
 ;;49884073905
 ;;9002226.02101,"1084,49884074001 ",.01)
 ;;49884074001
 ;;9002226.02101,"1084,49884074001 ",.02)
 ;;49884074001
 ;;9002226.02101,"1084,49884074005 ",.01)
 ;;49884074005
 ;;9002226.02101,"1084,49884074005 ",.02)
 ;;49884074005
 ;;9002226.02101,"1084,49884074101 ",.01)
 ;;49884074101
 ;;9002226.02101,"1084,49884074101 ",.02)
 ;;49884074101
 ;;9002226.02101,"1084,49884074105 ",.01)
 ;;49884074105
 ;;9002226.02101,"1084,49884074105 ",.02)
 ;;49884074105
 ;;9002226.02101,"1084,49884084501 ",.01)
 ;;49884084501
 ;;9002226.02101,"1084,49884084501 ",.02)
 ;;49884084501
 ;;9002226.02101,"1084,49884084510 ",.01)
 ;;49884084510
 ;;9002226.02101,"1084,49884084510 ",.02)
 ;;49884084510
 ;;9002226.02101,"1084,49884084601 ",.01)
 ;;49884084601
 ;;9002226.02101,"1084,49884084601 ",.02)
 ;;49884084601
 ;;9002226.02101,"1084,49884084610 ",.01)
 ;;49884084610
 ;;9002226.02101,"1084,49884084610 ",.02)
 ;;49884084610
 ;;9002226.02101,"1084,49884084701 ",.01)
 ;;49884084701
 ;;9002226.02101,"1084,49884084701 ",.02)
 ;;49884084701
 ;;9002226.02101,"1084,49884084710 ",.01)
 ;;49884084710
 ;;9002226.02101,"1084,49884084710 ",.02)
 ;;49884084710
 ;;9002226.02101,"1084,49884098401 ",.01)
 ;;49884098401
 ;;9002226.02101,"1084,49884098401 ",.02)
 ;;49884098401
 ;;9002226.02101,"1084,49884098405 ",.01)
 ;;49884098405
 ;;9002226.02101,"1084,49884098405 ",.02)
 ;;49884098405
 ;;9002226.02101,"1084,49884098410 ",.01)
 ;;49884098410
 ;;9002226.02101,"1084,49884098410 ",.02)
 ;;49884098410
 ;;9002226.02101,"1084,49884098501 ",.01)
 ;;49884098501
 ;;9002226.02101,"1084,49884098501 ",.02)
 ;;49884098501
 ;;9002226.02101,"1084,49884098505 ",.01)
 ;;49884098505
 ;;9002226.02101,"1084,49884098505 ",.02)
 ;;49884098505
 ;;9002226.02101,"1084,49884098510 ",.01)
 ;;49884098510
 ;;9002226.02101,"1084,49884098510 ",.02)
 ;;49884098510
 ;;9002226.02101,"1084,49999010600 ",.01)
 ;;49999010600
 ;;9002226.02101,"1084,49999010600 ",.02)
 ;;49999010600
 ;;9002226.02101,"1084,49999010601 ",.01)
 ;;49999010601
 ;;9002226.02101,"1084,49999010601 ",.02)
 ;;49999010601
 ;;9002226.02101,"1084,49999010628 ",.01)
 ;;49999010628
 ;;9002226.02101,"1084,49999010628 ",.02)
 ;;49999010628
 ;;9002226.02101,"1084,49999010630 ",.01)
 ;;49999010630
 ;;9002226.02101,"1084,49999010630 ",.02)
 ;;49999010630
 ;;9002226.02101,"1084,49999010660 ",.01)
 ;;49999010660
 ;;9002226.02101,"1084,49999010660 ",.02)
 ;;49999010660
 ;;9002226.02101,"1084,49999010690 ",.01)
 ;;49999010690
 ;;9002226.02101,"1084,49999010690 ",.02)
 ;;49999010690
 ;;9002226.02101,"1084,49999010700 ",.01)
 ;;49999010700
 ;;9002226.02101,"1084,49999010700 ",.02)
 ;;49999010700
 ;;9002226.02101,"1084,49999010720 ",.01)
 ;;49999010720
 ;;9002226.02101,"1084,49999010720 ",.02)
 ;;49999010720
 ;;9002226.02101,"1084,49999010730 ",.01)
 ;;49999010730
 ;;9002226.02101,"1084,49999010730 ",.02)
 ;;49999010730
 ;;9002226.02101,"1084,49999010760 ",.01)
 ;;49999010760
 ;;9002226.02101,"1084,49999010760 ",.02)
 ;;49999010760
 ;;9002226.02101,"1084,49999010790 ",.01)
 ;;49999010790
 ;;9002226.02101,"1084,49999010790 ",.02)
 ;;49999010790
 ;;9002226.02101,"1084,49999010800 ",.01)
 ;;49999010800
 ;;9002226.02101,"1084,49999010800 ",.02)
 ;;49999010800
 ;;9002226.02101,"1084,49999010830 ",.01)
 ;;49999010830
 ;;9002226.02101,"1084,49999010830 ",.02)
 ;;49999010830
 ;;9002226.02101,"1084,49999010860 ",.01)
 ;;49999010860