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