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

BGPM5ABZ.m

Go to the documentation of this file.
  1. BGPM5ABZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"830,57866905502 ",.02)
  1. ;;57866905502
  1. ;;9002226.02101,"830,57866905503 ",.01)
  1. ;;57866905503
  1. ;;9002226.02101,"830,57866905503 ",.02)
  1. ;;57866905503
  1. ;;9002226.02101,"830,57866905504 ",.01)
  1. ;;57866905504
  1. ;;9002226.02101,"830,57866905504 ",.02)
  1. ;;57866905504
  1. ;;9002226.02101,"830,57866905505 ",.01)
  1. ;;57866905505
  1. ;;9002226.02101,"830,57866905505 ",.02)
  1. ;;57866905505
  1. ;;9002226.02101,"830,57866905601 ",.01)
  1. ;;57866905601
  1. ;;9002226.02101,"830,57866905601 ",.02)
  1. ;;57866905601
  1. ;;9002226.02101,"830,57866905602 ",.01)
  1. ;;57866905602
  1. ;;9002226.02101,"830,57866905602 ",.02)
  1. ;;57866905602
  1. ;;9002226.02101,"830,57866905603 ",.01)
  1. ;;57866905603
  1. ;;9002226.02101,"830,57866905603 ",.02)
  1. ;;57866905603
  1. ;;9002226.02101,"830,57866905604 ",.01)
  1. ;;57866905604
  1. ;;9002226.02101,"830,57866905604 ",.02)
  1. ;;57866905604
  1. ;;9002226.02101,"830,57866905606 ",.01)
  1. ;;57866905606
  1. ;;9002226.02101,"830,57866905606 ",.02)
  1. ;;57866905606
  1. ;;9002226.02101,"830,58016005800 ",.01)
  1. ;;58016005800
  1. ;;9002226.02101,"830,58016005800 ",.02)
  1. ;;58016005800
  1. ;;9002226.02101,"830,58016005801 ",.01)
  1. ;;58016005801
  1. ;;9002226.02101,"830,58016005801 ",.02)
  1. ;;58016005801
  1. ;;9002226.02101,"830,58016005802 ",.01)
  1. ;;58016005802
  1. ;;9002226.02101,"830,58016005802 ",.02)
  1. ;;58016005802
  1. ;;9002226.02101,"830,58016005803 ",.01)
  1. ;;58016005803
  1. ;;9002226.02101,"830,58016005803 ",.02)
  1. ;;58016005803
  1. ;;9002226.02101,"830,58016005804 ",.01)
  1. ;;58016005804
  1. ;;9002226.02101,"830,58016005804 ",.02)
  1. ;;58016005804
  1. ;;9002226.02101,"830,58016005805 ",.01)
  1. ;;58016005805
  1. ;;9002226.02101,"830,58016005805 ",.02)
  1. ;;58016005805
  1. ;;9002226.02101,"830,58016005830 ",.01)
  1. ;;58016005830
  1. ;;9002226.02101,"830,58016005830 ",.02)
  1. ;;58016005830
  1. ;;9002226.02101,"830,58016005860 ",.01)
  1. ;;58016005860
  1. ;;9002226.02101,"830,58016005860 ",.02)
  1. ;;58016005860
  1. ;;9002226.02101,"830,58016005890 ",.01)
  1. ;;58016005890
  1. ;;9002226.02101,"830,58016005890 ",.02)
  1. ;;58016005890
  1. ;;9002226.02101,"830,58016041100 ",.01)
  1. ;;58016041100
  1. ;;9002226.02101,"830,58016041100 ",.02)
  1. ;;58016041100
  1. ;;9002226.02101,"830,58016041102 ",.01)
  1. ;;58016041102
  1. ;;9002226.02101,"830,58016041102 ",.02)
  1. ;;58016041102
  1. ;;9002226.02101,"830,58016041130 ",.01)
  1. ;;58016041130
  1. ;;9002226.02101,"830,58016041130 ",.02)
  1. ;;58016041130
  1. ;;9002226.02101,"830,58016041160 ",.01)
  1. ;;58016041160
  1. ;;9002226.02101,"830,58016041160 ",.02)
  1. ;;58016041160
  1. ;;9002226.02101,"830,58016041190 ",.01)
  1. ;;58016041190
  1. ;;9002226.02101,"830,58016041190 ",.02)
  1. ;;58016041190
  1. ;;9002226.02101,"830,58016046600 ",.01)
  1. ;;58016046600
  1. ;;9002226.02101,"830,58016046600 ",.02)
  1. ;;58016046600
  1. ;;9002226.02101,"830,58016046601 ",.01)
  1. ;;58016046601
  1. ;;9002226.02101,"830,58016046601 ",.02)
  1. ;;58016046601
  1. ;;9002226.02101,"830,58016046602 ",.01)
  1. ;;58016046602
  1. ;;9002226.02101,"830,58016046602 ",.02)
  1. ;;58016046602
  1. ;;9002226.02101,"830,58016046603 ",.01)
  1. ;;58016046603
  1. ;;9002226.02101,"830,58016046603 ",.02)
  1. ;;58016046603
  1. ;;9002226.02101,"830,58016046604 ",.01)
  1. ;;58016046604
  1. ;;9002226.02101,"830,58016046604 ",.02)
  1. ;;58016046604
  1. ;;9002226.02101,"830,58016046605 ",.01)
  1. ;;58016046605
  1. ;;9002226.02101,"830,58016046605 ",.02)
  1. ;;58016046605
  1. ;;9002226.02101,"830,58016046606 ",.01)
  1. ;;58016046606
  1. ;;9002226.02101,"830,58016046606 ",.02)
  1. ;;58016046606
  1. ;;9002226.02101,"830,58016046607 ",.01)
  1. ;;58016046607
  1. ;;9002226.02101,"830,58016046607 ",.02)
  1. ;;58016046607
  1. ;;9002226.02101,"830,58016046608 ",.01)
  1. ;;58016046608
  1. ;;9002226.02101,"830,58016046608 ",.02)
  1. ;;58016046608
  1. ;;9002226.02101,"830,58016046609 ",.01)
  1. ;;58016046609
  1. ;;9002226.02101,"830,58016046609 ",.02)
  1. ;;58016046609
  1. ;;9002226.02101,"830,58016046610 ",.01)
  1. ;;58016046610
  1. ;;9002226.02101,"830,58016046610 ",.02)
  1. ;;58016046610
  1. ;;9002226.02101,"830,58016046612 ",.01)
  1. ;;58016046612
  1. ;;9002226.02101,"830,58016046612 ",.02)
  1. ;;58016046612
  1. ;;9002226.02101,"830,58016046614 ",.01)
  1. ;;58016046614
  1. ;;9002226.02101,"830,58016046614 ",.02)
  1. ;;58016046614
  1. ;;9002226.02101,"830,58016046615 ",.01)
  1. ;;58016046615
  1. ;;9002226.02101,"830,58016046615 ",.02)
  1. ;;58016046615
  1. ;;9002226.02101,"830,58016046616 ",.01)
  1. ;;58016046616
  1. ;;9002226.02101,"830,58016046616 ",.02)
  1. ;;58016046616
  1. ;;9002226.02101,"830,58016046618 ",.01)
  1. ;;58016046618
  1. ;;9002226.02101,"830,58016046618 ",.02)
  1. ;;58016046618
  1. ;;9002226.02101,"830,58016046620 ",.01)
  1. ;;58016046620
  1. ;;9002226.02101,"830,58016046620 ",.02)
  1. ;;58016046620
  1. ;;9002226.02101,"830,58016046621 ",.01)
  1. ;;58016046621
  1. ;;9002226.02101,"830,58016046621 ",.02)
  1. ;;58016046621
  1. ;;9002226.02101,"830,58016046624 ",.01)
  1. ;;58016046624
  1. ;;9002226.02101,"830,58016046624 ",.02)
  1. ;;58016046624
  1. ;;9002226.02101,"830,58016046625 ",.01)
  1. ;;58016046625
  1. ;;9002226.02101,"830,58016046625 ",.02)
  1. ;;58016046625
  1. ;;9002226.02101,"830,58016046626 ",.01)
  1. ;;58016046626
  1. ;;9002226.02101,"830,58016046626 ",.02)
  1. ;;58016046626
  1. ;;9002226.02101,"830,58016046627 ",.01)
  1. ;;58016046627
  1. ;;9002226.02101,"830,58016046627 ",.02)
  1. ;;58016046627
  1. ;;9002226.02101,"830,58016046628 ",.01)
  1. ;;58016046628
  1. ;;9002226.02101,"830,58016046628 ",.02)
  1. ;;58016046628
  1. ;;9002226.02101,"830,58016046630 ",.01)
  1. ;;58016046630
  1. ;;9002226.02101,"830,58016046630 ",.02)
  1. ;;58016046630
  1. ;;9002226.02101,"830,58016046632 ",.01)
  1. ;;58016046632
  1. ;;9002226.02101,"830,58016046632 ",.02)
  1. ;;58016046632
  1. ;;9002226.02101,"830,58016046635 ",.01)
  1. ;;58016046635
  1. ;;9002226.02101,"830,58016046635 ",.02)
  1. ;;58016046635
  1. ;;9002226.02101,"830,58016046636 ",.01)
  1. ;;58016046636
  1. ;;9002226.02101,"830,58016046636 ",.02)
  1. ;;58016046636
  1. ;;9002226.02101,"830,58016046640 ",.01)
  1. ;;58016046640
  1. ;;9002226.02101,"830,58016046640 ",.02)
  1. ;;58016046640
  1. ;;9002226.02101,"830,58016046642 ",.01)
  1. ;;58016046642
  1. ;;9002226.02101,"830,58016046642 ",.02)
  1. ;;58016046642
  1. ;;9002226.02101,"830,58016046644 ",.01)
  1. ;;58016046644
  1. ;;9002226.02101,"830,58016046644 ",.02)
  1. ;;58016046644
  1. ;;9002226.02101,"830,58016046645 ",.01)
  1. ;;58016046645
  1. ;;9002226.02101,"830,58016046645 ",.02)
  1. ;;58016046645
  1. ;;9002226.02101,"830,58016046648 ",.01)
  1. ;;58016046648
  1. ;;9002226.02101,"830,58016046648 ",.02)
  1. ;;58016046648
  1. ;;9002226.02101,"830,58016046650 ",.01)
  1. ;;58016046650
  1. ;;9002226.02101,"830,58016046650 ",.02)
  1. ;;58016046650
  1. ;;9002226.02101,"830,58016046656 ",.01)
  1. ;;58016046656
  1. ;;9002226.02101,"830,58016046656 ",.02)
  1. ;;58016046656
  1. ;;9002226.02101,"830,58016046660 ",.01)
  1. ;;58016046660
  1. ;;9002226.02101,"830,58016046660 ",.02)
  1. ;;58016046660
  1. ;;9002226.02101,"830,58016046667 ",.01)
  1. ;;58016046667
  1. ;;9002226.02101,"830,58016046667 ",.02)
  1. ;;58016046667
  1. ;;9002226.02101,"830,58016046669 ",.01)
  1. ;;58016046669
  1. ;;9002226.02101,"830,58016046669 ",.02)
  1. ;;58016046669
  1. ;;9002226.02101,"830,58016046670 ",.01)
  1. ;;58016046670
  1. ;;9002226.02101,"830,58016046670 ",.02)
  1. ;;58016046670
  1. ;;9002226.02101,"830,58016046671 ",.01)
  1. ;;58016046671
  1. ;;9002226.02101,"830,58016046671 ",.02)
  1. ;;58016046671
  1. ;;9002226.02101,"830,58016046672 ",.01)
  1. ;;58016046672
  1. ;;9002226.02101,"830,58016046672 ",.02)
  1. ;;58016046672
  1. ;;9002226.02101,"830,58016046673 ",.01)
  1. ;;58016046673
  1. ;;9002226.02101,"830,58016046673 ",.02)
  1. ;;58016046673
  1. ;;9002226.02101,"830,58016046675 ",.01)
  1. ;;58016046675
  1. ;;9002226.02101,"830,58016046675 ",.02)
  1. ;;58016046675
  1. ;;9002226.02101,"830,58016046676 ",.01)
  1. ;;58016046676
  1. ;;9002226.02101,"830,58016046676 ",.02)
  1. ;;58016046676
  1. ;;9002226.02101,"830,58016046677 ",.01)
  1. ;;58016046677
  1. ;;9002226.02101,"830,58016046677 ",.02)
  1. ;;58016046677
  1. ;;9002226.02101,"830,58016046679 ",.01)
  1. ;;58016046679
  1. ;;9002226.02101,"830,58016046679 ",.02)
  1. ;;58016046679
  1. ;;9002226.02101,"830,58016046680 ",.01)
  1. ;;58016046680
  1. ;;9002226.02101,"830,58016046680 ",.02)
  1. ;;58016046680
  1. ;;9002226.02101,"830,58016046681 ",.01)
  1. ;;58016046681
  1. ;;9002226.02101,"830,58016046681 ",.02)
  1. ;;58016046681
  1. ;;9002226.02101,"830,58016046682 ",.01)
  1. ;;58016046682
  1. ;;9002226.02101,"830,58016046682 ",.02)
  1. ;;58016046682
  1. ;;9002226.02101,"830,58016046683 ",.01)
  1. ;;58016046683
  1. ;;9002226.02101,"830,58016046683 ",.02)
  1. ;;58016046683
  1. ;;9002226.02101,"830,58016046684 ",.01)
  1. ;;58016046684
  1. ;;9002226.02101,"830,58016046684 ",.02)
  1. ;;58016046684
  1. ;;9002226.02101,"830,58016046687 ",.01)
  1. ;;58016046687
  1. ;;9002226.02101,"830,58016046687 ",.02)
  1. ;;58016046687
  1. ;;9002226.02101,"830,58016046689 ",.01)
  1. ;;58016046689
  1. ;;9002226.02101,"830,58016046689 ",.02)
  1. ;;58016046689
  1. ;;9002226.02101,"830,58016046690 ",.01)
  1. ;;58016046690
  1. ;;9002226.02101,"830,58016046690 ",.02)
  1. ;;58016046690
  1. ;;9002226.02101,"830,58016046691 ",.01)
  1. ;;58016046691
  1. ;;9002226.02101,"830,58016046691 ",.02)
  1. ;;58016046691
  1. ;;9002226.02101,"830,58016046692 ",.01)
  1. ;;58016046692
  1. ;;9002226.02101,"830,58016046692 ",.02)
  1. ;;58016046692
  1. ;;9002226.02101,"830,58016046693 ",.01)
  1. ;;58016046693
  1. ;;9002226.02101,"830,58016046693 ",.02)
  1. ;;58016046693
  1. ;;9002226.02101,"830,58016046696 ",.01)
  1. ;;58016046696
  1. ;;9002226.02101,"830,58016046696 ",.02)
  1. ;;58016046696
  1. ;;9002226.02101,"830,58016046697 ",.01)
  1. ;;58016046697
  1. ;;9002226.02101,"830,58016046697 ",.02)
  1. ;;58016046697
  1. ;;9002226.02101,"830,58016046698 ",.01)
  1. ;;58016046698
  1. ;;9002226.02101,"830,58016046698 ",.02)
  1. ;;58016046698
  1. ;;9002226.02101,"830,58016046699 ",.01)
  1. ;;58016046699
  1. ;;9002226.02101,"830,58016046699 ",.02)
  1. ;;58016046699
  1. ;;9002226.02101,"830,58016053600 ",.01)
  1. ;;58016053600
  1. ;;9002226.02101,"830,58016053600 ",.02)
  1. ;;58016053600
  1. ;;9002226.02101,"830,58016053630 ",.01)
  1. ;;58016053630
  1. ;;9002226.02101,"830,58016053630 ",.02)
  1. ;;58016053630
  1. ;;9002226.02101,"830,58016053660 ",.01)
  1. ;;58016053660
  1. ;;9002226.02101,"830,58016053660 ",.02)
  1. ;;58016053660
  1. ;;9002226.02101,"830,58016053690 ",.01)
  1. ;;58016053690
  1. ;;9002226.02101,"830,58016053690 ",.02)
  1. ;;58016053690
  1. ;;9002226.02101,"830,58016077200 ",.01)
  1. ;;58016077200
  1. ;;9002226.02101,"830,58016077200 ",.02)
  1. ;;58016077200
  1. ;;9002226.02101,"830,58016077201 ",.01)
  1. ;;58016077201
  1. ;;9002226.02101,"830,58016077201 ",.02)
  1. ;;58016077201
  1. ;;9002226.02101,"830,58016077202 ",.01)
  1. ;;58016077202
  1. ;;9002226.02101,"830,58016077202 ",.02)
  1. ;;58016077202
  1. ;;9002226.02101,"830,58016077203 ",.01)
  1. ;;58016077203
  1. ;;9002226.02101,"830,58016077203 ",.02)
  1. ;;58016077203
  1. ;;9002226.02101,"830,58016077204 ",.01)
  1. ;;58016077204
  1. ;;9002226.02101,"830,58016077204 ",.02)
  1. ;;58016077204
  1. ;;9002226.02101,"830,58016077205 ",.01)
  1. ;;58016077205
  1. ;;9002226.02101,"830,58016077205 ",.02)
  1. ;;58016077205
  1. ;;9002226.02101,"830,58016077206 ",.01)
  1. ;;58016077206
  1. ;;9002226.02101,"830,58016077206 ",.02)
  1. ;;58016077206
  1. ;;9002226.02101,"830,58016077207 ",.01)
  1. ;;58016077207
  1. ;;9002226.02101,"830,58016077207 ",.02)
  1. ;;58016077207
  1. ;;9002226.02101,"830,58016077208 ",.01)
  1. ;;58016077208
  1. ;;9002226.02101,"830,58016077208 ",.02)
  1. ;;58016077208
  1. ;;9002226.02101,"830,58016077209 ",.01)
  1. ;;58016077209
  1. ;;9002226.02101,"830,58016077209 ",.02)
  1. ;;58016077209
  1. ;;9002226.02101,"830,58016077210 ",.01)
  1. ;;58016077210
  1. ;;9002226.02101,"830,58016077210 ",.02)
  1. ;;58016077210
  1. ;;9002226.02101,"830,58016077212 ",.01)
  1. ;;58016077212
  1. ;;9002226.02101,"830,58016077212 ",.02)
  1. ;;58016077212
  1. ;;9002226.02101,"830,58016077214 ",.01)
  1. ;;58016077214
  1. ;;9002226.02101,"830,58016077214 ",.02)
  1. ;;58016077214
  1. ;;9002226.02101,"830,58016077215 ",.01)
  1. ;;58016077215
  1. ;;9002226.02101,"830,58016077215 ",.02)
  1. ;;58016077215
  1. ;;9002226.02101,"830,58016077216 ",.01)
  1. ;;58016077216
  1. ;;9002226.02101,"830,58016077216 ",.02)
  1. ;;58016077216
  1. ;;9002226.02101,"830,58016077218 ",.01)
  1. ;;58016077218