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.
  1. BGPM5BCD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1044,33261067821 ",.02)
  1. ;;33261067821
  1. ;;9002226.02101,"1044,33261067828 ",.01)
  1. ;;33261067828
  1. ;;9002226.02101,"1044,33261067828 ",.02)
  1. ;;33261067828
  1. ;;9002226.02101,"1044,33261067830 ",.01)
  1. ;;33261067830
  1. ;;9002226.02101,"1044,33261067830 ",.02)
  1. ;;33261067830
  1. ;;9002226.02101,"1044,33261067860 ",.01)
  1. ;;33261067860
  1. ;;9002226.02101,"1044,33261067860 ",.02)
  1. ;;33261067860
  1. ;;9002226.02101,"1044,33261067890 ",.01)
  1. ;;33261067890
  1. ;;9002226.02101,"1044,33261067890 ",.02)
  1. ;;33261067890
  1. ;;9002226.02101,"1044,33261067902 ",.01)
  1. ;;33261067902
  1. ;;9002226.02101,"1044,33261067902 ",.02)
  1. ;;33261067902
  1. ;;9002226.02101,"1044,33261067907 ",.01)
  1. ;;33261067907
  1. ;;9002226.02101,"1044,33261067907 ",.02)
  1. ;;33261067907
  1. ;;9002226.02101,"1044,33261067914 ",.01)
  1. ;;33261067914
  1. ;;9002226.02101,"1044,33261067914 ",.02)
  1. ;;33261067914
  1. ;;9002226.02101,"1044,33261067920 ",.01)
  1. ;;33261067920
  1. ;;9002226.02101,"1044,33261067920 ",.02)
  1. ;;33261067920
  1. ;;9002226.02101,"1044,33261067921 ",.01)
  1. ;;33261067921
  1. ;;9002226.02101,"1044,33261067921 ",.02)
  1. ;;33261067921
  1. ;;9002226.02101,"1044,33261067928 ",.01)
  1. ;;33261067928
  1. ;;9002226.02101,"1044,33261067928 ",.02)
  1. ;;33261067928
  1. ;;9002226.02101,"1044,33261067930 ",.01)
  1. ;;33261067930
  1. ;;9002226.02101,"1044,33261067930 ",.02)
  1. ;;33261067930
  1. ;;9002226.02101,"1044,33261067960 ",.01)
  1. ;;33261067960
  1. ;;9002226.02101,"1044,33261067960 ",.02)
  1. ;;33261067960
  1. ;;9002226.02101,"1044,33261067990 ",.01)
  1. ;;33261067990
  1. ;;9002226.02101,"1044,33261067990 ",.02)
  1. ;;33261067990
  1. ;;9002226.02101,"1044,33261068302 ",.01)
  1. ;;33261068302
  1. ;;9002226.02101,"1044,33261068302 ",.02)
  1. ;;33261068302
  1. ;;9002226.02101,"1044,33261068307 ",.01)
  1. ;;33261068307
  1. ;;9002226.02101,"1044,33261068307 ",.02)
  1. ;;33261068307
  1. ;;9002226.02101,"1044,33261068314 ",.01)
  1. ;;33261068314
  1. ;;9002226.02101,"1044,33261068314 ",.02)
  1. ;;33261068314
  1. ;;9002226.02101,"1044,33261068320 ",.01)
  1. ;;33261068320
  1. ;;9002226.02101,"1044,33261068320 ",.02)
  1. ;;33261068320
  1. ;;9002226.02101,"1044,33261068321 ",.01)
  1. ;;33261068321
  1. ;;9002226.02101,"1044,33261068321 ",.02)
  1. ;;33261068321
  1. ;;9002226.02101,"1044,33261068328 ",.01)
  1. ;;33261068328
  1. ;;9002226.02101,"1044,33261068328 ",.02)
  1. ;;33261068328
  1. ;;9002226.02101,"1044,33261068330 ",.01)
  1. ;;33261068330
  1. ;;9002226.02101,"1044,33261068330 ",.02)
  1. ;;33261068330
  1. ;;9002226.02101,"1044,33261068360 ",.01)
  1. ;;33261068360
  1. ;;9002226.02101,"1044,33261068360 ",.02)
  1. ;;33261068360
  1. ;;9002226.02101,"1044,33261068390 ",.01)
  1. ;;33261068390
  1. ;;9002226.02101,"1044,33261068390 ",.02)
  1. ;;33261068390
  1. ;;9002226.02101,"1044,33261069202 ",.01)
  1. ;;33261069202
  1. ;;9002226.02101,"1044,33261069202 ",.02)
  1. ;;33261069202
  1. ;;9002226.02101,"1044,33261069230 ",.01)
  1. ;;33261069230
  1. ;;9002226.02101,"1044,33261069230 ",.02)
  1. ;;33261069230
  1. ;;9002226.02101,"1044,33261069260 ",.01)
  1. ;;33261069260
  1. ;;9002226.02101,"1044,33261069260 ",.02)
  1. ;;33261069260
  1. ;;9002226.02101,"1044,33261069290 ",.01)
  1. ;;33261069290
  1. ;;9002226.02101,"1044,33261069290 ",.02)
  1. ;;33261069290
  1. ;;9002226.02101,"1044,33261077430 ",.01)
  1. ;;33261077430
  1. ;;9002226.02101,"1044,33261077430 ",.02)
  1. ;;33261077430
  1. ;;9002226.02101,"1044,33261077460 ",.01)
  1. ;;33261077460
  1. ;;9002226.02101,"1044,33261077460 ",.02)
  1. ;;33261077460
  1. ;;9002226.02101,"1044,33261077490 ",.01)
  1. ;;33261077490
  1. ;;9002226.02101,"1044,33261077490 ",.02)
  1. ;;33261077490
  1. ;;9002226.02101,"1044,33358002215 ",.01)
  1. ;;33358002215
  1. ;;9002226.02101,"1044,33358002215 ",.02)
  1. ;;33358002215
  1. ;;9002226.02101,"1044,33358002230 ",.01)
  1. ;;33358002230
  1. ;;9002226.02101,"1044,33358002230 ",.02)
  1. ;;33358002230
  1. ;;9002226.02101,"1044,33358002260 ",.01)
  1. ;;33358002260
  1. ;;9002226.02101,"1044,33358002260 ",.02)
  1. ;;33358002260
  1. ;;9002226.02101,"1044,33358002300 ",.01)
  1. ;;33358002300
  1. ;;9002226.02101,"1044,33358002300 ",.02)
  1. ;;33358002300
  1. ;;9002226.02101,"1044,33358002320 ",.01)
  1. ;;33358002320
  1. ;;9002226.02101,"1044,33358002320 ",.02)
  1. ;;33358002320
  1. ;;9002226.02101,"1044,33358002330 ",.01)
  1. ;;33358002330
  1. ;;9002226.02101,"1044,33358002330 ",.02)
  1. ;;33358002330
  1. ;;9002226.02101,"1044,33358002360 ",.01)
  1. ;;33358002360
  1. ;;9002226.02101,"1044,33358002360 ",.02)
  1. ;;33358002360
  1. ;;9002226.02101,"1044,33358002400 ",.01)
  1. ;;33358002400
  1. ;;9002226.02101,"1044,33358002400 ",.02)
  1. ;;33358002400
  1. ;;9002226.02101,"1044,33358002430 ",.01)
  1. ;;33358002430
  1. ;;9002226.02101,"1044,33358002430 ",.02)
  1. ;;33358002430
  1. ;;9002226.02101,"1044,33358002460 ",.01)
  1. ;;33358002460
  1. ;;9002226.02101,"1044,33358002460 ",.02)
  1. ;;33358002460
  1. ;;9002226.02101,"1044,33358008230 ",.01)
  1. ;;33358008230
  1. ;;9002226.02101,"1044,33358008230 ",.02)
  1. ;;33358008230
  1. ;;9002226.02101,"1044,33358008260 ",.01)
  1. ;;33358008260
  1. ;;9002226.02101,"1044,33358008260 ",.02)
  1. ;;33358008260
  1. ;;9002226.02101,"1044,33358008290 ",.01)
  1. ;;33358008290
  1. ;;9002226.02101,"1044,33358008290 ",.02)
  1. ;;33358008290
  1. ;;9002226.02101,"1044,33358008330 ",.01)
  1. ;;33358008330
  1. ;;9002226.02101,"1044,33358008330 ",.02)
  1. ;;33358008330
  1. ;;9002226.02101,"1044,33358008360 ",.01)
  1. ;;33358008360
  1. ;;9002226.02101,"1044,33358008360 ",.02)
  1. ;;33358008360
  1. ;;9002226.02101,"1044,33358008430 ",.01)
  1. ;;33358008430
  1. ;;9002226.02101,"1044,33358008430 ",.02)
  1. ;;33358008430
  1. ;;9002226.02101,"1044,33358008460 ",.01)
  1. ;;33358008460
  1. ;;9002226.02101,"1044,33358008460 ",.02)
  1. ;;33358008460
  1. ;;9002226.02101,"1044,33358012530 ",.01)
  1. ;;33358012530
  1. ;;9002226.02101,"1044,33358012530 ",.02)
  1. ;;33358012530
  1. ;;9002226.02101,"1044,33358012560 ",.01)
  1. ;;33358012560
  1. ;;9002226.02101,"1044,33358012560 ",.02)
  1. ;;33358012560
  1. ;;9002226.02101,"1044,33358012590 ",.01)
  1. ;;33358012590
  1. ;;9002226.02101,"1044,33358012590 ",.02)
  1. ;;33358012590
  1. ;;9002226.02101,"1044,33358014430 ",.01)
  1. ;;33358014430
  1. ;;9002226.02101,"1044,33358014430 ",.02)
  1. ;;33358014430
  1. ;;9002226.02101,"1044,33358014460 ",.01)
  1. ;;33358014460
  1. ;;9002226.02101,"1044,33358014460 ",.02)
  1. ;;33358014460
  1. ;;9002226.02101,"1044,33358014490 ",.01)
  1. ;;33358014490
  1. ;;9002226.02101,"1044,33358014490 ",.02)
  1. ;;33358014490
  1. ;;9002226.02101,"1044,33358014530 ",.01)
  1. ;;33358014530
  1. ;;9002226.02101,"1044,33358014530 ",.02)
  1. ;;33358014530
  1. ;;9002226.02101,"1044,33358014560 ",.01)
  1. ;;33358014560
  1. ;;9002226.02101,"1044,33358014560 ",.02)
  1. ;;33358014560
  1. ;;9002226.02101,"1044,33358018930 ",.01)
  1. ;;33358018930
  1. ;;9002226.02101,"1044,33358018930 ",.02)
  1. ;;33358018930
  1. ;;9002226.02101,"1044,33358018960 ",.01)
  1. ;;33358018960
  1. ;;9002226.02101,"1044,33358018960 ",.02)
  1. ;;33358018960
  1. ;;9002226.02101,"1044,33358019030 ",.01)
  1. ;;33358019030
  1. ;;9002226.02101,"1044,33358019030 ",.02)
  1. ;;33358019030
  1. ;;9002226.02101,"1044,33358019060 ",.01)
  1. ;;33358019060
  1. ;;9002226.02101,"1044,33358019060 ",.02)
  1. ;;33358019060
  1. ;;9002226.02101,"1044,33358019130 ",.01)
  1. ;;33358019130
  1. ;;9002226.02101,"1044,33358019130 ",.02)
  1. ;;33358019130
  1. ;;9002226.02101,"1044,33358027030 ",.01)
  1. ;;33358027030
  1. ;;9002226.02101,"1044,33358027030 ",.02)
  1. ;;33358027030
  1. ;;9002226.02101,"1044,33358027060 ",.01)
  1. ;;33358027060
  1. ;;9002226.02101,"1044,33358027060 ",.02)
  1. ;;33358027060
  1. ;;9002226.02101,"1044,33358027090 ",.01)
  1. ;;33358027090
  1. ;;9002226.02101,"1044,33358027090 ",.02)
  1. ;;33358027090
  1. ;;9002226.02101,"1044,33358027101 ",.01)
  1. ;;33358027101
  1. ;;9002226.02101,"1044,33358027101 ",.02)
  1. ;;33358027101
  1. ;;9002226.02101,"1044,33358027130 ",.01)
  1. ;;33358027130
  1. ;;9002226.02101,"1044,33358027130 ",.02)
  1. ;;33358027130
  1. ;;9002226.02101,"1044,33358027160 ",.01)
  1. ;;33358027160
  1. ;;9002226.02101,"1044,33358027160 ",.02)
  1. ;;33358027160
  1. ;;9002226.02101,"1044,33358028330 ",.01)
  1. ;;33358028330
  1. ;;9002226.02101,"1044,33358028330 ",.02)
  1. ;;33358028330
  1. ;;9002226.02101,"1044,33358028360 ",.01)
  1. ;;33358028360
  1. ;;9002226.02101,"1044,33358028360 ",.02)
  1. ;;33358028360
  1. ;;9002226.02101,"1044,33358028390 ",.01)
  1. ;;33358028390
  1. ;;9002226.02101,"1044,33358028390 ",.02)
  1. ;;33358028390
  1. ;;9002226.02101,"1044,33358032130 ",.01)
  1. ;;33358032130
  1. ;;9002226.02101,"1044,33358032130 ",.02)
  1. ;;33358032130
  1. ;;9002226.02101,"1044,33358032160 ",.01)
  1. ;;33358032160
  1. ;;9002226.02101,"1044,33358032160 ",.02)
  1. ;;33358032160
  1. ;;9002226.02101,"1044,33358032190 ",.01)
  1. ;;33358032190
  1. ;;9002226.02101,"1044,33358032190 ",.02)
  1. ;;33358032190
  1. ;;9002226.02101,"1044,33358032230 ",.01)
  1. ;;33358032230
  1. ;;9002226.02101,"1044,33358032230 ",.02)
  1. ;;33358032230
  1. ;;9002226.02101,"1044,33358032260 ",.01)
  1. ;;33358032260
  1. ;;9002226.02101,"1044,33358032260 ",.02)
  1. ;;33358032260
  1. ;;9002226.02101,"1044,33358032290 ",.01)
  1. ;;33358032290
  1. ;;9002226.02101,"1044,33358032290 ",.02)
  1. ;;33358032290
  1. ;;9002226.02101,"1044,33358032330 ",.01)
  1. ;;33358032330
  1. ;;9002226.02101,"1044,33358032330 ",.02)
  1. ;;33358032330
  1. ;;9002226.02101,"1044,33358032360 ",.01)
  1. ;;33358032360
  1. ;;9002226.02101,"1044,33358032360 ",.02)
  1. ;;33358032360
  1. ;;9002226.02101,"1044,33358032390 ",.01)
  1. ;;33358032390
  1. ;;9002226.02101,"1044,33358032390 ",.02)
  1. ;;33358032390
  1. ;;9002226.02101,"1044,33358034420 ",.01)
  1. ;;33358034420
  1. ;;9002226.02101,"1044,33358034420 ",.02)
  1. ;;33358034420
  1. ;;9002226.02101,"1044,33358034430 ",.01)
  1. ;;33358034430
  1. ;;9002226.02101,"1044,33358034430 ",.02)
  1. ;;33358034430
  1. ;;9002226.02101,"1044,33358034460 ",.01)
  1. ;;33358034460
  1. ;;9002226.02101,"1044,33358034460 ",.02)
  1. ;;33358034460
  1. ;;9002226.02101,"1044,33358034530 ",.01)
  1. ;;33358034530
  1. ;;9002226.02101,"1044,33358034530 ",.02)
  1. ;;33358034530
  1. ;;9002226.02101,"1044,33358034590 ",.01)
  1. ;;33358034590
  1. ;;9002226.02101,"1044,33358034590 ",.02)
  1. ;;33358034590
  1. ;;9002226.02101,"1044,33358034630 ",.01)
  1. ;;33358034630
  1. ;;9002226.02101,"1044,33358034630 ",.02)
  1. ;;33358034630
  1. ;;9002226.02101,"1044,33358034660 ",.01)
  1. ;;33358034660
  1. ;;9002226.02101,"1044,33358034660 ",.02)
  1. ;;33358034660
  1. ;;9002226.02101,"1044,33358034690 ",.01)
  1. ;;33358034690
  1. ;;9002226.02101,"1044,33358034690 ",.02)
  1. ;;33358034690
  1. ;;9002226.02101,"1044,33358042130 ",.01)
  1. ;;33358042130
  1. ;;9002226.02101,"1044,33358042130 ",.02)
  1. ;;33358042130
  1. ;;9002226.02101,"1044,33358042930 ",.01)
  1. ;;33358042930
  1. ;;9002226.02101,"1044,33358042930 ",.02)
  1. ;;33358042930
  1. ;;9002226.02101,"1044,35356002830 ",.01)
  1. ;;35356002830
  1. ;;9002226.02101,"1044,35356002830 ",.02)
  1. ;;35356002830
  1. ;;9002226.02101,"1044,35356002930 ",.01)
  1. ;;35356002930
  1. ;;9002226.02101,"1044,35356002930 ",.02)
  1. ;;35356002930
  1. ;;9002226.02101,"1044,35356003030 ",.01)
  1. ;;35356003030
  1. ;;9002226.02101,"1044,35356003030 ",.02)
  1. ;;35356003030
  1. ;;9002226.02101,"1044,35356003130 ",.01)
  1. ;;35356003130
  1. ;;9002226.02101,"1044,35356003130 ",.02)
  1. ;;35356003130
  1. ;;9002226.02101,"1044,35356003230 ",.01)
  1. ;;35356003230
  1. ;;9002226.02101,"1044,35356003230 ",.02)
  1. ;;35356003230
  1. ;;9002226.02101,"1044,35356003330 ",.01)
  1. ;;35356003330
  1. ;;9002226.02101,"1044,35356003330 ",.02)
  1. ;;35356003330
  1. ;;9002226.02101,"1044,35356037530 ",.01)
  1. ;;35356037530
  1. ;;9002226.02101,"1044,35356037530 ",.02)
  1. ;;35356037530
  1. ;;9002226.02101,"1044,35356057930 ",.01)
  1. ;;35356057930
  1. ;;9002226.02101,"1044,35356057930 ",.02)
  1. ;;35356057930
  1. ;;9002226.02101,"1044,35356058030 ",.01)
  1. ;;35356058030
  1. ;;9002226.02101,"1044,35356058030 ",.02)
  1. ;;35356058030
  1. ;;9002226.02101,"1044,35356059230 ",.01)
  1. ;;35356059230
  1. ;;9002226.02101,"1044,35356059230 ",.02)
  1. ;;35356059230
  1. ;;9002226.02101,"1044,40032036021 ",.01)
  1. ;;40032036021
  1. ;;9002226.02101,"1044,40032036021 ",.02)
  1. ;;40032036021
  1. ;;9002226.02101,"1044,41616075808 ",.01)
  1. ;;41616075808
  1. ;;9002226.02101,"1044,41616075808 ",.02)
  1. ;;41616075808
  1. ;;9002226.02101,"1044,41616075818 ",.01)
  1. ;;41616075818
  1. ;;9002226.02101,"1044,41616075818 ",.02)
  1. ;;41616075818