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