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

BGPM5AGQ.m

Go to the documentation of this file.
  1. BGPM5AGQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,49856020605 ",.02)
  1. ;;49856020605
  1. ;;9002226.02101,"882,49856020607 ",.01)
  1. ;;49856020607
  1. ;;9002226.02101,"882,49856020607 ",.02)
  1. ;;49856020607
  1. ;;9002226.02101,"882,49856020701 ",.01)
  1. ;;49856020701
  1. ;;9002226.02101,"882,49856020701 ",.02)
  1. ;;49856020701
  1. ;;9002226.02101,"882,49856020702 ",.01)
  1. ;;49856020702
  1. ;;9002226.02101,"882,49856020702 ",.02)
  1. ;;49856020702
  1. ;;9002226.02101,"882,49856020703 ",.01)
  1. ;;49856020703
  1. ;;9002226.02101,"882,49856020703 ",.02)
  1. ;;49856020703
  1. ;;9002226.02101,"882,49856020705 ",.01)
  1. ;;49856020705
  1. ;;9002226.02101,"882,49856020705 ",.02)
  1. ;;49856020705
  1. ;;9002226.02101,"882,49856020707 ",.01)
  1. ;;49856020707
  1. ;;9002226.02101,"882,49856020707 ",.02)
  1. ;;49856020707
  1. ;;9002226.02101,"882,49856020801 ",.01)
  1. ;;49856020801
  1. ;;9002226.02101,"882,49856020801 ",.02)
  1. ;;49856020801
  1. ;;9002226.02101,"882,49856020802 ",.01)
  1. ;;49856020802
  1. ;;9002226.02101,"882,49856020802 ",.02)
  1. ;;49856020802
  1. ;;9002226.02101,"882,49856020901 ",.01)
  1. ;;49856020901
  1. ;;9002226.02101,"882,49856020901 ",.02)
  1. ;;49856020901
  1. ;;9002226.02101,"882,49856020902 ",.01)
  1. ;;49856020902
  1. ;;9002226.02101,"882,49856020902 ",.02)
  1. ;;49856020902
  1. ;;9002226.02101,"882,49856251002 ",.01)
  1. ;;49856251002
  1. ;;9002226.02101,"882,49856251002 ",.02)
  1. ;;49856251002
  1. ;;9002226.02101,"882,49856251003 ",.01)
  1. ;;49856251003
  1. ;;9002226.02101,"882,49856251003 ",.02)
  1. ;;49856251003
  1. ;;9002226.02101,"882,49856251004 ",.01)
  1. ;;49856251004
  1. ;;9002226.02101,"882,49856251004 ",.02)
  1. ;;49856251004
  1. ;;9002226.02101,"882,49856251102 ",.01)
  1. ;;49856251102
  1. ;;9002226.02101,"882,49856251102 ",.02)
  1. ;;49856251102
  1. ;;9002226.02101,"882,49856251103 ",.01)
  1. ;;49856251103
  1. ;;9002226.02101,"882,49856251103 ",.02)
  1. ;;49856251103
  1. ;;9002226.02101,"882,49856251104 ",.01)
  1. ;;49856251104
  1. ;;9002226.02101,"882,49856251104 ",.02)
  1. ;;49856251104
  1. ;;9002226.02101,"882,49856251202 ",.01)
  1. ;;49856251202
  1. ;;9002226.02101,"882,49856251202 ",.02)
  1. ;;49856251202
  1. ;;9002226.02101,"882,49856251203 ",.01)
  1. ;;49856251203
  1. ;;9002226.02101,"882,49856251203 ",.02)
  1. ;;49856251203
  1. ;;9002226.02101,"882,49856251208 ",.01)
  1. ;;49856251208
  1. ;;9002226.02101,"882,49856251208 ",.02)
  1. ;;49856251208
  1. ;;9002226.02101,"882,49856287501 ",.01)
  1. ;;49856287501
  1. ;;9002226.02101,"882,49856287501 ",.02)
  1. ;;49856287501
  1. ;;9002226.02101,"882,49856287503 ",.01)
  1. ;;49856287503
  1. ;;9002226.02101,"882,49856287503 ",.02)
  1. ;;49856287503
  1. ;;9002226.02101,"882,49856287505 ",.01)
  1. ;;49856287505
  1. ;;9002226.02101,"882,49856287505 ",.02)
  1. ;;49856287505
  1. ;;9002226.02101,"882,49856287508 ",.01)
  1. ;;49856287508
  1. ;;9002226.02101,"882,49856287508 ",.02)
  1. ;;49856287508
  1. ;;9002226.02101,"882,49856287600 ",.01)
  1. ;;49856287600
  1. ;;9002226.02101,"882,49856287600 ",.02)
  1. ;;49856287600
  1. ;;9002226.02101,"882,49856287601 ",.01)
  1. ;;49856287601
  1. ;;9002226.02101,"882,49856287601 ",.02)
  1. ;;49856287601
  1. ;;9002226.02101,"882,49856287603 ",.01)
  1. ;;49856287603
  1. ;;9002226.02101,"882,49856287603 ",.02)
  1. ;;49856287603
  1. ;;9002226.02101,"882,49856287605 ",.01)
  1. ;;49856287605
  1. ;;9002226.02101,"882,49856287605 ",.02)
  1. ;;49856287605
  1. ;;9002226.02101,"882,49856287608 ",.01)
  1. ;;49856287608
  1. ;;9002226.02101,"882,49856287608 ",.02)
  1. ;;49856287608
  1. ;;9002226.02101,"882,49856287700 ",.01)
  1. ;;49856287700
  1. ;;9002226.02101,"882,49856287700 ",.02)
  1. ;;49856287700
  1. ;;9002226.02101,"882,49856287701 ",.01)
  1. ;;49856287701
  1. ;;9002226.02101,"882,49856287701 ",.02)
  1. ;;49856287701
  1. ;;9002226.02101,"882,49856287703 ",.01)
  1. ;;49856287703
  1. ;;9002226.02101,"882,49856287703 ",.02)
  1. ;;49856287703
  1. ;;9002226.02101,"882,49856287705 ",.01)
  1. ;;49856287705
  1. ;;9002226.02101,"882,49856287705 ",.02)
  1. ;;49856287705
  1. ;;9002226.02101,"882,49856287708 ",.01)
  1. ;;49856287708
  1. ;;9002226.02101,"882,49856287708 ",.02)
  1. ;;49856287708
  1. ;;9002226.02101,"882,49856287800 ",.01)
  1. ;;49856287800
  1. ;;9002226.02101,"882,49856287800 ",.02)
  1. ;;49856287800
  1. ;;9002226.02101,"882,49856287801 ",.01)
  1. ;;49856287801
  1. ;;9002226.02101,"882,49856287801 ",.02)
  1. ;;49856287801
  1. ;;9002226.02101,"882,49856287803 ",.01)
  1. ;;49856287803
  1. ;;9002226.02101,"882,49856287803 ",.02)
  1. ;;49856287803
  1. ;;9002226.02101,"882,49856287805 ",.01)
  1. ;;49856287805
  1. ;;9002226.02101,"882,49856287805 ",.02)
  1. ;;49856287805
  1. ;;9002226.02101,"882,49856287808 ",.01)
  1. ;;49856287808
  1. ;;9002226.02101,"882,49856287808 ",.02)
  1. ;;49856287808
  1. ;;9002226.02101,"882,49884044401 ",.01)
  1. ;;49884044401
  1. ;;9002226.02101,"882,49884044401 ",.02)
  1. ;;49884044401
  1. ;;9002226.02101,"882,49884044410 ",.01)
  1. ;;49884044410
  1. ;;9002226.02101,"882,49884044410 ",.02)
  1. ;;49884044410
  1. ;;9002226.02101,"882,49884044501 ",.01)
  1. ;;49884044501
  1. ;;9002226.02101,"882,49884044501 ",.02)
  1. ;;49884044501
  1. ;;9002226.02101,"882,49884044510 ",.01)
  1. ;;49884044510
  1. ;;9002226.02101,"882,49884044510 ",.02)
  1. ;;49884044510
  1. ;;9002226.02101,"882,49884044601 ",.01)
  1. ;;49884044601
  1. ;;9002226.02101,"882,49884044601 ",.02)
  1. ;;49884044601
  1. ;;9002226.02101,"882,49884044610 ",.01)
  1. ;;49884044610
  1. ;;9002226.02101,"882,49884044610 ",.02)
  1. ;;49884044610
  1. ;;9002226.02101,"882,49884044701 ",.01)
  1. ;;49884044701
  1. ;;9002226.02101,"882,49884044701 ",.02)
  1. ;;49884044701
  1. ;;9002226.02101,"882,49884044710 ",.01)
  1. ;;49884044710
  1. ;;9002226.02101,"882,49884044710 ",.02)
  1. ;;49884044710
  1. ;;9002226.02101,"882,49884055601 ",.01)
  1. ;;49884055601
  1. ;;9002226.02101,"882,49884055601 ",.02)
  1. ;;49884055601
  1. ;;9002226.02101,"882,49884055610 ",.01)
  1. ;;49884055610
  1. ;;9002226.02101,"882,49884055610 ",.02)
  1. ;;49884055610
  1. ;;9002226.02101,"882,49884055701 ",.01)
  1. ;;49884055701
  1. ;;9002226.02101,"882,49884055701 ",.02)
  1. ;;49884055701
  1. ;;9002226.02101,"882,49884055710 ",.01)
  1. ;;49884055710
  1. ;;9002226.02101,"882,49884055710 ",.02)
  1. ;;49884055710
  1. ;;9002226.02101,"882,49884055801 ",.01)
  1. ;;49884055801
  1. ;;9002226.02101,"882,49884055801 ",.02)
  1. ;;49884055801
  1. ;;9002226.02101,"882,49884055810 ",.01)
  1. ;;49884055810
  1. ;;9002226.02101,"882,49884055810 ",.02)
  1. ;;49884055810
  1. ;;9002226.02101,"882,49884055901 ",.01)
  1. ;;49884055901
  1. ;;9002226.02101,"882,49884055901 ",.02)
  1. ;;49884055901
  1. ;;9002226.02101,"882,49884055910 ",.01)
  1. ;;49884055910
  1. ;;9002226.02101,"882,49884055910 ",.02)
  1. ;;49884055910
  1. ;;9002226.02101,"882,49884056001 ",.01)
  1. ;;49884056001
  1. ;;9002226.02101,"882,49884056001 ",.02)
  1. ;;49884056001
  1. ;;9002226.02101,"882,49884056010 ",.01)
  1. ;;49884056010
  1. ;;9002226.02101,"882,49884056010 ",.02)
  1. ;;49884056010
  1. ;;9002226.02101,"882,49884059101 ",.01)
  1. ;;49884059101
  1. ;;9002226.02101,"882,49884059101 ",.02)
  1. ;;49884059101
  1. ;;9002226.02101,"882,49884059110 ",.01)
  1. ;;49884059110
  1. ;;9002226.02101,"882,49884059110 ",.02)
  1. ;;49884059110
  1. ;;9002226.02101,"882,49884059201 ",.01)
  1. ;;49884059201
  1. ;;9002226.02101,"882,49884059201 ",.02)
  1. ;;49884059201
  1. ;;9002226.02101,"882,49884059210 ",.01)
  1. ;;49884059210
  1. ;;9002226.02101,"882,49884059210 ",.02)
  1. ;;49884059210
  1. ;;9002226.02101,"882,49884059301 ",.01)
  1. ;;49884059301
  1. ;;9002226.02101,"882,49884059301 ",.02)
  1. ;;49884059301
  1. ;;9002226.02101,"882,49884059310 ",.01)
  1. ;;49884059310
  1. ;;9002226.02101,"882,49884059310 ",.02)
  1. ;;49884059310
  1. ;;9002226.02101,"882,49884059401 ",.01)
  1. ;;49884059401
  1. ;;9002226.02101,"882,49884059401 ",.02)
  1. ;;49884059401
  1. ;;9002226.02101,"882,49884059410 ",.01)
  1. ;;49884059410
  1. ;;9002226.02101,"882,49884059410 ",.02)
  1. ;;49884059410
  1. ;;9002226.02101,"882,49884061901 ",.01)
  1. ;;49884061901
  1. ;;9002226.02101,"882,49884061901 ",.02)
  1. ;;49884061901
  1. ;;9002226.02101,"882,49884061910 ",.01)
  1. ;;49884061910
  1. ;;9002226.02101,"882,49884061910 ",.02)
  1. ;;49884061910
  1. ;;9002226.02101,"882,49884062001 ",.01)
  1. ;;49884062001
  1. ;;9002226.02101,"882,49884062001 ",.02)
  1. ;;49884062001
  1. ;;9002226.02101,"882,49884062010 ",.01)
  1. ;;49884062010
  1. ;;9002226.02101,"882,49884062010 ",.02)
  1. ;;49884062010
  1. ;;9002226.02101,"882,49884062101 ",.01)
  1. ;;49884062101
  1. ;;9002226.02101,"882,49884062101 ",.02)
  1. ;;49884062101
  1. ;;9002226.02101,"882,49884062110 ",.01)
  1. ;;49884062110
  1. ;;9002226.02101,"882,49884062110 ",.02)
  1. ;;49884062110
  1. ;;9002226.02101,"882,49884062201 ",.01)
  1. ;;49884062201
  1. ;;9002226.02101,"882,49884062201 ",.02)
  1. ;;49884062201
  1. ;;9002226.02101,"882,49884063501 ",.01)
  1. ;;49884063501
  1. ;;9002226.02101,"882,49884063501 ",.02)
  1. ;;49884063501
  1. ;;9002226.02101,"882,49884063510 ",.01)
  1. ;;49884063510
  1. ;;9002226.02101,"882,49884063510 ",.02)
  1. ;;49884063510
  1. ;;9002226.02101,"882,49884068601 ",.01)
  1. ;;49884068601
  1. ;;9002226.02101,"882,49884068601 ",.02)
  1. ;;49884068601
  1. ;;9002226.02101,"882,49884068701 ",.01)
  1. ;;49884068701
  1. ;;9002226.02101,"882,49884068701 ",.02)
  1. ;;49884068701
  1. ;;9002226.02101,"882,49884099009 ",.01)
  1. ;;49884099009
  1. ;;9002226.02101,"882,49884099009 ",.02)
  1. ;;49884099009
  1. ;;9002226.02101,"882,49884099109 ",.01)
  1. ;;49884099109
  1. ;;9002226.02101,"882,49884099109 ",.02)
  1. ;;49884099109
  1. ;;9002226.02101,"882,49999010500 ",.01)
  1. ;;49999010500
  1. ;;9002226.02101,"882,49999010500 ",.02)
  1. ;;49999010500
  1. ;;9002226.02101,"882,49999010510 ",.01)
  1. ;;49999010510
  1. ;;9002226.02101,"882,49999010510 ",.02)
  1. ;;49999010510
  1. ;;9002226.02101,"882,49999010530 ",.01)
  1. ;;49999010530
  1. ;;9002226.02101,"882,49999010530 ",.02)
  1. ;;49999010530
  1. ;;9002226.02101,"882,49999010560 ",.01)
  1. ;;49999010560
  1. ;;9002226.02101,"882,49999010560 ",.02)
  1. ;;49999010560
  1. ;;9002226.02101,"882,49999018210 ",.01)
  1. ;;49999018210
  1. ;;9002226.02101,"882,49999018210 ",.02)
  1. ;;49999018210
  1. ;;9002226.02101,"882,49999018230 ",.01)
  1. ;;49999018230
  1. ;;9002226.02101,"882,49999018230 ",.02)
  1. ;;49999018230
  1. ;;9002226.02101,"882,49999018260 ",.01)
  1. ;;49999018260
  1. ;;9002226.02101,"882,49999018260 ",.02)
  1. ;;49999018260
  1. ;;9002226.02101,"882,49999018310 ",.01)
  1. ;;49999018310
  1. ;;9002226.02101,"882,49999018310 ",.02)
  1. ;;49999018310
  1. ;;9002226.02101,"882,49999018330 ",.01)
  1. ;;49999018330
  1. ;;9002226.02101,"882,49999018330 ",.02)
  1. ;;49999018330
  1. ;;9002226.02101,"882,49999018360 ",.01)
  1. ;;49999018360
  1. ;;9002226.02101,"882,49999018360 ",.02)
  1. ;;49999018360
  1. ;;9002226.02101,"882,49999018390 ",.01)
  1. ;;49999018390
  1. ;;9002226.02101,"882,49999018390 ",.02)
  1. ;;49999018390
  1. ;;9002226.02101,"882,49999023900 ",.01)
  1. ;;49999023900
  1. ;;9002226.02101,"882,49999023900 ",.02)
  1. ;;49999023900
  1. ;;9002226.02101,"882,49999023930 ",.01)
  1. ;;49999023930
  1. ;;9002226.02101,"882,49999023930 ",.02)
  1. ;;49999023930
  1. ;;9002226.02101,"882,49999023960 ",.01)
  1. ;;49999023960
  1. ;;9002226.02101,"882,49999023960 ",.02)
  1. ;;49999023960
  1. ;;9002226.02101,"882,49999024000 ",.01)
  1. ;;49999024000
  1. ;;9002226.02101,"882,49999024000 ",.02)
  1. ;;49999024000
  1. ;;9002226.02101,"882,49999024030 ",.01)
  1. ;;49999024030
  1. ;;9002226.02101,"882,49999024030 ",.02)
  1. ;;49999024030
  1. ;;9002226.02101,"882,49999029500 ",.01)
  1. ;;49999029500
  1. ;;9002226.02101,"882,49999029500 ",.02)
  1. ;;49999029500
  1. ;;9002226.02101,"882,49999029510 ",.01)
  1. ;;49999029510
  1. ;;9002226.02101,"882,49999029510 ",.02)
  1. ;;49999029510
  1. ;;9002226.02101,"882,49999029530 ",.01)
  1. ;;49999029530
  1. ;;9002226.02101,"882,49999029530 ",.02)
  1. ;;49999029530
  1. ;;9002226.02101,"882,49999032100 ",.01)
  1. ;;49999032100
  1. ;;9002226.02101,"882,49999032100 ",.02)
  1. ;;49999032100
  1. ;;9002226.02101,"882,49999032130 ",.01)
  1. ;;49999032130
  1. ;;9002226.02101,"882,49999032130 ",.02)
  1. ;;49999032130
  1. ;;9002226.02101,"882,49999032160 ",.01)
  1. ;;49999032160
  1. ;;9002226.02101,"882,49999032160 ",.02)
  1. ;;49999032160
  1. ;;9002226.02101,"882,49999034500 ",.01)
  1. ;;49999034500
  1. ;;9002226.02101,"882,49999034500 ",.02)
  1. ;;49999034500
  1. ;;9002226.02101,"882,49999034530 ",.01)
  1. ;;49999034530
  1. ;;9002226.02101,"882,49999034530 ",.02)
  1. ;;49999034530
  1. ;;9002226.02101,"882,49999046910 ",.01)
  1. ;;49999046910