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

BGPM5BCA.m

Go to the documentation of this file.
BGPM5BCA ;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,24236014102 ",.01)
 ;;24236014102
 ;;9002226.02101,"1044,24236014102 ",.02)
 ;;24236014102
 ;;9002226.02101,"1044,24236014202 ",.01)
 ;;24236014202
 ;;9002226.02101,"1044,24236014202 ",.02)
 ;;24236014202
 ;;9002226.02101,"1044,24236015202 ",.01)
 ;;24236015202
 ;;9002226.02101,"1044,24236015202 ",.02)
 ;;24236015202
 ;;9002226.02101,"1044,24236015802 ",.01)
 ;;24236015802
 ;;9002226.02101,"1044,24236015802 ",.02)
 ;;24236015802
 ;;9002226.02101,"1044,24236017102 ",.01)
 ;;24236017102
 ;;9002226.02101,"1044,24236017102 ",.02)
 ;;24236017102
 ;;9002226.02101,"1044,24236018702 ",.01)
 ;;24236018702
 ;;9002226.02101,"1044,24236018702 ",.02)
 ;;24236018702
 ;;9002226.02101,"1044,24236039002 ",.01)
 ;;24236039002
 ;;9002226.02101,"1044,24236039002 ",.02)
 ;;24236039002
 ;;9002226.02101,"1044,24236039602 ",.01)
 ;;24236039602
 ;;9002226.02101,"1044,24236039602 ",.02)
 ;;24236039602
 ;;9002226.02101,"1044,24236040602 ",.01)
 ;;24236040602
 ;;9002226.02101,"1044,24236040602 ",.02)
 ;;24236040602
 ;;9002226.02101,"1044,24236042302 ",.01)
 ;;24236042302
 ;;9002226.02101,"1044,24236042302 ",.02)
 ;;24236042302
 ;;9002226.02101,"1044,24236043702 ",.01)
 ;;24236043702
 ;;9002226.02101,"1044,24236043702 ",.02)
 ;;24236043702
 ;;9002226.02101,"1044,24236047802 ",.01)
 ;;24236047802
 ;;9002226.02101,"1044,24236047802 ",.02)
 ;;24236047802
 ;;9002226.02101,"1044,24236048102 ",.01)
 ;;24236048102
 ;;9002226.02101,"1044,24236048102 ",.02)
 ;;24236048102
 ;;9002226.02101,"1044,24236050502 ",.01)
 ;;24236050502
 ;;9002226.02101,"1044,24236050502 ",.02)
 ;;24236050502
 ;;9002226.02101,"1044,24236053102 ",.01)
 ;;24236053102
 ;;9002226.02101,"1044,24236053102 ",.02)
 ;;24236053102
 ;;9002226.02101,"1044,24236056502 ",.01)
 ;;24236056502
 ;;9002226.02101,"1044,24236056502 ",.02)
 ;;24236056502
 ;;9002226.02101,"1044,24236056602 ",.01)
 ;;24236056602
 ;;9002226.02101,"1044,24236056602 ",.02)
 ;;24236056602
 ;;9002226.02101,"1044,24236056702 ",.01)
 ;;24236056702
 ;;9002226.02101,"1044,24236056702 ",.02)
 ;;24236056702
 ;;9002226.02101,"1044,24236058302 ",.01)
 ;;24236058302
 ;;9002226.02101,"1044,24236058302 ",.02)
 ;;24236058302
 ;;9002226.02101,"1044,24236058802 ",.01)
 ;;24236058802
 ;;9002226.02101,"1044,24236058802 ",.02)
 ;;24236058802
 ;;9002226.02101,"1044,24236060102 ",.01)
 ;;24236060102
 ;;9002226.02101,"1044,24236060102 ",.02)
 ;;24236060102
 ;;9002226.02101,"1044,24236060202 ",.01)
 ;;24236060202
 ;;9002226.02101,"1044,24236060202 ",.02)
 ;;24236060202
 ;;9002226.02101,"1044,24236060302 ",.01)
 ;;24236060302
 ;;9002226.02101,"1044,24236060302 ",.02)
 ;;24236060302
 ;;9002226.02101,"1044,24236060402 ",.01)
 ;;24236060402
 ;;9002226.02101,"1044,24236060402 ",.02)
 ;;24236060402
 ;;9002226.02101,"1044,24236060502 ",.01)
 ;;24236060502
 ;;9002226.02101,"1044,24236060502 ",.02)
 ;;24236060502
 ;;9002226.02101,"1044,24236060602 ",.01)
 ;;24236060602
 ;;9002226.02101,"1044,24236060602 ",.02)
 ;;24236060602
 ;;9002226.02101,"1044,24236060702 ",.01)
 ;;24236060702
 ;;9002226.02101,"1044,24236060702 ",.02)
 ;;24236060702
 ;;9002226.02101,"1044,24236062402 ",.01)
 ;;24236062402
 ;;9002226.02101,"1044,24236062402 ",.02)
 ;;24236062402
 ;;9002226.02101,"1044,24236063302 ",.01)
 ;;24236063302
 ;;9002226.02101,"1044,24236063302 ",.02)
 ;;24236063302
 ;;9002226.02101,"1044,24236063902 ",.01)
 ;;24236063902
 ;;9002226.02101,"1044,24236063902 ",.02)
 ;;24236063902
 ;;9002226.02101,"1044,24236067002 ",.01)
 ;;24236067002
 ;;9002226.02101,"1044,24236067002 ",.02)
 ;;24236067002
 ;;9002226.02101,"1044,24236067202 ",.01)
 ;;24236067202
 ;;9002226.02101,"1044,24236067202 ",.02)
 ;;24236067202
 ;;9002226.02101,"1044,24236069402 ",.01)
 ;;24236069402
 ;;9002226.02101,"1044,24236069402 ",.02)
 ;;24236069402
 ;;9002226.02101,"1044,24236070402 ",.01)
 ;;24236070402
 ;;9002226.02101,"1044,24236070402 ",.02)
 ;;24236070402
 ;;9002226.02101,"1044,24236070902 ",.01)
 ;;24236070902
 ;;9002226.02101,"1044,24236070902 ",.02)
 ;;24236070902
 ;;9002226.02101,"1044,24236072702 ",.01)
 ;;24236072702
 ;;9002226.02101,"1044,24236072702 ",.02)
 ;;24236072702
 ;;9002226.02101,"1044,24236072730 ",.01)
 ;;24236072730
 ;;9002226.02101,"1044,24236072730 ",.02)
 ;;24236072730
 ;;9002226.02101,"1044,24236072902 ",.01)
 ;;24236072902
 ;;9002226.02101,"1044,24236072902 ",.02)
 ;;24236072902
 ;;9002226.02101,"1044,24236073902 ",.01)
 ;;24236073902
 ;;9002226.02101,"1044,24236073902 ",.02)
 ;;24236073902
 ;;9002226.02101,"1044,24236075202 ",.01)
 ;;24236075202
 ;;9002226.02101,"1044,24236075202 ",.02)
 ;;24236075202
 ;;9002226.02101,"1044,24236075902 ",.01)
 ;;24236075902
 ;;9002226.02101,"1044,24236075902 ",.02)
 ;;24236075902
 ;;9002226.02101,"1044,24236081302 ",.01)
 ;;24236081302
 ;;9002226.02101,"1044,24236081302 ",.02)
 ;;24236081302
 ;;9002226.02101,"1044,24236081502 ",.01)
 ;;24236081502
 ;;9002226.02101,"1044,24236081502 ",.02)
 ;;24236081502
 ;;9002226.02101,"1044,24236082002 ",.01)
 ;;24236082002
 ;;9002226.02101,"1044,24236082002 ",.02)
 ;;24236082002
 ;;9002226.02101,"1044,24236082702 ",.01)
 ;;24236082702
 ;;9002226.02101,"1044,24236082702 ",.02)
 ;;24236082702
 ;;9002226.02101,"1044,24236083602 ",.01)
 ;;24236083602
 ;;9002226.02101,"1044,24236083602 ",.02)
 ;;24236083602
 ;;9002226.02101,"1044,24236084102 ",.01)
 ;;24236084102
 ;;9002226.02101,"1044,24236084102 ",.02)
 ;;24236084102
 ;;9002226.02101,"1044,24236084302 ",.01)
 ;;24236084302
 ;;9002226.02101,"1044,24236084302 ",.02)
 ;;24236084302
 ;;9002226.02101,"1044,24236085802 ",.01)
 ;;24236085802
 ;;9002226.02101,"1044,24236085802 ",.02)
 ;;24236085802
 ;;9002226.02101,"1044,24236092002 ",.01)
 ;;24236092002
 ;;9002226.02101,"1044,24236092002 ",.02)
 ;;24236092002
 ;;9002226.02101,"1044,24236093502 ",.01)
 ;;24236093502
 ;;9002226.02101,"1044,24236093502 ",.02)
 ;;24236093502
 ;;9002226.02101,"1044,24236093902 ",.01)
 ;;24236093902
 ;;9002226.02101,"1044,24236093902 ",.02)
 ;;24236093902
 ;;9002226.02101,"1044,24236094102 ",.01)
 ;;24236094102
 ;;9002226.02101,"1044,24236094102 ",.02)
 ;;24236094102
 ;;9002226.02101,"1044,24236097102 ",.01)
 ;;24236097102
 ;;9002226.02101,"1044,24236097102 ",.02)
 ;;24236097102
 ;;9002226.02101,"1044,24236099302 ",.01)
 ;;24236099302
 ;;9002226.02101,"1044,24236099302 ",.02)
 ;;24236099302
 ;;9002226.02101,"1044,24658014001 ",.01)
 ;;24658014001
 ;;9002226.02101,"1044,24658014001 ",.02)
 ;;24658014001
 ;;9002226.02101,"1044,24658014010 ",.01)
 ;;24658014010
 ;;9002226.02101,"1044,24658014010 ",.02)
 ;;24658014010
 ;;9002226.02101,"1044,24658014030 ",.01)
 ;;24658014030
 ;;9002226.02101,"1044,24658014030 ",.02)
 ;;24658014030
 ;;9002226.02101,"1044,24658014101 ",.01)
 ;;24658014101
 ;;9002226.02101,"1044,24658014101 ",.02)
 ;;24658014101
 ;;9002226.02101,"1044,24658014110 ",.01)
 ;;24658014110
 ;;9002226.02101,"1044,24658014110 ",.02)
 ;;24658014110
 ;;9002226.02101,"1044,24658014130 ",.01)
 ;;24658014130
 ;;9002226.02101,"1044,24658014130 ",.02)
 ;;24658014130
 ;;9002226.02101,"1044,24658014201 ",.01)
 ;;24658014201
 ;;9002226.02101,"1044,24658014201 ",.02)
 ;;24658014201
 ;;9002226.02101,"1044,24658014210 ",.01)
 ;;24658014210
 ;;9002226.02101,"1044,24658014210 ",.02)
 ;;24658014210
 ;;9002226.02101,"1044,24658014230 ",.01)
 ;;24658014230
 ;;9002226.02101,"1044,24658014230 ",.02)
 ;;24658014230
 ;;9002226.02101,"1044,26053004801 ",.01)
 ;;26053004801
 ;;9002226.02101,"1044,26053004801 ",.02)
 ;;26053004801
 ;;9002226.02101,"1044,26053009901 ",.01)
 ;;26053009901
 ;;9002226.02101,"1044,26053009901 ",.02)
 ;;26053009901
 ;;9002226.02101,"1044,26053010001 ",.01)
 ;;26053010001
 ;;9002226.02101,"1044,26053010001 ",.02)
 ;;26053010001
 ;;9002226.02101,"1044,26053014501 ",.01)
 ;;26053014501
 ;;9002226.02101,"1044,26053014501 ",.02)
 ;;26053014501
 ;;9002226.02101,"1044,26053014601 ",.01)
 ;;26053014601
 ;;9002226.02101,"1044,26053014601 ",.02)
 ;;26053014601
 ;;9002226.02101,"1044,26053014701 ",.01)
 ;;26053014701
 ;;9002226.02101,"1044,26053014701 ",.02)
 ;;26053014701
 ;;9002226.02101,"1044,26053014801 ",.01)
 ;;26053014801
 ;;9002226.02101,"1044,26053014801 ",.02)
 ;;26053014801
 ;;9002226.02101,"1044,26053023701 ",.01)
 ;;26053023701
 ;;9002226.02101,"1044,26053023701 ",.02)
 ;;26053023701
 ;;9002226.02101,"1044,26053023801 ",.01)
 ;;26053023801
 ;;9002226.02101,"1044,26053023801 ",.02)
 ;;26053023801
 ;;9002226.02101,"1044,26053024701 ",.01)
 ;;26053024701
 ;;9002226.02101,"1044,26053024701 ",.02)
 ;;26053024701
 ;;9002226.02101,"1044,26053025601 ",.01)
 ;;26053025601
 ;;9002226.02101,"1044,26053025601 ",.02)
 ;;26053025601
 ;;9002226.02101,"1044,26053025701 ",.01)
 ;;26053025701
 ;;9002226.02101,"1044,26053025701 ",.02)
 ;;26053025701
 ;;9002226.02101,"1044,26053025801 ",.01)
 ;;26053025801
 ;;9002226.02101,"1044,26053025801 ",.02)
 ;;26053025801
 ;;9002226.02101,"1044,26053025901 ",.01)
 ;;26053025901
 ;;9002226.02101,"1044,26053025901 ",.02)
 ;;26053025901
 ;;9002226.02101,"1044,26053030701 ",.01)
 ;;26053030701
 ;;9002226.02101,"1044,26053030701 ",.02)
 ;;26053030701
 ;;9002226.02101,"1044,26053039301 ",.01)
 ;;26053039301
 ;;9002226.02101,"1044,26053039301 ",.02)
 ;;26053039301
 ;;9002226.02101,"1044,26053042801 ",.01)
 ;;26053042801
 ;;9002226.02101,"1044,26053042801 ",.02)
 ;;26053042801
 ;;9002226.02101,"1044,26053045701 ",.01)
 ;;26053045701
 ;;9002226.02101,"1044,26053045701 ",.02)
 ;;26053045701
 ;;9002226.02101,"1044,26053045801 ",.01)
 ;;26053045801
 ;;9002226.02101,"1044,26053045801 ",.02)
 ;;26053045801
 ;;9002226.02101,"1044,31722020601 ",.01)
 ;;31722020601
 ;;9002226.02101,"1044,31722020601 ",.02)
 ;;31722020601
 ;;9002226.02101,"1044,31722020605 ",.01)
 ;;31722020605
 ;;9002226.02101,"1044,31722020605 ",.02)
 ;;31722020605
 ;;9002226.02101,"1044,31722020610 ",.01)
 ;;31722020610
 ;;9002226.02101,"1044,31722020610 ",.02)
 ;;31722020610
 ;;9002226.02101,"1044,31722020630 ",.01)
 ;;31722020630
 ;;9002226.02101,"1044,31722020630 ",.02)
 ;;31722020630
 ;;9002226.02101,"1044,31722020701 ",.01)
 ;;31722020701
 ;;9002226.02101,"1044,31722020701 ",.02)
 ;;31722020701
 ;;9002226.02101,"1044,31722020705 ",.01)
 ;;31722020705
 ;;9002226.02101,"1044,31722020705 ",.02)
 ;;31722020705
 ;;9002226.02101,"1044,31722020710 ",.01)
 ;;31722020710
 ;;9002226.02101,"1044,31722020710 ",.02)
 ;;31722020710
 ;;9002226.02101,"1044,31722020730 ",.01)
 ;;31722020730
 ;;9002226.02101,"1044,31722020730 ",.02)
 ;;31722020730
 ;;9002226.02101,"1044,31722020801 ",.01)
 ;;31722020801
 ;;9002226.02101,"1044,31722020801 ",.02)
 ;;31722020801
 ;;9002226.02101,"1044,31722020805 ",.01)
 ;;31722020805
 ;;9002226.02101,"1044,31722020805 ",.02)
 ;;31722020805
 ;;9002226.02101,"1044,31722020810 ",.01)
 ;;31722020810
 ;;9002226.02101,"1044,31722020810 ",.02)
 ;;31722020810
 ;;9002226.02101,"1044,31722020830 ",.01)
 ;;31722020830
 ;;9002226.02101,"1044,31722020830 ",.02)
 ;;31722020830
 ;;9002226.02101,"1044,31722021201 ",.01)
 ;;31722021201
 ;;9002226.02101,"1044,31722021201 ",.02)
 ;;31722021201
 ;;9002226.02101,"1044,31722021205 ",.01)
 ;;31722021205
 ;;9002226.02101,"1044,31722021205 ",.02)
 ;;31722021205
 ;;9002226.02101,"1044,31722021211 ",.01)
 ;;31722021211
 ;;9002226.02101,"1044,31722021211 ",.02)
 ;;31722021211
 ;;9002226.02101,"1044,31722021230 ",.01)
 ;;31722021230
 ;;9002226.02101,"1044,31722021230 ",.02)
 ;;31722021230
 ;;9002226.02101,"1044,31722021290 ",.01)
 ;;31722021290
 ;;9002226.02101,"1044,31722021290 ",.02)
 ;;31722021290
 ;;9002226.02101,"1044,31722021305 ",.01)
 ;;31722021305