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

BGPM5BCP.m

Go to the documentation of this file.
BGPM5BCP ;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,53808019701 ",.02)
 ;;53808019701
 ;;9002226.02101,"1044,53808022501 ",.01)
 ;;53808022501
 ;;9002226.02101,"1044,53808022501 ",.02)
 ;;53808022501
 ;;9002226.02101,"1044,53808022601 ",.01)
 ;;53808022601
 ;;9002226.02101,"1044,53808022601 ",.02)
 ;;53808022601
 ;;9002226.02101,"1044,53808022701 ",.01)
 ;;53808022701
 ;;9002226.02101,"1044,53808022701 ",.02)
 ;;53808022701
 ;;9002226.02101,"1044,53808035001 ",.01)
 ;;53808035001
 ;;9002226.02101,"1044,53808035001 ",.02)
 ;;53808035001
 ;;9002226.02101,"1044,53808035101 ",.01)
 ;;53808035101
 ;;9002226.02101,"1044,53808035101 ",.02)
 ;;53808035101
 ;;9002226.02101,"1044,53808036601 ",.01)
 ;;53808036601
 ;;9002226.02101,"1044,53808036601 ",.02)
 ;;53808036601
 ;;9002226.02101,"1044,53808038401 ",.01)
 ;;53808038401
 ;;9002226.02101,"1044,53808038401 ",.02)
 ;;53808038401
 ;;9002226.02101,"1044,53808039301 ",.01)
 ;;53808039301
 ;;9002226.02101,"1044,53808039301 ",.02)
 ;;53808039301
 ;;9002226.02101,"1044,53808039401 ",.01)
 ;;53808039401
 ;;9002226.02101,"1044,53808039401 ",.02)
 ;;53808039401
 ;;9002226.02101,"1044,53808048201 ",.01)
 ;;53808048201
 ;;9002226.02101,"1044,53808048201 ",.02)
 ;;53808048201
 ;;9002226.02101,"1044,53808048301 ",.01)
 ;;53808048301
 ;;9002226.02101,"1044,53808048301 ",.02)
 ;;53808048301
 ;;9002226.02101,"1044,53808048401 ",.01)
 ;;53808048401
 ;;9002226.02101,"1044,53808048401 ",.02)
 ;;53808048401
 ;;9002226.02101,"1044,53808057901 ",.01)
 ;;53808057901
 ;;9002226.02101,"1044,53808057901 ",.02)
 ;;53808057901
 ;;9002226.02101,"1044,53808058101 ",.01)
 ;;53808058101
 ;;9002226.02101,"1044,53808058101 ",.02)
 ;;53808058101
 ;;9002226.02101,"1044,53808058201 ",.01)
 ;;53808058201
 ;;9002226.02101,"1044,53808058201 ",.02)
 ;;53808058201
 ;;9002226.02101,"1044,53808058601 ",.01)
 ;;53808058601
 ;;9002226.02101,"1044,53808058601 ",.02)
 ;;53808058601
 ;;9002226.02101,"1044,53808058701 ",.01)
 ;;53808058701
 ;;9002226.02101,"1044,53808058701 ",.02)
 ;;53808058701
 ;;9002226.02101,"1044,53808060101 ",.01)
 ;;53808060101
 ;;9002226.02101,"1044,53808060101 ",.02)
 ;;53808060101
 ;;9002226.02101,"1044,53808064701 ",.01)
 ;;53808064701
 ;;9002226.02101,"1044,53808064701 ",.02)
 ;;53808064701
 ;;9002226.02101,"1044,53808065501 ",.01)
 ;;53808065501
 ;;9002226.02101,"1044,53808065501 ",.02)
 ;;53808065501
 ;;9002226.02101,"1044,53808073501 ",.01)
 ;;53808073501
 ;;9002226.02101,"1044,53808073501 ",.02)
 ;;53808073501
 ;;9002226.02101,"1044,53808073601 ",.01)
 ;;53808073601
 ;;9002226.02101,"1044,53808073601 ",.02)
 ;;53808073601
 ;;9002226.02101,"1044,53808073701 ",.01)
 ;;53808073701
 ;;9002226.02101,"1044,53808073701 ",.02)
 ;;53808073701
 ;;9002226.02101,"1044,53808074801 ",.01)
 ;;53808074801
 ;;9002226.02101,"1044,53808074801 ",.02)
 ;;53808074801
 ;;9002226.02101,"1044,53808074901 ",.01)
 ;;53808074901
 ;;9002226.02101,"1044,53808074901 ",.02)
 ;;53808074901
 ;;9002226.02101,"1044,53808075001 ",.01)
 ;;53808075001
 ;;9002226.02101,"1044,53808075001 ",.02)
 ;;53808075001
 ;;9002226.02101,"1044,53808075201 ",.01)
 ;;53808075201
 ;;9002226.02101,"1044,53808075201 ",.02)
 ;;53808075201
 ;;9002226.02101,"1044,53808075301 ",.01)
 ;;53808075301
 ;;9002226.02101,"1044,53808075301 ",.02)
 ;;53808075301
 ;;9002226.02101,"1044,53808075401 ",.01)
 ;;53808075401
 ;;9002226.02101,"1044,53808075401 ",.02)
 ;;53808075401
 ;;9002226.02101,"1044,53808075601 ",.01)
 ;;53808075601
 ;;9002226.02101,"1044,53808075601 ",.02)
 ;;53808075601
 ;;9002226.02101,"1044,53808098601 ",.01)
 ;;53808098601
 ;;9002226.02101,"1044,53808098601 ",.02)
 ;;53808098601
 ;;9002226.02101,"1044,53808098801 ",.01)
 ;;53808098801
 ;;9002226.02101,"1044,53808098801 ",.02)
 ;;53808098801
 ;;9002226.02101,"1044,53978002303 ",.01)
 ;;53978002303
 ;;9002226.02101,"1044,53978002303 ",.02)
 ;;53978002303
 ;;9002226.02101,"1044,53978007309 ",.01)
 ;;53978007309
 ;;9002226.02101,"1044,53978007309 ",.02)
 ;;53978007309
 ;;9002226.02101,"1044,53978049501 ",.01)
 ;;53978049501
 ;;9002226.02101,"1044,53978049501 ",.02)
 ;;53978049501
 ;;9002226.02101,"1044,53978049503 ",.01)
 ;;53978049503
 ;;9002226.02101,"1044,53978049503 ",.02)
 ;;53978049503
 ;;9002226.02101,"1044,53978049505 ",.01)
 ;;53978049505
 ;;9002226.02101,"1044,53978049505 ",.02)
 ;;53978049505
 ;;9002226.02101,"1044,53978049508 ",.01)
 ;;53978049508
 ;;9002226.02101,"1044,53978049508 ",.02)
 ;;53978049508
 ;;9002226.02101,"1044,53978049509 ",.01)
 ;;53978049509
 ;;9002226.02101,"1044,53978049509 ",.02)
 ;;53978049509
 ;;9002226.02101,"1044,53978056303 ",.01)
 ;;53978056303
 ;;9002226.02101,"1044,53978056303 ",.02)
 ;;53978056303
 ;;9002226.02101,"1044,53978056305 ",.01)
 ;;53978056305
 ;;9002226.02101,"1044,53978056305 ",.02)
 ;;53978056305
 ;;9002226.02101,"1044,53978056308 ",.01)
 ;;53978056308
 ;;9002226.02101,"1044,53978056308 ",.02)
 ;;53978056308
 ;;9002226.02101,"1044,53978103303 ",.01)
 ;;53978103303
 ;;9002226.02101,"1044,53978103303 ",.02)
 ;;53978103303
 ;;9002226.02101,"1044,53978201009 ",.01)
 ;;53978201009
 ;;9002226.02101,"1044,53978201009 ",.02)
 ;;53978201009
 ;;9002226.02101,"1044,53978205903 ",.01)
 ;;53978205903
 ;;9002226.02101,"1044,53978205903 ",.02)
 ;;53978205903
 ;;9002226.02101,"1044,53978301903 ",.01)
 ;;53978301903
 ;;9002226.02101,"1044,53978301903 ",.02)
 ;;53978301903
 ;;9002226.02101,"1044,54348028330 ",.01)
 ;;54348028330
 ;;9002226.02101,"1044,54348028330 ",.02)
 ;;54348028330
 ;;9002226.02101,"1044,54348028360 ",.01)
 ;;54348028360
 ;;9002226.02101,"1044,54348028360 ",.02)
 ;;54348028360
 ;;9002226.02101,"1044,54348051130 ",.01)
 ;;54348051130
 ;;9002226.02101,"1044,54348051130 ",.02)
 ;;54348051130
 ;;9002226.02101,"1044,54458092205 ",.01)
 ;;54458092205
 ;;9002226.02101,"1044,54458092205 ",.02)
 ;;54458092205
 ;;9002226.02101,"1044,54458092405 ",.01)
 ;;54458092405
 ;;9002226.02101,"1044,54458092405 ",.02)
 ;;54458092405
 ;;9002226.02101,"1044,54458094405 ",.01)
 ;;54458094405
 ;;9002226.02101,"1044,54458094405 ",.02)
 ;;54458094405
 ;;9002226.02101,"1044,54458094410 ",.01)
 ;;54458094410
 ;;9002226.02101,"1044,54458094410 ",.02)
 ;;54458094410
 ;;9002226.02101,"1044,54458094510 ",.01)
 ;;54458094510
 ;;9002226.02101,"1044,54458094510 ",.02)
 ;;54458094510
 ;;9002226.02101,"1044,54458094710 ",.01)
 ;;54458094710
 ;;9002226.02101,"1044,54458094710 ",.02)
 ;;54458094710
 ;;9002226.02101,"1044,54458096010 ",.01)
 ;;54458096010
 ;;9002226.02101,"1044,54458096010 ",.02)
 ;;54458096010
 ;;9002226.02101,"1044,54458096110 ",.01)
 ;;54458096110
 ;;9002226.02101,"1044,54458096110 ",.02)
 ;;54458096110
 ;;9002226.02101,"1044,54458098005 ",.01)
 ;;54458098005
 ;;9002226.02101,"1044,54458098005 ",.02)
 ;;54458098005
 ;;9002226.02101,"1044,54458098010 ",.01)
 ;;54458098010
 ;;9002226.02101,"1044,54458098010 ",.02)
 ;;54458098010
 ;;9002226.02101,"1044,54458098110 ",.01)
 ;;54458098110
 ;;9002226.02101,"1044,54458098110 ",.02)
 ;;54458098110
 ;;9002226.02101,"1044,54458098810 ",.01)
 ;;54458098810
 ;;9002226.02101,"1044,54458098810 ",.02)
 ;;54458098810
 ;;9002226.02101,"1044,54458098904 ",.01)
 ;;54458098904
 ;;9002226.02101,"1044,54458098904 ",.02)
 ;;54458098904
 ;;9002226.02101,"1044,54458098910 ",.01)
 ;;54458098910
 ;;9002226.02101,"1044,54458098910 ",.02)
 ;;54458098910
 ;;9002226.02101,"1044,54458099010 ",.01)
 ;;54458099010
 ;;9002226.02101,"1044,54458099010 ",.02)
 ;;54458099010
 ;;9002226.02101,"1044,54569017200 ",.01)
 ;;54569017200
 ;;9002226.02101,"1044,54569017200 ",.02)
 ;;54569017200
 ;;9002226.02101,"1044,54569017201 ",.01)
 ;;54569017201
 ;;9002226.02101,"1044,54569017201 ",.02)
 ;;54569017201
 ;;9002226.02101,"1044,54569017202 ",.01)
 ;;54569017202
 ;;9002226.02101,"1044,54569017202 ",.02)
 ;;54569017202
 ;;9002226.02101,"1044,54569017204 ",.01)
 ;;54569017204
 ;;9002226.02101,"1044,54569017204 ",.02)
 ;;54569017204
 ;;9002226.02101,"1044,54569017206 ",.01)
 ;;54569017206
 ;;9002226.02101,"1044,54569017206 ",.02)
 ;;54569017206
 ;;9002226.02101,"1044,54569017207 ",.01)
 ;;54569017207
 ;;9002226.02101,"1044,54569017207 ",.02)
 ;;54569017207
 ;;9002226.02101,"1044,54569017208 ",.01)
 ;;54569017208
 ;;9002226.02101,"1044,54569017208 ",.02)
 ;;54569017208
 ;;9002226.02101,"1044,54569017500 ",.01)
 ;;54569017500
 ;;9002226.02101,"1044,54569017500 ",.02)
 ;;54569017500
 ;;9002226.02101,"1044,54569017501 ",.01)
 ;;54569017501
 ;;9002226.02101,"1044,54569017501 ",.02)
 ;;54569017501
 ;;9002226.02101,"1044,54569017502 ",.01)
 ;;54569017502
 ;;9002226.02101,"1044,54569017502 ",.02)
 ;;54569017502
 ;;9002226.02101,"1044,54569017503 ",.01)
 ;;54569017503
 ;;9002226.02101,"1044,54569017503 ",.02)
 ;;54569017503
 ;;9002226.02101,"1044,54569017504 ",.01)
 ;;54569017504
 ;;9002226.02101,"1044,54569017504 ",.02)
 ;;54569017504
 ;;9002226.02101,"1044,54569017505 ",.01)
 ;;54569017505
 ;;9002226.02101,"1044,54569017505 ",.02)
 ;;54569017505
 ;;9002226.02101,"1044,54569017506 ",.01)
 ;;54569017506
 ;;9002226.02101,"1044,54569017506 ",.02)
 ;;54569017506
 ;;9002226.02101,"1044,54569017508 ",.01)
 ;;54569017508
 ;;9002226.02101,"1044,54569017508 ",.02)
 ;;54569017508
 ;;9002226.02101,"1044,54569019400 ",.01)
 ;;54569019400
 ;;9002226.02101,"1044,54569019400 ",.02)
 ;;54569019400
 ;;9002226.02101,"1044,54569019402 ",.01)
 ;;54569019402
 ;;9002226.02101,"1044,54569019402 ",.02)
 ;;54569019402
 ;;9002226.02101,"1044,54569019603 ",.01)
 ;;54569019603
 ;;9002226.02101,"1044,54569019603 ",.02)
 ;;54569019603
 ;;9002226.02101,"1044,54569019604 ",.01)
 ;;54569019604
 ;;9002226.02101,"1044,54569019604 ",.02)
 ;;54569019604
 ;;9002226.02101,"1044,54569147000 ",.01)
 ;;54569147000
 ;;9002226.02101,"1044,54569147000 ",.02)
 ;;54569147000
 ;;9002226.02101,"1044,54569147001 ",.01)
 ;;54569147001
 ;;9002226.02101,"1044,54569147001 ",.02)
 ;;54569147001
 ;;9002226.02101,"1044,54569147006 ",.01)
 ;;54569147006
 ;;9002226.02101,"1044,54569147006 ",.02)
 ;;54569147006
 ;;9002226.02101,"1044,54569147008 ",.01)
 ;;54569147008
 ;;9002226.02101,"1044,54569147008 ",.02)
 ;;54569147008
 ;;9002226.02101,"1044,54569147009 ",.01)
 ;;54569147009
 ;;9002226.02101,"1044,54569147009 ",.02)
 ;;54569147009
 ;;9002226.02101,"1044,54569151900 ",.01)
 ;;54569151900
 ;;9002226.02101,"1044,54569151900 ",.02)
 ;;54569151900
 ;;9002226.02101,"1044,54569151901 ",.01)
 ;;54569151901
 ;;9002226.02101,"1044,54569151901 ",.02)
 ;;54569151901
 ;;9002226.02101,"1044,54569151902 ",.01)
 ;;54569151902
 ;;9002226.02101,"1044,54569151902 ",.02)
 ;;54569151902
 ;;9002226.02101,"1044,54569151903 ",.01)
 ;;54569151903
 ;;9002226.02101,"1044,54569151903 ",.02)
 ;;54569151903
 ;;9002226.02101,"1044,54569186401 ",.01)
 ;;54569186401
 ;;9002226.02101,"1044,54569186401 ",.02)
 ;;54569186401
 ;;9002226.02101,"1044,54569186402 ",.01)
 ;;54569186402
 ;;9002226.02101,"1044,54569186402 ",.02)
 ;;54569186402
 ;;9002226.02101,"1044,54569199900 ",.01)
 ;;54569199900
 ;;9002226.02101,"1044,54569199900 ",.02)
 ;;54569199900
 ;;9002226.02101,"1044,54569199901 ",.01)
 ;;54569199901
 ;;9002226.02101,"1044,54569199901 ",.02)
 ;;54569199901
 ;;9002226.02101,"1044,54569199902 ",.01)
 ;;54569199902
 ;;9002226.02101,"1044,54569199902 ",.02)
 ;;54569199902
 ;;9002226.02101,"1044,54569199903 ",.01)
 ;;54569199903
 ;;9002226.02101,"1044,54569199903 ",.02)
 ;;54569199903
 ;;9002226.02101,"1044,54569214600 ",.01)
 ;;54569214600
 ;;9002226.02101,"1044,54569214600 ",.02)
 ;;54569214600
 ;;9002226.02101,"1044,54569214601 ",.01)
 ;;54569214601
 ;;9002226.02101,"1044,54569214601 ",.02)
 ;;54569214601