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

BGPM5BDM.m

Go to the documentation of this file.
BGPM5BDM ;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,60505265400 ",.02)
 ;;60505265400
 ;;9002226.02101,"1044,60505265401 ",.01)
 ;;60505265401
 ;;9002226.02101,"1044,60505265401 ",.02)
 ;;60505265401
 ;;9002226.02101,"1044,60505265405 ",.01)
 ;;60505265405
 ;;9002226.02101,"1044,60505265405 ",.02)
 ;;60505265405
 ;;9002226.02101,"1044,60505265407 ",.01)
 ;;60505265407
 ;;9002226.02101,"1044,60505265407 ",.02)
 ;;60505265407
 ;;9002226.02101,"1044,60505265501 ",.01)
 ;;60505265501
 ;;9002226.02101,"1044,60505265501 ",.02)
 ;;60505265501
 ;;9002226.02101,"1044,60505265505 ",.01)
 ;;60505265505
 ;;9002226.02101,"1044,60505265505 ",.02)
 ;;60505265505
 ;;9002226.02101,"1044,60505265507 ",.01)
 ;;60505265507
 ;;9002226.02101,"1044,60505265507 ",.02)
 ;;60505265507
 ;;9002226.02101,"1044,60505265901 ",.01)
 ;;60505265901
 ;;9002226.02101,"1044,60505265901 ",.02)
 ;;60505265901
 ;;9002226.02101,"1044,60505265905 ",.01)
 ;;60505265905
 ;;9002226.02101,"1044,60505265905 ",.02)
 ;;60505265905
 ;;9002226.02101,"1044,60505265907 ",.01)
 ;;60505265907
 ;;9002226.02101,"1044,60505265907 ",.02)
 ;;60505265907
 ;;9002226.02101,"1044,60505343803 ",.01)
 ;;60505343803
 ;;9002226.02101,"1044,60505343803 ",.02)
 ;;60505343803
 ;;9002226.02101,"1044,60505343808 ",.01)
 ;;60505343808
 ;;9002226.02101,"1044,60505343808 ",.02)
 ;;60505343808
 ;;9002226.02101,"1044,60505367303 ",.01)
 ;;60505367303
 ;;9002226.02101,"1044,60505367303 ",.02)
 ;;60505367303
 ;;9002226.02101,"1044,60505367403 ",.01)
 ;;60505367403
 ;;9002226.02101,"1044,60505367403 ",.02)
 ;;60505367403
 ;;9002226.02101,"1044,60505367503 ",.01)
 ;;60505367503
 ;;9002226.02101,"1044,60505367503 ",.02)
 ;;60505367503
 ;;9002226.02101,"1044,60505377803 ",.01)
 ;;60505377803
 ;;9002226.02101,"1044,60505377803 ",.02)
 ;;60505377803
 ;;9002226.02101,"1044,60505377809 ",.01)
 ;;60505377809
 ;;9002226.02101,"1044,60505377809 ",.02)
 ;;60505377809
 ;;9002226.02101,"1044,60505377903 ",.01)
 ;;60505377903
 ;;9002226.02101,"1044,60505377903 ",.02)
 ;;60505377903
 ;;9002226.02101,"1044,60505377909 ",.01)
 ;;60505377909
 ;;9002226.02101,"1044,60505377909 ",.02)
 ;;60505377909
 ;;9002226.02101,"1044,60505378003 ",.01)
 ;;60505378003
 ;;9002226.02101,"1044,60505378003 ",.02)
 ;;60505378003
 ;;9002226.02101,"1044,60505378009 ",.01)
 ;;60505378009
 ;;9002226.02101,"1044,60505378009 ",.02)
 ;;60505378009
 ;;9002226.02101,"1044,60760004430 ",.01)
 ;;60760004430
 ;;9002226.02101,"1044,60760004430 ",.02)
 ;;60760004430
 ;;9002226.02101,"1044,60760011730 ",.01)
 ;;60760011730
 ;;9002226.02101,"1044,60760011730 ",.02)
 ;;60760011730
 ;;9002226.02101,"1044,60760012110 ",.01)
 ;;60760012110
 ;;9002226.02101,"1044,60760012110 ",.02)
 ;;60760012110
 ;;9002226.02101,"1044,60760012120 ",.01)
 ;;60760012120
 ;;9002226.02101,"1044,60760012120 ",.02)
 ;;60760012120
 ;;9002226.02101,"1044,60760012130 ",.01)
 ;;60760012130
 ;;9002226.02101,"1044,60760012130 ",.02)
 ;;60760012130
 ;;9002226.02101,"1044,60760012160 ",.01)
 ;;60760012160
 ;;9002226.02101,"1044,60760012160 ",.02)
 ;;60760012160
 ;;9002226.02101,"1044,60760021215 ",.01)
 ;;60760021215
 ;;9002226.02101,"1044,60760021215 ",.02)
 ;;60760021215
 ;;9002226.02101,"1044,60760021230 ",.01)
 ;;60760021230
 ;;9002226.02101,"1044,60760021230 ",.02)
 ;;60760021230
 ;;9002226.02101,"1044,60760021330 ",.01)
 ;;60760021330
 ;;9002226.02101,"1044,60760021330 ",.02)
 ;;60760021330
 ;;9002226.02101,"1044,60760021360 ",.01)
 ;;60760021360
 ;;9002226.02101,"1044,60760021360 ",.02)
 ;;60760021360
 ;;9002226.02101,"1044,60760021410 ",.01)
 ;;60760021410
 ;;9002226.02101,"1044,60760021410 ",.02)
 ;;60760021410
 ;;9002226.02101,"1044,60760021420 ",.01)
 ;;60760021420
 ;;9002226.02101,"1044,60760021420 ",.02)
 ;;60760021420
 ;;9002226.02101,"1044,60760021430 ",.01)
 ;;60760021430
 ;;9002226.02101,"1044,60760021430 ",.02)
 ;;60760021430
 ;;9002226.02101,"1044,60760021460 ",.01)
 ;;60760021460
 ;;9002226.02101,"1044,60760021460 ",.02)
 ;;60760021460
 ;;9002226.02101,"1044,60760021490 ",.01)
 ;;60760021490
 ;;9002226.02101,"1044,60760021490 ",.02)
 ;;60760021490
 ;;9002226.02101,"1044,60760022115 ",.01)
 ;;60760022115
 ;;9002226.02101,"1044,60760022115 ",.02)
 ;;60760022115
 ;;9002226.02101,"1044,60760022130 ",.01)
 ;;60760022130
 ;;9002226.02101,"1044,60760022130 ",.02)
 ;;60760022130
 ;;9002226.02101,"1044,60760022160 ",.01)
 ;;60760022160
 ;;9002226.02101,"1044,60760022160 ",.02)
 ;;60760022160
 ;;9002226.02101,"1044,60760022190 ",.01)
 ;;60760022190
 ;;9002226.02101,"1044,60760022190 ",.02)
 ;;60760022190
 ;;9002226.02101,"1044,60760036730 ",.01)
 ;;60760036730
 ;;9002226.02101,"1044,60760036730 ",.02)
 ;;60760036730
 ;;9002226.02101,"1044,60760036760 ",.01)
 ;;60760036760
 ;;9002226.02101,"1044,60760036760 ",.02)
 ;;60760036760
 ;;9002226.02101,"1044,60760043420 ",.01)
 ;;60760043420
 ;;9002226.02101,"1044,60760043420 ",.02)
 ;;60760043420
 ;;9002226.02101,"1044,60760043430 ",.01)
 ;;60760043430
 ;;9002226.02101,"1044,60760043430 ",.02)
 ;;60760043430
 ;;9002226.02101,"1044,60760043460 ",.01)
 ;;60760043460
 ;;9002226.02101,"1044,60760043460 ",.02)
 ;;60760043460
 ;;9002226.02101,"1044,60760043490 ",.01)
 ;;60760043490
 ;;9002226.02101,"1044,60760043490 ",.02)
 ;;60760043490
 ;;9002226.02101,"1044,60760043920 ",.01)
 ;;60760043920
 ;;9002226.02101,"1044,60760043920 ",.02)
 ;;60760043920
 ;;9002226.02101,"1044,60760044020 ",.01)
 ;;60760044020
 ;;9002226.02101,"1044,60760044020 ",.02)
 ;;60760044020
 ;;9002226.02101,"1044,60760044030 ",.01)
 ;;60760044030
 ;;9002226.02101,"1044,60760044030 ",.02)
 ;;60760044030
 ;;9002226.02101,"1044,60760044060 ",.01)
 ;;60760044060
 ;;9002226.02101,"1044,60760044060 ",.02)
 ;;60760044060
 ;;9002226.02101,"1044,60760050830 ",.01)
 ;;60760050830
 ;;9002226.02101,"1044,60760050830 ",.02)
 ;;60760050830
 ;;9002226.02101,"1044,60760050860 ",.01)
 ;;60760050860
 ;;9002226.02101,"1044,60760050860 ",.02)
 ;;60760050860
 ;;9002226.02101,"1044,60760064720 ",.01)
 ;;60760064720
 ;;9002226.02101,"1044,60760064720 ",.02)
 ;;60760064720
 ;;9002226.02101,"1044,60760064730 ",.01)
 ;;60760064730
 ;;9002226.02101,"1044,60760064730 ",.02)
 ;;60760064730
 ;;9002226.02101,"1044,60760064760 ",.01)
 ;;60760064760
 ;;9002226.02101,"1044,60760064760 ",.02)
 ;;60760064760
 ;;9002226.02101,"1044,60760064790 ",.01)
 ;;60760064790
 ;;9002226.02101,"1044,60760064790 ",.02)
 ;;60760064790
 ;;9002226.02101,"1044,60760064792 ",.01)
 ;;60760064792
 ;;9002226.02101,"1044,60760064792 ",.02)
 ;;60760064792
 ;;9002226.02101,"1044,60760081115 ",.01)
 ;;60760081115
 ;;9002226.02101,"1044,60760081115 ",.02)
 ;;60760081115
 ;;9002226.02101,"1044,60760081130 ",.01)
 ;;60760081130
 ;;9002226.02101,"1044,60760081130 ",.02)
 ;;60760081130
 ;;9002226.02101,"1044,60760081160 ",.01)
 ;;60760081160
 ;;9002226.02101,"1044,60760081160 ",.02)
 ;;60760081160
 ;;9002226.02101,"1044,60760081190 ",.01)
 ;;60760081190
 ;;9002226.02101,"1044,60760081190 ",.02)
 ;;60760081190
 ;;9002226.02101,"1044,60763010202 ",.01)
 ;;60763010202
 ;;9002226.02101,"1044,60763010202 ",.02)
 ;;60763010202
 ;;9002226.02101,"1044,60763010203 ",.01)
 ;;60763010203
 ;;9002226.02101,"1044,60763010203 ",.02)
 ;;60763010203
 ;;9002226.02101,"1044,61073003301 ",.01)
 ;;61073003301
 ;;9002226.02101,"1044,61073003301 ",.02)
 ;;61073003301
 ;;9002226.02101,"1044,61073003401 ",.01)
 ;;61073003401
 ;;9002226.02101,"1044,61073003401 ",.02)
 ;;61073003401
 ;;9002226.02101,"1044,61073003501 ",.01)
 ;;61073003501
 ;;9002226.02101,"1044,61073003501 ",.02)
 ;;61073003501
 ;;9002226.02101,"1044,61073003630 ",.01)
 ;;61073003630
 ;;9002226.02101,"1044,61073003630 ",.02)
 ;;61073003630
 ;;9002226.02101,"1044,61073003730 ",.01)
 ;;61073003730
 ;;9002226.02101,"1044,61073003730 ",.02)
 ;;61073003730
 ;;9002226.02101,"1044,61073003830 ",.01)
 ;;61073003830
 ;;9002226.02101,"1044,61073003830 ",.02)
 ;;61073003830
 ;;9002226.02101,"1044,61392002525 ",.01)
 ;;61392002525
 ;;9002226.02101,"1044,61392002525 ",.02)
 ;;61392002525
 ;;9002226.02101,"1044,61392002530 ",.01)
 ;;61392002530
 ;;9002226.02101,"1044,61392002530 ",.02)
 ;;61392002530
 ;;9002226.02101,"1044,61392002531 ",.01)
 ;;61392002531
 ;;9002226.02101,"1044,61392002531 ",.02)
 ;;61392002531
 ;;9002226.02101,"1044,61392002539 ",.01)
 ;;61392002539
 ;;9002226.02101,"1044,61392002539 ",.02)
 ;;61392002539
 ;;9002226.02101,"1044,61392002545 ",.01)
 ;;61392002545
 ;;9002226.02101,"1044,61392002545 ",.02)
 ;;61392002545
 ;;9002226.02101,"1044,61392002554 ",.01)
 ;;61392002554
 ;;9002226.02101,"1044,61392002554 ",.02)
 ;;61392002554
 ;;9002226.02101,"1044,61392002556 ",.01)
 ;;61392002556
 ;;9002226.02101,"1044,61392002556 ",.02)
 ;;61392002556
 ;;9002226.02101,"1044,61392002560 ",.01)
 ;;61392002560
 ;;9002226.02101,"1044,61392002560 ",.02)
 ;;61392002560
 ;;9002226.02101,"1044,61392002565 ",.01)
 ;;61392002565
 ;;9002226.02101,"1044,61392002565 ",.02)
 ;;61392002565
 ;;9002226.02101,"1044,61392002590 ",.01)
 ;;61392002590
 ;;9002226.02101,"1044,61392002590 ",.02)
 ;;61392002590
 ;;9002226.02101,"1044,61392002591 ",.01)
 ;;61392002591
 ;;9002226.02101,"1044,61392002591 ",.02)
 ;;61392002591
 ;;9002226.02101,"1044,61392002625 ",.01)
 ;;61392002625
 ;;9002226.02101,"1044,61392002625 ",.02)
 ;;61392002625
 ;;9002226.02101,"1044,61392002630 ",.01)
 ;;61392002630
 ;;9002226.02101,"1044,61392002630 ",.02)
 ;;61392002630
 ;;9002226.02101,"1044,61392002631 ",.01)
 ;;61392002631
 ;;9002226.02101,"1044,61392002631 ",.02)
 ;;61392002631
 ;;9002226.02101,"1044,61392002639 ",.01)
 ;;61392002639
 ;;9002226.02101,"1044,61392002639 ",.02)
 ;;61392002639
 ;;9002226.02101,"1044,61392002645 ",.01)
 ;;61392002645
 ;;9002226.02101,"1044,61392002645 ",.02)
 ;;61392002645
 ;;9002226.02101,"1044,61392002654 ",.01)
 ;;61392002654
 ;;9002226.02101,"1044,61392002654 ",.02)
 ;;61392002654
 ;;9002226.02101,"1044,61392002656 ",.01)
 ;;61392002656
 ;;9002226.02101,"1044,61392002656 ",.02)
 ;;61392002656
 ;;9002226.02101,"1044,61392002660 ",.01)
 ;;61392002660
 ;;9002226.02101,"1044,61392002660 ",.02)
 ;;61392002660
 ;;9002226.02101,"1044,61392002665 ",.01)
 ;;61392002665
 ;;9002226.02101,"1044,61392002665 ",.02)
 ;;61392002665
 ;;9002226.02101,"1044,61392002690 ",.01)
 ;;61392002690
 ;;9002226.02101,"1044,61392002690 ",.02)
 ;;61392002690
 ;;9002226.02101,"1044,61392002691 ",.01)
 ;;61392002691
 ;;9002226.02101,"1044,61392002691 ",.02)
 ;;61392002691
 ;;9002226.02101,"1044,61392002695 ",.01)
 ;;61392002695
 ;;9002226.02101,"1044,61392002695 ",.02)
 ;;61392002695
 ;;9002226.02101,"1044,61392002725 ",.01)
 ;;61392002725
 ;;9002226.02101,"1044,61392002725 ",.02)
 ;;61392002725
 ;;9002226.02101,"1044,61392002730 ",.01)
 ;;61392002730
 ;;9002226.02101,"1044,61392002730 ",.02)
 ;;61392002730
 ;;9002226.02101,"1044,61392002731 ",.01)
 ;;61392002731
 ;;9002226.02101,"1044,61392002731 ",.02)
 ;;61392002731
 ;;9002226.02101,"1044,61392002739 ",.01)
 ;;61392002739
 ;;9002226.02101,"1044,61392002739 ",.02)
 ;;61392002739
 ;;9002226.02101,"1044,61392002745 ",.01)
 ;;61392002745
 ;;9002226.02101,"1044,61392002745 ",.02)
 ;;61392002745
 ;;9002226.02101,"1044,61392002754 ",.01)
 ;;61392002754
 ;;9002226.02101,"1044,61392002754 ",.02)
 ;;61392002754
 ;;9002226.02101,"1044,61392002756 ",.01)
 ;;61392002756
 ;;9002226.02101,"1044,61392002756 ",.02)
 ;;61392002756
 ;;9002226.02101,"1044,61392002760 ",.01)
 ;;61392002760
 ;;9002226.02101,"1044,61392002760 ",.02)
 ;;61392002760
 ;;9002226.02101,"1044,61392002765 ",.01)
 ;;61392002765
 ;;9002226.02101,"1044,61392002765 ",.02)
 ;;61392002765