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

BGPM5BF.m

Go to the documentation of this file.
  1. BGPM5BF ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,42291061018 ",.02)
  1. ;;42291061018
  1. ;;9002226.02101,"1084,42291061036 ",.01)
  1. ;;42291061036
  1. ;;9002226.02101,"1084,42291061036 ",.02)
  1. ;;42291061036
  1. ;;9002226.02101,"1084,42291061090 ",.01)
  1. ;;42291061090
  1. ;;9002226.02101,"1084,42291061090 ",.02)
  1. ;;42291061090
  1. ;;9002226.02101,"1084,42291061118 ",.01)
  1. ;;42291061118
  1. ;;9002226.02101,"1084,42291061118 ",.02)
  1. ;;42291061118
  1. ;;9002226.02101,"1084,43063001201 ",.01)
  1. ;;43063001201
  1. ;;9002226.02101,"1084,43063001201 ",.02)
  1. ;;43063001201
  1. ;;9002226.02101,"1084,43063003430 ",.01)
  1. ;;43063003430
  1. ;;9002226.02101,"1084,43063003430 ",.02)
  1. ;;43063003430
  1. ;;9002226.02101,"1084,43063003490 ",.01)
  1. ;;43063003490
  1. ;;9002226.02101,"1084,43063003490 ",.02)
  1. ;;43063003490
  1. ;;9002226.02101,"1084,43063011990 ",.01)
  1. ;;43063011990
  1. ;;9002226.02101,"1084,43063011990 ",.02)
  1. ;;43063011990
  1. ;;9002226.02101,"1084,43063012090 ",.01)
  1. ;;43063012090
  1. ;;9002226.02101,"1084,43063012090 ",.02)
  1. ;;43063012090
  1. ;;9002226.02101,"1084,43063012130 ",.01)
  1. ;;43063012130
  1. ;;9002226.02101,"1084,43063012130 ",.02)
  1. ;;43063012130
  1. ;;9002226.02101,"1084,43063012190 ",.01)
  1. ;;43063012190
  1. ;;9002226.02101,"1084,43063012190 ",.02)
  1. ;;43063012190
  1. ;;9002226.02101,"1084,43063012230 ",.01)
  1. ;;43063012230
  1. ;;9002226.02101,"1084,43063012230 ",.02)
  1. ;;43063012230
  1. ;;9002226.02101,"1084,43063012290 ",.01)
  1. ;;43063012290
  1. ;;9002226.02101,"1084,43063012290 ",.02)
  1. ;;43063012290
  1. ;;9002226.02101,"1084,43353006553 ",.01)
  1. ;;43353006553
  1. ;;9002226.02101,"1084,43353006553 ",.02)
  1. ;;43353006553
  1. ;;9002226.02101,"1084,43353006560 ",.01)
  1. ;;43353006560
  1. ;;9002226.02101,"1084,43353006560 ",.02)
  1. ;;43353006560
  1. ;;9002226.02101,"1084,43353006580 ",.01)
  1. ;;43353006580
  1. ;;9002226.02101,"1084,43353006580 ",.02)
  1. ;;43353006580
  1. ;;9002226.02101,"1084,43353006594 ",.01)
  1. ;;43353006594
  1. ;;9002226.02101,"1084,43353006594 ",.02)
  1. ;;43353006594
  1. ;;9002226.02101,"1084,43353012530 ",.01)
  1. ;;43353012530
  1. ;;9002226.02101,"1084,43353012530 ",.02)
  1. ;;43353012530
  1. ;;9002226.02101,"1084,43353012560 ",.01)
  1. ;;43353012560
  1. ;;9002226.02101,"1084,43353012560 ",.02)
  1. ;;43353012560
  1. ;;9002226.02101,"1084,43353012630 ",.01)
  1. ;;43353012630
  1. ;;9002226.02101,"1084,43353012630 ",.02)
  1. ;;43353012630
  1. ;;9002226.02101,"1084,43353012660 ",.01)
  1. ;;43353012660
  1. ;;9002226.02101,"1084,43353012660 ",.02)
  1. ;;43353012660
  1. ;;9002226.02101,"1084,43353017145 ",.01)
  1. ;;43353017145
  1. ;;9002226.02101,"1084,43353017145 ",.02)
  1. ;;43353017145
  1. ;;9002226.02101,"1084,43353017153 ",.01)
  1. ;;43353017153
  1. ;;9002226.02101,"1084,43353017153 ",.02)
  1. ;;43353017153
  1. ;;9002226.02101,"1084,43353017160 ",.01)
  1. ;;43353017160
  1. ;;9002226.02101,"1084,43353017160 ",.02)
  1. ;;43353017160
  1. ;;9002226.02101,"1084,43353017180 ",.01)
  1. ;;43353017180
  1. ;;9002226.02101,"1084,43353017180 ",.02)
  1. ;;43353017180
  1. ;;9002226.02101,"1084,43353026160 ",.01)
  1. ;;43353026160
  1. ;;9002226.02101,"1084,43353026160 ",.02)
  1. ;;43353026160
  1. ;;9002226.02101,"1084,43353034030 ",.01)
  1. ;;43353034030
  1. ;;9002226.02101,"1084,43353034030 ",.02)
  1. ;;43353034030
  1. ;;9002226.02101,"1084,43353034053 ",.01)
  1. ;;43353034053
  1. ;;9002226.02101,"1084,43353034053 ",.02)
  1. ;;43353034053
  1. ;;9002226.02101,"1084,43353034060 ",.01)
  1. ;;43353034060
  1. ;;9002226.02101,"1084,43353034060 ",.02)
  1. ;;43353034060
  1. ;;9002226.02101,"1084,43353034070 ",.01)
  1. ;;43353034070
  1. ;;9002226.02101,"1084,43353034070 ",.02)
  1. ;;43353034070
  1. ;;9002226.02101,"1084,43353034075 ",.01)
  1. ;;43353034075
  1. ;;9002226.02101,"1084,43353034075 ",.02)
  1. ;;43353034075
  1. ;;9002226.02101,"1084,43353034080 ",.01)
  1. ;;43353034080
  1. ;;9002226.02101,"1084,43353034080 ",.02)
  1. ;;43353034080
  1. ;;9002226.02101,"1084,43353034092 ",.01)
  1. ;;43353034092
  1. ;;9002226.02101,"1084,43353034092 ",.02)
  1. ;;43353034092
  1. ;;9002226.02101,"1084,43353034094 ",.01)
  1. ;;43353034094
  1. ;;9002226.02101,"1084,43353034094 ",.02)
  1. ;;43353034094
  1. ;;9002226.02101,"1084,43353034096 ",.01)
  1. ;;43353034096
  1. ;;9002226.02101,"1084,43353034096 ",.02)
  1. ;;43353034096
  1. ;;9002226.02101,"1084,43353034453 ",.01)
  1. ;;43353034453
  1. ;;9002226.02101,"1084,43353034453 ",.02)
  1. ;;43353034453
  1. ;;9002226.02101,"1084,43353034460 ",.01)
  1. ;;43353034460
  1. ;;9002226.02101,"1084,43353034460 ",.02)
  1. ;;43353034460
  1. ;;9002226.02101,"1084,43353034480 ",.01)
  1. ;;43353034480
  1. ;;9002226.02101,"1084,43353034480 ",.02)
  1. ;;43353034480
  1. ;;9002226.02101,"1084,43353034492 ",.01)
  1. ;;43353034492
  1. ;;9002226.02101,"1084,43353034492 ",.02)
  1. ;;43353034492
  1. ;;9002226.02101,"1084,43353034930 ",.01)
  1. ;;43353034930
  1. ;;9002226.02101,"1084,43353034930 ",.02)
  1. ;;43353034930
  1. ;;9002226.02101,"1084,43353034945 ",.01)
  1. ;;43353034945
  1. ;;9002226.02101,"1084,43353034945 ",.02)
  1. ;;43353034945
  1. ;;9002226.02101,"1084,43353034953 ",.01)
  1. ;;43353034953
  1. ;;9002226.02101,"1084,43353034953 ",.02)
  1. ;;43353034953
  1. ;;9002226.02101,"1084,43353034960 ",.01)
  1. ;;43353034960
  1. ;;9002226.02101,"1084,43353034960 ",.02)
  1. ;;43353034960
  1. ;;9002226.02101,"1084,43353034973 ",.01)
  1. ;;43353034973
  1. ;;9002226.02101,"1084,43353034973 ",.02)
  1. ;;43353034973
  1. ;;9002226.02101,"1084,43353034980 ",.01)
  1. ;;43353034980
  1. ;;9002226.02101,"1084,43353034980 ",.02)
  1. ;;43353034980
  1. ;;9002226.02101,"1084,43353034986 ",.01)
  1. ;;43353034986
  1. ;;9002226.02101,"1084,43353034986 ",.02)
  1. ;;43353034986
  1. ;;9002226.02101,"1084,43353036953 ",.01)
  1. ;;43353036953
  1. ;;9002226.02101,"1084,43353036953 ",.02)
  1. ;;43353036953
  1. ;;9002226.02101,"1084,43353036960 ",.01)
  1. ;;43353036960
  1. ;;9002226.02101,"1084,43353036960 ",.02)
  1. ;;43353036960
  1. ;;9002226.02101,"1084,43353036970 ",.01)
  1. ;;43353036970
  1. ;;9002226.02101,"1084,43353036970 ",.02)
  1. ;;43353036970
  1. ;;9002226.02101,"1084,43353036980 ",.01)
  1. ;;43353036980
  1. ;;9002226.02101,"1084,43353036980 ",.02)
  1. ;;43353036980
  1. ;;9002226.02101,"1084,43353036992 ",.01)
  1. ;;43353036992
  1. ;;9002226.02101,"1084,43353036992 ",.02)
  1. ;;43353036992
  1. ;;9002226.02101,"1084,43353036994 ",.01)
  1. ;;43353036994
  1. ;;9002226.02101,"1084,43353036994 ",.02)
  1. ;;43353036994
  1. ;;9002226.02101,"1084,43353037960 ",.01)
  1. ;;43353037960
  1. ;;9002226.02101,"1084,43353037960 ",.02)
  1. ;;43353037960
  1. ;;9002226.02101,"1084,43353037980 ",.01)
  1. ;;43353037980
  1. ;;9002226.02101,"1084,43353037980 ",.02)
  1. ;;43353037980
  1. ;;9002226.02101,"1084,43353047730 ",.01)
  1. ;;43353047730
  1. ;;9002226.02101,"1084,43353047730 ",.02)
  1. ;;43353047730
  1. ;;9002226.02101,"1084,43353047732 ",.01)
  1. ;;43353047732
  1. ;;9002226.02101,"1084,43353047732 ",.02)
  1. ;;43353047732
  1. ;;9002226.02101,"1084,43353047753 ",.01)
  1. ;;43353047753
  1. ;;9002226.02101,"1084,43353047753 ",.02)
  1. ;;43353047753
  1. ;;9002226.02101,"1084,43353047760 ",.01)
  1. ;;43353047760
  1. ;;9002226.02101,"1084,43353047760 ",.02)
  1. ;;43353047760
  1. ;;9002226.02101,"1084,43353047770 ",.01)
  1. ;;43353047770
  1. ;;9002226.02101,"1084,43353047770 ",.02)
  1. ;;43353047770
  1. ;;9002226.02101,"1084,43353047780 ",.01)
  1. ;;43353047780
  1. ;;9002226.02101,"1084,43353047780 ",.02)
  1. ;;43353047780
  1. ;;9002226.02101,"1084,43353047792 ",.01)
  1. ;;43353047792
  1. ;;9002226.02101,"1084,43353047792 ",.02)
  1. ;;43353047792
  1. ;;9002226.02101,"1084,43353047794 ",.01)
  1. ;;43353047794
  1. ;;9002226.02101,"1084,43353047794 ",.02)
  1. ;;43353047794
  1. ;;9002226.02101,"1084,43353047796 ",.01)
  1. ;;43353047796
  1. ;;9002226.02101,"1084,43353047796 ",.02)
  1. ;;43353047796
  1. ;;9002226.02101,"1084,43353048060 ",.01)
  1. ;;43353048060
  1. ;;9002226.02101,"1084,43353048060 ",.02)
  1. ;;43353048060
  1. ;;9002226.02101,"1084,43353051430 ",.01)
  1. ;;43353051430
  1. ;;9002226.02101,"1084,43353051430 ",.02)
  1. ;;43353051430
  1. ;;9002226.02101,"1084,43353051445 ",.01)
  1. ;;43353051445
  1. ;;9002226.02101,"1084,43353051445 ",.02)
  1. ;;43353051445
  1. ;;9002226.02101,"1084,43353051453 ",.01)
  1. ;;43353051453
  1. ;;9002226.02101,"1084,43353051453 ",.02)
  1. ;;43353051453
  1. ;;9002226.02101,"1084,43353051460 ",.01)
  1. ;;43353051460
  1. ;;9002226.02101,"1084,43353051460 ",.02)
  1. ;;43353051460
  1. ;;9002226.02101,"1084,43353051473 ",.01)
  1. ;;43353051473
  1. ;;9002226.02101,"1084,43353051473 ",.02)
  1. ;;43353051473
  1. ;;9002226.02101,"1084,43353051480 ",.01)
  1. ;;43353051480
  1. ;;9002226.02101,"1084,43353051480 ",.02)
  1. ;;43353051480
  1. ;;9002226.02101,"1084,43353051486 ",.01)
  1. ;;43353051486
  1. ;;9002226.02101,"1084,43353051486 ",.02)
  1. ;;43353051486
  1. ;;9002226.02101,"1084,43353052060 ",.01)
  1. ;;43353052060
  1. ;;9002226.02101,"1084,43353052060 ",.02)
  1. ;;43353052060
  1. ;;9002226.02101,"1084,43353052080 ",.01)
  1. ;;43353052080
  1. ;;9002226.02101,"1084,43353052080 ",.02)
  1. ;;43353052080
  1. ;;9002226.02101,"1084,43353053060 ",.01)
  1. ;;43353053060
  1. ;;9002226.02101,"1084,43353053060 ",.02)
  1. ;;43353053060
  1. ;;9002226.02101,"1084,43353053080 ",.01)
  1. ;;43353053080
  1. ;;9002226.02101,"1084,43353053080 ",.02)
  1. ;;43353053080
  1. ;;9002226.02101,"1084,43353058280 ",.01)
  1. ;;43353058280
  1. ;;9002226.02101,"1084,43353058280 ",.02)
  1. ;;43353058280
  1. ;;9002226.02101,"1084,43353058594 ",.01)
  1. ;;43353058594
  1. ;;9002226.02101,"1084,43353058594 ",.02)
  1. ;;43353058594
  1. ;;9002226.02101,"1084,43353058930 ",.01)
  1. ;;43353058930
  1. ;;9002226.02101,"1084,43353058930 ",.02)
  1. ;;43353058930
  1. ;;9002226.02101,"1084,43353058953 ",.01)
  1. ;;43353058953
  1. ;;9002226.02101,"1084,43353058953 ",.02)
  1. ;;43353058953
  1. ;;9002226.02101,"1084,43353058960 ",.01)
  1. ;;43353058960
  1. ;;9002226.02101,"1084,43353058960 ",.02)
  1. ;;43353058960
  1. ;;9002226.02101,"1084,43353058970 ",.01)
  1. ;;43353058970
  1. ;;9002226.02101,"1084,43353058970 ",.02)
  1. ;;43353058970
  1. ;;9002226.02101,"1084,43353058975 ",.01)
  1. ;;43353058975
  1. ;;9002226.02101,"1084,43353058975 ",.02)
  1. ;;43353058975
  1. ;;9002226.02101,"1084,43353058980 ",.01)
  1. ;;43353058980
  1. ;;9002226.02101,"1084,43353058980 ",.02)
  1. ;;43353058980
  1. ;;9002226.02101,"1084,43353058992 ",.01)
  1. ;;43353058992
  1. ;;9002226.02101,"1084,43353058992 ",.02)
  1. ;;43353058992
  1. ;;9002226.02101,"1084,43353058994 ",.01)
  1. ;;43353058994
  1. ;;9002226.02101,"1084,43353058994 ",.02)
  1. ;;43353058994
  1. ;;9002226.02101,"1084,43353058996 ",.01)
  1. ;;43353058996
  1. ;;9002226.02101,"1084,43353058996 ",.02)
  1. ;;43353058996
  1. ;;9002226.02101,"1084,43547024810 ",.01)
  1. ;;43547024810
  1. ;;9002226.02101,"1084,43547024810 ",.02)
  1. ;;43547024810
  1. ;;9002226.02101,"1084,43547024850 ",.01)
  1. ;;43547024850
  1. ;;9002226.02101,"1084,43547024850 ",.02)
  1. ;;43547024850
  1. ;;9002226.02101,"1084,43547024910 ",.01)
  1. ;;43547024910
  1. ;;9002226.02101,"1084,43547024910 ",.02)
  1. ;;43547024910
  1. ;;9002226.02101,"1084,43547024950 ",.01)
  1. ;;43547024950
  1. ;;9002226.02101,"1084,43547024950 ",.02)
  1. ;;43547024950
  1. ;;9002226.02101,"1084,43547025010 ",.01)
  1. ;;43547025010
  1. ;;9002226.02101,"1084,43547025010 ",.02)
  1. ;;43547025010
  1. ;;9002226.02101,"1084,43547025050 ",.01)
  1. ;;43547025050
  1. ;;9002226.02101,"1084,43547025050 ",.02)
  1. ;;43547025050
  1. ;;9002226.02101,"1084,43683012360 ",.01)
  1. ;;43683012360
  1. ;;9002226.02101,"1084,43683012360 ",.02)
  1. ;;43683012360
  1. ;;9002226.02101,"1084,43683012430 ",.01)
  1. ;;43683012430
  1. ;;9002226.02101,"1084,43683012430 ",.02)
  1. ;;43683012430
  1. ;;9002226.02101,"1084,43683013130 ",.01)
  1. ;;43683013130
  1. ;;9002226.02101,"1084,43683013130 ",.02)
  1. ;;43683013130
  1. ;;9002226.02101,"1084,43683013160 ",.01)
  1. ;;43683013160
  1. ;;9002226.02101,"1084,43683013160 ",.02)
  1. ;;43683013160
  1. ;;9002226.02101,"1084,43683013230 ",.01)
  1. ;;43683013230
  1. ;;9002226.02101,"1084,43683013230 ",.02)
  1. ;;43683013230
  1. ;;9002226.02101,"1084,43806003440 ",.01)
  1. ;;43806003440
  1. ;;9002226.02101,"1084,43806003440 ",.02)
  1. ;;43806003440
  1. ;;9002226.02101,"1084,43806003441 ",.01)
  1. ;;43806003441
  1. ;;9002226.02101,"1084,43806003441 ",.02)
  1. ;;43806003441
  1. ;;9002226.02101,"1084,43806003540 ",.01)
  1. ;;43806003540
  1. ;;9002226.02101,"1084,43806003540 ",.02)
  1. ;;43806003540
  1. ;;9002226.02101,"1084,43806003541 ",.01)
  1. ;;43806003541
  1. ;;9002226.02101,"1084,43806003541 ",.02)
  1. ;;43806003541