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

BGPM3AAN.m

Go to the documentation of this file.
BGPM3AAN ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"774,58016008356 ",.02)
 ;;58016008356
 ;;9002226.02101,"774,58016008360 ",.01)
 ;;58016008360
 ;;9002226.02101,"774,58016008360 ",.02)
 ;;58016008360
 ;;9002226.02101,"774,58016008367 ",.01)
 ;;58016008367
 ;;9002226.02101,"774,58016008367 ",.02)
 ;;58016008367
 ;;9002226.02101,"774,58016008369 ",.01)
 ;;58016008369
 ;;9002226.02101,"774,58016008369 ",.02)
 ;;58016008369
 ;;9002226.02101,"774,58016008370 ",.01)
 ;;58016008370
 ;;9002226.02101,"774,58016008370 ",.02)
 ;;58016008370
 ;;9002226.02101,"774,58016008371 ",.01)
 ;;58016008371
 ;;9002226.02101,"774,58016008371 ",.02)
 ;;58016008371
 ;;9002226.02101,"774,58016008372 ",.01)
 ;;58016008372
 ;;9002226.02101,"774,58016008372 ",.02)
 ;;58016008372
 ;;9002226.02101,"774,58016008373 ",.01)
 ;;58016008373
 ;;9002226.02101,"774,58016008373 ",.02)
 ;;58016008373
 ;;9002226.02101,"774,58016008375 ",.01)
 ;;58016008375
 ;;9002226.02101,"774,58016008375 ",.02)
 ;;58016008375
 ;;9002226.02101,"774,58016008376 ",.01)
 ;;58016008376
 ;;9002226.02101,"774,58016008376 ",.02)
 ;;58016008376
 ;;9002226.02101,"774,58016008377 ",.01)
 ;;58016008377
 ;;9002226.02101,"774,58016008377 ",.02)
 ;;58016008377
 ;;9002226.02101,"774,58016008379 ",.01)
 ;;58016008379
 ;;9002226.02101,"774,58016008379 ",.02)
 ;;58016008379
 ;;9002226.02101,"774,58016008380 ",.01)
 ;;58016008380
 ;;9002226.02101,"774,58016008380 ",.02)
 ;;58016008380
 ;;9002226.02101,"774,58016008381 ",.01)
 ;;58016008381
 ;;9002226.02101,"774,58016008381 ",.02)
 ;;58016008381
 ;;9002226.02101,"774,58016008382 ",.01)
 ;;58016008382
 ;;9002226.02101,"774,58016008382 ",.02)
 ;;58016008382
 ;;9002226.02101,"774,58016008383 ",.01)
 ;;58016008383
 ;;9002226.02101,"774,58016008383 ",.02)
 ;;58016008383
 ;;9002226.02101,"774,58016008384 ",.01)
 ;;58016008384
 ;;9002226.02101,"774,58016008384 ",.02)
 ;;58016008384
 ;;9002226.02101,"774,58016008387 ",.01)
 ;;58016008387
 ;;9002226.02101,"774,58016008387 ",.02)
 ;;58016008387
 ;;9002226.02101,"774,58016008389 ",.01)
 ;;58016008389
 ;;9002226.02101,"774,58016008389 ",.02)
 ;;58016008389
 ;;9002226.02101,"774,58016008390 ",.01)
 ;;58016008390
 ;;9002226.02101,"774,58016008390 ",.02)
 ;;58016008390
 ;;9002226.02101,"774,58016008391 ",.01)
 ;;58016008391
 ;;9002226.02101,"774,58016008391 ",.02)
 ;;58016008391
 ;;9002226.02101,"774,58016008392 ",.01)
 ;;58016008392
 ;;9002226.02101,"774,58016008392 ",.02)
 ;;58016008392
 ;;9002226.02101,"774,58016008393 ",.01)
 ;;58016008393
 ;;9002226.02101,"774,58016008393 ",.02)
 ;;58016008393
 ;;9002226.02101,"774,58016008396 ",.01)
 ;;58016008396
 ;;9002226.02101,"774,58016008396 ",.02)
 ;;58016008396
 ;;9002226.02101,"774,58016008397 ",.01)
 ;;58016008397
 ;;9002226.02101,"774,58016008397 ",.02)
 ;;58016008397
 ;;9002226.02101,"774,58016008398 ",.01)
 ;;58016008398
 ;;9002226.02101,"774,58016008398 ",.02)
 ;;58016008398
 ;;9002226.02101,"774,58016008399 ",.01)
 ;;58016008399
 ;;9002226.02101,"774,58016008399 ",.02)
 ;;58016008399
 ;;9002226.02101,"774,58016027700 ",.01)
 ;;58016027700
 ;;9002226.02101,"774,58016027700 ",.02)
 ;;58016027700
 ;;9002226.02101,"774,58016027701 ",.01)
 ;;58016027701
 ;;9002226.02101,"774,58016027701 ",.02)
 ;;58016027701
 ;;9002226.02101,"774,58016027702 ",.01)
 ;;58016027702
 ;;9002226.02101,"774,58016027702 ",.02)
 ;;58016027702
 ;;9002226.02101,"774,58016027703 ",.01)
 ;;58016027703
 ;;9002226.02101,"774,58016027703 ",.02)
 ;;58016027703
 ;;9002226.02101,"774,58016027704 ",.01)
 ;;58016027704
 ;;9002226.02101,"774,58016027704 ",.02)
 ;;58016027704
 ;;9002226.02101,"774,58016027705 ",.01)
 ;;58016027705
 ;;9002226.02101,"774,58016027705 ",.02)
 ;;58016027705
 ;;9002226.02101,"774,58016027706 ",.01)
 ;;58016027706
 ;;9002226.02101,"774,58016027706 ",.02)
 ;;58016027706
 ;;9002226.02101,"774,58016027707 ",.01)
 ;;58016027707
 ;;9002226.02101,"774,58016027707 ",.02)
 ;;58016027707
 ;;9002226.02101,"774,58016027708 ",.01)
 ;;58016027708
 ;;9002226.02101,"774,58016027708 ",.02)
 ;;58016027708
 ;;9002226.02101,"774,58016027709 ",.01)
 ;;58016027709
 ;;9002226.02101,"774,58016027709 ",.02)
 ;;58016027709
 ;;9002226.02101,"774,58016027710 ",.01)
 ;;58016027710
 ;;9002226.02101,"774,58016027710 ",.02)
 ;;58016027710
 ;;9002226.02101,"774,58016027712 ",.01)
 ;;58016027712
 ;;9002226.02101,"774,58016027712 ",.02)
 ;;58016027712
 ;;9002226.02101,"774,58016027714 ",.01)
 ;;58016027714
 ;;9002226.02101,"774,58016027714 ",.02)
 ;;58016027714
 ;;9002226.02101,"774,58016027715 ",.01)
 ;;58016027715
 ;;9002226.02101,"774,58016027715 ",.02)
 ;;58016027715
 ;;9002226.02101,"774,58016027716 ",.01)
 ;;58016027716
 ;;9002226.02101,"774,58016027716 ",.02)
 ;;58016027716
 ;;9002226.02101,"774,58016027718 ",.01)
 ;;58016027718
 ;;9002226.02101,"774,58016027718 ",.02)
 ;;58016027718
 ;;9002226.02101,"774,58016027720 ",.01)
 ;;58016027720
 ;;9002226.02101,"774,58016027720 ",.02)
 ;;58016027720
 ;;9002226.02101,"774,58016027721 ",.01)
 ;;58016027721
 ;;9002226.02101,"774,58016027721 ",.02)
 ;;58016027721
 ;;9002226.02101,"774,58016027724 ",.01)
 ;;58016027724
 ;;9002226.02101,"774,58016027724 ",.02)
 ;;58016027724
 ;;9002226.02101,"774,58016027725 ",.01)
 ;;58016027725
 ;;9002226.02101,"774,58016027725 ",.02)
 ;;58016027725
 ;;9002226.02101,"774,58016027726 ",.01)
 ;;58016027726
 ;;9002226.02101,"774,58016027726 ",.02)
 ;;58016027726
 ;;9002226.02101,"774,58016027727 ",.01)
 ;;58016027727
 ;;9002226.02101,"774,58016027727 ",.02)
 ;;58016027727
 ;;9002226.02101,"774,58016027728 ",.01)
 ;;58016027728
 ;;9002226.02101,"774,58016027728 ",.02)
 ;;58016027728
 ;;9002226.02101,"774,58016027730 ",.01)
 ;;58016027730
 ;;9002226.02101,"774,58016027730 ",.02)
 ;;58016027730
 ;;9002226.02101,"774,58016027732 ",.01)
 ;;58016027732
 ;;9002226.02101,"774,58016027732 ",.02)
 ;;58016027732
 ;;9002226.02101,"774,58016027735 ",.01)
 ;;58016027735
 ;;9002226.02101,"774,58016027735 ",.02)
 ;;58016027735
 ;;9002226.02101,"774,58016027736 ",.01)
 ;;58016027736
 ;;9002226.02101,"774,58016027736 ",.02)
 ;;58016027736
 ;;9002226.02101,"774,58016027740 ",.01)
 ;;58016027740
 ;;9002226.02101,"774,58016027740 ",.02)
 ;;58016027740
 ;;9002226.02101,"774,58016027742 ",.01)
 ;;58016027742
 ;;9002226.02101,"774,58016027742 ",.02)
 ;;58016027742
 ;;9002226.02101,"774,58016027744 ",.01)
 ;;58016027744
 ;;9002226.02101,"774,58016027744 ",.02)
 ;;58016027744
 ;;9002226.02101,"774,58016027745 ",.01)
 ;;58016027745
 ;;9002226.02101,"774,58016027745 ",.02)
 ;;58016027745
 ;;9002226.02101,"774,58016027748 ",.01)
 ;;58016027748
 ;;9002226.02101,"774,58016027748 ",.02)
 ;;58016027748
 ;;9002226.02101,"774,58016027750 ",.01)
 ;;58016027750
 ;;9002226.02101,"774,58016027750 ",.02)
 ;;58016027750
 ;;9002226.02101,"774,58016027756 ",.01)
 ;;58016027756
 ;;9002226.02101,"774,58016027756 ",.02)
 ;;58016027756
 ;;9002226.02101,"774,58016027760 ",.01)
 ;;58016027760
 ;;9002226.02101,"774,58016027760 ",.02)
 ;;58016027760
 ;;9002226.02101,"774,58016027767 ",.01)
 ;;58016027767
 ;;9002226.02101,"774,58016027767 ",.02)
 ;;58016027767
 ;;9002226.02101,"774,58016027769 ",.01)
 ;;58016027769
 ;;9002226.02101,"774,58016027769 ",.02)
 ;;58016027769
 ;;9002226.02101,"774,58016027770 ",.01)
 ;;58016027770
 ;;9002226.02101,"774,58016027770 ",.02)
 ;;58016027770
 ;;9002226.02101,"774,58016027771 ",.01)
 ;;58016027771
 ;;9002226.02101,"774,58016027771 ",.02)
 ;;58016027771
 ;;9002226.02101,"774,58016027772 ",.01)
 ;;58016027772
 ;;9002226.02101,"774,58016027772 ",.02)
 ;;58016027772
 ;;9002226.02101,"774,58016027773 ",.01)
 ;;58016027773
 ;;9002226.02101,"774,58016027773 ",.02)
 ;;58016027773
 ;;9002226.02101,"774,58016027775 ",.01)
 ;;58016027775
 ;;9002226.02101,"774,58016027775 ",.02)
 ;;58016027775
 ;;9002226.02101,"774,58016027776 ",.01)
 ;;58016027776
 ;;9002226.02101,"774,58016027776 ",.02)
 ;;58016027776
 ;;9002226.02101,"774,58016027777 ",.01)
 ;;58016027777
 ;;9002226.02101,"774,58016027777 ",.02)
 ;;58016027777
 ;;9002226.02101,"774,58016027779 ",.01)
 ;;58016027779
 ;;9002226.02101,"774,58016027779 ",.02)
 ;;58016027779
 ;;9002226.02101,"774,58016027780 ",.01)
 ;;58016027780
 ;;9002226.02101,"774,58016027780 ",.02)
 ;;58016027780
 ;;9002226.02101,"774,58016027781 ",.01)
 ;;58016027781
 ;;9002226.02101,"774,58016027781 ",.02)
 ;;58016027781
 ;;9002226.02101,"774,58016027782 ",.01)
 ;;58016027782
 ;;9002226.02101,"774,58016027782 ",.02)
 ;;58016027782
 ;;9002226.02101,"774,58016027783 ",.01)
 ;;58016027783
 ;;9002226.02101,"774,58016027783 ",.02)
 ;;58016027783
 ;;9002226.02101,"774,58016027784 ",.01)
 ;;58016027784
 ;;9002226.02101,"774,58016027784 ",.02)
 ;;58016027784
 ;;9002226.02101,"774,58016027787 ",.01)
 ;;58016027787
 ;;9002226.02101,"774,58016027787 ",.02)
 ;;58016027787
 ;;9002226.02101,"774,58016027789 ",.01)
 ;;58016027789
 ;;9002226.02101,"774,58016027789 ",.02)
 ;;58016027789
 ;;9002226.02101,"774,58016027790 ",.01)
 ;;58016027790
 ;;9002226.02101,"774,58016027790 ",.02)
 ;;58016027790
 ;;9002226.02101,"774,58016027791 ",.01)
 ;;58016027791
 ;;9002226.02101,"774,58016027791 ",.02)
 ;;58016027791
 ;;9002226.02101,"774,58016027792 ",.01)
 ;;58016027792
 ;;9002226.02101,"774,58016027792 ",.02)
 ;;58016027792
 ;;9002226.02101,"774,58016027793 ",.01)
 ;;58016027793
 ;;9002226.02101,"774,58016027793 ",.02)
 ;;58016027793
 ;;9002226.02101,"774,58016027796 ",.01)
 ;;58016027796
 ;;9002226.02101,"774,58016027796 ",.02)
 ;;58016027796
 ;;9002226.02101,"774,58016027797 ",.01)
 ;;58016027797
 ;;9002226.02101,"774,58016027797 ",.02)
 ;;58016027797
 ;;9002226.02101,"774,58016027798 ",.01)
 ;;58016027798
 ;;9002226.02101,"774,58016027798 ",.02)
 ;;58016027798
 ;;9002226.02101,"774,58016027799 ",.01)
 ;;58016027799
 ;;9002226.02101,"774,58016027799 ",.02)
 ;;58016027799
 ;;9002226.02101,"774,58016069700 ",.01)
 ;;58016069700
 ;;9002226.02101,"774,58016069700 ",.02)
 ;;58016069700
 ;;9002226.02101,"774,58016069730 ",.01)
 ;;58016069730
 ;;9002226.02101,"774,58016069730 ",.02)
 ;;58016069730
 ;;9002226.02101,"774,58016069760 ",.01)
 ;;58016069760
 ;;9002226.02101,"774,58016069760 ",.02)
 ;;58016069760
 ;;9002226.02101,"774,58016069790 ",.01)
 ;;58016069790
 ;;9002226.02101,"774,58016069790 ",.02)
 ;;58016069790
 ;;9002226.02101,"774,58016078600 ",.01)
 ;;58016078600
 ;;9002226.02101,"774,58016078600 ",.02)
 ;;58016078600
 ;;9002226.02101,"774,58016097100 ",.01)
 ;;58016097100
 ;;9002226.02101,"774,58016097100 ",.02)
 ;;58016097100
 ;;9002226.02101,"774,58016097101 ",.01)
 ;;58016097101
 ;;9002226.02101,"774,58016097101 ",.02)
 ;;58016097101
 ;;9002226.02101,"774,58016097102 ",.01)
 ;;58016097102
 ;;9002226.02101,"774,58016097102 ",.02)
 ;;58016097102
 ;;9002226.02101,"774,58016097103 ",.01)
 ;;58016097103
 ;;9002226.02101,"774,58016097103 ",.02)
 ;;58016097103
 ;;9002226.02101,"774,58016097104 ",.01)
 ;;58016097104
 ;;9002226.02101,"774,58016097104 ",.02)
 ;;58016097104
 ;;9002226.02101,"774,58016097105 ",.01)
 ;;58016097105
 ;;9002226.02101,"774,58016097105 ",.02)
 ;;58016097105
 ;;9002226.02101,"774,58016097106 ",.01)
 ;;58016097106
 ;;9002226.02101,"774,58016097106 ",.02)
 ;;58016097106
 ;;9002226.02101,"774,58016097107 ",.01)
 ;;58016097107
 ;;9002226.02101,"774,58016097107 ",.02)
 ;;58016097107
 ;;9002226.02101,"774,58016097108 ",.01)
 ;;58016097108
 ;;9002226.02101,"774,58016097108 ",.02)
 ;;58016097108
 ;;9002226.02101,"774,58016097109 ",.01)
 ;;58016097109
 ;;9002226.02101,"774,58016097109 ",.02)
 ;;58016097109
 ;;9002226.02101,"774,58016097110 ",.01)
 ;;58016097110