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