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

BGPM5BFN.m

Go to the documentation of this file.
BGPM5BFN ;IHS/MSC/MMT-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,"1084,58016038636 ",.02)
 ;;58016038636
 ;;9002226.02101,"1084,58016038640 ",.01)
 ;;58016038640
 ;;9002226.02101,"1084,58016038640 ",.02)
 ;;58016038640
 ;;9002226.02101,"1084,58016038642 ",.01)
 ;;58016038642
 ;;9002226.02101,"1084,58016038642 ",.02)
 ;;58016038642
 ;;9002226.02101,"1084,58016038644 ",.01)
 ;;58016038644
 ;;9002226.02101,"1084,58016038644 ",.02)
 ;;58016038644
 ;;9002226.02101,"1084,58016038645 ",.01)
 ;;58016038645
 ;;9002226.02101,"1084,58016038645 ",.02)
 ;;58016038645
 ;;9002226.02101,"1084,58016038648 ",.01)
 ;;58016038648
 ;;9002226.02101,"1084,58016038648 ",.02)
 ;;58016038648
 ;;9002226.02101,"1084,58016038650 ",.01)
 ;;58016038650
 ;;9002226.02101,"1084,58016038650 ",.02)
 ;;58016038650
 ;;9002226.02101,"1084,58016038656 ",.01)
 ;;58016038656
 ;;9002226.02101,"1084,58016038656 ",.02)
 ;;58016038656
 ;;9002226.02101,"1084,58016038660 ",.01)
 ;;58016038660
 ;;9002226.02101,"1084,58016038660 ",.02)
 ;;58016038660
 ;;9002226.02101,"1084,58016038667 ",.01)
 ;;58016038667
 ;;9002226.02101,"1084,58016038667 ",.02)
 ;;58016038667
 ;;9002226.02101,"1084,58016038669 ",.01)
 ;;58016038669
 ;;9002226.02101,"1084,58016038669 ",.02)
 ;;58016038669
 ;;9002226.02101,"1084,58016038670 ",.01)
 ;;58016038670
 ;;9002226.02101,"1084,58016038670 ",.02)
 ;;58016038670
 ;;9002226.02101,"1084,58016038671 ",.01)
 ;;58016038671
 ;;9002226.02101,"1084,58016038671 ",.02)
 ;;58016038671
 ;;9002226.02101,"1084,58016038672 ",.01)
 ;;58016038672
 ;;9002226.02101,"1084,58016038672 ",.02)
 ;;58016038672
 ;;9002226.02101,"1084,58016038673 ",.01)
 ;;58016038673
 ;;9002226.02101,"1084,58016038673 ",.02)
 ;;58016038673
 ;;9002226.02101,"1084,58016038675 ",.01)
 ;;58016038675
 ;;9002226.02101,"1084,58016038675 ",.02)
 ;;58016038675
 ;;9002226.02101,"1084,58016038676 ",.01)
 ;;58016038676
 ;;9002226.02101,"1084,58016038676 ",.02)
 ;;58016038676
 ;;9002226.02101,"1084,58016038677 ",.01)
 ;;58016038677
 ;;9002226.02101,"1084,58016038677 ",.02)
 ;;58016038677
 ;;9002226.02101,"1084,58016038679 ",.01)
 ;;58016038679
 ;;9002226.02101,"1084,58016038679 ",.02)
 ;;58016038679
 ;;9002226.02101,"1084,58016038680 ",.01)
 ;;58016038680
 ;;9002226.02101,"1084,58016038680 ",.02)
 ;;58016038680
 ;;9002226.02101,"1084,58016038681 ",.01)
 ;;58016038681
 ;;9002226.02101,"1084,58016038681 ",.02)
 ;;58016038681
 ;;9002226.02101,"1084,58016038682 ",.01)
 ;;58016038682
 ;;9002226.02101,"1084,58016038682 ",.02)
 ;;58016038682
 ;;9002226.02101,"1084,58016038683 ",.01)
 ;;58016038683
 ;;9002226.02101,"1084,58016038683 ",.02)
 ;;58016038683
 ;;9002226.02101,"1084,58016038684 ",.01)
 ;;58016038684
 ;;9002226.02101,"1084,58016038684 ",.02)
 ;;58016038684
 ;;9002226.02101,"1084,58016038687 ",.01)
 ;;58016038687
 ;;9002226.02101,"1084,58016038687 ",.02)
 ;;58016038687
 ;;9002226.02101,"1084,58016038689 ",.01)
 ;;58016038689
 ;;9002226.02101,"1084,58016038689 ",.02)
 ;;58016038689
 ;;9002226.02101,"1084,58016038690 ",.01)
 ;;58016038690
 ;;9002226.02101,"1084,58016038690 ",.02)
 ;;58016038690
 ;;9002226.02101,"1084,58016038691 ",.01)
 ;;58016038691
 ;;9002226.02101,"1084,58016038691 ",.02)
 ;;58016038691
 ;;9002226.02101,"1084,58016038692 ",.01)
 ;;58016038692
 ;;9002226.02101,"1084,58016038692 ",.02)
 ;;58016038692
 ;;9002226.02101,"1084,58016038693 ",.01)
 ;;58016038693
 ;;9002226.02101,"1084,58016038693 ",.02)
 ;;58016038693
 ;;9002226.02101,"1084,58016038696 ",.01)
 ;;58016038696
 ;;9002226.02101,"1084,58016038696 ",.02)
 ;;58016038696
 ;;9002226.02101,"1084,58016038697 ",.01)
 ;;58016038697
 ;;9002226.02101,"1084,58016038697 ",.02)
 ;;58016038697
 ;;9002226.02101,"1084,58016038698 ",.01)
 ;;58016038698
 ;;9002226.02101,"1084,58016038698 ",.02)
 ;;58016038698
 ;;9002226.02101,"1084,58016038699 ",.01)
 ;;58016038699
 ;;9002226.02101,"1084,58016038699 ",.02)
 ;;58016038699
 ;;9002226.02101,"1084,58016041100 ",.01)
 ;;58016041100
 ;;9002226.02101,"1084,58016041100 ",.02)
 ;;58016041100
 ;;9002226.02101,"1084,58016041102 ",.01)
 ;;58016041102
 ;;9002226.02101,"1084,58016041102 ",.02)
 ;;58016041102
 ;;9002226.02101,"1084,58016041130 ",.01)
 ;;58016041130
 ;;9002226.02101,"1084,58016041130 ",.02)
 ;;58016041130
 ;;9002226.02101,"1084,58016041160 ",.01)
 ;;58016041160
 ;;9002226.02101,"1084,58016041160 ",.02)
 ;;58016041160
 ;;9002226.02101,"1084,58016041190 ",.01)
 ;;58016041190
 ;;9002226.02101,"1084,58016041190 ",.02)
 ;;58016041190
 ;;9002226.02101,"1084,58016046600 ",.01)
 ;;58016046600
 ;;9002226.02101,"1084,58016046600 ",.02)
 ;;58016046600
 ;;9002226.02101,"1084,58016046601 ",.01)
 ;;58016046601
 ;;9002226.02101,"1084,58016046601 ",.02)
 ;;58016046601
 ;;9002226.02101,"1084,58016046602 ",.01)
 ;;58016046602
 ;;9002226.02101,"1084,58016046602 ",.02)
 ;;58016046602
 ;;9002226.02101,"1084,58016046603 ",.01)
 ;;58016046603
 ;;9002226.02101,"1084,58016046603 ",.02)
 ;;58016046603
 ;;9002226.02101,"1084,58016046604 ",.01)
 ;;58016046604
 ;;9002226.02101,"1084,58016046604 ",.02)
 ;;58016046604
 ;;9002226.02101,"1084,58016046605 ",.01)
 ;;58016046605
 ;;9002226.02101,"1084,58016046605 ",.02)
 ;;58016046605
 ;;9002226.02101,"1084,58016046606 ",.01)
 ;;58016046606
 ;;9002226.02101,"1084,58016046606 ",.02)
 ;;58016046606
 ;;9002226.02101,"1084,58016046607 ",.01)
 ;;58016046607
 ;;9002226.02101,"1084,58016046607 ",.02)
 ;;58016046607
 ;;9002226.02101,"1084,58016046608 ",.01)
 ;;58016046608
 ;;9002226.02101,"1084,58016046608 ",.02)
 ;;58016046608
 ;;9002226.02101,"1084,58016046609 ",.01)
 ;;58016046609
 ;;9002226.02101,"1084,58016046609 ",.02)
 ;;58016046609
 ;;9002226.02101,"1084,58016046610 ",.01)
 ;;58016046610
 ;;9002226.02101,"1084,58016046610 ",.02)
 ;;58016046610
 ;;9002226.02101,"1084,58016046612 ",.01)
 ;;58016046612
 ;;9002226.02101,"1084,58016046612 ",.02)
 ;;58016046612
 ;;9002226.02101,"1084,58016046614 ",.01)
 ;;58016046614
 ;;9002226.02101,"1084,58016046614 ",.02)
 ;;58016046614
 ;;9002226.02101,"1084,58016046615 ",.01)
 ;;58016046615
 ;;9002226.02101,"1084,58016046615 ",.02)
 ;;58016046615
 ;;9002226.02101,"1084,58016046616 ",.01)
 ;;58016046616
 ;;9002226.02101,"1084,58016046616 ",.02)
 ;;58016046616
 ;;9002226.02101,"1084,58016046618 ",.01)
 ;;58016046618
 ;;9002226.02101,"1084,58016046618 ",.02)
 ;;58016046618
 ;;9002226.02101,"1084,58016046620 ",.01)
 ;;58016046620
 ;;9002226.02101,"1084,58016046620 ",.02)
 ;;58016046620
 ;;9002226.02101,"1084,58016046621 ",.01)
 ;;58016046621
 ;;9002226.02101,"1084,58016046621 ",.02)
 ;;58016046621
 ;;9002226.02101,"1084,58016046624 ",.01)
 ;;58016046624
 ;;9002226.02101,"1084,58016046624 ",.02)
 ;;58016046624
 ;;9002226.02101,"1084,58016046625 ",.01)
 ;;58016046625
 ;;9002226.02101,"1084,58016046625 ",.02)
 ;;58016046625
 ;;9002226.02101,"1084,58016046626 ",.01)
 ;;58016046626
 ;;9002226.02101,"1084,58016046626 ",.02)
 ;;58016046626
 ;;9002226.02101,"1084,58016046627 ",.01)
 ;;58016046627
 ;;9002226.02101,"1084,58016046627 ",.02)
 ;;58016046627
 ;;9002226.02101,"1084,58016046628 ",.01)
 ;;58016046628
 ;;9002226.02101,"1084,58016046628 ",.02)
 ;;58016046628
 ;;9002226.02101,"1084,58016046630 ",.01)
 ;;58016046630
 ;;9002226.02101,"1084,58016046630 ",.02)
 ;;58016046630
 ;;9002226.02101,"1084,58016046632 ",.01)
 ;;58016046632
 ;;9002226.02101,"1084,58016046632 ",.02)
 ;;58016046632
 ;;9002226.02101,"1084,58016046635 ",.01)
 ;;58016046635
 ;;9002226.02101,"1084,58016046635 ",.02)
 ;;58016046635
 ;;9002226.02101,"1084,58016046636 ",.01)
 ;;58016046636
 ;;9002226.02101,"1084,58016046636 ",.02)
 ;;58016046636
 ;;9002226.02101,"1084,58016046640 ",.01)
 ;;58016046640
 ;;9002226.02101,"1084,58016046640 ",.02)
 ;;58016046640
 ;;9002226.02101,"1084,58016046642 ",.01)
 ;;58016046642
 ;;9002226.02101,"1084,58016046642 ",.02)
 ;;58016046642
 ;;9002226.02101,"1084,58016046644 ",.01)
 ;;58016046644
 ;;9002226.02101,"1084,58016046644 ",.02)
 ;;58016046644
 ;;9002226.02101,"1084,58016046645 ",.01)
 ;;58016046645
 ;;9002226.02101,"1084,58016046645 ",.02)
 ;;58016046645
 ;;9002226.02101,"1084,58016046648 ",.01)
 ;;58016046648
 ;;9002226.02101,"1084,58016046648 ",.02)
 ;;58016046648
 ;;9002226.02101,"1084,58016046650 ",.01)
 ;;58016046650
 ;;9002226.02101,"1084,58016046650 ",.02)
 ;;58016046650
 ;;9002226.02101,"1084,58016046656 ",.01)
 ;;58016046656
 ;;9002226.02101,"1084,58016046656 ",.02)
 ;;58016046656
 ;;9002226.02101,"1084,58016046660 ",.01)
 ;;58016046660
 ;;9002226.02101,"1084,58016046660 ",.02)
 ;;58016046660
 ;;9002226.02101,"1084,58016046667 ",.01)
 ;;58016046667
 ;;9002226.02101,"1084,58016046667 ",.02)
 ;;58016046667
 ;;9002226.02101,"1084,58016046669 ",.01)
 ;;58016046669
 ;;9002226.02101,"1084,58016046669 ",.02)
 ;;58016046669
 ;;9002226.02101,"1084,58016046670 ",.01)
 ;;58016046670
 ;;9002226.02101,"1084,58016046670 ",.02)
 ;;58016046670
 ;;9002226.02101,"1084,58016046671 ",.01)
 ;;58016046671
 ;;9002226.02101,"1084,58016046671 ",.02)
 ;;58016046671
 ;;9002226.02101,"1084,58016046672 ",.01)
 ;;58016046672
 ;;9002226.02101,"1084,58016046672 ",.02)
 ;;58016046672
 ;;9002226.02101,"1084,58016046673 ",.01)
 ;;58016046673
 ;;9002226.02101,"1084,58016046673 ",.02)
 ;;58016046673
 ;;9002226.02101,"1084,58016046675 ",.01)
 ;;58016046675
 ;;9002226.02101,"1084,58016046675 ",.02)
 ;;58016046675
 ;;9002226.02101,"1084,58016046676 ",.01)
 ;;58016046676
 ;;9002226.02101,"1084,58016046676 ",.02)
 ;;58016046676
 ;;9002226.02101,"1084,58016046677 ",.01)
 ;;58016046677
 ;;9002226.02101,"1084,58016046677 ",.02)
 ;;58016046677
 ;;9002226.02101,"1084,58016046679 ",.01)
 ;;58016046679
 ;;9002226.02101,"1084,58016046679 ",.02)
 ;;58016046679
 ;;9002226.02101,"1084,58016046680 ",.01)
 ;;58016046680
 ;;9002226.02101,"1084,58016046680 ",.02)
 ;;58016046680
 ;;9002226.02101,"1084,58016046681 ",.01)
 ;;58016046681
 ;;9002226.02101,"1084,58016046681 ",.02)
 ;;58016046681
 ;;9002226.02101,"1084,58016046682 ",.01)
 ;;58016046682
 ;;9002226.02101,"1084,58016046682 ",.02)
 ;;58016046682
 ;;9002226.02101,"1084,58016046683 ",.01)
 ;;58016046683
 ;;9002226.02101,"1084,58016046683 ",.02)
 ;;58016046683
 ;;9002226.02101,"1084,58016046684 ",.01)
 ;;58016046684
 ;;9002226.02101,"1084,58016046684 ",.02)
 ;;58016046684
 ;;9002226.02101,"1084,58016046687 ",.01)
 ;;58016046687
 ;;9002226.02101,"1084,58016046687 ",.02)
 ;;58016046687
 ;;9002226.02101,"1084,58016046689 ",.01)
 ;;58016046689
 ;;9002226.02101,"1084,58016046689 ",.02)
 ;;58016046689
 ;;9002226.02101,"1084,58016046690 ",.01)
 ;;58016046690
 ;;9002226.02101,"1084,58016046690 ",.02)
 ;;58016046690
 ;;9002226.02101,"1084,58016046691 ",.01)
 ;;58016046691
 ;;9002226.02101,"1084,58016046691 ",.02)
 ;;58016046691
 ;;9002226.02101,"1084,58016046692 ",.01)
 ;;58016046692
 ;;9002226.02101,"1084,58016046692 ",.02)
 ;;58016046692
 ;;9002226.02101,"1084,58016046693 ",.01)
 ;;58016046693
 ;;9002226.02101,"1084,58016046693 ",.02)
 ;;58016046693
 ;;9002226.02101,"1084,58016046696 ",.01)
 ;;58016046696
 ;;9002226.02101,"1084,58016046696 ",.02)
 ;;58016046696
 ;;9002226.02101,"1084,58016046697 ",.01)
 ;;58016046697
 ;;9002226.02101,"1084,58016046697 ",.02)
 ;;58016046697
 ;;9002226.02101,"1084,58016046698 ",.01)
 ;;58016046698
 ;;9002226.02101,"1084,58016046698 ",.02)
 ;;58016046698
 ;;9002226.02101,"1084,58016046699 ",.01)
 ;;58016046699
 ;;9002226.02101,"1084,58016046699 ",.02)
 ;;58016046699
 ;;9002226.02101,"1084,58016046700 ",.01)
 ;;58016046700
 ;;9002226.02101,"1084,58016046700 ",.02)
 ;;58016046700
 ;;9002226.02101,"1084,58016046730 ",.01)
 ;;58016046730
 ;;9002226.02101,"1084,58016046730 ",.02)
 ;;58016046730