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

BGPM5BFJ.m

Go to the documentation of this file.
BGPM5BFJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,55887065760 ",.02)
 ;;55887065760
 ;;9002226.02101,"1084,55887069301 ",.01)
 ;;55887069301
 ;;9002226.02101,"1084,55887069301 ",.02)
 ;;55887069301
 ;;9002226.02101,"1084,55887069330 ",.01)
 ;;55887069330
 ;;9002226.02101,"1084,55887069330 ",.02)
 ;;55887069330
 ;;9002226.02101,"1084,55887069360 ",.01)
 ;;55887069360
 ;;9002226.02101,"1084,55887069360 ",.02)
 ;;55887069360
 ;;9002226.02101,"1084,55887069390 ",.01)
 ;;55887069390
 ;;9002226.02101,"1084,55887069390 ",.02)
 ;;55887069390
 ;;9002226.02101,"1084,55887072701 ",.01)
 ;;55887072701
 ;;9002226.02101,"1084,55887072701 ",.02)
 ;;55887072701
 ;;9002226.02101,"1084,55887072730 ",.01)
 ;;55887072730
 ;;9002226.02101,"1084,55887072730 ",.02)
 ;;55887072730
 ;;9002226.02101,"1084,55887072760 ",.01)
 ;;55887072760
 ;;9002226.02101,"1084,55887072760 ",.02)
 ;;55887072760
 ;;9002226.02101,"1084,55887072790 ",.01)
 ;;55887072790
 ;;9002226.02101,"1084,55887072790 ",.02)
 ;;55887072790
 ;;9002226.02101,"1084,55887084530 ",.01)
 ;;55887084530
 ;;9002226.02101,"1084,55887084530 ",.02)
 ;;55887084530
 ;;9002226.02101,"1084,55887084560 ",.01)
 ;;55887084560
 ;;9002226.02101,"1084,55887084560 ",.02)
 ;;55887084560
 ;;9002226.02101,"1084,55887094030 ",.01)
 ;;55887094030
 ;;9002226.02101,"1084,55887094030 ",.02)
 ;;55887094030
 ;;9002226.02101,"1084,55887094060 ",.01)
 ;;55887094060
 ;;9002226.02101,"1084,55887094060 ",.02)
 ;;55887094060
 ;;9002226.02101,"1084,55887094090 ",.01)
 ;;55887094090
 ;;9002226.02101,"1084,55887094090 ",.02)
 ;;55887094090
 ;;9002226.02101,"1084,55887096530 ",.01)
 ;;55887096530
 ;;9002226.02101,"1084,55887096530 ",.02)
 ;;55887096530
 ;;9002226.02101,"1084,57315001001 ",.01)
 ;;57315001001
 ;;9002226.02101,"1084,57315001001 ",.02)
 ;;57315001001
 ;;9002226.02101,"1084,57315001002 ",.01)
 ;;57315001002
 ;;9002226.02101,"1084,57315001002 ",.02)
 ;;57315001002
 ;;9002226.02101,"1084,57315001003 ",.01)
 ;;57315001003
 ;;9002226.02101,"1084,57315001003 ",.02)
 ;;57315001003
 ;;9002226.02101,"1084,57315001004 ",.01)
 ;;57315001004
 ;;9002226.02101,"1084,57315001004 ",.02)
 ;;57315001004
 ;;9002226.02101,"1084,57315001101 ",.01)
 ;;57315001101
 ;;9002226.02101,"1084,57315001101 ",.02)
 ;;57315001101
 ;;9002226.02101,"1084,57315001102 ",.01)
 ;;57315001102
 ;;9002226.02101,"1084,57315001102 ",.02)
 ;;57315001102
 ;;9002226.02101,"1084,57315001103 ",.01)
 ;;57315001103
 ;;9002226.02101,"1084,57315001103 ",.02)
 ;;57315001103
 ;;9002226.02101,"1084,57315001104 ",.01)
 ;;57315001104
 ;;9002226.02101,"1084,57315001104 ",.02)
 ;;57315001104
 ;;9002226.02101,"1084,57315004701 ",.01)
 ;;57315004701
 ;;9002226.02101,"1084,57315004701 ",.02)
 ;;57315004701
 ;;9002226.02101,"1084,57315004703 ",.01)
 ;;57315004703
 ;;9002226.02101,"1084,57315004703 ",.02)
 ;;57315004703
 ;;9002226.02101,"1084,57315004704 ",.01)
 ;;57315004704
 ;;9002226.02101,"1084,57315004704 ",.02)
 ;;57315004704
 ;;9002226.02101,"1084,57315004801 ",.01)
 ;;57315004801
 ;;9002226.02101,"1084,57315004801 ",.02)
 ;;57315004801
 ;;9002226.02101,"1084,57315004803 ",.01)
 ;;57315004803
 ;;9002226.02101,"1084,57315004803 ",.02)
 ;;57315004803
 ;;9002226.02101,"1084,57315004804 ",.01)
 ;;57315004804
 ;;9002226.02101,"1084,57315004804 ",.02)
 ;;57315004804
 ;;9002226.02101,"1084,57315004805 ",.01)
 ;;57315004805
 ;;9002226.02101,"1084,57315004805 ",.02)
 ;;57315004805
 ;;9002226.02101,"1084,57315005001 ",.01)
 ;;57315005001
 ;;9002226.02101,"1084,57315005001 ",.02)
 ;;57315005001
 ;;9002226.02101,"1084,57315005002 ",.01)
 ;;57315005002
 ;;9002226.02101,"1084,57315005002 ",.02)
 ;;57315005002
 ;;9002226.02101,"1084,57315005003 ",.01)
 ;;57315005003
 ;;9002226.02101,"1084,57315005003 ",.02)
 ;;57315005003
 ;;9002226.02101,"1084,57664039713 ",.01)
 ;;57664039713
 ;;9002226.02101,"1084,57664039713 ",.02)
 ;;57664039713
 ;;9002226.02101,"1084,57664039718 ",.01)
 ;;57664039718
 ;;9002226.02101,"1084,57664039718 ",.02)
 ;;57664039718
 ;;9002226.02101,"1084,57664039751 ",.01)
 ;;57664039751
 ;;9002226.02101,"1084,57664039751 ",.02)
 ;;57664039751
 ;;9002226.02101,"1084,57664039753 ",.01)
 ;;57664039753
 ;;9002226.02101,"1084,57664039753 ",.02)
 ;;57664039753
 ;;9002226.02101,"1084,57664039758 ",.01)
 ;;57664039758
 ;;9002226.02101,"1084,57664039758 ",.02)
 ;;57664039758
 ;;9002226.02101,"1084,57664039759 ",.01)
 ;;57664039759
 ;;9002226.02101,"1084,57664039759 ",.02)
 ;;57664039759
 ;;9002226.02101,"1084,57664039788 ",.01)
 ;;57664039788
 ;;9002226.02101,"1084,57664039788 ",.02)
 ;;57664039788
 ;;9002226.02101,"1084,57664039799 ",.01)
 ;;57664039799
 ;;9002226.02101,"1084,57664039799 ",.02)
 ;;57664039799
 ;;9002226.02101,"1084,57664039808 ",.01)
 ;;57664039808
 ;;9002226.02101,"1084,57664039808 ",.02)
 ;;57664039808
 ;;9002226.02101,"1084,57664039813 ",.01)
 ;;57664039813
 ;;9002226.02101,"1084,57664039813 ",.02)
 ;;57664039813
 ;;9002226.02101,"1084,57664039818 ",.01)
 ;;57664039818
 ;;9002226.02101,"1084,57664039818 ",.02)
 ;;57664039818
 ;;9002226.02101,"1084,57664039888 ",.01)
 ;;57664039888
 ;;9002226.02101,"1084,57664039888 ",.02)
 ;;57664039888
 ;;9002226.02101,"1084,57664039908 ",.01)
 ;;57664039908
 ;;9002226.02101,"1084,57664039908 ",.02)
 ;;57664039908
 ;;9002226.02101,"1084,57664039913 ",.01)
 ;;57664039913
 ;;9002226.02101,"1084,57664039913 ",.02)
 ;;57664039913
 ;;9002226.02101,"1084,57664039918 ",.01)
 ;;57664039918
 ;;9002226.02101,"1084,57664039918 ",.02)
 ;;57664039918
 ;;9002226.02101,"1084,57664039988 ",.01)
 ;;57664039988
 ;;9002226.02101,"1084,57664039988 ",.02)
 ;;57664039988
 ;;9002226.02101,"1084,57664043513 ",.01)
 ;;57664043513
 ;;9002226.02101,"1084,57664043513 ",.02)
 ;;57664043513
 ;;9002226.02101,"1084,57664043518 ",.01)
 ;;57664043518
 ;;9002226.02101,"1084,57664043518 ",.02)
 ;;57664043518
 ;;9002226.02101,"1084,57664043551 ",.01)
 ;;57664043551
 ;;9002226.02101,"1084,57664043551 ",.02)
 ;;57664043551
 ;;9002226.02101,"1084,57664043553 ",.01)
 ;;57664043553
 ;;9002226.02101,"1084,57664043553 ",.02)
 ;;57664043553
 ;;9002226.02101,"1084,57664043558 ",.01)
 ;;57664043558
 ;;9002226.02101,"1084,57664043558 ",.02)
 ;;57664043558
 ;;9002226.02101,"1084,57664043559 ",.01)
 ;;57664043559
 ;;9002226.02101,"1084,57664043559 ",.02)
 ;;57664043559
 ;;9002226.02101,"1084,57664043588 ",.01)
 ;;57664043588
 ;;9002226.02101,"1084,57664043588 ",.02)
 ;;57664043588
 ;;9002226.02101,"1084,57664043599 ",.01)
 ;;57664043599
 ;;9002226.02101,"1084,57664043599 ",.02)
 ;;57664043599
 ;;9002226.02101,"1084,57664047413 ",.01)
 ;;57664047413
 ;;9002226.02101,"1084,57664047413 ",.02)
 ;;57664047413
 ;;9002226.02101,"1084,57664047418 ",.01)
 ;;57664047418
 ;;9002226.02101,"1084,57664047418 ",.02)
 ;;57664047418
 ;;9002226.02101,"1084,57664047451 ",.01)
 ;;57664047451
 ;;9002226.02101,"1084,57664047451 ",.02)
 ;;57664047451
 ;;9002226.02101,"1084,57664047453 ",.01)
 ;;57664047453
 ;;9002226.02101,"1084,57664047453 ",.02)
 ;;57664047453
 ;;9002226.02101,"1084,57664047458 ",.01)
 ;;57664047458
 ;;9002226.02101,"1084,57664047458 ",.02)
 ;;57664047458
 ;;9002226.02101,"1084,57664047459 ",.01)
 ;;57664047459
 ;;9002226.02101,"1084,57664047459 ",.02)
 ;;57664047459
 ;;9002226.02101,"1084,57664047488 ",.01)
 ;;57664047488
 ;;9002226.02101,"1084,57664047488 ",.02)
 ;;57664047488
 ;;9002226.02101,"1084,57664047499 ",.01)
 ;;57664047499
 ;;9002226.02101,"1084,57664047499 ",.02)
 ;;57664047499
 ;;9002226.02101,"1084,57664072413 ",.01)
 ;;57664072413
 ;;9002226.02101,"1084,57664072413 ",.02)
 ;;57664072413
 ;;9002226.02101,"1084,57664072418 ",.01)
 ;;57664072418
 ;;9002226.02101,"1084,57664072418 ",.02)
 ;;57664072418
 ;;9002226.02101,"1084,57664072488 ",.01)
 ;;57664072488
 ;;9002226.02101,"1084,57664072488 ",.02)
 ;;57664072488
 ;;9002226.02101,"1084,57664072513 ",.01)
 ;;57664072513
 ;;9002226.02101,"1084,57664072513 ",.02)
 ;;57664072513
 ;;9002226.02101,"1084,57664072518 ",.01)
 ;;57664072518
 ;;9002226.02101,"1084,57664072518 ",.02)
 ;;57664072518
 ;;9002226.02101,"1084,57664072588 ",.01)
 ;;57664072588
 ;;9002226.02101,"1084,57664072588 ",.02)
 ;;57664072588
 ;;9002226.02101,"1084,57664072713 ",.01)
 ;;57664072713
 ;;9002226.02101,"1084,57664072713 ",.02)
 ;;57664072713
 ;;9002226.02101,"1084,57664072718 ",.01)
 ;;57664072718
 ;;9002226.02101,"1084,57664072718 ",.02)
 ;;57664072718
 ;;9002226.02101,"1084,57664072788 ",.01)
 ;;57664072788
 ;;9002226.02101,"1084,57664072788 ",.02)
 ;;57664072788
 ;;9002226.02101,"1084,57664099813 ",.01)
 ;;57664099813
 ;;9002226.02101,"1084,57664099813 ",.02)
 ;;57664099813
 ;;9002226.02101,"1084,57664099818 ",.01)
 ;;57664099818
 ;;9002226.02101,"1084,57664099818 ",.02)
 ;;57664099818
 ;;9002226.02101,"1084,57664099888 ",.01)
 ;;57664099888
 ;;9002226.02101,"1084,57664099888 ",.02)
 ;;57664099888
 ;;9002226.02101,"1084,57664099899 ",.01)
 ;;57664099899
 ;;9002226.02101,"1084,57664099899 ",.02)
 ;;57664099899
 ;;9002226.02101,"1084,57664099913 ",.01)
 ;;57664099913
 ;;9002226.02101,"1084,57664099913 ",.02)
 ;;57664099913
 ;;9002226.02101,"1084,57664099918 ",.01)
 ;;57664099918
 ;;9002226.02101,"1084,57664099918 ",.02)
 ;;57664099918
 ;;9002226.02101,"1084,57664099988 ",.01)
 ;;57664099988
 ;;9002226.02101,"1084,57664099988 ",.02)
 ;;57664099988
 ;;9002226.02101,"1084,57664099999 ",.01)
 ;;57664099999
 ;;9002226.02101,"1084,57664099999 ",.02)
 ;;57664099999
 ;;9002226.02101,"1084,57866346201 ",.01)
 ;;57866346201
 ;;9002226.02101,"1084,57866346201 ",.02)
 ;;57866346201
 ;;9002226.02101,"1084,57866346502 ",.01)
 ;;57866346502
 ;;9002226.02101,"1084,57866346502 ",.02)
 ;;57866346502
 ;;9002226.02101,"1084,57866346505 ",.01)
 ;;57866346505
 ;;9002226.02101,"1084,57866346505 ",.02)
 ;;57866346505
 ;;9002226.02101,"1084,57866466802 ",.01)
 ;;57866466802
 ;;9002226.02101,"1084,57866466802 ",.02)
 ;;57866466802
 ;;9002226.02101,"1084,57866640701 ",.01)
 ;;57866640701
 ;;9002226.02101,"1084,57866640701 ",.02)
 ;;57866640701
 ;;9002226.02101,"1084,57866640801 ",.01)
 ;;57866640801
 ;;9002226.02101,"1084,57866640801 ",.02)
 ;;57866640801
 ;;9002226.02101,"1084,57866640802 ",.01)
 ;;57866640802
 ;;9002226.02101,"1084,57866640802 ",.02)
 ;;57866640802
 ;;9002226.02101,"1084,57866640901 ",.01)
 ;;57866640901
 ;;9002226.02101,"1084,57866640901 ",.02)
 ;;57866640901
 ;;9002226.02101,"1084,57866640902 ",.01)
 ;;57866640902
 ;;9002226.02101,"1084,57866640902 ",.02)
 ;;57866640902
 ;;9002226.02101,"1084,57866640903 ",.01)
 ;;57866640903
 ;;9002226.02101,"1084,57866640903 ",.02)
 ;;57866640903
 ;;9002226.02101,"1084,57866640904 ",.01)
 ;;57866640904
 ;;9002226.02101,"1084,57866640904 ",.02)
 ;;57866640904
 ;;9002226.02101,"1084,57866640905 ",.01)
 ;;57866640905
 ;;9002226.02101,"1084,57866640905 ",.02)
 ;;57866640905
 ;;9002226.02101,"1084,57866640906 ",.01)
 ;;57866640906
 ;;9002226.02101,"1084,57866640906 ",.02)
 ;;57866640906
 ;;9002226.02101,"1084,57866646201 ",.01)
 ;;57866646201
 ;;9002226.02101,"1084,57866646201 ",.02)
 ;;57866646201
 ;;9002226.02101,"1084,57866646203 ",.01)
 ;;57866646203
 ;;9002226.02101,"1084,57866646203 ",.02)
 ;;57866646203
 ;;9002226.02101,"1084,57866646301 ",.01)
 ;;57866646301
 ;;9002226.02101,"1084,57866646301 ",.02)
 ;;57866646301
 ;;9002226.02101,"1084,57866646302 ",.01)
 ;;57866646302
 ;;9002226.02101,"1084,57866646302 ",.02)
 ;;57866646302
 ;;9002226.02101,"1084,57866707301 ",.01)
 ;;57866707301
 ;;9002226.02101,"1084,57866707301 ",.02)
 ;;57866707301
 ;;9002226.02101,"1084,57866707302 ",.01)
 ;;57866707302
 ;;9002226.02101,"1084,57866707302 ",.02)
 ;;57866707302