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

BGPM5BCF.m

Go to the documentation of this file.
  1. BGPM5BCF ;IHS/MSC/SAT-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,"1044,43353041545 ",.02)
  1. ;;43353041545
  1. ;;9002226.02101,"1044,43353041553 ",.01)
  1. ;;43353041553
  1. ;;9002226.02101,"1044,43353041553 ",.02)
  1. ;;43353041553
  1. ;;9002226.02101,"1044,43353041560 ",.01)
  1. ;;43353041560
  1. ;;9002226.02101,"1044,43353041560 ",.02)
  1. ;;43353041560
  1. ;;9002226.02101,"1044,43353041573 ",.01)
  1. ;;43353041573
  1. ;;9002226.02101,"1044,43353041573 ",.02)
  1. ;;43353041573
  1. ;;9002226.02101,"1044,43353041580 ",.01)
  1. ;;43353041580
  1. ;;9002226.02101,"1044,43353041580 ",.02)
  1. ;;43353041580
  1. ;;9002226.02101,"1044,43353041915 ",.01)
  1. ;;43353041915
  1. ;;9002226.02101,"1044,43353041915 ",.02)
  1. ;;43353041915
  1. ;;9002226.02101,"1044,43353041930 ",.01)
  1. ;;43353041930
  1. ;;9002226.02101,"1044,43353041930 ",.02)
  1. ;;43353041930
  1. ;;9002226.02101,"1044,43353041945 ",.01)
  1. ;;43353041945
  1. ;;9002226.02101,"1044,43353041945 ",.02)
  1. ;;43353041945
  1. ;;9002226.02101,"1044,43353041953 ",.01)
  1. ;;43353041953
  1. ;;9002226.02101,"1044,43353041953 ",.02)
  1. ;;43353041953
  1. ;;9002226.02101,"1044,43353041960 ",.01)
  1. ;;43353041960
  1. ;;9002226.02101,"1044,43353041960 ",.02)
  1. ;;43353041960
  1. ;;9002226.02101,"1044,43353041973 ",.01)
  1. ;;43353041973
  1. ;;9002226.02101,"1044,43353041973 ",.02)
  1. ;;43353041973
  1. ;;9002226.02101,"1044,43353041980 ",.01)
  1. ;;43353041980
  1. ;;9002226.02101,"1044,43353041980 ",.02)
  1. ;;43353041980
  1. ;;9002226.02101,"1044,43353042130 ",.01)
  1. ;;43353042130
  1. ;;9002226.02101,"1044,43353042130 ",.02)
  1. ;;43353042130
  1. ;;9002226.02101,"1044,43353042184 ",.01)
  1. ;;43353042184
  1. ;;9002226.02101,"1044,43353042184 ",.02)
  1. ;;43353042184
  1. ;;9002226.02101,"1044,43353042915 ",.01)
  1. ;;43353042915
  1. ;;9002226.02101,"1044,43353042915 ",.02)
  1. ;;43353042915
  1. ;;9002226.02101,"1044,43353043530 ",.01)
  1. ;;43353043530
  1. ;;9002226.02101,"1044,43353043530 ",.02)
  1. ;;43353043530
  1. ;;9002226.02101,"1044,43353043830 ",.01)
  1. ;;43353043830
  1. ;;9002226.02101,"1044,43353043830 ",.02)
  1. ;;43353043830
  1. ;;9002226.02101,"1044,43353043832 ",.01)
  1. ;;43353043832
  1. ;;9002226.02101,"1044,43353043832 ",.02)
  1. ;;43353043832
  1. ;;9002226.02101,"1044,43353044153 ",.01)
  1. ;;43353044153
  1. ;;9002226.02101,"1044,43353044153 ",.02)
  1. ;;43353044153
  1. ;;9002226.02101,"1044,43353044715 ",.01)
  1. ;;43353044715
  1. ;;9002226.02101,"1044,43353044715 ",.02)
  1. ;;43353044715
  1. ;;9002226.02101,"1044,43353044730 ",.01)
  1. ;;43353044730
  1. ;;9002226.02101,"1044,43353044730 ",.02)
  1. ;;43353044730
  1. ;;9002226.02101,"1044,43353044745 ",.01)
  1. ;;43353044745
  1. ;;9002226.02101,"1044,43353044745 ",.02)
  1. ;;43353044745
  1. ;;9002226.02101,"1044,43353044753 ",.01)
  1. ;;43353044753
  1. ;;9002226.02101,"1044,43353044753 ",.02)
  1. ;;43353044753
  1. ;;9002226.02101,"1044,43353053515 ",.01)
  1. ;;43353053515
  1. ;;9002226.02101,"1044,43353053515 ",.02)
  1. ;;43353053515
  1. ;;9002226.02101,"1044,43353053560 ",.01)
  1. ;;43353053560
  1. ;;9002226.02101,"1044,43353053560 ",.02)
  1. ;;43353053560
  1. ;;9002226.02101,"1044,43353053615 ",.01)
  1. ;;43353053615
  1. ;;9002226.02101,"1044,43353053615 ",.02)
  1. ;;43353053615
  1. ;;9002226.02101,"1044,43353053645 ",.01)
  1. ;;43353053645
  1. ;;9002226.02101,"1044,43353053645 ",.02)
  1. ;;43353053645
  1. ;;9002226.02101,"1044,43353053653 ",.01)
  1. ;;43353053653
  1. ;;9002226.02101,"1044,43353053653 ",.02)
  1. ;;43353053653
  1. ;;9002226.02101,"1044,43353054415 ",.01)
  1. ;;43353054415
  1. ;;9002226.02101,"1044,43353054415 ",.02)
  1. ;;43353054415
  1. ;;9002226.02101,"1044,43353055415 ",.01)
  1. ;;43353055415
  1. ;;9002226.02101,"1044,43353055415 ",.02)
  1. ;;43353055415
  1. ;;9002226.02101,"1044,43353057315 ",.01)
  1. ;;43353057315
  1. ;;9002226.02101,"1044,43353057315 ",.02)
  1. ;;43353057315
  1. ;;9002226.02101,"1044,43353057330 ",.01)
  1. ;;43353057330
  1. ;;9002226.02101,"1044,43353057330 ",.02)
  1. ;;43353057330
  1. ;;9002226.02101,"1044,43353057345 ",.01)
  1. ;;43353057345
  1. ;;9002226.02101,"1044,43353057345 ",.02)
  1. ;;43353057345
  1. ;;9002226.02101,"1044,43353057360 ",.01)
  1. ;;43353057360
  1. ;;9002226.02101,"1044,43353057360 ",.02)
  1. ;;43353057360
  1. ;;9002226.02101,"1044,43353060315 ",.01)
  1. ;;43353060315
  1. ;;9002226.02101,"1044,43353060315 ",.02)
  1. ;;43353060315
  1. ;;9002226.02101,"1044,43353061430 ",.01)
  1. ;;43353061430
  1. ;;9002226.02101,"1044,43353061430 ",.02)
  1. ;;43353061430
  1. ;;9002226.02101,"1044,43353063730 ",.01)
  1. ;;43353063730
  1. ;;9002226.02101,"1044,43353063730 ",.02)
  1. ;;43353063730
  1. ;;9002226.02101,"1044,43353064215 ",.01)
  1. ;;43353064215
  1. ;;9002226.02101,"1044,43353064215 ",.02)
  1. ;;43353064215
  1. ;;9002226.02101,"1044,43353064245 ",.01)
  1. ;;43353064245
  1. ;;9002226.02101,"1044,43353064245 ",.02)
  1. ;;43353064245
  1. ;;9002226.02101,"1044,43353065215 ",.01)
  1. ;;43353065215
  1. ;;9002226.02101,"1044,43353065215 ",.02)
  1. ;;43353065215
  1. ;;9002226.02101,"1044,43353065230 ",.01)
  1. ;;43353065230
  1. ;;9002226.02101,"1044,43353065230 ",.02)
  1. ;;43353065230
  1. ;;9002226.02101,"1044,43353065245 ",.01)
  1. ;;43353065245
  1. ;;9002226.02101,"1044,43353065245 ",.02)
  1. ;;43353065245
  1. ;;9002226.02101,"1044,43353065253 ",.01)
  1. ;;43353065253
  1. ;;9002226.02101,"1044,43353065253 ",.02)
  1. ;;43353065253
  1. ;;9002226.02101,"1044,43353065260 ",.01)
  1. ;;43353065260
  1. ;;9002226.02101,"1044,43353065260 ",.02)
  1. ;;43353065260
  1. ;;9002226.02101,"1044,43353065270 ",.01)
  1. ;;43353065270
  1. ;;9002226.02101,"1044,43353065270 ",.02)
  1. ;;43353065270
  1. ;;9002226.02101,"1044,43353065330 ",.01)
  1. ;;43353065330
  1. ;;9002226.02101,"1044,43353065330 ",.02)
  1. ;;43353065330
  1. ;;9002226.02101,"1044,43353065360 ",.01)
  1. ;;43353065360
  1. ;;9002226.02101,"1044,43353065360 ",.02)
  1. ;;43353065360
  1. ;;9002226.02101,"1044,43353065380 ",.01)
  1. ;;43353065380
  1. ;;9002226.02101,"1044,43353065380 ",.02)
  1. ;;43353065380
  1. ;;9002226.02101,"1044,43353068953 ",.01)
  1. ;;43353068953
  1. ;;9002226.02101,"1044,43353068953 ",.02)
  1. ;;43353068953
  1. ;;9002226.02101,"1044,43353069030 ",.01)
  1. ;;43353069030
  1. ;;9002226.02101,"1044,43353069030 ",.02)
  1. ;;43353069030
  1. ;;9002226.02101,"1044,43353069053 ",.01)
  1. ;;43353069053
  1. ;;9002226.02101,"1044,43353069053 ",.02)
  1. ;;43353069053
  1. ;;9002226.02101,"1044,43353069060 ",.01)
  1. ;;43353069060
  1. ;;9002226.02101,"1044,43353069060 ",.02)
  1. ;;43353069060
  1. ;;9002226.02101,"1044,43353069084 ",.01)
  1. ;;43353069084
  1. ;;9002226.02101,"1044,43353069084 ",.02)
  1. ;;43353069084
  1. ;;9002226.02101,"1044,43353071315 ",.01)
  1. ;;43353071315
  1. ;;9002226.02101,"1044,43353071315 ",.02)
  1. ;;43353071315
  1. ;;9002226.02101,"1044,43386036021 ",.01)
  1. ;;43386036021
  1. ;;9002226.02101,"1044,43386036021 ",.02)
  1. ;;43386036021
  1. ;;9002226.02101,"1044,43683015330 ",.01)
  1. ;;43683015330
  1. ;;9002226.02101,"1044,43683015330 ",.02)
  1. ;;43683015330
  1. ;;9002226.02101,"1044,43806003140 ",.01)
  1. ;;43806003140
  1. ;;9002226.02101,"1044,43806003140 ",.02)
  1. ;;43806003140
  1. ;;9002226.02101,"1044,43806003170 ",.01)
  1. ;;43806003170
  1. ;;9002226.02101,"1044,43806003170 ",.02)
  1. ;;43806003170
  1. ;;9002226.02101,"1044,43806003240 ",.01)
  1. ;;43806003240
  1. ;;9002226.02101,"1044,43806003240 ",.02)
  1. ;;43806003240
  1. ;;9002226.02101,"1044,43806003270 ",.01)
  1. ;;43806003270
  1. ;;9002226.02101,"1044,43806003270 ",.02)
  1. ;;43806003270
  1. ;;9002226.02101,"1044,43806003340 ",.01)
  1. ;;43806003340
  1. ;;9002226.02101,"1044,43806003340 ",.02)
  1. ;;43806003340
  1. ;;9002226.02101,"1044,43806004240 ",.01)
  1. ;;43806004240
  1. ;;9002226.02101,"1044,43806004240 ",.02)
  1. ;;43806004240
  1. ;;9002226.02101,"1044,43806004241 ",.01)
  1. ;;43806004241
  1. ;;9002226.02101,"1044,43806004241 ",.02)
  1. ;;43806004241
  1. ;;9002226.02101,"1044,43806004280 ",.01)
  1. ;;43806004280
  1. ;;9002226.02101,"1044,43806004280 ",.02)
  1. ;;43806004280
  1. ;;9002226.02101,"1044,43806004340 ",.01)
  1. ;;43806004340
  1. ;;9002226.02101,"1044,43806004340 ",.02)
  1. ;;43806004340
  1. ;;9002226.02101,"1044,43806004370 ",.01)
  1. ;;43806004370
  1. ;;9002226.02101,"1044,43806004370 ",.02)
  1. ;;43806004370
  1. ;;9002226.02101,"1044,43806004380 ",.01)
  1. ;;43806004380
  1. ;;9002226.02101,"1044,43806004380 ",.02)
  1. ;;43806004380
  1. ;;9002226.02101,"1044,43806017935 ",.01)
  1. ;;43806017935
  1. ;;9002226.02101,"1044,43806017935 ",.02)
  1. ;;43806017935
  1. ;;9002226.02101,"1044,43806017940 ",.01)
  1. ;;43806017940
  1. ;;9002226.02101,"1044,43806017940 ",.02)
  1. ;;43806017940
  1. ;;9002226.02101,"1044,43806017941 ",.01)
  1. ;;43806017941
  1. ;;9002226.02101,"1044,43806017941 ",.02)
  1. ;;43806017941
  1. ;;9002226.02101,"1044,43806017970 ",.01)
  1. ;;43806017970
  1. ;;9002226.02101,"1044,43806017970 ",.02)
  1. ;;43806017970
  1. ;;9002226.02101,"1044,43806017980 ",.01)
  1. ;;43806017980
  1. ;;9002226.02101,"1044,43806017980 ",.02)
  1. ;;43806017980
  1. ;;9002226.02101,"1044,43806019827 ",.01)
  1. ;;43806019827
  1. ;;9002226.02101,"1044,43806019827 ",.02)
  1. ;;43806019827
  1. ;;9002226.02101,"1044,43806019840 ",.01)
  1. ;;43806019840
  1. ;;9002226.02101,"1044,43806019840 ",.02)
  1. ;;43806019840
  1. ;;9002226.02101,"1044,43806019841 ",.01)
  1. ;;43806019841
  1. ;;9002226.02101,"1044,43806019841 ",.02)
  1. ;;43806019841
  1. ;;9002226.02101,"1044,43806019870 ",.01)
  1. ;;43806019870
  1. ;;9002226.02101,"1044,43806019870 ",.02)
  1. ;;43806019870
  1. ;;9002226.02101,"1044,43806035640 ",.01)
  1. ;;43806035640
  1. ;;9002226.02101,"1044,43806035640 ",.02)
  1. ;;43806035640
  1. ;;9002226.02101,"1044,43806035641 ",.01)
  1. ;;43806035641
  1. ;;9002226.02101,"1044,43806035641 ",.02)
  1. ;;43806035641
  1. ;;9002226.02101,"1044,43806035670 ",.01)
  1. ;;43806035670
  1. ;;9002226.02101,"1044,43806035670 ",.02)
  1. ;;43806035670
  1. ;;9002226.02101,"1044,43806035680 ",.01)
  1. ;;43806035680
  1. ;;9002226.02101,"1044,43806035680 ",.02)
  1. ;;43806035680
  1. ;;9002226.02101,"1044,43806040627 ",.01)
  1. ;;43806040627
  1. ;;9002226.02101,"1044,43806040627 ",.02)
  1. ;;43806040627
  1. ;;9002226.02101,"1044,43806040641 ",.01)
  1. ;;43806040641
  1. ;;9002226.02101,"1044,43806040641 ",.02)
  1. ;;43806040641
  1. ;;9002226.02101,"1044,43806040727 ",.01)
  1. ;;43806040727
  1. ;;9002226.02101,"1044,43806040727 ",.02)
  1. ;;43806040727
  1. ;;9002226.02101,"1044,43806040741 ",.01)
  1. ;;43806040741
  1. ;;9002226.02101,"1044,43806040741 ",.02)
  1. ;;43806040741
  1. ;;9002226.02101,"1044,43806040827 ",.01)
  1. ;;43806040827
  1. ;;9002226.02101,"1044,43806040827 ",.02)
  1. ;;43806040827
  1. ;;9002226.02101,"1044,43806040841 ",.01)
  1. ;;43806040841
  1. ;;9002226.02101,"1044,43806040841 ",.02)
  1. ;;43806040841
  1. ;;9002226.02101,"1044,43806063740 ",.01)
  1. ;;43806063740
  1. ;;9002226.02101,"1044,43806063740 ",.02)
  1. ;;43806063740
  1. ;;9002226.02101,"1044,43806063780 ",.01)
  1. ;;43806063780
  1. ;;9002226.02101,"1044,43806063780 ",.02)
  1. ;;43806063780
  1. ;;9002226.02101,"1044,43806063840 ",.01)
  1. ;;43806063840
  1. ;;9002226.02101,"1044,43806063840 ",.02)
  1. ;;43806063840
  1. ;;9002226.02101,"1044,43806063880 ",.01)
  1. ;;43806063880
  1. ;;9002226.02101,"1044,43806063880 ",.02)
  1. ;;43806063880
  1. ;;9002226.02101,"1044,43806064800 ",.01)
  1. ;;43806064800
  1. ;;9002226.02101,"1044,43806064800 ",.02)
  1. ;;43806064800
  1. ;;9002226.02101,"1044,45802030665 ",.01)
  1. ;;45802030665
  1. ;;9002226.02101,"1044,45802030665 ",.02)
  1. ;;45802030665
  1. ;;9002226.02101,"1044,45802030678 ",.01)
  1. ;;45802030678
  1. ;;9002226.02101,"1044,45802030678 ",.02)
  1. ;;45802030678
  1. ;;9002226.02101,"1044,45802059665 ",.01)
  1. ;;45802059665
  1. ;;9002226.02101,"1044,45802059665 ",.02)
  1. ;;45802059665
  1. ;;9002226.02101,"1044,45802059678 ",.01)
  1. ;;45802059678
  1. ;;9002226.02101,"1044,45802059678 ",.02)
  1. ;;45802059678
  1. ;;9002226.02101,"1044,45802061665 ",.01)
  1. ;;45802061665
  1. ;;9002226.02101,"1044,45802061665 ",.02)
  1. ;;45802061665
  1. ;;9002226.02101,"1044,45802061678 ",.01)
  1. ;;45802061678
  1. ;;9002226.02101,"1044,45802061678 ",.02)
  1. ;;45802061678
  1. ;;9002226.02101,"1044,45865035930 ",.01)
  1. ;;45865035930
  1. ;;9002226.02101,"1044,45865035930 ",.02)
  1. ;;45865035930
  1. ;;9002226.02101,"1044,45865035951 ",.01)
  1. ;;45865035951
  1. ;;9002226.02101,"1044,45865035951 ",.02)
  1. ;;45865035951
  1. ;;9002226.02101,"1044,45865035960 ",.01)
  1. ;;45865035960
  1. ;;9002226.02101,"1044,45865035960 ",.02)
  1. ;;45865035960
  1. ;;9002226.02101,"1044,45865035990 ",.01)
  1. ;;45865035990
  1. ;;9002226.02101,"1044,45865035990 ",.02)
  1. ;;45865035990