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

BGPM5BDW.m

Go to the documentation of this file.
  1. BGPM5BDW ;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,65862015401 ",.02)
  1. ;;65862015401
  1. ;;9002226.02101,"1044,65862015405 ",.01)
  1. ;;65862015405
  1. ;;9002226.02101,"1044,65862015405 ",.02)
  1. ;;65862015405
  1. ;;9002226.02101,"1044,65862015430 ",.01)
  1. ;;65862015430
  1. ;;9002226.02101,"1044,65862015430 ",.02)
  1. ;;65862015430
  1. ;;9002226.02101,"1044,65862015459 ",.01)
  1. ;;65862015459
  1. ;;9002226.02101,"1044,65862015459 ",.02)
  1. ;;65862015459
  1. ;;9002226.02101,"1044,65862015499 ",.01)
  1. ;;65862015499
  1. ;;9002226.02101,"1044,65862015499 ",.02)
  1. ;;65862015499
  1. ;;9002226.02101,"1044,65862015501 ",.01)
  1. ;;65862015501
  1. ;;9002226.02101,"1044,65862015501 ",.02)
  1. ;;65862015501
  1. ;;9002226.02101,"1044,65862015505 ",.01)
  1. ;;65862015505
  1. ;;9002226.02101,"1044,65862015505 ",.02)
  1. ;;65862015505
  1. ;;9002226.02101,"1044,65862015530 ",.01)
  1. ;;65862015530
  1. ;;9002226.02101,"1044,65862015530 ",.02)
  1. ;;65862015530
  1. ;;9002226.02101,"1044,65862015549 ",.01)
  1. ;;65862015549
  1. ;;9002226.02101,"1044,65862015549 ",.02)
  1. ;;65862015549
  1. ;;9002226.02101,"1044,65862015599 ",.01)
  1. ;;65862015599
  1. ;;9002226.02101,"1044,65862015599 ",.02)
  1. ;;65862015599
  1. ;;9002226.02101,"1044,65862015601 ",.01)
  1. ;;65862015601
  1. ;;9002226.02101,"1044,65862015601 ",.02)
  1. ;;65862015601
  1. ;;9002226.02101,"1044,65862015605 ",.01)
  1. ;;65862015605
  1. ;;9002226.02101,"1044,65862015605 ",.02)
  1. ;;65862015605
  1. ;;9002226.02101,"1044,65862015630 ",.01)
  1. ;;65862015630
  1. ;;9002226.02101,"1044,65862015630 ",.02)
  1. ;;65862015630
  1. ;;9002226.02101,"1044,65862015636 ",.01)
  1. ;;65862015636
  1. ;;9002226.02101,"1044,65862015636 ",.02)
  1. ;;65862015636
  1. ;;9002226.02101,"1044,65862015699 ",.01)
  1. ;;65862015699
  1. ;;9002226.02101,"1044,65862015699 ",.02)
  1. ;;65862015699
  1. ;;9002226.02101,"1044,65862015701 ",.01)
  1. ;;65862015701
  1. ;;9002226.02101,"1044,65862015701 ",.02)
  1. ;;65862015701
  1. ;;9002226.02101,"1044,65862015705 ",.01)
  1. ;;65862015705
  1. ;;9002226.02101,"1044,65862015705 ",.02)
  1. ;;65862015705
  1. ;;9002226.02101,"1044,65862015730 ",.01)
  1. ;;65862015730
  1. ;;9002226.02101,"1044,65862015730 ",.02)
  1. ;;65862015730
  1. ;;9002226.02101,"1044,65862015739 ",.01)
  1. ;;65862015739
  1. ;;9002226.02101,"1044,65862015739 ",.02)
  1. ;;65862015739
  1. ;;9002226.02101,"1044,65862015799 ",.01)
  1. ;;65862015799
  1. ;;9002226.02101,"1044,65862015799 ",.02)
  1. ;;65862015799
  1. ;;9002226.02101,"1044,65862019201 ",.01)
  1. ;;65862019201
  1. ;;9002226.02101,"1044,65862019201 ",.02)
  1. ;;65862019201
  1. ;;9002226.02101,"1044,65862019205 ",.01)
  1. ;;65862019205
  1. ;;9002226.02101,"1044,65862019205 ",.02)
  1. ;;65862019205
  1. ;;9002226.02101,"1044,65862019226 ",.01)
  1. ;;65862019226
  1. ;;9002226.02101,"1044,65862019226 ",.02)
  1. ;;65862019226
  1. ;;9002226.02101,"1044,65862019299 ",.01)
  1. ;;65862019299
  1. ;;9002226.02101,"1044,65862019299 ",.02)
  1. ;;65862019299
  1. ;;9002226.02101,"1044,65862019301 ",.01)
  1. ;;65862019301
  1. ;;9002226.02101,"1044,65862019301 ",.02)
  1. ;;65862019301
  1. ;;9002226.02101,"1044,65862019305 ",.01)
  1. ;;65862019305
  1. ;;9002226.02101,"1044,65862019305 ",.02)
  1. ;;65862019305
  1. ;;9002226.02101,"1044,65862019326 ",.01)
  1. ;;65862019326
  1. ;;9002226.02101,"1044,65862019326 ",.02)
  1. ;;65862019326
  1. ;;9002226.02101,"1044,65862019399 ",.01)
  1. ;;65862019399
  1. ;;9002226.02101,"1044,65862019399 ",.02)
  1. ;;65862019399
  1. ;;9002226.02101,"1044,65862019401 ",.01)
  1. ;;65862019401
  1. ;;9002226.02101,"1044,65862019401 ",.02)
  1. ;;65862019401
  1. ;;9002226.02101,"1044,65862019405 ",.01)
  1. ;;65862019405
  1. ;;9002226.02101,"1044,65862019405 ",.02)
  1. ;;65862019405
  1. ;;9002226.02101,"1044,65862019422 ",.01)
  1. ;;65862019422
  1. ;;9002226.02101,"1044,65862019422 ",.02)
  1. ;;65862019422
  1. ;;9002226.02101,"1044,65862019430 ",.01)
  1. ;;65862019430
  1. ;;9002226.02101,"1044,65862019430 ",.02)
  1. ;;65862019430
  1. ;;9002226.02101,"1044,65862019499 ",.01)
  1. ;;65862019499
  1. ;;9002226.02101,"1044,65862019499 ",.02)
  1. ;;65862019499
  1. ;;9002226.02101,"1044,65862022460 ",.01)
  1. ;;65862022460
  1. ;;9002226.02101,"1044,65862022460 ",.02)
  1. ;;65862022460
  1. ;;9002226.02101,"1044,65862040401 ",.01)
  1. ;;65862040401
  1. ;;9002226.02101,"1044,65862040401 ",.02)
  1. ;;65862040401
  1. ;;9002226.02101,"1044,65862040410 ",.01)
  1. ;;65862040410
  1. ;;9002226.02101,"1044,65862040410 ",.02)
  1. ;;65862040410
  1. ;;9002226.02101,"1044,65862040430 ",.01)
  1. ;;65862040430
  1. ;;9002226.02101,"1044,65862040430 ",.02)
  1. ;;65862040430
  1. ;;9002226.02101,"1044,65862040460 ",.01)
  1. ;;65862040460
  1. ;;9002226.02101,"1044,65862040460 ",.02)
  1. ;;65862040460
  1. ;;9002226.02101,"1044,65862040471 ",.01)
  1. ;;65862040471
  1. ;;9002226.02101,"1044,65862040471 ",.02)
  1. ;;65862040471
  1. ;;9002226.02101,"1044,65862040499 ",.01)
  1. ;;65862040499
  1. ;;9002226.02101,"1044,65862040499 ",.02)
  1. ;;65862040499
  1. ;;9002226.02101,"1044,65862040501 ",.01)
  1. ;;65862040501
  1. ;;9002226.02101,"1044,65862040501 ",.02)
  1. ;;65862040501
  1. ;;9002226.02101,"1044,65862040510 ",.01)
  1. ;;65862040510
  1. ;;9002226.02101,"1044,65862040510 ",.02)
  1. ;;65862040510
  1. ;;9002226.02101,"1044,65862040530 ",.01)
  1. ;;65862040530
  1. ;;9002226.02101,"1044,65862040530 ",.02)
  1. ;;65862040530
  1. ;;9002226.02101,"1044,65862040560 ",.01)
  1. ;;65862040560
  1. ;;9002226.02101,"1044,65862040560 ",.02)
  1. ;;65862040560
  1. ;;9002226.02101,"1044,65862040566 ",.01)
  1. ;;65862040566
  1. ;;9002226.02101,"1044,65862040566 ",.02)
  1. ;;65862040566
  1. ;;9002226.02101,"1044,65862040590 ",.01)
  1. ;;65862040590
  1. ;;9002226.02101,"1044,65862040590 ",.02)
  1. ;;65862040590
  1. ;;9002226.02101,"1044,65862040599 ",.01)
  1. ;;65862040599
  1. ;;9002226.02101,"1044,65862040599 ",.02)
  1. ;;65862040599
  1. ;;9002226.02101,"1044,65862040601 ",.01)
  1. ;;65862040601
  1. ;;9002226.02101,"1044,65862040601 ",.02)
  1. ;;65862040601
  1. ;;9002226.02101,"1044,65862040610 ",.01)
  1. ;;65862040610
  1. ;;9002226.02101,"1044,65862040610 ",.02)
  1. ;;65862040610
  1. ;;9002226.02101,"1044,65862040630 ",.01)
  1. ;;65862040630
  1. ;;9002226.02101,"1044,65862040630 ",.02)
  1. ;;65862040630
  1. ;;9002226.02101,"1044,65862040659 ",.01)
  1. ;;65862040659
  1. ;;9002226.02101,"1044,65862040659 ",.02)
  1. ;;65862040659
  1. ;;9002226.02101,"1044,65862040690 ",.01)
  1. ;;65862040690
  1. ;;9002226.02101,"1044,65862040690 ",.02)
  1. ;;65862040690
  1. ;;9002226.02101,"1044,65862040699 ",.01)
  1. ;;65862040699
  1. ;;9002226.02101,"1044,65862040699 ",.02)
  1. ;;65862040699
  1. ;;9002226.02101,"1044,65862040701 ",.01)
  1. ;;65862040701
  1. ;;9002226.02101,"1044,65862040701 ",.02)
  1. ;;65862040701
  1. ;;9002226.02101,"1044,65862040710 ",.01)
  1. ;;65862040710
  1. ;;9002226.02101,"1044,65862040710 ",.02)
  1. ;;65862040710
  1. ;;9002226.02101,"1044,65862040730 ",.01)
  1. ;;65862040730
  1. ;;9002226.02101,"1044,65862040730 ",.02)
  1. ;;65862040730
  1. ;;9002226.02101,"1044,65862040771 ",.01)
  1. ;;65862040771
  1. ;;9002226.02101,"1044,65862040771 ",.02)
  1. ;;65862040771
  1. ;;9002226.02101,"1044,65862040799 ",.01)
  1. ;;65862040799
  1. ;;9002226.02101,"1044,65862040799 ",.02)
  1. ;;65862040799
  1. ;;9002226.02101,"1044,65862040801 ",.01)
  1. ;;65862040801
  1. ;;9002226.02101,"1044,65862040801 ",.02)
  1. ;;65862040801
  1. ;;9002226.02101,"1044,65862040810 ",.01)
  1. ;;65862040810
  1. ;;9002226.02101,"1044,65862040810 ",.02)
  1. ;;65862040810
  1. ;;9002226.02101,"1044,65862040820 ",.01)
  1. ;;65862040820
  1. ;;9002226.02101,"1044,65862040820 ",.02)
  1. ;;65862040820
  1. ;;9002226.02101,"1044,65862040866 ",.01)
  1. ;;65862040866
  1. ;;9002226.02101,"1044,65862040866 ",.02)
  1. ;;65862040866
  1. ;;9002226.02101,"1044,65862040899 ",.01)
  1. ;;65862040899
  1. ;;9002226.02101,"1044,65862040899 ",.02)
  1. ;;65862040899
  1. ;;9002226.02101,"1044,65862052701 ",.01)
  1. ;;65862052701
  1. ;;9002226.02101,"1044,65862052701 ",.02)
  1. ;;65862052701
  1. ;;9002226.02101,"1044,65862052710 ",.01)
  1. ;;65862052710
  1. ;;9002226.02101,"1044,65862052710 ",.02)
  1. ;;65862052710
  1. ;;9002226.02101,"1044,65862052730 ",.01)
  1. ;;65862052730
  1. ;;9002226.02101,"1044,65862052730 ",.02)
  1. ;;65862052730
  1. ;;9002226.02101,"1044,65862052747 ",.01)
  1. ;;65862052747
  1. ;;9002226.02101,"1044,65862052747 ",.02)
  1. ;;65862052747
  1. ;;9002226.02101,"1044,65862052759 ",.01)
  1. ;;65862052759
  1. ;;9002226.02101,"1044,65862052759 ",.02)
  1. ;;65862052759
  1. ;;9002226.02101,"1044,65862052790 ",.01)
  1. ;;65862052790
  1. ;;9002226.02101,"1044,65862052790 ",.02)
  1. ;;65862052790
  1. ;;9002226.02101,"1044,65862052799 ",.01)
  1. ;;65862052799
  1. ;;9002226.02101,"1044,65862052799 ",.02)
  1. ;;65862052799
  1. ;;9002226.02101,"1044,65862052801 ",.01)
  1. ;;65862052801
  1. ;;9002226.02101,"1044,65862052801 ",.02)
  1. ;;65862052801
  1. ;;9002226.02101,"1044,65862052810 ",.01)
  1. ;;65862052810
  1. ;;9002226.02101,"1044,65862052810 ",.02)
  1. ;;65862052810
  1. ;;9002226.02101,"1044,65862052830 ",.01)
  1. ;;65862052830
  1. ;;9002226.02101,"1044,65862052830 ",.02)
  1. ;;65862052830
  1. ;;9002226.02101,"1044,65862052835 ",.01)
  1. ;;65862052835
  1. ;;9002226.02101,"1044,65862052835 ",.02)
  1. ;;65862052835
  1. ;;9002226.02101,"1044,65862052847 ",.01)
  1. ;;65862052847
  1. ;;9002226.02101,"1044,65862052847 ",.02)
  1. ;;65862052847
  1. ;;9002226.02101,"1044,65862052890 ",.01)
  1. ;;65862052890
  1. ;;9002226.02101,"1044,65862052890 ",.02)
  1. ;;65862052890
  1. ;;9002226.02101,"1044,65862052899 ",.01)
  1. ;;65862052899
  1. ;;9002226.02101,"1044,65862052899 ",.02)
  1. ;;65862052899
  1. ;;9002226.02101,"1044,65862052901 ",.01)
  1. ;;65862052901
  1. ;;9002226.02101,"1044,65862052901 ",.02)
  1. ;;65862052901
  1. ;;9002226.02101,"1044,65862052905 ",.01)
  1. ;;65862052905
  1. ;;9002226.02101,"1044,65862052905 ",.02)
  1. ;;65862052905
  1. ;;9002226.02101,"1044,65862052910 ",.01)
  1. ;;65862052910
  1. ;;9002226.02101,"1044,65862052910 ",.02)
  1. ;;65862052910
  1. ;;9002226.02101,"1044,65862052926 ",.01)
  1. ;;65862052926
  1. ;;9002226.02101,"1044,65862052926 ",.02)
  1. ;;65862052926
  1. ;;9002226.02101,"1044,65862052930 ",.01)
  1. ;;65862052930
  1. ;;9002226.02101,"1044,65862052930 ",.02)
  1. ;;65862052930
  1. ;;9002226.02101,"1044,65862052947 ",.01)
  1. ;;65862052947
  1. ;;9002226.02101,"1044,65862052947 ",.02)
  1. ;;65862052947
  1. ;;9002226.02101,"1044,65862052990 ",.01)
  1. ;;65862052990
  1. ;;9002226.02101,"1044,65862052990 ",.02)
  1. ;;65862052990
  1. ;;9002226.02101,"1044,66039056001 ",.01)
  1. ;;66039056001
  1. ;;9002226.02101,"1044,66039056001 ",.02)
  1. ;;66039056001
  1. ;;9002226.02101,"1044,66039056005 ",.01)
  1. ;;66039056005
  1. ;;9002226.02101,"1044,66039056005 ",.02)
  1. ;;66039056005
  1. ;;9002226.02101,"1044,66039056101 ",.01)
  1. ;;66039056101
  1. ;;9002226.02101,"1044,66039056101 ",.02)
  1. ;;66039056101
  1. ;;9002226.02101,"1044,66039056105 ",.01)
  1. ;;66039056105
  1. ;;9002226.02101,"1044,66039056105 ",.02)
  1. ;;66039056105
  1. ;;9002226.02101,"1044,66039056201 ",.01)
  1. ;;66039056201
  1. ;;9002226.02101,"1044,66039056201 ",.02)
  1. ;;66039056201
  1. ;;9002226.02101,"1044,66039056205 ",.01)
  1. ;;66039056205
  1. ;;9002226.02101,"1044,66039056205 ",.02)
  1. ;;66039056205
  1. ;;9002226.02101,"1044,66105061010 ",.01)
  1. ;;66105061010
  1. ;;9002226.02101,"1044,66105061010 ",.02)
  1. ;;66105061010
  1. ;;9002226.02101,"1044,66105061110 ",.01)
  1. ;;66105061110
  1. ;;9002226.02101,"1044,66105061110 ",.02)
  1. ;;66105061110
  1. ;;9002226.02101,"1044,66105074223 ",.01)
  1. ;;66105074223
  1. ;;9002226.02101,"1044,66105074223 ",.02)
  1. ;;66105074223
  1. ;;9002226.02101,"1044,66105081323 ",.01)
  1. ;;66105081323
  1. ;;9002226.02101,"1044,66105081323 ",.02)
  1. ;;66105081323
  1. ;;9002226.02101,"1044,66116004860 ",.01)
  1. ;;66116004860
  1. ;;9002226.02101,"1044,66116004860 ",.02)
  1. ;;66116004860
  1. ;;9002226.02101,"1044,66116025330 ",.01)
  1. ;;66116025330
  1. ;;9002226.02101,"1044,66116025330 ",.02)
  1. ;;66116025330
  1. ;;9002226.02101,"1044,66116028130 ",.01)
  1. ;;66116028130
  1. ;;9002226.02101,"1044,66116028130 ",.02)
  1. ;;66116028130
  1. ;;9002226.02101,"1044,66116031330 ",.01)
  1. ;;66116031330
  1. ;;9002226.02101,"1044,66116031330 ",.02)
  1. ;;66116031330
  1. ;;9002226.02101,"1044,66116032930 ",.01)
  1. ;;66116032930
  1. ;;9002226.02101,"1044,66116032930 ",.02)
  1. ;;66116032930
  1. ;;9002226.02101,"1044,66116033830 ",.01)
  1. ;;66116033830
  1. ;;9002226.02101,"1044,66116033830 ",.02)
  1. ;;66116033830
  1. ;;9002226.02101,"1044,66116034230 ",.01)
  1. ;;66116034230
  1. ;;9002226.02101,"1044,66116034230 ",.02)
  1. ;;66116034230