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

BGPM5BCD.m

Go to the documentation of this file.
BGPM5BCD ;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,33261067821 ",.02)
 ;;33261067821
 ;;9002226.02101,"1044,33261067828 ",.01)
 ;;33261067828
 ;;9002226.02101,"1044,33261067828 ",.02)
 ;;33261067828
 ;;9002226.02101,"1044,33261067830 ",.01)
 ;;33261067830
 ;;9002226.02101,"1044,33261067830 ",.02)
 ;;33261067830
 ;;9002226.02101,"1044,33261067860 ",.01)
 ;;33261067860
 ;;9002226.02101,"1044,33261067860 ",.02)
 ;;33261067860
 ;;9002226.02101,"1044,33261067890 ",.01)
 ;;33261067890
 ;;9002226.02101,"1044,33261067890 ",.02)
 ;;33261067890
 ;;9002226.02101,"1044,33261067902 ",.01)
 ;;33261067902
 ;;9002226.02101,"1044,33261067902 ",.02)
 ;;33261067902
 ;;9002226.02101,"1044,33261067907 ",.01)
 ;;33261067907
 ;;9002226.02101,"1044,33261067907 ",.02)
 ;;33261067907
 ;;9002226.02101,"1044,33261067914 ",.01)
 ;;33261067914
 ;;9002226.02101,"1044,33261067914 ",.02)
 ;;33261067914
 ;;9002226.02101,"1044,33261067920 ",.01)
 ;;33261067920
 ;;9002226.02101,"1044,33261067920 ",.02)
 ;;33261067920
 ;;9002226.02101,"1044,33261067921 ",.01)
 ;;33261067921
 ;;9002226.02101,"1044,33261067921 ",.02)
 ;;33261067921
 ;;9002226.02101,"1044,33261067928 ",.01)
 ;;33261067928
 ;;9002226.02101,"1044,33261067928 ",.02)
 ;;33261067928
 ;;9002226.02101,"1044,33261067930 ",.01)
 ;;33261067930
 ;;9002226.02101,"1044,33261067930 ",.02)
 ;;33261067930
 ;;9002226.02101,"1044,33261067960 ",.01)
 ;;33261067960
 ;;9002226.02101,"1044,33261067960 ",.02)
 ;;33261067960
 ;;9002226.02101,"1044,33261067990 ",.01)
 ;;33261067990
 ;;9002226.02101,"1044,33261067990 ",.02)
 ;;33261067990
 ;;9002226.02101,"1044,33261068302 ",.01)
 ;;33261068302
 ;;9002226.02101,"1044,33261068302 ",.02)
 ;;33261068302
 ;;9002226.02101,"1044,33261068307 ",.01)
 ;;33261068307
 ;;9002226.02101,"1044,33261068307 ",.02)
 ;;33261068307
 ;;9002226.02101,"1044,33261068314 ",.01)
 ;;33261068314
 ;;9002226.02101,"1044,33261068314 ",.02)
 ;;33261068314
 ;;9002226.02101,"1044,33261068320 ",.01)
 ;;33261068320
 ;;9002226.02101,"1044,33261068320 ",.02)
 ;;33261068320
 ;;9002226.02101,"1044,33261068321 ",.01)
 ;;33261068321
 ;;9002226.02101,"1044,33261068321 ",.02)
 ;;33261068321
 ;;9002226.02101,"1044,33261068328 ",.01)
 ;;33261068328
 ;;9002226.02101,"1044,33261068328 ",.02)
 ;;33261068328
 ;;9002226.02101,"1044,33261068330 ",.01)
 ;;33261068330
 ;;9002226.02101,"1044,33261068330 ",.02)
 ;;33261068330
 ;;9002226.02101,"1044,33261068360 ",.01)
 ;;33261068360
 ;;9002226.02101,"1044,33261068360 ",.02)
 ;;33261068360
 ;;9002226.02101,"1044,33261068390 ",.01)
 ;;33261068390
 ;;9002226.02101,"1044,33261068390 ",.02)
 ;;33261068390
 ;;9002226.02101,"1044,33261069202 ",.01)
 ;;33261069202
 ;;9002226.02101,"1044,33261069202 ",.02)
 ;;33261069202
 ;;9002226.02101,"1044,33261069230 ",.01)
 ;;33261069230
 ;;9002226.02101,"1044,33261069230 ",.02)
 ;;33261069230
 ;;9002226.02101,"1044,33261069260 ",.01)
 ;;33261069260
 ;;9002226.02101,"1044,33261069260 ",.02)
 ;;33261069260
 ;;9002226.02101,"1044,33261069290 ",.01)
 ;;33261069290
 ;;9002226.02101,"1044,33261069290 ",.02)
 ;;33261069290
 ;;9002226.02101,"1044,33261077430 ",.01)
 ;;33261077430
 ;;9002226.02101,"1044,33261077430 ",.02)
 ;;33261077430
 ;;9002226.02101,"1044,33261077460 ",.01)
 ;;33261077460
 ;;9002226.02101,"1044,33261077460 ",.02)
 ;;33261077460
 ;;9002226.02101,"1044,33261077490 ",.01)
 ;;33261077490
 ;;9002226.02101,"1044,33261077490 ",.02)
 ;;33261077490
 ;;9002226.02101,"1044,33358002215 ",.01)
 ;;33358002215
 ;;9002226.02101,"1044,33358002215 ",.02)
 ;;33358002215
 ;;9002226.02101,"1044,33358002230 ",.01)
 ;;33358002230
 ;;9002226.02101,"1044,33358002230 ",.02)
 ;;33358002230
 ;;9002226.02101,"1044,33358002260 ",.01)
 ;;33358002260
 ;;9002226.02101,"1044,33358002260 ",.02)
 ;;33358002260
 ;;9002226.02101,"1044,33358002300 ",.01)
 ;;33358002300
 ;;9002226.02101,"1044,33358002300 ",.02)
 ;;33358002300
 ;;9002226.02101,"1044,33358002320 ",.01)
 ;;33358002320
 ;;9002226.02101,"1044,33358002320 ",.02)
 ;;33358002320
 ;;9002226.02101,"1044,33358002330 ",.01)
 ;;33358002330
 ;;9002226.02101,"1044,33358002330 ",.02)
 ;;33358002330
 ;;9002226.02101,"1044,33358002360 ",.01)
 ;;33358002360
 ;;9002226.02101,"1044,33358002360 ",.02)
 ;;33358002360
 ;;9002226.02101,"1044,33358002400 ",.01)
 ;;33358002400
 ;;9002226.02101,"1044,33358002400 ",.02)
 ;;33358002400
 ;;9002226.02101,"1044,33358002430 ",.01)
 ;;33358002430
 ;;9002226.02101,"1044,33358002430 ",.02)
 ;;33358002430
 ;;9002226.02101,"1044,33358002460 ",.01)
 ;;33358002460
 ;;9002226.02101,"1044,33358002460 ",.02)
 ;;33358002460
 ;;9002226.02101,"1044,33358008230 ",.01)
 ;;33358008230
 ;;9002226.02101,"1044,33358008230 ",.02)
 ;;33358008230
 ;;9002226.02101,"1044,33358008260 ",.01)
 ;;33358008260
 ;;9002226.02101,"1044,33358008260 ",.02)
 ;;33358008260
 ;;9002226.02101,"1044,33358008290 ",.01)
 ;;33358008290
 ;;9002226.02101,"1044,33358008290 ",.02)
 ;;33358008290
 ;;9002226.02101,"1044,33358008330 ",.01)
 ;;33358008330
 ;;9002226.02101,"1044,33358008330 ",.02)
 ;;33358008330
 ;;9002226.02101,"1044,33358008360 ",.01)
 ;;33358008360
 ;;9002226.02101,"1044,33358008360 ",.02)
 ;;33358008360
 ;;9002226.02101,"1044,33358008430 ",.01)
 ;;33358008430
 ;;9002226.02101,"1044,33358008430 ",.02)
 ;;33358008430
 ;;9002226.02101,"1044,33358008460 ",.01)
 ;;33358008460
 ;;9002226.02101,"1044,33358008460 ",.02)
 ;;33358008460
 ;;9002226.02101,"1044,33358012530 ",.01)
 ;;33358012530
 ;;9002226.02101,"1044,33358012530 ",.02)
 ;;33358012530
 ;;9002226.02101,"1044,33358012560 ",.01)
 ;;33358012560
 ;;9002226.02101,"1044,33358012560 ",.02)
 ;;33358012560
 ;;9002226.02101,"1044,33358012590 ",.01)
 ;;33358012590
 ;;9002226.02101,"1044,33358012590 ",.02)
 ;;33358012590
 ;;9002226.02101,"1044,33358014430 ",.01)
 ;;33358014430
 ;;9002226.02101,"1044,33358014430 ",.02)
 ;;33358014430
 ;;9002226.02101,"1044,33358014460 ",.01)
 ;;33358014460
 ;;9002226.02101,"1044,33358014460 ",.02)
 ;;33358014460
 ;;9002226.02101,"1044,33358014490 ",.01)
 ;;33358014490
 ;;9002226.02101,"1044,33358014490 ",.02)
 ;;33358014490
 ;;9002226.02101,"1044,33358014530 ",.01)
 ;;33358014530
 ;;9002226.02101,"1044,33358014530 ",.02)
 ;;33358014530
 ;;9002226.02101,"1044,33358014560 ",.01)
 ;;33358014560
 ;;9002226.02101,"1044,33358014560 ",.02)
 ;;33358014560
 ;;9002226.02101,"1044,33358018930 ",.01)
 ;;33358018930
 ;;9002226.02101,"1044,33358018930 ",.02)
 ;;33358018930
 ;;9002226.02101,"1044,33358018960 ",.01)
 ;;33358018960
 ;;9002226.02101,"1044,33358018960 ",.02)
 ;;33358018960
 ;;9002226.02101,"1044,33358019030 ",.01)
 ;;33358019030
 ;;9002226.02101,"1044,33358019030 ",.02)
 ;;33358019030
 ;;9002226.02101,"1044,33358019060 ",.01)
 ;;33358019060
 ;;9002226.02101,"1044,33358019060 ",.02)
 ;;33358019060
 ;;9002226.02101,"1044,33358019130 ",.01)
 ;;33358019130
 ;;9002226.02101,"1044,33358019130 ",.02)
 ;;33358019130
 ;;9002226.02101,"1044,33358027030 ",.01)
 ;;33358027030
 ;;9002226.02101,"1044,33358027030 ",.02)
 ;;33358027030
 ;;9002226.02101,"1044,33358027060 ",.01)
 ;;33358027060
 ;;9002226.02101,"1044,33358027060 ",.02)
 ;;33358027060
 ;;9002226.02101,"1044,33358027090 ",.01)
 ;;33358027090
 ;;9002226.02101,"1044,33358027090 ",.02)
 ;;33358027090
 ;;9002226.02101,"1044,33358027101 ",.01)
 ;;33358027101
 ;;9002226.02101,"1044,33358027101 ",.02)
 ;;33358027101
 ;;9002226.02101,"1044,33358027130 ",.01)
 ;;33358027130
 ;;9002226.02101,"1044,33358027130 ",.02)
 ;;33358027130
 ;;9002226.02101,"1044,33358027160 ",.01)
 ;;33358027160
 ;;9002226.02101,"1044,33358027160 ",.02)
 ;;33358027160
 ;;9002226.02101,"1044,33358028330 ",.01)
 ;;33358028330
 ;;9002226.02101,"1044,33358028330 ",.02)
 ;;33358028330
 ;;9002226.02101,"1044,33358028360 ",.01)
 ;;33358028360
 ;;9002226.02101,"1044,33358028360 ",.02)
 ;;33358028360
 ;;9002226.02101,"1044,33358028390 ",.01)
 ;;33358028390
 ;;9002226.02101,"1044,33358028390 ",.02)
 ;;33358028390
 ;;9002226.02101,"1044,33358032130 ",.01)
 ;;33358032130
 ;;9002226.02101,"1044,33358032130 ",.02)
 ;;33358032130
 ;;9002226.02101,"1044,33358032160 ",.01)
 ;;33358032160
 ;;9002226.02101,"1044,33358032160 ",.02)
 ;;33358032160
 ;;9002226.02101,"1044,33358032190 ",.01)
 ;;33358032190
 ;;9002226.02101,"1044,33358032190 ",.02)
 ;;33358032190
 ;;9002226.02101,"1044,33358032230 ",.01)
 ;;33358032230
 ;;9002226.02101,"1044,33358032230 ",.02)
 ;;33358032230
 ;;9002226.02101,"1044,33358032260 ",.01)
 ;;33358032260
 ;;9002226.02101,"1044,33358032260 ",.02)
 ;;33358032260
 ;;9002226.02101,"1044,33358032290 ",.01)
 ;;33358032290
 ;;9002226.02101,"1044,33358032290 ",.02)
 ;;33358032290
 ;;9002226.02101,"1044,33358032330 ",.01)
 ;;33358032330
 ;;9002226.02101,"1044,33358032330 ",.02)
 ;;33358032330
 ;;9002226.02101,"1044,33358032360 ",.01)
 ;;33358032360
 ;;9002226.02101,"1044,33358032360 ",.02)
 ;;33358032360
 ;;9002226.02101,"1044,33358032390 ",.01)
 ;;33358032390
 ;;9002226.02101,"1044,33358032390 ",.02)
 ;;33358032390
 ;;9002226.02101,"1044,33358034420 ",.01)
 ;;33358034420
 ;;9002226.02101,"1044,33358034420 ",.02)
 ;;33358034420
 ;;9002226.02101,"1044,33358034430 ",.01)
 ;;33358034430
 ;;9002226.02101,"1044,33358034430 ",.02)
 ;;33358034430
 ;;9002226.02101,"1044,33358034460 ",.01)
 ;;33358034460
 ;;9002226.02101,"1044,33358034460 ",.02)
 ;;33358034460
 ;;9002226.02101,"1044,33358034530 ",.01)
 ;;33358034530
 ;;9002226.02101,"1044,33358034530 ",.02)
 ;;33358034530
 ;;9002226.02101,"1044,33358034590 ",.01)
 ;;33358034590
 ;;9002226.02101,"1044,33358034590 ",.02)
 ;;33358034590
 ;;9002226.02101,"1044,33358034630 ",.01)
 ;;33358034630
 ;;9002226.02101,"1044,33358034630 ",.02)
 ;;33358034630
 ;;9002226.02101,"1044,33358034660 ",.01)
 ;;33358034660
 ;;9002226.02101,"1044,33358034660 ",.02)
 ;;33358034660
 ;;9002226.02101,"1044,33358034690 ",.01)
 ;;33358034690
 ;;9002226.02101,"1044,33358034690 ",.02)
 ;;33358034690
 ;;9002226.02101,"1044,33358042130 ",.01)
 ;;33358042130
 ;;9002226.02101,"1044,33358042130 ",.02)
 ;;33358042130
 ;;9002226.02101,"1044,33358042930 ",.01)
 ;;33358042930
 ;;9002226.02101,"1044,33358042930 ",.02)
 ;;33358042930
 ;;9002226.02101,"1044,35356002830 ",.01)
 ;;35356002830
 ;;9002226.02101,"1044,35356002830 ",.02)
 ;;35356002830
 ;;9002226.02101,"1044,35356002930 ",.01)
 ;;35356002930
 ;;9002226.02101,"1044,35356002930 ",.02)
 ;;35356002930
 ;;9002226.02101,"1044,35356003030 ",.01)
 ;;35356003030
 ;;9002226.02101,"1044,35356003030 ",.02)
 ;;35356003030
 ;;9002226.02101,"1044,35356003130 ",.01)
 ;;35356003130
 ;;9002226.02101,"1044,35356003130 ",.02)
 ;;35356003130
 ;;9002226.02101,"1044,35356003230 ",.01)
 ;;35356003230
 ;;9002226.02101,"1044,35356003230 ",.02)
 ;;35356003230
 ;;9002226.02101,"1044,35356003330 ",.01)
 ;;35356003330
 ;;9002226.02101,"1044,35356003330 ",.02)
 ;;35356003330
 ;;9002226.02101,"1044,35356037530 ",.01)
 ;;35356037530
 ;;9002226.02101,"1044,35356037530 ",.02)
 ;;35356037530
 ;;9002226.02101,"1044,35356057930 ",.01)
 ;;35356057930
 ;;9002226.02101,"1044,35356057930 ",.02)
 ;;35356057930
 ;;9002226.02101,"1044,35356058030 ",.01)
 ;;35356058030
 ;;9002226.02101,"1044,35356058030 ",.02)
 ;;35356058030
 ;;9002226.02101,"1044,35356059230 ",.01)
 ;;35356059230
 ;;9002226.02101,"1044,35356059230 ",.02)
 ;;35356059230
 ;;9002226.02101,"1044,40032036021 ",.01)
 ;;40032036021
 ;;9002226.02101,"1044,40032036021 ",.02)
 ;;40032036021
 ;;9002226.02101,"1044,41616075808 ",.01)
 ;;41616075808
 ;;9002226.02101,"1044,41616075808 ",.02)
 ;;41616075808
 ;;9002226.02101,"1044,41616075818 ",.01)
 ;;41616075818
 ;;9002226.02101,"1044,41616075818 ",.02)
 ;;41616075818