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