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

BGPM5AQZ.m

Go to the documentation of this file.
BGPM5AQZ ;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,49856020702 ",.02)
 ;;49856020702
 ;;9002226.02101,"1005,49856020703 ",.01)
 ;;49856020703
 ;;9002226.02101,"1005,49856020703 ",.02)
 ;;49856020703
 ;;9002226.02101,"1005,49856020705 ",.01)
 ;;49856020705
 ;;9002226.02101,"1005,49856020705 ",.02)
 ;;49856020705
 ;;9002226.02101,"1005,49856020707 ",.01)
 ;;49856020707
 ;;9002226.02101,"1005,49856020707 ",.02)
 ;;49856020707
 ;;9002226.02101,"1005,49856020801 ",.01)
 ;;49856020801
 ;;9002226.02101,"1005,49856020801 ",.02)
 ;;49856020801
 ;;9002226.02101,"1005,49856020802 ",.01)
 ;;49856020802
 ;;9002226.02101,"1005,49856020802 ",.02)
 ;;49856020802
 ;;9002226.02101,"1005,49856020901 ",.01)
 ;;49856020901
 ;;9002226.02101,"1005,49856020901 ",.02)
 ;;49856020901
 ;;9002226.02101,"1005,49856020902 ",.01)
 ;;49856020902
 ;;9002226.02101,"1005,49856020902 ",.02)
 ;;49856020902
 ;;9002226.02101,"1005,49856251002 ",.01)
 ;;49856251002
 ;;9002226.02101,"1005,49856251002 ",.02)
 ;;49856251002
 ;;9002226.02101,"1005,49856251003 ",.01)
 ;;49856251003
 ;;9002226.02101,"1005,49856251003 ",.02)
 ;;49856251003
 ;;9002226.02101,"1005,49856251004 ",.01)
 ;;49856251004
 ;;9002226.02101,"1005,49856251004 ",.02)
 ;;49856251004
 ;;9002226.02101,"1005,49856251102 ",.01)
 ;;49856251102
 ;;9002226.02101,"1005,49856251102 ",.02)
 ;;49856251102
 ;;9002226.02101,"1005,49856251103 ",.01)
 ;;49856251103
 ;;9002226.02101,"1005,49856251103 ",.02)
 ;;49856251103
 ;;9002226.02101,"1005,49856251104 ",.01)
 ;;49856251104
 ;;9002226.02101,"1005,49856251104 ",.02)
 ;;49856251104
 ;;9002226.02101,"1005,49856251202 ",.01)
 ;;49856251202
 ;;9002226.02101,"1005,49856251202 ",.02)
 ;;49856251202
 ;;9002226.02101,"1005,49856251203 ",.01)
 ;;49856251203
 ;;9002226.02101,"1005,49856251203 ",.02)
 ;;49856251203
 ;;9002226.02101,"1005,49856251208 ",.01)
 ;;49856251208
 ;;9002226.02101,"1005,49856251208 ",.02)
 ;;49856251208
 ;;9002226.02101,"1005,49884044401 ",.01)
 ;;49884044401
 ;;9002226.02101,"1005,49884044401 ",.02)
 ;;49884044401
 ;;9002226.02101,"1005,49884044410 ",.01)
 ;;49884044410
 ;;9002226.02101,"1005,49884044410 ",.02)
 ;;49884044410
 ;;9002226.02101,"1005,49884044501 ",.01)
 ;;49884044501
 ;;9002226.02101,"1005,49884044501 ",.02)
 ;;49884044501
 ;;9002226.02101,"1005,49884044510 ",.01)
 ;;49884044510
 ;;9002226.02101,"1005,49884044510 ",.02)
 ;;49884044510
 ;;9002226.02101,"1005,49884044601 ",.01)
 ;;49884044601
 ;;9002226.02101,"1005,49884044601 ",.02)
 ;;49884044601
 ;;9002226.02101,"1005,49884044610 ",.01)
 ;;49884044610
 ;;9002226.02101,"1005,49884044610 ",.02)
 ;;49884044610
 ;;9002226.02101,"1005,49884044701 ",.01)
 ;;49884044701
 ;;9002226.02101,"1005,49884044701 ",.02)
 ;;49884044701
 ;;9002226.02101,"1005,49884044710 ",.01)
 ;;49884044710
 ;;9002226.02101,"1005,49884044710 ",.02)
 ;;49884044710
 ;;9002226.02101,"1005,49884055601 ",.01)
 ;;49884055601
 ;;9002226.02101,"1005,49884055601 ",.02)
 ;;49884055601
 ;;9002226.02101,"1005,49884055610 ",.01)
 ;;49884055610
 ;;9002226.02101,"1005,49884055610 ",.02)
 ;;49884055610
 ;;9002226.02101,"1005,49884055701 ",.01)
 ;;49884055701
 ;;9002226.02101,"1005,49884055701 ",.02)
 ;;49884055701
 ;;9002226.02101,"1005,49884055710 ",.01)
 ;;49884055710
 ;;9002226.02101,"1005,49884055710 ",.02)
 ;;49884055710
 ;;9002226.02101,"1005,49884055801 ",.01)
 ;;49884055801
 ;;9002226.02101,"1005,49884055801 ",.02)
 ;;49884055801
 ;;9002226.02101,"1005,49884055810 ",.01)
 ;;49884055810
 ;;9002226.02101,"1005,49884055810 ",.02)
 ;;49884055810
 ;;9002226.02101,"1005,49884055901 ",.01)
 ;;49884055901
 ;;9002226.02101,"1005,49884055901 ",.02)
 ;;49884055901
 ;;9002226.02101,"1005,49884055910 ",.01)
 ;;49884055910
 ;;9002226.02101,"1005,49884055910 ",.02)
 ;;49884055910
 ;;9002226.02101,"1005,49884056001 ",.01)
 ;;49884056001
 ;;9002226.02101,"1005,49884056001 ",.02)
 ;;49884056001
 ;;9002226.02101,"1005,49884056010 ",.01)
 ;;49884056010
 ;;9002226.02101,"1005,49884056010 ",.02)
 ;;49884056010
 ;;9002226.02101,"1005,49884059101 ",.01)
 ;;49884059101
 ;;9002226.02101,"1005,49884059101 ",.02)
 ;;49884059101
 ;;9002226.02101,"1005,49884059110 ",.01)
 ;;49884059110
 ;;9002226.02101,"1005,49884059110 ",.02)
 ;;49884059110
 ;;9002226.02101,"1005,49884059201 ",.01)
 ;;49884059201
 ;;9002226.02101,"1005,49884059201 ",.02)
 ;;49884059201
 ;;9002226.02101,"1005,49884059210 ",.01)
 ;;49884059210
 ;;9002226.02101,"1005,49884059210 ",.02)
 ;;49884059210
 ;;9002226.02101,"1005,49884059301 ",.01)
 ;;49884059301
 ;;9002226.02101,"1005,49884059301 ",.02)
 ;;49884059301
 ;;9002226.02101,"1005,49884059310 ",.01)
 ;;49884059310
 ;;9002226.02101,"1005,49884059310 ",.02)
 ;;49884059310
 ;;9002226.02101,"1005,49884059401 ",.01)
 ;;49884059401
 ;;9002226.02101,"1005,49884059401 ",.02)
 ;;49884059401
 ;;9002226.02101,"1005,49884059410 ",.01)
 ;;49884059410
 ;;9002226.02101,"1005,49884059410 ",.02)
 ;;49884059410
 ;;9002226.02101,"1005,49884061901 ",.01)
 ;;49884061901
 ;;9002226.02101,"1005,49884061901 ",.02)
 ;;49884061901
 ;;9002226.02101,"1005,49884061910 ",.01)
 ;;49884061910
 ;;9002226.02101,"1005,49884061910 ",.02)
 ;;49884061910
 ;;9002226.02101,"1005,49884062001 ",.01)
 ;;49884062001
 ;;9002226.02101,"1005,49884062001 ",.02)
 ;;49884062001
 ;;9002226.02101,"1005,49884062010 ",.01)
 ;;49884062010
 ;;9002226.02101,"1005,49884062010 ",.02)
 ;;49884062010
 ;;9002226.02101,"1005,49884062101 ",.01)
 ;;49884062101
 ;;9002226.02101,"1005,49884062101 ",.02)
 ;;49884062101
 ;;9002226.02101,"1005,49884062110 ",.01)
 ;;49884062110
 ;;9002226.02101,"1005,49884062110 ",.02)
 ;;49884062110
 ;;9002226.02101,"1005,49884062201 ",.01)
 ;;49884062201
 ;;9002226.02101,"1005,49884062201 ",.02)
 ;;49884062201
 ;;9002226.02101,"1005,49884063501 ",.01)
 ;;49884063501
 ;;9002226.02101,"1005,49884063501 ",.02)
 ;;49884063501
 ;;9002226.02101,"1005,49884063510 ",.01)
 ;;49884063510
 ;;9002226.02101,"1005,49884063510 ",.02)
 ;;49884063510
 ;;9002226.02101,"1005,49884068601 ",.01)
 ;;49884068601
 ;;9002226.02101,"1005,49884068601 ",.02)
 ;;49884068601
 ;;9002226.02101,"1005,49884068701 ",.01)
 ;;49884068701
 ;;9002226.02101,"1005,49884068701 ",.02)
 ;;49884068701
 ;;9002226.02101,"1005,49884079301 ",.01)
 ;;49884079301
 ;;9002226.02101,"1005,49884079301 ",.02)
 ;;49884079301
 ;;9002226.02101,"1005,49884079401 ",.01)
 ;;49884079401
 ;;9002226.02101,"1005,49884079401 ",.02)
 ;;49884079401
 ;;9002226.02101,"1005,49884079410 ",.01)
 ;;49884079410
 ;;9002226.02101,"1005,49884079410 ",.02)
 ;;49884079410
 ;;9002226.02101,"1005,49884079501 ",.01)
 ;;49884079501
 ;;9002226.02101,"1005,49884079501 ",.02)
 ;;49884079501
 ;;9002226.02101,"1005,49884079510 ",.01)
 ;;49884079510
 ;;9002226.02101,"1005,49884079510 ",.02)
 ;;49884079510
 ;;9002226.02101,"1005,49884079601 ",.01)
 ;;49884079601
 ;;9002226.02101,"1005,49884079601 ",.02)
 ;;49884079601
 ;;9002226.02101,"1005,49884081501 ",.01)
 ;;49884081501
 ;;9002226.02101,"1005,49884081501 ",.02)
 ;;49884081501
 ;;9002226.02101,"1005,49884081601 ",.01)
 ;;49884081601
 ;;9002226.02101,"1005,49884081601 ",.02)
 ;;49884081601
 ;;9002226.02101,"1005,49884081701 ",.01)
 ;;49884081701
 ;;9002226.02101,"1005,49884081701 ",.02)
 ;;49884081701
 ;;9002226.02101,"1005,49884081801 ",.01)
 ;;49884081801
 ;;9002226.02101,"1005,49884081801 ",.02)
 ;;49884081801
 ;;9002226.02101,"1005,49884099009 ",.01)
 ;;49884099009
 ;;9002226.02101,"1005,49884099009 ",.02)
 ;;49884099009
 ;;9002226.02101,"1005,49884099109 ",.01)
 ;;49884099109
 ;;9002226.02101,"1005,49884099109 ",.02)
 ;;49884099109
 ;;9002226.02101,"1005,49999010500 ",.01)
 ;;49999010500
 ;;9002226.02101,"1005,49999010500 ",.02)
 ;;49999010500
 ;;9002226.02101,"1005,49999010510 ",.01)
 ;;49999010510
 ;;9002226.02101,"1005,49999010510 ",.02)
 ;;49999010510
 ;;9002226.02101,"1005,49999010530 ",.01)
 ;;49999010530
 ;;9002226.02101,"1005,49999010530 ",.02)
 ;;49999010530
 ;;9002226.02101,"1005,49999010560 ",.01)
 ;;49999010560
 ;;9002226.02101,"1005,49999010560 ",.02)
 ;;49999010560
 ;;9002226.02101,"1005,49999018210 ",.01)
 ;;49999018210
 ;;9002226.02101,"1005,49999018210 ",.02)
 ;;49999018210
 ;;9002226.02101,"1005,49999018230 ",.01)
 ;;49999018230
 ;;9002226.02101,"1005,49999018230 ",.02)
 ;;49999018230
 ;;9002226.02101,"1005,49999018260 ",.01)
 ;;49999018260
 ;;9002226.02101,"1005,49999018260 ",.02)
 ;;49999018260
 ;;9002226.02101,"1005,49999018310 ",.01)
 ;;49999018310
 ;;9002226.02101,"1005,49999018310 ",.02)
 ;;49999018310
 ;;9002226.02101,"1005,49999018330 ",.01)
 ;;49999018330
 ;;9002226.02101,"1005,49999018330 ",.02)
 ;;49999018330
 ;;9002226.02101,"1005,49999018360 ",.01)
 ;;49999018360
 ;;9002226.02101,"1005,49999018360 ",.02)
 ;;49999018360
 ;;9002226.02101,"1005,49999018390 ",.01)
 ;;49999018390
 ;;9002226.02101,"1005,49999018390 ",.02)
 ;;49999018390
 ;;9002226.02101,"1005,49999023900 ",.01)
 ;;49999023900
 ;;9002226.02101,"1005,49999023900 ",.02)
 ;;49999023900
 ;;9002226.02101,"1005,49999023930 ",.01)
 ;;49999023930
 ;;9002226.02101,"1005,49999023930 ",.02)
 ;;49999023930
 ;;9002226.02101,"1005,49999023960 ",.01)
 ;;49999023960
 ;;9002226.02101,"1005,49999023960 ",.02)
 ;;49999023960
 ;;9002226.02101,"1005,49999024000 ",.01)
 ;;49999024000
 ;;9002226.02101,"1005,49999024000 ",.02)
 ;;49999024000
 ;;9002226.02101,"1005,49999024030 ",.01)
 ;;49999024030
 ;;9002226.02101,"1005,49999024030 ",.02)
 ;;49999024030
 ;;9002226.02101,"1005,49999029430 ",.01)
 ;;49999029430
 ;;9002226.02101,"1005,49999029430 ",.02)
 ;;49999029430
 ;;9002226.02101,"1005,49999029500 ",.01)
 ;;49999029500
 ;;9002226.02101,"1005,49999029500 ",.02)
 ;;49999029500
 ;;9002226.02101,"1005,49999029510 ",.01)
 ;;49999029510
 ;;9002226.02101,"1005,49999029510 ",.02)
 ;;49999029510
 ;;9002226.02101,"1005,49999029530 ",.01)
 ;;49999029530
 ;;9002226.02101,"1005,49999029530 ",.02)
 ;;49999029530
 ;;9002226.02101,"1005,49999030530 ",.01)
 ;;49999030530
 ;;9002226.02101,"1005,49999030530 ",.02)
 ;;49999030530
 ;;9002226.02101,"1005,49999032100 ",.01)
 ;;49999032100
 ;;9002226.02101,"1005,49999032100 ",.02)
 ;;49999032100
 ;;9002226.02101,"1005,49999032130 ",.01)
 ;;49999032130
 ;;9002226.02101,"1005,49999032130 ",.02)
 ;;49999032130
 ;;9002226.02101,"1005,49999032160 ",.01)
 ;;49999032160
 ;;9002226.02101,"1005,49999032160 ",.02)
 ;;49999032160
 ;;9002226.02101,"1005,49999034500 ",.01)
 ;;49999034500
 ;;9002226.02101,"1005,49999034500 ",.02)
 ;;49999034500
 ;;9002226.02101,"1005,49999034530 ",.01)
 ;;49999034530
 ;;9002226.02101,"1005,49999034530 ",.02)
 ;;49999034530
 ;;9002226.02101,"1005,49999046910 ",.01)
 ;;49999046910
 ;;9002226.02101,"1005,49999046910 ",.02)
 ;;49999046910
 ;;9002226.02101,"1005,49999046930 ",.01)
 ;;49999046930
 ;;9002226.02101,"1005,49999046930 ",.02)
 ;;49999046930
 ;;9002226.02101,"1005,49999046960 ",.01)
 ;;49999046960
 ;;9002226.02101,"1005,49999046960 ",.02)
 ;;49999046960
 ;;9002226.02101,"1005,49999046990 ",.01)
 ;;49999046990
 ;;9002226.02101,"1005,49999046990 ",.02)
 ;;49999046990
 ;;9002226.02101,"1005,49999051130 ",.01)
 ;;49999051130
 ;;9002226.02101,"1005,49999051130 ",.02)
 ;;49999051130
 ;;9002226.02101,"1005,49999051160 ",.01)
 ;;49999051160
 ;;9002226.02101,"1005,49999051160 ",.02)
 ;;49999051160
 ;;9002226.02101,"1005,49999054300 ",.01)
 ;;49999054300
 ;;9002226.02101,"1005,49999054300 ",.02)
 ;;49999054300
 ;;9002226.02101,"1005,49999054330 ",.01)
 ;;49999054330
 ;;9002226.02101,"1005,49999054330 ",.02)
 ;;49999054330
 ;;9002226.02101,"1005,49999076100 ",.01)
 ;;49999076100
 ;;9002226.02101,"1005,49999076100 ",.02)
 ;;49999076100