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

BGPM3ADG.m

Go to the documentation of this file.
BGPM3ADG ;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,"786,66267055530 ",.02)
 ;;66267055530
 ;;9002226.02101,"786,66267055540 ",.01)
 ;;66267055540
 ;;9002226.02101,"786,66267055540 ",.02)
 ;;66267055540
 ;;9002226.02101,"786,66267055560 ",.01)
 ;;66267055560
 ;;9002226.02101,"786,66267055560 ",.02)
 ;;66267055560
 ;;9002226.02101,"786,66267055590 ",.01)
 ;;66267055590
 ;;9002226.02101,"786,66267055590 ",.02)
 ;;66267055590
 ;;9002226.02101,"786,66267056130 ",.01)
 ;;66267056130
 ;;9002226.02101,"786,66267056130 ",.02)
 ;;66267056130
 ;;9002226.02101,"786,66267056190 ",.01)
 ;;66267056190
 ;;9002226.02101,"786,66267056190 ",.02)
 ;;66267056190
 ;;9002226.02101,"786,66336031030 ",.01)
 ;;66336031030
 ;;9002226.02101,"786,66336031030 ",.02)
 ;;66336031030
 ;;9002226.02101,"786,66336031060 ",.01)
 ;;66336031060
 ;;9002226.02101,"786,66336031060 ",.02)
 ;;66336031060
 ;;9002226.02101,"786,66336036760 ",.01)
 ;;66336036760
 ;;9002226.02101,"786,66336036760 ",.02)
 ;;66336036760
 ;;9002226.02101,"786,66336041205 ",.01)
 ;;66336041205
 ;;9002226.02101,"786,66336041205 ",.02)
 ;;66336041205
 ;;9002226.02101,"786,66336041230 ",.01)
 ;;66336041230
 ;;9002226.02101,"786,66336041230 ",.02)
 ;;66336041230
 ;;9002226.02101,"786,66336095330 ",.01)
 ;;66336095330
 ;;9002226.02101,"786,66336095330 ",.02)
 ;;66336095330
 ;;9002226.02101,"786,66336095390 ",.01)
 ;;66336095390
 ;;9002226.02101,"786,66336095390 ",.02)
 ;;66336095390
 ;;9002226.02101,"786,66336095430 ",.01)
 ;;66336095430
 ;;9002226.02101,"786,66336095430 ",.02)
 ;;66336095430
 ;;9002226.02101,"786,66336098630 ",.01)
 ;;66336098630
 ;;9002226.02101,"786,66336098630 ",.02)
 ;;66336098630
 ;;9002226.02101,"786,66394000130 ",.01)
 ;;66394000130
 ;;9002226.02101,"786,66394000130 ",.02)
 ;;66394000130
 ;;9002226.02101,"786,66394000190 ",.01)
 ;;66394000190
 ;;9002226.02101,"786,66394000190 ",.02)
 ;;66394000190
 ;;9002226.02101,"786,66394000230 ",.01)
 ;;66394000230
 ;;9002226.02101,"786,66394000230 ",.02)
 ;;66394000230
 ;;9002226.02101,"786,66394000290 ",.01)
 ;;66394000290
 ;;9002226.02101,"786,66394000290 ",.02)
 ;;66394000290
 ;;9002226.02101,"786,66394000330 ",.01)
 ;;66394000330
 ;;9002226.02101,"786,66394000330 ",.02)
 ;;66394000330
 ;;9002226.02101,"786,66394000390 ",.01)
 ;;66394000390
 ;;9002226.02101,"786,66394000390 ",.02)
 ;;66394000390
 ;;9002226.02101,"786,66394000430 ",.01)
 ;;66394000430
 ;;9002226.02101,"786,66394000430 ",.02)
 ;;66394000430
 ;;9002226.02101,"786,66394000490 ",.01)
 ;;66394000490
 ;;9002226.02101,"786,66394000490 ",.02)
 ;;66394000490
 ;;9002226.02101,"786,66394000530 ",.01)
 ;;66394000530
 ;;9002226.02101,"786,66394000530 ",.02)
 ;;66394000530
 ;;9002226.02101,"786,66394000590 ",.01)
 ;;66394000590
 ;;9002226.02101,"786,66394000590 ",.02)
 ;;66394000590
 ;;9002226.02101,"786,66484074100 ",.01)
 ;;66484074100
 ;;9002226.02101,"786,66484074100 ",.02)
 ;;66484074100
 ;;9002226.02101,"786,66484074106 ",.01)
 ;;66484074106
 ;;9002226.02101,"786,66484074106 ",.02)
 ;;66484074106
 ;;9002226.02101,"786,67046023030 ",.01)
 ;;67046023030
 ;;9002226.02101,"786,67046023030 ",.02)
 ;;67046023030
 ;;9002226.02101,"786,67046067130 ",.01)
 ;;67046067130
 ;;9002226.02101,"786,67046067130 ",.02)
 ;;67046067130
 ;;9002226.02101,"786,67046067230 ",.01)
 ;;67046067230
 ;;9002226.02101,"786,67046067230 ",.02)
 ;;67046067230
 ;;9002226.02101,"786,67046067430 ",.01)
 ;;67046067430
 ;;9002226.02101,"786,67046067430 ",.02)
 ;;67046067430
 ;;9002226.02101,"786,67046067530 ",.01)
 ;;67046067530
 ;;9002226.02101,"786,67046067530 ",.02)
 ;;67046067530
 ;;9002226.02101,"786,67228023803 ",.01)
 ;;67228023803
 ;;9002226.02101,"786,67228023803 ",.02)
 ;;67228023803
 ;;9002226.02101,"786,67228023806 ",.01)
 ;;67228023806
 ;;9002226.02101,"786,67228023806 ",.02)
 ;;67228023806
 ;;9002226.02101,"786,67228025703 ",.01)
 ;;67228025703
 ;;9002226.02101,"786,67228025703 ",.02)
 ;;67228025703
 ;;9002226.02101,"786,67228025706 ",.01)
 ;;67228025706
 ;;9002226.02101,"786,67228025706 ",.02)
 ;;67228025706
 ;;9002226.02101,"786,67228025803 ",.01)
 ;;67228025803
 ;;9002226.02101,"786,67228025803 ",.02)
 ;;67228025803
 ;;9002226.02101,"786,67228025806 ",.01)
 ;;67228025806
 ;;9002226.02101,"786,67228025806 ",.02)
 ;;67228025806
 ;;9002226.02101,"786,67228025903 ",.01)
 ;;67228025903
 ;;9002226.02101,"786,67228025903 ",.02)
 ;;67228025903
 ;;9002226.02101,"786,67228025906 ",.01)
 ;;67228025906
 ;;9002226.02101,"786,67228025906 ",.02)
 ;;67228025906
 ;;9002226.02101,"786,67228028803 ",.01)
 ;;67228028803
 ;;9002226.02101,"786,67228028803 ",.02)
 ;;67228028803
 ;;9002226.02101,"786,67228028806 ",.01)
 ;;67228028806
 ;;9002226.02101,"786,67228028806 ",.02)
 ;;67228028806
 ;;9002226.02101,"786,67228029403 ",.01)
 ;;67228029403
 ;;9002226.02101,"786,67228029403 ",.02)
 ;;67228029403
 ;;9002226.02101,"786,67228029406 ",.01)
 ;;67228029406
 ;;9002226.02101,"786,67228029406 ",.02)
 ;;67228029406
 ;;9002226.02101,"786,67228034003 ",.01)
 ;;67228034003
 ;;9002226.02101,"786,67228034003 ",.02)
 ;;67228034003
 ;;9002226.02101,"786,67228034006 ",.01)
 ;;67228034006
 ;;9002226.02101,"786,67228034006 ",.02)
 ;;67228034006
 ;;9002226.02101,"786,67228034803 ",.01)
 ;;67228034803
 ;;9002226.02101,"786,67228034803 ",.02)
 ;;67228034803
 ;;9002226.02101,"786,67228034806 ",.01)
 ;;67228034806
 ;;9002226.02101,"786,67228034806 ",.02)
 ;;67228034806
 ;;9002226.02101,"786,67228035403 ",.01)
 ;;67228035403
 ;;9002226.02101,"786,67228035403 ",.02)
 ;;67228035403
 ;;9002226.02101,"786,67228035406 ",.01)
 ;;67228035406
 ;;9002226.02101,"786,67228035406 ",.02)
 ;;67228035406
 ;;9002226.02101,"786,67228036003 ",.01)
 ;;67228036003
 ;;9002226.02101,"786,67228036003 ",.02)
 ;;67228036003
 ;;9002226.02101,"786,67228036006 ",.01)
 ;;67228036006
 ;;9002226.02101,"786,67228036006 ",.02)
 ;;67228036006
 ;;9002226.02101,"786,67228042703 ",.01)
 ;;67228042703
 ;;9002226.02101,"786,67228042703 ",.02)
 ;;67228042703
 ;;9002226.02101,"786,67228044903 ",.01)
 ;;67228044903
 ;;9002226.02101,"786,67228044903 ",.02)
 ;;67228044903
 ;;9002226.02101,"786,67228044906 ",.01)
 ;;67228044906
 ;;9002226.02101,"786,67228044906 ",.02)
 ;;67228044906
 ;;9002226.02101,"786,67228045803 ",.01)
 ;;67228045803
 ;;9002226.02101,"786,67228045803 ",.02)
 ;;67228045803
 ;;9002226.02101,"786,67228045806 ",.01)
 ;;67228045806
 ;;9002226.02101,"786,67228045806 ",.02)
 ;;67228045806
 ;;9002226.02101,"786,67228046603 ",.01)
 ;;67228046603
 ;;9002226.02101,"786,67228046603 ",.02)
 ;;67228046603
 ;;9002226.02101,"786,67228046606 ",.01)
 ;;67228046606
 ;;9002226.02101,"786,67228046606 ",.02)
 ;;67228046606
 ;;9002226.02101,"786,67228046803 ",.01)
 ;;67228046803
 ;;9002226.02101,"786,67228046803 ",.02)
 ;;67228046803
 ;;9002226.02101,"786,67228046806 ",.01)
 ;;67228046806
 ;;9002226.02101,"786,67228046806 ",.02)
 ;;67228046806
 ;;9002226.02101,"786,67253074106 ",.01)
 ;;67253074106
 ;;9002226.02101,"786,67253074106 ",.02)
 ;;67253074106
 ;;9002226.02101,"786,67253074109 ",.01)
 ;;67253074109
 ;;9002226.02101,"786,67253074109 ",.02)
 ;;67253074109
 ;;9002226.02101,"786,67253074150 ",.01)
 ;;67253074150
 ;;9002226.02101,"786,67253074150 ",.02)
 ;;67253074150
 ;;9002226.02101,"786,67317337301 ",.01)
 ;;67317337301
 ;;9002226.02101,"786,67317337301 ",.02)
 ;;67317337301
 ;;9002226.02101,"786,67317337401 ",.01)
 ;;67317337401
 ;;9002226.02101,"786,67317337401 ",.02)
 ;;67317337401
 ;;9002226.02101,"786,67317337501 ",.01)
 ;;67317337501
 ;;9002226.02101,"786,67317337501 ",.02)
 ;;67317337501
 ;;9002226.02101,"786,67317337601 ",.01)
 ;;67317337601
 ;;9002226.02101,"786,67317337601 ",.02)
 ;;67317337601
 ;;9002226.02101,"786,67544009631 ",.01)
 ;;67544009631
 ;;9002226.02101,"786,67544009631 ",.02)
 ;;67544009631
 ;;9002226.02101,"786,67544009660 ",.01)
 ;;67544009660
 ;;9002226.02101,"786,67544009660 ",.02)
 ;;67544009660
 ;;9002226.02101,"786,67544009680 ",.01)
 ;;67544009680
 ;;9002226.02101,"786,67544009680 ",.02)
 ;;67544009680
 ;;9002226.02101,"786,67544010615 ",.01)
 ;;67544010615
 ;;9002226.02101,"786,67544010615 ",.02)
 ;;67544010615
 ;;9002226.02101,"786,67544010630 ",.01)
 ;;67544010630
 ;;9002226.02101,"786,67544010630 ",.02)
 ;;67544010630
 ;;9002226.02101,"786,67544010631 ",.01)
 ;;67544010631
 ;;9002226.02101,"786,67544010631 ",.02)
 ;;67544010631
 ;;9002226.02101,"786,67544010632 ",.01)
 ;;67544010632
 ;;9002226.02101,"786,67544010632 ",.02)
 ;;67544010632
 ;;9002226.02101,"786,67544010645 ",.01)
 ;;67544010645
 ;;9002226.02101,"786,67544010645 ",.02)
 ;;67544010645
 ;;9002226.02101,"786,67544010653 ",.01)
 ;;67544010653
 ;;9002226.02101,"786,67544010653 ",.02)
 ;;67544010653
 ;;9002226.02101,"786,67544010660 ",.01)
 ;;67544010660
 ;;9002226.02101,"786,67544010660 ",.02)
 ;;67544010660
 ;;9002226.02101,"786,67544013730 ",.01)
 ;;67544013730
 ;;9002226.02101,"786,67544013730 ",.02)
 ;;67544013730
 ;;9002226.02101,"786,67544013731 ",.01)
 ;;67544013731
 ;;9002226.02101,"786,67544013731 ",.02)
 ;;67544013731
 ;;9002226.02101,"786,67544013732 ",.01)
 ;;67544013732
 ;;9002226.02101,"786,67544013732 ",.02)
 ;;67544013732
 ;;9002226.02101,"786,67544013760 ",.01)
 ;;67544013760
 ;;9002226.02101,"786,67544013760 ",.02)
 ;;67544013760
 ;;9002226.02101,"786,67544013780 ",.01)
 ;;67544013780
 ;;9002226.02101,"786,67544013780 ",.02)
 ;;67544013780
 ;;9002226.02101,"786,67544022515 ",.01)
 ;;67544022515
 ;;9002226.02101,"786,67544022515 ",.02)
 ;;67544022515
 ;;9002226.02101,"786,67544022530 ",.01)
 ;;67544022530
 ;;9002226.02101,"786,67544022530 ",.02)
 ;;67544022530
 ;;9002226.02101,"786,67544022532 ",.01)
 ;;67544022532
 ;;9002226.02101,"786,67544022532 ",.02)
 ;;67544022532
 ;;9002226.02101,"786,67544022545 ",.01)
 ;;67544022545
 ;;9002226.02101,"786,67544022545 ",.02)
 ;;67544022545
 ;;9002226.02101,"786,67544022553 ",.01)
 ;;67544022553
 ;;9002226.02101,"786,67544022553 ",.02)
 ;;67544022553
 ;;9002226.02101,"786,67544022560 ",.01)
 ;;67544022560
 ;;9002226.02101,"786,67544022560 ",.02)
 ;;67544022560
 ;;9002226.02101,"786,67544022580 ",.01)
 ;;67544022580
 ;;9002226.02101,"786,67544022580 ",.02)
 ;;67544022580
 ;;9002226.02101,"786,67544035160 ",.01)
 ;;67544035160
 ;;9002226.02101,"786,67544035160 ",.02)
 ;;67544035160
 ;;9002226.02101,"786,67544035180 ",.01)
 ;;67544035180
 ;;9002226.02101,"786,67544035180 ",.02)
 ;;67544035180
 ;;9002226.02101,"786,67544060131 ",.01)
 ;;67544060131
 ;;9002226.02101,"786,67544060131 ",.02)
 ;;67544060131
 ;;9002226.02101,"786,67544069231 ",.01)
 ;;67544069231
 ;;9002226.02101,"786,67544069231 ",.02)
 ;;67544069231
 ;;9002226.02101,"786,67544069232 ",.01)
 ;;67544069232
 ;;9002226.02101,"786,67544069232 ",.02)
 ;;67544069232
 ;;9002226.02101,"786,67544078932 ",.01)
 ;;67544078932
 ;;9002226.02101,"786,67544078932 ",.02)
 ;;67544078932
 ;;9002226.02101,"786,67544083031 ",.01)
 ;;67544083031
 ;;9002226.02101,"786,67544083031 ",.02)
 ;;67544083031
 ;;9002226.02101,"786,67544085430 ",.01)
 ;;67544085430
 ;;9002226.02101,"786,67544085430 ",.02)
 ;;67544085430
 ;;9002226.02101,"786,67544085445 ",.01)
 ;;67544085445
 ;;9002226.02101,"786,67544085445 ",.02)
 ;;67544085445
 ;;9002226.02101,"786,67544085453 ",.01)
 ;;67544085453
 ;;9002226.02101,"786,67544085453 ",.02)
 ;;67544085453
 ;;9002226.02101,"786,67544085460 ",.01)
 ;;67544085460
 ;;9002226.02101,"786,67544085460 ",.02)
 ;;67544085460
 ;;9002226.02101,"786,67544085515 ",.01)
 ;;67544085515
 ;;9002226.02101,"786,67544085515 ",.02)
 ;;67544085515
 ;;9002226.02101,"786,67544085530 ",.01)
 ;;67544085530