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

BGPM5ART.m

Go to the documentation of this file.
BGPM5ART ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,58016091701 ",.01)
 ;;58016091701
 ;;9002226.02101,"1005,58016091701 ",.02)
 ;;58016091701
 ;;9002226.02101,"1005,58016091702 ",.01)
 ;;58016091702
 ;;9002226.02101,"1005,58016091702 ",.02)
 ;;58016091702
 ;;9002226.02101,"1005,58016091703 ",.01)
 ;;58016091703
 ;;9002226.02101,"1005,58016091703 ",.02)
 ;;58016091703
 ;;9002226.02101,"1005,58016091704 ",.01)
 ;;58016091704
 ;;9002226.02101,"1005,58016091704 ",.02)
 ;;58016091704
 ;;9002226.02101,"1005,58016091705 ",.01)
 ;;58016091705
 ;;9002226.02101,"1005,58016091705 ",.02)
 ;;58016091705
 ;;9002226.02101,"1005,58016091706 ",.01)
 ;;58016091706
 ;;9002226.02101,"1005,58016091706 ",.02)
 ;;58016091706
 ;;9002226.02101,"1005,58016091708 ",.01)
 ;;58016091708
 ;;9002226.02101,"1005,58016091708 ",.02)
 ;;58016091708
 ;;9002226.02101,"1005,58016091709 ",.01)
 ;;58016091709
 ;;9002226.02101,"1005,58016091709 ",.02)
 ;;58016091709
 ;;9002226.02101,"1005,58016091710 ",.01)
 ;;58016091710
 ;;9002226.02101,"1005,58016091710 ",.02)
 ;;58016091710
 ;;9002226.02101,"1005,58016091712 ",.01)
 ;;58016091712
 ;;9002226.02101,"1005,58016091712 ",.02)
 ;;58016091712
 ;;9002226.02101,"1005,58016091714 ",.01)
 ;;58016091714
 ;;9002226.02101,"1005,58016091714 ",.02)
 ;;58016091714
 ;;9002226.02101,"1005,58016091715 ",.01)
 ;;58016091715
 ;;9002226.02101,"1005,58016091715 ",.02)
 ;;58016091715
 ;;9002226.02101,"1005,58016091716 ",.01)
 ;;58016091716
 ;;9002226.02101,"1005,58016091716 ",.02)
 ;;58016091716
 ;;9002226.02101,"1005,58016091718 ",.01)
 ;;58016091718
 ;;9002226.02101,"1005,58016091718 ",.02)
 ;;58016091718
 ;;9002226.02101,"1005,58016091720 ",.01)
 ;;58016091720
 ;;9002226.02101,"1005,58016091720 ",.02)
 ;;58016091720
 ;;9002226.02101,"1005,58016091721 ",.01)
 ;;58016091721
 ;;9002226.02101,"1005,58016091721 ",.02)
 ;;58016091721
 ;;9002226.02101,"1005,58016091724 ",.01)
 ;;58016091724
 ;;9002226.02101,"1005,58016091724 ",.02)
 ;;58016091724
 ;;9002226.02101,"1005,58016091725 ",.01)
 ;;58016091725
 ;;9002226.02101,"1005,58016091725 ",.02)
 ;;58016091725
 ;;9002226.02101,"1005,58016091726 ",.01)
 ;;58016091726
 ;;9002226.02101,"1005,58016091726 ",.02)
 ;;58016091726
 ;;9002226.02101,"1005,58016091727 ",.01)
 ;;58016091727
 ;;9002226.02101,"1005,58016091727 ",.02)
 ;;58016091727
 ;;9002226.02101,"1005,58016091728 ",.01)
 ;;58016091728
 ;;9002226.02101,"1005,58016091728 ",.02)
 ;;58016091728
 ;;9002226.02101,"1005,58016091730 ",.01)
 ;;58016091730
 ;;9002226.02101,"1005,58016091730 ",.02)
 ;;58016091730
 ;;9002226.02101,"1005,58016091732 ",.01)
 ;;58016091732
 ;;9002226.02101,"1005,58016091732 ",.02)
 ;;58016091732
 ;;9002226.02101,"1005,58016091735 ",.01)
 ;;58016091735
 ;;9002226.02101,"1005,58016091735 ",.02)
 ;;58016091735
 ;;9002226.02101,"1005,58016091736 ",.01)
 ;;58016091736
 ;;9002226.02101,"1005,58016091736 ",.02)
 ;;58016091736
 ;;9002226.02101,"1005,58016091740 ",.01)
 ;;58016091740
 ;;9002226.02101,"1005,58016091740 ",.02)
 ;;58016091740
 ;;9002226.02101,"1005,58016091742 ",.01)
 ;;58016091742
 ;;9002226.02101,"1005,58016091742 ",.02)
 ;;58016091742
 ;;9002226.02101,"1005,58016091744 ",.01)
 ;;58016091744
 ;;9002226.02101,"1005,58016091744 ",.02)
 ;;58016091744
 ;;9002226.02101,"1005,58016091745 ",.01)
 ;;58016091745
 ;;9002226.02101,"1005,58016091745 ",.02)
 ;;58016091745
 ;;9002226.02101,"1005,58016091748 ",.01)
 ;;58016091748
 ;;9002226.02101,"1005,58016091748 ",.02)
 ;;58016091748
 ;;9002226.02101,"1005,58016091750 ",.01)
 ;;58016091750
 ;;9002226.02101,"1005,58016091750 ",.02)
 ;;58016091750
 ;;9002226.02101,"1005,58016091756 ",.01)
 ;;58016091756
 ;;9002226.02101,"1005,58016091756 ",.02)
 ;;58016091756
 ;;9002226.02101,"1005,58016091760 ",.01)
 ;;58016091760
 ;;9002226.02101,"1005,58016091760 ",.02)
 ;;58016091760
 ;;9002226.02101,"1005,58016091767 ",.01)
 ;;58016091767
 ;;9002226.02101,"1005,58016091767 ",.02)
 ;;58016091767
 ;;9002226.02101,"1005,58016091769 ",.01)
 ;;58016091769
 ;;9002226.02101,"1005,58016091769 ",.02)
 ;;58016091769
 ;;9002226.02101,"1005,58016091770 ",.01)
 ;;58016091770
 ;;9002226.02101,"1005,58016091770 ",.02)
 ;;58016091770
 ;;9002226.02101,"1005,58016091771 ",.01)
 ;;58016091771
 ;;9002226.02101,"1005,58016091771 ",.02)
 ;;58016091771
 ;;9002226.02101,"1005,58016091772 ",.01)
 ;;58016091772
 ;;9002226.02101,"1005,58016091772 ",.02)
 ;;58016091772
 ;;9002226.02101,"1005,58016091773 ",.01)
 ;;58016091773
 ;;9002226.02101,"1005,58016091773 ",.02)
 ;;58016091773
 ;;9002226.02101,"1005,58016091775 ",.01)
 ;;58016091775
 ;;9002226.02101,"1005,58016091775 ",.02)
 ;;58016091775
 ;;9002226.02101,"1005,58016091776 ",.01)
 ;;58016091776
 ;;9002226.02101,"1005,58016091776 ",.02)
 ;;58016091776
 ;;9002226.02101,"1005,58016091777 ",.01)
 ;;58016091777
 ;;9002226.02101,"1005,58016091777 ",.02)
 ;;58016091777
 ;;9002226.02101,"1005,58016091779 ",.01)
 ;;58016091779
 ;;9002226.02101,"1005,58016091779 ",.02)
 ;;58016091779
 ;;9002226.02101,"1005,58016091780 ",.01)
 ;;58016091780
 ;;9002226.02101,"1005,58016091780 ",.02)
 ;;58016091780
 ;;9002226.02101,"1005,58016091781 ",.01)
 ;;58016091781
 ;;9002226.02101,"1005,58016091781 ",.02)
 ;;58016091781
 ;;9002226.02101,"1005,58016091782 ",.01)
 ;;58016091782
 ;;9002226.02101,"1005,58016091782 ",.02)
 ;;58016091782
 ;;9002226.02101,"1005,58016091783 ",.01)
 ;;58016091783
 ;;9002226.02101,"1005,58016091783 ",.02)
 ;;58016091783
 ;;9002226.02101,"1005,58016091784 ",.01)
 ;;58016091784
 ;;9002226.02101,"1005,58016091784 ",.02)
 ;;58016091784
 ;;9002226.02101,"1005,58016091787 ",.01)
 ;;58016091787
 ;;9002226.02101,"1005,58016091787 ",.02)
 ;;58016091787
 ;;9002226.02101,"1005,58016091789 ",.01)
 ;;58016091789
 ;;9002226.02101,"1005,58016091789 ",.02)
 ;;58016091789
 ;;9002226.02101,"1005,58016091790 ",.01)
 ;;58016091790
 ;;9002226.02101,"1005,58016091790 ",.02)
 ;;58016091790
 ;;9002226.02101,"1005,58016091791 ",.01)
 ;;58016091791
 ;;9002226.02101,"1005,58016091791 ",.02)
 ;;58016091791
 ;;9002226.02101,"1005,58016091792 ",.01)
 ;;58016091792
 ;;9002226.02101,"1005,58016091792 ",.02)
 ;;58016091792
 ;;9002226.02101,"1005,58016091793 ",.01)
 ;;58016091793
 ;;9002226.02101,"1005,58016091793 ",.02)
 ;;58016091793
 ;;9002226.02101,"1005,58016091796 ",.01)
 ;;58016091796
 ;;9002226.02101,"1005,58016091796 ",.02)
 ;;58016091796
 ;;9002226.02101,"1005,58016091797 ",.01)
 ;;58016091797
 ;;9002226.02101,"1005,58016091797 ",.02)
 ;;58016091797
 ;;9002226.02101,"1005,58016091798 ",.01)
 ;;58016091798
 ;;9002226.02101,"1005,58016091798 ",.02)
 ;;58016091798
 ;;9002226.02101,"1005,58016091799 ",.01)
 ;;58016091799
 ;;9002226.02101,"1005,58016091799 ",.02)
 ;;58016091799
 ;;9002226.02101,"1005,58016093500 ",.01)
 ;;58016093500
 ;;9002226.02101,"1005,58016093500 ",.02)
 ;;58016093500
 ;;9002226.02101,"1005,58016093501 ",.01)
 ;;58016093501
 ;;9002226.02101,"1005,58016093501 ",.02)
 ;;58016093501
 ;;9002226.02101,"1005,58016093502 ",.01)
 ;;58016093502
 ;;9002226.02101,"1005,58016093502 ",.02)
 ;;58016093502
 ;;9002226.02101,"1005,58016093503 ",.01)
 ;;58016093503
 ;;9002226.02101,"1005,58016093503 ",.02)
 ;;58016093503
 ;;9002226.02101,"1005,58016093504 ",.01)
 ;;58016093504
 ;;9002226.02101,"1005,58016093504 ",.02)
 ;;58016093504
 ;;9002226.02101,"1005,58016093505 ",.01)
 ;;58016093505
 ;;9002226.02101,"1005,58016093505 ",.02)
 ;;58016093505
 ;;9002226.02101,"1005,58016093506 ",.01)
 ;;58016093506
 ;;9002226.02101,"1005,58016093506 ",.02)
 ;;58016093506
 ;;9002226.02101,"1005,58016093507 ",.01)
 ;;58016093507
 ;;9002226.02101,"1005,58016093507 ",.02)
 ;;58016093507
 ;;9002226.02101,"1005,58016093508 ",.01)
 ;;58016093508
 ;;9002226.02101,"1005,58016093508 ",.02)
 ;;58016093508
 ;;9002226.02101,"1005,58016093509 ",.01)
 ;;58016093509
 ;;9002226.02101,"1005,58016093509 ",.02)
 ;;58016093509
 ;;9002226.02101,"1005,58016093510 ",.01)
 ;;58016093510
 ;;9002226.02101,"1005,58016093510 ",.02)
 ;;58016093510
 ;;9002226.02101,"1005,58016093512 ",.01)
 ;;58016093512
 ;;9002226.02101,"1005,58016093512 ",.02)
 ;;58016093512
 ;;9002226.02101,"1005,58016093514 ",.01)
 ;;58016093514
 ;;9002226.02101,"1005,58016093514 ",.02)
 ;;58016093514
 ;;9002226.02101,"1005,58016093515 ",.01)
 ;;58016093515
 ;;9002226.02101,"1005,58016093515 ",.02)
 ;;58016093515
 ;;9002226.02101,"1005,58016093516 ",.01)
 ;;58016093516
 ;;9002226.02101,"1005,58016093516 ",.02)
 ;;58016093516
 ;;9002226.02101,"1005,58016093518 ",.01)
 ;;58016093518
 ;;9002226.02101,"1005,58016093518 ",.02)
 ;;58016093518
 ;;9002226.02101,"1005,58016093520 ",.01)
 ;;58016093520
 ;;9002226.02101,"1005,58016093520 ",.02)
 ;;58016093520
 ;;9002226.02101,"1005,58016093521 ",.01)
 ;;58016093521
 ;;9002226.02101,"1005,58016093521 ",.02)
 ;;58016093521
 ;;9002226.02101,"1005,58016093524 ",.01)
 ;;58016093524
 ;;9002226.02101,"1005,58016093524 ",.02)
 ;;58016093524
 ;;9002226.02101,"1005,58016093525 ",.01)
 ;;58016093525
 ;;9002226.02101,"1005,58016093525 ",.02)
 ;;58016093525
 ;;9002226.02101,"1005,58016093526 ",.01)
 ;;58016093526
 ;;9002226.02101,"1005,58016093526 ",.02)
 ;;58016093526
 ;;9002226.02101,"1005,58016093527 ",.01)
 ;;58016093527
 ;;9002226.02101,"1005,58016093527 ",.02)
 ;;58016093527
 ;;9002226.02101,"1005,58016093530 ",.01)
 ;;58016093530
 ;;9002226.02101,"1005,58016093530 ",.02)
 ;;58016093530
 ;;9002226.02101,"1005,58016093532 ",.01)
 ;;58016093532
 ;;9002226.02101,"1005,58016093532 ",.02)
 ;;58016093532
 ;;9002226.02101,"1005,58016093535 ",.01)
 ;;58016093535
 ;;9002226.02101,"1005,58016093535 ",.02)
 ;;58016093535
 ;;9002226.02101,"1005,58016093536 ",.01)
 ;;58016093536
 ;;9002226.02101,"1005,58016093536 ",.02)
 ;;58016093536
 ;;9002226.02101,"1005,58016093540 ",.01)
 ;;58016093540
 ;;9002226.02101,"1005,58016093540 ",.02)
 ;;58016093540
 ;;9002226.02101,"1005,58016093542 ",.01)
 ;;58016093542
 ;;9002226.02101,"1005,58016093542 ",.02)
 ;;58016093542
 ;;9002226.02101,"1005,58016093544 ",.01)
 ;;58016093544
 ;;9002226.02101,"1005,58016093544 ",.02)
 ;;58016093544
 ;;9002226.02101,"1005,58016093545 ",.01)
 ;;58016093545
 ;;9002226.02101,"1005,58016093545 ",.02)
 ;;58016093545
 ;;9002226.02101,"1005,58016093548 ",.01)
 ;;58016093548
 ;;9002226.02101,"1005,58016093548 ",.02)
 ;;58016093548
 ;;9002226.02101,"1005,58016093550 ",.01)
 ;;58016093550
 ;;9002226.02101,"1005,58016093550 ",.02)
 ;;58016093550
 ;;9002226.02101,"1005,58016093556 ",.01)
 ;;58016093556
 ;;9002226.02101,"1005,58016093556 ",.02)
 ;;58016093556
 ;;9002226.02101,"1005,58016093560 ",.01)
 ;;58016093560
 ;;9002226.02101,"1005,58016093560 ",.02)
 ;;58016093560
 ;;9002226.02101,"1005,58016093567 ",.01)
 ;;58016093567
 ;;9002226.02101,"1005,58016093567 ",.02)
 ;;58016093567
 ;;9002226.02101,"1005,58016093569 ",.01)
 ;;58016093569
 ;;9002226.02101,"1005,58016093569 ",.02)
 ;;58016093569
 ;;9002226.02101,"1005,58016093570 ",.01)
 ;;58016093570
 ;;9002226.02101,"1005,58016093570 ",.02)
 ;;58016093570
 ;;9002226.02101,"1005,58016093571 ",.01)
 ;;58016093571
 ;;9002226.02101,"1005,58016093571 ",.02)
 ;;58016093571
 ;;9002226.02101,"1005,58016093572 ",.01)
 ;;58016093572
 ;;9002226.02101,"1005,58016093572 ",.02)
 ;;58016093572
 ;;9002226.02101,"1005,58016093573 ",.01)
 ;;58016093573
 ;;9002226.02101,"1005,58016093573 ",.02)
 ;;58016093573
 ;;9002226.02101,"1005,58016093575 ",.01)
 ;;58016093575
 ;;9002226.02101,"1005,58016093575 ",.02)
 ;;58016093575
 ;;9002226.02101,"1005,58016093576 ",.01)
 ;;58016093576
 ;;9002226.02101,"1005,58016093576 ",.02)
 ;;58016093576
 ;;9002226.02101,"1005,58016093577 ",.01)
 ;;58016093577