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

BGPM5ARC.m

Go to the documentation of this file.
BGPM5ARC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,51138055230 ",.02)
 ;;51138055230
 ;;9002226.02101,"1005,51138055330 ",.01)
 ;;51138055330
 ;;9002226.02101,"1005,51138055330 ",.02)
 ;;51138055330
 ;;9002226.02101,"1005,51138055430 ",.01)
 ;;51138055430
 ;;9002226.02101,"1005,51138055430 ",.02)
 ;;51138055430
 ;;9002226.02101,"1005,51138055530 ",.01)
 ;;51138055530
 ;;9002226.02101,"1005,51138055530 ",.02)
 ;;51138055530
 ;;9002226.02101,"1005,51138055630 ",.01)
 ;;51138055630
 ;;9002226.02101,"1005,51138055630 ",.02)
 ;;51138055630
 ;;9002226.02101,"1005,51217370700 ",.01)
 ;;51217370700
 ;;9002226.02101,"1005,51217370700 ",.02)
 ;;51217370700
 ;;9002226.02101,"1005,51217371200 ",.01)
 ;;51217371200
 ;;9002226.02101,"1005,51217371200 ",.02)
 ;;51217371200
 ;;9002226.02101,"1005,51217371500 ",.01)
 ;;51217371500
 ;;9002226.02101,"1005,51217371500 ",.02)
 ;;51217371500
 ;;9002226.02101,"1005,51217372500 ",.01)
 ;;51217372500
 ;;9002226.02101,"1005,51217372500 ",.02)
 ;;51217372500
 ;;9002226.02101,"1005,51655023224 ",.01)
 ;;51655023224
 ;;9002226.02101,"1005,51655023224 ",.02)
 ;;51655023224
 ;;9002226.02101,"1005,51655023252 ",.01)
 ;;51655023252
 ;;9002226.02101,"1005,51655023252 ",.02)
 ;;51655023252
 ;;9002226.02101,"1005,51655023253 ",.01)
 ;;51655023253
 ;;9002226.02101,"1005,51655023253 ",.02)
 ;;51655023253
 ;;9002226.02101,"1005,51655023284 ",.01)
 ;;51655023284
 ;;9002226.02101,"1005,51655023284 ",.02)
 ;;51655023284
 ;;9002226.02101,"1005,51655027824 ",.01)
 ;;51655027824
 ;;9002226.02101,"1005,51655027824 ",.02)
 ;;51655027824
 ;;9002226.02101,"1005,51655028024 ",.01)
 ;;51655028024
 ;;9002226.02101,"1005,51655028024 ",.02)
 ;;51655028024
 ;;9002226.02101,"1005,51655028050 ",.01)
 ;;51655028050
 ;;9002226.02101,"1005,51655028050 ",.02)
 ;;51655028050
 ;;9002226.02101,"1005,51655028052 ",.01)
 ;;51655028052
 ;;9002226.02101,"1005,51655028052 ",.02)
 ;;51655028052
 ;;9002226.02101,"1005,51655028053 ",.01)
 ;;51655028053
 ;;9002226.02101,"1005,51655028053 ",.02)
 ;;51655028053
 ;;9002226.02101,"1005,51655028624 ",.01)
 ;;51655028624
 ;;9002226.02101,"1005,51655028624 ",.02)
 ;;51655028624
 ;;9002226.02101,"1005,51655028724 ",.01)
 ;;51655028724
 ;;9002226.02101,"1005,51655028724 ",.02)
 ;;51655028724
 ;;9002226.02101,"1005,51655029224 ",.01)
 ;;51655029224
 ;;9002226.02101,"1005,51655029224 ",.02)
 ;;51655029224
 ;;9002226.02101,"1005,51655029252 ",.01)
 ;;51655029252
 ;;9002226.02101,"1005,51655029252 ",.02)
 ;;51655029252
 ;;9002226.02101,"1005,51655029253 ",.01)
 ;;51655029253
 ;;9002226.02101,"1005,51655029253 ",.02)
 ;;51655029253
 ;;9002226.02101,"1005,51655062024 ",.01)
 ;;51655062024
 ;;9002226.02101,"1005,51655062024 ",.02)
 ;;51655062024
 ;;9002226.02101,"1005,51655067924 ",.01)
 ;;51655067924
 ;;9002226.02101,"1005,51655067924 ",.02)
 ;;51655067924
 ;;9002226.02101,"1005,51655067925 ",.01)
 ;;51655067925
 ;;9002226.02101,"1005,51655067925 ",.02)
 ;;51655067925
 ;;9002226.02101,"1005,51655067952 ",.01)
 ;;51655067952
 ;;9002226.02101,"1005,51655067952 ",.02)
 ;;51655067952
 ;;9002226.02101,"1005,51655067953 ",.01)
 ;;51655067953
 ;;9002226.02101,"1005,51655067953 ",.02)
 ;;51655067953
 ;;9002226.02101,"1005,51655067984 ",.01)
 ;;51655067984
 ;;9002226.02101,"1005,51655067984 ",.02)
 ;;51655067984
 ;;9002226.02101,"1005,51655072324 ",.01)
 ;;51655072324
 ;;9002226.02101,"1005,51655072324 ",.02)
 ;;51655072324
 ;;9002226.02101,"1005,51655072352 ",.01)
 ;;51655072352
 ;;9002226.02101,"1005,51655072352 ",.02)
 ;;51655072352
 ;;9002226.02101,"1005,51655072353 ",.01)
 ;;51655072353
 ;;9002226.02101,"1005,51655072353 ",.02)
 ;;51655072353
 ;;9002226.02101,"1005,51655074224 ",.01)
 ;;51655074224
 ;;9002226.02101,"1005,51655074224 ",.02)
 ;;51655074224
 ;;9002226.02101,"1005,51655074225 ",.01)
 ;;51655074225
 ;;9002226.02101,"1005,51655074225 ",.02)
 ;;51655074225
 ;;9002226.02101,"1005,51660052201 ",.01)
 ;;51660052201
 ;;9002226.02101,"1005,51660052201 ",.02)
 ;;51660052201
 ;;9002226.02101,"1005,51660052210 ",.01)
 ;;51660052210
 ;;9002226.02101,"1005,51660052210 ",.02)
 ;;51660052210
 ;;9002226.02101,"1005,51660052301 ",.01)
 ;;51660052301
 ;;9002226.02101,"1005,51660052301 ",.02)
 ;;51660052301
 ;;9002226.02101,"1005,51660052310 ",.01)
 ;;51660052310
 ;;9002226.02101,"1005,51660052310 ",.02)
 ;;51660052310
 ;;9002226.02101,"1005,51660052401 ",.01)
 ;;51660052401
 ;;9002226.02101,"1005,51660052401 ",.02)
 ;;51660052401
 ;;9002226.02101,"1005,51660052410 ",.01)
 ;;51660052410
 ;;9002226.02101,"1005,51660052410 ",.02)
 ;;51660052410
 ;;9002226.02101,"1005,51660052501 ",.01)
 ;;51660052501
 ;;9002226.02101,"1005,51660052501 ",.02)
 ;;51660052501
 ;;9002226.02101,"1005,51660052510 ",.01)
 ;;51660052510
 ;;9002226.02101,"1005,51660052510 ",.02)
 ;;51660052510
 ;;9002226.02101,"1005,51660053101 ",.01)
 ;;51660053101
 ;;9002226.02101,"1005,51660053101 ",.02)
 ;;51660053101
 ;;9002226.02101,"1005,51660053201 ",.01)
 ;;51660053201
 ;;9002226.02101,"1005,51660053201 ",.02)
 ;;51660053201
 ;;9002226.02101,"1005,51660053210 ",.01)
 ;;51660053210
 ;;9002226.02101,"1005,51660053210 ",.02)
 ;;51660053210
 ;;9002226.02101,"1005,51660053301 ",.01)
 ;;51660053301
 ;;9002226.02101,"1005,51660053301 ",.02)
 ;;51660053301
 ;;9002226.02101,"1005,51660053310 ",.01)
 ;;51660053310
 ;;9002226.02101,"1005,51660053310 ",.02)
 ;;51660053310
 ;;9002226.02101,"1005,51660053401 ",.01)
 ;;51660053401
 ;;9002226.02101,"1005,51660053401 ",.02)
 ;;51660053401
 ;;9002226.02101,"1005,51660053410 ",.01)
 ;;51660053410
 ;;9002226.02101,"1005,51660053410 ",.02)
 ;;51660053410
 ;;9002226.02101,"1005,51660053501 ",.01)
 ;;51660053501
 ;;9002226.02101,"1005,51660053501 ",.02)
 ;;51660053501
 ;;9002226.02101,"1005,51660053510 ",.01)
 ;;51660053510
 ;;9002226.02101,"1005,51660053510 ",.02)
 ;;51660053510
 ;;9002226.02101,"1005,51660053601 ",.01)
 ;;51660053601
 ;;9002226.02101,"1005,51660053601 ",.02)
 ;;51660053601
 ;;9002226.02101,"1005,51660053701 ",.01)
 ;;51660053701
 ;;9002226.02101,"1005,51660053701 ",.02)
 ;;51660053701
 ;;9002226.02101,"1005,51660053801 ",.01)
 ;;51660053801
 ;;9002226.02101,"1005,51660053801 ",.02)
 ;;51660053801
 ;;9002226.02101,"1005,51660054890 ",.01)
 ;;51660054890
 ;;9002226.02101,"1005,51660054890 ",.02)
 ;;51660054890
 ;;9002226.02101,"1005,51660054990 ",.01)
 ;;51660054990
 ;;9002226.02101,"1005,51660054990 ",.02)
 ;;51660054990
 ;;9002226.02101,"1005,51660055090 ",.01)
 ;;51660055090
 ;;9002226.02101,"1005,51660055090 ",.02)
 ;;51660055090
 ;;9002226.02101,"1005,51660055190 ",.01)
 ;;51660055190
 ;;9002226.02101,"1005,51660055190 ",.02)
 ;;51660055190
 ;;9002226.02101,"1005,51672403701 ",.01)
 ;;51672403701
 ;;9002226.02101,"1005,51672403701 ",.02)
 ;;51672403701
 ;;9002226.02101,"1005,51672403703 ",.01)
 ;;51672403703
 ;;9002226.02101,"1005,51672403703 ",.02)
 ;;51672403703
 ;;9002226.02101,"1005,51672403801 ",.01)
 ;;51672403801
 ;;9002226.02101,"1005,51672403801 ",.02)
 ;;51672403801
 ;;9002226.02101,"1005,51672403803 ",.01)
 ;;51672403803
 ;;9002226.02101,"1005,51672403803 ",.02)
 ;;51672403803
 ;;9002226.02101,"1005,51672403901 ",.01)
 ;;51672403901
 ;;9002226.02101,"1005,51672403901 ",.02)
 ;;51672403901
 ;;9002226.02101,"1005,51672403903 ",.01)
 ;;51672403903
 ;;9002226.02101,"1005,51672403903 ",.02)
 ;;51672403903
 ;;9002226.02101,"1005,51672404001 ",.01)
 ;;51672404001
 ;;9002226.02101,"1005,51672404001 ",.02)
 ;;51672404001
 ;;9002226.02101,"1005,51672404003 ",.01)
 ;;51672404003
 ;;9002226.02101,"1005,51672404003 ",.02)
 ;;51672404003
 ;;9002226.02101,"1005,51672404501 ",.01)
 ;;51672404501
 ;;9002226.02101,"1005,51672404501 ",.02)
 ;;51672404501
 ;;9002226.02101,"1005,51672404503 ",.01)
 ;;51672404503
 ;;9002226.02101,"1005,51672404503 ",.02)
 ;;51672404503
 ;;9002226.02101,"1005,51672404601 ",.01)
 ;;51672404601
 ;;9002226.02101,"1005,51672404601 ",.02)
 ;;51672404601
 ;;9002226.02101,"1005,51672404603 ",.01)
 ;;51672404603
 ;;9002226.02101,"1005,51672404603 ",.02)
 ;;51672404603
 ;;9002226.02101,"1005,51875095502 ",.01)
 ;;51875095502
 ;;9002226.02101,"1005,51875095502 ",.02)
 ;;51875095502
 ;;9002226.02101,"1005,51875095505 ",.01)
 ;;51875095505
 ;;9002226.02101,"1005,51875095505 ",.02)
 ;;51875095505
 ;;9002226.02101,"1005,52544066801 ",.01)
 ;;52544066801
 ;;9002226.02101,"1005,52544066801 ",.02)
 ;;52544066801
 ;;9002226.02101,"1005,52544066805 ",.01)
 ;;52544066805
 ;;9002226.02101,"1005,52544066805 ",.02)
 ;;52544066805
 ;;9002226.02101,"1005,52544066901 ",.01)
 ;;52544066901
 ;;9002226.02101,"1005,52544066901 ",.02)
 ;;52544066901
 ;;9002226.02101,"1005,52544066905 ",.01)
 ;;52544066905
 ;;9002226.02101,"1005,52544066905 ",.02)
 ;;52544066905
 ;;9002226.02101,"1005,52544067001 ",.01)
 ;;52544067001
 ;;9002226.02101,"1005,52544067001 ",.02)
 ;;52544067001
 ;;9002226.02101,"1005,52544067005 ",.01)
 ;;52544067005
 ;;9002226.02101,"1005,52544067005 ",.02)
 ;;52544067005
 ;;9002226.02101,"1005,52544067101 ",.01)
 ;;52544067101
 ;;9002226.02101,"1005,52544067101 ",.02)
 ;;52544067101
 ;;9002226.02101,"1005,52544068801 ",.01)
 ;;52544068801
 ;;9002226.02101,"1005,52544068801 ",.02)
 ;;52544068801
 ;;9002226.02101,"1005,52544068805 ",.01)
 ;;52544068805
 ;;9002226.02101,"1005,52544068805 ",.02)
 ;;52544068805
 ;;9002226.02101,"1005,52544068901 ",.01)
 ;;52544068901
 ;;9002226.02101,"1005,52544068901 ",.02)
 ;;52544068901
 ;;9002226.02101,"1005,52544068905 ",.01)
 ;;52544068905
 ;;9002226.02101,"1005,52544068905 ",.02)
 ;;52544068905
 ;;9002226.02101,"1005,52544069101 ",.01)
 ;;52544069101
 ;;9002226.02101,"1005,52544069101 ",.02)
 ;;52544069101
 ;;9002226.02101,"1005,52549403901 ",.01)
 ;;52549403901
 ;;9002226.02101,"1005,52549403901 ",.02)
 ;;52549403901
 ;;9002226.02101,"1005,52549403902 ",.01)
 ;;52549403902
 ;;9002226.02101,"1005,52549403902 ",.02)
 ;;52549403902
 ;;9002226.02101,"1005,52549403903 ",.01)
 ;;52549403903
 ;;9002226.02101,"1005,52549403903 ",.02)
 ;;52549403903
 ;;9002226.02101,"1005,52549404001 ",.01)
 ;;52549404001
 ;;9002226.02101,"1005,52549404001 ",.02)
 ;;52549404001
 ;;9002226.02101,"1005,52549404002 ",.01)
 ;;52549404002
 ;;9002226.02101,"1005,52549404002 ",.02)
 ;;52549404002
 ;;9002226.02101,"1005,52549404003 ",.01)
 ;;52549404003
 ;;9002226.02101,"1005,52549404003 ",.02)
 ;;52549404003
 ;;9002226.02101,"1005,52959013715 ",.01)
 ;;52959013715
 ;;9002226.02101,"1005,52959013715 ",.02)
 ;;52959013715
 ;;9002226.02101,"1005,52959018030 ",.01)
 ;;52959018030
 ;;9002226.02101,"1005,52959018030 ",.02)
 ;;52959018030
 ;;9002226.02101,"1005,52959018060 ",.01)
 ;;52959018060
 ;;9002226.02101,"1005,52959018060 ",.02)
 ;;52959018060
 ;;9002226.02101,"1005,52959049800 ",.01)
 ;;52959049800
 ;;9002226.02101,"1005,52959049800 ",.02)
 ;;52959049800
 ;;9002226.02101,"1005,52959072815 ",.01)
 ;;52959072815
 ;;9002226.02101,"1005,52959072815 ",.02)
 ;;52959072815
 ;;9002226.02101,"1005,52959072820 ",.01)
 ;;52959072820
 ;;9002226.02101,"1005,52959072820 ",.02)
 ;;52959072820
 ;;9002226.02101,"1005,52959072830 ",.01)
 ;;52959072830
 ;;9002226.02101,"1005,52959072830 ",.02)
 ;;52959072830
 ;;9002226.02101,"1005,52959072890 ",.01)
 ;;52959072890
 ;;9002226.02101,"1005,52959072890 ",.02)
 ;;52959072890
 ;;9002226.02101,"1005,52959072930 ",.01)
 ;;52959072930
 ;;9002226.02101,"1005,52959072930 ",.02)
 ;;52959072930
 ;;9002226.02101,"1005,52959072960 ",.01)
 ;;52959072960
 ;;9002226.02101,"1005,52959072960 ",.02)
 ;;52959072960
 ;;9002226.02101,"1005,52959072990 ",.01)
 ;;52959072990
 ;;9002226.02101,"1005,52959072990 ",.02)
 ;;52959072990