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

BGPM5BCM.m

Go to the documentation of this file.
BGPM5BCM ;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,51138008930 ",.01)
 ;;51138008930
 ;;9002226.02101,"1044,51138008930 ",.02)
 ;;51138008930
 ;;9002226.02101,"1044,51138009030 ",.01)
 ;;51138009030
 ;;9002226.02101,"1044,51138009030 ",.02)
 ;;51138009030
 ;;9002226.02101,"1044,51138009130 ",.01)
 ;;51138009130
 ;;9002226.02101,"1044,51138009130 ",.02)
 ;;51138009130
 ;;9002226.02101,"1044,51138009330 ",.01)
 ;;51138009330
 ;;9002226.02101,"1044,51138009330 ",.02)
 ;;51138009330
 ;;9002226.02101,"1044,51138009430 ",.01)
 ;;51138009430
 ;;9002226.02101,"1044,51138009430 ",.02)
 ;;51138009430
 ;;9002226.02101,"1044,51138009530 ",.01)
 ;;51138009530
 ;;9002226.02101,"1044,51138009530 ",.02)
 ;;51138009530
 ;;9002226.02101,"1044,51138019230 ",.01)
 ;;51138019230
 ;;9002226.02101,"1044,51138019230 ",.02)
 ;;51138019230
 ;;9002226.02101,"1044,51138019330 ",.01)
 ;;51138019330
 ;;9002226.02101,"1044,51138019330 ",.02)
 ;;51138019330
 ;;9002226.02101,"1044,51138020830 ",.01)
 ;;51138020830
 ;;9002226.02101,"1044,51138020830 ",.02)
 ;;51138020830
 ;;9002226.02101,"1044,51138020930 ",.01)
 ;;51138020930
 ;;9002226.02101,"1044,51138020930 ",.02)
 ;;51138020930
 ;;9002226.02101,"1044,51138021030 ",.01)
 ;;51138021030
 ;;9002226.02101,"1044,51138021030 ",.02)
 ;;51138021030
 ;;9002226.02101,"1044,51138058530 ",.01)
 ;;51138058530
 ;;9002226.02101,"1044,51138058530 ",.02)
 ;;51138058530
 ;;9002226.02101,"1044,51138058630 ",.01)
 ;;51138058630
 ;;9002226.02101,"1044,51138058630 ",.02)
 ;;51138058630
 ;;9002226.02101,"1044,51138058730 ",.01)
 ;;51138058730
 ;;9002226.02101,"1044,51138058730 ",.02)
 ;;51138058730
 ;;9002226.02101,"1044,51655006224 ",.01)
 ;;51655006224
 ;;9002226.02101,"1044,51655006224 ",.02)
 ;;51655006224
 ;;9002226.02101,"1044,51655006284 ",.01)
 ;;51655006284
 ;;9002226.02101,"1044,51655006284 ",.02)
 ;;51655006284
 ;;9002226.02101,"1044,51655008221 ",.01)
 ;;51655008221
 ;;9002226.02101,"1044,51655008221 ",.02)
 ;;51655008221
 ;;9002226.02101,"1044,51655008224 ",.01)
 ;;51655008224
 ;;9002226.02101,"1044,51655008224 ",.02)
 ;;51655008224
 ;;9002226.02101,"1044,51655008225 ",.01)
 ;;51655008225
 ;;9002226.02101,"1044,51655008225 ",.02)
 ;;51655008225
 ;;9002226.02101,"1044,51655008252 ",.01)
 ;;51655008252
 ;;9002226.02101,"1044,51655008252 ",.02)
 ;;51655008252
 ;;9002226.02101,"1044,51655008253 ",.01)
 ;;51655008253
 ;;9002226.02101,"1044,51655008253 ",.02)
 ;;51655008253
 ;;9002226.02101,"1044,51655008254 ",.01)
 ;;51655008254
 ;;9002226.02101,"1044,51655008254 ",.02)
 ;;51655008254
 ;;9002226.02101,"1044,51655008277 ",.01)
 ;;51655008277
 ;;9002226.02101,"1044,51655008277 ",.02)
 ;;51655008277
 ;;9002226.02101,"1044,51655012124 ",.01)
 ;;51655012124
 ;;9002226.02101,"1044,51655012124 ",.02)
 ;;51655012124
 ;;9002226.02101,"1044,51655012125 ",.01)
 ;;51655012125
 ;;9002226.02101,"1044,51655012125 ",.02)
 ;;51655012125
 ;;9002226.02101,"1044,51655012126 ",.01)
 ;;51655012126
 ;;9002226.02101,"1044,51655012126 ",.02)
 ;;51655012126
 ;;9002226.02101,"1044,51655012153 ",.01)
 ;;51655012153
 ;;9002226.02101,"1044,51655012153 ",.02)
 ;;51655012153
 ;;9002226.02101,"1044,51655012224 ",.01)
 ;;51655012224
 ;;9002226.02101,"1044,51655012224 ",.02)
 ;;51655012224
 ;;9002226.02101,"1044,51655012225 ",.01)
 ;;51655012225
 ;;9002226.02101,"1044,51655012225 ",.02)
 ;;51655012225
 ;;9002226.02101,"1044,51655012252 ",.01)
 ;;51655012252
 ;;9002226.02101,"1044,51655012252 ",.02)
 ;;51655012252
 ;;9002226.02101,"1044,51655012253 ",.01)
 ;;51655012253
 ;;9002226.02101,"1044,51655012253 ",.02)
 ;;51655012253
 ;;9002226.02101,"1044,51655012254 ",.01)
 ;;51655012254
 ;;9002226.02101,"1044,51655012254 ",.02)
 ;;51655012254
 ;;9002226.02101,"1044,51655014821 ",.01)
 ;;51655014821
 ;;9002226.02101,"1044,51655014821 ",.02)
 ;;51655014821
 ;;9002226.02101,"1044,51655014824 ",.01)
 ;;51655014824
 ;;9002226.02101,"1044,51655014824 ",.02)
 ;;51655014824
 ;;9002226.02101,"1044,51655014851 ",.01)
 ;;51655014851
 ;;9002226.02101,"1044,51655014851 ",.02)
 ;;51655014851
 ;;9002226.02101,"1044,51655014877 ",.01)
 ;;51655014877
 ;;9002226.02101,"1044,51655014877 ",.02)
 ;;51655014877
 ;;9002226.02101,"1044,51655022351 ",.01)
 ;;51655022351
 ;;9002226.02101,"1044,51655022351 ",.02)
 ;;51655022351
 ;;9002226.02101,"1044,51655024324 ",.01)
 ;;51655024324
 ;;9002226.02101,"1044,51655024324 ",.02)
 ;;51655024324
 ;;9002226.02101,"1044,51655063324 ",.01)
 ;;51655063324
 ;;9002226.02101,"1044,51655063324 ",.02)
 ;;51655063324
 ;;9002226.02101,"1044,51655063424 ",.01)
 ;;51655063424
 ;;9002226.02101,"1044,51655063424 ",.02)
 ;;51655063424
 ;;9002226.02101,"1044,51655066624 ",.01)
 ;;51655066624
 ;;9002226.02101,"1044,51655066624 ",.02)
 ;;51655066624
 ;;9002226.02101,"1044,51655070724 ",.01)
 ;;51655070724
 ;;9002226.02101,"1044,51655070724 ",.02)
 ;;51655070724
 ;;9002226.02101,"1044,51655070752 ",.01)
 ;;51655070752
 ;;9002226.02101,"1044,51655070752 ",.02)
 ;;51655070752
 ;;9002226.02101,"1044,51660016430 ",.01)
 ;;51660016430
 ;;9002226.02101,"1044,51660016430 ",.02)
 ;;51660016430
 ;;9002226.02101,"1044,51660016501 ",.01)
 ;;51660016501
 ;;9002226.02101,"1044,51660016501 ",.02)
 ;;51660016501
 ;;9002226.02101,"1044,51660016505 ",.01)
 ;;51660016505
 ;;9002226.02101,"1044,51660016505 ",.02)
 ;;51660016505
 ;;9002226.02101,"1044,51660016530 ",.01)
 ;;51660016530
 ;;9002226.02101,"1044,51660016530 ",.02)
 ;;51660016530
 ;;9002226.02101,"1044,51660016601 ",.01)
 ;;51660016601
 ;;9002226.02101,"1044,51660016601 ",.02)
 ;;51660016601
 ;;9002226.02101,"1044,51660016605 ",.01)
 ;;51660016605
 ;;9002226.02101,"1044,51660016605 ",.02)
 ;;51660016605
 ;;9002226.02101,"1044,51660016630 ",.01)
 ;;51660016630
 ;;9002226.02101,"1044,51660016630 ",.02)
 ;;51660016630
 ;;9002226.02101,"1044,51660063201 ",.01)
 ;;51660063201
 ;;9002226.02101,"1044,51660063201 ",.02)
 ;;51660063201
 ;;9002226.02101,"1044,51660063230 ",.01)
 ;;51660063230
 ;;9002226.02101,"1044,51660063230 ",.02)
 ;;51660063230
 ;;9002226.02101,"1044,51660063290 ",.01)
 ;;51660063290
 ;;9002226.02101,"1044,51660063290 ",.02)
 ;;51660063290
 ;;9002226.02101,"1044,51660068630 ",.01)
 ;;51660068630
 ;;9002226.02101,"1044,51660068630 ",.02)
 ;;51660068630
 ;;9002226.02101,"1044,51660068690 ",.01)
 ;;51660068690
 ;;9002226.02101,"1044,51660068690 ",.02)
 ;;51660068690
 ;;9002226.02101,"1044,51660068730 ",.01)
 ;;51660068730
 ;;9002226.02101,"1044,51660068730 ",.02)
 ;;51660068730
 ;;9002226.02101,"1044,51660068790 ",.01)
 ;;51660068790
 ;;9002226.02101,"1044,51660068790 ",.02)
 ;;51660068790
 ;;9002226.02101,"1044,51660084005 ",.01)
 ;;51660084005
 ;;9002226.02101,"1044,51660084005 ",.02)
 ;;51660084005
 ;;9002226.02101,"1044,51672400101 ",.01)
 ;;51672400101
 ;;9002226.02101,"1044,51672400101 ",.02)
 ;;51672400101
 ;;9002226.02101,"1044,51672400102 ",.01)
 ;;51672400102
 ;;9002226.02101,"1044,51672400102 ",.02)
 ;;51672400102
 ;;9002226.02101,"1044,51672400105 ",.01)
 ;;51672400105
 ;;9002226.02101,"1044,51672400105 ",.02)
 ;;51672400105
 ;;9002226.02101,"1044,51672400106 ",.01)
 ;;51672400106
 ;;9002226.02101,"1044,51672400106 ",.02)
 ;;51672400106
 ;;9002226.02101,"1044,51672400201 ",.01)
 ;;51672400201
 ;;9002226.02101,"1044,51672400201 ",.02)
 ;;51672400201
 ;;9002226.02101,"1044,51672400202 ",.01)
 ;;51672400202
 ;;9002226.02101,"1044,51672400202 ",.02)
 ;;51672400202
 ;;9002226.02101,"1044,51672400204 ",.01)
 ;;51672400204
 ;;9002226.02101,"1044,51672400204 ",.02)
 ;;51672400204
 ;;9002226.02101,"1044,51672400205 ",.01)
 ;;51672400205
 ;;9002226.02101,"1044,51672400205 ",.02)
 ;;51672400205
 ;;9002226.02101,"1044,51672400206 ",.01)
 ;;51672400206
 ;;9002226.02101,"1044,51672400206 ",.02)
 ;;51672400206
 ;;9002226.02101,"1044,51672400301 ",.01)
 ;;51672400301
 ;;9002226.02101,"1044,51672400301 ",.02)
 ;;51672400301
 ;;9002226.02101,"1044,51672400302 ",.01)
 ;;51672400302
 ;;9002226.02101,"1044,51672400302 ",.02)
 ;;51672400302
 ;;9002226.02101,"1044,51672400305 ",.01)
 ;;51672400305
 ;;9002226.02101,"1044,51672400305 ",.02)
 ;;51672400305
 ;;9002226.02101,"1044,51672400306 ",.01)
 ;;51672400306
 ;;9002226.02101,"1044,51672400306 ",.02)
 ;;51672400306
 ;;9002226.02101,"1044,51672400401 ",.01)
 ;;51672400401
 ;;9002226.02101,"1044,51672400401 ",.02)
 ;;51672400401
 ;;9002226.02101,"1044,51672400402 ",.01)
 ;;51672400402
 ;;9002226.02101,"1044,51672400402 ",.02)
 ;;51672400402
 ;;9002226.02101,"1044,51672400405 ",.01)
 ;;51672400405
 ;;9002226.02101,"1044,51672400405 ",.02)
 ;;51672400405
 ;;9002226.02101,"1044,51672400406 ",.01)
 ;;51672400406
 ;;9002226.02101,"1044,51672400406 ",.02)
 ;;51672400406
 ;;9002226.02101,"1044,51672401101 ",.01)
 ;;51672401101
 ;;9002226.02101,"1044,51672401101 ",.02)
 ;;51672401101
 ;;9002226.02101,"1044,51672401104 ",.01)
 ;;51672401104
 ;;9002226.02101,"1044,51672401104 ",.02)
 ;;51672401104
 ;;9002226.02101,"1044,51672401105 ",.01)
 ;;51672401105
 ;;9002226.02101,"1044,51672401105 ",.02)
 ;;51672401105
 ;;9002226.02101,"1044,51672401106 ",.01)
 ;;51672401106
 ;;9002226.02101,"1044,51672401106 ",.02)
 ;;51672401106
 ;;9002226.02101,"1044,51672401201 ",.01)
 ;;51672401201
 ;;9002226.02101,"1044,51672401201 ",.02)
 ;;51672401201
 ;;9002226.02101,"1044,51672401204 ",.01)
 ;;51672401204
 ;;9002226.02101,"1044,51672401204 ",.02)
 ;;51672401204
 ;;9002226.02101,"1044,51672401205 ",.01)
 ;;51672401205
 ;;9002226.02101,"1044,51672401205 ",.02)
 ;;51672401205
 ;;9002226.02101,"1044,51672401206 ",.01)
 ;;51672401206
 ;;9002226.02101,"1044,51672401206 ",.02)
 ;;51672401206
 ;;9002226.02101,"1044,51672401301 ",.01)
 ;;51672401301
 ;;9002226.02101,"1044,51672401301 ",.02)
 ;;51672401301
 ;;9002226.02101,"1044,51672401304 ",.01)
 ;;51672401304
 ;;9002226.02101,"1044,51672401304 ",.02)
 ;;51672401304
 ;;9002226.02101,"1044,51672401305 ",.01)
 ;;51672401305
 ;;9002226.02101,"1044,51672401305 ",.02)
 ;;51672401305
 ;;9002226.02101,"1044,51672401306 ",.01)
 ;;51672401306
 ;;9002226.02101,"1044,51672401306 ",.02)
 ;;51672401306
 ;;9002226.02101,"1044,51672411909 ",.01)
 ;;51672411909
 ;;9002226.02101,"1044,51672411909 ",.02)
 ;;51672411909
 ;;9002226.02101,"1044,51672527300 ",.01)
 ;;51672527300
 ;;9002226.02101,"1044,51672527300 ",.02)
 ;;51672527300
 ;;9002226.02101,"1044,51672527301 ",.01)
 ;;51672527301
 ;;9002226.02101,"1044,51672527301 ",.02)
 ;;51672527301
 ;;9002226.02101,"1044,51672527306 ",.01)
 ;;51672527306
 ;;9002226.02101,"1044,51672527306 ",.02)
 ;;51672527306
 ;;9002226.02101,"1044,51672527400 ",.01)
 ;;51672527400
 ;;9002226.02101,"1044,51672527400 ",.02)
 ;;51672527400
 ;;9002226.02101,"1044,51672527401 ",.01)
 ;;51672527401
 ;;9002226.02101,"1044,51672527401 ",.02)
 ;;51672527401
 ;;9002226.02101,"1044,51672527406 ",.01)
 ;;51672527406
 ;;9002226.02101,"1044,51672527406 ",.02)
 ;;51672527406
 ;;9002226.02101,"1044,51672527500 ",.01)
 ;;51672527500
 ;;9002226.02101,"1044,51672527500 ",.02)
 ;;51672527500
 ;;9002226.02101,"1044,51672527501 ",.01)
 ;;51672527501
 ;;9002226.02101,"1044,51672527501 ",.02)
 ;;51672527501
 ;;9002226.02101,"1044,51672527506 ",.01)
 ;;51672527506
 ;;9002226.02101,"1044,51672527506 ",.02)
 ;;51672527506
 ;;9002226.02101,"1044,52152025418 ",.01)
 ;;52152025418
 ;;9002226.02101,"1044,52152025418 ",.02)
 ;;52152025418
 ;;9002226.02101,"1044,52152025518 ",.01)
 ;;52152025518
 ;;9002226.02101,"1044,52152025518 ",.02)
 ;;52152025518
 ;;9002226.02101,"1044,52152025618 ",.01)
 ;;52152025618
 ;;9002226.02101,"1044,52152025618 ",.02)
 ;;52152025618
 ;;9002226.02101,"1044,52152029308 ",.01)
 ;;52152029308