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

BGPM5BCH.m

Go to the documentation of this file.
BGPM5BCH ;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,49349006202 ",.02)
 ;;49349006202
 ;;9002226.02101,"1044,49349007302 ",.01)
 ;;49349007302
 ;;9002226.02101,"1044,49349007302 ",.02)
 ;;49349007302
 ;;9002226.02101,"1044,49349008902 ",.01)
 ;;49349008902
 ;;9002226.02101,"1044,49349008902 ",.02)
 ;;49349008902
 ;;9002226.02101,"1044,49349017102 ",.01)
 ;;49349017102
 ;;9002226.02101,"1044,49349017102 ",.02)
 ;;49349017102
 ;;9002226.02101,"1044,49349017302 ",.01)
 ;;49349017302
 ;;9002226.02101,"1044,49349017302 ",.02)
 ;;49349017302
 ;;9002226.02101,"1044,49349018402 ",.01)
 ;;49349018402
 ;;9002226.02101,"1044,49349018402 ",.02)
 ;;49349018402
 ;;9002226.02101,"1044,49349019202 ",.01)
 ;;49349019202
 ;;9002226.02101,"1044,49349019202 ",.02)
 ;;49349019202
 ;;9002226.02101,"1044,49349020702 ",.01)
 ;;49349020702
 ;;9002226.02101,"1044,49349020702 ",.02)
 ;;49349020702
 ;;9002226.02101,"1044,49349021302 ",.01)
 ;;49349021302
 ;;9002226.02101,"1044,49349021302 ",.02)
 ;;49349021302
 ;;9002226.02101,"1044,49349023402 ",.01)
 ;;49349023402
 ;;9002226.02101,"1044,49349023402 ",.02)
 ;;49349023402
 ;;9002226.02101,"1044,49349023420 ",.01)
 ;;49349023420
 ;;9002226.02101,"1044,49349023420 ",.02)
 ;;49349023420
 ;;9002226.02101,"1044,49349025502 ",.01)
 ;;49349025502
 ;;9002226.02101,"1044,49349025502 ",.02)
 ;;49349025502
 ;;9002226.02101,"1044,49349025902 ",.01)
 ;;49349025902
 ;;9002226.02101,"1044,49349025902 ",.02)
 ;;49349025902
 ;;9002226.02101,"1044,49349026202 ",.01)
 ;;49349026202
 ;;9002226.02101,"1044,49349026202 ",.02)
 ;;49349026202
 ;;9002226.02101,"1044,49349026302 ",.01)
 ;;49349026302
 ;;9002226.02101,"1044,49349026302 ",.02)
 ;;49349026302
 ;;9002226.02101,"1044,49349028502 ",.01)
 ;;49349028502
 ;;9002226.02101,"1044,49349028502 ",.02)
 ;;49349028502
 ;;9002226.02101,"1044,49349028526 ",.01)
 ;;49349028526
 ;;9002226.02101,"1044,49349028526 ",.02)
 ;;49349028526
 ;;9002226.02101,"1044,49349029402 ",.01)
 ;;49349029402
 ;;9002226.02101,"1044,49349029402 ",.02)
 ;;49349029402
 ;;9002226.02101,"1044,49349030502 ",.01)
 ;;49349030502
 ;;9002226.02101,"1044,49349030502 ",.02)
 ;;49349030502
 ;;9002226.02101,"1044,49349030802 ",.01)
 ;;49349030802
 ;;9002226.02101,"1044,49349030802 ",.02)
 ;;49349030802
 ;;9002226.02101,"1044,49349031002 ",.01)
 ;;49349031002
 ;;9002226.02101,"1044,49349031002 ",.02)
 ;;49349031002
 ;;9002226.02101,"1044,49349035102 ",.01)
 ;;49349035102
 ;;9002226.02101,"1044,49349035102 ",.02)
 ;;49349035102
 ;;9002226.02101,"1044,49349035131 ",.01)
 ;;49349035131
 ;;9002226.02101,"1044,49349035131 ",.02)
 ;;49349035131
 ;;9002226.02101,"1044,49349036402 ",.01)
 ;;49349036402
 ;;9002226.02101,"1044,49349036402 ",.02)
 ;;49349036402
 ;;9002226.02101,"1044,49349036424 ",.01)
 ;;49349036424
 ;;9002226.02101,"1044,49349036424 ",.02)
 ;;49349036424
 ;;9002226.02101,"1044,49349037102 ",.01)
 ;;49349037102
 ;;9002226.02101,"1044,49349037102 ",.02)
 ;;49349037102
 ;;9002226.02101,"1044,49349038802 ",.01)
 ;;49349038802
 ;;9002226.02101,"1044,49349038802 ",.02)
 ;;49349038802
 ;;9002226.02101,"1044,49349038826 ",.01)
 ;;49349038826
 ;;9002226.02101,"1044,49349038826 ",.02)
 ;;49349038826
 ;;9002226.02101,"1044,49349039602 ",.01)
 ;;49349039602
 ;;9002226.02101,"1044,49349039602 ",.02)
 ;;49349039602
 ;;9002226.02101,"1044,49349039628 ",.01)
 ;;49349039628
 ;;9002226.02101,"1044,49349039628 ",.02)
 ;;49349039628
 ;;9002226.02101,"1044,49349040702 ",.01)
 ;;49349040702
 ;;9002226.02101,"1044,49349040702 ",.02)
 ;;49349040702
 ;;9002226.02101,"1044,49349040902 ",.01)
 ;;49349040902
 ;;9002226.02101,"1044,49349040902 ",.02)
 ;;49349040902
 ;;9002226.02101,"1044,49349041302 ",.01)
 ;;49349041302
 ;;9002226.02101,"1044,49349041302 ",.02)
 ;;49349041302
 ;;9002226.02101,"1044,49349041402 ",.01)
 ;;49349041402
 ;;9002226.02101,"1044,49349041402 ",.02)
 ;;49349041402
 ;;9002226.02101,"1044,49349042302 ",.01)
 ;;49349042302
 ;;9002226.02101,"1044,49349042302 ",.02)
 ;;49349042302
 ;;9002226.02101,"1044,49349042502 ",.01)
 ;;49349042502
 ;;9002226.02101,"1044,49349042502 ",.02)
 ;;49349042502
 ;;9002226.02101,"1044,49349042528 ",.01)
 ;;49349042528
 ;;9002226.02101,"1044,49349042528 ",.02)
 ;;49349042528
 ;;9002226.02101,"1044,49349045102 ",.01)
 ;;49349045102
 ;;9002226.02101,"1044,49349045102 ",.02)
 ;;49349045102
 ;;9002226.02101,"1044,49349045202 ",.01)
 ;;49349045202
 ;;9002226.02101,"1044,49349045202 ",.02)
 ;;49349045202
 ;;9002226.02101,"1044,49349045602 ",.01)
 ;;49349045602
 ;;9002226.02101,"1044,49349045602 ",.02)
 ;;49349045602
 ;;9002226.02101,"1044,49349046202 ",.01)
 ;;49349046202
 ;;9002226.02101,"1044,49349046202 ",.02)
 ;;49349046202
 ;;9002226.02101,"1044,49349047202 ",.01)
 ;;49349047202
 ;;9002226.02101,"1044,49349047202 ",.02)
 ;;49349047202
 ;;9002226.02101,"1044,49349047223 ",.01)
 ;;49349047223
 ;;9002226.02101,"1044,49349047223 ",.02)
 ;;49349047223
 ;;9002226.02101,"1044,49349047902 ",.01)
 ;;49349047902
 ;;9002226.02101,"1044,49349047902 ",.02)
 ;;49349047902
 ;;9002226.02101,"1044,49349047920 ",.01)
 ;;49349047920
 ;;9002226.02101,"1044,49349047920 ",.02)
 ;;49349047920
 ;;9002226.02101,"1044,49349060928 ",.01)
 ;;49349060928
 ;;9002226.02101,"1044,49349060928 ",.02)
 ;;49349060928
 ;;9002226.02101,"1044,49349068202 ",.01)
 ;;49349068202
 ;;9002226.02101,"1044,49349068202 ",.02)
 ;;49349068202
 ;;9002226.02101,"1044,49349069702 ",.01)
 ;;49349069702
 ;;9002226.02101,"1044,49349069702 ",.02)
 ;;49349069702
 ;;9002226.02101,"1044,49727015902 ",.01)
 ;;49727015902
 ;;9002226.02101,"1044,49727015902 ",.02)
 ;;49727015902
 ;;9002226.02101,"1044,49727015905 ",.01)
 ;;49727015905
 ;;9002226.02101,"1044,49727015905 ",.02)
 ;;49727015905
 ;;9002226.02101,"1044,49856008301 ",.01)
 ;;49856008301
 ;;9002226.02101,"1044,49856008301 ",.02)
 ;;49856008301
 ;;9002226.02101,"1044,49856008302 ",.01)
 ;;49856008302
 ;;9002226.02101,"1044,49856008302 ",.02)
 ;;49856008302
 ;;9002226.02101,"1044,49856008304 ",.01)
 ;;49856008304
 ;;9002226.02101,"1044,49856008304 ",.02)
 ;;49856008304
 ;;9002226.02101,"1044,49856008401 ",.01)
 ;;49856008401
 ;;9002226.02101,"1044,49856008401 ",.02)
 ;;49856008401
 ;;9002226.02101,"1044,49856008402 ",.01)
 ;;49856008402
 ;;9002226.02101,"1044,49856008402 ",.02)
 ;;49856008402
 ;;9002226.02101,"1044,49856008404 ",.01)
 ;;49856008404
 ;;9002226.02101,"1044,49856008404 ",.02)
 ;;49856008404
 ;;9002226.02101,"1044,49856009701 ",.01)
 ;;49856009701
 ;;9002226.02101,"1044,49856009701 ",.02)
 ;;49856009701
 ;;9002226.02101,"1044,49856009702 ",.01)
 ;;49856009702
 ;;9002226.02101,"1044,49856009702 ",.02)
 ;;49856009702
 ;;9002226.02101,"1044,49856009704 ",.01)
 ;;49856009704
 ;;9002226.02101,"1044,49856009704 ",.02)
 ;;49856009704
 ;;9002226.02101,"1044,49856010101 ",.01)
 ;;49856010101
 ;;9002226.02101,"1044,49856010101 ",.02)
 ;;49856010101
 ;;9002226.02101,"1044,49856010102 ",.01)
 ;;49856010102
 ;;9002226.02101,"1044,49856010102 ",.02)
 ;;49856010102
 ;;9002226.02101,"1044,49856010104 ",.01)
 ;;49856010104
 ;;9002226.02101,"1044,49856010104 ",.02)
 ;;49856010104
 ;;9002226.02101,"1044,49856016401 ",.01)
 ;;49856016401
 ;;9002226.02101,"1044,49856016401 ",.02)
 ;;49856016401
 ;;9002226.02101,"1044,49856016501 ",.01)
 ;;49856016501
 ;;9002226.02101,"1044,49856016501 ",.02)
 ;;49856016501
 ;;9002226.02101,"1044,49856016601 ",.01)
 ;;49856016601
 ;;9002226.02101,"1044,49856016601 ",.02)
 ;;49856016601
 ;;9002226.02101,"1044,49856018002 ",.01)
 ;;49856018002
 ;;9002226.02101,"1044,49856018002 ",.02)
 ;;49856018002
 ;;9002226.02101,"1044,49856018003 ",.01)
 ;;49856018003
 ;;9002226.02101,"1044,49856018003 ",.02)
 ;;49856018003
 ;;9002226.02101,"1044,49856018006 ",.01)
 ;;49856018006
 ;;9002226.02101,"1044,49856018006 ",.02)
 ;;49856018006
 ;;9002226.02101,"1044,49856018007 ",.01)
 ;;49856018007
 ;;9002226.02101,"1044,49856018007 ",.02)
 ;;49856018007
 ;;9002226.02101,"1044,49856018008 ",.01)
 ;;49856018008
 ;;9002226.02101,"1044,49856018008 ",.02)
 ;;49856018008
 ;;9002226.02101,"1044,49856018009 ",.01)
 ;;49856018009
 ;;9002226.02101,"1044,49856018009 ",.02)
 ;;49856018009
 ;;9002226.02101,"1044,49856018102 ",.01)
 ;;49856018102
 ;;9002226.02101,"1044,49856018102 ",.02)
 ;;49856018102
 ;;9002226.02101,"1044,49856018103 ",.01)
 ;;49856018103
 ;;9002226.02101,"1044,49856018103 ",.02)
 ;;49856018103
 ;;9002226.02101,"1044,49856018106 ",.01)
 ;;49856018106
 ;;9002226.02101,"1044,49856018106 ",.02)
 ;;49856018106
 ;;9002226.02101,"1044,49856018107 ",.01)
 ;;49856018107
 ;;9002226.02101,"1044,49856018107 ",.02)
 ;;49856018107
 ;;9002226.02101,"1044,49856018108 ",.01)
 ;;49856018108
 ;;9002226.02101,"1044,49856018108 ",.02)
 ;;49856018108
 ;;9002226.02101,"1044,49856018109 ",.01)
 ;;49856018109
 ;;9002226.02101,"1044,49856018109 ",.02)
 ;;49856018109
 ;;9002226.02101,"1044,49856018202 ",.01)
 ;;49856018202
 ;;9002226.02101,"1044,49856018202 ",.02)
 ;;49856018202
 ;;9002226.02101,"1044,49856018203 ",.01)
 ;;49856018203
 ;;9002226.02101,"1044,49856018203 ",.02)
 ;;49856018203
 ;;9002226.02101,"1044,49856018206 ",.01)
 ;;49856018206
 ;;9002226.02101,"1044,49856018206 ",.02)
 ;;49856018206
 ;;9002226.02101,"1044,49856018207 ",.01)
 ;;49856018207
 ;;9002226.02101,"1044,49856018207 ",.02)
 ;;49856018207
 ;;9002226.02101,"1044,49856018208 ",.01)
 ;;49856018208
 ;;9002226.02101,"1044,49856018208 ",.02)
 ;;49856018208
 ;;9002226.02101,"1044,49856018209 ",.01)
 ;;49856018209
 ;;9002226.02101,"1044,49856018209 ",.02)
 ;;49856018209
 ;;9002226.02101,"1044,49856024701 ",.01)
 ;;49856024701
 ;;9002226.02101,"1044,49856024701 ",.02)
 ;;49856024701
 ;;9002226.02101,"1044,49856024703 ",.01)
 ;;49856024703
 ;;9002226.02101,"1044,49856024703 ",.02)
 ;;49856024703
 ;;9002226.02101,"1044,49856024705 ",.01)
 ;;49856024705
 ;;9002226.02101,"1044,49856024705 ",.02)
 ;;49856024705
 ;;9002226.02101,"1044,49856024708 ",.01)
 ;;49856024708
 ;;9002226.02101,"1044,49856024708 ",.02)
 ;;49856024708
 ;;9002226.02101,"1044,49856024801 ",.01)
 ;;49856024801
 ;;9002226.02101,"1044,49856024801 ",.02)
 ;;49856024801
 ;;9002226.02101,"1044,49856024803 ",.01)
 ;;49856024803
 ;;9002226.02101,"1044,49856024803 ",.02)
 ;;49856024803
 ;;9002226.02101,"1044,49856024805 ",.01)
 ;;49856024805
 ;;9002226.02101,"1044,49856024805 ",.02)
 ;;49856024805
 ;;9002226.02101,"1044,49856024808 ",.01)
 ;;49856024808
 ;;9002226.02101,"1044,49856024808 ",.02)
 ;;49856024808
 ;;9002226.02101,"1044,49856024901 ",.01)
 ;;49856024901
 ;;9002226.02101,"1044,49856024901 ",.02)
 ;;49856024901
 ;;9002226.02101,"1044,49856024903 ",.01)
 ;;49856024903
 ;;9002226.02101,"1044,49856024903 ",.02)
 ;;49856024903
 ;;9002226.02101,"1044,49856024905 ",.01)
 ;;49856024905
 ;;9002226.02101,"1044,49856024905 ",.02)
 ;;49856024905
 ;;9002226.02101,"1044,49856024908 ",.01)
 ;;49856024908
 ;;9002226.02101,"1044,49856024908 ",.02)
 ;;49856024908
 ;;9002226.02101,"1044,49856251801 ",.01)
 ;;49856251801
 ;;9002226.02101,"1044,49856251801 ",.02)
 ;;49856251801
 ;;9002226.02101,"1044,49856251804 ",.01)
 ;;49856251804
 ;;9002226.02101,"1044,49856251804 ",.02)
 ;;49856251804
 ;;9002226.02101,"1044,49856251808 ",.01)
 ;;49856251808
 ;;9002226.02101,"1044,49856251808 ",.02)
 ;;49856251808
 ;;9002226.02101,"1044,49856251901 ",.01)
 ;;49856251901
 ;;9002226.02101,"1044,49856251901 ",.02)
 ;;49856251901
 ;;9002226.02101,"1044,49856251904 ",.01)
 ;;49856251904
 ;;9002226.02101,"1044,49856251904 ",.02)
 ;;49856251904
 ;;9002226.02101,"1044,49856251908 ",.01)
 ;;49856251908
 ;;9002226.02101,"1044,49856251908 ",.02)
 ;;49856251908