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

BGPM5BDP.m

Go to the documentation of this file.
BGPM5BDP ;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,62037084530 ",.01)
 ;;62037084530
 ;;9002226.02101,"1044,62037084530 ",.02)
 ;;62037084530
 ;;9002226.02101,"1044,62037084601 ",.01)
 ;;62037084601
 ;;9002226.02101,"1044,62037084601 ",.02)
 ;;62037084601
 ;;9002226.02101,"1044,62037084610 ",.01)
 ;;62037084610
 ;;9002226.02101,"1044,62037084610 ",.02)
 ;;62037084610
 ;;9002226.02101,"1044,62037084630 ",.01)
 ;;62037084630
 ;;9002226.02101,"1044,62037084630 ",.02)
 ;;62037084630
 ;;9002226.02101,"1044,62318005501 ",.01)
 ;;62318005501
 ;;9002226.02101,"1044,62318005501 ",.02)
 ;;62318005501
 ;;9002226.02101,"1044,62318005502 ",.01)
 ;;62318005502
 ;;9002226.02101,"1044,62318005502 ",.02)
 ;;62318005502
 ;;9002226.02101,"1044,62318008301 ",.01)
 ;;62318008301
 ;;9002226.02101,"1044,62318008301 ",.02)
 ;;62318008301
 ;;9002226.02101,"1044,62318008302 ",.01)
 ;;62318008302
 ;;9002226.02101,"1044,62318008302 ",.02)
 ;;62318008302
 ;;9002226.02101,"1044,62318008304 ",.01)
 ;;62318008304
 ;;9002226.02101,"1044,62318008304 ",.02)
 ;;62318008304
 ;;9002226.02101,"1044,62318009701 ",.01)
 ;;62318009701
 ;;9002226.02101,"1044,62318009701 ",.02)
 ;;62318009701
 ;;9002226.02101,"1044,62318009704 ",.01)
 ;;62318009704
 ;;9002226.02101,"1044,62318009704 ",.02)
 ;;62318009704
 ;;9002226.02101,"1044,62318010101 ",.01)
 ;;62318010101
 ;;9002226.02101,"1044,62318010101 ",.02)
 ;;62318010101
 ;;9002226.02101,"1044,62318010104 ",.01)
 ;;62318010104
 ;;9002226.02101,"1044,62318010104 ",.02)
 ;;62318010104
 ;;9002226.02101,"1044,62318016401 ",.01)
 ;;62318016401
 ;;9002226.02101,"1044,62318016401 ",.02)
 ;;62318016401
 ;;9002226.02101,"1044,62318016501 ",.01)
 ;;62318016501
 ;;9002226.02101,"1044,62318016501 ",.02)
 ;;62318016501
 ;;9002226.02101,"1044,62318016601 ",.01)
 ;;62318016601
 ;;9002226.02101,"1044,62318016601 ",.02)
 ;;62318016601
 ;;9002226.02101,"1044,62318343803 ",.01)
 ;;62318343803
 ;;9002226.02101,"1044,62318343803 ",.02)
 ;;62318343803
 ;;9002226.02101,"1044,62318343808 ",.01)
 ;;62318343808
 ;;9002226.02101,"1044,62318343808 ",.02)
 ;;62318343808
 ;;9002226.02101,"1044,62559015801 ",.01)
 ;;62559015801
 ;;9002226.02101,"1044,62559015801 ",.02)
 ;;62559015801
 ;;9002226.02101,"1044,62559015901 ",.01)
 ;;62559015901
 ;;9002226.02101,"1044,62559015901 ",.02)
 ;;62559015901
 ;;9002226.02101,"1044,62559016001 ",.01)
 ;;62559016001
 ;;9002226.02101,"1044,62559016001 ",.02)
 ;;62559016001
 ;;9002226.02101,"1044,62584019300 ",.01)
 ;;62584019300
 ;;9002226.02101,"1044,62584019300 ",.02)
 ;;62584019300
 ;;9002226.02101,"1044,62584019306 ",.01)
 ;;62584019306
 ;;9002226.02101,"1044,62584019306 ",.02)
 ;;62584019306
 ;;9002226.02101,"1044,62584019390 ",.01)
 ;;62584019390
 ;;9002226.02101,"1044,62584019390 ",.02)
 ;;62584019390
 ;;9002226.02101,"1044,62584030850 ",.01)
 ;;62584030850
 ;;9002226.02101,"1044,62584030850 ",.02)
 ;;62584030850
 ;;9002226.02101,"1044,62584055601 ",.01)
 ;;62584055601
 ;;9002226.02101,"1044,62584055601 ",.02)
 ;;62584055601
 ;;9002226.02101,"1044,62584055685 ",.01)
 ;;62584055685
 ;;9002226.02101,"1044,62584055685 ",.02)
 ;;62584055685
 ;;9002226.02101,"1044,62584055785 ",.01)
 ;;62584055785
 ;;9002226.02101,"1044,62584055785 ",.02)
 ;;62584055785
 ;;9002226.02101,"1044,62584061450 ",.01)
 ;;62584061450
 ;;9002226.02101,"1044,62584061450 ",.02)
 ;;62584061450
 ;;9002226.02101,"1044,62584074901 ",.01)
 ;;62584074901
 ;;9002226.02101,"1044,62584074901 ",.02)
 ;;62584074901
 ;;9002226.02101,"1044,62584075001 ",.01)
 ;;62584075001
 ;;9002226.02101,"1044,62584075001 ",.02)
 ;;62584075001
 ;;9002226.02101,"1044,62584075101 ",.01)
 ;;62584075101
 ;;9002226.02101,"1044,62584075101 ",.02)
 ;;62584075101
 ;;9002226.02101,"1044,62584088250 ",.01)
 ;;62584088250
 ;;9002226.02101,"1044,62584088250 ",.02)
 ;;62584088250
 ;;9002226.02101,"1044,62959001000 ",.01)
 ;;62959001000
 ;;9002226.02101,"1044,62959001000 ",.02)
 ;;62959001000
 ;;9002226.02101,"1044,63304016403 ",.01)
 ;;63304016403
 ;;9002226.02101,"1044,63304016403 ",.02)
 ;;63304016403
 ;;9002226.02101,"1044,63304016430 ",.01)
 ;;63304016430
 ;;9002226.02101,"1044,63304016430 ",.02)
 ;;63304016430
 ;;9002226.02101,"1044,63304016452 ",.01)
 ;;63304016452
 ;;9002226.02101,"1044,63304016452 ",.02)
 ;;63304016452
 ;;9002226.02101,"1044,63304016501 ",.01)
 ;;63304016501
 ;;9002226.02101,"1044,63304016501 ",.02)
 ;;63304016501
 ;;9002226.02101,"1044,63304016503 ",.01)
 ;;63304016503
 ;;9002226.02101,"1044,63304016503 ",.02)
 ;;63304016503
 ;;9002226.02101,"1044,63304016505 ",.01)
 ;;63304016505
 ;;9002226.02101,"1044,63304016505 ",.02)
 ;;63304016505
 ;;9002226.02101,"1044,63304016530 ",.01)
 ;;63304016530
 ;;9002226.02101,"1044,63304016530 ",.02)
 ;;63304016530
 ;;9002226.02101,"1044,63304016552 ",.01)
 ;;63304016552
 ;;9002226.02101,"1044,63304016552 ",.02)
 ;;63304016552
 ;;9002226.02101,"1044,63304016601 ",.01)
 ;;63304016601
 ;;9002226.02101,"1044,63304016601 ",.02)
 ;;63304016601
 ;;9002226.02101,"1044,63304016603 ",.01)
 ;;63304016603
 ;;9002226.02101,"1044,63304016603 ",.02)
 ;;63304016603
 ;;9002226.02101,"1044,63304016605 ",.01)
 ;;63304016605
 ;;9002226.02101,"1044,63304016605 ",.02)
 ;;63304016605
 ;;9002226.02101,"1044,63304016630 ",.01)
 ;;63304016630
 ;;9002226.02101,"1044,63304016630 ",.02)
 ;;63304016630
 ;;9002226.02101,"1044,63304016652 ",.01)
 ;;63304016652
 ;;9002226.02101,"1044,63304016652 ",.02)
 ;;63304016652
 ;;9002226.02101,"1044,63304016703 ",.01)
 ;;63304016703
 ;;9002226.02101,"1044,63304016703 ",.02)
 ;;63304016703
 ;;9002226.02101,"1044,63304016710 ",.01)
 ;;63304016710
 ;;9002226.02101,"1044,63304016710 ",.02)
 ;;63304016710
 ;;9002226.02101,"1044,63304016803 ",.01)
 ;;63304016803
 ;;9002226.02101,"1044,63304016803 ",.02)
 ;;63304016803
 ;;9002226.02101,"1044,63304016810 ",.01)
 ;;63304016810
 ;;9002226.02101,"1044,63304016810 ",.02)
 ;;63304016810
 ;;9002226.02101,"1044,63304020201 ",.01)
 ;;63304020201
 ;;9002226.02101,"1044,63304020201 ",.02)
 ;;63304020201
 ;;9002226.02101,"1044,63304063201 ",.01)
 ;;63304063201
 ;;9002226.02101,"1044,63304063201 ",.02)
 ;;63304063201
 ;;9002226.02101,"1044,63304063210 ",.01)
 ;;63304063210
 ;;9002226.02101,"1044,63304063210 ",.02)
 ;;63304063210
 ;;9002226.02101,"1044,63304063211 ",.01)
 ;;63304063211
 ;;9002226.02101,"1044,63304063211 ",.02)
 ;;63304063211
 ;;9002226.02101,"1044,63304063230 ",.01)
 ;;63304063230
 ;;9002226.02101,"1044,63304063230 ",.02)
 ;;63304063230
 ;;9002226.02101,"1044,63304063280 ",.01)
 ;;63304063280
 ;;9002226.02101,"1044,63304063280 ",.02)
 ;;63304063280
 ;;9002226.02101,"1044,63304063290 ",.01)
 ;;63304063290
 ;;9002226.02101,"1044,63304063290 ",.02)
 ;;63304063290
 ;;9002226.02101,"1044,63304068630 ",.01)
 ;;63304068630
 ;;9002226.02101,"1044,63304068630 ",.02)
 ;;63304068630
 ;;9002226.02101,"1044,63304068690 ",.01)
 ;;63304068690
 ;;9002226.02101,"1044,63304068690 ",.02)
 ;;63304068690
 ;;9002226.02101,"1044,63304068730 ",.01)
 ;;63304068730
 ;;9002226.02101,"1044,63304068730 ",.02)
 ;;63304068730
 ;;9002226.02101,"1044,63304068790 ",.01)
 ;;63304068790
 ;;9002226.02101,"1044,63304068790 ",.02)
 ;;63304068790
 ;;9002226.02101,"1044,63304084005 ",.01)
 ;;63304084005
 ;;9002226.02101,"1044,63304084005 ",.02)
 ;;63304084005
 ;;9002226.02101,"1044,63537251101 ",.01)
 ;;63537251101
 ;;9002226.02101,"1044,63537251101 ",.02)
 ;;63537251101
 ;;9002226.02101,"1044,63537251104 ",.01)
 ;;63537251104
 ;;9002226.02101,"1044,63537251104 ",.02)
 ;;63537251104
 ;;9002226.02101,"1044,63629131801 ",.01)
 ;;63629131801
 ;;9002226.02101,"1044,63629131801 ",.02)
 ;;63629131801
 ;;9002226.02101,"1044,63629131802 ",.01)
 ;;63629131802
 ;;9002226.02101,"1044,63629131802 ",.02)
 ;;63629131802
 ;;9002226.02101,"1044,63629131803 ",.01)
 ;;63629131803
 ;;9002226.02101,"1044,63629131803 ",.02)
 ;;63629131803
 ;;9002226.02101,"1044,63629131804 ",.01)
 ;;63629131804
 ;;9002226.02101,"1044,63629131804 ",.02)
 ;;63629131804
 ;;9002226.02101,"1044,63629131805 ",.01)
 ;;63629131805
 ;;9002226.02101,"1044,63629131805 ",.02)
 ;;63629131805
 ;;9002226.02101,"1044,63629136801 ",.01)
 ;;63629136801
 ;;9002226.02101,"1044,63629136801 ",.02)
 ;;63629136801
 ;;9002226.02101,"1044,63629136802 ",.01)
 ;;63629136802
 ;;9002226.02101,"1044,63629136802 ",.02)
 ;;63629136802
 ;;9002226.02101,"1044,63629136803 ",.01)
 ;;63629136803
 ;;9002226.02101,"1044,63629136803 ",.02)
 ;;63629136803
 ;;9002226.02101,"1044,63629136804 ",.01)
 ;;63629136804
 ;;9002226.02101,"1044,63629136804 ",.02)
 ;;63629136804
 ;;9002226.02101,"1044,63629136805 ",.01)
 ;;63629136805
 ;;9002226.02101,"1044,63629136805 ",.02)
 ;;63629136805
 ;;9002226.02101,"1044,63629136806 ",.01)
 ;;63629136806
 ;;9002226.02101,"1044,63629136806 ",.02)
 ;;63629136806
 ;;9002226.02101,"1044,63629136807 ",.01)
 ;;63629136807
 ;;9002226.02101,"1044,63629136807 ",.02)
 ;;63629136807
 ;;9002226.02101,"1044,63629136901 ",.01)
 ;;63629136901
 ;;9002226.02101,"1044,63629136901 ",.02)
 ;;63629136901
 ;;9002226.02101,"1044,63629136902 ",.01)
 ;;63629136902
 ;;9002226.02101,"1044,63629136902 ",.02)
 ;;63629136902
 ;;9002226.02101,"1044,63629136903 ",.01)
 ;;63629136903
 ;;9002226.02101,"1044,63629136903 ",.02)
 ;;63629136903
 ;;9002226.02101,"1044,63629136904 ",.01)
 ;;63629136904
 ;;9002226.02101,"1044,63629136904 ",.02)
 ;;63629136904
 ;;9002226.02101,"1044,63629136905 ",.01)
 ;;63629136905
 ;;9002226.02101,"1044,63629136905 ",.02)
 ;;63629136905
 ;;9002226.02101,"1044,63629136906 ",.01)
 ;;63629136906
 ;;9002226.02101,"1044,63629136906 ",.02)
 ;;63629136906
 ;;9002226.02101,"1044,63629136907 ",.01)
 ;;63629136907
 ;;9002226.02101,"1044,63629136907 ",.02)
 ;;63629136907
 ;;9002226.02101,"1044,63629136908 ",.01)
 ;;63629136908
 ;;9002226.02101,"1044,63629136908 ",.02)
 ;;63629136908
 ;;9002226.02101,"1044,63629136909 ",.01)
 ;;63629136909
 ;;9002226.02101,"1044,63629136909 ",.02)
 ;;63629136909
 ;;9002226.02101,"1044,63629137001 ",.01)
 ;;63629137001
 ;;9002226.02101,"1044,63629137001 ",.02)
 ;;63629137001
 ;;9002226.02101,"1044,63629137002 ",.01)
 ;;63629137002
 ;;9002226.02101,"1044,63629137002 ",.02)
 ;;63629137002
 ;;9002226.02101,"1044,63629137003 ",.01)
 ;;63629137003
 ;;9002226.02101,"1044,63629137003 ",.02)
 ;;63629137003
 ;;9002226.02101,"1044,63629137004 ",.01)
 ;;63629137004
 ;;9002226.02101,"1044,63629137004 ",.02)
 ;;63629137004
 ;;9002226.02101,"1044,63629151001 ",.01)
 ;;63629151001
 ;;9002226.02101,"1044,63629151001 ",.02)
 ;;63629151001
 ;;9002226.02101,"1044,63629151002 ",.01)
 ;;63629151002
 ;;9002226.02101,"1044,63629151002 ",.02)
 ;;63629151002
 ;;9002226.02101,"1044,63629151003 ",.01)
 ;;63629151003
 ;;9002226.02101,"1044,63629151003 ",.02)
 ;;63629151003
 ;;9002226.02101,"1044,63629151004 ",.01)
 ;;63629151004
 ;;9002226.02101,"1044,63629151004 ",.02)
 ;;63629151004
 ;;9002226.02101,"1044,63629151301 ",.01)
 ;;63629151301
 ;;9002226.02101,"1044,63629151301 ",.02)
 ;;63629151301
 ;;9002226.02101,"1044,63629151302 ",.01)
 ;;63629151302
 ;;9002226.02101,"1044,63629151302 ",.02)
 ;;63629151302
 ;;9002226.02101,"1044,63629151303 ",.01)
 ;;63629151303
 ;;9002226.02101,"1044,63629151303 ",.02)
 ;;63629151303
 ;;9002226.02101,"1044,63629151304 ",.01)
 ;;63629151304
 ;;9002226.02101,"1044,63629151304 ",.02)
 ;;63629151304
 ;;9002226.02101,"1044,63629151305 ",.01)
 ;;63629151305
 ;;9002226.02101,"1044,63629151305 ",.02)
 ;;63629151305
 ;;9002226.02101,"1044,63629151306 ",.01)
 ;;63629151306
 ;;9002226.02101,"1044,63629151306 ",.02)
 ;;63629151306
 ;;9002226.02101,"1044,63629151307 ",.01)
 ;;63629151307