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

BGPM3AEA.m

Go to the documentation of this file.
BGPM3AEA ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"785,65841006724 ",.01)
 ;;65841006724
 ;;9002226.02101,"785,65841006724 ",.02)
 ;;65841006724
 ;;9002226.02101,"785,65841006805 ",.01)
 ;;65841006805
 ;;9002226.02101,"785,65841006805 ",.02)
 ;;65841006805
 ;;9002226.02101,"785,65841006806 ",.01)
 ;;65841006806
 ;;9002226.02101,"785,65841006806 ",.02)
 ;;65841006806
 ;;9002226.02101,"785,65841006810 ",.01)
 ;;65841006810
 ;;9002226.02101,"785,65841006810 ",.02)
 ;;65841006810
 ;;9002226.02101,"785,65841006814 ",.01)
 ;;65841006814
 ;;9002226.02101,"785,65841006814 ",.02)
 ;;65841006814
 ;;9002226.02101,"785,65841006816 ",.01)
 ;;65841006816
 ;;9002226.02101,"785,65841006816 ",.02)
 ;;65841006816
 ;;9002226.02101,"785,65841006840 ",.01)
 ;;65841006840
 ;;9002226.02101,"785,65841006840 ",.02)
 ;;65841006840
 ;;9002226.02101,"785,65841006905 ",.01)
 ;;65841006905
 ;;9002226.02101,"785,65841006905 ",.02)
 ;;65841006905
 ;;9002226.02101,"785,65841006906 ",.01)
 ;;65841006906
 ;;9002226.02101,"785,65841006906 ",.02)
 ;;65841006906
 ;;9002226.02101,"785,65841006910 ",.01)
 ;;65841006910
 ;;9002226.02101,"785,65841006910 ",.02)
 ;;65841006910
 ;;9002226.02101,"785,65841006914 ",.01)
 ;;65841006914
 ;;9002226.02101,"785,65841006914 ",.02)
 ;;65841006914
 ;;9002226.02101,"785,65841006916 ",.01)
 ;;65841006916
 ;;9002226.02101,"785,65841006916 ",.02)
 ;;65841006916
 ;;9002226.02101,"785,65862005000 ",.01)
 ;;65862005000
 ;;9002226.02101,"785,65862005000 ",.02)
 ;;65862005000
 ;;9002226.02101,"785,65862005001 ",.01)
 ;;65862005001
 ;;9002226.02101,"785,65862005001 ",.02)
 ;;65862005001
 ;;9002226.02101,"785,65862005011 ",.01)
 ;;65862005011
 ;;9002226.02101,"785,65862005011 ",.02)
 ;;65862005011
 ;;9002226.02101,"785,65862005026 ",.01)
 ;;65862005026
 ;;9002226.02101,"785,65862005026 ",.02)
 ;;65862005026
 ;;9002226.02101,"785,65862005030 ",.01)
 ;;65862005030
 ;;9002226.02101,"785,65862005030 ",.02)
 ;;65862005030
 ;;9002226.02101,"785,65862005090 ",.01)
 ;;65862005090
 ;;9002226.02101,"785,65862005090 ",.02)
 ;;65862005090
 ;;9002226.02101,"785,65862005099 ",.01)
 ;;65862005099
 ;;9002226.02101,"785,65862005099 ",.02)
 ;;65862005099
 ;;9002226.02101,"785,65862005100 ",.01)
 ;;65862005100
 ;;9002226.02101,"785,65862005100 ",.02)
 ;;65862005100
 ;;9002226.02101,"785,65862005101 ",.01)
 ;;65862005101
 ;;9002226.02101,"785,65862005101 ",.02)
 ;;65862005101
 ;;9002226.02101,"785,65862005119 ",.01)
 ;;65862005119
 ;;9002226.02101,"785,65862005119 ",.02)
 ;;65862005119
 ;;9002226.02101,"785,65862005126 ",.01)
 ;;65862005126
 ;;9002226.02101,"785,65862005126 ",.02)
 ;;65862005126
 ;;9002226.02101,"785,65862005130 ",.01)
 ;;65862005130
 ;;9002226.02101,"785,65862005130 ",.02)
 ;;65862005130
 ;;9002226.02101,"785,65862005190 ",.01)
 ;;65862005190
 ;;9002226.02101,"785,65862005190 ",.02)
 ;;65862005190
 ;;9002226.02101,"785,65862005199 ",.01)
 ;;65862005199
 ;;9002226.02101,"785,65862005199 ",.02)
 ;;65862005199
 ;;9002226.02101,"785,65862005200 ",.01)
 ;;65862005200
 ;;9002226.02101,"785,65862005200 ",.02)
 ;;65862005200
 ;;9002226.02101,"785,65862005201 ",.01)
 ;;65862005201
 ;;9002226.02101,"785,65862005201 ",.02)
 ;;65862005201
 ;;9002226.02101,"785,65862005226 ",.01)
 ;;65862005226
 ;;9002226.02101,"785,65862005226 ",.02)
 ;;65862005226
 ;;9002226.02101,"785,65862005230 ",.01)
 ;;65862005230
 ;;9002226.02101,"785,65862005230 ",.02)
 ;;65862005230
 ;;9002226.02101,"785,65862005271 ",.01)
 ;;65862005271
 ;;9002226.02101,"785,65862005271 ",.02)
 ;;65862005271
 ;;9002226.02101,"785,65862005290 ",.01)
 ;;65862005290
 ;;9002226.02101,"785,65862005290 ",.02)
 ;;65862005290
 ;;9002226.02101,"785,65862005299 ",.01)
 ;;65862005299
 ;;9002226.02101,"785,65862005299 ",.02)
 ;;65862005299
 ;;9002226.02101,"785,65862005300 ",.01)
 ;;65862005300
 ;;9002226.02101,"785,65862005300 ",.02)
 ;;65862005300
 ;;9002226.02101,"785,65862005301 ",.01)
 ;;65862005301
 ;;9002226.02101,"785,65862005301 ",.02)
 ;;65862005301
 ;;9002226.02101,"785,65862005322 ",.01)
 ;;65862005322
 ;;9002226.02101,"785,65862005322 ",.02)
 ;;65862005322
 ;;9002226.02101,"785,65862005330 ",.01)
 ;;65862005330
 ;;9002226.02101,"785,65862005330 ",.02)
 ;;65862005330
 ;;9002226.02101,"785,65862005341 ",.01)
 ;;65862005341
 ;;9002226.02101,"785,65862005341 ",.02)
 ;;65862005341
 ;;9002226.02101,"785,65862005390 ",.01)
 ;;65862005390
 ;;9002226.02101,"785,65862005390 ",.02)
 ;;65862005390
 ;;9002226.02101,"785,65862005399 ",.01)
 ;;65862005399
 ;;9002226.02101,"785,65862005399 ",.02)
 ;;65862005399
 ;;9002226.02101,"785,65862005400 ",.01)
 ;;65862005400
 ;;9002226.02101,"785,65862005400 ",.02)
 ;;65862005400
 ;;9002226.02101,"785,65862005423 ",.01)
 ;;65862005423
 ;;9002226.02101,"785,65862005423 ",.02)
 ;;65862005423
 ;;9002226.02101,"785,65862005430 ",.01)
 ;;65862005430
 ;;9002226.02101,"785,65862005430 ",.02)
 ;;65862005430
 ;;9002226.02101,"785,65862005439 ",.01)
 ;;65862005439
 ;;9002226.02101,"785,65862005439 ",.02)
 ;;65862005439
 ;;9002226.02101,"785,65862005490 ",.01)
 ;;65862005490
 ;;9002226.02101,"785,65862005490 ",.02)
 ;;65862005490
 ;;9002226.02101,"785,65862005499 ",.01)
 ;;65862005499
 ;;9002226.02101,"785,65862005499 ",.02)
 ;;65862005499
 ;;9002226.02101,"785,66116027730 ",.01)
 ;;66116027730
 ;;9002226.02101,"785,66116027730 ",.02)
 ;;66116027730
 ;;9002226.02101,"785,66116031830 ",.01)
 ;;66116031830
 ;;9002226.02101,"785,66116031830 ",.02)
 ;;66116031830
 ;;9002226.02101,"785,66116031930 ",.01)
 ;;66116031930
 ;;9002226.02101,"785,66116031930 ",.02)
 ;;66116031930
 ;;9002226.02101,"785,66116045130 ",.01)
 ;;66116045130
 ;;9002226.02101,"785,66116045130 ",.02)
 ;;66116045130
 ;;9002226.02101,"785,66116081730 ",.01)
 ;;66116081730
 ;;9002226.02101,"785,66116081730 ",.02)
 ;;66116081730
 ;;9002226.02101,"785,66116081830 ",.01)
 ;;66116081830
 ;;9002226.02101,"785,66116081830 ",.02)
 ;;66116081830
 ;;9002226.02101,"785,66116083230 ",.01)
 ;;66116083230
 ;;9002226.02101,"785,66116083230 ",.02)
 ;;66116083230
 ;;9002226.02101,"785,66116083330 ",.01)
 ;;66116083330
 ;;9002226.02101,"785,66116083330 ",.02)
 ;;66116083330
 ;;9002226.02101,"785,66116084730 ",.01)
 ;;66116084730
 ;;9002226.02101,"785,66116084730 ",.02)
 ;;66116084730
 ;;9002226.02101,"785,66116086330 ",.01)
 ;;66116086330
 ;;9002226.02101,"785,66116086330 ",.02)
 ;;66116086330
 ;;9002226.02101,"785,66267050610 ",.01)
 ;;66267050610
 ;;9002226.02101,"785,66267050610 ",.02)
 ;;66267050610
 ;;9002226.02101,"785,66267050615 ",.01)
 ;;66267050615
 ;;9002226.02101,"785,66267050615 ",.02)
 ;;66267050615
 ;;9002226.02101,"785,66267050620 ",.01)
 ;;66267050620
 ;;9002226.02101,"785,66267050620 ",.02)
 ;;66267050620
 ;;9002226.02101,"785,66267050630 ",.01)
 ;;66267050630
 ;;9002226.02101,"785,66267050630 ",.02)
 ;;66267050630
 ;;9002226.02101,"785,66267050640 ",.01)
 ;;66267050640
 ;;9002226.02101,"785,66267050640 ",.02)
 ;;66267050640
 ;;9002226.02101,"785,66267050660 ",.01)
 ;;66267050660
 ;;9002226.02101,"785,66267050660 ",.02)
 ;;66267050660
 ;;9002226.02101,"785,66267050690 ",.01)
 ;;66267050690
 ;;9002226.02101,"785,66267050690 ",.02)
 ;;66267050690
 ;;9002226.02101,"785,66267055520 ",.01)
 ;;66267055520
 ;;9002226.02101,"785,66267055520 ",.02)
 ;;66267055520
 ;;9002226.02101,"785,66267055528 ",.01)
 ;;66267055528
 ;;9002226.02101,"785,66267055528 ",.02)
 ;;66267055528
 ;;9002226.02101,"785,66267055530 ",.01)
 ;;66267055530
 ;;9002226.02101,"785,66267055530 ",.02)
 ;;66267055530
 ;;9002226.02101,"785,66267055540 ",.01)
 ;;66267055540
 ;;9002226.02101,"785,66267055540 ",.02)
 ;;66267055540
 ;;9002226.02101,"785,66267055560 ",.01)
 ;;66267055560
 ;;9002226.02101,"785,66267055560 ",.02)
 ;;66267055560
 ;;9002226.02101,"785,66267055590 ",.01)
 ;;66267055590
 ;;9002226.02101,"785,66267055590 ",.02)
 ;;66267055590
 ;;9002226.02101,"785,66267056130 ",.01)
 ;;66267056130
 ;;9002226.02101,"785,66267056130 ",.02)
 ;;66267056130
 ;;9002226.02101,"785,66267056190 ",.01)
 ;;66267056190
 ;;9002226.02101,"785,66267056190 ",.02)
 ;;66267056190
 ;;9002226.02101,"785,66336031030 ",.01)
 ;;66336031030
 ;;9002226.02101,"785,66336031030 ",.02)
 ;;66336031030
 ;;9002226.02101,"785,66336031060 ",.01)
 ;;66336031060
 ;;9002226.02101,"785,66336031060 ",.02)
 ;;66336031060
 ;;9002226.02101,"785,66336041205 ",.01)
 ;;66336041205
 ;;9002226.02101,"785,66336041205 ",.02)
 ;;66336041205
 ;;9002226.02101,"785,66336041230 ",.01)
 ;;66336041230
 ;;9002226.02101,"785,66336041230 ",.02)
 ;;66336041230
 ;;9002226.02101,"785,66336095330 ",.01)
 ;;66336095330
 ;;9002226.02101,"785,66336095330 ",.02)
 ;;66336095330
 ;;9002226.02101,"785,66336095390 ",.01)
 ;;66336095390
 ;;9002226.02101,"785,66336095390 ",.02)
 ;;66336095390
 ;;9002226.02101,"785,66336095430 ",.01)
 ;;66336095430
 ;;9002226.02101,"785,66336095430 ",.02)
 ;;66336095430
 ;;9002226.02101,"785,66336098630 ",.01)
 ;;66336098630
 ;;9002226.02101,"785,66336098630 ",.02)
 ;;66336098630
 ;;9002226.02101,"785,66394000130 ",.01)
 ;;66394000130
 ;;9002226.02101,"785,66394000130 ",.02)
 ;;66394000130
 ;;9002226.02101,"785,66394000190 ",.01)
 ;;66394000190
 ;;9002226.02101,"785,66394000190 ",.02)
 ;;66394000190
 ;;9002226.02101,"785,66394000230 ",.01)
 ;;66394000230
 ;;9002226.02101,"785,66394000230 ",.02)
 ;;66394000230
 ;;9002226.02101,"785,66394000290 ",.01)
 ;;66394000290
 ;;9002226.02101,"785,66394000290 ",.02)
 ;;66394000290
 ;;9002226.02101,"785,66394000330 ",.01)
 ;;66394000330
 ;;9002226.02101,"785,66394000330 ",.02)
 ;;66394000330
 ;;9002226.02101,"785,66394000390 ",.01)
 ;;66394000390
 ;;9002226.02101,"785,66394000390 ",.02)
 ;;66394000390
 ;;9002226.02101,"785,66394000430 ",.01)
 ;;66394000430
 ;;9002226.02101,"785,66394000430 ",.02)
 ;;66394000430
 ;;9002226.02101,"785,66394000490 ",.01)
 ;;66394000490
 ;;9002226.02101,"785,66394000490 ",.02)
 ;;66394000490
 ;;9002226.02101,"785,66394000530 ",.01)
 ;;66394000530
 ;;9002226.02101,"785,66394000530 ",.02)
 ;;66394000530
 ;;9002226.02101,"785,66394000590 ",.01)
 ;;66394000590
 ;;9002226.02101,"785,66394000590 ",.02)
 ;;66394000590
 ;;9002226.02101,"785,67046067130 ",.01)
 ;;67046067130
 ;;9002226.02101,"785,67046067130 ",.02)
 ;;67046067130
 ;;9002226.02101,"785,67046067230 ",.01)
 ;;67046067230
 ;;9002226.02101,"785,67046067230 ",.02)
 ;;67046067230
 ;;9002226.02101,"785,67046067430 ",.01)
 ;;67046067430
 ;;9002226.02101,"785,67046067430 ",.02)
 ;;67046067430
 ;;9002226.02101,"785,67046067530 ",.01)
 ;;67046067530
 ;;9002226.02101,"785,67046067530 ",.02)
 ;;67046067530
 ;;9002226.02101,"785,67228023803 ",.01)
 ;;67228023803
 ;;9002226.02101,"785,67228023803 ",.02)
 ;;67228023803
 ;;9002226.02101,"785,67228023806 ",.01)
 ;;67228023806
 ;;9002226.02101,"785,67228023806 ",.02)
 ;;67228023806
 ;;9002226.02101,"785,67228025703 ",.01)
 ;;67228025703
 ;;9002226.02101,"785,67228025703 ",.02)
 ;;67228025703
 ;;9002226.02101,"785,67228025706 ",.01)
 ;;67228025706
 ;;9002226.02101,"785,67228025706 ",.02)
 ;;67228025706
 ;;9002226.02101,"785,67228025803 ",.01)
 ;;67228025803
 ;;9002226.02101,"785,67228025803 ",.02)
 ;;67228025803
 ;;9002226.02101,"785,67228025806 ",.01)
 ;;67228025806
 ;;9002226.02101,"785,67228025806 ",.02)
 ;;67228025806
 ;;9002226.02101,"785,67228025903 ",.01)
 ;;67228025903
 ;;9002226.02101,"785,67228025903 ",.02)
 ;;67228025903
 ;;9002226.02101,"785,67228025906 ",.01)
 ;;67228025906
 ;;9002226.02101,"785,67228025906 ",.02)
 ;;67228025906
 ;;9002226.02101,"785,67228028803 ",.01)
 ;;67228028803
 ;;9002226.02101,"785,67228028803 ",.02)
 ;;67228028803