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

BGPM5ABU.m

Go to the documentation of this file.
BGPM5ABU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"830,42291061118 ",.02)
 ;;42291061118
 ;;9002226.02101,"830,43063001201 ",.01)
 ;;43063001201
 ;;9002226.02101,"830,43063001201 ",.02)
 ;;43063001201
 ;;9002226.02101,"830,43353006553 ",.01)
 ;;43353006553
 ;;9002226.02101,"830,43353006553 ",.02)
 ;;43353006553
 ;;9002226.02101,"830,43353006560 ",.01)
 ;;43353006560
 ;;9002226.02101,"830,43353006560 ",.02)
 ;;43353006560
 ;;9002226.02101,"830,43353006580 ",.01)
 ;;43353006580
 ;;9002226.02101,"830,43353006580 ",.02)
 ;;43353006580
 ;;9002226.02101,"830,43353006594 ",.01)
 ;;43353006594
 ;;9002226.02101,"830,43353006594 ",.02)
 ;;43353006594
 ;;9002226.02101,"830,43353012530 ",.01)
 ;;43353012530
 ;;9002226.02101,"830,43353012530 ",.02)
 ;;43353012530
 ;;9002226.02101,"830,43353012560 ",.01)
 ;;43353012560
 ;;9002226.02101,"830,43353012560 ",.02)
 ;;43353012560
 ;;9002226.02101,"830,43353012630 ",.01)
 ;;43353012630
 ;;9002226.02101,"830,43353012630 ",.02)
 ;;43353012630
 ;;9002226.02101,"830,43353012660 ",.01)
 ;;43353012660
 ;;9002226.02101,"830,43353012660 ",.02)
 ;;43353012660
 ;;9002226.02101,"830,43353017145 ",.01)
 ;;43353017145
 ;;9002226.02101,"830,43353017145 ",.02)
 ;;43353017145
 ;;9002226.02101,"830,43353017153 ",.01)
 ;;43353017153
 ;;9002226.02101,"830,43353017153 ",.02)
 ;;43353017153
 ;;9002226.02101,"830,43353017160 ",.01)
 ;;43353017160
 ;;9002226.02101,"830,43353017160 ",.02)
 ;;43353017160
 ;;9002226.02101,"830,43353017180 ",.01)
 ;;43353017180
 ;;9002226.02101,"830,43353017180 ",.02)
 ;;43353017180
 ;;9002226.02101,"830,43353034030 ",.01)
 ;;43353034030
 ;;9002226.02101,"830,43353034030 ",.02)
 ;;43353034030
 ;;9002226.02101,"830,43353034053 ",.01)
 ;;43353034053
 ;;9002226.02101,"830,43353034053 ",.02)
 ;;43353034053
 ;;9002226.02101,"830,43353034060 ",.01)
 ;;43353034060
 ;;9002226.02101,"830,43353034060 ",.02)
 ;;43353034060
 ;;9002226.02101,"830,43353034070 ",.01)
 ;;43353034070
 ;;9002226.02101,"830,43353034070 ",.02)
 ;;43353034070
 ;;9002226.02101,"830,43353034075 ",.01)
 ;;43353034075
 ;;9002226.02101,"830,43353034075 ",.02)
 ;;43353034075
 ;;9002226.02101,"830,43353034080 ",.01)
 ;;43353034080
 ;;9002226.02101,"830,43353034080 ",.02)
 ;;43353034080
 ;;9002226.02101,"830,43353034092 ",.01)
 ;;43353034092
 ;;9002226.02101,"830,43353034092 ",.02)
 ;;43353034092
 ;;9002226.02101,"830,43353034094 ",.01)
 ;;43353034094
 ;;9002226.02101,"830,43353034094 ",.02)
 ;;43353034094
 ;;9002226.02101,"830,43353034096 ",.01)
 ;;43353034096
 ;;9002226.02101,"830,43353034096 ",.02)
 ;;43353034096
 ;;9002226.02101,"830,43353034453 ",.01)
 ;;43353034453
 ;;9002226.02101,"830,43353034453 ",.02)
 ;;43353034453
 ;;9002226.02101,"830,43353034460 ",.01)
 ;;43353034460
 ;;9002226.02101,"830,43353034460 ",.02)
 ;;43353034460
 ;;9002226.02101,"830,43353034480 ",.01)
 ;;43353034480
 ;;9002226.02101,"830,43353034480 ",.02)
 ;;43353034480
 ;;9002226.02101,"830,43353034492 ",.01)
 ;;43353034492
 ;;9002226.02101,"830,43353034492 ",.02)
 ;;43353034492
 ;;9002226.02101,"830,43353034930 ",.01)
 ;;43353034930
 ;;9002226.02101,"830,43353034930 ",.02)
 ;;43353034930
 ;;9002226.02101,"830,43353034945 ",.01)
 ;;43353034945
 ;;9002226.02101,"830,43353034945 ",.02)
 ;;43353034945
 ;;9002226.02101,"830,43353034953 ",.01)
 ;;43353034953
 ;;9002226.02101,"830,43353034953 ",.02)
 ;;43353034953
 ;;9002226.02101,"830,43353034960 ",.01)
 ;;43353034960
 ;;9002226.02101,"830,43353034960 ",.02)
 ;;43353034960
 ;;9002226.02101,"830,43353034973 ",.01)
 ;;43353034973
 ;;9002226.02101,"830,43353034973 ",.02)
 ;;43353034973
 ;;9002226.02101,"830,43353034980 ",.01)
 ;;43353034980
 ;;9002226.02101,"830,43353034980 ",.02)
 ;;43353034980
 ;;9002226.02101,"830,43353034986 ",.01)
 ;;43353034986
 ;;9002226.02101,"830,43353034986 ",.02)
 ;;43353034986
 ;;9002226.02101,"830,43353047730 ",.01)
 ;;43353047730
 ;;9002226.02101,"830,43353047730 ",.02)
 ;;43353047730
 ;;9002226.02101,"830,43353047732 ",.01)
 ;;43353047732
 ;;9002226.02101,"830,43353047732 ",.02)
 ;;43353047732
 ;;9002226.02101,"830,43353047753 ",.01)
 ;;43353047753
 ;;9002226.02101,"830,43353047753 ",.02)
 ;;43353047753
 ;;9002226.02101,"830,43353047760 ",.01)
 ;;43353047760
 ;;9002226.02101,"830,43353047760 ",.02)
 ;;43353047760
 ;;9002226.02101,"830,43353047770 ",.01)
 ;;43353047770
 ;;9002226.02101,"830,43353047770 ",.02)
 ;;43353047770
 ;;9002226.02101,"830,43353047780 ",.01)
 ;;43353047780
 ;;9002226.02101,"830,43353047780 ",.02)
 ;;43353047780
 ;;9002226.02101,"830,43353047792 ",.01)
 ;;43353047792
 ;;9002226.02101,"830,43353047792 ",.02)
 ;;43353047792
 ;;9002226.02101,"830,43353047794 ",.01)
 ;;43353047794
 ;;9002226.02101,"830,43353047794 ",.02)
 ;;43353047794
 ;;9002226.02101,"830,43353047796 ",.01)
 ;;43353047796
 ;;9002226.02101,"830,43353047796 ",.02)
 ;;43353047796
 ;;9002226.02101,"830,43353048060 ",.01)
 ;;43353048060
 ;;9002226.02101,"830,43353048060 ",.02)
 ;;43353048060
 ;;9002226.02101,"830,43353051430 ",.01)
 ;;43353051430
 ;;9002226.02101,"830,43353051430 ",.02)
 ;;43353051430
 ;;9002226.02101,"830,43353051445 ",.01)
 ;;43353051445
 ;;9002226.02101,"830,43353051445 ",.02)
 ;;43353051445
 ;;9002226.02101,"830,43353051453 ",.01)
 ;;43353051453
 ;;9002226.02101,"830,43353051453 ",.02)
 ;;43353051453
 ;;9002226.02101,"830,43353051460 ",.01)
 ;;43353051460
 ;;9002226.02101,"830,43353051460 ",.02)
 ;;43353051460
 ;;9002226.02101,"830,43353051473 ",.01)
 ;;43353051473
 ;;9002226.02101,"830,43353051473 ",.02)
 ;;43353051473
 ;;9002226.02101,"830,43353051480 ",.01)
 ;;43353051480
 ;;9002226.02101,"830,43353051480 ",.02)
 ;;43353051480
 ;;9002226.02101,"830,43353051486 ",.01)
 ;;43353051486
 ;;9002226.02101,"830,43353051486 ",.02)
 ;;43353051486
 ;;9002226.02101,"830,43353052060 ",.01)
 ;;43353052060
 ;;9002226.02101,"830,43353052060 ",.02)
 ;;43353052060
 ;;9002226.02101,"830,43353052080 ",.01)
 ;;43353052080
 ;;9002226.02101,"830,43353052080 ",.02)
 ;;43353052080
 ;;9002226.02101,"830,43353053060 ",.01)
 ;;43353053060
 ;;9002226.02101,"830,43353053060 ",.02)
 ;;43353053060
 ;;9002226.02101,"830,43353053080 ",.01)
 ;;43353053080
 ;;9002226.02101,"830,43353053080 ",.02)
 ;;43353053080
 ;;9002226.02101,"830,43353058594 ",.01)
 ;;43353058594
 ;;9002226.02101,"830,43353058594 ",.02)
 ;;43353058594
 ;;9002226.02101,"830,43353058930 ",.01)
 ;;43353058930
 ;;9002226.02101,"830,43353058930 ",.02)
 ;;43353058930
 ;;9002226.02101,"830,43353058953 ",.01)
 ;;43353058953
 ;;9002226.02101,"830,43353058953 ",.02)
 ;;43353058953
 ;;9002226.02101,"830,43353058960 ",.01)
 ;;43353058960
 ;;9002226.02101,"830,43353058960 ",.02)
 ;;43353058960
 ;;9002226.02101,"830,43353058970 ",.01)
 ;;43353058970
 ;;9002226.02101,"830,43353058970 ",.02)
 ;;43353058970
 ;;9002226.02101,"830,43353058975 ",.01)
 ;;43353058975
 ;;9002226.02101,"830,43353058975 ",.02)
 ;;43353058975
 ;;9002226.02101,"830,43353058980 ",.01)
 ;;43353058980
 ;;9002226.02101,"830,43353058980 ",.02)
 ;;43353058980
 ;;9002226.02101,"830,43353058992 ",.01)
 ;;43353058992
 ;;9002226.02101,"830,43353058992 ",.02)
 ;;43353058992
 ;;9002226.02101,"830,43353058994 ",.01)
 ;;43353058994
 ;;9002226.02101,"830,43353058994 ",.02)
 ;;43353058994
 ;;9002226.02101,"830,43353058996 ",.01)
 ;;43353058996
 ;;9002226.02101,"830,43353058996 ",.02)
 ;;43353058996
 ;;9002226.02101,"830,43547024810 ",.01)
 ;;43547024810
 ;;9002226.02101,"830,43547024810 ",.02)
 ;;43547024810
 ;;9002226.02101,"830,43547024850 ",.01)
 ;;43547024850
 ;;9002226.02101,"830,43547024850 ",.02)
 ;;43547024850
 ;;9002226.02101,"830,43547024910 ",.01)
 ;;43547024910
 ;;9002226.02101,"830,43547024910 ",.02)
 ;;43547024910
 ;;9002226.02101,"830,43547024950 ",.01)
 ;;43547024950
 ;;9002226.02101,"830,43547024950 ",.02)
 ;;43547024950
 ;;9002226.02101,"830,43547025010 ",.01)
 ;;43547025010
 ;;9002226.02101,"830,43547025010 ",.02)
 ;;43547025010
 ;;9002226.02101,"830,43547025050 ",.01)
 ;;43547025050
 ;;9002226.02101,"830,43547025050 ",.02)
 ;;43547025050
 ;;9002226.02101,"830,43683013130 ",.01)
 ;;43683013130
 ;;9002226.02101,"830,43683013130 ",.02)
 ;;43683013130
 ;;9002226.02101,"830,43683013160 ",.01)
 ;;43683013160
 ;;9002226.02101,"830,43683013160 ",.02)
 ;;43683013160
 ;;9002226.02101,"830,43683013230 ",.01)
 ;;43683013230
 ;;9002226.02101,"830,43683013230 ",.02)
 ;;43683013230
 ;;9002226.02101,"830,43806004840 ",.01)
 ;;43806004840
 ;;9002226.02101,"830,43806004840 ",.02)
 ;;43806004840
 ;;9002226.02101,"830,43806004870 ",.01)
 ;;43806004870
 ;;9002226.02101,"830,43806004870 ",.02)
 ;;43806004870
 ;;9002226.02101,"830,43806004880 ",.01)
 ;;43806004880
 ;;9002226.02101,"830,43806004880 ",.02)
 ;;43806004880
 ;;9002226.02101,"830,43806004940 ",.01)
 ;;43806004940
 ;;9002226.02101,"830,43806004940 ",.02)
 ;;43806004940
 ;;9002226.02101,"830,43806004970 ",.01)
 ;;43806004970
 ;;9002226.02101,"830,43806004970 ",.02)
 ;;43806004970
 ;;9002226.02101,"830,43806004980 ",.01)
 ;;43806004980
 ;;9002226.02101,"830,43806004980 ",.02)
 ;;43806004980
 ;;9002226.02101,"830,43806005040 ",.01)
 ;;43806005040
 ;;9002226.02101,"830,43806005040 ",.02)
 ;;43806005040
 ;;9002226.02101,"830,43806005070 ",.01)
 ;;43806005070
 ;;9002226.02101,"830,43806005070 ",.02)
 ;;43806005070
 ;;9002226.02101,"830,43806005080 ",.01)
 ;;43806005080
 ;;9002226.02101,"830,43806005080 ",.02)
 ;;43806005080
 ;;9002226.02101,"830,49349004302 ",.01)
 ;;49349004302
 ;;9002226.02101,"830,49349004302 ",.02)
 ;;49349004302
 ;;9002226.02101,"830,49349020102 ",.01)
 ;;49349020102
 ;;9002226.02101,"830,49349020102 ",.02)
 ;;49349020102
 ;;9002226.02101,"830,49349023202 ",.01)
 ;;49349023202
 ;;9002226.02101,"830,49349023202 ",.02)
 ;;49349023202
 ;;9002226.02101,"830,49349067524 ",.01)
 ;;49349067524
 ;;9002226.02101,"830,49349067524 ",.02)
 ;;49349067524
 ;;9002226.02101,"830,49856019004 ",.01)
 ;;49856019004
 ;;9002226.02101,"830,49856019004 ",.02)
 ;;49856019004
 ;;9002226.02101,"830,49856019100 ",.01)
 ;;49856019100
 ;;9002226.02101,"830,49856019100 ",.02)
 ;;49856019100
 ;;9002226.02101,"830,49856019101 ",.01)
 ;;49856019101
 ;;9002226.02101,"830,49856019101 ",.02)
 ;;49856019101
 ;;9002226.02101,"830,49856019104 ",.01)
 ;;49856019104
 ;;9002226.02101,"830,49856019104 ",.02)
 ;;49856019104
 ;;9002226.02101,"830,49856019200 ",.01)
 ;;49856019200
 ;;9002226.02101,"830,49856019200 ",.02)
 ;;49856019200
 ;;9002226.02101,"830,49856019201 ",.01)
 ;;49856019201
 ;;9002226.02101,"830,49856019201 ",.02)
 ;;49856019201
 ;;9002226.02101,"830,49856019204 ",.01)
 ;;49856019204
 ;;9002226.02101,"830,49856019204 ",.02)
 ;;49856019204
 ;;9002226.02101,"830,49856026001 ",.01)
 ;;49856026001
 ;;9002226.02101,"830,49856026001 ",.02)
 ;;49856026001
 ;;9002226.02101,"830,49856026002 ",.01)
 ;;49856026002
 ;;9002226.02101,"830,49856026002 ",.02)
 ;;49856026002
 ;;9002226.02101,"830,49856132901 ",.01)
 ;;49856132901
 ;;9002226.02101,"830,49856132901 ",.02)
 ;;49856132901
 ;;9002226.02101,"830,49856132903 ",.01)
 ;;49856132903
 ;;9002226.02101,"830,49856132903 ",.02)
 ;;49856132903
 ;;9002226.02101,"830,49856132905 ",.01)
 ;;49856132905
 ;;9002226.02101,"830,49856132905 ",.02)
 ;;49856132905
 ;;9002226.02101,"830,49884073601 ",.01)
 ;;49884073601
 ;;9002226.02101,"830,49884073601 ",.02)
 ;;49884073601
 ;;9002226.02101,"830,49884073605 ",.01)
 ;;49884073605
 ;;9002226.02101,"830,49884073605 ",.02)
 ;;49884073605
 ;;9002226.02101,"830,49884073701 ",.01)
 ;;49884073701
 ;;9002226.02101,"830,49884073701 ",.02)
 ;;49884073701
 ;;9002226.02101,"830,49884073705 ",.01)
 ;;49884073705