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

BGPM5BBN.m

Go to the documentation of this file.
BGPM5BBN ;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,00378354593 ",.01)
 ;;00378354593
 ;;9002226.02101,"1044,00378354593 ",.02)
 ;;00378354593
 ;;9002226.02101,"1044,00378417501 ",.01)
 ;;00378417501
 ;;9002226.02101,"1044,00378417501 ",.02)
 ;;00378417501
 ;;9002226.02101,"1044,00378418601 ",.01)
 ;;00378418601
 ;;9002226.02101,"1044,00378418601 ",.02)
 ;;00378418601
 ;;9002226.02101,"1044,00378418605 ",.01)
 ;;00378418605
 ;;9002226.02101,"1044,00378418605 ",.02)
 ;;00378418605
 ;;9002226.02101,"1044,00378418693 ",.01)
 ;;00378418693
 ;;9002226.02101,"1044,00378418693 ",.02)
 ;;00378418693
 ;;9002226.02101,"1044,00378418701 ",.01)
 ;;00378418701
 ;;9002226.02101,"1044,00378418701 ",.02)
 ;;00378418701
 ;;9002226.02101,"1044,00378418705 ",.01)
 ;;00378418705
 ;;9002226.02101,"1044,00378418705 ",.02)
 ;;00378418705
 ;;9002226.02101,"1044,00378418793 ",.01)
 ;;00378418793
 ;;9002226.02101,"1044,00378418793 ",.02)
 ;;00378418793
 ;;9002226.02101,"1044,00378418801 ",.01)
 ;;00378418801
 ;;9002226.02101,"1044,00378418801 ",.02)
 ;;00378418801
 ;;9002226.02101,"1044,00378418805 ",.01)
 ;;00378418805
 ;;9002226.02101,"1044,00378418805 ",.02)
 ;;00378418805
 ;;9002226.02101,"1044,00378418893 ",.01)
 ;;00378418893
 ;;9002226.02101,"1044,00378418893 ",.02)
 ;;00378418893
 ;;9002226.02101,"1044,00378421001 ",.01)
 ;;00378421001
 ;;9002226.02101,"1044,00378421001 ",.02)
 ;;00378421001
 ;;9002226.02101,"1044,00378421005 ",.01)
 ;;00378421005
 ;;9002226.02101,"1044,00378421005 ",.02)
 ;;00378421005
 ;;9002226.02101,"1044,00378422001 ",.01)
 ;;00378422001
 ;;9002226.02101,"1044,00378422001 ",.02)
 ;;00378422001
 ;;9002226.02101,"1044,00378422005 ",.01)
 ;;00378422005
 ;;9002226.02101,"1044,00378422005 ",.02)
 ;;00378422005
 ;;9002226.02101,"1044,00378422093 ",.01)
 ;;00378422093
 ;;9002226.02101,"1044,00378422093 ",.02)
 ;;00378422093
 ;;9002226.02101,"1044,00378435001 ",.01)
 ;;00378435001
 ;;9002226.02101,"1044,00378435001 ",.02)
 ;;00378435001
 ;;9002226.02101,"1044,00378435005 ",.01)
 ;;00378435005
 ;;9002226.02101,"1044,00378435005 ",.02)
 ;;00378435005
 ;;9002226.02101,"1044,00378435093 ",.01)
 ;;00378435093
 ;;9002226.02101,"1044,00378435093 ",.02)
 ;;00378435093
 ;;9002226.02101,"1044,00378488101 ",.01)
 ;;00378488101
 ;;9002226.02101,"1044,00378488101 ",.02)
 ;;00378488101
 ;;9002226.02101,"1044,00378488105 ",.01)
 ;;00378488105
 ;;9002226.02101,"1044,00378488105 ",.02)
 ;;00378488105
 ;;9002226.02101,"1044,00378488201 ",.01)
 ;;00378488201
 ;;9002226.02101,"1044,00378488201 ",.02)
 ;;00378488201
 ;;9002226.02101,"1044,00378488205 ",.01)
 ;;00378488205
 ;;9002226.02101,"1044,00378488205 ",.02)
 ;;00378488205
 ;;9002226.02101,"1044,00378488301 ",.01)
 ;;00378488301
 ;;9002226.02101,"1044,00378488301 ",.02)
 ;;00378488301
 ;;9002226.02101,"1044,00378488305 ",.01)
 ;;00378488305
 ;;9002226.02101,"1044,00378488305 ",.02)
 ;;00378488305
 ;;9002226.02101,"1044,00378488401 ",.01)
 ;;00378488401
 ;;9002226.02101,"1044,00378488401 ",.02)
 ;;00378488401
 ;;9002226.02101,"1044,00378488405 ",.01)
 ;;00378488405
 ;;9002226.02101,"1044,00378488405 ",.02)
 ;;00378488405
 ;;9002226.02101,"1044,00378488501 ",.01)
 ;;00378488501
 ;;9002226.02101,"1044,00378488501 ",.02)
 ;;00378488501
 ;;9002226.02101,"1044,00378488505 ",.01)
 ;;00378488505
 ;;9002226.02101,"1044,00378488505 ",.02)
 ;;00378488505
 ;;9002226.02101,"1044,00378513105 ",.01)
 ;;00378513105
 ;;9002226.02101,"1044,00378513105 ",.02)
 ;;00378513105
 ;;9002226.02101,"1044,00378513177 ",.01)
 ;;00378513177
 ;;9002226.02101,"1044,00378513177 ",.02)
 ;;00378513177
 ;;9002226.02101,"1044,00378513205 ",.01)
 ;;00378513205
 ;;9002226.02101,"1044,00378513205 ",.02)
 ;;00378513205
 ;;9002226.02101,"1044,00378513277 ",.01)
 ;;00378513277
 ;;9002226.02101,"1044,00378513277 ",.02)
 ;;00378513277
 ;;9002226.02101,"1044,00378513305 ",.01)
 ;;00378513305
 ;;9002226.02101,"1044,00378513305 ",.02)
 ;;00378513305
 ;;9002226.02101,"1044,00378513377 ",.01)
 ;;00378513377
 ;;9002226.02101,"1044,00378513377 ",.02)
 ;;00378513377
 ;;9002226.02101,"1044,00378541028 ",.01)
 ;;00378541028
 ;;9002226.02101,"1044,00378541028 ",.02)
 ;;00378541028
 ;;9002226.02101,"1044,00378541084 ",.01)
 ;;00378541084
 ;;9002226.02101,"1044,00378541084 ",.02)
 ;;00378541084
 ;;9002226.02101,"1044,00378542028 ",.01)
 ;;00378542028
 ;;9002226.02101,"1044,00378542028 ",.02)
 ;;00378542028
 ;;9002226.02101,"1044,00378542084 ",.01)
 ;;00378542084
 ;;9002226.02101,"1044,00378542084 ",.02)
 ;;00378542084
 ;;9002226.02101,"1044,00378623101 ",.01)
 ;;00378623101
 ;;9002226.02101,"1044,00378623101 ",.02)
 ;;00378623101
 ;;9002226.02101,"1044,00378623105 ",.01)
 ;;00378623105
 ;;9002226.02101,"1044,00378623105 ",.02)
 ;;00378623105
 ;;9002226.02101,"1044,00378623201 ",.01)
 ;;00378623201
 ;;9002226.02101,"1044,00378623201 ",.02)
 ;;00378623201
 ;;9002226.02101,"1044,00378623205 ",.01)
 ;;00378623205
 ;;9002226.02101,"1044,00378623205 ",.02)
 ;;00378623205
 ;;9002226.02101,"1044,00378623301 ",.01)
 ;;00378623301
 ;;9002226.02101,"1044,00378623301 ",.02)
 ;;00378623301
 ;;9002226.02101,"1044,00378623305 ",.01)
 ;;00378623305
 ;;9002226.02101,"1044,00378623305 ",.02)
 ;;00378623305
 ;;9002226.02101,"1044,00378700101 ",.01)
 ;;00378700101
 ;;9002226.02101,"1044,00378700101 ",.02)
 ;;00378700101
 ;;9002226.02101,"1044,00378700110 ",.01)
 ;;00378700110
 ;;9002226.02101,"1044,00378700110 ",.02)
 ;;00378700110
 ;;9002226.02101,"1044,00378700193 ",.01)
 ;;00378700193
 ;;9002226.02101,"1044,00378700193 ",.02)
 ;;00378700193
 ;;9002226.02101,"1044,00378700201 ",.01)
 ;;00378700201
 ;;9002226.02101,"1044,00378700201 ",.02)
 ;;00378700201
 ;;9002226.02101,"1044,00378700210 ",.01)
 ;;00378700210
 ;;9002226.02101,"1044,00378700210 ",.02)
 ;;00378700210
 ;;9002226.02101,"1044,00378700293 ",.01)
 ;;00378700293
 ;;9002226.02101,"1044,00378700293 ",.02)
 ;;00378700293
 ;;9002226.02101,"1044,00378700301 ",.01)
 ;;00378700301
 ;;9002226.02101,"1044,00378700301 ",.02)
 ;;00378700301
 ;;9002226.02101,"1044,00378700310 ",.01)
 ;;00378700310
 ;;9002226.02101,"1044,00378700310 ",.02)
 ;;00378700310
 ;;9002226.02101,"1044,00378700393 ",.01)
 ;;00378700393
 ;;9002226.02101,"1044,00378700393 ",.02)
 ;;00378700393
 ;;9002226.02101,"1044,00378700401 ",.01)
 ;;00378700401
 ;;9002226.02101,"1044,00378700401 ",.02)
 ;;00378700401
 ;;9002226.02101,"1044,00378700410 ",.01)
 ;;00378700410
 ;;9002226.02101,"1044,00378700410 ",.02)
 ;;00378700410
 ;;9002226.02101,"1044,00378700493 ",.01)
 ;;00378700493
 ;;9002226.02101,"1044,00378700493 ",.02)
 ;;00378700493
 ;;9002226.02101,"1044,00378929010 ",.01)
 ;;00378929010
 ;;9002226.02101,"1044,00378929010 ",.02)
 ;;00378929010
 ;;9002226.02101,"1044,00378929091 ",.01)
 ;;00378929091
 ;;9002226.02101,"1044,00378929091 ",.02)
 ;;00378929091
 ;;9002226.02101,"1044,00406066101 ",.01)
 ;;00406066101
 ;;9002226.02101,"1044,00406066101 ",.02)
 ;;00406066101
 ;;9002226.02101,"1044,00406066105 ",.01)
 ;;00406066105
 ;;9002226.02101,"1044,00406066105 ",.02)
 ;;00406066105
 ;;9002226.02101,"1044,00406066110 ",.01)
 ;;00406066110
 ;;9002226.02101,"1044,00406066110 ",.02)
 ;;00406066110
 ;;9002226.02101,"1044,00406066162 ",.01)
 ;;00406066162
 ;;9002226.02101,"1044,00406066162 ",.02)
 ;;00406066162
 ;;9002226.02101,"1044,00406066163 ",.01)
 ;;00406066163
 ;;9002226.02101,"1044,00406066163 ",.02)
 ;;00406066163
 ;;9002226.02101,"1044,00406066191 ",.01)
 ;;00406066191
 ;;9002226.02101,"1044,00406066191 ",.02)
 ;;00406066191
 ;;9002226.02101,"1044,00406066301 ",.01)
 ;;00406066301
 ;;9002226.02101,"1044,00406066301 ",.02)
 ;;00406066301
 ;;9002226.02101,"1044,00406066303 ",.01)
 ;;00406066303
 ;;9002226.02101,"1044,00406066303 ",.02)
 ;;00406066303
 ;;9002226.02101,"1044,00406066305 ",.01)
 ;;00406066305
 ;;9002226.02101,"1044,00406066305 ",.02)
 ;;00406066305
 ;;9002226.02101,"1044,00406066310 ",.01)
 ;;00406066310
 ;;9002226.02101,"1044,00406066310 ",.02)
 ;;00406066310
 ;;9002226.02101,"1044,00406066312 ",.01)
 ;;00406066312
 ;;9002226.02101,"1044,00406066312 ",.02)
 ;;00406066312
 ;;9002226.02101,"1044,00406066360 ",.01)
 ;;00406066360
 ;;9002226.02101,"1044,00406066360 ",.02)
 ;;00406066360
 ;;9002226.02101,"1044,00406066362 ",.01)
 ;;00406066362
 ;;9002226.02101,"1044,00406066362 ",.02)
 ;;00406066362
 ;;9002226.02101,"1044,00406066363 ",.01)
 ;;00406066363
 ;;9002226.02101,"1044,00406066363 ",.02)
 ;;00406066363
 ;;9002226.02101,"1044,00406066390 ",.01)
 ;;00406066390
 ;;9002226.02101,"1044,00406066390 ",.02)
 ;;00406066390
 ;;9002226.02101,"1044,00406066391 ",.01)
 ;;00406066391
 ;;9002226.02101,"1044,00406066391 ",.02)
 ;;00406066391
 ;;9002226.02101,"1044,00406200103 ",.01)
 ;;00406200103
 ;;9002226.02101,"1044,00406200103 ",.02)
 ;;00406200103
 ;;9002226.02101,"1044,00406200105 ",.01)
 ;;00406200105
 ;;9002226.02101,"1044,00406200105 ",.02)
 ;;00406200105
 ;;9002226.02101,"1044,00406200109 ",.01)
 ;;00406200109
 ;;9002226.02101,"1044,00406200109 ",.02)
 ;;00406200109
 ;;9002226.02101,"1044,00406200190 ",.01)
 ;;00406200190
 ;;9002226.02101,"1044,00406200190 ",.02)
 ;;00406200190
 ;;9002226.02101,"1044,00406209703 ",.01)
 ;;00406209703
 ;;9002226.02101,"1044,00406209703 ",.02)
 ;;00406209703
 ;;9002226.02101,"1044,00406209705 ",.01)
 ;;00406209705
 ;;9002226.02101,"1044,00406209705 ",.02)
 ;;00406209705
 ;;9002226.02101,"1044,00406209790 ",.01)
 ;;00406209790
 ;;9002226.02101,"1044,00406209790 ",.02)
 ;;00406209790
 ;;9002226.02101,"1044,00406209801 ",.01)
 ;;00406209801
 ;;9002226.02101,"1044,00406209801 ",.02)
 ;;00406209801
 ;;9002226.02101,"1044,00406209803 ",.01)
 ;;00406209803
 ;;9002226.02101,"1044,00406209803 ",.02)
 ;;00406209803
 ;;9002226.02101,"1044,00406209805 ",.01)
 ;;00406209805
 ;;9002226.02101,"1044,00406209805 ",.02)
 ;;00406209805
 ;;9002226.02101,"1044,00406209809 ",.01)
 ;;00406209809
 ;;9002226.02101,"1044,00406209809 ",.02)
 ;;00406209809
 ;;9002226.02101,"1044,00406209890 ",.01)
 ;;00406209890
 ;;9002226.02101,"1044,00406209890 ",.02)
 ;;00406209890
 ;;9002226.02101,"1044,00406209903 ",.01)
 ;;00406209903
 ;;9002226.02101,"1044,00406209903 ",.02)
 ;;00406209903
 ;;9002226.02101,"1044,00406209905 ",.01)
 ;;00406209905
 ;;9002226.02101,"1044,00406209905 ",.02)
 ;;00406209905
 ;;9002226.02101,"1044,00406209990 ",.01)
 ;;00406209990
 ;;9002226.02101,"1044,00406209990 ",.02)
 ;;00406209990
 ;;9002226.02101,"1044,00406993103 ",.01)
 ;;00406993103
 ;;9002226.02101,"1044,00406993103 ",.02)
 ;;00406993103
 ;;9002226.02101,"1044,00406993203 ",.01)
 ;;00406993203
 ;;9002226.02101,"1044,00406993203 ",.02)
 ;;00406993203
 ;;9002226.02101,"1044,00406993303 ",.01)
 ;;00406993303
 ;;9002226.02101,"1044,00406993303 ",.02)
 ;;00406993303
 ;;9002226.02101,"1044,00406993403 ",.01)
 ;;00406993403
 ;;9002226.02101,"1044,00406993403 ",.02)
 ;;00406993403
 ;;9002226.02101,"1044,00440709030 ",.01)
 ;;00440709030
 ;;9002226.02101,"1044,00440709030 ",.02)
 ;;00440709030
 ;;9002226.02101,"1044,00440709130 ",.01)
 ;;00440709130
 ;;9002226.02101,"1044,00440709130 ",.02)
 ;;00440709130
 ;;9002226.02101,"1044,00440709160 ",.01)
 ;;00440709160
 ;;9002226.02101,"1044,00440709160 ",.02)
 ;;00440709160
 ;;9002226.02101,"1044,00440709190 ",.01)
 ;;00440709190
 ;;9002226.02101,"1044,00440709190 ",.02)
 ;;00440709190
 ;;9002226.02101,"1044,00440709191 ",.01)
 ;;00440709191
 ;;9002226.02101,"1044,00440709191 ",.02)
 ;;00440709191
 ;;9002226.02101,"1044,00440709194 ",.01)
 ;;00440709194
 ;;9002226.02101,"1044,00440709194 ",.02)
 ;;00440709194
 ;;9002226.02101,"1044,00440709230 ",.01)
 ;;00440709230