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

BGPM5ACD.m

Go to the documentation of this file.
  1. BGPM5ACD ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"830,66267049740 ",.02)
  1. ;;66267049740
  1. ;;9002226.02101,"830,66267049745 ",.01)
  1. ;;66267049745
  1. ;;9002226.02101,"830,66267049745 ",.02)
  1. ;;66267049745
  1. ;;9002226.02101,"830,66267049760 ",.01)
  1. ;;66267049760
  1. ;;9002226.02101,"830,66267049760 ",.02)
  1. ;;66267049760
  1. ;;9002226.02101,"830,66267049790 ",.01)
  1. ;;66267049790
  1. ;;9002226.02101,"830,66267049790 ",.02)
  1. ;;66267049790
  1. ;;9002226.02101,"830,66267055300 ",.01)
  1. ;;66267055300
  1. ;;9002226.02101,"830,66267055300 ",.02)
  1. ;;66267055300
  1. ;;9002226.02101,"830,66267055305 ",.01)
  1. ;;66267055305
  1. ;;9002226.02101,"830,66267055305 ",.02)
  1. ;;66267055305
  1. ;;9002226.02101,"830,66267055318 ",.01)
  1. ;;66267055318
  1. ;;9002226.02101,"830,66267055318 ",.02)
  1. ;;66267055318
  1. ;;9002226.02101,"830,66267055320 ",.01)
  1. ;;66267055320
  1. ;;9002226.02101,"830,66267055320 ",.02)
  1. ;;66267055320
  1. ;;9002226.02101,"830,66267055330 ",.01)
  1. ;;66267055330
  1. ;;9002226.02101,"830,66267055330 ",.02)
  1. ;;66267055330
  1. ;;9002226.02101,"830,66267055340 ",.01)
  1. ;;66267055340
  1. ;;9002226.02101,"830,66267055340 ",.02)
  1. ;;66267055340
  1. ;;9002226.02101,"830,66267055360 ",.01)
  1. ;;66267055360
  1. ;;9002226.02101,"830,66267055360 ",.02)
  1. ;;66267055360
  1. ;;9002226.02101,"830,66267055390 ",.01)
  1. ;;66267055390
  1. ;;9002226.02101,"830,66267055390 ",.02)
  1. ;;66267055390
  1. ;;9002226.02101,"830,66267062710 ",.01)
  1. ;;66267062710
  1. ;;9002226.02101,"830,66267062710 ",.02)
  1. ;;66267062710
  1. ;;9002226.02101,"830,66336027030 ",.01)
  1. ;;66336027030
  1. ;;9002226.02101,"830,66336027030 ",.02)
  1. ;;66336027030
  1. ;;9002226.02101,"830,66336035830 ",.01)
  1. ;;66336035830
  1. ;;9002226.02101,"830,66336035830 ",.02)
  1. ;;66336035830
  1. ;;9002226.02101,"830,66336035860 ",.01)
  1. ;;66336035860
  1. ;;9002226.02101,"830,66336035860 ",.02)
  1. ;;66336035860
  1. ;;9002226.02101,"830,66336078430 ",.01)
  1. ;;66336078430
  1. ;;9002226.02101,"830,66336078430 ",.02)
  1. ;;66336078430
  1. ;;9002226.02101,"830,66336088330 ",.01)
  1. ;;66336088330
  1. ;;9002226.02101,"830,66336088330 ",.02)
  1. ;;66336088330
  1. ;;9002226.02101,"830,66336088360 ",.01)
  1. ;;66336088360
  1. ;;9002226.02101,"830,66336088360 ",.02)
  1. ;;66336088360
  1. ;;9002226.02101,"830,66336088414 ",.01)
  1. ;;66336088414
  1. ;;9002226.02101,"830,66336088414 ",.02)
  1. ;;66336088414
  1. ;;9002226.02101,"830,66336088430 ",.01)
  1. ;;66336088430
  1. ;;9002226.02101,"830,66336088430 ",.02)
  1. ;;66336088430
  1. ;;9002226.02101,"830,66336088460 ",.01)
  1. ;;66336088460
  1. ;;9002226.02101,"830,66336088460 ",.02)
  1. ;;66336088460
  1. ;;9002226.02101,"830,67046046030 ",.01)
  1. ;;67046046030
  1. ;;9002226.02101,"830,67046046030 ",.02)
  1. ;;67046046030
  1. ;;9002226.02101,"830,67046046130 ",.01)
  1. ;;67046046130
  1. ;;9002226.02101,"830,67046046130 ",.02)
  1. ;;67046046130
  1. ;;9002226.02101,"830,67046046230 ",.01)
  1. ;;67046046230
  1. ;;9002226.02101,"830,67046046230 ",.02)
  1. ;;67046046230
  1. ;;9002226.02101,"830,67228026803 ",.01)
  1. ;;67228026803
  1. ;;9002226.02101,"830,67228026803 ",.02)
  1. ;;67228026803
  1. ;;9002226.02101,"830,67228026806 ",.01)
  1. ;;67228026806
  1. ;;9002226.02101,"830,67228026806 ",.02)
  1. ;;67228026806
  1. ;;9002226.02101,"830,67228028103 ",.01)
  1. ;;67228028103
  1. ;;9002226.02101,"830,67228028103 ",.02)
  1. ;;67228028103
  1. ;;9002226.02101,"830,67228028106 ",.01)
  1. ;;67228028106
  1. ;;9002226.02101,"830,67228028106 ",.02)
  1. ;;67228028106
  1. ;;9002226.02101,"830,67228036803 ",.01)
  1. ;;67228036803
  1. ;;9002226.02101,"830,67228036803 ",.02)
  1. ;;67228036803
  1. ;;9002226.02101,"830,67228036806 ",.01)
  1. ;;67228036806
  1. ;;9002226.02101,"830,67228036806 ",.02)
  1. ;;67228036806
  1. ;;9002226.02101,"830,67228036903 ",.01)
  1. ;;67228036903
  1. ;;9002226.02101,"830,67228036903 ",.02)
  1. ;;67228036903
  1. ;;9002226.02101,"830,67228036906 ",.01)
  1. ;;67228036906
  1. ;;9002226.02101,"830,67228036906 ",.02)
  1. ;;67228036906
  1. ;;9002226.02101,"830,67544004730 ",.01)
  1. ;;67544004730
  1. ;;9002226.02101,"830,67544004730 ",.02)
  1. ;;67544004730
  1. ;;9002226.02101,"830,67544004732 ",.01)
  1. ;;67544004732
  1. ;;9002226.02101,"830,67544004732 ",.02)
  1. ;;67544004732
  1. ;;9002226.02101,"830,67544004753 ",.01)
  1. ;;67544004753
  1. ;;9002226.02101,"830,67544004753 ",.02)
  1. ;;67544004753
  1. ;;9002226.02101,"830,67544004760 ",.01)
  1. ;;67544004760
  1. ;;9002226.02101,"830,67544004760 ",.02)
  1. ;;67544004760
  1. ;;9002226.02101,"830,67544004770 ",.01)
  1. ;;67544004770
  1. ;;9002226.02101,"830,67544004770 ",.02)
  1. ;;67544004770
  1. ;;9002226.02101,"830,67544004775 ",.01)
  1. ;;67544004775
  1. ;;9002226.02101,"830,67544004775 ",.02)
  1. ;;67544004775
  1. ;;9002226.02101,"830,67544004780 ",.01)
  1. ;;67544004780
  1. ;;9002226.02101,"830,67544004780 ",.02)
  1. ;;67544004780
  1. ;;9002226.02101,"830,67544004790 ",.01)
  1. ;;67544004790
  1. ;;9002226.02101,"830,67544004790 ",.02)
  1. ;;67544004790
  1. ;;9002226.02101,"830,67544004792 ",.01)
  1. ;;67544004792
  1. ;;9002226.02101,"830,67544004792 ",.02)
  1. ;;67544004792
  1. ;;9002226.02101,"830,67544004794 ",.01)
  1. ;;67544004794
  1. ;;9002226.02101,"830,67544004794 ",.02)
  1. ;;67544004794
  1. ;;9002226.02101,"830,67544004796 ",.01)
  1. ;;67544004796
  1. ;;9002226.02101,"830,67544004796 ",.02)
  1. ;;67544004796
  1. ;;9002226.02101,"830,67544010753 ",.01)
  1. ;;67544010753
  1. ;;9002226.02101,"830,67544010753 ",.02)
  1. ;;67544010753
  1. ;;9002226.02101,"830,67544010760 ",.01)
  1. ;;67544010760
  1. ;;9002226.02101,"830,67544010760 ",.02)
  1. ;;67544010760
  1. ;;9002226.02101,"830,67544010770 ",.01)
  1. ;;67544010770
  1. ;;9002226.02101,"830,67544010770 ",.02)
  1. ;;67544010770
  1. ;;9002226.02101,"830,67544010780 ",.01)
  1. ;;67544010780
  1. ;;9002226.02101,"830,67544010780 ",.02)
  1. ;;67544010780
  1. ;;9002226.02101,"830,67544010792 ",.01)
  1. ;;67544010792
  1. ;;9002226.02101,"830,67544010792 ",.02)
  1. ;;67544010792
  1. ;;9002226.02101,"830,67544016330 ",.01)
  1. ;;67544016330
  1. ;;9002226.02101,"830,67544016330 ",.02)
  1. ;;67544016330
  1. ;;9002226.02101,"830,67544016345 ",.01)
  1. ;;67544016345
  1. ;;9002226.02101,"830,67544016345 ",.02)
  1. ;;67544016345
  1. ;;9002226.02101,"830,67544016353 ",.01)
  1. ;;67544016353
  1. ;;9002226.02101,"830,67544016353 ",.02)
  1. ;;67544016353
  1. ;;9002226.02101,"830,67544016360 ",.01)
  1. ;;67544016360
  1. ;;9002226.02101,"830,67544016360 ",.02)
  1. ;;67544016360
  1. ;;9002226.02101,"830,67544016380 ",.01)
  1. ;;67544016380
  1. ;;9002226.02101,"830,67544016380 ",.02)
  1. ;;67544016380
  1. ;;9002226.02101,"830,67544016386 ",.01)
  1. ;;67544016386
  1. ;;9002226.02101,"830,67544016386 ",.02)
  1. ;;67544016386
  1. ;;9002226.02101,"830,67544036470 ",.01)
  1. ;;67544036470
  1. ;;9002226.02101,"830,67544036470 ",.02)
  1. ;;67544036470
  1. ;;9002226.02101,"830,67544041770 ",.01)
  1. ;;67544041770
  1. ;;9002226.02101,"830,67544041770 ",.02)
  1. ;;67544041770
  1. ;;9002226.02101,"830,67544042160 ",.01)
  1. ;;67544042160
  1. ;;9002226.02101,"830,67544042160 ",.02)
  1. ;;67544042160
  1. ;;9002226.02101,"830,67544042180 ",.01)
  1. ;;67544042180
  1. ;;9002226.02101,"830,67544042180 ",.02)
  1. ;;67544042180
  1. ;;9002226.02101,"830,67544042192 ",.01)
  1. ;;67544042192
  1. ;;9002226.02101,"830,67544042192 ",.02)
  1. ;;67544042192
  1. ;;9002226.02101,"830,67544042230 ",.01)
  1. ;;67544042230
  1. ;;9002226.02101,"830,67544042230 ",.02)
  1. ;;67544042230
  1. ;;9002226.02101,"830,67544042253 ",.01)
  1. ;;67544042253
  1. ;;9002226.02101,"830,67544042253 ",.02)
  1. ;;67544042253
  1. ;;9002226.02101,"830,67544042260 ",.01)
  1. ;;67544042260
  1. ;;9002226.02101,"830,67544042260 ",.02)
  1. ;;67544042260
  1. ;;9002226.02101,"830,67544042270 ",.01)
  1. ;;67544042270
  1. ;;9002226.02101,"830,67544042270 ",.02)
  1. ;;67544042270
  1. ;;9002226.02101,"830,67544042275 ",.01)
  1. ;;67544042275
  1. ;;9002226.02101,"830,67544042275 ",.02)
  1. ;;67544042275
  1. ;;9002226.02101,"830,67544042280 ",.01)
  1. ;;67544042280
  1. ;;9002226.02101,"830,67544042280 ",.02)
  1. ;;67544042280
  1. ;;9002226.02101,"830,67544042290 ",.01)
  1. ;;67544042290
  1. ;;9002226.02101,"830,67544042290 ",.02)
  1. ;;67544042290
  1. ;;9002226.02101,"830,67544042292 ",.01)
  1. ;;67544042292
  1. ;;9002226.02101,"830,67544042292 ",.02)
  1. ;;67544042292
  1. ;;9002226.02101,"830,67544042294 ",.01)
  1. ;;67544042294
  1. ;;9002226.02101,"830,67544042294 ",.02)
  1. ;;67544042294
  1. ;;9002226.02101,"830,67544042296 ",.01)
  1. ;;67544042296
  1. ;;9002226.02101,"830,67544042296 ",.02)
  1. ;;67544042296
  1. ;;9002226.02101,"830,67544042430 ",.01)
  1. ;;67544042430
  1. ;;9002226.02101,"830,67544042430 ",.02)
  1. ;;67544042430
  1. ;;9002226.02101,"830,67544042431 ",.01)
  1. ;;67544042431
  1. ;;9002226.02101,"830,67544042431 ",.02)
  1. ;;67544042431
  1. ;;9002226.02101,"830,67544042453 ",.01)
  1. ;;67544042453
  1. ;;9002226.02101,"830,67544042453 ",.02)
  1. ;;67544042453
  1. ;;9002226.02101,"830,67544042460 ",.01)
  1. ;;67544042460
  1. ;;9002226.02101,"830,67544042460 ",.02)
  1. ;;67544042460
  1. ;;9002226.02101,"830,67544042470 ",.01)
  1. ;;67544042470
  1. ;;9002226.02101,"830,67544042470 ",.02)
  1. ;;67544042470
  1. ;;9002226.02101,"830,67544042475 ",.01)
  1. ;;67544042475
  1. ;;9002226.02101,"830,67544042475 ",.02)
  1. ;;67544042475
  1. ;;9002226.02101,"830,67544042480 ",.01)
  1. ;;67544042480
  1. ;;9002226.02101,"830,67544042480 ",.02)
  1. ;;67544042480
  1. ;;9002226.02101,"830,67544042490 ",.01)
  1. ;;67544042490
  1. ;;9002226.02101,"830,67544042490 ",.02)
  1. ;;67544042490
  1. ;;9002226.02101,"830,67544042492 ",.01)
  1. ;;67544042492
  1. ;;9002226.02101,"830,67544042492 ",.02)
  1. ;;67544042492
  1. ;;9002226.02101,"830,67544042494 ",.01)
  1. ;;67544042494
  1. ;;9002226.02101,"830,67544042494 ",.02)
  1. ;;67544042494
  1. ;;9002226.02101,"830,67544042496 ",.01)
  1. ;;67544042496
  1. ;;9002226.02101,"830,67544042496 ",.02)
  1. ;;67544042496
  1. ;;9002226.02101,"830,67544042830 ",.01)
  1. ;;67544042830
  1. ;;9002226.02101,"830,67544042830 ",.02)
  1. ;;67544042830
  1. ;;9002226.02101,"830,67544042831 ",.01)
  1. ;;67544042831
  1. ;;9002226.02101,"830,67544042831 ",.02)
  1. ;;67544042831
  1. ;;9002226.02101,"830,67544042832 ",.01)
  1. ;;67544042832
  1. ;;9002226.02101,"830,67544042832 ",.02)
  1. ;;67544042832
  1. ;;9002226.02101,"830,67544042845 ",.01)
  1. ;;67544042845
  1. ;;9002226.02101,"830,67544042845 ",.02)
  1. ;;67544042845
  1. ;;9002226.02101,"830,67544042853 ",.01)
  1. ;;67544042853
  1. ;;9002226.02101,"830,67544042853 ",.02)
  1. ;;67544042853
  1. ;;9002226.02101,"830,67544042860 ",.01)
  1. ;;67544042860
  1. ;;9002226.02101,"830,67544042860 ",.02)
  1. ;;67544042860
  1. ;;9002226.02101,"830,67544042873 ",.01)
  1. ;;67544042873
  1. ;;9002226.02101,"830,67544042873 ",.02)
  1. ;;67544042873
  1. ;;9002226.02101,"830,67544042880 ",.01)
  1. ;;67544042880
  1. ;;9002226.02101,"830,67544042880 ",.02)
  1. ;;67544042880
  1. ;;9002226.02101,"830,67544042886 ",.01)
  1. ;;67544042886
  1. ;;9002226.02101,"830,67544042886 ",.02)
  1. ;;67544042886
  1. ;;9002226.02101,"830,67544048631 ",.01)
  1. ;;67544048631
  1. ;;9002226.02101,"830,67544048631 ",.02)
  1. ;;67544048631
  1. ;;9002226.02101,"830,67544048632 ",.01)
  1. ;;67544048632
  1. ;;9002226.02101,"830,67544048632 ",.02)
  1. ;;67544048632
  1. ;;9002226.02101,"830,67544048653 ",.01)
  1. ;;67544048653
  1. ;;9002226.02101,"830,67544048653 ",.02)
  1. ;;67544048653
  1. ;;9002226.02101,"830,67544051130 ",.01)
  1. ;;67544051130
  1. ;;9002226.02101,"830,67544051130 ",.02)
  1. ;;67544051130
  1. ;;9002226.02101,"830,67544051170 ",.01)
  1. ;;67544051170
  1. ;;9002226.02101,"830,67544051170 ",.02)
  1. ;;67544051170
  1. ;;9002226.02101,"830,67544051194 ",.01)
  1. ;;67544051194
  1. ;;9002226.02101,"830,67544051194 ",.02)
  1. ;;67544051194
  1. ;;9002226.02101,"830,67544059630 ",.01)
  1. ;;67544059630
  1. ;;9002226.02101,"830,67544059630 ",.02)
  1. ;;67544059630
  1. ;;9002226.02101,"830,67544059631 ",.01)
  1. ;;67544059631
  1. ;;9002226.02101,"830,67544059631 ",.02)
  1. ;;67544059631
  1. ;;9002226.02101,"830,67544059632 ",.01)
  1. ;;67544059632
  1. ;;9002226.02101,"830,67544059632 ",.02)
  1. ;;67544059632
  1. ;;9002226.02101,"830,67544059653 ",.01)
  1. ;;67544059653
  1. ;;9002226.02101,"830,67544059653 ",.02)
  1. ;;67544059653
  1. ;;9002226.02101,"830,67544059660 ",.01)
  1. ;;67544059660
  1. ;;9002226.02101,"830,67544059660 ",.02)
  1. ;;67544059660
  1. ;;9002226.02101,"830,67544059670 ",.01)
  1. ;;67544059670
  1. ;;9002226.02101,"830,67544059670 ",.02)
  1. ;;67544059670
  1. ;;9002226.02101,"830,67544059675 ",.01)
  1. ;;67544059675