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

BGPM5BDZ.m

Go to the documentation of this file.
BGPM5BDZ ;IHS/MSC/SAT-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,"1044,67228025203 ",.01)
 ;;67228025203
 ;;9002226.02101,"1044,67228025203 ",.02)
 ;;67228025203
 ;;9002226.02101,"1044,67228025206 ",.01)
 ;;67228025206
 ;;9002226.02101,"1044,67228025206 ",.02)
 ;;67228025206
 ;;9002226.02101,"1044,67228025303 ",.01)
 ;;67228025303
 ;;9002226.02101,"1044,67228025303 ",.02)
 ;;67228025303
 ;;9002226.02101,"1044,67228025306 ",.01)
 ;;67228025306
 ;;9002226.02101,"1044,67228025306 ",.02)
 ;;67228025306
 ;;9002226.02101,"1044,67228025403 ",.01)
 ;;67228025403
 ;;9002226.02101,"1044,67228025403 ",.02)
 ;;67228025403
 ;;9002226.02101,"1044,67228025406 ",.01)
 ;;67228025406
 ;;9002226.02101,"1044,67228025406 ",.02)
 ;;67228025406
 ;;9002226.02101,"1044,67228026003 ",.01)
 ;;67228026003
 ;;9002226.02101,"1044,67228026003 ",.02)
 ;;67228026003
 ;;9002226.02101,"1044,67228026006 ",.01)
 ;;67228026006
 ;;9002226.02101,"1044,67228026006 ",.02)
 ;;67228026006
 ;;9002226.02101,"1044,67228026203 ",.01)
 ;;67228026203
 ;;9002226.02101,"1044,67228026203 ",.02)
 ;;67228026203
 ;;9002226.02101,"1044,67228026206 ",.01)
 ;;67228026206
 ;;9002226.02101,"1044,67228026206 ",.02)
 ;;67228026206
 ;;9002226.02101,"1044,67228026303 ",.01)
 ;;67228026303
 ;;9002226.02101,"1044,67228026303 ",.02)
 ;;67228026303
 ;;9002226.02101,"1044,67228026306 ",.01)
 ;;67228026306
 ;;9002226.02101,"1044,67228026306 ",.02)
 ;;67228026306
 ;;9002226.02101,"1044,67228026603 ",.01)
 ;;67228026603
 ;;9002226.02101,"1044,67228026603 ",.02)
 ;;67228026603
 ;;9002226.02101,"1044,67228026606 ",.01)
 ;;67228026606
 ;;9002226.02101,"1044,67228026606 ",.02)
 ;;67228026606
 ;;9002226.02101,"1044,67228027403 ",.01)
 ;;67228027403
 ;;9002226.02101,"1044,67228027403 ",.02)
 ;;67228027403
 ;;9002226.02101,"1044,67228027406 ",.01)
 ;;67228027406
 ;;9002226.02101,"1044,67228027406 ",.02)
 ;;67228027406
 ;;9002226.02101,"1044,67228030803 ",.01)
 ;;67228030803
 ;;9002226.02101,"1044,67228030803 ",.02)
 ;;67228030803
 ;;9002226.02101,"1044,67228030806 ",.01)
 ;;67228030806
 ;;9002226.02101,"1044,67228030806 ",.02)
 ;;67228030806
 ;;9002226.02101,"1044,67228031003 ",.01)
 ;;67228031003
 ;;9002226.02101,"1044,67228031003 ",.02)
 ;;67228031003
 ;;9002226.02101,"1044,67228031006 ",.01)
 ;;67228031006
 ;;9002226.02101,"1044,67228031006 ",.02)
 ;;67228031006
 ;;9002226.02101,"1044,67228032403 ",.01)
 ;;67228032403
 ;;9002226.02101,"1044,67228032403 ",.02)
 ;;67228032403
 ;;9002226.02101,"1044,67228032406 ",.01)
 ;;67228032406
 ;;9002226.02101,"1044,67228032406 ",.02)
 ;;67228032406
 ;;9002226.02101,"1044,67228032503 ",.01)
 ;;67228032503
 ;;9002226.02101,"1044,67228032503 ",.02)
 ;;67228032503
 ;;9002226.02101,"1044,67228032506 ",.01)
 ;;67228032506
 ;;9002226.02101,"1044,67228032506 ",.02)
 ;;67228032506
 ;;9002226.02101,"1044,67228033003 ",.01)
 ;;67228033003
 ;;9002226.02101,"1044,67228033003 ",.02)
 ;;67228033003
 ;;9002226.02101,"1044,67228033006 ",.01)
 ;;67228033006
 ;;9002226.02101,"1044,67228033006 ",.02)
 ;;67228033006
 ;;9002226.02101,"1044,67228033403 ",.01)
 ;;67228033403
 ;;9002226.02101,"1044,67228033403 ",.02)
 ;;67228033403
 ;;9002226.02101,"1044,67228033406 ",.01)
 ;;67228033406
 ;;9002226.02101,"1044,67228033406 ",.02)
 ;;67228033406
 ;;9002226.02101,"1044,67228034603 ",.01)
 ;;67228034603
 ;;9002226.02101,"1044,67228034603 ",.02)
 ;;67228034603
 ;;9002226.02101,"1044,67228034606 ",.01)
 ;;67228034606
 ;;9002226.02101,"1044,67228034606 ",.02)
 ;;67228034606
 ;;9002226.02101,"1044,67228035103 ",.01)
 ;;67228035103
 ;;9002226.02101,"1044,67228035103 ",.02)
 ;;67228035103
 ;;9002226.02101,"1044,67228035106 ",.01)
 ;;67228035106
 ;;9002226.02101,"1044,67228035106 ",.02)
 ;;67228035106
 ;;9002226.02101,"1044,67228035503 ",.01)
 ;;67228035503
 ;;9002226.02101,"1044,67228035503 ",.02)
 ;;67228035503
 ;;9002226.02101,"1044,67228035506 ",.01)
 ;;67228035506
 ;;9002226.02101,"1044,67228035506 ",.02)
 ;;67228035506
 ;;9002226.02101,"1044,67228041903 ",.01)
 ;;67228041903
 ;;9002226.02101,"1044,67228041903 ",.02)
 ;;67228041903
 ;;9002226.02101,"1044,67228041906 ",.01)
 ;;67228041906
 ;;9002226.02101,"1044,67228041906 ",.02)
 ;;67228041906
 ;;9002226.02101,"1044,67228043203 ",.01)
 ;;67228043203
 ;;9002226.02101,"1044,67228043203 ",.02)
 ;;67228043203
 ;;9002226.02101,"1044,67228043206 ",.01)
 ;;67228043206
 ;;9002226.02101,"1044,67228043206 ",.02)
 ;;67228043206
 ;;9002226.02101,"1044,67228043303 ",.01)
 ;;67228043303
 ;;9002226.02101,"1044,67228043303 ",.02)
 ;;67228043303
 ;;9002226.02101,"1044,67228043306 ",.01)
 ;;67228043306
 ;;9002226.02101,"1044,67228043306 ",.02)
 ;;67228043306
 ;;9002226.02101,"1044,67228045503 ",.01)
 ;;67228045503
 ;;9002226.02101,"1044,67228045503 ",.02)
 ;;67228045503
 ;;9002226.02101,"1044,67228045506 ",.01)
 ;;67228045506
 ;;9002226.02101,"1044,67228045506 ",.02)
 ;;67228045506
 ;;9002226.02101,"1044,67228046103 ",.01)
 ;;67228046103
 ;;9002226.02101,"1044,67228046103 ",.02)
 ;;67228046103
 ;;9002226.02101,"1044,67228046106 ",.01)
 ;;67228046106
 ;;9002226.02101,"1044,67228046106 ",.02)
 ;;67228046106
 ;;9002226.02101,"1044,67228047603 ",.01)
 ;;67228047603
 ;;9002226.02101,"1044,67228047603 ",.02)
 ;;67228047603
 ;;9002226.02101,"1044,67228047606 ",.01)
 ;;67228047606
 ;;9002226.02101,"1044,67228047606 ",.02)
 ;;67228047606
 ;;9002226.02101,"1044,67228047703 ",.01)
 ;;67228047703
 ;;9002226.02101,"1044,67228047703 ",.02)
 ;;67228047703
 ;;9002226.02101,"1044,67228047706 ",.01)
 ;;67228047706
 ;;9002226.02101,"1044,67228047706 ",.02)
 ;;67228047706
 ;;9002226.02101,"1044,67253070006 ",.01)
 ;;67253070006
 ;;9002226.02101,"1044,67253070006 ",.02)
 ;;67253070006
 ;;9002226.02101,"1044,67253070106 ",.01)
 ;;67253070106
 ;;9002226.02101,"1044,67253070106 ",.02)
 ;;67253070106
 ;;9002226.02101,"1044,67263010901 ",.01)
 ;;67263010901
 ;;9002226.02101,"1044,67263010901 ",.02)
 ;;67263010901
 ;;9002226.02101,"1044,67263027901 ",.01)
 ;;67263027901
 ;;9002226.02101,"1044,67263027901 ",.02)
 ;;67263027901
 ;;9002226.02101,"1044,67263049801 ",.01)
 ;;67263049801
 ;;9002226.02101,"1044,67263049801 ",.02)
 ;;67263049801
 ;;9002226.02101,"1044,67263060090 ",.01)
 ;;67263060090
 ;;9002226.02101,"1044,67263060090 ",.02)
 ;;67263060090
 ;;9002226.02101,"1044,67296029501 ",.01)
 ;;67296029501
 ;;9002226.02101,"1044,67296029501 ",.02)
 ;;67296029501
 ;;9002226.02101,"1044,67296038201 ",.01)
 ;;67296038201
 ;;9002226.02101,"1044,67296038201 ",.02)
 ;;67296038201
 ;;9002226.02101,"1044,67296038801 ",.01)
 ;;67296038801
 ;;9002226.02101,"1044,67296038801 ",.02)
 ;;67296038801
 ;;9002226.02101,"1044,67296038802 ",.01)
 ;;67296038802
 ;;9002226.02101,"1044,67296038802 ",.02)
 ;;67296038802
 ;;9002226.02101,"1044,67296068301 ",.01)
 ;;67296068301
 ;;9002226.02101,"1044,67296068301 ",.02)
 ;;67296068301
 ;;9002226.02101,"1044,67544007830 ",.01)
 ;;67544007830
 ;;9002226.02101,"1044,67544007830 ",.02)
 ;;67544007830
 ;;9002226.02101,"1044,67544007853 ",.01)
 ;;67544007853
 ;;9002226.02101,"1044,67544007853 ",.02)
 ;;67544007853
 ;;9002226.02101,"1044,67544007860 ",.01)
 ;;67544007860
 ;;9002226.02101,"1044,67544007860 ",.02)
 ;;67544007860
 ;;9002226.02101,"1044,67544007870 ",.01)
 ;;67544007870
 ;;9002226.02101,"1044,67544007870 ",.02)
 ;;67544007870
 ;;9002226.02101,"1044,67544007880 ",.01)
 ;;67544007880
 ;;9002226.02101,"1044,67544007880 ",.02)
 ;;67544007880
 ;;9002226.02101,"1044,67544007892 ",.01)
 ;;67544007892
 ;;9002226.02101,"1044,67544007892 ",.02)
 ;;67544007892
 ;;9002226.02101,"1044,67544008530 ",.01)
 ;;67544008530
 ;;9002226.02101,"1044,67544008530 ",.02)
 ;;67544008530
 ;;9002226.02101,"1044,67544008532 ",.01)
 ;;67544008532
 ;;9002226.02101,"1044,67544008532 ",.02)
 ;;67544008532
 ;;9002226.02101,"1044,67544008553 ",.01)
 ;;67544008553
 ;;9002226.02101,"1044,67544008553 ",.02)
 ;;67544008553
 ;;9002226.02101,"1044,67544008560 ",.01)
 ;;67544008560
 ;;9002226.02101,"1044,67544008560 ",.02)
 ;;67544008560
 ;;9002226.02101,"1044,67544008570 ",.01)
 ;;67544008570
 ;;9002226.02101,"1044,67544008570 ",.02)
 ;;67544008570
 ;;9002226.02101,"1044,67544008575 ",.01)
 ;;67544008575
 ;;9002226.02101,"1044,67544008575 ",.02)
 ;;67544008575
 ;;9002226.02101,"1044,67544008580 ",.01)
 ;;67544008580
 ;;9002226.02101,"1044,67544008580 ",.02)
 ;;67544008580
 ;;9002226.02101,"1044,67544013520 ",.01)
 ;;67544013520
 ;;9002226.02101,"1044,67544013520 ",.02)
 ;;67544013520
 ;;9002226.02101,"1044,67544013530 ",.01)
 ;;67544013530
 ;;9002226.02101,"1044,67544013530 ",.02)
 ;;67544013530
 ;;9002226.02101,"1044,67544013553 ",.01)
 ;;67544013553
 ;;9002226.02101,"1044,67544013553 ",.02)
 ;;67544013553
 ;;9002226.02101,"1044,67544013560 ",.01)
 ;;67544013560
 ;;9002226.02101,"1044,67544013560 ",.02)
 ;;67544013560
 ;;9002226.02101,"1044,67544013570 ",.01)
 ;;67544013570
 ;;9002226.02101,"1044,67544013570 ",.02)
 ;;67544013570
 ;;9002226.02101,"1044,67544015815 ",.01)
 ;;67544015815
 ;;9002226.02101,"1044,67544015815 ",.02)
 ;;67544015815
 ;;9002226.02101,"1044,67544015830 ",.01)
 ;;67544015830
 ;;9002226.02101,"1044,67544015830 ",.02)
 ;;67544015830
 ;;9002226.02101,"1044,67544015860 ",.01)
 ;;67544015860
 ;;9002226.02101,"1044,67544015860 ",.02)
 ;;67544015860
 ;;9002226.02101,"1044,67544016230 ",.01)
 ;;67544016230
 ;;9002226.02101,"1044,67544016230 ",.02)
 ;;67544016230
 ;;9002226.02101,"1044,67544016232 ",.01)
 ;;67544016232
 ;;9002226.02101,"1044,67544016232 ",.02)
 ;;67544016232
 ;;9002226.02101,"1044,67544016253 ",.01)
 ;;67544016253
 ;;9002226.02101,"1044,67544016253 ",.02)
 ;;67544016253
 ;;9002226.02101,"1044,67544016260 ",.01)
 ;;67544016260
 ;;9002226.02101,"1044,67544016260 ",.02)
 ;;67544016260
 ;;9002226.02101,"1044,67544016915 ",.01)
 ;;67544016915
 ;;9002226.02101,"1044,67544016915 ",.02)
 ;;67544016915
 ;;9002226.02101,"1044,67544016930 ",.01)
 ;;67544016930
 ;;9002226.02101,"1044,67544016930 ",.02)
 ;;67544016930
 ;;9002226.02101,"1044,67544016931 ",.01)
 ;;67544016931
 ;;9002226.02101,"1044,67544016931 ",.02)
 ;;67544016931
 ;;9002226.02101,"1044,67544016932 ",.01)
 ;;67544016932
 ;;9002226.02101,"1044,67544016932 ",.02)
 ;;67544016932
 ;;9002226.02101,"1044,67544016933 ",.01)
 ;;67544016933
 ;;9002226.02101,"1044,67544016933 ",.02)
 ;;67544016933
 ;;9002226.02101,"1044,67544016945 ",.01)
 ;;67544016945
 ;;9002226.02101,"1044,67544016945 ",.02)
 ;;67544016945
 ;;9002226.02101,"1044,67544016953 ",.01)
 ;;67544016953
 ;;9002226.02101,"1044,67544016953 ",.02)
 ;;67544016953
 ;;9002226.02101,"1044,67544020630 ",.01)
 ;;67544020630
 ;;9002226.02101,"1044,67544020630 ",.02)
 ;;67544020630
 ;;9002226.02101,"1044,67544020660 ",.01)
 ;;67544020660
 ;;9002226.02101,"1044,67544020660 ",.02)
 ;;67544020660
 ;;9002226.02101,"1044,67544023515 ",.01)
 ;;67544023515
 ;;9002226.02101,"1044,67544023515 ",.02)
 ;;67544023515
 ;;9002226.02101,"1044,67544023530 ",.01)
 ;;67544023530
 ;;9002226.02101,"1044,67544023530 ",.02)
 ;;67544023530
 ;;9002226.02101,"1044,67544023545 ",.01)
 ;;67544023545
 ;;9002226.02101,"1044,67544023545 ",.02)
 ;;67544023545
 ;;9002226.02101,"1044,67544025330 ",.01)
 ;;67544025330
 ;;9002226.02101,"1044,67544025330 ",.02)
 ;;67544025330
 ;;9002226.02101,"1044,67544025332 ",.01)
 ;;67544025332
 ;;9002226.02101,"1044,67544025332 ",.02)
 ;;67544025332
 ;;9002226.02101,"1044,67544025360 ",.01)
 ;;67544025360
 ;;9002226.02101,"1044,67544025360 ",.02)
 ;;67544025360
 ;;9002226.02101,"1044,67544025370 ",.01)
 ;;67544025370
 ;;9002226.02101,"1044,67544025370 ",.02)
 ;;67544025370
 ;;9002226.02101,"1044,67544029530 ",.01)
 ;;67544029530