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