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

BGPM3AEB.m

Go to the documentation of this file.
BGPM3AEB ;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,67228028806 ",.01)
 ;;67228028806
 ;;9002226.02101,"785,67228028806 ",.02)
 ;;67228028806
 ;;9002226.02101,"785,67228029403 ",.01)
 ;;67228029403
 ;;9002226.02101,"785,67228029403 ",.02)
 ;;67228029403
 ;;9002226.02101,"785,67228029406 ",.01)
 ;;67228029406
 ;;9002226.02101,"785,67228029406 ",.02)
 ;;67228029406
 ;;9002226.02101,"785,67228034003 ",.01)
 ;;67228034003
 ;;9002226.02101,"785,67228034003 ",.02)
 ;;67228034003
 ;;9002226.02101,"785,67228034006 ",.01)
 ;;67228034006
 ;;9002226.02101,"785,67228034006 ",.02)
 ;;67228034006
 ;;9002226.02101,"785,67228034803 ",.01)
 ;;67228034803
 ;;9002226.02101,"785,67228034803 ",.02)
 ;;67228034803
 ;;9002226.02101,"785,67228034806 ",.01)
 ;;67228034806
 ;;9002226.02101,"785,67228034806 ",.02)
 ;;67228034806
 ;;9002226.02101,"785,67228035403 ",.01)
 ;;67228035403
 ;;9002226.02101,"785,67228035403 ",.02)
 ;;67228035403
 ;;9002226.02101,"785,67228035406 ",.01)
 ;;67228035406
 ;;9002226.02101,"785,67228035406 ",.02)
 ;;67228035406
 ;;9002226.02101,"785,67228036003 ",.01)
 ;;67228036003
 ;;9002226.02101,"785,67228036003 ",.02)
 ;;67228036003
 ;;9002226.02101,"785,67228036006 ",.01)
 ;;67228036006
 ;;9002226.02101,"785,67228036006 ",.02)
 ;;67228036006
 ;;9002226.02101,"785,67228042703 ",.01)
 ;;67228042703
 ;;9002226.02101,"785,67228042703 ",.02)
 ;;67228042703
 ;;9002226.02101,"785,67228044903 ",.01)
 ;;67228044903
 ;;9002226.02101,"785,67228044903 ",.02)
 ;;67228044903
 ;;9002226.02101,"785,67228044906 ",.01)
 ;;67228044906
 ;;9002226.02101,"785,67228044906 ",.02)
 ;;67228044906
 ;;9002226.02101,"785,67228045803 ",.01)
 ;;67228045803
 ;;9002226.02101,"785,67228045803 ",.02)
 ;;67228045803
 ;;9002226.02101,"785,67228045806 ",.01)
 ;;67228045806
 ;;9002226.02101,"785,67228045806 ",.02)
 ;;67228045806
 ;;9002226.02101,"785,67228046603 ",.01)
 ;;67228046603
 ;;9002226.02101,"785,67228046603 ",.02)
 ;;67228046603
 ;;9002226.02101,"785,67228046606 ",.01)
 ;;67228046606
 ;;9002226.02101,"785,67228046606 ",.02)
 ;;67228046606
 ;;9002226.02101,"785,67228046803 ",.01)
 ;;67228046803
 ;;9002226.02101,"785,67228046803 ",.02)
 ;;67228046803
 ;;9002226.02101,"785,67228046806 ",.01)
 ;;67228046806
 ;;9002226.02101,"785,67228046806 ",.02)
 ;;67228046806
 ;;9002226.02101,"785,67317337301 ",.01)
 ;;67317337301
 ;;9002226.02101,"785,67317337301 ",.02)
 ;;67317337301
 ;;9002226.02101,"785,67317337401 ",.01)
 ;;67317337401
 ;;9002226.02101,"785,67317337401 ",.02)
 ;;67317337401
 ;;9002226.02101,"785,67317337501 ",.01)
 ;;67317337501
 ;;9002226.02101,"785,67317337501 ",.02)
 ;;67317337501
 ;;9002226.02101,"785,67317337601 ",.01)
 ;;67317337601
 ;;9002226.02101,"785,67317337601 ",.02)
 ;;67317337601
 ;;9002226.02101,"785,67544010615 ",.01)
 ;;67544010615
 ;;9002226.02101,"785,67544010615 ",.02)
 ;;67544010615
 ;;9002226.02101,"785,67544010630 ",.01)
 ;;67544010630
 ;;9002226.02101,"785,67544010630 ",.02)
 ;;67544010630
 ;;9002226.02101,"785,67544010631 ",.01)
 ;;67544010631
 ;;9002226.02101,"785,67544010631 ",.02)
 ;;67544010631
 ;;9002226.02101,"785,67544010632 ",.01)
 ;;67544010632
 ;;9002226.02101,"785,67544010632 ",.02)
 ;;67544010632
 ;;9002226.02101,"785,67544010645 ",.01)
 ;;67544010645
 ;;9002226.02101,"785,67544010645 ",.02)
 ;;67544010645
 ;;9002226.02101,"785,67544010653 ",.01)
 ;;67544010653
 ;;9002226.02101,"785,67544010653 ",.02)
 ;;67544010653
 ;;9002226.02101,"785,67544010660 ",.01)
 ;;67544010660
 ;;9002226.02101,"785,67544010660 ",.02)
 ;;67544010660
 ;;9002226.02101,"785,67544022515 ",.01)
 ;;67544022515
 ;;9002226.02101,"785,67544022515 ",.02)
 ;;67544022515
 ;;9002226.02101,"785,67544022530 ",.01)
 ;;67544022530
 ;;9002226.02101,"785,67544022530 ",.02)
 ;;67544022530
 ;;9002226.02101,"785,67544022532 ",.01)
 ;;67544022532
 ;;9002226.02101,"785,67544022532 ",.02)
 ;;67544022532
 ;;9002226.02101,"785,67544022545 ",.01)
 ;;67544022545
 ;;9002226.02101,"785,67544022545 ",.02)
 ;;67544022545
 ;;9002226.02101,"785,67544022553 ",.01)
 ;;67544022553
 ;;9002226.02101,"785,67544022553 ",.02)
 ;;67544022553
 ;;9002226.02101,"785,67544022560 ",.01)
 ;;67544022560
 ;;9002226.02101,"785,67544022560 ",.02)
 ;;67544022560
 ;;9002226.02101,"785,67544022580 ",.01)
 ;;67544022580
 ;;9002226.02101,"785,67544022580 ",.02)
 ;;67544022580
 ;;9002226.02101,"785,67544060131 ",.01)
 ;;67544060131
 ;;9002226.02101,"785,67544060131 ",.02)
 ;;67544060131
 ;;9002226.02101,"785,67544069231 ",.01)
 ;;67544069231
 ;;9002226.02101,"785,67544069231 ",.02)
 ;;67544069231
 ;;9002226.02101,"785,67544069232 ",.01)
 ;;67544069232
 ;;9002226.02101,"785,67544069232 ",.02)
 ;;67544069232
 ;;9002226.02101,"785,67544083031 ",.01)
 ;;67544083031
 ;;9002226.02101,"785,67544083031 ",.02)
 ;;67544083031
 ;;9002226.02101,"785,67544085430 ",.01)
 ;;67544085430
 ;;9002226.02101,"785,67544085430 ",.02)
 ;;67544085430
 ;;9002226.02101,"785,67544085445 ",.01)
 ;;67544085445
 ;;9002226.02101,"785,67544085445 ",.02)
 ;;67544085445
 ;;9002226.02101,"785,67544085453 ",.01)
 ;;67544085453
 ;;9002226.02101,"785,67544085453 ",.02)
 ;;67544085453
 ;;9002226.02101,"785,67544085460 ",.01)
 ;;67544085460
 ;;9002226.02101,"785,67544085460 ",.02)
 ;;67544085460
 ;;9002226.02101,"785,67544085515 ",.01)
 ;;67544085515
 ;;9002226.02101,"785,67544085515 ",.02)
 ;;67544085515
 ;;9002226.02101,"785,67544085530 ",.01)
 ;;67544085530
 ;;9002226.02101,"785,67544085530 ",.02)
 ;;67544085530
 ;;9002226.02101,"785,67544085545 ",.01)
 ;;67544085545
 ;;9002226.02101,"785,67544085545 ",.02)
 ;;67544085545
 ;;9002226.02101,"785,67544085560 ",.01)
 ;;67544085560
 ;;9002226.02101,"785,67544085560 ",.02)
 ;;67544085560
 ;;9002226.02101,"785,67544085615 ",.01)
 ;;67544085615
 ;;9002226.02101,"785,67544085615 ",.02)
 ;;67544085615
 ;;9002226.02101,"785,67544085645 ",.01)
 ;;67544085645
 ;;9002226.02101,"785,67544085645 ",.02)
 ;;67544085645
 ;;9002226.02101,"785,67544085715 ",.01)
 ;;67544085715
 ;;9002226.02101,"785,67544085715 ",.02)
 ;;67544085715
 ;;9002226.02101,"785,67544085716 ",.01)
 ;;67544085716
 ;;9002226.02101,"785,67544085716 ",.02)
 ;;67544085716
 ;;9002226.02101,"785,67544085745 ",.01)
 ;;67544085745
 ;;9002226.02101,"785,67544085745 ",.02)
 ;;67544085745
 ;;9002226.02101,"785,67544085753 ",.01)
 ;;67544085753
 ;;9002226.02101,"785,67544085753 ",.02)
 ;;67544085753
 ;;9002226.02101,"785,67544091032 ",.01)
 ;;67544091032
 ;;9002226.02101,"785,67544091032 ",.02)
 ;;67544091032
 ;;9002226.02101,"785,67544092230 ",.01)
 ;;67544092230
 ;;9002226.02101,"785,67544092230 ",.02)
 ;;67544092230
 ;;9002226.02101,"785,67544092231 ",.01)
 ;;67544092231
 ;;9002226.02101,"785,67544092231 ",.02)
 ;;67544092231
 ;;9002226.02101,"785,67544092232 ",.01)
 ;;67544092232
 ;;9002226.02101,"785,67544092232 ",.02)
 ;;67544092232
 ;;9002226.02101,"785,67544092245 ",.01)
 ;;67544092245
 ;;9002226.02101,"785,67544092245 ",.02)
 ;;67544092245
 ;;9002226.02101,"785,67544093632 ",.01)
 ;;67544093632
 ;;9002226.02101,"785,67544093632 ",.02)
 ;;67544093632
 ;;9002226.02101,"785,68071069005 ",.01)
 ;;68071069005
 ;;9002226.02101,"785,68071069005 ",.02)
 ;;68071069005
 ;;9002226.02101,"785,68071069930 ",.01)
 ;;68071069930
 ;;9002226.02101,"785,68071069930 ",.02)
 ;;68071069930
 ;;9002226.02101,"785,68071070430 ",.01)
 ;;68071070430
 ;;9002226.02101,"785,68071070430 ",.02)
 ;;68071070430
 ;;9002226.02101,"785,68071071630 ",.01)
 ;;68071071630
 ;;9002226.02101,"785,68071071630 ",.02)
 ;;68071071630
 ;;9002226.02101,"785,68084013101 ",.01)
 ;;68084013101
 ;;9002226.02101,"785,68084013101 ",.02)
 ;;68084013101
 ;;9002226.02101,"785,68084013110 ",.01)
 ;;68084013110
 ;;9002226.02101,"785,68084013110 ",.02)
 ;;68084013110
 ;;9002226.02101,"785,68084013111 ",.01)
 ;;68084013111
 ;;9002226.02101,"785,68084013111 ",.02)
 ;;68084013111
 ;;9002226.02101,"785,68084013201 ",.01)
 ;;68084013201
 ;;9002226.02101,"785,68084013201 ",.02)
 ;;68084013201
 ;;9002226.02101,"785,68084013210 ",.01)
 ;;68084013210
 ;;9002226.02101,"785,68084013210 ",.02)
 ;;68084013210
 ;;9002226.02101,"785,68084013301 ",.01)
 ;;68084013301
 ;;9002226.02101,"785,68084013301 ",.02)
 ;;68084013301
 ;;9002226.02101,"785,68084013310 ",.01)
 ;;68084013310
 ;;9002226.02101,"785,68084013310 ",.02)
 ;;68084013310
 ;;9002226.02101,"785,68084016101 ",.01)
 ;;68084016101
 ;;9002226.02101,"785,68084016101 ",.02)
 ;;68084016101
 ;;9002226.02101,"785,68084016111 ",.01)
 ;;68084016111
 ;;9002226.02101,"785,68084016111 ",.02)
 ;;68084016111
 ;;9002226.02101,"785,68084016201 ",.01)
 ;;68084016201
 ;;9002226.02101,"785,68084016201 ",.02)
 ;;68084016201
 ;;9002226.02101,"785,68084016211 ",.01)
 ;;68084016211
 ;;9002226.02101,"785,68084016211 ",.02)
 ;;68084016211
 ;;9002226.02101,"785,68084016301 ",.01)
 ;;68084016301
 ;;9002226.02101,"785,68084016301 ",.02)
 ;;68084016301
 ;;9002226.02101,"785,68084016311 ",.01)
 ;;68084016311
 ;;9002226.02101,"785,68084016311 ",.02)
 ;;68084016311
 ;;9002226.02101,"785,68084016401 ",.01)
 ;;68084016401
 ;;9002226.02101,"785,68084016401 ",.02)
 ;;68084016401
 ;;9002226.02101,"785,68084016411 ",.01)
 ;;68084016411
 ;;9002226.02101,"785,68084016411 ",.02)
 ;;68084016411
 ;;9002226.02101,"785,68084016501 ",.01)
 ;;68084016501
 ;;9002226.02101,"785,68084016501 ",.02)
 ;;68084016501
 ;;9002226.02101,"785,68084016511 ",.01)
 ;;68084016511
 ;;9002226.02101,"785,68084016511 ",.02)
 ;;68084016511
 ;;9002226.02101,"785,68084031214 ",.01)
 ;;68084031214
 ;;9002226.02101,"785,68084031214 ",.02)
 ;;68084031214
 ;;9002226.02101,"785,68115021830 ",.01)
 ;;68115021830
 ;;9002226.02101,"785,68115021830 ",.02)
 ;;68115021830
 ;;9002226.02101,"785,68115021930 ",.01)
 ;;68115021930
 ;;9002226.02101,"785,68115021930 ",.02)
 ;;68115021930
 ;;9002226.02101,"785,68115021960 ",.01)
 ;;68115021960
 ;;9002226.02101,"785,68115021960 ",.02)
 ;;68115021960
 ;;9002226.02101,"785,68115065800 ",.01)
 ;;68115065800
 ;;9002226.02101,"785,68115065800 ",.02)
 ;;68115065800
 ;;9002226.02101,"785,68180046701 ",.01)
 ;;68180046701
 ;;9002226.02101,"785,68180046701 ",.02)
 ;;68180046701
 ;;9002226.02101,"785,68180046703 ",.01)
 ;;68180046703
 ;;9002226.02101,"785,68180046703 ",.02)
 ;;68180046703
 ;;9002226.02101,"785,68180046707 ",.01)
 ;;68180046707
 ;;9002226.02101,"785,68180046707 ",.02)
 ;;68180046707
 ;;9002226.02101,"785,68180046801 ",.01)
 ;;68180046801
 ;;9002226.02101,"785,68180046801 ",.02)
 ;;68180046801
 ;;9002226.02101,"785,68180046803 ",.01)
 ;;68180046803
 ;;9002226.02101,"785,68180046803 ",.02)
 ;;68180046803
 ;;9002226.02101,"785,68180046805 ",.01)
 ;;68180046805
 ;;9002226.02101,"785,68180046805 ",.02)
 ;;68180046805
 ;;9002226.02101,"785,68180046807 ",.01)
 ;;68180046807
 ;;9002226.02101,"785,68180046807 ",.02)
 ;;68180046807
 ;;9002226.02101,"785,68180046809 ",.01)
 ;;68180046809
 ;;9002226.02101,"785,68180046809 ",.02)
 ;;68180046809
 ;;9002226.02101,"785,68180046901 ",.01)
 ;;68180046901
 ;;9002226.02101,"785,68180046901 ",.02)
 ;;68180046901
 ;;9002226.02101,"785,68180046903 ",.01)
 ;;68180046903
 ;;9002226.02101,"785,68180046903 ",.02)
 ;;68180046903
 ;;9002226.02101,"785,68180046905 ",.01)
 ;;68180046905
 ;;9002226.02101,"785,68180046905 ",.02)
 ;;68180046905
 ;;9002226.02101,"785,68180046907 ",.01)
 ;;68180046907
 ;;9002226.02101,"785,68180046907 ",.02)
 ;;68180046907
 ;;9002226.02101,"785,68180046909 ",.01)
 ;;68180046909
 ;;9002226.02101,"785,68180046909 ",.02)
 ;;68180046909
 ;;9002226.02101,"785,68180047801 ",.01)
 ;;68180047801
 ;;9002226.02101,"785,68180047801 ",.02)
 ;;68180047801