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

BGPM5BFY.m

Go to the documentation of this file.
BGPM5BFY ;IHS/MSC/MMT-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,"1084,67544012994 ",.01)
 ;;67544012994
 ;;9002226.02101,"1084,67544012994 ",.02)
 ;;67544012994
 ;;9002226.02101,"1084,67544016330 ",.01)
 ;;67544016330
 ;;9002226.02101,"1084,67544016330 ",.02)
 ;;67544016330
 ;;9002226.02101,"1084,67544016345 ",.01)
 ;;67544016345
 ;;9002226.02101,"1084,67544016345 ",.02)
 ;;67544016345
 ;;9002226.02101,"1084,67544016353 ",.01)
 ;;67544016353
 ;;9002226.02101,"1084,67544016353 ",.02)
 ;;67544016353
 ;;9002226.02101,"1084,67544016360 ",.01)
 ;;67544016360
 ;;9002226.02101,"1084,67544016360 ",.02)
 ;;67544016360
 ;;9002226.02101,"1084,67544016380 ",.01)
 ;;67544016380
 ;;9002226.02101,"1084,67544016380 ",.02)
 ;;67544016380
 ;;9002226.02101,"1084,67544016386 ",.01)
 ;;67544016386
 ;;9002226.02101,"1084,67544016386 ",.02)
 ;;67544016386
 ;;9002226.02101,"1084,67544030232 ",.01)
 ;;67544030232
 ;;9002226.02101,"1084,67544030232 ",.02)
 ;;67544030232
 ;;9002226.02101,"1084,67544030260 ",.01)
 ;;67544030260
 ;;9002226.02101,"1084,67544030260 ",.02)
 ;;67544030260
 ;;9002226.02101,"1084,67544030280 ",.01)
 ;;67544030280
 ;;9002226.02101,"1084,67544030280 ",.02)
 ;;67544030280
 ;;9002226.02101,"1084,67544036470 ",.01)
 ;;67544036470
 ;;9002226.02101,"1084,67544036470 ",.02)
 ;;67544036470
 ;;9002226.02101,"1084,67544041770 ",.01)
 ;;67544041770
 ;;9002226.02101,"1084,67544041770 ",.02)
 ;;67544041770
 ;;9002226.02101,"1084,67544042160 ",.01)
 ;;67544042160
 ;;9002226.02101,"1084,67544042160 ",.02)
 ;;67544042160
 ;;9002226.02101,"1084,67544042180 ",.01)
 ;;67544042180
 ;;9002226.02101,"1084,67544042180 ",.02)
 ;;67544042180
 ;;9002226.02101,"1084,67544042192 ",.01)
 ;;67544042192
 ;;9002226.02101,"1084,67544042192 ",.02)
 ;;67544042192
 ;;9002226.02101,"1084,67544042230 ",.01)
 ;;67544042230
 ;;9002226.02101,"1084,67544042230 ",.02)
 ;;67544042230
 ;;9002226.02101,"1084,67544042253 ",.01)
 ;;67544042253
 ;;9002226.02101,"1084,67544042253 ",.02)
 ;;67544042253
 ;;9002226.02101,"1084,67544042260 ",.01)
 ;;67544042260
 ;;9002226.02101,"1084,67544042260 ",.02)
 ;;67544042260
 ;;9002226.02101,"1084,67544042270 ",.01)
 ;;67544042270
 ;;9002226.02101,"1084,67544042270 ",.02)
 ;;67544042270
 ;;9002226.02101,"1084,67544042275 ",.01)
 ;;67544042275
 ;;9002226.02101,"1084,67544042275 ",.02)
 ;;67544042275
 ;;9002226.02101,"1084,67544042280 ",.01)
 ;;67544042280
 ;;9002226.02101,"1084,67544042280 ",.02)
 ;;67544042280
 ;;9002226.02101,"1084,67544042290 ",.01)
 ;;67544042290
 ;;9002226.02101,"1084,67544042290 ",.02)
 ;;67544042290
 ;;9002226.02101,"1084,67544042292 ",.01)
 ;;67544042292
 ;;9002226.02101,"1084,67544042292 ",.02)
 ;;67544042292
 ;;9002226.02101,"1084,67544042294 ",.01)
 ;;67544042294
 ;;9002226.02101,"1084,67544042294 ",.02)
 ;;67544042294
 ;;9002226.02101,"1084,67544042296 ",.01)
 ;;67544042296
 ;;9002226.02101,"1084,67544042296 ",.02)
 ;;67544042296
 ;;9002226.02101,"1084,67544042430 ",.01)
 ;;67544042430
 ;;9002226.02101,"1084,67544042430 ",.02)
 ;;67544042430
 ;;9002226.02101,"1084,67544042431 ",.01)
 ;;67544042431
 ;;9002226.02101,"1084,67544042431 ",.02)
 ;;67544042431
 ;;9002226.02101,"1084,67544042453 ",.01)
 ;;67544042453
 ;;9002226.02101,"1084,67544042453 ",.02)
 ;;67544042453
 ;;9002226.02101,"1084,67544042460 ",.01)
 ;;67544042460
 ;;9002226.02101,"1084,67544042460 ",.02)
 ;;67544042460
 ;;9002226.02101,"1084,67544042470 ",.01)
 ;;67544042470
 ;;9002226.02101,"1084,67544042470 ",.02)
 ;;67544042470
 ;;9002226.02101,"1084,67544042475 ",.01)
 ;;67544042475
 ;;9002226.02101,"1084,67544042475 ",.02)
 ;;67544042475
 ;;9002226.02101,"1084,67544042480 ",.01)
 ;;67544042480
 ;;9002226.02101,"1084,67544042480 ",.02)
 ;;67544042480
 ;;9002226.02101,"1084,67544042490 ",.01)
 ;;67544042490
 ;;9002226.02101,"1084,67544042490 ",.02)
 ;;67544042490
 ;;9002226.02101,"1084,67544042492 ",.01)
 ;;67544042492
 ;;9002226.02101,"1084,67544042492 ",.02)
 ;;67544042492
 ;;9002226.02101,"1084,67544042494 ",.01)
 ;;67544042494
 ;;9002226.02101,"1084,67544042494 ",.02)
 ;;67544042494
 ;;9002226.02101,"1084,67544042496 ",.01)
 ;;67544042496
 ;;9002226.02101,"1084,67544042496 ",.02)
 ;;67544042496
 ;;9002226.02101,"1084,67544042830 ",.01)
 ;;67544042830
 ;;9002226.02101,"1084,67544042830 ",.02)
 ;;67544042830
 ;;9002226.02101,"1084,67544042831 ",.01)
 ;;67544042831
 ;;9002226.02101,"1084,67544042831 ",.02)
 ;;67544042831
 ;;9002226.02101,"1084,67544042832 ",.01)
 ;;67544042832
 ;;9002226.02101,"1084,67544042832 ",.02)
 ;;67544042832
 ;;9002226.02101,"1084,67544042845 ",.01)
 ;;67544042845
 ;;9002226.02101,"1084,67544042845 ",.02)
 ;;67544042845
 ;;9002226.02101,"1084,67544042853 ",.01)
 ;;67544042853
 ;;9002226.02101,"1084,67544042853 ",.02)
 ;;67544042853
 ;;9002226.02101,"1084,67544042860 ",.01)
 ;;67544042860
 ;;9002226.02101,"1084,67544042860 ",.02)
 ;;67544042860
 ;;9002226.02101,"1084,67544042873 ",.01)
 ;;67544042873
 ;;9002226.02101,"1084,67544042873 ",.02)
 ;;67544042873
 ;;9002226.02101,"1084,67544042880 ",.01)
 ;;67544042880
 ;;9002226.02101,"1084,67544042880 ",.02)
 ;;67544042880
 ;;9002226.02101,"1084,67544042886 ",.01)
 ;;67544042886
 ;;9002226.02101,"1084,67544042886 ",.02)
 ;;67544042886
 ;;9002226.02101,"1084,67544048631 ",.01)
 ;;67544048631
 ;;9002226.02101,"1084,67544048631 ",.02)
 ;;67544048631
 ;;9002226.02101,"1084,67544048632 ",.01)
 ;;67544048632
 ;;9002226.02101,"1084,67544048632 ",.02)
 ;;67544048632
 ;;9002226.02101,"1084,67544048653 ",.01)
 ;;67544048653
 ;;9002226.02101,"1084,67544048653 ",.02)
 ;;67544048653
 ;;9002226.02101,"1084,67544051130 ",.01)
 ;;67544051130
 ;;9002226.02101,"1084,67544051130 ",.02)
 ;;67544051130
 ;;9002226.02101,"1084,67544051170 ",.01)
 ;;67544051170
 ;;9002226.02101,"1084,67544051170 ",.02)
 ;;67544051170
 ;;9002226.02101,"1084,67544051194 ",.01)
 ;;67544051194
 ;;9002226.02101,"1084,67544051194 ",.02)
 ;;67544051194
 ;;9002226.02101,"1084,67544054882 ",.01)
 ;;67544054882
 ;;9002226.02101,"1084,67544054882 ",.02)
 ;;67544054882
 ;;9002226.02101,"1084,67544056631 ",.01)
 ;;67544056631
 ;;9002226.02101,"1084,67544056631 ",.02)
 ;;67544056631
 ;;9002226.02101,"1084,67544056632 ",.01)
 ;;67544056632
 ;;9002226.02101,"1084,67544056632 ",.02)
 ;;67544056632
 ;;9002226.02101,"1084,67544056653 ",.01)
 ;;67544056653
 ;;9002226.02101,"1084,67544056653 ",.02)
 ;;67544056653
 ;;9002226.02101,"1084,67544056660 ",.01)
 ;;67544056660
 ;;9002226.02101,"1084,67544056660 ",.02)
 ;;67544056660
 ;;9002226.02101,"1084,67544056670 ",.01)
 ;;67544056670
 ;;9002226.02101,"1084,67544056670 ",.02)
 ;;67544056670
 ;;9002226.02101,"1084,67544056680 ",.01)
 ;;67544056680
 ;;9002226.02101,"1084,67544056680 ",.02)
 ;;67544056680
 ;;9002226.02101,"1084,67544056690 ",.01)
 ;;67544056690
 ;;9002226.02101,"1084,67544056690 ",.02)
 ;;67544056690
 ;;9002226.02101,"1084,67544056692 ",.01)
 ;;67544056692
 ;;9002226.02101,"1084,67544056692 ",.02)
 ;;67544056692
 ;;9002226.02101,"1084,67544056694 ",.01)
 ;;67544056694
 ;;9002226.02101,"1084,67544056694 ",.02)
 ;;67544056694
 ;;9002226.02101,"1084,67544059630 ",.01)
 ;;67544059630
 ;;9002226.02101,"1084,67544059630 ",.02)
 ;;67544059630
 ;;9002226.02101,"1084,67544059631 ",.01)
 ;;67544059631
 ;;9002226.02101,"1084,67544059631 ",.02)
 ;;67544059631
 ;;9002226.02101,"1084,67544059632 ",.01)
 ;;67544059632
 ;;9002226.02101,"1084,67544059632 ",.02)
 ;;67544059632
 ;;9002226.02101,"1084,67544059653 ",.01)
 ;;67544059653
 ;;9002226.02101,"1084,67544059653 ",.02)
 ;;67544059653
 ;;9002226.02101,"1084,67544059660 ",.01)
 ;;67544059660
 ;;9002226.02101,"1084,67544059660 ",.02)
 ;;67544059660
 ;;9002226.02101,"1084,67544059670 ",.01)
 ;;67544059670
 ;;9002226.02101,"1084,67544059670 ",.02)
 ;;67544059670
 ;;9002226.02101,"1084,67544059675 ",.01)
 ;;67544059675
 ;;9002226.02101,"1084,67544059675 ",.02)
 ;;67544059675
 ;;9002226.02101,"1084,67544059680 ",.01)
 ;;67544059680
 ;;9002226.02101,"1084,67544059680 ",.02)
 ;;67544059680
 ;;9002226.02101,"1084,67544059690 ",.01)
 ;;67544059690
 ;;9002226.02101,"1084,67544059690 ",.02)
 ;;67544059690
 ;;9002226.02101,"1084,67544059692 ",.01)
 ;;67544059692
 ;;9002226.02101,"1084,67544059692 ",.02)
 ;;67544059692
 ;;9002226.02101,"1084,67544059694 ",.01)
 ;;67544059694
 ;;9002226.02101,"1084,67544059694 ",.02)
 ;;67544059694
 ;;9002226.02101,"1084,67544059696 ",.01)
 ;;67544059696
 ;;9002226.02101,"1084,67544059696 ",.02)
 ;;67544059696
 ;;9002226.02101,"1084,67544061353 ",.01)
 ;;67544061353
 ;;9002226.02101,"1084,67544061353 ",.02)
 ;;67544061353
 ;;9002226.02101,"1084,67544061360 ",.01)
 ;;67544061360
 ;;9002226.02101,"1084,67544061360 ",.02)
 ;;67544061360
 ;;9002226.02101,"1084,67544061370 ",.01)
 ;;67544061370
 ;;9002226.02101,"1084,67544061370 ",.02)
 ;;67544061370
 ;;9002226.02101,"1084,67544061380 ",.01)
 ;;67544061380
 ;;9002226.02101,"1084,67544061380 ",.02)
 ;;67544061380
 ;;9002226.02101,"1084,67544061390 ",.01)
 ;;67544061390
 ;;9002226.02101,"1084,67544061390 ",.02)
 ;;67544061390
 ;;9002226.02101,"1084,67544061392 ",.01)
 ;;67544061392
 ;;9002226.02101,"1084,67544061392 ",.02)
 ;;67544061392
 ;;9002226.02101,"1084,67544061394 ",.01)
 ;;67544061394
 ;;9002226.02101,"1084,67544061394 ",.02)
 ;;67544061394
 ;;9002226.02101,"1084,67544064332 ",.01)
 ;;67544064332
 ;;9002226.02101,"1084,67544064332 ",.02)
 ;;67544064332
 ;;9002226.02101,"1084,67544064360 ",.01)
 ;;67544064360
 ;;9002226.02101,"1084,67544064360 ",.02)
 ;;67544064360
 ;;9002226.02101,"1084,67544064380 ",.01)
 ;;67544064380
 ;;9002226.02101,"1084,67544064380 ",.02)
 ;;67544064380
 ;;9002226.02101,"1084,67544064392 ",.01)
 ;;67544064392
 ;;9002226.02101,"1084,67544064392 ",.02)
 ;;67544064392
 ;;9002226.02101,"1084,67544064394 ",.01)
 ;;67544064394
 ;;9002226.02101,"1084,67544064394 ",.02)
 ;;67544064394
 ;;9002226.02101,"1084,67544065353 ",.01)
 ;;67544065353
 ;;9002226.02101,"1084,67544065353 ",.02)
 ;;67544065353
 ;;9002226.02101,"1084,67544065360 ",.01)
 ;;67544065360
 ;;9002226.02101,"1084,67544065360 ",.02)
 ;;67544065360
 ;;9002226.02101,"1084,67544065370 ",.01)
 ;;67544065370
 ;;9002226.02101,"1084,67544065370 ",.02)
 ;;67544065370
 ;;9002226.02101,"1084,67544065380 ",.01)
 ;;67544065380
 ;;9002226.02101,"1084,67544065380 ",.02)
 ;;67544065380
 ;;9002226.02101,"1084,67544065390 ",.01)
 ;;67544065390
 ;;9002226.02101,"1084,67544065390 ",.02)
 ;;67544065390
 ;;9002226.02101,"1084,67544065392 ",.01)
 ;;67544065392
 ;;9002226.02101,"1084,67544065392 ",.02)
 ;;67544065392
 ;;9002226.02101,"1084,67544065394 ",.01)
 ;;67544065394
 ;;9002226.02101,"1084,67544065394 ",.02)
 ;;67544065394
 ;;9002226.02101,"1084,67544065398 ",.01)
 ;;67544065398
 ;;9002226.02101,"1084,67544065398 ",.02)
 ;;67544065398
 ;;9002226.02101,"1084,67544066141 ",.01)
 ;;67544066141
 ;;9002226.02101,"1084,67544066141 ",.02)
 ;;67544066141
 ;;9002226.02101,"1084,67544066181 ",.01)
 ;;67544066181
 ;;9002226.02101,"1084,67544066181 ",.02)
 ;;67544066181
 ;;9002226.02101,"1084,67544069031 ",.01)
 ;;67544069031
 ;;9002226.02101,"1084,67544069031 ",.02)
 ;;67544069031
 ;;9002226.02101,"1084,67544075153 ",.01)
 ;;67544075153
 ;;9002226.02101,"1084,67544075153 ",.02)
 ;;67544075153
 ;;9002226.02101,"1084,67544075160 ",.01)
 ;;67544075160
 ;;9002226.02101,"1084,67544075160 ",.02)
 ;;67544075160
 ;;9002226.02101,"1084,67544075180 ",.01)
 ;;67544075180
 ;;9002226.02101,"1084,67544075180 ",.02)
 ;;67544075180
 ;;9002226.02101,"1084,67544075645 ",.01)
 ;;67544075645
 ;;9002226.02101,"1084,67544075645 ",.02)
 ;;67544075645
 ;;9002226.02101,"1084,67544075660 ",.01)
 ;;67544075660