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